1 /*
2   This file was generated automatically with ./scripts/maple2c.pl.
3   Do not edit this file directly as it can be overwritten!!
4 
5   This Source Code Form is subject to the terms of the Mozilla Public
6   License, v. 2.0. If a copy of the MPL was not distributed with this
7   file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 
9   Maple version     : Maple 2016 (X86 64 LINUX)
10   Maple source      : ./maple/mgga_exc/mgga_x_scanl.mpl
11   Type of functional: mgga_exc
12 */
13 
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16 
17 
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t2, t4, t5, t6, t7, t8, t9, t10;
24   double t11, t12, t13, t14, t15, t16, t17, t18;
25   double t19, t20, t21, t22, t23, t24, t25, t29;
26   double t30, t32, t33, t34, t35, t36, t37, t38;
27   double t40, t45, t46, t50, t51, t52, t55, t56;
28   double t58, t59, t60, t64, t65, t66, t67, t69;
29   double t72, t73, t75, t76, t77, t79, t81, t82;
30   double t83, t84, t85, t86, t87, t88, t90, t91;
31   double t92, t93, t94, t95, t96, t97, t99, t100;
32   double t103, t104, t105, t106, t108, t109, t110, t111;
33   double t112, t113, t119, t122, t123, t125, t127, t130;
34   double t131, t132, t137, t138, t139, t140, t141, t144;
35   double t146, t148, t149, t152, t153, t154, t155, t156;
36   double t158, t159, t161, t162, t166, t167, t168, t170;
37 
38 #ifndef XC_DONT_COMPILE_VXC
39   double t174, t175, t176, t177, t179, t181, t182, t183;
40   double t185, t187, t188, t192, t193, t194, t195, t196;
41   double t197, t198, t199, t206, t213, t214, t215, t217;
42   double t220, t221, t224, t225, t226, t227, t230, t231;
43   double t233, t234, t235, t236, t239, t242, t244, t245;
44   double t246, t249, t250, t251, t252, t253, t254, t255;
45   double t256, t259, t263, t265, t268, t269, t275, t277;
46   double t280, t284, t287, t288, t290, t293, t294, t295;
47   double t296, t299, t300, t301, t302, t303, t304, t305;
48   double t308, t311, t312, t316, t317, t318, t319, t320;
49   double t321, t322, t323, t326, t327, t330, t333, t334;
50   double t336, t340, t345, t346, t349, t351, t352, t354;
51   double t355, t356, t358, t363, t366, t368, t371, t372;
52   double t373, t379, t380, t381, t384, t385, t391, t392;
53   double t398, t401, t402, t404, t410, t411, t412, t413;
54   double t416, t419, t421, t424, t425, t426, t427, t430;
55   double t433, t439, t442, t443, t445, t446, t448, t450;
56   double t453, t454, t455, t461, t462, t463, t466, t467;
57   double t469, t470, t472, t475, t476, t481, t483, t484;
58   double t485, t488, t489, t490, t493, t496, t498;
59 
60 #ifndef XC_DONT_COMPILE_FXC
61   double t501, t502, t509, t510, t517, t518, t519, t523;
62   double t524, t525, t527, t529, t530, t534, t535, t541;
63   double t542, t543, t545, t548, t549, t552, t556, t563;
64   double t564, t565, t567, t568, t569, t570, t571, t573;
65   double t575, t577, t578, t579, t582, t585, t586, t587;
66   double t590, t593, t594, t595, t596, t597, t598, t599;
67   double t602, t603, t606, t609, t613, t614, t615, t616;
68   double t619, t622, t623, t624, t627, t628, t629, t630;
69   double t633, t634, t635, t638, t639, t640, t641, t642;
70   double t643, t644, t645, t646, t649, t650, t651, t654;
71   double t655, t656, t657, t660, t661, t662, t665, t668;
72   double t669, t671, t682, t684, t686, t687, t688, t694;
73   double t695, t698, t701, t702, t708, t709, t711, t714;
74   double t717, t720, t723, t726, t727, t730, t731, t732;
75   double t735, t738, t739, t740, t741, t743, t744, t745;
76   double t746, t749, t750, t753, t754, t755, t756, t757;
77   double t761, t764, t765, t769, t773, t777, t782, t785;
78   double t789, t790, t794, t797, t800, t809, t811, t818;
79   double t821, t823, t824, t825, t826, t827, t828, t830;
80   double t835, t838, t841, t842, t845, t848, t853, t855;
81   double t860, t863, t867, t868, t869, t870, t873, t876;
82   double t877, t880, t883, t886, t887, t890, t891, t892;
83   double t895, t898, t899, t902, t903, t904, t907, t910;
84   double t913, t914, t917, t921, t931, t932, t933, t935;
85   double t936, t937, t943, t944, t947, t948, t949, t955;
86   double t956, t959, t962, t963, t965, t967, t969, t972;
87   double t975, t976, t980, t983, t984, t985, t988, t989;
88   double t990, t993, t994, t997, t998, t1002, t1005, t1007;
89   double t1010, t1014, t1015, t1019, t1020, t1024, t1027, t1028;
90   double t1029, t1030, t1032, t1037, t1038, t1039, t1042, t1047;
91   double t1048, t1049, t1051, t1055, t1056, t1057, t1060, t1062;
92   double t1063, t1066, t1067, t1069, t1073, t1074, t1077, t1080;
93   double t1081, t1084, t1087, t1090, t1091, t1094, t1101, t1102;
94   double t1105, t1106, t1107, t1110, t1113, t1116, t1120, t1133;
95   double t1134, t1135, t1137, t1138, t1139, t1141, t1142, t1145;
96   double t1146, t1147, t1150, t1153, t1156, t1157, t1164, t1167;
97   double t1169, t1170, t1173, t1176, t1177, t1178, t1181, t1184;
98   double t1185, t1186, t1189, t1190, t1193, t1196, t1197, t1201;
99   double t1204, t1206, t1209, t1213, t1214, t1220, t1225, t1226;
100   double t1230, t1233, t1236, t1239, t1242, t1245, t1246, t1251;
101   double t1254, t1258, t1259, t1262, t1265, t1272, t1273, t1274;
102   double t1277, t1278, t1281, t1282, t1285, t1286, t1287, t1290;
103   double t1293, t1294, t1295, t1306, t1307, t1308, t1310, t1311;
104   double t1312, t1314, t1315, t1318, t1319, t1323, t1329, t1332;
105   double t1333, t1335, t1338, t1340, t1349, t1351, t1352, t1354;
106   double t1355, t1358, t1364, t1367, t1369, t1372, t1373, t1376;
107   double t1378, t1379, t1384, t1388, t1389, t1390, t1392, t1395;
108   double t1398, t1403, t1408, t1411, t1412, t1414, t1415, t1416;
109   double t1419, t1420, t1421, t1423, t1427, t1430, t1433, t1442;
110   double t1449, t1452, t1453, t1454, t1457, t1468, t1478, t1479;
111   double t1480, t1482, t1483, t1484, t1486, t1487, t1490, t1493;
112   double t1498, t1499, t1506, t1509, t1511, t1514, t1517, t1521;
113   double t1524, t1525, t1526, t1531, t1537, t1540, t1542, t1545;
114   double t1546, t1549, t1550, t1554, t1557, t1563, t1564, t1567;
115   double t1569, t1572, t1576, t1577, t1580, t1583, t1590, t1591;
116   double t1592, t1595, t1599, t1600, t1603, t1604, t1605, t1608;
117   double t1611, t1612, t1613, t1624, t1625, t1626, t1628, t1629;
118   double t1630, t1632, t1633, t1636, t1637, t1638, t1644, t1647;
119   double t1648, t1656, t1660, t1661, t1664, t1667, t1669, t1670;
120   double t1672, t1676, t1679, t1683, t1686, t1688;
121 
122 #ifndef XC_DONT_COMPILE_KXC
123   double t1697, t1698, t1710, t1715, t1718, t1721, t1723, t1724;
124   double t1728, t1735, t1736, t1737, t1740, t1741, t1745, t1746;
125   double t1750, t1752, t1757, t1758, t1759, t1760, t1762, t1766;
126   double t1773, t1780, t1781, t1783, t1785, t1786, t1787, t1789;
127   double t1792, t1799, t1800, t1801, t1804, t1810, t1813, t1815;
128   double t1818, t1819, t1824, t1828, t1829, t1830, t1831, t1834;
129   double t1835, t1838, t1839, t1842, t1845, t1851, t1854, t1855;
130   double t1858, t1859, t1860, t1863, t1864, t1868, t1869, t1870;
131   double t1874, t1875, t1878, t1879, t1880, t1883, t1886, t1887;
132   double t1888, t1890, t1891, t1892, t1893, t1897, t1901, t1902;
133   double t1903, t1906, t1907, t1908, t1912, t1913, t1917, t1920;
134   double t1924, t1927, t1931, t1932, t1935, t1939, t1940, t1943;
135   double t1944, t1945, t1948, t1949, t1952, t1955, t1956, t1959;
136   double t1960, t1961, t1964, t1967, t1970, t1971, t1972, t1978;
137   double t1979, t1982, t1987, t2004, t2008, t2011, t2012, t2013;
138   double t2014, t2017, t2020, t2023, t2026, t2029, t2031, t2032;
139   double t2038, t2039, t2045, t2046, t2047, t2050, t2051, t2060;
140   double t2061, t2062, t2065, t2068, t2077, t2080, t2083, t2086;
141   double t2087, t2090, t2091, t2094, t2097, t2102, t2105, t2106;
142   double t2109, t2110, t2111, t2114, t2115, t2116, t2119, t2120;
143   double t2128, t2130, t2131, t2135, t2138, t2139, t2143, t2153;
144   double t2155, t2157, t2161, t2165, t2171, t2175, t2177, t2178;
145   double t2182, t2187, t2194, t2203, t2208, t2218, t2227, t2230;
146   double t2232, t2233, t2235, t2236, t2237, t2239, t2241, t2251;
147   double t2254, t2257, t2260, t2263, t2264, t2269, t2270, t2273;
148   double t2274, t2279, t2284, t2285, t2294, t2297, t2298, t2302;
149   double t2307, t2310, t2318, t2319, t2322, t2327, t2331, t2332;
150   double t2335, t2340, t2341, t2344, t2345, t2348, t2351, t2359;
151   double t2360, t2363, t2364, t2367, t2371, t2372, t2383, t2390;
152   double t2392, t2393, t2395, t2396, t2398, t2400, t2401, t2402;
153   double t2406, t2407, t2409, t2413, t2416, t2417, t2422, t2425;
154   double t2426, t2430, t2437, t2438, t2439, t2442, t2443, t2446;
155   double t2447, t2448, t2451, t2452, t2455, t2458, t2459, t2460;
156   double t2461, t2466, t2468, t2471, t2474, t2477, t2478, t2481;
157   double t2484, t2489, t2492, t2499, t2504, t2509, t2510, t2511;
158   double t2512, t2515, t2516, t2517, t2523, t2524, t2531, t2536;
159   double t2539, t2546, t2547, t2550, t2557, t2560, t2563, t2564;
160   double t2570, t2571, t2574, t2577, t2578, t2581, t2582, t2585;
161   double t2587, t2593, t2596, t2599, t2602, t2605, t2606, t2608;
162   double t2611, t2621, t2624, t2631, t2632, t2637, t2638, t2644;
163   double t2647, t2652, t2657, t2658, t2659, t2662, t2669, t2670;
164   double t2674, t2682, t2685, t2687, t2690, t2700, t2701, t2705;
165   double t2709, t2713, t2714, t2716, t2720, t2721, t2723, t2724;
166   double t2728, t2732, t2737, t2738, t2748, t2749, t2752, t2755;
167   double t2756, t2759, t2760, t2763, t2766, t2770, t2777, t2779;
168   double t2782, t2783, t2784, t2785, t2787, t2788, t2791, t2795;
169   double t2799, t2802, t2811, t2815, t2818, t2821, t2822, t2825;
170   double t2828, t2829, t2832, t2833, t2836, t2839, t2840, t2843;
171   double t2844, t2852, t2855, t2856, t2859, t2860, t2867, t2876;
172   double t2877, t2880, t2883, t2888, t2889, t2898, t2901, t2902;
173   double t2906, t2916, t2917, t2920, t2921, t2924, t2932, t2939;
174   double t2946, t2950, t2951, t2953, t2954, t2956, t2958, t2959;
175   double t2960, t2962, t2963, t2967, t2971, t2986, t2992, t2995;
176   double t3015, t3020, t3030, t3031, t3039, t3040, t3043, t3050;
177   double t3053, t3056, t3060, t3063, t3064, t3068, t3071, t3074;
178   double t3079, t3082, t3083, t3085, t3086, t3089, t3092, t3095;
179   double t3098, t3099, t3100, t3106, t3111, t3114, t3115, t3134;
180   double t3136, t3139, t3140, t3143, t3146, t3149, t3150, t3155;
181   double t3158, t3159, t3162, t3163, t3166, t3169, t3174, t3179;
182   double t3183, t3186, t3187, t3192, t3195, t3196, t3201, t3202;
183   double t3206, t3209, t3211, t3214, t3232, t3235, t3241, t3245;
184   double t3249, t3251, t3261, t3263, t3264, t3266, t3274, t3277;
185   double t3282, t3288, t3291, t3296, t3301, t3304, t3305, t3308;
186   double t3311, t3320, t3323, t3331, t3332, t3335, t3336, t3339;
187   double t3342, t3343, t3346, t3347, t3348, t3351, t3352, t3357;
188   double t3358, t3361, t3362, t3367, t3368, t3371, t3372, t3376;
189   double t3377, t3380, t3383, t3384, t3387, t3390, t3391, t3394;
190   double t3395, t3403, t3404, t3407, t3410, t3415, t3418, t3421;
191   double t3424, t3425, t3428, t3431, t3434, t3437, t3440, t3442;
192   double t3445, t3446, t3449, t3450, t3453, t3456, t3461, t3468;
193   double t3469, t3472, t3473, t3482, t3485, t3490, t3499, t3501;
194   double t3505, t3506, t3507, t3512, t3518, t3519, t3522, t3525;
195   double t3528, t3537, t3547, t3550, t3554, t3558, t3565, t3568;
196   double t3569, t3571, t3572, t3575, t3578, t3582, t3583, t3586;
197   double t3587, t3594, t3597, t3600, t3603, t3606, t3607, t3609;
198   double t3614, t3617, t3622, t3624, t3639, t3646, t3655, t3656;
199   double t3659, t3660, t3666, t3669, t3672, t3673, t3681, t3684;
200   double t3686, t3689, t3693, t3694, t3698, t3702, t3707, t3708;
201   double t3709, t3710, t3713, t3715, t3716, t3724, t3727, t3729;
202   double t3734, t3735, t3740, t3743, t3746, t3749, t3752, t3756;
203   double t3763, t3764, t3767, t3771, t3773, t3774, t3776, t3780;
204   double t3783, t3784, t3785, t3786, t3790, t3793, t3796, t3798;
205   double t3808, t3811, t3812, t3815, t3816, t3819, t3821, t3822;
206   double t3824, t3827, t3828, t3830, t3831, t3833, t3834, t3838;
207   double t3841, t3844, t3847, t3848, t3849, t3852, t3853, t3858;
208   double t3859, t3860, t3863, t3864, t3872, t3878, t3879, t3880;
209   double t3888, t3891, t3892, t3903, t3904, t3910, t3913, t3916;
210   double t3919, t3933, t3936, t3942, t3947, t3948, t3951, t3952;
211   double t3955, t3956, t3964, t3965, t3966, t3971, t3972, t3978;
212   double t3981, t3982, t3995, t3998, t3999, t4002, t4003, t4009;
213   double t4012, t4013, t4016, t4020, t4021, t4022, t4025, t4026;
214   double t4027, t4031, t4037, t4044, t4050, t4053, t4056, t4057;
215   double t4062, t4065, t4068, t4075, t4078, t4081, t4084, t4086;
216   double t4089, t4090, t4097, t4100, t4115, t4118, t4119, t4124;
217   double t4125, t4128, t4129, t4135, t4136, t4139, t4140, t4145;
218   double t4166, t4169, t4177, t4179, t4183, t4188, t4192, t4193;
219   double t4195, t4196, t4199, t4204, t4206, t4209, t4212, t4213;
220   double t4219, t4226, t4229, t4230, t4237, t4238, t4253, t4255;
221   double t4260, t4262, t4267, t4268, t4269, t4272, t4275, t4282;
222   double t4286, t4290, t4291, t4296, t4297, t4300, t4303, t4307;
223   double t4309, t4315, t4325, t4328, t4331, t4332, t4342, t4345;
224   double t4346, t4348, t4351, t4355, t4356, t4360, t4364, t4369;
225   double t4370, t4376, t4377, t4387, t4390, t4391, t4394, t4399;
226   double t4405, t4410, t4417, t4418, t4419, t4422, t4426, t4427;
227   double t4430, t4431, t4432, t4436, t4439, t4442, t4443, t4449;
228   double t4454, t4455, t4456, t4460, t4461, t4472, t4473, t4476;
229   double t4479, t4482, t4486, t4487, t4488, t4493, t4496, t4497;
230   double t4500, t4515, t4519, t4527, t4531, t4532, t4537, t4542;
231   double t4549, t4558, t4560, t4562, t4563, t4565, t4566, t4569;
232   double t4570, t4572, t4574, t4575, t4577, t4581, t4586, t4593;
233   double t4602, t4604, t4608, t4609, t4612, t4615, t4616, t4619;
234   double t4620, t4626, t4627, t4637, t4640, t4645, t4654, t4683;
235   double t4687, t4688, t4695, t4698, t4699, t4701, t4702, t4705;
236   double t4708, t4714, t4720, t4726, t4729, t4730, t4737, t4738;
237   double t4753, t4755, t4760, t4767, t4768, t4769, t4773, t4778;
238   double t4779, t4782, t4785, t4794, t4797, t4798, t4801, t4802;
239   double t4806, t4809, t4812, t4813, t4818, t4819, t4823, t4826;
240   double t4828, t4831, t4835, t4836, t4842, t4853, t4861, t4867;
241   double t4870, t4873, t4878, t4881, t4886, t4889, t4895, t4896;
242   double t4897, t4902, t4905, t4906, t4909, t4912, t4913, t4916;
243   double t4917, t4920, t4926, t4936, t4937, t4940, t4943, t4944;
244   double t4947, t4950, t4951, t4956, t4957, t4979, t4980, t4981;
245   double t4987, t4991, t4994, t4995, t5000, t5003, t5008, t5025;
246   double t5029, t5031, t5032, t5034, t5035, t5040, t5041, t5051;
247   double t5052, t5055, t5058, t5059, t5061, t5064, t5067, t5071;
248   double t5074, t5078, t5079, t5080, t5083, t5090, t5092, t5095;
249   double t5098, t5101, t5102, t5107, t5115, t5118, t5120, t5123;
250   double t5124, t5132, t5135, t5136, t5137, t5141, t5145, t5146;
251   double t5148, t5149, t5154, t5158, t5161, t5163, t5166, t5171;
252   double t5174, t5177, t5180, t5184, t5199, t5202, t5203, t5205;
253   double t5206, t5207, t5209, t5210, t5212, t5213, t5214, t5216;
254   double t5217, t5219, t5223, t5224, t5227, t5231, t5234, t5235;
255   double t5236, t5239, t5242, t5245, t5253, t5256, t5263, t5266;
256   double t5269, t5284, t5290, t5293, t5294, t5297, t5298, t5301;
257   double t5305, t5308, t5311, t5320, t5339, t5347, t5348, t5349;
258   double t5354, t5359, t5367, t5384, t5392, t5394, t5407, t5412;
259   double t5451, t5454, t5455, t5457, t5458, t5463, t5467, t5470;
260   double t5478, t5484, t5485, t5495, t5498, t5500, t5504, t5508;
261   double t5513, t5521, t5528, t5531, t5533, t5536, t5538, t5547;
262   double t5550, t5559, t5562, t5564, t5567, t5568, t5576, t5579;
263   double t5582, t5585, t5595, t5598, t5601, t5608, t5614, t5617;
264   double t5618, t5622, t5625, t5628, t5629, t5630, t5633, t5634;
265   double t5635, t5636, t5639, t5642, t5643, t5650, t5655, t5656;
266   double t5659, t5667, t5673, t5676, t5685, t5688, t5689, t5690;
267   double t5696, t5699, t5702, t5705, t5715, t5720, t5724, t5743;
268   double t5754, t5756, t5757, t5767, t5771, t5775, t5793, t5794;
269   double t5800, t5822, t5825, t5830, t5853, t5865, t5868, t5871;
270   double t5872, t5874, t5875, t5880, t5898, t5899, t5906, t5918;
271   double t5921, t5927, t5934, t5939, t5944, t5948, t5951, t5953;
272   double t5957, t5962, t5969, t5979, t5982, t5984, t5987, t5988;
273   double t5991, t5992, t5993, t5997, t6001, t6009, t6020, t6022;
274   double t6023, t6024, t6025, t6028, t6031, t6032, t6037, t6043;
275   double t6044, t6054, t6055, t6059, t6063, t6064, t6065, t6068;
276   double t6071, t6074, t6077, t6080, t6083, t6090, t6097, t6102;
277   double t6103, t6106, t6109, t6112, t6116, t6120, t6129, t6130;
278   double t6138, t6162, t6169, t6170, t6178, t6180, t6181, t6183;
279   double t6184, t6188, t6191, t6192, t6195, t6201, t6208, t6209;
280   double t6220, t6228, t6229, t6232, t6235, t6238, t6240, t6243;
281   double t6246, t6250, t6253, t6257, t6262, t6266, t6269, t6271;
282 
283 #ifndef XC_DONT_COMPILE_LXC
284   double t6279, t6280, t6290, t6304, t6305, t6306, t6309, t6314;
285   double t6320, t6325, t6333, t6335, t6343, t6349, t6356, t6359;
286   double t6362, t6365, t6368, t6373, t6380, t6383, t6384, t6390;
287   double t6396, t6397, t6409, t6417, t6428, t6439, t6449, t6452;
288   double t6461, t6462, t6463, t6464, t6470, t6471, t6474, t6478;
289   double t6485, t6488, t6493, t6494, t6503, t6504, t6507, t6511;
290   double t6518, t6519, t6523, t6526, t6527, t6530, t6533, t6546;
291   double t6547, t6553, t6556, t6560, t6563, t6570, t6573, t6576;
292   double t6577, t6583, t6590, t6591, t6600, t6603, t6604, t6607;
293   double t6608, t6611, t6612, t6617, t6618, t6619, t6625, t6626;
294   double t6631, t6635, t6638, t6639, t6642, t6643, t6646, t6647;
295   double t6651, t6656, t6659, t6660, t6673, t6674, t6683, t6687;
296   double t6688, t6689, t6690, t6696, t6699, t6708, t6709, t6710;
297   double t6713, t6716, t6720, t6724, t6727, t6728, t6735, t6740;
298   double t6743, t6746, t6753, t6756, t6764, t6765, t6766, t6767;
299   double t6768, t6781, t6786, t6791, t6796, t6799, t6800, t6806;
300   double t6820, t6823, t6827, t6833, t6834, t6849, t6858, t6859;
301   double t6865, t6868, t6878, t6881, t6882, t6883, t6894, t6898;
302   double t6899, t6905, t6914, t6922, t6924, t6926, t6930, t6945;
303   double t6948, t6951, t6980, t6983, t6987, t7006, t7012, t7016;
304   double t7017, t7020, t7028, t7034, t7038, t7055, t7056, t7057;
305   double t7058, t7063, t7064, t7067, t7078, t7079, t7085, t7099;
306   double t7103, t7119, t7126, t7131, t7165, t7167, t7184, t7188;
307   double t7213, t7217, t7223, t7230, t7237, t7288, t7295, t7310;
308   double t7311, t7314, t7317, t7326, t7351, t7352, t7356, t7367;
309   double t7371, t7376, t7402, t7405, t7415, t7433, t7438, t7447;
310   double t7450, t7461, t7462, t7474, t7477, t7487, t7502, t7508;
311   double t7512, t7515, t7529, t7538, t7539, t7542, t7545, t7555;
312   double t7573, t7579, t7586, t7587, t7591, t7592, t7602, t7603;
313   double t7612, t7620, t7624, t7627, t7628, t7631, t7634, t7637;
314   double t7640, t7643, t7653, t7654, t7655, t7656, t7659, t7662;
315   double t7666, t7669, t7676, t7677, t7678, t7681, t7682, t7686;
316   double t7689, t7693, t7698, t7701, t7704, t7708, t7709, t7712;
317   double t7714, t7717, t7720, t7723, t7729, t7740, t7744, t7745;
318   double t7754, t7757, t7763, t7764, t7771, t7773, t7777, t7779;
319   double t7781, t7784, t7785, t7788, t7790, t7793, t7796, t7798;
320   double t7802, t7809, t7814, t7825, t7834, t7841, t7846, t7847;
321   double t7850, t7859, t7866, t7874, t7879, t7886, t7908, t7923;
322   double t7928, t7930, t7947, t7948, t7955, t7956, t7959, t7969;
323   double t7981, t7982, t7992, t7993, t7996, t7997, t8000, t8002;
324   double t8007, t8008, t8012, t8015, t8018, t8033, t8047, t8048;
325   double t8049, t8052, t8055, t8057, t8060, t8061, t8064, t8067;
326   double t8068, t8069, t8077, t8078, t8082, t8090, t8094, t8102;
327   double t8105, t8106, t8127, t8130, t8142, t8143, t8146, t8148;
328   double t8152, t8155, t8158, t8159, t8162, t8163, t8166, t8169;
329   double t8174, t8177, t8180, t8185, t8190, t8191, t8214, t8218;
330   double t8228, t8233, t8234, t8240, t8250, t8254, t8260, t8272;
331   double t8291, t8301, t8302, t8303, t8309, t8311, t8314, t8324;
332   double t8341, t8346, t8347, t8387, t8394, t8396, t8408, t8412;
333   double t8439, t8454, t8461, t8478, t8494, t8505, t8514, t8517;
334   double t8520, t8530, t8534, t8539, t8542, t8546, t8547, t8550;
335   double t8551, t8552, t8556, t8559, t8562, t8588, t8603, t8609;
336   double t8615, t8620, t8623, t8626, t8634, t8636, t8639, t8643;
337   double t8678, t8680, t8692, t8695, t8699, t8712, t8715, t8726;
338   double t8737, t8738, t8741, t8742, t8745, t8746, t8747, t8751;
339   double t8755, t8759, t8762, t8763, t8767, t8770, t8773, t8776;
340   double t8778, t8781, t8784, t8789, t8794, t8799, t8802, t8807;
341   double t8814, t8826, t8835, t8838, t8842, t8850, t8855, t8858;
342   double t8861, t8864, t8875, t8887, t8891, t8892, t8896, t8905;
343   double t8910, t8911, t8914, t8920, t8923, t8926, t8927, t8932;
344   double t8934, t8940, t8946, t8949, t8958, t8971, t8973, t8974;
345   double t8976, t8978, t8979, t8981, t8983, t8992, t8997, t9002;
346   double t9003, t9004, t9006, t9008, t9009, t9011, t9028, t9029;
347   double t9031, t9037, t9042, t9048, t9053, t9071, t9090, t9106;
348   double t9107, t9116, t9121, t9126, t9137, t9140, t9143, t9147;
349   double t9150, t9153, t9164, t9173, t9181, t9192, t9195, t9196;
350   double t9203, t9212, t9216, t9219, t9222, t9237, t9241, t9244;
351   double t9277, t9285, t9300, t9313, t9317, t9325, t9330, t9331;
352   double t9352, t9360, t9371, t9387, t9392, t9393, t9395, t9398;
353   double t9405, t9409, t9422, t9425, t9434, t9445, t9463, t9464;
354   double t9465, t9469, t9473, t9485, t9488, t9489, t9492, t9500;
355   double t9506, t9509, t9512, t9515, t9516, t9530, t9537, t9548;
356   double t9554, t9563, t9566, t9577, t9581, t9582, t9585, t9598;
357   double t9602, t9613, t9627, t9634, t9660, t9667, t9704, t9737;
358   double t9761, t9765, t9829, t9854, t9858, t9870, t9873, t9886;
359   double t9906, t9909, t9926, t9927, t9939, t9944, t9950, t9981;
360   double t9984, t9985, t9999, t10000, t10001, t10004, t10005, t10006;
361   double t10009, t10011, t10012, t10015, t10018, t10028, t10034, t10035;
362   double t10048, t10055, t10056, t10059, t10075, t10079, t10080, t10083;
363   double t10084, t10085, t10090, t10096, t10100, t10109, t10117, t10121;
364   double t10125, t10136, t10137, t10145, t10148, t10160, t10161, t10164;
365   double t10167, t10176, t10179, t10183, t10187, t10190, t10191, t10194;
366   double t10197, t10200, t10201, t10204, t10205, t10208, t10215, t10218;
367   double t10219, t10222, t10223, t10226, t10229, t10230, t10233, t10237;
368   double t10240, t10248, t10251, t10266, t10267, t10270, t10271, t10277;
369   double t10285, t10286, t10303, t10307, t10310, t10316, t10325, t10330;
370   double t10333, t10338, t10345, t10349, t10350, t10353, t10354, t10357;
371   double t10363, t10368, t10371, t10378, t10380, t10386, t10395, t10396;
372   double t10401, t10405, t10413, t10425, t10428, t10429, t10432, t10433;
373   double t10442, t10447, t10450, t10456, t10466, t10469, t10472, t10475;
374   double t10481, t10486, t10490, t10495, t10498, t10499, t10503, t10515;
375   double t10518, t10519, t10521, t10523, t10524, t10528, t10530, t10537;
376   double t10541, t10550, t10569, t10591, t10633, t10635, t10658, t10678;
377   double t10681, t10684, t10694, t10707, t10708, t10714, t10726, t10729;
378   double t10736, t10737, t10754, t10758, t10779, t10781, t10786, t10790;
379   double t10795, t10796, t10800, t10809, t10826, t10834, t10844, t10847;
380   double t10859, t10866, t10871, t10893, t10896, t10899, t10910, t10918;
381   double t10923, t10924, t10926, t10936, t10942, t10952, t10955, t10960;
382   double t10964, t10967, t10978, t10981, t10992, t11027, t11044, t11052;
383   double t11055, t11064, t11080, t11081, t11084, t11088, t11091, t11095;
384   double t11101, t11102, t11114, t11118, t11124, t11128, t11148, t11150;
385   double t11156, t11187, t11197, t11203, t11230, t11238, t11251, t11269;
386   double t11289, t11292, t11295, t11319, t11325, t11329, t11332, t11335;
387   double t11344, t11347, t11350, t11370, t11375, t11383, t11398, t11401;
388   double t11404, t11409, t11412, t11415, t11419, t11425, t11426, t11439;
389   double t11448, t11456, t11474, t11475, t11476, t11488, t11491, t11493;
390   double t11495, t11507, t11527, t11540, t11543, t11559, t11562, t11578;
391   double t11589, t11593, t11598, t11599, t11600, t11609, t11618, t11622;
392   double t11625, t11640, t11652, t11654, t11655, t11656, t11659, t11660;
393   double t11661, t11666, t11679, t11682, t11683, t11684, t11687, t11692;
394   double t11720, t11729, t11737, t11745, t11748, t11749, t11754, t11757;
395   double t11760, t11761, t11792, t11805, t11809, t11817, t11822, t11825;
396   double t11828, t11831, t11834, t11835, t11838, t11843, t11850, t11854;
397   double t11858, t11861, t11866, t11869, t11872, t11878, t11879, t11883;
398   double t11886, t11889, t11902, t11906, t11913, t11914, t11917, t11918;
399   double t11921, t11933, t11938, t11939, t11942, t11950, t11952, t11953;
400   double t11958, t11959, t11964, t11967, t11970, t11985, t11991, t12009;
401   double t12016, t12017, t12021, t12024, t12027, t12032, t12039, t12042;
402   double t12046, t12053, t12060, t12061, t12072, t12085, t12089, t12099;
403   double t12103, t12108, t12119, t12122, t12125, t12134, t12135, t12136;
404   double t12140, t12144, t12151, t12154, t12159, t12164, t12172, t12190;
405   double t12205, t12208, t12209, t12212, t12213, t12214, t12233, t12236;
406   double t12239, t12245, t12250, t12258, t12272, t12281, t12283, t12289;
407   double t12294, t12297, t12298, t12300, t12302, t12303, t12305, t12306;
408   double t12315, t12333, t12361, t12374, t12389, t12392, t12414, t12418;
409   double t12425, t12437, t12438, t12452, t12462, t12484, t12487, t12490;
410   double t12497, t12501, t12504, t12515, t12523, t12530, t12537, t12547;
411   double t12560, t12578, t12596, t12603, t12624, t12629, t12631, t12634;
412   double t12637, t12640, t12643, t12658, t12663, t12664, t12693, t12697;
413   double t12701, t12714, t12717, t12728, t12732, t12759, t12788, t12801;
414   double t12802, t12806, t12809, t12825, t12831, t12832, t12834, t12849;
415   double t12853, t12875, t12884, t12903, t12920, t12943, t12947, t12950;
416   double t12956, t12976, t12980, t12984, t12988, t12995, t12999, t13007;
417   double t13012, t13015, t13018, t13020, t13026, t13036, t13047, t13050;
418   double t13053, t13058, t13061, t13070, t13082, t13120, t13146, t13151;
419   double t13160, t13188, t13198, t13239, t13261, t13269, t13273, t13304;
420   double t13331, t13332, t13347, t13356, t13361, t13365, t13371, t13381;
421   double t13391, t13398, t13434, t13438, t13449, t13453, t13458, t13461;
422   double t13478, t13482, t13485, t13489, t13495, t13517, t13528, t13530;
423   double t13553, t13564, t13571, t13576, t13577, t13580, t13581, t13584;
424   double t13585, t13588, t13589, t13592, t13593, t13594, t13597, t13616;
425   double t13619, t13620, t13621, t13625, t13629, t13632, t13634, t13637;
426   double t13638, t13642, t13645, t13650, t13664, t13681, t13684, t13686;
427   double t13695, t13696, t13701, t13706, t13707, t13710, t13713, t13714;
428   double t13716, t13718, t13719, t13723, t13726, t13727, t13729, t13731;
429   double t13732, t13740, t13741, t13746, t13748, t13750, t13752, t13753;
430   double t13755, t13760, t13763, t13768, t13770, t13776, t13779, t13781;
431   double t13783, t13784, t13786, t13789, t13791, t13793, t13795, t13797;
432   double t13800, t13805, t13813, t13822, t13823, t13825, t13831, t13838;
433   double t13843, t13846, t13847, t13853, t13861, t13864, t13867, t13870;
434   double t13899, t13906, t13913, t13920, t13923, t13938, t13941, t13942;
435   double t13945, t13948, t13961, t13965, t13970, t14002, t14007, t14018;
436   double t14024, t14035, t14051, t14059, t14063, t14066, t14071, t14072;
437   double t14075, t14099, t14112, t14113, t14147, t14164, t14165, t14177;
438   double t14181, t14192, t14217, t14221, t14240, t14246, t14266, t14289;
439   double t14297, t14304, t14314, t14319, t14336, t14381, t14382, t14385;
440   double t14386, t14389, t14403, t14406, t14409, t14412, t14415, t14420;
441   double t14430, t14435, t14436, t14438, t14446, t14449, t14455, t14459;
442   double t14467, t14472, t14482, t14495, t14499, t14504, t14511, t14512;
443   double t14515, t14519, t14525, t14530, t14532, t14550, t14553, t14559;
444   double t14562, t14564, t14566, t14570, t14578, t14588, t14598, t14602;
445   double t14609, t14616, t14640, t14645, t14654, t14673, t14676, t14677;
446   double t14683, t14686, t14689, t14692, t14698, t14704, t14713, t14714;
447   double t14719, t14727, t14733, t14744, t14763, t14776, t14821, t14836;
448   double t14891, t14988, t14990, t15003, t15006, t15020, t15042, t15048;
449   double t15049, t15052, t15056, t15073, t15078, t15079, t15087, t15088;
450   double t15091, t15095, t15100, t15104, t15109, t15114, t15122, t15125;
451   double t15135, t15140, t15145, t15148, t15151, t15154, t15157, t15158;
452   double t15163, t15166, t15169, t15172, t15173, t15181, t15186, t15209;
453   double t15218, t15220, t15221, t15223, t15225, t15228, t15231, t15232;
454   double t15236, t15245, t15249, t15250, t15252, t15256, t15271, t15273;
455   double t15275, t15277, t15283, t15286, t15293, t15298, t15299, t15300;
456   double t15308, t15309, t15312, t15313, t15316, t15329, t15330, t15335;
457   double t15340, t15343, t15346, t15349, t15350, t15353, t15359, t15370;
458   double t15377, t15378, t15383, t15402, t15406, t15412, t15415, t15418;
459   double t15423, t15431, t15446, t15460, t15461, t15462, t15468, t15478;
460   double t15485, t15490, t15499, t15525, t15532, t15542, t15553, t15558;
461   double t15567, t15570, t15584, t15591, t15597, t15606, t15610, t15634;
462   double t15637, t15646, t15648, t15655, t15676, t15677, t15680, t15686;
463   double t15695, t15698, t15701, t15705, t15723, t15728, t15729, t15731;
464   double t15735, t15748, t15763, t15778, t15808, t15862, t15881, t15884;
465   double t15892, t15917, t15932, t15933, t15936, t15942, t15957, t16000;
466   double t16068, t16074, t16080, t16091, t16123, t16125, t16126, t16129;
467   double t16132, t16146, t16149, t16152, t16155, t16164, t16166, t16169;
468   double t16172, t16180, t16193, t16200, t16201, t16214, t16219, t16220;
469   double t16236, t16243, t16261, t16265, t16266, t16269, t16272, t16273;
470   double t16277, t16302, t16322, t16335, t16365, t16368, t16385, t16388;
471   double t16389, t16392, t16396, t16400, t16405, t16406, t16409, t16414;
472   double t16421, t16422, t16425, t16443, t16446, t16452, t16458, t16460;
473   double t16461, t16464, t16468, t16483, t16495, t16498, t16527, t16530;
474   double t16536, t16539, t16561, t16562, t16567, t16589, t16594, t16597;
475   double t16599, t16613, t16626, t16634, t16637, t16640, t16656, t16660;
476   double t16661, t16675, t16682, t16698, t16704, t16711, t16739, t16749;
477   double t16752, t16755, t16770, t16771, t16776, t16777, t16791, t16798;
478   double t16799, t16802, t16805, t16806, t16811, t16835, t16850, t16863;
479   double t16866, t16870, t16873, t16879, t16888, t16897, t16909, t16916;
480   double t16919, t16939, t16942, t16949, t16957, t16959, t16964, t16966;
481   double t16968, t16970, t16978, t16979, t16988, t16998, t17019, t17022;
482   double t17026, t17034, t17037, t17040, t17041, t17068, t17087, t17088;
483   double t17101, t17106, t17110, t17131, t17133, t17136, t17139, t17156;
484   double t17165, t17185, t17186, t17192, t17200, t17205, t17211, t17220;
485   double t17233, t17238, t17241, t17242, t17249, t17252, t17267, t17272;
486   double t17283, t17292, t17295, t17299, t17302, t17307, t17310, t17332;
487   double t17340, t17351, t17374, t17382, t17406, t17434, t17450, t17451;
488   double t17454, t17461, t17464, t17467, t17471, t17474, t17475, t17493;
489   double t17502, t17529, t17542, t17559, t17566, t17597, t17603, t17604;
490   double t17606, t17610, t17632, t17655, t17664, t17667, t17671, t17687;
491   double t17697, t17701, t17705, t17706, t17720, t17722, t17734, t17739;
492   double t17762, t17779, t17798, t17801, t17804, t17809, t17814, t17815;
493   double t17822, t17825, t17828, t17866, t17872, t17884, t17904, t17920;
494   double t18000, t18031, t18064, t18079, t18084, t18093, t18106, t18122;
495   double t18125, t18128, t18144, t18147, t18156, t18162, t18174, t18199;
496   double t18212, t18219, t18225, t18228, t18236, t18245, t18259, t18265;
497   double t18269, t18272, t18288, t18289, t18303, t18306, t18307, t18310;
498   double t18319, t18324, t18325, t18336, t18339, t18343, t18353, t18358;
499   double t18360, t18375, t18380, t18386, t18388, t18403, t18406, t18412;
500   double t18414, t18416, t18417, t18419, t18421, t18422, t18424, t18434;
501   double t18436, t18438, t18440, t18448, t18451, t18457, t18479, t18493;
502   double t18511, t18515, t18519, t18523, t18535, t18540, t18549, t18568;
503   double t18569, t18580, t18583, t18584, t18587, t18590, t18597, t18618;
504   double t18621, t18623, t18624, t18627, t18628, t18637, t18648, t18660;
505   double t18673, t18676, t18679, t18682, t18694, t18713, t18716, t18719;
506   double t18722, t18723, t18729, t18732, t18735, t18736, t18741, t18744;
507   double t18767, t18771, t18774, t18777, t18799, t18800, t18832, t18843;
508   double t18871, t18879, t18880, t18889, t18897, t18904, t18906, t18939;
509   double t18947, t18952, t18959, t18966, t18971, t18984, t18988, t18991;
510   double t18992, t19004, t19007, t19012, t19016, t19029, t19048, t19057;
511   double t19060, t19080, t19092, t19093, t19096, t19103, t19112, t19123;
512   double t19135, t19143, t19146, t19154, t19157, t19158, t19162, t19165;
513   double t19171, t19182, t19187, t19188, t19191, t19195, t19204, t19205;
514   double t19219, t19222, t19225, t19228, t19240, t19244, t19254, t19262;
515   double t19290, t19309, t19310, t19314, t19323, t19325, t19354, t19368;
516   double t19386, t19420, t19443, t19451, t19467, t19471, t19475, t19478;
517   double t19481, t19488, t19493, t19498, t19499, t19525, t19531, t19532;
518   double t19534, t19569, t19576, t19597, t19598, t19604, t19613, t19614;
519   double t19617, t19630, t19656, t19660, t19663, t19665, t19670, t19697;
520   double t19707, t19708, t19711, t19721, t19724, t19752, t19755, t19770;
521   double t19792, t19824, t19837, t19862, t19865, t19871, t19883, t19887;
522   double t19888, t19891, t19935, t19951, t19963, t19969, t19975, t19987;
523   double t20003, t20035, t20046, t20047, t20054, t20059, t20074, t20088;
524   double t20089, t20103, t20108, t20114, t20122, t20128, t20131, t20132;
525   double t20141, t20170, t20172, t20174, t20175, t20183, t20186, t20188;
526   double t20190, t20192, t20194, t20202, t20205, t20210, t20216, t20233;
527   double t20235, t20237, t20239, t20240, t20242, t20243, t20245, t20249;
528   double t20254, t20256, t20260, t20289, t20290, t20297, t20309, t20319;
529   double t20322, t20323, t20328, t20332, t20351, t20354, t20355, t20365;
530   double t20366, t20376, t20377, t20381, t20390, t20393, t20403, t20440;
531   double t20442, t20447, t20458, t20465, t20468, t20471, t20474, t20475;
532   double t20483, t20487, t20490, t20515, t20521, t20522, t20526, t20530;
533   double t20533, t20534, t20541, t20544, t20545, t20554, t20569, t20596;
534   double t20603, t20606, t20608, t20611, t20615, t20624, t20648, t20661;
535   double t20684, t20695, t20698, t20718, t20726, t20729, t20730, t20733;
536   double t20736, t20739, t20744, t20756, t20771, t20791, t20796, t20797;
537   double t20799, t20802, t20829, t20843, t20847, t20857, t20861, t20879;
538   double t20882, t20883, t20886, t20889, t20890, t20893, t20898, t20904;
539   double t20908, t20915, t20928, t20931, t20932, t20934, t20944, t20948;
540   double t20949, t20960, t20961, t20966, t20973, t20981, t20986, t20987;
541   double t20999, t21015, t21020, t21026, t21031, t21037, t21043, t21052;
542   double t21058, t21061, t21072, t21091, t21131, t21141, t21166, t21182;
543   double t21188, t21195, t21196, t21210, t21214, t21223, t21249, t21250;
544   double t21251, t21257, t21261, t21265, t21266, t21269, t21273, t21274;
545   double t21277, t21280, t21284, t21302, t21307, t21310, t21316, t21331;
546   double t21337, t21344, t21347, t21350, t21360, t21363, t21364, t21375;
547   double t21378, t21388, t21395, t21398, t21407, t21408, t21414, t21415;
548   double t21418, t21421, t21424, t21426, t21431, t21443, t21469, t21470;
549   double t21480, t21513, t21527, t21540, t21550, t21583, t21587, t21591;
550   double t21592, t21594, t21603, t21610, t21613, t21615, t21639, t21671;
551   double t21675, t21698, t21703, t21709, t21715, t21716, t21717, t21724;
552   double t21731, t21762, t21763, t21766, t21830, t21849, t21854, t21863;
553   double t21865, t21871, t21898, t21917, t21918, t21940, t21941, t21955;
554   double t21956, t21965, t21986, t21993, t21994, t22004, t22039, t22045;
555   double t22048, t22067, t22070, t22077, t22082, t22109, t22118, t22129;
556   double t22145, t22153, t22159, t22167, t22171, t22175, t22182, t22195;
557   double t22196, t22199, t22226, t22232, t22265, t22269, t22272, t22275;
558   double t22301, t22313, t22317, t22331, t22336, t22348, t22350, t22358;
559   double t22361, t22366, t22397, t22426, t22465, t22467, t22501, t22538;
560   double t22569, t22574, t22575, t22577, t22597, t22602, t22606, t22616;
561   double t22628, t22647, t22650, t22652, t22655, t22685, t22686, t22764;
562   double t22777, t22825, t22857, t22872, t22881, t22885, t22920, t22921;
563   double t22925, t22929, t22934, t22959, t22999, t23028, t23031, t23032;
564   double t23033, t23043, t23045, t23059, t23091, t23100, t23119, t23131;
565   double t23139, t23142, t23145, t23146, t23149, t23155, t23156, t23181;
566   double t23184, t23190, t23191, t23192, t23197, t23203, t23228, t23231;
567   double t23240, t23266, t23285, t23288, t23316, t23317, t23320, t23321;
568   double t23324, t23325, t23329, t23341, t23350, t23375, t23376, t23388;
569   double t23393, t23400, t23420, t23437, t23463, t23466, t23480, t23490;
570   double t23509, t23527, t23529, t23549, t23552, t23557, t23574, t23575;
571   double t23588, t23618, t23646, t23655, t23664, t23665, t23686, t23690;
572   double t23693, t23704, t23716, t23721, t23751, t23768, t23769, t23794;
573   double t23834, t23876, t23881, t23882, t23884, t23892, t23919, t23950;
574   double t23965, t23971, t23974, t24012, t24044, t24054, t24069, t24072;
575   double t24077, t24080, t24094, t24118, t24120, t24122, t24125, t24128;
576   double t24162, t24198, t24227, t24235, t24267, t24277, t24299, t24306;
577   double t24309, t24310, t24318, t24319, t24347, t24357, t24362, t24396;
578   double t24400, t24417, t24424, t24432, t24433, t24436, t24456, t24465;
579   double t24472, t24489, t24494, t24513, t24518, t24536, t24541, t24546;
580   double t24570, t24573, t24578, t24584, t24587, t24593, t24600, t24605;
581   double t24612, t24634, t24643, t24647, t24655, t24657, t24663, t24668;
582   double t24693, t24697, t24698, t24724, t24732, t24766, t24785, t24803;
583   double t24819, t24820, t24838, t24877, t24907, t24941, t24976, t24981;
584   double t24982, t24984, t25026, t25030, t25040, t25044, t25064, t25069;
585   double t25073, t25078, t25103, t25104, t25106, t25152, t25163, t25169;
586   double t25183, t25186, t25189, t25196, t25201, t25206, t25251, t25261;
587   double t25272, t25278, t25284, t25304, t25321, t25325, t25326, t25337;
588   double t25354, t25355, t25364, t25367, t25368, t25374, t25382, t25387;
589   double t25405, t25421, t25423, t25430, t25431, t25448, t25452, t25460;
590   double t25462, t25466, t25468, t25471, t25475, t25480, t25482, t25483;
591   double t25484, t25486, t25490, t25493, t25494, t25501, t25505, t25507;
592   double t25509, t25515, t25521, t25559, t25599, t25629, t25668, t25704;
593   double t25708, t25709, t25711, t25728, t25732, t25736, t25740, t25744;
594   double t25748, t25753, t25759, t25766, t25779, t25800, t25801, t25803;
595   double t25809, t25835, t25856, t25869;
596 #endif
597 
598 #endif
599 
600 #endif
601 
602 #endif
603 
604 #endif
605 
606 
607   mgga_x_scan_params *params;
608 
609   assert(p->params != NULL);
610   params = (mgga_x_scan_params * )(p->params);
611 
612   t2 = M_CBRT3;
613   t4 = POW_1_3(0.1e1 / M_PI);
614   t5 = t2 * t4;
615   t6 = M_CBRT4;
616   t7 = t6 * t6;
617   t8 = t5 * t7;
618   t9 = M_CBRT2;
619   t10 = t9 * t9;
620   t11 = POW_1_3(rho[0]);
621   t12 = t10 * t11;
622   t13 = M_CBRT6;
623   t14 = M_PI * M_PI;
624   t15 = POW_1_3(t14);
625   t16 = t15 * t15;
626   t17 = 0.1e1 / t16;
627   t18 = t13 * t17;
628   t19 = sigma[0] * t10;
629   t20 = rho[0] * rho[0];
630   t21 = t11 * t11;
631   t22 = t21 * t20;
632   t23 = 0.1e1 / t22;
633   t24 = t19 * t23;
634   t25 = t18 * t24;
635   t29 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
636   t30 = t13 * t13;
637   t32 = t15 * t14;
638   t33 = 0.1e1 / t32;
639   t34 = t29 * t30 * t33;
640   t35 = sigma[0] * sigma[0];
641   t36 = t35 * t9;
642   t37 = t20 * t20;
643   t38 = t37 * rho[0];
644   t40 = 0.1e1 / t11 / t38;
645   t45 = exp(-0.27e2 / 0.80e2 * t29 * t13 * t17 * t24);
646   t46 = t40 * t45;
647   t50 = sqrt(0.146e3);
648   t51 = t50 * t13;
649   t52 = t51 * t17;
650   t55 = t30 * t16;
651   t56 = 0.5e1 / 0.72e2 * t25;
652   t58 = lapl[0] * t10;
653   t59 = t21 * rho[0];
654   t60 = 0.1e1 / t59;
655   t64 = t30 * t33;
656   t65 = lapl[0] * lapl[0];
657   t66 = t65 * t9;
658   t67 = t20 * rho[0];
659   t69 = 0.1e1 / t11 / t67;
660   t72 = t64 * t66 * t69 / 0.2916e4;
661   t73 = t64 * sigma[0];
662   t75 = 0.1e1 / t11 / t37;
663   t76 = t9 * t75;
664   t77 = t76 * lapl[0];
665   t79 = t73 * t77 / 0.2592e4;
666   t81 = t64 * t36 * t40;
667   t82 = t81 / 0.8748e4;
668   t83 = 0.1e1 + 0.5e1 / 0.648e3 * t25 + 0.5e1 / 0.54e2 * t18 * t58 * t60 + t72 - t79 + t82;
669   t84 = t72 - t79 + t82;
670   t85 = t84 * t84;
671   t86 = 0.1e1 + t56;
672   t87 = t86 * t86;
673   t88 = 0.1e1 / t87;
674   t90 = t85 * t88 + 0.1e1;
675   t91 = sqrt(t90);
676   t92 = 0.1e1 / t91;
677   t93 = t83 * t92;
678   t94 = t93 - t56;
679   t95 = t94 <= 0.0e0;
680   t96 = 0.1784720e1 <= t94;
681   t97 = 0.1e1 / t94;
682   t99 = exp(-0.461000314880e0 * t97);
683   t100 = 0.1784720e1 - t93 + t56;
684   t103 = exp(-0.1784720e1 / t100);
685   t104 = 0.1e1 + t103;
686   t105 = pow(t104, 0.258304e0);
687   t106 = t99 * t105;
688   t108 = exp(-0.1784720e1 * t97);
689   t109 = t108 + t103;
690   t110 = pow(t109, -0.258304e0);
691   t111 = t106 * t110;
692   t112 = my_piecewise3(t96, 1, t111);
693   t113 = my_piecewise3(t95, 0, t112);
694   t119 = 0.3e1 / 0.10e2 * t55 * (t94 * t113 + t56) - t24 / 0.8e1;
695   t122 = 0.5e1 / 0.9e1 * t119 * t13 * t17;
696   t123 = 0.1e1 - t122;
697   t125 = t123 * t123;
698   t127 = exp(-t125 / 0.2e1);
699   t130 = 0.7e1 / 0.12960e5 * t52 * t24 + t50 * t123 * t127 / 0.100e3;
700   t131 = t130 * t130;
701   t132 = params->k1 + 0.5e1 / 0.972e3 * t25 + t34 * t36 * t46 / 0.288e3 + t131;
702   t137 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t132);
703   t138 = t122 <= 0.1e1;
704   t139 = params->c1 * t119;
705   t140 = 0.1e1 / t123;
706   t141 = t18 * t140;
707   t144 = exp(-0.5e1 / 0.9e1 * t139 * t141);
708   t146 = exp(params->c2 * t140);
709   t148 = my_piecewise3(t138, t144, -params->d * t146);
710   t149 = 0.1e1 - t148;
711   t152 = t137 * t149 + 0.1174e1 * t148;
712   t153 = sqrt(0.3e1);
713   t154 = 0.1e1 / t15;
714   t155 = t30 * t154;
715   t156 = sqrt(sigma[0]);
716   t158 = t11 * rho[0];
717   t159 = 0.1e1 / t158;
718   t161 = t155 * t156 * t9 * t159;
719   t162 = sqrt(t161);
720   t166 = exp(-0.98958000000000000000e1 * t153 / t162);
721   t167 = 0.1e1 - t166;
722   t168 = t152 * t167;
723   t170 = t8 * t12 * t168;
724   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
725     zk[0] = -0.3e1 / 0.16e2 * t170;
726 
727 #ifndef XC_DONT_COMPILE_VXC
728 
729   if(order < 1) return;
730 
731 
732   t174 = t158 * t2 * t4;
733   t175 = t7 * t10;
734   t176 = params->k1 * params->k1;
735   t177 = t132 * t132;
736   t179 = t176 / t177;
737   t181 = 0.1e1 / t21 / t67;
738   t182 = t19 * t181;
739   t183 = t18 * t182;
740   t185 = t37 * t20;
741   t187 = 0.1e1 / t11 / t185;
742   t188 = t187 * t45;
743   t192 = t29 * t29;
744   t193 = t14 * t14;
745   t194 = 0.1e1 / t193;
746   t195 = t192 * t194;
747   t196 = t35 * sigma[0];
748   t197 = t37 * t37;
749   t198 = t197 * rho[0];
750   t199 = 0.1e1 / t198;
751   t206 = 0.5e1 / 0.27e2 * t183;
752   t213 = 0.5e1 / 0.4374e4 * t64 * t66 * t75;
753   t214 = t9 * t40;
754   t215 = t214 * lapl[0];
755   t217 = 0.13e2 / 0.7776e4 * t73 * t215;
756   t220 = 0.4e1 / 0.6561e4 * t64 * t36 * t187;
757   t221 = -0.5e1 / 0.243e3 * t183 - 0.25e2 / 0.162e3 * t18 * t58 * t23 - t213 + t217 - t220;
758   t224 = 0.1e1 / t91 / t90;
759   t225 = t83 * t224;
760   t226 = t84 * t88;
761   t227 = -t213 + t217 - t220;
762   t230 = t87 * t86;
763   t231 = 0.1e1 / t230;
764   t233 = t85 * t231 * t13;
765   t234 = t17 * sigma[0];
766   t235 = t10 * t181;
767   t236 = t234 * t235;
768   t239 = 0.2e1 * t226 * t227 + 0.10e2 / 0.27e2 * t233 * t236;
769   t242 = t221 * t92 - t225 * t239 / 0.2e1 + t206;
770   t244 = t94 * t94;
771   t245 = 0.1e1 / t244;
772   t246 = t245 * t242;
773   t249 = pow(t104, -0.741696e0);
774   t250 = t99 * t249;
775   t251 = t250 * t110;
776   t252 = t100 * t100;
777   t253 = 0.1e1 / t252;
778   t254 = -t242;
779   t255 = t253 * t254;
780   t256 = t255 * t103;
781   t259 = pow(t109, -0.1258304e1);
782   t263 = 0.1784720e1 * t246 * t108 + 0.1784720e1 * t256;
783   t265 = t106 * t259 * t263;
784   t268 = my_piecewise3(t96, 0, 0.461000314880e0 * t246 * t111 + 0.461000314880e0 * t251 * t256 - 0.258304e0 * t265);
785   t269 = my_piecewise3(t95, 0, t268);
786   t275 = 0.3e1 / 0.10e2 * t55 * (t242 * t113 + t94 * t269 - t206) + t182 / 0.3e1;
787   t277 = t18 * t127;
788   t280 = t50 * t125;
789   t284 = -0.7e1 / 0.4860e4 * t52 * t182 - t50 * t275 * t277 / 0.180e3 + t280 * t275 * t277 / 0.180e3;
790   t287 = -0.10e2 / 0.729e3 * t183 - t34 * t36 * t188 / 0.54e2 + 0.3e1 / 0.80e2 * t195 * t196 * t199 * t45 + 0.2e1 * t130 * t284;
791   t288 = t287 * t149;
792   t290 = params->c1 * t275;
793   t293 = t139 * t30;
794   t294 = 0.1e1 / t125;
795   t295 = t33 * t294;
796   t296 = t295 * t275;
797   t299 = -0.5e1 / 0.9e1 * t290 * t141 - 0.25e2 / 0.81e2 * t293 * t296;
798   t300 = t299 * t144;
799   t301 = params->d * params->c2;
800   t302 = t301 * t294;
801   t303 = t275 * t13;
802   t304 = t17 * t146;
803   t305 = t303 * t304;
804   t308 = my_piecewise3(t138, t300, -0.5e1 / 0.9e1 * t302 * t305);
805   t311 = t179 * t288 - t137 * t308 + 0.1174e1 * t308;
806   t312 = t311 * t167;
807   t316 = 0.1e1 / rho[0];
808   t317 = pow(0.3e1, 0.1e1 / 0.6e1);
809   t318 = t317 * t317;
810   t319 = t318 * t318;
811   t320 = t319 * t317;
812   t321 = t316 * t320;
813   t322 = t4 * t7;
814   t323 = t322 * t152;
815   t326 = 0.1e1 / t162 / t161;
816   t327 = t326 * t30;
817   t330 = t327 * t154 * t156 * t166;
818   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
819     vrho[0] = -t170 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t175 * t312 - 0.24739500000000000000e1 * t321 * t323 * t330;
820 
821   t333 = t10 * t23;
822   t334 = t18 * t333;
823   t336 = sigma[0] * t9;
824   t340 = 0.1e1 / t197;
825   t345 = t17 * t10;
826   t346 = t345 * t23;
827   t349 = 0.5e1 / 0.72e2 * t334;
828   t351 = t64 * t77;
829   t352 = t351 / 0.2592e4;
830   t354 = t64 * t336 * t40;
831   t355 = t354 / 0.4374e4;
832   t356 = 0.5e1 / 0.648e3 * t334 - t352 + t355;
833   t358 = -t352 + t355;
834   t363 = 0.2e1 * t226 * t358 - 0.5e1 / 0.36e2 * t233 * t346;
835   t366 = t356 * t92 - t225 * t363 / 0.2e1 - t349;
836   t368 = t245 * t366;
837   t371 = -t366;
838   t372 = t253 * t371;
839   t373 = t372 * t103;
840   t379 = 0.1784720e1 * t368 * t108 + 0.1784720e1 * t373;
841   t380 = t259 * t379;
842   t381 = t106 * t380;
843   t384 = my_piecewise3(t96, 0, 0.461000314880e0 * t368 * t111 + 0.461000314880e0 * t251 * t373 - 0.258304e0 * t381);
844   t385 = my_piecewise3(t95, 0, t384);
845   t391 = 0.3e1 / 0.10e2 * t55 * (t366 * t113 + t94 * t385 + t349) - t333 / 0.8e1;
846   t392 = t50 * t391;
847   t398 = 0.7e1 / 0.12960e5 * t51 * t346 - t392 * t277 / 0.180e3 + t280 * t391 * t277 / 0.180e3;
848   t401 = 0.5e1 / 0.972e3 * t334 + t34 * t336 * t46 / 0.144e3 - 0.9e1 / 0.640e3 * t195 * t35 * t340 * t45 + 0.2e1 * t130 * t398;
849   t402 = t401 * t149;
850   t404 = params->c1 * t391;
851   t410 = -0.5e1 / 0.9e1 * t404 * t141 - 0.25e2 / 0.81e2 * t293 * t295 * t391;
852   t411 = t410 * t144;
853   t412 = t391 * t13;
854   t413 = t412 * t304;
855   t416 = my_piecewise3(t138, t411, -0.5e1 / 0.9e1 * t302 * t413);
856   t419 = t179 * t402 - t137 * t416 + 0.1174e1 * t416;
857   t421 = t175 * t419 * t167;
858   t424 = t320 * t4;
859   t425 = t7 * t152;
860   t426 = t424 * t425;
861   t427 = 0.1e1 / t156;
862   t430 = t327 * t154 * t427 * t166;
863   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
864     vsigma[0] = -0.3e1 / 0.16e2 * t174 * t421 + 0.92773125000000000000e0 * t426 * t430;
865 
866   t433 = t10 * t60;
867   t439 = t64 * lapl[0] * t9 * t69 / 0.1458e4;
868   t442 = t64 * t336 * t75 / 0.2592e4;
869   t443 = 0.5e1 / 0.54e2 * t18 * t433 + t439 - t442;
870   t445 = t439 - t442;
871   t446 = t226 * t445;
872   t448 = -t225 * t446 + t443 * t92;
873   t450 = t245 * t448;
874   t453 = -t448;
875   t454 = t253 * t453;
876   t455 = t454 * t103;
877   t461 = 0.1784720e1 * t450 * t108 + 0.1784720e1 * t455;
878   t462 = t259 * t461;
879   t463 = t106 * t462;
880   t466 = my_piecewise3(t96, 0, 0.461000314880e0 * t450 * t111 + 0.461000314880e0 * t251 * t455 - 0.258304e0 * t463);
881   t467 = my_piecewise3(t95, 0, t466);
882   t469 = -t448 * t113 - t94 * t467;
883   t470 = t50 * t469;
884   t472 = t469 * t127;
885   t475 = t470 * t127 / 0.100e3 - t280 * t472 / 0.100e3;
886   t476 = t130 * t475;
887   t481 = -params->c1 * t469;
888   t483 = t139 * t13;
889   t484 = t17 * t294;
890   t485 = t484 * t469;
891   t488 = -t481 * t140 + 0.5e1 / 0.9e1 * t483 * t485;
892   t489 = t488 * t144;
893   t490 = t294 * t469;
894   t493 = my_piecewise3(t138, t489, t301 * t490 * t146);
895   t496 = 0.2e1 * t179 * t476 * t149 - t137 * t493 + 0.1174e1 * t493;
896   t498 = t175 * t496 * t167;
897   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
898     vlapl[0] = -0.3e1 / 0.16e2 * t174 * t498;
899 
900   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
901     vtau[0] = 0.0e0;
902 
903 #ifndef XC_DONT_COMPILE_FXC
904 
905   if(order < 2) return;
906 
907 
908   t501 = 0.1e1 / t21;
909   t502 = t10 * t501;
910   t509 = 0.1e1 / t20;
911   t510 = t7 * t509;
912   t517 = t176 / t177 / t132;
913   t518 = t287 * t287;
914   t519 = t518 * t149;
915   t523 = 0.1e1 / t21 / t37;
916   t524 = t19 * t523;
917   t525 = t18 * t524;
918   t527 = t37 * t67;
919   t529 = 0.1e1 / t11 / t527;
920   t530 = t529 * t45;
921   t534 = t197 * t20;
922   t535 = 0.1e1 / t534;
923   t541 = t192 * t29 * t194;
924   t542 = t35 * t35;
925   t543 = t197 * t37;
926   t545 = 0.1e1 / t21 / t543;
927   t548 = t10 * t45;
928   t549 = t18 * t548;
929   t552 = t284 * t284;
930   t556 = 0.55e2 / 0.81e2 * t525;
931   t563 = 0.65e2 / 0.13122e5 * t64 * t66 * t40;
932   t564 = t9 * t187;
933   t565 = t564 * lapl[0];
934   t567 = 0.13e2 / 0.1458e4 * t73 * t565;
935   t568 = t36 * t529;
936   t569 = t64 * t568;
937   t570 = 0.76e2 / 0.19683e5 * t569;
938   t571 = 0.55e2 / 0.729e3 * t525 + 0.100e3 / 0.243e3 * t18 * t58 * t181 + t563 - t567 + t570;
939   t573 = t221 * t224;
940   t575 = t90 * t90;
941   t577 = 0.1e1 / t91 / t575;
942   t578 = t83 * t577;
943   t579 = t239 * t239;
944   t582 = t227 * t227;
945   t585 = t84 * t231;
946   t586 = t227 * t13;
947   t587 = t585 * t586;
948   t590 = t563 - t567 + t570;
949   t593 = t87 * t87;
950   t594 = 0.1e1 / t593;
951   t595 = t85 * t594;
952   t596 = t595 * t30;
953   t597 = t33 * t35;
954   t598 = t9 * t529;
955   t599 = t597 * t598;
956   t602 = t10 * t523;
957   t603 = t234 * t602;
958   t606 = 0.2e1 * t582 * t88 + 0.40e2 / 0.27e2 * t587 * t236 + 0.2e1 * t226 * t590 + 0.100e3 / 0.243e3 * t596 * t599 - 0.110e3 / 0.81e2 * t233 * t603;
959   t609 = t571 * t92 - t573 * t239 + 0.3e1 / 0.4e1 * t578 * t579 - t225 * t606 / 0.2e1 - t556;
960   t613 = t244 * t94;
961   t614 = 0.1e1 / t613;
962   t615 = t242 * t242;
963   t616 = t614 * t615;
964   t619 = t245 * t609;
965   t622 = t244 * t244;
966   t623 = 0.1e1 / t622;
967   t624 = t623 * t615;
968   t627 = t246 * t250;
969   t628 = t110 * t253;
970   t629 = t254 * t103;
971   t630 = t628 * t629;
972   t633 = t246 * t99;
973   t634 = t105 * t259;
974   t635 = t634 * t263;
975   t638 = pow(t104, -0.1741696e1);
976   t639 = t99 * t638;
977   t640 = t639 * t110;
978   t641 = t252 * t252;
979   t642 = 0.1e1 / t641;
980   t643 = t254 * t254;
981   t644 = t642 * t643;
982   t645 = t103 * t103;
983   t646 = t644 * t645;
984   t649 = t250 * t259;
985   t650 = t103 * t263;
986   t651 = t255 * t650;
987   t654 = t252 * t100;
988   t655 = 0.1e1 / t654;
989   t656 = t655 * t643;
990   t657 = t656 * t103;
991   t660 = -t609;
992   t661 = t253 * t660;
993   t662 = t661 * t103;
994   t665 = t644 * t103;
995   t668 = pow(t109, -0.2258304e1);
996   t669 = t263 * t263;
997   t671 = t106 * t668 * t669;
998   t682 = -0.3569440e1 * t616 * t108 + 0.1784720e1 * t619 * t108 + 0.3185225478400e1 * t624 * t108 - 0.3569440e1 * t657 + 0.1784720e1 * t662 + 0.3185225478400e1 * t665;
999   t684 = t106 * t259 * t682;
1000   t686 = -0.922000629760e0 * t616 * t111 + 0.461000314880e0 * t619 * t111 + 0.21252129031945914941e0 * t624 * t111 + 0.42504258063891829882e0 * t627 * t630 - 0.238156450669527040e0 * t633 * t635 - 0.61023519165317445059e0 * t640 * t646 - 0.238156450669527040e0 * t649 * t651 - 0.922000629760e0 * t251 * t657 + 0.461000314880e0 * t251 * t662 + 0.822756481972633600e0 * t251 * t665 + 0.325024956416e0 * t671 - 0.258304e0 * t684;
1001   t687 = my_piecewise3(t96, 0, t686);
1002   t688 = my_piecewise3(t95, 0, t687);
1003   t694 = 0.3e1 / 0.10e2 * t55 * (t609 * t113 + 0.2e1 * t242 * t269 + t94 * t688 + t556) - 0.11e2 / 0.9e1 * t524;
1004   t695 = t50 * t694;
1005   t698 = t275 * t275;
1006   t701 = t33 * t123;
1007   t702 = t701 * t127;
1008   t708 = t125 * t123;
1009   t709 = t50 * t708;
1010   t711 = t64 * t127;
1011   t714 = 0.77e2 / 0.14580e5 * t52 * t524 - t695 * t277 / 0.180e3 - t50 * t698 * t30 * t702 / 0.108e3 + t280 * t694 * t277 / 0.180e3 + t709 * t698 * t711 / 0.324e3;
1012   t717 = 0.110e3 / 0.2187e4 * t525 + 0.19e2 / 0.162e3 * t34 * t36 * t530 - 0.43e2 / 0.80e2 * t195 * t196 * t535 * t45 + 0.27e2 / 0.800e3 * t541 * t542 * t545 * t549 + 0.2e1 * t552 + 0.2e1 * t130 * t714;
1013   t720 = t287 * t308;
1014   t723 = params->c1 * t694;
1015   t726 = params->c1 * t698;
1016   t727 = t64 * t294;
1017   t730 = 0.1e1 / t708;
1018   t731 = t194 * t730;
1019   t732 = t731 * t698;
1020   t735 = t295 * t694;
1021   t738 = -0.5e1 / 0.9e1 * t723 * t141 - 0.50e2 / 0.81e2 * t726 * t727 - 0.500e3 / 0.243e3 * t139 * t732 - 0.25e2 / 0.81e2 * t293 * t735;
1022   t739 = t738 * t144;
1023   t740 = t299 * t299;
1024   t741 = t740 * t144;
1025   t743 = t301 * t730;
1026   t744 = t698 * t30;
1027   t745 = t33 * t146;
1028   t746 = t744 * t745;
1029   t749 = t694 * t13;
1030   t750 = t749 * t304;
1031   t753 = params->c2 * params->c2;
1032   t754 = params->d * t753;
1033   t755 = t125 * t125;
1034   t756 = 0.1e1 / t755;
1035   t757 = t754 * t756;
1036   t761 = my_piecewise3(t138, t739 + t741, -0.50e2 / 0.81e2 * t743 * t746 - 0.5e1 / 0.9e1 * t302 * t750 - 0.25e2 / 0.81e2 * t757 * t746);
1037   t764 = -0.2e1 * t517 * t519 + t179 * t717 * t149 - 0.2e1 * t179 * t720 - t137 * t761 + 0.1174e1 * t761;
1038   t765 = t764 * t167;
1039   t769 = t322 * t311;
1040   t773 = t69 * t320;
1041   t777 = 0.1e1 / t162 / t25 / 0.6e1;
1042   t782 = t777 * t13 * t17 * sigma[0] * t166 * t9;
1043   t785 = t21 * t2;
1044   t789 = t17 * t9 * t166;
1045   t790 = t427 * t13 * t789;
1046   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1047     v2rho2[0] = -t8 * t502 * t168 / 0.12e2 - t8 * t12 * t312 / 0.2e1 - 0.8246500000000000000e0 * t424 * t510 * t152 * t330 - 0.3e1 / 0.16e2 * t174 * t175 * t765 - 0.49479000000000000000e1 * t321 * t769 * t330 - 0.29687400000000000000e2 * t773 * t323 * t782 + 0.40270806047858128433e2 * t785 * t323 * t790;
1048 
1049   t794 = t11 * t2 * t4;
1050   t797 = t402 * t287;
1051   t800 = t18 * t235;
1052   t809 = t197 * t67;
1053   t811 = 0.1e1 / t21 / t809;
1054   t818 = t345 * t181;
1055   t821 = 0.5e1 / 0.27e2 * t800;
1056   t823 = t64 * t215;
1057   t824 = 0.13e2 / 0.7776e4 * t823;
1058   t825 = t336 * t187;
1059   t826 = t64 * t825;
1060   t827 = 0.8e1 / 0.6561e4 * t826;
1061   t828 = -0.5e1 / 0.243e3 * t800 + t824 - t827;
1062   t830 = t356 * t224;
1063   t835 = t363 * t239;
1064   t838 = t227 * t88;
1065   t841 = t358 * t13;
1066   t842 = t585 * t841;
1067   t845 = t824 - t827;
1068   t848 = t585 * t13;
1069   t853 = t33 * t9;
1070   t855 = t853 * t187 * sigma[0];
1071   t860 = 0.2e1 * t838 * t358 + 0.20e2 / 0.27e2 * t842 * t236 + 0.2e1 * t226 * t845 - 0.5e1 / 0.18e2 * t848 * t345 * t23 * t227 - 0.25e2 / 0.162e3 * t596 * t855 + 0.10e2 / 0.27e2 * t233 * t818;
1072   t863 = t828 * t92 - t830 * t239 / 0.2e1 - t573 * t363 / 0.2e1 + 0.3e1 / 0.4e1 * t578 * t835 - t225 * t860 / 0.2e1 + t821;
1073   t867 = t614 * t366;
1074   t868 = t867 * t99;
1075   t869 = t105 * t110;
1076   t870 = t869 * t242;
1077   t873 = t245 * t863;
1078   t876 = t623 * t366;
1079   t877 = t876 * t242;
1080   t880 = t368 * t250;
1081   t883 = t368 * t99;
1082   t886 = t371 * t103;
1083   t887 = t628 * t886;
1084   t890 = t642 * t371;
1085   t891 = t645 * t254;
1086   t892 = t890 * t891;
1087   t895 = t372 * t650;
1088   t898 = t655 * t371;
1089   t899 = t898 * t629;
1090   t902 = -t863;
1091   t903 = t253 * t902;
1092   t904 = t903 * t103;
1093   t907 = t890 * t629;
1094   t910 = t634 * t379;
1095   t913 = t379 * t253;
1096   t914 = t913 * t629;
1097   t917 = t668 * t379;
1098   t921 = t108 * t242;
1099   t931 = -0.3569440e1 * t867 * t921 + 0.1784720e1 * t873 * t108 + 0.3185225478400e1 * t876 * t921 - 0.3569440e1 * t899 + 0.1784720e1 * t904 + 0.3185225478400e1 * t907;
1100   t932 = t259 * t931;
1101   t933 = t106 * t932;
1102   t935 = -0.922000629760e0 * t868 * t870 + 0.461000314880e0 * t873 * t111 + 0.21252129031945914941e0 * t877 * t111 + 0.21252129031945914941e0 * t880 * t630 - 0.119078225334763520e0 * t883 * t635 + 0.21252129031945914941e0 * t627 * t887 - 0.61023519165317445059e0 * t640 * t892 - 0.119078225334763520e0 * t649 * t895 - 0.922000629760e0 * t251 * t899 + 0.461000314880e0 * t251 * t904 + 0.822756481972633600e0 * t251 * t907 - 0.119078225334763520e0 * t633 * t910 - 0.119078225334763520e0 * t649 * t914 + 0.325024956416e0 * t106 * t917 * t263 - 0.258304e0 * t933;
1103   t936 = my_piecewise3(t96, 0, t935);
1104   t937 = my_piecewise3(t95, 0, t936);
1105   t943 = 0.3e1 / 0.10e2 * t55 * (t863 * t113 + t242 * t385 + t366 * t269 + t94 * t937 - t821) + t235 / 0.3e1;
1106   t944 = t50 * t943;
1107   t947 = t392 * t30;
1108   t948 = t275 * t127;
1109   t949 = t701 * t948;
1110   t955 = t709 * t391;
1111   t956 = t64 * t948;
1112   t959 = -0.7e1 / 0.4860e4 * t51 * t818 - t944 * t277 / 0.180e3 - t947 * t949 / 0.108e3 + t280 * t943 * t277 / 0.180e3 + t955 * t956 / 0.324e3;
1113   t962 = -0.10e2 / 0.729e3 * t800 - t34 * t336 * t188 / 0.27e2 + 0.3e1 / 0.16e2 * t195 * t35 * t199 * t45 - 0.81e2 / 0.6400e4 * t541 * t196 * t811 * t549 + 0.2e1 * t284 * t398 + 0.2e1 * t130 * t959;
1114   t963 = t962 * t149;
1115   t965 = t401 * t308;
1116   t967 = t287 * t416;
1117   t969 = params->c1 * t943;
1118   t972 = t404 * t30;
1119   t975 = t139 * t194;
1120   t976 = t730 * t391;
1121   t980 = t295 * t943;
1122   t983 = -0.5e1 / 0.9e1 * t969 * t141 - 0.50e2 / 0.81e2 * t972 * t296 - 0.500e3 / 0.243e3 * t975 * t976 * t275 - 0.25e2 / 0.81e2 * t293 * t980;
1123   t984 = t983 * t144;
1124   t985 = t410 * t299;
1125   t988 = t301 * t976;
1126   t989 = t146 * t275;
1127   t990 = t64 * t989;
1128   t993 = t943 * t13;
1129   t994 = t993 * t304;
1130   t997 = t756 * t391;
1131   t998 = t754 * t997;
1132   t1002 = my_piecewise3(t138, t985 * t144 + t984, -0.50e2 / 0.81e2 * t988 * t990 - 0.5e1 / 0.9e1 * t302 * t994 - 0.25e2 / 0.81e2 * t998 * t990);
1133   t1005 = -0.2e1 * t517 * t797 + t179 * t963 - t179 * t965 - t179 * t967 - t137 * t1002 + 0.1174e1 * t1002;
1134   t1007 = t175 * t1005 * t167;
1135   t1010 = t322 * t419;
1136   t1014 = t7 * t311;
1137   t1015 = t424 * t1014;
1138   t1019 = t424 * t425 * t777;
1139   t1020 = t166 * t9;
1140   t1024 = t18 * t1020 / t11 / t20;
1141   t1027 = t156 * sigma[0];
1142   t1028 = 0.1e1 / t1027;
1143   t1029 = t425 * t1028;
1144   t1030 = t5 * t1029;
1145   t1032 = t59 * t13 * t789;
1146   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1147     v2rhosigma[0] = -t794 * t421 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t1007 - 0.24739500000000000000e1 * t321 * t1010 * t330 + 0.92773125000000000000e0 * t1015 * t430 + 0.11132775000000000000e2 * t1019 * t1024 - 0.15101552267946798162e2 * t1030 * t1032;
1148 
1149   t1037 = t517 * t130;
1150   t1038 = t475 * t149;
1151   t1039 = t1038 * t287;
1152   t1042 = t284 * t475;
1153   t1047 = 0.5e1 / 0.2187e4 * t351;
1154   t1048 = 0.13e2 / 0.7776e4 * t354;
1155   t1049 = -0.25e2 / 0.162e3 * t334 - t1047 + t1048;
1156   t1051 = t443 * t224;
1157   t1055 = t578 * t84;
1158   t1056 = t88 * t445;
1159   t1057 = t1056 * t239;
1160   t1060 = t838 * t445;
1161   t1062 = t585 * t445;
1162   t1063 = t225 * t1062;
1163   t1066 = -t1047 + t1048;
1164   t1067 = t226 * t1066;
1165   t1069 = t1049 * t92 - t1051 * t239 / 0.2e1 - t573 * t446 + 0.3e1 / 0.2e1 * t1055 * t1057 - t225 * t1060 - 0.10e2 / 0.27e2 * t1063 * t183 - t225 * t1067;
1166   t1073 = t614 * t448;
1167   t1074 = t1073 * t99;
1168   t1077 = t245 * t1069;
1169   t1080 = t623 * t448;
1170   t1081 = t1080 * t242;
1171   t1084 = t450 * t250;
1172   t1087 = t450 * t99;
1173   t1090 = t453 * t103;
1174   t1091 = t628 * t1090;
1175   t1094 = t642 * t453;
1176   t1101 = t655 * t453;
1177   t1102 = t1101 * t629;
1178   t1105 = -t1069;
1179   t1106 = t253 * t1105;
1180   t1107 = t1106 * t103;
1181   t1110 = t1094 * t629;
1182   t1113 = t634 * t461;
1183   t1116 = t461 * t253;
1184   t1120 = t668 * t461;
1185   t1133 = -0.3569440e1 * t1073 * t921 + 0.1784720e1 * t1077 * t108 + 0.3185225478400e1 * t1080 * t921 - 0.3569440e1 * t1102 + 0.1784720e1 * t1107 + 0.3185225478400e1 * t1110;
1186   t1134 = t259 * t1133;
1187   t1135 = t106 * t1134;
1188   t1137 = -0.922000629760e0 * t1074 * t870 + 0.461000314880e0 * t1077 * t111 + 0.21252129031945914941e0 * t1081 * t111 + 0.21252129031945914941e0 * t1084 * t630 - 0.119078225334763520e0 * t1087 * t635 + 0.21252129031945914941e0 * t627 * t1091 - 0.61023519165317445059e0 * t640 * t1094 * t891 - 0.119078225334763520e0 * t649 * t454 * t650 - 0.922000629760e0 * t251 * t1102 + 0.461000314880e0 * t251 * t1107 + 0.822756481972633600e0 * t251 * t1110 - 0.119078225334763520e0 * t633 * t1113 - 0.119078225334763520e0 * t649 * t1116 * t629 + 0.325024956416e0 * t106 * t1120 * t263 - 0.258304e0 * t1135;
1189   t1138 = my_piecewise3(t96, 0, t1137);
1190   t1139 = my_piecewise3(t95, 0, t1138);
1191   t1141 = -t1069 * t113 - t94 * t1139 - t242 * t467 - t448 * t269;
1192   t1142 = t50 * t1141;
1193   t1145 = t470 * t123;
1194   t1146 = t17 * t127;
1195   t1147 = t303 * t1146;
1196   t1150 = t1141 * t127;
1197   t1153 = t709 * t469;
1198   t1156 = t1142 * t127 / 0.100e3 + t1145 * t1147 / 0.60e2 - t280 * t1150 / 0.100e3 - t1153 * t1147 / 0.180e3;
1199   t1157 = t130 * t1156;
1200   t1164 = t287 * t493;
1201   t1167 = -params->c1 * t1141;
1202   t1169 = t481 * t294;
1203   t1170 = t303 * t17;
1204   t1173 = t290 * t13;
1205   t1176 = t33 * t730;
1206   t1177 = t469 * t275;
1207   t1178 = t1176 * t1177;
1208   t1181 = t484 * t1141;
1209   t1184 = -t1167 * t140 - 0.5e1 / 0.9e1 * t1169 * t1170 + 0.5e1 / 0.9e1 * t1173 * t485 + 0.50e2 / 0.81e2 * t293 * t1178 + 0.5e1 / 0.9e1 * t483 * t1181;
1210   t1185 = t1184 * t144;
1211   t1186 = t488 * t299;
1212   t1189 = t730 * t469;
1213   t1190 = t301 * t1189;
1214   t1193 = t294 * t1141;
1215   t1196 = t756 * t469;
1216   t1197 = t754 * t1196;
1217   t1201 = my_piecewise3(t138, t1186 * t144 + t1185, 0.10e2 / 0.9e1 * t1190 * t305 + t301 * t1193 * t146 + 0.5e1 / 0.9e1 * t1197 * t305);
1218   t1204 = -0.4e1 * t1037 * t1039 + 0.2e1 * t179 * t1042 * t149 + 0.2e1 * t179 * t1157 * t149 - 0.2e1 * t179 * t476 * t308 - t179 * t1164 - t137 * t1201 + 0.1174e1 * t1201;
1219   t1206 = t175 * t1204 * t167;
1220   t1209 = t322 * t496;
1221   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1222     v2rholapl[0] = -t794 * t498 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t1206 - 0.24739500000000000000e1 * t321 * t1209 * t330;
1223 
1224   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1225     v2rhotau[0] = 0.0e0;
1226 
1227   t1213 = t401 * t401;
1228   t1214 = t1213 * t149;
1229   t1220 = sigma[0] * t340;
1230   t1225 = 0.1e1 / t21 / t534;
1231   t1226 = t35 * t1225;
1232   t1230 = t398 * t398;
1233   t1233 = t64 * t214 * t92;
1234   t1236 = t363 * t363;
1235   t1239 = t358 * t358;
1236   t1242 = t585 * t358;
1237   t1245 = t226 * t30;
1238   t1246 = t853 * t40;
1239   t1251 = 0.2e1 * t1239 * t88 - 0.5e1 / 0.9e1 * t1242 * t334 + t1245 * t1246 / 0.2187e4 + 0.25e2 / 0.432e3 * t596 * t1246;
1240   t1254 = t1233 / 0.4374e4 - t830 * t363 + 0.3e1 / 0.4e1 * t578 * t1236 - t225 * t1251 / 0.2e1;
1241   t1258 = t366 * t366;
1242   t1259 = t614 * t1258;
1243   t1262 = t245 * t1254;
1244   t1265 = t623 * t1258;
1245   t1272 = t371 * t371;
1246   t1273 = t642 * t1272;
1247   t1274 = t1273 * t645;
1248   t1277 = t103 * t379;
1249   t1278 = t372 * t1277;
1250   t1281 = t655 * t1272;
1251   t1282 = t1281 * t103;
1252   t1285 = -t1254;
1253   t1286 = t253 * t1285;
1254   t1287 = t1286 * t103;
1255   t1290 = t1273 * t103;
1256   t1293 = t379 * t379;
1257   t1294 = t668 * t1293;
1258   t1295 = t106 * t1294;
1259   t1306 = -0.3569440e1 * t1259 * t108 + 0.1784720e1 * t1262 * t108 + 0.3185225478400e1 * t1265 * t108 - 0.3569440e1 * t1282 + 0.1784720e1 * t1287 + 0.3185225478400e1 * t1290;
1260   t1307 = t259 * t1306;
1261   t1308 = t106 * t1307;
1262   t1310 = -0.922000629760e0 * t1259 * t111 + 0.461000314880e0 * t1262 * t111 + 0.21252129031945914941e0 * t1265 * t111 + 0.42504258063891829882e0 * t880 * t887 - 0.238156450669527040e0 * t883 * t910 - 0.61023519165317445059e0 * t640 * t1274 - 0.238156450669527040e0 * t649 * t1278 - 0.922000629760e0 * t251 * t1282 + 0.461000314880e0 * t251 * t1287 + 0.822756481972633600e0 * t251 * t1290 + 0.325024956416e0 * t1295 - 0.258304e0 * t1308;
1263   t1311 = my_piecewise3(t96, 0, t1310);
1264   t1312 = my_piecewise3(t95, 0, t1311);
1265   t1314 = t1254 * t113 + t94 * t1312 + 0.2e1 * t366 * t385;
1266   t1315 = t50 * t1314;
1267   t1318 = t391 * t391;
1268   t1319 = t50 * t1318;
1269   t1323 = t1314 * t127;
1270   t1329 = -t1315 * t127 / 0.100e3 - t1319 * t30 * t702 / 0.108e3 + t280 * t1323 / 0.100e3 + t709 * t1318 * t711 / 0.324e3;
1271   t1332 = t34 * t214 * t45 / 0.144e3 - 0.9e1 / 0.160e3 * t195 * t1220 * t45 + 0.243e3 / 0.51200e5 * t541 * t1226 * t549 + 0.2e1 * t1230 + 0.2e1 * t130 * t1329;
1272   t1333 = t1332 * t149;
1273   t1335 = t401 * t416;
1274   t1338 = params->c1 * t1314;
1275   t1340 = params->c1 * t1318;
1276   t1349 = -t1338 * t140 - 0.50e2 / 0.81e2 * t1340 * t727 - 0.500e3 / 0.243e3 * t139 * t731 * t1318 - 0.5e1 / 0.9e1 * t483 * t484 * t1314;
1277   t1351 = t410 * t410;
1278   t1352 = t1351 * t144;
1279   t1354 = t1318 * t30;
1280   t1355 = t1354 * t745;
1281   t1358 = t294 * t1314;
1282   t1364 = my_piecewise3(t138, t1349 * t144 + t1352, -0.50e2 / 0.81e2 * t743 * t1355 - t301 * t1358 * t146 - 0.25e2 / 0.81e2 * t757 * t1355);
1283   t1367 = -0.2e1 * t517 * t1214 + t179 * t1333 - 0.2e1 * t179 * t1335 - t137 * t1364 + 0.1174e1 * t1364;
1284   t1369 = t175 * t1367 * t167;
1285   t1372 = t7 * t419;
1286   t1373 = t424 * t1372;
1287   t1376 = 0.1e1 / sigma[0];
1288   t1378 = t1020 * t159;
1289   t1379 = t18 * t1376 * t1378;
1290   t1384 = t327 * t154 * t1028 * t166;
1291   t1388 = 0.1e1 / t156 / t35;
1292   t1389 = t425 * t1388;
1293   t1390 = t5 * t1389;
1294   t1392 = t22 * t13 * t789;
1295   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1296     v2sigma2[0] = -0.3e1 / 0.16e2 * t174 * t1369 + 0.18554625000000000000e1 * t1373 * t430 - 0.41747906250000000000e1 * t1019 * t1379 - 0.46386562500000000000e0 * t426 * t1384 + 0.56630821004800493110e1 * t1390 * t1392;
1297 
1298   t1395 = t1038 * t401;
1299   t1398 = t398 * t475;
1300   t1403 = t64 * t76 * t92;
1301   t1408 = t1056 * t363;
1302   t1411 = t358 * t88;
1303   t1412 = t1411 * t445;
1304   t1414 = t225 * t585;
1305   t1415 = t445 * t13;
1306   t1416 = t1415 * t346;
1307   t1419 = t225 * t226;
1308   t1420 = t64 * t76;
1309   t1421 = t1419 * t1420;
1310   t1423 = -t1403 / 0.2592e4 - t1051 * t363 / 0.2e1 - t830 * t446 + 0.3e1 / 0.2e1 * t1055 * t1408 - t225 * t1412 + 0.5e1 / 0.36e2 * t1414 * t1416 + t1421 / 0.2592e4;
1311   t1427 = t869 * t366;
1312   t1430 = t245 * t1423;
1313   t1433 = t1080 * t366;
1314   t1442 = t645 * t371;
1315   t1449 = t1101 * t886;
1316   t1452 = -t1423;
1317   t1453 = t253 * t1452;
1318   t1454 = t1453 * t103;
1319   t1457 = t1094 * t886;
1320   t1468 = t108 * t366;
1321   t1478 = -0.3569440e1 * t1073 * t1468 + 0.1784720e1 * t1430 * t108 + 0.3185225478400e1 * t1080 * t1468 - 0.3569440e1 * t1449 + 0.1784720e1 * t1454 + 0.3185225478400e1 * t1457;
1322   t1479 = t259 * t1478;
1323   t1480 = t106 * t1479;
1324   t1482 = -0.922000629760e0 * t1074 * t1427 + 0.461000314880e0 * t1430 * t111 + 0.21252129031945914941e0 * t1433 * t111 + 0.21252129031945914941e0 * t1084 * t887 - 0.119078225334763520e0 * t1087 * t910 + 0.21252129031945914941e0 * t880 * t1091 - 0.61023519165317445059e0 * t640 * t1094 * t1442 - 0.119078225334763520e0 * t649 * t454 * t1277 - 0.922000629760e0 * t251 * t1449 + 0.461000314880e0 * t251 * t1454 + 0.822756481972633600e0 * t251 * t1457 - 0.119078225334763520e0 * t883 * t1113 - 0.119078225334763520e0 * t649 * t1116 * t886 + 0.325024956416e0 * t106 * t1120 * t379 - 0.258304e0 * t1480;
1325   t1483 = my_piecewise3(t96, 0, t1482);
1326   t1484 = my_piecewise3(t95, 0, t1483);
1327   t1486 = -t1423 * t113 - t94 * t1484 - t366 * t467 - t448 * t385;
1328   t1487 = t50 * t1486;
1329   t1490 = t412 * t1146;
1330   t1493 = t1486 * t127;
1331   t1498 = t1487 * t127 / 0.100e3 + t1145 * t1490 / 0.60e2 - t280 * t1493 / 0.100e3 - t1153 * t1490 / 0.180e3;
1332   t1499 = t130 * t1498;
1333   t1506 = t401 * t493;
1334   t1509 = -params->c1 * t1486;
1335   t1511 = t412 * t17;
1336   t1514 = t404 * t13;
1337   t1517 = t469 * t391;
1338   t1521 = t484 * t1486;
1339   t1524 = -t1509 * t140 - 0.5e1 / 0.9e1 * t1169 * t1511 + 0.5e1 / 0.9e1 * t1514 * t485 + 0.50e2 / 0.81e2 * t293 * t1176 * t1517 + 0.5e1 / 0.9e1 * t483 * t1521;
1340   t1525 = t1524 * t144;
1341   t1526 = t488 * t410;
1342   t1531 = t294 * t1486;
1343   t1537 = my_piecewise3(t138, t1526 * t144 + t1525, 0.10e2 / 0.9e1 * t1190 * t413 + t301 * t1531 * t146 + 0.5e1 / 0.9e1 * t1197 * t413);
1344   t1540 = -0.4e1 * t1037 * t1395 + 0.2e1 * t179 * t1398 * t149 + 0.2e1 * t179 * t1499 * t149 - 0.2e1 * t179 * t476 * t416 - t179 * t1506 - t137 * t1537 + 0.1174e1 * t1537;
1345   t1542 = t175 * t1540 * t167;
1346   t1545 = t7 * t496;
1347   t1546 = t424 * t1545;
1348   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1349     v2sigmalapl[0] = -0.3e1 / 0.16e2 * t174 * t1542 + 0.92773125000000000000e0 * t1546 * t430;
1350 
1351   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1352     v2sigmatau[0] = 0.0e0;
1353 
1354   t1549 = t475 * t475;
1355   t1550 = t131 * t1549;
1356   t1554 = t1549 * t149;
1357   t1557 = t9 * t69;
1358   t1563 = t445 * t445;
1359   t1564 = t595 * t1563;
1360   t1567 = t1563 * t88;
1361   t1569 = t64 * t1557;
1362   t1572 = t64 * t1557 * t92 / 0.1458e4 - 0.2e1 * t1051 * t446 + 0.3e1 * t578 * t1564 - t225 * t1567 - t1419 * t1569 / 0.1458e4;
1363   t1576 = t448 * t448;
1364   t1577 = t614 * t1576;
1365   t1580 = t245 * t1572;
1366   t1583 = t623 * t1576;
1367   t1590 = t453 * t453;
1368   t1591 = t642 * t1590;
1369   t1592 = t1591 * t645;
1370   t1595 = t103 * t461;
1371   t1599 = t655 * t1590;
1372   t1600 = t1599 * t103;
1373   t1603 = -t1572;
1374   t1604 = t253 * t1603;
1375   t1605 = t1604 * t103;
1376   t1608 = t1591 * t103;
1377   t1611 = t461 * t461;
1378   t1612 = t668 * t1611;
1379   t1613 = t106 * t1612;
1380   t1624 = -0.3569440e1 * t1577 * t108 + 0.1784720e1 * t1580 * t108 + 0.3185225478400e1 * t1583 * t108 - 0.3569440e1 * t1600 + 0.1784720e1 * t1605 + 0.3185225478400e1 * t1608;
1381   t1625 = t259 * t1624;
1382   t1626 = t106 * t1625;
1383   t1628 = -0.922000629760e0 * t1577 * t111 + 0.461000314880e0 * t1580 * t111 + 0.21252129031945914941e0 * t1583 * t111 + 0.42504258063891829882e0 * t1084 * t1091 - 0.238156450669527040e0 * t1087 * t1113 - 0.61023519165317445059e0 * t640 * t1592 - 0.238156450669527040e0 * t649 * t454 * t1595 - 0.922000629760e0 * t251 * t1600 + 0.461000314880e0 * t251 * t1605 + 0.822756481972633600e0 * t251 * t1608 + 0.325024956416e0 * t1613 - 0.258304e0 * t1626;
1384   t1629 = my_piecewise3(t96, 0, t1628);
1385   t1630 = my_piecewise3(t95, 0, t1629);
1386   t1632 = -t1572 * t113 - t94 * t1630 - 0.2e1 * t448 * t467;
1387   t1633 = t50 * t1632;
1388   t1636 = t469 * t469;
1389   t1637 = t50 * t1636;
1390   t1638 = t123 * t127;
1391   t1644 = t1636 * t127;
1392   t1647 = t1633 * t127 / 0.100e3 - 0.3e1 / 0.100e3 * t1637 * t1638 - t280 * t1632 * t127 / 0.100e3 + t709 * t1644 / 0.100e3;
1393   t1648 = t130 * t1647;
1394   t1656 = -params->c1 * t1632;
1395   t1660 = t17 * t730;
1396   t1661 = t1660 * t1636;
1397   t1664 = t484 * t1632;
1398   t1667 = -t1656 * t140 + 0.2e1 * t481 * t490 - 0.10e2 / 0.9e1 * t483 * t1661 + 0.5e1 / 0.9e1 * t483 * t1664;
1399   t1669 = t488 * t488;
1400   t1670 = t1669 * t144;
1401   t1672 = t730 * t1636;
1402   t1676 = t294 * t1632;
1403   t1679 = t756 * t1636;
1404   t1683 = my_piecewise3(t138, t1667 * t144 + t1670, -0.2e1 * t301 * t1672 * t146 + t301 * t1676 * t146 - t754 * t1679 * t146);
1405   t1686 = -0.8e1 * t517 * t1550 * t149 + 0.2e1 * t179 * t1554 + 0.2e1 * t179 * t1648 * t149 - 0.4e1 * t179 * t476 * t493 - t137 * t1683 + 0.1174e1 * t1683;
1406   t1688 = t175 * t1686 * t167;
1407   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1408     v2lapl2[0] = -0.3e1 / 0.16e2 * t174 * t1688;
1409 
1410   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1411     v2lapltau[0] = 0.0e0;
1412 
1413   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1414     v2tau2[0] = 0.0e0;
1415 
1416 #ifndef XC_DONT_COMPILE_KXC
1417 
1418   if(order < 3) return;
1419 
1420 
1421   t1697 = 0.1e1 / t67;
1422   t1698 = t7 * t1697;
1423   t1710 = t7 * t75;
1424   t1715 = 0.1e1 / t11;
1425   t1718 = t5 * t7 * t1715 * t152;
1426   t1721 = t177 * t177;
1427   t1723 = t176 / t1721;
1428   t1724 = t518 * t287;
1429   t1728 = t288 * t717;
1430   t1735 = 0.1e1 / t21 / t38;
1431   t1736 = t19 * t1735;
1432   t1737 = t18 * t1736;
1433   t1740 = 0.1e1 / t11 / t197;
1434   t1741 = t1740 * t45;
1435   t1745 = 0.1e1 / t809;
1436   t1746 = t196 * t1745;
1437   t1750 = t197 * t38;
1438   t1752 = 0.1e1 / t21 / t1750;
1439   t1757 = t192 * t192;
1440   t1758 = t1757 * t194;
1441   t1759 = t542 * sigma[0];
1442   t1760 = t197 * t197;
1443   t1762 = 0.1e1 / t11 / t1760;
1444   t1766 = t64 * t9 * t45;
1445   t1773 = 0.770e3 / 0.243e3 * t1737;
1446   t1780 = 0.520e3 / 0.19683e5 * t64 * t66 * t187;
1447   t1781 = t598 * lapl[0];
1448   t1783 = 0.247e3 / 0.4374e4 * t73 * t1781;
1449   t1785 = t64 * t36 * t1740;
1450   t1786 = 0.1672e4 / 0.59049e5 * t1785;
1451   t1787 = -0.770e3 / 0.2187e4 * t1737 - 0.1100e4 / 0.729e3 * t18 * t58 * t523 - t1780 + t1783 - t1786;
1452   t1789 = t571 * t224;
1453   t1792 = t221 * t577;
1454   t1799 = 0.1e1 / t91 / t575 / t90;
1455   t1800 = t83 * t1799;
1456   t1801 = t579 * t239;
1457   t1804 = t239 * t606;
1458   t1810 = t582 * t231 * t13;
1459   t1813 = t84 * t594;
1460   t1815 = t1813 * t227 * t30;
1461   t1818 = t590 * t13;
1462   t1819 = t585 * t1818;
1463   t1824 = -t1780 + t1783 - t1786;
1464   t1828 = 0.1e1 / t593 / t86;
1465   t1829 = t85 * t1828;
1466   t1830 = t194 * t196;
1467   t1831 = t1830 * t1745;
1468   t1834 = t9 * t1740;
1469   t1835 = t597 * t1834;
1470   t1838 = t10 * t1735;
1471   t1839 = t234 * t1838;
1472   t1842 = 0.6e1 * t838 * t590 + 0.20e2 / 0.9e1 * t1810 * t236 + 0.200e3 / 0.81e2 * t1815 * t599 + 0.20e2 / 0.9e1 * t1819 * t236 - 0.220e3 / 0.27e2 * t587 * t603 + 0.2e1 * t226 * t1824 + 0.8000e4 / 0.2187e4 * t1829 * t1831 - 0.1100e4 / 0.243e3 * t596 * t1835 + 0.1540e4 / 0.243e3 * t233 * t1839;
1473   t1845 = t1787 * t92 - 0.3e1 / 0.2e1 * t1789 * t239 + 0.9e1 / 0.4e1 * t1792 * t579 - 0.3e1 / 0.2e1 * t573 * t606 - 0.15e2 / 0.8e1 * t1800 * t1801 + 0.9e1 / 0.4e1 * t578 * t1804 - t225 * t1842 / 0.2e1 + t1773;
1474   t1851 = t624 * t99;
1475   t1854 = t105 * t668;
1476   t1855 = t1854 * t669;
1477   t1858 = -t1845;
1478   t1859 = t253 * t1858;
1479   t1860 = t1859 * t103;
1480   t1863 = pow(t109, -0.3258304e1);
1481   t1864 = t669 * t263;
1482   t1868 = t250 * t668;
1483   t1869 = t103 * t669;
1484   t1870 = t255 * t1869;
1485   t1874 = t645 * t660;
1486   t1875 = t642 * t254 * t1874;
1487   t1878 = t639 * t259;
1488   t1879 = t645 * t263;
1489   t1880 = t644 * t1879;
1490   t1883 = t644 * t650;
1491   t1886 = pow(t104, -0.2741696e1);
1492   t1887 = t99 * t1886;
1493   t1888 = t1887 * t110;
1494   t1890 = 0.1e1 / t641 / t252;
1495   t1891 = t643 * t254;
1496   t1892 = t1890 * t1891;
1497   t1893 = t645 * t103;
1498   t1897 = t616 * t99;
1499   t1901 = 0.1e1 / t622 / t94;
1500   t1902 = t615 * t242;
1501   t1903 = t1901 * t1902;
1502   t1906 = t614 * t242;
1503   t1907 = t1906 * t99;
1504   t1908 = t869 * t609;
1505   t1912 = 0.1e1 / t641 / t100;
1506   t1913 = t1912 * t1891;
1507   t1917 = t1913 * t103;
1508   t1920 = t1892 * t103;
1509   t1924 = t642 * t660 * t629;
1510   t1927 = t656 * t650;
1511   t1931 = 0.1e1 / t622 / t244;
1512   t1932 = t1931 * t1902;
1513   t1935 = t668 * t263;
1514   t1939 = -0.16468529812403272839e0 * t1851 * t635 + 0.44950982175490282881e0 * t633 * t1855 + 0.461000314880e0 * t251 * t1860 - 0.734005159174078464e0 * t106 * t1863 * t1864 + 0.44950982175490282881e0 * t1868 * t1870 - 0.18307055749595233518e1 * t640 * t1875 + 0.47287857283434471986e0 * t1878 * t1880 - 0.63756387095837744824e0 * t649 * t1883 + 0.18968792869915364414e1 * t1888 * t1892 * t1893 + 0.714469352008581120e0 * t1897 * t635 - 0.12751277419167548965e1 * t1903 * t111 - 0.2766001889280e1 * t1907 * t1908 + 0.36614111499190467036e1 * t640 * t1913 * t645 - 0.4936538891835801600e1 * t251 * t1917 + 0.14683899485061986386e1 * t251 * t1920 + 0.2468269445917900800e1 * t251 * t1924 + 0.714469352008581120e0 * t649 * t1927 + 0.97972381755974563669e-1 * t1932 * t111 + 0.975074869248e0 * t106 * t1935 * t682;
1515   t1940 = t634 * t682;
1516   t1943 = t259 * t253;
1517   t1944 = t629 * t263;
1518   t1945 = t1943 * t1944;
1519   t1948 = t103 * t682;
1520   t1949 = t255 * t1948;
1521   t1952 = t623 * t1902;
1522   t1955 = t623 * t609;
1523   t1956 = t1955 * t242;
1524   t1959 = t655 * t254;
1525   t1960 = t103 * t660;
1526   t1961 = t1959 * t1960;
1527   t1964 = t619 * t250;
1528   t1967 = t616 * t250;
1529   t1970 = t110 * t655;
1530   t1971 = t643 * t103;
1531   t1972 = t1970 * t1971;
1532   t1978 = t642 * t1891;
1533   t1979 = t1978 * t103;
1534   t1982 = t245 * t1845;
1535   t1987 = t108 * t609;
1536   t2004 = 0.10708320e2 * t1952 * t108 - 0.10708320e2 * t1906 * t1987 - 0.19111352870400e2 * t1903 * t108 + 0.1784720e1 * t1982 * t108 + 0.9555676435200e1 * t1955 * t921 + 0.5684735615810048000e1 * t1932 * t108 + 0.10708320e2 * t1979 - 0.10708320e2 * t1961 - 0.19111352870400e2 * t1917 + 0.1784720e1 * t1860 + 0.9555676435200e1 * t1924 + 0.5684735615810048000e1 * t1920;
1537   t2008 = t661 * t650;
1538   t2011 = t246 * t639;
1539   t2012 = t110 * t642;
1540   t2013 = t643 * t645;
1541   t2014 = t2012 * t2013;
1542   t2017 = t2012 * t1971;
1543   t2020 = t624 * t250;
1544   t2023 = t628 * t1960;
1545   t2026 = t619 * t99;
1546   t2029 = -0.357234676004290560e0 * t633 * t1940 - 0.32937059624806545678e0 * t627 * t1945 - 0.357234676004290560e0 * t649 * t1949 + 0.2766001889280e1 * t1952 * t111 + 0.63756387095837744823e0 * t1956 * t111 - 0.2766001889280e1 * t251 * t1961 + 0.63756387095837744823e0 * t1964 * t630 - 0.12751277419167548965e1 * t1967 * t630 - 0.12751277419167548965e1 * t627 * t1972 - 0.32672968537417605163e1 * t640 * t1892 * t645 + 0.2766001889280e1 * t251 * t1979 + 0.461000314880e0 * t1982 * t111 - 0.258304e0 * t106 * t259 * t2004 - 0.357234676004290560e0 * t649 * t2008 - 0.84395584650891170840e0 * t2011 * t2014 + 0.11378729917768353994e1 * t627 * t2017 + 0.29391714526792369101e0 * t2020 * t630 + 0.63756387095837744823e0 * t627 * t2023 - 0.357234676004290560e0 * t2026 * t635;
1547   t2031 = my_piecewise3(t96, 0, t1939 + t2029);
1548   t2032 = my_piecewise3(t95, 0, t2031);
1549   t2038 = 0.3e1 / 0.10e2 * t55 * (t1845 * t113 + t94 * t2032 + 0.3e1 * t242 * t688 + 0.3e1 * t609 * t269 - t1773) + 0.154e3 / 0.27e2 * t1736;
1550   t2039 = t50 * t2038;
1551   t2045 = t698 * t275;
1552   t2046 = t50 * t2045;
1553   t2047 = t194 * t127;
1554   t2050 = t194 * t125;
1555   t2051 = t2050 * t127;
1556   t2060 = t50 * t755;
1557   t2061 = t2045 * t194;
1558   t2062 = t2061 * t127;
1559   t2065 = -0.539e3 / 0.21870e5 * t52 * t1736 - t2039 * t277 / 0.180e3 - t695 * t30 * t949 / 0.36e2 + 0.5e1 / 0.162e3 * t2046 * t2047 - 0.5e1 / 0.81e2 * t2046 * t2051 + t280 * t2038 * t277 / 0.180e3 + t709 * t694 * t956 / 0.108e3 + 0.5e1 / 0.486e3 * t2060 * t2062;
1560   t2068 = -0.1540e4 / 0.6561e4 * t1737 - 0.209e3 / 0.243e3 * t34 * t36 * t1741 + 0.797e3 / 0.120e3 * t195 * t1746 * t45 - 0.729e3 / 0.800e3 * t541 * t542 * t1752 * t549 + 0.243e3 / 0.4000e4 * t1758 * t1759 * t1762 * t1766 + 0.6e1 * t284 * t714 + 0.2e1 * t130 * t2065;
1561   t2077 = params->c1 * t2038;
1562   t2080 = t723 * t30;
1563   t2083 = params->c1 * t2045;
1564   t2086 = t756 * t2045;
1565   t2087 = t2086 * t18;
1566   t2090 = t730 * t275;
1567   t2091 = t2090 * t694;
1568   t2094 = t295 * t2038;
1569   t2097 = -0.5e1 / 0.9e1 * t2077 * t141 - 0.50e2 / 0.27e2 * t2080 * t296 - 0.500e3 / 0.81e2 * t2083 * t731 - 0.2500e4 / 0.729e3 * t975 * t2087 - 0.500e3 / 0.81e2 * t975 * t2091 - 0.25e2 / 0.81e2 * t293 * t2094;
1570   t2102 = t740 * t299;
1571   t2105 = t301 * t756;
1572   t2106 = t2061 * t146;
1573   t2109 = t301 * t2090;
1574   t2110 = t146 * t694;
1575   t2111 = t64 * t2110;
1576   t2114 = t755 * t123;
1577   t2115 = 0.1e1 / t2114;
1578   t2116 = t754 * t2115;
1579   t2119 = t2038 * t13;
1580   t2120 = t2119 * t304;
1581   t2128 = params->d * t753 * params->c2;
1582   t2130 = 0.1e1 / t755 / t125;
1583   t2131 = t2128 * t2130;
1584   t2135 = my_piecewise3(t138, 0.3e1 * t738 * t299 * t144 + t2097 * t144 + t2102 * t144, -0.500e3 / 0.81e2 * t2105 * t2106 - 0.50e2 / 0.27e2 * t2109 * t2111 - 0.500e3 / 0.81e2 * t2116 * t2106 - 0.5e1 / 0.9e1 * t302 * t2120 - 0.25e2 / 0.27e2 * t754 * t756 * t694 * t990 - 0.250e3 / 0.243e3 * t2131 * t2106);
1585   t2138 = 0.6e1 * t1723 * t1724 * t149 - 0.6e1 * t517 * t1728 + 0.6e1 * t517 * t518 * t308 + t179 * t2068 * t149 - 0.3e1 * t179 * t717 * t308 - 0.3e1 * t179 * t287 * t761 - t137 * t2135 + 0.1174e1 * t2135;
1586   t2139 = t2138 * t167;
1587   t2143 = t322 * t764;
1588   t2153 = t1735 * t320;
1589   t2155 = 0.1e1 / t14;
1590   t2157 = 0.1e1 / t37;
1591   t2161 = 0.1e1 / t162 / t2155 / t1027 / t2157 / 0.72e2;
1592   t2165 = t2161 * t2155 * t1027 * t166 * t10;
1593   t2171 = t13 * t32 * t427 * t9 * t166;
1594   t2175 = t60 * t320 * t322;
1595   t2177 = t326 * t166;
1596   t2178 = t152 * t10 * t2177;
1597   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1598     v3rho3[0] = t8 * t433 * t168 / 0.18e2 - t8 * t502 * t312 / 0.4e1 + 0.5497666666666666667e0 * t424 * t1698 * t152 * t330 - 0.3e1 / 0.4e1 * t8 * t12 * t765 - 0.24739500000000000000e1 * t424 * t510 * t311 * t330 + 0.89062200000000000000e2 * t424 * t1710 * t152 * t782 + 0.40270806047858128433e2 * t1718 * t790 - 0.3e1 / 0.16e2 * t174 * t175 * t2139 - 0.74218500000000000000e1 * t321 * t2143 * t330 - 0.89062200000000000000e2 * t773 * t769 * t782 + 0.12081241814357438530e3 * t785 * t769 * t790 - 0.59374800000000000000e3 * t2153 * t323 * t2165 + 0.82683876053829230172e0 * t1718 * t2171 - 0.16151076630565200000e3 * t2175 * t2178;
1599 
1600   t2182 = t501 * t2 * t4;
1601   t2187 = t509 * t320;
1602   t2194 = t963 * t287;
1603   t2203 = t18 * t602;
1604   t2208 = t35 * t535;
1605   t2218 = 0.1e1 / t11 / t197 / t527;
1606   t2227 = t345 * t523;
1607   t2230 = 0.55e2 / 0.81e2 * t2203;
1608   t2232 = t64 * t565;
1609   t2233 = 0.13e2 / 0.1458e4 * t2232;
1610   t2235 = t64 * t336 * t529;
1611   t2236 = 0.152e3 / 0.19683e5 * t2235;
1612   t2237 = 0.55e2 / 0.729e3 * t2203 - t2233 + t2236;
1613   t2239 = t828 * t224;
1614   t2241 = t356 * t577;
1615   t2251 = t363 * t579;
1616   t2254 = t860 * t239;
1617   t2257 = t363 * t606;
1618   t2260 = t590 * t88;
1619   t2263 = t227 * t231;
1620   t2264 = t2263 * t841;
1621   t2269 = t358 * t30;
1622   t2270 = t1813 * t2269;
1623   t2273 = t845 * t13;
1624   t2274 = t585 * t2273;
1625   t2279 = -t2233 + t2236;
1626   t2284 = t1813 * t64;
1627   t2285 = t227 * sigma[0];
1628   t2294 = t345 * t23 * t590;
1629   t2297 = t194 * t535;
1630   t2298 = t2297 * t35;
1631   t2302 = t853 * t529 * sigma[0];
1632   t2307 = 0.2e1 * t2260 * t358 + 0.40e2 / 0.27e2 * t2264 * t236 + 0.4e1 * t838 * t845 + 0.200e3 / 0.243e3 * t2270 * t599 + 0.40e2 / 0.27e2 * t2274 * t236 - 0.220e3 / 0.81e2 * t842 * t603 + 0.2e1 * t226 * t2279 - 0.5e1 / 0.18e2 * t1810 * t346 - 0.50e2 / 0.81e2 * t2284 * t564 * t2285 + 0.40e2 / 0.27e2 * t848 * t345 * t181 * t227 - 0.5e1 / 0.18e2 * t848 * t2294 - 0.1000e4 / 0.729e3 * t1829 * t2298 + 0.25e2 / 0.18e2 * t596 * t2302 - 0.110e3 / 0.81e2 * t233 * t2227;
1633   t2310 = t2237 * t92 - t2239 * t239 + 0.3e1 / 0.4e1 * t2241 * t579 - t830 * t606 / 0.2e1 - t1789 * t363 / 0.2e1 + 0.3e1 / 0.2e1 * t1792 * t835 - t573 * t860 - 0.15e2 / 0.8e1 * t1800 * t2251 + 0.3e1 / 0.2e1 * t578 * t2254 + 0.3e1 / 0.4e1 * t578 * t2257 - t225 * t2307 / 0.2e1 - t2230;
1634   t2318 = t379 * t642;
1635   t2319 = t2318 * t2013;
1636   t2322 = t250 * t917;
1637   t2327 = t668 * t931;
1638   t2331 = t1901 * t366;
1639   t2332 = t2331 * t615;
1640   t2335 = t372 * t1869;
1641   t2340 = t931 * t253;
1642   t2341 = t2340 * t629;
1643   t2344 = t642 * t902;
1644   t2345 = t2344 * t629;
1645   t2348 = t245 * t2310;
1646   t2351 = t890 * t1960;
1647   t2359 = t1931 * t366;
1648   t2360 = t2359 * t615;
1649   t2363 = t614 * t863;
1650   t2364 = t2363 * t99;
1651   t2367 = t1863 * t379;
1652   t2371 = 0.15762619094478157328e0 * t1878 * t2319 + 0.29967321450326855254e0 * t2322 * t651 - 0.54895099374677576130e-1 * t1851 * t910 + 0.650049912832e0 * t106 * t2327 * t263 - 0.12751277419167548965e1 * t2332 * t111 + 0.14983660725163427627e0 * t1868 * t2335 + 0.238156450669527040e0 * t1897 * t910 - 0.238156450669527040e0 * t649 * t2341 + 0.1645512963945267200e1 * t251 * t2345 + 0.461000314880e0 * t2348 * t111 + 0.822756481972633600e0 * t251 * t2351 + 0.325024956416e0 * t106 * t917 * t682 - 0.922000629760e0 * t868 * t1908 + 0.97972381755974563669e-1 * t2360 * t111 - 0.1844001259520e1 * t2364 * t870 - 0.734005159174078464e0 * t106 * t2367 * t669;
1653   t2372 = t108 * t615;
1654   t2383 = t623 * t863;
1655   t2390 = t890 * t1971;
1656   t2392 = t655 * t902;
1657   t2393 = t2392 * t629;
1658   t2395 = t1912 * t371;
1659   t2396 = t2395 * t1971;
1660   t2398 = t898 * t1960;
1661   t2400 = -t2310;
1662   t2401 = t253 * t2400;
1663   t2402 = t2401 * t103;
1664   t2406 = t1890 * t371;
1665   t2407 = t2406 * t1971;
1666   t2409 = 0.10708320e2 * t876 * t2372 - 0.7138880e1 * t2363 * t921 - 0.19111352870400e2 * t2331 * t2372 - 0.3569440e1 * t867 * t1987 + 0.1784720e1 * t2348 * t108 + 0.6370450956800e1 * t2383 * t921 + 0.3185225478400e1 * t876 * t1987 + 0.5684735615810048000e1 * t2359 * t2372 + 0.10708320e2 * t2390 - 0.7138880e1 * t2393 - 0.19111352870400e2 * t2396 - 0.3569440e1 * t2398 + 0.1784720e1 * t2402 + 0.6370450956800e1 * t2345 + 0.3185225478400e1 * t2351 + 0.5684735615810048000e1 * t2407;
1667   t2413 = t2395 * t2013;
1668   t2416 = t242 * t263;
1669   t2417 = t634 * t2416;
1670   t2422 = t913 * t1960;
1671   t2425 = t1893 * t643;
1672   t2426 = t2406 * t2425;
1673   t2430 = t379 * t655 * t1971;
1674   t2437 = t867 * t250;
1675   t2438 = t110 * t242;
1676   t2439 = t2438 * t256;
1677   t2442 = t1442 * t254;
1678   t2443 = t2012 * t2442;
1679   t2446 = t371 * t254;
1680   t2447 = t2446 * t103;
1681   t2448 = t2012 * t2447;
1682   t2451 = t886 * t263;
1683   t2452 = t1943 * t2451;
1684   t2455 = t1970 * t2447;
1685   t2458 = t242 * t99;
1686   t2459 = t876 * t2458;
1687   t2460 = t249 * t110;
1688   t2461 = t2460 * t256;
1689   t2466 = -0.258304e0 * t106 * t259 * t2409 + 0.36614111499190467036e1 * t640 * t2413 + 0.476312901339054080e0 * t868 * t2417 - 0.119078225334763520e0 * t2026 * t910 - 0.119078225334763520e0 * t649 * t2422 + 0.18968792869915364414e1 * t1888 * t2426 + 0.238156450669527040e0 * t649 * t2430 + 0.461000314880e0 * t251 * t2402 - 0.1844001259520e1 * t251 * t2393 - 0.85008516127783659765e0 * t2437 * t2439 - 0.56263723100594113894e0 * t2011 * t2443 + 0.75858199451789026628e0 * t627 * t2448 - 0.10979019874935515226e0 * t627 * t2452 - 0.85008516127783659765e0 * t627 * t2455 + 0.19594476351194912734e0 * t2459 * t2461 - 0.10979019874935515226e0 * t880 * t1945;
1690   t2468 = t903 * t650;
1691   t2471 = t876 * t609;
1692   t2474 = t634 * t931;
1693   t2477 = t379 * t263;
1694   t2478 = t1854 * t2477;
1695   t2481 = t2383 * t242;
1696   t2484 = t2344 * t891;
1697   t2489 = t873 * t99;
1698   t2492 = t2406 * t2013;
1699   t2499 = t368 * t639;
1700   t2504 = t873 * t250;
1701   t2509 = t259 * t655;
1702   t2510 = t250 * t2509;
1703   t2511 = t263 * t254;
1704   t2512 = t886 * t2511;
1705   t2515 = -0.238156450669527040e0 * t649 * t2468 + 0.21252129031945914941e0 * t2471 * t111 - 0.238156450669527040e0 * t633 * t2474 + 0.29967321450326855254e0 * t633 * t2478 + 0.42504258063891829882e0 * t2481 * t111 - 0.12204703833063489012e1 * t640 * t2484 - 0.119078225334763520e0 * t883 * t1940 - 0.238156450669527040e0 * t2489 * t635 - 0.32672968537417605163e1 * t640 * t2492 - 0.42504258063891829882e0 * t880 * t1972 + 0.21252129031945914941e0 * t880 * t2023 - 0.28131861550297056947e0 * t2499 * t2014 + 0.37929099725894513314e0 * t880 * t2017 + 0.42504258063891829882e0 * t2504 * t630 - 0.42504258063891829882e0 * t1967 * t887 + 0.476312901339054080e0 * t2510 * t2512;
1706   t2516 = t259 * t642;
1707   t2517 = t639 * t2516;
1708   t2523 = t902 * t103;
1709   t2524 = t628 * t2523;
1710   t2531 = t250 * t2516;
1711   t2536 = t890 * t1874;
1712   t2539 = t2318 * t1971;
1713   t2546 = t876 * t99;
1714   t2547 = t869 * t615;
1715   t2550 = t372 * t1948;
1716   t2557 = t380 * t256;
1717   t2560 = 0.31525238188956314657e0 * t2517 * t1442 * t2511 + 0.21252129031945914941e0 * t1964 * t887 + 0.42504258063891829882e0 * t627 * t2524 + 0.97972381755974563669e-1 * t2020 * t887 + 0.14683899485061986386e1 * t251 * t2407 - 0.42504258063891829882e0 * t2531 * t2512 - 0.10979019874935515226e0 * t877 * t265 - 0.61023519165317445059e0 * t640 * t2536 - 0.21252129031945914941e0 * t649 * t2539 - 0.922000629760e0 * t251 * t2398 - 0.4936538891835801600e1 * t251 * t2396 + 0.2766001889280e1 * t2546 * t2547 - 0.119078225334763520e0 * t649 * t2550 + 0.2766001889280e1 * t251 * t2390 + 0.14983660725163427627e0 * t883 * t1855 - 0.10979019874935515226e0 * t627 * t2557;
1718   t2563 = my_piecewise3(t96, 0, t2371 + t2466 + t2515 + t2560);
1719   t2564 = my_piecewise3(t95, 0, t2563);
1720   t2570 = 0.3e1 / 0.10e2 * t55 * (t2310 * t113 + 0.2e1 * t242 * t937 + t94 * t2564 + 0.2e1 * t863 * t269 + t366 * t688 + t609 * t385 + t2230) - 0.11e2 / 0.9e1 * t602;
1721   t2571 = t50 * t2570;
1722   t2574 = t944 * t30;
1723   t2577 = t194 * t698;
1724   t2578 = t2577 * t127;
1725   t2581 = t694 * t127;
1726   t2582 = t701 * t2581;
1727   t2585 = t392 * t194;
1728   t2587 = t125 * t698 * t127;
1729   t2593 = t709 * t943;
1730   t2596 = t64 * t2581;
1731   t2599 = t2060 * t391;
1732   t2602 = 0.77e2 / 0.14580e5 * t51 * t2227 - t2571 * t277 / 0.180e3 - t2574 * t949 / 0.54e2 + 0.5e1 / 0.162e3 * t392 * t2578 - t947 * t2582 / 0.108e3 - 0.5e1 / 0.81e2 * t2585 * t2587 + t280 * t2570 * t277 / 0.180e3 + t2593 * t956 / 0.162e3 + t955 * t2596 / 0.324e3 + 0.5e1 / 0.486e3 * t2599 * t2578;
1733   t2605 = 0.110e3 / 0.2187e4 * t2203 + 0.19e2 / 0.81e2 * t34 * t336 * t530 - 0.167e3 / 0.80e2 * t195 * t2208 * t45 + 0.81e2 / 0.256e3 * t541 * t196 * t545 * t549 - 0.729e3 / 0.32000e5 * t1758 * t542 * t2218 * t1766 + 0.2e1 * t714 * t398 + 0.4e1 * t284 * t959 + 0.2e1 * t130 * t2602;
1734   t2606 = t2605 * t149;
1735   t2608 = t962 * t308;
1736   t2611 = t401 * t761;
1737   t2621 = params->c1 * t2570;
1738   t2624 = t969 * t30;
1739   t2631 = t194 * t756;
1740   t2632 = t139 * t2631;
1741   t2637 = t730 * t943;
1742   t2638 = t2637 * t275;
1743   t2644 = t295 * t2570;
1744   t2647 = -0.5e1 / 0.9e1 * t2621 * t141 - 0.100e3 / 0.81e2 * t2624 * t296 - 0.500e3 / 0.81e2 * t404 * t732 - 0.50e2 / 0.81e2 * t972 * t735 - 0.2500e4 / 0.729e3 * t2632 * t391 * t698 * t18 - 0.1000e4 / 0.243e3 * t975 * t2638 - 0.500e3 / 0.243e3 * t975 * t976 * t694 - 0.25e2 / 0.81e2 * t293 * t2644;
1745   t2652 = t410 * t738;
1746   t2657 = t391 * t194;
1747   t2658 = t146 * t698;
1748   t2659 = t2657 * t2658;
1749   t2662 = t301 * t2637;
1750   t2669 = t2570 * t13;
1751   t2670 = t2669 * t304;
1752   t2674 = t754 * t756 * t943;
1753   t2682 = my_piecewise3(t138, 0.2e1 * t983 * t299 * t144 + t410 * t740 * t144 + t2647 * t144 + t2652 * t144, -0.500e3 / 0.81e2 * t2105 * t2659 - 0.100e3 / 0.81e2 * t2662 * t990 - 0.500e3 / 0.81e2 * t2116 * t2659 - 0.50e2 / 0.81e2 * t988 * t2111 - 0.5e1 / 0.9e1 * t302 * t2670 - 0.50e2 / 0.81e2 * t2674 * t990 - 0.25e2 / 0.81e2 * t998 * t2111 - 0.250e3 / 0.243e3 * t2131 * t2659);
1754   t2685 = 0.6e1 * t1723 * t402 * t518 - 0.4e1 * t517 * t2194 + 0.4e1 * t517 * t965 * t287 - 0.2e1 * t517 * t402 * t717 + t179 * t2606 - 0.2e1 * t179 * t2608 - t179 * t2611 + 0.2e1 * t517 * t518 * t416 - t179 * t717 * t416 - 0.2e1 * t179 * t287 * t1002 - t137 * t2682 + 0.1174e1 * t2682;
1755   t2687 = t175 * t2685 * t167;
1756   t2690 = t322 * t1005;
1757   t2700 = t7 * t764;
1758   t2701 = t424 * t2700;
1759   t2705 = t424 * t1014 * t777;
1760   t2709 = t5 * t1014 * t1028;
1761   t2713 = t424 * t425 * t2161;
1762   t2714 = t2155 * t166;
1763   t2716 = t2714 * t602 * t156;
1764   t2720 = t5 * t425 * t13;
1765   t2721 = t32 * t1028;
1766   t2723 = t9 * t21 * t166;
1767   t2724 = t2721 * t2723;
1768   t2728 = t18 * t1020 * t69;
1769   t2732 = t21 * t13 * t789;
1770   t2737 = t10 * t326 * t166;
1771   t2738 = t1376 * t501 * t2737;
1772   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1773     v3rho2sigma[0] = -t2182 * t421 / 0.12e2 - t794 * t1007 / 0.2e1 - 0.8246500000000000000e0 * t2187 * t1010 * t330 - 0.3e1 / 0.16e2 * t174 * t2687 - 0.49479000000000000000e1 * t321 * t2690 * t330 - 0.29687400000000000000e2 * t773 * t1010 * t782 + 0.40270806047858128433e2 * t785 * t1010 * t790 + 0.92773125000000000000e0 * t2701 * t430 + 0.22265550000000000000e2 * t2705 * t1024 - 0.30203104535893596324e2 * t2709 * t1032 + 0.22265550000000000000e3 * t2713 * t2716 - 0.31006453520185961314e0 * t2720 * t2724 - 0.25976475000000000000e2 * t1019 * t2728 - 0.25169253779911330270e2 * t1030 * t2732 + 0.60566537364619499997e2 * t426 * t2738;
1774 
1775   t2748 = t1723 * t130;
1776   t2749 = t1038 * t518;
1777   t2752 = t517 * t284;
1778   t2755 = t1156 * t149;
1779   t2756 = t2755 * t287;
1780   t2759 = t475 * t308;
1781   t2760 = t2759 * t287;
1782   t2763 = t1038 * t717;
1783   t2766 = t714 * t475;
1784   t2770 = t284 * t1156;
1785   t2777 = t2260 * t445;
1786   t2779 = t838 * t1066;
1787   t2782 = 0.65e2 / 0.6561e4 * t823;
1788   t2783 = 0.13e2 / 0.1458e4 * t826;
1789   t2784 = t2782 - t2783;
1790   t2785 = t226 * t2784;
1791   t2787 = t1800 * t84;
1792   t2788 = t1056 * t579;
1793   t2791 = t443 * t577;
1794   t2795 = 0.100e3 / 0.243e3 * t800 + t2782 - t2783;
1795   t2799 = t578 * t1062;
1796   t2802 = t239 * t13 * t17 * t182;
1797   t2811 = t1049 * t224;
1798   t2815 = t1792 * t84;
1799   t2818 = t578 * t227;
1800   t2821 = t88 * t1066;
1801   t2822 = t2821 * t239;
1802   t2825 = t1056 * t606;
1803   t2828 = t585 * t1066;
1804   t2829 = t225 * t2828;
1805   t2832 = t1813 * t445;
1806   t2833 = t225 * t2832;
1807   t2836 = t573 * t1062;
1808   t2839 = t2263 * t445;
1809   t2840 = t225 * t2839;
1810   t2843 = -0.2e1 * t573 * t1067 - t2811 * t239 - t1051 * t606 / 0.2e1 + 0.3e1 * t2815 * t1057 + 0.3e1 * t2818 * t1057 + 0.3e1 * t1055 * t2822 + 0.3e1 / 0.2e1 * t1055 * t2825 - 0.20e2 / 0.27e2 * t2829 * t183 - 0.100e3 / 0.243e3 * t2833 * t569 - 0.20e2 / 0.27e2 * t2836 * t183 - 0.20e2 / 0.27e2 * t2840 * t183;
1811   t2844 = -t225 * t2777 - 0.2e1 * t225 * t2779 - t225 * t2785 - 0.15e2 / 0.4e1 * t2787 * t2788 + 0.3e1 / 0.4e1 * t2791 * t579 + t2795 * t92 + 0.110e3 / 0.81e2 * t1063 * t525 + 0.10e2 / 0.9e1 * t2799 * t2802 - t1789 * t446 - 0.2e1 * t573 * t1060 + t2843;
1812   t2852 = t1094 * t1960;
1813   t2855 = t1890 * t453;
1814   t2856 = t2855 * t1971;
1815   t2859 = t453 * t254;
1816   t2860 = t2859 * t650;
1817   t2867 = t453 * t645;
1818   t2876 = t1901 * t448;
1819   t2877 = t2876 * t615;
1820   t2880 = t1077 * t99;
1821   t2883 = t1080 * t609;
1822   t2888 = t1133 * t253;
1823   t2889 = t2888 * t629;
1824   t2898 = t1094 * t1971;
1825   t2901 = 0.822756481972633600e0 * t251 * t2852 + 0.14683899485061986386e1 * t251 * t2856 - 0.42504258063891829882e0 * t2531 * t2860 + 0.476312901339054080e0 * t2510 * t2860 + 0.97972381755974563669e-1 * t2020 * t1091 + 0.31525238188956314657e0 * t2517 * t2867 * t2511 + 0.21252129031945914941e0 * t1964 * t1091 - 0.119078225334763520e0 * t649 * t1116 * t1960 - 0.12751277419167548965e1 * t2877 * t111 - 0.238156450669527040e0 * t2880 * t635 + 0.21252129031945914941e0 * t2883 * t111 - 0.10979019874935515226e0 * t1081 * t265 - 0.238156450669527040e0 * t649 * t2889 - 0.238156450669527040e0 * t649 * t1106 * t650 - 0.32672968537417605163e1 * t640 * t2855 * t2013 + 0.2766001889280e1 * t251 * t2898;
1826   t2902 = t461 * t655;
1827   t2906 = t668 * t1133;
1828   t2916 = t623 * t1069;
1829   t2917 = t2916 * t242;
1830   t2920 = t461 * t263;
1831   t2921 = t1854 * t2920;
1832   t2924 = t250 * t1120;
1833   t2932 = t614 * t1069;
1834   t2939 = t245 * t2844;
1835   t2946 = t1931 * t448;
1836   t2950 = t655 * t1105;
1837   t2951 = t2950 * t629;
1838   t2953 = t1912 * t453;
1839   t2954 = t2953 * t1971;
1840   t2956 = t1101 * t1960;
1841   t2958 = -t2844;
1842   t2959 = t253 * t2958;
1843   t2960 = t2959 * t103;
1844   t2962 = t642 * t1105;
1845   t2963 = t2962 * t629;
1846   t2967 = 0.10708320e2 * t1080 * t2372 - 0.7138880e1 * t2932 * t921 - 0.19111352870400e2 * t2876 * t2372 - 0.3569440e1 * t1073 * t1987 + 0.1784720e1 * t2939 * t108 + 0.6370450956800e1 * t2916 * t921 + 0.3185225478400e1 * t1080 * t1987 + 0.5684735615810048000e1 * t2946 * t2372 + 0.10708320e2 * t2898 - 0.7138880e1 * t2951 - 0.19111352870400e2 * t2954 - 0.3569440e1 * t2956 + 0.1784720e1 * t2960 + 0.6370450956800e1 * t2963 + 0.3185225478400e1 * t2852 + 0.5684735615810048000e1 * t2856;
1847   t2971 = t2946 * t615;
1848   t2986 = 0.238156450669527040e0 * t649 * t2902 * t1971 + 0.650049912832e0 * t106 * t2906 * t263 - 0.42504258063891829882e0 * t1967 * t1091 - 0.42504258063891829882e0 * t1084 * t1972 + 0.476312901339054080e0 * t1074 * t2417 + 0.42504258063891829882e0 * t2917 * t111 + 0.29967321450326855254e0 * t633 * t2921 + 0.29967321450326855254e0 * t2924 * t651 + 0.325024956416e0 * t106 * t1120 * t682 - 0.258304e0 * t106 * t259 * t2967 + 0.97972381755974563669e-1 * t2971 * t111 + 0.461000314880e0 * t2939 * t111 + 0.461000314880e0 * t251 * t2960 + 0.14983660725163427627e0 * t1868 * t454 * t1869 + 0.36614111499190467036e1 * t640 * t2953 * t2013 + 0.14983660725163427627e0 * t1087 * t1855;
1849   t2992 = t634 * t1133;
1850   t2995 = t461 * t642;
1851   t3015 = t2932 * t99;
1852   t3020 = t1863 * t461;
1853   t3030 = -0.922000629760e0 * t1074 * t1908 - 0.119078225334763520e0 * t1087 * t1940 - 0.238156450669527040e0 * t633 * t2992 - 0.21252129031945914941e0 * t649 * t2995 * t1971 + 0.15762619094478157328e0 * t1878 * t2995 * t2013 - 0.61023519165317445059e0 * t640 * t1094 * t1874 + 0.18968792869915364414e1 * t1888 * t2855 * t2425 - 0.12204703833063489012e1 * t640 * t2962 * t891 - 0.4936538891835801600e1 * t251 * t2954 - 0.922000629760e0 * t251 * t2956 - 0.1844001259520e1 * t3015 * t870 - 0.1844001259520e1 * t251 * t2951 - 0.734005159174078464e0 * t106 * t3020 * t669 - 0.119078225334763520e0 * t2026 * t1113 + 0.238156450669527040e0 * t1897 * t1113 - 0.54895099374677576130e-1 * t1851 * t1113;
1854   t3031 = t1080 * t99;
1855   t3039 = t1105 * t103;
1856   t3040 = t628 * t3039;
1857   t3043 = t450 * t639;
1858   t3050 = t1077 * t250;
1859   t3053 = t1073 * t250;
1860   t3056 = t462 * t256;
1861   t3060 = t1943 * t1090 * t263;
1862   t3063 = t1090 * t254;
1863   t3064 = t1970 * t3063;
1864   t3068 = t2012 * t2867 * t254;
1865   t3071 = t2012 * t3063;
1866   t3074 = t1080 * t2458;
1867   t3079 = 0.2766001889280e1 * t3031 * t2547 + 0.1645512963945267200e1 * t251 * t2963 - 0.119078225334763520e0 * t649 * t454 * t1948 + 0.42504258063891829882e0 * t627 * t3040 - 0.28131861550297056947e0 * t3043 * t2014 + 0.37929099725894513314e0 * t1084 * t2017 + 0.21252129031945914941e0 * t1084 * t2023 + 0.42504258063891829882e0 * t3050 * t630 - 0.85008516127783659765e0 * t3053 * t2439 - 0.10979019874935515226e0 * t627 * t3056 - 0.10979019874935515226e0 * t627 * t3060 - 0.85008516127783659765e0 * t627 * t3064 - 0.56263723100594113894e0 * t2011 * t3068 + 0.75858199451789026628e0 * t627 * t3071 + 0.19594476351194912734e0 * t3074 * t2461 - 0.10979019874935515226e0 * t1084 * t1945;
1868   t3082 = my_piecewise3(t96, 0, t2901 + t2986 + t3030 + t3079);
1869   t3083 = my_piecewise3(t95, 0, t3082);
1870   t3085 = -0.2e1 * t1069 * t269 - t2844 * t113 - 0.2e1 * t242 * t1139 - t94 * t3083 - t448 * t688 - t609 * t467;
1871   t3086 = t50 * t3085;
1872   t3089 = t1142 * t123;
1873   t3092 = t470 * t698;
1874   t3095 = t749 * t1146;
1875   t3098 = t470 * t125;
1876   t3099 = t33 * t127;
1877   t3100 = t744 * t3099;
1878   t3106 = t709 * t1141;
1879   t3111 = t2060 * t469;
1880   t3114 = t3086 * t127 / 0.100e3 + t3089 * t1147 / 0.30e2 - t3092 * t711 / 0.108e3 + t1145 * t3095 / 0.60e2 + t3098 * t3100 / 0.54e2 - t280 * t3085 * t127 / 0.100e3 - t3106 * t1147 / 0.90e2 - t1153 * t3095 / 0.180e3 - t3111 * t3100 / 0.324e3;
1881   t3115 = t130 * t3114;
1882   t3134 = -params->c1 * t3085;
1883   t3136 = t1167 * t294;
1884   t3139 = t481 * t730;
1885   t3140 = t744 * t33;
1886   t3143 = t749 * t17;
1887   t3146 = t723 * t13;
1888   t3149 = t726 * t30;
1889   t3150 = t1176 * t469;
1890   t3155 = t1196 * t698;
1891   t3158 = t1141 * t275;
1892   t3159 = t1176 * t3158;
1893   t3162 = t469 * t694;
1894   t3163 = t1176 * t3162;
1895   t3166 = t484 * t3085;
1896   t3169 = -t3134 * t140 - 0.10e2 / 0.9e1 * t3136 * t1170 - 0.50e2 / 0.81e2 * t3139 * t3140 - 0.5e1 / 0.9e1 * t1169 * t3143 + 0.5e1 / 0.9e1 * t3146 * t485 + 0.100e3 / 0.81e2 * t3149 * t3150 + 0.10e2 / 0.9e1 * t1173 * t1181 + 0.500e3 / 0.81e2 * t975 * t3155 + 0.100e3 / 0.81e2 * t293 * t3159 + 0.50e2 / 0.81e2 * t293 * t3163 + 0.5e1 / 0.9e1 * t483 * t3166;
1897   t3174 = t488 * t738;
1898   t3179 = t301 * t1196;
1899   t3183 = t301 * t730 * t1141;
1900   t3186 = t2115 * t469;
1901   t3187 = t754 * t3186;
1902   t3192 = t294 * t3085;
1903   t3195 = t756 * t1141;
1904   t3196 = t754 * t3195;
1905   t3201 = t2130 * t469;
1906   t3202 = t2128 * t3201;
1907   t3206 = my_piecewise3(t138, 0.2e1 * t1184 * t299 * t144 + t488 * t740 * t144 + t3169 * t144 + t3174 * t144, 0.50e2 / 0.27e2 * t3179 * t746 + 0.20e2 / 0.9e1 * t3183 * t305 + 0.50e2 / 0.27e2 * t3187 * t746 + 0.10e2 / 0.9e1 * t1190 * t750 + t301 * t3192 * t146 + 0.10e2 / 0.9e1 * t3196 * t305 + 0.5e1 / 0.9e1 * t1197 * t750 + 0.25e2 / 0.81e2 * t3202 * t746);
1908   t3209 = 0.12e2 * t2748 * t2749 - 0.8e1 * t2752 * t1039 - 0.8e1 * t1037 * t2756 + 0.8e1 * t1037 * t2760 - 0.4e1 * t1037 * t2763 + 0.2e1 * t179 * t2766 * t149 + 0.4e1 * t179 * t2770 * t149 - 0.4e1 * t179 * t1042 * t308 + 0.2e1 * t179 * t3115 * t149 - 0.4e1 * t179 * t1157 * t308 - 0.2e1 * t179 * t476 * t761 + 0.2e1 * t517 * t518 * t493 - t179 * t717 * t493 - 0.2e1 * t179 * t287 * t1201 - t137 * t3206 + 0.1174e1 * t3206;
1909   t3211 = t175 * t3209 * t167;
1910   t3214 = t322 * t1204;
1911   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1912     v3rho2lapl[0] = -t2182 * t498 / 0.12e2 - t794 * t1206 / 0.2e1 - 0.8246500000000000000e0 * t2187 * t1209 * t330 - 0.3e1 / 0.16e2 * t174 * t3211 - 0.49479000000000000000e1 * t321 * t3214 * t330 - 0.29687400000000000000e2 * t773 * t1209 * t782 + 0.40270806047858128433e2 * t785 * t1209 * t790;
1913 
1914   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1915     v3rho2tau[0] = 0.0e0;
1916 
1917   t3232 = t1213 * t308;
1918   t3235 = t1333 * t287;
1919   t3241 = t199 * sigma[0];
1920   t3245 = t35 * t811;
1921   t3249 = t197 * t185;
1922   t3251 = 0.1e1 / t11 / t3249;
1923   t3261 = t64 * t564 * t92;
1924   t3263 = t64 * t9;
1925   t3264 = t40 * t224;
1926   t3266 = t3263 * t3264 * t239;
1927   t3274 = t1236 * t239;
1928   t3277 = t363 * t860;
1929   t3282 = t1251 * t239;
1930   t3288 = t1239 * t231 * t13;
1931   t3291 = t2263 * t358;
1932   t3296 = t585 * t845;
1933   t3301 = t838 * t30;
1934   t3304 = t194 * t199;
1935   t3305 = t3304 * sigma[0];
1936   t3308 = t853 * t187;
1937   t3311 = t1813 * t30;
1938   t3320 = 0.4e1 * t1411 * t845 + 0.20e2 / 0.27e2 * t3288 * t236 - 0.5e1 / 0.9e1 * t3291 * t334 - 0.50e2 / 0.81e2 * t2270 * t855 - 0.5e1 / 0.9e1 * t3296 * t334 + 0.40e2 / 0.27e2 * t1242 * t800 + t3301 * t1246 / 0.2187e4 + 0.40e2 / 0.19683e5 * t585 * t3305 - 0.16e2 / 0.6561e4 * t1245 * t3308 + 0.25e2 / 0.216e3 * t3311 * t853 * t40 * t227 + 0.125e3 / 0.243e3 * t1829 * t3305 - 0.25e2 / 0.81e2 * t596 * t3308;
1939   t3323 = -0.8e1 / 0.6561e4 * t3261 - t3266 / 0.8748e4 - t2239 * t363 + 0.3e1 / 0.2e1 * t2241 * t835 - t830 * t860 + 0.3e1 / 0.4e1 * t1792 * t1236 - 0.15e2 / 0.8e1 * t1800 * t3274 + 0.3e1 / 0.2e1 * t578 * t3277 - t573 * t1251 / 0.2e1 + 0.3e1 / 0.4e1 * t578 * t3282 - t225 * t3320 / 0.2e1;
1940   t3331 = t103 * t931;
1941   t3332 = t372 * t3331;
1942   t3335 = t655 * t1285;
1943   t3336 = t3335 * t629;
1944   t3339 = t1286 * t650;
1945   t3342 = t645 * t902;
1946   t3343 = t890 * t3342;
1947   t3346 = t1890 * t1272;
1948   t3347 = t1893 * t254;
1949   t3348 = t3346 * t3347;
1950   t3351 = t1912 * t1272;
1951   t3352 = t3351 * t629;
1952   t3357 = t886 * t379;
1953   t3358 = t1943 * t3357;
1954   t3361 = t886 * t242;
1955   t3362 = t628 * t3361;
1956   t3367 = t1272 * t645;
1957   t3368 = t2012 * t3367;
1958   t3371 = t668 * t253;
1959   t3372 = t250 * t3371;
1960   t3376 = t379 * t254;
1961   t3377 = t886 * t3376;
1962   t3380 = t1273 * t650;
1963   t3383 = t642 * t1285;
1964   t3384 = t3383 * t629;
1965   t3387 = t1854 * t1293;
1966   t3390 = -0.238156450669527040e0 * t649 * t3332 - 0.922000629760e0 * t251 * t3336 - 0.119078225334763520e0 * t649 * t3339 - 0.12204703833063489012e1 * t640 * t3343 + 0.18968792869915364414e1 * t1888 * t3348 - 0.4936538891835801600e1 * t251 * t3352 - 0.10979019874935515226e0 * t880 * t2557 - 0.10979019874935515226e0 * t627 * t3358 - 0.85008516127783659764e0 * t2437 * t3362 - 0.10979019874935515226e0 * t880 * t2452 - 0.28131861550297056947e0 * t2011 * t3368 + 0.29967321450326855254e0 * t3372 * t886 * t2477 + 0.476312901339054080e0 * t2510 * t3377 - 0.21252129031945914941e0 * t649 * t3380 + 0.822756481972633600e0 * t251 * t3384 + 0.14983660725163427627e0 * t633 * t3387;
1967   t3391 = t1262 * t99;
1968   t3394 = t1272 * t103;
1969   t3395 = t1970 * t3394;
1970   t3403 = t1285 * t103;
1971   t3404 = t628 * t3403;
1972   t3407 = t2012 * t3394;
1973   t3410 = t1265 * t250;
1974   t3415 = t3383 * t891;
1975   t3418 = t890 * t2523;
1976   t3421 = t3346 * t629;
1977   t3424 = t1293 * t253;
1978   t3425 = t3424 * t629;
1979   t3428 = t1259 * t99;
1980   t3431 = t1262 * t250;
1981   t3434 = t1259 * t250;
1982   t3437 = t903 * t1277;
1983   t3440 = -0.119078225334763520e0 * t3391 * t635 - 0.42504258063891829883e0 * t627 * t3395 + 0.31525238188956314657e0 * t2517 * t1442 * t3376 - 0.42504258063891829883e0 * t2531 * t3377 + 0.21252129031945914941e0 * t627 * t3404 + 0.37929099725894513314e0 * t627 * t3407 + 0.97972381755974563669e-1 * t3410 * t630 + 0.42504258063891829882e0 * t2504 * t887 - 0.61023519165317445059e0 * t640 * t3415 + 0.1645512963945267200e1 * t251 * t3418 + 0.14683899485061986386e1 * t251 * t3421 + 0.14983660725163427627e0 * t1868 * t3425 + 0.238156450669527040e0 * t3428 * t635 + 0.21252129031945914941e0 * t3431 * t630 - 0.42504258063891829883e0 * t3434 * t630 - 0.238156450669527040e0 * t649 * t3437;
1984   t3442 = t3346 * t891;
1985   t3445 = t1931 * t1258;
1986   t3446 = t3445 * t242;
1987   t3449 = t1306 * t253;
1988   t3450 = t3449 * t629;
1989   t3453 = t1265 * t99;
1990   t3456 = t869 * t863;
1991   t3461 = t2460 * t373;
1992   t3468 = t614 * t1254;
1993   t3469 = t3468 * t99;
1994   t3472 = t623 * t1254;
1995   t3473 = t3472 * t242;
1996   t3482 = t108 * t863;
1997   t3485 = t1901 * t1258;
1998   t3490 = t245 * t3323;
1999   t3499 = t1273 * t629;
2000   t3501 = t898 * t2523;
2001   t3505 = -t3323;
2002   t3506 = t253 * t3505;
2003   t3507 = t3506 * t103;
2004   t3512 = 0.10708320e2 * t1265 * t921 - 0.7138880e1 * t867 * t3482 - 0.19111352870400e2 * t3485 * t921 - 0.3569440e1 * t3468 * t921 + 0.1784720e1 * t3490 * t108 + 0.3185225478400e1 * t3472 * t921 + 0.6370450956800e1 * t876 * t3482 + 0.5684735615810048000e1 * t3445 * t921 + 0.10708320e2 * t3499 - 0.7138880e1 * t3501 - 0.19111352870400e2 * t3352 - 0.3569440e1 * t3336 + 0.1784720e1 * t3507 + 0.3185225478400e1 * t3384 + 0.6370450956800e1 * t3418 + 0.5684735615810048000e1 * t3421;
2005   t3518 = t379 * t242;
2006   t3519 = t634 * t3518;
2007   t3522 = -0.32672968537417605163e1 * t640 * t3442 + 0.97972381755974563669e-1 * t3446 * t111 - 0.119078225334763520e0 * t649 * t3450 - 0.54895099374677576129e-1 * t3453 * t635 + 0.42504258063891829882e0 * t2546 * t3456 - 0.85008516127783659764e0 * t880 * t2455 + 0.19594476351194912734e0 * t2459 * t3461 - 0.56263723100594113893e0 * t2499 * t2443 + 0.75858199451789026627e0 * t880 * t2448 - 0.922000629760e0 * t3469 * t870 + 0.21252129031945914941e0 * t3473 * t111 - 0.238156450669527040e0 * t883 * t2474 + 0.42504258063891829882e0 * t880 * t2524 - 0.258304e0 * t106 * t259 * t3512 + 0.461000314880e0 * t3490 * t111 + 0.476312901339054080e0 * t868 * t3519;
2008   t3525 = t3351 * t891;
2009   t3528 = t1273 * t1879;
2010   t3537 = t634 * t1306;
2011   t3547 = t3485 * t242;
2012   t3550 = t1863 * t1293;
2013   t3554 = t668 * t1306;
2014   t3558 = t1281 * t650;
2015   t3565 = -0.1844001259520e1 * t251 * t3501 + 0.36614111499190467036e1 * t640 * t3525 + 0.15762619094478157329e0 * t1878 * t3528 - 0.238156450669527040e0 * t2489 * t910 - 0.10979019874935515226e0 * t877 * t381 + 0.29967321450326855254e0 * t883 * t2478 - 0.119078225334763520e0 * t633 * t3537 + 0.650049912832e0 * t106 * t917 * t931 + 0.2766001889280e1 * t3453 * t870 - 0.1844001259520e1 * t868 * t3456 - 0.12751277419167548965e1 * t3547 * t111 - 0.734005159174078464e0 * t106 * t3550 * t263 + 0.325024956416e0 * t106 * t3554 * t263 + 0.238156450669527040e0 * t649 * t3558 + 0.2766001889280e1 * t251 * t3499 + 0.461000314880e0 * t251 * t3507;
2016   t3568 = my_piecewise3(t96, 0, t3390 + t3440 + t3522 + t3565);
2017   t3569 = my_piecewise3(t95, 0, t3568);
2018   t3571 = t3323 * t113 + t1254 * t269 + t242 * t1312 + t94 * t3569 + 0.2e1 * t366 * t937 + 0.2e1 * t863 * t385;
2019   t3572 = t50 * t3571;
2020   t3575 = t1315 * t123;
2021   t3578 = t127 * t943;
2022   t3582 = t194 * t275;
2023   t3583 = t3582 * t127;
2024   t3586 = t1319 * t194;
2025   t3587 = t125 * t275;
2026   t3594 = t709 * t1314;
2027   t3597 = t64 * t3578;
2028   t3600 = t2060 * t1318;
2029   t3603 = -t3572 * t127 / 0.100e3 - t3575 * t1147 / 0.60e2 - t947 * t701 * t3578 / 0.54e2 + 0.5e1 / 0.162e3 * t1319 * t3583 - 0.5e1 / 0.81e2 * t3586 * t3587 * t127 + t280 * t3571 * t127 / 0.100e3 + t3594 * t1147 / 0.180e3 + t955 * t3597 / 0.162e3 + 0.5e1 / 0.486e3 * t3600 * t3583;
2030   t3606 = -t34 * t564 * t45 / 0.27e2 + 0.21e2 / 0.40e2 * t195 * t3241 * t45 - 0.81e2 / 0.800e3 * t541 * t3245 * t549 + 0.2187e4 / 0.256000e6 * t1758 * t196 * t3251 * t1766 + 0.4e1 * t398 * t959 + 0.2e1 * t284 * t1329 + 0.2e1 * t130 * t3603;
2031   t3607 = t3606 * t149;
2032   t3609 = t1332 * t308;
2033   t3614 = t962 * t416;
2034   t3617 = t401 * t1002;
2035   t3622 = params->c1 * t3571;
2036   t3624 = t1338 * t294;
2037   t3639 = t1314 * t275;
2038   t3646 = -t3622 * t140 - 0.10e2 / 0.9e1 * t3624 * t1170 - 0.100e3 / 0.81e2 * t972 * t980 - 0.500e3 / 0.81e2 * t1340 * t731 * t275 - 0.2500e4 / 0.729e3 * t2632 * t1318 * t275 * t18 - 0.1000e4 / 0.243e3 * t975 * t976 * t943 - 0.50e2 / 0.81e2 * t293 * t1176 * t3639 - 0.5e1 / 0.9e1 * t483 * t484 * t3571;
2039   t3655 = t1318 * t194;
2040   t3656 = t3655 * t989;
2041   t3659 = t146 * t943;
2042   t3660 = t64 * t3659;
2043   t3666 = t301 * t730 * t1314;
2044   t3669 = t294 * t3571;
2045   t3672 = t756 * t1314;
2046   t3673 = t754 * t3672;
2047   t3681 = my_piecewise3(t138, t1349 * t299 * t144 + t1351 * t299 * t144 + t3646 * t144 + 0.2e1 * t411 * t983, -0.500e3 / 0.81e2 * t2105 * t3656 - 0.100e3 / 0.81e2 * t988 * t3660 - 0.500e3 / 0.81e2 * t2116 * t3656 - 0.10e2 / 0.9e1 * t3666 * t305 - t301 * t3669 * t146 - 0.5e1 / 0.9e1 * t3673 * t305 - 0.50e2 / 0.81e2 * t998 * t3660 - 0.250e3 / 0.243e3 * t2131 * t3656);
2048   t3684 = 0.6e1 * t1723 * t1214 * t287 - 0.4e1 * t517 * t402 * t962 + 0.2e1 * t517 * t3232 - 0.2e1 * t517 * t3235 + t179 * t3607 - t179 * t3609 + 0.4e1 * t517 * t1335 * t287 - 0.2e1 * t179 * t3614 - 0.2e1 * t179 * t3617 - t179 * t287 * t1364 - t137 * t3681 + 0.1174e1 * t3681;
2049   t3686 = t175 * t3684 * t167;
2050   t3689 = t322 * t1367;
2051   t3693 = t7 * t1005;
2052   t3694 = t424 * t3693;
2053   t3698 = t424 * t1372 * t777;
2054   t3702 = t5 * t1372 * t1028;
2055   t3707 = t2155 * t427;
2056   t3708 = t166 * t10;
2057   t3709 = t3708 * t181;
2058   t3710 = t3707 * t3709;
2059   t3713 = t32 * t1388;
2060   t3715 = t9 * t59 * t166;
2061   t3716 = t3713 * t3715;
2062   t3724 = t5 * t1014 * t1388;
2063   t3727 = 0.1e1 / t35;
2064   t3729 = t3727 * t11 * t2737;
2065   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2066     v3rhosigma2[0] = -t794 * t1369 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t3686 - 0.24739500000000000000e1 * t321 * t3689 * t330 + 0.18554625000000000000e1 * t3694 * t430 + 0.22265550000000000000e2 * t3698 * t1024 - 0.30203104535893596324e2 * t3702 * t1032 - 0.41747906250000000000e1 * t2705 * t1379 - 0.83495812500000000000e2 * t2713 * t3710 + 0.11627420070069735493e0 * t2720 * t3716 - 0.46386562500000000000e0 * t1015 * t1384 + 0.22652328401920197244e2 * t1390 * t1032 + 0.56630821004800493110e1 * t3724 * t1392 - 0.22712451511732312500e2 * t426 * t3729;
2067 
2068   t3734 = t401 * t287;
2069   t3735 = t1038 * t3734;
2070   t3740 = t2755 * t401;
2071   t3743 = t2759 * t401;
2072   t3746 = t1038 * t962;
2073   t3749 = t517 * t398;
2074   t3752 = t959 * t475;
2075   t3756 = t398 * t1156;
2076   t3763 = t1498 * t149;
2077   t3764 = t3763 * t287;
2078   t3767 = t284 * t1498;
2079   t3771 = -0.2e1 * t179 * t1398 * t308 + 0.2e1 * t179 * t3752 * t149 + 0.2e1 * t179 * t3756 * t149 + 0.2e1 * t179 * t3767 * t149 - 0.4e1 * t1037 * t3740 + 0.4e1 * t1037 * t3743 - 0.4e1 * t1037 * t3746 - 0.4e1 * t1037 * t3764 - 0.4e1 * t3749 * t1039 - 0.4e1 * t2752 * t1395 + 0.12e2 * t2748 * t3735;
2080   t3773 = t845 * t88;
2081   t3774 = t3773 * t445;
2082   t3776 = t1411 * t1066;
2083   t3780 = t1056 * t835;
2084   t3783 = t225 * t84;
2085   t3784 = t231 * t194;
2086   t3785 = t3784 * t1220;
2087   t3786 = t3783 * t3785;
2088   t3790 = t2241 * t84;
2089   t3793 = t578 * t358;
2090   t3796 = t75 * t224;
2091   t3798 = t3263 * t3796 * t239;
2092   t3808 = t573 * t585;
2093   t3811 = -t573 * t1412 - t225 * t3774 - t225 * t3776 - t2239 * t446 - t830 * t1060 - 0.15e2 / 0.4e1 * t2787 * t3780 + 0.5e1 / 0.2916e4 * t3786 + 0.3e1 / 0.2e1 * t2818 * t1408 + 0.3e1 / 0.2e1 * t3790 * t1057 + 0.3e1 / 0.2e1 * t3793 * t1057 + t3798 / 0.5184e4 + 0.3e1 / 0.4e1 * t2791 * t835 - t2811 * t363 / 0.2e1 - t1051 * t860 / 0.2e1 + 0.3e1 / 0.2e1 * t2815 * t1408 + 0.5e1 / 0.36e2 * t3808 * t1416;
2094   t3812 = t225 * t2263;
2095   t3815 = t1066 * t13;
2096   t3816 = t3815 * t346;
2097   t3819 = t578 * t226;
2098   t3821 = t64 * t76 * t239;
2099   t3822 = t3819 * t3821;
2100   t3824 = t1415 * t818;
2101   t3827 = t64 * t214;
2102   t3828 = t1419 * t3827;
2103   t3830 = t573 * t226;
2104   t3831 = t3830 * t1420;
2105   t3833 = t225 * t838;
2106   t3834 = t3833 * t1420;
2107   t3838 = t2821 * t363;
2108   t3841 = t1056 * t860;
2109   t3844 = t830 * t1062;
2110   t3847 = t358 * t231;
2111   t3848 = t3847 * t445;
2112   t3849 = t225 * t3848;
2113   t3852 = t333 * t239;
2114   t3853 = t18 * t3852;
2115   t3858 = t363 * t13;
2116   t3859 = t3858 * t17;
2117   t3860 = t3859 * t182;
2118   t3863 = 0.5e1 / 0.36e2 * t3812 * t1416 + 0.5e1 / 0.36e2 * t1414 * t3816 - t3822 / 0.1728e4 - 0.10e2 / 0.27e2 * t1414 * t3824 - 0.13e2 / 0.7776e4 * t3828 + t3831 / 0.2592e4 + t3834 / 0.2592e4 - t830 * t1067 + 0.13e2 / 0.7776e4 * t1233 + 0.3e1 / 0.2e1 * t1055 * t3838 + 0.3e1 / 0.2e1 * t1055 * t3841 - 0.10e2 / 0.27e2 * t3844 * t183 - 0.10e2 / 0.27e2 * t3849 * t183 - 0.5e1 / 0.24e2 * t2799 * t3853 + 0.25e2 / 0.162e3 * t2833 * t826 + 0.5e1 / 0.9e1 * t2799 * t3860;
2119   t3864 = t3811 + t3863;
2120   t3872 = t668 * t1478;
2121   t3878 = -t3864;
2122   t3879 = t253 * t3878;
2123   t3880 = t3879 * t103;
2124   t3888 = t1080 * t863;
2125   t3891 = t461 * t379;
2126   t3892 = t1854 * t3891;
2127   t3903 = 0.325024956416e0 * t106 * t3872 * t263 - 0.54895099374677576130e-1 * t877 * t463 + 0.461000314880e0 * t251 * t3880 + 0.325024956416e0 * t106 * t2906 * t379 - 0.119078225334763520e0 * t1087 * t2474 + 0.21252129031945914941e0 * t3888 * t111 + 0.14983660725163427627e0 * t633 * t3892 + 0.14983660725163427627e0 * t883 * t2921 - 0.922000629760e0 * t1074 * t3456 - 0.922000629760e0 * t3015 * t1427 + 0.21252129031945914941e0 * t1084 * t2524;
2128   t3904 = t1430 * t250;
2129   t3910 = t634 * t461 * t242;
2130   t3913 = t1094 * t2523;
2131   t3916 = t2962 * t886;
2132   t3919 = t2888 * t886;
2133   t3933 = t628 * t1090 * t242;
2134   t3936 = 0.21252129031945914941e0 * t3904 * t630 + 0.21252129031945914941e0 * t3050 * t887 + 0.238156450669527040e0 * t868 * t3910 + 0.822756481972633600e0 * t251 * t3913 + 0.822756481972633600e0 * t251 * t3916 - 0.119078225334763520e0 * t649 * t3919 + 0.14983660725163427627e0 * t2924 * t914 - 0.54895099374677576130e-1 * t1081 * t381 - 0.61023519165317445059e0 * t640 * t1094 * t3342 - 0.61023519165317445059e0 * t640 * t2962 * t1442 - 0.42504258063891829882e0 * t2437 * t3933;
2135   t3942 = t2460 * t455;
2136   t3947 = t110 * t366;
2137   t3948 = t3947 * t256;
2138   t3951 = t366 * t99;
2139   t3952 = t1080 * t3951;
2140   t3955 = t2946 * t366;
2141   t3956 = t2458 * t869;
2142   t3964 = t453 * t371;
2143   t3965 = t3964 * t103;
2144   t3966 = t2012 * t3965;
2145   t3971 = -0.54895099374677576129e-1 * t880 * t3060 - 0.42504258063891829882e0 * t880 * t3064 + 0.97972381755974563669e-1 * t2459 * t3942 - 0.28131861550297056947e0 * t2499 * t3068 - 0.42504258063891829883e0 * t3053 * t3948 + 0.97972381755974563669e-1 * t3952 * t2461 + 0.97972381755974563669e-1 * t3955 * t3956 - 0.119078225334763520e0 * t649 * t1116 * t2523 + 0.14983660725163427627e0 * t1087 * t2478 + 0.37929099725894513314e0 * t627 * t3966 - 0.54895099374677576130e-1 * t880 * t3056;
2146   t3972 = t462 * t373;
2147   t3978 = t2012 * t2867 * t371;
2148   t3981 = t623 * t1423;
2149   t3982 = t3981 * t242;
2150   t3995 = t2916 * t366;
2151   t3998 = t614 * t1423;
2152   t3999 = t3998 * t99;
2153   t4002 = t655 * t1452;
2154   t4003 = t4002 * t629;
2155   t4009 = -0.54895099374677576130e-1 * t627 * t3972 + 0.37929099725894513314e0 * t880 * t3071 - 0.28131861550297056947e0 * t2011 * t3978 + 0.21252129031945914941e0 * t3982 * t111 - 0.119078225334763520e0 * t649 * t454 * t3331 - 0.119078225334763520e0 * t649 * t1106 * t1277 - 0.119078225334763520e0 * t883 * t2992 - 0.119078225334763520e0 * t2880 * t910 + 0.21252129031945914941e0 * t3995 * t111 - 0.922000629760e0 * t3999 * t870 - 0.922000629760e0 * t251 * t4003 - 0.119078225334763520e0 * t649 * t1453 * t650;
2156   t4012 = t250 * t2012;
2157   t4013 = t1090 * t2446;
2158   t4016 = t371 * t263;
2159   t4020 = t110 * t1912;
2160   t4021 = t639 * t4020;
2161   t4022 = t2867 * t2446;
2162   t4025 = t110 * t1890;
2163   t4026 = t1887 * t4025;
2164   t4027 = t453 * t1893;
2165   t4031 = t639 * t4025;
2166   t4037 = t1090 * t3376;
2167   t4044 = t250 * t4020;
2168   t4050 = 0.2766001889280e1 * t4012 * t4013 + 0.15762619094478157329e0 * t2517 * t2867 * t4016 + 0.36614111499190467036e1 * t4021 * t4022 + 0.18968792869915364414e1 * t4026 * t4027 * t2446 - 0.32672968537417605163e1 * t4031 * t4022 + 0.14983660725163427627e0 * t3372 * t1090 * t2477 + 0.238156450669527040e0 * t2510 * t4037 + 0.21252129031945914941e0 * t2504 * t1091 + 0.21252129031945914941e0 * t880 * t3040 - 0.4936538891835801600e1 * t4044 * t4013 + 0.15762619094478157328e0 * t2517 * t2867 * t3376;
2169   t4053 = t1090 * t4016;
2170   t4056 = t1452 * t103;
2171   t4057 = t628 * t4056;
2172   t4062 = t250 * t4025;
2173   t4065 = t250 * t462;
2174   t4068 = t639 * t462;
2175   t4075 = t634 * t1478;
2176   t4078 = t1101 * t2523;
2177   t4081 = t245 * t3864;
2178   t4084 = -0.21252129031945914941e0 * t2531 * t4037 + 0.238156450669527040e0 * t2510 * t4053 + 0.21252129031945914941e0 * t627 * t4057 - 0.21252129031945914941e0 * t2531 * t4053 + 0.14683899485061986386e1 * t4062 * t4013 + 0.238156450669527040e0 * t4065 * t899 + 0.15762619094478157328e0 * t4068 * t892 - 0.21252129031945914941e0 * t4065 * t907 + 0.14983660725163427627e0 * t2924 * t895 - 0.119078225334763520e0 * t633 * t4075 - 0.922000629760e0 * t251 * t4078 + 0.461000314880e0 * t4081 * t111;
2179   t4086 = t2950 * t886;
2180   t4089 = t642 * t1452;
2181   t4090 = t4089 * t629;
2182   t4097 = t1943 * t1090 * t379;
2183   t4100 = t1970 * t3965;
2184   t4115 = -0.922000629760e0 * t251 * t4086 + 0.822756481972633600e0 * t251 * t4090 - 0.61023519165317445059e0 * t640 * t4089 * t891 - 0.54895099374677576130e-1 * t627 * t4097 - 0.42504258063891829883e0 * t627 * t4100 - 0.42504258063891829882e0 * t3053 * t3362 - 0.54895099374677576129e-1 * t1084 * t2452 - 0.42504258063891829882e0 * t1084 * t2455 + 0.97972381755974563669e-1 * t3074 * t3461 - 0.28131861550297056947e0 * t3043 * t2443 + 0.37929099725894513314e0 * t1084 * t2448;
2185   t4118 = t1478 * t253;
2186   t4119 = t4118 * t629;
2187   t4124 = t106 * t1863;
2188   t4125 = t3891 * t263;
2189   t4128 = t366 * t263;
2190   t4129 = t634 * t4128;
2191   t4135 = t366 * t242;
2192   t4136 = t869 * t4135;
2193   t4139 = t2876 * t242;
2194   t4140 = t106 * t3947;
2195   t4145 = t1468 * t242;
2196   t4166 = t1094 * t2447;
2197   t4169 = t2953 * t2447;
2198   t4177 = t2855 * t2447;
2199   t4179 = 0.10708320e2 * t1080 * t4145 - 0.3569440e1 * t2932 * t1468 - 0.19111352870400e2 * t2876 * t4145 - 0.3569440e1 * t1073 * t3482 - 0.3569440e1 * t3998 * t921 + 0.1784720e1 * t4081 * t108 + 0.3185225478400e1 * t3981 * t921 + 0.3185225478400e1 * t2916 * t1468 + 0.3185225478400e1 * t1080 * t3482 + 0.5684735615810048000e1 * t2946 * t4145 + 0.10708320e2 * t4166 - 0.3569440e1 * t4086 - 0.19111352870400e2 * t4169 - 0.3569440e1 * t4078 - 0.3569440e1 * t4003 + 0.1784720e1 * t3880 + 0.3185225478400e1 * t4090 + 0.3185225478400e1 * t3916 + 0.3185225478400e1 * t3913 + 0.5684735615810048000e1 * t4177;
2200   t4183 = t1430 * t99;
2201   t4188 = -0.54895099374677576130e-1 * t1084 * t2557 - 0.119078225334763520e0 * t649 * t4119 - 0.119078225334763520e0 * t2489 * t1113 - 0.734005159174078464e0 * t4124 * t4125 + 0.238156450669527040e0 * t1074 * t4129 + 0.325024956416e0 * t106 * t1120 * t931 + 0.2766001889280e1 * t3031 * t4136 - 0.12751277419167548965e1 * t4139 * t4140 - 0.54895099374677576129e-1 * t1433 * t265 - 0.258304e0 * t106 * t259 * t4179 - 0.119078225334763520e0 * t4183 * t635 + 0.238156450669527040e0 * t1074 * t3519;
2202   t4192 = my_piecewise3(t96, 0, t3903 + t3936 + t3971 + t4009 + t4050 + t4084 + t4115 + t4188);
2203   t4193 = my_piecewise3(t95, 0, t4192);
2204   t4195 = -t1069 * t385 - t3864 * t113 - t366 * t1139 - t1423 * t269 - t242 * t1484 - t94 * t4193 - t448 * t937 - t863 * t467;
2205   t4196 = t50 * t4195;
2206   t4199 = t1487 * t123;
2207   t4204 = t470 * t275;
2208   t4206 = t64 * t391 * t127;
2209   t4209 = t993 * t1146;
2210   t4212 = t125 * t391;
2211   t4213 = t470 * t4212;
2212   t4219 = t709 * t1486;
2213   t4226 = t2060 * t1517;
2214   t4229 = t4196 * t127 / 0.100e3 + t4199 * t1147 / 0.60e2 + t3089 * t1490 / 0.60e2 - t4204 * t4206 / 0.108e3 + t1145 * t4209 / 0.60e2 + t4213 * t956 / 0.54e2 - t280 * t4195 * t127 / 0.100e3 - t4219 * t1147 / 0.180e3 - t3106 * t1490 / 0.180e3 - t1153 * t4209 / 0.180e3 - t4226 * t956 / 0.324e3;
2215   t4230 = t130 * t4229;
2216   t4237 = t475 * t416;
2217   t4238 = t4237 * t287;
2218   t4253 = t962 * t493;
2219   t4255 = t401 * t1201;
2220   t4260 = -params->c1 * t4195;
2221   t4262 = t1509 * t294;
2222   t4267 = t391 * t30;
2223   t4268 = t33 * t275;
2224   t4269 = t4267 * t4268;
2225   t4272 = t993 * t17;
2226   t4275 = t969 * t13;
2227   t4282 = t391 * t275;
2228   t4286 = t1141 * t391;
2229   t4290 = t469 * t943;
2230   t4291 = t1176 * t4290;
2231   t4296 = t1486 * t275;
2232   t4297 = t1176 * t4296;
2233   t4300 = t484 * t4195;
2234   t4303 = -t4260 * t140 - 0.5e1 / 0.9e1 * t4262 * t1170 - 0.5e1 / 0.9e1 * t3136 * t1511 - 0.50e2 / 0.81e2 * t3139 * t4269 - 0.5e1 / 0.9e1 * t1169 * t4272 + 0.5e1 / 0.9e1 * t4275 * t485 + 0.100e3 / 0.81e2 * t972 * t1178 + 0.5e1 / 0.9e1 * t1514 * t1181 + 0.500e3 / 0.81e2 * t975 * t1196 * t4282 + 0.50e2 / 0.81e2 * t293 * t1176 * t4286 + 0.50e2 / 0.81e2 * t293 * t4291 + 0.5e1 / 0.9e1 * t1173 * t1521 + 0.50e2 / 0.81e2 * t293 * t4297 + 0.5e1 / 0.9e1 * t483 * t4300;
2235   t4307 = t1184 * t410;
2236   t4309 = t488 * t983;
2237   t4315 = t146 * t391 * t64 * t275;
2238   t4325 = t301 * t730 * t1486;
2239   t4328 = t294 * t4195;
2240   t4331 = t756 * t1486;
2241   t4332 = t754 * t4331;
2242   t4342 = my_piecewise3(t138, t1524 * t299 * t144 + t4303 * t144 + t4307 * t144 + t4309 * t144 + t1526 * t300, 0.50e2 / 0.27e2 * t3179 * t4315 + 0.10e2 / 0.9e1 * t3183 * t413 + 0.50e2 / 0.27e2 * t3187 * t4315 + 0.10e2 / 0.9e1 * t1190 * t994 + 0.10e2 / 0.9e1 * t4325 * t305 + t301 * t4328 * t146 + 0.5e1 / 0.9e1 * t4332 * t305 + 0.5e1 / 0.9e1 * t3196 * t413 + 0.5e1 / 0.9e1 * t1197 * t994 + 0.25e2 / 0.81e2 * t3202 * t4315);
2243   t4345 = 0.2e1 * t179 * t4230 * t149 - 0.2e1 * t179 * t1499 * t308 + 0.4e1 * t1037 * t4238 - 0.2e1 * t179 * t1042 * t416 - 0.2e1 * t179 * t1157 * t416 - 0.2e1 * t179 * t476 * t1002 + 0.2e1 * t517 * t1506 * t287 - t179 * t4253 - t179 * t4255 - t179 * t287 * t1537 - t137 * t4342 + 0.1174e1 * t4342;
2244   t4346 = t3771 + t4345;
2245   t4348 = t175 * t4346 * t167;
2246   t4351 = t322 * t1540;
2247   t4355 = t7 * t1204;
2248   t4356 = t424 * t4355;
2249   t4360 = t424 * t1545 * t777;
2250   t4364 = t5 * t1545 * t1028;
2251   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2252     v3rhosigmalapl[0] = -t794 * t1542 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t4348 - 0.24739500000000000000e1 * t321 * t4351 * t330 + 0.92773125000000000000e0 * t4356 * t430 + 0.11132775000000000000e2 * t4360 * t1024 - 0.15101552267946798162e2 * t4364 * t1032;
2253 
2254   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2255     v3rhosigmatau[0] = 0.0e0;
2256 
2257   t4369 = t1723 * t131;
2258   t4370 = t1554 * t287;
2259   t4376 = t517 * t131;
2260   t4377 = t1038 * t1156;
2261   t4387 = t1549 * t308;
2262   t4390 = t1647 * t149;
2263   t4391 = t4390 * t287;
2264   t4394 = t284 * t1647;
2265   t4399 = t69 * t224;
2266   t4405 = t2791 * t84;
2267   t4410 = t1051 * t1062;
2268   t4417 = t1800 * t85;
2269   t4418 = t594 * t1563;
2270   t4419 = t4418 * t239;
2271   t4422 = t4418 * t227;
2272   t4426 = t1829 * t1563;
2273   t4427 = t578 * t4426;
2274   t4430 = t578 * t85;
2275   t4431 = t594 * t445;
2276   t4432 = t4431 * t1066;
2277   t4436 = t1567 * t239;
2278   t4439 = t1056 * t1066;
2279   t4442 = t1563 * t231;
2280   t4443 = t225 * t4442;
2281   t4449 = t64 * t1557 * t239;
2282   t4454 = 0.1e1 / t527;
2283   t4455 = t4454 * sigma[0];
2284   t4456 = t3784 * t4455;
2285   t4460 = 0.20e2 / 0.9e1 * t4427 * t183 + 0.6e1 * t4430 * t4432 - t573 * t1567 + 0.3e1 / 0.2e1 * t578 * t4436 - 0.2e1 * t225 * t4439 - 0.10e2 / 0.27e2 * t4443 * t183 - t3830 * t1569 / 0.1458e4 + t3819 * t4449 / 0.972e3 - t3833 * t1569 / 0.1458e4 - 0.20e2 / 0.6561e4 * t3783 * t4456 + 0.5e1 / 0.2187e4 * t1421;
2286   t4461 = -0.5e1 / 0.2187e4 * t1403 - t3263 * t4399 * t239 / 0.2916e4 - 0.2e1 * t2811 * t446 + 0.3e1 * t4405 * t1057 - 0.2e1 * t1051 * t1060 - 0.20e2 / 0.27e2 * t4410 * t183 - 0.2e1 * t1051 * t1067 + 0.3e1 * t1792 * t1564 - 0.15e2 / 0.2e1 * t4417 * t4419 + 0.6e1 * t1055 * t4422 + t4460;
2287   t4472 = t1931 * t1576;
2288   t4473 = t4472 * t242;
2289   t4476 = t1583 * t99;
2290   t4479 = t1577 * t99;
2291   t4482 = t1901 * t1576;
2292   t4486 = -t4461;
2293   t4487 = t253 * t4486;
2294   t4488 = t4487 * t103;
2295   t4493 = t1577 * t250;
2296   t4496 = t623 * t1572;
2297   t4497 = t4496 * t242;
2298   t4500 = t634 * t1624;
2299   t4515 = 0.650049912832e0 * t106 * t1120 * t1133 + 0.97972381755974563669e-1 * t4473 * t111 - 0.54895099374677576129e-1 * t4476 * t635 + 0.238156450669527040e0 * t4479 * t635 - 0.12751277419167548965e1 * t4482 * t242 * t111 + 0.461000314880e0 * t251 * t4488 + 0.42504258063891829882e0 * t3050 * t1091 - 0.42504258063891829883e0 * t4493 * t630 + 0.21252129031945914941e0 * t4497 * t111 - 0.119078225334763520e0 * t633 * t4500 - 0.85008516127783659764e0 * t3053 * t3933 - 0.10979019874935515226e0 * t1084 * t3060 - 0.85008516127783659764e0 * t1084 * t3064 + 0.19594476351194912734e0 * t3074 * t3942 - 0.56263723100594113893e0 * t3043 * t3068 + 0.75858199451789026627e0 * t1084 * t3071;
2300   t4519 = t1943 * t1090 * t461;
2301   t4527 = t1863 * t1611;
2302   t4531 = t614 * t1572;
2303   t4532 = t4531 * t99;
2304   t4537 = t869 * t1069;
2305   t4542 = t108 * t1069;
2306   t4549 = t245 * t4461;
2307   t4558 = t1591 * t629;
2308   t4560 = t1101 * t3039;
2309   t4562 = t1912 * t1590;
2310   t4563 = t4562 * t629;
2311   t4565 = t655 * t1603;
2312   t4566 = t4565 * t629;
2313   t4569 = t642 * t1603;
2314   t4570 = t4569 * t629;
2315   t4572 = t1094 * t3039;
2316   t4574 = t1890 * t1590;
2317   t4575 = t4574 * t629;
2318   t4577 = 0.10708320e2 * t1583 * t921 - 0.7138880e1 * t1073 * t4542 - 0.19111352870400e2 * t4482 * t921 - 0.3569440e1 * t4531 * t921 + 0.1784720e1 * t4549 * t108 + 0.3185225478400e1 * t4496 * t921 + 0.6370450956800e1 * t1080 * t4542 + 0.5684735615810048000e1 * t4472 * t921 + 0.10708320e2 * t4558 - 0.7138880e1 * t4560 - 0.19111352870400e2 * t4563 - 0.3569440e1 * t4566 + 0.1784720e1 * t4488 + 0.3185225478400e1 * t4570 + 0.6370450956800e1 * t4572 + 0.5684735615810048000e1 * t4575;
2319   t4581 = t1580 * t99;
2320   t4586 = t103 * t1133;
2321   t4593 = t1854 * t1611;
2322   t4602 = -0.10979019874935515226e0 * t1084 * t3056 - 0.10979019874935515226e0 * t627 * t4519 - 0.238156450669527040e0 * t1087 * t2992 + 0.15762619094478157329e0 * t1878 * t1591 * t1879 - 0.734005159174078464e0 * t106 * t4527 * t263 - 0.922000629760e0 * t4532 * t870 + 0.2766001889280e1 * t4476 * t870 + 0.42504258063891829882e0 * t3031 * t4537 - 0.258304e0 * t106 * t259 * t4577 - 0.119078225334763520e0 * t4581 * t635 - 0.238156450669527040e0 * t2880 * t1113 - 0.238156450669527040e0 * t649 * t454 * t4586 - 0.238156450669527040e0 * t649 * t1106 * t1595 + 0.14983660725163427627e0 * t633 * t4593 + 0.18968792869915364414e1 * t1888 * t4574 * t3347 - 0.32672968537417605163e1 * t640 * t4574 * t891;
2323   t4604 = t645 * t1105;
2324   t4608 = t1590 * t103;
2325   t4609 = t2012 * t4608;
2326   t4612 = t1970 * t4608;
2327   t4615 = t1603 * t103;
2328   t4616 = t628 * t4615;
2329   t4619 = t1590 * t645;
2330   t4620 = t2012 * t4619;
2331   t4626 = t461 * t254;
2332   t4627 = t1090 * t4626;
2333   t4637 = t1580 * t250;
2334   t4640 = t1583 * t250;
2335   t4645 = t668 * t1624;
2336   t4654 = -0.12204703833063489012e1 * t640 * t1094 * t4604 + 0.37929099725894513314e0 * t627 * t4609 - 0.42504258063891829883e0 * t627 * t4612 + 0.21252129031945914941e0 * t627 * t4616 - 0.28131861550297056947e0 * t2011 * t4620 + 0.29967321450326855254e0 * t3372 * t1090 * t2920 + 0.476312901339054080e0 * t2510 * t4627 + 0.31525238188956314657e0 * t2517 * t2867 * t4626 - 0.42504258063891829883e0 * t2531 * t4627 + 0.42504258063891829882e0 * t1084 * t3040 + 0.21252129031945914941e0 * t4637 * t630 + 0.97972381755974563669e-1 * t4640 * t630 + 0.476312901339054080e0 * t1074 * t3910 + 0.325024956416e0 * t106 * t4645 * t263 + 0.36614111499190467036e1 * t640 * t4562 * t891 - 0.922000629760e0 * t251 * t4566;
2337   t4683 = t1611 * t253;
2338   t4687 = t1624 * t253;
2339   t4688 = t4687 * t629;
2340   t4695 = -0.119078225334763520e0 * t649 * t1604 * t650 - 0.4936538891835801600e1 * t251 * t4563 - 0.10979019874935515226e0 * t1081 * t463 - 0.1844001259520e1 * t251 * t4560 + 0.2766001889280e1 * t251 * t4558 + 0.238156450669527040e0 * t649 * t1599 * t650 + 0.1645512963945267200e1 * t251 * t4572 + 0.14683899485061986386e1 * t251 * t4575 - 0.21252129031945914941e0 * t649 * t1591 * t650 - 0.61023519165317445059e0 * t640 * t4569 * t891 + 0.822756481972633600e0 * t251 * t4570 + 0.461000314880e0 * t4549 * t111 + 0.14983660725163427627e0 * t1868 * t4683 * t629 - 0.119078225334763520e0 * t649 * t4688 - 0.1844001259520e1 * t1074 * t4537 + 0.29967321450326855254e0 * t1087 * t2921;
2341   t4698 = my_piecewise3(t96, 0, t4515 + t4602 + t4654 + t4695);
2342   t4699 = my_piecewise3(t95, 0, t4698);
2343   t4701 = -0.2e1 * t1069 * t467 - t4461 * t113 - 0.2e1 * t448 * t1139 - t1572 * t269 - t242 * t1630 - t94 * t4699;
2344   t4702 = t50 * t4701;
2345   t4705 = t1633 * t123;
2346   t4708 = t1638 * t1141;
2347   t4714 = t1637 * t125;
2348   t4720 = t709 * t1632;
2349   t4726 = t2060 * t1636;
2350   t4729 = t4702 * t127 / 0.100e3 + t4705 * t1147 / 0.60e2 - 0.3e1 / 0.50e2 * t470 * t4708 + t1637 * t275 * t277 / 0.60e2 - t4714 * t1147 / 0.30e2 - t280 * t4701 * t127 / 0.100e3 - t4720 * t1147 / 0.180e3 + t709 * t472 * t1141 / 0.50e2 + t4726 * t1147 / 0.180e3;
2351   t4730 = t130 * t4729;
2352   t4737 = t475 * t493;
2353   t4738 = t4737 * t287;
2354   t4753 = -params->c1 * t4701;
2355   t4755 = t1656 * t294;
2356   t4760 = t1177 * t18;
2357   t4767 = t33 * t756;
2358   t4768 = t1636 * t275;
2359   t4769 = t4767 * t4768;
2360   t4773 = t1660 * t469 * t1141;
2361   t4778 = t1632 * t275;
2362   t4779 = t1176 * t4778;
2363   t4782 = t484 * t4701;
2364   t4785 = -t4753 * t140 - 0.5e1 / 0.9e1 * t4755 * t1170 + 0.2e1 * t1167 * t490 + 0.20e2 / 0.9e1 * t3139 * t4760 + 0.2e1 * t481 * t1193 - 0.10e2 / 0.9e1 * t1173 * t1661 - 0.50e2 / 0.27e2 * t293 * t4769 - 0.20e2 / 0.9e1 * t483 * t4773 + 0.5e1 / 0.9e1 * t1173 * t1664 + 0.50e2 / 0.81e2 * t293 * t4779 + 0.5e1 / 0.9e1 * t483 * t4782;
2365   t4794 = t301 * t1679;
2366   t4797 = t469 * t146;
2367   t4798 = t4797 * t1141;
2368   t4801 = t2115 * t1636;
2369   t4802 = t754 * t4801;
2370   t4806 = t301 * t730 * t1632;
2371   t4809 = t294 * t4701;
2372   t4812 = t756 * t1632;
2373   t4813 = t754 * t4812;
2374   t4818 = t2130 * t1636;
2375   t4819 = t2128 * t4818;
2376   t4823 = my_piecewise3(t138, t1667 * t299 * t144 + t1669 * t299 * t144 + 0.2e1 * t489 * t1184 + t4785 * t144, -0.10e2 / 0.3e1 * t4794 * t305 - 0.4e1 * t743 * t4798 - 0.10e2 / 0.3e1 * t4802 * t305 + 0.10e2 / 0.9e1 * t4806 * t305 + t301 * t4809 * t146 + 0.5e1 / 0.9e1 * t4813 * t305 - 0.2e1 * t757 * t4798 - 0.5e1 / 0.9e1 * t4819 * t305);
2377   t4826 = 0.24e2 * t4369 * t4370 - 0.16e2 * t1037 * t1554 * t284 - 0.16e2 * t4376 * t4377 + 0.8e1 * t517 * t1550 * t308 - 0.4e1 * t517 * t4370 + 0.4e1 * t179 * t4377 - 0.2e1 * t179 * t4387 - 0.4e1 * t1037 * t4391 + 0.2e1 * t179 * t4394 * t149 + 0.2e1 * t179 * t4730 * t149 - 0.2e1 * t179 * t1648 * t308 + 0.8e1 * t1037 * t4738 - 0.4e1 * t179 * t1042 * t493 - 0.4e1 * t179 * t1157 * t493 - 0.4e1 * t179 * t476 * t1201 - t179 * t287 * t1683 - t137 * t4823 + 0.1174e1 * t4823;
2378   t4828 = t175 * t4826 * t167;
2379   t4831 = t322 * t1686;
2380   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2381     v3rholapl2[0] = -t794 * t1688 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t4828 - 0.24739500000000000000e1 * t321 * t4831 * t330;
2382 
2383   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2384     v3rholapltau[0] = 0.0e0;
2385 
2386   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2387     v3rhotau2[0] = 0.0e0;
2388 
2389   t4835 = t1213 * t401;
2390   t4836 = t4835 * t149;
2391   t4842 = t1213 * t416;
2392   t4853 = 0.1e1 / t11 / t1750;
2393   t4861 = t3263 * t3264 * t363;
2394   t4867 = t1236 * t363;
2395   t4870 = t363 * t1251;
2396   t4873 = t1411 * t30;
2397   t4878 = t1813 * t358;
2398   t4881 = t194 * t340;
2399   t4886 = t4873 * t1246 / 0.729e3 - 0.5e1 / 0.6e1 * t3288 * t346 + 0.25e2 / 0.72e2 * t4878 * t3827 - 0.5e1 / 0.2187e4 * t585 * t4881 - 0.125e3 / 0.648e3 * t1829 * t4881;
2400   t4889 = -t4861 / 0.2916e4 + 0.9e1 / 0.4e1 * t2241 * t1236 - 0.3e1 / 0.2e1 * t830 * t1251 - 0.15e2 / 0.8e1 * t1800 * t4867 + 0.9e1 / 0.4e1 * t578 * t4870 - t225 * t4886 / 0.2e1;
2401   t4895 = t1272 * t371;
2402   t4896 = t1890 * t4895;
2403   t4897 = t4896 * t103;
2404   t4902 = t869 * t1254;
2405   t4905 = t642 * t4895;
2406   t4906 = t4905 * t103;
2407   t4909 = t1273 * t1277;
2408   t4912 = t103 * t1306;
2409   t4913 = t372 * t4912;
2410   t4916 = t1258 * t366;
2411   t4917 = t1931 * t4916;
2412   t4920 = t1901 * t4916;
2413   t4926 = t3472 * t366;
2414   t4936 = t1912 * t4895;
2415   t4937 = t4936 * t103;
2416   t4940 = t623 * t4916;
2417   t4943 = t645 * t1285;
2418   t4944 = t890 * t4943;
2419   t4947 = t1286 * t1277;
2420   t4950 = t645 * t379;
2421   t4951 = t1273 * t4950;
2422   t4956 = 0.14683899485061986386e1 * t251 * t4897 + 0.714469352008581120e0 * t3428 * t910 - 0.2766001889280e1 * t868 * t4902 + 0.2766001889280e1 * t251 * t4906 - 0.63756387095837744824e0 * t649 * t4909 - 0.357234676004290560e0 * t649 * t4913 + 0.97972381755974563669e-1 * t4917 * t111 - 0.12751277419167548965e1 * t4920 * t111 + 0.975074869248e0 * t106 * t917 * t1306 + 0.63756387095837744823e0 * t4926 * t111 + 0.18968792869915364414e1 * t1888 * t4896 * t1893 - 0.12751277419167548965e1 * t880 * t3395 - 0.32937059624806545678e0 * t880 * t3358 - 0.4936538891835801600e1 * t251 * t4937 + 0.2766001889280e1 * t4940 * t111 - 0.18307055749595233518e1 * t640 * t4944 - 0.357234676004290560e0 * t649 * t4947 + 0.47287857283434471986e0 * t1878 * t4951 - 0.16468529812403272839e0 * t3453 * t910;
2423   t4957 = t3383 * t886;
2424   t4979 = -t4889;
2425   t4980 = t253 * t4979;
2426   t4981 = t4980 * t103;
2427   t4987 = t1293 * t379;
2428   t4991 = t1281 * t1277;
2429   t4994 = t103 * t1293;
2430   t4995 = t372 * t4994;
2431   t5000 = t245 * t4889;
2432   t5003 = t898 * t3403;
2433   t5008 = t108 * t1254;
2434   t5025 = 0.10708320e2 * t4940 * t108 - 0.10708320e2 * t867 * t5008 - 0.19111352870400e2 * t4920 * t108 + 0.1784720e1 * t5000 * t108 + 0.9555676435200e1 * t3472 * t1468 + 0.5684735615810048000e1 * t4917 * t108 + 0.10708320e2 * t4906 - 0.10708320e2 * t5003 - 0.19111352870400e2 * t4937 + 0.1784720e1 * t4981 + 0.9555676435200e1 * t4957 + 0.5684735615810048000e1 * t4897;
2435   t5029 = 0.2468269445917900800e1 * t251 * t4957 + 0.36614111499190467036e1 * t640 * t4936 * t645 - 0.357234676004290560e0 * t883 * t3537 - 0.84395584650891170840e0 * t2499 * t3368 + 0.11378729917768353994e1 * t880 * t3407 + 0.63756387095837744823e0 * t3431 * t887 + 0.29391714526792369101e0 * t3410 * t887 + 0.63756387095837744823e0 * t880 * t3404 - 0.12751277419167548965e1 * t3434 * t887 - 0.357234676004290560e0 * t3391 * t910 + 0.461000314880e0 * t251 * t4981 - 0.32672968537417605163e1 * t640 * t4896 * t645 - 0.734005159174078464e0 * t106 * t1863 * t4987 + 0.714469352008581120e0 * t649 * t4991 + 0.44950982175490282881e0 * t1868 * t4995 + 0.44950982175490282881e0 * t883 * t3387 + 0.461000314880e0 * t5000 * t111 - 0.2766001889280e1 * t251 * t5003 - 0.258304e0 * t106 * t259 * t5025;
2436   t5031 = my_piecewise3(t96, 0, t4956 + t5029);
2437   t5032 = my_piecewise3(t95, 0, t5031);
2438   t5034 = t4889 * t113 + 0.3e1 * t1254 * t385 + 0.3e1 * t366 * t1312 + t94 * t5032;
2439   t5035 = t50 * t5034;
2440   t5040 = t1318 * t391;
2441   t5041 = t50 * t5040;
2442   t5051 = t5040 * t194;
2443   t5052 = t5051 * t127;
2444   t5055 = -t5035 * t127 / 0.100e3 - t3575 * t1490 / 0.20e2 + 0.5e1 / 0.162e3 * t5041 * t2047 - 0.5e1 / 0.81e2 * t5041 * t2051 + t280 * t5034 * t127 / 0.100e3 + t3594 * t1490 / 0.60e2 + 0.5e1 / 0.486e3 * t2060 * t5052;
2445   t5058 = -0.27e2 / 0.320e3 * t195 * t340 * t45 + 0.729e3 / 0.25600e5 * t541 * sigma[0] * t1225 * t549 - 0.6561e4 / 0.2048000e7 * t1758 * t35 * t4853 * t1766 + 0.6e1 * t398 * t1329 + 0.2e1 * t130 * t5055;
2446   t5059 = t5058 * t149;
2447   t5061 = t1332 * t416;
2448   t5064 = t401 * t1364;
2449   t5067 = params->c1 * t5034;
2450   t5071 = params->c1 * t5040;
2451   t5074 = t756 * t5040;
2452   t5078 = t139 * t731;
2453   t5079 = t16 * t1314;
2454   t5080 = t4267 * t5079;
2455   t5083 = t1314 * t391;
2456   t5090 = -t5067 * t140 - 0.10e2 / 0.3e1 * t3624 * t1511 - 0.500e3 / 0.81e2 * t5071 * t731 - 0.2500e4 / 0.729e3 * t975 * t5074 * t18 - 0.100e3 / 0.81e2 * t5078 * t5080 - 0.50e2 / 0.81e2 * t293 * t1176 * t5083 - 0.5e1 / 0.9e1 * t483 * t484 * t5034;
2457   t5092 = t1349 * t410;
2458   t5095 = t1351 * t410;
2459   t5098 = t5051 * t146;
2460   t5101 = t146 * t1314;
2461   t5102 = t18 * t5101;
2462   t5107 = t294 * t5034;
2463   t5115 = my_piecewise3(t138, t5090 * t144 + 0.3e1 * t5092 * t144 + t5095 * t144, -0.500e3 / 0.81e2 * t2105 * t5098 - 0.10e2 / 0.3e1 * t988 * t5102 - 0.500e3 / 0.81e2 * t2116 * t5098 - t301 * t5107 * t146 - 0.5e1 / 0.3e1 * t3673 * t413 - 0.250e3 / 0.243e3 * t2131 * t5098);
2464   t5118 = 0.6e1 * t1723 * t4836 - 0.6e1 * t517 * t402 * t1332 + 0.6e1 * t517 * t4842 + t179 * t5059 - 0.3e1 * t179 * t5061 - 0.3e1 * t179 * t5064 - t137 * t5115 + 0.1174e1 * t5115;
2465   t5120 = t175 * t5118 * t167;
2466   t5123 = t7 * t1367;
2467   t5124 = t424 * t5123;
2468   t5132 = t5 * t1372 * t1388;
2469   t5135 = t2155 * t1028;
2470   t5136 = t3708 * t23;
2471   t5137 = t5135 * t5136;
2472   t5141 = t18 * t3727 * t1378;
2473   t5145 = 0.1e1 / t156 / t196;
2474   t5146 = t32 * t5145;
2475   t5148 = t9 * t22 * t166;
2476   t5149 = t5146 * t5148;
2477   t5154 = t327 * t154 * t1388 * t166;
2478   t5158 = t5 * t425 * t5145;
2479   t5161 = 0.1e1 / t196;
2480   t5163 = t5161 * t158 * t2737;
2481   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2482     v3sigma3[0] = -0.3e1 / 0.16e2 * t174 * t5120 + 0.27831937500000000000e1 * t5124 * t430 - 0.12524371875000000000e2 * t3698 * t1379 - 0.13915968750000000000e1 * t1373 * t1384 + 0.16989246301440147933e2 * t5132 * t1392 + 0.31310929687500000000e2 * t2713 * t5137 + 0.62621859375000000000e1 * t1019 * t5141 - 0.43602825262761508097e-1 * t2720 * t5149 + 0.69579843750000000000e0 * t426 * t5154 - 0.16989246301440147934e2 * t5158 * t1392 + 0.85171693168996171873e1 * t426 * t5163;
2483 
2484   t5166 = t1038 * t1213;
2485   t5171 = t3763 * t401;
2486   t5174 = t4237 * t401;
2487   t5177 = t1038 * t1332;
2488   t5180 = t1329 * t475;
2489   t5184 = t398 * t1498;
2490   t5199 = t1056 * t1251;
2491   t5202 = t3784 * t4454;
2492   t5203 = t3783 * t5202;
2493   t5205 = t224 * t84;
2494   t5206 = t5205 * t1056;
2495   t5207 = t3827 * t5206;
2496   t5209 = t830 * t226;
2497   t5210 = t5209 * t1420;
2498   t5212 = t225 * t64;
2499   t5213 = t214 * t1056;
2500   t5214 = t5212 * t5213;
2501   t5216 = t225 * t1411;
2502   t5217 = t5216 * t1420;
2503   t5219 = t830 * t585;
2504   t5223 = t64 * t76 * t363;
2505   t5224 = t3819 * t5223;
2506   t5227 = t3263 * t3796 * t363;
2507   t5231 = t225 * t3847;
2508   t5234 = t225 * t1813;
2509   t5235 = t445 * t30;
2510   t5236 = t5235 * t1246;
2511   t5239 = t1056 * t1236;
2512   t5242 = t3858 * t346;
2513   t5245 = -t1051 * t1251 / 0.2e1 - 0.2e1 * t830 * t1412 + 0.3e1 / 0.4e1 * t2791 * t1236 + 0.3e1 * t3793 * t1408 + 0.3e1 / 0.2e1 * t1055 * t5199 - 0.5e1 / 0.3888e4 * t5203 - t5207 / 0.4374e4 + t5210 / 0.1296e4 - t5214 / 0.4374e4 + t5217 / 0.1296e4 + 0.5e1 / 0.18e2 * t5219 * t1416 - t5224 / 0.864e3 + t5227 / 0.2592e4 + 0.3e1 * t3790 * t1408 + 0.5e1 / 0.18e2 * t5231 * t1416 - 0.25e2 / 0.432e3 * t5234 * t5236 - 0.15e2 / 0.4e1 * t2787 * t5239 - 0.5e1 / 0.12e2 * t2799 * t5242;
2514   t5253 = t869 * t1258;
2515   t5256 = t2876 * t1258;
2516   t5263 = t4002 * t886;
2517   t5266 = t2946 * t1258;
2518   t5269 = t245 * t5245;
2519   t5284 = t2953 * t3394;
2520   t5290 = t4089 * t886;
2521   t5293 = t366 * t379;
2522   t5294 = t634 * t5293;
2523   t5297 = 0.2766001889280e1 * t3031 * t5253 - 0.12751277419167548965e1 * t5256 * t111 - 0.238156450669527040e0 * t4183 * t910 + 0.29967321450326855254e0 * t883 * t3892 - 0.1844001259520e1 * t251 * t5263 + 0.97972381755974563669e-1 * t5266 * t111 + 0.461000314880e0 * t5269 * t111 - 0.54895099374677576130e-1 * t3453 * t1113 - 0.922000629760e0 * t1074 * t4902 - 0.21252129031945914941e0 * t649 * t2995 * t3394 + 0.238156450669527040e0 * t3428 * t1113 - 0.32672968537417605163e1 * t640 * t2855 * t3367 - 0.4936538891835801600e1 * t251 * t5284 - 0.119078225334763520e0 * t649 * t454 * t4912 + 0.1645512963945267200e1 * t251 * t5290 + 0.476312901339054080e0 * t1074 * t5294;
2524   t5298 = t1101 * t3403;
2525   t5301 = t1893 * t1272;
2526   t5305 = t3981 * t366;
2527   t5308 = t4118 * t886;
2528   t5311 = t1080 * t1254;
2529   t5320 = t371 * t379;
2530   t5339 = -0.922000629760e0 * t251 * t5298 + 0.18968792869915364414e1 * t1888 * t2855 * t5301 + 0.42504258063891829882e0 * t5305 * t111 - 0.238156450669527040e0 * t649 * t5308 + 0.21252129031945914941e0 * t5311 * t111 + 0.21252129031945914941e0 * t3431 * t1091 + 0.42504258063891829882e0 * t880 * t4057 + 0.97972381755974563669e-1 * t3410 * t1091 + 0.31525238188956314657e0 * t2517 * t2867 * t5320 + 0.42504258063891829882e0 * t3904 * t887 + 0.21252129031945914941e0 * t1084 * t3404 - 0.28131861550297056947e0 * t3043 * t3368 + 0.37929099725894513314e0 * t1084 * t3407 - 0.1844001259520e1 * t3999 * t1427 + 0.14983660725163427627e0 * t1087 * t3387 - 0.61023519165317445059e0 * t640 * t1094 * t4943;
2531   t5347 = -t5245;
2532   t5348 = t253 * t5347;
2533   t5349 = t5348 * t103;
2534   t5354 = t1090 * t5320;
2535   t5359 = t1094 * t3403;
2536   t5367 = t108 * t1258;
2537   t5384 = t1094 * t3394;
2538   t5392 = t2855 * t3394;
2539   t5394 = 0.10708320e2 * t1080 * t5367 - 0.7138880e1 * t3998 * t1468 - 0.19111352870400e2 * t2876 * t5367 - 0.3569440e1 * t1073 * t5008 + 0.1784720e1 * t5269 * t108 + 0.6370450956800e1 * t3981 * t1468 + 0.3185225478400e1 * t1080 * t5008 + 0.5684735615810048000e1 * t2946 * t5367 + 0.10708320e2 * t5384 - 0.7138880e1 * t5263 - 0.19111352870400e2 * t5284 - 0.3569440e1 * t5298 + 0.1784720e1 * t5349 + 0.6370450956800e1 * t5290 + 0.3185225478400e1 * t5359 + 0.5684735615810048000e1 * t5392;
2540   t5407 = t3947 * t373;
2541   t5412 = -0.12204703833063489012e1 * t640 * t4089 * t1442 - 0.734005159174078464e0 * t106 * t3020 * t1293 + 0.461000314880e0 * t251 * t5349 + 0.29967321450326855254e0 * t2924 * t1278 + 0.476312901339054080e0 * t2510 * t5354 - 0.42504258063891829882e0 * t2531 * t5354 + 0.822756481972633600e0 * t251 * t5359 - 0.119078225334763520e0 * t1087 * t3537 - 0.238156450669527040e0 * t649 * t1453 * t1277 - 0.258304e0 * t106 * t259 * t5394 - 0.42504258063891829882e0 * t1084 * t3395 - 0.42504258063891829882e0 * t3434 * t1091 - 0.119078225334763520e0 * t3391 * t1113 + 0.325024956416e0 * t106 * t1120 * t1306 - 0.85008516127783659765e0 * t3053 * t5407 - 0.238156450669527040e0 * t883 * t4075;
2542   t5451 = 0.2766001889280e1 * t251 * t5384 - 0.119078225334763520e0 * t649 * t1116 * t3403 + 0.14683899485061986386e1 * t251 * t5392 + 0.238156450669527040e0 * t649 * t2902 * t3394 + 0.14983660725163427627e0 * t1868 * t454 * t4994 - 0.10979019874935515226e0 * t880 * t3972 - 0.10979019874935515226e0 * t880 * t4097 - 0.85008516127783659765e0 * t880 * t4100 - 0.56263723100594113894e0 * t2499 * t3978 + 0.75858199451789026628e0 * t880 * t3966 + 0.19594476351194912734e0 * t3952 * t3461 - 0.10979019874935515226e0 * t1084 * t3358 + 0.15762619094478157328e0 * t1878 * t2995 * t3367 - 0.10979019874935515226e0 * t1433 * t381 + 0.650049912832e0 * t106 * t3872 * t379 + 0.36614111499190467036e1 * t640 * t2953 * t3367;
2543   t5454 = my_piecewise3(t96, 0, t5297 + t5339 + t5412 + t5451);
2544   t5455 = my_piecewise3(t95, 0, t5454);
2545   t5457 = -t5245 * t113 - t1254 * t467 - t448 * t1312 - 0.2e1 * t1423 * t385 - 0.2e1 * t366 * t1484 - t94 * t5455;
2546   t5458 = t50 * t5457;
2547   t5463 = t470 * t1318;
2548   t5467 = t123 * t1314 * t127;
2549   t5470 = t1354 * t3099;
2550   t5478 = t469 * t1314;
2551   t5484 = t5458 * t127 / 0.100e3 + t4199 * t1490 / 0.30e2 - t5463 * t711 / 0.108e3 + 0.3e1 / 0.100e3 * t470 * t5467 + t3098 * t5470 / 0.54e2 - t280 * t5457 * t127 / 0.100e3 - t4219 * t1490 / 0.90e2 - t709 * t5478 * t127 / 0.100e3 - t3111 * t5470 / 0.324e3;
2552   t5485 = t130 * t5484;
2553   t5495 = t1213 * t493;
2554   t5498 = t1332 * t493;
2555   t5500 = t401 * t1537;
2556   t5504 = -params->c1 * t5457;
2557   t5508 = t1354 * t33;
2558   t5513 = t1340 * t30;
2559   t5521 = t1486 * t391;
2560   t5528 = t484 * t5457;
2561   t5531 = -t5504 * t140 - 0.10e2 / 0.9e1 * t4262 * t1511 - 0.50e2 / 0.81e2 * t3139 * t5508 - t481 * t1358 + t1338 * t490 + 0.100e3 / 0.81e2 * t5513 * t3150 + 0.10e2 / 0.9e1 * t1514 * t1521 + 0.500e3 / 0.81e2 * t975 * t1196 * t1318 + 0.100e3 / 0.81e2 * t293 * t1176 * t5521 + 0.10e2 / 0.9e1 * t483 * t1660 * t5478 + 0.5e1 / 0.9e1 * t483 * t5528;
2562   t5533 = t1524 * t410;
2563   t5536 = t488 * t1349;
2564   t5538 = t488 * t1351;
2565   t5547 = t4797 * t1314;
2566   t5550 = t294 * t5457;
2567   t5559 = my_piecewise3(t138, t5531 * t144 + 0.2e1 * t5533 * t144 + t5536 * t144 + t5538 * t144, 0.50e2 / 0.27e2 * t3179 * t1355 + 0.20e2 / 0.9e1 * t4325 * t413 + 0.50e2 / 0.27e2 * t3187 * t1355 + 0.2e1 * t743 * t5547 + t301 * t5550 * t146 + 0.10e2 / 0.9e1 * t4332 * t413 + t757 * t5547 + 0.25e2 / 0.81e2 * t3202 * t1355);
2568   t5562 = 0.12e2 * t2748 * t5166 - 0.8e1 * t3749 * t1395 - 0.8e1 * t1037 * t5171 + 0.8e1 * t1037 * t5174 - 0.4e1 * t1037 * t5177 + 0.2e1 * t179 * t5180 * t149 + 0.4e1 * t179 * t5184 * t149 - 0.4e1 * t179 * t1398 * t416 + 0.2e1 * t179 * t5485 * t149 - 0.4e1 * t179 * t1499 * t416 - 0.2e1 * t179 * t476 * t1364 + 0.2e1 * t517 * t5495 - t179 * t5498 - 0.2e1 * t179 * t5500 - t137 * t5559 + 0.1174e1 * t5559;
2569   t5564 = t175 * t5562 * t167;
2570   t5567 = t7 * t1540;
2571   t5568 = t424 * t5567;
2572   t5576 = t5 * t1545 * t1388;
2573   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2574     v3sigma2lapl[0] = -0.3e1 / 0.16e2 * t174 * t5564 + 0.18554625000000000000e1 * t5568 * t430 - 0.41747906250000000000e1 * t4360 * t1379 - 0.46386562500000000000e0 * t1546 * t1384 + 0.56630821004800493110e1 * t5576 * t1392;
2575 
2576   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2577     v3sigma2tau[0] = 0.0e0;
2578 
2579   t5579 = t1554 * t401;
2580   t5582 = t1554 * t398;
2581   t5585 = t1038 * t1498;
2582   t5595 = t1549 * t416;
2583   t5598 = t4390 * t401;
2584   t5601 = t398 * t1647;
2585   t5608 = t1420 * t5206;
2586   t5614 = t1051 * t585;
2587   t5617 = t1051 * t226;
2588   t5618 = t5617 * t1420;
2589   t5622 = t4418 * t363;
2590   t5625 = t4418 * t358;
2591   t5628 = t578 * t1829;
2592   t5629 = t1563 * t13;
2593   t5630 = t5629 * t346;
2594   t5633 = t578 * t595;
2595   t5634 = t853 * t75;
2596   t5635 = t5235 * t5634;
2597   t5636 = t5633 * t5635;
2598   t5639 = t1567 * t363;
2599   t5642 = t225 * t1056;
2600   t5643 = t5642 * t1420;
2601   t5650 = t64 * t1557 * t363;
2602   t5655 = 0.1e1 / t185;
2603   t5656 = t3784 * t5655;
2604   t5659 = -t3263 * t4399 * t363 / 0.2916e4 + t5608 / 0.1296e4 + 0.3e1 * t4405 * t1408 - 0.2e1 * t1051 * t1412 + 0.5e1 / 0.18e2 * t5614 * t1416 + t5618 / 0.1296e4 + 0.3e1 * t2241 * t1564 - 0.15e2 / 0.2e1 * t4417 * t5622 + 0.6e1 * t1055 * t5625 - 0.5e1 / 0.6e1 * t5628 * t5630 - t5636 / 0.432e3 - t830 * t1567 + 0.3e1 / 0.2e1 * t578 * t5639 + t5643 / 0.1296e4 + 0.5e1 / 0.36e2 * t4443 * t334 - t5209 * t1569 / 0.1458e4 + t3819 * t5650 / 0.972e3 - t5216 * t1569 / 0.1458e4 + 0.5e1 / 0.4374e4 * t3783 * t5656;
2605   t5667 = t245 * t5659;
2606   t5673 = t4569 * t886;
2607   t5676 = t4565 * t886;
2608   t5685 = t4562 * t886;
2609   t5688 = -t5659;
2610   t5689 = t253 * t5688;
2611   t5690 = t5689 * t103;
2612   t5696 = t1101 * t4056;
2613   t5699 = t869 * t1423;
2614   t5702 = t1094 * t4056;
2615   t5705 = t4574 * t886;
2616   t5715 = 0.461000314880e0 * t5667 * t111 - 0.238156450669527040e0 * t649 * t1453 * t1595 + 0.822756481972633600e0 * t251 * t5673 - 0.922000629760e0 * t251 * t5676 - 0.61023519165317445059e0 * t640 * t4569 * t1442 - 0.119078225334763520e0 * t649 * t1604 * t1277 - 0.4936538891835801600e1 * t251 * t5685 + 0.461000314880e0 * t251 * t5690 + 0.325024956416e0 * t106 * t4645 * t379 - 0.1844001259520e1 * t251 * t5696 + 0.42504258063891829882e0 * t3031 * t5699 + 0.1645512963945267200e1 * t251 * t5702 + 0.14683899485061986386e1 * t251 * t5705 - 0.922000629760e0 * t4532 * t1427 - 0.21252129031945914941e0 * t649 * t1591 * t1277 - 0.54895099374677576129e-1 * t4476 * t910;
2617   t5720 = t103 * t1478;
2618   t5724 = t4687 * t886;
2619   t5743 = t628 * t1090 * t366;
2620   t5754 = 0.238156450669527040e0 * t4479 * t910 - 0.119078225334763520e0 * t883 * t4500 - 0.238156450669527040e0 * t649 * t454 * t5720 - 0.119078225334763520e0 * t649 * t5724 + 0.14983660725163427627e0 * t1868 * t4683 * t886 - 0.238156450669527040e0 * t1087 * t4075 + 0.19594476351194912734e0 * t3952 * t3942 - 0.56263723100594113893e0 * t3043 * t3978 + 0.75858199451789026627e0 * t1084 * t3966 - 0.10979019874935515226e0 * t1084 * t3972 - 0.10979019874935515226e0 * t880 * t4519 - 0.85008516127783659764e0 * t3053 * t5743 - 0.10979019874935515226e0 * t1084 * t4097 - 0.85008516127783659764e0 * t1084 * t4100 + 0.2766001889280e1 * t4476 * t1427 + 0.29967321450326855254e0 * t1087 * t3892;
2621   t5756 = t461 * t366;
2622   t5757 = t634 * t5756;
2623   t5767 = t645 * t1452;
2624   t5771 = t1893 * t371;
2625   t5775 = t4482 * t366;
2626   t5793 = t461 * t371;
2627   t5794 = t1090 * t5793;
2628   t5800 = 0.476312901339054080e0 * t1074 * t5757 - 0.32672968537417605163e1 * t640 * t4574 * t1442 - 0.119078225334763520e0 * t4581 * t910 - 0.238156450669527040e0 * t4183 * t1113 - 0.12204703833063489012e1 * t640 * t1094 * t5767 + 0.18968792869915364414e1 * t1888 * t4574 * t5771 - 0.12751277419167548965e1 * t5775 * t111 - 0.42504258063891829883e0 * t880 * t4612 + 0.21252129031945914941e0 * t880 * t4616 + 0.37929099725894513314e0 * t880 * t4609 + 0.42504258063891829882e0 * t3904 * t1091 + 0.42504258063891829882e0 * t1084 * t4057 - 0.28131861550297056947e0 * t2499 * t4620 + 0.29967321450326855254e0 * t3372 * t1090 * t3891 + 0.476312901339054080e0 * t2510 * t5794 + 0.31525238188956314657e0 * t2517 * t2867 * t5793;
2629   t5822 = t1591 * t886;
2630   t5825 = t4496 * t366;
2631   t5830 = t108 * t1423;
2632   t5853 = 0.10708320e2 * t1583 * t1468 - 0.7138880e1 * t1073 * t5830 - 0.19111352870400e2 * t4482 * t1468 - 0.3569440e1 * t4531 * t1468 + 0.1784720e1 * t5667 * t108 + 0.3185225478400e1 * t4496 * t1468 + 0.6370450956800e1 * t1080 * t5830 + 0.5684735615810048000e1 * t4472 * t1468 + 0.10708320e2 * t5822 - 0.7138880e1 * t5696 - 0.19111352870400e2 * t5685 - 0.3569440e1 * t5676 + 0.1784720e1 * t5690 + 0.3185225478400e1 * t5673 + 0.6370450956800e1 * t5702 + 0.5684735615810048000e1 * t5705;
2633   t5865 = t4472 * t366;
2634   t5868 = -0.42504258063891829883e0 * t2531 * t5794 - 0.42504258063891829883e0 * t4493 * t887 + 0.21252129031945914941e0 * t4637 * t887 + 0.97972381755974563669e-1 * t4640 * t887 + 0.15762619094478157329e0 * t1878 * t1591 * t4950 + 0.36614111499190467036e1 * t640 * t4562 * t1442 - 0.10979019874935515226e0 * t1433 * t463 - 0.1844001259520e1 * t1074 * t5699 + 0.238156450669527040e0 * t649 * t1599 * t1277 + 0.2766001889280e1 * t251 * t5822 + 0.21252129031945914941e0 * t5825 * t111 - 0.258304e0 * t106 * t259 * t5853 + 0.650049912832e0 * t106 * t1120 * t1478 - 0.734005159174078464e0 * t106 * t4527 * t379 + 0.14983660725163427627e0 * t883 * t4593 + 0.97972381755974563669e-1 * t5865 * t111;
2635   t5871 = my_piecewise3(t96, 0, t5715 + t5754 + t5800 + t5868);
2636   t5872 = my_piecewise3(t95, 0, t5871);
2637   t5874 = -t5659 * t113 - 0.2e1 * t1423 * t467 - 0.2e1 * t448 * t1484 - t1572 * t385 - t366 * t1630 - t94 * t5872;
2638   t5875 = t50 * t5874;
2639   t5880 = t1638 * t1486;
2640   t5898 = t5875 * t127 / 0.100e3 + t4705 * t1490 / 0.60e2 - 0.3e1 / 0.50e2 * t470 * t5880 + t1637 * t391 * t277 / 0.60e2 - t4714 * t1490 / 0.30e2 - t280 * t5874 * t127 / 0.100e3 - t4720 * t1490 / 0.180e3 + t709 * t472 * t1486 / 0.50e2 + t4726 * t1490 / 0.180e3;
2641   t5899 = t130 * t5898;
2642   t5906 = t4737 * t401;
2643   t5918 = t401 * t1683;
2644   t5921 = -params->c1 * t5874;
2645   t5927 = t1517 * t18;
2646   t5934 = t1636 * t391;
2647   t5939 = t1660 * t469 * t1486;
2648   t5944 = t1632 * t391;
2649   t5948 = t484 * t5874;
2650   t5951 = -t5921 * t140 - 0.5e1 / 0.9e1 * t4755 * t1511 + 0.2e1 * t1509 * t490 + 0.20e2 / 0.9e1 * t3139 * t5927 + 0.2e1 * t481 * t1531 - 0.10e2 / 0.9e1 * t1514 * t1661 - 0.50e2 / 0.27e2 * t293 * t4767 * t5934 - 0.20e2 / 0.9e1 * t483 * t5939 + 0.5e1 / 0.9e1 * t1514 * t1664 + 0.50e2 / 0.81e2 * t293 * t1176 * t5944 + 0.5e1 / 0.9e1 * t483 * t5948;
2651   t5953 = t1667 * t410;
2652   t5957 = t1669 * t410;
2653   t5962 = t4797 * t1486;
2654   t5969 = t294 * t5874;
2655   t5979 = my_piecewise3(t138, t5951 * t144 + t5953 * t144 + t5957 * t144 + 0.2e1 * t489 * t1524, -0.10e2 / 0.3e1 * t4794 * t413 - 0.4e1 * t743 * t5962 - 0.10e2 / 0.3e1 * t4802 * t413 + 0.10e2 / 0.9e1 * t4806 * t413 + t301 * t5969 * t146 + 0.5e1 / 0.9e1 * t4813 * t413 - 0.2e1 * t757 * t5962 - 0.5e1 / 0.9e1 * t4819 * t413);
2656   t5982 = 0.24e2 * t4369 * t5579 - 0.16e2 * t1037 * t5582 - 0.16e2 * t4376 * t5585 + 0.8e1 * t517 * t1550 * t416 - 0.4e1 * t517 * t5579 + 0.4e1 * t179 * t5585 - 0.2e1 * t179 * t5595 - 0.4e1 * t1037 * t5598 + 0.2e1 * t179 * t5601 * t149 + 0.2e1 * t179 * t5899 * t149 - 0.2e1 * t179 * t1648 * t416 + 0.8e1 * t1037 * t5906 - 0.4e1 * t179 * t1398 * t493 - 0.4e1 * t179 * t1499 * t493 - 0.4e1 * t179 * t476 * t1537 - t179 * t5918 - t137 * t5979 + 0.1174e1 * t5979;
2657   t5984 = t175 * t5982 * t167;
2658   t5987 = t7 * t1686;
2659   t5988 = t424 * t5987;
2660   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2661     v3sigmalapl2[0] = -0.3e1 / 0.16e2 * t174 * t5984 + 0.92773125000000000000e0 * t5988 * t430;
2662 
2663   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2664     v3sigmalapltau[0] = 0.0e0;
2665 
2666   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2667     v3sigmatau2[0] = 0.0e0;
2668 
2669   t5991 = t131 * t130;
2670   t5992 = t1549 * t475;
2671   t5993 = t5991 * t5992;
2672   t5997 = t130 * t5992;
2673   t6001 = t1038 * t1647;
2674   t6009 = t1549 * t493;
2675   t6020 = t85 * t84;
2676   t6022 = 0.1e1 / t593 / t87;
2677   t6023 = t6020 * t6022;
2678   t6024 = t1563 * t445;
2679   t6025 = t6023 * t6024;
2680   t6028 = t1813 * t6024;
2681   t6031 = t853 * t69;
2682   t6032 = t5235 * t6031;
2683   t6037 = -t1569 * t5206 / 0.486e3 + 0.9e1 * t2791 * t1564 - 0.3e1 * t1051 * t1567 - t5617 * t1569 / 0.486e3 - 0.15e2 * t1800 * t6025 + 0.9e1 * t578 * t6028 + t5633 * t6032 / 0.162e3 - t5642 * t1569 / 0.486e3;
2684   t6043 = t1576 * t448;
2685   t6044 = t1901 * t6043;
2686   t6054 = t1590 * t453;
2687   t6055 = t1890 * t6054;
2688   t6059 = t1912 * t6054;
2689   t6063 = -t6037;
2690   t6064 = t253 * t6063;
2691   t6065 = t6064 * t103;
2692   t6068 = t869 * t1572;
2693   t6071 = t1931 * t6043;
2694   t6074 = t6055 * t103;
2695   t6077 = t245 * t6037;
2696   t6080 = t1101 * t4615;
2697   t6083 = t623 * t6043;
2698   t6090 = t108 * t1572;
2699   t6097 = t448 * t108;
2700   t6102 = t642 * t6054;
2701   t6103 = t6102 * t103;
2702   t6106 = t6059 * t103;
2703   t6109 = t4569 * t1090;
2704   t6112 = 0.10708320e2 * t6083 * t108 - 0.10708320e2 * t1073 * t6090 - 0.19111352870400e2 * t6044 * t108 + 0.1784720e1 * t6077 * t108 + 0.9555676435200e1 * t4496 * t6097 + 0.5684735615810048000e1 * t6071 * t108 + 0.10708320e2 * t6103 - 0.10708320e2 * t6080 - 0.19111352870400e2 * t6106 + 0.1784720e1 * t6065 + 0.9555676435200e1 * t6109 + 0.5684735615810048000e1 * t6074;
2705   t6116 = t645 * t1603;
2706   t6120 = t645 * t461;
2707   t6129 = -0.12751277419167548965e1 * t6044 * t111 + 0.714469352008581120e0 * t4479 * t1113 + 0.975074869248e0 * t106 * t1120 * t1624 - 0.357234676004290560e0 * t1087 * t4500 + 0.18968792869915364414e1 * t1888 * t6055 * t1893 + 0.36614111499190467036e1 * t640 * t6059 * t645 + 0.461000314880e0 * t251 * t6065 - 0.2766001889280e1 * t1074 * t6068 + 0.97972381755974563669e-1 * t6071 * t111 + 0.14683899485061986386e1 * t251 * t6074 + 0.461000314880e0 * t6077 * t111 - 0.2766001889280e1 * t251 * t6080 + 0.2766001889280e1 * t6083 * t111 - 0.357234676004290560e0 * t4581 * t1113 - 0.258304e0 * t106 * t259 * t6112 - 0.18307055749595233518e1 * t640 * t1094 * t6116 + 0.47287857283434471986e0 * t1878 * t1591 * t6120 - 0.32672968537417605163e1 * t640 * t6055 * t645 - 0.4936538891835801600e1 * t251 * t6106;
2708   t6130 = t1611 * t461;
2709   t6138 = t4496 * t448;
2710   t6162 = t103 * t1611;
2711   t6169 = t103 * t1624;
2712   t6170 = t454 * t6169;
2713   t6178 = -0.734005159174078464e0 * t106 * t1863 * t6130 + 0.2766001889280e1 * t251 * t6103 - 0.16468529812403272839e0 * t4476 * t1113 + 0.63756387095837744823e0 * t6138 * t111 + 0.2468269445917900800e1 * t251 * t6109 + 0.29391714526792369101e0 * t4640 * t1091 + 0.63756387095837744823e0 * t1084 * t4616 - 0.12751277419167548965e1 * t1084 * t4612 - 0.84395584650891170840e0 * t3043 * t4620 + 0.11378729917768353994e1 * t1084 * t4609 - 0.12751277419167548965e1 * t4493 * t1091 + 0.63756387095837744823e0 * t4637 * t1091 + 0.44950982175490282881e0 * t1087 * t4593 - 0.63756387095837744824e0 * t649 * t1591 * t1595 + 0.44950982175490282881e0 * t1868 * t454 * t6162 + 0.714469352008581120e0 * t649 * t1599 * t1595 - 0.357234676004290560e0 * t649 * t6170 - 0.357234676004290560e0 * t649 * t1604 * t1595 - 0.32937059624806545678e0 * t1084 * t4519;
2714   t6180 = my_piecewise3(t96, 0, t6129 + t6178);
2715   t6181 = my_piecewise3(t95, 0, t6180);
2716   t6183 = -t6037 * t113 - 0.3e1 * t1572 * t467 - 0.3e1 * t448 * t1630 - t94 * t6181;
2717   t6184 = t50 * t6183;
2718   t6188 = t123 * t469 * t127;
2719   t6191 = t1636 * t469;
2720   t6192 = t50 * t6191;
2721   t6195 = t125 * t127;
2722   t6201 = t1632 * t469;
2723   t6208 = t6184 * t127 / 0.100e3 - 0.9e1 / 0.100e3 * t1633 * t6188 - 0.3e1 / 0.100e3 * t6192 * t127 + 0.3e1 / 0.50e2 * t6192 * t6195 - t280 * t6183 * t127 / 0.100e3 + 0.3e1 / 0.100e3 * t709 * t6201 * t127 - t2060 * t6191 * t127 / 0.100e3;
2724   t6209 = t130 * t6208;
2725   t6220 = -params->c1 * t6183;
2726   t6228 = t17 * t756;
2727   t6229 = t6228 * t6191;
2728   t6232 = t1660 * t6201;
2729   t6235 = t484 * t6183;
2730   t6238 = -t6220 * t140 + 0.3e1 * t1656 * t490 - 0.6e1 * t481 * t1672 + 0.3e1 * t481 * t1676 + 0.10e2 / 0.3e1 * t483 * t6229 - 0.10e2 / 0.3e1 * t483 * t6232 + 0.5e1 / 0.9e1 * t483 * t6235;
2731   t6240 = t1667 * t488;
2732   t6243 = t1669 * t488;
2733   t6246 = t756 * t6191;
2734   t6250 = t4797 * t1632;
2735   t6253 = t2115 * t6191;
2736   t6257 = t294 * t6183;
2737   t6262 = t2130 * t6191;
2738   t6266 = my_piecewise3(t138, t6238 * t144 + 0.3e1 * t6240 * t144 + t6243 * t144, t2128 * t6262 * t146 + 0.6e1 * t301 * t6246 * t146 + t301 * t6257 * t146 + 0.6e1 * t754 * t6253 * t146 - 0.6e1 * t743 * t6250 - 0.3e1 * t757 * t6250);
2739   t6269 = 0.48e2 * t1723 * t5993 * t149 - 0.24e2 * t517 * t5997 * t149 - 0.24e2 * t4376 * t6001 + 0.24e2 * t517 * t1550 * t493 + 0.6e1 * t179 * t6001 - 0.6e1 * t179 * t6009 + 0.2e1 * t179 * t6209 * t149 - 0.6e1 * t179 * t1648 * t493 - 0.6e1 * t179 * t476 * t1683 - t137 * t6266 + 0.1174e1 * t6266;
2740   t6271 = t175 * t6269 * t167;
2741   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2742     v3lapl3[0] = -0.3e1 / 0.16e2 * t174 * t6271;
2743 
2744   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2745     v3lapl2tau[0] = 0.0e0;
2746 
2747   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2748     v3lapltau2[0] = 0.0e0;
2749 
2750   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2751     v3tau3[0] = 0.0e0;
2752 
2753 #ifndef XC_DONT_COMPILE_LXC
2754 
2755   if(order < 4) return;
2756 
2757 
2758   t6279 = t176 / t1721 / t132;
2759   t6280 = t518 * t518;
2760   t6290 = t717 * t717;
2761   t6304 = 0.1e1 / t21 / t185;
2762   t6305 = t19 * t6304;
2763   t6306 = t18 * t6305;
2764   t6309 = 0.1e1 / t11 / t198;
2765   t6314 = 0.1e1 / t543;
2766   t6320 = 0.1e1 / t21 / t3249;
2767   t6325 = t1760 * rho[0];
2768   t6333 = t193 * t193;
2769   t6335 = t1757 * t29 / t6333;
2770   t6343 = t714 * t714;
2771   t6349 = 0.13090e5 / 0.729e3 * t6306;
2772   t6356 = 0.9880e4 / 0.59049e5 * t64 * t66 * t529;
2773   t6359 = 0.2717e4 / 0.6561e4 * t73 * t1834 * lapl[0];
2774   t6362 = 0.41800e5 / 0.177147e6 * t64 * t36 * t6309;
2775   t6365 = t1787 * t224;
2776   t6368 = t571 * t577;
2777   t6373 = t221 * t1799;
2778   t6380 = t575 * t575;
2779   t6383 = t83 / t91 / t6380;
2780   t6384 = t579 * t579;
2781   t6390 = t606 * t606;
2782   t6396 = t582 * t594;
2783   t6397 = t6396 * t30;
2784   t6409 = t590 * t590;
2785   t6417 = t84 * t1828;
2786   t6428 = t85 * t6022;
2787   t6439 = t10 * t6304;
2788   t6449 = 0.400e3 / 0.81e2 * t6397 * t599 + 0.80e2 / 0.9e1 * t2263 * t1818 * t236 - 0.440e3 / 0.27e2 * t1810 * t603 + 0.400e3 / 0.81e2 * t1813 * t590 * t30 * t599 + 0.6e1 * t6409 * t88 + 0.8e1 * t838 * t1824 + 0.2e1 * t226 * (t6356 - t6359 + t6362) + 0.64000e5 / 0.2187e4 * t6417 * t227 * t1831 - 0.176000e6 / 0.2187e4 * t1829 * t1830 * t6314 + 0.80e2 / 0.27e2 * t585 * t1824 * t13 * t236 + 0.200000e6 / 0.59049e5 * t6428 * t194 * t542 * t6320 * t13 * t345 + 0.97900e5 / 0.2187e4 * t596 * t597 * t9 * t6309 - 0.26180e5 / 0.729e3 * t233 * t234 * t6439 - 0.8800e4 / 0.243e3 * t1815 * t1835 - 0.440e3 / 0.27e2 * t1819 * t603 + 0.12320e5 / 0.243e3 * t587 * t1839;
2789   t6452 = (0.13090e5 / 0.6561e4 * t6306 + 0.15400e5 / 0.2187e4 * t18 * t58 * t1735 + t6356 - t6359 + t6362) * t92 - 0.2e1 * t6365 * t239 + 0.9e1 / 0.2e1 * t6368 * t579 - 0.3e1 * t1789 * t606 - 0.15e2 / 0.2e1 * t6373 * t1801 + 0.9e1 * t1792 * t1804 - 0.2e1 * t573 * t1842 + 0.105e3 / 0.16e2 * t6383 * t6384 - 0.45e2 / 0.4e1 * t1800 * t579 * t606 + 0.9e1 / 0.4e1 * t578 * t6390 + 0.3e1 * t578 * t239 * t1842 - t225 * t6449 / 0.2e1 - t6349;
2790   t6461 = 0.1e1 / t641 / t654;
2791   t6462 = t643 * t643;
2792   t6463 = t6461 * t6462;
2793   t6464 = t6463 * t103;
2794   t6470 = t263 * t682;
2795   t6471 = t1854 * t6470;
2796   t6474 = t103 * t2004;
2797   t6478 = t1932 * t250;
2798   t6485 = t624 * t639;
2799   t6488 = t1982 * t99;
2800   t6493 = t642 * t1858;
2801   t6494 = t6493 * t629;
2802   t6503 = t1912 * t643;
2803   t6504 = t6503 * t1960;
2804   t6507 = -0.17620679382074383663e2 * t251 * t6464 - 0.12751277419167548965e1 * t649 * t644 * t1948 + 0.17980392870196113152e1 * t633 * t6471 - 0.476312901339054080e0 * t649 * t255 * t6474 + 0.18066119535619136469e0 * t6478 * t630 + 0.12751277419167548965e1 * t1964 * t2023 + 0.10491196150051375396e1 * t2020 * t2017 - 0.77812782197085049260e0 * t6485 * t2014 - 0.476312901339054080e0 * t6488 * t635 + 0.89901964350980565762e0 * t2026 * t1855 + 0.3291025927890534400e1 * t251 * t6494 - 0.714469352008581120e0 * t649 * t661 * t1948 - 0.476312901339054080e0 * t649 * t1859 * t650 - 0.29619233351014809600e2 * t251 * t6504;
2805   t6511 = t1890 * t643;
2806   t6518 = pow(t109, -0.4258304e1);
2807   t6519 = t669 * t669;
2808   t6523 = t1952 * t250;
2809   t6526 = t1891 * t645;
2810   t6527 = t4025 * t6526;
2811   t6530 = t1932 * t99;
2812   t6533 = t1893 * t660;
2813   t6546 = t1891 * t103;
2814   t6547 = t2012 * t6546;
2815   t6553 = 0.51005109676670195860e1 * t649 * t1913 * t650 - 0.19603781122450563098e2 * t640 * t6511 * t1874 + 0.33758233860356468337e1 * t1878 * t1892 * t1879 + 0.23916119461575365556e1 * t106 * t6518 * t6519 + 0.51005109676670195860e1 * t6523 * t630 - 0.60248995135255396168e1 * t2011 * t6527 - 0.10122663238838101478e0 * t6530 * t635 + 0.11381275721949218649e2 * t1888 * t6511 * t6533 + 0.16596011335680e2 * t1851 * t1908 - 0.22762551443898437297e2 * t1888 * t6463 * t1893 - 0.25502554838335097930e1 * t1964 * t1972 + 0.51005109676670195860e1 * t1967 * t1972 + 0.51005109676670195860e1 * t627 * t6547 + 0.18915142913373788795e1 * t2517 * t1874 * t2511;
2816   t6556 = t2516 * t2013 * t263;
2817   t6560 = t2012 * t891 * t660;
2818   t6563 = t682 * t682;
2819   t6570 = t644 * t1960;
2820   t6573 = t1952 * t99;
2821   t6576 = t1890 * t6462;
2822   t6577 = t6576 * t103;
2823   t6583 = t1903 * t250;
2824   t6590 = t615 * t615;
2825   t6591 = t1931 * t6590;
2826   t6600 = -t253 * t6452 * t103;
2827   t6603 = 0.87198868390655171972e0 * t2011 * t6556 - 0.33758233860356468336e1 * t2011 * t6560 + 0.975074869248e0 * t106 * t668 * t6563 + 0.1428938704017162240e1 * t649 * t656 * t1948 + 0.16596011335680e2 * t251 * t6570 - 0.2857877408034324480e1 * t6573 * t635 + 0.29619233351014809600e2 * t251 * t6577 + 0.16044983381648203533e1 * t1868 * t644 * t1869 - 0.23513371621433895280e1 * t6583 * t630 - 0.11756685810716947640e1 * t2020 * t1972 - 0.25502554838335097930e1 * t1967 * t2023 + 0.76507664515005293790e1 * t6591 * t111 + 0.58783429053584738202e0 * t1931 * t615 * t99 * t1908 + 0.461000314880e0 * t251 * t6600;
2828   t6604 = t616 * t639;
2829   t6607 = t1971 * t263;
2830   t6608 = t2516 * t6607;
2831   t6611 = t629 * t660;
2832   t6612 = t2012 * t6611;
2833   t6617 = t622 * t622;
2834   t6618 = 0.1e1 / t6617;
2835   t6619 = t6618 * t6590;
2836   t6625 = t263 * t660;
2837   t6626 = t629 * t6625;
2838   t6631 = t623 * t1845;
2839   t6635 = t1903 * t99;
2840   t6638 = t105 * t1863;
2841   t6639 = t6638 * t1864;
2842   t6642 = t614 * t609;
2843   t6643 = t6642 * t99;
2844   t6646 = t639 * t668;
2845   t6647 = t645 * t669;
2846   t6651 = t250 * t1863;
2847   t6656 = 0.33758233860356468336e1 * t6604 * t2014 - 0.11756685810716947640e1 * t627 * t6608 + 0.45514919671073415976e1 * t627 * t6612 - 0.714469352008581120e0 * t2026 * t1940 + 0.45165298839047841173e-1 * t6619 * t111 + 0.21968466899514280221e2 * t640 * t6503 * t1874 + 0.2857877408034324480e1 * t2510 * t6626 - 0.32937059624806545678e0 * t1851 * t1940 + 0.85008516127783659764e0 * t6631 * t242 * t111 + 0.13174823849922618271e1 * t6635 * t635 - 0.13535064380111787705e1 * t633 * t6639 + 0.2857877408034324480e1 * t6643 * t2417 - 0.11900499994234945968e1 * t6646 * t644 * t6647 - 0.13535064380111787705e1 * t6651 * t1864 * t253 * t629;
2848   t6659 = t103 * t1858;
2849   t6660 = t1959 * t6659;
2850   t6673 = 0.1e1 / t622 / t613;
2851   t6674 = t6673 * t6590;
2852   t6683 = t645 * t682;
2853   t6687 = t641 * t641;
2854   t6688 = 0.1e1 / t6687;
2855   t6689 = t6688 * t6462;
2856   t6690 = t6689 * t103;
2857   t6696 = t634 * t2004;
2858   t6699 = t4020 * t6546;
2859   t6708 = t660 * t660;
2860   t6709 = t642 * t6708;
2861   t6710 = t6709 * t103;
2862   t6713 = t1890 * t660 * t1971;
2863   t6716 = t1912 * t6462 * t103;
2864   t6720 = t655 * t6708 * t103;
2865   t6724 = -0.68216827389720576000e2 * t6464 + 0.1784720e1 * t6600 + 0.10145661348248508867e2 * t6619 * t108 + 0.114668117222400e3 * t6577 + 0.12740901913600e2 * t6494 + 0.9555676435200e1 * t6710 + 0.34108413694860288000e2 * t6713 - 0.42833280e2 * t6716 + 0.64249920e2 * t6570 - 0.10708320e2 * t6720 - 0.14277760e2 * t6660 - 0.114668117222400e3 * t6504;
2866   t6727 = t609 * t609;
2867   t6728 = t623 * t6727;
2868   t6735 = t1901 * t6590;
2869   t6740 = t614 * t6727;
2870   t6743 = t108 * t1845;
2871   t6746 = t1901 * t615;
2872   t6753 = t245 * t6452;
2873   t6756 = 0.12740901913600e2 * t6631 * t921 + 0.9555676435200e1 * t6728 * t108 + 0.34108413694860288000e2 * t1931 * t609 * t2372 + 0.10145661348248508867e2 * t6690 - 0.42833280e2 * t6735 * t108 + 0.64249920e2 * t624 * t1987 - 0.10708320e2 * t6740 * t108 - 0.14277760e2 * t1906 * t6743 - 0.114668117222400e3 * t6746 * t1987 + 0.114668117222400e3 * t6591 * t108 - 0.68216827389720576000e2 * t6674 * t108 + 0.1784720e1 * t6753 * t108;
2874   t6764 = -0.3688002519040e1 * t251 * t6660 + 0.58783429053584738202e0 * t2020 * t2023 + 0.1300099825664e1 * t106 * t1935 * t2004 - 0.4404030955044470784e1 * t106 * t1863 * t669 * t682 - 0.11756685810716947640e1 * t6674 * t111 + 0.39207562244901126197e2 * t640 * t6463 * t645 + 0.17980392870196113152e1 * t250 * t1935 * t1949 + 0.94575714566868943971e0 * t1878 * t644 * t6683 + 0.26206649088979828343e1 * t251 * t6690 - 0.13606156761889987933e2 * t640 * t6689 * t645 - 0.476312901339054080e0 * t633 * t6696 - 0.91029839342146831954e1 * t627 * t6699 - 0.258304e0 * t106 * t259 * (t6724 + t6756) + 0.20312390406477209506e2 * t1888 * t6689 * t1893;
2875   t6765 = pow(t104, -0.3741696e1);
2876   t6766 = t99 * t6765;
2877   t6767 = t6766 * t110;
2878   t6768 = t645 * t645;
2879   t6781 = t619 * t639;
2880   t6786 = t4020 * t6526;
2881   t6791 = t1982 * t250;
2882   t6796 = t4025 * t6546;
2883   t6799 = t1887 * t259;
2884   t6800 = t1893 * t263;
2885   t6806 = -0.92817332546461565657e1 * t6767 * t6689 * t6768 - 0.21968466899514280222e2 * t640 * t6576 * t645 - 0.11064007557120e2 * t251 * t6716 + 0.2468269445917900800e1 * t251 * t6710 + 0.22757459835536707988e1 * t1964 * t2017 - 0.16879116930178234168e1 * t6781 * t2014 - 0.45514919671073415977e1 * t1967 * t2017 + 0.67516467720712936673e1 * t2011 * t6786 - 0.2766001889280e1 * t251 * t6720 + 0.85008516127783659764e0 * t6791 * t630 - 0.25502554838335097930e1 * t2531 * t6626 + 0.27077129145119382320e1 * t627 * t6796 - 0.19598860293882473159e1 * t6799 * t1892 * t6800 - 0.65874119249613091356e0 * t1956 * t265;
2886   t6820 = t1943 * t1960 * t263;
2887   t6823 = t1970 * t6611;
2888   t6827 = t1943 * t629 * t682;
2889   t6833 = t110 * t609;
2890   t6834 = t6833 * t256;
2891   t6849 = 0.461000314880e0 * t6753 * t111 + 0.89901964350980565762e0 * t1868 * t661 * t1869 - 0.18307055749595233518e1 * t640 * t6709 * t645 - 0.24409407666126978024e1 * t640 * t6493 * t891 - 0.65874119249613091356e0 * t627 * t6820 - 0.51005109676670195860e1 * t627 * t6823 - 0.65874119249613091356e0 * t627 * t6827 - 0.65874119249613091356e0 * t1964 * t1945 - 0.51005109676670195860e1 * t1906 * t250 * t6834 + 0.13174823849922618271e1 * t1967 * t1945 - 0.17980392870196113152e1 * t1897 * t1855 + 0.1428938704017162240e1 * t1897 * t1940 - 0.3688002519040e1 * t614 * t1845 * t99 * t870 + 0.63756387095837744823e0 * t6728 * t111;
2892   t6858 = t623 * t242;
2893   t6859 = t6858 * t250;
2894   t6865 = t3371 * t629 * t669;
2895   t6868 = t2509 * t6607;
2896   t6878 = t628 * t6659;
2897   t6881 = t246 * t1887;
2898   t6882 = t1891 * t1893;
2899   t6883 = t4025 * t6882;
2900   t6894 = -0.17980392870196113152e1 * t1868 * t656 * t1869 + 0.88103396910371918316e1 * t251 * t6713 - 0.15171639890357805325e1 * t649 * t1892 * t650 + 0.11756685810716947640e1 * t6859 * t6834 - 0.30367989716514304434e0 * t2020 * t1945 + 0.82889667748265151307e0 * t627 * t6865 + 0.13174823849922618271e1 * t627 * t6868 - 0.37830285826747577588e1 * t1878 * t1913 * t1879 - 0.2766001889280e1 * t6740 * t111 - 0.11064007557120e2 * t6735 * t111 + 0.85008516127783659764e0 * t627 * t6878 + 0.34978477943697927495e1 * t6881 * t6883 + 0.41444833874132575653e0 * t1851 * t1855 - 0.76507664515005293789e1 * t6746 * t99 * t1908 - 0.2857877408034324480e1 * t649 * t1978 * t650;
2901   t6898 = my_piecewise3(t96, 0, t6507 + t6553 + t6603 + t6656 + t6764 + t6806 + t6849 + t6894);
2902   t6899 = my_piecewise3(t95, 0, t6898);
2903   t6905 = 0.3e1 / 0.10e2 * t55 * (t6452 * t113 + 0.4e1 * t1845 * t269 + 0.4e1 * t242 * t2032 + 0.6e1 * t609 * t688 + t94 * t6899 + t6349) - 0.2618e4 / 0.81e2 * t6305;
2904   t6914 = t694 * t694;
2905   t6922 = t698 * t698;
2906   t6924 = t50 * t6922 * t194;
2907   t6926 = t123 * t13 * t1146;
2908   t6930 = t708 * t13 * t1146;
2909   t6945 = t50 * t2114;
2910   t6948 = t194 * t13 * t1146;
2911   t6951 = 0.9163e4 / 0.65610e5 * t52 * t6305 - t50 * t6905 * t277 / 0.180e3 - t2039 * t30 * t949 / 0.27e2 + 0.5e1 / 0.27e2 * t695 * t2578 - t50 * t6914 * t30 * t702 / 0.36e2 - 0.10e2 / 0.27e2 * t695 * t194 * t2587 + 0.125e3 / 0.1458e4 * t6924 * t6926 - 0.125e3 / 0.2187e4 * t6924 * t6930 + t280 * t6905 * t277 / 0.180e3 + t709 * t2038 * t956 / 0.81e2 + t709 * t6914 * t711 / 0.108e3 + 0.5e1 / 0.81e2 * t2060 * t694 * t2578 + 0.25e2 / 0.4374e4 * t6945 * t6922 * t6948;
2912   t6980 = t756 * t13 * t17;
2913   t6983 = t2115 * t6922;
2914   t6987 = t698 * t13;
2915   t7006 = t738 * t738;
2916   t7012 = t740 * t740;
2917   t7016 = t194 * t146;
2918   t7017 = t7016 * t18;
2919   t7020 = t2577 * t2110;
2920   t7028 = t6914 * t30 * t745;
2921   t7034 = t64 * t146 * t2038;
2922   t7038 = 0.1e1 / t755 / t708;
2923   t7055 = t753 * t753;
2924   t7056 = params->d * t7055;
2925   t7057 = t755 * t755;
2926   t7058 = 0.1e1 / t7057;
2927   t7063 = -0.10000e5 / 0.729e3 * t301 * t6983 * t7017 - 0.1000e4 / 0.27e2 * t2105 * t7020 - 0.5000e4 / 0.243e3 * t754 * t2130 * t6922 * t7017 - 0.50e2 / 0.27e2 * t743 * t7028 - 0.1000e4 / 0.27e2 * t2116 * t7020 - 0.200e3 / 0.81e2 * t2109 * t7034 - 0.5000e4 / 0.729e3 * t2128 * t7038 * t6922 * t7017 - 0.5e1 / 0.9e1 * t302 * t6905 * t13 * t304 - 0.100e3 / 0.81e2 * t754 * t756 * t2038 * t990 - 0.25e2 / 0.27e2 * t757 * t7028 - 0.500e3 / 0.81e2 * t2131 * t7020 - 0.1250e4 / 0.2187e4 * t7056 * t7058 * t6922 * t7017;
2928   t7064 = my_piecewise3(t138, (-0.5e1 / 0.9e1 * params->c1 * t6905 * t141 - 0.200e3 / 0.81e2 * t2077 * t30 * t296 - 0.1000e4 / 0.27e2 * t723 * t732 - 0.50e2 / 0.27e2 * params->c1 * t6914 * t727 - 0.10000e5 / 0.729e3 * params->c1 * t6922 * t194 * t6980 - 0.50000e5 / 0.6561e4 * t975 * t6983 * t64 - 0.5000e4 / 0.243e3 * t2632 * t6987 * t17 * t694 - 0.500e3 / 0.81e2 * t139 * t731 * t6914 - 0.2000e4 / 0.243e3 * t975 * t2090 * t2038 - 0.25e2 / 0.81e2 * t293 * t295 * t6905) * t144 + 0.4e1 * t2097 * t299 * t144 + 0.3e1 * t7006 * t144 + 0.6e1 * t738 * t740 * t144 + t7012 * t144, t7063);
2929   t7067 = -0.24e2 * t6279 * t6280 * t149 + 0.36e2 * t1723 * t519 * t717 - 0.24e2 * t1723 * t1724 * t308 - 0.6e1 * t517 * t6290 * t149 + 0.24e2 * t517 * t720 * t717 - 0.8e1 * t517 * t288 * t2068 + 0.12e2 * t517 * t518 * t761 + t179 * (0.26180e5 / 0.19683e5 * t6306 + 0.5225e4 / 0.729e3 * t34 * t36 * t6309 * t45 - 0.5929e4 / 0.72e2 * t195 * t196 * t6314 * t45 + 0.2949e4 / 0.160e3 * t541 * t542 * t6320 * t549 - 0.1053e4 / 0.400e3 * t1758 * t1759 / t11 / t6325 * t1766 + 0.6561e4 / 0.10000e5 * t6335 * t542 * t35 / t1760 / t37 * t45 + 0.6e1 * t6343 + 0.8e1 * t284 * t2065 + 0.2e1 * t130 * t6951) * t149 - 0.4e1 * t179 * t2068 * t308 - 0.6e1 * t179 * t717 * t761 - 0.4e1 * t179 * t287 * t2135 - t137 * t7064 + 0.1174e1 * t7064;
2930   t7078 = t1715 * t2;
2931   t7079 = t7078 * t769;
2932   t7085 = t5 * t425;
2933   t7099 = 0.1e1 / t162 / t81 / 0.72e2;
2934   t7103 = t166 * t30 * t154;
2935   t7119 = -t8 * t502 * t765 / 0.2e1 - 0.3e1 / 0.16e2 * t174 * t175 * t7067 * t167 + 0.24162483628714877060e3 * t785 * t2143 * t790 - 0.23749920000000000000e4 * t2153 * t769 * t2165 + 0.33073550421531692069e1 * t7079 * t2171 - 0.5e1 / 0.54e2 * t8 * t333 * t168 + 0.87635410908814532668e3 * t7085 * t1376 * t30 * t154 * t166 - 0.21534768840753600000e3 * t424 * t7 * t23 * t2178 - 0.55416480000000000000e4 * t340 * t320 * t323 * t7099 * t2155 * t35 * t7103 + 0.35624880000000000000e3 * t424 * t1710 * t311 * t782 - 0.17812440000000000000e3 * t773 * t2143 * t782 - 0.37933900000000000000e3 * t424 * t7 * t40 * t152 * t782;
2936   t7126 = t5 * t7 * t159 * t152;
2937   t7131 = t424 * t7 * t2157 * t152;
2938   t7165 = 0.21990666666666666667e1 * t424 * t1698 * t311 * t330 - 0.22372670026587849130e2 * t7126 * t790 - 0.91627777777777777788e0 * t7131 * t330 - t8 * t12 * t2139 - 0.64604306522260799999e3 * t2175 * t311 * t10 * t2177 + 0.16108322419143251373e3 * t7079 * t790 + 0.51458160000000000000e4 * t424 * t7 * t6304 * t152 * t2165 - 0.14e-18 * t7126 * t2171 - 0.49479000000000000000e1 * t424 * t510 * t764 * t330 - 0.64604306522260800000e3 * t7131 * t777 * t166 * t155 * t156 + 0.2e1 / 0.9e1 * t8 * t433 * t312 - 0.98958000000000000000e1 * t321 * t322 * t2138 * t330;
2939   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2940     v4rho4[0] = t7119 + t7165;
2941 
2942   t7167 = t424 * t2700 * t777;
2943   t7184 = t424 * t1014 * t2161;
2944   t7188 = t5 * t1014 * t13;
2945   t7213 = t1697 * t320;
2946   t7217 = t7078 * t1010;
2947   t7223 = 0.33398325000000000000e2 * t7167 * t1024 - 0.74218500000000000000e1 * t321 * t322 * t2685 * t330 - 0.51677422533643268850e0 * t2720 * t2721 * t9 * t1715 * t166 - 0.45304656803840394486e2 * t5 * t2700 * t1028 * t1032 + 0.66796650000000000000e3 * t7184 * t2716 - 0.93019360560557883943e0 * t7188 * t2724 - 0.16779502519940886847e2 * t1030 * t1715 * t13 * t789 + 0.86588250000000000000e2 * t1019 * t18 * t1020 * t75 - 0.75507761339733990810e2 * t2709 * t2732 - 0.15585885000000000000e4 * t2713 * t2714 * t1838 * t156 - 0.77929425000000000000e2 * t2705 * t2728 + 0.24226614945847799999e3 * t424 * t425 * t427 * t1697 * t777 * t7103 + 0.5497666666666666667e0 * t7213 * t1010 * t330 + 0.40270806047858128433e2 * t7217 * t790 - 0.24739500000000000000e1 * t2187 * t2690 * t330;
2948   t7230 = t424 * t425 * t7099;
2949   t7237 = t75 * t320;
2950   t7288 = -0.3e1 * t179 * t717 * t1002 + 0.18e2 * t1723 * t963 * t518 - 0.24e2 * t6279 * t402 * t1724 - t179 * t2068 * t416 - t179 * t401 * t2135 - 0.3e1 * t179 * t2605 * t308 - 0.3e1 * t179 * t962 * t761 - 0.2e1 * t517 * t402 * t2068 - 0.6e1 * t517 * t2606 * t287 + 0.6e1 * t517 * t2611 * t287 + 0.6e1 * t517 * t967 * t717;
2951   t7295 = t1723 * t401;
2952   t7310 = t18 * t1838;
2953   t7311 = 0.770e3 / 0.243e3 * t7310;
2954   t7314 = 0.247e3 / 0.4374e4 * t64 * t1781;
2955   t7317 = 0.3344e4 / 0.59049e5 * t64 * t336 * t1740;
2956   t7326 = t6417 * t194;
2957   t7351 = t227 * t594;
2958   t7352 = t7351 * t2269;
2959   t7356 = t1813 * t845 * t30;
2960   t7367 = t590 * t231;
2961   t7371 = -0.2000e4 / 0.243e3 * t7326 * t535 * t227 * t35 - 0.220e3 / 0.27e2 * t2274 * t603 + 0.3080e4 / 0.243e3 * t842 * t1839 + 0.25e2 / 0.3e1 * t2284 * t598 * t2285 - 0.220e3 / 0.27e2 * t2264 * t603 - 0.2200e4 / 0.243e3 * t2270 * t1835 - 0.25000e5 / 0.19683e5 * t6428 * t194 * t1752 * t196 * t13 * t345 + 0.40e2 / 0.9e1 * t2263 * t2273 * t236 + 0.200e3 / 0.81e2 * t7352 * t599 + 0.200e3 / 0.81e2 * t7356 * t599 + 0.20e2 / 0.9e1 * t585 * t2279 * t13 * t236 - 0.25e2 / 0.27e2 * t2284 * t564 * t590 * sigma[0] + 0.20e2 / 0.9e1 * t7367 * t841 * t236;
2962   t7376 = t345 * t1735;
2963   t7402 = t6417 * t358;
2964   t7405 = t1824 * t88;
2965   t7415 = 0.19000e5 / 0.729e3 * t1829 * t194 * t1745 * t35 + 0.1540e4 / 0.243e3 * t233 * t7376 + 0.20e2 / 0.9e1 * t1810 * t818 - 0.5e1 / 0.18e2 * t848 * t345 * t23 * t1824 - 0.5e1 / 0.6e1 * t2263 * t13 * t2294 - 0.25e2 / 0.27e2 * t6397 * t855 + 0.20e2 / 0.9e1 * t848 * t345 * t181 * t590 - 0.8525e4 / 0.729e3 * t596 * t853 * t1740 * sigma[0] - 0.220e3 / 0.27e2 * t848 * t345 * t523 * t227 + 0.16000e5 / 0.2187e4 * t7402 * t1831 + 0.2e1 * t7405 * t358 + 0.6e1 * t2260 * t845 + 0.6e1 * t838 * t2279 + 0.2e1 * t226 * (t7314 - t7317);
2966   t7433 = t2237 * t224;
2967   t7438 = (-0.770e3 / 0.2187e4 * t7310 + t7314 - t7317) * t92 + 0.105e3 / 0.16e2 * t6383 * t363 * t1801 - 0.45e2 / 0.8e1 * t1800 * t835 * t606 - t225 * (t7371 + t7415) / 0.2e1 - 0.3e1 / 0.2e1 * t573 * t2307 - 0.45e2 / 0.8e1 * t1800 * t860 * t579 + 0.9e1 / 0.4e1 * t578 * t2307 * t239 + 0.9e1 / 0.4e1 * t578 * t860 * t606 + 0.3e1 / 0.4e1 * t578 * t363 * t1842 - 0.3e1 / 0.2e1 * t7433 * t239 - 0.3e1 / 0.2e1 * t2239 * t606;
2968   t7447 = t828 * t577;
2969   t7450 = t356 * t1799;
2970   t7461 = -t830 * t1842 / 0.2e1 - t6365 * t363 / 0.2e1 - 0.3e1 / 0.2e1 * t1789 * t860 - 0.45e2 / 0.8e1 * t6373 * t2251 + t7311 + 0.9e1 / 0.4e1 * t7447 * t579 - 0.15e2 / 0.8e1 * t7450 * t1801 + 0.9e1 / 0.4e1 * t2241 * t1804 + 0.9e1 / 0.4e1 * t6368 * t835 + 0.9e1 / 0.2e1 * t1792 * t2254 + 0.9e1 / 0.4e1 * t1792 * t2257;
2971   t7462 = t7438 + t7461;
2972   t7474 = t6642 * t250;
2973   t7477 = t2438 * t657;
2974   t7487 = t2012 * t1442 * t660;
2975   t7502 = t3371 * t886 * t669;
2976   t7508 = -0.12751277419167548965e1 * t7474 * t3362 + 0.25502554838335097929e1 * t2437 * t7477 + 0.16879116930178234168e1 * t6604 * t2443 - 0.22757459835536707989e1 * t1967 * t2448 + 0.20722416937066287826e0 * t880 * t6865 - 0.84395584650891170841e0 * t2011 * t7487 - 0.16468529812403272839e0 * t1964 * t2452 - 0.12751277419167548965e1 * t1964 * t2455 + 0.29391714526792369101e0 * t1955 * t2458 * t3461 - 0.84395584650891170841e0 * t6781 * t2443 + 0.11378729917768353994e1 * t1964 * t2448 + 0.20722416937066287826e0 * t627 * t7502 + 0.76507664515005293790e1 * t2359 * t1902 * t111;
2977   t7512 = t1943 * t2523 * t263;
2978   t7515 = t932 * t256;
2979   t7529 = t628 * t1960 * t242;
2980   t7538 = t886 * t643;
2981   t7539 = t2012 * t7538;
2982   t7542 = t2363 * t250;
2983   t7545 = -0.32937059624806545678e0 * t2504 * t1945 - 0.32937059624806545678e0 * t627 * t7512 - 0.32937059624806545678e0 * t627 * t7515 - 0.16468529812403272839e0 * t1964 * t2557 - 0.75919974291285761083e-1 * t2020 * t2452 - 0.58783429053584738202e0 * t2020 * t2455 - 0.38906391098542524630e0 * t6485 * t2443 + 0.52455980750256876982e0 * t2020 * t2448 - 0.12751277419167548965e1 * t2437 * t7529 - 0.16468529812403272839e0 * t880 * t6820 - 0.12751277419167548965e1 * t880 * t6823 + 0.32937059624806545678e0 * t880 * t6868 + 0.38253832257502646895e1 * t627 * t7539 - 0.25502554838335097930e1 * t7542 * t2439;
2984   t7555 = t379 * t1890;
2985   t7573 = t2348 * t250;
2986   t7579 = t634 * t609 * t263;
2987   t7586 = -0.119078225334763520e0 * t883 * t6696 + 0.23916119461575365556e1 * t106 * t6518 * t379 * t1864 - 0.714469352008581120e0 * t6573 * t910 + 0.84395584650891170840e0 * t1878 * t7555 * t6526 - 0.48997150734706182895e0 * t6799 * t7555 * t6882 + 0.44950982175490282881e0 * t2026 * t2478 - 0.357234676004290560e0 * t649 * t903 * t1948 + 0.32937059624806545678e0 * t6635 * t910 + 0.975074869248e0 * t106 * t668 * t2409 * t263 + 0.63756387095837744823e0 * t7573 * t630 + 0.29391714526792369101e0 * t2020 * t2524 + 0.714469352008581120e0 * t868 * t7579 - 0.75919974291285761083e-1 * t2360 * t265 - 0.16468529812403272839e0 * t877 * t684;
2988   t7587 = t1912 * t902;
2989   t7591 = t246 * t1868;
2990   t7592 = t913 * t1944;
2991   t7602 = t379 * t682;
2992   t7603 = t1854 * t7602;
2993   t7612 = t2344 * t1971;
2994   t7620 = t1943 * t886 * t682;
2995   t7624 = t2012 * t3342 * t254;
2996   t7627 = t2458 * t249;
2997   t7628 = t876 * t7627;
2998   t7631 = 0.10984233449757140111e2 * t640 * t7587 * t2013 + 0.41444833874132575653e0 * t7591 * t7592 + 0.44950982175490282881e0 * t1868 * t903 * t1869 - 0.89901964350980565762e0 * t1897 * t2478 + 0.20722416937066287826e0 * t877 * t671 + 0.44950982175490282881e0 * t633 * t7603 + 0.21252129031945914941e0 * t876 * t1845 * t111 - 0.119078225334763520e0 * t649 * t372 * t6474 + 0.8298005667840e1 * t251 * t7612 - 0.16468529812403272839e0 * t2471 * t265 + 0.44950982175490282881e0 * t883 * t6471 - 0.16468529812403272839e0 * t627 * t7620 - 0.16879116930178234168e1 * t2011 * t7624 - 0.15183994858257152217e0 * t7628 * t1945;
2999   t7634 = t380 * t662;
3000   t7637 = t380 * t646;
3001   t7640 = t380 * t665;
3002   t7643 = t2460 * t662;
3003   t7653 = t259 * t1890;
3004   t7654 = t250 * t7653;
3005   t7655 = t371 * t643;
3006   t7656 = t7655 * t650;
3007   t7659 = t2446 * t1960;
3008   t7662 = t682 * t254;
3009   t7666 = t2446 * t1948;
3010   t7669 = t1890 * t902;
3011   t7676 = t250 * t668 * t655;
3012   t7677 = t669 * t254;
3013   t7678 = t886 * t7677;
3014   t7681 = -0.16468529812403272839e0 * t627 * t7634 + 0.21799717097663792992e0 * t2011 * t7637 - 0.29391714526792369101e0 * t627 * t7640 + 0.29391714526792369101e0 * t2459 * t7643 - 0.84395584650891170841e0 * t2499 * t6560 + 0.11378729917768353994e1 * t880 * t6612 + 0.44950982175490282881e0 * t3372 * t886 * t6470 - 0.11378729917768353994e1 * t7654 * t7656 + 0.44051698455185959158e1 * t4062 * t7659 + 0.47287857283434471985e0 * t2517 * t1442 * t7662 - 0.63756387095837744823e0 * t2531 * t7666 - 0.98018905612252815491e1 * t640 * t7669 * t2013 + 0.67692822862798455802e0 * t880 * t6796 - 0.89901964350980565762e0 * t7676 * t7678;
3015   t7682 = t103 * t1864;
3016   t7686 = t2392 * t1960;
3017   t7689 = t6673 * t366;
3018   t7693 = t886 * t6625;
3019   t7698 = t873 * t639;
3020   t7701 = t2344 * t1960;
3021   t7704 = t6618 * t366;
3022   t7708 = t642 * t2400;
3023   t7709 = t7708 * t629;
3024   t7712 = t6858 * t99;
3025   t7714 = t634 * t379 * t609;
3026   t7717 = t2348 * t99;
3027   t7720 = t890 * t6659;
3028   t7723 = t6461 * t371;
3029   t7729 = -0.33837660950279469264e0 * t6651 * t372 * t7682 - 0.2766001889280e1 * t251 * t7686 - 0.11756685810716947640e1 * t7689 * t1902 * t111 + 0.714469352008581120e0 * t2510 * t7693 + 0.8298005667840e1 * t4012 * t7659 - 0.84395584650891170840e0 * t7698 * t2014 + 0.2468269445917900800e1 * t251 * t7701 + 0.45165298839047841173e-1 * t7704 * t1902 * t111 + 0.2468269445917900800e1 * t251 * t7709 - 0.16468529812403272839e0 * t7712 * t7714 - 0.357234676004290560e0 * t7717 * t635 + 0.822756481972633600e0 * t251 * t7720 + 0.39207562244901126197e2 * t640 * t7723 * t6526 + 0.714469352008581120e0 * t6643 * t3519;
3030   t7740 = t1901 * t863;
3031   t7744 = t668 * t642;
3032   t7745 = t250 * t7744;
3033   t7754 = t869 * t242 * t609;
3034   t7757 = t931 * t642;
3035   t7763 = t867 * t649;
3036   t7764 = t2416 * t256;
3037   t7771 = -t253 * t7462 * t103;
3038   t7773 = t921 * t609;
3039   t7777 = t2395 * t6546;
3040   t7779 = t898 * t6659;
3041   t7781 = t7669 * t1971;
3042   t7784 = t6688 * t371;
3043   t7785 = t7784 * t6546;
3044   t7788 = t7587 * t1971;
3045   t7790 = t7723 * t6546;
3046   t7793 = t2406 * t6546;
3047   t7796 = t655 * t2400 * t629;
3048   t7798 = t1902 * t108;
3049   t7802 = 0.17054206847430144000e2 * t2406 * t6611 + 0.1784720e1 * t7771 - 0.57334058611200e2 * t2331 * t7773 + 0.9555676435200e1 * t7709 - 0.42833280e2 * t7777 - 0.3569440e1 * t7779 + 0.17054206847430144000e2 * t7781 + 0.3185225478400e1 * t7720 + 0.10145661348248508867e2 * t7785 - 0.10708320e2 * t7686 - 0.57334058611200e2 * t7788 - 0.68216827389720576000e2 * t7790 + 0.9555676435200e1 * t7701 + 0.114668117222400e3 * t7793 - 0.10708320e2 * t7796 + 0.10145661348248508867e2 * t7704 * t7798 + 0.32124960e2 * t7612;
3050   t7809 = t1931 * t863;
3051   t7814 = t623 * t2310;
3052   t7825 = t614 * t2310;
3053   t7834 = t245 * t7462;
3054   t7841 = 0.32124960e2 * t890 * t6611 - 0.57334058611200e2 * t2395 * t6611 + 0.32124960e2 * t876 * t7773 + 0.17054206847430144000e2 * t7809 * t2372 + 0.3185225478400e1 * t876 * t6743 + 0.9555676435200e1 * t7814 * t921 + 0.9555676435200e1 * t2383 * t1987 - 0.3569440e1 * t867 * t6743 + 0.32124960e2 * t2383 * t2372 + 0.114668117222400e3 * t2359 * t7798 - 0.10708320e2 * t7825 * t921 - 0.10708320e2 * t2363 * t1987 - 0.57334058611200e2 * t7740 * t2372 - 0.68216827389720576000e2 * t7689 * t7798 + 0.1784720e1 * t7834 * t108 - 0.42833280e2 * t2331 * t7798 + 0.17054206847430144000e2 * t2359 * t7773;
3055   t7846 = t931 * t263;
3056   t7847 = t1854 * t7846;
3057   t7850 = 0.47287857283434471986e0 * t2517 * t1442 * t6625 - 0.58783429053584738202e0 * t6583 * t887 + 0.21252129031945914941e0 * t6791 * t887 + 0.63756387095837744823e0 * t1964 * t2524 - 0.38253832257502646895e1 * t7740 * t615 * t111 + 0.80224916908241017662e0 * t7745 * t7678 + 0.56906378609746093243e1 * t1888 * t7669 * t2425 + 0.714469352008581120e0 * t2510 * t7666 + 0.8298005667840e1 * t2546 * t7754 - 0.63756387095837744824e0 * t649 * t7757 * t1971 - 0.89901964350980565762e0 * t2322 * t1927 + 0.65874119249613091356e0 * t7763 * t7764 - 0.258304e0 * t106 * t259 * (t7802 + t7841) + 0.89901964350980565762e0 * t633 * t7847;
3058   t7859 = t368 * t1887;
3059   t7866 = t250 * t380;
3060   t7874 = t4025 * t7538;
3061   t7879 = t869 * t1845;
3062   t7886 = 0.21252129031945914941e0 * t880 * t6878 - 0.18307055749595233518e1 * t640 * t2344 * t1874 + 0.63756387095837744823e0 * t7814 * t242 * t111 + 0.87446194859244818739e0 * t7859 * t6883 - 0.15062248783813849042e1 * t2499 * t6527 + 0.11378729917768353994e1 * t2504 * t2017 + 0.714469352008581120e0 * t7866 * t1961 - 0.59502499971174729836e0 * t639 * t917 * t1880 + 0.80224916908241017663e0 * t2322 * t1883 + 0.20307846858839536740e1 * t627 * t7874 + 0.1428938704017162240e1 * t2364 * t2417 - 0.922000629760e0 * t868 * t7879 - 0.12751277419167548965e1 * t1967 * t2524 + 0.20722416937066287826e0 * t1851 * t2478;
3063   t7908 = t379 * t1912;
3064   t7923 = t634 * t615 * t263;
3065   t7928 = -0.922000629760e0 * t251 * t7779 - 0.119078225334763520e0 * t649 * t913 * t6659 - 0.714469352008581120e0 * t649 * t2318 * t6546 + 0.63756387095837744823e0 * t2383 * t609 * t111 - 0.357234676004290560e0 * t649 * t2340 * t1960 - 0.2766001889280e1 * t251 * t7796 - 0.32937059624806545678e0 * t2481 * t265 + 0.12751277419167548965e1 * t649 * t7908 * t6546 - 0.94575714566868943969e0 * t1878 * t7908 * t6526 - 0.2766001889280e1 * t7825 * t99 * t870 - 0.119078225334763520e0 * t6488 * t910 - 0.25306658097095253694e-1 * t6530 * t910 - 0.2143408056025743360e1 * t2546 * t7923 + 0.714469352008581120e0 * t1897 * t2474;
3066   t7930 = t869 * t1902;
3067   t7947 = t2359 * t242;
3068   t7948 = t106 * t6833;
3069   t7955 = t371 * t660;
3070   t7956 = t7955 * t891;
3071   t7959 = t2523 * t2511;
3072   t7969 = -0.11064007557120e2 * t2331 * t99 * t7930 - 0.33837660950279469264e0 * t883 * t6639 + 0.12751277419167548965e1 * t880 * t6547 - 0.10151298285083840779e1 * t250 * t2367 * t1870 + 0.461000314880e0 * t7834 * t111 - 0.12751277419167548965e1 * t2504 * t1972 + 0.29391714526792369101e0 * t7809 * t615 * t111 + 0.29391714526792369101e0 * t7947 * t7948 - 0.2202015477522235392e1 * t106 * t1863 * t931 * t669 - 0.98018905612252815489e1 * t4031 * t7956 + 0.1428938704017162240e1 * t2510 * t7959 - 0.12751277419167548965e1 * t2531 * t7959 + 0.12751277419167548965e1 * t6523 * t887 + 0.94575714566868943972e0 * t2517 * t3342 * t2511;
3073   t7981 = t2400 * t103;
3074   t7982 = t628 * t7981;
3075   t7992 = t1442 * t643;
3076   t7993 = t4020 * t7992;
3077   t7996 = t609 * t99;
3078   t7997 = t876 * t7996;
3079   t8000 = t867 * t639;
3080   t8002 = t2012 * t2013 * t242;
3081   t8007 = t638 * t110;
3082   t8008 = t8007 * t646;
3083   t8012 = t2012 * t1971 * t242;
3084   t8015 = -0.13606156761889987933e2 * t640 * t7784 * t6526 + 0.26206649088979828343e1 * t251 * t7785 + 0.975074869248e0 * t106 * t2327 * t682 + 0.44950982175490282881e0 * t2322 * t2008 + 0.63756387095837744823e0 * t627 * t7982 - 0.2766001889280e1 * t2364 * t1908 + 0.325024956416e0 * t106 * t917 * t2004 + 0.16879116930178234168e1 * t2499 * t6786 + 0.50637350790534702506e1 * t2011 * t7993 + 0.29391714526792369101e0 * t7997 * t2461 + 0.16879116930178234168e1 * t8000 * t8002 + 0.21799717097663792993e0 * t2499 * t6556 - 0.38906391098542524630e0 * t2459 * t8008 - 0.22757459835536707989e1 * t2437 * t8012;
3085   t8018 = t645 * t1858;
3086   t8033 = t2460 * t657;
3087   t8047 = t639 * t7653;
3088   t8048 = t643 * t263;
3089   t8049 = t1442 * t8048;
3090   t8052 = -0.29391714526792369101e0 * t880 * t6608 - 0.61023519165317445059e0 * t640 * t890 * t8018 - 0.16468529812403272839e0 * t1851 * t2474 + 0.47287857283434471985e0 * t1878 * t7757 * t2013 + 0.98811178874419637035e0 * t2332 * t265 + 0.32937059624806545678e0 * t1967 * t2452 + 0.25502554838335097929e1 * t1967 * t2455 - 0.58783429053584738202e0 * t2459 * t8033 - 0.357234676004290560e0 * t2026 * t2474 + 0.89901964350980565762e0 * t250 * t2327 * t651 - 0.2143408056025743360e1 * t2531 * t7656 - 0.14809616675507404800e2 * t4044 * t7659 - 0.63756387095837744823e0 * t2531 * t7693 + 0.25318675395267351252e1 * t8047 * t8049;
3091   t8055 = t876 * t250;
3092   t8057 = t110 * t615 * t256;
3093   t8060 = t246 * t649;
3094   t8061 = t890 * t1944;
3095   t8064 = t898 * t1944;
3096   t8067 = t246 * t1878;
3097   t8068 = t891 * t263;
3098   t8069 = t890 * t8068;
3099   t8077 = t259 * t1912;
3100   t8078 = t250 * t8077;
3101   t8082 = t634 * t242 * t682;
3102   t8090 = t639 * t7744;
3103   t8094 = t639 * t8077;
3104   t8102 = 0.38253832257502646895e1 * t8055 * t8057 - 0.58783429053584738202e0 * t8060 * t8061 + 0.65874119249613091356e0 * t8060 * t8064 + 0.43599434195327585985e0 * t8067 * t8069 - 0.37929099725894513314e0 * t649 * t7555 * t6546 + 0.10984233449757140111e2 * t4021 * t7956 + 0.38253832257502646895e1 * t8078 * t7656 + 0.714469352008581120e0 * t868 * t8082 + 0.44950982175490282881e0 * t2322 * t1949 - 0.38253832257502646895e1 * t2331 * t609 * t3956 - 0.59502499971174729837e0 * t8090 * t1442 * t7677 - 0.28372714370060683191e1 * t8094 * t8049 - 0.22757459835536707989e1 * t880 * t6699 + 0.47287857283434471984e0 * t639 * t380 * t1875;
3105   t8105 = t379 * t669;
3106   t8106 = t6638 * t8105;
3107   t8127 = t1854 * t242 * t669;
3108   t8130 = t6768 * t1891;
3109   t8142 = t615 * t99;
3110   t8143 = t2331 * t8142;
3111   t8146 = -0.63756387095837744823e0 * t7866 * t1924 - 0.10151298285083840779e1 * t633 * t8106 + 0.44950982175490282881e0 * t2489 * t1855 + 0.714469352008581120e0 * t649 * t931 * t655 * t1971 - 0.357234676004290560e0 * t649 * t2409 * t253 * t629 - 0.14809616675507404800e2 * t251 * t7788 + 0.44051698455185959158e1 * t251 * t7781 - 0.21968466899514280222e2 * t640 * t2406 * t6526 - 0.89901964350980565762e0 * t868 * t8127 - 0.92817332546461565657e1 * t6767 * t7784 * t8130 + 0.20312390406477209506e2 * t1888 * t7784 * t6882 - 0.357234676004290560e0 * t649 * t2401 * t650 - 0.12751277419167548965e1 * t2437 * t6834 - 0.17635028716075421461e1 * t8143 * t2461;
3112   t8148 = t4020 * t7538;
3113   t8152 = t4025 * t5771 * t643;
3114   t8155 = t4025 * t7992;
3115   t8158 = t886 * t660;
3116   t8159 = t1970 * t8158;
3117   t8162 = t2523 * t254;
3118   t8163 = t1970 * t8162;
3119   t8166 = t2012 * t8158;
3120   t8169 = t2012 * t8162;
3121   t8174 = t380 * t657;
3122   t8177 = t2383 * t2458;
3123   t8180 = t634 * t2409;
3124   t8185 = t2460 * t665;
3125   t8190 = -0.68272379506610123966e1 * t627 * t8148 + 0.26233858457773445622e1 * t6881 * t8152 - 0.45186746351441547127e1 * t2011 * t8155 - 0.12751277419167548965e1 * t627 * t8159 - 0.25502554838335097930e1 * t627 * t8163 + 0.11378729917768353994e1 * t627 * t8166 + 0.22757459835536707989e1 * t627 * t8169 + 0.32937059624806545678e0 * t1967 * t2557 + 0.32937059624806545678e0 * t627 * t8174 + 0.58783429053584738202e0 * t8177 * t2461 - 0.357234676004290560e0 * t633 * t8180 - 0.75919974291285761083e-1 * t2020 * t2557 + 0.52455980750256876982e0 * t2459 * t8185 - 0.16468529812403272839e0 * t880 * t6827;
3126   t8191 = t2359 * t8142;
3127   t8214 = t1887 * t7653;
3128   t8218 = t254 * t660;
3129   t8228 = 0.13549589651714352352e0 * t8191 * t2461 - 0.18307055749595233518e1 * t640 * t7708 * t891 - 0.2202015477522235392e1 * t4124 * t7602 * t263 + 0.29619233351014809600e2 * t251 * t7793 - 0.11064007557120e2 * t251 * t7777 - 0.22762551443898437297e2 * t1888 * t7723 * t6882 + 0.461000314880e0 * t251 * t7771 - 0.357234676004290560e0 * t2489 * t1940 + 0.8298005667840e1 * t2383 * t99 * t2547 - 0.14699145220411854869e1 * t8214 * t5771 * t8048 + 0.56906378609746093242e1 * t4026 * t5771 * t8218 + 0.45165298839047841173e-1 * t6478 * t887 + 0.63756387095837744823e0 * t2504 * t2023 - 0.17620679382074383663e2 * t251 * t7790;
3130   t8233 = my_piecewise3(t96, 0, t7508 + t7545 + t7586 + t7631 + t7681 + t7729 + t7850 + t7886 + t7928 + t7969 + t8015 + t8052 + t8102 + t8146 + t8190 + t8228);
3131   t8234 = my_piecewise3(t95, 0, t8233);
3132   t8240 = 0.3e1 / 0.10e2 * t55 * (t7462 * t113 + t1845 * t385 + t366 * t2032 + 0.3e1 * t2310 * t269 + 0.3e1 * t242 * t2564 + 0.3e1 * t609 * t937 + 0.3e1 * t863 * t688 + t94 * t8234 - t7311) + 0.154e3 / 0.27e2 * t1838;
3133   t8250 = t730 * t2570;
3134   t8254 = t404 * t194;
3135   t8260 = t139 * t194 * t2115;
3136   t8272 = -0.500e3 / 0.27e2 * t969 * t732 - 0.2500e4 / 0.243e3 * t2632 * t4282 * t3143 - 0.2500e4 / 0.243e3 * t2632 * t943 * t698 * t18 - 0.500e3 / 0.243e3 * t975 * t976 * t2038 - 0.25e2 / 0.81e2 * t293 * t295 * t8240 - 0.500e3 / 0.81e2 * t975 * t2637 * t694 - 0.5e1 / 0.9e1 * params->c1 * t8240 * t141 - 0.500e3 / 0.81e2 * t975 * t8250 * t275 - 0.10000e5 / 0.729e3 * t8254 * t2087 - 0.50e2 / 0.27e2 * t2624 * t735 - 0.50000e5 / 0.6561e4 * t8260 * t391 * t2045 * t64 - 0.50e2 / 0.81e2 * t972 * t2094 - 0.500e3 / 0.27e2 * t8254 * t2091 - 0.50e2 / 0.27e2 * t2621 * t30 * t296;
3137   t8291 = t943 * t194 * t2658;
3138   t8301 = t2115 * t391;
3139   t8302 = t754 * t8301;
3140   t8303 = t3582 * t2110;
3141   t8309 = t2045 * t13;
3142   t8311 = t7016 * t8309 * t17;
3143   t8314 = t2130 * t391;
3144   t8324 = t301 * t997;
3145   t8341 = t2128 * t8314;
3146   t8346 = -0.250e3 / 0.81e2 * t2131 * t8291 - 0.5e1 / 0.9e1 * t302 * t8240 * t13 * t304 - 0.50e2 / 0.27e2 * t301 * t8250 * t990 - 0.500e3 / 0.27e2 * t8302 * t8303 - 0.25e2 / 0.81e2 * t998 * t7034 - 0.10000e5 / 0.729e3 * t301 * t8301 * t8311 - 0.5000e4 / 0.243e3 * t754 * t8314 * t8311 - 0.1250e4 / 0.2187e4 * t7056 * t7058 * t391 * t8311 - 0.500e3 / 0.27e2 * t2105 * t8291 - 0.500e3 / 0.27e2 * t8324 * t8303 - 0.50e2 / 0.81e2 * t988 * t7034 - 0.25e2 / 0.27e2 * t2674 * t2111 - 0.25e2 / 0.27e2 * t754 * t756 * t2570 * t990 - 0.5000e4 / 0.729e3 * t2128 * t7038 * t391 * t8311 - 0.500e3 / 0.27e2 * t2116 * t8291 - 0.250e3 / 0.81e2 * t8341 * t8303 - 0.50e2 / 0.27e2 * t2662 * t2111;
3147   t8347 = my_piecewise3(t138, t410 * t2097 * t144 + t410 * t2102 * t144 + 0.3e1 * t2647 * t299 * t144 + 0.3e1 * t983 * t738 * t144 + 0.3e1 * t983 * t740 * t144 + t8272 * t144 + 0.3e1 * t2652 * t300, t8346);
3148   t8387 = t125 * t694;
3149   t8394 = t194 * t708;
3150   t8396 = t8309 * t1146;
3151   t8408 = t194 * t694;
3152   t8412 = t2038 * t127;
3153   t8439 = -0.5e1 / 0.27e2 * t944 * t194 * t2587 - 0.5e1 / 0.27e2 * t2585 * t8387 * t948 + 0.5e1 / 0.162e3 * t2060 * t943 * t2578 - 0.125e3 / 0.2187e4 * t392 * t8394 * t8396 + t709 * t2570 * t956 / 0.108e3 + 0.25e2 / 0.4374e4 * t6945 * t2657 * t8396 - t2571 * t30 * t949 / 0.36e2 + 0.5e1 / 0.162e3 * t2599 * t8408 * t948 - t947 * t701 * t8412 / 0.108e3 - 0.539e3 / 0.21870e5 * t51 * t7376 - t50 * t8240 * t277 / 0.180e3 + t2593 * t2596 / 0.108e3 + t955 * t64 * t8412 / 0.324e3 + t280 * t8240 * t277 / 0.180e3 - t2574 * t2582 / 0.36e2 + 0.5e1 / 0.54e2 * t944 * t2578 + 0.125e3 / 0.1458e4 * t392 * t2061 * t6926 + 0.5e1 / 0.54e2 * t2585 * t948 * t694;
3154   t8454 = 0.12e2 * t517 * t2608 * t287 + 0.6e1 * t517 * t965 * t717 + 0.18e2 * t7295 * t1728 - t137 * t8347 - 0.18e2 * t1723 * t965 * t518 - 0.6e1 * t1723 * t1724 * t416 + 0.1174e1 * t8347 + t179 * (-0.1540e4 / 0.6561e4 * t7310 - 0.418e3 / 0.243e3 * t34 * t336 * t1741 + 0.2809e4 / 0.120e3 * t195 * t35 * t1745 * t45 - 0.18837e5 / 0.3200e4 * t541 * t196 * t1752 * t549 + 0.29403e5 / 0.32000e5 * t1758 * t542 * t1762 * t1766 - 0.19683e5 / 0.80000e5 * t6335 * t1759 / t1760 / t67 * t45 + 0.2e1 * t2065 * t398 + 0.6e1 * t714 * t959 + 0.6e1 * t284 * t2602 + 0.2e1 * t130 * t8439) * t149 - 0.6e1 * t517 * t963 * t717 + 0.6e1 * t517 * t518 * t1002 - 0.3e1 * t179 * t287 * t2682;
3155   t8461 = t60 * t2 * t4;
3156   t8478 = -0.3e1 / 0.4e1 * t794 * t2687 - 0.89062200000000000000e2 * t773 * t2690 * t782 + 0.20781180000000000000e4 * t7230 * t2714 * t4454 * sigma[0] * t30 * t154 + 0.89062200000000000000e2 * t7237 * t1010 * t782 + 0.92773125000000000000e0 * t424 * t7 * t2138 * t430 + 0.18169961209385849999e3 * t1015 * t2738 + 0.18169961209385850000e3 * t426 * t1376 * t10 * t60 * t326 * t166 - 0.16151076630565200000e3 * t2175 * t419 * t10 * t2177 - 0.3e1 / 0.16e2 * t174 * t175 * (t7288 + t8454) * t167 + t8461 * t421 / 0.18e2 - t2182 * t1007 / 0.4e1 - 0.32863279090805449749e3 * t7085 * t3727 * rho[0] * t7103 - 0.59374800000000000000e3 * t2153 * t1010 * t2165 + 0.82683876053829230172e0 * t7217 * t2171 + 0.12081241814357438530e3 * t785 * t2690 * t790;
3157   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3158     v4rho3sigma[0] = t7223 + t8478;
3159 
3160   t8494 = t7078 * t1209;
3161   t8505 = t3134 * t294;
3162   t8514 = t6373 * t84;
3163   t8517 = t1800 * t227;
3164   t8520 = t88 * t2784;
3165   t8530 = t6383 * t84;
3166   t8534 = t578 * t590;
3167   t8539 = t1792 * t227;
3168   t8542 = t6368 * t84;
3169   t8546 = 0.1040e4 / 0.19683e5 * t2232;
3170   t8547 = 0.247e3 / 0.4374e4 * t2235;
3171   t8550 = -0.45e2 / 0.4e1 * t2787 * t2821 * t579 - 0.45e2 / 0.4e1 * t8514 * t2788 - 0.45e2 / 0.4e1 * t8517 * t2788 + 0.9e1 / 0.2e1 * t1055 * t8520 * t239 + 0.9e1 * t2818 * t2822 - t1051 * t1842 / 0.2e1 + 0.9e1 / 0.2e1 * t2815 * t2825 + 0.105e3 / 0.8e1 * t8530 * t1056 * t1801 + 0.9e1 / 0.2e1 * t8534 * t1057 + 0.9e1 * t2815 * t2822 + 0.9e1 * t8539 * t1057 + 0.9e1 / 0.2e1 * t8542 * t1057 + (-0.1100e4 / 0.729e3 * t2203 - t8546 + t8547) * t92;
3172   t8551 = t225 * t6417;
3173   t8552 = t445 * t194;
3174   t8556 = t1049 * t577;
3175   t8559 = t443 * t1799;
3176   t8562 = t2795 * t224;
3177   t8588 = -0.8000e4 / 0.2187e4 * t8551 * t8552 * t1746 + 0.9e1 / 0.4e1 * t8556 * t579 - 0.15e2 / 0.8e1 * t8559 * t1801 - 0.3e1 / 0.2e1 * t8562 * t239 - 0.3e1 / 0.2e1 * t2811 * t606 + 0.3e1 / 0.2e1 * t1055 * t1056 * t1842 - 0.3e1 * t225 * t2260 * t1066 - 0.6e1 * t573 * t2779 - t225 * t226 * (-t8546 + t8547) - 0.3e1 * t573 * t2777 - t225 * t7405 * t445 + 0.9e1 / 0.2e1 * t2818 * t2825 + 0.9e1 / 0.4e1 * t2791 * t1804 - 0.1540e4 / 0.243e3 * t1063 * t1737;
3178   t8603 = t578 * t2832;
3179   t8609 = t1800 * t1062;
3180   t8615 = t18 * sigma[0];
3181   t8620 = t1792 * t1062;
3182   t8623 = t578 * t2839;
3183   t8626 = t578 * t2828;
3184   t8634 = -0.3e1 * t225 * t838 * t2784 - 0.3e1 * t573 * t2785 - 0.3e1 * t1789 * t1060 - 0.3e1 * t1789 * t1067 - t6365 * t446 - 0.45e2 / 0.4e1 * t2787 * t1056 * t1804 + 0.50e2 / 0.27e2 * t8603 * t239 * t30 * t33 * t568 - 0.25e2 / 0.6e1 * t8609 * t579 * t13 * t17 * t182 - 0.55e2 / 0.9e1 * t2799 * t8615 * t602 * t239 + 0.10e2 / 0.3e1 * t8620 * t2802 + 0.10e2 / 0.3e1 * t8623 * t2802 + 0.10e2 / 0.3e1 * t8626 * t2802 + 0.5e1 / 0.3e1 * t2799 * t606 * t13 * t17 * t182;
3185   t8636 = t225 * t1813 * t1066;
3186   t8639 = t573 * t2832;
3187   t8643 = t225 * t7351 * t445;
3188   t8678 = -0.100e3 / 0.81e2 * t8636 * t569 - 0.100e3 / 0.81e2 * t8639 * t569 - 0.100e3 / 0.81e2 * t8643 * t569 - 0.10e2 / 0.9e1 * t225 * t7367 * t445 * t183 - 0.20e2 / 0.9e1 * t225 * t2263 * t1066 * t183 - 0.10e2 / 0.9e1 * t225 * t585 * t2784 * t183 + 0.110e3 / 0.27e2 * t2836 * t525 + 0.110e3 / 0.27e2 * t2840 * t525 + 0.110e3 / 0.27e2 * t2829 * t525 + 0.1100e4 / 0.243e3 * t2833 * t1785 - 0.10e2 / 0.9e1 * t1789 * t1062 * t183 - 0.20e2 / 0.9e1 * t573 * t2839 * t183 - 0.20e2 / 0.9e1 * t573 * t2828 * t183 + 0.9e1 / 0.2e1 * t1055 * t2821 * t606;
3189   t8680 = t8550 + t8588 + t8634 + t8678;
3190   t8692 = t2939 * t99;
3191   t8695 = t6618 * t448;
3192   t8699 = t634 * t2967;
3193   t8712 = t3039 * t2511;
3194   t8715 = t1090 * t7677;
3195   t8726 = -0.357234676004290560e0 * t8692 * t635 + 0.45165298839047841173e-1 * t8695 * t1902 * t111 - 0.357234676004290560e0 * t633 * t8699 - 0.2766001889280e1 * t3015 * t1908 + 0.20722416937066287826e0 * t1851 * t2921 - 0.33837660950279469264e0 * t6651 * t454 * t7682 + 0.975074869248e0 * t106 * t2906 * t682 + 0.1428938704017162240e1 * t2510 * t8712 - 0.89901964350980565762e0 * t7676 * t8715 - 0.58783429053584738202e0 * t6583 * t1091 - 0.75919974291285761083e-1 * t2020 * t3060 - 0.58783429053584738202e0 * t2020 * t3064 - 0.38906391098542524630e0 * t6485 * t3068;
3196   t8737 = t3039 * t254;
3197   t8738 = t1970 * t8737;
3198   t8741 = t1090 * t660;
3199   t8742 = t1970 * t8741;
3200   t8745 = t453 * t643;
3201   t8746 = t8745 * t103;
3202   t8747 = t4020 * t8746;
3203   t8751 = t2012 * t4604 * t254;
3204   t8755 = t2012 * t2867 * t660;
3205   t8759 = t4025 * t4027 * t643;
3206   t8762 = t2867 * t643;
3207   t8763 = t4025 * t8762;
3208   t8767 = t1943 * t3039 * t263;
3209   t8770 = t2932 * t250;
3210   t8773 = t462 * t646;
3211   t8776 = 0.52455980750256876982e0 * t2020 * t3071 + 0.44950982175490282881e0 * t2026 * t2921 - 0.2202015477522235392e1 * t4124 * t2920 * t682 - 0.61023519165317445059e0 * t640 * t1094 * t8018 - 0.25502554838335097930e1 * t627 * t8738 - 0.12751277419167548965e1 * t627 * t8742 - 0.68272379506610123966e1 * t627 * t8747 - 0.16879116930178234168e1 * t2011 * t8751 - 0.84395584650891170841e0 * t2011 * t8755 + 0.26233858457773445622e1 * t6881 * t8759 - 0.45186746351441547127e1 * t2011 * t8763 - 0.32937059624806545678e0 * t627 * t8767 - 0.25502554838335097930e1 * t8770 * t2439 + 0.21799717097663792992e0 * t2011 * t8773;
3212   t8778 = t462 * t665;
3213   t8781 = t1080 * t7996;
3214   t8784 = t2946 * t8142;
3215   t8789 = t2916 * t2458;
3216   t8794 = t2876 * t8142;
3217   t8799 = t2012 * t8741;
3218   t8802 = t4025 * t8746;
3219   t8807 = t2012 * t8737;
3220   t8814 = -0.29391714526792369101e0 * t627 * t8778 + 0.29391714526792369101e0 * t8781 * t2461 + 0.13549589651714352352e0 * t8784 * t2461 - 0.32937059624806545678e0 * t3050 * t1945 + 0.58783429053584738202e0 * t8789 * t2461 - 0.12751277419167548965e1 * t3053 * t6834 - 0.17635028716075421461e1 * t8794 * t2461 - 0.16468529812403272839e0 * t1084 * t6827 + 0.11378729917768353994e1 * t627 * t8799 + 0.20307846858839536740e1 * t627 * t8802 + 0.32937059624806545678e0 * t1967 * t3056 + 0.22757459835536707989e1 * t627 * t8807 + 0.25502554838335097929e1 * t3053 * t7477 - 0.75919974291285761083e-1 * t2020 * t3056;
3221   t8826 = t1943 * t1090 * t682;
3222   t8835 = t245 * t8680;
3223   t8838 = t6673 * t448;
3224   t8842 = t6688 * t453;
3225   t8850 = 0.32937059624806545678e0 * t1967 * t3060 + 0.25502554838335097929e1 * t1967 * t3064 + 0.16879116930178234168e1 * t6604 * t3068 - 0.22757459835536707989e1 * t1967 * t3071 - 0.16468529812403272839e0 * t1964 * t3056 - 0.16468529812403272839e0 * t627 * t8826 - 0.16468529812403272839e0 * t1964 * t3060 - 0.12751277419167548965e1 * t1964 * t3064 - 0.84395584650891170841e0 * t6781 * t3068 + 0.461000314880e0 * t8835 * t111 - 0.11756685810716947640e1 * t8838 * t1902 * t111 - 0.92817332546461565657e1 * t6767 * t8842 * t8130 + 0.80224916908241017662e0 * t7745 * t8715 - 0.12751277419167548965e1 * t3050 * t1972;
3226   t8855 = t1080 * t7627;
3227   t8858 = t1073 * t649;
3228   t8861 = t1094 * t1944;
3229   t8864 = t1133 * t655;
3230   t8875 = t2876 * t609;
3231   t8887 = t1931 * t1069;
3232   t8891 = -0.63756387095837744823e0 * t4065 * t1924 - 0.15183994858257152217e0 * t8855 * t1945 + 0.65874119249613091356e0 * t8858 * t7764 - 0.58783429053584738202e0 * t8060 * t8861 + 0.714469352008581120e0 * t649 * t8864 * t1971 - 0.21968466899514280222e2 * t640 * t2855 * t6526 + 0.20722416937066287826e0 * t1084 * t6865 - 0.119078225334763520e0 * t6488 * t1113 - 0.38253832257502646895e1 * t8875 * t3956 + 0.44950982175490282881e0 * t2880 * t1855 - 0.357234676004290560e0 * t2026 * t2992 + 0.21252129031945914941e0 * t1084 * t6878 + 0.47287857283434471985e0 * t2517 * t2867 * t7662 + 0.29391714526792369101e0 * t8887 * t615 * t111;
3233   t8892 = t4020 * t8762;
3234   t8896 = t3371 * t1090 * t669;
3235   t8905 = t2953 * t6546;
3236   t8910 = t1133 * t263;
3237   t8911 = t1854 * t8910;
3238   t8914 = t8745 * t650;
3239   t8920 = t2012 * t8746;
3240   t8923 = t250 * t2906;
3241   t8926 = t453 * t660;
3242   t8927 = t8926 * t629;
3243   t8932 = 0.50637350790534702506e1 * t2011 * t8892 + 0.20722416937066287826e0 * t627 * t8896 - 0.12751277419167548965e1 * t7474 * t3933 - 0.16468529812403272839e0 * t1084 * t6820 - 0.12751277419167548965e1 * t1084 * t6823 - 0.11064007557120e2 * t251 * t8905 - 0.25306658097095253694e-1 * t6530 * t1113 + 0.89901964350980565762e0 * t633 * t8911 + 0.38253832257502646895e1 * t8078 * t8914 + 0.94575714566868943972e0 * t2517 * t4604 * t2511 + 0.38253832257502646895e1 * t627 * t8920 + 0.89901964350980565762e0 * t8923 * t651 + 0.44051698455185959158e1 * t4062 * t8927 - 0.11378729917768353994e1 * t7654 * t8914;
3244   t8934 = t1080 * t250;
3245   t8940 = t1133 * t642;
3246   t8946 = t2855 * t6546;
3247   t8949 = t2962 * t1971;
3248   t8958 = t634 * t461 * t609;
3249   t8971 = -t253 * t8680 * t103;
3250   t8973 = t642 * t2958;
3251   t8974 = t8973 * t629;
3252   t8976 = t2962 * t1960;
3253   t8978 = t1890 * t1105;
3254   t8979 = t8978 * t1971;
3255   t8981 = t1094 * t6659;
3256   t8983 = t623 * t2844;
3257   t8992 = t614 * t2844;
3258   t8997 = t1901 * t1069;
3259   t9002 = -0.57334058611200e2 * t2953 * t6611 + 0.32124960e2 * t1094 * t6611 + 0.17054206847430144000e2 * t2855 * t6611 + 0.1784720e1 * t8835 * t108 + 0.1784720e1 * t8971 + 0.9555676435200e1 * t8974 + 0.9555676435200e1 * t8976 + 0.17054206847430144000e2 * t8979 + 0.3185225478400e1 * t8981 + 0.9555676435200e1 * t8983 * t921 + 0.9555676435200e1 * t2916 * t1987 + 0.17054206847430144000e2 * t8887 * t2372 + 0.3185225478400e1 * t1080 * t6743 - 0.10708320e2 * t8992 * t921 - 0.10708320e2 * t2932 * t1987 - 0.57334058611200e2 * t8997 * t2372 - 0.68216827389720576000e2 * t8838 * t7798;
3260   t9003 = t655 * t2958;
3261   t9004 = t9003 * t629;
3262   t9006 = t2950 * t1960;
3263   t9008 = t1912 * t1105;
3264   t9009 = t9008 * t1971;
3265   t9011 = t8842 * t6546;
3266   t9028 = t6461 * t453;
3267   t9029 = t9028 * t6546;
3268   t9031 = t1101 * t6659;
3269   t9037 = -0.10708320e2 * t9004 - 0.10708320e2 * t9006 - 0.57334058611200e2 * t9009 + 0.10145661348248508867e2 * t9011 + 0.32124960e2 * t2916 * t2372 + 0.114668117222400e3 * t2946 * t7798 + 0.17054206847430144000e2 * t2946 * t7773 + 0.32124960e2 * t1080 * t7773 - 0.3569440e1 * t1073 * t6743 - 0.42833280e2 * t8905 + 0.10145661348248508867e2 * t8695 * t7798 + 0.32124960e2 * t8949 + 0.114668117222400e3 * t8946 - 0.68216827389720576000e2 * t9029 - 0.3569440e1 * t9031 - 0.42833280e2 * t2876 * t7798 - 0.57334058611200e2 * t2876 * t7773;
3270   t9042 = t6518 * t461;
3271   t9048 = t1077 * t639;
3272   t9053 = 0.38253832257502646895e1 * t8934 * t8057 + 0.325024956416e0 * t106 * t1120 * t2004 - 0.63756387095837744824e0 * t649 * t8940 * t1971 + 0.8298005667840e1 * t3031 * t7754 + 0.29619233351014809600e2 * t251 * t8946 + 0.8298005667840e1 * t251 * t8949 + 0.44950982175490282881e0 * t3372 * t1090 * t6470 - 0.89901964350980565762e0 * t1897 * t2921 + 0.714469352008581120e0 * t1907 * t8958 - 0.258304e0 * t106 * t259 * (t9002 + t9037) + 0.23916119461575365556e1 * t106 * t9042 * t1864 + 0.11378729917768353994e1 * t3050 * t2017 - 0.84395584650891170840e0 * t9048 * t2014 + 0.16879116930178234168e1 * t3043 * t6786;
3273   t9071 = t628 * t1090 * t609;
3274   t9090 = 0.20312390406477209506e2 * t1888 * t8842 * t6882 - 0.357234676004290560e0 * t649 * t1106 * t1948 - 0.16468529812403272839e0 * t1081 * t684 - 0.357234676004290560e0 * t2880 * t1940 - 0.18307055749595233518e1 * t640 * t2962 * t1874 - 0.18307055749595233518e1 * t640 * t8973 * t891 + 0.29391714526792369101e0 * t6859 * t9071 - 0.38253832257502646895e1 * t8997 * t615 * t111 - 0.59502499971174729837e0 * t8090 * t2867 * t7677 - 0.2766001889280e1 * t251 * t9004 - 0.922000629760e0 * t251 * t9031 - 0.32937059624806545678e0 * t2917 * t265 + 0.44950982175490282881e0 * t1087 * t6471 + 0.714469352008581120e0 * t1074 * t8082;
3275   t9106 = t461 * t669;
3276   t9107 = t6638 * t9106;
3277   t9116 = t450 * t1887;
3278   t9121 = t1090 * t6625;
3279   t9126 = -0.922000629760e0 * t1074 * t7879 - 0.714469352008581120e0 * t6573 * t1113 + 0.29391714526792369101e0 * t2020 * t3040 + 0.45165298839047841173e-1 * t6478 * t1091 + 0.47287857283434471984e0 * t4068 * t1875 + 0.80224916908241017663e0 * t2924 * t1883 - 0.10151298285083840779e1 * t633 * t9107 - 0.2143408056025743360e1 * t2531 * t8914 + 0.44051698455185959158e1 * t251 * t8979 - 0.22757459835536707989e1 * t1084 * t6699 + 0.87446194859244818739e0 * t9116 * t6883 - 0.15062248783813849042e1 * t3043 * t6527 + 0.714469352008581120e0 * t2510 * t9121 + 0.8298005667840e1 * t4012 * t8927;
3280   t9137 = t1134 * t256;
3281   t9140 = t462 * t662;
3282   t9143 = t668 * t2967;
3283   t9147 = t8926 * t891;
3284   t9150 = t2867 * t8048;
3285   t9153 = t8992 * t99;
3286   t9164 = 0.76507664515005293790e1 * t2946 * t1902 * t111 + 0.29391714526792369101e0 * t2946 * t609 * t3956 - 0.16468529812403272839e0 * t2883 * t265 - 0.16468529812403272839e0 * t7712 * t8958 - 0.32937059624806545678e0 * t627 * t9137 - 0.16468529812403272839e0 * t627 * t9140 + 0.975074869248e0 * t106 * t9143 * t263 - 0.98018905612252815489e1 * t4031 * t9147 - 0.28372714370060683191e1 * t8094 * t9150 - 0.2766001889280e1 * t9153 * t870 - 0.12751277419167548965e1 * t1967 * t3040 + 0.67692822862798455802e0 * t1084 * t6796 + 0.63756387095837744823e0 * t3050 * t2023 - 0.75919974291285761083e-1 * t2971 * t265;
3287   t9173 = t2876 * t99;
3288   t9181 = t461 * t1912;
3289   t9192 = t1090 * t7662;
3290   t9195 = t461 * t682;
3291   t9196 = t1854 * t9195;
3292   t9203 = 0.32937059624806545678e0 * t6635 * t1113 + 0.714469352008581120e0 * t1074 * t7579 + 0.39207562244901126197e2 * t640 * t9028 * t6526 - 0.11064007557120e2 * t9173 * t7930 - 0.16468529812403272839e0 * t1851 * t2992 - 0.357234676004290560e0 * t649 * t2959 * t650 - 0.94575714566868943969e0 * t1878 * t9181 * t6526 - 0.119078225334763520e0 * t1087 * t6696 + 0.822756481972633600e0 * t251 * t8981 + 0.10984233449757140111e2 * t640 * t9008 * t2013 + 0.714469352008581120e0 * t2510 * t9192 + 0.44950982175490282881e0 * t633 * t9196 - 0.2766001889280e1 * t251 * t9006 - 0.33837660950279469264e0 * t1087 * t6639;
3293   t9212 = t1863 * t1133;
3294   t9216 = t2920 * t256;
3295   t9219 = t1101 * t1944;
3296   t9222 = t1094 * t8068;
3297   t9237 = t2967 * t253;
3298   t9241 = -0.63756387095837744823e0 * t2531 * t9121 - 0.14809616675507404800e2 * t4044 * t8927 + 0.20722416937066287826e0 * t1081 * t671 - 0.2143408056025743360e1 * t3031 * t7923 - 0.2202015477522235392e1 * t106 * t9212 * t669 + 0.41444833874132575653e0 * t7591 * t9216 + 0.65874119249613091356e0 * t8060 * t9219 + 0.43599434195327585985e0 * t8067 * t9222 - 0.14809616675507404800e2 * t251 * t9009 + 0.2468269445917900800e1 * t251 * t8974 - 0.13606156761889987933e2 * t640 * t8842 * t6526 + 0.26206649088979828343e1 * t251 * t9011 + 0.12751277419167548965e1 * t649 * t9181 * t6546 - 0.357234676004290560e0 * t649 * t9237 * t629;
3299   t9244 = t461 * t1890;
3300   t9277 = 0.84395584650891170840e0 * t1878 * t9244 * t6526 - 0.48997150734706182895e0 * t6799 * t9244 * t6882 - 0.22762551443898437297e2 * t1888 * t9028 * t6882 - 0.357234676004290560e0 * t649 * t2888 * t1960 - 0.38906391098542524630e0 * t3074 * t8008 - 0.22757459835536707989e1 * t3053 * t8012 - 0.29391714526792369101e0 * t1084 * t6608 + 0.11378729917768353994e1 * t1084 * t6612 + 0.52455980750256876982e0 * t3074 * t8185 - 0.12751277419167548965e1 * t3053 * t7529 + 0.21799717097663792993e0 * t3043 * t6556 - 0.84395584650891170841e0 * t3043 * t6560 - 0.17620679382074383663e2 * t251 * t9029 - 0.63756387095837744823e0 * t2531 * t9192;
3301   t9285 = t462 * t657;
3302   t9300 = t1073 * t639;
3303   t9313 = -0.119078225334763520e0 * t649 * t454 * t6474 - 0.58783429053584738202e0 * t3074 * t8033 + 0.32937059624806545678e0 * t1084 * t6868 + 0.32937059624806545678e0 * t627 * t9285 + 0.29391714526792369101e0 * t3074 * t7643 + 0.21252129031945914941e0 * t1080 * t1845 * t111 + 0.21252129031945914941e0 * t6791 * t1091 + 0.47287857283434471986e0 * t2517 * t2867 * t6625 + 0.11378729917768353994e1 * t1964 * t3071 + 0.16879116930178234168e1 * t9300 * t8002 - 0.714469352008581120e0 * t649 * t2995 * t6546 + 0.2468269445917900800e1 * t251 * t8976 + 0.98811178874419637035e0 * t2877 * t265 - 0.119078225334763520e0 * t649 * t1116 * t6659;
3304   t9317 = t2916 * t99;
3305   t9325 = t250 * t3020;
3306   t9330 = t2958 * t103;
3307   t9331 = t628 * t9330;
3308   t9352 = -0.89901964350980565762e0 * t1074 * t8127 + 0.8298005667840e1 * t9317 * t2547 + 0.63756387095837744823e0 * t8983 * t242 * t111 + 0.25318675395267351252e1 * t8047 * t9150 - 0.10151298285083840779e1 * t9325 * t1870 - 0.89901964350980565762e0 * t2924 * t1927 + 0.63756387095837744823e0 * t627 * t9331 + 0.44950982175490282881e0 * t2924 * t2008 + 0.714469352008581120e0 * t4065 * t1961 + 0.63756387095837744823e0 * t1964 * t3040 + 0.56906378609746093242e1 * t4026 * t4027 * t8218 - 0.14699145220411854869e1 * t8214 * t4027 * t8048 + 0.47287857283434471985e0 * t1878 * t8940 * t2013 + 0.63756387095837744823e0 * t2916 * t609 * t111;
3309   t9360 = t639 * t1120;
3310   t9371 = t2939 * t250;
3311   t9387 = 0.461000314880e0 * t251 * t8971 + 0.56906378609746093243e1 * t1888 * t8978 * t2425 + 0.10984233449757140111e2 * t4021 * t9147 - 0.59502499971174729836e0 * t9360 * t1880 - 0.12751277419167548965e1 * t2531 * t8712 + 0.12751277419167548965e1 * t6523 * t1091 + 0.12751277419167548965e1 * t1084 * t6547 + 0.44950982175490282881e0 * t2924 * t1949 + 0.63756387095837744823e0 * t9371 * t630 - 0.98018905612252815491e1 * t640 * t8978 * t2013 + 0.44950982175490282881e0 * t1868 * t1106 * t1869 + 0.1428938704017162240e1 * t3015 * t2417 + 0.714469352008581120e0 * t1897 * t2992 - 0.37929099725894513314e0 * t649 * t9244 * t6546;
3312   t9392 = my_piecewise3(t96, 0, t8726 + t8776 + t8814 + t8850 + t8891 + t8932 + t9053 + t9090 + t9126 + t9164 + t9203 + t9241 + t9277 + t9313 + t9352 + t9387);
3313   t9393 = my_piecewise3(t95, 0, t9392);
3314   t9395 = 0.3e1 * t1069 * t688 + t8680 * t113 + 0.3e1 * t609 * t1139 + t1845 * t467 + t448 * t2032 + 0.3e1 * t242 * t3083 + 0.3e1 * t2844 * t269 + t94 * t9393;
3315   t9398 = t2631 * t469;
3316   t9405 = -t9395;
3317   t9409 = t1176 * t1141;
3318   t9422 = t1167 * t730;
3319   t9425 = t469 * t2045;
3320   t9434 = t33 * t694;
3321   t9445 = 0.500e3 / 0.27e2 * t975 * t1196 * t275 * t694 + 0.100e3 / 0.27e2 * t2080 * t1178 + 0.5e1 / 0.3e1 * t1173 * t3166 - 0.5e1 / 0.3e1 * t8505 * t1170 + 0.500e3 / 0.27e2 * t975 * t3195 * t698 - params->c1 * t9395 * t140 + 0.500e3 / 0.27e2 * t2083 * t9398 - 0.5e1 / 0.3e1 * t3136 * t3143 + 0.5e1 / 0.3e1 * t3146 * t1181 + 0.5e1 / 0.9e1 * t483 * t484 * t9405 + 0.100e3 / 0.27e2 * t3149 * t9409 - 0.500e3 / 0.81e2 * t481 * t2086 * t194 + 0.50e2 / 0.27e2 * t293 * t1176 * t1141 * t694 - 0.5e1 / 0.9e1 * t1169 * t2119 * t17 - 0.50e2 / 0.27e2 * t9422 * t3140 + 0.10000e5 / 0.729e3 * t8260 * t9425 * t18 + 0.50e2 / 0.81e2 * t293 * t1176 * t469 * t2038 - 0.50e2 / 0.27e2 * t3139 * t275 * t30 * t9434 + 0.5e1 / 0.9e1 * t2077 * t13 * t485 + 0.50e2 / 0.27e2 * t293 * t1176 * t3085 * t275;
3322   t9463 = t694 * t30;
3323   t9464 = t4268 * t146;
3324   t9465 = t9463 * t9464;
3325   t9469 = t754 * t2115 * t1141;
3326   t9473 = t754 * t756 * t3085;
3327   t9485 = t301 * t3195;
3328   t9488 = t7056 * t7058;
3329   t9489 = t9425 * t7016;
3330   t9492 = t2128 * t7038;
3331   t9500 = t2128 * t2130 * t1141;
3332   t9506 = t301 * t730 * t3085;
3333   t9509 = t301 * t2115;
3334   t9512 = t754 * t2130;
3335   t9515 = 0.25e2 / 0.27e2 * t3202 * t9465 + 0.50e2 / 0.9e1 * t9469 * t746 + 0.5e1 / 0.3e1 * t9473 * t305 + t301 * t294 * t9405 * t146 + 0.50e2 / 0.9e1 * t3187 * t9465 + 0.10e2 / 0.9e1 * t1190 * t2120 + 0.10e2 / 0.3e1 * t3183 * t750 + 0.50e2 / 0.9e1 * t9485 * t746 + 0.250e3 / 0.243e3 * t9488 * t9489 + 0.1000e4 / 0.81e2 * t9492 * t9489 + 0.50e2 / 0.9e1 * t3179 * t9465 + 0.5e1 / 0.3e1 * t3196 * t750 + 0.25e2 / 0.27e2 * t9500 * t746 + 0.5e1 / 0.9e1 * t1197 * t2120 + 0.10e2 / 0.3e1 * t9506 * t305 + 0.2000e4 / 0.81e2 * t9509 * t9489 + 0.1000e4 / 0.27e2 * t9512 * t9489;
3336   t9516 = my_piecewise3(t138, 0.3e1 * t1184 * t738 * t144 + 0.3e1 * t1184 * t740 * t144 + t488 * t2097 * t144 + t488 * t2102 * t144 + 0.3e1 * t3169 * t299 * t144 + t9445 * t144 + 0.3e1 * t3174 * t300, t9515);
3337   t9530 = t475 * t761;
3338   t9537 = t1142 * t125;
3339   t9548 = t6945 * t469;
3340   t9554 = t3086 * t123;
3341   t9563 = t709 * t3085;
3342   t9566 = t2119 * t1146;
3343   t9577 = t2060 * t1141;
3344   t9581 = t194 * t123;
3345   t9582 = t9581 * t127;
3346   t9585 = t9537 * t3100 / 0.18e2 + t3089 * t3095 / 0.20e2 - t280 * t9405 * t127 / 0.100e3 + t470 * t8387 * t956 / 0.18e2 - 0.5e1 / 0.486e3 * t9548 * t2062 - t2060 * t3162 * t956 / 0.108e3 + t9554 * t1147 / 0.20e2 - t1142 * t698 * t711 / 0.36e2 + t50 * t9405 * t127 / 0.100e3 - t9563 * t1147 / 0.60e2 + t1145 * t9566 / 0.60e2 - t4204 * t2596 / 0.36e2 - t3106 * t3095 / 0.60e2 + 0.25e2 / 0.243e3 * t1153 * t2062 - t1153 * t9566 / 0.180e3 - t9577 * t3100 / 0.108e3 - 0.25e2 / 0.162e3 * t470 * t2045 * t9582;
3347   t9598 = t1156 * t308;
3348   t9602 = t517 * t714;
3349   t9613 = 0.1174e1 * t9516 - 0.12e2 * t1037 * t2755 * t717 - 0.12e2 * t179 * t2770 * t308 - 0.6e1 * t1723 * t1724 * t493 - 0.36e2 * t2748 * t2759 * t518 + 0.12e2 * t1037 * t9530 * t287 - 0.6e1 * t179 * t3115 * t308 + 0.2e1 * t179 * t130 * t9585 * t149 - 0.12e2 * t2752 * t2763 - 0.24e2 * t2752 * t2756 + 0.6e1 * t179 * t284 * t3114 * t149 + 0.24e2 * t1037 * t9598 * t287 - 0.12e2 * t9602 * t1039 - t179 * t2068 * t493 + 0.12e2 * t1037 * t2759 * t717 - 0.6e1 * t179 * t2766 * t308;
3350   t9627 = t3114 * t149;
3351   t9634 = t1723 * t284;
3352   t9660 = t6279 * t130;
3353   t9667 = -0.6e1 * t179 * t1157 * t761 - 0.3e1 * t179 * t287 * t3206 + 0.6e1 * t517 * t518 * t1201 + 0.2e1 * t179 * t2065 * t475 * t149 - 0.12e2 * t1037 * t9627 * t287 + 0.6e1 * t517 * t1164 * t717 + 0.36e2 * t9634 * t2749 - 0.3e1 * t179 * t717 * t1201 - 0.6e1 * t179 * t1042 * t761 + 0.36e2 * t2748 * t1038 * t287 * t717 - 0.4e1 * t1037 * t1038 * t2068 - 0.2e1 * t179 * t476 * t2135 + 0.6e1 * t179 * t714 * t1156 * t149 + 0.36e2 * t2748 * t2755 * t518 - 0.48e2 * t9660 * t1038 * t1724 - t137 * t9516 + 0.24e2 * t2752 * t2760;
3354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3355     v4rho3lapl[0] = t8461 * t498 / 0.18e2 - t2182 * t1206 / 0.4e1 + 0.5497666666666666667e0 * t7213 * t1209 * t330 - 0.3e1 / 0.4e1 * t794 * t3211 - 0.24739500000000000000e1 * t2187 * t3214 * t330 + 0.89062200000000000000e2 * t7237 * t1209 * t782 + 0.40270806047858128433e2 * t8494 * t790 - 0.3e1 / 0.16e2 * t174 * t175 * (t9613 + t9667) * t167 - 0.74218500000000000000e1 * t321 * t322 * t3209 * t330 - 0.89062200000000000000e2 * t773 * t3214 * t782 + 0.12081241814357438530e3 * t785 * t3214 * t790 - 0.59374800000000000000e3 * t2153 * t1209 * t2165 + 0.82683876053829230172e0 * t8494 * t2171 - 0.16151076630565200000e3 * t2175 * t496 * t10 * t2177;
3356 
3357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3358     v4rho3tau[0] = 0.0e0;
3359 
3360   t9704 = t424 * t3693 * t777;
3361   t9737 = 0.18554625000000000000e1 * t424 * t7 * t2685 * t430 - 0.41747906250000000000e1 * t7167 * t1379 - 0.29687400000000000000e2 * t773 * t3689 * t782 - t794 * t3686 / 0.2e1 + 0.44531100000000000000e2 * t9704 * t1024 - 0.60406209071787192648e2 * t5 * t3693 * t1028 * t1032 - 0.45424903023464625000e2 * t1015 * t3729 + 0.12113307472923899999e3 * t1373 * t2738 + 0.12323729659052043656e3 * t7085 * t5161 * t20 * t7103 - 0.14384552624097131250e3 * t426 * t3727 * t10 * t501 * t326 * t166 - 0.46386562500000000000e0 * t2701 * t1384 + 0.23254840140139470986e0 * t7188 * t3716 - 0.77929425000000000000e3 * t7230 * t2714 * t5655 * t30 * t154 + 0.58137100350348677464e0 * t2720 * t3713 * t2723;
3362   t9761 = t424 * t1372 * t2161;
3363   t9765 = t5 * t1372 * t13;
3364   t9829 = t959 * t959;
3365   t9854 = t40 * t577;
3366   t9858 = t187 * t224;
3367   t9870 = t194 * t545;
3368   t9873 = t35 * t13 * t345;
3369   t9886 = t853 * t529;
3370   t9906 = -0.100e3 / 0.81e2 * t7352 * t855 - 0.100e3 / 0.81e2 * t7356 * t855 + 0.200e3 / 0.177147e6 * t1813 * t9870 * t9873 + 0.3125e4 / 0.6561e4 * t6428 * t9870 * t9873 + 0.50e2 / 0.9e1 * t2270 * t2302 + 0.80e2 / 0.27e2 * t3847 * t2273 * t236 - 0.32e2 / 0.6561e4 * t3301 * t3308 + 0.304e3 / 0.19683e5 * t1245 * t9886 + 0.25e2 / 0.216e3 * t6397 * t1246 + 0.475e3 / 0.243e3 * t596 * t9886 + 0.25e2 / 0.216e3 * t3311 * t853 * t40 * t590 + 0.500e3 / 0.243e3 * t7326 * t199 * t227 * sigma[0] - 0.4000e4 / 0.729e3 * t7402 * t2298 + t2260 * t30 * t1246 / 0.2187e4;
3371   t9909 = t2297 * sigma[0];
3372   t9926 = t1239 * t594;
3373   t9927 = t9926 * t30;
3374   t9939 = t845 * t845;
3375   t9944 = 0.80e2 / 0.19683e5 * t2263 * t3305 - 0.1720e4 / 0.59049e5 * t585 * t9909 - 0.5375e4 / 0.729e3 * t1829 * t9909 - 0.220e3 / 0.81e2 * t3288 * t603 + 0.80e2 / 0.27e2 * t3291 * t800 + 0.80e2 / 0.27e2 * t3296 * t800 - 0.440e3 / 0.81e2 * t1242 * t2203 - 0.100e3 / 0.81e2 * t3311 * t853 * t187 * t227 + 0.200e3 / 0.243e3 * t9927 * t599 - 0.5e1 / 0.9e1 * t7367 * t358 * t334 - 0.10e2 / 0.9e1 * t2263 * t845 * t334 - 0.5e1 / 0.9e1 * t585 * t2279 * t334 + 0.4e1 * t9939 * t88 + 0.4e1 * t1411 * t2279;
3376   t9950 = -t3263 * t3264 * t606 / 0.8748e4 - t7433 * t363 - 0.2e1 * t2239 * t860 + 0.152e3 / 0.19683e5 * t64 * t598 * t92 + 0.3e1 / 0.4e1 * t6368 * t1236 - t1789 * t1251 / 0.2e1 - t573 * t3320 + t3263 * t9854 * t579 / 0.5832e4 + 0.8e1 / 0.6561e4 * t3263 * t9858 * t239 - 0.15e2 / 0.2e1 * t1800 * t835 * t860 - t830 * t2307 - t225 * (t9906 + t9944) / 0.2e1 - 0.15e2 / 0.4e1 * t6373 * t3274;
3377   t9981 = t860 * t860;
3378   t9984 = 0.3e1 * t1792 * t3277 - 0.15e2 / 0.8e1 * t1800 * t1236 * t606 + 0.3e1 / 0.2e1 * t578 * t363 * t2307 + 0.3e1 / 0.2e1 * t1792 * t3282 + 0.3e1 / 0.2e1 * t578 * t3320 * t239 + 0.3e1 / 0.4e1 * t578 * t1251 * t606 - 0.15e2 / 0.8e1 * t1800 * t1251 * t579 - 0.15e2 / 0.4e1 * t7450 * t2251 + 0.105e3 / 0.16e2 * t6383 * t1236 * t579 + 0.3e1 * t7447 * t835 + 0.3e1 * t2241 * t2254 + 0.3e1 / 0.2e1 * t2241 * t2257 + 0.3e1 / 0.2e1 * t578 * t9981;
3379   t9985 = t9950 + t9984;
3380   t9999 = t103 * t242;
3381   t10000 = t9999 * t263;
3382   t10001 = t372 * t10000;
3383   t10004 = t867 * t251;
3384   t10005 = t9999 * t254;
3385   t10006 = t898 * t10005;
3386   t10009 = t867 * t640;
3387   t10011 = t645 * t242 * t254;
3388   t10012 = t890 * t10011;
3389   t10015 = t890 * t10005;
3390   t10018 = t368 * t649;
3391   t10028 = t6461 * t1272;
3392   t10034 = t863 * t863;
3393   t10035 = t614 * t10034;
3394   t10048 = t1306 * t642;
3395   t10055 = t1306 * t263;
3396   t10056 = t1854 * t10055;
3397   t10059 = 0.43916079499742060904e0 * t7763 * t10001 + 0.34003406451113463906e1 * t10004 * t10006 + 0.22505489240237645558e1 * t10009 * t10012 - 0.30343279780715610650e1 * t10004 * t10015 + 0.43916079499742060904e0 * t10018 * t8064 + 0.650049912832e0 * t106 * t668 * t3512 * t263 + 0.21252129031945914941e0 * t3472 * t609 * t111 + 0.39207562244901126197e2 * t640 * t10028 * t2013 - 0.238156450669527040e0 * t7717 * t910 - 0.1844001259520e1 * t10035 * t111 + 0.69074723123554292753e-1 * t3453 * t1855 + 0.65874119249613091356e0 * t2332 * t381 - 0.21252129031945914941e0 * t649 * t1273 * t1948 - 0.29967321450326855254e0 * t1868 * t1281 * t1869 - 0.21252129031945914941e0 * t649 * t10048 * t1971 - 0.238156450669527040e0 * t649 * t2401 * t1277 + 0.29967321450326855254e0 * t633 * t10056;
3398   t10075 = t1901 * t1254;
3399   t10079 = t886 * t902;
3400   t10080 = t2012 * t10079;
3401   t10083 = t1272 * t254;
3402   t10084 = t10083 * t103;
3403   t10085 = t4025 * t10084;
3404   t10090 = t869 * t2310;
3405   t10096 = t3367 * t2511;
3406   t10100 = t628 * t2523 * t242;
3407   t10109 = 0.59934642900653710508e0 * t883 * t7847 + 0.42504258063891829882e0 * t880 * t7982 + 0.85008516127783659764e0 * t2504 * t2524 + 0.14983660725163427627e0 * t2026 * t3387 - 0.119078225334763520e0 * t649 * t3449 * t1960 + 0.85008516127783659766e0 * t1967 * t3395 - 0.119078225334763520e0 * t3391 * t1940 - 0.12751277419167548965e1 * t10075 * t615 * t111 + 0.15171639890357805326e1 * t627 * t10080 + 0.13538564572559691160e1 * t627 * t10085 - 0.21958039749871030452e0 * t880 * t7515 + 0.42504258063891829882e0 * t2546 * t10090 - 0.97994301469412365794e0 * t8214 * t5301 * t2511 + 0.16879116930178234168e1 * t8047 * t10096 - 0.17001703225556731953e1 * t2437 * t10100 - 0.21958039749871030452e0 * t880 * t7512 - 0.17001703225556731953e1 * t880 * t8163 - 0.50613316194190507389e-1 * t2360 * t381;
3408   t10117 = t614 * t3323;
3409   t10121 = t3383 * t1971;
3410   t10125 = t655 * t3505 * t629;
3411   t10136 = t379 * t931;
3412   t10137 = t1854 * t10136;
3413   t10145 = -t253 * t9985 * t103;
3414   t10148 = t1890 * t1285;
3415   t10160 = t1285 * t254;
3416   t10161 = t10160 * t650;
3417   t10164 = t1262 * t639;
3418   t10167 = -0.21958039749871030452e0 * t2481 * t381 + 0.59934642900653710508e0 * t2489 * t2478 - 0.10979019874935515226e0 * t2471 * t381 - 0.1844001259520e1 * t10117 * t99 * t870 + 0.2766001889280e1 * t251 * t10121 - 0.1844001259520e1 * t251 * t10125 - 0.119078225334763520e0 * t649 * t1286 * t1948 - 0.476312901339054080e0 * t649 * t903 * t3331 - 0.922000629760e0 * t3469 * t1908 + 0.59934642900653710508e0 * t633 * t10137 + 0.59934642900653710508e0 * t3372 * t2523 * t2477 + 0.461000314880e0 * t251 * t10145 + 0.18968792869915364414e1 * t1888 * t10148 * t2425 + 0.238156450669527040e0 * t3428 * t1940 - 0.238156450669527040e0 * t649 * t3512 * t253 * t629 - 0.50613316194190507388e-1 * t3446 * t265 - 0.42504258063891829882e0 * t2531 * t10161 - 0.28131861550297056947e0 * t10164 * t2014;
3419   t10176 = t10028 * t1971;
3420   t10179 = t931 * t254;
3421   t10183 = t2460 * t904;
3422   t10187 = t1943 * t886 * t931;
3423   t10190 = t3394 * t263;
3424   t10191 = t2509 * t10190;
3425   t10194 = t2516 * t10190;
3426   t10197 = t4020 * t10084;
3427   t10200 = t110 * t863;
3428   t10201 = t10200 * t256;
3429   t10204 = t379 * t643;
3430   t10205 = t1442 * t10204;
3431   t10208 = t7655 * t1277;
3432   t10215 = t3518 * t256;
3433   t10218 = t1277 * t263;
3434   t10219 = t372 * t10218;
3435   t10222 = t1277 * t254;
3436   t10223 = t898 * t10222;
3437   t10226 = 0.37929099725894513314e0 * t3431 * t2017 - 0.42504258063891829883e0 * t3434 * t2023 + 0.21252129031945914941e0 * t3431 * t2023 + 0.97972381755974563669e-1 * t2020 * t3404 - 0.17620679382074383663e2 * t251 * t10176 + 0.63050476377912629314e0 * t2517 * t1442 * t10179 + 0.39188952702389825468e0 * t2459 * t10183 - 0.21958039749871030452e0 * t627 * t10187 + 0.21958039749871030452e0 * t627 * t10191 - 0.19594476351194912734e0 * t627 * t10194 - 0.45514919671073415978e1 * t627 * t10197 - 0.17001703225556731953e1 * t2437 * t10201 - 0.18915142913373788794e1 * t8094 * t10205 + 0.25502554838335097930e1 * t8078 * t10208 - 0.29967321450326855254e0 * t1868 * t1293 * t655 * t1971 + 0.43916079499742060904e0 * t7763 * t10215 + 0.27629889249421717102e0 * t7591 * t10219 + 0.43916079499742060904e0 * t8060 * t10223;
3438   t10229 = t4950 * t254;
3439   t10230 = t890 * t10229;
3440   t10233 = t890 * t10222;
3441   t10237 = t634 * t863 * t263;
3442   t10240 = t3346 * t1971;
3443   t10248 = t3490 * t99;
3444   t10251 = t106 * t10200;
3445   t10266 = t1912 * t1285;
3446   t10267 = t10266 * t1971;
3447   t10270 = t902 * t254;
3448   t10271 = t1442 * t10270;
3449   t10277 = t250 * t1863 * t253;
3450   t10285 = 0.29066289463551723990e0 * t8067 * t10230 - 0.39188952702389825468e0 * t8060 * t10233 + 0.952625802678108160e0 * t868 * t10237 + 0.29619233351014809600e2 * t251 * t10240 - 0.12751277419167548965e1 * t3485 * t609 * t111 - 0.29967321450326855254e0 * t3428 * t1855 - 0.238156450669527040e0 * t10248 * t635 + 0.39188952702389825468e0 * t7947 * t10251 - 0.734005159174078464e0 * t106 * t3550 * t682 - 0.67675321900558938528e0 * t883 * t8106 + 0.25502554838335097929e1 * t880 * t7539 + 0.476312901339054080e0 * t2510 * t10161 - 0.32672968537417605163e1 * t640 * t10148 * t2013 - 0.4936538891835801600e1 * t251 * t10267 + 0.14645644599676186814e2 * t4021 * t10271 + 0.59934642900653710508e0 * t2322 * t2341 - 0.67675321900558938528e0 * t10277 * t886 * t8105 + 0.23916119461575365556e1 * t106 * t6518 * t1293 * t669;
3451   t10286 = t1265 * t639;
3452   t10303 = t1943 * t2523 * t379;
3453   t10307 = t2516 * t3367 * t263;
3454   t10310 = t3490 * t250;
3455   t10316 = t3351 * t1971;
3456   t10325 = t634 * t3512;
3457   t10330 = t3346 * t1960;
3458   t10333 = -0.12968797032847508210e0 * t10286 * t2014 + 0.17485326916752292327e0 * t3410 * t2017 - 0.42504258063891829882e0 * t1967 * t3404 + 0.14983660725163427627e0 * t3391 * t1855 + 0.42504258063891829882e0 * t7573 * t887 - 0.54895099374677576129e-1 * t3453 * t1940 + 0.650049912832e0 * t106 * t917 * t2409 - 0.21958039749871030452e0 * t627 * t10303 + 0.14533144731775861996e0 * t2011 * t10307 + 0.42504258063891829882e0 * t10310 * t630 + 0.325024956416e0 * t106 * t3554 * t682 - 0.11064007557120e2 * t251 * t10316 - 0.54895099374677576130e-1 * t1851 * t3537 + 0.476312901339054080e0 * t868 * t7714 + 0.29967321450326855254e0 * t883 * t7603 - 0.238156450669527040e0 * t633 * t10325 + 0.238156450669527040e0 * t1897 * t3537 + 0.14683899485061986386e1 * t251 * t10330;
3459   t10338 = t1293 * t642;
3460   t10345 = t103 * t2409;
3461   t10349 = t1293 * t263;
3462   t10350 = t6638 * t10349;
3463   t10353 = t3505 * t103;
3464   t10354 = t628 * t10353;
3465   t10357 = t886 * t10270;
3466   t10363 = t623 * t10034;
3467   t10368 = t898 * t7981;
3468   t10371 = t1931 * t1254;
3469   t10378 = t902 * t902;
3470   t10380 = t655 * t10378 * t103;
3471   t10386 = t10148 * t1971;
3472   t10395 = -0.61023519165317445059e0 * t640 * t3383 * t1874 - 0.19834166657058243279e0 * t6646 * t10338 * t2013 + 0.26741638969413672554e0 * t1868 * t10338 * t1971 - 0.238156450669527040e0 * t649 * t372 * t10345 - 0.67675321900558938528e0 * t633 * t10350 + 0.42504258063891829882e0 * t627 * t10354 + 0.11064007557120e2 * t4012 * t10357 + 0.2766001889280e1 * t3472 * t99 * t2547 + 0.42504258063891829882e0 * t10363 * t111 + 0.476312901339054080e0 * t3469 * t2417 - 0.1844001259520e1 * t251 * t10368 + 0.97972381755974563669e-1 * t10371 * t615 * t111 + 0.76507664515005293790e1 * t3445 * t615 * t111 - 0.1844001259520e1 * t251 * t10380 - 0.67675321900558938528e0 * t250 * t3550 * t651 + 0.14683899485061986386e1 * t251 * t10386 + 0.75875171479661457657e1 * t4026 * t5771 * t10270 + 0.63050476377912629314e0 * t2517 * t3342 * t3376;
3473   t10396 = t10270 * t1277;
3474   t10401 = t263 * t902;
3475   t10405 = t1259 * t639;
3476   t10413 = t3351 * t1960;
3477   t10425 = t4025 * t5301 * t254;
3478   t10428 = t3367 * t254;
3479   t10429 = t4025 * t10428;
3480   t10432 = t2477 * t254;
3481   t10433 = t886 * t10432;
3482   t10442 = t628 * t886 * t615;
3483   t10447 = t1294 * t256;
3484   t10450 = -0.85008516127783659766e0 * t2531 * t10396 - 0.18915142913373788795e1 * t8094 * t10096 + 0.63050476377912629316e0 * t2517 * t1442 * t10401 + 0.56263723100594113894e0 * t10405 * t2014 - 0.75858199451789026629e0 * t3434 * t2017 - 0.2936020636696313856e1 * t4124 * t2477 * t931 - 0.4936538891835801600e1 * t251 * t10413 + 0.15762619094478157328e0 * t1878 * t10048 * t2013 - 0.29967321450326855254e0 * t1897 * t3387 + 0.14983660725163427627e0 * t1868 * t3424 * t1960 + 0.17489238971848963748e1 * t6881 * t10425 - 0.30124497567627698084e1 * t2011 * t10429 - 0.11986928580130742102e1 * t7676 * t10433 - 0.79336666628232973116e0 * t8090 * t1442 * t10432 + 0.10696655587765469022e1 * t7745 * t10433 + 0.25502554838335097929e1 * t8055 * t10442 + 0.13814944624710858551e0 * t880 * t7502 + 0.13814944624710858551e0 * t627 * t10447;
3485   t10456 = t3472 * t2458;
3486   t10466 = t245 * t9985;
3487   t10469 = t2446 * t3331;
3488   t10472 = t3394 * t2511;
3489   t10475 = t886 * t10401;
3490   t10481 = t108 * t2310;
3491   t10486 = t6618 * t1258;
3492   t10490 = t623 * t3323;
3493   t10495 = t890 * t7981;
3494   t10498 = t6688 * t1272;
3495   t10499 = t10498 * t1971;
3496   t10503 = 0.6370450956800e1 * t876 * t10481 + 0.5684735615810048000e1 * t3445 * t1987 + 0.10145661348248508867e2 * t10486 * t2372 - 0.7138880e1 * t10368 + 0.6370450956800e1 * t10490 * t921 - 0.19111352870400e2 * t3485 * t1987 + 0.6370450956800e1 * t10495 + 0.5684735615810048000e1 * t10330 + 0.10145661348248508867e2 * t10499 + 0.5684735615810048000e1 * t10386 - 0.42833280e2 * t10316;
3497   t10515 = t921 * t863;
3498   t10518 = t642 * t3505;
3499   t10519 = t10518 * t629;
3500   t10521 = t3383 * t1960;
3501   t10523 = t642 * t10378;
3502   t10524 = t10523 * t103;
3503   t10528 = 0.10708320e2 * t10121 - 0.76445411481600e2 * t2395 * t8162 + 0.22738942463240192000e2 * t2406 * t8162 + 0.6370450956800e1 * t10363 * t108 - 0.19111352870400e2 * t10075 * t2372 + 0.1784720e1 * t10466 * t108 + 0.42833280e2 * t876 * t10515 + 0.6370450956800e1 * t10519 + 0.3185225478400e1 * t10521 + 0.6370450956800e1 * t10524 + 0.22738942463240192000e2 * t2359 * t10515;
3504   t10530 = t6673 * t1258;
3505   t10537 = t1273 * t1960;
3506   t10541 = t3335 * t1960;
3507   t10550 = -0.68216827389720576000e2 * t10530 * t2372 - 0.7138880e1 * t10117 * t921 - 0.3569440e1 * t3468 * t1987 + 0.10708320e2 * t10537 + 0.114668117222400e3 * t10240 - 0.7138880e1 * t10125 - 0.3569440e1 * t10541 - 0.19111352870400e2 * t10267 + 0.3185225478400e1 * t3472 * t1987 + 0.5684735615810048000e1 * t10371 * t2372 - 0.7138880e1 * t867 * t10481;
3508   t10569 = 0.10708320e2 * t3472 * t2372 + 0.10708320e2 * t1265 * t1987 + 0.114668117222400e3 * t3445 * t2372 - 0.19111352870400e2 * t10413 - 0.68216827389720576000e2 * t10176 - 0.76445411481600e2 * t2331 * t10515 - 0.7138880e1 * t10035 * t108 + 0.1784720e1 * t10145 - 0.42833280e2 * t3485 * t2372 + 0.42833280e2 * t890 * t8162 - 0.7138880e1 * t10380;
3509   t10591 = -0.10979019874935515226e0 * t3431 * t1945 + 0.19594476351194912734e0 * t10456 * t2461 - 0.476312901339054080e0 * t2489 * t2474 - 0.238156450669527040e0 * t883 * t8180 + 0.14983660725163427627e0 * t1868 * t1286 * t1869 + 0.461000314880e0 * t10466 * t111 - 0.85008516127783659766e0 * t2531 * t10469 - 0.1428938704017162240e1 * t2531 * t10472 + 0.952625802678108160e0 * t2510 * t10475 - 0.238156450669527040e0 * t649 * t3506 * t650 - 0.258304e0 * t106 * t259 * (t10503 + t10528 + t10550 + t10569) + 0.2766001889280e1 * t3453 * t1908 + 0.27629889249421717102e0 * t2459 * t2478 + 0.26741638969413672554e0 * t1868 * t1273 * t1869 - 0.19834166657058243280e0 * t6646 * t1273 * t6647 + 0.31525238188956314657e0 * t2517 * t4943 * t2511 + 0.42504258063891829882e0 * t10490 * t242 * t111;
3510   t10633 = -0.21958039749871030452e0 * t2504 * t2452 - 0.17001703225556731953e1 * t2504 * t2455 + 0.39188952702389825468e0 * t8177 * t3461 - 0.11252744620118822779e1 * t7698 * t2443 + 0.15171639890357805325e1 * t2504 * t2448 + 0.1645512963945267200e1 * t251 * t10519 - 0.13606156761889987933e2 * t640 * t10498 * t2013 + 0.238156450669527040e0 * t649 * t1306 * t655 * t1971 - 0.11756685810716947640e1 * t10530 * t615 * t111 + 0.952625802678108160e0 * t2510 * t10396 - 0.21968466899514280222e2 * t640 * t3346 * t2013 + 0.2766001889280e1 * t251 * t10537 - 0.42504258063891829882e0 * t3431 * t1972 + 0.85008516127783659766e0 * t3434 * t1972 - 0.75858199451789026628e0 * t1967 * t3407 - 0.85008516127783659765e0 * t2531 * t10475 - 0.19746155567343206400e2 * t4044 * t10357 + 0.21958039749871030452e0 * t3434 * t1945;
3511   t10635 = t1970 * t10079;
3512   t10658 = t6768 * t643;
3513   t10678 = -0.17001703225556731953e1 * t627 * t10635 - 0.10979019874935515226e0 * t3473 * t265 + 0.1645512963945267200e1 * t251 * t10524 - 0.21958039749871030452e0 * t2546 * t10237 + 0.97972381755974563669e-1 * t3410 * t2023 - 0.12968797032847508210e0 * t6485 * t3368 - 0.42504258063891829883e0 * t1964 * t3395 - 0.19594476351194912734e0 * t2020 * t3395 + 0.29967321450326855254e0 * t250 * t3554 * t651 + 0.18968792869915364414e1 * t1888 * t3346 * t6533 - 0.92817332546461565657e1 * t6767 * t10498 * t10658 + 0.69074723123554292755e-1 * t1851 * t3387 - 0.32672968537417605163e1 * t640 * t3346 * t1874 + 0.25502554838335097929e1 * t8078 * t10472 + 0.58735597940247945544e1 * t4062 * t10357 - 0.75858199451789026628e0 * t7654 * t10472 + 0.21252129031945914941e0 * t1964 * t3404 + 0.20312390406477209506e2 * t1888 * t10498 * t2425;
3514   t10681 = t7955 * t1277;
3515   t10684 = t379 * t660;
3516   t10694 = t634 * t931 * t242;
3517   t10707 = t867 * t106;
3518   t10708 = t917 * t2416;
3519   t10714 = t869 * t242 * t863;
3520   t10726 = t3485 * t99;
3521   t10729 = -0.21958039749871030452e0 * t877 * t933 - 0.42504258063891829883e0 * t2531 * t10681 + 0.31525238188956314657e0 * t2517 * t1442 * t10684 - 0.97994301469412365794e0 * t8214 * t5771 * t10204 + 0.16879116930178234168e1 * t8047 * t10205 + 0.952625802678108160e0 * t868 * t10694 - 0.1428938704017162240e1 * t3453 * t2417 + 0.1645512963945267200e1 * t251 * t10495 + 0.822756481972633600e0 * t251 * t10521 - 0.13069187414967042065e2 * t4031 * t10271 - 0.922000629760e0 * t251 * t10541 - 0.11986928580130742102e1 * t10707 * t10708 - 0.75858199451789026629e0 * t7654 * t10208 + 0.11064007557120e2 * t2546 * t10714 + 0.952625802678108160e0 * t2364 * t3519 - 0.734005159174078464e0 * t106 * t1863 * t1306 * t669 - 0.12204703833063489012e1 * t640 * t10523 * t645 - 0.11064007557120e2 * t10726 * t2547;
3522   t10736 = t2458 * t638;
3523   t10737 = t876 * t10736;
3524   t10754 = t931 * t931;
3525   t10758 = t645 * t2400;
3526   t10779 = -0.28131861550297056947e0 * t6781 * t3368 - 0.78377905404779650936e0 * t7628 * t2455 - 0.51875188131390032840e0 * t10737 * t2443 + 0.69941307667009169309e0 * t7628 * t2448 + 0.26206649088979828343e1 * t251 * t10499 - 0.1844001259520e1 * t868 * t10090 + 0.37929099725894513314e0 * t1964 * t3407 + 0.17485326916752292327e0 * t2020 * t3407 + 0.21958039749871030452e0 * t880 * t8174 + 0.21958039749871030452e0 * t1967 * t3358 + 0.650049912832e0 * t106 * t668 * t10754 - 0.12204703833063489012e1 * t640 * t890 * t10758 + 0.238156450669527040e0 * t649 * t1281 * t1948 + 0.45165298839047841173e-1 * t10486 * t615 * t111 - 0.119078225334763520e0 * t2026 * t3537 + 0.97972381755974563669e-1 * t3445 * t609 * t111 + 0.15762619094478157329e0 * t1878 * t1273 * t6683 + 0.36614111499190467036e1 * t640 * t10266 * t2013;
3527   t10781 = t634 * t379 * t615;
3528   t10786 = t4020 * t10428;
3529   t10790 = t2012 * t1442 * t902;
3530   t10795 = t3403 * t254;
3531   t10796 = t1970 * t10795;
3532   t10800 = t1943 * t3403 * t263;
3533   t10809 = t368 * t1878;
3534   t10826 = -0.1428938704017162240e1 * t2546 * t10781 - 0.19594476351194912734e0 * t3410 * t1972 + 0.33758233860356468337e1 * t2011 * t10786 - 0.11252744620118822779e1 * t2011 * t10790 + 0.13538564572559691160e1 * t880 * t7874 - 0.85008516127783659765e0 * t627 * t10796 - 0.10979019874935515226e0 * t627 * t10800 - 0.11252744620118822779e1 * t2499 * t7624 + 0.15171639890357805325e1 * t880 * t8169 - 0.10122663238838101478e0 * t7628 * t2452 + 0.29066289463551723990e0 * t10809 * t8069 - 0.39188952702389825468e0 * t10018 * t8061 - 0.56263723100594113893e0 * t2499 * t7487 + 0.17489238971848963747e1 * t7859 * t8152 + 0.952625802678108160e0 * t2510 * t10469 + 0.476312901339054080e0 * t2510 * t10681 - 0.30124497567627698084e1 * t2499 * t8155 + 0.75858199451789026627e0 * t880 * t8166;
3535   t10834 = t3445 * t2458;
3536   t10844 = t2012 * t4943 * t254;
3537   t10847 = t2012 * t10795;
3538   t10859 = t628 * t886 * t609;
3539   t10866 = t368 * t1868;
3540   t10871 = 0.25502554838335097930e1 * t3410 * t2439 + 0.39188952702389825468e0 * t8055 * t10201 - 0.50613316194190507388e-1 * t3410 * t1945 + 0.90330597678095682346e-1 * t10834 * t2461 - 0.17001703225556731953e1 * t7542 * t3362 - 0.21958039749871030452e0 * t2504 * t2557 - 0.10979019874935515226e0 * t880 * t7634 - 0.56263723100594113894e0 * t2011 * t10844 + 0.75858199451789026628e0 * t627 * t10847 + 0.14533144731775861995e0 * t2499 * t7637 - 0.19594476351194912734e0 * t880 * t7640 - 0.10979019874935515226e0 * t1964 * t3358 - 0.50613316194190507389e-1 * t2020 * t3358 - 0.85008516127783659764e0 * t2437 * t10859 - 0.11756685810716947640e1 * t8143 * t3461 - 0.10979019874935515226e0 * t880 * t7620 + 0.27629889249421717102e0 * t10866 * t7592 - 0.10122663238838101478e0 * t7628 * t2557;
3541   t10893 = t3485 * t2458;
3542   t10896 = t3468 * t250;
3543   t10899 = t2012 * t10084;
3544   t10910 = t1307 * t256;
3545   t10918 = 0.56263723100594113894e0 * t6604 * t3368 - 0.51005109676670195860e1 * t2331 * t242 * t10251 + 0.59934642900653710508e0 * t3372 * t886 * t7846 + 0.29967321450326855254e0 * t3372 * t886 * t7602 - 0.1428938704017162240e1 * t2531 * t10208 + 0.36614111499190467036e1 * t640 * t3351 * t1874 - 0.22762551443898437297e2 * t1888 * t10028 * t2425 - 0.85008516127783659764e0 * t880 * t8159 - 0.11756685810716947640e1 * t10893 * t2461 - 0.85008516127783659765e0 * t10896 * t2439 + 0.25502554838335097930e1 * t627 * t10899 + 0.33758233860356468336e1 * t2499 * t7993 - 0.45514919671073415976e1 * t880 * t8148 + 0.19594476351194912734e0 * t7997 * t3461 + 0.90330597678095682346e-1 * t8191 * t3461 - 0.10979019874935515226e0 * t627 * t10910 + 0.65874119249613091357e0 * t3547 * t265 - 0.12204703833063489012e1 * t640 * t10518 * t891;
3546   t10923 = my_piecewise3(t96, 0, t10059 + t10109 + t10167 + t10226 + t10285 + t10333 + t10395 + t10450 + t10591 + t10633 + t10678 + t10729 + t10779 + t10826 + t10871 + t10918);
3547   t10924 = my_piecewise3(t95, 0, t10923);
3548   t10926 = t94 * t10924 + t9985 * t113 + t1254 * t688 + t609 * t1312 + 0.2e1 * t2310 * t385 + 0.2e1 * t242 * t3569 + 0.2e1 * t366 * t2564 + 0.2e1 * t3323 * t269 + 0.4e1 * t863 * t937;
3549   t10936 = t6987 * t1146;
3550   t10942 = t127 * t2570;
3551   t10952 = t1315 * t125;
3552   t10955 = t943 * t943;
3553   t10960 = 0.10e2 / 0.81e2 * t2585 * t948 * t943 + t280 * t10926 * t127 / 0.100e3 - t50 * t10926 * t127 / 0.100e3 + t3594 * t3095 / 0.180e3 + 0.25e2 / 0.4374e4 * t6945 * t3655 * t10936 + 0.10e2 / 0.243e3 * t2599 * t3582 * t3578 + t955 * t64 * t10942 / 0.162e3 - 0.125e3 / 0.2187e4 * t1319 * t8394 * t10936 - t947 * t701 * t10942 / 0.54e2 - t10952 * t3100 / 0.54e2 - t50 * t10955 * t30 * t702 / 0.54e2;
3554   t10964 = t3572 * t123;
3555   t10967 = t8408 * t127;
3556   t10978 = t2060 * t1314;
3557   t10981 = t709 * t3571;
3558   t10992 = t1315 * t698 * t711 / 0.108e3 - t10964 * t1147 / 0.30e2 + 0.5e1 / 0.162e3 * t1319 * t10967 + 0.125e3 / 0.1458e4 * t1319 * t2577 * t6926 - t3575 * t3095 / 0.60e2 + t709 * t10955 * t711 / 0.162e3 + t10978 * t3100 / 0.324e3 + t10981 * t1147 / 0.90e2 - 0.20e2 / 0.81e2 * t2585 * t3587 * t3578 + 0.5e1 / 0.486e3 * t3600 * t10967 - 0.5e1 / 0.81e2 * t3586 * t8387 * t127;
3559   t11027 = t1340 * t194;
3560   t11044 = t1338 * t730;
3561   t11052 = t3622 * t294;
3562   t11055 = -0.100e3 / 0.81e2 * t293 * t1176 * t3571 * t275 - 0.2000e4 / 0.81e2 * t8254 * t2638 - 0.500e3 / 0.81e2 * t975 * t3672 * t698 - 0.1000e4 / 0.243e3 * t975 * t976 * t2570 - params->c1 * t10926 * t140 - 0.50000e5 / 0.6561e4 * t8260 * t1318 * t698 * t64 - 0.2500e4 / 0.729e3 * t2632 * t1318 * t694 * t18 - 0.10000e5 / 0.729e3 * t2632 * t4282 * t4272 - 0.500e3 / 0.81e2 * t1340 * t731 * t694 - 0.10000e5 / 0.729e3 * t11027 * t756 * t698 * t18 - 0.50e2 / 0.81e2 * t293 * t1176 * t1314 * t694 - 0.1000e4 / 0.243e3 * t139 * t731 * t10955 - 0.100e3 / 0.81e2 * t972 * t2644 - 0.5e1 / 0.9e1 * t483 * t484 * t10926 - 0.50e2 / 0.27e2 * t11044 * t3140 - 0.100e3 / 0.81e2 * params->c1 * t10955 * t727 - 0.10e2 / 0.9e1 * t3624 * t3143 - 0.20e2 / 0.9e1 * t11052 * t1170;
3563   t11064 = t983 * t983;
3564   t11080 = t18 * t146;
3565   t11081 = t2577 * t11080;
3566   t11084 = t3655 * t2110;
3567   t11088 = t2128 * t2130 * t1314;
3568   t11091 = t2115 * t1318;
3569   t11095 = t2130 * t1318;
3570   t11101 = t275 * t943;
3571   t11102 = t7016 * t11101;
3572   t11114 = -0.5e1 / 0.9e1 * t3673 * t750 - 0.1250e4 / 0.2187e4 * t7056 * t7058 * t1318 * t11081 - 0.250e3 / 0.243e3 * t2131 * t11084 - 0.25e2 / 0.81e2 * t11088 * t746 - 0.10000e5 / 0.729e3 * t301 * t11091 * t11081 - 0.5000e4 / 0.243e3 * t754 * t11095 * t11081 - 0.500e3 / 0.81e2 * t2116 * t11084 - 0.2000e4 / 0.81e2 * t8324 * t11102 - 0.1000e4 / 0.243e3 * t8341 * t11102 - t301 * t294 * t10926 * t146 - 0.5000e4 / 0.729e3 * t2128 * t7038 * t1318 * t11081;
3573   t11118 = t64 * t146 * t2570;
3574   t11124 = t10955 * t30 * t745;
3575   t11128 = t754 * t756 * t3571;
3576   t11148 = -0.2000e4 / 0.81e2 * t8302 * t11102 - 0.50e2 / 0.81e2 * t998 * t11118 - 0.100e3 / 0.81e2 * t988 * t11118 - 0.50e2 / 0.81e2 * t757 * t11124 - 0.10e2 / 0.9e1 * t11128 * t305 - 0.100e3 / 0.81e2 * t743 * t11124 - 0.20e2 / 0.9e1 * t301 * t730 * t3571 * t305 - 0.500e3 / 0.81e2 * t2105 * t11084 - 0.10e2 / 0.9e1 * t3666 * t750 - 0.50e2 / 0.27e2 * t301 * t3672 * t746 - 0.50e2 / 0.27e2 * t754 * t2115 * t1314 * t746;
3577   t11150 = my_piecewise3(t138, t1349 * t738 * t144 + t1349 * t740 * t144 + t1351 * t738 * t144 + t1351 * t740 * t144 + 0.2e1 * t3646 * t299 * t144 + t11055 * t144 + 0.2e1 * t11064 * t144 + 0.2e1 * t411 * t2647 + 0.4e1 * t985 * t984, t11114 + t11148);
3578   t11156 = -0.2e1 * t179 * t401 * t2682 - 0.4e1 * t179 * t962 * t1002 + 0.8e1 * t517 * t3617 * t287 - 0.4e1 * t517 * t3607 * t287 - 0.2e1 * t179 * t2605 * t416 - 0.24e2 * t6279 * t1214 * t518 + 0.4e1 * t517 * t1335 * t717 + 0.6e1 * t1723 * t1333 * t518 - 0.2e1 * t179 * t287 * t3681 + t179 * (0.19e2 / 0.81e2 * t34 * t598 * t45 - 0.41e2 / 0.8e1 * t195 * t535 * sigma[0] * t45 + 0.1323e4 / 0.800e3 * t541 * t545 * t35 * t549 - 0.78003e5 / 0.256000e6 * t1758 * t196 * t2218 * t1766 + 0.59049e5 / 0.640000e6 * t6335 * t542 / t1760 / t20 * t45 + 0.4e1 * t9829 + 0.4e1 * t398 * t2602 + 0.2e1 * t714 * t1329 + 0.4e1 * t284 * t3603 + 0.2e1 * t130 * (t10960 + t10992)) * t149 - t137 * t11150 + 0.1174e1 * t11150 + 0.8e1 * t517 * t965 * t962;
3579   t11187 = t962 * t962;
3580   t11197 = -0.4e1 * t517 * t11187 * t149 + 0.2e1 * t517 * t1213 * t761 + 0.6e1 * t1723 * t1214 * t717 - t179 * t1332 * t761 - 0.2e1 * t517 * t1333 * t717 - 0.12e2 * t1723 * t1335 * t518 - t179 * t717 * t1364 + 0.2e1 * t517 * t518 * t1364 - 0.12e2 * t1723 * t3232 * t287 - 0.2e1 * t179 * t3606 * t308 - 0.4e1 * t517 * t402 * t2605 + 0.4e1 * t517 * t3609 * t287 + 0.8e1 * t517 * t3614 * t287 + 0.24e2 * t7295 * t2194;
3581   t11203 = -0.49479000000000000000e1 * t321 * t322 * t3684 * t330 + 0.40270806047858128433e2 * t785 * t3689 * t790 - 0.8246500000000000000e0 * t2187 * t3689 * t330 + 0.37753880669866995407e2 * t1390 * t2732 + 0.30615131250000000000e3 * t2713 * t3707 * t3708 * t523 - 0.51952950000000000000e2 * t3698 * t2728 - 0.50338507559822660540e2 * t3702 * t2732 - 0.16699162500000000000e3 * t7184 * t3710 + 0.44531100000000000000e3 * t9761 * t2716 - 0.62012907040371922629e0 * t9765 * t2724 - 0.90849806046929250000e2 * t424 * t1029 * t509 * t777 * t7103 + 0.45304656803840394488e2 * t3724 * t1032 + 0.56630821004800493110e1 * t5 * t2700 * t1388 * t1392 - t2182 * t1369 / 0.12e2 - 0.3e1 / 0.16e2 * t174 * t175 * (t11156 + t11197) * t167;
3582   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3583     v4rho2sigma2[0] = t9737 + t11203;
3584 
3585   t11230 = t1723 * t398;
3586   t11238 = t4229 * t149;
3587   t11251 = t4260 * t294;
3588   t11269 = t64 * t564;
3589   t11289 = t1792 * t226;
3590   t11292 = t578 * t838;
3591   t11295 = -t225 * t2279 * t88 * t445 - 0.13e2 / 0.1458e4 * t3261 - 0.2e1 * t225 * t3773 * t1066 + 0.3e1 * t2815 * t3841 + 0.13e2 / 0.1458e4 * t1419 * t11269 + 0.5e1 / 0.36e2 * t1789 * t585 * t1416 + 0.5e1 / 0.18e2 * t573 * t2263 * t1416 + 0.5e1 / 0.18e2 * t3808 * t3816 + 0.5e1 / 0.36e2 * t225 * t7367 * t1416 + 0.5e1 / 0.18e2 * t3812 * t3816 + 0.5e1 / 0.36e2 * t1414 * t2784 * t13 * t346 - t11289 * t3821 / 0.864e3 - t11292 * t3821 / 0.864e3;
3592   t11319 = t860 * t13;
3593   t11325 = t363 * t30 * t33;
3594   t11329 = t2241 * t1062;
3595   t11332 = t578 * t3848;
3596   t11335 = -t3819 * t64 * t76 * t606 / 0.1728e4 + 0.110e3 / 0.81e2 * t3844 * t525 + 0.110e3 / 0.81e2 * t3849 * t525 + 0.25e2 / 0.48e2 * t8609 * t18 * t333 * t579 + 0.3e1 * t2815 * t3838 - 0.55e2 / 0.27e2 * t2799 * t3859 * t524 + 0.10e2 / 0.9e1 * t8620 * t3860 + 0.10e2 / 0.9e1 * t8623 * t3860 + 0.10e2 / 0.9e1 * t8626 * t3860 + 0.10e2 / 0.9e1 * t2799 * t11319 * t17 * t182 + 0.50e2 / 0.81e2 * t8603 * t11325 * t568 + 0.10e2 / 0.9e1 * t11329 * t2802 + 0.10e2 / 0.9e1 * t11332 * t2802;
3597   t11344 = t1789 * t226;
3598   t11347 = t573 * t838;
3599   t11350 = t225 * t2260;
3600   t11370 = -0.25e2 / 0.54e2 * t8603 * t3263 * t187 * t239 * sigma[0] + 0.3e1 / 0.2e1 * t8542 * t1408 + t11344 * t1420 / 0.2592e4 + t11347 * t1420 / 0.1296e4 + t11350 * t1420 / 0.2592e4 + 0.3e1 / 0.2e1 * t3790 * t2825 + 0.3e1 * t2818 * t3841 + 0.3e1 * t2818 * t3838 + 0.3e1 / 0.2e1 * t8556 * t835 + 0.3e1 / 0.2e1 * t2791 * t2254 + 0.3e1 / 0.4e1 * t2791 * t2257 + t3263 * t3796 * t606 / 0.5184e4 - 0.15e2 / 0.8e1 * t8559 * t2251;
3601   t11375 = t64 * t214 * t239;
3602   t11383 = t1800 * t226;
3603   t11398 = t578 * t845;
3604   t11401 = t1792 * t358;
3605   t11404 = t2241 * t227;
3606   t11409 = t7450 * t84;
3607   t11412 = 0.110e3 / 0.81e2 * t1414 * t1415 * t2227 + 0.13e2 / 0.2592e4 * t3819 * t11375 - 0.20e2 / 0.27e2 * t3812 * t3824 - 0.20e2 / 0.27e2 * t1414 * t3815 * t818 + 0.5e1 / 0.3456e4 * t11383 * t64 * t76 * t579 - 0.20e2 / 0.27e2 * t3808 * t3824 + 0.3e1 / 0.2e1 * t8534 * t1408 + 0.3e1 * t1055 * t2821 * t860 + 0.3e1 / 0.2e1 * t1055 * t8520 * t363 + 0.3e1 * t11398 * t1057 + 0.3e1 * t11401 * t1057 + 0.3e1 * t11404 * t1057 + 0.3e1 * t3790 * t2822 - 0.15e2 / 0.4e1 * t11409 * t2788;
3608   t11415 = t75 * t577;
3609   t11419 = t7447 * t84;
3610   t11425 = t578 * t585;
3611   t11426 = t239 * sigma[0];
3612   t11439 = t1800 * t358;
3613   t11448 = -t3263 * t11415 * t579 / 0.3456e4 + 0.3e1 * t11419 * t1057 + 0.3e1 * t3793 * t2822 - 0.13e2 / 0.7776e4 * t3266 - 0.5e1 / 0.972e3 * t11425 * t4881 * t11426 - 0.13e2 / 0.3888e4 * t3830 * t3827 - 0.13e2 / 0.3888e4 * t3833 * t3827 + 0.1000e4 / 0.729e3 * t8551 * t8552 * t2208 - t225 * t1411 * t2784 - 0.15e2 / 0.4e1 * t11439 * t2788 - 0.5e1 / 0.12e2 * t8626 * t3853 + 0.25e2 / 0.81e2 * t8636 * t826 - 0.5e1 / 0.12e2 * t8620 * t3853;
3614   t11456 = t845 * t231;
3615   t11474 = t1813 * t194;
3616   t11475 = t225 * t11474;
3617   t11476 = t18 * t10;
3618   t11488 = t830 * t2832;
3619   t11491 = 0.25e2 / 0.81e2 * t8639 * t826 - 0.5e1 / 0.12e2 * t8623 * t3853 - 0.20e2 / 0.27e2 * t573 * t3848 * t183 - 0.20e2 / 0.27e2 * t225 * t11456 * t445 * t183 - 0.20e2 / 0.27e2 * t225 * t3847 * t1066 * t183 - 0.20e2 / 0.27e2 * t2239 * t1062 * t183 - 0.20e2 / 0.27e2 * t830 * t2839 * t183 - 0.20e2 / 0.27e2 * t830 * t2828 * t183 + 0.25e2 / 0.26244e5 * t11475 * t3245 * t11476 + 0.25e2 / 0.81e2 * t8643 * t826 + 0.10e2 / 0.9e1 * t2799 * t18 * t235 * t239 - 0.25e2 / 0.18e2 * t2833 * t2235 - 0.100e3 / 0.243e3 * t11488 * t569;
3620   t11493 = t358 * t594;
3621   t11495 = t225 * t11493 * t445;
3622   t11507 = t231 * t445;
3623   t11527 = -0.100e3 / 0.243e3 * t11495 * t569 - 0.5e1 / 0.24e2 * t2799 * t18 * t333 * t606 - 0.185e3 / 0.8748e4 * t3783 * t3784 * t3241 + 0.3e1 * t8539 * t1408 - 0.25e2 / 0.9e1 * t2787 * t11507 * t363 * t2802 - t7433 * t446 - 0.2e1 * t2239 * t1060 - 0.2e1 * t2239 * t1067 - t830 * t2777 - 0.15e2 / 0.4e1 * t2787 * t1056 * t2257 - 0.2e1 * t830 * t2779 - t830 * t2785 - 0.15e2 / 0.2e1 * t2787 * t2821 * t835;
3624   t11540 = t573 * t84;
3625   t11543 = t225 * t227;
3626   t11559 = -0.15e2 / 0.2e1 * t2787 * t1056 * t2254 - 0.15e2 / 0.2e1 * t8514 * t3780 - 0.15e2 / 0.2e1 * t8517 * t3780 + 0.3e1 / 0.2e1 * t3793 * t2825 + 0.3e1 / 0.2e1 * t1055 * t1056 * t2307 + 0.5e1 / 0.1458e4 * t11540 * t3785 + 0.5e1 / 0.1458e4 * t11543 * t3785 + 0.105e3 / 0.8e1 * t8530 * t1056 * t2251 - t1789 * t1412 - 0.2e1 * t573 * t3774 - 0.2e1 * t573 * t3776 - t8562 * t363 / 0.2e1 - t2811 * t860 - t1051 * t2307 / 0.2e1;
3627   t11562 = t11295 + t11335 + t11370 + t11412 + t11448 + t11491 + t11527 + t11559;
3628   t11578 = t106 * t6518;
3629   t11589 = t1133 * t379;
3630   t11593 = t250 * t1134;
3631   t11598 = t110 * t6461;
3632   t11599 = t250 * t11598;
3633   t11600 = t3964 * t1971;
3634   t11609 = t2867 * t7955;
3635   t11618 = 0.23916119461575365556e1 * t11578 * t3891 * t669 + 0.325024956416e0 * t106 * t9143 * t379 + 0.5532003778560e1 * t9317 * t4136 - 0.922000629760e0 * t3999 * t1908 - 0.1468010318348156928e1 * t4124 * t11589 * t263 - 0.42504258063891829882e0 * t11593 * t907 - 0.42504258063891829882e0 * t4065 * t2345 - 0.17620679382074383663e2 * t11599 * t11600 + 0.29967321450326855254e0 * t3372 * t1090 * t7846 + 0.14983660725163427627e0 * t3372 * t1090 * t7602 - 0.32672968537417605163e1 * t4031 * t11609 + 0.29967321450326855254e0 * t3372 * t3039 * t2477 - 0.119078225334763520e0 * t649 * t454 * t10345;
3636   t11622 = t4081 * t99;
3637   t11625 = t1094 * t7981;
3638   t11640 = t3981 * t2458;
3639   t11652 = -0.734005159174078464e0 * t4124 * t3891 * t682 - 0.238156450669527040e0 * t11622 * t635 + 0.822756481972633600e0 * t251 * t11625 + 0.2766001889280e1 * t3031 * t869 * t366 * t609 - 0.10979019874935515226e0 * t1081 * t933 - 0.10979019874935515226e0 * t2504 * t3056 - 0.10979019874935515226e0 * t880 * t9137 - 0.54895099374677576130e-1 * t880 * t9140 + 0.19594476351194912734e0 * t11640 * t2461 + 0.85008516127783659766e0 * t3053 * t3947 * t657 - 0.19594476351194912734e0 * t3952 * t8033 + 0.69074723123554292753e-1 * t1084 * t7502 + 0.12751277419167548965e1 * t1084 * t7539;
3640   t11654 = t1105 * t371;
3641   t11655 = t11654 * t103;
3642   t11656 = t2012 * t11655;
3643   t11659 = t453 * t902;
3644   t11660 = t11659 * t103;
3645   t11661 = t2012 * t11660;
3646   t11666 = t4089 * t1960;
3647   t11679 = t3964 * t1960;
3648   t11682 = t110 * t6688;
3649   t11683 = t639 * t11682;
3650   t11684 = t3964 * t2013;
3651   t11687 = t250 * t11682;
3652   t11692 = 0.75858199451789026628e0 * t627 * t11656 + 0.75858199451789026628e0 * t627 * t11661 + 0.17485326916752292327e0 * t2020 * t3966 + 0.822756481972633600e0 * t251 * t11666 - 0.42504258063891829882e0 * t880 * t8742 + 0.16879116930178234168e1 * t2499 * t8892 - 0.10979019874935515226e0 * t3904 * t1945 - 0.85008516127783659764e0 * t2504 * t3064 - 0.85008516127783659764e0 * t880 * t8738 + 0.14683899485061986386e1 * t4062 * t11679 - 0.13606156761889987933e2 * t11683 * t11684 + 0.26206649088979828343e1 * t11687 * t11600 + 0.69074723123554292753e-1 * t1433 * t671;
3653   t11720 = -0.10979019874935515226e0 * t3982 * t265 - 0.12751277419167548965e1 * t8875 * t4140 + 0.32937059624806545678e0 * t2332 * t463 + 0.476312901339054080e0 * t1074 * t10237 - 0.922000629760e0 * t9153 * t1427 - 0.238156450669527040e0 * t649 * t3879 * t650 + 0.19594476351194912734e0 * t3074 * t10183 + 0.45165298839047841173e-1 * t8784 * t3461 - 0.75858199451789026628e0 * t1967 * t3966 - 0.39668333314116486557e0 * t9360 * t8069 + 0.53483277938827345108e0 * t2924 * t8061 - 0.42504258063891829882e0 * t1084 * t8159 + 0.16879116930178234168e1 * t3043 * t7993;
3654   t11729 = t461 * t931;
3655   t11737 = t1094 * t10005;
3656   t11745 = t1094 * t1442 * t263;
3657   t11748 = t246 * t640;
3658   t11749 = t2953 * t2442;
3659   t11754 = t2855 * t5771 * t254;
3660   t11757 = t454 * t10218;
3661   t11760 = -0.22757459835536707989e1 * t1084 * t8148 + 0.19594476351194912734e0 * t8789 * t3461 + 0.97972381755974563669e-1 * t8781 * t3461 - 0.1468010318348156928e1 * t4124 * t11729 * t263 - 0.33837660950279469264e0 * t1087 * t8106 + 0.14983660725163427627e0 * t883 * t9196 - 0.15171639890357805326e1 * t10004 * t11737 - 0.19594476351194912734e0 * t10018 * t8861 + 0.34970653833504584654e0 * t7628 * t3071 + 0.14533144731775861996e0 * t8067 * t11745 + 0.33758233860356468337e1 * t11748 * t11749 + 0.17489238971848963748e1 * t246 * t1888 * t11754 + 0.13814944624710858551e0 * t7591 * t11757;
3662   t11761 = t1101 * t10222;
3663   t11792 = 0.21958039749871030452e0 * t8060 * t11761 - 0.29967321450326855254e0 * t1074 * t1854 * t366 * t669 + 0.21252129031945914941e0 * t1084 * t7982 + 0.31525238188956314656e0 * t4068 * t2484 + 0.15762619094478157328e0 * t4068 * t2536 - 0.21968466899514280222e2 * t4031 * t11684 + 0.31525238188956314658e0 * t2517 * t4604 * t4016 + 0.31525238188956314658e0 * t2517 * t2867 * t10401 + 0.56263723100594113894e0 * t6604 * t3978 + 0.10979019874935515226e0 * t1967 * t4097 - 0.22757459835536707989e1 * t880 * t8747 + 0.87446194859244818739e0 * t7859 * t8759 - 0.85008516127783659766e0 * t8770 * t3948;
3664   t11805 = t2916 * t3951;
3665   t11809 = t1080 * t863 * t99;
3666   t11817 = t1943 * t4056 * t263;
3667   t11822 = -t253 * t11562 * t103;
3668   t11825 = t4081 * t250;
3669   t11828 = t1073 * t251;
3670   t11831 = t1094 * t2451;
3671   t11834 = -0.85008516127783659766e0 * t3053 * t10201 - 0.42504258063891829883e0 * t3053 * t3947 * t662 + 0.56263723100594113894e0 * t9300 * t3947 * t646 - 0.75858199451789026629e0 * t3053 * t3947 * t665 + 0.19594476351194912734e0 * t11805 * t2461 + 0.19594476351194912734e0 * t11809 * t2461 + 0.42504258063891829882e0 * t2504 * t3040 + 0.21252129031945914941e0 * t880 * t9331 - 0.10979019874935515226e0 * t627 * t11817 + 0.461000314880e0 * t251 * t11822 + 0.42504258063891829882e0 * t11825 * t630 - 0.15171639890357805326e1 * t11828 * t10015 - 0.19594476351194912734e0 * t8060 * t11831;
3672   t11835 = t246 * t251;
3673   t11838 = t2855 * t2442;
3674   t11843 = t1116 * t10005;
3675   t11850 = t1912 * t1452;
3676   t11854 = t1101 * t7981;
3677   t11858 = t3020 * t2477;
3678   t11861 = t4604 * t2446;
3679   t11866 = t3039 * t2446;
3680   t11869 = t1090 * t10270;
3681   t11872 = -0.45514919671073415978e1 * t11835 * t4169 - 0.30124497567627698084e1 * t11748 * t11838 + 0.13538564572559691160e1 * t11835 * t4177 + 0.21958039749871030452e0 * t7763 * t11843 + 0.13814944624710858551e0 * t10866 * t9216 - 0.50613316194190507388e-1 * t7628 * t3056 + 0.36614111499190467036e1 * t640 * t11850 * t2013 - 0.922000629760e0 * t251 * t11854 - 0.67675321900558938528e0 * t246 * t106 * t11858 - 0.65345937074835210326e1 * t4031 * t11861 - 0.54895099374677576130e-1 * t2883 * t381 + 0.5532003778560e1 * t4012 * t11866 + 0.5532003778560e1 * t4012 * t11869;
3682   t11878 = t1080 * t106;
3683   t11879 = t259 * t366;
3684   t11883 = t3891 * t256;
3685   t11886 = t2876 * t3951;
3686   t11889 = t1887 * t462;
3687   t11902 = t1105 * t1893;
3688   t11906 = t642 * t3878;
3689   t11913 = -0.119078225334763520e0 * t883 * t8699 - 0.1428938704017162240e1 * t11878 * t11879 * t2416 + 0.13814944624710858551e0 * t7591 * t11883 + 0.65874119249613091357e0 * t11886 * t2417 - 0.48997150734706182895e0 * t11889 * t2426 + 0.84395584650891170840e0 * t4068 * t2492 + 0.14983660725163427627e0 * t2924 * t2550 - 0.28131861550297056947e0 * t2499 * t8755 + 0.12751277419167548965e1 * t880 * t8920 + 0.34970653833504584654e0 * t8855 * t2448 + 0.37937585739830728828e1 * t4026 * t11902 * t2446 - 0.12204703833063489012e1 * t640 * t11906 * t891 - 0.48997150734706182895e0 * t8214 * t4027 * t10204;
3690   t11914 = t2867 * t10204;
3691   t11917 = t1105 * t254;
3692   t11918 = t11917 * t1277;
3693   t11921 = t8926 * t1277;
3694   t11933 = t628 * t3039 * t242;
3695   t11938 = t1452 * t254;
3696   t11939 = t11938 * t650;
3697   t11942 = t11850 * t1971;
3698   t11950 = 0.84395584650891170840e0 * t8047 * t11914 - 0.42504258063891829882e0 * t2531 * t11918 - 0.21252129031945914941e0 * t2531 * t11921 + 0.13814944624710858551e0 * t3074 * t2478 + 0.72665723658879309976e-1 * t3043 * t7637 - 0.97972381755974563671e-1 * t1084 * t7640 - 0.85008516127783659764e0 * t7542 * t3933 - 0.85008516127783659764e0 * t2437 * t11933 - 0.42504258063891829882e0 * t2437 * t9071 - 0.42504258063891829882e0 * t2531 * t11939 - 0.4936538891835801600e1 * t251 * t11942 - 0.119078225334763520e0 * t649 * t1453 * t1948 + 0.36614111499190467036e1 * t4021 * t11609;
3699   t11952 = t1887 * t11598;
3700   t11953 = t4027 * t7655;
3701   t11958 = t1478 * t263;
3702   t11959 = t1854 * t11958;
3703   t11964 = t454 * t10000;
3704   t11967 = t1101 * t10005;
3705   t11970 = t1094 * t10011;
3706   t11985 = -0.22762551443898437297e2 * t11952 * t11953 + 0.10979019874935515226e0 * t1084 * t8174 + 0.29967321450326855254e0 * t633 * t11959 - 0.50613316194190507388e-1 * t8855 * t2557 + 0.21958039749871030452e0 * t7763 * t11964 + 0.17001703225556731953e1 * t10004 * t11967 + 0.11252744620118822779e1 * t10009 * t11970 + 0.21958039749871030452e0 * t10018 * t9219 - 0.50613316194190507388e-1 * t7628 * t3060 + 0.14533144731775861995e0 * t10809 * t9222 - 0.10979019874935515226e0 * t3995 * t265 - 0.9873077783671603200e1 * t4044 * t11866 - 0.4936538891835801600e1 * t4044 * t11679;
3707   t11991 = t1478 * t642;
3708   t12009 = t366 * t253;
3709   t12016 = t3951 * t249;
3710   t12017 = t1080 * t12016;
3711   t12021 = t2946 * t4135 * t99;
3712   t12024 = 0.21252129031945914941e0 * t3981 * t609 * t111 - 0.119078225334763520e0 * t8692 * t910 + 0.15762619094478157328e0 * t1878 * t11991 * t2013 + 0.42504258063891829882e0 * t3050 * t2524 - 0.10979019874935515226e0 * t3888 * t265 + 0.76507664515005293790e1 * t2971 * t4140 + 0.476312901339054080e0 * t2364 * t3910 - 0.238156450669527040e0 * t649 * t1106 * t3331 + 0.42504258063891829882e0 * t2916 * t863 * t111 + 0.21958039749871030452e0 * t8858 * t12009 * t1944 - 0.11756685810716947640e1 * t2876 * t7627 * t3948 - 0.50613316194190507388e-1 * t12017 * t1945 + 0.90330597678095682346e-1 * t12021 * t2461;
3713   t12027 = t450 * t649;
3714   t12032 = t450 * t1878;
3715   t12039 = t1080 * t10736;
3716   t12042 = t1478 * t655;
3717   t12046 = t1479 * t256;
3718   t12053 = t2950 * t2523;
3719   t12060 = 0.21958039749871030452e0 * t12027 * t8064 - 0.50613316194190507388e-1 * t8855 * t2452 + 0.14533144731775861995e0 * t12032 * t8069 - 0.19594476351194912734e0 * t12027 * t8061 - 0.39188952702389825468e0 * t8855 * t2455 - 0.25937594065695016420e0 * t12039 * t2443 + 0.238156450669527040e0 * t649 * t12042 * t1971 - 0.10979019874935515226e0 * t627 * t12046 + 0.37929099725894513314e0 * t1964 * t3966 + 0.69074723123554292755e-1 * t1851 * t3892 - 0.1844001259520e1 * t251 * t12053 - 0.238156450669527040e0 * t2489 * t2992 + 0.238156450669527040e0 * t1074 * t7714;
3720   t12061 = t1931 * t1423;
3721   t12072 = t634 * t461 * t615;
3722   t12085 = t2962 * t2523;
3723   t12089 = t628 * t1090 * t615;
3724   t12099 = 0.97972381755974563669e-1 * t12061 * t615 * t111 - 0.25502554838335097929e1 * t4139 * t10251 + 0.238156450669527040e0 * t1074 * t634 * t366 * t682 - 0.714469352008581120e0 * t2546 * t12072 + 0.97972381755974563669e-1 * t3955 * t7948 + 0.45165298839047841173e-1 * t8695 * t366 * t8142 * t869 - 0.25306658097095253694e-1 * t2360 * t463 - 0.54895099374677576130e-1 * t2471 * t463 + 0.1645512963945267200e1 * t251 * t12085 + 0.12751277419167548965e1 * t8055 * t12089 + 0.69074723123554292753e-1 * t880 * t8896 - 0.1844001259520e1 * t3015 * t3456 - 0.119078225334763520e0 * t649 * t2959 * t1277;
3725   t12103 = t1090 * t10179;
3726   t12108 = t3964 * t8068;
3727   t12119 = t3964 * t1869;
3728   t12122 = t8745 * t1277;
3729   t12125 = t1120 * t2416;
3730   t12134 = -0.54895099374677576130e-1 * t1851 * t4075 + 0.476312901339054080e0 * t2510 * t12103 + 0.238156450669527040e0 * t2510 * t11921 + 0.16879116930178234168e1 * t8047 * t12108 - 0.85008516127783659764e0 * t1084 * t8163 + 0.10979019874935515226e0 * t880 * t9285 + 0.10979019874935515226e0 * t1967 * t3972 + 0.476312901339054080e0 * t3999 * t2417 + 0.26741638969413672554e0 * t7745 * t12119 - 0.37929099725894513314e0 * t7654 * t12122 - 0.59934642900653710508e0 * t10707 * t12125 + 0.37937585739830728828e1 * t4026 * t4027 * t10270 + 0.18968792869915364414e1 * t4026 * t4027 * t7955;
3731   t12135 = t6766 * t11682;
3732   t12136 = t453 * t6768;
3733   t12140 = t1887 * t11682;
3734   t12144 = t1943 * t1090 * t931;
3735   t12151 = t1970 * t11655;
3736   t12154 = t1970 * t11660;
3737   t12159 = t1854 * t11729;
3738   t12164 = t623 * t3864;
3739   t12172 = -0.92817332546461565657e1 * t12135 * t12136 * t7655 + 0.20312390406477209506e2 * t12140 * t11953 - 0.10979019874935515226e0 * t627 * t12144 - 0.25306658097095253694e-1 * t2020 * t4097 - 0.42504258063891829883e0 * t1964 * t4100 - 0.85008516127783659766e0 * t627 * t12151 - 0.85008516127783659766e0 * t627 * t12154 - 0.19594476351194912734e0 * t2020 * t4100 + 0.29967321450326855254e0 * t633 * t12159 - 0.714469352008581120e0 * t3031 * t10781 + 0.42504258063891829882e0 * t12164 * t242 * t111 - 0.29967321450326855254e0 * t7676 * t12119 - 0.33837660950279469264e0 * t9325 * t2335;
3740   t12190 = t1943 * t3039 * t379;
3741   t12205 = t4089 * t1971;
3742   t12208 = t614 * t3864;
3743   t12209 = t12208 * t99;
3744   t12212 = -0.85008516127783659764e0 * t8770 * t3362 - 0.85008516127783659764e0 * t3053 * t10100 - 0.42504258063891829882e0 * t3053 * t10859 - 0.58783429053584738202e0 * t8794 * t3461 - 0.10979019874935515226e0 * t3050 * t2452 - 0.10979019874935515226e0 * t1084 * t7512 - 0.10979019874935515226e0 * t627 * t12190 - 0.19834166657058243280e0 * t8090 * t2867 * t371 * t669 - 0.33837660950279469264e0 * t10277 * t1090 * t8105 - 0.714469352008581120e0 * t2531 * t12122 - 0.21252129031945914941e0 * t649 * t11991 * t1971 + 0.2766001889280e1 * t251 * t12205 - 0.1844001259520e1 * t12209 * t870;
3745   t12213 = t371 * t682;
3746   t12214 = t1090 * t12213;
3747   t12233 = t3981 * t99;
3748   t12236 = t3039 * t4016;
3749   t12239 = t1090 * t10401;
3750   t12245 = t1854 * t11589;
3751   t12250 = 0.238156450669527040e0 * t2510 * t12214 + 0.325024956416e0 * t106 * t3872 * t682 - 0.119078225334763520e0 * t1087 * t8180 + 0.21252129031945914941e0 * t1080 * t2310 * t111 + 0.238156450669527040e0 * t1897 * t4075 + 0.31525238188956314656e0 * t2517 * t2867 * t10179 + 0.15762619094478157328e0 * t2517 * t2867 * t10684 + 0.2766001889280e1 * t12233 * t2547 + 0.476312901339054080e0 * t2510 * t12236 + 0.476312901339054080e0 * t2510 * t12239 + 0.21252129031945914941e0 * t8983 * t366 * t111 + 0.29967321450326855254e0 * t633 * t12245 - 0.29967321450326855254e0 * t1897 * t3892;
3752   t12258 = t250 * t3872;
3753   t12272 = t2867 * t10270;
3754   t12281 = -0.119078225334763520e0 * t4183 * t1940 + 0.29967321450326855254e0 * t2924 * t2341 + 0.29967321450326855254e0 * t2924 * t2468 + 0.29967321450326855254e0 * t12258 * t651 + 0.29967321450326855254e0 * t8923 * t914 + 0.31525238188956314657e0 * t2517 * t5767 * t2511 - 0.119078225334763520e0 * t7717 * t1113 + 0.29367798970123972772e1 * t4062 * t11866 + 0.29367798970123972772e1 * t4062 * t11869 - 0.65345937074835210326e1 * t4031 * t12272 + 0.14983660725163427627e0 * t2924 * t2422 - 0.19834166657058243279e0 * t9360 * t2319 + 0.26741638969413672554e0 * t2924 * t2539;
3755   t12283 = t9003 * t886;
3756   t12289 = t2372 * t366;
3757   t12294 = t11906 * t629;
3758   t12297 = t1890 * t1452;
3759   t12298 = t12297 * t1971;
3760   t12300 = t8973 * t886;
3761   t12302 = t655 * t3878;
3762   t12303 = t12302 * t629;
3763   t12305 = 0.3185225478400e1 * t11625 - 0.3569440e1 * t12283 - 0.7138880e1 * t12053 - 0.68216827389720576000e2 * t9028 * t7538 - 0.3569440e1 * t11854 - 0.68216827389720576000e2 * t8838 * t12289 + 0.1784720e1 * t11822 + 0.6370450956800e1 * t12085 + 0.6370450956800e1 * t12294 + 0.3185225478400e1 * t11666 + 0.5684735615810048000e1 * t12298 + 0.3185225478400e1 * t12300 - 0.7138880e1 * t12303;
3764   t12306 = t4002 * t1960;
3765   t12315 = t1987 * t366;
3766   t12333 = -0.3569440e1 * t12306 - 0.19111352870400e2 * t11942 - 0.38222705740800e2 * t2953 * t8162 + 0.10708320e2 * t1094 * t8158 + 0.11369471231620096000e2 * t8978 * t2447 - 0.19111352870400e2 * t2876 * t12315 - 0.3569440e1 * t1073 * t10481 + 0.10708320e2 * t3981 * t2372 + 0.10708320e2 * t12205 + 0.114668117222400e3 * t2946 * t12289 + 0.21416640e2 * t2916 * t4145 + 0.11369471231620096000e2 * t2855 * t8162 - 0.42833280e2 * t2876 * t12289 - 0.19111352870400e2 * t2953 * t8158;
3767   t12361 = 0.5684735615810048000e1 * t2855 * t8158 + 0.114668117222400e3 * t2855 * t7538 + 0.5684735615810048000e1 * t2946 * t12315 + 0.10145661348248508867e2 * t8842 * t7538 - 0.42833280e2 * t2953 * t7538 + 0.10708320e2 * t1080 * t12315 + 0.21416640e2 * t1080 * t10515 + 0.11369471231620096000e2 * t2946 * t10515 + 0.21416640e2 * t2962 * t2447 + 0.10145661348248508867e2 * t8695 * t12289 + 0.11369471231620096000e2 * t8887 * t4145 + 0.21416640e2 * t1094 * t8162 + 0.3185225478400e1 * t8983 * t1468;
3768   t12374 = t1901 * t1423;
3769   t12389 = t245 * t11562;
3770   t12392 = 0.6370450956800e1 * t2916 * t3482 + 0.6370450956800e1 * t12164 * t921 + 0.3185225478400e1 * t3981 * t1987 + 0.5684735615810048000e1 * t12061 * t2372 - 0.7138880e1 * t12208 * t921 - 0.3569440e1 * t3998 * t1987 - 0.19111352870400e2 * t12374 * t2372 - 0.3569440e1 * t8992 * t1468 - 0.7138880e1 * t2932 * t3482 - 0.38222705740800e2 * t9008 * t2447 + 0.3185225478400e1 * t1080 * t10481 - 0.38222705740800e2 * t8997 * t4145 - 0.38222705740800e2 * t2876 * t10515 + 0.1784720e1 * t12389 * t108;
3771   t12414 = t4179 * t253;
3772   t12418 = t1073 * t106;
3773   t12425 = -0.258304e0 * t106 * t259 * (t12305 + t12333 + t12361 + t12392) + 0.476312901339054080e0 * t11593 * t899 + 0.29967321450326855254e0 * t2489 * t2921 + 0.21252129031945914941e0 * t1964 * t4057 - 0.922000629760e0 * t251 * t12283 - 0.714469352008581120e0 * t4065 * t2390 - 0.42504258063891829882e0 * t1967 * t4057 + 0.21252129031945914941e0 * t3904 * t2023 - 0.42504258063891829882e0 * t2531 * t12103 - 0.238156450669527040e0 * t649 * t12414 * t629 - 0.59934642900653710508e0 * t12418 * t10708 + 0.2766001889280e1 * t4012 * t11679 - 0.29967321450326855254e0 * t2924 * t2430;
3774   t12437 = t4056 * t254;
3775   t12438 = t1970 * t12437;
3776   t12452 = t668 * t4179;
3777   t12462 = -0.42504258063891829882e0 * t2531 * t12239 - 0.21252129031945914941e0 * t2531 * t12214 - 0.12751277419167548965e1 * t12374 * t615 * t111 - 0.11064007557120e2 * t4044 * t11600 - 0.85008516127783659765e0 * t627 * t12438 + 0.476312901339054080e0 * t4065 * t2393 + 0.238156450669527040e0 * t4065 * t2398 - 0.94575714566868943969e0 * t4068 * t2413 + 0.12751277419167548965e1 * t4065 * t2396 + 0.15762619094478157329e0 * t2517 * t2867 * t12213 + 0.650049912832e0 * t106 * t12452 * t263 - 0.61023519165317445059e0 * t640 * t8973 * t1442 - 0.238156450669527040e0 * t649 * t2888 * t2523;
3778   t12484 = t1094 * t10229;
3779   t12487 = t1094 * t10222;
3780   t12490 = t1101 * t2451;
3781   t12497 = 0.476312901339054080e0 * t2510 * t11918 + 0.14983660725163427627e0 * t1868 * t1453 * t1869 + 0.476312901339054080e0 * t2510 * t11939 + 0.18968792869915364414e1 * t1888 * t12297 * t2425 + 0.14983660725163427627e0 * t2026 * t3892 + 0.325024956416e0 * t106 * t1120 * t2409 + 0.650049912832e0 * t106 * t2906 * t931 - 0.119078225334763520e0 * t649 * t1116 * t7981 + 0.14533144731775861995e0 * t8067 * t12484 - 0.19594476351194912734e0 * t8060 * t12487 + 0.21958039749871030452e0 * t8060 * t12490 + 0.25502554838335097930e1 * t11835 * t4166 + 0.21958039749871030452e0 * t8858 * t10001;
3782   t12501 = t1073 * t640;
3783   t12504 = t1430 * t639;
3784   t12515 = t639 * t11598;
3785   t12523 = t3998 * t250;
3786   t12530 = 0.17001703225556731953e1 * t11828 * t10006 + 0.11252744620118822779e1 * t12501 * t10012 - 0.28131861550297056947e0 * t12504 * t2014 + 0.37929099725894513314e0 * t3904 * t2017 + 0.21252129031945914941e0 * t9371 * t887 + 0.13814944624710858551e0 * t2459 * t2921 - 0.9873077783671603200e1 * t4044 * t11869 + 0.39207562244901126197e2 * t12515 * t11684 + 0.31525238188956314656e0 * t2517 * t4604 * t3376 + 0.29967321450326855254e0 * t883 * t8911 - 0.85008516127783659765e0 * t12523 * t2439 - 0.67675321900558938528e0 * t9325 * t7592 - 0.59934642900653710508e0 * t2924 * t8064;
3787   t12537 = t3964 * t1944;
3788   t12547 = t2460 * t1107;
3789   t12560 = 0.97972381755974563669e-1 * t3952 * t7643 - 0.12968797032847508210e0 * t3952 * t8008 + 0.17485326916752292327e0 * t3952 * t8185 - 0.75858199451789026628e0 * t7654 * t12537 - 0.11756685810716947640e1 * t8838 * t615 * t4140 + 0.19594476351194912734e0 * t8177 * t3942 + 0.97972381755974563669e-1 * t7997 * t3942 + 0.19594476351194912734e0 * t2459 * t12547 + 0.45165298839047841173e-1 * t8191 * t3942 - 0.56263723100594113894e0 * t7698 * t3068 - 0.56263723100594113894e0 * t2499 * t8751 + 0.1645512963945267200e1 * t251 * t12294 + 0.29967321450326855254e0 * t1087 * t7847;
3790   t12578 = t634 * t1133 * t242;
3791   t12596 = 0.14683899485061986386e1 * t251 * t12298 + 0.461000314880e0 * t12389 * t111 - 0.32672968537417605163e1 * t640 * t12297 * t2013 - 0.238156450669527040e0 * t2880 * t2474 + 0.29967321450326855254e0 * t2880 * t2478 - 0.922000629760e0 * t251 * t12306 + 0.476312901339054080e0 * t868 * t12578 - 0.10979019874935515226e0 * t2917 * t381 + 0.19594476351194912734e0 * t2946 * t863 * t3956 + 0.238156450669527040e0 * t868 * t8958 - 0.1844001259520e1 * t251 * t12303 + 0.19594476351194912734e0 * t8887 * t366 * t3956 - 0.119078225334763520e0 * t649 * t9237 * t886;
3792   t12603 = t1080 * t251;
3793   t12624 = t450 * t1868;
3794   t12629 = 0.14983660725163427627e0 * t1087 * t7603 - 0.39188952702389825468e0 * t7628 * t3064 - 0.25937594065695016420e0 * t10737 * t3068 + 0.25502554838335097930e1 * t12603 * t12009 * t10005 - 0.119078225334763520e0 * t649 * t4118 * t1960 - 0.10979019874935515226e0 * t2481 * t463 + 0.31525238188956314656e0 * t639 * t1134 * t892 - 0.33837660950279469264e0 * t883 * t9107 - 0.10979019874935515226e0 * t877 * t1135 - 0.61023519165317445059e0 * t640 * t4089 * t1874 + 0.21958039749871030452e0 * t8858 * t10215 + 0.13814944624710858551e0 * t12624 * t7592 + 0.5532003778560e1 * t3031 * t10714;
3795   t12631 = t634 * t4179;
3796   t12634 = t2902 * t2447;
3797   t12637 = t2995 * t2442;
3798   t12640 = t2995 * t2447;
3799   t12643 = t1116 * t2451;
3800   t12658 = t2946 * t4135;
3801   t12663 = -0.238156450669527040e0 * t633 * t12631 + 0.21958039749871030452e0 * t8060 * t12634 + 0.14533144731775861995e0 * t8067 * t12637 - 0.19594476351194912734e0 * t8060 * t12640 + 0.13814944624710858551e0 * t7591 * t12643 + 0.29619233351014809600e2 * t4062 * t11600 - 0.94575714566868943969e0 * t8094 * t11914 + 0.12751277419167548965e1 * t8078 * t12122 - 0.922000629760e0 * t1074 * t10090 - 0.42504258063891829882e0 * t3904 * t1972 + 0.73228222998380934072e1 * t4021 * t12272 - 0.50613316194190507388e-1 * t12658 * t265 + 0.73228222998380934072e1 * t4021 * t11861;
3802   t12664 = t1863 * t1478;
3803   t12693 = -0.734005159174078464e0 * t106 * t12664 * t669 + 0.32937059624806545678e0 * t2877 * t381 - 0.119078225334763520e0 * t2026 * t4075 - 0.61023519165317445059e0 * t640 * t1094 * t10758 - 0.56263723100594113894e0 * t3043 * t7624 - 0.28131861550297056947e0 * t3043 * t7487 + 0.87446194859244818739e0 * t9116 * t8152 - 0.15062248783813849042e1 * t3043 * t8155 + 0.75858199451789026628e0 * t3050 * t2448 + 0.75858199451789026628e0 * t1084 * t8169 - 0.15062248783813849042e1 * t2499 * t8763 + 0.67692822862798455802e0 * t880 * t8802 - 0.28131861550297056947e0 * t6781 * t3978;
3804   t12697 = t2012 * t4604 * t371;
3805   t12701 = t2012 * t2867 * t902;
3806   t12714 = t1134 * t373;
3807   t12717 = t462 * t904;
3808   t12728 = -0.56263723100594113894e0 * t2011 * t12697 - 0.56263723100594113894e0 * t2011 * t12701 - 0.12968797032847508210e0 * t6485 * t3978 - 0.54895099374677576130e-1 * t1964 * t4097 + 0.72665723658879309976e-1 * t2499 * t8773 - 0.97972381755974563671e-1 * t880 * t8778 - 0.54895099374677576130e-1 * t1964 * t3972 - 0.10979019874935515226e0 * t627 * t12714 - 0.10979019874935515226e0 * t627 * t12717 - 0.25306658097095253694e-1 * t2020 * t3972 + 0.75858199451789026628e0 * t2504 * t3071 + 0.75858199451789026628e0 * t880 * t8807 + 0.37929099725894513314e0 * t880 * t8799;
3809   t12732 = t2859 * t10218;
3810   t12759 = -0.39668333314116486557e0 * t8090 * t2867 * t10432 + 0.53483277938827345108e0 * t7745 * t12732 - 0.1428938704017162240e1 * t2531 * t12537 + 0.14983660725163427627e0 * t4183 * t1855 - 0.25306658097095253694e-1 * t2971 * t381 - 0.18915142913373788795e1 * t8094 * t12108 + 0.37929099725894513314e0 * t1084 * t8166 + 0.67692822862798455802e0 * t1084 * t7874 - 0.10979019874935515226e0 * t3050 * t2557 - 0.10979019874935515226e0 * t1084 * t7515 - 0.54895099374677576130e-1 * t1084 * t7634 - 0.97994301469412365794e0 * t8214 * t4027 * t4016 * t254 - 0.59934642900653710508e0 * t7676 * t12732;
3811   t12788 = -0.56263723100594113894e0 * t9048 * t2443 + 0.476312901339054080e0 * t3015 * t4129 + 0.822756481972633600e0 * t251 * t12300 + 0.476312901339054080e0 * t1074 * t10694 + 0.476312901339054080e0 * t3015 * t3519 - 0.54895099374677576129e-1 * t1433 * t684 - 0.25502554838335097929e1 * t8997 * t242 * t4140 + 0.21252129031945914941e0 * t7573 * t1091 - 0.21252129031945914941e0 * t4065 * t2351 - 0.37929099725894513314e0 * t4065 * t2407 + 0.29967321450326855254e0 * t8923 * t895 + 0.97972381755974563669e-1 * t2020 * t4057 - 0.42504258063891829882e0 * t2531 * t12236;
3812   t12801 = t3878 * t103;
3813   t12802 = t628 * t12801;
3814   t12806 = t2012 * t5767 * t254;
3815   t12809 = t2012 * t12437;
3816   t12825 = -0.58783429053584738202e0 * t8143 * t3942 - 0.10979019874935515226e0 * t2504 * t3060 - 0.10979019874935515226e0 * t880 * t8767 - 0.54895099374677576129e-1 * t880 * t8826 - 0.11064007557120e2 * t9173 * t869 * t366 * t615 + 0.42504258063891829882e0 * t627 * t12802 - 0.56263723100594113894e0 * t2011 * t12806 + 0.75858199451789026628e0 * t627 * t12809 + 0.25502554838335097929e1 * t8078 * t12537 - 0.54895099374677576129e-1 * t1084 * t7620 - 0.85008516127783659764e0 * t3050 * t2455 + 0.85008516127783659766e0 * t1967 * t4100 + 0.12751277419167548965e1 * t8934 * t10442 - 0.12204703833063489012e1 * t640 * t2962 * t3342;
3817   t12831 = my_piecewise3(t96, 0, t12212 + t11720 + t12596 + t11985 + t12099 + t12530 + t11692 + t12560 + t12462 + t11913 + t11792 + t11950 + t12172 + t12250 + t11760 + t12281 + t11872 + t12134 + t11834 + t12663 + t11618 + t12060 + t12497 + t11652 + t12425 + t12825 + t12629 + t12024 + t12788 + t12759 + t12728 + t12693);
3818   t12832 = my_piecewise3(t95, 0, t12831);
3819   t12834 = -0.2e1 * t1069 * t937 - t11562 * t113 - 0.2e1 * t863 * t1139 - t94 * t12832 - t1423 * t688 - t609 * t1484 - t2310 * t467 - 0.2e1 * t242 * t4193 - t448 * t2564 - 0.2e1 * t3864 * t269 - t2844 * t385 - t366 * t3083;
3820   t12849 = t481 * t756;
3821   t12853 = t1509 * t730;
3822   t12875 = -0.10e2 / 0.9e1 * t11251 * t1170 + 0.100e3 / 0.81e2 * t293 * t1176 * t1141 * t943 + 0.5e1 / 0.9e1 * t1514 * t3166 + 0.5e1 / 0.9e1 * t483 * t484 * t12834 + 0.100e3 / 0.81e2 * t293 * t1176 * t4195 * t275 + 0.500e3 / 0.81e2 * t975 * t1196 * t391 * t694 + 0.1000e4 / 0.81e2 * t975 * t1196 * t11101 - 0.500e3 / 0.81e2 * t12849 * t2657 * t698 - 0.50e2 / 0.81e2 * t12853 * t3140 + 0.10000e5 / 0.729e3 * t8260 * t1517 * t6987 * t17 + 0.100e3 / 0.81e2 * t972 * t3163 + 0.10e2 / 0.9e1 * t4275 * t1181 + 0.500e3 / 0.81e2 * t975 * t4331 * t698 - 0.50e2 / 0.81e2 * t3139 * t4267 * t9434 + 0.200e3 / 0.81e2 * t972 * t3159 + 0.5e1 / 0.9e1 * t2621 * t13 * t485;
3823   t12884 = t1176 * t1486;
3824   t12903 = t943 * t30;
3825   t12920 = 0.50e2 / 0.81e2 * t293 * t1176 * t469 * t2570 - 0.5e1 / 0.9e1 * t4262 * t3143 - 0.100e3 / 0.81e2 * t9422 * t4269 + 0.100e3 / 0.81e2 * t3149 * t12884 + 0.5e1 / 0.9e1 * t3146 * t1521 - 0.5e1 / 0.9e1 * t1169 * t2669 * t17 + 0.1000e4 / 0.81e2 * t975 * t3195 * t4282 + 0.10e2 / 0.9e1 * t1173 * t4300 + 0.200e3 / 0.81e2 * t2624 * t1178 - 0.5e1 / 0.9e1 * t8505 * t1511 - 0.10e2 / 0.9e1 * t3136 * t4272 - 0.100e3 / 0.81e2 * t3139 * t12903 * t4268 + 0.50e2 / 0.81e2 * t293 * t1176 * t3085 * t391 + 0.500e3 / 0.27e2 * t8254 * t3155 + 0.50e2 / 0.81e2 * t293 * t1176 * t1486 * t694 + params->c1 * t12834 * t140;
3826   t12943 = (t12875 + t12920) * t144 + 0.2e1 * t4303 * t299 * t144 + t1524 * t738 * t144 + t1524 * t740 * t144 + t3169 * t410 * t144 + 0.2e1 * t1184 * t983 * t144 + 0.2e1 * t4307 * t300 + t488 * t2647 * t144 + 0.2e1 * t4309 * t300 + t1526 * t739 + t1526 * t741;
3827   t12947 = t9463 * t745 * t391;
3828   t12950 = t12903 * t9464;
3829   t12956 = t301 * t730 * t4195;
3830   t12976 = 0.100e3 / 0.27e2 * t9469 * t4315 + 0.50e2 / 0.27e2 * t3187 * t12947 + 0.50e2 / 0.81e2 * t3202 * t12950 + 0.10e2 / 0.9e1 * t1190 * t2670 + 0.20e2 / 0.9e1 * t12956 * t305 + 0.100e3 / 0.27e2 * t9485 * t4315 + 0.100e3 / 0.27e2 * t3179 * t12950 + 0.50e2 / 0.27e2 * t3179 * t12947 + 0.25e2 / 0.81e2 * t3202 * t12947 + 0.50e2 / 0.81e2 * t9500 * t4315 + 0.100e3 / 0.27e2 * t3187 * t12950 + t301 * t294 * t12834 * t146 + 0.10e2 / 0.9e1 * t4325 * t750;
3831   t12980 = t7056 * t7058 * t469;
3832   t12984 = t754 * t756 * t4195;
3833   t12988 = t2128 * t2130 * t1486;
3834   t12995 = t301 * t4331;
3835   t12999 = t754 * t2115 * t1486;
3836   t13007 = t2128 * t7038 * t469;
3837   t13012 = t301 * t3186;
3838   t13015 = t754 * t3201;
3839   t13018 = 0.10e2 / 0.9e1 * t3196 * t994 + 0.250e3 / 0.243e3 * t12980 * t2659 + 0.10e2 / 0.9e1 * t12984 * t305 + 0.25e2 / 0.81e2 * t12988 * t746 + 0.5e1 / 0.9e1 * t9473 * t413 + 0.5e1 / 0.9e1 * t4332 * t750 + 0.50e2 / 0.27e2 * t12995 * t746 + 0.50e2 / 0.27e2 * t12999 * t746 + 0.10e2 / 0.9e1 * t9506 * t413 + 0.20e2 / 0.9e1 * t3183 * t994 + 0.1000e4 / 0.81e2 * t13007 * t2659 + 0.5e1 / 0.9e1 * t1197 * t2670 + 0.2000e4 / 0.81e2 * t13012 * t2659 + 0.1000e4 / 0.27e2 * t13015 * t2659;
3840   t13020 = my_piecewise3(t138, t12943, t12976 + t13018);
3841   t13026 = 0.2e1 * t179 * t714 * t1498 * t149 - 0.2e1 * t179 * t476 * t2682 + 0.8e1 * t1037 * t9598 * t401 - 0.4e1 * t179 * t1157 * t1002 - 0.4e1 * t179 * t1042 * t1002 - 0.24e2 * t2748 * t2759 * t3734 + 0.12e2 * t11230 * t2749 + 0.24e2 * t9634 * t3735 + 0.8e1 * t1037 * t2759 * t962 - 0.8e1 * t1037 * t11238 * t287 + 0.4e1 * t517 * t4255 * t287 - 0.4e1 * t1037 * t1038 * t2605 - 0.4e1 * t1037 * t9627 * t401 + 0.1174e1 * t13020 + 0.12e2 * t2748 * t1038 * t401 * t717;
3842   t13036 = t1498 * t308;
3843   t13047 = t2669 * t1146;
3844   t13050 = t4196 * t123;
3845   t13053 = t1487 * t125;
3846   t13058 = t2060 * t1486;
3847   t13061 = t709 * t4195;
3848   t13070 = t2657 * t698 * t127;
3849   t13082 = t1145 * t13047 / 0.60e2 + t13050 * t1147 / 0.30e2 + t13053 * t3100 / 0.54e2 - t4219 * t3095 / 0.180e3 - t13058 * t3100 / 0.324e3 - t13061 * t1147 / 0.90e2 - t1487 * t698 * t711 / 0.108e3 - t4204 * t3597 / 0.54e2 + 0.25e2 / 0.243e3 * t1153 * t13070 - 0.5e1 / 0.486e3 * t9548 * t13070 - t1142 * t275 * t4206 / 0.54e2 - t4226 * t2596 / 0.324e3 + t9554 * t1490 / 0.60e2;
3850   t13120 = -t1153 * t13047 / 0.180e3 - 0.25e2 / 0.162e3 * t3092 * t2657 * t1638 - t470 * t694 * t4206 / 0.108e3 - t280 * t12834 * t127 / 0.100e3 - t3106 * t4209 / 0.90e2 + t4213 * t2596 / 0.54e2 - t9563 * t1490 / 0.180e3 + t4199 * t3095 / 0.60e2 - t2060 * t4290 * t956 / 0.162e3 + t1142 * t4212 * t956 / 0.27e2 + t470 * t125 * t943 * t956 / 0.27e2 - t2060 * t4286 * t956 / 0.162e3 + t50 * t12834 * t127 / 0.100e3 + t3089 * t4209 / 0.30e2;
3851   t13146 = -0.4e1 * t179 * t3756 * t308 - t179 * t2605 * t493 - 0.8e1 * t2752 * t3740 + 0.8e1 * t2752 * t4238 + 0.8e1 * t1037 * t13036 * t287 + 0.4e1 * t179 * t959 * t1156 * t149 - 0.4e1 * t179 * t3767 * t308 + 0.2e1 * t179 * t130 * (t13082 + t13120) * t149 - 0.48e2 * t9660 * t1038 * t401 * t518 - 0.8e1 * t1037 * t2755 * t962 - 0.8e1 * t2752 * t3764 + 0.8e1 * t2752 * t3743 + 0.12e2 * t2748 * t3763 * t518 - 0.4e1 * t179 * t2770 * t416 + 0.2e1 * t517 * t1506 * t717;
3852   t13151 = t475 * t1002;
3853   t13160 = t1156 * t416;
3854   t13188 = 0.8e1 * t1037 * t13151 * t287 + 0.8e1 * t1037 * t13160 * t287 - 0.4e1 * t1037 * t3763 * t717 + 0.4e1 * t1037 * t4237 * t717 - 0.2e1 * t179 * t962 * t1201 - 0.2e1 * t179 * t1398 * t761 - t179 * t717 * t1537 - 0.2e1 * t179 * t2766 * t416 - 0.2e1 * t179 * t287 * t4342 - 0.12e2 * t2748 * t4237 * t518 - t137 * t13020 - 0.4e1 * t9602 * t1395 - 0.8e1 * t2752 * t3746 - 0.8e1 * t3749 * t2756 + 0.8e1 * t3749 * t2760;
3855   t13198 = t517 * t959;
3856   t13239 = -0.6e1 * t1723 * t1506 * t518 - 0.2e1 * t179 * t3115 * t416 + 0.24e2 * t2748 * t2755 * t3734 - 0.8e1 * t13198 * t1039 - t179 * t401 * t3206 + 0.4e1 * t179 * t284 * t4229 * t149 + 0.2e1 * t179 * t2602 * t475 * t149 - 0.2e1 * t179 * t1499 * t761 + 0.2e1 * t179 * t398 * t3114 * t149 - 0.4e1 * t179 * t4230 * t308 + 0.4e1 * t1037 * t9530 * t401 + 0.4e1 * t517 * t4253 * t287 - 0.4e1 * t179 * t3752 * t308 - 0.4e1 * t3749 * t2763 + 0.24e2 * t2748 * t1038 * t962 * t287 + 0.2e1 * t517 * t518 * t1537;
3857   t13261 = t424 * t4355 * t777;
3858   t13269 = t424 * t1545 * t2161;
3859   t13273 = t5 * t1545 * t13;
3860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3861     v4rho2sigmalapl[0] = -t2182 * t1542 / 0.12e2 - t794 * t4348 / 0.2e1 - 0.8246500000000000000e0 * t2187 * t4351 * t330 - 0.3e1 / 0.16e2 * t174 * t175 * (t13026 + t13146 + t13188 + t13239) * t167 - 0.49479000000000000000e1 * t321 * t322 * t4346 * t330 - 0.29687400000000000000e2 * t773 * t4351 * t782 + 0.40270806047858128433e2 * t785 * t4351 * t790 + 0.92773125000000000000e0 * t424 * t7 * t3209 * t430 + 0.22265550000000000000e2 * t13261 * t1024 - 0.30203104535893596324e2 * t5 * t4355 * t1028 * t1032 + 0.22265550000000000000e3 * t13269 * t2716 - 0.31006453520185961314e0 * t13273 * t2724 - 0.25976475000000000000e2 * t4360 * t2728 - 0.25169253779911330270e2 * t4364 * t2732 + 0.60566537364619499997e2 * t1546 * t2738;
3862 
3863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3864     v4rho2sigmatau[0] = 0.0e0;
3865 
3866   t13304 = t4753 * t294;
3867   t13331 = -0.2000e4 / 0.81e2 * t975 * t4801 * t698 + 0.50e2 / 0.81e2 * t293 * t1176 * t1632 * t694 + 0.100e3 / 0.27e2 * t12849 * t469 * t698 * t64 - 0.10e2 / 0.9e1 * t13304 * t1170 - 0.20e2 / 0.9e1 * t483 * t1660 * t469 * t3085 + 0.2e1 * t3134 * t490 + 0.40e2 / 0.9e1 * t3139 * t3158 * t18 - 0.5e1 / 0.9e1 * t4755 * t3143 + 0.4e1 * t1167 * t1193 - 0.50e2 / 0.27e2 * t293 * t4767 * t1636 * t694 + 0.2e1 * t481 * t3192 + 0.5e1 / 0.9e1 * t3146 * t1664 + 0.500e3 / 0.81e2 * t975 * t4812 * t698;
3868   t13332 = t1656 * t730;
3869   t13347 = t194 * t4454;
3870   t13356 = t1066 * t1066;
3871   t13361 = t69 * t577;
3872   t13365 = t2791 * t227;
3873   t13371 = t8556 * t84;
3874   t13381 = -0.4e1 * t2811 * t1067 - 0.2e1 * t1051 * t2777 - 0.4e1 * t1051 * t2779 - t11344 * t1569 / 0.1458e4 - t11347 * t1569 / 0.729e3 + 0.20e2 / 0.2187e4 * t11425 * t13347 * t11426 - t11350 * t1569 / 0.1458e4 + 0.6e1 * t578 * t6396 * t1563 + 0.6e1 * t578 * t595 * t13356 + 0.620e3 / 0.19683e5 * t3786 + t3263 * t13361 * t579 / 0.1944e4 + 0.6e1 * t13365 * t1057 - t3263 * t4399 * t606 / 0.2916e4 + 0.6e1 * t13371 * t1057 - 0.15e2 / 0.4e1 * t1800 * t1567 * t579 - 0.220e3 / 0.27e2 * t4427 * t525 + 0.220e3 / 0.81e2 * t4410 * t525;
3875   t13391 = t1051 * t2832;
3876   t13398 = t578 * t6428 * t1563;
3877   t13434 = -0.40e2 / 0.27e2 * t2811 * t1062 * t183 - 0.40e2 / 0.27e2 * t1051 * t2839 * t183 - 0.40e2 / 0.27e2 * t1051 * t2828 * t183 - 0.200e3 / 0.243e3 * t13391 * t569 + 0.40e2 / 0.9e1 * t1792 * t4426 * t183 + 0.1000e4 / 0.243e3 * t13398 * t569 + 0.10e2 / 0.9e1 * t578 * t4442 * t239 * t183 - 0.40e2 / 0.27e2 * t225 * t11507 * t1066 * t183 - 0.100e3 / 0.59049e5 * t11475 * t1226 * t11476 + 0.6e1 * t4430 * t4431 * t2784 + 0.6e1 * t1055 * t4418 * t590 - 0.30e2 * t2787 * t4418 * t239 * t227 - 0.15e2 / 0.2e1 * t4417 * t4418 * t606 - 0.40e2 / 0.6561e4 * t11540 * t4456 - 0.40e2 / 0.6561e4 * t11543 * t4456 - 0.2e1 * t225 * t1056 * t2784 - 0.2e1 * t1051 * t2785;
3878   t13438 = t8559 * t84;
3879   t13449 = t578 * t445;
3880   t13453 = t6383 * t85;
3881   t13458 = t573 * t4442;
3882   t13461 = t225 * t4418;
3883   t13478 = 0.3e1 * t6368 * t1564 - 0.15e2 / 0.2e1 * t13438 * t2788 - t1789 * t1567 - 0.2e1 * t225 * t13356 * t88 - 0.4e1 * t2811 * t1060 - 0.2e1 * t8562 * t446 + 0.6e1 * t13449 * t2822 + 0.5e1 / 0.2187e4 * t3798 + 0.105e3 / 0.4e1 * t13453 * t4418 * t579 - 0.5e1 / 0.729e3 * t3822 - 0.20e2 / 0.27e2 * t13458 * t183 - 0.100e3 / 0.243e3 * t13461 * t569 + t11289 * t4449 / 0.486e3 + t11292 * t4449 / 0.486e3 + t3819 * t64 * t1557 * t606 / 0.972e3 + 0.110e3 / 0.81e2 * t4443 * t525 - 0.5e1 / 0.1944e4 * t11383 * t64 * t1557 * t579;
3884   t13482 = t2791 * t1062;
3885   t13485 = t1800 * t4426;
3886   t13489 = t578 * t6417 * t1563;
3887   t13495 = t578 * t1829 * t445;
3888   t13517 = t6373 * t85;
3889   t13528 = -0.65e2 / 0.6561e4 * t3828 + 0.10e2 / 0.2187e4 * t3831 + 0.10e2 / 0.2187e4 * t3834 + 0.20e2 / 0.9e1 * t13482 * t2802 - 0.100e3 / 0.9e1 * t13485 * t2802 + 0.80e2 / 0.9e1 * t13489 * t586 * t17 * t182 + 0.80e2 / 0.9e1 * t13495 * t8615 * t235 * t1066 + 0.12e2 * t2815 * t4422 + 0.12e2 * t1792 * t85 * t4432 + 0.65e2 / 0.6561e4 * t1233 - 0.30e2 * t4417 * t4431 * t239 * t1066 + 0.24e2 * t1055 * t4431 * t227 * t1066 + 0.3e1 / 0.2e1 * t578 * t1567 * t606 - 0.15e2 * t13517 * t4419 + 0.3e1 * t4405 * t2825 + 0.6e1 * t4405 * t2822 + 0.3e1 * t1792 * t4436 - 0.4e1 * t573 * t4439;
3890   t13530 = t13381 + t13434 + t13478 + t13528;
3891   t13553 = t628 * t629 * t1069;
3892   t13564 = t1133 * t1133;
3893   t13571 = t4472 * t2458;
3894   t13576 = t4608 * t263;
3895   t13577 = t2509 * t13576;
3896   t13580 = t4608 * t254;
3897   t13581 = t2012 * t13580;
3898   t13584 = t1090 * t1105;
3899   t13585 = t1970 * t13584;
3900   t13588 = t4619 * t254;
3901   t13589 = t4020 * t13588;
3902   t13592 = 0.39188952702389825468e0 * t8789 * t3942 - 0.11252744620118822779e1 * t9048 * t3068 + 0.15171639890357805325e1 * t3050 * t3071 + 0.25502554838335097930e1 * t4640 * t2439 - 0.17001703225556731953e1 * t3053 * t13553 + 0.21958039749871030452e0 * t4493 * t1945 - 0.85008516127783659764e0 * t3053 * t9071 - 0.21958039749871030452e0 * t3050 * t3060 - 0.17001703225556731953e1 * t3050 * t3064 + 0.650049912832e0 * t106 * t668 * t13564 - 0.734005159174078464e0 * t106 * t4527 * t682 + 0.90330597678095682346e-1 * t13571 * t2461 - 0.17001703225556731953e1 * t8770 * t3933 + 0.21958039749871030452e0 * t627 * t13577 + 0.25502554838335097930e1 * t627 * t13581 - 0.17001703225556731953e1 * t627 * t13585 + 0.33758233860356468337e1 * t2011 * t13589;
3903   t13593 = t1069 * t1069;
3904   t13594 = t614 * t13593;
3905   t13597 = t6673 * t1576;
3906   t13616 = t2012 * t6116 * t254;
3907   t13619 = t1603 * t254;
3908   t13620 = t13619 * t103;
3909   t13621 = t2012 * t13620;
3910   t13625 = t2516 * t4619 * t263;
3911   t13629 = t2012 * t2867 * t1105;
3912   t13632 = t1590 * t1893;
3913   t13634 = t4025 * t13632 * t254;
3914   t13637 = t2920 * t254;
3915   t13638 = t1090 * t13637;
3916   t13642 = t1943 * t4615 * t263;
3917   t13645 = t1970 * t13620;
3918   t13650 = -0.1844001259520e1 * t13594 * t111 - 0.11756685810716947640e1 * t13597 * t615 * t111 - 0.85008516127783659764e0 * t1084 * t8742 + 0.33758233860356468336e1 * t3043 * t8892 - 0.45514919671073415976e1 * t1084 * t8747 + 0.19594476351194912734e0 * t8781 * t3942 + 0.90330597678095682346e-1 * t8784 * t3942 - 0.11756685810716947640e1 * t8794 * t3942 - 0.10979019874935515226e0 * t1084 * t8826 - 0.56263723100594113894e0 * t2011 * t13616 + 0.75858199451789026628e0 * t627 * t13621 + 0.14533144731775861996e0 * t2011 * t13625 - 0.11252744620118822779e1 * t2011 * t13629 + 0.17489238971848963748e1 * t6881 * t13634 - 0.11986928580130742102e1 * t7676 * t13638 - 0.10979019874935515226e0 * t627 * t13642 - 0.85008516127783659765e0 * t627 * t13645 - 0.56263723100594113893e0 * t3043 * t8755;
3919   t13664 = t461 * t1133;
3920   t13681 = t4482 * t99;
3921   t13684 = t2946 * t242;
3922   t13686 = t106 * t110 * t1069;
3923   t13695 = t4486 * t103;
3924   t13696 = t628 * t13695;
3925   t13701 = 0.17489238971848963747e1 * t9116 * t8759 - 0.30124497567627698084e1 * t3043 * t8763 + 0.75858199451789026627e0 * t1084 * t8799 + 0.13538564572559691160e1 * t1084 * t8802 - 0.21958039749871030452e0 * t3050 * t3056 + 0.14983660725163427627e0 * t4581 * t1855 - 0.2936020636696313856e1 * t4124 * t13664 * t263 + 0.69074723123554292753e-1 * t4476 * t1855 - 0.1428938704017162240e1 * t3031 * t12072 - 0.50613316194190507389e-1 * t2971 * t463 + 0.21252129031945914941e0 * t4496 * t609 * t111 - 0.238156450669527040e0 * t649 * t454 * t103 * t2967 + 0.65874119249613091357e0 * t13681 * t2417 + 0.39188952702389825468e0 * t13684 * t13686 - 0.21968466899514280222e2 * t640 * t4574 * t2013 + 0.650049912832e0 * t106 * t1120 * t2967 + 0.42504258063891829882e0 * t627 * t13696 + 0.97972381755974563669e-1 * t2020 * t4616;
3926   t13706 = t461 * t643;
3927   t13707 = t1090 * t13706;
3928   t13710 = t2859 * t4586;
3929   t13713 = t642 * t4486;
3930   t13714 = t13713 * t629;
3931   t13716 = t4569 * t1960;
3932   t13718 = t1890 * t1603;
3933   t13719 = t13718 * t1971;
3934   t13723 = t1901 * t1572;
3935   t13726 = t655 * t4486;
3936   t13727 = t13726 * t629;
3937   t13729 = t4565 * t1960;
3938   t13731 = t1912 * t1603;
3939   t13732 = t13731 * t1971;
3940   t13740 = 0.6370450956800e1 * t13714 + 0.3185225478400e1 * t13716 + 0.5684735615810048000e1 * t13719 - 0.3569440e1 * t4531 * t1987 - 0.19111352870400e2 * t13723 * t2372 - 0.7138880e1 * t13727 - 0.3569440e1 * t13729 - 0.19111352870400e2 * t13732 + 0.10708320e2 * t1583 * t1987 + 0.114668117222400e3 * t4472 * t2372 - 0.68216827389720576000e2 * t13597 * t2372;
3941   t13741 = t614 * t4461;
3942   t13746 = t1094 * t9330;
3943   t13748 = t4574 * t1960;
3944   t13750 = t4562 * t1971;
3945   t13752 = t6461 * t1590;
3946   t13753 = t13752 * t1971;
3947   t13755 = t623 * t4461;
3948   t13760 = t1931 * t1572;
3949   t13763 = t108 * t2844;
3950   t13768 = -0.7138880e1 * t13741 * t921 - 0.7138880e1 * t13594 * t108 + 0.6370450956800e1 * t13746 + 0.5684735615810048000e1 * t13748 - 0.42833280e2 * t13750 - 0.68216827389720576000e2 * t13753 + 0.6370450956800e1 * t13755 * t921 + 0.3185225478400e1 * t4496 * t1987 + 0.5684735615810048000e1 * t13760 * t2372 - 0.7138880e1 * t1073 * t13763 - 0.19111352870400e2 * t4482 * t1987;
3951   t13770 = t4569 * t1971;
3952   t13776 = t921 * t1069;
3953   t13779 = t1105 * t1105;
3954   t13781 = t655 * t13779 * t103;
3955   t13783 = t642 * t13779;
3956   t13784 = t13783 * t103;
3957   t13786 = t6618 * t1576;
3958   t13789 = t1591 * t1960;
3959   t13791 = t4574 * t1971;
3960   t13793 = t1101 * t9330;
3961   t13795 = t4562 * t1960;
3962   t13797 = 0.10708320e2 * t13770 + 0.10708320e2 * t4496 * t2372 - 0.42833280e2 * t4482 * t2372 - 0.76445411481600e2 * t2876 * t13776 - 0.7138880e1 * t13781 + 0.6370450956800e1 * t13784 + 0.10145661348248508867e2 * t13786 * t2372 + 0.10708320e2 * t13789 + 0.114668117222400e3 * t13791 - 0.7138880e1 * t13793 - 0.19111352870400e2 * t13795;
3963   t13800 = t623 * t13593;
3964   t13805 = -t253 * t13530 * t103;
3965   t13813 = t245 * t13530;
3966   t13822 = t6688 * t1590;
3967   t13823 = t13822 * t1971;
3968   t13825 = 0.22738942463240192000e2 * t2855 * t8737 + 0.6370450956800e1 * t13800 * t108 + 0.1784720e1 * t13805 + 0.42833280e2 * t1094 * t8737 + 0.22738942463240192000e2 * t2946 * t13776 + 0.42833280e2 * t1080 * t13776 + 0.1784720e1 * t13813 * t108 - 0.76445411481600e2 * t2953 * t8737 + 0.6370450956800e1 * t1080 * t13763 + 0.5684735615810048000e1 * t4472 * t1987 + 0.10145661348248508867e2 * t13823;
3969   t13831 = t869 * t2844;
3970   t13838 = t1624 * t642;
3971   t13843 = t634 * t1069 * t263;
3972   t13846 = t1624 * t263;
3973   t13847 = t1854 * t13846;
3974   t13853 = t4608 * t2511;
3975   t13861 = t4496 * t99;
3976   t13864 = t4549 * t250;
3977   t13867 = t2867 * t13706;
3978   t13870 = -0.28131861550297056947e0 * t6781 * t4620 + 0.14983660725163427627e0 * t2026 * t4593 - 0.1428938704017162240e1 * t2531 * t13707 - 0.85008516127783659766e0 * t2531 * t13710 - 0.258304e0 * t106 * t259 * (t13740 + t13768 + t13797 + t13825) - 0.1844001259520e1 * t1074 * t13831 - 0.238156450669527040e0 * t1087 * t8699 - 0.54895099374677576129e-1 * t4476 * t1940 - 0.21252129031945914941e0 * t649 * t13838 * t1971 + 0.952625802678108160e0 * t1074 * t13843 + 0.29967321450326855254e0 * t633 * t13847 + 0.45165298839047841173e-1 * t13786 * t615 * t111 - 0.1428938704017162240e1 * t2531 * t13853 - 0.12204703833063489012e1 * t640 * t13783 * t645 + 0.238156450669527040e0 * t1897 * t4500 + 0.2766001889280e1 * t13861 * t2547 + 0.42504258063891829882e0 * t13864 * t630 - 0.18915142913373788794e1 * t8094 * t13867;
3979   t13899 = t1583 * t639;
3980   t13906 = t1577 * t639;
3981   t13913 = 0.25502554838335097930e1 * t8078 * t13707 + 0.63050476377912629314e0 * t2517 * t4604 * t4626 + 0.2766001889280e1 * t4476 * t1908 - 0.51875188131390032840e0 * t12039 * t3068 + 0.69941307667009169309e0 * t8855 * t3071 + 0.461000314880e0 * t13813 * t111 + 0.21958039749871030452e0 * t1084 * t9285 + 0.21958039749871030452e0 * t1967 * t4519 + 0.25502554838335097929e1 * t8934 * t12089 + 0.14983660725163427627e0 * t1868 * t4683 * t1960 - 0.10979019874935515226e0 * t2883 * t463 - 0.21958039749871030452e0 * t2917 * t463 - 0.12968797032847508210e0 * t13899 * t2014 + 0.17485326916752292327e0 * t4640 * t2017 + 0.42504258063891829882e0 * t9371 * t1091 + 0.56263723100594113894e0 * t13906 * t2014 - 0.75858199451789026629e0 * t4493 * t2017 - 0.11986928580130742102e1 * t12418 * t12125;
3982   t13920 = t250 * t4645;
3983   t13923 = t6518 * t1611;
3984   t13938 = t1094 * t6120 * t254;
3985   t13941 = t629 * t461;
3986   t13942 = t1094 * t13941;
3987   t13945 = t4619 * t2511;
3988   t13948 = t1612 * t256;
3989   t13961 = 0.97972381755974563669e-1 * t4472 * t609 * t111 + 0.97972381755974563669e-1 * t13760 * t615 * t111 + 0.29967321450326855254e0 * t13920 * t651 + 0.23916119461575365556e1 * t106 * t13923 * t669 - 0.42504258063891829882e0 * t1967 * t4616 - 0.42504258063891829883e0 * t4493 * t2023 + 0.476312901339054080e0 * t1074 * t8958 + 0.43916079499742060904e0 * t8858 * t11964 + 0.34003406451113463906e1 * t11828 * t11967 + 0.29066289463551723990e0 * t8067 * t13938 - 0.39188952702389825468e0 * t8060 * t13942 - 0.18915142913373788795e1 * t8094 * t13945 + 0.13814944624710858551e0 * t627 * t13948 - 0.17001703225556731953e1 * t3053 * t11933 - 0.21958039749871030452e0 * t1084 * t8767 - 0.17001703225556731953e1 * t1084 * t8738 + 0.39188952702389825468e0 * t3074 * t12547 - 0.11252744620118822779e1 * t3043 * t8751;
3990   t13965 = t4531 * t250;
3991   t13970 = t4496 * t2458;
3992   t14002 = t869 * t1069 * t242;
3993   t14007 = 0.15171639890357805325e1 * t1084 * t8807 - 0.85008516127783659765e0 * t13965 * t2439 - 0.10979019874935515226e0 * t4637 * t1945 + 0.19594476351194912734e0 * t13970 * t2461 - 0.11756685810716947640e1 * t4482 * t250 * t2439 + 0.39188952702389825468e0 * t8934 * t13553 - 0.50613316194190507388e-1 * t4640 * t1945 + 0.29619233351014809600e2 * t251 * t13791 - 0.1844001259520e1 * t251 * t13781 - 0.42504258063891829882e0 * t4637 * t1972 - 0.1844001259520e1 * t251 * t13793 + 0.952625802678108160e0 * t3015 * t3910 + 0.15762619094478157328e0 * t1878 * t13838 * t2013 + 0.14983660725163427627e0 * t1868 * t1604 * t1869 - 0.21958039749871030452e0 * t3031 * t13843 + 0.15762619094478157329e0 * t1878 * t1591 * t6683 - 0.51005109676670195860e1 * t9173 * t14002 - 0.10979019874935515226e0 * t4497 * t265;
3994   t14018 = t668 * t4577;
3995   t14024 = t1580 * t639;
3996   t14035 = t1854 * t13664;
3997   t14051 = -0.42504258063891829883e0 * t1964 * t4612 - 0.19594476351194912734e0 * t2020 * t4612 + 0.21252129031945914941e0 * t1964 * t4616 + 0.27629889249421717102e0 * t12624 * t9216 - 0.10122663238838101478e0 * t8855 * t3056 + 0.650049912832e0 * t106 * t14018 * t263 + 0.21252129031945914941e0 * t4637 * t2023 - 0.28131861550297056947e0 * t14024 * t2014 + 0.37929099725894513314e0 * t4637 * t2017 + 0.97972381755974563669e-1 * t4640 * t2023 + 0.59934642900653710508e0 * t2880 * t2921 - 0.11064007557120e2 * t13681 * t2547 + 0.59934642900653710508e0 * t633 * t14035 + 0.36614111499190467036e1 * t640 * t13731 * t2013 + 0.1645512963945267200e1 * t251 * t13746 - 0.12204703833063489012e1 * t640 * t1094 * t645 * t2958 - 0.54895099374677576130e-1 * t1851 * t4500 + 0.69074723123554292755e-1 * t1851 * t4593;
3998   t14059 = t1611 * t655;
3999   t14063 = t1090 * t11917;
4000   t14066 = t3039 * t4626;
4001   t14071 = t461 * t660;
4002   t14072 = t1090 * t14071;
4003   t14075 = t2867 * t11917;
4004   t14099 = 0.42504258063891829882e0 * t3031 * t13831 - 0.922000629760e0 * t251 * t13729 - 0.29967321450326855254e0 * t1868 * t14059 * t1971 - 0.19746155567343206400e2 * t4044 * t14063 + 0.952625802678108160e0 * t2510 * t14066 + 0.952625802678108160e0 * t2510 * t13710 + 0.476312901339054080e0 * t2510 * t14072 - 0.13069187414967042065e2 * t4031 * t14075 + 0.58735597940247945544e1 * t4062 * t14063 - 0.75858199451789026628e0 * t7654 * t13853 + 0.1645512963945267200e1 * t251 * t13714 + 0.476312901339054080e0 * t4532 * t2417 - 0.1428938704017162240e1 * t4476 * t2417 + 0.11064007557120e2 * t3031 * t14002 - 0.119078225334763520e0 * t649 * t4687 * t1960 - 0.21252129031945914941e0 * t649 * t1591 * t1948 - 0.19834166657058243280e0 * t6646 * t1591 * t6647;
4005   t14112 = t1611 * t263;
4006   t14113 = t6638 * t14112;
4007   t14147 = -0.21958039749871030452e0 * t1081 * t1135 + 0.18968792869915364414e1 * t1888 * t13718 * t2425 + 0.461000314880e0 * t251 * t13805 - 0.97994301469412365794e0 * t8214 * t13632 * t2511 + 0.16879116930178234168e1 * t8047 * t13945 - 0.67675321900558938528e0 * t633 * t14113 - 0.39188952702389825468e0 * t12027 * t8861 - 0.78377905404779650936e0 * t8855 * t3064 + 0.75875171479661457657e1 * t4026 * t4027 * t11917 + 0.325024956416e0 * t106 * t4645 * t682 - 0.119078225334763520e0 * t4581 * t1940 - 0.12204703833063489012e1 * t640 * t13713 * t891 - 0.29967321450326855254e0 * t1868 * t1599 * t1869 + 0.238156450669527040e0 * t649 * t1599 * t1948 - 0.238156450669527040e0 * t649 * t4487 * t650 + 0.43916079499742060904e0 * t8858 * t11843 + 0.56263723100594113894e0 * t6604 * t4620 - 0.67675321900558938528e0 * t10277 * t1090 * t9106;
4008   t14164 = t263 * t1105;
4009   t14165 = t1090 * t14164;
4010   t14177 = t1943 * t3039 * t461;
4011   t14181 = t1943 * t1090 * t1133;
4012   t14192 = 0.85008516127783659766e0 * t4493 * t1972 + 0.1645512963945267200e1 * t251 * t13784 + 0.952625802678108160e0 * t1074 * t12578 + 0.26206649088979828343e1 * t251 * t13823 + 0.14683899485061986386e1 * t251 * t13748 - 0.13606156761889987933e2 * t640 * t13822 * t2013 + 0.25502554838335097930e1 * t8078 * t13853 - 0.85008516127783659765e0 * t2531 * t14165 - 0.10979019874935515226e0 * t1084 * t9140 + 0.14533144731775861995e0 * t3043 * t8773 - 0.19594476351194912734e0 * t1084 * t8778 - 0.10979019874935515226e0 * t1964 * t4519 - 0.21958039749871030452e0 * t627 * t14177 - 0.21958039749871030452e0 * t627 * t14181 - 0.50613316194190507389e-1 * t2020 * t4519 - 0.75858199451789026628e0 * t1967 * t4609 + 0.2766001889280e1 * t251 * t13789 - 0.1844001259520e1 * t251 * t13727;
4013   t14217 = t1611 * t642;
4014   t14221 = t4615 * t2511;
4015   t14240 = 0.76507664515005293790e1 * t4472 * t615 * t111 - 0.11064007557120e2 * t251 * t13750 - 0.19594476351194912734e0 * t4640 * t1972 + 0.27629889249421717102e0 * t3074 * t2921 - 0.12751277419167548965e1 * t13723 * t615 * t111 + 0.63050476377912629314e0 * t2517 * t2867 * t1133 * t254 + 0.31525238188956314657e0 * t2517 * t2867 * t14071 - 0.12751277419167548965e1 * t4482 * t609 * t111 - 0.119078225334763520e0 * t2026 * t4500 + 0.26741638969413672554e0 * t1868 * t14217 * t1971 + 0.476312901339054080e0 * t2510 * t14221 + 0.14645644599676186814e2 * t4021 * t14075 + 0.11064007557120e2 * t4012 * t14063 + 0.37929099725894513314e0 * t1964 * t4609 + 0.17485326916752292327e0 * t2020 * t4609 + 0.29967321450326855254e0 * t3372 * t1090 * t9195 - 0.12968797032847508210e0 * t6485 * t4620 + 0.59934642900653710508e0 * t3372 * t3039 * t2920;
4016   t14246 = t13741 * t99;
4017   t14266 = t1624 * t655;
4018   t14289 = 0.59934642900653710508e0 * t3372 * t1090 * t8910 - 0.1844001259520e1 * t14246 * t870 - 0.61023519165317445059e0 * t640 * t4569 * t1874 + 0.65874119249613091356e0 * t2877 * t463 - 0.22762551443898437297e2 * t1888 * t13752 * t2425 + 0.36614111499190467036e1 * t640 * t4562 * t1874 + 0.18968792869915364414e1 * t1888 * t4574 * t6533 - 0.238156450669527040e0 * t649 * t2959 * t1595 + 0.238156450669527040e0 * t649 * t14266 * t1971 + 0.22505489240237645558e1 * t12501 * t11970 - 0.30343279780715610650e1 * t11828 * t11737 + 0.43916079499742060904e0 * t12027 * t9219 - 0.10122663238838101478e0 * t8855 * t3060 + 0.29066289463551723990e0 * t12032 * t9222 + 0.85008516127783659766e0 * t1967 * t4612 - 0.4936538891835801600e1 * t251 * t13795 + 0.39207562244901126197e2 * t640 * t13752 * t2013 + 0.29967321450326855254e0 * t1087 * t9196;
4019   t14297 = t1863 * t1624;
4020   t14304 = t4577 * t253;
4021   t14314 = t250 * t4527;
4022   t14319 = t634 * t4577;
4023   t14336 = -0.119078225334763520e0 * t649 * t1604 * t1948 - 0.238156450669527040e0 * t8692 * t1113 + 0.42504258063891829882e0 * t13800 * t111 - 0.734005159174078464e0 * t106 * t14297 * t669 + 0.63050476377912629316e0 * t2517 * t2867 * t14164 - 0.238156450669527040e0 * t649 * t14304 * t629 + 0.822756481972633600e0 * t251 * t13716 - 0.29967321450326855254e0 * t4479 * t1855 - 0.922000629760e0 * t4532 * t1908 - 0.67675321900558938528e0 * t14314 * t651 + 0.59934642900653710508e0 * t2924 * t2889 - 0.238156450669527040e0 * t633 * t14319 - 0.97994301469412365794e0 * t8214 * t4027 * t13706 + 0.16879116930178234168e1 * t8047 * t13867 - 0.85008516127783659766e0 * t2531 * t14066 - 0.42504258063891829883e0 * t2531 * t14072 - 0.4936538891835801600e1 * t251 * t13732 + 0.42504258063891829882e0 * t13755 * t242 * t111;
4024   t14381 = -0.476312901339054080e0 * t2880 * t2992 - 0.42504258063891829882e0 * t2531 * t14221 + 0.31525238188956314657e0 * t2517 * t6116 * t2511 - 0.19834166657058243279e0 * t6646 * t14217 * t2013 - 0.92817332546461565657e1 * t6767 * t13822 * t10658 + 0.20312390406477209506e2 * t1888 * t13822 * t2425 - 0.476312901339054080e0 * t649 * t1106 * t4586 - 0.79336666628232973116e0 * t8090 * t2867 * t13637 + 0.10696655587765469022e1 * t7745 * t13638 + 0.59934642900653710508e0 * t1087 * t8911 - 0.32672968537417605163e1 * t640 * t13718 * t2013 - 0.17620679382074383663e2 * t251 * t13753 + 0.2766001889280e1 * t251 * t13770 + 0.14683899485061986386e1 * t251 * t13719 - 0.29967321450326855254e0 * t1897 * t4593 - 0.67675321900558938528e0 * t1087 * t9107 - 0.50613316194190507388e-1 * t4473 * t265 + 0.952625802678108160e0 * t2510 * t14165;
4025   t14382 = t4549 * t99;
4026   t14385 = t1595 * t263;
4027   t14386 = t454 * t14385;
4028   t14389 = t1101 * t13941;
4029   t14403 = t2516 * t13576;
4030   t14406 = t4020 * t13580;
4031   t14409 = t2012 * t13584;
4032   t14412 = t4025 * t13588;
4033   t14415 = t4025 * t13580;
4034   t14420 = t1625 * t256;
4035   t14430 = -0.238156450669527040e0 * t14382 * t635 + 0.27629889249421717102e0 * t7591 * t14386 + 0.43916079499742060904e0 * t8060 * t14389 + 0.26741638969413672554e0 * t1868 * t1591 * t1869 - 0.75858199451789026629e0 * t7654 * t13707 + 0.85008516127783659764e0 * t3050 * t3040 + 0.42504258063891829882e0 * t1084 * t9331 + 0.238156450669527040e0 * t4479 * t1940 - 0.19594476351194912734e0 * t627 * t14403 - 0.45514919671073415978e1 * t627 * t14406 + 0.15171639890357805326e1 * t627 * t14409 - 0.30124497567627698084e1 * t2011 * t14412 + 0.13538564572559691160e1 * t627 * t14415 - 0.21958039749871030452e0 * t1084 * t9137 - 0.10979019874935515226e0 * t627 * t14420 + 0.13814944624710858551e0 * t1084 * t8896 + 0.25502554838335097929e1 * t1084 * t8920 - 0.32672968537417605163e1 * t640 * t4574 * t1874;
4036   t14435 = my_piecewise3(t96, 0, t13592 + t13650 + t13701 + t13870 + t13913 + t13961 + t14007 + t14051 + t14099 + t14147 + t14192 + t14240 + t14289 + t14336 + t14381 + t14430);
4037   t14436 = my_piecewise3(t95, 0, t14435);
4038   t14438 = 0.4e1 * t1069 * t1139 + t13530 * t113 + t94 * t14436 + t1572 * t688 + t609 * t1630 + 0.2e1 * t242 * t4699 + 0.2e1 * t4461 * t269 + 0.2e1 * t2844 * t467 + 0.2e1 * t448 * t3083;
4039   t14446 = t1176 * t1632;
4040   t14449 = t139 * t64;
4041   t14455 = -t14438;
4042   t14459 = t1141 * t1141;
4043   t14467 = t4767 * t1636;
4044   t14472 = -0.50e2 / 0.81e2 * t13332 * t3140 - 0.40e2 / 0.9e1 * t1173 * t4773 - params->c1 * t14438 * t140 + 0.20e2 / 0.9e1 * t3139 * t3162 * t18 - 0.10e2 / 0.9e1 * t3146 * t1661 + 0.100e3 / 0.81e2 * t3149 * t14446 - 0.200e3 / 0.27e2 * t14449 * t1196 * t3158 + 0.10e2 / 0.9e1 * t1173 * t4782 + 0.5e1 / 0.9e1 * t483 * t484 * t14455 - 0.20e2 / 0.9e1 * t483 * t1660 * t14459 + 0.100e3 / 0.81e2 * t293 * t1176 * t4701 * t275 - 0.100e3 / 0.27e2 * t3149 * t14467 + 0.40e2 / 0.9e1 * t9422 * t4760;
4045   t14482 = t1184 * t1184;
4046   t14495 = t2128 * t2130 * t1632;
4047   t14499 = t2128 * t7038 * t1636;
4048   t14504 = t4797 * t3085;
4049   t14511 = t304 * t1141;
4050   t14512 = t303 * t14511;
4051   t14515 = t301 * t4812;
4052   t14519 = t754 * t2115 * t1632;
4053   t14525 = t7056 * t7058 * t1636;
4054   t14530 = 0.25e2 / 0.81e2 * t14495 * t746 - 0.100e3 / 0.27e2 * t14499 * t746 - 0.5e1 / 0.9e1 * t4819 * t750 - 0.2e1 * t757 * t14504 - 0.2e1 * t754 * t756 * t14459 * t146 - 0.20e2 / 0.9e1 * t3202 * t14512 + 0.50e2 / 0.27e2 * t14515 * t746 + 0.50e2 / 0.27e2 * t14519 * t746 + 0.5e1 / 0.9e1 * t4813 * t750 - 0.25e2 / 0.81e2 * t14525 * t746 - 0.40e2 / 0.3e1 * t3179 * t14512;
4055   t14532 = t301 * t730 * t4701;
4056   t14550 = t301 * t4801;
4057   t14553 = t754 * t4818;
4058   t14559 = t754 * t756 * t4701;
4059   t14562 = 0.20e2 / 0.9e1 * t14532 * t305 - 0.10e2 / 0.3e1 * t4802 * t750 + 0.10e2 / 0.9e1 * t4806 * t750 + t301 * t294 * t14455 * t146 - 0.40e2 / 0.3e1 * t3187 * t14512 - 0.10e2 / 0.3e1 * t4794 * t750 - 0.4e1 * t301 * t730 * t14459 * t146 - 0.200e3 / 0.27e2 * t14550 * t746 - 0.100e3 / 0.9e1 * t14553 * t746 - 0.4e1 * t743 * t14504 + 0.10e2 / 0.9e1 * t14559 * t305;
4060   t14564 = my_piecewise3(t138, (t13331 + t14472) * t144 + 0.2e1 * t4785 * t299 * t144 + t1667 * t738 * t144 + t1667 * t740 * t144 + 0.2e1 * t14482 * t144 + 0.4e1 * t1186 * t1185 + 0.2e1 * t489 * t3169 + t1669 * t738 * t144 + t1669 * t740 * t144, t14530 + t14562);
4061   t14566 = t1156 * t493;
4062   t14570 = t1156 * t1156;
4063   t14578 = t1554 * t518;
4064   t14588 = t517 * t475;
4065   t14598 = t475 * t1201;
4066   t14602 = 0.2e1 * t179 * t714 * t1647 * t149 + 0.1174e1 * t14564 + 0.16e2 * t1037 * t14566 * t287 - 0.16e2 * t517 * t131 * t14570 * t149 + 0.32e2 * t1037 * t4387 * t284 + 0.12e2 * t1723 * t14578 + 0.4e1 * t179 * t284 * t4729 * t149 + 0.2e1 * t517 * t518 * t1683 - 0.16e2 * t14588 * t2756 + 0.8e1 * t1037 * t4737 * t717 + 0.96e2 * t4369 * t1038 * t287 * t1156 + 0.16e2 * t1037 * t14598 * t287;
4067   t14609 = t2759 * t1156;
4068   t14616 = t1647 * t308;
4069   t14640 = 0.96e2 * t2748 * t1554 * t287 * t284 + 0.8e1 * t1037 * t14616 * t287 - 0.8e1 * t179 * t1042 * t1201 - 0.8e1 * t179 * t1157 * t1201 + 0.4e1 * t179 * t14570 * t149 - 0.2e1 * t179 * t1549 * t761 - 0.2e1 * t179 * t1648 * t761 - t179 * t717 * t1683 - 0.2e1 * t179 * t287 * t4823 - 0.4e1 * t179 * t4730 * t308 + 0.12e2 * t2748 * t4390 * t518 + 0.32e2 * t4376 * t14609;
4070   t14645 = t4387 * t287;
4071   t14654 = t4729 * t149;
4072   t14673 = t1554 * t717;
4073   t14676 = -0.64e2 * t1037 * t1038 * t2770 - 0.8e1 * t1037 * t14654 * t287 - 0.16e2 * t1037 * t1554 * t714 - 0.4e1 * t1037 * t4390 * t717 - 0.8e1 * t179 * t2770 * t493 - 0.4e1 * t179 * t4394 * t308 - 0.4e1 * t179 * t3115 * t493 - 0.24e2 * t2748 * t4737 * t518 - t137 * t14564 - 0.48e2 * t4369 * t14645 + 0.8e1 * t517 * t14645 - 0.4e1 * t517 * t14673;
4074   t14677 = t1038 * t3114;
4075   t14683 = t1637 * t708;
4076   t14686 = t4702 * t123;
4077   t14689 = t18 * t1150;
4078   t14692 = t6945 * t1636;
4079   t14698 = t709 * t4701;
4080   t14704 = t470 * t3587;
4081   t14713 = t709 * t14459 * t127 / 0.50e2 - 0.5e1 / 0.162e3 * t14683 * t3100 + t14686 * t1147 / 0.30e2 + t4204 * t14689 / 0.15e2 + t14692 * t3100 / 0.324e3 - 0.3e1 / 0.50e2 * t470 * t1638 * t3085 - t14698 * t1147 / 0.90e2 - t280 * t14455 * t127 / 0.100e3 - 0.2e1 / 0.15e2 * t14704 * t14689 - t1633 * t698 * t711 / 0.108e3 + t709 * t472 * t3085 / 0.50e2;
4082   t14714 = t1633 * t125;
4083   t14719 = t2060 * t1632;
4084   t14727 = t2060 * t1177;
4085   t14733 = t64 * t1638;
4086   t14744 = t14714 * t3100 / 0.54e2 + t4705 * t3095 / 0.60e2 - t14719 * t3100 / 0.324e3 + t1637 * t694 * t277 / 0.60e2 + t4726 * t3095 / 0.180e3 + t14727 * t14689 / 0.45e2 - t4714 * t3095 / 0.30e2 + 0.5e1 / 0.108e3 * t1637 * t698 * t14733 + t50 * t14455 * t127 / 0.100e3 - t4720 * t3095 / 0.180e3 - 0.3e1 / 0.50e2 * t50 * t14459 * t1638;
4087   t14763 = t6279 * t131;
4088   t14776 = 0.4e1 * t179 * t14677 + 0.2e1 * t179 * t130 * (t14713 + t14744) * t149 - 0.8e1 * t2752 * t4391 + 0.8e1 * t517 * t1550 * t761 - 0.4e1 * t179 * t2766 * t493 + 0.16e2 * t2752 * t4738 - 0.4e1 * t179 * t476 * t3206 - 0.96e2 * t14763 * t14578 + 0.24e2 * t4369 * t14673 - 0.16e2 * t517 * t552 * t1549 * t149 - 0.8e1 * t179 * t14609 - 0.16e2 * t4376 * t14677;
4089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4090     v4rho2lapl2[0] = -t2182 * t1688 / 0.12e2 - t794 * t4828 / 0.2e1 - 0.8246500000000000000e0 * t2187 * t4831 * t330 - 0.3e1 / 0.16e2 * t174 * t175 * (t14602 + t14640 + t14676 + t14776) * t167 - 0.49479000000000000000e1 * t321 * t322 * t4826 * t330 - 0.29687400000000000000e2 * t773 * t4831 * t782 + 0.40270806047858128433e2 * t785 * t4831 * t790;
4091 
4092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4093     v4rho2lapltau[0] = 0.0e0;
4094 
4095   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4096     v4rho2tau2[0] = 0.0e0;
4097 
4098   t14821 = t424 * t5123 * t777;
4099   t14836 = 0.27831937500000000000e1 * t424 * t7 * t3684 * t430 - t794 * t5120 / 0.4e1 + 0.85171693168996171873e1 * t1015 * t5163 + 0.29223534375000000000e3 * t7230 * t2155 * t1376 * t166 / t38 * t30 * t154 + 0.62621859375000000000e1 * t2705 * t5141 + 0.41747906250000000000e2 * t2713 * t5135 * t3709 + 0.67956985205760591731e2 * t5132 * t1032 + 0.16989246301440147933e2 * t5 * t3693 * t1388 * t1392 + 0.33398325000000000000e2 * t14821 * t1024 - 0.45304656803840394487e2 * t5 * t5123 * t1028 * t1032 - 0.25048743750000000000e3 * t9761 * t3710 + 0.34882260210209206479e0 * t9765 * t3716 - 0.24739500000000000000e1 * t321 * t322 * t5118 * t330;
4100   t14891 = 0.6e1 * t517 * t1213 * t1002 + 0.18e2 * t1723 * t1214 * t962 - 0.6e1 * t517 * t963 * t1332 + 0.6e1 * t517 * t965 * t1332 + 0.12e2 * t517 * t1335 * t962 - 0.18e2 * t1723 * t4842 * t287 - 0.6e1 * t1723 * t4835 * t308 - 0.24e2 * t6279 * t4836 * t287 - 0.2e1 * t517 * t5059 * t287 - 0.6e1 * t517 * t402 * t3606 + 0.18e2 * t7295 * t3235;
4101   t14988 = t194 * t811;
4102   t14990 = t18 * t19;
4103   t15003 = t3773 * t30 * t1246 / 0.729e3 + 0.40e2 / 0.6561e4 * t3847 * t3305 - 0.16e2 / 0.2187e4 * t4873 * t3308 - 0.5e1 / 0.3e1 * t3847 * t13 * t345 * t23 * t845 - 0.25e2 / 0.27e2 * t9927 * t855 + 0.20e2 / 0.9e1 * t3288 * t818 + 0.25e2 / 0.72e2 * t7351 * t358 * t3827 + 0.250e3 / 0.81e2 * t7402 * t3305 + 0.25e2 / 0.72e2 * t1813 * t845 * t3827 - 0.50e2 / 0.27e2 * t4878 * t11269 - 0.5e1 / 0.2187e4 * t2263 * t4881 - 0.25e2 / 0.19683e5 * t1813 * t14988 * t14990 + 0.40e2 / 0.2187e4 * t585 * t3304 - 0.125e3 / 0.324e3 * t6417 * t4881 * t227 - 0.3125e4 / 0.17496e5 * t6428 * t14988 * t14990 + 0.125e3 / 0.81e2 * t1829 * t3304;
4104   t15006 = 0.4e1 / 0.2187e4 * t3263 * t9858 * t363 + t3263 * t9854 * t835 / 0.1944e4 - t3263 * t3264 * t860 / 0.2916e4 + 0.9e1 / 0.4e1 * t7447 * t1236 - 0.45e2 / 0.8e1 * t7450 * t3274 + 0.9e1 / 0.2e1 * t2241 * t3277 - 0.3e1 / 0.2e1 * t2239 * t1251 + 0.9e1 / 0.4e1 * t2241 * t3282 - 0.3e1 / 0.2e1 * t830 * t3320 - 0.15e2 / 0.8e1 * t6373 * t4867 + 0.105e3 / 0.16e2 * t6383 * t4867 * t239 - 0.45e2 / 0.8e1 * t1800 * t1236 * t860 + 0.9e1 / 0.4e1 * t1792 * t4870 - 0.45e2 / 0.8e1 * t1800 * t4870 * t239 + 0.9e1 / 0.4e1 * t578 * t860 * t1251 + 0.9e1 / 0.4e1 * t578 * t363 * t3320 - t573 * t4886 / 0.2e1 + 0.3e1 / 0.4e1 * t578 * t4886 * t239 - t225 * t15003 / 0.2e1;
4105   t15020 = t645 * t3505;
4106   t15042 = t634 * t5025;
4107   t15048 = t6461 * t4895;
4108   t15049 = t15048 * t629;
4109   t15052 = -0.16468529812403272839e0 * t877 * t1308 - 0.18307055749595233518e1 * t640 * t890 * t15020 - 0.2202015477522235392e1 * t106 * t3550 * t931 - 0.18307055749595233518e1 * t640 * t2344 * t4943 - 0.16468529812403272839e0 * t3453 * t2474 + 0.98811178874419637034e0 * t10726 * t3519 + 0.20722416937066287826e0 * t3453 * t2478 + 0.714469352008581120e0 * t3428 * t2474 - 0.357234676004290560e0 * t883 * t10325 - 0.357234676004290560e0 * t3391 * t2474 - 0.119078225334763520e0 * t633 * t15042 - 0.37929099725894513314e0 * t649 * t4896 * t650 - 0.17620679382074383663e2 * t251 * t15049;
4110   t15056 = t634 * t379 * t863;
4111   t15073 = t628 * t886 * t863;
4112   t15078 = t886 * t1285;
4113   t15079 = t1970 * t15078;
4114   t15087 = t614 * t4889;
4115   t15088 = t15087 * t99;
4116   t15091 = t623 * t4889;
4117   t15095 = -0.89901964350980565762e0 * t3428 * t2478 + 0.1428938704017162240e1 * t868 * t15056 + 0.84395584650891170840e0 * t1878 * t4896 * t1879 + 0.39207562244901126197e2 * t640 * t15048 * t891 + 0.975074869248e0 * t106 * t917 * t3512 + 0.11378729917768353994e1 * t880 * t10847 + 0.38253832257502646895e1 * t3410 * t3362 - 0.25502554838335097930e1 * t2437 * t15073 + 0.32937059624806545679e0 * t3434 * t2452 - 0.12751277419167548965e1 * t627 * t15079 - 0.357234676004290560e0 * t649 * t3506 * t1277 + 0.89901964350980565762e0 * t883 * t10137 - 0.922000629760e0 * t15088 * t870 + 0.21252129031945914941e0 * t15091 * t242 * t111;
4118   t15100 = t5000 * t99;
4119   t15104 = t634 * t1306 * t242;
4120   t15109 = t4920 * t99;
4121   t15114 = t869 * t3323;
4122   t15122 = t6638 * t4987;
4123   t15125 = t645 * t931;
4124   t15135 = -0.357234676004290560e0 * t649 * t1286 * t3331 - 0.119078225334763520e0 * t15100 * t635 + 0.714469352008581120e0 * t868 * t15104 - 0.2143408056025743360e1 * t3453 * t3519 + 0.32937059624806545679e0 * t15109 * t635 - 0.2766001889280e1 * t2364 * t4902 - 0.2766001889280e1 * t868 * t15114 + 0.44950982175490282881e0 * t1868 * t903 * t4994 + 0.44950982175490282881e0 * t883 * t10056 - 0.33837660950279469264e0 * t633 * t15122 + 0.47287857283434471986e0 * t1878 * t1273 * t15125 + 0.44950982175490282881e0 * t2489 * t3387 - 0.16468529812403272839e0 * t880 * t10910 - 0.75919974291285761083e-1 * t3410 * t2557;
4125   t15140 = t1306 * t254;
4126   t15145 = t869 * t1254 * t242;
4127   t15148 = t245 * t15006;
4128   t15151 = t2446 * t4912;
4129   t15154 = t3394 * t2477;
4130   t15157 = t379 * t902;
4131   t15158 = t886 * t15157;
4132   t15163 = -t253 * t15006 * t103;
4133   t15166 = t3367 * t3376;
4134   t15169 = t10083 * t1277;
4135   t15172 = t4895 * t1893;
4136   t15173 = t4025 * t15172;
4137   t15181 = 0.8298005667840e1 * t3453 * t3456 + 0.20722416937066287827e0 * t877 * t1295 + 0.47287857283434471985e0 * t2517 * t1442 * t15140 + 0.8298005667840e1 * t2546 * t15145 + 0.461000314880e0 * t15148 * t111 - 0.63756387095837744824e0 * t2531 * t15151 + 0.80224916908241017663e0 * t7745 * t15154 - 0.12751277419167548965e1 * t2531 * t15158 + 0.461000314880e0 * t251 * t15163 - 0.28372714370060683191e1 * t8094 * t15166 + 0.38253832257502646895e1 * t8078 * t15169 + 0.87446194859244818738e0 * t6881 * t15173 + 0.10984233449757140111e2 * t640 * t3351 * t3342 - 0.12751277419167548965e1 * t2504 * t3395;
4138   t15186 = t3472 * t3951;
4139   t15209 = t1854 * t1293 * t242;
4140   t15218 = t3346 * t2523;
4141   t15220 = t6688 * t4895;
4142   t15221 = t15220 * t629;
4143   t15223 = t10518 * t886;
4144   t15225 = t3383 * t2523;
4145   t15228 = t5008 * t242;
4146   t15231 = t642 * t4979;
4147   t15232 = t15231 * t629;
4148   t15236 = t6673 * t4916;
4149   t15245 = t655 * t4979 * t629;
4150   t15249 = 0.17054206847430144000e2 * t10148 * t2447 + 0.1784720e1 * t15148 * t108 - 0.57334058611200e2 * t2395 * t10795 + 0.17054206847430144000e2 * t15218 + 0.10145661348248508867e2 * t15221 + 0.9555676435200e1 * t15223 + 0.9555676435200e1 * t15225 + 0.1784720e1 * t15163 + 0.32124960e2 * t876 * t15228 + 0.3185225478400e1 * t15232 + 0.9555676435200e1 * t10490 * t1468 - 0.68216827389720576000e2 * t15236 * t921 - 0.3569440e1 * t15087 * t921 + 0.3185225478400e1 * t15091 * t921 - 0.68216827389720576000e2 * t15049 - 0.3569440e1 * t15245 - 0.57334058611200e2 * t3485 * t3482;
4151   t15250 = t898 * t10353;
4152   t15252 = t3351 * t2523;
4153   t15256 = t108 * t3323;
4154   t15271 = t4936 * t629;
4155   t15273 = t1273 * t2523;
4156   t15275 = t4896 * t629;
4157   t15277 = t2392 * t3403;
4158   t15283 = t6618 * t4916;
4159   t15286 = -0.10708320e2 * t15250 - 0.57334058611200e2 * t15252 + 0.17054206847430144000e2 * t10371 * t4145 - 0.10708320e2 * t867 * t15256 - 0.57334058611200e2 * t2331 * t15228 + 0.32124960e2 * t890 * t10795 - 0.42833280e2 * t4920 * t921 + 0.32124960e2 * t1265 * t3482 + 0.114668117222400e3 * t4917 * t921 - 0.10708320e2 * t2363 * t5008 - 0.42833280e2 * t15271 + 0.32124960e2 * t15273 + 0.114668117222400e3 * t15275 - 0.10708320e2 * t15277 + 0.9555676435200e1 * t3472 * t3482 + 0.17054206847430144000e2 * t3445 * t3482 + 0.10145661348248508867e2 * t15283 * t921;
4160   t15293 = t4940 * t250;
4161   t15298 = -0.16468529812403272839e0 * t3431 * t2557 + 0.29391714526792369101e0 * t15186 * t2461 + 0.25502554838335097930e1 * t3434 * t2455 + 0.714469352008581120e0 * t649 * t1281 * t3331 + 0.29391714526792369101e0 * t10371 * t366 * t3956 - 0.75919974291285761083e-1 * t3446 * t381 - 0.33837660950279469264e0 * t6651 * t4987 * t253 * t629 + 0.63756387095837744823e0 * t10490 * t366 * t111 + 0.714469352008581120e0 * t3469 * t3519 - 0.89901964350980565762e0 * t868 * t15209 - 0.258304e0 * t106 * t259 * (t15249 + t15286) + 0.714469352008581120e0 * t2510 * t15151 + 0.12751277419167548965e1 * t15293 * t630 + 0.63756387095837744823e0 * t3431 * t2524;
4162   t15299 = t4895 * t645;
4163   t15300 = t4025 * t15299;
4164   t15308 = t4895 * t103;
4165   t15309 = t2012 * t15308;
4166   t15312 = t1285 * t263;
4167   t15313 = t886 * t15312;
4168   t15316 = t886 * t10160;
4169   t15329 = t110 * t1254;
4170   t15330 = t15329 * t256;
4171   t15335 = t103 * t3512;
4172   t15340 = t2012 * t1442 * t1285;
4173   t15343 = -0.15062248783813849042e1 * t2011 * t15300 + 0.44950982175490282881e0 * t3372 * t886 * t10055 + 0.44950982175490282881e0 * t2322 * t3450 + 0.12751277419167548965e1 * t627 * t15309 + 0.714469352008581120e0 * t2510 * t15313 + 0.8298005667840e1 * t4012 * t15316 - 0.94575714566868943973e0 * t1878 * t4936 * t1879 - 0.21968466899514280222e2 * t640 * t4896 * t891 - 0.38253832257502646895e1 * t10726 * t3456 + 0.2468269445917900800e1 * t251 * t15225 - 0.12751277419167548965e1 * t2437 * t15330 + 0.32937059624806545678e0 * t3434 * t2557 - 0.357234676004290560e0 * t649 * t372 * t15335 - 0.84395584650891170843e0 * t2011 * t15340;
4174   t15346 = t1943 * t886 * t1306;
4175   t15349 = t3394 * t379;
4176   t15350 = t2516 * t15349;
4177   t15353 = t2460 * t1290;
4178   t15359 = t3371 * t886 * t1293;
4179   t15370 = t8007 * t1274;
4180   t15377 = t3394 * t242;
4181   t15378 = t2012 * t15377;
4182   t15383 = -0.16468529812403272839e0 * t627 * t15346 - 0.29391714526792369101e0 * t627 * t15350 + 0.52455980750256876981e0 * t2459 * t15353 + 0.20307846858839536740e1 * t880 * t10085 + 0.20722416937066287827e0 * t627 * t15359 - 0.12751277419167548965e1 * t10896 * t3362 + 0.21799717097663792993e0 * t2499 * t10307 + 0.50637350790534702504e1 * t2499 * t10786 - 0.16879116930178234168e1 * t2499 * t10790 - 0.38906391098542524630e0 * t2459 * t15370 + 0.26233858457773445621e1 * t7859 * t10425 - 0.45186746351441547126e1 * t2499 * t10429 - 0.22757459835536707988e1 * t2437 * t15378 - 0.29391714526792369101e0 * t880 * t10194;
4183   t15402 = t1943 * t3403 * t379;
4184   t15406 = t2516 * t3367 * t379;
4185   t15412 = t2012 * t3367 * t242;
4186   t15415 = t2509 * t15349;
4187   t15418 = t1970 * t15377;
4188   t15423 = -0.68272379506610123965e1 * t880 * t10197 + 0.22757459835536707988e1 * t880 * t10080 - 0.714469352008581120e0 * t649 * t4905 * t650 - 0.11064007557120e2 * t251 * t15271 + 0.23916119461575365556e1 * t106 * t6518 * t4987 * t263 + 0.16879116930178234168e1 * t10405 * t2443 - 0.22757459835536707989e1 * t3434 * t2448 - 0.16468529812403272839e0 * t627 * t15402 + 0.21799717097663792993e0 * t2011 * t15406 + 0.20722416937066287827e0 * t880 * t10447 + 0.16879116930178234168e1 * t8000 * t15412 + 0.32937059624806545678e0 * t627 * t15415 + 0.25502554838335097930e1 * t2437 * t15418 + 0.32937059624806545679e0 * t880 * t10191;
4189   t15431 = t2460 * t1282;
4190   t15446 = t10160 * t1277;
4191   t15460 = 0.38253832257502646895e1 * t880 * t10899 - 0.25502554838335097930e1 * t880 * t10635 - 0.58783429053584738203e0 * t2459 * t15431 - 0.32937059624806545678e0 * t2504 * t3358 - 0.32937059624806545678e0 * t880 * t10303 - 0.32937059624806545678e0 * t880 * t10187 + 0.94575714566868943972e0 * t2517 * t1442 * t15157 + 0.47287857283434471985e0 * t2517 * t4943 * t3376 - 0.63756387095837744824e0 * t2531 * t15446 - 0.59502499971174729838e0 * t8090 * t3367 * t2477 + 0.65874119249613091356e0 * t10018 * t10223 - 0.15183994858257152217e0 * t7628 * t3358 + 0.43599434195327585986e0 * t10809 * t10230 - 0.58783429053584738202e0 * t10018 * t10233;
4192   t15461 = t1277 * t242;
4193   t15462 = t372 * t15461;
4194   t15468 = t634 * t1254 * t263;
4195   t15478 = t2012 * t15078;
4196   t15485 = t2460 * t1287;
4197   t15490 = t379 * t1306;
4198   t15499 = 0.65874119249613091356e0 * t7763 * t15462 + 0.41444833874132575653e0 * t10866 * t10219 + 0.714469352008581120e0 * t868 * t15468 + 0.975074869248e0 * t106 * t2327 * t1306 - 0.2766001889280e1 * t251 * t15277 + 0.29619233351014809600e2 * t251 * t15275 + 0.11378729917768353994e1 * t627 * t15478 - 0.16468529812403272839e0 * t880 * t10800 - 0.12751277419167548965e1 * t880 * t10796 + 0.29391714526792369101e0 * t2459 * t15485 - 0.84395584650891170840e0 * t2499 * t10844 - 0.2202015477522235392e1 * t4124 * t15490 * t263 - 0.98018905612252815489e1 * t640 * t3346 * t3342 - 0.16468529812403272839e0 * t4926 * t265;
4199   t15525 = t628 * t3403 * t242;
4200   t15532 = 0.63756387095837744823e0 * t2504 * t3404 + 0.63756387095837744823e0 * t880 * t10354 - 0.84395584650891170840e0 * t10164 * t2443 + 0.11378729917768353994e1 * t3431 * t2448 - 0.17635028716075421460e1 * t3485 * t250 * t3362 + 0.58783429053584738202e0 * t8055 * t15073 - 0.75919974291285761083e-1 * t3410 * t2452 - 0.58783429053584738202e0 * t3410 * t2455 + 0.13549589651714352352e0 * t10834 * t3461 - 0.38906391098542524630e0 * t10286 * t2443 + 0.52455980750256876982e0 * t3410 * t2448 - 0.12751277419167548965e1 * t2437 * t15525 - 0.10151298285083840779e1 * t883 * t10350 + 0.8298005667840e1 * t251 * t15273;
4201   t15542 = t1893 * t902;
4202   t15553 = t4940 * t99;
4203   t15558 = t1854 * t15490;
4204   t15567 = t3445 * t99;
4205   t15570 = -0.922000629760e0 * t251 * t15245 - 0.38253832257502646894e1 * t10075 * t366 * t3956 - 0.16468529812403272839e0 * t3473 * t381 + 0.44950982175490282881e0 * t3391 * t2478 + 0.56906378609746093242e1 * t1888 * t3346 * t15542 - 0.63756387095837744824e0 * t649 * t1273 * t3331 - 0.12751277419167548965e1 * t3434 * t2524 + 0.44051698455185959158e1 * t4062 * t15316 - 0.714469352008581120e0 * t15553 * t635 + 0.26206649088979828343e1 * t251 * t15221 + 0.44950982175490282881e0 * t633 * t15558 - 0.48997150734706182896e0 * t6799 * t4896 * t6800 - 0.22762551443898437297e2 * t1888 * t15048 * t3347 + 0.29391714526792369101e0 * t15567 * t3456;
4206   t15584 = t4917 * t99;
4207   t15591 = t668 * t5025;
4208   t15597 = t5025 * t253;
4209   t15606 = t6768 * t254;
4210   t15610 = -0.2766001889280e1 * t251 * t15250 - 0.16468529812403272839e0 * t3431 * t2452 - 0.12751277419167548965e1 * t3431 * t2455 + 0.29391714526792369101e0 * t10456 * t3461 + 0.45165298839047841173e-1 * t15283 * t242 * t111 - 0.25306658097095253694e-1 * t15584 * t635 - 0.11064007557120e2 * t15109 * t870 - 0.357234676004290560e0 * t10248 * t910 + 0.325024956416e0 * t106 * t15591 * t263 + 0.2468269445917900800e1 * t251 * t15223 - 0.119078225334763520e0 * t649 * t15597 * t629 + 0.76507664515005293790e1 * t15584 * t870 + 0.20312390406477209506e2 * t1888 * t15220 * t3347 - 0.92817332546461565657e1 * t6767 * t15220 * t15606;
4211   t15634 = t4917 * t250;
4212   t15637 = t4920 * t250;
4213   t15646 = 0.63756387095837744823e0 * t3472 * t863 * t111 - 0.14809616675507404800e2 * t251 * t15252 + 0.12751277419167548965e1 * t649 * t4936 * t650 - 0.357234676004290560e0 * t649 * t903 * t4912 + 0.822756481972633600e0 * t251 * t15232 - 0.13606156761889987933e2 * t640 * t15220 * t891 - 0.61023519165317445059e0 * t640 * t15231 * t891 - 0.32937059624806545678e0 * t2546 * t15056 + 0.29391714526792369101e0 * t3410 * t2524 + 0.45165298839047841173e-1 * t15634 * t630 - 0.58783429053584738203e0 * t15637 * t630 - 0.63756387095837744824e0 * t2531 * t15313 + 0.44051698455185959158e1 * t251 * t15218 - 0.357234676004290560e0 * t2489 * t3537;
4214   t15648 = t1442 * t10160;
4215   t15655 = t4020 * t15299;
4216   t15676 = t4979 * t103;
4217   t15677 = t628 * t15676;
4218   t15680 = t4020 * t15308;
4219   t15686 = 0.10984233449757140111e2 * t4021 * t15648 + 0.25318675395267351253e1 * t8047 * t15166 - 0.11378729917768353994e1 * t7654 * t15169 + 0.16879116930178234169e1 * t2011 * t15655 + 0.56906378609746093244e1 * t4026 * t5771 * t10160 - 0.98018905612252815491e1 * t4031 * t15648 + 0.44950982175490282881e0 * t3372 * t3403 * t2477 + 0.714469352008581120e0 * t2510 * t15446 + 0.47287857283434471986e0 * t2517 * t1442 * t15312 - 0.14809616675507404800e2 * t4044 * t15316 - 0.119078225334763520e0 * t649 * t4980 * t650 + 0.21252129031945914941e0 * t627 * t15677 - 0.22757459835536707989e1 * t627 * t15680 - 0.14699145220411854869e1 * t8214 * t5301 * t3376;
4220   t15695 = t4025 * t15308;
4221   t15698 = t5000 * t250;
4222   t15701 = t1293 * t254;
4223   t15705 = t2446 * t4994;
4224   t15723 = -0.89901964350980565762e0 * t7676 * t15154 - 0.2143408056025743360e1 * t2531 * t15169 + 0.1428938704017162240e1 * t2510 * t15158 - 0.84395584650891170840e0 * t7698 * t3368 + 0.67692822862798455803e0 * t627 * t15695 + 0.21252129031945914941e0 * t15698 * t630 - 0.59502499971174729837e0 * t8090 * t1442 * t15701 + 0.80224916908241017663e0 * t7745 * t15705 + 0.63756387095837744823e0 * t10310 * t887 - 0.10151298285083840779e1 * t10277 * t886 * t10349 - 0.89901964350980565762e0 * t7676 * t15705 + 0.89901964350980565762e0 * t3372 * t886 * t10136 + 0.11378729917768353994e1 * t2504 * t3407 - 0.11756685810716947640e1 * t15236 * t99 * t870;
4225   t15728 = my_piecewise3(t96, 0, t15052 + t15095 + t15135 + t15181 + t15298 + t15343 + t15383 + t15423 + t15460 + t15499 + t15532 + t15570 + t15610 + t15646 + t15686 + t15723);
4226   t15729 = my_piecewise3(t95, 0, t15728);
4227   t15731 = t15006 * t113 + 0.3e1 * t1254 * t937 + 0.3e1 * t863 * t1312 + t94 * t15729 + t242 * t5032 + t4889 * t269 + 0.3e1 * t3323 * t385 + 0.3e1 * t366 * t3569;
4228   t15735 = t5035 * t123;
4229   t15748 = t2047 * t943;
4230   t15763 = t709 * t5034;
4231   t15778 = -t50 * t15731 * t127 / 0.100e3 - t15735 * t1147 / 0.60e2 - t10964 * t1490 / 0.20e2 + t1315 * t275 * t4206 / 0.36e2 - t3575 * t4209 / 0.20e2 - t1315 * t4212 * t956 / 0.18e2 + 0.5e1 / 0.54e2 * t1319 * t15748 + 0.125e3 / 0.1458e4 * t5041 * t9581 * t1147 - 0.5e1 / 0.27e2 * t3586 * t6195 * t943 - 0.125e3 / 0.2187e4 * t5041 * t8394 * t1147 + t280 * t15731 * t127 / 0.100e3 + t15763 * t1147 / 0.180e3 + t10981 * t1490 / 0.60e2 + t3594 * t4209 / 0.60e2 + t2060 * t5083 * t956 / 0.108e3 + 0.5e1 / 0.162e3 * t3600 * t15748 + 0.25e2 / 0.4374e4 * t6945 * t5051 * t1147;
4232   t15808 = t5067 * t294;
4233   t15862 = -params->c1 * t15731 * t140 - 0.10e2 / 0.9e1 * t15808 * t1170 - 0.10e2 / 0.3e1 * t11052 * t1511 - 0.350e3 / 0.81e2 * t11044 * t4269 - 0.10e2 / 0.3e1 * t3624 * t4272 - 0.500e3 / 0.27e2 * t1340 * t731 * t943 - 0.10000e5 / 0.729e3 * t5071 * t194 * t756 * t275 * t18 - 0.50000e5 / 0.6561e4 * t8260 * t5040 * t30 * t4268 - 0.2500e4 / 0.243e3 * t2632 * t1318 * t13 * t17 * t943 - 0.100e3 / 0.81e2 * t290 * t731 * t5080 - 0.500e3 / 0.27e2 * t975 * t997 * t3639 - 0.100e3 / 0.81e2 * t5078 * t12903 * t5079 - 0.100e3 / 0.81e2 * t5078 * t4267 * t16 * t3571 - 0.50e2 / 0.81e2 * t293 * t1176 * t3571 * t391 - 0.50e2 / 0.81e2 * t293 * t1176 * t1314 * t943 - 0.50e2 / 0.81e2 * t293 * t1176 * t5034 * t275 - 0.5e1 / 0.9e1 * t483 * t484 * t15731;
4234   t15881 = t7016 * t1170;
4235   t15884 = t3655 * t3659;
4236   t15892 = t64 * t5101 * t275;
4237   t15917 = t754 * t756 * t5034;
4238   t15932 = -0.10000e5 / 0.729e3 * t301 * t2115 * t5040 * t15881 - 0.500e3 / 0.27e2 * t2105 * t15884 - 0.5000e4 / 0.243e3 * t754 * t2130 * t5040 * t15881 - 0.50e2 / 0.9e1 * t8324 * t15892 - 0.10e2 / 0.3e1 * t2662 * t5102 - 0.50e2 / 0.9e1 * t8302 * t15892 - 0.10e2 / 0.3e1 * t988 * t18 * t146 * t3571 - 0.500e3 / 0.27e2 * t2116 * t15884 - 0.5000e4 / 0.729e3 * t2128 * t7038 * t5040 * t15881 - 0.10e2 / 0.9e1 * t301 * t730 * t5034 * t305 - t301 * t294 * t15731 * t146 - 0.5e1 / 0.9e1 * t15917 * t305 - 0.5e1 / 0.3e1 * t11128 * t413 - 0.5e1 / 0.3e1 * t3673 * t994 - 0.25e2 / 0.27e2 * t11088 * t4315 - 0.250e3 / 0.81e2 * t2131 * t15884 - 0.1250e4 / 0.2187e4 * t7056 * t7058 * t5040 * t15881;
4239   t15933 = my_piecewise3(t138, 0.3e1 * t1349 * t983 * t144 + t5090 * t299 * t144 + t5095 * t299 * t144 + 0.3e1 * t3646 * t410 * t144 + 0.3e1 * t1352 * t983 + t15862 * t144 + 0.3e1 * t5092 * t300, t15932);
4240   t15936 = t179 * (0.27e2 / 0.40e2 * t195 * t199 * t45 - 0.243e3 / 0.640e3 * t541 * t811 * t13 * t234 * t548 + 0.24057e5 / 0.256000e6 * t1758 * t35 * t3251 * t1766 - 0.177147e6 / 0.5120000e7 * t6335 * t196 / t6325 * t45 + 0.6e1 * t959 * t1329 + 0.6e1 * t398 * t3603 + 0.2e1 * t284 * t5055 + 0.2e1 * t130 * t15778) * t149 - t179 * t5058 * t308 + 0.6e1 * t517 * t5061 * t287 - 0.3e1 * t179 * t3606 * t416 - 0.3e1 * t179 * t1332 * t1002 + 0.6e1 * t517 * t5064 * t287 - 0.3e1 * t179 * t962 * t1364 - 0.3e1 * t179 * t401 * t3681 - t179 * t287 * t5115 - t137 * t15933 + 0.1174e1 * t15933;
4241   t15942 = 0.1e1 / t542;
4242   t15957 = -0.56630821004800493113e2 * t5158 * t1032 - 0.16989246301440147934e2 * t5 * t1014 * t5145 * t1392 + 0.34068677267598468749e2 * t424 * t1389 * t316 * t777 * t7103 + 0.31310929687500000000e2 * t7184 * t5137 - 0.43602825262761508098e0 * t2720 * t5146 * t3715 - 0.43602825262761508097e-1 * t7188 * t5149 - 0.12524371875000000000e2 * t9704 * t1379 - 0.13915968750000000000e1 * t3694 * t1384 - 0.3e1 / 0.16e2 * t174 * t175 * (t14891 + t15936) * t167 - 0.46213986221445163711e2 * t7085 * t15942 * t67 * t7103 - 0.68137354535196937500e2 * t1373 * t3729 + 0.96527918924862328128e2 * t426 * t5161 * t10 * t11 * t326 * t166 + 0.69579843750000000000e0 * t1015 * t5154;
4243   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4244     v4rhosigma3[0] = t14836 + t15957;
4245 
4246   t16000 = 0.24e2 * t2748 * t1038 * t401 * t962 + 0.4e1 * t179 * t398 * t4229 * t149 - 0.4e1 * t1037 * t1038 * t3606 + 0.8e1 * t1037 * t13036 * t401 + 0.4e1 * t1037 * t2759 * t1332 - 0.12e2 * t2748 * t2759 * t1213 - t179 * t287 * t5559 - 0.2e1 * t179 * t5485 * t308 - 0.2e1 * t179 * t476 * t3681 + 0.24e2 * t11230 * t3735 - 0.8e1 * t13198 * t1395 + 0.8e1 * t2752 * t5174 - 0.8e1 * t3749 * t3740 - 0.8e1 * t3749 * t3764 + 0.8e1 * t3749 * t4238;
4247   t16068 = t1141 * t1314;
4248   t16074 = t469 * t3571;
4249   t16080 = t1338 * t1193 - t1167 * t1358 + 0.1000e4 / 0.81e2 * t975 * t4331 * t4282 + 0.100e3 / 0.81e2 * t293 * t1176 * t1486 * t943 + 0.500e3 / 0.27e2 * t11027 * t1196 * t275 - 0.500e3 / 0.81e2 * t12849 * t3655 * t275 - 0.10e2 / 0.9e1 * t11251 * t1511 - 0.100e3 / 0.81e2 * t3139 * t4267 * t33 * t943 + 0.200e3 / 0.81e2 * t972 * t4297 + 0.100e3 / 0.81e2 * t5513 * t9409 + 0.50e2 / 0.27e2 * t14449 * t1196 * t3639 + 0.50e2 / 0.81e2 * t293 * t1176 * t5457 * t275 + 0.10e2 / 0.9e1 * t483 * t1660 * t16068 + 0.10e2 / 0.9e1 * t1514 * t4300 + 0.10e2 / 0.9e1 * t483 * t1660 * t16074 - 0.100e3 / 0.81e2 * t12853 * t4269;
4250   t16091 = t5504 * t294;
4251   t16123 = 0.3e1 / 0.4e1 * t2791 * t3282 - 0.2e1 * t830 * t3774 - 0.2e1 * t830 * t3776 - 0.15e2 / 0.8e1 * t8559 * t3274 + 0.3e1 / 0.2e1 * t2791 * t3277 + t3263 * t3796 * t860 / 0.2592e4 + 0.3e1 * t11419 * t1408 + 0.3e1 * t11404 * t1408 - 0.2e1 * t2239 * t1412 + 0.3e1 / 0.2e1 * t1055 * t1056 * t3320 + 0.5e1 / 0.2592e4 * t1055 * t3784 * t4454 * t239;
4252   t16125 = t445 * sigma[0];
4253   t16126 = t585 * t16125;
4254   t16129 = t830 * t84;
4255   t16132 = t225 * t194;
4256   t16146 = t224 * t227 * t1056;
4257   t16149 = t5205 * t2821;
4258   t16152 = t2239 * t226;
4259   t16155 = t830 * t838;
4260   t16164 = -0.20e2 / 0.19683e5 * t3304 * t224 * t16126 + 0.5e1 / 0.1458e4 * t16129 * t3785 - 0.20e2 / 0.19683e5 * t16132 * t199 * t231 * t16125 - 0.13e2 / 0.3888e4 * t5209 * t3827 + 0.8e1 / 0.6561e4 * t5212 * t564 * t1056 - 0.125e3 / 0.243e3 * t8551 * t8552 * t3241 - t3827 * t16146 / 0.4374e4 - t3827 * t16149 / 0.4374e4 + t16152 * t1420 / 0.1296e4 + t16155 * t1420 / 0.1296e4 - t573 * t64 * t5213 / 0.4374e4 - t5212 * t214 * t2821 / 0.4374e4;
4261   t16166 = t573 * t1411;
4262   t16169 = t225 * t3773;
4263   t16172 = t363 * sigma[0];
4264   t16180 = t225 * t358;
4265   t16193 = t1251 * t13;
4266   t16200 = t16166 * t1420 / 0.1296e4 + t16169 * t1420 / 0.1296e4 - 0.5e1 / 0.972e3 * t11425 * t4881 * t16172 - 0.13e2 / 0.3888e4 * t5216 * t3827 + 0.8e1 / 0.6561e4 * t11269 * t5206 + 0.5e1 / 0.1458e4 * t16180 * t3785 - t3263 * t11415 * t835 / 0.1728e4 + 0.3e1 / 0.2e1 * t1055 * t2821 * t1251 + 0.3e1 * t3790 * t3841 + 0.10e2 / 0.9e1 * t11332 * t3860 + 0.5e1 / 0.9e1 * t2799 * t16193 * t17 * t182 + 0.10e2 / 0.9e1 * t11329 * t3860;
4267   t16201 = t1236 * t13;
4268   t16214 = t2241 * t358;
4269   t16219 = t1225 * t13;
4270   t16220 = t234 * t10;
4271   t16236 = -0.25e2 / 0.18e2 * t8609 * t16201 * t17 * t182 + 0.25e2 / 0.24e2 * t8609 * t3859 * t3852 - 0.25e2 / 0.54e2 * t8603 * t11325 * t825 + 0.3e1 / 0.2e1 * t2818 * t5199 + 0.3e1 * t16214 * t1057 + 0.3e1 * t11401 * t1408 - 0.25e2 / 0.34992e5 * t11475 * t16219 * t16220 - 0.5e1 / 0.12e2 * t8620 * t5242 - 0.5e1 / 0.12e2 * t8623 * t5242 - 0.5e1 / 0.12e2 * t8626 * t5242 - 0.5e1 / 0.12e2 * t2799 * t11319 * t346 - 0.20e2 / 0.27e2 * t830 * t3848 * t183;
4272   t16243 = t1800 * t1245;
4273   t16261 = t1066 * t30;
4274   t16265 = t577 * t84;
4275   t16266 = t16265 * t1057;
4276   t16269 = t2241 * t226;
4277   t16272 = -0.5e1 / 0.12e2 * t11329 * t3853 + 0.25e2 / 0.81e2 * t11488 * t826 + 0.5e1 / 0.1728e4 * t16243 * t853 * t75 * t363 * t239 - 0.5e1 / 0.12e2 * t11332 * t3853 + 0.25e2 / 0.81e2 * t11495 * t826 + 0.25e2 / 0.288e3 * t8603 * t11375 - 0.25e2 / 0.432e3 * t573 * t1813 * t5236 - 0.25e2 / 0.432e3 * t225 * t7351 * t5236 - 0.25e2 / 0.432e3 * t5234 * t16261 * t1246 + t3827 * t16266 / 0.2916e4 - t16269 * t3821 / 0.864e3;
4278   t16273 = t578 * t64;
4279   t16277 = t578 * t1411;
4280   t16302 = t16273 * t214 * t1057 / 0.2916e4 - t16277 * t3821 / 0.864e3 + 0.5e1 / 0.18e2 * t2239 * t585 * t1416 + 0.5e1 / 0.18e2 * t830 * t2263 * t1416 - 0.5e1 / 0.3888e4 * t11540 * t5202 - 0.5e1 / 0.3888e4 * t11543 * t5202 + 0.3e1 / 0.2e1 * t2815 * t5199 - 0.15e2 / 0.2e1 * t11439 * t3780 - 0.15e2 / 0.4e1 * t2787 * t1056 * t3282 + 0.3e1 * t3793 * t3838 - 0.13e2 / 0.7776e4 * t4861 + 0.3e1 * t11398 * t1408;
4281   t16322 = t64 * t214 * t363;
4282   t16335 = -0.15e2 / 0.4e1 * t8517 * t5239 - 0.15e2 / 0.4e1 * t2787 * t2821 * t1236 + 0.3e1 * t3790 * t3838 - 0.15e2 / 0.2e1 * t2787 * t1056 * t3277 - 0.15e2 / 0.2e1 * t11409 * t3780 + 0.105e3 / 0.8e1 * t8530 * t1056 * t3274 - 0.20e2 / 0.27e2 * t5219 * t3824 + 0.13e2 / 0.2592e4 * t3819 * t16322 + 0.5e1 / 0.18e2 * t573 * t3847 * t1416 + 0.5e1 / 0.18e2 * t225 * t11456 * t1416 + 0.5e1 / 0.18e2 * t5231 * t3816 - 0.20e2 / 0.27e2 * t5231 * t3824;
4283   t16365 = 0.25e2 / 0.81e2 * t5234 * t5235 * t3308 + 0.35e2 / 0.3888e4 * t3783 * t3784 * t340 + 0.3e1 * t3793 * t3841 + 0.5e1 / 0.18e2 * t5219 * t3816 - t11289 * t5223 / 0.864e3 - t11292 * t5223 / 0.864e3 - t3819 * t64 * t76 * t860 / 0.864e3 + 0.10e2 / 0.9e1 * t2799 * t3858 * t818 - 0.15e2 / 0.4e1 * t8514 * t5239 + 0.3e1 / 0.4e1 * t8556 * t1236 - t2811 * t1251 / 0.2e1 - t1051 * t3320 / 0.2e1;
4284   t16368 = t16123 + t16164 + t16200 + t16236 + t16272 + t16302 + t16335 + t16365;
4285   t16385 = t1080 * t1254 * t99;
4286   t16388 = t1258 * t99;
4287   t16389 = t2946 * t16388;
4288   t16392 = t3981 * t3951;
4289   t16396 = t2012 * t5767 * t371;
4290   t16400 = t2012 * t2867 * t1285;
4291   t16405 = t5320 * t254;
4292   t16406 = t1090 * t16405;
4293   t16409 = t2867 * t16405;
4294   t16414 = t3964 * t10218;
4295   t16421 = t1090 * t1272;
4296   t16422 = t2012 * t16421;
4297   t16425 = 0.97972381755974563669e-1 * t16385 * t2461 + 0.45165298839047841173e-1 * t16389 * t2461 + 0.19594476351194912734e0 * t16392 * t2461 - 0.56263723100594113896e0 * t2011 * t16396 - 0.28131861550297056947e0 * t2011 * t16400 - 0.54895099374677576130e-1 * t1084 * t10910 - 0.1428938704017162240e1 * t2531 * t16406 - 0.18915142913373788794e1 * t8094 * t16409 + 0.25502554838335097930e1 * t8078 * t16406 + 0.53483277938827345108e0 * t7745 * t16414 + 0.16879116930178234168e1 * t8047 * t16409 - 0.75858199451789026627e0 * t7654 * t16406 + 0.12751277419167548965e1 * t627 * t16422;
4298   t16443 = t628 * t4056 * t242;
4299   t16446 = t1478 * t379;
4300   t16452 = t461 * t1306;
4301   t16458 = 0.14983660725163427627e0 * t2880 * t3387 - 0.119078225334763520e0 * t1087 * t10325 - 0.42504258063891829882e0 * t10896 * t3933 - 0.54895099374677576129e-1 * t3431 * t3060 - 0.42504258063891829882e0 * t3431 * t3064 + 0.97972381755974563669e-1 * t10456 * t3942 - 0.28131861550297056947e0 * t10164 * t3068 + 0.37929099725894513314e0 * t3431 * t3071 - 0.85008516127783659764e0 * t2437 * t16443 - 0.1468010318348156928e1 * t4124 * t16446 * t263 - 0.922000629760e0 * t3015 * t4902 - 0.734005159174078464e0 * t4124 * t16452 * t263 + 0.13814944624710858551e0 * t2459 * t3892;
4302   t16460 = t1452 * t371;
4303   t16461 = t16460 * t650;
4304   t16464 = t1452 * t1893;
4305   t16468 = t5767 * t2446;
4306   t16483 = t634 * t461 * t863;
4307   t16495 = t1120 * t3518;
4308   t16498 = -0.42504258063891829883e0 * t2531 * t16461 + 0.37937585739830728829e1 * t4026 * t16464 * t2446 - 0.65345937074835210328e1 * t4031 * t16468 + 0.15762619094478157329e0 * t2517 * t2867 * t15312 - 0.10979019874935515226e0 * t3982 * t381 - 0.1844001259520e1 * t12209 * t1427 - 0.54895099374677576130e-1 * t3453 * t2992 + 0.29967321450326855254e0 * t883 * t11959 + 0.476312901339054080e0 * t868 * t16483 - 0.21252129031945914941e0 * t649 * t8940 * t3394 - 0.1844001259520e1 * t3999 * t3456 - 0.59934642900653710508e0 * t12418 * t668 * t366 * t2477 - 0.59934642900653710508e0 * t10707 * t16495;
4309   t16527 = t1090 * t15157;
4310   t16530 = 0.29967321450326855254e0 * t12258 * t914 - 0.50613316194190507389e-1 * t12017 * t2557 + 0.21958039749871030452e0 * t8858 * t5293 * t256 - 0.10979019874935515226e0 * t3995 * t381 + 0.42504258063891829882e0 * t3981 * t863 * t111 - 0.119078225334763520e0 * t649 * t5348 * t650 + 0.29967321450326855254e0 * t8923 * t1278 + 0.29967321450326855254e0 * t2924 * t3437 + 0.29967321450326855254e0 * t3372 * t1090 * t10136 - 0.29967321450326855254e0 * t2924 * t3558 - 0.714469352008581120e0 * t4065 * t3499 + 0.476312901339054080e0 * t4065 * t3501 + 0.476312901339054080e0 * t2510 * t16527;
4311   t16536 = t2859 * t4994;
4312   t16539 = t3039 * t5320;
4313   t16561 = t655 * t5347;
4314   t16562 = t16561 * t629;
4315   t16567 = -0.19834166657058243279e0 * t8090 * t2867 * t15701 + 0.26741638969413672554e0 * t7745 * t16536 + 0.476312901339054080e0 * t2510 * t16539 - 0.94575714566868943969e0 * t4068 * t3525 + 0.12751277419167548965e1 * t4065 * t3352 - 0.33837660950279469264e0 * t10277 * t1090 * t10349 - 0.29967321450326855254e0 * t7676 * t16536 + 0.97972381755974563669e-1 * t2946 * t1254 * t3956 + 0.325024956416e0 * t106 * t1120 * t3512 - 0.238156450669527040e0 * t4183 * t2474 - 0.119078225334763520e0 * t10248 * t1113 - 0.922000629760e0 * t251 * t16562 + 0.2766001889280e1 * t9317 * t5253;
4316   t16589 = t454 * t15461;
4317   t16594 = t1116 * t3361;
4318   t16597 = 0.29967321450326855254e0 * t1087 * t10137 - 0.33837660950279469264e0 * t1087 * t10350 - 0.29967321450326855254e0 * t1074 * t15209 - 0.119078225334763520e0 * t649 * t1116 * t10353 - 0.10979019874935515226e0 * t3888 * t381 + 0.13814944624710858551e0 * t10866 * t12643 + 0.21958039749871030452e0 * t10018 * t12634 - 0.50613316194190507389e-1 * t7628 * t3972 + 0.14533144731775861995e0 * t10809 * t12637 - 0.19594476351194912734e0 * t10018 * t12640 + 0.21958039749871030452e0 * t7763 * t16589 + 0.13814944624710858551e0 * t10866 * t11757 + 0.21958039749871030452e0 * t7763 * t16594;
4319   t16599 = t2867 * t10083;
4320   t16613 = t2859 * t4912;
4321   t16626 = t366 * t642;
4322   t16634 = t1094 * t1442 * t379;
4323   t16637 = t245 * t16368;
4324   t16640 = -0.13606156761889987933e2 * t11683 * t16599 + 0.10979019874935515226e0 * t3434 * t3056 + 0.19594476351194912734e0 * t12061 * t366 * t3956 - 0.119078225334763520e0 * t649 * t454 * t15335 + 0.15762619094478157328e0 * t2517 * t2867 * t15140 - 0.21252129031945914941e0 * t2531 * t16613 + 0.25502554838335097930e1 * t12603 * t12009 * t3361 + 0.21958039749871030452e0 * t8858 * t12009 * t2451 + 0.17001703225556731953e1 * t11828 * t366 * t655 * t2447 + 0.11252744620118822779e1 * t12501 * t16626 * t2442 - 0.15171639890357805326e1 * t11828 * t16626 * t2447 + 0.14533144731775861995e0 * t8067 * t16634 + 0.461000314880e0 * t16637 * t111;
4325   t16656 = t668 * t5394;
4326   t16660 = t5347 * t103;
4327   t16661 = t628 * t16660;
4328   t16675 = 0.21252129031945914941e0 * t1080 * t3323 * t111 + 0.13814944624710858551e0 * t10866 * t11883 + 0.36614111499190467036e1 * t640 * t9008 * t3367 + 0.15762619094478157328e0 * t1878 * t8940 * t3367 - 0.922000629760e0 * t1074 * t15114 + 0.238156450669527040e0 * t1074 * t15468 + 0.325024956416e0 * t106 * t16656 * t263 + 0.21252129031945914941e0 * t627 * t16661 - 0.10979019874935515226e0 * t5305 * t265 - 0.50613316194190507389e-1 * t12658 * t381 - 0.1428938704017162240e1 * t11878 * t11879 * t3518 + 0.42504258063891829882e0 * t880 * t12802 + 0.42504258063891829882e0 * t2504 * t4057;
4329   t16682 = t250 * t1479;
4330   t16698 = t2950 * t3403;
4331   t16704 = t1080 * t3951 * t638;
4332   t16711 = 0.31525238188956314657e0 * t639 * t1479 * t892 - 0.42504258063891829883e0 * t16682 * t907 + 0.14983660725163427627e0 * t2924 * t3339 + 0.238156450669527040e0 * t4065 * t3336 - 0.238156450669527040e0 * t883 * t12631 + 0.21252129031945914941e0 * t3050 * t3404 + 0.21252129031945914941e0 * t1084 * t10354 - 0.238156450669527040e0 * t649 * t1453 * t3331 - 0.922000629760e0 * t251 * t16698 + 0.90330597678095682346e-1 * t12021 * t3461 - 0.25937594065695016420e0 * t16704 * t2443 + 0.34970653833504584655e0 * t12017 * t2448 + 0.21958039749871030452e0 * t8858 * t15462;
4333   t16739 = 0.13814944624710858551e0 * t12624 * t10219 + 0.21958039749871030452e0 * t12027 * t10223 - 0.50613316194190507389e-1 * t8855 * t3358 + 0.14533144731775861995e0 * t12032 * t10230 - 0.19594476351194912734e0 * t12027 * t10233 - 0.25937594065695016420e0 * t10737 * t3978 + 0.17489238971848963748e1 * t368 * t1888 * t11754 + 0.21252129031945914941e0 * t10310 * t1091 - 0.42504258063891829882e0 * t3434 * t3040 - 0.10979019874935515226e0 * t2504 * t3972 - 0.10979019874935515226e0 * t880 * t12714 - 0.10979019874935515226e0 * t880 * t12717 - 0.59934642900653710508e0 * t7676 * t16414;
4334   t16749 = t1479 * t373;
4335   t16752 = t462 * t1287;
4336   t16755 = t4025 * t16421;
4337   t16770 = t614 * t5245;
4338   t16771 = t16770 * t99;
4339   t16776 = -0.714469352008581120e0 * t3453 * t3910 + 0.650049912832e0 * t106 * t3872 * t931 - 0.1468010318348156928e1 * t4124 * t3891 * t931 - 0.10979019874935515226e0 * t627 * t16749 - 0.54895099374677576130e-1 * t627 * t16752 + 0.67692822862798455803e0 * t627 * t16755 + 0.15762619094478157328e0 * t4068 * t3415 + 0.14983660725163427627e0 * t2924 * t3450 + 0.238156450669527040e0 * t649 * t8864 * t3394 + 0.476312901339054080e0 * t3015 * t5294 - 0.12204703833063489012e1 * t640 * t11906 * t1442 - 0.922000629760e0 * t16771 * t870 + 0.69074723123554292755e-1 * t3453 * t2921;
4340   t16777 = t5394 * t253;
4341   t16791 = t3964 * t3331;
4342   t16798 = t1272 * t263;
4343   t16799 = t1090 * t16798;
4344   t16802 = t1090 * t10083;
4345   t16805 = t371 * t902;
4346   t16806 = t1090 * t16805;
4347   t16811 = -0.119078225334763520e0 * t649 * t16777 * t629 - 0.10979019874935515226e0 * t2546 * t16483 + 0.32937059624806545678e0 * t10726 * t3910 - 0.54895099374677576130e-1 * t3473 * t463 + 0.476312901339054080e0 * t3999 * t3519 + 0.238156450669527040e0 * t3428 * t2992 - 0.42504258063891829882e0 * t2531 * t16791 + 0.476312901339054080e0 * t2510 * t16791 - 0.42504258063891829882e0 * t2531 * t16527 - 0.714469352008581120e0 * t2531 * t16799 - 0.11064007557120e2 * t4044 * t16802 + 0.5532003778560e1 * t4012 * t16806 - 0.21968466899514280222e2 * t4031 * t16599;
4348   t16835 = t4056 * t3376;
4349   t16850 = -0.42504258063891829882e0 * t2531 * t16539 - 0.238156450669527040e0 * t649 * t3879 * t1277 + 0.31525238188956314657e0 * t2517 * t2867 * t15157 + 0.31525238188956314657e0 * t2517 * t2867 * t371 * t931 + 0.42504258063891829882e0 * t12164 * t366 * t111 + 0.14983660725163427627e0 * t1868 * t1106 * t4994 + 0.29967321450326855254e0 * t3372 * t4056 * t2477 + 0.476312901339054080e0 * t2510 * t16835 - 0.33837660950279469264e0 * t9325 * t3425 - 0.92817332546461565657e1 * t12135 * t12136 * t10083 + 0.14983660725163427627e0 * t3391 * t2921 - 0.54895099374677576129e-1 * t5311 * t265 + 0.31525238188956314657e0 * t2517 * t5767 * t3376;
4350   t16863 = t11906 * t886;
4351   t16866 = t461 * t1293;
4352   t16870 = t2867 * t10160;
4353   t16873 = t2859 * t3403;
4354   t16879 = t4027 * t10083;
4355   t16888 = -0.42504258063891829883e0 * t2531 * t16835 + 0.14983660725163427627e0 * t3372 * t1090 * t10055 + 0.238156450669527040e0 * t2510 * t16613 + 0.13814944624710858551e0 * t3952 * t2478 - 0.119078225334763520e0 * t649 * t1106 * t4912 + 0.1645512963945267200e1 * t251 * t16863 + 0.23916119461575365556e1 * t11578 * t16866 * t263 + 0.36614111499190467036e1 * t4021 * t16870 - 0.4936538891835801600e1 * t4044 * t16873 - 0.48997150734706182896e0 * t8214 * t4027 * t16798 - 0.22762551443898437297e2 * t11952 * t16879 + 0.37937585739830728828e1 * t4026 * t4027 * t16805 - 0.67675321900558938528e0 * t368 * t106 * t11858;
4356   t16897 = t4002 * t2523;
4357   t16909 = t4056 * t2446;
4358   t16916 = t921 * t1258;
4359   t16919 = t1468 * t863;
4360   t16939 = 0.5684735615810048000e1 * t2946 * t15228 + 0.11369471231620096000e2 * t12061 * t4145 + 0.114668117222400e3 * t2946 * t16916 + 0.21416640e2 * t1080 * t16919 - 0.42833280e2 * t2876 * t16916 + 0.11369471231620096000e2 * t2855 * t10079 - 0.19111352870400e2 * t2876 * t15228 + 0.5684735615810048000e1 * t2855 * t10795 + 0.10708320e2 * t1080 * t15228 + 0.1784720e1 * t16637 * t108 - 0.38222705740800e2 * t2876 * t16919 - 0.38222705740800e2 * t12374 * t4145 - 0.7138880e1 * t16897;
4361   t16942 = t4089 * t2523;
4362   t16949 = t2962 * t3394;
4363   t16957 = t12302 * t886;
4364   t16959 = t623 * t5245;
4365   t16964 = t2962 * t3403;
4366   t16966 = t1094 * t10353;
4367   t16968 = -0.3569440e1 * t2932 * t5008 + 0.6370450956800e1 * t16942 - 0.38222705740800e2 * t11850 * t2447 - 0.3569440e1 * t16562 + 0.5684735615810048000e1 * t8887 * t5367 + 0.10708320e2 * t16949 - 0.42833280e2 * t2953 * t10084 - 0.68216827389720576000e2 * t9028 * t10084 - 0.68216827389720576000e2 * t8838 * t16916 - 0.7138880e1 * t16957 + 0.3185225478400e1 * t16959 * t921 + 0.21416640e2 * t3981 * t4145 + 0.3185225478400e1 * t16964 + 0.3185225478400e1 * t16966;
4368   t16970 = t8978 * t3394;
4369   t16978 = t642 * t5347;
4370   t16979 = t16978 * t629;
4371   t16988 = -t253 * t16368 * t103;
4372   t16998 = 0.5684735615810048000e1 * t16970 + 0.6370450956800e1 * t12164 * t1468 + 0.6370450956800e1 * t3981 * t3482 + 0.3185225478400e1 * t2916 * t5008 + 0.3185225478400e1 * t16979 + 0.6370450956800e1 * t16863 + 0.11369471231620096000e2 * t12297 * t2447 + 0.11369471231620096000e2 * t2946 * t16919 + 0.1784720e1 * t16988 + 0.21416640e2 * t4089 * t2447 - 0.38222705740800e2 * t2953 * t10079 + 0.10708320e2 * t2916 * t5367 - 0.7138880e1 * t12208 * t1468;
4373   t17019 = t9008 * t3394;
4374   t17022 = t1101 * t10353;
4375   t17026 = -0.7138880e1 * t3998 * t3482 - 0.19111352870400e2 * t8997 * t5367 + 0.21416640e2 * t1094 * t10079 + 0.114668117222400e3 * t2855 * t10084 + 0.3185225478400e1 * t1080 * t15256 - 0.3569440e1 * t1073 * t15256 - 0.3569440e1 * t16770 * t921 - 0.19111352870400e2 * t2953 * t10795 + 0.10145661348248508867e2 * t8842 * t10084 + 0.10145661348248508867e2 * t8695 * t16916 - 0.19111352870400e2 * t17019 - 0.3569440e1 * t16698 - 0.3569440e1 * t17022 + 0.10708320e2 * t1094 * t10795;
4376   t17034 = t1116 * t3357;
4377   t17037 = t1101 * t3357;
4378   t17040 = 0.42504258063891829882e0 * t3904 * t2524 + 0.97972381755974563669e-1 * t8887 * t1258 * t111 + 0.29967321450326855254e0 * t883 * t12245 - 0.1844001259520e1 * t251 * t16897 - 0.10979019874935515226e0 * t1433 * t933 + 0.650049912832e0 * t106 * t12452 * t379 - 0.25306658097095253694e-1 * t3410 * t3056 + 0.476312901339054080e0 * t2510 * t16461 + 0.5532003778560e1 * t4012 * t16909 - 0.258304e0 * t106 * t259 * (t16939 + t16968 + t16998 + t17026) - 0.119078225334763520e0 * t2880 * t3537 + 0.13814944624710858551e0 * t7591 * t17034 + 0.21958039749871030452e0 * t8060 * t17037;
4379   t17041 = t1094 * t3357;
4380   t17068 = -0.19594476351194912734e0 * t8060 * t17041 + 0.29967321450326855254e0 * t883 * t12159 + 0.76507664515005293790e1 * t5266 * t3956 + 0.476312901339054080e0 * t16682 * t899 - 0.21252129031945914941e0 * t4065 * t3384 - 0.37929099725894513314e0 * t7654 * t16799 - 0.17620679382074383663e2 * t11599 * t16802 + 0.238156450669527040e0 * t3469 * t3910 - 0.25306658097095253694e-1 * t3446 * t463 + 0.476312901339054080e0 * t1074 * t15056 - 0.28131861550297056947e0 * t9048 * t3368 + 0.37929099725894513314e0 * t3050 * t3407 + 0.29967321450326855254e0 * t12258 * t895;
4381   t17087 = t453 * t1285;
4382   t17088 = t17087 * t650;
4383   t17101 = -0.42504258063891829882e0 * t4065 * t3418 - 0.37929099725894513314e0 * t4065 * t3421 + 0.73228222998380934071e1 * t4021 * t16468 - 0.19834166657058243278e0 * t9360 * t3528 - 0.9873077783671603200e1 * t4044 * t16806 + 0.29367798970123972772e1 * t4062 * t16806 + 0.26206649088979828343e1 * t11687 * t16802 - 0.21252129031945914941e0 * t2531 * t17088 - 0.119078225334763520e0 * t3391 * t2992 + 0.42504258063891829882e0 * t11825 * t887 - 0.10979019874935515226e0 * t880 * t12046 - 0.67675321900558938528e0 * t9325 * t10219 - 0.59934642900653710508e0 * t2924 * t10223;
4384   t17106 = t462 * t1282;
4385   t17110 = t3371 * t1090 * t1293;
4386   t17131 = -0.39668333314116486558e0 * t9360 * t10230 + 0.53483277938827345109e0 * t2924 * t10233 + 0.10979019874935515226e0 * t627 * t17106 + 0.69074723123554292755e-1 * t627 * t17110 - 0.922000629760e0 * t251 * t17022 + 0.32937059624806545679e0 * t5256 * t265 + 0.29367798970123972772e1 * t4062 * t16909 + 0.29619233351014809600e2 * t4062 * t16802 + 0.14683899485061986386e1 * t4062 * t16873 + 0.12751277419167548965e1 * t8078 * t16799 - 0.238156450669527040e0 * t11622 * t910 + 0.69074723123554292755e-1 * t1084 * t10447 - 0.238156450669527040e0 * t2489 * t4075;
4387   t17133 = t2876 * t366;
4388   t17136 = t2867 * t16798;
4389   t17139 = t2867 * t16805;
4390   t17156 = t2876 * t1254;
4391   t17165 = -0.25502554838335097930e1 * t17133 * t10251 - 0.94575714566868943973e0 * t8094 * t17136 + 0.73228222998380934072e1 * t4021 * t17139 + 0.97972381755974563669e-1 * t3410 * t3040 + 0.31525238188956314657e0 * t2517 * t4604 * t5320 - 0.1844001259520e1 * t251 * t16957 + 0.29967321450326855254e0 * t2924 * t3332 + 0.822756481972633600e0 * t251 * t16964 - 0.32672968537417605163e1 * t640 * t8978 * t3367 - 0.12751277419167548965e1 * t17156 * t3956 - 0.10979019874935515226e0 * t2504 * t4097 - 0.10979019874935515226e0 * t880 * t12190 - 0.10979019874935515226e0 * t880 * t12144;
4392   t17185 = t16460 * t103;
4393   t17186 = t2012 * t17185;
4394   t17192 = t634 * t1478 * t242;
4395   t17200 = -0.85008516127783659765e0 * t2504 * t4100 - 0.85008516127783659765e0 * t880 * t12151 - 0.85008516127783659765e0 * t880 * t12154 + 0.325024956416e0 * t106 * t2906 * t1306 - 0.61023519165317445059e0 * t640 * t2962 * t4943 + 0.21252129031945914941e0 * t2916 * t1254 * t111 + 0.29967321450326855254e0 * t4183 * t2478 + 0.2766001889280e1 * t251 * t16949 + 0.75858199451789026629e0 * t627 * t17186 + 0.14683899485061986386e1 * t251 * t16970 + 0.476312901339054080e0 * t868 * t17192 + 0.18968792869915364414e1 * t1888 * t8978 * t5301 + 0.2766001889280e1 * t3031 * t15145;
4396   t17205 = t1854 * t16446;
4397   t17211 = t5269 * t250;
4398   t17220 = t6638 * t16866;
4399   t17233 = t1943 * t4056 * t379;
4400   t17238 = t368 * t640;
4401   t17241 = 0.476312901339054080e0 * t3999 * t4129 + 0.29967321450326855254e0 * t633 * t17205 - 0.61023519165317445059e0 * t640 * t16978 * t891 + 0.21252129031945914941e0 * t17211 * t630 + 0.31525238188956314658e0 * t2517 * t5767 * t4016 + 0.21252129031945914941e0 * t16959 * t242 * t111 - 0.33837660950279469264e0 * t633 * t17220 - 0.119078225334763520e0 * t649 * t2888 * t3403 - 0.12204703833063489012e1 * t640 * t4089 * t3342 - 0.238156450669527040e0 * t649 * t4118 * t2523 - 0.10979019874935515226e0 * t627 * t17233 + 0.5532003778560e1 * t12233 * t4136 - 0.30124497567627698085e1 * t17238 * t11838;
4402   t17242 = t1094 * t3361;
4403   t17249 = t368 * t251;
4404   t17252 = t2876 * t12016;
4405   t17267 = t1101 * t3361;
4406   t17272 = -0.15171639890357805326e1 * t10004 * t17242 - 0.19594476351194912734e0 * t10018 * t11831 + 0.34970653833504584655e0 * t7628 * t3966 + 0.13538564572559691160e1 * t17249 * t4177 - 0.11756685810716947640e1 * t17252 * t3362 - 0.50613316194190507388e-1 * t12017 * t2452 - 0.39188952702389825468e0 * t12017 * t2455 + 0.21958039749871030452e0 * t10018 * t11761 - 0.50613316194190507389e-1 * t7628 * t4097 + 0.14533144731775861995e0 * t10809 * t12484 - 0.19594476351194912734e0 * t10018 * t12487 + 0.17001703225556731953e1 * t10004 * t17267 + 0.21958039749871030452e0 * t10018 * t12490;
4407   t17283 = t1094 * t1442 * t242;
4408   t17292 = t2876 * t16388;
4409   t17295 = t110 * t1258;
4410   t17299 = t462 * t1274;
4411   t17302 = t462 * t1290;
4412   t17307 = 0.25502554838335097930e1 * t17249 * t4166 - 0.39188952702389825468e0 * t7628 * t4100 + 0.33758233860356468337e1 * t17238 * t11749 - 0.45514919671073415977e1 * t17249 * t4169 + 0.11252744620118822779e1 * t10009 * t17283 + 0.14533144731775861995e0 * t10809 * t11745 + 0.75858199451789026627e0 * t880 * t12809 - 0.10979019874935515226e0 * t3904 * t2557 - 0.58783429053584738203e0 * t17292 * t2461 + 0.12751277419167548965e1 * t8934 * t17295 * t256 + 0.72665723658879309975e-1 * t2011 * t17299 - 0.97972381755974563669e-1 * t627 * t17302 - 0.10979019874935515226e0 * t880 * t11817;
4413   t17310 = t2460 * t1454;
4414   t17332 = t1943 * t1090 * t1306;
4415   t17340 = -0.85008516127783659764e0 * t880 * t12438 + 0.19594476351194912734e0 * t2459 * t17310 - 0.56263723100594113893e0 * t2499 * t12806 - 0.11756685810716947640e1 * t8838 * t1258 * t3956 + 0.75858199451789026628e0 * t1084 * t10080 + 0.17485326916752292327e0 * t3074 * t15353 + 0.67692822862798455802e0 * t1084 * t10085 - 0.85008516127783659765e0 * t8770 * t5407 - 0.85008516127783659765e0 * t3053 * t15073 - 0.85008516127783659765e0 * t3053 * t3947 * t904 - 0.54895099374677576130e-1 * t627 * t17332 - 0.54895099374677576130e-1 * t1081 * t1308 - 0.25502554838335097930e1 * t12374 * t366 * t3956;
4416   t17351 = t1854 * t16452;
4417   t17374 = 0.45165298839047841173e-1 * t8695 * t1258 * t3956 - 0.4936538891835801600e1 * t251 * t17019 - 0.25306658097095253694e-1 * t5266 * t265 + 0.14983660725163427627e0 * t633 * t17351 + 0.18968792869915364414e1 * t4026 * t4027 * t10160 - 0.32672968537417605163e1 * t4031 * t16870 + 0.65874119249613091356e0 * t11886 * t3519 - 0.12751277419167548965e1 * t8997 * t1258 * t111 + 0.21252129031945914941e0 * t3431 * t3040 + 0.31525238188956314656e0 * t4068 * t3343 - 0.48997150734706182895e0 * t11889 * t3348 + 0.84395584650891170840e0 * t4068 * t3442 + 0.26741638969413672554e0 * t2924 * t3380;
4418   t17382 = t5269 * t99;
4419   t17406 = -0.42504258063891829882e0 * t3050 * t3395 + 0.461000314880e0 * t251 * t16988 - 0.734005159174078464e0 * t106 * t9212 * t1293 - 0.119078225334763520e0 * t17382 * t635 - 0.29967321450326855254e0 * t3428 * t2921 + 0.69074723123554292755e-1 * t1081 * t1295 - 0.238156450669527040e0 * t649 * t12414 * t886 + 0.5532003778560e1 * t3031 * t869 * t366 * t863 + 0.19594476351194912734e0 * t3955 * t10251 + 0.14983660725163427627e0 * t1087 * t10056 - 0.10979019874935515226e0 * t877 * t1480 + 0.238156450669527040e0 * t1074 * t15104 + 0.20312390406477209506e2 * t12140 * t16879;
4420   t17434 = 0.84395584650891170840e0 * t8047 * t17136 + 0.39207562244901126197e2 * t12515 * t16599 - 0.65345937074835210326e1 * t4031 * t17139 + 0.37929099725894513314e0 * t1084 * t10847 + 0.56263723100594113894e0 * t9300 * t15412 + 0.72665723658879309976e-1 * t3043 * t10307 - 0.56263723100594113894e0 * t3043 * t10790 - 0.12968797032847508210e0 * t3074 * t15370 + 0.87446194859244818739e0 * t9116 * t10425 - 0.15062248783813849042e1 * t3043 * t10429 - 0.75858199451789026628e0 * t3053 * t15378 - 0.97972381755974563671e-1 * t1084 * t10194 - 0.85008516127783659766e0 * t12523 * t3948;
4421   t17450 = t17087 * t103;
4422   t17451 = t2012 * t17450;
4423   t17454 = t4020 * t16421;
4424   t17461 = t1970 * t17185;
4425   t17464 = t1970 * t17450;
4426   t17467 = -0.42504258063891829883e0 * t3053 * t15330 - 0.56263723100594113894e0 * t7698 * t3978 - 0.56263723100594113894e0 * t2499 * t12697 - 0.56263723100594113894e0 * t2499 * t12701 + 0.75858199451789026628e0 * t2504 * t3966 + 0.75858199451789026628e0 * t880 * t11656 - 0.61023519165317445059e0 * t640 * t1094 * t15020 + 0.37929099725894513314e0 * t627 * t17451 - 0.22757459835536707989e1 * t627 * t17454 - 0.54895099374677576130e-1 * t3431 * t3056 + 0.1645512963945267200e1 * t251 * t16942 - 0.85008516127783659766e0 * t627 * t17461 - 0.42504258063891829883e0 * t627 * t17464;
4427   t17471 = t4025 * t4027 * t1272;
4428   t17474 = t2867 * t1272;
4429   t17475 = t4025 * t17474;
4430   t17493 = t628 * t1090 * t863;
4431   t17502 = 0.87446194859244818738e0 * t6881 * t17471 - 0.15062248783813849042e1 * t2011 * t17475 + 0.10979019874935515226e0 * t1084 * t10191 + 0.12751277419167548965e1 * t1084 * t10899 - 0.85008516127783659764e0 * t1084 * t10635 - 0.19594476351194912734e0 * t3074 * t15431 + 0.16879116930178234168e1 * t3043 * t10786 - 0.22757459835536707989e1 * t1084 * t10197 + 0.12751277419167548965e1 * t3410 * t3933 - 0.85008516127783659764e0 * t2437 * t17493 + 0.10979019874935515226e0 * t3434 * t3060 + 0.85008516127783659764e0 * t3434 * t3064 - 0.58783429053584738202e0 * t10893 * t3942;
4432   t17529 = 0.56263723100594113893e0 * t10405 * t3068 - 0.75858199451789026627e0 * t3434 * t3071 + 0.19594476351194912734e0 * t3952 * t10183 - 0.10979019874935515226e0 * t3050 * t3358 - 0.10979019874935515226e0 * t1084 * t10303 - 0.10979019874935515226e0 * t1084 * t10187 + 0.85008516127783659764e0 * t3053 * t15418 - 0.10979019874935515226e0 * t3904 * t2452 - 0.85008516127783659764e0 * t3904 * t2455 + 0.19594476351194912734e0 * t11640 * t3461 - 0.56263723100594113893e0 * t12504 * t2443 + 0.75858199451789026627e0 * t3904 * t2448 - 0.42504258063891829882e0 * t3053 * t15525;
4433   t17542 = t4020 * t17474;
4434   t17559 = -0.54895099374677576129e-1 * t1084 * t10800 - 0.42504258063891829882e0 * t1084 * t10796 + 0.97972381755974563669e-1 * t3074 * t15485 - 0.28131861550297056947e0 * t3043 * t10844 - 0.97994301469412365794e0 * t8214 * t4027 * t16405 + 0.16879116930178234169e1 * t2011 * t17542 - 0.85008516127783659764e0 * t12523 * t3362 + 0.19594476351194912734e0 * t8055 * t17493 - 0.25306658097095253694e-1 * t3410 * t3060 - 0.19594476351194912734e0 * t3410 * t3064 + 0.45165298839047841173e-1 * t10834 * t3942 - 0.12968797032847508210e0 * t10286 * t3068 + 0.17485326916752292327e0 * t3410 * t3071;
4435   t17566 = t634 * t5394;
4436   t17597 = -0.39668333314116486558e0 * t8090 * t2867 * t5320 * t263 + 0.29967321450326855254e0 * t2489 * t3892 - 0.119078225334763520e0 * t633 * t17566 + 0.75858199451789026628e0 * t880 * t11661 + 0.19594476351194912734e0 * t11805 * t3461 + 0.19594476351194912734e0 * t11809 * t3461 + 0.822756481972633600e0 * t251 * t16966 + 0.822756481972633600e0 * t251 * t16979 - 0.714469352008581120e0 * t3031 * t634 * t1258 * t263 + 0.476312901339054080e0 * t1074 * t634 * t366 * t931 - 0.11064007557120e2 * t9173 * t869 * t1258 * t242 - 0.9873077783671603200e1 * t4044 * t16909 + 0.238156450669527040e0 * t2510 * t17088 + 0.2766001889280e1 * t4012 * t16873;
4437   t17603 = my_piecewise3(t96, 0, t17559 + t17406 + t17101 + t17597 + t17272 + t17241 + t17068 + t17434 + t17502 + t17040 + t17165 + t17131 + t16711 + t17200 + t17340 + t16776 + t17307 + t16850 + t17374 + t16811 + t16888 + t16425 + t16675 + t17529 + t16739 + t16640 + t16597 + t17467 + t16567 + t16530 + t16498 + t16458);
4438   t17604 = my_piecewise3(t95, 0, t17603);
4439   t17606 = -t1069 * t1312 - t16368 * t113 - t1254 * t1139 - 0.2e1 * t1423 * t937 - 0.2e1 * t863 * t1484 - t94 * t17604 - t242 * t5455 - t5245 * t269 - t3323 * t467 - t448 * t3569 - 0.2e1 * t366 * t4193 - 0.2e1 * t3864 * t385;
4440   t17610 = t469 * t1318;
4441   t17632 = 0.5e1 / 0.9e1 * t1173 * t5528 + 0.10e2 / 0.9e1 * t4275 * t1521 - t481 * t3669 + t3622 * t490 + 0.20e2 / 0.9e1 * t11044 * t4760 - 0.10e2 / 0.9e1 * t4262 * t4272 - 0.5e1 / 0.9e1 * t16091 * t1170 + 0.500e3 / 0.81e2 * t975 * t3195 * t1318 + 0.5e1 / 0.9e1 * t483 * t484 * t17606 + 0.10000e5 / 0.729e3 * t8260 * t17610 * t1170 - 0.50e2 / 0.81e2 * t9422 * t5508 + 0.200e3 / 0.81e2 * t972 * t4291 - 0.10e2 / 0.9e1 * t3139 * t3639 * t18 + 0.1000e4 / 0.81e2 * t975 * t1196 * t391 * t943 + params->c1 * t17606 * t140 + 0.100e3 / 0.81e2 * t293 * t1176 * t4195 * t391;
4442   t17655 = (t16080 + t17632) * t144 + t5531 * t299 * t144 + 0.2e1 * t4303 * t410 * t144 + 0.2e1 * t1524 * t983 * t144 + 0.2e1 * t5533 * t300 + t1184 * t1349 * t144 + t488 * t3646 * t144 + t5536 * t300 + t1184 * t1351 * t144 + 0.2e1 * t1526 * t984 + t5538 * t300;
4443   t17664 = t4797 * t3571;
4444   t17667 = t3639 * t11080;
4445   t17671 = t4267 * t745 * t943;
4446   t17687 = 0.50e2 / 0.27e2 * t9469 * t1355 + 0.20e2 / 0.9e1 * t4325 * t994 + 0.1000e4 / 0.81e2 * t13007 * t3656 + 0.25e2 / 0.81e2 * t9500 * t1355 + 0.2e1 * t743 * t17664 + 0.5e1 / 0.9e1 * t3202 * t17667 + 0.50e2 / 0.81e2 * t3202 * t17671 + 0.100e3 / 0.27e2 * t3187 * t17671 + 0.2000e4 / 0.81e2 * t13012 * t3656 + 0.1000e4 / 0.27e2 * t13015 * t3656 + t301 * t294 * t17606 * t146 + 0.50e2 / 0.27e2 * t9485 * t1355 + 0.100e3 / 0.27e2 * t12995 * t4315;
4447   t17697 = t301 * t730 * t5457;
4448   t17701 = t754 * t756 * t5457;
4449   t17705 = t1141 * t146;
4450   t17706 = t17705 * t1314;
4451   t17720 = 0.100e3 / 0.27e2 * t12999 * t4315 + 0.100e3 / 0.27e2 * t3179 * t17671 + 0.20e2 / 0.9e1 * t12956 * t413 + 0.10e2 / 0.9e1 * t4332 * t994 + 0.10e2 / 0.9e1 * t17697 * t305 + 0.5e1 / 0.9e1 * t17701 * t305 + t757 * t17664 + 0.2e1 * t743 * t17706 + 0.50e2 / 0.81e2 * t12988 * t4315 + t757 * t17706 + 0.10e2 / 0.9e1 * t12984 * t413 + 0.250e3 / 0.243e3 * t12980 * t3656 + 0.10e2 / 0.3e1 * t3179 * t17667 + 0.10e2 / 0.3e1 * t3187 * t17667;
4452   t17722 = my_piecewise3(t138, t17655, t17687 + t17720);
4453   t17734 = -0.4e1 * t179 * t3752 * t416 - 0.2e1 * t179 * t962 * t1537 - 0.2e1 * t179 * t1042 * t1364 - 0.24e2 * t2748 * t4237 * t3734 - 0.6e1 * t1723 * t5495 * t287 + 0.2e1 * t179 * t284 * t5484 * t149 - t179 * t3606 * t493 - 0.4e1 * t179 * t1499 * t1002 - 0.4e1 * t179 * t1398 * t1002 - 0.48e2 * t9660 * t1038 * t1213 * t287 + 0.2e1 * t179 * t1329 * t1156 * t149 - t137 * t17722 + 0.12e2 * t2748 * t1038 * t1332 * t287 + 0.24e2 * t2748 * t3763 * t3734 - 0.4e1 * t179 * t4230 * t416;
4454   t17739 = t1498 * t416;
4455   t17762 = t5484 * t149;
4456   t17779 = -0.4e1 * t2752 * t5177 + 0.1174e1 * t17722 + 0.8e1 * t1037 * t17739 * t287 + 0.2e1 * t517 * t5498 * t287 + 0.2e1 * t517 * t1213 * t1201 - 0.8e1 * t1037 * t11238 * t401 - 0.4e1 * t179 * t3756 * t416 + 0.8e1 * t1037 * t13160 * t401 - 0.8e1 * t3749 * t3746 - t179 * t1332 * t1201 - 0.4e1 * t1037 * t17762 * t287 + 0.8e1 * t1037 * t4237 * t962 + 0.4e1 * t517 * t1506 * t962 + 0.4e1 * t179 * t959 * t1498 * t149 + 0.12e2 * t2748 * t2755 * t1213;
4457   t17798 = t3655 * t948;
4458   t17801 = t470 * t391;
4459   t17804 = t709 * t5457;
4460   t17809 = t2060 * t5478;
4461   t17814 = t125 * t1314;
4462   t17815 = t470 * t17814;
4463   t17822 = t18 * t1323;
4464   t17825 = t5458 * t123;
4465   t17828 = -t709 * t16068 * t127 / 0.100e3 - t1142 * t1318 * t711 / 0.108e3 + 0.25e2 / 0.243e3 * t1153 * t17798 - t17801 * t3597 / 0.54e2 - t17804 * t1147 / 0.180e3 + t13050 * t1490 / 0.30e2 - t17809 * t1147 / 0.180e3 + t4213 * t3597 / 0.27e2 + t17815 * t1147 / 0.30e2 - 0.5e1 / 0.486e3 * t9548 * t17798 + t9537 * t5470 / 0.54e2 - t4204 * t17822 / 0.60e2 + t17825 * t1147 / 0.60e2;
4466   t17866 = -t4219 * t4209 / 0.90e2 + t1487 * t4212 * t956 / 0.27e2 + t4199 * t4209 / 0.30e2 - t1487 * t275 * t4206 / 0.54e2 - t2060 * t5521 * t956 / 0.162e3 - t280 * t17606 * t127 / 0.100e3 + 0.3e1 / 0.100e3 * t470 * t123 * t3571 * t127 - 0.25e2 / 0.162e3 * t5463 * t9581 * t948 - t4226 * t3597 / 0.162e3 - t9577 * t5470 / 0.324e3 + t50 * t17606 * t127 / 0.100e3 - t709 * t16074 * t127 / 0.100e3 + 0.3e1 / 0.100e3 * t1142 * t5467 - t13061 * t1490 / 0.90e2;
4467   t17872 = t475 * t1364;
4468   t17884 = t517 * t1329;
4469   t17904 = -0.2e1 * t179 * t401 * t4342 - 0.4e1 * t179 * t5184 * t308 + 0.8e1 * t1037 * t13151 * t401 + 0.4e1 * t517 * t5500 * t287 + 0.2e1 * t179 * t130 * (t17828 + t17866) * t149 + 0.4e1 * t1037 * t17872 * t287 + 0.8e1 * t3749 * t3743 + 0.2e1 * t179 * t3603 * t475 * t149 + 0.12e2 * t9634 * t5166 - 0.4e1 * t17884 * t1039 - 0.2e1 * t179 * t1157 * t1364 - 0.2e1 * t179 * t5180 * t308 - 0.8e1 * t1037 * t3763 * t962 - 0.4e1 * t1037 * t2755 * t1332 - 0.8e1 * t2752 * t5171 - 0.4e1 * t179 * t3767 * t416;
4470   t17920 = t424 * t5567 * t777;
4471   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4472     v4rhosigma2lapl[0] = -t794 * t5564 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t175 * (t16000 + t17734 + t17779 + t17904) * t167 - 0.24739500000000000000e1 * t321 * t322 * t5562 * t330 + 0.18554625000000000000e1 * t424 * t7 * t4346 * t430 + 0.22265550000000000000e2 * t17920 * t1024 - 0.30203104535893596324e2 * t5 * t5567 * t1028 * t1032 - 0.41747906250000000000e1 * t13261 * t1379 - 0.83495812500000000000e2 * t13269 * t3710 + 0.11627420070069735493e0 * t13273 * t3716 - 0.46386562500000000000e0 * t4356 * t1384 + 0.22652328401920197244e2 * t5576 * t1032 + 0.56630821004800493110e1 * t5 * t4355 * t1388 * t1392 - 0.22712451511732312500e2 * t1546 * t3729;
4473 
4474   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4475     v4rhosigma2tau[0] = 0.0e0;
4476 
4477   t18000 = 0.5e1 / 0.9e1 * t1173 * t5948 + 0.2e1 * t1509 * t1193 + 0.2e1 * t481 * t4328 - 0.100e3 / 0.27e2 * t972 * t4769 + 0.20e2 / 0.9e1 * t3139 * t4290 * t18 + 0.2e1 * t1167 * t1531 - 0.50e2 / 0.27e2 * t293 * t4767 * t1636 * t943 - 0.10e2 / 0.9e1 * t4275 * t1661 - 0.20e2 / 0.9e1 * t483 * t1660 * t1141 * t1486 + 0.50e2 / 0.81e2 * t293 * t1176 * t1632 * t943 + 0.50e2 / 0.81e2 * t293 * t1176 * t4701 * t391 + 0.100e3 / 0.81e2 * t972 * t4779 + 0.20e2 / 0.9e1 * t3139 * t4286 * t18 - 0.20e2 / 0.9e1 * t1514 * t4773 - 0.2000e4 / 0.81e2 * t975 * t4801 * t4282 + 0.500e3 / 0.81e2 * t975 * t4812 * t4282 + 0.5e1 / 0.9e1 * t4275 * t1664;
4478   t18031 = t3819 * t64 * t1557 * t860 / 0.972e3 + t16277 * t4449 / 0.972e3 + 0.3e1 * t13365 * t1408 + 0.3e1 * t4405 * t3838 + 0.3e1 * t13371 * t1408 - t3263 * t4399 * t860 / 0.2916e4 + 0.3e1 * t13449 * t3838 - 0.2e1 * t1051 * t3776 + 0.3e1 * t7447 * t1564 - 0.2e1 * t2811 * t1412 - 0.2e1 * t1051 * t3774 - 0.5e1 / 0.1458e4 * t5224;
4479   t18064 = -t2239 * t1567 - 0.20e2 / 0.27e2 * t5614 * t3824 + 0.10e2 / 0.9e1 * t13482 * t3860 - 0.50e2 / 0.9e1 * t13485 * t3860 - 0.15e2 * t2787 * t4418 * t363 * t227 - 0.15e2 * t4417 * t4431 * t363 * t1066 - 0.15e2 * t2787 * t4418 * t358 * t239 - 0.5e1 / 0.729e3 * t5203 + t3263 * t13361 * t835 / 0.1944e4 + 0.40e2 / 0.9e1 * t13489 * t841 * t17 * t182 - 0.15e2 / 0.2e1 * t4417 * t4418 * t860 + 0.6e1 * t2815 * t5625;
4480   t18079 = t7450 * t85;
4481   t18084 = t2791 * t358;
4482   t18093 = 0.3e1 / 0.2e1 * t1792 * t5639 + 0.5e1 / 0.4374e4 * t11540 * t5656 + 0.5e1 / 0.4374e4 * t11543 * t5656 - 0.15e2 / 0.2e1 * t13517 * t5622 + 0.6e1 * t3790 * t4422 + 0.6e1 * t2241 * t85 * t4432 - 0.15e2 / 0.2e1 * t18079 * t4419 + 0.3e1 * t4405 * t3841 + 0.3e1 * t18084 * t1057 + 0.6e1 * t2818 * t5625 + 0.6e1 * t1055 * t4418 * t845 - 0.13e2 / 0.3888e4 * t5207;
4483   t18106 = t4881 * t224;
4484   t18122 = 0.5e1 / 0.2187e4 * t5210 - 0.13e2 / 0.3888e4 * t5214 + 0.5e1 / 0.2187e4 * t5217 + 0.3e1 / 0.2e1 * t2241 * t4436 - 0.2e1 * t830 * t4439 - 0.15e2 / 0.4e1 * t1800 * t1563 * t88 * t363 * t239 + 0.5e1 / 0.1458e4 * t18106 * t16126 - 0.20e2 / 0.6561e4 * t16180 * t4456 - 0.13e2 / 0.3888e4 * t5617 * t3827 - 0.10e2 / 0.27e2 * t4443 * t800 - t16166 * t1569 / 0.1458e4 - t16169 * t1569 / 0.1458e4 - 0.5e1 / 0.243e3 * t5628 * t8552 * t1220;
4485   t18125 = t573 * t1056;
4486   t18128 = t225 * t2821;
4487   t18144 = t2811 * t226;
4488   t18147 = t1051 * t838;
4489   t18156 = t18125 * t1420 / 0.1296e4 + t18128 * t1420 / 0.1296e4 + 0.5e1 / 0.36e2 * t13458 * t334 - t16152 * t1569 / 0.1458e4 - t16155 * t1569 / 0.1458e4 + 0.10e2 / 0.2187e4 * t11425 * t13347 * t16172 + t1420 * t16146 / 0.1296e4 + t1420 * t16149 / 0.1296e4 + t18144 * t1420 / 0.1296e4 + t18147 * t1420 / 0.1296e4 + 0.25e2 / 0.12e2 * t13485 * t3853 - 0.5e1 / 0.3e1 * t13489 * t18 * t333 * t227;
4490   t18162 = t1800 * t595 * t445;
4491   t18174 = 0.1e1 / t21 / t198;
4492   t18199 = -0.5e1 / 0.3e1 * t13495 * t3816 - 0.125e3 / 0.81e2 * t13398 * t826 + 0.5e1 / 0.864e3 * t18162 * t3821 - t8603 * t64 * t76 * t227 / 0.216e3 + 0.5e1 / 0.9e1 * t578 * t4442 * t363 * t183 + 0.25e2 / 0.39366e5 * t11475 * t18174 * t13 * t16220 - 0.5e1 / 0.1944e4 * t16243 * t853 * t69 * t363 * t239 - 0.20e2 / 0.27e2 * t1051 * t3848 * t183 - 0.5e1 / 0.12e2 * t13482 * t3853 + 0.25e2 / 0.81e2 * t13391 * t826 + 0.20e2 / 0.9e1 * t2241 * t4426 * t183 + 0.20e2 / 0.9e1 * t5628 * t5629 * t818 + 0.13e2 / 0.1296e4 * t5633 * t5236;
4493   t18212 = t225 * t445;
4494   t18219 = t1051 * t84;
4495   t18225 = t578 * t1056;
4496   t18228 = t578 * t4442;
4497   t18236 = 0.3e1 / 0.2e1 * t578 * t1567 * t860 - 0.5e1 / 0.2916e4 * t1055 * t3784 * t5655 * t239 + 0.12e2 * t1055 * t4431 * t358 * t1066 + 0.5e1 / 0.1458e4 * t18212 * t3785 - 0.20e2 / 0.6561e4 * t16129 * t4456 - 0.15e2 / 0.2e1 * t13438 * t3780 + 0.5e1 / 0.1458e4 * t18219 * t3785 + 0.105e3 / 0.4e1 * t13453 * t4418 * t835 - t18225 * t3821 / 0.864e3 - 0.5e1 / 0.24e2 * t18228 * t3853 + 0.5e1 / 0.18e2 * t225 * t11507 * t3816 - t1420 * t16266 / 0.864e3;
4498   t18245 = t2791 * t226;
4499   t18259 = t1792 * t595;
4500   t18265 = t830 * t4442;
4501   t18269 = 0.5e1 / 0.18e2 * t2811 * t585 * t1416 + 0.5e1 / 0.18e2 * t1051 * t2263 * t1416 + 0.5e1 / 0.18e2 * t5614 * t3816 - t18245 * t3821 / 0.864e3 + 0.25e2 / 0.162e3 * t13461 * t826 + t16269 * t4449 / 0.972e3 + t11289 * t5650 / 0.972e3 + t11292 * t5650 / 0.972e3 - 0.5e1 / 0.6e1 * t1792 * t1829 * t5630 - t18259 * t5635 / 0.432e3 - t5633 * t16261 * t5634 / 0.432e3 - 0.10e2 / 0.27e2 * t18265 * t183 + 0.5e1 / 0.4374e4 * t5227;
4502   t18272 = t18031 + t18064 + t18093 + t18122 + t18156 + t18199 + t18236 + t18269;
4503   t18288 = t614 * t5659;
4504   t18289 = t18288 * t99;
4505   t18303 = t5667 * t99;
4506   t18306 = t110 * t1423;
4507   t18307 = t18306 * t256;
4508   t18310 = t623 * t5659;
4509   t18319 = t1943 * t4056 * t461;
4510   t18324 = -0.922000629760e0 * t18289 * t870 + 0.21252129031945914941e0 * t13755 * t366 * t111 - 0.10979019874935515226e0 * t1084 * t12046 - 0.10979019874935515226e0 * t3904 * t3056 - 0.922000629760e0 * t14246 * t1427 + 0.2766001889280e1 * t4476 * t3456 - 0.119078225334763520e0 * t18303 * t635 - 0.85008516127783659766e0 * t3053 * t18307 + 0.21252129031945914941e0 * t18310 * t242 * t111 - 0.10979019874935515226e0 * t1433 * t1135 - 0.10979019874935515226e0 * t3982 * t463 - 0.10979019874935515226e0 * t627 * t18319 - 0.54895099374677576130e-1 * t4637 * t2557;
4511   t18325 = t4496 * t3951;
4512   t18336 = t869 * t3864;
4513   t18339 = t2962 * t4056;
4514   t18343 = t634 * t1624 * t242;
4515   t18353 = t634 * t5853;
4516   t18358 = 0.97972381755974563669e-1 * t18325 * t2461 + 0.19594476351194912734e0 * t8934 * t18307 - 0.25306658097095253694e-1 * t4640 * t2557 + 0.29967321450326855254e0 * t1087 * t12159 + 0.29967321450326855254e0 * t4183 * t2921 + 0.42504258063891829882e0 * t3031 * t18336 + 0.1645512963945267200e1 * t251 * t18339 + 0.238156450669527040e0 * t868 * t18343 - 0.25306658097095253694e-1 * t4473 * t381 - 0.11756685810716947640e1 * t13597 * t366 * t3956 - 0.238156450669527040e0 * t4183 * t2992 - 0.119078225334763520e0 * t633 * t18353 - 0.922000629760e0 * t4532 * t3456;
4517   t18360 = t1468 * t1069;
4518   t18375 = t108 * t3864;
4519   t18380 = t1591 * t2523;
4520   t18386 = t4565 * t2523;
4521   t18388 = 0.21416640e2 * t1080 * t18360 + 0.5684735615810048000e1 * t13760 * t4145 + 0.11369471231620096000e2 * t2855 * t11655 + 0.3185225478400e1 * t13755 * t1468 + 0.3185225478400e1 * t4496 * t3482 - 0.68216827389720576000e2 * t13752 * t2447 + 0.11369471231620096000e2 * t2855 * t12437 + 0.6370450956800e1 * t1080 * t18375 + 0.5684735615810048000e1 * t4472 * t3482 + 0.10708320e2 * t18380 + 0.3185225478400e1 * t18310 * t921 + 0.6370450956800e1 * t2916 * t5830 - 0.3569440e1 * t18386;
4522   t18403 = t921 * t1423;
4523   t18406 = t245 * t18272;
4524   t18412 = t1094 * t12801;
4525   t18414 = t4574 * t2523;
4526   t18416 = t655 * t5688;
4527   t18417 = t18416 * t629;
4528   t18419 = -0.19111352870400e2 * t4482 * t3482 - 0.3569440e1 * t13741 * t1468 + 0.5684735615810048000e1 * t13718 * t2447 + 0.114668117222400e3 * t4472 * t4145 + 0.114668117222400e3 * t4574 * t2447 + 0.10145661348248508867e2 * t13786 * t4145 + 0.10145661348248508867e2 * t13822 * t2447 - 0.38222705740800e2 * t2876 * t18403 + 0.1784720e1 * t18406 * t108 - 0.38222705740800e2 * t2876 * t18360 + 0.6370450956800e1 * t18339 + 0.6370450956800e1 * t18412 + 0.5684735615810048000e1 * t18414 - 0.3569440e1 * t18417;
4529   t18421 = t642 * t5688;
4530   t18422 = t18421 * t629;
4531   t18424 = t13713 * t886;
4532   t18434 = t1101 * t12801;
4533   t18436 = t4562 * t2523;
4534   t18438 = t13726 * t886;
4535   t18440 = t2950 * t4056;
4536   t18448 = 0.3185225478400e1 * t18422 + 0.3185225478400e1 * t18424 - 0.7138880e1 * t1073 * t18375 + 0.10708320e2 * t1583 * t3482 - 0.7138880e1 * t2932 * t5830 - 0.19111352870400e2 * t13731 * t2447 - 0.7138880e1 * t18434 - 0.19111352870400e2 * t18436 - 0.3569440e1 * t18438 - 0.7138880e1 * t18440 - 0.3569440e1 * t4531 * t3482 - 0.3569440e1 * t18288 * t921 - 0.19111352870400e2 * t13723 * t4145;
4537   t18451 = -t253 * t18272 * t103;
4538   t18457 = t4569 * t2523;
4539   t18479 = 0.1784720e1 * t18451 - 0.38222705740800e2 * t2953 * t12437 - 0.42833280e2 * t4482 * t4145 + 0.3185225478400e1 * t18457 + 0.21416640e2 * t1080 * t18403 - 0.38222705740800e2 * t2953 * t11655 + 0.10708320e2 * t4569 * t2447 - 0.42833280e2 * t4562 * t2447 + 0.21416640e2 * t1094 * t11655 + 0.11369471231620096000e2 * t2946 * t18360 + 0.11369471231620096000e2 * t2946 * t18403 + 0.10708320e2 * t4496 * t4145 - 0.68216827389720576000e2 * t13597 * t4145 + 0.21416640e2 * t1094 * t12437;
4540   t18493 = t8007 * t1592;
4541   t18511 = -0.258304e0 * t106 * t259 * (t18388 + t18419 + t18448 + t18479) + 0.13814944624710858551e0 * t3074 * t3892 - 0.119078225334763520e0 * t14382 * t910 + 0.72665723658879309976e-1 * t2499 * t13625 - 0.56263723100594113894e0 * t2499 * t13629 - 0.12968797032847508210e0 * t2459 * t18493 + 0.87446194859244818739e0 * t7859 * t13634 - 0.67675321900558938528e0 * t10277 * t1090 * t4125 - 0.75858199451789026629e0 * t4493 * t2448 - 0.42504258063891829882e0 * t13965 * t3362 - 0.85008516127783659764e0 * t1084 * t12438 + 0.19594476351194912734e0 * t3074 * t17310 - 0.56263723100594113893e0 * t3043 * t12806;
4542   t18515 = t2012 * t4619 * t242;
4543   t18519 = t634 * t1423 * t263;
4544   t18523 = t869 * t1423 * t242;
4545   t18535 = t5853 * t253;
4546   t18540 = t2012 * t6116 * t371;
4547   t18549 = 0.75858199451789026627e0 * t1084 * t12809 + 0.56263723100594113894e0 * t8000 * t18515 + 0.476312901339054080e0 * t1074 * t18519 + 0.5532003778560e1 * t3031 * t18523 + 0.18968792869915364414e1 * t1888 * t4574 * t15542 + 0.822756481972633600e0 * t251 * t18424 + 0.461000314880e0 * t18406 * t111 + 0.29967321450326855254e0 * t2880 * t3892 - 0.119078225334763520e0 * t649 * t18535 * t629 - 0.28131861550297056947e0 * t2011 * t18540 + 0.10979019874935515226e0 * t4493 * t2557 - 0.10979019874935515226e0 * t3050 * t4097 - 0.10979019874935515226e0 * t1084 * t12190;
4548   t18568 = t5688 * t103;
4549   t18569 = t628 * t18568;
4550   t18580 = t4619 * t3376;
4551   t18583 = -0.10979019874935515226e0 * t1084 * t12144 - 0.85008516127783659764e0 * t3050 * t4100 - 0.85008516127783659764e0 * t1084 * t12151 - 0.85008516127783659764e0 * t1084 * t12154 - 0.85008516127783659764e0 * t3053 * t17493 - 0.42504258063891829883e0 * t2504 * t4612 + 0.21252129031945914941e0 * t2504 * t4616 + 0.19594476351194912734e0 * t3955 * t13686 + 0.21252129031945914941e0 * t627 * t18569 + 0.21252129031945914941e0 * t4496 * t863 * t111 - 0.119078225334763520e0 * t883 * t14319 - 0.48997150734706182898e0 * t8214 * t13632 * t3376 + 0.84395584650891170843e0 * t8047 * t18580;
4552   t18584 = t4619 * t4016;
4553   t18587 = t4619 * t2446;
4554   t18590 = t2867 * t11654;
4555   t18597 = t13632 * t2446;
4556   t18618 = t1943 * t1090 * t1478;
4557   t18621 = -0.94575714566868943973e0 * t8094 * t18584 - 0.21968466899514280222e2 * t4031 * t18587 + 0.73228222998380934072e1 * t4021 * t18590 - 0.92817332546461565657e1 * t12135 * t1590 * t6768 * t2446 + 0.20312390406477209506e2 * t12140 * t18597 + 0.84395584650891170840e0 * t8047 * t18584 - 0.65345937074835210326e1 * t4031 * t18590 - 0.13606156761889987933e2 * t11683 * t18587 - 0.1428938704017162240e1 * t11878 * t462 * t4135 + 0.15762619094478157329e0 * t1878 * t1591 * t15125 - 0.12204703833063489012e1 * t640 * t2962 * t5767 + 0.75858199451789026627e0 * t1084 * t11661 - 0.10979019874935515226e0 * t627 * t18618;
4558   t18623 = t4608 * t379;
4559   t18624 = t2509 * t18623;
4560   t18627 = t4608 * t371;
4561   t18628 = t2012 * t18627;
4562   t18637 = t461 * t1478;
4563   t18648 = t629 * t366;
4564   t18660 = 0.10979019874935515226e0 * t627 * t18624 + 0.12751277419167548965e1 * t627 * t18628 + 0.19594476351194912734e0 * t11805 * t3942 + 0.19594476351194912734e0 * t11809 * t3942 + 0.14983660725163427627e0 * t883 * t13847 - 0.1468010318348156928e1 * t4124 * t18637 * t263 + 0.238156450669527040e0 * t4532 * t4129 + 0.11252744620118822779e1 * t12501 * t1094 * t645 * t366 * t254 - 0.15171639890357805325e1 * t11828 * t1094 * t18648 + 0.21958039749871030452e0 * t8858 * t16589 + 0.13814944624710858551e0 * t12624 * t11757 + 0.21958039749871030452e0 * t12027 * t11761 - 0.50613316194190507389e-1 * t8855 * t4097;
4565   t18673 = t13619 * t1277;
4566   t18676 = t4615 * t4016;
4567   t18679 = t4615 * t2446;
4568   t18682 = t6116 * t2446;
4569   t18694 = -0.1468010318348156928e1 * t4124 * t3891 * t1133 - 0.10979019874935515226e0 * t3031 * t18519 + 0.14983660725163427627e0 * t13920 * t914 + 0.42504258063891829882e0 * t11825 * t1091 + 0.29967321450326855254e0 * t3372 * t3039 * t3891 - 0.21252129031945914941e0 * t2531 * t18673 + 0.238156450669527040e0 * t2510 * t18676 + 0.2766001889280e1 * t4012 * t18679 + 0.36614111499190467036e1 * t4021 * t18682 - 0.4936538891835801600e1 * t4044 * t18679 + 0.15762619094478157329e0 * t2517 * t6116 * t4016 + 0.21252129031945914941e0 * t13864 * t887 - 0.238156450669527040e0 * t11622 * t1113;
4570   t18713 = t2859 * t5720;
4571   t18716 = t4608 * t2477;
4572   t18719 = t4608 * t3376;
4573   t18722 = t379 * t1105;
4574   t18723 = t1090 * t18722;
4575   t18729 = t1854 * t18637;
4576   t18732 = t11654 * t1595;
4577   t18735 = 0.76507664515005293790e1 * t5865 * t3956 + 0.42504258063891829882e0 * t3904 * t3040 + 0.42504258063891829882e0 * t3050 * t4057 - 0.10979019874935515226e0 * t3995 * t463 + 0.325024956416e0 * t106 * t4645 * t931 + 0.31525238188956314657e0 * t2517 * t2867 * t1478 * t254 - 0.42504258063891829883e0 * t2531 * t18713 - 0.29967321450326855254e0 * t7676 * t18716 - 0.714469352008581120e0 * t2531 * t18719 + 0.476312901339054080e0 * t2510 * t18723 + 0.14983660725163427627e0 * t1868 * t4683 * t2523 + 0.29967321450326855254e0 * t633 * t18729 - 0.42504258063891829883e0 * t2531 * t18732;
4578   t18736 = t2516 * t18623;
4579   t18741 = t1625 * t373;
4580   t18744 = t1612 * t373;
4581   t18767 = -0.97972381755974563669e-1 * t627 * t18736 + 0.69074723123554292755e-1 * t880 * t13948 - 0.54895099374677576130e-1 * t627 * t18741 + 0.69074723123554292755e-1 * t627 * t18744 - 0.54895099374677576130e-1 * t880 * t14420 + 0.1645512963945267200e1 * t251 * t18412 + 0.2766001889280e1 * t251 * t18380 - 0.54895099374677576130e-1 * t4497 * t381 + 0.36614111499190467036e1 * t640 * t4562 * t3342 + 0.32937059624806545678e0 * t13681 * t3519 + 0.476312901339054080e0 * t3999 * t3910 - 0.10979019874935515226e0 * t1081 * t1480 - 0.59934642900653710508e0 * t12418 * t1120 * t4128;
4582   t18771 = t4608 * t4016;
4583   t18774 = t4608 * t2446;
4584   t18777 = t1090 * t11654;
4585   t18799 = -0.59934642900653710508e0 * t12418 * t16495 - 0.714469352008581120e0 * t2531 * t18771 - 0.11064007557120e2 * t4044 * t18774 + 0.5532003778560e1 * t4012 * t18777 + 0.238156450669527040e0 * t4532 * t3519 - 0.1844001259520e1 * t1074 * t18336 - 0.29967321450326855254e0 * t4479 * t2478 - 0.50613316194190507389e-1 * t8855 * t3972 + 0.14533144731775861995e0 * t12032 * t12637 - 0.50613316194190507389e-1 * t12017 * t3056 + 0.65874119249613091356e0 * t11886 * t3910 + 0.13814944624710858551e0 * t3952 * t2921 + 0.37937585739830728829e1 * t4026 * t4027 * t11938;
4586   t18800 = t2867 * t11938;
4587   t18832 = -0.65345937074835210328e1 * t4031 * t18800 - 0.48997150734706182896e0 * t8214 * t13632 * t4016 + 0.37937585739830728828e1 * t4026 * t4027 * t11654 + 0.476312901339054080e0 * t1074 * t16483 + 0.31525238188956314658e0 * t2517 * t2867 * t18722 + 0.29967321450326855254e0 * t3372 * t1090 * t11958 + 0.476312901339054080e0 * t2510 * t18713 + 0.31525238188956314657e0 * t2517 * t5767 * t4626 + 0.476312901339054080e0 * t3015 * t5757 + 0.476312901339054080e0 * t1074 * t17192 - 0.10979019874935515226e0 * t3050 * t3972 - 0.10979019874935515226e0 * t1084 * t12714 - 0.10979019874935515226e0 * t1084 * t12717;
4588   t18843 = t5667 * t250;
4589   t18871 = -0.10979019874935515226e0 * t2504 * t4519 - 0.10979019874935515226e0 * t880 * t14177 + 0.476312901339054080e0 * t1074 * t634 * t1133 * t366 + 0.21252129031945914941e0 * t18843 * t630 + 0.650049912832e0 * t106 * t2906 * t1478 - 0.25502554838335097930e1 * t17133 * t13686 - 0.119078225334763520e0 * t649 * t4687 * t2523 - 0.61023519165317445059e0 * t640 * t4569 * t3342 - 0.61023519165317445059e0 * t640 * t13713 * t1442 - 0.734005159174078464e0 * t106 * t4527 * t931 + 0.29967321450326855254e0 * t3372 * t1090 * t11589 + 0.29967321450326855254e0 * t3372 * t1090 * t11729 - 0.50613316194190507389e-1 * t12658 * t463;
4590   t18879 = t4608 * t242;
4591   t18880 = t1970 * t18879;
4592   t18889 = t2460 * t1600;
4593   t18897 = t628 * t4615 * t242;
4594   t18904 = -0.19834166657058243280e0 * t8090 * t4619 * t2477 - 0.94575714566868943973e0 * t8094 * t18580 - 0.85008516127783659764e0 * t12523 * t3933 + 0.85008516127783659766e0 * t2437 * t18880 + 0.10979019874935515226e0 * t880 * t13577 + 0.12751277419167548965e1 * t880 * t13581 - 0.85008516127783659766e0 * t880 * t13585 - 0.19594476351194912734e0 * t2459 * t18889 + 0.16879116930178234168e1 * t2499 * t13589 - 0.22757459835536707989e1 * t880 * t14406 - 0.42504258063891829882e0 * t2437 * t18897 - 0.54895099374677576129e-1 * t880 * t13642 - 0.42504258063891829882e0 * t880 * t13645;
4595   t18906 = t1611 * t379;
4596   t18939 = 0.23916119461575365556e1 * t11578 * t18906 * t263 + 0.29967321450326855254e0 * t1087 * t12245 + 0.14683899485061986386e1 * t251 * t18414 + 0.822756481972633600e0 * t251 * t18457 - 0.922000629760e0 * t251 * t18386 - 0.922000629760e0 * t251 * t18438 - 0.238156450669527040e0 * t649 * t454 * t103 * t4179 - 0.32672968537417605163e1 * t640 * t4574 * t3342 + 0.650049912832e0 * t106 * t1120 * t4179 - 0.54895099374677576129e-1 * t4476 * t2474 + 0.97972381755974563669e-1 * t4472 * t863 * t111 - 0.54895099374677576129e-1 * t4637 * t2452 - 0.42504258063891829882e0 * t4637 * t2455;
4597   t18947 = t628 * t886 * t1069;
4598   t18952 = t2460 * t1605;
4599   t18959 = t2012 * t18879;
4600   t18966 = t2460 * t1608;
4601   t18971 = 0.97972381755974563669e-1 * t13970 * t3461 - 0.28131861550297056947e0 * t14024 * t2443 + 0.37929099725894513314e0 * t4637 * t2448 + 0.19594476351194912734e0 * t8934 * t18947 - 0.25306658097095253694e-1 * t4640 * t2452 + 0.97972381755974563669e-1 * t2459 * t18952 - 0.28131861550297056947e0 * t2499 * t13616 + 0.37929099725894513314e0 * t880 * t13621 - 0.75858199451789026628e0 * t2437 * t18959 - 0.97972381755974563671e-1 * t880 * t14403 + 0.75858199451789026628e0 * t880 * t14409 + 0.17485326916752292327e0 * t2459 * t18966 - 0.15062248783813849042e1 * t2499 * t14412;
4602   t18984 = t1854 * t1611 * t242;
4603   t18988 = t4025 * t13632 * t371;
4604   t18991 = t4619 * t371;
4605   t18992 = t4025 * t18991;
4606   t19004 = t2516 * t4619 * t379;
4607   t19007 = t4020 * t18991;
4608   t19012 = 0.67692822862798455802e0 * t880 * t14415 + 0.822756481972633600e0 * t251 * t18422 + 0.97972381755974563669e-1 * t13760 * t366 * t3956 - 0.29967321450326855254e0 * t868 * t18984 + 0.87446194859244818738e0 * t6881 * t18988 - 0.15062248783813849042e1 * t2011 * t18992 - 0.19594476351194912734e0 * t4640 * t2455 + 0.45165298839047841173e-1 * t13571 * t3461 - 0.12968797032847508210e0 * t13899 * t2443 + 0.17485326916752292327e0 * t4640 * t2448 + 0.72665723658879309980e-1 * t2011 * t19004 + 0.16879116930178234169e1 * t2011 * t19007 - 0.238156450669527040e0 * t1087 * t12631;
4609   t19016 = t454 * t1595 * t242;
4610   t19029 = t103 * t366;
4611   t19048 = -0.19594476351194912734e0 * t12027 * t12640 + 0.21958039749871030452e0 * t7763 * t19016 + 0.13814944624710858551e0 * t10866 * t14386 + 0.21958039749871030452e0 * t10018 * t14389 - 0.50613316194190507389e-1 * t7628 * t4519 + 0.14533144731775861995e0 * t10809 * t13938 - 0.19594476351194912734e0 * t10018 * t13942 + 0.25502554838335097929e1 * t12603 * t454 * t19029 * t242 + 0.21958039749871030452e0 * t8858 * t454 * t19029 * t263 + 0.17001703225556731953e1 * t11828 * t1101 * t18648 - 0.4936538891835801600e1 * t251 * t18436 - 0.10979019874935515226e0 * t3888 * t463 - 0.12751277419167548965e1 * t13723 * t366 * t3956;
4612   t19057 = t11659 * t1595;
4613   t19060 = t3964 * t4586;
4614   t19080 = 0.21252129031945914941e0 * t880 * t13696 + 0.37929099725894513314e0 * t2504 * t4609 + 0.45165298839047841173e-1 * t13786 * t366 * t3956 - 0.42504258063891829883e0 * t2531 * t19057 - 0.42504258063891829883e0 * t2531 * t19060 - 0.42504258063891829883e0 * t4493 * t2524 + 0.14983660725163427627e0 * t2489 * t4593 + 0.238156450669527040e0 * t4479 * t2474 + 0.14533144731775861995e0 * t12032 * t12484 + 0.32937059624806545679e0 * t5775 * t265 - 0.9873077783671603200e1 * t4044 * t18777 + 0.14983660725163427627e0 * t3372 * t4615 * t2477 + 0.238156450669527040e0 * t2510 * t18673;
4615   t19092 = t1452 * t263;
4616   t19093 = t1090 * t19092;
4617   t19096 = t1090 * t11938;
4618   t19103 = t250 * t1612;
4619   t19112 = 0.15762619094478157328e0 * t2517 * t6116 * t3376 - 0.37929099725894513314e0 * t7654 * t18771 - 0.17620679382074383663e2 * t11599 * t18774 + 0.29367798970123972772e1 * t4062 * t18777 + 0.26206649088979828343e1 * t11687 * t18774 + 0.476312901339054080e0 * t2510 * t19093 + 0.5532003778560e1 * t4012 * t19096 + 0.12751277419167548965e1 * t8078 * t18771 + 0.29619233351014809600e2 * t4062 * t18774 + 0.26741638969413672554e0 * t19103 * t907 + 0.26741638969413672554e0 * t7745 * t18716 + 0.12751277419167548965e1 * t8078 * t18719 - 0.42504258063891829882e0 * t2531 * t18723;
4620   t19123 = t11938 * t1595;
4621   t19135 = t1603 * t1893;
4622   t19143 = t450 * t251;
4623   t19146 = -0.37929099725894513314e0 * t7654 * t18719 - 0.42504258063891829883e0 * t2531 * t19093 - 0.9873077783671603200e1 * t4044 * t19096 + 0.29367798970123972772e1 * t4062 * t19096 - 0.42504258063891829883e0 * t2531 * t19123 + 0.14683899485061986386e1 * t4062 * t18679 + 0.29967321450326855254e0 * t3372 * t4056 * t2920 + 0.476312901339054080e0 * t2510 * t19123 - 0.21252129031945914941e0 * t2531 * t18676 + 0.18968792869915364414e1 * t4026 * t19135 * t2446 - 0.32672968537417605163e1 * t4031 * t18682 + 0.34970653833504584654e0 * t8855 * t3966 + 0.13538564572559691160e1 * t19143 * t4177;
4624   t19154 = t454 * t1595 * t379;
4625   t19157 = t1595 * t371;
4626   t19158 = t1101 * t19157;
4627   t19162 = t1094 * t6120 * t371;
4628   t19165 = t1094 * t19157;
4629   t19171 = t450 * t640;
4630   t19182 = 0.21958039749871030452e0 * t8858 * t16594 + 0.13814944624710858551e0 * t12624 * t12643 + 0.21958039749871030452e0 * t12027 * t12634 + 0.13814944624710858551e0 * t7591 * t19154 + 0.21958039749871030452e0 * t8060 * t19158 + 0.14533144731775861995e0 * t8067 * t19162 - 0.19594476351194912734e0 * t8060 * t19165 + 0.17489238971848963747e1 * t450 * t1888 * t11754 - 0.30124497567627698084e1 * t19171 * t11838 - 0.15171639890357805325e1 * t11828 * t17242 - 0.19594476351194912734e0 * t12027 * t11831 - 0.45514919671073415976e1 * t19143 * t4169 + 0.69074723123554292753e-1 * t4476 * t2478;
4631   t19187 = t1090 * t1452;
4632   t19188 = t1970 * t19187;
4633   t19191 = t4020 * t18627;
4634   t19195 = t1943 * t4615 * t379;
4635   t19204 = t4615 * t371;
4636   t19205 = t1970 * t19204;
4637   t19219 = -0.238156450669527040e0 * t649 * t3879 * t1595 - 0.85008516127783659766e0 * t627 * t19188 - 0.22757459835536707989e1 * t627 * t19191 - 0.54895099374677576130e-1 * t627 * t19195 + 0.75858199451789026627e0 * t3904 * t3071 - 0.85008516127783659764e0 * t3053 * t16443 - 0.10979019874935515226e0 * t1084 * t11817 - 0.42504258063891829883e0 * t627 * t19205 - 0.1844001259520e1 * t3015 * t5699 - 0.11756685810716947640e1 * t17252 * t3933 - 0.50613316194190507388e-1 * t12017 * t3060 + 0.238156450669527040e0 * t649 * t1599 * t3331 + 0.29967321450326855254e0 * t1087 * t11959;
4638   t19222 = t2012 * t19187;
4639   t19225 = t4025 * t18627;
4640   t19228 = t4482 * t3951;
4641   t19240 = t4472 * t3951;
4642   t19244 = t2012 * t2867 * t1452;
4643   t19254 = 0.42504258063891829882e0 * t9317 * t5699 + 0.75858199451789026629e0 * t627 * t19222 + 0.67692822862798455803e0 * t627 * t19225 - 0.58783429053584738203e0 * t19228 * t2461 - 0.42504258063891829883e0 * t13965 * t3948 + 0.12751277419167548965e1 * t4640 * t3948 - 0.25306658097095253694e-1 * t5865 * t265 - 0.67675321900558938528e0 * t450 * t106 * t11858 + 0.45165298839047841173e-1 * t19240 * t2461 - 0.56263723100594113896e0 * t2011 * t19244 + 0.29967321450326855254e0 * t2924 * t3919 - 0.29967321450326855254e0 * t19103 * t899 - 0.19834166657058243279e0 * t639 * t1612 * t892;
4644   t19262 = t250 * t1625;
4645   t19290 = -0.33837660950279469264e0 * t14314 * t914 + 0.14983660725163427627e0 * t13920 * t895 + 0.238156450669527040e0 * t19262 * t899 + 0.15762619094478157328e0 * t639 * t1625 * t892 - 0.21252129031945914941e0 * t19262 * t907 - 0.33837660950279469264e0 * t14314 * t895 - 0.12751277419167548965e1 * t4482 * t863 * t111 - 0.119078225334763520e0 * t4581 * t2474 + 0.5532003778560e1 * t3031 * t869 * t366 * t1069 - 0.33837660950279469264e0 * t883 * t14113 - 0.119078225334763520e0 * t649 * t1604 * t3331 + 0.461000314880e0 * t251 * t18451 - 0.10979019874935515226e0 * t880 * t14181;
4646   t19309 = t1624 * t379;
4647   t19310 = t1854 * t19309;
4648   t19314 = t634 * t379 * t1069;
4649   t19323 = -0.85008516127783659764e0 * t8770 * t5743 - 0.85008516127783659764e0 * t3053 * t628 * t3039 * t366 - 0.10979019874935515226e0 * t3904 * t3060 - 0.85008516127783659764e0 * t3904 * t3064 + 0.19594476351194912734e0 * t11640 * t3942 - 0.56263723100594113893e0 * t12504 * t3068 + 0.14983660725163427627e0 * t4581 * t2478 - 0.25502554838335097930e1 * t9173 * t18523 + 0.14983660725163427627e0 * t633 * t19310 - 0.10979019874935515226e0 * t3031 * t19314 + 0.476312901339054080e0 * t2510 * t19060 + 0.476312901339054080e0 * t2510 * t19057 + 0.69074723123554292755e-1 * t877 * t1613;
4650   t19325 = t106 * t18306;
4651   t19354 = 0.19594476351194912734e0 * t13684 * t19325 + 0.42504258063891829882e0 * t1084 * t12802 - 0.28131861550297056947e0 * t7698 * t4620 + 0.476312901339054080e0 * t2510 * t18732 - 0.12204703833063489012e1 * t640 * t1094 * t645 * t3878 - 0.11064007557120e2 * t13681 * t4136 + 0.29967321450326855254e0 * t883 * t14035 - 0.714469352008581120e0 * t4476 * t4129 + 0.19594476351194912734e0 * t3952 * t12547 - 0.56263723100594113893e0 * t9048 * t3978 - 0.56263723100594113893e0 * t3043 * t12697 - 0.56263723100594113893e0 * t3043 * t12701 + 0.75858199451789026627e0 * t3050 * t3966;
4652   t19368 = t2012 * t19204;
4653   t19386 = 0.75858199451789026627e0 * t1084 * t11656 - 0.1844001259520e1 * t251 * t18434 - 0.922000629760e0 * t251 * t18417 + 0.21252129031945914941e0 * t4637 * t2524 - 0.119078225334763520e0 * t649 * t14304 * t886 - 0.714469352008581120e0 * t4476 * t3519 + 0.37929099725894513314e0 * t627 * t19368 + 0.31525238188956314657e0 * t2517 * t2867 * t461 * t902 + 0.97972381755974563669e-1 * t4640 * t2524 - 0.22762551443898437297e2 * t11952 * t18597 + 0.39207562244901126197e2 * t12515 * t18587 + 0.31525238188956314658e0 * t2517 * t2867 * t19092 + 0.73228222998380934071e1 * t4021 * t18800;
4654   t19420 = 0.31525238188956314657e0 * t2517 * t4604 * t5793 + 0.31525238188956314657e0 * t2517 * t2867 * t1133 * t371 - 0.119078225334763520e0 * t649 * t4487 * t1277 + 0.21958039749871030452e0 * t8858 * t5756 * t256 + 0.13814944624710858551e0 * t12624 * t11883 - 0.119078225334763520e0 * t2489 * t4500 - 0.54895099374677576130e-1 * t877 * t1626 - 0.39188952702389825468e0 * t12017 * t3064 + 0.90330597678095682346e-1 * t12021 * t3942 - 0.25937594065695016420e0 * t16704 * t3068 + 0.34970653833504584655e0 * t12017 * t3071 + 0.11252744620118822779e1 * t12501 * t17283 + 0.14533144731775861995e0 * t12032 * t11745;
4655   t19443 = t6638 * t18906;
4656   t19451 = 0.33758233860356468336e1 * t19171 * t11749 - 0.25937594065695016420e0 * t12039 * t3978 - 0.19594476351194912734e0 * t12027 * t12487 + 0.17001703225556731953e1 * t11828 * t17267 + 0.21958039749871030452e0 * t12027 * t12490 + 0.25502554838335097929e1 * t19143 * t4166 - 0.39188952702389825468e0 * t8855 * t4100 - 0.238156450669527040e0 * t649 * t1453 * t4586 + 0.325024956416e0 * t106 * t14018 * t379 - 0.1844001259520e1 * t251 * t18440 - 0.33837660950279469264e0 * t633 * t19443 + 0.476312901339054080e0 * t1074 * t19314 - 0.21252129031945914941e0 * t649 * t1591 * t3331;
4657   t19467 = t668 * t5853;
4658   t19471 = t5793 * t254;
4659   t19475 = t2867 * t19471;
4660   t19478 = t3964 * t14385;
4661   t19481 = t3964 * t13941;
4662   t19488 = -0.61023519165317445059e0 * t640 * t18421 * t891 - 0.238156450669527040e0 * t2880 * t4075 - 0.734005159174078464e0 * t4124 * t19309 * t263 + 0.2766001889280e1 * t13861 * t4136 + 0.29967321450326855254e0 * t2924 * t4119 - 0.54895099374677576129e-1 * t5825 * t265 + 0.325024956416e0 * t106 * t19467 * t263 - 0.97994301469412365794e0 * t8214 * t4027 * t19471 + 0.16879116930178234168e1 * t8047 * t19475 + 0.53483277938827345109e0 * t7745 * t19478 - 0.75858199451789026629e0 * t7654 * t19481 + 0.12751277419167548965e1 * t4640 * t3362 - 0.85008516127783659766e0 * t3053 * t18947;
4663   t19493 = t4482 * t2458;
4664   t19498 = t3891 * t254;
4665   t19499 = t1090 * t19498;
4666   t19525 = 0.10979019874935515226e0 * t4493 * t2452 + 0.85008516127783659766e0 * t4493 * t2455 - 0.58783429053584738202e0 * t19493 * t3461 + 0.56263723100594113894e0 * t13906 * t2443 - 0.59934642900653710508e0 * t7676 * t19499 - 0.39668333314116486558e0 * t8090 * t2867 * t19498 + 0.53483277938827345109e0 * t7745 * t19499 - 0.59934642900653710508e0 * t7676 * t19478 - 0.1428938704017162240e1 * t2531 * t19481 - 0.18915142913373788794e1 * t8094 * t19475 + 0.25502554838335097930e1 * t8078 * t19481 - 0.39668333314116486558e0 * t8090 * t2867 * t5793 * t263 - 0.119078225334763520e0 * t649 * t5689 * t650 - 0.238156450669527040e0 * t649 * t1106 * t5720;
4667   t19531 = my_piecewise3(t96, 0, t19012 + t18799 + t18939 + t18583 + t18621 + t18358 + t18511 + t18660 + t19386 + t19354 + t19146 + t19048 + t18904 + t18324 + t18832 + t18871 + t18694 + t19488 + t18549 + t18971 + t19112 + t19323 + t19525 + t19420 + t19080 + t18735 + t19290 + t19254 + t19182 + t19451 + t18767 + t19219);
4668   t19532 = my_piecewise3(t95, 0, t19531);
4669   t19534 = -0.2e1 * t1069 * t1484 - t18272 * t113 - 0.2e1 * t1423 * t1139 - t1572 * t937 - t863 * t1630 - t94 * t19532 - t242 * t5872 - t5659 * t269 - t366 * t4699 - t4461 * t385 - 0.2e1 * t3864 * t467 - 0.2e1 * t448 * t4193;
4670   t19569 = t5921 * t294;
4671   t19576 = 0.20e2 / 0.9e1 * t9422 * t5927 - 0.5e1 / 0.9e1 * t4755 * t4272 + 0.5e1 / 0.9e1 * t483 * t484 * t19534 - 0.5e1 / 0.9e1 * t13304 * t1511 - 0.50e2 / 0.81e2 * t13332 * t4269 + params->c1 * t19534 * t140 + 0.20e2 / 0.9e1 * t3139 * t4296 * t18 + 0.50e2 / 0.81e2 * t293 * t1176 * t5874 * t275 + 0.100e3 / 0.27e2 * t481 * t1196 * t4269 - 0.100e3 / 0.27e2 * t14449 * t1196 * t4296 - 0.100e3 / 0.27e2 * t14449 * t1196 * t4286 + 0.5e1 / 0.9e1 * t1514 * t4782 - 0.20e2 / 0.9e1 * t483 * t1660 * t469 * t4195 + 0.20e2 / 0.9e1 * t12853 * t4760 - 0.5e1 / 0.9e1 * t19569 * t1170 - 0.20e2 / 0.9e1 * t1173 * t5939 + 0.2e1 * t4260 * t490;
4672   t19597 = (t18000 + t19576) * t144 + t5951 * t299 * t144 + t4785 * t410 * t144 + t1667 * t983 * t144 + t5953 * t300 + 0.2e1 * t1185 * t1524 + 0.2e1 * t1186 * t1525 + 0.2e1 * t489 * t4303 + 0.2e1 * t1526 * t1185 + t1669 * t983 * t144 + t5957 * t300;
4673   t19598 = t4797 * t4195;
4674   t19604 = t17705 * t1486;
4675   t19613 = t304 * t1486;
4676   t19614 = t303 * t19613;
4677   t19617 = t412 * t14511;
4678   t19630 = -0.4e1 * t743 * t19598 + t301 * t294 * t19534 * t146 - 0.4e1 * t743 * t19604 + 0.5e1 / 0.9e1 * t4813 * t994 + 0.50e2 / 0.27e2 * t14515 * t4315 + 0.50e2 / 0.27e2 * t14519 * t4315 - 0.10e2 / 0.9e1 * t3202 * t19614 - 0.10e2 / 0.9e1 * t3202 * t19617 - 0.5e1 / 0.9e1 * t4819 * t994 - 0.10e2 / 0.3e1 * t4794 * t994 + 0.5e1 / 0.9e1 * t14559 * t413 - 0.200e3 / 0.27e2 * t14550 * t4315 - 0.100e3 / 0.9e1 * t14553 * t4315;
4679   t19656 = t301 * t730 * t5874;
4680   t19660 = t754 * t756 * t5874;
4681   t19663 = -0.20e2 / 0.3e1 * t3179 * t19617 - 0.20e2 / 0.3e1 * t3179 * t19614 - 0.20e2 / 0.3e1 * t3187 * t19614 - 0.20e2 / 0.3e1 * t3187 * t19617 - 0.100e3 / 0.27e2 * t14499 * t4315 + 0.25e2 / 0.81e2 * t14495 * t4315 - 0.2e1 * t757 * t19604 + 0.10e2 / 0.9e1 * t4806 * t994 - 0.2e1 * t757 * t19598 - 0.25e2 / 0.81e2 * t14525 * t4315 + 0.10e2 / 0.9e1 * t14532 * t413 - 0.10e2 / 0.3e1 * t4802 * t994 + 0.10e2 / 0.9e1 * t19656 * t305 + 0.5e1 / 0.9e1 * t19660 * t305;
4682   t19665 = my_piecewise3(t138, t19597, t19630 + t19663);
4683   t19670 = t5595 * t287;
4684   t19697 = t4237 * t1156;
4685   t19707 = -0.4e1 * t179 * t3752 * t493 - 0.4e1 * t179 * t1157 * t1537 - 0.2e1 * t179 * t5899 * t308 + 0.1174e1 * t19665 + 0.4e1 * t1037 * t14616 * t401 + 0.4e1 * t517 * t19670 - t179 * t401 * t4823 + 0.2e1 * t179 * t959 * t1647 * t149 + 0.12e2 * t1723 * t1549 * t797 - 0.4e1 * t179 * t3756 * t493 + 0.8e1 * t517 * t1550 * t1002 - 0.16e2 * t1037 * t1554 * t959 + 0.16e2 * t1037 * t4387 * t398 - 0.2e1 * t179 * t5601 * t308 + 0.16e2 * t4376 * t19697 + 0.48e2 * t2748 * t1554 * t398 * t287 + 0.12e2 * t2748 * t4390 * t3734;
4686   t19708 = t2755 * t1498;
4687   t19711 = t5898 * t149;
4688   t19721 = t5875 * t123;
4689   t19724 = t1633 * t275;
4690   t19752 = t18 * t1493;
4691   t19755 = t19721 * t1147 / 0.60e2 - t19724 * t4206 / 0.108e3 - t4714 * t4209 / 0.30e2 + t4726 * t4209 / 0.180e3 + t1637 * t943 * t277 / 0.60e2 + 0.5e1 / 0.108e3 * t1637 * t4267 * t949 - t4213 * t14689 / 0.15e2 - t280 * t19534 * t127 / 0.100e3 + t50 * t19534 * t127 / 0.100e3 - 0.3e1 / 0.50e2 * t1142 * t5880 - 0.3e1 / 0.50e2 * t470 * t1638 * t4195 + t17801 * t14689 / 0.30e2 + t4204 * t19752 / 0.30e2;
4692   t19770 = t709 * t5874;
4693   t19792 = -t4720 * t4209 / 0.180e3 + t709 * t472 * t4195 / 0.50e2 + t14727 * t19752 / 0.90e2 + t4226 * t14689 / 0.90e2 - t14698 * t1490 / 0.180e3 + t1633 * t4212 * t956 / 0.54e2 - t19770 * t1147 / 0.180e3 - t14704 * t19752 / 0.15e2 - t2060 * t5944 * t956 / 0.324e3 + t14686 * t1490 / 0.60e2 - 0.5e1 / 0.162e3 * t1637 * t708 * t391 * t956 + t6945 * t5934 * t956 / 0.324e3 + t709 * t1150 * t1486 / 0.50e2 + t4705 * t4209 / 0.60e2;
4694   t19824 = t475 * t1537;
4695   t19837 = -0.16e2 * t4376 * t19708 - 0.4e1 * t1037 * t19711 * t287 - 0.4e1 * t1037 * t14654 * t401 - 0.2e1 * t179 * t4730 * t416 + 0.2e1 * t179 * t130 * (t19755 + t19792) * t149 - 0.2e1 * t179 * t1549 * t1002 - 0.24e2 * t2748 * t4737 * t3734 - 0.16e2 * t2752 * t5582 - 0.4e1 * t1037 * t4390 * t962 + 0.8e1 * t1037 * t14598 * t401 + 0.8e1 * t1037 * t14566 * t401 - 0.8e1 * t14588 * t3764 + 0.48e2 * t2748 * t1554 * t401 * t284 - 0.32e2 * t1037 * t1038 * t3767 + 0.8e1 * t1037 * t19824 * t287 + 0.48e2 * t4369 * t1038 * t401 * t1156 - 0.8e1 * t14588 * t3740 - 0.4e1 * t179 * t1042 * t1537;
4696   t19862 = t2759 * t1498;
4697   t19865 = t1038 * t4229;
4698   t19871 = t1498 * t493;
4699   t19883 = t1647 * t416;
4700   t19887 = -t137 * t19665 - 0.4e1 * t179 * t19697 - 0.24e2 * t4369 * t19670 - 0.4e1 * t179 * t476 * t4342 - 0.96e2 * t14763 * t1554 * t3734 + 0.48e2 * t4369 * t1038 * t1498 * t287 - 0.2e1 * t179 * t4394 * t416 - t179 * t287 * t5979 + 0.8e1 * t1037 * t4737 * t962 + 0.16e2 * t4376 * t19862 - 0.16e2 * t4376 * t19865 + 0.2e1 * t517 * t5918 * t287 + 0.8e1 * t1037 * t19871 * t287 - 0.4e1 * t179 * t4230 * t493 - t179 * t962 * t1683 - 0.32e2 * t1037 * t1038 * t3756 + 0.4e1 * t1037 * t19883 * t287;
4701   t19888 = t4387 * t401;
4702   t19891 = t1554 * t962;
4703   t19935 = 0.2e1 * t179 * t284 * t5898 * t149 + 0.2e1 * t179 * t398 * t4729 * t149 - 0.2e1 * t179 * t1648 * t1002 + 0.16e2 * t1037 * t5595 * t284 - 0.4e1 * t179 * t1398 * t1201 - 0.4e1 * t179 * t1499 * t1201 - 0.4e1 * t179 * t3767 * t493 + 0.4e1 * t179 * t19708 - 0.4e1 * t179 * t19862 + 0.4e1 * t179 * t19865 - 0.24e2 * t4369 * t19888 + 0.4e1 * t517 * t19888 + 0.24e2 * t4369 * t19891 - 0.4e1 * t517 * t19891 - 0.4e1 * t2752 * t5598 + 0.8e1 * t2752 * t5906 - 0.4e1 * t3749 * t4391 + 0.8e1 * t3749 * t4738;
4704   t19951 = t424 * t5987 * t777;
4705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4706     v4rhosigmalapl2[0] = -t794 * t5984 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t175 * (t19707 + t19837 + t19887 + t19935) * t167 - 0.24739500000000000000e1 * t321 * t322 * t5982 * t330 + 0.92773125000000000000e0 * t424 * t7 * t4826 * t430 + 0.11132775000000000000e2 * t19951 * t1024 - 0.15101552267946798162e2 * t5 * t5987 * t1028 * t1032;
4707 
4708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4709     v4rhosigmalapltau[0] = 0.0e0;
4710 
4711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4712     v4rhosigmatau2[0] = 0.0e0;
4713 
4714   t19963 = t4737 * t1156;
4715   t19969 = t6009 * t287;
4716   t19975 = t2755 * t1647;
4717   t19987 = t13347 * t224;
4718   t20003 = t6020 / t593 / t230;
4719   t20035 = -0.5e1 / 0.243e3 * t5636 - 0.3e1 * t2811 * t1567 - 0.20e2 / 0.2187e4 * t19987 * t16126 - 0.20e2 / 0.2187e4 * t18219 * t4456 - 0.20e2 / 0.2187e4 * t18212 * t4456 + t8603 * t64 * t1557 * t227 / 0.81e2 + 0.20e2 / 0.3e1 * t2791 * t4426 * t183 - 0.50e2 / 0.3e1 * t1800 * t20003 * t6024 * t183 + 0.20e2 / 0.3e1 * t578 * t6417 * t6024 * t183 - 0.5e1 / 0.324e3 * t18162 * t4449 - t1569 * t16146 / 0.486e3 - t1569 * t16149 / 0.486e3 - t18144 * t1569 / 0.486e3 - t18147 * t1569 / 0.486e3 + 0.40e2 / 0.729e3 * t5628 * t8552 * t4455 - t18125 * t1569 / 0.486e3 - t18128 * t1569 / 0.486e3 + 0.9e1 * t8556 * t1564 + 0.9e1 / 0.2e1 * t2791 * t4436 - 0.6e1 * t1051 * t4439;
4720   t20046 = t6383 * t6020;
4721   t20047 = t6022 * t6024;
4722   t20054 = t8559 * t85;
4723   t20059 = t594 * t6024;
4724   t20074 = t1051 * t4442;
4725   t20088 = -0.15e2 * t6373 * t6025 + 0.9e1 * t1792 * t6028 + 0.9e1 * t578 * t7351 * t6024 + 0.5e1 / 0.729e3 * t5608 + 0.5e1 / 0.729e3 * t5618 + 0.5e1 / 0.729e3 * t5643 + 0.105e3 / 0.2e1 * t20046 * t20047 * t239 + 0.18e2 * t2791 * t85 * t4432 - 0.45e2 / 0.2e1 * t20054 * t4419 + 0.18e2 * t4405 * t4422 - 0.45e2 / 0.2e1 * t2787 * t20059 * t239 + 0.27e2 * t1055 * t4418 * t1066 - 0.45e2 * t1800 * t6020 * t6022 * t1563 * t1066 - 0.45e2 * t4417 * t20047 * t227 - 0.10e2 / 0.9e1 * t20074 * t183 + t18245 * t4449 / 0.324e3 + t18259 * t6032 / 0.162e3 + t5633 * t16261 * t6031 / 0.162e3 + t18225 * t4449 / 0.324e3 + t1569 * t16266 / 0.324e3;
4726   t20089 = t20035 + t20088;
4727   t20103 = -t253 * t20089 * t103;
4728   t20108 = t623 * t6037;
4729   t20114 = t13760 * t448;
4730   t20122 = t6461 * t6054;
4731   t20128 = t4619 * t4626;
4732   t20131 = t6054 * t645;
4733   t20132 = t4020 * t20131;
4734   t20141 = 0.461000314880e0 * t251 * t20103 + 0.44950982175490282881e0 * t2880 * t4593 + 0.21252129031945914941e0 * t20108 * t242 * t111 - 0.16468529812403272839e0 * t4476 * t2992 + 0.29391714526792369101e0 * t20114 * t3956 - 0.89901964350980565762e0 * t4479 * t2921 - 0.18307055749595233518e1 * t640 * t2962 * t6116 + 0.39207562244901126197e2 * t640 * t20122 * t891 - 0.357234676004290560e0 * t2880 * t4500 + 0.25318675395267351253e1 * t8047 * t20128 + 0.16879116930178234169e1 * t2011 * t20132 + 0.47287857283434471986e0 * t2517 * t2867 * t1603 * t263 - 0.84395584650891170840e0 * t9048 * t4620;
4735   t20170 = t4569 * t3039;
4736   t20172 = t4574 * t3039;
4737   t20174 = t6688 * t6054;
4738   t20175 = t20174 * t629;
4739   t20183 = t6618 * t6043;
4740   t20186 = t6059 * t629;
4741   t20188 = t1591 * t3039;
4742   t20190 = t6055 * t629;
4743   t20192 = t2950 * t4615;
4744   t20194 = t6090 * t242;
4745   t20202 = t6673 * t6043;
4746   t20205 = t614 * t6037;
4747   t20210 = 0.9555676435200e1 * t20170 + 0.17054206847430144000e2 * t20172 + 0.10145661348248508867e2 * t20175 + 0.17054206847430144000e2 * t13718 * t3063 + 0.9555676435200e1 * t4496 * t4542 + 0.17054206847430144000e2 * t4472 * t4542 + 0.10145661348248508867e2 * t20183 * t921 - 0.42833280e2 * t20186 + 0.32124960e2 * t20188 + 0.114668117222400e3 * t20190 - 0.10708320e2 * t20192 + 0.32124960e2 * t1080 * t20194 - 0.10708320e2 * t1073 * t108 * t4461 - 0.57334058611200e2 * t4482 * t4542 - 0.68216827389720576000e2 * t20202 * t921 - 0.3569440e1 * t20205 * t921 + 0.3185225478400e1 * t20108 * t921;
4748   t20216 = t245 * t20089;
4749   t20233 = t1101 * t13695;
4750   t20235 = t4562 * t3039;
4751   t20237 = t20122 * t629;
4752   t20239 = t655 * t6063;
4753   t20240 = t20239 * t629;
4754   t20242 = t642 * t6063;
4755   t20243 = t20242 * t629;
4756   t20245 = t13713 * t1090;
4757   t20249 = 0.9555676435200e1 * t13755 * t6097 + 0.32124960e2 * t1094 * t13620 + 0.1784720e1 * t20103 + 0.1784720e1 * t20216 * t108 - 0.42833280e2 * t6044 * t921 + 0.32124960e2 * t1583 * t4542 + 0.114668117222400e3 * t6071 * t921 - 0.10708320e2 * t2932 * t6090 - 0.57334058611200e2 * t2953 * t13620 + 0.17054206847430144000e2 * t13760 * t448 * t242 * t108 - 0.10708320e2 * t20233 - 0.57334058611200e2 * t20235 - 0.68216827389720576000e2 * t20237 - 0.3569440e1 * t20240 + 0.3185225478400e1 * t20243 + 0.9555676435200e1 * t20245 - 0.57334058611200e2 * t2876 * t20194;
4758   t20254 = -0.16468529812403272839e0 * t4637 * t3056 + 0.16879116930178234168e1 * t9300 * t18515 + 0.21799717097663792993e0 * t3043 * t13625 + 0.50637350790534702504e1 * t3043 * t13589 - 0.16879116930178234168e1 * t3043 * t13629 - 0.38906391098542524630e0 * t3074 * t18493 + 0.26233858457773445621e1 * t9116 * t13634 - 0.45186746351441547126e1 * t3043 * t14412 - 0.22757459835536707988e1 * t3053 * t18959 - 0.29391714526792369101e0 * t1084 * t14403 - 0.68272379506610123965e1 * t1084 * t14406 + 0.56906378609746093242e1 * t1888 * t4574 * t11902 - 0.48997150734706182896e0 * t6799 * t6055 * t6800 - 0.258304e0 * t106 * t259 * (t20210 + t20249);
4759   t20256 = t6130 * t253;
4760   t20260 = t6077 * t99;
4761   t20289 = -0.33837660950279469264e0 * t6651 * t20256 * t629 - 0.119078225334763520e0 * t20260 * t635 + 0.63756387095837744823e0 * t13755 * t448 * t111 + 0.65874119249613091356e0 * t8858 * t19016 + 0.41444833874132575653e0 * t12624 * t14386 + 0.65874119249613091356e0 * t12027 * t14389 - 0.15183994858257152217e0 * t8855 * t4519 + 0.43599434195327585986e0 * t12032 * t13938 - 0.58783429053584738202e0 * t12027 * t13942 - 0.14809616675507404800e2 * t251 * t20235 + 0.12751277419167548965e1 * t649 * t6059 * t650 + 0.29619233351014809600e2 * t251 * t20190 - 0.357234676004290560e0 * t4581 * t2992 + 0.822756481972633600e0 * t251 * t20243;
4762   t20290 = t20205 * t99;
4763   t20297 = t13723 * t448;
4764   t20309 = t6638 * t6130;
4765   t20319 = t3371 * t1090 * t1611;
4766   t20322 = t4608 * t461;
4767   t20323 = t2509 * t20322;
4768   t20328 = -0.922000629760e0 * t20290 * t870 - 0.357234676004290560e0 * t1087 * t14319 - 0.16468529812403272839e0 * t6138 * t265 - 0.38253832257502646894e1 * t20297 * t3956 + 0.22757459835536707988e1 * t1084 * t14409 + 0.29391714526792369101e0 * t4640 * t3040 + 0.63756387095837744823e0 * t3050 * t4616 + 0.76507664515005293790e1 * t6071 * t242 * t111 - 0.33837660950279469264e0 * t633 * t20309 - 0.61023519165317445059e0 * t640 * t20242 * t891 - 0.22762551443898437297e2 * t1888 * t20122 * t3347 + 0.20722416937066287827e0 * t627 * t20319 + 0.32937059624806545678e0 * t627 * t20323 + 0.38253832257502646895e1 * t4640 * t3933;
4769   t20332 = t628 * t1090 * t1069;
4770   t20351 = t2859 * t4615;
4771   t20354 = t1603 * t453;
4772   t20355 = t20354 * t650;
4773   t20365 = -0.25502554838335097930e1 * t3053 * t20332 + 0.32937059624806545679e0 * t4493 * t3060 + 0.25502554838335097930e1 * t4493 * t3064 - 0.17635028716075421460e1 * t19493 * t3942 + 0.16879116930178234168e1 * t13906 * t3068 - 0.22757459835536707989e1 * t4493 * t3071 - 0.12751277419167548965e1 * t13965 * t3933 + 0.44950982175490282881e0 * t4581 * t2921 - 0.2766001889280e1 * t251 * t20192 - 0.14809616675507404800e2 * t4044 * t20351 - 0.63756387095837744824e0 * t2531 * t20355 + 0.714469352008581120e0 * t649 * t1599 * t4586 + 0.44950982175490282881e0 * t1087 * t13847 + 0.2468269445917900800e1 * t251 * t20170;
4774   t20366 = t634 * t6112;
4775   t20376 = t6063 * t103;
4776   t20377 = t628 * t20376;
4777   t20381 = t4025 * t6054 * t1893;
4778   t20390 = t6044 * t99;
4779   t20393 = t6518 * t6130;
4780   t20403 = -0.119078225334763520e0 * t633 * t20366 - 0.357234676004290560e0 * t649 * t1106 * t6169 + 0.63756387095837744823e0 * t13864 * t1091 + 0.63756387095837744823e0 * t4637 * t3040 + 0.21252129031945914941e0 * t627 * t20377 + 0.87446194859244818738e0 * t6881 * t20381 + 0.714469352008581120e0 * t4479 * t2992 + 0.8298005667840e1 * t4476 * t4537 - 0.16468529812403272839e0 * t4497 * t463 - 0.11064007557120e2 * t20390 * t870 + 0.23916119461575365556e1 * t106 * t20393 * t263 - 0.84395584650891170840e0 * t14024 * t3068 + 0.11378729917768353994e1 * t4637 * t3071 + 0.58783429053584738202e0 * t8934 * t20332;
4781   t20440 = -0.75919974291285761083e-1 * t4640 * t3060 - 0.58783429053584738202e0 * t4640 * t3064 + 0.13549589651714352352e0 * t13571 * t3942 - 0.38906391098542524630e0 * t13899 * t3068 + 0.52455980750256876982e0 * t4640 * t3071 - 0.12751277419167548965e1 * t3053 * t18897 - 0.16468529812403272839e0 * t1084 * t13642 - 0.12751277419167548965e1 * t1084 * t13645 - 0.94575714566868943973e0 * t1878 * t6059 * t1879 - 0.21968466899514280222e2 * t640 * t6055 * t891 + 0.47287857283434471986e0 * t1878 * t1591 * t645 * t1133 - 0.18307055749595233518e1 * t640 * t1094 * t645 * t4486 - 0.12751277419167548965e1 * t3050 * t4612 + 0.975074869248e0 * t106 * t1120 * t4577;
4782   t20442 = t634 * t461 * t1069;
4783   t20447 = t668 * t6112;
4784   t20458 = t4025 * t20131;
4785   t20465 = t2859 * t6162;
4786   t20468 = t4608 * t2920;
4787   t20471 = t4608 * t4626;
4788   t20474 = t461 * t1105;
4789   t20475 = t1090 * t20474;
4790   t20483 = 0.1428938704017162240e1 * t1074 * t20442 + 0.98811178874419637034e0 * t13681 * t3910 + 0.325024956416e0 * t106 * t20447 * t263 + 0.975074869248e0 * t106 * t2906 * t1624 - 0.32937059624806545678e0 * t3031 * t20442 + 0.714469352008581120e0 * t1074 * t18343 - 0.15062248783813849042e1 * t2011 * t20458 - 0.59502499971174729837e0 * t8090 * t2867 * t1611 * t254 + 0.80224916908241017663e0 * t7745 * t20465 - 0.89901964350980565762e0 * t7676 * t20468 - 0.2143408056025743360e1 * t2531 * t20471 + 0.1428938704017162240e1 * t2510 * t20475 - 0.922000629760e0 * t251 * t20240 - 0.119078225334763520e0 * t649 * t6064 * t650;
4791   t20487 = t4472 * t99;
4792   t20490 = t461 * t1624;
4793   t20515 = t13619 * t1595;
4794   t20521 = t1624 * t254;
4795   t20522 = t1090 * t20521;
4796   t20526 = t1943 * t4615 * t461;
4797   t20530 = t1943 * t1090 * t1624;
4798   t20533 = 0.29391714526792369101e0 * t20487 * t4537 - 0.2202015477522235392e1 * t4124 * t20490 * t263 - 0.2202015477522235392e1 * t106 * t4527 * t1133 - 0.98018905612252815489e1 * t640 * t4574 * t4604 + 0.84395584650891170840e0 * t1878 * t6055 * t1879 + 0.20312390406477209506e2 * t1888 * t20174 * t3347 - 0.92817332546461565657e1 * t6767 * t20174 * t15606 - 0.2766001889280e1 * t1074 * t869 * t4461 + 0.47287857283434471985e0 * t2517 * t6116 * t4626 - 0.63756387095837744824e0 * t2531 * t20515 + 0.44950982175490282881e0 * t3372 * t1090 * t13846 + 0.714469352008581120e0 * t2510 * t20522 - 0.16468529812403272839e0 * t627 * t20526 - 0.16468529812403272839e0 * t627 * t20530;
4799   t20534 = t2516 * t20322;
4800   t20541 = t6083 * t99;
4801   t20544 = t20354 * t103;
4802   t20545 = t2012 * t20544;
4803   t20554 = t6077 * t250;
4804   t20569 = -0.29391714526792369101e0 * t627 * t20534 - 0.75919974291285761083e-1 * t4473 * t463 - 0.2766001889280e1 * t3015 * t6068 - 0.714469352008581120e0 * t20541 * t635 + 0.11378729917768353994e1 * t627 * t20545 - 0.10151298285083840779e1 * t1087 * t14113 - 0.12751277419167548965e1 * t4493 * t3040 + 0.44051698455185959158e1 * t4062 * t20351 + 0.21252129031945914941e0 * t20554 * t630 - 0.357234676004290560e0 * t14382 * t1113 + 0.63756387095837744823e0 * t4496 * t1069 * t111 + 0.714469352008581120e0 * t2510 * t20355 + 0.8298005667840e1 * t4012 * t20351 - 0.14699145220411854869e1 * t8214 * t13632 * t4626;
4805   t20596 = t110 * t1572;
4806   t20603 = t2516 * t4619 * t461;
4807   t20606 = -0.28372714370060683191e1 * t8094 * t20128 + 0.38253832257502646895e1 * t8078 * t20471 + 0.8298005667840e1 * t251 * t20188 + 0.44950982175490282881e0 * t3372 * t4615 * t2920 + 0.714469352008581120e0 * t2510 * t20515 + 0.47287857283434471985e0 * t2517 * t2867 * t20521 - 0.63756387095837744824e0 * t2531 * t20522 + 0.80224916908241017663e0 * t7745 * t20468 - 0.12751277419167548965e1 * t2531 * t20475 + 0.10984233449757140111e2 * t640 * t4562 * t4604 - 0.2766001889280e1 * t251 * t20233 - 0.12751277419167548965e1 * t3053 * t20596 * t256 + 0.20722416937066287827e0 * t1084 * t13948 + 0.21799717097663792993e0 * t2011 * t20603;
4808   t20608 = t2012 * t2867 * t1603;
4809   t20611 = t1970 * t20544;
4810   t20615 = t4496 * t448 * t99;
4811   t20624 = t1854 * t20490;
4812   t20648 = -0.84395584650891170843e0 * t2011 * t20608 - 0.12751277419167548965e1 * t627 * t20611 + 0.29391714526792369101e0 * t20615 * t2461 - 0.75919974291285761083e-1 * t4640 * t3056 - 0.89901964350980565762e0 * t1074 * t18984 + 0.714469352008581120e0 * t4532 * t3910 + 0.44950982175490282881e0 * t633 * t20624 - 0.357234676004290560e0 * t649 * t454 * t103 * t4577 - 0.38253832257502646895e1 * t13681 * t4537 + 0.45165298839047841173e-1 * t20183 * t242 * t111 - 0.2143408056025743360e1 * t4476 * t3910 + 0.714469352008581120e0 * t1074 * t634 * t1572 * t263 + 0.8298005667840e1 * t3031 * t869 * t1572 * t242 + 0.20722416937066287826e0 * t4476 * t2921;
4813   t20661 = t6112 * t253;
4814   t20684 = 0.44950982175490282881e0 * t1868 * t1106 * t6162 + 0.2468269445917900800e1 * t251 * t20245 - 0.16468529812403272839e0 * t1081 * t1626 - 0.357234676004290560e0 * t649 * t1604 * t4586 - 0.119078225334763520e0 * t649 * t20661 * t629 - 0.16468529812403272839e0 * t1084 * t14420 + 0.32937059624806545679e0 * t20390 * t635 + 0.25502554838335097930e1 * t3053 * t18880 + 0.32937059624806545679e0 * t1084 * t13577 + 0.38253832257502646895e1 * t1084 * t13581 - 0.25502554838335097930e1 * t1084 * t13585 - 0.58783429053584738203e0 * t3074 * t18889 + 0.32937059624806545678e0 * t4493 * t3056 - 0.357234676004290560e0 * t649 * t4487 * t1595;
4815   t20695 = t6071 * t250;
4816   t20698 = t2867 * t13619;
4817   t20718 = 0.63756387095837744823e0 * t1084 * t13696 - 0.59502499971174729838e0 * t8090 * t4619 * t2920 + 0.94575714566868943972e0 * t2517 * t2867 * t20474 + 0.44950982175490282881e0 * t2924 * t4688 + 0.45165298839047841173e-1 * t20695 * t630 + 0.10984233449757140111e2 * t4021 * t20698 + 0.56906378609746093244e1 * t4026 * t4027 * t13619 - 0.98018905612252815491e1 * t4031 * t20698 - 0.32937059624806545678e0 * t3050 * t4519 - 0.32937059624806545678e0 * t1084 * t14177 - 0.32937059624806545678e0 * t1084 * t14181 + 0.29391714526792369101e0 * t3074 * t18952 - 0.84395584650891170840e0 * t3043 * t13616 + 0.11378729917768353994e1 * t1084 * t13621;
4818   t20726 = t20202 * t99;
4819   t20729 = t6054 * t103;
4820   t20730 = t4025 * t20729;
4821   t20733 = t4020 * t20729;
4822   t20736 = t6083 * t250;
4823   t20739 = t6044 * t250;
4824   t20744 = t2012 * t20729;
4825   t20756 = -0.16468529812403272839e0 * t4637 * t3060 - 0.12751277419167548965e1 * t4637 * t3064 + 0.29391714526792369101e0 * t13970 * t3942 - 0.11756685810716947640e1 * t20726 * t870 + 0.67692822862798455803e0 * t627 * t20730 - 0.22757459835536707989e1 * t627 * t20733 + 0.12751277419167548965e1 * t20736 * t630 - 0.58783429053584738203e0 * t20739 * t630 - 0.11378729917768353994e1 * t7654 * t20471 + 0.12751277419167548965e1 * t627 * t20744 + 0.20722416937066287827e0 * t1081 * t1613 + 0.89901964350980565762e0 * t1087 * t14035 - 0.13606156761889987933e2 * t640 * t20174 * t891 + 0.26206649088979828343e1 * t251 * t20175;
4826   t20771 = t6071 * t99;
4827   t20791 = 0.44051698455185959158e1 * t251 * t20172 - 0.37929099725894513314e0 * t649 * t6055 * t650 - 0.17620679382074383663e2 * t251 * t20237 + 0.52455980750256876981e0 * t3074 * t18966 + 0.20307846858839536740e1 * t1084 * t14415 - 0.714469352008581120e0 * t649 * t6102 * t650 - 0.25306658097095253694e-1 * t20771 * t635 + 0.11378729917768353994e1 * t3050 * t4609 - 0.10151298285083840779e1 * t10277 * t1090 * t14112 - 0.89901964350980565762e0 * t7676 * t20465 + 0.89901964350980565762e0 * t3372 * t1090 * t13664 - 0.11064007557120e2 * t251 * t20186 - 0.63756387095837744824e0 * t649 * t1591 * t4586 + 0.461000314880e0 * t20216 * t111;
4828   t20796 = my_piecewise3(t96, 0, t20141 + t20254 + t20289 + t20328 + t20365 + t20403 + t20440 + t20483 + t20533 + t20569 + t20606 + t20648 + t20684 + t20718 + t20756 + t20791);
4829   t20797 = my_piecewise3(t95, 0, t20796);
4830   t20799 = 0.3e1 * t1069 * t1630 + t20089 * t113 + 0.3e1 * t1572 * t1139 + t94 * t20797 + t242 * t6181 + t6037 * t269 + 0.3e1 * t4461 * t467 + 0.3e1 * t448 * t4699;
4831   t20802 = t6220 * t294;
4832   t20829 = t33 * t2115;
4833   t20843 = t1141 * t1632;
4834   t20847 = t469 * t4701;
4835   t20857 = -t20799;
4836   t20861 = 0.3e1 * t481 * t4809 + 0.10e2 / 0.3e1 * t1173 * t6229 + 0.200e3 / 0.27e2 * t293 * t20829 * t6191 * t275 + 0.10e2 * t483 * t6228 * t1636 * t1141 - 0.10e2 / 0.3e1 * t1173 * t6232 - 0.50e2 / 0.9e1 * t14449 * t1196 * t4778 - 0.10e2 / 0.3e1 * t483 * t1660 * t20843 - 0.10e2 / 0.3e1 * t483 * t1660 * t20847 + 0.5e1 / 0.9e1 * t1173 * t6235 + 0.50e2 / 0.81e2 * t293 * t1176 * t6183 * t275 + 0.5e1 / 0.9e1 * t483 * t484 * t20857;
4837   t20879 = t301 * t6253;
4838   t20882 = t1636 * t146;
4839   t20883 = t20882 * t1141;
4840   t20886 = t754 * t6262;
4841   t20889 = t146 * t1632;
4842   t20890 = t20889 * t1170;
4843   t20893 = t17705 * t1632;
4844   t20898 = t4797 * t4701;
4845   t20904 = t2128 * t7038 * t6191;
4846   t20908 = t301 * t730 * t6183;
4847   t20915 = t754 * t756 * t6183;
4848   t20928 = t7056 * t7058 * t6191;
4849   t20931 = 0.40e2 / 0.3e1 * t20879 * t305 + 0.18e2 * t2105 * t20883 + 0.20e2 * t20886 * t305 - 0.10e2 * t3179 * t20890 - 0.6e1 * t743 * t20893 - 0.10e2 * t3187 * t20890 - 0.6e1 * t743 * t20898 + 0.18e2 * t2116 * t20883 + 0.20e2 / 0.3e1 * t20904 * t305 + 0.10e2 / 0.9e1 * t20908 * t305 + t301 * t294 * t20857 * t146 + 0.5e1 / 0.9e1 * t20915 * t305 - 0.3e1 * t757 * t20898 - 0.3e1 * t757 * t20893 - 0.5e1 / 0.3e1 * t14495 * t1177 * t11080 + 0.3e1 * t2131 * t20883 + 0.5e1 / 0.9e1 * t20928 * t305;
4850   t20932 = my_piecewise3(t138, (-params->c1 * t20799 * t140 - 0.5e1 / 0.9e1 * t20802 * t1170 + 0.3e1 * t4753 * t490 + 0.10e2 / 0.3e1 * t13332 * t4760 + 0.3e1 * t1656 * t1193 - 0.6e1 * t1167 * t1672 - 0.10e2 * t12849 * t4768 * t18 - 0.12e2 * t481 * t1189 * t1141 + 0.3e1 * t1167 * t1676 + 0.10e2 / 0.3e1 * t3139 * t4778 * t18 + t20861) * t144 + t6238 * t299 * t144 + 0.3e1 * t4785 * t488 * t144 + 0.3e1 * t1667 * t1184 * t144 + 0.3e1 * t6240 * t300 + 0.3e1 * t1670 * t1184 + t6243 * t299 * t144, t20931);
4851   t20934 = t2759 * t1647;
4852   t20944 = t475 * t1683;
4853   t20948 = t1723 * t5991;
4854   t20949 = t1554 * t1156;
4855   t20960 = t5992 * t149;
4856   t20961 = t20960 * t284;
4857   t20966 = -0.6e1 * t179 * t476 * t4823 - 0.12e2 * t179 * t19963 - 0.6e1 * t179 * t1549 * t1201 + 0.12e2 * t517 * t19969 - 0.6e1 * t179 * t4394 * t493 - 0.24e2 * t4376 * t19975 - 0.48e2 * t1723 * t5993 * t308 - 0.6e1 * t179 * t1648 * t1201 - t137 * t20932 - 0.6e1 * t179 * t20934 + 0.72e2 * t4369 * t1038 * t1647 * t287 + 0.24e2 * t517 * t1550 * t1201 + 0.12e2 * t1037 * t20944 * t287 + 0.144e3 * t20948 * t20949 + 0.6e1 * t179 * t19975 - 0.48e2 * t1037 * t1038 * t4394 + 0.24e2 * t517 * t5997 * t308 + 0.144e3 * t4369 * t20961 - 0.12e2 * t14588 * t4391;
4858   t20973 = t6208 * t149;
4859   t20981 = t1038 * t4729;
4860   t20986 = t6279 * t5991;
4861   t20987 = t20960 * t287;
4862   t20999 = t1647 * t493;
4863   t21015 = t6184 * t123;
4864   t21020 = t18 * t472;
4865   t21026 = t1633 * t125 * t469;
4866   t21031 = t6192 * t123;
4867   t21037 = t6192 * t708;
4868   t21043 = t709 * t6183;
4869   t21052 = t2060 * t6201;
4870   t21058 = t6945 * t6191;
4871   t21061 = t50 * t20857 * t127 / 0.100e3 + t21015 * t1147 / 0.60e2 - 0.9e1 / 0.100e3 * t4702 * t6188 + t19724 * t21020 / 0.20e2 - 0.9e1 / 0.100e3 * t1633 * t4708 - t21026 * t1147 / 0.10e2 - 0.9e1 / 0.100e3 * t1637 * t1150 - t21031 * t1147 / 0.12e2 + 0.9e1 / 0.50e2 * t1637 * t6195 * t1141 + t21037 * t1147 / 0.18e2 - t280 * t20857 * t127 / 0.100e3 - t21043 * t1147 / 0.180e3 + 0.3e1 / 0.100e3 * t709 * t20847 * t127 + 0.3e1 / 0.100e3 * t709 * t20843 * t127 + t21052 * t1147 / 0.60e2 - 0.3e1 / 0.100e3 * t2060 * t1644 * t1141 - t21058 * t1147 / 0.180e3;
4872   t21072 = -0.6e1 * t179 * t4730 * t493 + 0.48e2 * t1037 * t6009 * t284 - 0.4e1 * t1037 * t20973 * t287 - t179 * t287 * t6266 - 0.24e2 * t517 * t20961 - 0.24e2 * t4376 * t20981 + 0.24e2 * t4376 * t20934 - 0.192e3 * t20986 * t20987 - 0.6e1 * t179 * t1157 * t1683 + 0.6e1 * t179 * t20981 + 0.2e1 * t179 * t284 * t6208 * t149 + 0.12e2 * t1037 * t20999 * t287 - 0.2e1 * t179 * t6209 * t308 + 0.72e2 * t2748 * t20987 - 0.72e2 * t4369 * t19969 + 0.48e2 * t4376 * t19963 + 0.2e1 * t179 * t130 * t21061 * t149 - 0.6e1 * t179 * t1042 * t1683 + 0.1174e1 * t20932 - 0.72e2 * t1037 * t20949;
4873   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4874     v4rholapl3[0] = -t794 * t6271 / 0.4e1 - 0.3e1 / 0.16e2 * t174 * t175 * (t20966 + t21072) * t167 - 0.24739500000000000000e1 * t321 * t322 * t6269 * t330;
4875 
4876   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4877     v4rholapl2tau[0] = 0.0e0;
4878 
4879   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4880     v4rholapltau2[0] = 0.0e0;
4881 
4882   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4883     v4rhotau3[0] = 0.0e0;
4884 
4885   t21091 = 0.1e1 / t156 / t542;
4886   t21131 = t1213 * t1213;
4887   t21141 = t1332 * t1332;
4888   t21166 = t1329 * t1329;
4889   t21182 = t1236 * t1236;
4890   t21188 = t1251 * t1251;
4891   t21195 = 0.1e1 / t16 / t193;
4892   t21196 = t13 * t21195;
4893   t21210 = t21195 * t10;
4894   t21214 = t16219 * t345;
4895   t21223 = t3263 * t9854 * t1236 / 0.972e3 - t3263 * t3264 * t1251 / 0.1458e4 - 0.15e2 / 0.2e1 * t7450 * t4867 + 0.9e1 * t2241 * t4870 - 0.2e1 * t830 * t4886 + 0.105e3 / 0.16e2 * t6383 * t21182 - 0.45e2 / 0.4e1 * t1800 * t1236 * t1251 + 0.9e1 / 0.4e1 * t578 * t21188 + 0.3e1 * t578 * t363 * t4886 - t225 * (t21196 * t10 * t1225 * t88 / 0.531441e6 - 0.20e2 / 0.2187e4 * t3847 * t4881 + 0.25e2 / 0.36e2 * t9927 * t1246 - 0.125e3 / 0.81e2 * t6417 * t358 * t194 * t340 + 0.25e2 / 0.52488e5 * t1813 * t13 * t21210 * t1225 + 0.25e2 / 0.52488e5 * t11474 * t21214 + 0.3125e4 / 0.46656e5 * t6428 * t194 * t21214) / 0.2e1;
4896   t21249 = t1285 * t1285;
4897   t21250 = t642 * t21249;
4898   t21251 = t21250 * t103;
4899   t21257 = t1893 * t1285;
4900   t21261 = t1893 * t379;
4901   t21265 = t1258 * t1258;
4902   t21266 = t1901 * t21265;
4903   t21269 = -0.65874119249613091356e0 * t3431 * t3358 + 0.11756685810716947640e1 * t15186 * t3461 - 0.30367989716514304434e0 * t3410 * t3358 - 0.65874119249613091356e0 * t880 * t15346 - 0.11756685810716947640e1 * t880 * t15350 - 0.33758233860356468336e1 * t2499 * t15340 - 0.51005109676670195860e1 * t880 * t15079 + 0.13174823849922618271e1 * t3434 * t3358 - 0.17980392870196113152e1 * t3428 * t3387 + 0.2468269445917900800e1 * t251 * t21251 - 0.17980392870196113152e1 * t1868 * t1281 * t4994 + 0.11381275721949218649e2 * t1888 * t3346 * t21257 - 0.19598860293882473159e1 * t6799 * t4896 * t21261 - 0.11064007557120e2 * t21266 * t111;
4904   t21273 = t1254 * t1254;
4905   t21274 = t614 * t21273;
4906   t21277 = t3351 * t3403;
4907   t21280 = t103 * t4987;
4908   t21284 = t898 * t15676;
4909   t21302 = t634 * t379 * t1254;
4910   t21307 = t15231 * t886;
4911   t21310 = 0.1300099825664e1 * t106 * t15591 * t379 - 0.2766001889280e1 * t21274 * t111 - 0.29619233351014809600e2 * t251 * t21277 - 0.13535064380111787705e1 * t6651 * t372 * t21280 - 0.3688002519040e1 * t251 * t21284 - 0.32937059624806545678e0 * t3453 * t3537 - 0.4404030955044470784e1 * t106 * t3550 * t1306 + 0.51005109676670195860e1 * t649 * t4936 * t1277 - 0.3688002519040e1 * t15088 * t1427 + 0.2857877408034324480e1 * t3469 * t5294 - 0.714469352008581120e0 * t3391 * t3537 - 0.65874119249613091356e0 * t2546 * t21302 + 0.17980392870196113152e1 * t883 * t15558 + 0.3291025927890534400e1 * t251 * t21307;
4912   t21316 = t655 * t21249 * t103;
4913   t21331 = t623 * t21273;
4914   t21337 = t645 * t4979;
4915   t21344 = t6673 * t21265;
4916   t21347 = t1273 * t3403;
4917   t21350 = 0.1428938704017162240e1 * t649 * t1281 * t4912 - 0.2766001889280e1 * t251 * t21316 + 0.13174823849922618271e1 * t880 * t15415 + 0.45514919671073415976e1 * t880 * t15478 - 0.51005109676670195860e1 * t10896 * t5407 - 0.65874119249613091356e0 * t880 * t15402 + 0.87198868390655171972e0 * t2499 * t15406 + 0.82889667748265151307e0 * t880 * t15359 + 0.63756387095837744823e0 * t21331 * t111 + 0.85008516127783659764e0 * t15091 * t366 * t111 - 0.24409407666126978024e1 * t640 * t890 * t21337 - 0.714469352008581120e0 * t649 * t1286 * t4912 - 0.11756685810716947640e1 * t21344 * t111 + 0.16596011335680e2 * t251 * t21347;
4918   t21360 = -t253 * t21223 * t103;
4919   t21363 = t1272 * t1272;
4920   t21364 = t1890 * t21363;
4921   t21375 = t245 * t21223;
4922   t21378 = t10148 * t3394;
4923   t21388 = t1912 * t21363 * t103;
4924   t21395 = t108 * t4889;
4925   t21398 = 0.34108413694860288000e2 * t21378 + 0.12740901913600e2 * t21307 + 0.9555676435200e1 * t21251 - 0.114668117222400e3 * t21277 + 0.9555676435200e1 * t21331 * t108 + 0.34108413694860288000e2 * t10371 * t5367 - 0.42833280e2 * t21388 + 0.64249920e2 * t21347 - 0.10708320e2 * t21316 - 0.14277760e2 * t21284 + 0.12740901913600e2 * t15091 * t1468 - 0.14277760e2 * t867 * t21395;
4926   t21407 = t6688 * t21363;
4927   t21408 = t21407 * t103;
4928   t21414 = t6461 * t21363;
4929   t21415 = t21414 * t103;
4930   t21418 = t1931 * t21265;
4931   t21421 = t6618 * t21265;
4932   t21424 = t21364 * t103;
4933   t21426 = -0.114668117222400e3 * t3485 * t5008 - 0.42833280e2 * t21266 * t108 + 0.64249920e2 * t1265 * t5008 - 0.10708320e2 * t21274 * t108 + 0.10145661348248508867e2 * t21408 - 0.68216827389720576000e2 * t21344 * t108 + 0.1784720e1 * t21375 * t108 - 0.68216827389720576000e2 * t21415 + 0.1784720e1 * t21360 + 0.114668117222400e3 * t21418 * t108 + 0.10145661348248508867e2 * t21421 * t108 + 0.114668117222400e3 * t21424;
4934   t21431 = t1306 * t1306;
4935   t21443 = 0.1428938704017162240e1 * t3428 * t3537 - 0.12751277419167548965e1 * t649 * t1273 * t4912 + 0.16596011335680e2 * t3453 * t4902 + 0.461000314880e0 * t251 * t21360 - 0.21968466899514280222e2 * t640 * t21364 * t645 - 0.76507664515005293789e1 * t10726 * t4902 + 0.89901964350980565762e0 * t1868 * t1286 * t4994 + 0.58783429053584738202e0 * t15567 * t4902 + 0.461000314880e0 * t21375 * t111 - 0.258304e0 * t106 * t259 * (t21398 + t21426) + 0.975074869248e0 * t106 * t668 * t21431 - 0.476312901339054080e0 * t649 * t4980 * t1277 + 0.76507664515005293790e1 * t21418 * t111 - 0.13606156761889987933e2 * t640 * t21407 * t645;
4936   t21469 = t379 * t1285;
4937   t21470 = t886 * t21469;
4938   t21480 = -0.17620679382074383663e2 * t251 * t21415 - 0.22762551443898437297e2 * t1888 * t21414 * t1893 + 0.45165298839047841173e-1 * t21421 * t111 - 0.2857877408034324480e1 * t15553 * t910 - 0.10122663238838101478e0 * t15584 * t910 + 0.21968466899514280222e2 * t640 * t3351 * t4943 - 0.15171639890357805325e1 * t649 * t4896 * t1277 - 0.45514919671073415977e1 * t3434 * t3407 - 0.91029839342146831954e1 * t880 * t15680 + 0.33758233860356468336e1 * t10405 * t3368 - 0.25502554838335097929e1 * t2531 * t21470 + 0.85008516127783659764e0 * t15698 * t887 - 0.23513371621433895280e1 * t15637 * t887 - 0.92817332546461565657e1 * t6767 * t21407 * t6768;
4939   t21513 = 0.20312390406477209506e2 * t1888 * t21407 * t1893 + 0.26206649088979828343e1 * t251 * t21408 - 0.476312901339054080e0 * t883 * t15042 + 0.39207562244901126197e2 * t640 * t21414 * t645 + 0.16044983381648203533e1 * t1868 * t1273 * t4994 + 0.29619233351014809600e2 * t251 * t21424 + 0.34978477943697927495e1 * t7859 * t15173 - 0.60248995135255396168e1 * t2499 * t15300 + 0.17980392870196113152e1 * t3372 * t886 * t15490 + 0.85008516127783659764e0 * t880 * t15677 + 0.51005109676670195860e1 * t880 * t15309 - 0.16879116930178234168e1 * t10164 * t3368 - 0.77812782197085049260e0 * t10286 * t3368 + 0.22757459835536707988e1 * t3431 * t3407;
4940   t21527 = t1293 * t1293;
4941   t21540 = t645 * t1293;
4942   t21550 = 0.12751277419167548965e1 * t3431 * t3404 + 0.58783429053584738202e0 * t3410 * t3404 + 0.10491196150051375396e1 * t3410 * t3407 + 0.27077129145119382320e1 * t880 * t15695 + 0.88103396910371918316e1 * t251 * t21378 - 0.476312901339054080e0 * t15100 * t910 + 0.23916119461575365556e1 * t106 * t6518 * t21527 + 0.41444833874132575653e0 * t3453 * t3387 + 0.89901964350980565762e0 * t3391 * t3387 - 0.476312901339054080e0 * t649 * t15597 * t886 - 0.11064007557120e2 * t251 * t21388 - 0.11900499994234945968e1 * t6646 * t1273 * t21540 - 0.2857877408034324480e1 * t649 * t4905 * t1277 - 0.37830285826747577588e1 * t1878 * t4936 * t4950;
4943   t21583 = t645 * t1306;
4944   t21587 = -0.19603781122450563098e2 * t640 * t3346 * t4943 + 0.33758233860356468337e1 * t1878 * t4896 * t4950 + 0.13174823849922618271e1 * t15109 * t910 - 0.13535064380111787705e1 * t883 * t15122 + 0.51005109676670195860e1 * t15293 * t887 + 0.51005109676670195860e1 * t3434 * t3395 + 0.18066119535619136469e0 * t15634 * t887 + 0.67516467720712936673e1 * t2499 * t15655 + 0.18915142913373788794e1 * t2517 * t1442 * t21469 + 0.2857877408034324480e1 * t2510 * t21470 - 0.18307055749595233518e1 * t640 * t21250 * t645 - 0.25502554838335097930e1 * t3431 * t3395 - 0.11756685810716947640e1 * t3410 * t3395 - 0.25502554838335097930e1 * t3434 * t3404 + 0.94575714566868943971e0 * t1878 * t1273 * t21583;
4945   t21591 = my_piecewise3(t96, 0, t21269 + t21310 + t21350 + t21443 + t21480 + t21513 + t21550 + t21587);
4946   t21592 = my_piecewise3(t95, 0, t21591);
4947   t21594 = t21223 * t113 + 0.6e1 * t1254 * t1312 + t94 * t21592 + 0.4e1 * t366 * t5032 + 0.4e1 * t4889 * t385;
4948   t21603 = t1314 * t1314;
4949   t21610 = t127 * t30 * t5079;
4950   t21613 = t1318 * t1318;
4951   t21615 = t50 * t21613 * t194;
4952   t21639 = -t50 * t21594 * t127 / 0.100e3 - t15735 * t1490 / 0.15e2 + t1315 * t1318 * t711 / 0.36e2 - 0.9e1 / 0.100e3 * t50 * t21603 * t1638 - t10952 * t5470 / 0.18e2 + t3586 * t21610 / 0.36e2 + 0.125e3 / 0.1458e4 * t21615 * t6926 - t1319 * t2050 * t21610 / 0.18e2 - 0.125e3 / 0.2187e4 * t21615 * t6930 + t280 * t21594 * t127 / 0.100e3 + t15763 * t1490 / 0.45e2 + 0.3e1 / 0.100e3 * t709 * t21603 * t127 + t10978 * t5470 / 0.108e3 + t2060 * t3655 * t21610 / 0.108e3 + 0.25e2 / 0.4374e4 * t6945 * t21613 * t6948;
4953   t21671 = t2115 * t21613;
4954   t21675 = t756 * t1318;
4955   t21698 = -params->c1 * t21594 * t140 - 0.40e2 / 0.9e1 * t15808 * t1511 - 0.350e3 / 0.81e2 * t11044 * t5508 - 0.6e1 * params->c1 * t21603 * t294 - 0.550e3 / 0.81e2 * t11027 * t730 * t30 * t5079 - 0.10000e5 / 0.729e3 * params->c1 * t21613 * t194 * t6980 - 0.50000e5 / 0.6561e4 * t975 * t21671 * t64 - 0.1000e4 / 0.27e2 * t975 * t21675 * t1314 - 0.20e2 / 0.9e1 * t975 * t730 * t13 * t32 * t21603 - 0.100e3 / 0.81e2 * t5078 * t4267 * t16 * t5034 - 0.100e3 / 0.81e2 * t293 * t1176 * t5034 * t391 - 0.10e2 / 0.9e1 * t483 * t1660 * t21603 - 0.5e1 / 0.9e1 * t483 * t484 * t21594;
4956   t21703 = t1349 * t1349;
4957   t21709 = t1351 * t1351;
4958   t21715 = t301 * t21675;
4959   t21716 = t55 * t1314;
4960   t21717 = t7016 * t21716;
4961   t21724 = t64 * t5101;
4962   t21731 = t754 * t11091;
4963   t21762 = -0.10000e5 / 0.729e3 * t301 * t21671 * t7017 - 0.50e2 / 0.9e1 * t21715 * t21717 - 0.5000e4 / 0.243e3 * t754 * t2130 * t21613 * t7017 - 0.50e2 / 0.9e1 * t21715 * t21724 - 0.6e1 * t301 * t730 * t21603 * t146 - 0.50e2 / 0.9e1 * t21731 * t21724 - 0.40e2 / 0.9e1 * t988 * t18 * t146 * t5034 - 0.50e2 / 0.9e1 * t21731 * t21717 - 0.5000e4 / 0.729e3 * t2128 * t7038 * t21613 * t7017 - t301 * t294 * t21594 * t146 - 0.20e2 / 0.9e1 * t15917 * t413 - 0.3e1 * t754 * t756 * t21603 * t146 - 0.25e2 / 0.27e2 * t11088 * t1355 - 0.25e2 / 0.27e2 * t2128 * t11095 * t21717 - 0.1250e4 / 0.2187e4 * t7056 * t7058 * t21613 * t7017;
4964   t21763 = my_piecewise3(t138, 0.6e1 * t1349 * t1351 * t144 + 0.4e1 * t5090 * t410 * t144 + t21698 * t144 + 0.3e1 * t21703 * t144 + t21709 * t144, t21762);
4965   t21766 = -0.24e2 * t6279 * t21131 * t149 + 0.36e2 * t1723 * t1214 * t1332 - 0.24e2 * t1723 * t4835 * t416 - 0.6e1 * t517 * t21141 * t149 + 0.24e2 * t517 * t1335 * t1332 - 0.8e1 * t517 * t402 * t5058 + 0.12e2 * t517 * t1213 * t1364 + t179 * (0.729e3 / 0.12800e5 * t541 * t1225 * t549 - 0.6561e4 / 0.256000e6 * t1758 * sigma[0] * t4853 * t1766 + 0.531441e6 / 0.40960000e8 * t6335 * t35 / t1760 * t45 + 0.6e1 * t21166 + 0.8e1 * t398 * t5055 + 0.2e1 * t130 * t21639) * t149 - 0.4e1 * t179 * t5058 * t416 - 0.6e1 * t179 * t1332 * t1364 - 0.4e1 * t179 * t401 * t5115 - t137 * t21763 + 0.1174e1 * t21763;
4966   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4967     v4sigma4[0] = 0.27831937500000000000e1 * t1373 * t5154 - 0.67956985205760591732e2 * t5 * t1372 * t5145 * t1392 - 0.25048743750000000000e2 * t14821 * t1379 + 0.27251765789225942561e0 * t2720 * t32 * t21091 * t5148 - 0.57490892889072416015e2 * t426 * t15942 * t10 * t158 * t326 * t166 - 0.10958825390625000000e3 * t7230 * t2155 * t3727 * t166 * t2157 * t30 * t154 - 0.17394960937500000000e1 * t426 * t327 * t154 * t5145 * t166 + 0.63709673630400554752e2 * t5 * t425 * t21091 * t1392 - 0.93932789062500000000e2 * t2713 * t2155 * t1388 * t5136 + 0.25048743750000000000e2 * t3698 * t5141 + 0.17330244833041936391e2 * t7085 / t1759 * t37 * t7103 + 0.34068677267598468749e2 * t1373 * t5163 - 0.3e1 / 0.16e2 * t174 * t175 * t21766 * t167 - 0.15655464843750000000e2 * t1019 * t18 * t5161 * t1378 - 0.12775753975349425781e2 * t426 * t5145 * t777 * t7103 + 0.12524371875000000000e3 * t9761 * t5137 - 0.17441130105104603239e0 * t9765 * t5149 - 0.27831937500000000000e1 * t5124 * t1384 + 0.33978492602880295866e2 * t5 * t5123 * t1388 * t1392 + 0.37109250000000000000e1 * t424 * t7 * t5118 * t430;
4968 
4969   t21830 = t16265 * t1408;
4970   t21849 = t21196 * t10;
4971   t21854 = t225 * t13;
4972   t21863 = -0.5e1 / 0.8e1 * t2799 * t16193 * t346 + 0.25e2 / 0.96e2 * t8603 * t16322 + 0.25e2 / 0.16e2 * t8609 * t16201 * t346 - 0.5e1 / 0.4e1 * t11329 * t5242 - 0.5e1 / 0.4e1 * t11332 * t5242 - 0.25e2 / 0.144e3 * t830 * t1813 * t5236 - 0.25e2 / 0.144e3 * t225 * t11493 * t5236 + 0.5e1 / 0.1152e4 * t11383 * t64 * t76 * t1236 - t3819 * t64 * t76 * t1251 / 0.576e3 + 0.25e2 / 0.93312e5 * t5234 * t194 * t18174 * t11476 + t3827 * t21830 / 0.972e3 - t16269 * t5223 / 0.288e3 + 0.5e1 / 0.6e1 * t830 * t3847 * t1416 + t16273 * t214 * t1408 / 0.972e3 + 0.9e1 / 0.4e1 * t2791 * t4870 - 0.5e1 / 0.1296e4 * t16129 * t5202 + 0.5e1 / 0.864e3 * t1055 * t3784 * t4454 * t363 + t21849 * t18174 * t224 * t226 / 0.629856e6 + t21854 * t21210 * t18174 * t88 / 0.629856e6 + 0.25e2 / 0.186624e6 * t5234 * t21196 * t10 * t18174;
4973   t21865 = t224 * t358 * t1056;
4974   t21871 = t830 * t1411;
4975   t21898 = t1828 * t445;
4976   t21917 = -t3827 * t21865 / 0.1458e4 - t830 * t64 * t5213 / 0.1458e4 + t21871 * t1420 / 0.432e3 - 0.45e2 / 0.4e1 * t2787 * t1056 * t4870 - 0.5e1 / 0.1296e4 * t16180 * t5202 + 0.5e1 / 0.4374e4 * t18106 * t1062 - 0.45e2 / 0.4e1 * t11439 * t5239 + 0.9e1 / 0.2e1 * t3790 * t5199 + 0.105e3 / 0.8e1 * t8530 * t1056 * t4867 - 0.45e2 / 0.4e1 * t11409 * t5239 + 0.5e1 / 0.4374e4 * t16132 * t340 * t231 * t445 + 0.9e1 / 0.2e1 * t3793 * t5199 + 0.9e1 * t16214 * t1408 + 0.125e3 / 0.648e3 * t3783 * t21898 * t4881 - t3263 * t11415 * t1236 / 0.1152e4 + t3263 * t3796 * t1251 / 0.1728e4 + 0.3e1 / 0.2e1 * t1055 * t1056 * t4886 - t16277 * t5223 / 0.288e3 - 0.15e2 / 0.8e1 * t8559 * t4867 - t1051 * t4886 / 0.2e1;
4977   t21918 = t21863 + t21917;
4978   t21940 = t371 * t1285;
4979   t21941 = t2867 * t21940;
4980   t21955 = t1293 * t371;
4981   t21956 = t1090 * t21955;
4982   t21965 = -0.16468529812403272839e0 * t1433 * t1308 - 0.119078225334763520e0 * t1087 * t15042 - 0.92817332546461565657e1 * t6767 * t8842 * t6768 * t4895 - 0.10151298285083840779e1 * t883 * t17220 - 0.98018905612252815489e1 * t4031 * t21941 + 0.12751277419167548965e1 * t1084 * t15309 + 0.12751277419167548965e1 * t15293 * t1091 - 0.11064007557120e2 * t9173 * t869 * t4916 + 0.32937059624806545678e0 * t3434 * t4097 + 0.25502554838335097929e1 * t3434 * t4100 - 0.89901964350980565762e0 * t7676 * t21956 + 0.44950982175490282881e0 * t3372 * t1090 * t15490 - 0.59502499971174729837e0 * t8090 * t2867 * t21955;
4983   t21986 = t4002 * t3403;
4984   t21993 = t379 * t1272;
4985   t21994 = t1090 * t21993;
4986   t22004 = 0.80224916908241017662e0 * t7745 * t21956 + 0.21252129031945914941e0 * t1080 * t4889 * t111 + 0.714469352008581120e0 * t3428 * t4075 - 0.2143408056025743360e1 * t3031 * t634 * t1258 * t379 - 0.63756387095837744824e0 * t649 * t11991 * t3394 + 0.45165298839047841173e-1 * t8695 * t4916 * t111 - 0.61023519165317445059e0 * t640 * t1094 * t21337 - 0.2766001889280e1 * t251 * t21986 - 0.10151298285083840779e1 * t9325 * t4995 - 0.89901964350980565762e0 * t2924 * t4991 - 0.2143408056025743360e1 * t2531 * t21994 + 0.32937059624806545678e0 * t15109 * t1113 - 0.32937059624806545678e0 * t880 * t16749 + 0.38253832257502646895e1 * t8934 * t17295 * t373;
4987   t22039 = 0.32937059624806545678e0 * t880 * t17106 - 0.37929099725894513314e0 * t649 * t9244 * t15308 + 0.56906378609746093243e1 * t1888 * t12297 * t5301 + 0.84395584650891170840e0 * t1878 * t9244 * t15299 - 0.33837660950279469264e0 * t1087 * t15122 + 0.32937059624806545678e0 * t1084 * t15415 - 0.58783429053584738202e0 * t3952 * t15431 + 0.20722416937066287826e0 * t1084 * t15359 - 0.357234676004290560e0 * t649 * t16777 * t886 + 0.44950982175490282881e0 * t4183 * t3387 + 0.975074869248e0 * t106 * t3872 * t1306 - 0.25306658097095253694e-1 * t15584 * t1113 - 0.357234676004290560e0 * t4183 * t3537 + 0.20722416937066287826e0 * t1433 * t1295;
4988   t22045 = t11850 * t3394;
4989   t22048 = t9028 * t15308;
4990   t22067 = t1090 * t21469;
4991   t22070 = t2867 * t21993;
4992   t22077 = -0.48997150734706182895e0 * t6799 * t9244 * t15172 - 0.119078225334763520e0 * t15100 * t1113 - 0.14809616675507404800e2 * t251 * t22045 - 0.17620679382074383663e2 * t251 * t22048 + 0.44950982175490282881e0 * t1087 * t15558 - 0.2202015477522235392e1 * t4124 * t16452 * t379 - 0.2766001889280e1 * t16771 * t1427 - 0.119078225334763520e0 * t649 * t454 * t103 * t5025 + 0.44950982175490282881e0 * t1868 * t1453 * t4994 - 0.32937059624806545678e0 * t5305 * t381 + 0.714469352008581120e0 * t2510 * t22067 - 0.28372714370060683191e1 * t8094 * t22070 + 0.89901964350980565762e0 * t12258 * t1278 - 0.357234676004290560e0 * t3391 * t4075;
4993   t22082 = -t253 * t21918 * t103;
4994   t22109 = t1306 * t371;
4995   t22118 = 0.461000314880e0 * t251 * t22082 + 0.41444833874132575653e0 * t10866 * t17034 + 0.63756387095837744823e0 * t3981 * t1254 * t111 - 0.16468529812403272839e0 * t880 * t16752 + 0.21799717097663792992e0 * t2499 * t17299 - 0.29391714526792369101e0 * t880 * t17302 - 0.16468529812403272839e0 * t3431 * t3972 + 0.39207562244901126197e2 * t640 * t9028 * t15299 - 0.33837660950279469264e0 * t6651 * t454 * t21280 - 0.22762551443898437297e2 * t1888 * t9028 * t15172 + 0.89901964350980565762e0 * t883 * t17205 + 0.47287857283434471985e0 * t2517 * t2867 * t22109 + 0.94575714566868943972e0 * t2517 * t5767 * t5320 - 0.12751277419167548965e1 * t3904 * t3395;
4996   t22129 = t3964 * t3403;
4997   t22145 = t2953 * t15308;
4998   t22153 = 0.16879116930178234168e1 * t3043 * t15655 - 0.22757459835536707989e1 * t1084 * t15680 - 0.12751277419167548965e1 * t3434 * t4057 - 0.58783429053584738202e0 * t15637 * t1091 + 0.10984233449757140111e2 * t4021 * t21941 - 0.14809616675507404800e2 * t4044 * t22129 - 0.14699145220411854869e1 * t8214 * t4027 * t21993 + 0.56906378609746093242e1 * t4026 * t4027 * t21940 + 0.47287857283434471984e0 * t4068 * t4944 + 0.8298005667840e1 * t12233 * t5253 + 0.20312390406477209506e2 * t1888 * t8842 * t15172 - 0.11064007557120e2 * t251 * t22145 + 0.44950982175490282881e0 * t883 * t17351 - 0.119078225334763520e0 * t649 * t1116 * t15676;
4999   t22159 = t3394 * t366;
5000   t22167 = t1254 * t366;
5001   t22171 = t4089 * t3403;
5002   t22175 = t634 * t461 * t1254;
5003   t22182 = t1101 * t15676;
5004   t22195 = 0.16879116930178234168e1 * t9300 * t2012 * t3367 * t366 - 0.22757459835536707989e1 * t3053 * t2012 * t22159 + 0.714469352008581120e0 * t3469 * t5757 + 0.20722416937066287826e0 * t3453 * t3892 + 0.8298005667840e1 * t3031 * t869 * t22167 + 0.2468269445917900800e1 * t251 * t22171 - 0.16468529812403272839e0 * t2546 * t22175 + 0.1428938704017162240e1 * t3999 * t5294 - 0.16468529812403272839e0 * t5311 * t381 - 0.922000629760e0 * t251 * t22182 - 0.714469352008581120e0 * t649 * t2995 * t15308 - 0.84395584650891170841e0 * t3043 * t15340 + 0.11378729917768353994e1 * t1084 * t15478 - 0.357234676004290560e0 * t649 * t1453 * t4912;
5005   t22196 = t12297 * t3394;
5006   t22199 = t8842 * t15308;
5007   t22226 = t1277 * t366;
5008   t22232 = 0.44051698455185959158e1 * t251 * t22196 + 0.26206649088979828343e1 * t251 * t22199 + 0.20722416937066287826e0 * t880 * t17110 - 0.2766001889280e1 * t3999 * t4902 - 0.2202015477522235392e1 * t106 * t12664 * t1293 + 0.10984233449757140111e2 * t640 * t11850 * t3367 - 0.12751277419167548965e1 * t3053 * t15329 * t373 - 0.16468529812403272839e0 * t3431 * t4097 - 0.32937059624806545678e0 * t880 * t17233 - 0.16468529812403272839e0 * t880 * t17332 + 0.76507664515005293790e1 * t2946 * t4916 * t111 - 0.15183994858257152217e0 * t12017 * t3358 + 0.65874119249613091356e0 * t8858 * t372 * t22226 + 0.32937059624806545678e0 * t3434 * t3972;
5009   t22265 = -0.25502554838335097930e1 * t12523 * t5407 + 0.29391714526792369101e0 * t16385 * t3461 + 0.29391714526792369101e0 * t3952 * t15485 + 0.13549589651714352352e0 * t16389 * t3461 - 0.38906391098542524630e0 * t3952 * t15370 + 0.52455980750256876982e0 * t3952 * t15353 - 0.32937059624806545678e0 * t3904 * t3358 - 0.16468529812403272839e0 * t1084 * t15402 - 0.16468529812403272839e0 * t1084 * t15346 + 0.21799717097663792993e0 * t3043 * t15406 - 0.29391714526792369101e0 * t1084 * t15350 + 0.25502554838335097929e1 * t3053 * t1970 * t22159 + 0.20307846858839536740e1 * t880 * t16755 + 0.58783429053584738202e0 * t16392 * t3461;
5010   t22269 = t4056 * t5320;
5011   t22272 = t1090 * t22109;
5012   t22275 = t16561 * t886;
5013   t22301 = t22167 * t108;
5014   t22313 = t16978 * t886;
5015   t22317 = t1094 * t15676;
5016   t22331 = 0.17054206847430144000e2 * t2855 * t15078 + 0.17054206847430144000e2 * t2946 * t22301 + 0.32124960e2 * t1080 * t22301 + 0.32124960e2 * t1094 * t15078 - 0.57334058611200e2 * t2876 * t22301 - 0.57334058611200e2 * t2953 * t15078 + 0.1784720e1 * t22082 + 0.9555676435200e1 * t22313 + 0.9555676435200e1 * t22171 + 0.17054206847430144000e2 * t22196 + 0.3185225478400e1 * t22317 + 0.17054206847430144000e2 * t12061 * t5367 + 0.3185225478400e1 * t1080 * t21395 + 0.9555676435200e1 * t16959 * t1468 + 0.9555676435200e1 * t3981 * t5008 - 0.3569440e1 * t1073 * t21395 - 0.10708320e2 * t16770 * t1468;
5017   t22336 = t4916 * t108;
5018   t22348 = t4089 * t3394;
5019   t22350 = t2855 * t15308;
5020   t22358 = t245 * t21918;
5021   t22361 = -0.10708320e2 * t3998 * t5008 - 0.57334058611200e2 * t12374 * t5367 - 0.68216827389720576000e2 * t8838 * t22336 - 0.10708320e2 * t22275 + 0.32124960e2 * t3981 * t5367 + 0.114668117222400e3 * t2946 * t22336 - 0.3569440e1 * t22182 - 0.42833280e2 * t22145 + 0.10145661348248508867e2 * t8695 * t22336 + 0.32124960e2 * t22348 + 0.114668117222400e3 * t22350 + 0.10145661348248508867e2 * t22199 - 0.10708320e2 * t21986 - 0.57334058611200e2 * t22045 - 0.68216827389720576000e2 * t22048 - 0.42833280e2 * t2876 * t22336 + 0.1784720e1 * t22358 * t108;
5022   t22366 = -0.38253832257502646895e1 * t12374 * t1258 * t111 + 0.1428938704017162240e1 * t2510 * t22269 + 0.714469352008581120e0 * t2510 * t22272 - 0.2766001889280e1 * t251 * t22275 - 0.11756685810716947640e1 * t8838 * t4916 * t111 - 0.89901964350980565762e0 * t1074 * t1854 * t1293 * t366 - 0.75919974291285761083e-1 * t3410 * t4097 - 0.12751277419167548965e1 * t3431 * t4100 - 0.25502554838335097929e1 * t880 * t17461 - 0.12751277419167548965e1 * t880 * t17464 - 0.58783429053584738202e0 * t3410 * t4100 + 0.50637350790534702506e1 * t2499 * t17542 - 0.68272379506610123966e1 * t880 * t17454 - 0.258304e0 * t106 * t259 * (t22331 + t22361);
5023   t22397 = 0.63756387095837744823e0 * t880 * t16661 + 0.21252129031945914941e0 * t15698 * t1091 + 0.63756387095837744823e0 * t3431 * t4057 + 0.44051698455185959158e1 * t4062 * t22129 + 0.47287857283434471986e0 * t2517 * t2867 * t21469 + 0.29391714526792369101e0 * t3410 * t4057 + 0.45165298839047841173e-1 * t15634 * t1091 + 0.63756387095837744823e0 * t17211 * t887 + 0.25318675395267351252e1 * t8047 * t22070 - 0.11378729917768353994e1 * t7654 * t21994 + 0.8298005667840e1 * t4012 * t22129 + 0.98811178874419637035e0 * t5256 * t381 - 0.357234676004290560e0 * t17382 * t910 + 0.63756387095837744823e0 * t3904 * t3404;
5024   t22426 = -0.84395584650891170840e0 * t12504 * t3368 + 0.11378729917768353994e1 * t3904 * t3407 + 0.21252129031945914941e0 * t1084 * t15677 + 0.87446194859244818739e0 * t9116 * t15173 - 0.15062248783813849042e1 * t3043 * t15300 + 0.67692822862798455802e0 * t1084 * t15695 + 0.44950982175490282881e0 * t2924 * t4947 + 0.44950982175490282881e0 * t2924 * t4913 - 0.59502499971174729836e0 * t9360 * t4951 + 0.80224916908241017663e0 * t2924 * t4909 + 0.714469352008581120e0 * t4065 * t5003 + 0.38253832257502646895e1 * t8078 * t21994 - 0.12751277419167548965e1 * t2531 * t22269 - 0.63756387095837744823e0 * t2531 * t22067;
5025   t22465 = -0.63756387095837744823e0 * t2531 * t22272 - 0.63756387095837744823e0 * t4065 * t4957 - 0.357234676004290560e0 * t649 * t4118 * t3403 - 0.357234676004290560e0 * t883 * t17566 + 0.29391714526792369101e0 * t15186 * t3942 + 0.714469352008581120e0 * t1074 * t634 * t1306 * t366 - 0.18307055749595233518e1 * t640 * t4089 * t4943 - 0.75919974291285761083e-1 * t5266 * t381 + 0.29391714526792369101e0 * t3955 * t106 * t15329 + 0.714469352008581120e0 * t649 * t12042 * t3394 + 0.2468269445917900800e1 * t251 * t22313 - 0.18307055749595233518e1 * t640 * t16978 * t1442 + 0.47287857283434471985e0 * t1878 * t11991 * t3367 - 0.12751277419167548965e1 * t1084 * t15079;
5026   t22467 = t628 * t1090 * t1254;
5027   t22501 = -0.12751277419167548965e1 * t2437 * t22467 - 0.357234676004290560e0 * t649 * t5348 * t1277 + 0.65874119249613091356e0 * t10018 * t17037 - 0.58783429053584738202e0 * t10018 * t17041 + 0.822756481972633600e0 * t251 * t22317 + 0.63756387095837744823e0 * t16959 * t366 * t111 + 0.975074869248e0 * t106 * t16656 * t379 + 0.43599434195327585985e0 * t10809 * t16634 + 0.461000314880e0 * t22358 * t111 - 0.16468529812403272839e0 * t3453 * t4075 + 0.38253832257502646895e1 * t880 * t16422 + 0.29391714526792369101e0 * t12061 * t1258 * t111 - 0.922000629760e0 * t1074 * t869 * t4889 + 0.44950982175490282881e0 * t3391 * t3892;
5028   t22538 = 0.23916119461575365556e1 * t106 * t9042 * t4987 + 0.714469352008581120e0 * t1074 * t21302 - 0.714469352008581120e0 * t15553 * t1113 + 0.8298005667840e1 * t251 * t22348 - 0.21968466899514280222e2 * t640 * t2855 * t15299 + 0.325024956416e0 * t106 * t1120 * t5025 - 0.89901964350980565762e0 * t3428 * t3892 - 0.38253832257502646894e1 * t17156 * t4140 - 0.94575714566868943969e0 * t1878 * t9181 * t15299 - 0.98018905612252815491e1 * t640 * t12297 * t3367 - 0.13606156761889987933e2 * t640 * t8842 * t15299 + 0.12751277419167548965e1 * t649 * t9181 * t15308 + 0.29619233351014809600e2 * t251 * t22350 - 0.84395584650891170841e0 * t10164 * t3978;
5029   t22569 = -0.16879116930178234169e1 * t2499 * t16396 - 0.84395584650891170841e0 * t2499 * t16400 - 0.38906391098542524630e0 * t10286 * t3978 + 0.26233858457773445622e1 * t7859 * t17471 - 0.75919974291285761083e-1 * t3410 * t3972 + 0.16879116930178234168e1 * t10405 * t3978 - 0.22757459835536707989e1 * t3434 * t3966 - 0.17635028716075421460e1 * t17292 * t3461 - 0.45186746351441547127e1 * t2499 * t17475 + 0.11378729917768353994e1 * t3431 * t3966 + 0.22757459835536707989e1 * t880 * t17186 + 0.11378729917768353994e1 * t880 * t17451 + 0.52455980750256876982e0 * t3410 * t3966 - 0.12751277419167548965e1 * t3053 * t628 * t3403 * t366;
5030   t22574 = my_piecewise3(t96, 0, t21965 + t22004 + t22039 + t22077 + t22118 + t22153 + t22195 + t22232 + t22265 + t22366 + t22397 + t22426 + t22465 + t22501 + t22538 + t22569);
5031   t22575 = my_piecewise3(t95, 0, t22574);
5032   t22577 = t21918 * t113 + 0.3e1 * t1254 * t1484 + 0.3e1 * t1423 * t1312 + t94 * t22575 + 0.3e1 * t366 * t5455 + 0.3e1 * t5245 * t385 + t448 * t5032 + t4889 * t467;
5033   t22597 = t1486 * t1314;
5034   t22602 = t469 * t5040;
5035   t22606 = -t22577;
5036   t22616 = t469 * t5034;
5037   t22628 = 0.10e2 / 0.3e1 * t483 * t1660 * t22597 + t5067 * t490 + 0.10000e5 / 0.729e3 * t8260 * t22602 * t18 + 0.5e1 / 0.9e1 * t483 * t484 * t22606 - 0.10e2 / 0.3e1 * t3139 * t412 * t17 * t1314 + 0.20e2 / 0.3e1 * t11044 * t5927 + 0.10e2 / 0.9e1 * t483 * t1660 * t22616 + 0.5e1 / 0.3e1 * t1514 * t5528 - t481 * t5107 + 0.500e3 / 0.27e2 * t975 * t4331 * t1318 + 0.500e3 / 0.27e2 * t5071 * t9398;
5038   t22647 = t22602 * t7016;
5039   t22650 = t22616 * t146;
5040   t22652 = t22597 * t146;
5041   t22655 = t5083 * t11080;
5042   t22685 = 0.250e3 / 0.243e3 * t9488 * t22647 + t757 * t22650 + 0.3e1 * t757 * t22652 + 0.5e1 / 0.3e1 * t3202 * t22655 + 0.1000e4 / 0.81e2 * t9492 * t22647 + 0.25e2 / 0.27e2 * t12988 * t1355 + 0.10e2 / 0.3e1 * t17697 * t413 + 0.50e2 / 0.9e1 * t12999 * t1355 + 0.6e1 * t743 * t22652 + t301 * t294 * t22606 * t146 + 0.50e2 / 0.9e1 * t12995 * t1355 + 0.2e1 * t743 * t22650 + 0.5e1 / 0.3e1 * t17701 * t413 + 0.10e2 * t3187 * t22655 + 0.10e2 * t3179 * t22655 + 0.2000e4 / 0.81e2 * t9509 * t22647 + 0.1000e4 / 0.27e2 * t9512 * t22647;
5043   t22686 = my_piecewise3(t138, (0.100e3 / 0.27e2 * t2632 * t1517 * t21716 - 0.50e2 / 0.27e2 * t12853 * t5508 - 0.5e1 / 0.3e1 * t16091 * t1511 - params->c1 * t22577 * t140 + 0.50e2 / 0.27e2 * t14449 * t1196 * t5083 + 0.3e1 * t1338 * t1531 + 0.50e2 / 0.27e2 * t293 * t1176 * t5457 * t391 - 0.500e3 / 0.81e2 * t481 * t5074 * t194 + 0.100e3 / 0.27e2 * t5513 * t12884 - 0.3e1 * t1509 * t1358 + t22628) * t144 + 0.3e1 * t5531 * t410 * t144 + 0.3e1 * t1524 * t1349 * t144 + 0.3e1 * t1524 * t1351 * t144 + t488 * t5090 * t144 + 0.3e1 * t5536 * t411 + t488 * t5095 * t144, t22685);
5044   t22764 = -0.5e1 / 0.486e3 * t9548 * t5052 - t17809 * t1490 / 0.60e2 - t709 * t22616 * t127 / 0.100e3 + 0.3e1 / 0.100e3 * t470 * t123 * t5034 * t127 + t13053 * t5470 / 0.18e2 - t1487 * t1318 * t711 / 0.36e2 - t280 * t22606 * t127 / 0.100e3 + t17825 * t1490 / 0.20e2 - t17804 * t1490 / 0.60e2 - t13058 * t5470 / 0.108e3 - 0.25e2 / 0.162e3 * t470 * t5040 * t9582 + 0.25e2 / 0.243e3 * t1153 * t5052 + t17815 * t1490 / 0.10e2 - 0.3e1 / 0.100e3 * t709 * t22597 * t127 + 0.9e1 / 0.100e3 * t1487 * t5467 + t50 * t22606 * t127 / 0.100e3 - t17801 * t17822 / 0.20e2;
5045   t22777 = 0.1174e1 * t22686 - 0.6e1 * t179 * t5180 * t416 - 0.12e2 * t1037 * t3763 * t1332 - 0.6e1 * t179 * t5485 * t416 + 0.6e1 * t517 * t1213 * t1537 + 0.36e2 * t2748 * t1038 * t401 * t1332 - 0.6e1 * t1723 * t4835 * t493 - 0.36e2 * t2748 * t4237 * t1213 + 0.36e2 * t11230 * t5166 + 0.2e1 * t179 * t5055 * t475 * t149 - 0.48e2 * t9660 * t1038 * t4835 + 0.24e2 * t1037 * t17739 * t401 + 0.2e1 * t179 * t130 * t22764 * t149 + 0.36e2 * t2748 * t3763 * t1213 - 0.3e1 * t179 * t1332 * t1537 - t179 * t5058 * t493;
5046   t22825 = -0.2e1 * t179 * t476 * t5115 - 0.4e1 * t1037 * t1038 * t5058 - 0.12e2 * t3749 * t5177 - 0.3e1 * t179 * t401 * t5559 - 0.12e2 * t179 * t5184 * t416 - 0.6e1 * t179 * t1499 * t1364 + 0.6e1 * t179 * t398 * t5484 * t149 - 0.12e2 * t17884 * t1395 - 0.6e1 * t179 * t1398 * t1364 + 0.12e2 * t1037 * t17872 * t401 + 0.6e1 * t517 * t1506 * t1332 + 0.24e2 * t3749 * t5174 + 0.6e1 * t179 * t1329 * t1498 * t149 + 0.12e2 * t1037 * t4237 * t1332 - t137 * t22686 - 0.24e2 * t3749 * t5171 - 0.12e2 * t1037 * t17762 * t401;
5047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5048     v4sigma3lapl[0] = -0.3e1 / 0.16e2 * t174 * t175 * (t22777 + t22825) * t167 + 0.27831937500000000000e1 * t424 * t7 * t5562 * t430 - 0.12524371875000000000e2 * t17920 * t1379 - 0.13915968750000000000e1 * t5568 * t1384 + 0.16989246301440147933e2 * t5 * t5567 * t1388 * t1392 + 0.31310929687500000000e2 * t13269 * t5137 + 0.62621859375000000000e1 * t4360 * t5141 - 0.43602825262761508097e-1 * t13273 * t5149 + 0.69579843750000000000e0 * t1546 * t5154 - 0.16989246301440147934e2 * t5 * t1545 * t5145 * t1392 + 0.85171693168996171873e1 * t1546 * t5163;
5049 
5050   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5051     v4sigma3tau[0] = 0.0e0;
5052 
5053   t22857 = t5595 * t401;
5054   t22872 = t1486 * t1486;
5055   t22881 = t1632 * t1314;
5056   t22885 = t1636 * t1314;
5057   t22920 = 0.5e1 / 0.324e3 * t4430 * t21898 * t13347 - t3263 * t3264 * t1567 / 0.4374e4 - 0.15e2 * t18079 * t5622 + 0.12e2 * t3790 * t5625 + 0.3e1 * t4405 * t5199 - 0.5e1 / 0.1944e4 * t18219 * t5202 + 0.5e1 / 0.2187e4 * t16180 * t5656 - 0.15e2 / 0.2e1 * t13438 * t5239 - 0.5e1 / 0.6e1 * t13482 * t5242 + 0.25e2 / 0.6e1 * t13485 * t5242 + 0.5e1 / 0.432e3 * t18162 * t5223 + t1420 * t21865 / 0.648e3 - t1051 * t64 * t5213 / 0.2187e4;
5058   t22921 = t1051 * t1411;
5059   t22925 = t577 * t85 * t4418;
5060   t22929 = 0.1e1 / t21 / t197;
5061   t22934 = t830 * t1056;
5062   t22959 = t22921 * t1420 / 0.648e3 + t3827 * t22925 / 0.1458e4 + t5633 * t21196 * t10 * t22929 / 0.186624e6 + t22934 * t1420 / 0.648e3 + 0.5e1 / 0.18e2 * t18265 * t334 - 0.25e2 / 0.432e3 * t13461 * t3827 - t21871 * t1569 / 0.729e3 - t1420 * t21830 / 0.432e3 - t3263 * t4399 * t1251 / 0.2916e4 - 0.5e1 / 0.1944e4 * t19987 * t1062 + 0.105e3 / 0.4e1 * t13453 * t4418 * t1236 - 0.5e1 / 0.1944e4 * t11383 * t64 * t1557 * t1236 - t18245 * t5223 / 0.432e3;
5063   t22999 = 0.5e1 / 0.9e1 * t1051 * t3847 * t1416 - 0.25e2 / 0.216e3 * t1051 * t1813 * t5236 + t16277 * t5650 / 0.486e3 + t3819 * t64 * t1557 * t1251 / 0.972e3 - 0.25e2 / 0.104976e6 * t5234 * t194 * t22929 * t11476 - 0.15e2 / 0.4e1 * t1800 * t1567 * t1236 - 0.371e3 / 0.136048896e9 * t21854 * t21210 * t22929 * t88 - 0.5e1 / 0.1944e4 * t18212 * t5202 + 0.5e1 / 0.2187e4 * t16129 * t5656 + 0.6e1 * t18084 * t1408 - 0.10e2 / 0.3e1 * t13489 * t841 * t346 - t8603 * t2269 * t5634 / 0.108e3 - 0.15e2 / 0.2e1 * t4417 * t4418 * t1251;
5064   t23028 = t2241 * t595;
5065   t23031 = t578 * t1813;
5066   t23032 = t1563 * t30;
5067   t23033 = t23032 * t1246;
5068   t23043 = -0.307e3 / 0.68024448e8 * t21849 * t22929 * t224 * t226 - 0.30e2 * t2787 * t4418 * t363 * t358 - 0.5e1 / 0.1458e4 * t1055 * t3784 * t5655 * t363 + t3263 * t13361 * t1236 / 0.1944e4 + 0.3e1 / 0.2e1 * t578 * t1567 * t1251 + 0.3e1 * t2241 * t5639 + 0.6e1 * t578 * t9926 * t1563 + t16269 * t5650 / 0.486e3 - 0.5e1 / 0.3e1 * t2241 * t1829 * t5630 - t23028 * t5635 / 0.216e3 + t23031 * t23033 / 0.729e3 + 0.125e3 / 0.216e3 * t578 * t6428 * t23033 - t18225 * t5223 / 0.432e3 - 0.5e1 / 0.12e2 * t18228 * t5242;
5069   t23045 = t22920 + t22959 + t22999 + t23043;
5070   t23059 = t18306 * t373;
5071   t23091 = t886 * t366;
5072   t23100 = 0.39188952702389825468e0 * t8934 * t23059 - 0.50613316194190507388e-1 * t4640 * t3358 + 0.90330597678095682346e-1 * t19240 * t3461 - 0.10979019874935515226e0 * t4637 * t3358 + 0.19594476351194912734e0 * t18325 * t3461 + 0.21958039749871030452e0 * t4493 * t3358 + 0.43916079499742060904e0 * t8858 * t5756 * t373 + 0.27629889249421717102e0 * t12624 * t17034 - 0.10122663238838101478e0 * t12017 * t4097 - 0.78377905404779650936e0 * t12017 * t4100 - 0.51875188131390032840e0 * t16704 * t3978 + 0.69941307667009169309e0 * t12017 * t3966 + 0.22505489240237645558e1 * t12501 * t1094 * t1442 * t366 + 0.29066289463551723990e0 * t12032 * t16634 - 0.30343279780715610650e1 * t11828 * t1094 * t23091 - 0.39188952702389825468e0 * t12027 * t17041 + 0.43916079499742060904e0 * t8858 * t454 * t22226;
5073   t23119 = t1478 * t1478;
5074   t23131 = t4574 * t3394;
5075   t23139 = t1090 * t16460;
5076   t23142 = t4608 * t5320;
5077   t23145 = t1603 * t371;
5078   t23146 = t23145 * t1277;
5079   t23149 = 0.34003406451113463906e1 * t11828 * t1101 * t23091 - 0.11756685810716947640e1 * t19228 * t3461 - 0.85008516127783659765e0 * t13965 * t5407 + 0.25502554838335097930e1 * t4640 * t5407 - 0.17001703225556731953e1 * t3053 * t23059 - 0.119078225334763520e0 * t3391 * t4500 + 0.45165298839047841173e-1 * t13786 * t1258 * t111 + 0.2766001889280e1 * t4476 * t4902 + 0.650049912832e0 * t106 * t668 * t23119 + 0.15762619094478157328e0 * t1878 * t13838 * t3367 - 0.10979019874935515226e0 * t5311 * t463 + 0.36614111499190467036e1 * t640 * t4562 * t4943 + 0.29619233351014809600e2 * t251 * t23131 + 0.238156450669527040e0 * t3428 * t4500 - 0.12751277419167548965e1 * t4482 * t1254 * t111 - 0.19746155567343206400e2 * t4044 * t23139 - 0.1428938704017162240e1 * t2531 * t23142 - 0.42504258063891829882e0 * t2531 * t23146;
5080   t23155 = t1452 * t379;
5081   t23156 = t1090 * t23155;
5082   t23181 = t1591 * t3403;
5083   t23184 = t18416 * t886;
5084   t23190 = t1452 * t1452;
5085   t23191 = t642 * t23190;
5086   t23192 = t23191 * t103;
5087   t23197 = 0.476312901339054080e0 * t2510 * t23146 + 0.58735597940247945544e1 * t4062 * t23139 + 0.952625802678108160e0 * t2510 * t23156 + 0.11064007557120e2 * t4012 * t23139 - 0.75858199451789026628e0 * t7654 * t23142 + 0.42504258063891829882e0 * t17211 * t1091 + 0.85008516127783659764e0 * t3904 * t4057 + 0.97972381755974563669e-1 * t3410 * t4616 + 0.37929099725894513314e0 * t3431 * t4609 + 0.17485326916752292327e0 * t3410 * t4609 + 0.31525238188956314657e0 * t2517 * t6116 * t5320 - 0.21968466899514280222e2 * t640 * t4574 * t3367 + 0.238156450669527040e0 * t4479 * t3537 + 0.2766001889280e1 * t251 * t23181 - 0.1844001259520e1 * t251 * t23184 - 0.238156450669527040e0 * t649 * t5689 * t1277 + 0.1645512963945267200e1 * t251 * t23192 + 0.65874119249613091357e0 * t13681 * t5294;
5088   t23203 = t13731 * t3394;
5089   t23228 = t4569 * t3403;
5090   t23231 = t13718 * t3394;
5091   t23240 = -0.21958039749871030452e0 * t880 * t18618 + 0.97972381755974563669e-1 * t13760 * t1258 * t111 - 0.4936538891835801600e1 * t251 * t23203 + 0.36614111499190467036e1 * t640 * t13731 * t3367 + 0.42504258063891829882e0 * t18843 * t887 - 0.67675321900558938528e0 * t1087 * t17220 - 0.238156450669527040e0 * t17382 * t1113 + 0.29066289463551723990e0 * t10809 * t19162 - 0.39188952702389825468e0 * t10018 * t19165 + 0.27629889249421717102e0 * t10866 * t19154 + 0.43916079499742060904e0 * t10018 * t19158 - 0.21958039749871030452e0 * t3904 * t4097 - 0.476312901339054080e0 * t649 * t1453 * t5720 + 0.822756481972633600e0 * t251 * t23228 + 0.14683899485061986386e1 * t251 * t23231 - 0.50613316194190507389e-1 * t5266 * t463 + 0.25502554838335097929e1 * t8078 * t23142 - 0.85008516127783659765e0 * t2531 * t23156;
5092   t23266 = t634 * t1423 * t379;
5093   t23285 = t13822 * t3394;
5094   t23288 = 0.56263723100594113894e0 * t13906 * t3368 - 0.75858199451789026629e0 * t4493 * t3407 + 0.21252129031945914941e0 * t4637 * t3404 + 0.42504258063891829882e0 * t880 * t18569 - 0.61023519165317445059e0 * t640 * t4569 * t4943 + 0.59934642900653710508e0 * t2924 * t5308 - 0.67675321900558938528e0 * t14314 * t1278 + 0.69074723123554292753e-1 * t4476 * t3387 + 0.14983660725163427627e0 * t4581 * t3387 + 0.650049912832e0 * t106 * t1120 * t5394 - 0.21958039749871030452e0 * t3031 * t23266 - 0.11064007557120e2 * t13681 * t5253 + 0.238156450669527040e0 * t649 * t1599 * t4912 - 0.734005159174078464e0 * t106 * t14297 * t1293 + 0.29967321450326855254e0 * t1087 * t17351 + 0.238156450669527040e0 * t649 * t14266 * t3394 + 0.14983660725163427627e0 * t1868 * t4683 * t3403 + 0.26206649088979828343e1 * t251 * t23285;
5095   t23316 = t1478 * t371;
5096   t23317 = t1090 * t23316;
5097   t23320 = t461 * t1285;
5098   t23321 = t1090 * t23320;
5099   t23324 = t461 * t1272;
5100   t23325 = t2867 * t23324;
5101   t23329 = t453 * t1272 * t1595;
5102   t23341 = -0.21252129031945914941e0 * t649 * t13838 * t3394 + 0.85008516127783659766e0 * t4493 * t3395 + 0.26741638969413672554e0 * t1868 * t1591 * t4994 - 0.238156450669527040e0 * t18303 * t910 + 0.14983660725163427627e0 * t1868 * t1604 * t4994 - 0.10122663238838101478e0 * t12017 * t3972 - 0.29967321450326855254e0 * t4479 * t3387 + 0.59934642900653710508e0 * t3372 * t1090 * t16446 + 0.29967321450326855254e0 * t3372 * t1090 * t16452 + 0.42504258063891829882e0 * t1084 * t16661 - 0.28131861550297056947e0 * t10164 * t4620 + 0.952625802678108160e0 * t2510 * t23317 + 0.476312901339054080e0 * t2510 * t23321 - 0.18915142913373788794e1 * t8094 * t23325 + 0.25502554838335097930e1 * t8078 * t23329 + 0.63050476377912629314e0 * t2517 * t5767 * t5793 + 0.63050476377912629314e0 * t2517 * t2867 * t23316 + 0.31525238188956314657e0 * t2517 * t2867 * t23320;
5103   t23350 = t16460 * t1595;
5104   t23375 = t1423 * t1423;
5105   t23376 = t623 * t23375;
5106   t23388 = -0.12968797032847508210e0 * t10286 * t4620 + 0.59934642900653710508e0 * t3372 * t4056 * t3891 + 0.16879116930178234168e1 * t8047 * t23325 - 0.85008516127783659766e0 * t2531 * t23350 - 0.42504258063891829883e0 * t2531 * t23321 - 0.85008516127783659766e0 * t2531 * t23317 - 0.75858199451789026629e0 * t7654 * t23329 - 0.42504258063891829883e0 * t4493 * t3404 + 0.952625802678108160e0 * t2510 * t23350 + 0.650049912832e0 * t106 * t19467 * t379 + 0.39188952702389825468e0 * t3952 * t17310 - 0.11252744620118822779e1 * t3043 * t16396 + 0.56263723100594113894e0 * t10405 * t4620 - 0.67675321900558938528e0 * t10277 * t1090 * t16866 + 0.42504258063891829882e0 * t23376 * t111 - 0.12204703833063489012e1 * t640 * t18421 * t1442 - 0.97994301469412365794e0 * t8214 * t4027 * t23324 + 0.18968792869915364414e1 * t1888 * t4574 * t21257;
5107   t23393 = t869 * t366 * t1423;
5108   t23400 = t18421 * t886;
5109   t23420 = t4565 * t3403;
5110   t23437 = -0.19834166657058243280e0 * t6646 * t1591 * t21540 + 0.11064007557120e2 * t3031 * t23393 + 0.952625802678108160e0 * t1074 * t634 * t1478 * t366 + 0.1645512963945267200e1 * t251 * t23400 + 0.325024956416e0 * t106 * t4645 * t1306 - 0.21958039749871030452e0 * t5305 * t463 - 0.17001703225556731953e1 * t3904 * t4100 + 0.39188952702389825468e0 * t16392 * t3942 - 0.11252744620118822779e1 * t12504 * t3978 - 0.19834166657058243279e0 * t6646 * t14217 * t3367 + 0.26741638969413672554e0 * t1868 * t14217 * t3394 - 0.922000629760e0 * t251 * t23420 - 0.45514919671073415976e1 * t1084 * t17454 + 0.21958039749871030452e0 * t1084 * t17106 + 0.21958039749871030452e0 * t3434 * t4519 + 0.25502554838335097929e1 * t8934 * t628 * t1090 * t1258 + 0.13814944624710858551e0 * t1084 * t17110 - 0.85008516127783659764e0 * t1084 * t17464;
5111   t23463 = t13752 * t3394;
5112   t23466 = t245 * t23045;
5113   t23480 = -0.10979019874935515226e0 * t1084 * t16752 + 0.14533144731775861995e0 * t3043 * t17299 - 0.19594476351194912734e0 * t1084 * t17302 - 0.10979019874935515226e0 * t3431 * t4519 - 0.10979019874935515226e0 * t5825 * t381 + 0.69074723123554292755e-1 * t3453 * t4593 + 0.29967321450326855254e0 * t13920 * t1278 - 0.54895099374677576130e-1 * t3453 * t4500 - 0.32672968537417605163e1 * t640 * t13718 * t3367 + 0.18968792869915364414e1 * t1888 * t13718 * t5301 - 0.17620679382074383663e2 * t251 * t23463 + 0.461000314880e0 * t23466 * t111 - 0.42504258063891829883e0 * t3431 * t4612 - 0.19594476351194912734e0 * t3410 * t4612 + 0.21252129031945914941e0 * t3431 * t4616 - 0.21252129031945914941e0 * t649 * t1591 * t4912 - 0.75858199451789026628e0 * t3434 * t4609;
5114   t23490 = t4619 * t5320;
5115   t23509 = t2867 * t16460;
5116   t23527 = -0.11986928580130742102e1 * t12418 * t1120 * t5293 + 0.63050476377912629316e0 * t2517 * t2867 * t23155 - 0.97994301469412365794e0 * t8214 * t13632 * t5320 + 0.16879116930178234169e1 * t8047 * t23490 - 0.28131861550297056947e0 * t14024 * t3368 + 0.37929099725894513314e0 * t4637 * t3407 + 0.97972381755974563669e-1 * t4640 * t3404 - 0.12968797032847508210e0 * t13899 * t3368 + 0.17485326916752292327e0 * t4640 * t3407 + 0.42504258063891829882e0 * t18310 * t366 * t111 + 0.75875171479661457657e1 * t4026 * t4027 * t16460 - 0.13069187414967042065e2 * t4031 * t23509 - 0.19594476351194912734e0 * t4640 * t3395 - 0.42504258063891829882e0 * t4637 * t3395 - 0.476312901339054080e0 * t4183 * t4075 - 0.238156450669527040e0 * t649 * t454 * t103 * t5394 - 0.119078225334763520e0 * t649 * t1604 * t4912 + 0.476312901339054080e0 * t4532 * t5294;
5117   t23529 = t869 * t5245;
5118   t23549 = t1101 * t16660;
5119   t23552 = t4574 * t3403;
5120   t23557 = -t253 * t23045 * t103;
5121   t23574 = -0.1844001259520e1 * t1074 * t23529 + 0.2766001889280e1 * t13861 * t5253 - 0.1428938704017162240e1 * t2531 * t23329 + 0.14645644599676186814e2 * t4021 * t23509 + 0.27629889249421717102e0 * t3952 * t3892 - 0.18915142913373788795e1 * t8094 * t23490 + 0.43916079499742060904e0 * t12027 * t17037 + 0.59934642900653710508e0 * t1087 * t17205 - 0.12204703833063489012e1 * t640 * t23191 * t645 - 0.1844001259520e1 * t251 * t23549 + 0.14683899485061986386e1 * t251 * t23552 + 0.461000314880e0 * t251 * t23557 + 0.39188952702389825468e0 * t3955 * t19325 + 0.65874119249613091356e0 * t5256 * t463 + 0.15171639890357805325e1 * t3904 * t3966 - 0.17001703225556731953e1 * t3053 * t628 * t4056 * t366 + 0.19594476351194912734e0 * t16385 * t3942 - 0.67675321900558938528e0 * t883 * t19443;
5122   t23575 = t4569 * t3394;
5123   t23588 = t655 * t23190 * t103;
5124   t23618 = 0.2766001889280e1 * t251 * t23575 + 0.85008516127783659766e0 * t3434 * t4612 - 0.42504258063891829882e0 * t3434 * t4616 - 0.238156450669527040e0 * t649 * t5348 * t1595 - 0.119078225334763520e0 * t4581 * t3537 - 0.1844001259520e1 * t251 * t23588 - 0.238156450669527040e0 * t1087 * t17566 - 0.1844001259520e1 * t18289 * t1427 - 0.22762551443898437297e2 * t1888 * t13752 * t5301 + 0.39207562244901126197e2 * t640 * t13752 * t3367 - 0.12751277419167548965e1 * t13723 * t1258 * t111 - 0.56263723100594113893e0 * t3043 * t16400 + 0.17489238971848963747e1 * t9116 * t17471 - 0.30124497567627698084e1 * t3043 * t17475 + 0.75858199451789026627e0 * t1084 * t17451 + 0.13538564572559691160e1 * t1084 * t16755 - 0.10979019874935515226e0 * t880 * t18741 + 0.13814944624710858551e0 * t880 * t18744;
5125   t23646 = t1468 * t1423;
5126   t23655 = t614 * t23375;
5127   t23664 = -0.7138880e1 * t23588 + 0.6370450956800e1 * t23192 + 0.1784720e1 * t23466 * t108 + 0.42833280e2 * t1080 * t23646 - 0.76445411481600e2 * t2876 * t23646 + 0.22738942463240192000e2 * t2855 * t17185 + 0.6370450956800e1 * t23376 * t108 - 0.7138880e1 * t23655 * t108 - 0.7138880e1 * t18288 * t1468 - 0.3569440e1 * t4531 * t5008 - 0.19111352870400e2 * t13723 * t5367;
5128   t23665 = t108 * t5245;
5129   t23686 = 0.6370450956800e1 * t1080 * t23665 - 0.42833280e2 * t4482 * t5367 + 0.10708320e2 * t4496 * t5367 - 0.19111352870400e2 * t4482 * t5008 - 0.68216827389720576000e2 * t13597 * t5367 + 0.6370450956800e1 * t18310 * t1468 + 0.3185225478400e1 * t4496 * t5008 + 0.5684735615810048000e1 * t13760 * t5367 - 0.76445411481600e2 * t2953 * t17185 - 0.7138880e1 * t23184 - 0.3569440e1 * t23420;
5130   t23690 = t4562 * t3403;
5131   t23693 = t1094 * t16660;
5132   t23704 = -0.19111352870400e2 * t23203 - 0.7138880e1 * t23549 - 0.19111352870400e2 * t23690 - 0.68216827389720576000e2 * t23463 + 0.6370450956800e1 * t23693 + 0.5684735615810048000e1 * t4472 * t5008 + 0.10145661348248508867e2 * t13786 * t5367 + 0.10708320e2 * t23181 + 0.114668117222400e3 * t23131 + 0.22738942463240192000e2 * t2946 * t23646 + 0.6370450956800e1 * t23400;
5133   t23716 = t4562 * t3394;
5134   t23721 = 0.3185225478400e1 * t23228 + 0.5684735615810048000e1 * t23231 + 0.114668117222400e3 * t4472 * t5367 - 0.7138880e1 * t1073 * t23665 + 0.5684735615810048000e1 * t23552 + 0.10145661348248508867e2 * t23285 + 0.10708320e2 * t1583 * t5008 + 0.10708320e2 * t23575 - 0.42833280e2 * t23716 + 0.1784720e1 * t23557 + 0.42833280e2 * t1094 * t17185;
5135   t23751 = -0.51005109676670195860e1 * t9173 * t23393 + 0.29967321450326855254e0 * t883 * t19310 - 0.238156450669527040e0 * t883 * t18353 - 0.92817332546461565657e1 * t6767 * t13822 * t6768 * t1272 + 0.20312390406477209506e2 * t1888 * t13822 * t5301 - 0.29967321450326855254e0 * t1868 * t14059 * t3394 + 0.15762619094478157329e0 * t1878 * t1591 * t21583 + 0.42504258063891829882e0 * t3031 * t23529 - 0.258304e0 * t106 * t259 * (t23664 + t23686 + t23704 + t23721) - 0.1844001259520e1 * t23655 * t111 + 0.952625802678108160e0 * t3999 * t5757 + 0.952625802678108160e0 * t1074 * t23266 + 0.476312901339054080e0 * t1074 * t22175 - 0.13606156761889987933e2 * t640 * t13822 * t3367 - 0.32672968537417605163e1 * t640 * t4574 * t4943 - 0.29967321450326855254e0 * t1868 * t1599 * t4994 - 0.12204703833063489012e1 * t640 * t1094 * t645 * t5347 + 0.97972381755974563669e-1 * t4472 * t1254 * t111;
5136   t23768 = t3891 * t371;
5137   t23769 = t1090 * t23768;
5138   t23794 = -0.922000629760e0 * t4532 * t4902 - 0.238156450669527040e0 * t649 * t18535 * t886 - 0.119078225334763520e0 * t649 * t4687 * t3403 + 0.15171639890357805325e1 * t1084 * t17186 + 0.14533144731775861996e0 * t2499 * t19004 - 0.11252744620118822779e1 * t2499 * t19244 + 0.17489238971848963748e1 * t7859 * t18988 - 0.11986928580130742102e1 * t7676 * t23769 - 0.21958039749871030452e0 * t1433 * t1480 + 0.59934642900653710508e0 * t883 * t18729 + 0.23916119461575365556e1 * t106 * t13923 * t1293 + 0.76507664515005293790e1 * t4472 * t1258 * t111 + 0.90330597678095682346e-1 * t16389 * t3942 - 0.50613316194190507389e-1 * t3410 * t4519 - 0.85008516127783659764e0 * t3053 * t22467 - 0.10979019874935515226e0 * t1084 * t17332 - 0.21958039749871030452e0 * t1084 * t17233 - 0.17001703225556731953e1 * t1084 * t17461;
5139   t23834 = -0.29967321450326855254e0 * t3428 * t4593 - 0.21958039749871030452e0 * t1084 * t16749 + 0.25502554838335097929e1 * t1084 * t16422 - 0.11756685810716947640e1 * t17292 * t3942 + 0.33758233860356468336e1 * t3043 * t17542 - 0.21958039749871030452e0 * t3904 * t3972 + 0.21958039749871030452e0 * t880 * t18624 + 0.25502554838335097930e1 * t880 * t18628 - 0.17001703225556731953e1 * t880 * t19188 + 0.33758233860356468337e1 * t2499 * t19007 - 0.45514919671073415978e1 * t880 * t19191 - 0.1428938704017162240e1 * t4476 * t5294 - 0.54895099374677576129e-1 * t4476 * t3537 - 0.2936020636696313856e1 * t4124 * t18637 * t379 - 0.734005159174078464e0 * t106 * t4527 * t1306 + 0.59934642900653710508e0 * t4183 * t3892 - 0.4936538891835801600e1 * t251 * t23690 + 0.1645512963945267200e1 * t251 * t23693;
5140   t23876 = -0.50613316194190507388e-1 * t5865 * t381 - 0.1428938704017162240e1 * t3031 * t634 * t461 * t1258 - 0.79336666628232973116e0 * t8090 * t2867 * t23768 + 0.10696655587765469022e1 * t7745 * t23769 - 0.21958039749871030452e0 * t880 * t18319 - 0.19594476351194912734e0 * t880 * t18736 - 0.11756685810716947640e1 * t13597 * t1258 * t111 + 0.21252129031945914941e0 * t4496 * t1254 * t111 + 0.15171639890357805326e1 * t880 * t19222 - 0.30124497567627698084e1 * t2499 * t18992 + 0.13538564572559691160e1 * t880 * t19225 - 0.17001703225556731953e1 * t12523 * t5743 - 0.11064007557120e2 * t251 * t23716 - 0.10979019874935515226e0 * t880 * t19195 - 0.85008516127783659765e0 * t880 * t19205 - 0.56263723100594113894e0 * t2499 * t18540 + 0.75858199451789026628e0 * t880 * t19368 + 0.14983660725163427627e0 * t3391 * t4593;
5141   t23881 = my_piecewise3(t96, 0, t23100 + t23149 + t23197 + t23240 + t23288 + t23341 + t23388 + t23437 + t23480 + t23527 + t23574 + t23618 + t23751 + t23794 + t23834 + t23876);
5142   t23882 = my_piecewise3(t95, 0, t23881);
5143   t23884 = -t23045 * t113 - t1254 * t1630 - t1572 * t1312 - 0.4e1 * t1423 * t1484 - t94 * t23882 - 0.2e1 * t366 * t5872 - 0.2e1 * t5659 * t385 - 0.2e1 * t448 * t5455 - 0.2e1 * t5245 * t467;
5144   t23892 = -t1633 * t1318 * t711 / 0.108e3 + t709 * t472 * t5457 / 0.50e2 + t709 * t22872 * t127 / 0.50e2 - 0.3e1 / 0.50e2 * t1637 * t17814 * t127 - 0.5e1 / 0.162e3 * t14683 * t5470 - t709 * t22881 * t127 / 0.100e3 + t2060 * t22885 * t127 / 0.100e3 + t14692 * t5470 / 0.324e3 + t50 * t23884 * t127 / 0.100e3 - t14719 * t5470 / 0.324e3 - t19770 * t1490 / 0.90e2;
5145   t23919 = t19721 * t1490 / 0.30e2 + 0.3e1 / 0.100e3 * t1633 * t5467 - 0.3e1 / 0.50e2 * t50 * t22872 * t1638 + 0.3e1 / 0.100e3 * t1637 * t1323 + t4226 * t19752 / 0.45e2 + 0.5e1 / 0.108e3 * t1637 * t1318 * t14733 + t14714 * t5470 / 0.54e2 - 0.2e1 / 0.15e2 * t4213 * t19752 - 0.3e1 / 0.50e2 * t470 * t1638 * t5457 - t280 * t23884 * t127 / 0.100e3 + t17801 * t19752 / 0.15e2;
5146   t23950 = -0.48e2 * t4369 * t22857 + 0.16e2 * t1037 * t19824 * t401 + 0.8e1 * t1037 * t4737 * t1332 + 0.2e1 * t179 * t130 * (t23892 + t23919) * t149 - 0.4e1 * t1037 * t4390 * t1332 - 0.8e1 * t179 * t1398 * t1537 + 0.8e1 * t1037 * t19883 * t401 + 0.16e2 * t1037 * t19871 * t401 - 0.16e2 * t517 * t1230 * t1549 * t149 - 0.16e2 * t14588 * t5171 + 0.32e2 * t1037 * t5595 * t398 + 0.96e2 * t2748 * t1554 * t401 * t398;
5147   t23965 = t1554 * t1332;
5148   t23971 = t4237 * t1498;
5149   t23974 = t1498 * t1498;
5150   t24012 = -0.2000e4 / 0.81e2 * t975 * t4801 * t1318 + 0.500e3 / 0.81e2 * t975 * t4812 * t1318 + 0.100e3 / 0.27e2 * t12849 * t17610 * t64 - 0.10e2 / 0.3e1 * t483 * t6228 * t22885 + 0.100e3 / 0.81e2 * t293 * t1176 * t5874 * t391 - 0.100e3 / 0.27e2 * t5513 * t14467 + 0.4e1 * t1509 * t1531 + 0.10e2 / 0.9e1 * t1514 * t5948 + 0.40e2 / 0.9e1 * t3139 * t5521 * t18 + 0.2e1 * t481 * t5550 + 0.4e1 * t481 * t1189 * t1314 - 0.50e2 / 0.81e2 * t13332 * t5508 + 0.40e2 / 0.9e1 * t12853 * t5927;
5151   t24044 = 0.5e1 / 0.9e1 * t483 * t484 * t23884 - 0.40e2 / 0.9e1 * t1514 * t5939 - 0.20e2 / 0.9e1 * t483 * t1660 * t22872 - 0.200e3 / 0.27e2 * t14449 * t1196 * t5521 + 0.100e3 / 0.81e2 * t5513 * t14446 - 0.20e2 / 0.9e1 * t483 * t1660 * t469 * t5457 + params->c1 * t23884 * t140 + 0.10e2 / 0.9e1 * t483 * t1660 * t22881 + 0.2e1 * t5504 * t490 - 0.2e1 * t1338 * t1672 + t1338 * t1676 - 0.10e2 / 0.9e1 * t19569 * t1511 - t1656 * t1358;
5152   t24054 = t1524 * t1524;
5153   t24069 = t412 * t19613;
5154   t24072 = t20889 * t1314;
5155   t24077 = t22885 * t146;
5156   t24080 = t4797 * t5457;
5157   t24094 = t301 * t294 * t23884 * t146 - 0.40e2 / 0.3e1 * t3187 * t24069 + 0.2e1 * t743 * t24072 - 0.40e2 / 0.3e1 * t3179 * t24069 - 0.6e1 * t2116 * t24077 - 0.2e1 * t757 * t24080 + t757 * t24072 - 0.2e1 * t754 * t756 * t22872 * t146 - 0.25e2 / 0.81e2 * t14525 * t1355 - 0.200e3 / 0.27e2 * t14550 * t1355 - 0.100e3 / 0.9e1 * t14553 * t1355;
5158   t24118 = -0.100e3 / 0.27e2 * t14499 * t1355 + 0.20e2 / 0.9e1 * t19656 * t413 - t2131 * t24077 - 0.6e1 * t2105 * t24077 + 0.10e2 / 0.9e1 * t19660 * t413 + 0.50e2 / 0.27e2 * t14515 * t1355 + 0.50e2 / 0.27e2 * t14519 * t1355 - 0.20e2 / 0.9e1 * t3202 * t24069 + 0.25e2 / 0.81e2 * t14495 * t1355 - 0.4e1 * t301 * t730 * t22872 * t146 - 0.4e1 * t743 * t24080;
5159   t24120 = my_piecewise3(t138, (t24012 + t24044) * t144 + 0.2e1 * t5951 * t410 * t144 + t1667 * t1349 * t144 + t1667 * t1351 * t144 + 0.2e1 * t24054 * t144 + 0.4e1 * t1526 * t1525 + 0.2e1 * t489 * t5531 + t1669 * t1349 * t144 + t1669 * t1351 * t144, t24094 + t24118);
5160   t24122 = t1038 * t5484;
5161   t24125 = t1554 * t1213;
5162   t24128 = -0.16e2 * t1037 * t1554 * t1329 + 0.8e1 * t517 * t22857 - 0.4e1 * t179 * t5485 * t493 - 0.8e1 * t179 * t5184 * t493 - 0.2e1 * t179 * t1648 * t1364 + 0.24e2 * t4369 * t23965 - 0.4e1 * t179 * t5601 * t416 + 0.32e2 * t4376 * t23971 + 0.4e1 * t179 * t23974 * t149 + 0.1174e1 * t24120 - 0.16e2 * t4376 * t24122 + 0.12e2 * t1723 * t24125;
5163   t24162 = 0.2e1 * t179 * t1329 * t1647 * t149 - 0.64e2 * t1037 * t1038 * t5184 - 0.8e1 * t1037 * t19711 * t401 + 0.2e1 * t517 * t1213 * t1683 + 0.12e2 * t2748 * t4390 * t1213 - 0.24e2 * t2748 * t4737 * t1213 - 0.2e1 * t179 * t1549 * t1364 - 0.2e1 * t179 * t401 * t5979 - t137 * t24120 - 0.96e2 * t14763 * t24125 - 0.8e1 * t3749 * t5598 + 0.16e2 * t3749 * t5906;
5164   t24198 = 0.96e2 * t4369 * t1038 * t401 * t1498 - 0.16e2 * t517 * t131 * t23974 * t149 + 0.4e1 * t179 * t398 * t5898 * t149 - t179 * t1332 * t1683 + 0.8e1 * t517 * t1550 * t1364 - 0.8e1 * t179 * t1499 * t1537 - 0.4e1 * t179 * t5899 * t416 - 0.4e1 * t179 * t476 * t5559 - 0.4e1 * t179 * t5180 * t493 - 0.8e1 * t179 * t23971 + 0.4e1 * t179 * t24122 - 0.4e1 * t517 * t23965;
5165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5166     v4sigma2lapl2[0] = -0.3e1 / 0.16e2 * t174 * t175 * (t23950 + t24128 + t24162 + t24198) * t167 + 0.18554625000000000000e1 * t424 * t7 * t5982 * t430 - 0.41747906250000000000e1 * t19951 * t1379 - 0.46386562500000000000e0 * t5988 * t1384 + 0.56630821004800493110e1 * t5 * t5987 * t1388 * t1392;
5167 
5168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5169     v4sigma2lapltau[0] = 0.0e0;
5170 
5171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5172     v4sigma2tau2[0] = 0.0e0;
5173 
5174   t24227 = 0.1e1 / t21 / t527;
5175   t24235 = t194 * t5655;
5176   t24267 = t23028 * t6032 / 0.162e3 + t18225 * t5650 / 0.324e3 + t1569 * t21830 / 0.324e3 + t21849 * t24227 * t224 * t226 / 0.104976e6 + t3263 * t3796 * t1567 / 0.864e3 - 0.5e1 / 0.243e3 * t4430 * t21898 * t24235 + t21854 * t21210 * t24227 * t88 / 0.209952e6 - 0.15e2 * t7450 * t6025 + 0.9e1 * t2241 * t6028 + 0.9e1 * t578 * t11493 * t6024 + 0.9e1 / 0.2e1 * t2791 * t5639 - 0.45e2 / 0.2e1 * t2787 * t20059 * t363 + 0.105e3 / 0.2e1 * t20046 * t20047 * t363 - 0.45e2 * t4417 * t20047 * t358 + 0.5e1 / 0.1458e4 * t18219 * t5656 + 0.18e2 * t4405 * t5625 - 0.45e2 / 0.2e1 * t20054 * t5622;
5177   t24277 = t1051 * t1056;
5178   t24299 = t2791 * t595;
5179   t24306 = t6024 * t13 * t346;
5180   t24309 = t1800 * t6023;
5181   t24310 = t23032 * t5634;
5182   t24318 = 0.5e1 / 0.1458e4 * t24235 * t224 * t1062 + 0.5e1 / 0.1458e4 * t18212 * t5656 - t1569 * t21865 / 0.486e3 - t1420 * t22925 / 0.288e3 + t24277 * t1420 / 0.432e3 + 0.5e1 / 0.12e2 * t20074 * t334 - t22921 * t1569 / 0.486e3 - t5633 * t21196 * t10 * t24227 / 0.69984e5 - t22934 * t1569 / 0.486e3 - 0.5e1 / 0.324e3 * t18162 * t5650 + t8603 * t64 * t1557 * t358 / 0.81e2 - 0.5e1 / 0.2e1 * t2791 * t1829 * t5630 - t24299 * t5635 / 0.144e3 + t18245 * t5650 / 0.324e3 + 0.25e2 / 0.4e1 * t1800 * t20003 * t24306 + 0.5e1 / 0.288e3 * t24309 * t24310 - 0.5e1 / 0.2e1 * t578 * t6417 * t24306 - t23031 * t24310 / 0.96e2;
5183   t24319 = t24267 + t24318;
5184   t24347 = t628 * t1090 * t1423;
5185   t24357 = t6055 * t886;
5186   t24362 = -0.2766001889280e1 * t1074 * t869 * t5659 - 0.11756685810716947640e1 * t20726 * t1427 + 0.32937059624806545679e0 * t20390 * t910 - 0.25306658097095253694e-1 * t20771 * t910 + 0.20722416937066287827e0 * t880 * t20319 + 0.32937059624806545678e0 * t880 * t20323 + 0.38253832257502646895e1 * t4640 * t5743 - 0.25502554838335097930e1 * t3053 * t24347 + 0.32937059624806545679e0 * t4493 * t4097 - 0.16468529812403272839e0 * t5825 * t463 + 0.12751277419167548965e1 * t649 * t6059 * t1277 + 0.29619233351014809600e2 * t251 * t24357 + 0.44950982175490282881e0 * t1087 * t19310;
5187   t24396 = 0.32937059624806545678e0 * t4493 * t3972 + 0.65874119249613091356e0 * t8858 * t454 * t1595 * t366 + 0.41444833874132575653e0 * t12624 * t19154 + 0.65874119249613091356e0 * t12027 * t19158 - 0.15183994858257152217e0 * t12017 * t4519 + 0.43599434195327585986e0 * t12032 * t19162 - 0.58783429053584738202e0 * t12027 * t19165 - 0.2202015477522235392e1 * t4124 * t20490 * t379 + 0.16879116930178234168e1 * t9300 * t2012 * t4619 * t366 + 0.21799717097663792993e0 * t3043 * t19004 + 0.50637350790534702504e1 * t3043 * t19007 - 0.16879116930178234168e1 * t3043 * t19244 - 0.38906391098542524630e0 * t3952 * t18493 + 0.26233858457773445621e1 * t9116 * t18988;
5188   t24400 = t4608 * t366;
5189   t24417 = t461 * t1452;
5190   t24424 = t4619 * t5793;
5191   t24432 = t1624 * t371;
5192   t24433 = t1090 * t24432;
5193   t24436 = -0.45186746351441547126e1 * t3043 * t18992 - 0.22757459835536707988e1 * t3053 * t2012 * t24400 - 0.29391714526792369101e0 * t1084 * t18736 - 0.68272379506610123965e1 * t1084 * t19191 - 0.714469352008581120e0 * t20541 * t910 - 0.33837660950279469264e0 * t883 * t20309 + 0.714469352008581120e0 * t4479 * t4075 - 0.59502499971174729838e0 * t8090 * t4619 * t3891 + 0.94575714566868943972e0 * t2517 * t2867 * t24417 - 0.14699145220411854869e1 * t8214 * t13632 * t5793 + 0.25318675395267351253e1 * t8047 * t24424 + 0.16879116930178234169e1 * t2499 * t20132 + 0.63756387095837744823e0 * t18310 * t448 * t111 + 0.714469352008581120e0 * t2510 * t24433;
5194   t24456 = t2867 * t23145;
5195   t24465 = t634 * t461 * t1423;
5196   t24472 = 0.21252129031945914941e0 * t880 * t20377 + 0.87446194859244818738e0 * t7859 * t20381 - 0.15062248783813849042e1 * t2499 * t20458 - 0.16468529812403272839e0 * t1084 * t18741 + 0.47287857283434471986e0 * t1878 * t1591 * t645 * t1478 - 0.84395584650891170840e0 * t12504 * t4620 + 0.11378729917768353994e1 * t3904 * t4609 + 0.56906378609746093244e1 * t4026 * t4027 * t23145 - 0.98018905612252815491e1 * t4031 * t24456 + 0.67692822862798455803e0 * t880 * t20730 - 0.94575714566868943973e0 * t1878 * t6059 * t4950 + 0.1428938704017162240e1 * t1074 * t24465 - 0.16468529812403272839e0 * t1433 * t1626 - 0.357234676004290560e0 * t18303 * t1113;
5197   t24489 = t20242 * t886;
5198   t24494 = t18421 * t1090;
5199   t24513 = 0.63756387095837744823e0 * t4496 * t1423 * t111 - 0.13606156761889987933e2 * t640 * t20174 * t1442 + 0.325024956416e0 * t106 * t20447 * t379 - 0.75919974291285761083e-1 * t5865 * t463 - 0.48997150734706182896e0 * t6799 * t6055 * t21261 + 0.822756481972633600e0 * t251 * t24489 - 0.32937059624806545678e0 * t3031 * t24465 + 0.2468269445917900800e1 * t251 * t24494 + 0.714469352008581120e0 * t1074 * t634 * t1572 * t379 - 0.12751277419167548965e1 * t3053 * t20596 * t373 + 0.25502554838335097930e1 * t3053 * t1970 * t24400 + 0.32937059624806545679e0 * t1084 * t18624 + 0.38253832257502646895e1 * t1084 * t18628 - 0.25502554838335097930e1 * t1084 * t19188;
5200   t24518 = t20174 * t886;
5201   t24536 = t4002 * t4615;
5202   t24541 = t4562 * t4056;
5203   t24546 = -0.58783429053584738203e0 * t3952 * t18889 + 0.98811178874419637034e0 * t13681 * t5757 + 0.26206649088979828343e1 * t251 * t24518 - 0.119078225334763520e0 * t649 * t20661 * t886 + 0.25502554838335097930e1 * t4493 * t4100 - 0.17635028716075421460e1 * t19228 * t3942 + 0.16879116930178234168e1 * t13906 * t3978 - 0.22757459835536707989e1 * t4493 * t3966 - 0.12751277419167548965e1 * t13965 * t5743 + 0.44950982175490282881e0 * t4581 * t3892 - 0.2766001889280e1 * t251 * t24536 - 0.2766001889280e1 * t3999 * t6068 - 0.14809616675507404800e2 * t251 * t24541 - 0.16468529812403272839e0 * t4637 * t4097;
5204   t24570 = t4608 * t3891;
5205   t24573 = t1090 * t24417;
5206   t24578 = t20354 * t886;
5207   t24584 = -0.12751277419167548965e1 * t4637 * t4100 - 0.18307055749595233518e1 * t640 * t4089 * t6116 - 0.63756387095837744824e0 * t649 * t1591 * t5720 + 0.11378729917768353994e1 * t4637 * t3966 + 0.58783429053584738202e0 * t8934 * t24347 - 0.119078225334763520e0 * t649 * t6064 * t1277 - 0.922000629760e0 * t20290 * t1427 + 0.47287857283434471985e0 * t2517 * t2867 * t24432 - 0.63756387095837744824e0 * t2531 * t24433 + 0.80224916908241017663e0 * t7745 * t24570 - 0.12751277419167548965e1 * t2531 * t24573 + 0.63756387095837744823e0 * t18843 * t1091 + 0.44051698455185959158e1 * t4062 * t24578 + 0.975074869248e0 * t106 * t3872 * t1624;
5208   t24587 = t4574 * t4056;
5209   t24593 = t20122 * t886;
5210   t24600 = t6090 * t366;
5211   t24605 = -t253 * t24319 * t103;
5212   t24612 = t4569 * t4056;
5213   t24634 = 0.32124960e2 * t1080 * t24600 + 0.1784720e1 * t24605 - 0.57334058611200e2 * t2953 * t19204 + 0.17054206847430144000e2 * t13718 * t3965 + 0.9555676435200e1 * t24494 + 0.9555676435200e1 * t24612 + 0.17054206847430144000e2 * t24587 + 0.10145661348248508867e2 * t24518 + 0.32124960e2 * t1583 * t5830 + 0.114668117222400e3 * t6071 * t1468 - 0.10708320e2 * t3998 * t6090 + 0.3185225478400e1 * t24489 + 0.3185225478400e1 * t20108 * t1468 + 0.9555676435200e1 * t18310 * t6097 + 0.9555676435200e1 * t4496 * t5830 - 0.42833280e2 * t6044 * t1468 - 0.10708320e2 * t1073 * t108 * t5659;
5214   t24643 = t20239 * t886;
5215   t24647 = t1101 * t18568;
5216   t24655 = t6059 * t886;
5217   t24657 = t1591 * t4056;
5218   t24663 = t245 * t24319;
5219   t24668 = -0.57334058611200e2 * t4482 * t5830 - 0.68216827389720576000e2 * t20202 * t1468 - 0.3569440e1 * t20205 * t1468 + 0.32124960e2 * t1094 * t19204 - 0.3569440e1 * t24643 + 0.114668117222400e3 * t24357 - 0.10708320e2 * t24536 - 0.10708320e2 * t24647 - 0.57334058611200e2 * t24541 - 0.68216827389720576000e2 * t24593 + 0.17054206847430144000e2 * t4472 * t5830 + 0.10145661348248508867e2 * t20183 * t1468 - 0.42833280e2 * t24655 + 0.32124960e2 * t24657 + 0.17054206847430144000e2 * t13760 * t448 * t366 * t108 + 0.1784720e1 * t24663 * t108 - 0.57334058611200e2 * t2876 * t24600;
5220   t24693 = -0.89901964350980565762e0 * t4479 * t3892 + 0.44051698455185959158e1 * t251 * t24587 - 0.37929099725894513314e0 * t649 * t6055 * t1277 - 0.17620679382074383663e2 * t251 * t24593 - 0.18307055749595233518e1 * t640 * t1094 * t645 * t5688 - 0.258304e0 * t106 * t259 * (t24634 + t24668) - 0.61023519165317445059e0 * t640 * t20242 * t1442 + 0.23916119461575365556e1 * t106 * t20393 * t379 - 0.98018905612252815489e1 * t640 * t4574 * t5767 + 0.975074869248e0 * t106 * t1120 * t5853 + 0.29391714526792369101e0 * t18325 * t3942 - 0.84395584650891170840e0 * t14024 * t3978 - 0.357234676004290560e0 * t4183 * t4500 + 0.12751277419167548965e1 * t880 * t20744;
5221   t24697 = t1603 * t379;
5222   t24698 = t1090 * t24697;
5223   t24724 = t4615 * t5793;
5224   t24732 = 0.714469352008581120e0 * t2510 * t24698 + 0.8298005667840e1 * t4012 * t24578 - 0.14809616675507404800e2 * t4044 * t24578 - 0.63756387095837744824e0 * t2531 * t24698 - 0.38253832257502646894e1 * t20297 * t4140 - 0.10151298285083840779e1 * t1087 * t19443 - 0.2202015477522235392e1 * t106 * t4527 * t1478 + 0.461000314880e0 * t251 * t24605 + 0.56906378609746093242e1 * t1888 * t4574 * t16464 - 0.16468529812403272839e0 * t4637 * t3972 + 0.44950982175490282881e0 * t3372 * t4615 * t3891 + 0.714469352008581120e0 * t2510 * t24724 + 0.47287857283434471985e0 * t2517 * t6116 * t5793 - 0.63756387095837744824e0 * t2531 * t24724;
5225   t24766 = 0.44950982175490282881e0 * t3372 * t1090 * t19309 - 0.2143408056025743360e1 * t4476 * t5757 - 0.22757459835536707989e1 * t880 * t20733 + 0.44950982175490282881e0 * t4183 * t4593 + 0.2468269445917900800e1 * t251 * t24612 - 0.38253832257502646895e1 * t13681 * t5699 - 0.119078225334763520e0 * t883 * t20366 - 0.714469352008581120e0 * t649 * t6102 * t1277 - 0.11064007557120e2 * t251 * t24655 + 0.44950982175490282881e0 * t2924 * t5724 + 0.22757459835536707988e1 * t1084 * t19222 - 0.89901964350980565762e0 * t1074 * t1854 * t1611 * t366 + 0.47287857283434471986e0 * t2517 * t2867 * t24697 + 0.10984233449757140111e2 * t4021 * t24456;
5226   t24785 = t1590 * t371 * t1595;
5227   t24803 = -0.58783429053584738203e0 * t20739 * t887 + 0.21252129031945914941e0 * t20554 * t887 - 0.12751277419167548965e1 * t3904 * t4612 + 0.45165298839047841173e-1 * t20695 * t887 + 0.12751277419167548965e1 * t20736 * t887 + 0.63756387095837744823e0 * t4637 * t4057 + 0.29391714526792369101e0 * t4640 * t4057 + 0.63756387095837744823e0 * t3904 * t4616 - 0.11378729917768353994e1 * t7654 * t24785 + 0.76507664515005293790e1 * t6071 * t366 * t111 + 0.84395584650891170840e0 * t1878 * t6055 * t4950 - 0.92817332546461565657e1 * t6767 * t20174 * t6768 * t371 + 0.20312390406477209506e2 * t1888 * t20174 * t5771 - 0.84395584650891170843e0 * t2499 * t20608;
5228   t24819 = t1611 * t371;
5229   t24820 = t1090 * t24819;
5230   t24838 = -0.12751277419167548965e1 * t880 * t20611 + 0.11378729917768353994e1 * t880 * t20545 - 0.16468529812403272839e0 * t880 * t20530 - 0.29391714526792369101e0 * t880 * t20534 + 0.714469352008581120e0 * t1074 * t634 * t1624 * t366 - 0.10151298285083840779e1 * t10277 * t1090 * t18906 - 0.89901964350980565762e0 * t7676 * t24820 + 0.89901964350980565762e0 * t3372 * t1090 * t18637 - 0.11064007557120e2 * t20390 * t1427 + 0.8298005667840e1 * t4476 * t5699 + 0.8298005667840e1 * t251 * t24657 - 0.16468529812403272839e0 * t4476 * t4075 + 0.20722416937066287827e0 * t1084 * t18744 + 0.21799717097663792993e0 * t2499 * t20603;
5231   t24877 = -0.357234676004290560e0 * t649 * t1604 * t5720 + 0.8298005667840e1 * t3031 * t869 * t1572 * t366 + 0.29391714526792369101e0 * t3952 * t18952 - 0.84395584650891170840e0 * t3043 * t18540 + 0.11378729917768353994e1 * t1084 * t19368 + 0.20722416937066287826e0 * t4476 * t3892 - 0.33837660950279469264e0 * t6651 * t20256 * t886 - 0.75919974291285761083e-1 * t4640 * t3972 + 0.44950982175490282881e0 * t1868 * t1453 * t6162 - 0.32937059624806545678e0 * t1084 * t18618 - 0.357234676004290560e0 * t1087 * t18353 - 0.357234676004290560e0 * t649 * t5689 * t1595 + 0.52455980750256876982e0 * t4640 * t3966 - 0.12751277419167548965e1 * t3053 * t628 * t4615 * t366;
5232   t24907 = -0.16468529812403272839e0 * t1084 * t19195 - 0.12751277419167548965e1 * t1084 * t19205 - 0.32937059624806545678e0 * t3904 * t4519 - 0.32937059624806545678e0 * t1084 * t18319 - 0.75919974291285761083e-1 * t4640 * t4097 - 0.58783429053584738202e0 * t4640 * t4100 + 0.13549589651714352352e0 * t19240 * t3942 - 0.38906391098542524630e0 * t13899 * t3978 + 0.461000314880e0 * t24663 * t111 - 0.357234676004290560e0 * t4581 * t4075 - 0.16468529812403272839e0 * t6138 * t381 - 0.119078225334763520e0 * t20260 * t910 + 0.21252129031945914941e0 * t20108 * t366 * t111 + 0.20722416937066287827e0 * t1433 * t1613;
5233   t24941 = -0.922000629760e0 * t251 * t24643 + 0.89901964350980565762e0 * t1087 * t18729 + 0.714469352008581120e0 * t4532 * t5757 - 0.357234676004290560e0 * t649 * t454 * t103 * t5853 + 0.29391714526792369101e0 * t20114 * t4140 - 0.16468529812403272839e0 * t880 * t20526 + 0.10984233449757140111e2 * t640 * t4562 * t5767 + 0.714469352008581120e0 * t649 * t1599 * t5720 + 0.29391714526792369101e0 * t20615 * t3461 - 0.2766001889280e1 * t251 * t24647 + 0.44950982175490282881e0 * t883 * t20624 + 0.29391714526792369101e0 * t20487 * t5699 + 0.52455980750256876981e0 * t3952 * t18966 + 0.20307846858839536740e1 * t1084 * t19225;
5234   t24976 = 0.45165298839047841173e-1 * t20183 * t366 * t111 - 0.357234676004290560e0 * t649 * t1453 * t6169 + 0.63756387095837744823e0 * t1084 * t18569 - 0.59502499971174729837e0 * t8090 * t2867 * t24819 + 0.80224916908241017663e0 * t7745 * t24820 - 0.89901964350980565762e0 * t7676 * t24570 - 0.2143408056025743360e1 * t2531 * t24785 + 0.1428938704017162240e1 * t2510 * t24573 - 0.28372714370060683191e1 * t8094 * t24424 + 0.38253832257502646895e1 * t8078 * t24785 - 0.12751277419167548965e1 * t4493 * t4057 - 0.22762551443898437297e2 * t1888 * t20122 * t5771 + 0.39207562244901126197e2 * t640 * t20122 * t1442 - 0.21968466899514280222e2 * t640 * t6055 * t1442;
5235   t24981 = my_piecewise3(t96, 0, t24362 + t24396 + t24436 + t24472 + t24513 + t24546 + t24584 + t24693 + t24732 + t24766 + t24803 + t24838 + t24877 + t24907 + t24941 + t24976);
5236   t24982 = my_piecewise3(t95, 0, t24981);
5237   t24984 = t24319 * t113 + 0.3e1 * t1423 * t1630 + 0.3e1 * t1572 * t1484 + t94 * t24982 + t366 * t6181 + t6037 * t385 + 0.3e1 * t448 * t5872 + 0.3e1 * t5659 * t467;
5238   t25026 = t1486 * t1632;
5239   t25030 = t469 * t5874;
5240   t25040 = -t24984;
5241   t25044 = 0.3e1 * t481 * t5969 + 0.10e2 / 0.3e1 * t1514 * t6229 + 0.200e3 / 0.27e2 * t293 * t20829 * t6191 * t391 + 0.10e2 * t483 * t6228 * t1636 * t1486 - 0.10e2 / 0.3e1 * t1514 * t6232 - 0.50e2 / 0.9e1 * t14449 * t1196 * t5944 - 0.10e2 / 0.3e1 * t483 * t1660 * t25026 - 0.10e2 / 0.3e1 * t483 * t1660 * t25030 + 0.5e1 / 0.9e1 * t1514 * t6235 + 0.50e2 / 0.81e2 * t293 * t1176 * t6183 * t391 + 0.5e1 / 0.9e1 * t483 * t484 * t25040;
5242   t25064 = t20882 * t1486;
5243   t25069 = t20889 * t1511;
5244   t25073 = t1486 * t146 * t1632;
5245   t25078 = t4797 * t5874;
5246   t25103 = 0.40e2 / 0.3e1 * t20879 * t413 + 0.18e2 * t2105 * t25064 + 0.20e2 * t20886 * t413 - 0.10e2 * t3179 * t25069 - 0.6e1 * t743 * t25073 - 0.10e2 * t3187 * t25069 - 0.6e1 * t743 * t25078 + 0.18e2 * t2116 * t25064 + 0.20e2 / 0.3e1 * t20904 * t413 + 0.10e2 / 0.9e1 * t20908 * t413 + t301 * t294 * t25040 * t146 + 0.5e1 / 0.9e1 * t20915 * t413 - 0.3e1 * t757 * t25078 - 0.3e1 * t757 * t25073 - 0.5e1 / 0.3e1 * t14495 * t1517 * t11080 + 0.3e1 * t2131 * t25064 + 0.5e1 / 0.9e1 * t20928 * t413;
5247   t25104 = my_piecewise3(t138, (-params->c1 * t24984 * t140 - 0.5e1 / 0.9e1 * t20802 * t1511 + 0.3e1 * t5921 * t490 + 0.10e2 / 0.3e1 * t13332 * t5927 + 0.3e1 * t1656 * t1531 - 0.6e1 * t1509 * t1672 - 0.10e2 * t12849 * t5934 * t18 - 0.12e2 * t481 * t1189 * t1486 + 0.3e1 * t1509 * t1676 + 0.10e2 / 0.3e1 * t3139 * t5944 * t18 + t25044) * t144 + t6238 * t410 * t144 + 0.3e1 * t5951 * t488 * t144 + 0.3e1 * t1667 * t1524 * t144 + 0.3e1 * t6240 * t411 + 0.3e1 * t1670 * t1524 + t6243 * t410 * t144, t25103);
5248   t25106 = t20960 * t398;
5249   t25152 = t50 * t25040 * t127 / 0.100e3 + t21015 * t1490 / 0.60e2 - 0.9e1 / 0.100e3 * t5875 * t6188 + t1633 * t391 * t21020 / 0.20e2 - 0.9e1 / 0.100e3 * t1633 * t5880 - t21026 * t1490 / 0.10e2 - 0.9e1 / 0.100e3 * t1637 * t1493 - t21031 * t1490 / 0.12e2 + 0.9e1 / 0.50e2 * t1637 * t6195 * t1486 + t21037 * t1490 / 0.18e2 - t280 * t25040 * t127 / 0.100e3 - t21043 * t1490 / 0.180e3 + 0.3e1 / 0.100e3 * t709 * t25030 * t127 + 0.3e1 / 0.100e3 * t709 * t25026 * t127 + t21052 * t1490 / 0.60e2 - 0.3e1 / 0.100e3 * t2060 * t1644 * t1486 - t21058 * t1490 / 0.180e3;
5250   t25163 = t20960 * t401;
5251   t25169 = t1554 * t1498;
5252   t25183 = t6009 * t401;
5253   t25186 = t4237 * t1647;
5254   t25189 = t1038 * t5898;
5255   t25196 = 0.12e2 * t1037 * t20999 * t401 + 0.1174e1 * t25104 + 0.144e3 * t4369 * t25106 - 0.24e2 * t517 * t25106 + 0.2e1 * t179 * t130 * t25152 * t149 - 0.4e1 * t1037 * t20973 * t401 + 0.24e2 * t517 * t1550 * t1537 + 0.72e2 * t2748 * t25163 - 0.6e1 * t179 * t5601 * t493 - 0.72e2 * t1037 * t25169 - 0.12e2 * t14588 * t5598 + 0.48e2 * t1037 * t6009 * t398 + 0.12e2 * t1037 * t20944 * t401 - 0.6e1 * t179 * t1648 * t1537 - 0.72e2 * t4369 * t25183 + 0.24e2 * t4376 * t25186 - 0.24e2 * t4376 * t25189 - 0.192e3 * t20986 * t25163 + 0.144e3 * t20948 * t25169;
5256   t25201 = t4737 * t1498;
5257   t25206 = t3763 * t1647;
5258   t25251 = 0.12e2 * t517 * t25183 - t179 * t401 * t6266 + 0.48e2 * t4376 * t25201 - 0.6e1 * t179 * t25186 + 0.6e1 * t179 * t25206 - 0.6e1 * t179 * t1499 * t1683 + 0.6e1 * t179 * t25189 + 0.72e2 * t4369 * t1038 * t1647 * t401 + 0.2e1 * t179 * t398 * t6208 * t149 - 0.48e2 * t1037 * t1038 * t5601 - 0.24e2 * t4376 * t25206 - 0.6e1 * t179 * t476 * t5979 - 0.12e2 * t179 * t25201 - 0.2e1 * t179 * t6209 * t416 - 0.6e1 * t179 * t1398 * t1683 - 0.48e2 * t1723 * t5993 * t416 - 0.6e1 * t179 * t1549 * t1537 - 0.6e1 * t179 * t5899 * t493 - t137 * t25104 + 0.24e2 * t517 * t5997 * t416;
5259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5260     v4sigmalapl3[0] = -0.3e1 / 0.16e2 * t174 * t175 * (t25196 + t25251) * t167 + 0.92773125000000000000e0 * t424 * t7 * t6269 * t430;
5261 
5262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5263     v4sigmalapl2tau[0] = 0.0e0;
5264 
5265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5266     v4sigmalapltau2[0] = 0.0e0;
5267 
5268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5269     v4sigmatau3[0] = 0.0e0;
5270 
5271   t25261 = t1647 * t1647;
5272   t25272 = t1554 * t1647;
5273   t25278 = t4737 * t1647;
5274   t25284 = t1038 * t6208;
5275   t25304 = t23032 * t6031;
5276   t25321 = t1563 * t1563;
5277   t25325 = t85 * t85;
5278   t25326 = t593 * t593;
5279   t25337 = 0.2e1 / 0.81e2 * t24299 * t6032 - t21849 * t6304 * t224 * t226 / 0.59049e5 - t21854 * t21210 * t6304 * t88 / 0.118098e6 - 0.5e1 / 0.81e2 * t24309 * t25304 + t23031 * t25304 / 0.27e2 - t3263 * t4399 * t1567 / 0.243e3 + t1569 * t22925 / 0.81e2 - 0.2e1 / 0.243e3 * t24277 * t1569 + t5633 * t21196 * t6439 / 0.39366e5 + 0.36e2 * t2791 * t6028 - 0.90e2 * t1800 * t6428 * t25321 + 0.105e3 * t6383 * t25325 / t25326 * t25321 + 0.9e1 * t578 * t25321 * t594 - 0.60e2 * t8559 * t6025;
5280   t25354 = t1590 * t1590;
5281   t25355 = t1890 * t25354;
5282   t25364 = t1591 * t4615;
5283   t25367 = t1576 * t1576;
5284   t25368 = t6673 * t25367;
5285   t25374 = t1901 * t25367;
5286   t25382 = t1931 * t25367;
5287   t25387 = -0.76507664515005293789e1 * t13723 * t1576 * t111 + 0.1428938704017162240e1 * t649 * t1599 * t6169 + 0.16044983381648203533e1 * t1868 * t1591 * t6162 - 0.21968466899514280222e2 * t640 * t25355 * t645 + 0.13174823849922618271e1 * t20390 * t1113 + 0.89901964350980565762e0 * t1868 * t1604 * t6162 + 0.16596011335680e2 * t251 * t25364 - 0.11756685810716947640e1 * t25368 * t111 - 0.2857877408034324480e1 * t649 * t6102 * t1595 - 0.11064007557120e2 * t25374 * t111 - 0.13535064380111787705e1 * t1087 * t20309 - 0.714469352008581120e0 * t649 * t1604 * t6169 + 0.76507664515005293790e1 * t25382 * t111 + 0.13174823849922618271e1 * t1084 * t20323;
5288   t25405 = t20354 * t1595;
5289   t25421 = 0.85008516127783659764e0 * t20108 * t448 * t111 + 0.18915142913373788794e1 * t2517 * t2867 * t461 * t1603 - 0.32937059624806545678e0 * t4476 * t4500 - 0.11756685810716947640e1 * t4640 * t4612 + 0.18066119535619136469e0 * t20695 * t1091 + 0.85008516127783659764e0 * t1084 * t20377 + 0.17980392870196113152e1 * t2924 * t6170 - 0.25502554838335097929e1 * t2531 * t25405 + 0.51005109676670195860e1 * t1084 * t20744 - 0.476312901339054080e0 * t649 * t20661 * t1090 + 0.11756685810716947640e1 * t20615 * t3942 - 0.65874119249613091356e0 * t1084 * t20526 - 0.51005109676670195860e1 * t1084 * t20611 - 0.30367989716514304434e0 * t4640 * t4519;
5290   t25423 = t6461 * t25354;
5291   t25430 = t6688 * t25354;
5292   t25431 = t25430 * t103;
5293   t25448 = t1624 * t1624;
5294   t25452 = t1611 * t1611;
5295   t25460 = 0.39207562244901126197e2 * t640 * t25423 * t645 - 0.22762551443898437297e2 * t1888 * t25423 * t1893 + 0.26206649088979828343e1 * t251 * t25431 + 0.12751277419167548965e1 * t4637 * t4616 + 0.58783429053584738202e0 * t4640 * t4616 + 0.33758233860356468336e1 * t13906 * t4620 + 0.67516467720712936673e1 * t3043 * t20132 - 0.65874119249613091356e0 * t4637 * t4519 + 0.87198868390655171972e0 * t3043 * t20603 - 0.33758233860356468336e1 * t3043 * t20608 + 0.975074869248e0 * t106 * t668 * t25448 + 0.23916119461575365556e1 * t106 * t6518 * t25452 + 0.45514919671073415976e1 * t1084 * t20545 + 0.82889667748265151307e0 * t1084 * t20319;
5296   t25462 = t25423 * t103;
5297   t25466 = -t253 * t25337 * t103;
5298   t25468 = t6618 * t25367;
5299   t25471 = t25355 * t103;
5300   t25475 = t245 * t25337;
5301   t25480 = t20242 * t1090;
5302   t25482 = t1603 * t1603;
5303   t25483 = t642 * t25482;
5304   t25484 = t25483 * t103;
5305   t25486 = t13718 * t4608;
5306   t25490 = 0.10145661348248508867e2 * t25431 - 0.68216827389720576000e2 * t25462 + 0.1784720e1 * t25466 + 0.10145661348248508867e2 * t25468 * t108 + 0.114668117222400e3 * t25471 - 0.68216827389720576000e2 * t25368 * t108 + 0.1784720e1 * t25475 * t108 + 0.114668117222400e3 * t25382 * t108 + 0.12740901913600e2 * t25480 + 0.9555676435200e1 * t25484 + 0.34108413694860288000e2 * t25486 - 0.114668117222400e3 * t4482 * t6090;
5307   t25493 = t1572 * t1572;
5308   t25494 = t623 * t25493;
5309   t25501 = t1912 * t25354 * t103;
5310   t25505 = t655 * t25482 * t103;
5311   t25507 = t1101 * t20376;
5312   t25509 = t4562 * t4615;
5313   t25515 = t614 * t25493;
5314   t25521 = 0.12740901913600e2 * t20108 * t6097 + 0.9555676435200e1 * t25494 * t108 + 0.34108413694860288000e2 * t13760 * t1576 * t108 - 0.42833280e2 * t25501 + 0.64249920e2 * t25364 - 0.10708320e2 * t25505 - 0.14277760e2 * t25507 - 0.114668117222400e3 * t25509 - 0.42833280e2 * t25374 * t108 + 0.64249920e2 * t1583 * t6090 - 0.10708320e2 * t25515 * t108 - 0.14277760e2 * t1073 * t108 * t6037;
5315   t25559 = -0.258304e0 * t106 * t259 * (t25490 + t25521) - 0.13606156761889987933e2 * t640 * t25430 * t645 + 0.3291025927890534400e1 * t251 * t25480 + 0.461000314880e0 * t251 * t25466 - 0.476312901339054080e0 * t1087 * t20366 - 0.92817332546461565657e1 * t6767 * t25430 * t6768 - 0.2857877408034324480e1 * t20541 * t1113 + 0.461000314880e0 * t25475 * t111 - 0.17980392870196113152e1 * t4479 * t4593 - 0.24409407666126978024e1 * t640 * t1094 * t645 * t6063 + 0.11381275721949218649e2 * t1888 * t4574 * t19135 - 0.51005109676670195860e1 * t3053 * t628 * t1090 * t1572 + 0.13174823849922618271e1 * t4493 * t4519 - 0.11756685810716947640e1 * t1084 * t20534;
5316   t25599 = 0.2468269445917900800e1 * t251 * t25484 - 0.3688002519040e1 * t1074 * t869 * t6037 + 0.21968466899514280222e2 * t640 * t4562 * t6116 + 0.1428938704017162240e1 * t4479 * t4500 + 0.33758233860356468337e1 * t1878 * t6055 * t6120 + 0.94575714566868943971e0 * t1878 * t1591 * t645 * t1624 - 0.19598860293882473159e1 * t6799 * t6055 * t1893 * t461 - 0.2766001889280e1 * t25515 * t111 - 0.10122663238838101478e0 * t20771 * t1113 + 0.2857877408034324480e1 * t2510 * t25405 - 0.25502554838335097930e1 * t4493 * t4616 - 0.13535064380111787705e1 * t6651 * t20256 * t1090 + 0.58783429053584738202e0 * t13760 * t1576 * t111 - 0.16879116930178234168e1 * t14024 * t4620;
5317   t25629 = -0.77812782197085049260e0 * t13899 * t4620 + 0.34978477943697927495e1 * t9116 * t20381 - 0.60248995135255396168e1 * t3043 * t20458 + 0.22757459835536707988e1 * t4637 * t4609 + 0.10491196150051375396e1 * t4640 * t4609 + 0.27077129145119382320e1 * t1084 * t20730 - 0.23513371621433895280e1 * t20739 * t1091 + 0.85008516127783659764e0 * t20554 * t1091 - 0.4404030955044470784e1 * t106 * t4527 * t1624 + 0.29619233351014809600e2 * t251 * t25471 + 0.45165298839047841173e-1 * t25468 * t111 + 0.89901964350980565762e0 * t4581 * t4593 - 0.65874119249613091356e0 * t6138 * t463 - 0.3688002519040e1 * t251 * t25507;
5318   t25668 = 0.63756387095837744823e0 * t25494 * t111 - 0.17620679382074383663e2 * t251 * t25462 - 0.17980392870196113152e1 * t1868 * t1599 * t6162 - 0.12751277419167548965e1 * t649 * t1591 * t6169 + 0.41444833874132575653e0 * t4476 * t4593 + 0.20312390406477209506e2 * t1888 * t25430 * t1893 + 0.17980392870196113152e1 * t1087 * t20624 + 0.88103396910371918316e1 * t251 * t25486 + 0.1300099825664e1 * t106 * t1120 * t6112 - 0.11900499994234945968e1 * t6646 * t1591 * t645 * t1611 - 0.11064007557120e2 * t251 * t25501 - 0.18307055749595233518e1 * t640 * t25483 * t645 - 0.476312901339054080e0 * t20260 * t1113 + 0.2857877408034324480e1 * t4532 * t634 * t461 * t448;
5319   t25704 = -0.714469352008581120e0 * t4581 * t4500 - 0.476312901339054080e0 * t649 * t6064 * t1595 + 0.16596011335680e2 * t4476 * t6068 - 0.2766001889280e1 * t251 * t25505 - 0.19603781122450563098e2 * t640 * t4574 * t6116 - 0.15171639890357805325e1 * t649 * t6055 * t1595 - 0.29619233351014809600e2 * t251 * t25509 - 0.37830285826747577588e1 * t1878 * t6059 * t6120 + 0.51005109676670195860e1 * t649 * t6059 * t1595 - 0.25502554838335097930e1 * t4637 * t4612 + 0.51005109676670195860e1 * t20736 * t1091 + 0.51005109676670195860e1 * t4493 * t4612 - 0.45514919671073415977e1 * t4493 * t4609 - 0.91029839342146831954e1 * t1084 * t20733 - 0.65874119249613091356e0 * t1084 * t20530;
5320   t25708 = my_piecewise3(t96, 0, t25387 + t25421 + t25460 + t25559 + t25599 + t25629 + t25668 + t25704);
5321   t25709 = my_piecewise3(t95, 0, t25708);
5322   t25711 = t25337 * t113 + 0.6e1 * t1572 * t1630 + t94 * t25709 + 0.4e1 * t448 * t6181 + 0.4e1 * t6037 * t467;
5323   t25728 = t1636 * t1636;
5324   t25732 = t1636 * t1632;
5325   t25736 = t1632 * t1632;
5326   t25740 = t469 * t6183;
5327   t25744 = -t25711;
5328   t25748 = -params->c1 * t25711 * t140 + 0.4e1 * t6220 * t490 - 0.12e2 * t1656 * t1672 + 0.6e1 * t1656 * t1676 + 0.24e2 * t481 * t6246 - 0.24e2 * t481 * t1189 * t1632 + 0.4e1 * t481 * t6257 - 0.40e2 / 0.3e1 * t483 * t17 * t2115 * t25728 + 0.20e2 * t483 * t6228 * t25732 - 0.10e2 / 0.3e1 * t483 * t1660 * t25736 - 0.40e2 / 0.9e1 * t483 * t1660 * t25740 + 0.5e1 / 0.9e1 * t483 * t484 * t25744;
5329   t25753 = t1667 * t1667;
5330   t25759 = t1669 * t1669;
5331   t25766 = t20882 * t1632;
5332   t25779 = t4797 * t6183;
5333   t25800 = -0.24e2 * t301 * t2115 * t25728 * t146 - 0.12e2 * t2128 * t7038 * t25728 * t146 - 0.36e2 * t754 * t2130 * t25728 * t146 - t7056 * t7058 * t25728 * t146 - 0.6e1 * t301 * t730 * t25736 * t146 - 0.3e1 * t754 * t756 * t25736 * t146 + t301 * t294 * t25744 * t146 + 0.36e2 * t2105 * t25766 + 0.36e2 * t2116 * t25766 + 0.6e1 * t2131 * t25766 - 0.8e1 * t743 * t25779 - 0.4e1 * t757 * t25779;
5334   t25801 = my_piecewise3(t138, 0.6e1 * t1667 * t1669 * t144 + 0.4e1 * t6238 * t488 * t144 + t25748 * t144 + 0.3e1 * t25753 * t144 + t25759 * t144, t25800);
5335   t25803 = t1549 * t1549;
5336   t25809 = t131 * t131;
5337   t25835 = t50 * t25728;
5338   t25856 = t50 * t25744 * t127 / 0.100e3 - 0.3e1 / 0.25e2 * t6184 * t6188 - 0.9e1 / 0.50e2 * t1633 * t1644 - 0.9e1 / 0.100e3 * t50 * t25736 * t1638 + 0.9e1 / 0.25e2 * t1633 * t125 * t1636 * t127 + 0.3e1 / 0.20e2 * t25835 * t1638 - t25835 * t708 * t127 / 0.10e2 - t280 * t25744 * t127 / 0.100e3 + t709 * t25740 * t127 / 0.25e2 + 0.3e1 / 0.100e3 * t709 * t25736 * t127 - 0.3e1 / 0.50e2 * t2060 * t25732 * t127 + t6945 * t25728 * t127 / 0.100e3;
5339   t25869 = 0.1174e1 * t25801 - 0.24e2 * t517 * t25803 * t149 - 0.32e2 * t4376 * t25284 - 0.384e3 * t6279 * t25809 * t25803 * t149 - 0.192e3 * t1723 * t5993 * t493 - 0.24e2 * t179 * t25278 + 0.288e3 * t20948 * t25272 + 0.2e1 * t179 * t130 * t25856 * t149 - t137 * t25801 + 0.288e3 * t1723 * t131 * t25803 * t149 - 0.12e2 * t179 * t1648 * t1683;
5340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5341     v4lapl4[0] = -0.3e1 / 0.16e2 * t174 * t175 * (-0.24e2 * t517 * t131 * t25261 * t149 + 0.6e1 * t179 * t25261 * t149 - 0.12e2 * t179 * t1549 * t1683 + 0.48e2 * t517 * t1550 * t1683 - 0.8e1 * t179 * t476 * t6266 - 0.8e1 * t179 * t6209 * t493 + 0.96e2 * t517 * t5997 * t493 - 0.144e3 * t1037 * t25272 + 0.8e1 * t179 * t25284 + 0.96e2 * t4376 * t25278 + t25869) * t167;
5342 
5343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5344     v4lapl3tau[0] = 0.0e0;
5345 
5346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5347     v4lapl2tau2[0] = 0.0e0;
5348 
5349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5350     v4lapltau3[0] = 0.0e0;
5351 
5352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5353     v4tau4[0] = 0.0e0;
5354 
5355 #ifndef XC_DONT_COMPILE_MXC
5356 
5357   if(order < 5) return;
5358 
5359 
5360 #endif
5361 
5362 #endif
5363 
5364 #endif
5365 
5366 #endif
5367 
5368 #endif
5369 
5370 
5371 }
5372 
5373 
5374 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 *))5375 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 *))
5376 {
5377 
5378 #ifndef XC_DONT_COMPILE_EXC
5379   double t2, t4, t5, t6, t7, t8, t9, t10;
5380   double t11, t12, t13, t14, t15, t16, t17, t18;
5381   double t19, t20, t21, t25, t26, t27, t28, t29;
5382   double t30, t31, t32, t33, t35, t36, t38, t39;
5383   double t42, t46, t47, t50, t51, t53, t54, t58;
5384   double t59, t60, t62, t65, t67, t68, t71, t72;
5385   double t73, t74, t75, t76, t77, t78, t79, t81;
5386   double t82, t83, t84, t85, t86, t87, t88, t90;
5387   double t91, t94, t95, t96, t97, t99, t100, t101;
5388   double t102, t103, t104, t110, t113, t114, t116, t118;
5389   double t121, t122, t123, t128, t129, t130, t131, t132;
5390   double t135, t137, t139, t140, t143, t145, t146, t147;
5391   double t148, t149, t150, t152, t153, t157, t158, t160;
5392 
5393 #ifndef XC_DONT_COMPILE_VXC
5394   double t164, t165, t166, t168, t170, t171, t172, t174;
5395   double t176, t177, t181, t182, t183, t184, t185, t186;
5396   double t187, t188, t193, t196, t203, t204, t207, t209;
5397   double t210, t213, t214, t215, t216, t219, t220, t221;
5398   double t222, t225, t228, t230, t231, t232, t235, t236;
5399   double t237, t238, t239, t240, t241, t242, t245, t249;
5400   double t251, t254, t255, t261, t263, t266, t270, t273;
5401   double t274, t276, t279, t280, t281, t282, t285, t286;
5402   double t287, t288, t289, t290, t291, t294, t297, t298;
5403   double t302, t303, t304, t305, t306, t307, t308, t309;
5404   double t312, t313, t316, t319, t324, t329, t332, t335;
5405   double t336, t337, t338, t339, t341, t346, t349, t351;
5406   double t354, t355, t356, t362, t363, t364, t367, t368;
5407   double t374, t375, t381, t384, t385, t387, t393, t394;
5408   double t395, t396, t399, t402, t403, t404, t407, t408;
5409   double t409, t410, t413, t420, t422, t423, t425, t426;
5410   double t428, t430, t433, t434, t435, t441, t442, t443;
5411   double t446, t447, t449, t450, t452, t455, t456, t461;
5412   double t463, t464, t465, t468, t469, t470, t473, t476;
5413   double t477, t478;
5414 
5415 #ifndef XC_DONT_COMPILE_FXC
5416   double t481, t489, t490, t497, t498, t499, t503, t504;
5417   double t505, t507, t509, t510, t514, t515, t521, t522;
5418   double t523, t524, t526, t528, t529, t532, t534, t537;
5419   double t544, t545, t548, t549, t550, t551, t553, t555;
5420   double t557, t558, t559, t562, t565, t566, t569, t572;
5421   double t573, t574, t575, t576, t577, t582, t585, t589;
5422   double t590, t591, t592, t595, t598, t599, t600, t603;
5423   double t604, t605, t606, t609, t610, t611, t614, t615;
5424   double t616, t617, t618, t619, t620, t621, t622, t625;
5425   double t626, t627, t630, t631, t632, t633, t636, t637;
5426   double t638, t641, t644, t645, t646, t647, t658, t660;
5427   double t662, t663, t664, t670, t671, t674, t677, t678;
5428   double t684, t685, t687, t690, t693, t696, t699, t702;
5429   double t703, t706, t707, t708, t711, t714, t715, t716;
5430   double t717, t719, t720, t721, t722, t725, t726, t729;
5431   double t730, t731, t732, t733, t737, t740, t741, t745;
5432   double t749, t753, t754, t756, t760, t762, t763, t767;
5433   double t770, t773, t782, t783, t785, t786, t787, t792;
5434   double t795, t798, t799, t800, t801, t802, t804, t809;
5435   double t812, t815, t818, t821, t822, t825, t826, t831;
5436   double t834, t838, t839, t840, t841, t844, t847, t848;
5437   double t851, t854, t857, t858, t861, t862, t863, t866;
5438   double t869, t870, t873, t874, t875, t878, t881, t884;
5439   double t885, t888, t892, t902, t903, t904, t906, t907;
5440   double t908, t914, t915, t918, t919, t920, t926, t927;
5441   double t930, t933, t934, t936, t938, t940, t943, t946;
5442   double t947, t951, t954, t955, t956, t959, t960, t961;
5443   double t964, t965, t968, t969, t973, t976, t977, t978;
5444   double t981, t985, t988, t992, t995, t996, t997, t999;
5445   double t1004, t1005, t1006, t1009, t1014, t1015, t1016, t1018;
5446   double t1022, t1023, t1024, t1027, t1029, t1030, t1031, t1034;
5447   double t1035, t1037, t1041, t1042, t1045, t1048, t1049, t1052;
5448   double t1055, t1058, t1059, t1062, t1069, t1070, t1073, t1074;
5449   double t1075, t1078, t1081, t1084, t1088, t1101, t1102, t1103;
5450   double t1105, t1106, t1107, t1109, t1110, t1113, t1114, t1115;
5451   double t1118, t1121, t1124, t1125, t1132, t1135, t1137, t1138;
5452   double t1141, t1144, t1145, t1146, t1149, t1152, t1153, t1154;
5453   double t1157, t1158, t1161, t1164, t1165, t1169, t1172, t1173;
5454   double t1174, t1177, t1181, t1182, t1185, t1189, t1193, t1195;
5455   double t1196, t1197, t1200, t1203, t1206, t1209, t1214, t1219;
5456   double t1222, t1226, t1227, t1230, t1233, t1240, t1241, t1242;
5457   double t1245, t1246, t1249, t1250, t1253, t1254, t1255, t1258;
5458   double t1261, t1262, t1263, t1274, t1275, t1276, t1278, t1279;
5459   double t1280, t1282, t1283, t1286, t1287, t1291, t1297, t1300;
5460   double t1301, t1303, t1306, t1308, t1317, t1319, t1320, t1322;
5461   double t1323, t1326, t1332, t1335, t1336, t1337, t1340, t1344;
5462   double t1345, t1348, t1353, t1357, t1359, t1362, t1365, t1370;
5463   double t1375, t1378, t1379, t1381, t1384, t1385, t1386, t1387;
5464   double t1388, t1390, t1394, t1397, t1400, t1409, t1416, t1419;
5465   double t1420, t1421, t1424, t1435, t1445, t1446, t1447, t1449;
5466   double t1450, t1451, t1453, t1454, t1457, t1460, t1465, t1466;
5467   double t1473, t1476, t1478, t1481, t1484, t1488, t1491, t1492;
5468   double t1493, t1498, t1504, t1507, t1508, t1509, t1512, t1515;
5469   double t1516, t1520, t1528, t1529, t1532, t1534, t1535, t1538;
5470   double t1542, t1543, t1546, t1549, t1556, t1557, t1558, t1561;
5471   double t1565, t1566, t1569, t1570, t1571, t1574, t1577, t1578;
5472   double t1579, t1590, t1591, t1592, t1594, t1595, t1596, t1598;
5473   double t1599, t1602, t1603, t1604, t1610, t1613, t1614, t1622;
5474   double t1626, t1627, t1630, t1633, t1635, t1636, t1638, t1642;
5475   double t1645, t1649, t1652, t1653, t1654;
5476 
5477 #ifndef XC_DONT_COMPILE_KXC
5478   double t1665, t1666, t1679, t1684, t1686, t1689, t1691, t1692;
5479   double t1696, t1703, t1704, t1705, t1708, t1709, t1713, t1714;
5480   double t1718, t1720, t1722, t1725, t1726, t1727, t1728, t1729;
5481   double t1733, t1734, t1739, t1742, t1749, t1750, t1753, t1754;
5482   double t1755, t1756, t1758, t1761, t1768, t1769, t1770, t1773;
5483   double t1778, t1779, t1782, t1783, t1786, t1791, t1795, t1796;
5484   double t1797, t1798, t1801, t1806, t1809, t1815, t1816, t1817;
5485   double t1820, t1821, t1822, t1825, t1826, t1830, t1831, t1832;
5486   double t1836, t1837, t1840, t1843, t1844, t1847, t1848, t1852;
5487   double t1853, t1854, t1857, t1861, t1862, t1863, t1867, t1870;
5488   double t1871, t1872, t1873, t1876, t1879, t1882, t1885, t1886;
5489   double t1889, t1893, t1896, t1897, t1900, t1901, t1902, t1905;
5490   double t1906, t1909, t1910, t1911, t1914, t1921, t1925, t1926;
5491   double t1927, t1930, t1933, t1934, t1937, t1938, t1941, t1942;
5492   double t1943, t1946, t1949, t1954, t1964, t1965, t1966, t1970;
5493   double t1976, t1981, t1982, t1983, t1984, t1993, t1995, t1996;
5494   double t2002, t2003, t2009, t2010, t2011, t2014, t2015, t2024;
5495   double t2025, t2026, t2029, t2032, t2041, t2044, t2047, t2050;
5496   double t2051, t2054, t2055, t2058, t2061, t2066, t2069, t2070;
5497   double t2073, t2074, t2075, t2078, t2079, t2080, t2083, t2084;
5498   double t2092, t2094, t2095, t2099, t2102, t2103, t2107, t2115;
5499   double t2119, t2120, t2121, t2122, t2126, t2128, t2129, t2134;
5500   double t2135, t2139, t2140, t2145, t2149, t2156, t2165, t2170;
5501   double t2176, t2181, t2188, t2191, t2194, t2195, t2196, t2197;
5502   double t2198, t2200, t2202, t2212, t2215, t2218, t2221, t2224;
5503   double t2225, t2230, t2233, t2238, t2243, t2244, t2251, t2254;
5504   double t2255, t2258, t2259, t2264, t2267, t2275, t2279, t2280;
5505   double t2283, t2284, t2285, t2288, t2291, t2292, t2293, t2296;
5506   double t2297, t2298, t2299, t2304, t2305, t2308, t2311, t2312;
5507   double t2313, t2316, t2319, t2322, t2327, t2330, t2335, t2338;
5508   double t2340, t2341, t2343, t2344, t2346, t2349, t2350, t2352;
5509   double t2354, t2355, t2357, t2361, t2362, t2365, t2368, t2371;
5510   double t2376, t2381, t2384, t2387, t2395, t2398, t2408, t2409;
5511   double t2412, t2415, t2418, t2421, t2427, t2430, t2431, t2434;
5512   double t2439, t2443, t2446, t2451, t2452, t2463, t2466, t2467;
5513   double t2468, t2471, t2474, t2475, t2478, t2481, t2482, t2483;
5514   double t2484, t2487, t2488, t2493, t2500, t2501, t2506, t2510;
5515   double t2517, t2520, t2521, t2527, t2528, t2531, t2534, t2535;
5516   double t2538, t2539, t2542, t2544, t2550, t2553, t2556, t2559;
5517   double t2562, t2563, t2565, t2568, t2578, t2581, t2588, t2589;
5518   double t2594, t2595, t2601, t2604, t2609, t2614, t2615, t2616;
5519   double t2619, t2626, t2627, t2631, t2639, t2642, t2643, t2644;
5520   double t2647, t2655, t2658, t2663, t2666, t2669, t2672, t2673;
5521   double t2675, t2679, t2682, t2686, t2695, t2696, t2699, t2702;
5522   double t2703, t2706, t2707, t2710, t2713, t2717, t2724, t2728;
5523   double t2729, t2730, t2732, t2733, t2736, t2737, t2738, t2741;
5524   double t2744, t2747, t2748, t2755, t2758, t2761, t2762, t2765;
5525   double t2766, t2767, t2768, t2771, t2774, t2778, t2781, t2784;
5526   double t2785, t2788, t2791, t2792, t2800, t2803, t2809, t2812;
5527   double t2813, t2816, t2818, t2821, t2824, t2827, t2836, t2837;
5528   double t2840, t2844, t2845, t2846, t2849, t2853, t2863, t2864;
5529   double t2867, t2874, t2883, t2884, t2890, t2893, t2896, t2897;
5530   double t2902, t2904, t2905, t2908, t2911, t2914, t2917, t2918;
5531   double t2921, t2922, t2928, t2931, t2938, t2948, t2953, t2957;
5532   double t2958, t2959, t2962, t2965, t2968, t2969, t2977, t2982;
5533   double t2987, t3022, t3026, t3029, t3030, t3032, t3033, t3036;
5534   double t3039, t3042, t3045, t3046, t3047, t3053, t3058, t3061;
5535   double t3062, t3081, t3083, t3086, t3087, t3090, t3093, t3096;
5536   double t3097, t3102, t3105, t3106, t3109, t3110, t3113, t3116;
5537   double t3121, t3126, t3130, t3133, t3134, t3139, t3142, t3143;
5538   double t3148, t3149, t3153, t3156, t3157, t3158, t3161, t3169;
5539   double t3180, t3183, t3189, t3195, t3196, t3200, t3208, t3210;
5540   double t3212, t3220, t3223, t3228, t3233, t3234, t3247, t3248;
5541   double t3251, t3261, t3264, t3272, t3273, t3280, t3289, t3290;
5542   double t3293, t3297, t3298, t3301, t3302, t3305, t3306, t3309;
5543   double t3312, t3315, t3318, t3321, t3322, t3325, t3326, t3329;
5544   double t3332, t3335, t3342, t3345, t3348, t3351, t3358, t3362;
5545   double t3364, t3365, t3367, t3368, t3370, t3371, t3372, t3377;
5546   double t3381, t3384, t3385, t3392, t3395, t3398, t3399, t3402;
5547   double t3403, t3408, t3412, t3417, t3418, t3421, t3424, t3427;
5548   double t3428, t3431, t3434, t3446, t3449, t3455, t3458, t3461;
5549   double t3464, t3471, t3472, t3475, t3476, t3480, t3481, t3489;
5550   double t3490, t3493, t3494, t3497, t3500, t3503, t3506, t3509;
5551   double t3510, t3512, t3513, t3516, t3519, t3523, t3524, t3527;
5552   double t3528, t3535, t3538, t3541, t3544, t3547, t3548, t3550;
5553   double t3555, t3558, t3563, t3565, t3580, t3587, t3596, t3597;
5554   double t3600, t3601, t3607, t3610, t3613, t3614, t3622, t3625;
5555   double t3626, t3627, t3630, t3634, t3639, t3643, t3646, t3648;
5556   double t3651, t3653, t3658, t3663, t3665, t3670, t3671, t3676;
5557   double t3679, t3682, t3685, t3688, t3692, t3699, t3700, t3703;
5558   double t3707, t3708, t3711, t3714, t3715, t3718, t3719, t3720;
5559   double t3726, t3728, t3732, t3735, t3742, t3747, t3748, t3749;
5560   double t3751, t3753, t3754, t3760, t3763, t3764, t3767, t3770;
5561   double t3771, t3773, t3774, t3776, t3777, t3778, t3780, t3787;
5562   double t3790, t3792, t3793, t3795, t3796, t3818, t3819, t3827;
5563   double t3830, t3832, t3835, t3836, t3839, t3840, t3843, t3848;
5564   double t3852, t3859, t3862, t3863, t3866, t3868, t3871, t3874;
5565   double t3879, t3880, t3881, t3884, t3885, t3890, t3891, t3894;
5566   double t3903, t3907, t3910, t3911, t3914, t3917, t3928, t3939;
5567   double t3942, t3945, t3946, t3949, t3950, t3952, t3954, t3956;
5568   double t3958, t3974, t3975, t3980, t3983, t3984, t3987, t3988;
5569   double t3991, t3992, t4001, t4009, t4010, t4018, t4019, t4020;
5570   double t4040, t4041, t4042, t4046, t4047, t4053, t4055, t4063;
5571   double t4064, t4067, t4068, t4071, t4072, t4075, t4076, t4081;
5572   double t4086, t4089, t4090, t4095, t4109, t4114, t4119, t4123;
5573   double t4124, t4126, t4127, t4130, t4135, t4137, t4140, t4143;
5574   double t4144, t4150, t4157, t4160, t4161, t4168, t4169, t4184;
5575   double t4186, t4191, t4193, t4198, t4199, t4200, t4203, t4206;
5576   double t4213, t4217, t4221, t4222, t4227, t4228, t4231, t4234;
5577   double t4238, t4240, t4245, t4246, t4256, t4259, t4262, t4263;
5578   double t4273, t4276, t4277, t4278, t4279, t4282, t4286, t4291;
5579   double t4296, t4297, t4303, t4304, t4314, t4317, t4318, t4321;
5580   double t4326, t4332, t4337, t4344, t4345, t4346, t4349, t4353;
5581   double t4354, t4355, t4358, t4359, t4360, t4364, t4367, t4370;
5582   double t4371, t4377, t4382, t4383, t4384, t4388, t4389, t4399;
5583   double t4402, t4405, t4408, t4411, t4416, t4419, t4421, t4423;
5584   double t4424, t4426, t4427, t4429, t4430, t4431, t4433, t4434;
5585   double t4436, t4438, t4439, t4441, t4447, t4453, t4457, t4460;
5586   double t4484, t4489, t4490, t4496, t4497, t4505, t4506, t4509;
5587   double t4510, t4513, t4516, t4519, t4522, t4533, t4535, t4549;
5588   double t4552, t4560, t4563, t4571, t4572, t4575, t4582, t4588;
5589   double t4591, t4603, t4614, t4617, t4620, t4623, t4626, t4627;
5590   double t4629, t4630, t4633, t4636, t4642, t4648, t4654, t4657;
5591   double t4658, t4665, t4666, t4681, t4683, t4688, t4695, t4696;
5592   double t4697, t4701, t4706, t4707, t4710, t4713, t4722, t4725;
5593   double t4726, t4729, t4730, t4734, t4737, t4740, t4741, t4746;
5594   double t4747, t4751, t4754, t4755, t4756, t4759, t4763, t4764;
5595   double t4770, t4779, t4783, t4789, t4795, t4798, t4807, t4812;
5596   double t4815, t4821, t4827, t4828, t4831, t4834, t4837, t4840;
5597   double t4849, t4850, t4851, t4853, t4855, t4856, t4858, t4859;
5598   double t4860, t4862, t4864, t4865, t4867, t4879, t4880, t4883;
5599   double t4884, t4889, t4892, t4893, t4896, t4910, t4928, t4933;
5600   double t4946, t4947, t4950, t4955, t4957, t4958, t4960, t4961;
5601   double t4966, t4967, t4977, t4978, t4981, t4984, t4985, t4987;
5602   double t4990, t4993, t4997, t5000, t5004, t5005, t5006, t5009;
5603   double t5016, t5018, t5021, t5024, t5027, t5028, t5033, t5041;
5604   double t5044, t5045, t5046, t5049, t5053, t5060, t5062, t5067;
5605   double t5071, t5072, t5074, t5079, t5082, t5085, t5087, t5090;
5606   double t5095, t5098, t5101, t5104, t5108, t5115, t5116, t5118;
5607   double t5121, t5122, t5123, t5125, t5126, t5128, t5129, t5130;
5608   double t5136, t5139, t5140, t5147, t5151, t5152, t5157, t5162;
5609   double t5163, t5164, t5166, t5174, t5183, t5192, t5194, t5196;
5610   double t5198, t5200, t5201, t5202, t5204, t5206, t5208, t5210;
5611   double t5231, t5242, t5243, t5249, t5252, t5288, t5296, t5317;
5612   double t5320, t5331, t5335, t5336, t5341, t5344, t5356, t5372;
5613   double t5375, t5376, t5378, t5379, t5384, t5388, t5391, t5399;
5614   double t5405, t5406, t5416, t5419, t5421, t5425, t5429, t5434;
5615   double t5442, t5449, t5452, t5454, t5457, t5459, t5468, t5471;
5616   double t5480, t5483, t5484, t5485, t5488, t5492, t5499, t5502;
5617   double t5505, t5515, t5518, t5521, t5528, t5529, t5537, t5538;
5618   double t5542, t5545, t5548, t5551, t5552, t5553, t5556, t5559;
5619   double t5560, t5562, t5563, t5564, t5569, t5570, t5575, t5576;
5620   double t5579, t5610, t5611, t5625, t5635, t5646, t5649, t5652;
5621   double t5661, t5664, t5667, t5669, t5672, t5675, t5680, t5685;
5622   double t5689, t5690, t5696, t5702, t5708, t5715, t5722, t5726;
5623   double t5741, t5748, t5761, t5762, t5763, t5768, t5788, t5791;
5624   double t5792, t5794, t5795, t5800, t5818, t5819, t5826, t5838;
5625   double t5841, t5847, t5854, t5859, t5864, t5868, t5871, t5873;
5626   double t5877, t5882, t5889, t5899, t5902, t5903, t5904, t5907;
5627   double t5910, t5911, t5912, t5916, t5920, t5928, t5931, t5940;
5628   double t5942, t5943, t5944, t5945, t5948, t5951, t5956, t5962;
5629   double t5968, t5971, t5974, t5985, t5993, t5994, t5998, t5999;
5630   double t6000, t6003, t6004, t6018, t6019, t6022, t6025, t6026;
5631   double t6034, t6038, t6045, t6046, t6052, t6053, t6056, t6059;
5632   double t6062, t6067, t6074, t6085, t6097, t6099, t6100, t6102;
5633   double t6103, t6107, t6110, t6111, t6114, t6120, t6127, t6128;
5634   double t6139, t6147, t6148, t6151, t6154, t6157, t6159, t6162;
5635   double t6165, t6169, t6172, t6176, t6181, t6185, t6188, t6189;
5636   double t6190;
5637 
5638 #ifndef XC_DONT_COMPILE_LXC
5639   double t6195, t6196, t6206, t6220, t6221, t6222, t6225, t6226;
5640   double t6230, t6236, t6241, t6249, t6251, t6259, t6263, t6266;
5641   double t6273, t6274, t6277, t6279, t6282, t6285, t6290, t6297;
5642   double t6300, t6301, t6307, t6319, t6338, t6339, t6352, t6353;
5643   double t6356, t6360, t6363, t6373, t6374, t6379, t6382, t6387;
5644   double t6390, t6391, t6394, t6398, t6399, t6411, t6414, t6415;
5645   double t6418, t6419, t6420, t6421, t6422, t6423, t6424, t6425;
5646   double t6426, t6434, t6435, t6440, t6444, t6450, t6451, t6454;
5647   double t6455, t6465, t6472, t6476, t6484, t6485, t6499, t6502;
5648   double t6509, t6512, t6517, t6522, t6523, t6530, t6533, t6536;
5649   double t6537, t6538, t6541, t6542, t6555, t6556, t6563, t6566;
5650   double t6567, t6571, t6580, t6583, t6584, t6585, t6588, t6592;
5651   double t6596, t6601, t6605, t6606, t6607, t6614, t6617, t6618;
5652   double t6621, t6622, t6625, t6628, t6635, t6641, t6642, t6648;
5653   double t6651, t6654, t6658, t6663, t6667, t6673, t6680, t6683;
5654   double t6684, t6688, t6693, t6697, t6700, t6703, t6704, t6707;
5655   double t6712, t6715, t6721, t6722, t6726, t6729, t6733, t6736;
5656   double t6742, t6745, t6770, t6778, t6788, t6792, t6801, t6802;
5657   double t6806, t6810, t6811, t6817, t6826, t6834, t6836, t6838;
5658   double t6842, t6857, t6860, t6863, t6892, t6895, t6899, t6918;
5659   double t6924, t6928, t6929, t6932, t6940, t6946, t6950, t6967;
5660   double t6968, t6969, t6970, t6975, t6976, t6979, t6991, t7016;
5661   double t7024, t7030, t7073, t7077, t7081, t7083, t7084, t7091;
5662   double t7125, t7129, t7130, t7147, t7152, t7160, t7181, t7182;
5663   double t7185, t7188, t7189, t7192, t7195, t7196, t7223, t7232;
5664   double t7234, t7238, t7244, t7251, t7271, t7272, t7286, t7289;
5665   double t7293, t7294, t7298, t7299, t7305, t7317, t7322, t7323;
5666   double t7325, t7326, t7329, t7331, t7333, t7338, t7343, t7348;
5667   double t7353, t7356, t7361, t7363, t7366, t7369, t7370, t7372;
5668   double t7374, t7375, t7381, t7383, t7386, t7388, t7389, t7399;
5669   double t7401, t7405, t7407, t7425, t7426, t7430, t7431, t7432;
5670   double t7439, t7450, t7455, t7458, t7459, t7466, t7473, t7475;
5671   double t7491, t7512, t7513, t7517, t7522, t7523, t7526, t7529;
5672   double t7532, t7545, t7548, t7554, t7560, t7566, t7569, t7570;
5673   double t7571, t7572, t7575, t7576, t7577, t7578, t7582, t7587;
5674   double t7601, t7602, t7606, t7618, t7621, t7633, t7654, t7663;
5675   double t7667, t7671, t7674, t7675, t7679, t7684, t7685, t7688;
5676   double t7689, t7698, t7720, t7723, t7732, t7733, t7735, t7741;
5677   double t7754, t7757, t7758, t7762, t7766, t7772, t7773, t7776;
5678   double t7777, t7786, t7789, t7793, t7816, t7817, t7818, t7821;
5679   double t7822, t7825, t7828, t7829, t7834, t7844, t7845, t7848;
5680   double t7872, t7878, t7889, t7892, t7895, t7896, t7901, t7902;
5681   double t7905, t7909, t7912, t7915, t7917, t7920, t7923, t7926;
5682   double t7929, t7932, t7935, t7938, t7942, t7956, t7966, t7975;
5683   double t7985, t7986, t7991, t7994, t7999, t8000, t8002, t8019;
5684   double t8022, t8036, t8041, t8042, t8048, t8055, t8059, t8076;
5685   double t8079, t8093, t8105, t8110, t8130, t8148, t8168, t8169;
5686   double t8176, t8180, t8185, t8198, t8199, t8215, t8218, t8221;
5687   double t8222, t8244, t8263, t8275, t8290, t8302, t8306, t8312;
5688   double t8315, t8326, t8374, t8399, t8400, t8406, t8409, t8428;
5689   double t8432, t8435, t8436, t8441, t8446, t8460, t8471, t8472;
5690   double t8475, t8480, t8485, t8499, t8502, t8505, t8510, t8517;
5691   double t8521, t8524, t8527, t8531, t8540, t8544, t8548, t8554;
5692   double t8562, t8564, t8578, t8581, t8589, t8592, t8603, t8608;
5693   double t8613, t8622, t8623, t8626, t8629, t8634, t8637, t8645;
5694   double t8649, t8651, t8654, t8658, t8660, t8661, t8663, t8665;
5695   double t8670, t8674, t8675, t8677, t8684, t8687, t8688, t8693;
5696   double t8694, t8698, t8703, t8704, t8706, t8707, t8717, t8719;
5697   double t8723, t8726, t8727, t8729, t8731, t8736, t8745, t8766;
5698   double t8771, t8776, t8790, t8793, t8803, t8807, t8830, t8843;
5699   double t8844, t8845, t8848, t8855, t8860, t8863, t8867, t8880;
5700   double t8881, t8885, t8888, t8890, t8895, t8904, t8908, t8912;
5701   double t8915, t8916, t8919, t8920, t8921, t8924, t8929, t8930;
5702   double t8933, t8936, t8964, t8965, t8970, t8973, t8988, t8991;
5703   double t8999, t9004, t9007, t9012, t9013, t9016, t9031, t9047;
5704   double t9078, t9084, t9087, t9114, t9120, t9123, t9126, t9129;
5705   double t9140, t9150, t9156, t9162, t9165, t9172, t9175, t9179;
5706   double t9180, t9184, t9197, t9200, t9202, t9203, t9227, t9231;
5707   double t9234, t9237, t9239, t9258, t9270, t9273, t9278, t9279;
5708   double t9281, t9292, t9317, t9321, t9330, t9333, t9337, t9341;
5709   double t9345, t9364, t9370, t9378, t9379, t9384, t9387, t9390;
5710   double t9395, t9403, t9408, t9412, t9415, t9416, t9418, t9422;
5711   double t9435, t9446, t9456, t9460, t9461, t9469, t9472, t9475;
5712   double t9478, t9494, t9505, t9524, t9531, t9541, t9560, t9635;
5713   double t9642, t9652, t9679, t9684, t9695, t9713, t9717, t9725;
5714   double t9739, t9740, t9753, t9758, t9763, t9765, t9775, t9793;
5715   double t9806, t9837, t9841, t9842, t9856, t9857, t9861, t9866;
5716   double t9874, t9877, t9899, t9901, t9908, t9915, t9923, t9927;
5717   double t9928, t9933, t9934, t9937, t9938, t9941, t9942, t9945;
5718   double t9946, t9947, t9950, t9953, t9956, t9958, t9961, t9965;
5719   double t9968, t9969, t9973, t9976, t9977, t9985, t9988, t10002;
5720   double t10006, t10009, t10015, t10016, t10019, t10020, t10030, t10031;
5721   double t10036, t10039, t10040, t10043, t10044, t10047, t10048, t10051;
5722   double t10057, t10069, t10074, t10080, t10086, t10089, t10105, t10112;
5723   double t10117, t10122, t10127, t10130, t10158, t10164, t10165, t10172;
5724   double t10184, t10185, t10186, t10189, t10190, t10194, t10197, t10200;
5725   double t10201, t10204, t10213, t10224, t10233, t10234, t10238, t10243;
5726   double t10248, t10251, t10254, t10258, t10259, t10265, t10268, t10273;
5727   double t10275, t10282, t10288, t10307, t10313, t10326, t10328, t10331;
5728   double t10333, t10341, t10345, t10348, t10350, t10362, t10374, t10377;
5729   double t10381, t10386, t10391, t10408, t10416, t10423, t10427, t10455;
5730   double t10467, t10470, t10473, t10496, t10521, t10522, t10547, t10548;
5731   double t10551, t10552, t10555, t10558, t10571, t10576, t10586, t10590;
5732   double t10594, t10597, t10605, t10608, t10609, t10613, t10617, t10620;
5733   double t10625, t10631, t10653, t10670, t10673, t10678, t10679, t10708;
5734   double t10720, t10721, t10722, t10727, t10732, t10735, t10736, t10741;
5735   double t10746, t10754, t10755, t10758, t10761, t10763, t10764, t10775;
5736   double t10780, t10781, t10783, t10797, t10805, t10814, t10839, t10843;
5737   double t10847, t10851, t10855, t10858, t10859, t10865, t10878, t10885;
5738   double t10889, t10897, t10899, t10930, t10939, t10951, t10960, t10971;
5739   double t10981, t10990, t10993, t10994, t10997, t11000, t11026, t11054;
5740   double t11071, t11083, t11099, t11110, t11116, t11123, t11128, t11140;
5741   double t11143, t11157, t11172, t11189, t11199, t11202, t11205, t11224;
5742   double t11234, t11238, t11254, t11263, t11273, t11296, t11297, t11316;
5743   double t11319, t11322, t11327, t11331, t11336, t11342, t11347, t11348;
5744   double t11351, t11354, t11367, t11376, t11377, t11384, t11402, t11409;
5745   double t11412, t11415, t11431, t11439, t11440, t11443, t11452, t11458;
5746   double t11465, t11472, t11479, t11483, t11492, t11493, t11500, t11512;
5747   double t11515, t11516, t11520, t11533, t11538, t11565, t11578, t11579;
5748   double t11582, t11598, t11603, t11606, t11609, t11610, t11619, t11620;
5749   double t11623, t11624, t11633, t11647, t11655, t11658, t11661, t11666;
5750   double t11671, t11677, t11682, t11689, t11692, t11697, t11702, t11703;
5751   double t11704, t11709, t11713, t11716, t11719, t11722, t11725, t11730;
5752   double t11731, t11737, t11738, t11741, t11742, t11743, t11746, t11747;
5753   double t11755, t11756, t11757, t11762, t11765, t11768, t11771, t11774;
5754   double t11780, t11791, t11796, t11799, t11817, t11818, t11831, t11845;
5755   double t11853, t11854, t11860, t11864, t11867, t11870, t11876, t11892;
5756   double t11901, t11902, t11903, t11907, t11908, t11913, t11919, t11926;
5757   double t11929, t11932, t11943, t11945, t11948, t11957, t11962, t11974;
5758   double t11980, t11981, t11994, t11995, t12003, t12004, t12014, t12020;
5759   double t12024, t12033, t12048, t12051, t12056, t12063, t12074, t12081;
5760   double t12085, t12088, t12090, t12093, t12103, t12113, t12118, t12124;
5761   double t12135, t12141, t12144, t12149, t12161, t12166, t12191, t12194;
5762   double t12198, t12199, t12204, t12208, t12213, t12234, t12245, t12252;
5763   double t12255, t12259, t12267, t12271, t12275, t12287, t12290, t12299;
5764   double t12307, t12311, t12314, t12327, t12330, t12342, t12347, t12356;
5765   double t12361, t12370, t12373, t12396, t12397, t12402, t12407, t12414;
5766   double t12417, t12420, t12423, t12426, t12429, t12437, t12443, t12458;
5767   double t12463, t12474, t12485, t12497, t12514, t12522, t12537, t12540;
5768   double t12565, t12592, t12610, t12613, t12625, t12629, t12633, t12640;
5769   double t12647, t12650, t12679, t12685, t12686, t12688, t12696, t12706;
5770   double t12709, t12748, t12756, t12779, t12781, t12784, t12788, t12792;
5771   double t12802, t12809, t12812, t12817, t12819, t12825, t12832, t12838;
5772   double t12854, t12856, t12894, t12922, t12937, t12941, t12986, t13001;
5773   double t13011, t13018, t13024, t13042, t13045, t13063, t13065, t13081;
5774   double t13092, t13100, t13103, t13109, t13132, t13155, t13166, t13172;
5775   double t13176, t13180, t13188, t13191, t13196, t13199, t13202, t13203;
5776   double t13207, t13211, t13214, t13215, t13220, t13226, t13229, t13240;
5777   double t13261, t13267, t13274, t13303, t13329, t13333, t13340, t13351;
5778   double t13353, t13370, t13371, t13383, t13384, t13389, t13392, t13393;
5779   double t13396, t13397, t13401, t13411, t13417, t13422, t13423, t13424;
5780   double t13429, t13432, t13433, t13441, t13442, t13453, t13458, t13468;
5781   double t13474, t13479, t13480, t13500, t13507, t13508, t13514, t13517;
5782   double t13524, t13525, t13535, t13539, t13540, t13545, t13546, t13554;
5783   double t13564, t13567, t13568, t13571, t13574, t13579, t13584, t13591;
5784   double t13602, t13611, t13614, t13629, t13632, t13636, t13643, t13646;
5785   double t13653, t13656, t13659, t13676, t13685, t13698, t13702, t13705;
5786   double t13709, t13715, t13718, t13722, t13728, t13731, t13737, t13743;
5787   double t13753, t13758, t13761, t13766, t13776, t13792, t13799, t13811;
5788   double t13824, t13832, t13850, t13853, t13854, t13870, t13886, t13887;
5789   double t13890, t13891, t13894, t13895, t13898, t13901, t13902, t13905;
5790   double t13910, t13920, t13922, t13925, t13926, t13930, t13933, t13939;
5791   double t13945, t13946, t13967, t13972, t13976, t13979, t13982, t13987;
5792   double t13988, t13991, t13992, t13998, t14003, t14006, t14009, t14012;
5793   double t14015, t14022, t14027, t14046, t14050, t14061, t14066, t14070;
5794   double t14071, t14080, t14087, t14097, t14101, t14121, t14139, t14145;
5795   double t14149, t14159, t14185, t14186, t14199, t14206, t14213, t14243;
5796   double t14246, t14252, t14257, t14258, t14260, t14264, t14269, t14272;
5797   double t14278, t14290, t14291, t14331, t14341, t14354, t14358, t14362;
5798   double t14367, t14370, t14371, t14378, t14381, t14384, t14387, t14389;
5799   double t14412, t14418, t14421, t14423, t14437, t14456, t14457, t14462;
5800   double t14475, t14479, t14482, t14485, t14488, t14497, t14500, t14506;
5801   double t14509, t14520, t14523, t14530, t14536, t14537, t14547, t14552;
5802   double t14559, t14574, t14580, t14587, t14597, t14601, t14630, t14637;
5803   double t14667, t14674, t14694, t14697, t14765, t14791, t14857, t14869;
5804   double t14872, t14884, t14887, t14899, t14909, t14913, t14918, t14929;
5805   double t14932, t14935, t14936, t14939, t14942, t14943, t14946, t14947;
5806   double t14950, t14953, t14958, t14959, t14962, t14982, t14995, t15014;
5807   double t15015, t15018, t15019, t15028, t15035, t15036, t15044, t15049;
5808   double t15052, t15053, t15059, t15062, t15071, t15073, t15079, t15089;
5809   double t15093, t15096, t15097, t15109, t15110, t15113, t15116, t15118;
5810   double t15121, t15127, t15131, t15141, t15144, t15147, t15156, t15157;
5811   double t15164, t15170, t15181, t15182, t15194, t15215, t15218, t15223;
5812   double t15224, t15227, t15236, t15242, t15249, t15257, t15264, t15271;
5813   double t15273, t15280, t15284, t15294, t15299, t15304, t15308, t15313;
5814   double t15316, t15317, t15321, t15331, t15332, t15341, t15345, t15348;
5815   double t15357, t15360, t15364, t15376, t15382, t15388, t15392, t15409;
5816   double t15421, t15422, t15434, t15451, t15460, t15463, t15467, t15470;
5817   double t15471, t15476, t15477, t15478, t15481, t15482, t15488, t15492;
5818   double t15495, t15498, t15506, t15509, t15519, t15544, t15547, t15564;
5819   double t15577, t15578, t15589, t15594, t15595, t15597, t15601, t15614;
5820   double t15629, t15644, t15674, t15728, t15747, t15750, t15758, t15783;
5821   double t15798, t15799, t15802, t15808, t15822, t15849, t15858, t15862;
5822   double t15869, t15885, t15888, t15892, t15899, t15907, t15917, t15947;
5823   double t15950, t15952, t15953, t15954, t15957, t15960, t15961, t15984;
5824   double t16008, t16011, t16014, t16018, t16019, t16044, t16045, t16048;
5825   double t16065, t16070, t16073, t16082, t16086, t16098, t16115, t16124;
5826   double t16148, t16151, t16169, t16172, t16173, t16176, t16177, t16180;
5827   double t16183, t16200, t16204, t16218, t16221, t16233, t16237, t16238;
5828   double t16241, t16243, t16244, t16247, t16275, t16292, t16304, t16333;
5829   double t16338, t16342, t16350, t16363, t16369, t16384, t16401, t16404;
5830   double t16407, t16420, t16425, t16430, t16434, t16438, t16442, t16452;
5831   double t16455, t16472, t16475, t16498, t16504, t16505, t16508, t16511;
5832   double t16539, t16543, t16550, t16572, t16575, t16591, t16595, t16603;
5833   double t16610, t16618, t16621, t16624, t16627, t16630, t16643, t16655;
5834   double t16672, t16675, t16688, t16691, t16704, t16713, t16714, t16718;
5835   double t16721, t16722, t16727, t16730, t16743, t16754, t16757, t16760;
5836   double t16763, t16764, t16765, t16768, t16769, t16777, t16778, t16781;
5837   double t16785, t16792, t16804, t16807, t16808, t16811, t16812, t16815;
5838   double t16818, t16821, t16825, t16829, t16853, t16866, t16867, t16880;
5839   double t16889, t16894, t16899, t16904, t16910, t16915, t16930, t16941;
5840   double t16942, t16957, t16961, t16970, t16984, t16996, t16997, t17001;
5841   double t17014, t17021, t17025, t17033, t17036, t17047, t17054, t17072;
5842   double t17090, t17106, t17121, t17128, t17131, t17134, t17137, t17142;
5843   double t17143, t17146, t17150, t17156, t17177, t17181, t17193, t17212;
5844   double t17213, t17216, t17248, t17270, t17281, t17285, t17316, t17332;
5845   double t17333, t17342, t17347, t17370, t17373, t17383, t17389, t17390;
5846   double t17392, t17407, t17430, t17431, t17439, t17443, t17463, t17465;
5847   double t17482, t17483, t17486, t17495, t17497, t17530, t17537, t17562;
5848   double t17582, t17602, t17607, t17618, t17631, t17637, t17654, t17655;
5849   double t17660, t17668, t17671, t17704, t17707, t17744, t17753, t17769;
5850   double t17790, t17798, t17813, t17826, t17841, t17842, t17873, t17876;
5851   double t17899, t17911, t17912, t17927, t17932, t17938, t17946, t17959;
5852   double t17967, t17987, t17993, t17996, t18000, t18003, t18033, t18034;
5853   double t18057, t18060, t18073, t18085, t18104, t18105, t18121, t18122;
5854   double t18126, t18129, t18144, t18147, t18180, t18191, t18192, t18193;
5855   double t18198, t18201, t18218, t18219, t18224, t18238, t18239, t18242;
5856   double t18252, t18253, t18258, t18288, t18291, t18292, t18295, t18300;
5857   double t18310, t18314, t18318, t18322, t18325, t18326, t18329, t18330;
5858   double t18331, t18334, t18336, t18339, t18340, t18343, t18346, t18360;
5859   double t18369, t18372, t18375, t18378, t18379, t18397, t18400, t18403;
5860   double t18406, t18407, t18410, t18416, t18425, t18433, t18437, t18440;
5861   double t18441, t18446, t18452, t18453, t18462, t18473, t18476, t18481;
5862   double t18486, t18501, t18504, t18509, t18510, t18519, t18528, t18529;
5863   double t18535, t18538, t18553, t18556, t18557, t18558, t18586, t18598;
5864   double t18599, t18602, t18603, t18607, t18610, t18617, t18629, t18630;
5865   double t18631, t18636, t18639, t18651, t18656, t18659, t18662, t18665;
5866   double t18667, t18671, t18674, t18684, t18687, t18690, t18703, t18708;
5867   double t18716, t18723, t18729, t18735, t18742, t18745, t18748, t18760;
5868   double t18762, t18764, t18773, t18788, t18810, t18812, t18816, t18838;
5869   double t18848, t18857, t18858, t18886, t18909, t18916, t18922, t18935;
5870   double t18936, t18942, t18949, t18950, t18957, t18960, t18963, t18966;
5871   double t18982, t18993, t19006, t19009, t19012, t19019, t19030, t19054;
5872   double t19075, t19088, t19106, t19109, t19110, t19113, t19114, t19126;
5873   double t19145, t19151, t19160, t19163, t19193, t19207, t19214, t19230;
5874   double t19238, t19247, t19258, t19259, t19269, t19303, t19330, t19335;
5875   double t19338, t19348, t19355, t19367, t19401, t19407, t19408, t19410;
5876   double t19416, t19423, t19444, t19461, t19464, t19473, t19498, t19552;
5877   double t19555, t19597, t19618, t19621, t19624, t19628, t19635, t19646;
5878   double t19647, t19654, t19659, t19684, t19686, t19715, t19725, t19729;
5879   double t19741, t19758, t19781, t19797, t19811, t19830, t19831, t19832;
5880   double t19845, t19848, t19849, t19856, t19862, t19878, t19890, t19908;
5881   double t19909, t19924, t19927, t19935, t19938, t19941, t19942, t19952;
5882   double t19953, t19959, t19965, t19968, t19992, t19996, t19999, t20000;
5883   double t20005, t20009, t20010, t20017, t20020, t20021, t20029, t20040;
5884   double t20044, t20047, t20050, t20062, t20066, t20069, t20070, t20073;
5885   double t20074, t20083, t20089, t20099, t20102, t20112, t20115, t20121;
5886   double t20126, t20148, t20160, t20163, t20186, t20187, t20189, t20193;
5887   double t20198, t20199, t20203, t20207, t20208, t20210, t20214, t20218;
5888   double t20223, t20225, t20227, t20232, t20235, t20245, t20257, t20273;
5889   double t20277, t20300, t20301, t20307, t20310, t20314, t20347, t20350;
5890   double t20368, t20385, t20418, t20427, t20430, t20431, t20436, t20437;
5891   double t20442, t20454, t20493, t20496, t20505, t20509, t20530, t20535;
5892   double t20541, t20548, t20551, t20554, t20558, t20561, t20566, t20569;
5893   double t20570, t20573, t20574, t20580, t20587, t20610, t20615, t20616;
5894   double t20618, t20621, t20648, t20662, t20666, t20676, t20680, t20698;
5895   double t20701, t20702, t20705, t20708, t20709, t20712, t20717, t20723;
5896   double t20727, t20734, t20747, t20750, t20751, t20759, t20764, t20777;
5897   double t20781, t20787, t20791, t20800, t20806, t20811, t20817, t20822;
5898   double t20828, t20834, t20843, t20849, t20852, t20857, t20863, t20864;
5899   double t20865, t20868, t20892, t20901, t20910, t20916, t20930, t20959;
5900   double t20969, t20994, t21010, t21016, t21023, t21024, t21039, t21047;
5901   double t21072, t21085, t21088, t21089, t21092, t21093, t21094, t21097;
5902   double t21110, t21121, t21125, t21128, t21134, t21141, t21164, t21165;
5903   double t21169, t21170, t21176, t21180, t21186, t21208, t21211, t21216;
5904   double t21219, t21220, t21243, t21246, t21250, t21256, t21260, t21272;
5905   double t21286, t21294, t21300, t21302, t21309, t21313, t21321, t21324;
5906   double t21330, t21334, t21337, t21359, t21371, t21376, t21407, t21411;
5907   double t21412, t21414, t21423, t21430, t21433, t21435, t21459, t21491;
5908   double t21495, t21518, t21523, t21529, t21535, t21536, t21537, t21544;
5909   double t21551, t21582, t21583, t21586, t21670, t21671, t21680, t21718;
5910   double t21738, t21751, t21765, t21768, t21772, t21776, t21777, t21807;
5911   double t21810, t21821, t21836, t21847, t21848, t21858, t21872, t21873;
5912   double t21892, t21900, t21911, t21919, t21920, t21928, t21931, t21934;
5913   double t21937, t21966, t21995, t22018, t22024, t22028, t22033, t22040;
5914   double t22056, t22067, t22076, t22102, t22113, t22142, t22150, t22153;
5915   double t22158, t22163, t22166, t22180, t22210, t22215, t22255, t22296;
5916   double t22331, t22332, t22347, t22361, t22373, t22401, t22423, t22427;
5917   double t22432, t22433, t22435, t22439, t22443, t22452, t22468, t22472;
5918   double t22493, t22496, t22506, t22513, t22529, t22530, t22560, t22610;
5919   double t22655, t22691, t22694, t22697, t22722, t22736, t22739, t22744;
5920   double t22784, t22805, t22809, t22819, t22823, t22824, t22834, t22863;
5921   double t22865, t22879, t22880, t22899, t22900, t22903, t22922, t22943;
5922   double t22947, t22957, t22960, t22967, t22972, t22973, t22983, t22986;
5923   double t22993, t22994, t23013, t23014, t23017, t23034, t23045, t23048;
5924   double t23051, t23059, t23067, t23071, t23073, t23076, t23080, t23083;
5925   double t23086, t23087, t23096, t23098, t23100, t23102, t23105, t23115;
5926   double t23117, t23120, t23124, t23130, t23131, t23133, t23139, t23143;
5927   double t23147, t23151, t23153, t23163, t23177, t23209, t23253, t23281;
5928   double t23297, t23298, t23303, t23335, t23341, t23390, t23399, t23437;
5929   double t23484, t23531, t23574, t23587, t23612, t23652, t23695, t23700;
5930   double t23701, t23703, t23711, t23725, t23735, t23752, t23761, t23771;
5931   double t23786, t23789, t23800, t23810, t23813, t23836, t23838, t23843;
5932   double t23857, t23860, t23861, t23914, t23942, t23957, t23984, t23993;
5933   double t24027, t24050, t24060, t24063, t24095, t24096, t24107, t24112;
5934   double t24115, t24116, t24119, t24128, t24136, t24163, t24164, t24202;
5935   double t24205, t24218, t24227, t24230, t24233, t24234, t24239, t24243;
5936   double t24269, t24274, t24275, t24280, t24302, t24312, t24315, t24323;
5937   double t24353, t24356, t24357, t24360, t24383, t24392, t24409, t24428;
5938   double t24445, t24454, t24462, t24476, t24499, t24502, t24525, t24535;
5939   double t24570, t24573, t24583, t24612, t24652, t24678, t24684, t24687;
5940   double t24692, t24698, t24704, t24738, t24751, t24781, t24788, t24820;
5941   double t24825, t24826, t24828, t24870, t24874, t24884, t24888, t24908;
5942   double t24913, t24916, t24921, t24946, t24947, t24955, t24968, t24975;
5943   double t24978, t24983, t24994, t25061, t25074, t25083, t25084, t25087;
5944   double t25096, t25111, t25124, t25140, t25157, t25158, t25161, t25164;
5945   double t25165, t25168, t25173, t25174, t25175, t25200, t25219, t25220;
5946   double t25236, t25245, t25246, t25253, t25266, t25269, t25275, t25284;
5947   double t25287, t25306, t25323, t25329, t25330, t25357, t25365, t25368;
5948   double t25376, t25380, t25390, t25392, t25409, t25410, t25412, t25419;
5949   double t25428, t25448, t25489, t25493, t25494, t25496, t25504, t25512;
5950   double t25513, t25522, t25529, t25536, t25573, t25578, t25584, t25591;
5951   double t25604, t25625, t25626, t25628, t25632, t25640, t25650, t25653;
5952   double t25658, t25687;
5953 #endif
5954 
5955 #endif
5956 
5957 #endif
5958 
5959 #endif
5960 
5961 #endif
5962 
5963 
5964   mgga_x_scan_params *params;
5965 
5966   assert(p->params != NULL);
5967   params = (mgga_x_scan_params * )(p->params);
5968 
5969   t2 = M_CBRT3;
5970   t4 = POW_1_3(0.1e1 / M_PI);
5971   t5 = t2 * t4;
5972   t6 = M_CBRT4;
5973   t7 = t6 * t6;
5974   t8 = t5 * t7;
5975   t9 = POW_1_3(rho[0]);
5976   t10 = M_CBRT6;
5977   t11 = M_PI * M_PI;
5978   t12 = POW_1_3(t11);
5979   t13 = t12 * t12;
5980   t14 = 0.1e1 / t13;
5981   t15 = t10 * t14;
5982   t16 = rho[0] * rho[0];
5983   t17 = t9 * t9;
5984   t18 = t17 * t16;
5985   t19 = 0.1e1 / t18;
5986   t20 = sigma[0] * t19;
5987   t21 = t15 * t20;
5988   t25 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
5989   t26 = t10 * t10;
5990   t27 = t25 * t26;
5991   t28 = t12 * t11;
5992   t29 = 0.1e1 / t28;
5993   t30 = t27 * t29;
5994   t31 = sigma[0] * sigma[0];
5995   t32 = t16 * t16;
5996   t33 = t32 * rho[0];
5997   t35 = 0.1e1 / t9 / t33;
5998   t36 = t31 * t35;
5999   t38 = t14 * sigma[0];
6000   t39 = t38 * t19;
6001   t42 = exp(-0.27e2 / 0.80e2 * t25 * t10 * t39);
6002   t46 = sqrt(0.146e3);
6003   t47 = t46 * t10;
6004   t50 = t26 * t13;
6005   t51 = 0.5e1 / 0.72e2 * t21;
6006   t53 = t17 * rho[0];
6007   t54 = 0.1e1 / t53;
6008   t58 = t26 * t29;
6009   t59 = lapl[0] * lapl[0];
6010   t60 = t16 * rho[0];
6011   t62 = 0.1e1 / t9 / t60;
6012   t65 = t58 * t59 * t62 / 0.5832e4;
6013   t67 = 0.1e1 / t9 / t32;
6014   t68 = sigma[0] * t67;
6015   t71 = t58 * t68 * lapl[0] / 0.5184e4;
6016   t72 = t58 * t36;
6017   t73 = t72 / 0.17496e5;
6018   t74 = 0.1e1 + 0.5e1 / 0.648e3 * t21 + 0.5e1 / 0.54e2 * t15 * lapl[0] * t54 + t65 - t71 + t73;
6019   t75 = t65 - t71 + t73;
6020   t76 = t75 * t75;
6021   t77 = 0.1e1 + t51;
6022   t78 = t77 * t77;
6023   t79 = 0.1e1 / t78;
6024   t81 = t76 * t79 + 0.1e1;
6025   t82 = sqrt(t81);
6026   t83 = 0.1e1 / t82;
6027   t84 = t74 * t83;
6028   t85 = t84 - t51;
6029   t86 = t85 <= 0.0e0;
6030   t87 = 0.1784720e1 <= t85;
6031   t88 = 0.1e1 / t85;
6032   t90 = exp(-0.461000314880e0 * t88);
6033   t91 = 0.1784720e1 - t84 + t51;
6034   t94 = exp(-0.1784720e1 / t91);
6035   t95 = 0.1e1 + t94;
6036   t96 = pow(t95, 0.258304e0);
6037   t97 = t90 * t96;
6038   t99 = exp(-0.1784720e1 * t88);
6039   t100 = t99 + t94;
6040   t101 = pow(t100, -0.258304e0);
6041   t102 = t97 * t101;
6042   t103 = my_piecewise3(t87, 1, t102);
6043   t104 = my_piecewise3(t86, 0, t103);
6044   t110 = 0.3e1 / 0.10e2 * t50 * (t85 * t104 + t51) - t20 / 0.8e1;
6045   t113 = 0.5e1 / 0.9e1 * t110 * t10 * t14;
6046   t114 = 0.1e1 - t113;
6047   t116 = t114 * t114;
6048   t118 = exp(-t116 / 0.2e1);
6049   t121 = 0.7e1 / 0.12960e5 * t47 * t39 + t46 * t114 * t118 / 0.100e3;
6050   t122 = t121 * t121;
6051   t123 = params->k1 + 0.5e1 / 0.972e3 * t21 + t30 * t36 * t42 / 0.576e3 + t122;
6052   t128 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t123);
6053   t129 = t113 <= 0.1e1;
6054   t130 = params->c1 * t110;
6055   t131 = 0.1e1 / t114;
6056   t132 = t15 * t131;
6057   t135 = exp(-0.5e1 / 0.9e1 * t130 * t132);
6058   t137 = exp(params->c2 * t131);
6059   t139 = my_piecewise3(t129, t135, -params->d * t137);
6060   t140 = 0.1e1 - t139;
6061   t143 = t128 * t140 + 0.1174e1 * t139;
6062   t145 = sqrt(0.3e1);
6063   t146 = 0.1e1 / t12;
6064   t147 = t26 * t146;
6065   t148 = sqrt(sigma[0]);
6066   t149 = t9 * rho[0];
6067   t150 = 0.1e1 / t149;
6068   t152 = t147 * t148 * t150;
6069   t153 = sqrt(t152);
6070   t157 = exp(-0.98958000000000000000e1 * t145 / t153);
6071   t158 = 0.1e1 - t157;
6072   t160 = t8 * t9 * t143 * t158;
6073   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
6074     zk[0] = -0.3e1 / 0.8e1 * t160;
6075 
6076 #ifndef XC_DONT_COMPILE_VXC
6077 
6078   if(order < 1) return;
6079 
6080 
6081   t164 = t149 * t2 * t4;
6082   t165 = params->k1 * params->k1;
6083   t166 = t123 * t123;
6084   t168 = t165 / t166;
6085   t170 = 0.1e1 / t17 / t60;
6086   t171 = sigma[0] * t170;
6087   t172 = t15 * t171;
6088   t174 = t32 * t16;
6089   t176 = 0.1e1 / t9 / t174;
6090   t177 = t31 * t176;
6091   t181 = t25 * t25;
6092   t182 = t11 * t11;
6093   t183 = 0.1e1 / t182;
6094   t184 = t181 * t183;
6095   t185 = t31 * sigma[0];
6096   t186 = t32 * t32;
6097   t187 = t186 * rho[0];
6098   t188 = 0.1e1 / t187;
6099   t193 = t38 * t170;
6100   t196 = 0.5e1 / 0.27e2 * t172;
6101   t203 = 0.5e1 / 0.8748e4 * t58 * t59 * t67;
6102   t204 = sigma[0] * t35;
6103   t207 = 0.13e2 / 0.15552e5 * t58 * t204 * lapl[0];
6104   t209 = 0.2e1 / 0.6561e4 * t58 * t177;
6105   t210 = -0.5e1 / 0.243e3 * t172 - 0.25e2 / 0.162e3 * t15 * lapl[0] * t19 - t203 + t207 - t209;
6106   t213 = 0.1e1 / t82 / t81;
6107   t214 = t74 * t213;
6108   t215 = t75 * t79;
6109   t216 = -t203 + t207 - t209;
6110   t219 = t78 * t77;
6111   t220 = 0.1e1 / t219;
6112   t221 = t76 * t220;
6113   t222 = t221 * t10;
6114   t225 = 0.2e1 * t215 * t216 + 0.10e2 / 0.27e2 * t222 * t193;
6115   t228 = t210 * t83 - t214 * t225 / 0.2e1 + t196;
6116   t230 = t85 * t85;
6117   t231 = 0.1e1 / t230;
6118   t232 = t231 * t228;
6119   t235 = pow(t95, -0.741696e0);
6120   t236 = t90 * t235;
6121   t237 = t236 * t101;
6122   t238 = t91 * t91;
6123   t239 = 0.1e1 / t238;
6124   t240 = -t228;
6125   t241 = t239 * t240;
6126   t242 = t241 * t94;
6127   t245 = pow(t100, -0.1258304e1);
6128   t249 = 0.1784720e1 * t232 * t99 + 0.1784720e1 * t242;
6129   t251 = t97 * t245 * t249;
6130   t254 = my_piecewise3(t87, 0, 0.461000314880e0 * t232 * t102 + 0.461000314880e0 * t237 * t242 - 0.258304e0 * t251);
6131   t255 = my_piecewise3(t86, 0, t254);
6132   t261 = 0.3e1 / 0.10e2 * t50 * (t228 * t104 + t85 * t255 - t196) + t171 / 0.3e1;
6133   t263 = t15 * t118;
6134   t266 = t46 * t116;
6135   t270 = -0.7e1 / 0.4860e4 * t47 * t193 - t46 * t261 * t263 / 0.180e3 + t266 * t261 * t263 / 0.180e3;
6136   t273 = -0.10e2 / 0.729e3 * t172 - t30 * t177 * t42 / 0.108e3 + 0.3e1 / 0.320e3 * t184 * t185 * t188 * t42 + 0.2e1 * t121 * t270;
6137   t274 = t273 * t140;
6138   t276 = params->c1 * t261;
6139   t279 = t130 * t26;
6140   t280 = 0.1e1 / t116;
6141   t281 = t29 * t280;
6142   t282 = t281 * t261;
6143   t285 = -0.5e1 / 0.9e1 * t276 * t132 - 0.25e2 / 0.81e2 * t279 * t282;
6144   t286 = t285 * t135;
6145   t287 = params->d * params->c2;
6146   t288 = t287 * t280;
6147   t289 = t261 * t10;
6148   t290 = t14 * t137;
6149   t291 = t289 * t290;
6150   t294 = my_piecewise3(t129, t286, -0.5e1 / 0.9e1 * t288 * t291);
6151   t297 = t168 * t274 - t128 * t294 + 0.1174e1 * t294;
6152   t298 = t7 * t297;
6153   t302 = 0.1e1 / rho[0];
6154   t303 = pow(0.3e1, 0.1e1 / 0.6e1);
6155   t304 = t303 * t303;
6156   t305 = t304 * t304;
6157   t306 = t305 * t303;
6158   t307 = t302 * t306;
6159   t308 = t4 * t7;
6160   t309 = t308 * t143;
6161   t312 = 0.1e1 / t153 / t152;
6162   t313 = t312 * t26;
6163   t316 = t313 * t146 * t148 * t157;
6164   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
6165     vrho[0] = -t160 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t298 * t158 - 0.24739500000000000000e1 * t307 * t309 * t316;
6166 
6167   t319 = t15 * t19;
6168   t324 = 0.1e1 / t186;
6169   t329 = t14 * t19;
6170   t332 = 0.5e1 / 0.72e2 * t319;
6171   t335 = t58 * t67 * lapl[0];
6172   t336 = t335 / 0.5184e4;
6173   t337 = t58 * t204;
6174   t338 = t337 / 0.8748e4;
6175   t339 = 0.5e1 / 0.648e3 * t319 - t336 + t338;
6176   t341 = -t336 + t338;
6177   t346 = 0.2e1 * t215 * t341 - 0.5e1 / 0.36e2 * t221 * t319;
6178   t349 = t339 * t83 - t214 * t346 / 0.2e1 - t332;
6179   t351 = t231 * t349;
6180   t354 = -t349;
6181   t355 = t239 * t354;
6182   t356 = t355 * t94;
6183   t362 = 0.1784720e1 * t351 * t99 + 0.1784720e1 * t356;
6184   t363 = t245 * t362;
6185   t364 = t97 * t363;
6186   t367 = my_piecewise3(t87, 0, 0.461000314880e0 * t351 * t102 + 0.461000314880e0 * t237 * t356 - 0.258304e0 * t364);
6187   t368 = my_piecewise3(t86, 0, t367);
6188   t374 = 0.3e1 / 0.10e2 * t50 * (t349 * t104 + t85 * t368 + t332) - t19 / 0.8e1;
6189   t375 = t46 * t374;
6190   t381 = 0.7e1 / 0.12960e5 * t47 * t329 - t375 * t263 / 0.180e3 + t266 * t374 * t263 / 0.180e3;
6191   t384 = 0.5e1 / 0.972e3 * t319 + t30 * t204 * t42 / 0.288e3 - 0.9e1 / 0.2560e4 * t184 * t31 * t324 * t42 + 0.2e1 * t121 * t381;
6192   t385 = t384 * t140;
6193   t387 = params->c1 * t374;
6194   t393 = -0.5e1 / 0.9e1 * t387 * t132 - 0.25e2 / 0.81e2 * t279 * t281 * t374;
6195   t394 = t393 * t135;
6196   t395 = t374 * t10;
6197   t396 = t395 * t290;
6198   t399 = my_piecewise3(t129, t394, -0.5e1 / 0.9e1 * t288 * t396);
6199   t402 = t168 * t385 - t128 * t399 + 0.1174e1 * t399;
6200   t403 = t7 * t402;
6201   t404 = t403 * t158;
6202   t407 = t306 * t4;
6203   t408 = t7 * t143;
6204   t409 = t407 * t408;
6205   t410 = 0.1e1 / t148;
6206   t413 = t313 * t146 * t410 * t157;
6207   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
6208     vsigma[0] = -0.3e1 / 0.8e1 * t164 * t404 + 0.92773125000000000000e0 * t409 * t413;
6209 
6210   t420 = t58 * lapl[0] * t62 / 0.2916e4;
6211   t422 = t58 * t68 / 0.5184e4;
6212   t423 = 0.5e1 / 0.54e2 * t15 * t54 + t420 - t422;
6213   t425 = t420 - t422;
6214   t426 = t215 * t425;
6215   t428 = -t214 * t426 + t423 * t83;
6216   t430 = t231 * t428;
6217   t433 = -t428;
6218   t434 = t239 * t433;
6219   t435 = t434 * t94;
6220   t441 = 0.1784720e1 * t430 * t99 + 0.1784720e1 * t435;
6221   t442 = t245 * t441;
6222   t443 = t97 * t442;
6223   t446 = my_piecewise3(t87, 0, 0.461000314880e0 * t430 * t102 + 0.461000314880e0 * t237 * t435 - 0.258304e0 * t443);
6224   t447 = my_piecewise3(t86, 0, t446);
6225   t449 = -t428 * t104 - t85 * t447;
6226   t450 = t46 * t449;
6227   t452 = t449 * t118;
6228   t455 = t450 * t118 / 0.100e3 - t266 * t452 / 0.100e3;
6229   t456 = t121 * t455;
6230   t461 = -params->c1 * t449;
6231   t463 = t130 * t10;
6232   t464 = t14 * t280;
6233   t465 = t464 * t449;
6234   t468 = -t461 * t131 + 0.5e1 / 0.9e1 * t463 * t465;
6235   t469 = t468 * t135;
6236   t470 = t280 * t449;
6237   t473 = my_piecewise3(t129, t469, t287 * t470 * t137);
6238   t476 = 0.2e1 * t168 * t456 * t140 - t128 * t473 + 0.1174e1 * t473;
6239   t477 = t7 * t476;
6240   t478 = t477 * t158;
6241   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
6242     vlapl[0] = -0.3e1 / 0.8e1 * t164 * t478;
6243 
6244   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
6245     vtau[0] = 0.0e0;
6246 
6247 #ifndef XC_DONT_COMPILE_FXC
6248 
6249   if(order < 2) return;
6250 
6251 
6252   t481 = 0.1e1 / t17;
6253   t489 = 0.1e1 / t16;
6254   t490 = t7 * t489;
6255   t497 = t165 / t166 / t123;
6256   t498 = t273 * t273;
6257   t499 = t498 * t140;
6258   t503 = 0.1e1 / t17 / t32;
6259   t504 = sigma[0] * t503;
6260   t505 = t15 * t504;
6261   t507 = t32 * t60;
6262   t509 = 0.1e1 / t9 / t507;
6263   t510 = t31 * t509;
6264   t514 = t186 * t16;
6265   t515 = 0.1e1 / t514;
6266   t521 = t181 * t25 * t183;
6267   t522 = t31 * t31;
6268   t523 = t521 * t522;
6269   t524 = t186 * t32;
6270   t526 = 0.1e1 / t17 / t524;
6271   t528 = t14 * t42;
6272   t529 = t526 * t10 * t528;
6273   t532 = t270 * t270;
6274   t534 = t38 * t503;
6275   t537 = 0.55e2 / 0.81e2 * t505;
6276   t544 = 0.65e2 / 0.26244e5 * t58 * t59 * t35;
6277   t545 = sigma[0] * t176;
6278   t548 = 0.13e2 / 0.2916e4 * t58 * t545 * lapl[0];
6279   t549 = t58 * t510;
6280   t550 = 0.38e2 / 0.19683e5 * t549;
6281   t551 = 0.55e2 / 0.729e3 * t505 + 0.100e3 / 0.243e3 * t15 * lapl[0] * t170 + t544 - t548 + t550;
6282   t553 = t210 * t213;
6283   t555 = t81 * t81;
6284   t557 = 0.1e1 / t82 / t555;
6285   t558 = t74 * t557;
6286   t559 = t225 * t225;
6287   t562 = t216 * t216;
6288   t565 = t75 * t220;
6289   t566 = t565 * t216;
6290   t569 = t544 - t548 + t550;
6291   t572 = t78 * t78;
6292   t573 = 0.1e1 / t572;
6293   t574 = t76 * t573;
6294   t575 = t574 * t26;
6295   t576 = t29 * t31;
6296   t577 = t576 * t509;
6297   t582 = 0.2e1 * t562 * t79 + 0.40e2 / 0.27e2 * t566 * t172 + 0.2e1 * t215 * t569 + 0.50e2 / 0.243e3 * t575 * t577 - 0.110e3 / 0.81e2 * t222 * t534;
6298   t585 = t551 * t83 - t553 * t225 + 0.3e1 / 0.4e1 * t558 * t559 - t214 * t582 / 0.2e1 - t537;
6299   t589 = t230 * t85;
6300   t590 = 0.1e1 / t589;
6301   t591 = t228 * t228;
6302   t592 = t590 * t591;
6303   t595 = t231 * t585;
6304   t598 = t230 * t230;
6305   t599 = 0.1e1 / t598;
6306   t600 = t599 * t591;
6307   t603 = t232 * t236;
6308   t604 = t101 * t239;
6309   t605 = t240 * t94;
6310   t606 = t604 * t605;
6311   t609 = t232 * t90;
6312   t610 = t96 * t245;
6313   t611 = t610 * t249;
6314   t614 = pow(t95, -0.1741696e1);
6315   t615 = t90 * t614;
6316   t616 = t615 * t101;
6317   t617 = t238 * t238;
6318   t618 = 0.1e1 / t617;
6319   t619 = t240 * t240;
6320   t620 = t618 * t619;
6321   t621 = t94 * t94;
6322   t622 = t620 * t621;
6323   t625 = t236 * t245;
6324   t626 = t94 * t249;
6325   t627 = t241 * t626;
6326   t630 = t238 * t91;
6327   t631 = 0.1e1 / t630;
6328   t632 = t631 * t619;
6329   t633 = t632 * t94;
6330   t636 = -t585;
6331   t637 = t239 * t636;
6332   t638 = t637 * t94;
6333   t641 = t620 * t94;
6334   t644 = pow(t100, -0.2258304e1);
6335   t645 = t249 * t249;
6336   t646 = t644 * t645;
6337   t647 = t97 * t646;
6338   t658 = -0.3569440e1 * t592 * t99 + 0.1784720e1 * t595 * t99 + 0.3185225478400e1 * t600 * t99 - 0.3569440e1 * t633 + 0.1784720e1 * t638 + 0.3185225478400e1 * t641;
6339   t660 = t97 * t245 * t658;
6340   t662 = -0.922000629760e0 * t592 * t102 + 0.461000314880e0 * t595 * t102 + 0.21252129031945914941e0 * t600 * t102 + 0.42504258063891829882e0 * t603 * t606 - 0.238156450669527040e0 * t609 * t611 - 0.61023519165317445059e0 * t616 * t622 - 0.238156450669527040e0 * t625 * t627 - 0.922000629760e0 * t237 * t633 + 0.461000314880e0 * t237 * t638 + 0.822756481972633600e0 * t237 * t641 + 0.325024956416e0 * t647 - 0.258304e0 * t660;
6341   t663 = my_piecewise3(t87, 0, t662);
6342   t664 = my_piecewise3(t86, 0, t663);
6343   t670 = 0.3e1 / 0.10e2 * t50 * (t585 * t104 + 0.2e1 * t228 * t255 + t85 * t664 + t537) - 0.11e2 / 0.9e1 * t504;
6344   t671 = t46 * t670;
6345   t674 = t261 * t261;
6346   t677 = t29 * t114;
6347   t678 = t677 * t118;
6348   t684 = t116 * t114;
6349   t685 = t46 * t684;
6350   t687 = t58 * t118;
6351   t690 = 0.77e2 / 0.14580e5 * t47 * t534 - t671 * t263 / 0.180e3 - t46 * t674 * t26 * t678 / 0.108e3 + t266 * t670 * t263 / 0.180e3 + t685 * t674 * t687 / 0.324e3;
6352   t693 = 0.110e3 / 0.2187e4 * t505 + 0.19e2 / 0.324e3 * t30 * t510 * t42 - 0.43e2 / 0.320e3 * t184 * t185 * t515 * t42 + 0.27e2 / 0.3200e4 * t523 * t529 + 0.2e1 * t532 + 0.2e1 * t121 * t690;
6353   t696 = t273 * t294;
6354   t699 = params->c1 * t670;
6355   t702 = params->c1 * t674;
6356   t703 = t58 * t280;
6357   t706 = 0.1e1 / t684;
6358   t707 = t183 * t706;
6359   t708 = t707 * t674;
6360   t711 = t281 * t670;
6361   t714 = -0.5e1 / 0.9e1 * t699 * t132 - 0.50e2 / 0.81e2 * t702 * t703 - 0.500e3 / 0.243e3 * t130 * t708 - 0.25e2 / 0.81e2 * t279 * t711;
6362   t715 = t714 * t135;
6363   t716 = t285 * t285;
6364   t717 = t716 * t135;
6365   t719 = t287 * t706;
6366   t720 = t674 * t26;
6367   t721 = t29 * t137;
6368   t722 = t720 * t721;
6369   t725 = t670 * t10;
6370   t726 = t725 * t290;
6371   t729 = params->c2 * params->c2;
6372   t730 = params->d * t729;
6373   t731 = t116 * t116;
6374   t732 = 0.1e1 / t731;
6375   t733 = t730 * t732;
6376   t737 = my_piecewise3(t129, t715 + t717, -0.50e2 / 0.81e2 * t719 * t722 - 0.5e1 / 0.9e1 * t288 * t726 - 0.25e2 / 0.81e2 * t733 * t722);
6377   t740 = -0.2e1 * t497 * t499 + t168 * t693 * t140 - 0.2e1 * t168 * t696 - t128 * t737 + 0.1174e1 * t737;
6378   t741 = t7 * t740;
6379   t745 = t308 * t297;
6380   t749 = t62 * t306;
6381   t753 = 0.1e1 / t153 / t21 / 0.6e1;
6382   t754 = t753 * t10;
6383   t756 = t754 * t38 * t157;
6384   t760 = t17 * t2 * t308;
6385   t762 = t15 * t157;
6386   t763 = t143 * t410 * t762;
6387   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6388     v2rho2[0] = -t8 * t481 * t143 * t158 / 0.6e1 - t8 * t9 * t297 * t158 - 0.8246500000000000000e0 * t407 * t490 * t143 * t316 - 0.3e1 / 0.8e1 * t164 * t741 * t158 - 0.49479000000000000000e1 * t307 * t745 * t316 - 0.29687400000000000000e2 * t749 * t309 * t756 + 0.80541612095716256868e2 * t760 * t763;
6389 
6390   t767 = t9 * t2 * t4;
6391   t770 = t385 * t273;
6392   t773 = t15 * t170;
6393   t782 = t521 * t185;
6394   t783 = t186 * t60;
6395   t785 = 0.1e1 / t17 / t783;
6396   t786 = t785 * t10;
6397   t787 = t786 * t528;
6398   t792 = t14 * t170;
6399   t795 = 0.5e1 / 0.27e2 * t773;
6400   t798 = t58 * t35 * lapl[0];
6401   t799 = 0.13e2 / 0.15552e5 * t798;
6402   t800 = t58 * t545;
6403   t801 = 0.4e1 / 0.6561e4 * t800;
6404   t802 = -0.5e1 / 0.243e3 * t773 + t799 - t801;
6405   t804 = t339 * t213;
6406   t809 = t346 * t225;
6407   t812 = t216 * t79;
6408   t815 = t565 * t341;
6409   t818 = t799 - t801;
6410   t821 = t565 * t10;
6411   t822 = t329 * t216;
6412   t825 = t29 * t176;
6413   t826 = t825 * sigma[0];
6414   t831 = 0.2e1 * t812 * t341 + 0.20e2 / 0.27e2 * t815 * t172 + 0.2e1 * t215 * t818 - 0.5e1 / 0.18e2 * t821 * t822 - 0.25e2 / 0.324e3 * t575 * t826 + 0.10e2 / 0.27e2 * t221 * t773;
6415   t834 = t802 * t83 - t804 * t225 / 0.2e1 - t553 * t346 / 0.2e1 + 0.3e1 / 0.4e1 * t558 * t809 - t214 * t831 / 0.2e1 + t795;
6416   t838 = t590 * t349;
6417   t839 = t838 * t90;
6418   t840 = t96 * t101;
6419   t841 = t840 * t228;
6420   t844 = t231 * t834;
6421   t847 = t599 * t349;
6422   t848 = t847 * t228;
6423   t851 = t351 * t236;
6424   t854 = t351 * t90;
6425   t857 = t354 * t94;
6426   t858 = t604 * t857;
6427   t861 = t618 * t354;
6428   t862 = t621 * t240;
6429   t863 = t861 * t862;
6430   t866 = t355 * t626;
6431   t869 = t631 * t354;
6432   t870 = t869 * t605;
6433   t873 = -t834;
6434   t874 = t239 * t873;
6435   t875 = t874 * t94;
6436   t878 = t861 * t605;
6437   t881 = t610 * t362;
6438   t884 = t362 * t239;
6439   t885 = t884 * t605;
6440   t888 = t644 * t362;
6441   t892 = t99 * t228;
6442   t902 = -0.3569440e1 * t838 * t892 + 0.1784720e1 * t844 * t99 + 0.3185225478400e1 * t847 * t892 - 0.3569440e1 * t870 + 0.1784720e1 * t875 + 0.3185225478400e1 * t878;
6443   t903 = t245 * t902;
6444   t904 = t97 * t903;
6445   t906 = -0.922000629760e0 * t839 * t841 + 0.461000314880e0 * t844 * t102 + 0.21252129031945914941e0 * t848 * t102 + 0.21252129031945914941e0 * t851 * t606 - 0.119078225334763520e0 * t854 * t611 + 0.21252129031945914941e0 * t603 * t858 - 0.61023519165317445059e0 * t616 * t863 - 0.119078225334763520e0 * t625 * t866 - 0.922000629760e0 * t237 * t870 + 0.461000314880e0 * t237 * t875 + 0.822756481972633600e0 * t237 * t878 - 0.119078225334763520e0 * t609 * t881 - 0.119078225334763520e0 * t625 * t885 + 0.325024956416e0 * t97 * t888 * t249 - 0.258304e0 * t904;
6446   t907 = my_piecewise3(t87, 0, t906);
6447   t908 = my_piecewise3(t86, 0, t907);
6448   t914 = 0.3e1 / 0.10e2 * t50 * (t834 * t104 + t228 * t368 + t349 * t255 + t85 * t908 - t795) + t170 / 0.3e1;
6449   t915 = t46 * t914;
6450   t918 = t375 * t26;
6451   t919 = t261 * t118;
6452   t920 = t677 * t919;
6453   t926 = t685 * t374;
6454   t927 = t58 * t919;
6455   t930 = -0.7e1 / 0.4860e4 * t47 * t792 - t915 * t263 / 0.180e3 - t918 * t920 / 0.108e3 + t266 * t914 * t263 / 0.180e3 + t926 * t927 / 0.324e3;
6456   t933 = -0.10e2 / 0.729e3 * t773 - t30 * t545 * t42 / 0.54e2 + 0.3e1 / 0.64e2 * t184 * t31 * t188 * t42 - 0.81e2 / 0.25600e5 * t782 * t787 + 0.2e1 * t270 * t381 + 0.2e1 * t121 * t930;
6457   t934 = t933 * t140;
6458   t936 = t384 * t294;
6459   t938 = t273 * t399;
6460   t940 = params->c1 * t914;
6461   t943 = t387 * t26;
6462   t946 = t130 * t183;
6463   t947 = t706 * t374;
6464   t951 = t281 * t914;
6465   t954 = -0.5e1 / 0.9e1 * t940 * t132 - 0.50e2 / 0.81e2 * t943 * t282 - 0.500e3 / 0.243e3 * t946 * t947 * t261 - 0.25e2 / 0.81e2 * t279 * t951;
6466   t955 = t954 * t135;
6467   t956 = t393 * t285;
6468   t959 = t287 * t947;
6469   t960 = t137 * t261;
6470   t961 = t58 * t960;
6471   t964 = t914 * t10;
6472   t965 = t964 * t290;
6473   t968 = t732 * t374;
6474   t969 = t730 * t968;
6475   t973 = my_piecewise3(t129, t956 * t135 + t955, -0.50e2 / 0.81e2 * t959 * t961 - 0.5e1 / 0.9e1 * t288 * t965 - 0.25e2 / 0.81e2 * t969 * t961);
6476   t976 = -0.2e1 * t497 * t770 + t168 * t934 - t168 * t936 - t168 * t938 - t128 * t973 + 0.1174e1 * t973;
6477   t977 = t7 * t976;
6478   t978 = t977 * t158;
6479   t981 = t308 * t402;
6480   t985 = t407 * t298;
6481   t988 = t14 * t157;
6482   t992 = t754 * t988 / t9 / t16;
6483   t995 = t5 * t408;
6484   t996 = t148 * sigma[0];
6485   t997 = 0.1e1 / t996;
6486   t999 = t997 * t53 * t762;
6487   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6488     v2rhosigma[0] = -t767 * t404 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t978 - 0.24739500000000000000e1 * t307 * t981 * t316 + 0.92773125000000000000e0 * t985 * t413 + 0.11132775000000000000e2 * t409 * t992 - 0.30203104535893596325e2 * t995 * t999;
6489 
6490   t1004 = t497 * t121;
6491   t1005 = t455 * t140;
6492   t1006 = t1005 * t273;
6493   t1009 = t270 * t455;
6494   t1014 = 0.5e1 / 0.4374e4 * t335;
6495   t1015 = 0.13e2 / 0.15552e5 * t337;
6496   t1016 = -0.25e2 / 0.162e3 * t319 - t1014 + t1015;
6497   t1018 = t423 * t213;
6498   t1022 = t558 * t75;
6499   t1023 = t79 * t425;
6500   t1024 = t1023 * t225;
6501   t1027 = t812 * t425;
6502   t1029 = t214 * t565;
6503   t1030 = t425 * t10;
6504   t1031 = t1030 * t193;
6505   t1034 = -t1014 + t1015;
6506   t1035 = t215 * t1034;
6507   t1037 = t1016 * t83 - t1018 * t225 / 0.2e1 - t553 * t426 + 0.3e1 / 0.2e1 * t1022 * t1024 - t214 * t1027 - 0.10e2 / 0.27e2 * t1029 * t1031 - t214 * t1035;
6508   t1041 = t590 * t428;
6509   t1042 = t1041 * t90;
6510   t1045 = t231 * t1037;
6511   t1048 = t599 * t428;
6512   t1049 = t1048 * t228;
6513   t1052 = t430 * t236;
6514   t1055 = t430 * t90;
6515   t1058 = t433 * t94;
6516   t1059 = t604 * t1058;
6517   t1062 = t618 * t433;
6518   t1069 = t631 * t433;
6519   t1070 = t1069 * t605;
6520   t1073 = -t1037;
6521   t1074 = t239 * t1073;
6522   t1075 = t1074 * t94;
6523   t1078 = t1062 * t605;
6524   t1081 = t610 * t441;
6525   t1084 = t441 * t239;
6526   t1088 = t644 * t441;
6527   t1101 = -0.3569440e1 * t1041 * t892 + 0.1784720e1 * t1045 * t99 + 0.3185225478400e1 * t1048 * t892 - 0.3569440e1 * t1070 + 0.1784720e1 * t1075 + 0.3185225478400e1 * t1078;
6528   t1102 = t245 * t1101;
6529   t1103 = t97 * t1102;
6530   t1105 = -0.922000629760e0 * t1042 * t841 + 0.461000314880e0 * t1045 * t102 + 0.21252129031945914941e0 * t1049 * t102 + 0.21252129031945914941e0 * t1052 * t606 - 0.119078225334763520e0 * t1055 * t611 + 0.21252129031945914941e0 * t603 * t1059 - 0.61023519165317445059e0 * t616 * t1062 * t862 - 0.119078225334763520e0 * t625 * t434 * t626 - 0.922000629760e0 * t237 * t1070 + 0.461000314880e0 * t237 * t1075 + 0.822756481972633600e0 * t237 * t1078 - 0.119078225334763520e0 * t609 * t1081 - 0.119078225334763520e0 * t625 * t1084 * t605 + 0.325024956416e0 * t97 * t1088 * t249 - 0.258304e0 * t1103;
6531   t1106 = my_piecewise3(t87, 0, t1105);
6532   t1107 = my_piecewise3(t86, 0, t1106);
6533   t1109 = -t1037 * t104 - t85 * t1107 - t228 * t447 - t428 * t255;
6534   t1110 = t46 * t1109;
6535   t1113 = t450 * t114;
6536   t1114 = t14 * t118;
6537   t1115 = t289 * t1114;
6538   t1118 = t1109 * t118;
6539   t1121 = t685 * t449;
6540   t1124 = t1110 * t118 / 0.100e3 + t1113 * t1115 / 0.60e2 - t266 * t1118 / 0.100e3 - t1121 * t1115 / 0.180e3;
6541   t1125 = t121 * t1124;
6542   t1132 = t273 * t473;
6543   t1135 = -params->c1 * t1109;
6544   t1137 = t461 * t280;
6545   t1138 = t289 * t14;
6546   t1141 = t276 * t10;
6547   t1144 = t29 * t706;
6548   t1145 = t449 * t261;
6549   t1146 = t1144 * t1145;
6550   t1149 = t464 * t1109;
6551   t1152 = -t1135 * t131 - 0.5e1 / 0.9e1 * t1137 * t1138 + 0.5e1 / 0.9e1 * t1141 * t465 + 0.50e2 / 0.81e2 * t279 * t1146 + 0.5e1 / 0.9e1 * t463 * t1149;
6552   t1153 = t1152 * t135;
6553   t1154 = t468 * t285;
6554   t1157 = t706 * t449;
6555   t1158 = t287 * t1157;
6556   t1161 = t280 * t1109;
6557   t1164 = t732 * t449;
6558   t1165 = t730 * t1164;
6559   t1169 = my_piecewise3(t129, t1154 * t135 + t1153, 0.10e2 / 0.9e1 * t1158 * t291 + t287 * t1161 * t137 + 0.5e1 / 0.9e1 * t1165 * t291);
6560   t1172 = -0.4e1 * t1004 * t1006 + 0.2e1 * t168 * t1009 * t140 + 0.2e1 * t168 * t1125 * t140 - 0.2e1 * t168 * t456 * t294 - t168 * t1132 - t128 * t1169 + 0.1174e1 * t1169;
6561   t1173 = t7 * t1172;
6562   t1174 = t1173 * t158;
6563   t1177 = t308 * t476;
6564   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6565     v2rholapl[0] = -t767 * t478 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t1174 - 0.24739500000000000000e1 * t307 * t1177 * t316;
6566 
6567   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6568     v2rhotau[0] = 0.0e0;
6569 
6570   t1181 = t384 * t384;
6571   t1182 = t1181 * t140;
6572   t1185 = t29 * t35;
6573   t1189 = sigma[0] * t324;
6574   t1193 = t521 * t31;
6575   t1195 = 0.1e1 / t17 / t514;
6576   t1196 = t1195 * t10;
6577   t1197 = t1196 * t528;
6578   t1200 = t381 * t381;
6579   t1203 = t58 * t35 * t83;
6580   t1206 = t346 * t346;
6581   t1209 = t341 * t341;
6582   t1214 = t58 * t35;
6583   t1219 = 0.2e1 * t1209 * t79 - 0.5e1 / 0.9e1 * t815 * t319 + t215 * t1214 / 0.4374e4 + 0.25e2 / 0.864e3 * t574 * t1214;
6584   t1222 = t1203 / 0.8748e4 - t804 * t346 + 0.3e1 / 0.4e1 * t558 * t1206 - t214 * t1219 / 0.2e1;
6585   t1226 = t349 * t349;
6586   t1227 = t590 * t1226;
6587   t1230 = t231 * t1222;
6588   t1233 = t599 * t1226;
6589   t1240 = t354 * t354;
6590   t1241 = t618 * t1240;
6591   t1242 = t1241 * t621;
6592   t1245 = t94 * t362;
6593   t1246 = t355 * t1245;
6594   t1249 = t631 * t1240;
6595   t1250 = t1249 * t94;
6596   t1253 = -t1222;
6597   t1254 = t239 * t1253;
6598   t1255 = t1254 * t94;
6599   t1258 = t1241 * t94;
6600   t1261 = t362 * t362;
6601   t1262 = t644 * t1261;
6602   t1263 = t97 * t1262;
6603   t1274 = -0.3569440e1 * t1227 * t99 + 0.1784720e1 * t1230 * t99 + 0.3185225478400e1 * t1233 * t99 - 0.3569440e1 * t1250 + 0.1784720e1 * t1255 + 0.3185225478400e1 * t1258;
6604   t1275 = t245 * t1274;
6605   t1276 = t97 * t1275;
6606   t1278 = -0.922000629760e0 * t1227 * t102 + 0.461000314880e0 * t1230 * t102 + 0.21252129031945914941e0 * t1233 * t102 + 0.42504258063891829882e0 * t851 * t858 - 0.238156450669527040e0 * t854 * t881 - 0.61023519165317445059e0 * t616 * t1242 - 0.238156450669527040e0 * t625 * t1246 - 0.922000629760e0 * t237 * t1250 + 0.461000314880e0 * t237 * t1255 + 0.822756481972633600e0 * t237 * t1258 + 0.325024956416e0 * t1263 - 0.258304e0 * t1276;
6607   t1279 = my_piecewise3(t87, 0, t1278);
6608   t1280 = my_piecewise3(t86, 0, t1279);
6609   t1282 = t1222 * t104 + t85 * t1280 + 0.2e1 * t349 * t368;
6610   t1283 = t46 * t1282;
6611   t1286 = t374 * t374;
6612   t1287 = t46 * t1286;
6613   t1291 = t1282 * t118;
6614   t1297 = -t1283 * t118 / 0.100e3 - t1287 * t26 * t678 / 0.108e3 + t266 * t1291 / 0.100e3 + t685 * t1286 * t687 / 0.324e3;
6615   t1300 = t27 * t1185 * t42 / 0.288e3 - 0.9e1 / 0.640e3 * t184 * t1189 * t42 + 0.243e3 / 0.204800e6 * t1193 * t1197 + 0.2e1 * t1200 + 0.2e1 * t121 * t1297;
6616   t1301 = t1300 * t140;
6617   t1303 = t384 * t399;
6618   t1306 = params->c1 * t1282;
6619   t1308 = params->c1 * t1286;
6620   t1317 = -t1306 * t131 - 0.50e2 / 0.81e2 * t1308 * t703 - 0.500e3 / 0.243e3 * t130 * t707 * t1286 - 0.5e1 / 0.9e1 * t463 * t464 * t1282;
6621   t1319 = t393 * t393;
6622   t1320 = t1319 * t135;
6623   t1322 = t1286 * t26;
6624   t1323 = t1322 * t721;
6625   t1326 = t280 * t1282;
6626   t1332 = my_piecewise3(t129, t1317 * t135 + t1320, -0.50e2 / 0.81e2 * t719 * t1323 - t287 * t1326 * t137 - 0.25e2 / 0.81e2 * t733 * t1323);
6627   t1335 = -0.2e1 * t497 * t1182 + t168 * t1301 - 0.2e1 * t168 * t1303 - t128 * t1332 + 0.1174e1 * t1332;
6628   t1336 = t7 * t1335;
6629   t1337 = t1336 * t158;
6630   t1340 = t407 * t403;
6631   t1344 = t407 * t408 * t753;
6632   t1345 = 0.1e1 / sigma[0];
6633   t1348 = t15 * t1345 * t157 * t150;
6634   t1353 = t313 * t146 * t997 * t157;
6635   t1357 = 0.1e1 / t148 / t31;
6636   t1359 = t1357 * t18 * t762;
6637   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6638     v2sigma2[0] = -0.3e1 / 0.8e1 * t164 * t1337 + 0.18554625000000000000e1 * t1340 * t413 - 0.41747906250000000000e1 * t1344 * t1348 - 0.46386562500000000000e0 * t409 * t1353 + 0.11326164200960098622e2 * t995 * t1359;
6639 
6640   t1362 = t1005 * t384;
6641   t1365 = t381 * t455;
6642   t1370 = t58 * t67 * t83;
6643   t1375 = t1023 * t346;
6644   t1378 = t341 * t79;
6645   t1379 = t1378 * t425;
6646   t1381 = t1030 * t329;
6647   t1384 = t214 * t75;
6648   t1385 = t79 * t26;
6649   t1386 = t29 * t67;
6650   t1387 = t1385 * t1386;
6651   t1388 = t1384 * t1387;
6652   t1390 = -t1370 / 0.5184e4 - t1018 * t346 / 0.2e1 - t804 * t426 + 0.3e1 / 0.2e1 * t1022 * t1375 - t214 * t1379 + 0.5e1 / 0.36e2 * t1029 * t1381 + t1388 / 0.5184e4;
6653   t1394 = t840 * t349;
6654   t1397 = t231 * t1390;
6655   t1400 = t1048 * t349;
6656   t1409 = t621 * t354;
6657   t1416 = t1069 * t857;
6658   t1419 = -t1390;
6659   t1420 = t239 * t1419;
6660   t1421 = t1420 * t94;
6661   t1424 = t1062 * t857;
6662   t1435 = t99 * t349;
6663   t1445 = -0.3569440e1 * t1041 * t1435 + 0.1784720e1 * t1397 * t99 + 0.3185225478400e1 * t1048 * t1435 - 0.3569440e1 * t1416 + 0.1784720e1 * t1421 + 0.3185225478400e1 * t1424;
6664   t1446 = t245 * t1445;
6665   t1447 = t97 * t1446;
6666   t1449 = -0.922000629760e0 * t1042 * t1394 + 0.461000314880e0 * t1397 * t102 + 0.21252129031945914941e0 * t1400 * t102 + 0.21252129031945914941e0 * t1052 * t858 - 0.119078225334763520e0 * t1055 * t881 + 0.21252129031945914941e0 * t851 * t1059 - 0.61023519165317445059e0 * t616 * t1062 * t1409 - 0.119078225334763520e0 * t625 * t434 * t1245 - 0.922000629760e0 * t237 * t1416 + 0.461000314880e0 * t237 * t1421 + 0.822756481972633600e0 * t237 * t1424 - 0.119078225334763520e0 * t854 * t1081 - 0.119078225334763520e0 * t625 * t1084 * t857 + 0.325024956416e0 * t97 * t1088 * t362 - 0.258304e0 * t1447;
6667   t1450 = my_piecewise3(t87, 0, t1449);
6668   t1451 = my_piecewise3(t86, 0, t1450);
6669   t1453 = -t1390 * t104 - t85 * t1451 - t349 * t447 - t428 * t368;
6670   t1454 = t46 * t1453;
6671   t1457 = t395 * t1114;
6672   t1460 = t1453 * t118;
6673   t1465 = t1454 * t118 / 0.100e3 + t1113 * t1457 / 0.60e2 - t266 * t1460 / 0.100e3 - t1121 * t1457 / 0.180e3;
6674   t1466 = t121 * t1465;
6675   t1473 = t384 * t473;
6676   t1476 = -params->c1 * t1453;
6677   t1478 = t395 * t14;
6678   t1481 = t387 * t10;
6679   t1484 = t449 * t374;
6680   t1488 = t464 * t1453;
6681   t1491 = -t1476 * t131 - 0.5e1 / 0.9e1 * t1137 * t1478 + 0.5e1 / 0.9e1 * t1481 * t465 + 0.50e2 / 0.81e2 * t279 * t1144 * t1484 + 0.5e1 / 0.9e1 * t463 * t1488;
6682   t1492 = t1491 * t135;
6683   t1493 = t468 * t393;
6684   t1498 = t280 * t1453;
6685   t1504 = my_piecewise3(t129, t1493 * t135 + t1492, 0.10e2 / 0.9e1 * t1158 * t396 + t287 * t1498 * t137 + 0.5e1 / 0.9e1 * t1165 * t396);
6686   t1507 = -0.4e1 * t1004 * t1362 + 0.2e1 * t168 * t1365 * t140 + 0.2e1 * t168 * t1466 * t140 - 0.2e1 * t168 * t456 * t399 - t168 * t1473 - t128 * t1504 + 0.1174e1 * t1504;
6687   t1508 = t7 * t1507;
6688   t1509 = t1508 * t158;
6689   t1512 = t407 * t477;
6690   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6691     v2sigmalapl[0] = -0.3e1 / 0.8e1 * t164 * t1509 + 0.92773125000000000000e0 * t1512 * t413;
6692 
6693   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6694     v2sigmatau[0] = 0.0e0;
6695 
6696   t1515 = t455 * t455;
6697   t1516 = t122 * t1515;
6698   t1520 = t1515 * t140;
6699   t1528 = t425 * t425;
6700   t1529 = t574 * t1528;
6701   t1532 = t1528 * t79;
6702   t1534 = t29 * t62;
6703   t1535 = t1385 * t1534;
6704   t1538 = t58 * t62 * t83 / 0.2916e4 - 0.2e1 * t1018 * t426 + 0.3e1 * t558 * t1529 - t214 * t1532 - t1384 * t1535 / 0.2916e4;
6705   t1542 = t428 * t428;
6706   t1543 = t590 * t1542;
6707   t1546 = t231 * t1538;
6708   t1549 = t599 * t1542;
6709   t1556 = t433 * t433;
6710   t1557 = t618 * t1556;
6711   t1558 = t1557 * t621;
6712   t1561 = t94 * t441;
6713   t1565 = t631 * t1556;
6714   t1566 = t1565 * t94;
6715   t1569 = -t1538;
6716   t1570 = t239 * t1569;
6717   t1571 = t1570 * t94;
6718   t1574 = t1557 * t94;
6719   t1577 = t441 * t441;
6720   t1578 = t644 * t1577;
6721   t1579 = t97 * t1578;
6722   t1590 = -0.3569440e1 * t1543 * t99 + 0.1784720e1 * t1546 * t99 + 0.3185225478400e1 * t1549 * t99 - 0.3569440e1 * t1566 + 0.1784720e1 * t1571 + 0.3185225478400e1 * t1574;
6723   t1591 = t245 * t1590;
6724   t1592 = t97 * t1591;
6725   t1594 = -0.922000629760e0 * t1543 * t102 + 0.461000314880e0 * t1546 * t102 + 0.21252129031945914941e0 * t1549 * t102 + 0.42504258063891829882e0 * t1052 * t1059 - 0.238156450669527040e0 * t1055 * t1081 - 0.61023519165317445059e0 * t616 * t1558 - 0.238156450669527040e0 * t625 * t434 * t1561 - 0.922000629760e0 * t237 * t1566 + 0.461000314880e0 * t237 * t1571 + 0.822756481972633600e0 * t237 * t1574 + 0.325024956416e0 * t1579 - 0.258304e0 * t1592;
6726   t1595 = my_piecewise3(t87, 0, t1594);
6727   t1596 = my_piecewise3(t86, 0, t1595);
6728   t1598 = -t1538 * t104 - t85 * t1596 - 0.2e1 * t428 * t447;
6729   t1599 = t46 * t1598;
6730   t1602 = t449 * t449;
6731   t1603 = t46 * t1602;
6732   t1604 = t114 * t118;
6733   t1610 = t1602 * t118;
6734   t1613 = t1599 * t118 / 0.100e3 - 0.3e1 / 0.100e3 * t1603 * t1604 - t266 * t1598 * t118 / 0.100e3 + t685 * t1610 / 0.100e3;
6735   t1614 = t121 * t1613;
6736   t1622 = -params->c1 * t1598;
6737   t1626 = t14 * t706;
6738   t1627 = t1626 * t1602;
6739   t1630 = t464 * t1598;
6740   t1633 = -t1622 * t131 + 0.2e1 * t461 * t470 - 0.10e2 / 0.9e1 * t463 * t1627 + 0.5e1 / 0.9e1 * t463 * t1630;
6741   t1635 = t468 * t468;
6742   t1636 = t1635 * t135;
6743   t1638 = t706 * t1602;
6744   t1642 = t280 * t1598;
6745   t1645 = t732 * t1602;
6746   t1649 = my_piecewise3(t129, t1633 * t135 + t1636, -0.2e1 * t287 * t1638 * t137 + t287 * t1642 * t137 - t730 * t1645 * t137);
6747   t1652 = -0.8e1 * t497 * t1516 * t140 + 0.2e1 * t168 * t1520 + 0.2e1 * t168 * t1614 * t140 - 0.4e1 * t168 * t456 * t473 - t128 * t1649 + 0.1174e1 * t1649;
6748   t1653 = t7 * t1652;
6749   t1654 = t1653 * t158;
6750   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6751     v2lapl2[0] = -0.3e1 / 0.8e1 * t164 * t1654;
6752 
6753   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6754     v2lapltau[0] = 0.0e0;
6755 
6756   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6757     v2tau2[0] = 0.0e0;
6758 
6759 #ifndef XC_DONT_COMPILE_KXC
6760 
6761   if(order < 3) return;
6762 
6763 
6764   t1665 = 0.1e1 / t60;
6765   t1666 = t7 * t1665;
6766   t1679 = t7 * t67;
6767   t1684 = 0.1e1 / t9;
6768   t1686 = t5 * t7 * t1684;
6769   t1689 = t166 * t166;
6770   t1691 = t165 / t1689;
6771   t1692 = t498 * t273;
6772   t1696 = t274 * t693;
6773   t1703 = 0.1e1 / t17 / t33;
6774   t1704 = sigma[0] * t1703;
6775   t1705 = t15 * t1704;
6776   t1708 = 0.1e1 / t9 / t186;
6777   t1709 = t31 * t1708;
6778   t1713 = 0.1e1 / t783;
6779   t1714 = t185 * t1713;
6780   t1718 = t186 * t33;
6781   t1720 = 0.1e1 / t17 / t1718;
6782   t1722 = t1720 * t10 * t528;
6783   t1725 = t181 * t181;
6784   t1726 = t1725 * t183;
6785   t1727 = t522 * sigma[0];
6786   t1728 = t1726 * t1727;
6787   t1729 = t186 * t186;
6788   t1733 = t29 * t42;
6789   t1734 = 0.1e1 / t9 / t1729 * t26 * t1733;
6790   t1739 = t38 * t1703;
6791   t1742 = 0.770e3 / 0.243e3 * t1705;
6792   t1749 = 0.260e3 / 0.19683e5 * t58 * t59 * t176;
6793   t1750 = sigma[0] * t509;
6794   t1753 = 0.247e3 / 0.8748e4 * t58 * t1750 * lapl[0];
6795   t1754 = t58 * t1709;
6796   t1755 = 0.836e3 / 0.59049e5 * t1754;
6797   t1756 = -0.770e3 / 0.2187e4 * t1705 - 0.1100e4 / 0.729e3 * t15 * lapl[0] * t503 - t1749 + t1753 - t1755;
6798   t1758 = t551 * t213;
6799   t1761 = t210 * t557;
6800   t1768 = 0.1e1 / t82 / t555 / t81;
6801   t1769 = t74 * t1768;
6802   t1770 = t559 * t225;
6803   t1773 = t225 * t582;
6804   t1778 = t562 * t220;
6805   t1779 = t1778 * t10;
6806   t1782 = t75 * t573;
6807   t1783 = t1782 * t216;
6808   t1786 = t565 * t569;
6809   t1791 = -t1749 + t1753 - t1755;
6810   t1795 = 0.1e1 / t572 / t77;
6811   t1796 = t76 * t1795;
6812   t1797 = t183 * t185;
6813   t1798 = t1797 * t1713;
6814   t1801 = t576 * t1708;
6815   t1806 = 0.6e1 * t812 * t569 + 0.20e2 / 0.9e1 * t1779 * t193 + 0.100e3 / 0.81e2 * t1783 * t549 + 0.20e2 / 0.9e1 * t1786 * t172 - 0.220e3 / 0.27e2 * t566 * t505 + 0.2e1 * t215 * t1791 + 0.2000e4 / 0.2187e4 * t1796 * t1798 - 0.550e3 / 0.243e3 * t575 * t1801 + 0.1540e4 / 0.243e3 * t222 * t1739;
6816   t1809 = t1756 * t83 - 0.3e1 / 0.2e1 * t1758 * t225 + 0.9e1 / 0.4e1 * t1761 * t559 - 0.3e1 / 0.2e1 * t553 * t582 - 0.15e2 / 0.8e1 * t1769 * t1770 + 0.9e1 / 0.4e1 * t558 * t1773 - t214 * t1806 / 0.2e1 + t1742;
6817   t1815 = t245 * t239;
6818   t1816 = t605 * t249;
6819   t1817 = t1815 * t1816;
6820   t1820 = t101 * t631;
6821   t1821 = t619 * t94;
6822   t1822 = t1820 * t1821;
6823   t1825 = t599 * t585;
6824   t1826 = t1825 * t228;
6825   t1830 = 0.1e1 / t598 / t85;
6826   t1831 = t591 * t228;
6827   t1832 = t1830 * t1831;
6828   t1836 = 0.1e1 / t598 / t230;
6829   t1837 = t1836 * t1831;
6830   t1840 = t595 * t90;
6831   t1843 = t96 * t644;
6832   t1844 = t1843 * t645;
6833   t1847 = pow(t100, -0.3258304e1);
6834   t1848 = t645 * t249;
6835   t1852 = t236 * t644;
6836   t1853 = t94 * t645;
6837   t1854 = t241 * t1853;
6838   t1857 = t632 * t626;
6839   t1861 = 0.1e1 / t617 / t238;
6840   t1862 = t619 * t240;
6841   t1863 = t1861 * t1862;
6842   t1867 = t600 * t90;
6843   t1870 = t232 * t615;
6844   t1871 = t101 * t618;
6845   t1872 = t619 * t621;
6846   t1873 = t1871 * t1872;
6847   t1876 = t1871 * t1821;
6848   t1879 = t595 * t236;
6849   t1882 = t600 * t236;
6850   t1885 = t636 * t94;
6851   t1886 = t604 * t1885;
6852   t1889 = t592 * t236;
6853   t1893 = t618 * t636 * t605;
6854   t1896 = -0.32937059624806545678e0 * t603 * t1817 - 0.12751277419167548965e1 * t603 * t1822 + 0.63756387095837744823e0 * t1826 * t102 - 0.12751277419167548965e1 * t1832 * t102 + 0.97972381755974563669e-1 * t1837 * t102 - 0.357234676004290560e0 * t1840 * t611 + 0.44950982175490282881e0 * t609 * t1844 - 0.734005159174078464e0 * t97 * t1847 * t1848 + 0.44950982175490282881e0 * t1852 * t1854 + 0.714469352008581120e0 * t625 * t1857 - 0.32672968537417605163e1 * t616 * t1863 * t621 - 0.16468529812403272839e0 * t1867 * t611 - 0.84395584650891170840e0 * t1870 * t1873 + 0.11378729917768353994e1 * t603 * t1876 + 0.63756387095837744823e0 * t1879 * t606 + 0.29391714526792369101e0 * t1882 * t606 + 0.63756387095837744823e0 * t603 * t1886 - 0.12751277419167548965e1 * t1889 * t606 + 0.2468269445917900800e1 * t237 * t1893;
6855   t1897 = t620 * t626;
6856   t1900 = t590 * t228;
6857   t1901 = t1900 * t90;
6858   t1902 = t840 * t585;
6859   t1905 = t631 * t240;
6860   t1906 = t1905 * t1885;
6861   t1909 = t618 * t240;
6862   t1910 = t621 * t636;
6863   t1911 = t1909 * t1910;
6864   t1914 = t637 * t626;
6865   t1921 = t1863 * t94;
6866   t1925 = 0.1e1 / t617 / t91;
6867   t1926 = t1925 * t1862;
6868   t1927 = t1926 * t94;
6869   t1930 = t592 * t90;
6870   t1933 = t618 * t1862;
6871   t1934 = t1933 * t94;
6872   t1937 = t94 * t658;
6873   t1938 = t241 * t1937;
6874   t1941 = t615 * t245;
6875   t1942 = t621 * t249;
6876   t1943 = t620 * t1942;
6877   t1946 = t599 * t1831;
6878   t1949 = t99 * t585;
6879   t1954 = t231 * t1809;
6880   t1964 = -t1809;
6881   t1965 = t239 * t1964;
6882   t1966 = t1965 * t94;
6883   t1970 = 0.10708320e2 * t1946 * t99 - 0.10708320e2 * t1900 * t1949 - 0.19111352870400e2 * t1832 * t99 + 0.1784720e1 * t1954 * t99 + 0.9555676435200e1 * t1825 * t892 + 0.5684735615810048000e1 * t1837 * t99 + 0.10708320e2 * t1934 - 0.10708320e2 * t1906 - 0.19111352870400e2 * t1927 + 0.1784720e1 * t1966 + 0.9555676435200e1 * t1893 + 0.5684735615810048000e1 * t1921;
6884   t1976 = t610 * t658;
6885   t1981 = pow(t95, -0.2741696e1);
6886   t1982 = t90 * t1981;
6887   t1983 = t1982 * t101;
6888   t1984 = t621 * t94;
6889   t1993 = -0.63756387095837744824e0 * t625 * t1897 - 0.2766001889280e1 * t1901 * t1902 - 0.2766001889280e1 * t237 * t1906 - 0.18307055749595233518e1 * t616 * t1911 - 0.357234676004290560e0 * t625 * t1914 + 0.975074869248e0 * t97 * t644 * t249 * t658 + 0.14683899485061986386e1 * t237 * t1921 - 0.4936538891835801600e1 * t237 * t1927 + 0.714469352008581120e0 * t1930 * t611 + 0.2766001889280e1 * t237 * t1934 - 0.357234676004290560e0 * t625 * t1938 + 0.47287857283434471986e0 * t1941 * t1943 - 0.258304e0 * t97 * t245 * t1970 + 0.2766001889280e1 * t1946 * t102 - 0.357234676004290560e0 * t609 * t1976 + 0.461000314880e0 * t237 * t1966 + 0.18968792869915364414e1 * t1983 * t1863 * t1984 + 0.461000314880e0 * t1954 * t102 + 0.36614111499190467036e1 * t616 * t1926 * t621;
6890   t1995 = my_piecewise3(t87, 0, t1896 + t1993);
6891   t1996 = my_piecewise3(t86, 0, t1995);
6892   t2002 = 0.3e1 / 0.10e2 * t50 * (t1809 * t104 + t85 * t1996 + 0.3e1 * t228 * t664 + 0.3e1 * t585 * t255 - t1742) + 0.154e3 / 0.27e2 * t1704;
6893   t2003 = t46 * t2002;
6894   t2009 = t674 * t261;
6895   t2010 = t46 * t2009;
6896   t2011 = t183 * t118;
6897   t2014 = t183 * t116;
6898   t2015 = t2014 * t118;
6899   t2024 = t46 * t731;
6900   t2025 = t2009 * t183;
6901   t2026 = t2025 * t118;
6902   t2029 = -0.539e3 / 0.21870e5 * t47 * t1739 - t2003 * t263 / 0.180e3 - t671 * t26 * t920 / 0.36e2 + 0.5e1 / 0.162e3 * t2010 * t2011 - 0.5e1 / 0.81e2 * t2010 * t2015 + t266 * t2002 * t263 / 0.180e3 + t685 * t670 * t927 / 0.108e3 + 0.5e1 / 0.486e3 * t2024 * t2026;
6903   t2032 = -0.1540e4 / 0.6561e4 * t1705 - 0.209e3 / 0.486e3 * t30 * t1709 * t42 + 0.797e3 / 0.480e3 * t184 * t1714 * t42 - 0.729e3 / 0.3200e4 * t523 * t1722 + 0.243e3 / 0.32000e5 * t1728 * t1734 + 0.6e1 * t270 * t690 + 0.2e1 * t121 * t2029;
6904   t2041 = params->c1 * t2002;
6905   t2044 = t699 * t26;
6906   t2047 = params->c1 * t2009;
6907   t2050 = t732 * t2009;
6908   t2051 = t2050 * t15;
6909   t2054 = t706 * t261;
6910   t2055 = t2054 * t670;
6911   t2058 = t281 * t2002;
6912   t2061 = -0.5e1 / 0.9e1 * t2041 * t132 - 0.50e2 / 0.27e2 * t2044 * t282 - 0.500e3 / 0.81e2 * t2047 * t707 - 0.2500e4 / 0.729e3 * t946 * t2051 - 0.500e3 / 0.81e2 * t946 * t2055 - 0.25e2 / 0.81e2 * t279 * t2058;
6913   t2066 = t716 * t285;
6914   t2069 = t287 * t732;
6915   t2070 = t2025 * t137;
6916   t2073 = t287 * t2054;
6917   t2074 = t137 * t670;
6918   t2075 = t58 * t2074;
6919   t2078 = t731 * t114;
6920   t2079 = 0.1e1 / t2078;
6921   t2080 = t730 * t2079;
6922   t2083 = t2002 * t10;
6923   t2084 = t2083 * t290;
6924   t2092 = params->d * t729 * params->c2;
6925   t2094 = 0.1e1 / t731 / t116;
6926   t2095 = t2092 * t2094;
6927   t2099 = my_piecewise3(t129, 0.3e1 * t714 * t285 * t135 + t2061 * t135 + t2066 * t135, -0.500e3 / 0.81e2 * t2069 * t2070 - 0.50e2 / 0.27e2 * t2073 * t2075 - 0.500e3 / 0.81e2 * t2080 * t2070 - 0.5e1 / 0.9e1 * t288 * t2084 - 0.25e2 / 0.27e2 * t730 * t732 * t670 * t961 - 0.250e3 / 0.243e3 * t2095 * t2070);
6928   t2102 = 0.6e1 * t1691 * t1692 * t140 - 0.6e1 * t497 * t1696 + 0.6e1 * t497 * t498 * t294 + t168 * t2032 * t140 - 0.3e1 * t168 * t693 * t294 - 0.3e1 * t168 * t273 * t737 - t128 * t2099 + 0.1174e1 * t2099;
6929   t2103 = t7 * t2102;
6930   t2107 = t308 * t740;
6931   t2115 = t297 * t410 * t762;
6932   t2119 = t1703 * t306 * t308;
6933   t2120 = 0.1e1 / t11;
6934   t2121 = t2120 * t996;
6935   t2122 = 0.1e1 / t32;
6936   t2126 = 0.1e1 / t153 / t2121 / t2122 / 0.36e2;
6937   t2128 = t2121 * t157;
6938   t2129 = t143 * t2126 * t2128;
6939   t2134 = t28 * t410 * t157;
6940   t2135 = t143 * t10 * t2134;
6941   t2139 = t54 * t306 * t4;
6942   t2140 = t312 * t157;
6943   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6944     v3rho3[0] = t8 * t54 * t143 * t158 / 0.9e1 - t8 * t481 * t297 * t158 / 0.2e1 + 0.5497666666666666667e0 * t407 * t1666 * t143 * t316 - 0.3e1 / 0.2e1 * t8 * t9 * t740 * t158 - 0.24739500000000000000e1 * t407 * t490 * t297 * t316 + 0.89062200000000000000e2 * t407 * t1679 * t143 * t756 + 0.80541612095716256868e2 * t1686 * t763 - 0.3e1 / 0.8e1 * t164 * t2103 * t158 - 0.74218500000000000000e1 * t307 * t2107 * t316 - 0.89062200000000000000e2 * t749 * t745 * t756 + 0.24162483628714877061e3 * t760 * t2115 - 0.59374800000000000000e3 * t2119 * t2129 + 0.16536775210765846035e1 * t1686 * t2135 - 0.32302153261130400000e3 * t2139 * t408 * t2140;
6945 
6946   t2145 = t481 * t2 * t4;
6947   t2149 = t489 * t306;
6948   t2156 = t934 * t273;
6949   t2165 = t15 * t503;
6950   t2170 = t31 * t515;
6951   t2176 = t1726 * t522;
6952   t2181 = 0.1e1 / t9 / t186 / t507 * t26 * t1733;
6953   t2188 = t14 * t503;
6954   t2191 = 0.55e2 / 0.81e2 * t2165;
6955   t2194 = t58 * t176 * lapl[0];
6956   t2195 = 0.13e2 / 0.2916e4 * t2194;
6957   t2196 = t58 * t1750;
6958   t2197 = 0.76e2 / 0.19683e5 * t2196;
6959   t2198 = 0.55e2 / 0.729e3 * t2165 - t2195 + t2197;
6960   t2200 = t802 * t213;
6961   t2202 = t339 * t557;
6962   t2212 = t346 * t559;
6963   t2215 = t831 * t225;
6964   t2218 = t346 * t582;
6965   t2221 = t569 * t79;
6966   t2224 = t216 * t220;
6967   t2225 = t2224 * t341;
6968   t2230 = t1782 * t341;
6969   t2233 = t565 * t818;
6970   t2238 = -t2195 + t2197;
6971   t2243 = t1782 * t26;
6972   t2244 = t216 * sigma[0];
6973   t2251 = t329 * t569;
6974   t2254 = t183 * t515;
6975   t2255 = t2254 * t31;
6976   t2258 = t29 * t509;
6977   t2259 = t2258 * sigma[0];
6978   t2264 = 0.2e1 * t2221 * t341 + 0.40e2 / 0.27e2 * t2225 * t172 + 0.4e1 * t812 * t818 + 0.100e3 / 0.243e3 * t2230 * t549 + 0.40e2 / 0.27e2 * t2233 * t172 - 0.220e3 / 0.81e2 * t815 * t505 + 0.2e1 * t215 * t2238 - 0.5e1 / 0.18e2 * t1778 * t319 - 0.25e2 / 0.81e2 * t2243 * t825 * t2244 + 0.40e2 / 0.27e2 * t821 * t792 * t216 - 0.5e1 / 0.18e2 * t821 * t2251 - 0.250e3 / 0.729e3 * t1796 * t2255 + 0.25e2 / 0.36e2 * t575 * t2259 - 0.110e3 / 0.81e2 * t221 * t2165;
6979   t2267 = t2198 * t83 - t2200 * t225 + 0.3e1 / 0.4e1 * t2202 * t559 - t804 * t582 / 0.2e1 - t1758 * t346 / 0.2e1 + 0.3e1 / 0.2e1 * t1761 * t809 - t553 * t831 - 0.15e2 / 0.8e1 * t1769 * t2212 + 0.3e1 / 0.2e1 * t558 * t2215 + 0.3e1 / 0.4e1 * t558 * t2218 - t214 * t2264 / 0.2e1 - t2191;
6980   t2275 = t644 * t902;
6981   t2279 = t1409 * t240;
6982   t2280 = t1871 * t2279;
6983   t2283 = t354 * t240;
6984   t2284 = t2283 * t94;
6985   t2285 = t1871 * t2284;
6986   t2288 = t363 * t242;
6987   t2291 = t838 * t236;
6988   t2292 = t101 * t228;
6989   t2293 = t2292 * t242;
6990   t2296 = t228 * t90;
6991   t2297 = t847 * t2296;
6992   t2298 = t235 * t101;
6993   t2299 = t2298 * t242;
6994   t2304 = t857 * t249;
6995   t2305 = t1815 * t2304;
6996   t2308 = t1820 * t2284;
6997   t2311 = -t2267;
6998   t2312 = t239 * t2311;
6999   t2313 = t2312 * t94;
7000   t2316 = t99 * t591;
7001   t2319 = t590 * t834;
7002   t2322 = t1830 * t349;
7003   t2327 = t231 * t2267;
7004   t2330 = t599 * t834;
7005   t2335 = t1836 * t349;
7006   t2338 = t861 * t1821;
7007   t2340 = t631 * t873;
7008   t2341 = t2340 * t605;
7009   t2343 = t1925 * t354;
7010   t2344 = t2343 * t1821;
7011   t2346 = t869 * t1885;
7012   t2349 = t618 * t873;
7013   t2350 = t2349 * t605;
7014   t2352 = t861 * t1885;
7015   t2354 = t1861 * t354;
7016   t2355 = t2354 * t1821;
7017   t2357 = 0.10708320e2 * t847 * t2316 - 0.7138880e1 * t2319 * t892 - 0.19111352870400e2 * t2322 * t2316 - 0.3569440e1 * t838 * t1949 + 0.1784720e1 * t2327 * t99 + 0.6370450956800e1 * t2330 * t892 + 0.3185225478400e1 * t847 * t1949 + 0.5684735615810048000e1 * t2335 * t2316 + 0.10708320e2 * t2338 - 0.7138880e1 * t2341 - 0.19111352870400e2 * t2344 - 0.3569440e1 * t2346 + 0.1784720e1 * t2313 + 0.6370450956800e1 * t2350 + 0.3185225478400e1 * t2352 + 0.5684735615810048000e1 * t2355;
7018   t2361 = t847 * t90;
7019   t2362 = t840 * t591;
7020   t2365 = t844 * t90;
7021   t2368 = t2319 * t90;
7022   t2371 = t610 * t902;
7023   t2376 = 0.650049912832e0 * t97 * t2275 * t249 - 0.56263723100594113894e0 * t1870 * t2280 + 0.75858199451789026628e0 * t603 * t2285 - 0.10979019874935515226e0 * t603 * t2288 - 0.85008516127783659765e0 * t2291 * t2293 + 0.19594476351194912734e0 * t2297 * t2299 - 0.10979019874935515226e0 * t851 * t1817 - 0.10979019874935515226e0 * t603 * t2305 - 0.85008516127783659765e0 * t603 * t2308 + 0.461000314880e0 * t237 * t2313 - 0.258304e0 * t97 * t245 * t2357 + 0.2766001889280e1 * t2361 * t2362 - 0.238156450669527040e0 * t2365 * t611 - 0.1844001259520e1 * t2368 * t841 - 0.238156450669527040e0 * t609 * t2371 + 0.14983660725163427627e0 * t854 * t1844;
7024   t2381 = t2322 * t591;
7025   t2384 = t2335 * t591;
7026   t2387 = t1847 * t362;
7027   t2395 = t847 * t585;
7028   t2398 = t2330 * t228;
7029   t2408 = t228 * t249;
7030   t2409 = t610 * t2408;
7031   t2412 = t874 * t626;
7032   t2415 = t355 * t1937;
7033   t2418 = t2349 * t862;
7034   t2421 = -0.54895099374677576130e-1 * t1867 * t881 - 0.922000629760e0 * t839 * t1902 - 0.12751277419167548965e1 * t2381 * t102 + 0.97972381755974563669e-1 * t2384 * t102 - 0.734005159174078464e0 * t97 * t2387 * t645 - 0.119078225334763520e0 * t854 * t1976 + 0.238156450669527040e0 * t1930 * t881 + 0.21252129031945914941e0 * t2395 * t102 + 0.42504258063891829882e0 * t2398 * t102 - 0.119078225334763520e0 * t1840 * t881 + 0.325024956416e0 * t97 * t888 * t658 - 0.10979019874935515226e0 * t848 * t251 + 0.476312901339054080e0 * t839 * t2409 - 0.238156450669527040e0 * t625 * t2412 - 0.119078225334763520e0 * t625 * t2415 - 0.12204703833063489012e1 * t616 * t2418;
7035   t2427 = t861 * t1910;
7036   t2430 = t1984 * t619;
7037   t2431 = t2354 * t2430;
7038   t2434 = t2354 * t1872;
7039   t2439 = t2343 * t1872;
7040   t2443 = t362 * t631 * t1821;
7041   t2446 = t355 * t1853;
7042   t2451 = t902 * t239;
7043   t2452 = t2451 * t605;
7044   t2463 = t884 * t1885;
7045   t2466 = -0.1844001259520e1 * t237 * t2341 - 0.922000629760e0 * t237 * t2346 - 0.61023519165317445059e0 * t616 * t2427 + 0.18968792869915364414e1 * t1983 * t2431 - 0.32672968537417605163e1 * t616 * t2434 - 0.4936538891835801600e1 * t237 * t2344 + 0.36614111499190467036e1 * t616 * t2439 + 0.238156450669527040e0 * t625 * t2443 + 0.14983660725163427627e0 * t1852 * t2446 + 0.2766001889280e1 * t237 * t2338 - 0.238156450669527040e0 * t625 * t2452 + 0.822756481972633600e0 * t237 * t2352 + 0.14683899485061986386e1 * t237 * t2355 + 0.1645512963945267200e1 * t237 * t2350 + 0.461000314880e0 * t2327 * t102 - 0.119078225334763520e0 * t625 * t2463;
7046   t2467 = t362 * t618;
7047   t2468 = t2467 * t1872;
7048   t2471 = t2467 * t1821;
7049   t2474 = t362 * t249;
7050   t2475 = t1843 * t2474;
7051   t2478 = t236 * t888;
7052   t2481 = t245 * t631;
7053   t2482 = t236 * t2481;
7054   t2483 = t249 * t240;
7055   t2484 = t857 * t2483;
7056   t2487 = t245 * t618;
7057   t2488 = t236 * t2487;
7058   t2493 = t351 * t615;
7059   t2500 = t873 * t94;
7060   t2501 = t604 * t2500;
7061   t2506 = t615 * t2487;
7062   t2510 = t844 * t236;
7063   t2517 = 0.15762619094478157328e0 * t1941 * t2468 - 0.21252129031945914941e0 * t625 * t2471 + 0.29967321450326855254e0 * t609 * t2475 + 0.29967321450326855254e0 * t2478 * t627 + 0.476312901339054080e0 * t2482 * t2484 - 0.42504258063891829882e0 * t2488 * t2484 + 0.21252129031945914941e0 * t851 * t1886 - 0.28131861550297056947e0 * t2493 * t1873 + 0.37929099725894513314e0 * t851 * t1876 + 0.21252129031945914941e0 * t1879 * t858 + 0.42504258063891829882e0 * t603 * t2501 + 0.97972381755974563669e-1 * t1882 * t858 + 0.31525238188956314657e0 * t2506 * t1409 * t2483 + 0.42504258063891829882e0 * t2510 * t606 - 0.42504258063891829882e0 * t851 * t1822 - 0.42504258063891829882e0 * t1889 * t858;
7064   t2520 = my_piecewise3(t87, 0, t2376 + t2421 + t2466 + t2517);
7065   t2521 = my_piecewise3(t86, 0, t2520);
7066   t2527 = 0.3e1 / 0.10e2 * t50 * (t2267 * t104 + 0.2e1 * t228 * t908 + t85 * t2521 + 0.2e1 * t834 * t255 + t349 * t664 + t585 * t368 + t2191) - 0.11e2 / 0.9e1 * t503;
7067   t2528 = t46 * t2527;
7068   t2531 = t915 * t26;
7069   t2534 = t183 * t674;
7070   t2535 = t2534 * t118;
7071   t2538 = t670 * t118;
7072   t2539 = t677 * t2538;
7073   t2542 = t375 * t183;
7074   t2544 = t116 * t674 * t118;
7075   t2550 = t685 * t914;
7076   t2553 = t58 * t2538;
7077   t2556 = t2024 * t374;
7078   t2559 = 0.77e2 / 0.14580e5 * t47 * t2188 - t2528 * t263 / 0.180e3 - t2531 * t920 / 0.54e2 + 0.5e1 / 0.162e3 * t375 * t2535 - t918 * t2539 / 0.108e3 - 0.5e1 / 0.81e2 * t2542 * t2544 + t266 * t2527 * t263 / 0.180e3 + t2550 * t927 / 0.162e3 + t926 * t2553 / 0.324e3 + 0.5e1 / 0.486e3 * t2556 * t2535;
7079   t2562 = 0.110e3 / 0.2187e4 * t2165 + 0.19e2 / 0.162e3 * t30 * t1750 * t42 - 0.167e3 / 0.320e3 * t184 * t2170 * t42 + 0.81e2 / 0.1024e4 * t782 * t529 - 0.729e3 / 0.256000e6 * t2176 * t2181 + 0.2e1 * t690 * t381 + 0.4e1 * t270 * t930 + 0.2e1 * t121 * t2559;
7080   t2563 = t2562 * t140;
7081   t2565 = t933 * t294;
7082   t2568 = t384 * t737;
7083   t2578 = params->c1 * t2527;
7084   t2581 = t940 * t26;
7085   t2588 = t183 * t732;
7086   t2589 = t130 * t2588;
7087   t2594 = t706 * t914;
7088   t2595 = t2594 * t261;
7089   t2601 = t281 * t2527;
7090   t2604 = -0.5e1 / 0.9e1 * t2578 * t132 - 0.100e3 / 0.81e2 * t2581 * t282 - 0.500e3 / 0.81e2 * t387 * t708 - 0.50e2 / 0.81e2 * t943 * t711 - 0.2500e4 / 0.729e3 * t2589 * t374 * t674 * t15 - 0.1000e4 / 0.243e3 * t946 * t2595 - 0.500e3 / 0.243e3 * t946 * t947 * t670 - 0.25e2 / 0.81e2 * t279 * t2601;
7091   t2609 = t393 * t714;
7092   t2614 = t374 * t183;
7093   t2615 = t137 * t674;
7094   t2616 = t2614 * t2615;
7095   t2619 = t287 * t2594;
7096   t2626 = t2527 * t10;
7097   t2627 = t2626 * t290;
7098   t2631 = t730 * t732 * t914;
7099   t2639 = my_piecewise3(t129, 0.2e1 * t954 * t285 * t135 + t393 * t716 * t135 + t2604 * t135 + t2609 * t135, -0.500e3 / 0.81e2 * t2069 * t2616 - 0.100e3 / 0.81e2 * t2619 * t961 - 0.500e3 / 0.81e2 * t2080 * t2616 - 0.50e2 / 0.81e2 * t959 * t2075 - 0.5e1 / 0.9e1 * t288 * t2627 - 0.50e2 / 0.81e2 * t2631 * t961 - 0.25e2 / 0.81e2 * t969 * t2075 - 0.250e3 / 0.243e3 * t2095 * t2616);
7100   t2642 = 0.6e1 * t1691 * t385 * t498 - 0.4e1 * t497 * t2156 + 0.4e1 * t497 * t936 * t273 - 0.2e1 * t497 * t385 * t693 + t168 * t2563 - 0.2e1 * t168 * t2565 - t168 * t2568 + 0.2e1 * t497 * t498 * t399 - t168 * t693 * t399 - 0.2e1 * t168 * t273 * t973 - t128 * t2639 + 0.1174e1 * t2639;
7101   t2643 = t7 * t2642;
7102   t2644 = t2643 * t158;
7103   t2647 = t308 * t976;
7104   t2655 = t402 * t410 * t762;
7105   t2658 = t407 * t741;
7106   t2663 = t5 * t298;
7107   t2666 = t2126 * t2120;
7108   t2669 = t2666 * t157 * t503 * t148;
7109   t2672 = t10 * t28;
7110   t2673 = t997 * t17;
7111   t2675 = t2672 * t2673 * t157;
7112   t2679 = t754 * t988 * t62;
7113   t2682 = t2673 * t762;
7114   t2686 = t1345 * t481 * t2140;
7115   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7116     v3rho2sigma[0] = -t2145 * t404 / 0.6e1 - t767 * t978 - 0.8246500000000000000e0 * t2149 * t981 * t316 - 0.3e1 / 0.8e1 * t164 * t2644 - 0.49479000000000000000e1 * t307 * t2647 * t316 - 0.29687400000000000000e2 * t749 * t981 * t756 + 0.80541612095716256868e2 * t760 * t2655 + 0.92773125000000000000e0 * t2658 * t413 + 0.22265550000000000000e2 * t985 * t992 - 0.60406209071787192650e2 * t2663 * t999 + 0.22265550000000000000e3 * t409 * t2669 - 0.62012907040371922630e0 * t995 * t2675 - 0.25976475000000000000e2 * t409 * t2679 - 0.50338507559822660542e2 * t995 * t2682 + 0.12113307472923900000e3 * t409 * t2686;
7117 
7118   t2695 = t1691 * t121;
7119   t2696 = t1005 * t498;
7120   t2699 = t497 * t270;
7121   t2702 = t1124 * t140;
7122   t2703 = t2702 * t273;
7123   t2706 = t455 * t294;
7124   t2707 = t2706 * t273;
7125   t2710 = t1005 * t693;
7126   t2713 = t690 * t455;
7127   t2717 = t270 * t1124;
7128   t2724 = t423 * t557;
7129   t2728 = 0.65e2 / 0.13122e5 * t798;
7130   t2729 = 0.13e2 / 0.2916e4 * t800;
7131   t2730 = 0.100e3 / 0.243e3 * t773 + t2728 - t2729;
7132   t2732 = t1769 * t75;
7133   t2733 = t1023 * t559;
7134   t2736 = t214 * t1782;
7135   t2737 = t425 * t26;
7136   t2738 = t2737 * t577;
7137   t2741 = t553 * t565;
7138   t2744 = t214 * t2224;
7139   t2747 = t1034 * t10;
7140   t2748 = t2747 * t193;
7141   t2755 = t2221 * t425;
7142   t2758 = t812 * t1034;
7143   t2761 = t2728 - t2729;
7144   t2762 = t215 * t2761;
7145   t2765 = t565 * t425;
7146   t2766 = t558 * t2765;
7147   t2767 = t225 * t10;
7148   t2768 = t2767 * t193;
7149   t2771 = t1030 * t534;
7150   t2774 = t1016 * t213;
7151   t2778 = t1761 * t75;
7152   t2781 = t558 * t216;
7153   t2784 = t79 * t1034;
7154   t2785 = t2784 * t225;
7155   t2788 = t1023 * t582;
7156   t2791 = -0.2e1 * t214 * t2758 - t214 * t2762 - t1758 * t426 + 0.10e2 / 0.9e1 * t2766 * t2768 + 0.110e3 / 0.81e2 * t1029 * t2771 - t2774 * t225 - t1018 * t582 / 0.2e1 + 0.3e1 * t2778 * t1024 + 0.3e1 * t2781 * t1024 + 0.3e1 * t1022 * t2785 + 0.3e1 / 0.2e1 * t1022 * t2788;
7157   t2792 = 0.3e1 / 0.4e1 * t2724 * t559 + t2730 * t83 - 0.15e2 / 0.4e1 * t2732 * t2733 - 0.50e2 / 0.243e3 * t2736 * t2738 - 0.20e2 / 0.27e2 * t2741 * t1031 - 0.20e2 / 0.27e2 * t2744 * t1031 - 0.20e2 / 0.27e2 * t1029 * t2748 - 0.2e1 * t553 * t1027 - 0.2e1 * t553 * t1035 - t214 * t2755 + t2791;
7158   t2800 = t442 * t242;
7159   t2803 = t1048 * t2296;
7160   t2809 = t1815 * t1058 * t249;
7161   t2812 = t1058 * t240;
7162   t2813 = t1820 * t2812;
7163   t2816 = t433 * t621;
7164   t2818 = t1871 * t2816 * t240;
7165   t2821 = t1871 * t2812;
7166   t2824 = t1041 * t236;
7167   t2827 = t231 * t2792;
7168   t2836 = t1836 * t428;
7169   t2837 = t2836 * t591;
7170   t2840 = t441 * t631;
7171   t2844 = -t2792;
7172   t2845 = t239 * t2844;
7173   t2846 = t2845 * t94;
7174   t2849 = t1861 * t433;
7175   t2853 = -0.10979019874935515226e0 * t603 * t2800 + 0.19594476351194912734e0 * t2803 * t2299 - 0.10979019874935515226e0 * t1052 * t1817 - 0.10979019874935515226e0 * t603 * t2809 - 0.85008516127783659765e0 * t603 * t2813 - 0.56263723100594113894e0 * t1870 * t2818 + 0.75858199451789026628e0 * t603 * t2821 - 0.85008516127783659765e0 * t2824 * t2293 + 0.461000314880e0 * t2827 * t102 - 0.119078225334763520e0 * t1840 * t1081 - 0.54895099374677576130e-1 * t1867 * t1081 - 0.119078225334763520e0 * t1055 * t1976 + 0.97972381755974563669e-1 * t2837 * t102 + 0.238156450669527040e0 * t625 * t2840 * t1821 + 0.461000314880e0 * t237 * t2846 + 0.18968792869915364414e1 * t1983 * t2849 * t2430;
7176   t2863 = t631 * t1073;
7177   t2864 = t2863 * t605;
7178   t2867 = t618 * t1073;
7179   t2874 = t1048 * t585;
7180   t2883 = t599 * t1037;
7181   t2884 = t2883 * t228;
7182   t2890 = t1045 * t90;
7183   t2893 = t610 * t1101;
7184   t2896 = t590 * t1037;
7185   t2897 = t2896 * t90;
7186   t2902 = -0.32672968537417605163e1 * t616 * t2849 * t1872 - 0.238156450669527040e0 * t625 * t1074 * t626 - 0.119078225334763520e0 * t625 * t434 * t1937 - 0.1844001259520e1 * t237 * t2864 - 0.12204703833063489012e1 * t616 * t2867 * t862 - 0.61023519165317445059e0 * t616 * t1062 * t1910 + 0.21252129031945914941e0 * t2874 * t102 - 0.10979019874935515226e0 * t1049 * t251 + 0.476312901339054080e0 * t1042 * t2409 + 0.14983660725163427627e0 * t1055 * t1844 + 0.42504258063891829882e0 * t2884 * t102 + 0.325024956416e0 * t97 * t1088 * t658 - 0.238156450669527040e0 * t2890 * t611 - 0.238156450669527040e0 * t609 * t2893 - 0.1844001259520e1 * t2897 * t841 + 0.238156450669527040e0 * t1930 * t1081;
7187   t2904 = t441 * t249;
7188   t2905 = t1843 * t2904;
7189   t2908 = t2867 * t605;
7190   t2911 = t1062 * t1885;
7191   t2914 = t1069 * t1885;
7192   t2917 = t1925 * t433;
7193   t2918 = t2917 * t1821;
7194   t2921 = t1101 * t239;
7195   t2922 = t2921 * t605;
7196   t2928 = t2849 * t1821;
7197   t2931 = t441 * t618;
7198   t2938 = t644 * t1101;
7199   t2948 = t1062 * t1821;
7200   t2953 = t1847 * t441;
7201   t2957 = 0.29967321450326855254e0 * t609 * t2905 + 0.1645512963945267200e1 * t237 * t2908 + 0.822756481972633600e0 * t237 * t2911 - 0.922000629760e0 * t237 * t2914 - 0.4936538891835801600e1 * t237 * t2918 - 0.238156450669527040e0 * t625 * t2922 - 0.119078225334763520e0 * t625 * t1084 * t1885 + 0.14683899485061986386e1 * t237 * t2928 + 0.15762619094478157328e0 * t1941 * t2931 * t1872 - 0.21252129031945914941e0 * t625 * t2931 * t1821 + 0.650049912832e0 * t97 * t2938 * t249 + 0.36614111499190467036e1 * t616 * t2917 * t1872 + 0.14983660725163427627e0 * t1852 * t434 * t1853 + 0.2766001889280e1 * t237 * t2948 - 0.922000629760e0 * t1042 * t1902 - 0.734005159174078464e0 * t97 * t2953 * t645;
7202   t2958 = t1830 * t428;
7203   t2959 = t2958 * t591;
7204   t2962 = t1048 * t90;
7205   t2965 = t236 * t1088;
7206   t2968 = t1073 * t94;
7207   t2969 = t604 * t2968;
7208   t2977 = t1058 * t2483;
7209   t2982 = t1045 * t236;
7210   t2987 = t430 * t615;
7211   t3022 = 0.10708320e2 * t1048 * t2316 - 0.7138880e1 * t2896 * t892 - 0.19111352870400e2 * t2958 * t2316 - 0.3569440e1 * t1041 * t1949 + 0.1784720e1 * t2827 * t99 + 0.6370450956800e1 * t2883 * t892 + 0.3185225478400e1 * t1048 * t1949 + 0.5684735615810048000e1 * t2836 * t2316 + 0.10708320e2 * t2948 - 0.7138880e1 * t2864 - 0.19111352870400e2 * t2918 - 0.3569440e1 * t2914 + 0.1784720e1 * t2846 + 0.6370450956800e1 * t2908 + 0.3185225478400e1 * t2911 + 0.5684735615810048000e1 * t2928;
7212   t3026 = -0.12751277419167548965e1 * t2959 * t102 + 0.2766001889280e1 * t2962 * t2362 + 0.29967321450326855254e0 * t2965 * t627 + 0.42504258063891829882e0 * t603 * t2969 + 0.97972381755974563669e-1 * t1882 * t1059 + 0.31525238188956314657e0 * t2506 * t2816 * t2483 + 0.476312901339054080e0 * t2482 * t2977 - 0.42504258063891829882e0 * t2488 * t2977 + 0.42504258063891829882e0 * t2982 * t606 + 0.21252129031945914941e0 * t1052 * t1886 - 0.28131861550297056947e0 * t2987 * t1873 + 0.37929099725894513314e0 * t1052 * t1876 + 0.21252129031945914941e0 * t1879 * t1059 - 0.42504258063891829882e0 * t1052 * t1822 - 0.42504258063891829882e0 * t1889 * t1059 - 0.258304e0 * t97 * t245 * t3022;
7213   t3029 = my_piecewise3(t87, 0, t2853 + t2902 + t2957 + t3026);
7214   t3030 = my_piecewise3(t86, 0, t3029);
7215   t3032 = -0.2e1 * t1037 * t255 - t2792 * t104 - 0.2e1 * t228 * t1107 - t85 * t3030 - t428 * t664 - t585 * t447;
7216   t3033 = t46 * t3032;
7217   t3036 = t1110 * t114;
7218   t3039 = t450 * t674;
7219   t3042 = t725 * t1114;
7220   t3045 = t450 * t116;
7221   t3046 = t29 * t118;
7222   t3047 = t720 * t3046;
7223   t3053 = t685 * t1109;
7224   t3058 = t2024 * t449;
7225   t3061 = t3033 * t118 / 0.100e3 + t3036 * t1115 / 0.30e2 - t3039 * t687 / 0.108e3 + t1113 * t3042 / 0.60e2 + t3045 * t3047 / 0.54e2 - t266 * t3032 * t118 / 0.100e3 - t3053 * t1115 / 0.90e2 - t1121 * t3042 / 0.180e3 - t3058 * t3047 / 0.324e3;
7226   t3062 = t121 * t3061;
7227   t3081 = -params->c1 * t3032;
7228   t3083 = t1135 * t280;
7229   t3086 = t461 * t706;
7230   t3087 = t720 * t29;
7231   t3090 = t725 * t14;
7232   t3093 = t699 * t10;
7233   t3096 = t702 * t26;
7234   t3097 = t1144 * t449;
7235   t3102 = t1164 * t674;
7236   t3105 = t1109 * t261;
7237   t3106 = t1144 * t3105;
7238   t3109 = t449 * t670;
7239   t3110 = t1144 * t3109;
7240   t3113 = t464 * t3032;
7241   t3116 = -t3081 * t131 - 0.10e2 / 0.9e1 * t3083 * t1138 - 0.50e2 / 0.81e2 * t3086 * t3087 - 0.5e1 / 0.9e1 * t1137 * t3090 + 0.5e1 / 0.9e1 * t3093 * t465 + 0.100e3 / 0.81e2 * t3096 * t3097 + 0.10e2 / 0.9e1 * t1141 * t1149 + 0.500e3 / 0.81e2 * t946 * t3102 + 0.100e3 / 0.81e2 * t279 * t3106 + 0.50e2 / 0.81e2 * t279 * t3110 + 0.5e1 / 0.9e1 * t463 * t3113;
7242   t3121 = t468 * t714;
7243   t3126 = t287 * t1164;
7244   t3130 = t287 * t706 * t1109;
7245   t3133 = t2079 * t449;
7246   t3134 = t730 * t3133;
7247   t3139 = t280 * t3032;
7248   t3142 = t732 * t1109;
7249   t3143 = t730 * t3142;
7250   t3148 = t2094 * t449;
7251   t3149 = t2092 * t3148;
7252   t3153 = my_piecewise3(t129, 0.2e1 * t1152 * t285 * t135 + t468 * t716 * t135 + t3116 * t135 + t3121 * t135, 0.50e2 / 0.27e2 * t3126 * t722 + 0.20e2 / 0.9e1 * t3130 * t291 + 0.50e2 / 0.27e2 * t3134 * t722 + 0.10e2 / 0.9e1 * t1158 * t726 + t287 * t3139 * t137 + 0.10e2 / 0.9e1 * t3143 * t291 + 0.5e1 / 0.9e1 * t1165 * t726 + 0.25e2 / 0.81e2 * t3149 * t722);
7253   t3156 = 0.12e2 * t2695 * t2696 - 0.8e1 * t2699 * t1006 - 0.8e1 * t1004 * t2703 + 0.8e1 * t1004 * t2707 - 0.4e1 * t1004 * t2710 + 0.2e1 * t168 * t2713 * t140 + 0.4e1 * t168 * t2717 * t140 - 0.4e1 * t168 * t1009 * t294 + 0.2e1 * t168 * t3062 * t140 - 0.4e1 * t168 * t1125 * t294 - 0.2e1 * t168 * t456 * t737 + 0.2e1 * t497 * t498 * t473 - t168 * t693 * t473 - 0.2e1 * t168 * t273 * t1169 - t128 * t3153 + 0.1174e1 * t3153;
7254   t3157 = t7 * t3156;
7255   t3158 = t3157 * t158;
7256   t3161 = t308 * t1172;
7257   t3169 = t476 * t410 * t762;
7258   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7259     v3rho2lapl[0] = -t2145 * t478 / 0.6e1 - t767 * t1174 - 0.8246500000000000000e0 * t2149 * t1177 * t316 - 0.3e1 / 0.8e1 * t164 * t3158 - 0.49479000000000000000e1 * t307 * t3161 * t316 - 0.29687400000000000000e2 * t749 * t1177 * t756 + 0.80541612095716256868e2 * t760 * t3169;
7260 
7261   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7262     v3rho2tau[0] = 0.0e0;
7263 
7264   t3180 = t1181 * t294;
7265   t3183 = t1301 * t273;
7266   t3189 = t188 * sigma[0];
7267   t3195 = t1726 * t185;
7268   t3196 = t186 * t174;
7269   t3200 = 0.1e1 / t9 / t3196 * t26 * t1733;
7270   t3208 = t58 * t176 * t83;
7271   t3210 = t35 * t213;
7272   t3212 = t58 * t3210 * t225;
7273   t3220 = t1206 * t225;
7274   t3223 = t346 * t831;
7275   t3228 = t1219 * t225;
7276   t3233 = t1209 * t220;
7277   t3234 = t3233 * t10;
7278   t3247 = t183 * t188;
7279   t3248 = t3247 * sigma[0];
7280   t3251 = t58 * t176;
7281   t3261 = 0.4e1 * t1378 * t818 + 0.20e2 / 0.27e2 * t3234 * t193 - 0.5e1 / 0.9e1 * t2225 * t319 - 0.25e2 / 0.81e2 * t2230 * t800 - 0.5e1 / 0.9e1 * t2233 * t319 + 0.40e2 / 0.27e2 * t815 * t773 + t812 * t1214 / 0.4374e4 + 0.10e2 / 0.19683e5 * t565 * t3248 - 0.8e1 / 0.6561e4 * t215 * t3251 + 0.25e2 / 0.432e3 * t2243 * t1185 * t216 + 0.125e3 / 0.972e3 * t1796 * t3248 - 0.25e2 / 0.162e3 * t574 * t3251;
7282   t3264 = -0.4e1 / 0.6561e4 * t3208 - t3212 / 0.17496e5 - t2200 * t346 + 0.3e1 / 0.2e1 * t2202 * t809 - t804 * t831 + 0.3e1 / 0.4e1 * t1761 * t1206 - 0.15e2 / 0.8e1 * t1769 * t3220 + 0.3e1 / 0.2e1 * t558 * t3223 - t553 * t1219 / 0.2e1 + 0.3e1 / 0.4e1 * t558 * t3228 - t214 * t3261 / 0.2e1;
7283   t3272 = t857 * t228;
7284   t3273 = t604 * t3272;
7285   t3280 = t2298 * t356;
7286   t3289 = t857 * t362;
7287   t3290 = t1815 * t3289;
7288   t3293 = t644 * t1274;
7289   t3297 = t1861 * t1240;
7290   t3298 = t3297 * t605;
7291   t3301 = t1261 * t239;
7292   t3302 = t3301 * t605;
7293   t3305 = t618 * t1253;
7294   t3306 = t3305 * t862;
7295   t3309 = t3305 * t605;
7296   t3312 = t1241 * t626;
7297   t3315 = t861 * t2500;
7298   t3318 = t1249 * t626;
7299   t3321 = -0.85008516127783659764e0 * t2291 * t3273 - 0.10979019874935515226e0 * t851 * t2305 - 0.85008516127783659764e0 * t851 * t2308 + 0.19594476351194912734e0 * t2297 * t3280 - 0.56263723100594113893e0 * t2493 * t2280 + 0.75858199451789026627e0 * t851 * t2285 - 0.10979019874935515226e0 * t851 * t2288 - 0.10979019874935515226e0 * t603 * t3290 + 0.325024956416e0 * t97 * t3293 * t249 + 0.14683899485061986386e1 * t237 * t3298 + 0.14983660725163427627e0 * t1852 * t3302 - 0.61023519165317445059e0 * t616 * t3306 + 0.822756481972633600e0 * t237 * t3309 - 0.21252129031945914941e0 * t625 * t3312 + 0.1645512963945267200e1 * t237 * t3315 + 0.238156450669527040e0 * t625 * t3318;
7300   t3322 = t1241 * t605;
7301   t3325 = t599 * t1222;
7302   t3326 = t3325 * t228;
7303   t3329 = t1230 * t90;
7304   t3332 = t840 * t834;
7305   t3335 = t1843 * t1261;
7306   t3342 = t99 * t834;
7307   t3345 = t1830 * t1226;
7308   t3348 = t590 * t1222;
7309   t3351 = t231 * t3264;
7310   t3358 = t1836 * t1226;
7311   t3362 = t869 * t2500;
7312   t3364 = t1925 * t1240;
7313   t3365 = t3364 * t605;
7314   t3367 = t631 * t1253;
7315   t3368 = t3367 * t605;
7316   t3370 = -t3264;
7317   t3371 = t239 * t3370;
7318   t3372 = t3371 * t94;
7319   t3377 = 0.10708320e2 * t1233 * t892 - 0.7138880e1 * t838 * t3342 - 0.19111352870400e2 * t3345 * t892 - 0.3569440e1 * t3348 * t892 + 0.1784720e1 * t3351 * t99 + 0.3185225478400e1 * t3325 * t892 + 0.6370450956800e1 * t847 * t3342 + 0.5684735615810048000e1 * t3358 * t892 + 0.10708320e2 * t3322 - 0.7138880e1 * t3362 - 0.19111352870400e2 * t3365 - 0.3569440e1 * t3368 + 0.1784720e1 * t3372 + 0.3185225478400e1 * t3309 + 0.6370450956800e1 * t3315 + 0.5684735615810048000e1 * t3298;
7320   t3381 = t610 * t1274;
7321   t3384 = t94 * t902;
7322   t3385 = t355 * t3384;
7323   t3392 = t1241 * t1942;
7324   t3395 = t3364 * t862;
7325   t3398 = t621 * t873;
7326   t3399 = t861 * t3398;
7327   t3402 = t362 * t228;
7328   t3403 = t610 * t3402;
7329   t3408 = 0.2766001889280e1 * t237 * t3322 + 0.21252129031945914941e0 * t3326 * t102 - 0.119078225334763520e0 * t3329 * t611 + 0.42504258063891829882e0 * t2361 * t3332 + 0.14983660725163427627e0 * t609 * t3335 - 0.238156450669527040e0 * t2365 * t881 - 0.258304e0 * t97 * t245 * t3377 - 0.119078225334763520e0 * t609 * t3381 - 0.238156450669527040e0 * t625 * t3385 + 0.29967321450326855254e0 * t854 * t2475 - 0.10979019874935515226e0 * t848 * t364 + 0.15762619094478157329e0 * t1941 * t3392 + 0.36614111499190467036e1 * t616 * t3395 - 0.12204703833063489012e1 * t616 * t3399 + 0.476312901339054080e0 * t839 * t3403 - 0.1844001259520e1 * t237 * t3362;
7330   t3412 = t1254 * t626;
7331   t3417 = t1984 * t240;
7332   t3418 = t3297 * t3417;
7333   t3421 = t3297 * t862;
7334   t3424 = t874 * t1245;
7335   t3427 = t1274 * t239;
7336   t3428 = t3427 * t605;
7337   t3431 = t3358 * t228;
7338   t3434 = t1233 * t90;
7339   t3446 = t1227 * t90;
7340   t3449 = t1847 * t1261;
7341   t3455 = -0.4936538891835801600e1 * t237 * t3365 - 0.119078225334763520e0 * t625 * t3412 - 0.922000629760e0 * t237 * t3368 + 0.18968792869915364414e1 * t1983 * t3418 - 0.32672968537417605163e1 * t616 * t3421 - 0.238156450669527040e0 * t625 * t3424 - 0.119078225334763520e0 * t625 * t3428 + 0.97972381755974563669e-1 * t3431 * t102 - 0.54895099374677576129e-1 * t3434 * t611 + 0.461000314880e0 * t3351 * t102 + 0.650049912832e0 * t97 * t888 * t902 + 0.461000314880e0 * t237 * t3372 - 0.238156450669527040e0 * t854 * t2371 + 0.238156450669527040e0 * t3446 * t611 - 0.734005159174078464e0 * t97 * t3449 * t249 - 0.1844001259520e1 * t839 * t3332;
7342   t3458 = t1227 * t236;
7343   t3461 = t1230 * t236;
7344   t3464 = t1233 * t236;
7345   t3471 = t1240 * t621;
7346   t3472 = t1871 * t3471;
7347   t3475 = t644 * t239;
7348   t3476 = t236 * t3475;
7349   t3480 = t362 * t240;
7350   t3481 = t857 * t3480;
7351   t3489 = t1240 * t94;
7352   t3490 = t1820 * t3489;
7353   t3493 = t1253 * t94;
7354   t3494 = t604 * t3493;
7355   t3497 = t1871 * t3489;
7356   t3500 = t3348 * t90;
7357   t3503 = t3345 * t228;
7358   t3506 = 0.2766001889280e1 * t3434 * t841 - 0.42504258063891829883e0 * t3458 * t606 + 0.21252129031945914941e0 * t3461 * t606 + 0.97972381755974563669e-1 * t3464 * t606 + 0.42504258063891829882e0 * t2510 * t858 + 0.42504258063891829882e0 * t851 * t2501 - 0.28131861550297056947e0 * t1870 * t3472 + 0.29967321450326855254e0 * t3476 * t857 * t2474 + 0.476312901339054080e0 * t2482 * t3481 + 0.31525238188956314657e0 * t2506 * t1409 * t3480 - 0.42504258063891829883e0 * t2488 * t3481 - 0.42504258063891829883e0 * t603 * t3490 + 0.21252129031945914941e0 * t603 * t3494 + 0.37929099725894513314e0 * t603 * t3497 - 0.922000629760e0 * t3500 * t841 - 0.12751277419167548965e1 * t3503 * t102;
7359   t3509 = my_piecewise3(t87, 0, t3321 + t3408 + t3455 + t3506);
7360   t3510 = my_piecewise3(t86, 0, t3509);
7361   t3512 = t3264 * t104 + t1222 * t255 + t228 * t1280 + 0.2e1 * t349 * t908 + t85 * t3510 + 0.2e1 * t834 * t368;
7362   t3513 = t46 * t3512;
7363   t3516 = t1283 * t114;
7364   t3519 = t118 * t914;
7365   t3523 = t183 * t261;
7366   t3524 = t3523 * t118;
7367   t3527 = t1287 * t183;
7368   t3528 = t116 * t261;
7369   t3535 = t685 * t1282;
7370   t3538 = t58 * t3519;
7371   t3541 = t2024 * t1286;
7372   t3544 = -t3513 * t118 / 0.100e3 - t3516 * t1115 / 0.60e2 - t918 * t677 * t3519 / 0.54e2 + 0.5e1 / 0.162e3 * t1287 * t3524 - 0.5e1 / 0.81e2 * t3527 * t3528 * t118 + t266 * t3512 * t118 / 0.100e3 + t3535 * t1115 / 0.180e3 + t926 * t3538 / 0.162e3 + 0.5e1 / 0.486e3 * t3541 * t3524;
7373   t3547 = -t27 * t825 * t42 / 0.54e2 + 0.21e2 / 0.160e3 * t184 * t3189 * t42 - 0.81e2 / 0.3200e4 * t1193 * t787 + 0.2187e4 / 0.2048000e7 * t3195 * t3200 + 0.4e1 * t381 * t930 + 0.2e1 * t270 * t1297 + 0.2e1 * t121 * t3544;
7374   t3548 = t3547 * t140;
7375   t3550 = t1300 * t294;
7376   t3555 = t933 * t399;
7377   t3558 = t384 * t973;
7378   t3563 = params->c1 * t3512;
7379   t3565 = t1306 * t280;
7380   t3580 = t1282 * t261;
7381   t3587 = -t3563 * t131 - 0.10e2 / 0.9e1 * t3565 * t1138 - 0.100e3 / 0.81e2 * t943 * t951 - 0.500e3 / 0.81e2 * t1308 * t707 * t261 - 0.2500e4 / 0.729e3 * t2589 * t1286 * t261 * t15 - 0.1000e4 / 0.243e3 * t946 * t947 * t914 - 0.50e2 / 0.81e2 * t279 * t1144 * t3580 - 0.5e1 / 0.9e1 * t463 * t464 * t3512;
7382   t3596 = t1286 * t183;
7383   t3597 = t3596 * t960;
7384   t3600 = t137 * t914;
7385   t3601 = t58 * t3600;
7386   t3607 = t287 * t706 * t1282;
7387   t3610 = t280 * t3512;
7388   t3613 = t732 * t1282;
7389   t3614 = t730 * t3613;
7390   t3622 = my_piecewise3(t129, t1317 * t285 * t135 + t1319 * t285 * t135 + t3587 * t135 + 0.2e1 * t394 * t954, -0.500e3 / 0.81e2 * t2069 * t3597 - 0.100e3 / 0.81e2 * t959 * t3601 - 0.500e3 / 0.81e2 * t2080 * t3597 - 0.10e2 / 0.9e1 * t3607 * t291 - t287 * t3610 * t137 - 0.5e1 / 0.9e1 * t3614 * t291 - 0.50e2 / 0.81e2 * t969 * t3601 - 0.250e3 / 0.243e3 * t2095 * t3597);
7391   t3625 = 0.6e1 * t1691 * t1182 * t273 - 0.4e1 * t497 * t385 * t933 + 0.2e1 * t497 * t3180 - 0.2e1 * t497 * t3183 + t168 * t3548 - t168 * t3550 + 0.4e1 * t497 * t1303 * t273 - 0.2e1 * t168 * t3555 - 0.2e1 * t168 * t3558 - t168 * t273 * t1332 - t128 * t3622 + 0.1174e1 * t3622;
7392   t3626 = t7 * t3625;
7393   t3627 = t3626 * t158;
7394   t3630 = t308 * t1335;
7395   t3634 = t407 * t977;
7396   t3639 = t5 * t403;
7397   t3643 = t407 * t298 * t753;
7398   t3646 = t410 * t157;
7399   t3648 = t2666 * t3646 * t170;
7400   t3651 = t1357 * t53;
7401   t3653 = t2672 * t3651 * t157;
7402   t3658 = t3651 * t762;
7403   t3663 = 0.1e1 / t31;
7404   t3665 = t3663 * t9 * t2140;
7405   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7406     v3rhosigma2[0] = -t767 * t1337 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t3627 - 0.24739500000000000000e1 * t307 * t3630 * t316 + 0.18554625000000000000e1 * t3634 * t413 + 0.22265550000000000000e2 * t1340 * t992 - 0.60406209071787192651e2 * t3639 * t999 - 0.41747906250000000000e1 * t3643 * t1348 - 0.83495812500000000000e2 * t409 * t3648 + 0.23254840140139470986e0 * t995 * t3653 - 0.46386562500000000000e0 * t985 * t1353 + 0.45304656803840394488e2 * t995 * t3658 + 0.11326164200960098622e2 * t2663 * t1359 - 0.45424903023464625000e2 * t409 * t3665;
7407 
7408   t3670 = t384 * t273;
7409   t3671 = t1005 * t3670;
7410   t3676 = t2702 * t384;
7411   t3679 = t2706 * t384;
7412   t3682 = t1005 * t933;
7413   t3685 = t497 * t381;
7414   t3688 = t930 * t455;
7415   t3692 = t381 * t1124;
7416   t3699 = t1465 * t140;
7417   t3700 = t3699 * t273;
7418   t3703 = t270 * t1465;
7419   t3707 = -0.2e1 * t168 * t1365 * t294 + 0.2e1 * t168 * t3688 * t140 + 0.2e1 * t168 * t3692 * t140 + 0.2e1 * t168 * t3703 * t140 - 0.4e1 * t1004 * t3676 + 0.4e1 * t1004 * t3679 - 0.4e1 * t1004 * t3682 - 0.4e1 * t1004 * t3700 - 0.4e1 * t3685 * t1006 - 0.4e1 * t2699 * t1362 + 0.12e2 * t2695 * t3671;
7420   t3708 = t2737 * t826;
7421   t3711 = t804 * t565;
7422   t3714 = t341 * t220;
7423   t3715 = t214 * t3714;
7424   t3718 = t558 * t565;
7425   t3719 = t329 * t225;
7426   t3720 = t1030 * t3719;
7427   t3726 = t67 * t213;
7428   t3728 = t58 * t3726 * t225;
7429   t3732 = t1023 * t831;
7430   t3735 = t558 * t341;
7431   t3742 = t2784 * t346;
7432   t3747 = 0.25e2 / 0.324e3 * t2736 * t3708 - 0.10e2 / 0.27e2 * t3711 * t1031 - 0.10e2 / 0.27e2 * t3715 * t1031 - 0.5e1 / 0.24e2 * t3718 * t3720 - t804 * t1027 - t804 * t1035 - t553 * t1379 + t3728 / 0.10368e5 - t2200 * t426 + 0.13e2 / 0.15552e5 * t1203 + 0.3e1 / 0.2e1 * t1022 * t3732 + 0.3e1 / 0.2e1 * t3735 * t1024 + 0.3e1 / 0.2e1 * t2778 * t1375 + 0.3e1 / 0.2e1 * t2781 * t1375 + 0.3e1 / 0.2e1 * t1022 * t3742 + 0.3e1 / 0.4e1 * t2724 * t809;
7433   t3748 = t818 * t79;
7434   t3749 = t3748 * t425;
7435   t3751 = t1378 * t1034;
7436   t3753 = t1385 * t1185;
7437   t3754 = t1384 * t3753;
7438   t3760 = t2202 * t75;
7439   t3763 = t346 * t10;
7440   t3764 = t3763 * t193;
7441   t3767 = t1023 * t809;
7442   t3770 = t553 * t75;
7443   t3771 = t3770 * t1387;
7444   t3773 = t214 * t216;
7445   t3774 = t3773 * t1387;
7446   t3776 = t220 * t183;
7447   t3777 = t3776 * t1189;
7448   t3778 = t1384 * t3777;
7449   t3780 = t1030 * t792;
7450   t3787 = t2747 * t329;
7451   t3790 = t558 * t215;
7452   t3792 = t58 * t67 * t225;
7453   t3793 = t3790 * t3792;
7454   t3795 = -t214 * t3749 - t214 * t3751 - 0.13e2 / 0.15552e5 * t3754 - t2774 * t346 / 0.2e1 - t1018 * t831 / 0.2e1 + 0.3e1 / 0.2e1 * t3760 * t1024 + 0.5e1 / 0.9e1 * t2766 * t3764 - 0.15e2 / 0.4e1 * t2732 * t3767 + t3771 / 0.5184e4 + t3774 / 0.5184e4 + 0.5e1 / 0.11664e5 * t3778 - 0.10e2 / 0.27e2 * t1029 * t3780 + 0.5e1 / 0.36e2 * t2741 * t1381 + 0.5e1 / 0.36e2 * t2744 * t1381 + 0.5e1 / 0.36e2 * t1029 * t3787 - t3793 / 0.3456e4;
7455   t3796 = t3747 + t3795;
7456   t3818 = t101 * t349;
7457   t3819 = t3818 * t242;
7458   t3827 = t1871 * t2816 * t354;
7459   t3830 = -0.42504258063891829882e0 * t2824 * t3273 - 0.54895099374677576129e-1 * t1052 * t2305 - 0.42504258063891829882e0 * t1052 * t2308 + 0.97972381755974563669e-1 * t2803 * t3280 - 0.28131861550297056947e0 * t2987 * t2280 + 0.37929099725894513314e0 * t1052 * t2285 - 0.54895099374677576130e-1 * t1052 * t2288 - 0.42504258063891829883e0 * t2824 * t3819 - 0.28131861550297056947e0 * t2493 * t2818 + 0.37929099725894513314e0 * t851 * t2821 - 0.28131861550297056947e0 * t1870 * t3827;
7460   t3832 = t1815 * t1058 * t362;
7461   t3835 = t1058 * t354;
7462   t3836 = t1820 * t3835;
7463   t3839 = t349 * t90;
7464   t3840 = t1048 * t3839;
7465   t3843 = t1871 * t3835;
7466   t3848 = t442 * t356;
7467   t3852 = t604 * t1058 * t228;
7468   t3859 = t2298 * t435;
7469   t3862 = t441 * t362;
7470   t3863 = t1843 * t3862;
7471   t3866 = -0.54895099374677576130e-1 * t603 * t3832 - 0.42504258063891829883e0 * t603 * t3836 + 0.97972381755974563669e-1 * t3840 * t2299 + 0.37929099725894513314e0 * t603 * t3843 - 0.54895099374677576130e-1 * t851 * t2800 - 0.54895099374677576130e-1 * t603 * t3848 - 0.42504258063891829882e0 * t2291 * t3852 - 0.54895099374677576129e-1 * t851 * t2809 - 0.42504258063891829882e0 * t851 * t2813 + 0.97972381755974563669e-1 * t2297 * t3859 + 0.14983660725163427627e0 * t609 * t3863;
7472   t3868 = t2921 * t857;
7473   t3871 = t1048 * t834;
7474   t3874 = t2883 * t349;
7475   t3879 = -t3796;
7476   t3880 = t239 * t3879;
7477   t3881 = t3880 * t94;
7478   t3884 = t2958 * t228;
7479   t3885 = t97 * t3818;
7480   t3890 = t599 * t1390;
7481   t3891 = t3890 * t228;
7482   t3894 = t1397 * t90;
7483   t3903 = -0.119078225334763520e0 * t625 * t3868 + 0.21252129031945914941e0 * t3871 * t102 + 0.21252129031945914941e0 * t3874 * t102 - 0.119078225334763520e0 * t1055 * t2371 + 0.461000314880e0 * t237 * t3881 - 0.12751277419167548965e1 * t3884 * t3885 - 0.922000629760e0 * t1042 * t3332 + 0.21252129031945914941e0 * t3891 * t102 - 0.119078225334763520e0 * t3894 * t611 - 0.119078225334763520e0 * t625 * t1084 * t2500 - 0.119078225334763520e0 * t625 * t1074 * t1245;
7484   t3907 = t2863 * t857;
7485   t3910 = t590 * t1390;
7486   t3911 = t3910 * t90;
7487   t3914 = t1069 * t2500;
7488   t3917 = t1435 * t228;
7489   t3928 = t231 * t3796;
7490   t3939 = t1062 * t2284;
7491   t3942 = t2917 * t2284;
7492   t3945 = t631 * t1419;
7493   t3946 = t3945 * t605;
7494   t3949 = t618 * t1419;
7495   t3950 = t3949 * t605;
7496   t3952 = t2867 * t857;
7497   t3954 = t1062 * t2500;
7498   t3956 = t2849 * t2284;
7499   t3958 = 0.10708320e2 * t1048 * t3917 - 0.3569440e1 * t2896 * t1435 - 0.19111352870400e2 * t2958 * t3917 - 0.3569440e1 * t1041 * t3342 - 0.3569440e1 * t3910 * t892 + 0.1784720e1 * t3928 * t99 + 0.3185225478400e1 * t3890 * t892 + 0.3185225478400e1 * t2883 * t1435 + 0.3185225478400e1 * t1048 * t3342 + 0.5684735615810048000e1 * t2836 * t3917 + 0.10708320e2 * t3939 - 0.3569440e1 * t3907 - 0.19111352870400e2 * t3942 - 0.3569440e1 * t3914 - 0.3569440e1 * t3946 + 0.1784720e1 * t3881 + 0.3185225478400e1 * t3950 + 0.3185225478400e1 * t3952 + 0.3185225478400e1 * t3954 + 0.5684735615810048000e1 * t3956;
7500   t3974 = t2836 * t349;
7501   t3975 = t2296 * t840;
7502   t3980 = -0.119078225334763520e0 * t625 * t434 * t3384 - 0.922000629760e0 * t237 * t3907 - 0.922000629760e0 * t3911 * t841 - 0.922000629760e0 * t237 * t3914 - 0.258304e0 * t97 * t245 * t3958 - 0.61023519165317445059e0 * t616 * t2867 * t1409 - 0.61023519165317445059e0 * t616 * t1062 * t3398 + 0.14983660725163427627e0 * t1055 * t2475 - 0.54895099374677576130e-1 * t1049 * t364 - 0.54895099374677576129e-1 * t1400 * t251 + 0.97972381755974563669e-1 * t3974 * t3975 + 0.238156450669527040e0 * t1042 * t3403;
7503   t3983 = t349 * t228;
7504   t3984 = t840 * t3983;
7505   t3987 = t349 * t249;
7506   t3988 = t610 * t3987;
7507   t3991 = t97 * t1847;
7508   t3992 = t3862 * t249;
7509   t4001 = t644 * t1445;
7510   t4009 = t1445 * t239;
7511   t4010 = t4009 * t605;
7512   t4018 = 0.2766001889280e1 * t2962 * t3984 + 0.238156450669527040e0 * t1042 * t3988 - 0.734005159174078464e0 * t3991 * t3992 + 0.325024956416e0 * t97 * t1088 * t902 + 0.325024956416e0 * t97 * t2938 * t362 + 0.325024956416e0 * t97 * t4001 * t249 - 0.119078225334763520e0 * t2890 * t881 - 0.119078225334763520e0 * t854 * t2893 - 0.119078225334763520e0 * t625 * t4010 - 0.119078225334763520e0 * t625 * t1420 * t626 - 0.922000629760e0 * t237 * t3946;
7513   t4019 = t441 * t228;
7514   t4020 = t610 * t4019;
7515   t4040 = t101 * t1861;
7516   t4041 = t1982 * t4040;
7517   t4042 = t433 * t1984;
7518   t4046 = t615 * t4040;
7519   t4047 = t2816 * t2283;
7520   t4053 = 0.238156450669527040e0 * t839 * t4020 + 0.14983660725163427627e0 * t854 * t2905 - 0.54895099374677576130e-1 * t848 * t443 - 0.61023519165317445059e0 * t616 * t3949 * t862 + 0.822756481972633600e0 * t237 * t3950 + 0.822756481972633600e0 * t237 * t3952 + 0.461000314880e0 * t3928 * t102 - 0.922000629760e0 * t2897 * t1394 + 0.14983660725163427627e0 * t2965 * t885 + 0.18968792869915364414e1 * t4041 * t4042 * t2283 - 0.32672968537417605163e1 * t4046 * t4047 + 0.14983660725163427627e0 * t3476 * t1058 * t2474;
7521   t4055 = t1058 * t3480;
7522   t4063 = t354 * t249;
7523   t4064 = t1058 * t4063;
7524   t4067 = t236 * t1871;
7525   t4068 = t1058 * t2283;
7526   t4071 = t101 * t1925;
7527   t4072 = t236 * t4071;
7528   t4075 = t1419 * t94;
7529   t4076 = t604 * t4075;
7530   t4081 = t236 * t4040;
7531   t4086 = t236 * t442;
7532   t4089 = 0.238156450669527040e0 * t2482 * t4055 + 0.15762619094478157328e0 * t2506 * t2816 * t3480 - 0.21252129031945914941e0 * t2488 * t4055 + 0.238156450669527040e0 * t2482 * t4064 + 0.2766001889280e1 * t4067 * t4068 - 0.4936538891835801600e1 * t4072 * t4068 + 0.21252129031945914941e0 * t603 * t4076 - 0.21252129031945914941e0 * t2488 * t4064 + 0.14683899485061986386e1 * t4081 * t4068 + 0.14983660725163427627e0 * t2965 * t866 + 0.238156450669527040e0 * t4086 * t870;
7533   t4090 = t615 * t442;
7534   t4095 = t1397 * t236;
7535   t4109 = t615 * t4071;
7536   t4114 = t610 * t1445;
7537   t4119 = 0.15762619094478157328e0 * t4090 * t863 - 0.21252129031945914941e0 * t4086 * t878 + 0.21252129031945914941e0 * t4095 * t606 + 0.21252129031945914941e0 * t2982 * t858 + 0.21252129031945914941e0 * t1052 * t2501 + 0.21252129031945914941e0 * t2510 * t1059 + 0.21252129031945914941e0 * t851 * t2969 + 0.15762619094478157329e0 * t2506 * t2816 * t4063 + 0.36614111499190467036e1 * t4109 * t4047 - 0.119078225334763520e0 * t2365 * t1081 - 0.119078225334763520e0 * t609 * t4114 + 0.822756481972633600e0 * t237 * t3954;
7538   t4123 = my_piecewise3(t87, 0, t3830 + t3866 + t3903 + t3980 + t4018 + t4053 + t4089 + t4119);
7539   t4124 = my_piecewise3(t86, 0, t4123);
7540   t4126 = -t1037 * t368 - t3796 * t104 - t349 * t1107 - t1390 * t255 - t228 * t1451 - t85 * t4124 - t428 * t908 - t834 * t447;
7541   t4127 = t46 * t4126;
7542   t4130 = t1454 * t114;
7543   t4135 = t450 * t261;
7544   t4137 = t58 * t374 * t118;
7545   t4140 = t964 * t1114;
7546   t4143 = t116 * t374;
7547   t4144 = t450 * t4143;
7548   t4150 = t685 * t1453;
7549   t4157 = t2024 * t1484;
7550   t4160 = t4127 * t118 / 0.100e3 + t4130 * t1115 / 0.60e2 + t3036 * t1457 / 0.60e2 - t4135 * t4137 / 0.108e3 + t1113 * t4140 / 0.60e2 + t4144 * t927 / 0.54e2 - t266 * t4126 * t118 / 0.100e3 - t4150 * t1115 / 0.180e3 - t3053 * t1457 / 0.180e3 - t1121 * t4140 / 0.180e3 - t4157 * t927 / 0.324e3;
7551   t4161 = t121 * t4160;
7552   t4168 = t455 * t399;
7553   t4169 = t4168 * t273;
7554   t4184 = t933 * t473;
7555   t4186 = t384 * t1169;
7556   t4191 = -params->c1 * t4126;
7557   t4193 = t1476 * t280;
7558   t4198 = t374 * t26;
7559   t4199 = t29 * t261;
7560   t4200 = t4198 * t4199;
7561   t4203 = t964 * t14;
7562   t4206 = t940 * t10;
7563   t4213 = t374 * t261;
7564   t4217 = t1109 * t374;
7565   t4221 = t449 * t914;
7566   t4222 = t1144 * t4221;
7567   t4227 = t1453 * t261;
7568   t4228 = t1144 * t4227;
7569   t4231 = t464 * t4126;
7570   t4234 = -t4191 * t131 - 0.5e1 / 0.9e1 * t4193 * t1138 - 0.5e1 / 0.9e1 * t3083 * t1478 - 0.50e2 / 0.81e2 * t3086 * t4200 - 0.5e1 / 0.9e1 * t1137 * t4203 + 0.5e1 / 0.9e1 * t4206 * t465 + 0.100e3 / 0.81e2 * t943 * t1146 + 0.5e1 / 0.9e1 * t1481 * t1149 + 0.500e3 / 0.81e2 * t946 * t1164 * t4213 + 0.50e2 / 0.81e2 * t279 * t1144 * t4217 + 0.50e2 / 0.81e2 * t279 * t4222 + 0.5e1 / 0.9e1 * t1141 * t1488 + 0.50e2 / 0.81e2 * t279 * t4228 + 0.5e1 / 0.9e1 * t463 * t4231;
7571   t4238 = t1152 * t393;
7572   t4240 = t468 * t954;
7573   t4245 = t58 * t261;
7574   t4246 = t137 * t374 * t4245;
7575   t4256 = t287 * t706 * t1453;
7576   t4259 = t280 * t4126;
7577   t4262 = t732 * t1453;
7578   t4263 = t730 * t4262;
7579   t4273 = my_piecewise3(t129, t1491 * t285 * t135 + t4234 * t135 + t4238 * t135 + t4240 * t135 + t1493 * t286, 0.50e2 / 0.27e2 * t3126 * t4246 + 0.10e2 / 0.9e1 * t3130 * t396 + 0.50e2 / 0.27e2 * t3134 * t4246 + 0.10e2 / 0.9e1 * t1158 * t965 + 0.10e2 / 0.9e1 * t4256 * t291 + t287 * t4259 * t137 + 0.5e1 / 0.9e1 * t4263 * t291 + 0.5e1 / 0.9e1 * t3143 * t396 + 0.5e1 / 0.9e1 * t1165 * t965 + 0.25e2 / 0.81e2 * t3149 * t4246);
7580   t4276 = 0.2e1 * t168 * t4161 * t140 - 0.2e1 * t168 * t1466 * t294 + 0.4e1 * t1004 * t4169 - 0.2e1 * t168 * t1009 * t399 - 0.2e1 * t168 * t1125 * t399 - 0.2e1 * t168 * t456 * t973 + 0.2e1 * t497 * t1473 * t273 - t168 * t4184 - t168 * t4186 - t168 * t273 * t1504 - t128 * t4273 + 0.1174e1 * t4273;
7581   t4277 = t3707 + t4276;
7582   t4278 = t7 * t4277;
7583   t4279 = t4278 * t158;
7584   t4282 = t308 * t1507;
7585   t4286 = t407 * t1173;
7586   t4291 = t5 * t477;
7587   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7588     v3rhosigmalapl[0] = -t767 * t1509 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t4279 - 0.24739500000000000000e1 * t307 * t4282 * t316 + 0.92773125000000000000e0 * t4286 * t413 + 0.11132775000000000000e2 * t1512 * t992 - 0.30203104535893596325e2 * t4291 * t999;
7589 
7590   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7591     v3rhosigmatau[0] = 0.0e0;
7592 
7593   t4296 = t1691 * t122;
7594   t4297 = t1520 * t273;
7595   t4303 = t497 * t122;
7596   t4304 = t1005 * t1124;
7597   t4314 = t1515 * t294;
7598   t4317 = t1613 * t140;
7599   t4318 = t4317 * t273;
7600   t4321 = t270 * t1613;
7601   t4326 = t62 * t213;
7602   t4332 = t2724 * t75;
7603   t4337 = t1018 * t565;
7604   t4344 = t1769 * t76;
7605   t4345 = t573 * t1528;
7606   t4346 = t4345 * t225;
7607   t4349 = t4345 * t216;
7608   t4353 = t558 * t1796;
7609   t4354 = t1528 * t10;
7610   t4355 = t4354 * t193;
7611   t4358 = t558 * t76;
7612   t4359 = t573 * t425;
7613   t4360 = t4359 * t1034;
7614   t4364 = t1532 * t225;
7615   t4367 = t1023 * t1034;
7616   t4370 = t1528 * t220;
7617   t4371 = t214 * t4370;
7618   t4377 = t58 * t62 * t225;
7619   t4382 = 0.1e1 / t507;
7620   t4383 = t4382 * sigma[0];
7621   t4384 = t3776 * t4383;
7622   t4388 = 0.20e2 / 0.9e1 * t4353 * t4355 + 0.6e1 * t4358 * t4360 - t553 * t1532 + 0.3e1 / 0.2e1 * t558 * t4364 - 0.2e1 * t214 * t4367 - 0.10e2 / 0.27e2 * t4371 * t172 - t3770 * t1535 / 0.2916e4 + t3790 * t4377 / 0.1944e4 - t3773 * t1535 / 0.2916e4 - 0.5e1 / 0.6561e4 * t1384 * t4384 + 0.5e1 / 0.4374e4 * t1388;
7623   t4389 = -0.5e1 / 0.4374e4 * t1370 - t58 * t4326 * t225 / 0.5832e4 - 0.2e1 * t2774 * t426 + 0.3e1 * t4332 * t1024 - 0.2e1 * t1018 * t1027 - 0.20e2 / 0.27e2 * t4337 * t1031 - 0.2e1 * t1018 * t1035 + 0.3e1 * t1761 * t1529 - 0.15e2 / 0.2e1 * t4344 * t4346 + 0.6e1 * t1022 * t4349 + t4388;
7624   t4399 = t99 * t1037;
7625   t4402 = t1830 * t1542;
7626   t4405 = t590 * t1538;
7627   t4408 = t231 * t4389;
7628   t4411 = t599 * t1538;
7629   t4416 = t1836 * t1542;
7630   t4419 = t1557 * t605;
7631   t4421 = t1069 * t2968;
7632   t4423 = t1925 * t1556;
7633   t4424 = t4423 * t605;
7634   t4426 = t631 * t1569;
7635   t4427 = t4426 * t605;
7636   t4429 = -t4389;
7637   t4430 = t239 * t4429;
7638   t4431 = t4430 * t94;
7639   t4433 = t618 * t1569;
7640   t4434 = t4433 * t605;
7641   t4436 = t1062 * t2968;
7642   t4438 = t1861 * t1556;
7643   t4439 = t4438 * t605;
7644   t4441 = 0.10708320e2 * t1549 * t892 - 0.7138880e1 * t1041 * t4399 - 0.19111352870400e2 * t4402 * t892 - 0.3569440e1 * t4405 * t892 + 0.1784720e1 * t4408 * t99 + 0.3185225478400e1 * t4411 * t892 + 0.6370450956800e1 * t1048 * t4399 + 0.5684735615810048000e1 * t4416 * t892 + 0.10708320e2 * t4419 - 0.7138880e1 * t4421 - 0.19111352870400e2 * t4424 - 0.3569440e1 * t4427 + 0.1784720e1 * t4431 + 0.3185225478400e1 * t4434 + 0.6370450956800e1 * t4436 + 0.5684735615810048000e1 * t4439;
7645   t4447 = t4411 * t228;
7646   t4453 = t94 * t1101;
7647   t4457 = t1549 * t90;
7648   t4460 = t644 * t1590;
7649   t4484 = -0.258304e0 * t97 * t245 * t4441 + 0.461000314880e0 * t4408 * t102 + 0.21252129031945914941e0 * t4447 * t102 - 0.238156450669527040e0 * t625 * t1074 * t1561 - 0.238156450669527040e0 * t625 * t434 * t4453 + 0.2766001889280e1 * t4457 * t841 + 0.325024956416e0 * t97 * t4460 * t249 + 0.461000314880e0 * t237 * t4431 + 0.1645512963945267200e1 * t237 * t4436 + 0.14683899485061986386e1 * t237 * t4439 + 0.238156450669527040e0 * t625 * t1565 * t626 + 0.2766001889280e1 * t237 * t4419 - 0.1844001259520e1 * t237 * t4421 - 0.4936538891835801600e1 * t237 * t4424 - 0.119078225334763520e0 * t625 * t1570 * t626 - 0.922000629760e0 * t237 * t4427;
7650   t4489 = t1556 * t621;
7651   t4490 = t1871 * t4489;
7652   t4496 = t441 * t240;
7653   t4497 = t1058 * t4496;
7654   t4505 = t1556 * t94;
7655   t4506 = t1820 * t4505;
7656   t4509 = t1569 * t94;
7657   t4510 = t604 * t4509;
7658   t4513 = t1871 * t4505;
7659   t4516 = t1543 * t236;
7660   t4519 = t1546 * t236;
7661   t4522 = t1549 * t236;
7662   t4533 = 0.42504258063891829882e0 * t2982 * t1059 + 0.42504258063891829882e0 * t1052 * t2969 - 0.28131861550297056947e0 * t1870 * t4490 + 0.29967321450326855254e0 * t3476 * t1058 * t2904 + 0.476312901339054080e0 * t2482 * t4497 + 0.31525238188956314657e0 * t2506 * t2816 * t4496 - 0.42504258063891829883e0 * t2488 * t4497 - 0.42504258063891829883e0 * t603 * t4506 + 0.21252129031945914941e0 * t603 * t4510 + 0.37929099725894513314e0 * t603 * t4513 - 0.42504258063891829883e0 * t4516 * t606 + 0.21252129031945914941e0 * t4519 * t606 + 0.97972381755974563669e-1 * t4522 * t606 - 0.10979019874935515226e0 * t1049 * t443 + 0.15762619094478157329e0 * t1941 * t1557 * t1942 + 0.36614111499190467036e1 * t616 * t4423 * t862;
7663   t4535 = t621 * t1073;
7664   t4549 = t4405 * t90;
7665   t4552 = t1847 * t1577;
7666   t4560 = t1843 * t1577;
7667   t4563 = t840 * t1037;
7668   t4571 = t1590 * t239;
7669   t4572 = t4571 * t605;
7670   t4575 = t1577 * t239;
7671   t4582 = -0.12204703833063489012e1 * t616 * t1062 * t4535 + 0.18968792869915364414e1 * t1983 * t4438 * t3417 - 0.32672968537417605163e1 * t616 * t4438 * t862 + 0.476312901339054080e0 * t1042 * t4020 + 0.29967321450326855254e0 * t1055 * t2905 - 0.922000629760e0 * t4549 * t841 - 0.734005159174078464e0 * t97 * t4552 * t249 - 0.238156450669527040e0 * t2890 * t1081 - 0.54895099374677576129e-1 * t4457 * t611 + 0.14983660725163427627e0 * t609 * t4560 - 0.1844001259520e1 * t1042 * t4563 + 0.42504258063891829882e0 * t2962 * t4563 + 0.650049912832e0 * t97 * t1088 * t1101 - 0.119078225334763520e0 * t625 * t4572 + 0.14983660725163427627e0 * t1852 * t4575 * t605 - 0.61023519165317445059e0 * t616 * t4433 * t862;
7672   t4588 = t1543 * t90;
7673   t4591 = t1546 * t90;
7674   t4603 = t1815 * t1058 * t441;
7675   t4614 = t4416 * t228;
7676   t4617 = t610 * t1590;
7677   t4620 = t4402 * t228;
7678   t4623 = 0.822756481972633600e0 * t237 * t4434 - 0.21252129031945914941e0 * t625 * t1557 * t626 + 0.238156450669527040e0 * t4588 * t611 - 0.119078225334763520e0 * t4591 * t611 - 0.238156450669527040e0 * t1055 * t2893 - 0.56263723100594113893e0 * t2987 * t2818 + 0.75858199451789026627e0 * t1052 * t2821 - 0.10979019874935515226e0 * t1052 * t2800 - 0.10979019874935515226e0 * t603 * t4603 - 0.85008516127783659764e0 * t2824 * t3852 - 0.10979019874935515226e0 * t1052 * t2809 - 0.85008516127783659764e0 * t1052 * t2813 + 0.19594476351194912734e0 * t2803 * t3859 + 0.97972381755974563669e-1 * t4614 * t102 - 0.119078225334763520e0 * t609 * t4617 - 0.12751277419167548965e1 * t4620 * t102;
7679   t4626 = my_piecewise3(t87, 0, t4484 + t4533 + t4582 + t4623);
7680   t4627 = my_piecewise3(t86, 0, t4626);
7681   t4629 = -0.2e1 * t1037 * t447 - t4389 * t104 - 0.2e1 * t428 * t1107 - t1538 * t255 - t228 * t1596 - t85 * t4627;
7682   t4630 = t46 * t4629;
7683   t4633 = t1599 * t114;
7684   t4636 = t1604 * t1109;
7685   t4642 = t1603 * t116;
7686   t4648 = t685 * t1598;
7687   t4654 = t2024 * t1602;
7688   t4657 = t4630 * t118 / 0.100e3 + t4633 * t1115 / 0.60e2 - 0.3e1 / 0.50e2 * t450 * t4636 + t1603 * t261 * t263 / 0.60e2 - t4642 * t1115 / 0.30e2 - t266 * t4629 * t118 / 0.100e3 - t4648 * t1115 / 0.180e3 + t685 * t452 * t1109 / 0.50e2 + t4654 * t1115 / 0.180e3;
7689   t4658 = t121 * t4657;
7690   t4665 = t455 * t473;
7691   t4666 = t4665 * t273;
7692   t4681 = -params->c1 * t4629;
7693   t4683 = t1622 * t280;
7694   t4688 = t1145 * t15;
7695   t4695 = t29 * t732;
7696   t4696 = t1602 * t261;
7697   t4697 = t4695 * t4696;
7698   t4701 = t1626 * t449 * t1109;
7699   t4706 = t1598 * t261;
7700   t4707 = t1144 * t4706;
7701   t4710 = t464 * t4629;
7702   t4713 = -t4681 * t131 - 0.5e1 / 0.9e1 * t4683 * t1138 + 0.2e1 * t1135 * t470 + 0.20e2 / 0.9e1 * t3086 * t4688 + 0.2e1 * t461 * t1161 - 0.10e2 / 0.9e1 * t1141 * t1627 - 0.50e2 / 0.27e2 * t279 * t4697 - 0.20e2 / 0.9e1 * t463 * t4701 + 0.5e1 / 0.9e1 * t1141 * t1630 + 0.50e2 / 0.81e2 * t279 * t4707 + 0.5e1 / 0.9e1 * t463 * t4710;
7703   t4722 = t287 * t1645;
7704   t4725 = t449 * t137;
7705   t4726 = t4725 * t1109;
7706   t4729 = t2079 * t1602;
7707   t4730 = t730 * t4729;
7708   t4734 = t287 * t706 * t1598;
7709   t4737 = t280 * t4629;
7710   t4740 = t732 * t1598;
7711   t4741 = t730 * t4740;
7712   t4746 = t2094 * t1602;
7713   t4747 = t2092 * t4746;
7714   t4751 = my_piecewise3(t129, t1633 * t285 * t135 + t1635 * t285 * t135 + 0.2e1 * t469 * t1152 + t4713 * t135, -0.10e2 / 0.3e1 * t4722 * t291 - 0.4e1 * t719 * t4726 - 0.10e2 / 0.3e1 * t4730 * t291 + 0.10e2 / 0.9e1 * t4734 * t291 + t287 * t4737 * t137 + 0.5e1 / 0.9e1 * t4741 * t291 - 0.2e1 * t733 * t4726 - 0.5e1 / 0.9e1 * t4747 * t291);
7715   t4754 = 0.24e2 * t4296 * t4297 - 0.16e2 * t1004 * t1520 * t270 - 0.16e2 * t4303 * t4304 + 0.8e1 * t497 * t1516 * t294 - 0.4e1 * t497 * t4297 + 0.4e1 * t168 * t4304 - 0.2e1 * t168 * t4314 - 0.4e1 * t1004 * t4318 + 0.2e1 * t168 * t4321 * t140 + 0.2e1 * t168 * t4658 * t140 - 0.2e1 * t168 * t1614 * t294 + 0.8e1 * t1004 * t4666 - 0.4e1 * t168 * t1009 * t473 - 0.4e1 * t168 * t1125 * t473 - 0.4e1 * t168 * t456 * t1169 - t168 * t273 * t1649 - t128 * t4751 + 0.1174e1 * t4751;
7716   t4755 = t7 * t4754;
7717   t4756 = t4755 * t158;
7718   t4759 = t308 * t1652;
7719   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7720     v3rholapl2[0] = -t767 * t1654 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t4756 - 0.24739500000000000000e1 * t307 * t4759 * t316;
7721 
7722   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7723     v3rholapltau[0] = 0.0e0;
7724 
7725   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7726     v3rhotau2[0] = 0.0e0;
7727 
7728   t4763 = t1181 * t384;
7729   t4764 = t4763 * t140;
7730   t4770 = t1181 * t399;
7731   t4779 = t1726 * t31;
7732   t4783 = 0.1e1 / t9 / t1718 * t26 * t1733;
7733   t4789 = t58 * t3210 * t346;
7734   t4795 = t1206 * t346;
7735   t4798 = t346 * t1219;
7736   t4807 = t183 * t324;
7737   t4812 = t1378 * t1214 / 0.1458e4 - 0.5e1 / 0.6e1 * t3233 * t319 + 0.25e2 / 0.144e3 * t2230 * t1214 - 0.5e1 / 0.8748e4 * t565 * t4807 - 0.125e3 / 0.2592e4 * t1796 * t4807;
7738   t4815 = -t4789 / 0.5832e4 + 0.9e1 / 0.4e1 * t2202 * t1206 - 0.3e1 / 0.2e1 * t804 * t1219 - 0.15e2 / 0.8e1 * t1769 * t4795 + 0.9e1 / 0.4e1 * t558 * t4798 - t214 * t4812 / 0.2e1;
7739   t4821 = t1261 * t362;
7740   t4827 = t1226 * t349;
7741   t4828 = t1836 * t4827;
7742   t4831 = t231 * t4815;
7743   t4834 = t599 * t4827;
7744   t4837 = t99 * t1222;
7745   t4840 = t1830 * t4827;
7746   t4849 = t1240 * t354;
7747   t4850 = t618 * t4849;
7748   t4851 = t4850 * t94;
7749   t4853 = t869 * t3493;
7750   t4855 = t1925 * t4849;
7751   t4856 = t4855 * t94;
7752   t4858 = -t4815;
7753   t4859 = t239 * t4858;
7754   t4860 = t4859 * t94;
7755   t4862 = t3305 * t857;
7756   t4864 = t1861 * t4849;
7757   t4865 = t4864 * t94;
7758   t4867 = 0.10708320e2 * t4834 * t99 - 0.10708320e2 * t838 * t4837 - 0.19111352870400e2 * t4840 * t99 + 0.1784720e1 * t4831 * t99 + 0.9555676435200e1 * t3325 * t1435 + 0.5684735615810048000e1 * t4828 * t99 + 0.10708320e2 * t4851 - 0.10708320e2 * t4853 - 0.19111352870400e2 * t4856 + 0.1784720e1 * t4860 + 0.9555676435200e1 * t4862 + 0.5684735615810048000e1 * t4865;
7759   t4879 = t621 * t362;
7760   t4880 = t1241 * t4879;
7761   t4883 = t621 * t1253;
7762   t4884 = t861 * t4883;
7763   t4889 = t1254 * t1245;
7764   t4892 = t94 * t1274;
7765   t4893 = t355 * t4892;
7766   t4896 = t1241 * t1245;
7767   t4910 = -0.734005159174078464e0 * t97 * t1847 * t4821 - 0.357234676004290560e0 * t3329 * t881 + 0.97972381755974563669e-1 * t4828 * t102 + 0.461000314880e0 * t4831 * t102 - 0.258304e0 * t97 * t245 * t4867 - 0.32672968537417605163e1 * t616 * t4864 * t621 + 0.18968792869915364414e1 * t1983 * t4864 * t1984 - 0.357234676004290560e0 * t854 * t3381 + 0.47287857283434471986e0 * t1941 * t4880 - 0.18307055749595233518e1 * t616 * t4884 + 0.2468269445917900800e1 * t237 * t4862 - 0.357234676004290560e0 * t625 * t4889 - 0.357234676004290560e0 * t625 * t4893 - 0.63756387095837744824e0 * t625 * t4896 + 0.975074869248e0 * t97 * t888 * t1274 - 0.12751277419167548965e1 * t851 * t3490 - 0.12751277419167548965e1 * t3458 * t858 + 0.63756387095837744823e0 * t3461 * t858 + 0.29391714526792369101e0 * t3464 * t858;
7768   t4928 = t3325 * t349;
7769   t4933 = t840 * t1222;
7770   t4946 = t94 * t1261;
7771   t4947 = t355 * t4946;
7772   t4950 = t1249 * t1245;
7773   t4955 = 0.63756387095837744823e0 * t851 * t3494 - 0.84395584650891170840e0 * t2493 * t3472 + 0.36614111499190467036e1 * t616 * t4855 * t621 + 0.44950982175490282881e0 * t854 * t3335 + 0.461000314880e0 * t237 * t4860 - 0.4936538891835801600e1 * t237 * t4856 - 0.16468529812403272839e0 * t3434 * t881 + 0.14683899485061986386e1 * t237 * t4865 + 0.63756387095837744823e0 * t4928 * t102 + 0.714469352008581120e0 * t3446 * t881 - 0.2766001889280e1 * t839 * t4933 - 0.12751277419167548965e1 * t4840 * t102 + 0.2766001889280e1 * t4834 * t102 - 0.32937059624806545678e0 * t851 * t3290 + 0.2766001889280e1 * t237 * t4851 - 0.2766001889280e1 * t237 * t4853 + 0.44950982175490282881e0 * t1852 * t4947 + 0.714469352008581120e0 * t625 * t4950 + 0.11378729917768353994e1 * t851 * t3497;
7774   t4957 = my_piecewise3(t87, 0, t4910 + t4955);
7775   t4958 = my_piecewise3(t86, 0, t4957);
7776   t4960 = t4815 * t104 + 0.3e1 * t1222 * t368 + 0.3e1 * t349 * t1280 + t85 * t4958;
7777   t4961 = t46 * t4960;
7778   t4966 = t1286 * t374;
7779   t4967 = t46 * t4966;
7780   t4977 = t4966 * t183;
7781   t4978 = t4977 * t118;
7782   t4981 = -t4961 * t118 / 0.100e3 - t3516 * t1457 / 0.20e2 + 0.5e1 / 0.162e3 * t4967 * t2011 - 0.5e1 / 0.81e2 * t4967 * t2015 + t266 * t4960 * t118 / 0.100e3 + t3535 * t1457 / 0.60e2 + 0.5e1 / 0.486e3 * t2024 * t4978;
7783   t4984 = -0.27e2 / 0.1280e4 * t184 * t324 * t42 + 0.729e3 / 0.102400e6 * t521 * sigma[0] * t1197 - 0.6561e4 / 0.16384000e8 * t4779 * t4783 + 0.6e1 * t381 * t1297 + 0.2e1 * t121 * t4981;
7784   t4985 = t4984 * t140;
7785   t4987 = t1300 * t399;
7786   t4990 = t384 * t1332;
7787   t4993 = params->c1 * t4960;
7788   t4997 = params->c1 * t4966;
7789   t5000 = t732 * t4966;
7790   t5004 = t130 * t707;
7791   t5005 = t13 * t1282;
7792   t5006 = t4198 * t5005;
7793   t5009 = t1282 * t374;
7794   t5016 = -t4993 * t131 - 0.10e2 / 0.3e1 * t3565 * t1478 - 0.500e3 / 0.81e2 * t4997 * t707 - 0.2500e4 / 0.729e3 * t946 * t5000 * t15 - 0.100e3 / 0.81e2 * t5004 * t5006 - 0.50e2 / 0.81e2 * t279 * t1144 * t5009 - 0.5e1 / 0.9e1 * t463 * t464 * t4960;
7795   t5018 = t1317 * t393;
7796   t5021 = t1319 * t393;
7797   t5024 = t4977 * t137;
7798   t5027 = t137 * t1282;
7799   t5028 = t15 * t5027;
7800   t5033 = t280 * t4960;
7801   t5041 = my_piecewise3(t129, t5016 * t135 + 0.3e1 * t5018 * t135 + t5021 * t135, -0.500e3 / 0.81e2 * t2069 * t5024 - 0.10e2 / 0.3e1 * t959 * t5028 - 0.500e3 / 0.81e2 * t2080 * t5024 - t287 * t5033 * t137 - 0.5e1 / 0.3e1 * t3614 * t396 - 0.250e3 / 0.243e3 * t2095 * t5024);
7802   t5044 = 0.6e1 * t1691 * t4764 - 0.6e1 * t497 * t385 * t1300 + 0.6e1 * t497 * t4770 + t168 * t4985 - 0.3e1 * t168 * t4987 - 0.3e1 * t168 * t4990 - t128 * t5041 + 0.1174e1 * t5041;
7803   t5045 = t7 * t5044;
7804   t5046 = t5045 * t158;
7805   t5049 = t407 * t1336;
7806   t5053 = t407 * t403 * t753;
7807   t5060 = t997 * t157;
7808   t5062 = t2666 * t5060 * t19;
7809   t5067 = t15 * t3663 * t157 * t150;
7810   t5071 = 0.1e1 / t148 / t185;
7811   t5072 = t5071 * t18;
7812   t5074 = t2672 * t5072 * t157;
7813   t5079 = t313 * t146 * t1357 * t157;
7814   t5082 = t5072 * t762;
7815   t5085 = 0.1e1 / t185;
7816   t5087 = t5085 * t149 * t2140;
7817   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7818     v3sigma3[0] = -0.3e1 / 0.8e1 * t164 * t5046 + 0.27831937500000000000e1 * t5049 * t413 - 0.12524371875000000000e2 * t5053 * t1348 - 0.13915968750000000000e1 * t1340 * t1353 + 0.33978492602880295866e2 * t3639 * t1359 + 0.31310929687500000000e2 * t409 * t5062 + 0.62621859375000000000e1 * t1344 * t5067 - 0.87205650525523016199e-1 * t995 * t5074 + 0.69579843750000000000e0 * t409 * t5079 - 0.33978492602880295866e2 * t995 * t5082 + 0.17034338633799234375e2 * t409 * t5087;
7819 
7820   t5090 = t1005 * t1181;
7821   t5095 = t3699 * t384;
7822   t5098 = t4168 * t384;
7823   t5101 = t1005 * t1300;
7824   t5104 = t1297 * t455;
7825   t5108 = t381 * t1465;
7826   t5115 = t804 * t75;
7827   t5116 = t5115 * t1387;
7828   t5118 = t1023 * t1206;
7829   t5121 = t214 * t26;
7830   t5122 = t1185 * t1023;
7831   t5123 = t5121 * t5122;
7832   t5125 = t214 * t341;
7833   t5126 = t5125 * t1387;
7834   t5128 = t213 * t75;
7835   t5129 = t5128 * t1023;
7836   t5130 = t1214 * t5129;
7837   t5136 = t1023 * t1219;
7838   t5139 = t3776 * t4382;
7839   t5140 = t1384 * t5139;
7840   t5147 = t58 * t3726 * t346;
7841   t5151 = t425 * t346;
7842   t5152 = t5151 * t319;
7843   t5157 = t2737 * t1185;
7844   t5162 = t67 * t346;
7845   t5163 = t58 * t5162;
7846   t5164 = t3790 * t5163;
7847   t5166 = t5116 / 0.2592e4 - 0.15e2 / 0.4e1 * t2732 * t5118 - t5123 / 0.8748e4 + t5126 / 0.2592e4 - t5130 / 0.8748e4 + 0.3e1 / 0.4e1 * t2724 * t1206 + 0.3e1 * t3735 * t1375 + 0.3e1 / 0.2e1 * t1022 * t5136 - 0.5e1 / 0.15552e5 * t5140 + 0.3e1 * t3760 * t1375 - 0.2e1 * t804 * t1379 + t5147 / 0.5184e4 - t1018 * t1219 / 0.2e1 - 0.5e1 / 0.12e2 * t3718 * t5152 + 0.5e1 / 0.18e2 * t3715 * t1381 - 0.25e2 / 0.864e3 * t2736 * t5157 + 0.5e1 / 0.18e2 * t3711 * t1381 - t5164 / 0.1728e4;
7848   t5174 = t99 * t1226;
7849   t5183 = t231 * t5166;
7850   t5192 = t1062 * t3489;
7851   t5194 = t3945 * t857;
7852   t5196 = t2917 * t3489;
7853   t5198 = t1069 * t3493;
7854   t5200 = -t5166;
7855   t5201 = t239 * t5200;
7856   t5202 = t5201 * t94;
7857   t5204 = t3949 * t857;
7858   t5206 = t1062 * t3493;
7859   t5208 = t2849 * t3489;
7860   t5210 = 0.10708320e2 * t1048 * t5174 - 0.7138880e1 * t3910 * t1435 - 0.19111352870400e2 * t2958 * t5174 - 0.3569440e1 * t1041 * t4837 + 0.1784720e1 * t5183 * t99 + 0.6370450956800e1 * t3890 * t1435 + 0.3185225478400e1 * t1048 * t4837 + 0.5684735615810048000e1 * t2836 * t5174 + 0.10708320e2 * t5192 - 0.7138880e1 * t5194 - 0.19111352870400e2 * t5196 - 0.3569440e1 * t5198 + 0.1784720e1 * t5202 + 0.6370450956800e1 * t5204 + 0.3185225478400e1 * t5206 + 0.5684735615810048000e1 * t5208;
7861   t5231 = t4009 * t857;
7862   t5242 = t362 * t354;
7863   t5243 = t1058 * t5242;
7864   t5249 = t1048 * t1222;
7865   t5252 = -0.258304e0 * t97 * t245 * t5210 + 0.461000314880e0 * t5183 * t102 - 0.119078225334763520e0 * t625 * t1084 * t3493 + 0.15762619094478157328e0 * t1941 * t2931 * t3471 - 0.21252129031945914941e0 * t625 * t2931 * t3489 + 0.822756481972633600e0 * t237 * t5206 + 0.14683899485061986386e1 * t237 * t5208 + 0.29967321450326855254e0 * t854 * t3863 - 0.238156450669527040e0 * t625 * t5231 - 0.922000629760e0 * t237 * t5198 - 0.4936538891835801600e1 * t237 * t5196 - 0.42504258063891829882e0 * t1052 * t3490 + 0.29967321450326855254e0 * t2965 * t1246 + 0.476312901339054080e0 * t2482 * t5243 + 0.650049912832e0 * t97 * t4001 * t362 + 0.21252129031945914941e0 * t5249 * t102;
7866   t5288 = -0.42504258063891829882e0 * t2488 * t5243 + 0.42504258063891829882e0 * t4095 * t858 + 0.21252129031945914941e0 * t1052 * t3494 - 0.28131861550297056947e0 * t2987 * t3472 + 0.37929099725894513314e0 * t1052 * t3497 + 0.21252129031945914941e0 * t3461 * t1059 + 0.42504258063891829882e0 * t851 * t4076 + 0.97972381755974563669e-1 * t3464 * t1059 + 0.31525238188956314657e0 * t2506 * t2816 * t5242 - 0.119078225334763520e0 * t3329 * t1081 - 0.1844001259520e1 * t3911 * t1394 - 0.238156450669527040e0 * t625 * t1420 * t1245 - 0.119078225334763520e0 * t625 * t434 * t4892 - 0.1844001259520e1 * t237 * t5194 + 0.1645512963945267200e1 * t237 * t5204 - 0.10979019874935515226e0 * t1400 * t364;
7867   t5296 = t1984 * t1240;
7868   t5317 = t2836 * t1226;
7869   t5320 = t840 * t1226;
7870   t5331 = -0.12204703833063489012e1 * t616 * t3949 * t1409 - 0.61023519165317445059e0 * t616 * t1062 * t4883 + 0.18968792869915364414e1 * t1983 * t2849 * t5296 - 0.32672968537417605163e1 * t616 * t2849 * t3471 + 0.14983660725163427627e0 * t1055 * t3335 + 0.238156450669527040e0 * t3446 * t1081 - 0.119078225334763520e0 * t1055 * t3381 - 0.10979019874935515226e0 * t851 * t3832 - 0.85008516127783659765e0 * t851 * t3836 - 0.56263723100594113894e0 * t2493 * t3827 + 0.75858199451789026628e0 * t851 * t3843 + 0.97972381755974563669e-1 * t5317 * t102 + 0.2766001889280e1 * t2962 * t5320 + 0.238156450669527040e0 * t625 * t2840 * t3489 + 0.14983660725163427627e0 * t1852 * t434 * t4946 + 0.2766001889280e1 * t237 * t5192;
7871   t5335 = t349 * t362;
7872   t5336 = t610 * t5335;
7873   t5341 = t2958 * t1226;
7874   t5344 = t3890 * t349;
7875   t5356 = t3818 * t356;
7876   t5372 = 0.36614111499190467036e1 * t616 * t2917 * t3471 + 0.476312901339054080e0 * t1042 * t5336 - 0.922000629760e0 * t1042 * t4933 - 0.12751277419167548965e1 * t5341 * t102 + 0.42504258063891829882e0 * t5344 * t102 + 0.325024956416e0 * t97 * t1088 * t1274 - 0.238156450669527040e0 * t3894 * t881 - 0.54895099374677576130e-1 * t3434 * t1081 - 0.238156450669527040e0 * t854 * t4114 - 0.85008516127783659765e0 * t2824 * t5356 + 0.19594476351194912734e0 * t3840 * t3280 - 0.10979019874935515226e0 * t1052 * t3290 - 0.10979019874935515226e0 * t851 * t3848 + 0.461000314880e0 * t237 * t5202 - 0.734005159174078464e0 * t97 * t2953 * t1261 - 0.42504258063891829882e0 * t3458 * t1059;
7877   t5375 = my_piecewise3(t87, 0, t5252 + t5288 + t5331 + t5372);
7878   t5376 = my_piecewise3(t86, 0, t5375);
7879   t5378 = -t5166 * t104 - t1222 * t447 - t428 * t1280 - 0.2e1 * t1390 * t368 - 0.2e1 * t349 * t1451 - t85 * t5376;
7880   t5379 = t46 * t5378;
7881   t5384 = t450 * t1286;
7882   t5388 = t114 * t1282 * t118;
7883   t5391 = t1322 * t3046;
7884   t5399 = t449 * t1282;
7885   t5405 = t5379 * t118 / 0.100e3 + t4130 * t1457 / 0.30e2 - t5384 * t687 / 0.108e3 + 0.3e1 / 0.100e3 * t450 * t5388 + t3045 * t5391 / 0.54e2 - t266 * t5378 * t118 / 0.100e3 - t4150 * t1457 / 0.90e2 - t685 * t5399 * t118 / 0.100e3 - t3058 * t5391 / 0.324e3;
7886   t5406 = t121 * t5405;
7887   t5416 = t1181 * t473;
7888   t5419 = t1300 * t473;
7889   t5421 = t384 * t1504;
7890   t5425 = -params->c1 * t5378;
7891   t5429 = t1322 * t29;
7892   t5434 = t1308 * t26;
7893   t5442 = t1453 * t374;
7894   t5449 = t464 * t5378;
7895   t5452 = -t5425 * t131 - 0.10e2 / 0.9e1 * t4193 * t1478 - 0.50e2 / 0.81e2 * t3086 * t5429 - t461 * t1326 + t1306 * t470 + 0.100e3 / 0.81e2 * t5434 * t3097 + 0.10e2 / 0.9e1 * t1481 * t1488 + 0.500e3 / 0.81e2 * t946 * t1164 * t1286 + 0.100e3 / 0.81e2 * t279 * t1144 * t5442 + 0.10e2 / 0.9e1 * t463 * t1626 * t5399 + 0.5e1 / 0.9e1 * t463 * t5449;
7896   t5454 = t1491 * t393;
7897   t5457 = t468 * t1317;
7898   t5459 = t468 * t1319;
7899   t5468 = t4725 * t1282;
7900   t5471 = t280 * t5378;
7901   t5480 = my_piecewise3(t129, t5452 * t135 + 0.2e1 * t5454 * t135 + t5457 * t135 + t5459 * t135, 0.50e2 / 0.27e2 * t3126 * t1323 + 0.20e2 / 0.9e1 * t4256 * t396 + 0.50e2 / 0.27e2 * t3134 * t1323 + 0.2e1 * t719 * t5468 + t287 * t5471 * t137 + 0.10e2 / 0.9e1 * t4263 * t396 + t733 * t5468 + 0.25e2 / 0.81e2 * t3149 * t1323);
7902   t5483 = 0.12e2 * t2695 * t5090 - 0.8e1 * t3685 * t1362 - 0.8e1 * t1004 * t5095 + 0.8e1 * t1004 * t5098 - 0.4e1 * t1004 * t5101 + 0.2e1 * t168 * t5104 * t140 + 0.4e1 * t168 * t5108 * t140 - 0.4e1 * t168 * t1365 * t399 + 0.2e1 * t168 * t5406 * t140 - 0.4e1 * t168 * t1466 * t399 - 0.2e1 * t168 * t456 * t1332 + 0.2e1 * t497 * t5416 - t168 * t5419 - 0.2e1 * t168 * t5421 - t128 * t5480 + 0.1174e1 * t5480;
7903   t5484 = t7 * t5483;
7904   t5485 = t5484 * t158;
7905   t5488 = t407 * t1508;
7906   t5492 = t407 * t477 * t753;
7907   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7908     v3sigma2lapl[0] = -0.3e1 / 0.8e1 * t164 * t5485 + 0.18554625000000000000e1 * t5488 * t413 - 0.41747906250000000000e1 * t5492 * t1348 - 0.46386562500000000000e0 * t1512 * t1353 + 0.11326164200960098622e2 * t4291 * t1359;
7909 
7910   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7911     v3sigma2tau[0] = 0.0e0;
7912 
7913   t5499 = t1520 * t384;
7914   t5502 = t1520 * t381;
7915   t5505 = t1005 * t1465;
7916   t5515 = t1515 * t399;
7917   t5518 = t4317 * t384;
7918   t5521 = t381 * t1613;
7919   t5528 = t58 * t67;
7920   t5529 = t5528 * t5129;
7921   t5537 = t1018 * t75;
7922   t5538 = t5537 * t1387;
7923   t5542 = t4345 * t346;
7924   t5545 = t4345 * t341;
7925   t5548 = t4354 * t329;
7926   t5551 = t558 * t574;
7927   t5552 = t2737 * t1386;
7928   t5553 = t5551 * t5552;
7929   t5556 = t1532 * t346;
7930   t5559 = t214 * t425;
7931   t5560 = t5559 * t1387;
7932   t5562 = t214 * t1528;
7933   t5563 = t220 * t10;
7934   t5564 = t5563 * t329;
7935   t5569 = t62 * t346;
7936   t5570 = t58 * t5569;
7937   t5575 = 0.1e1 / t174;
7938   t5576 = t3776 * t5575;
7939   t5579 = -t58 * t4326 * t346 / 0.5832e4 + t5529 / 0.2592e4 + 0.3e1 * t4332 * t1375 - 0.2e1 * t1018 * t1379 + 0.5e1 / 0.18e2 * t4337 * t1381 + t5538 / 0.2592e4 + 0.3e1 * t2202 * t1529 - 0.15e2 / 0.2e1 * t4344 * t5542 + 0.6e1 * t1022 * t5545 - 0.5e1 / 0.6e1 * t4353 * t5548 - t5553 / 0.864e3 - t804 * t1532 + 0.3e1 / 0.2e1 * t558 * t5556 + t5560 / 0.2592e4 + 0.5e1 / 0.36e2 * t5562 * t5564 - t5115 * t1535 / 0.2916e4 + t3790 * t5570 / 0.1944e4 - t5125 * t1535 / 0.2916e4 + 0.5e1 / 0.17496e5 * t1384 * t5576;
7940   t5610 = t441 * t354;
7941   t5611 = t1058 * t5610;
7942   t5625 = 0.650049912832e0 * t97 * t1088 * t1445 - 0.734005159174078464e0 * t97 * t4552 * t362 - 0.119078225334763520e0 * t4591 * t881 + 0.2766001889280e1 * t4457 * t1394 + 0.21252129031945914941e0 * t4519 * t858 + 0.97972381755974563669e-1 * t4522 * t858 + 0.42504258063891829882e0 * t4095 * t1059 + 0.42504258063891829882e0 * t1052 * t4076 - 0.28131861550297056947e0 * t2493 * t4490 + 0.29967321450326855254e0 * t3476 * t1058 * t3862 + 0.476312901339054080e0 * t2482 * t5611 + 0.31525238188956314657e0 * t2506 * t2816 * t5610 - 0.42504258063891829883e0 * t2488 * t5611 - 0.42504258063891829883e0 * t851 * t4506 + 0.21252129031945914941e0 * t851 * t4510 + 0.37929099725894513314e0 * t851 * t4513;
7943   t5635 = t604 * t1058 * t349;
7944   t5646 = t840 * t1390;
7945   t5649 = t4571 * t857;
7946   t5652 = t4438 * t857;
7947   t5661 = t1557 * t857;
7948   t5664 = t1069 * t4075;
7949   t5667 = -0.54895099374677576129e-1 * t4457 * t881 + 0.75858199451789026627e0 * t1052 * t3843 - 0.10979019874935515226e0 * t1052 * t3848 - 0.10979019874935515226e0 * t851 * t4603 - 0.85008516127783659764e0 * t2824 * t5635 - 0.10979019874935515226e0 * t1052 * t3832 - 0.85008516127783659764e0 * t1052 * t3836 + 0.19594476351194912734e0 * t3840 * t3859 - 0.56263723100594113893e0 * t2987 * t3827 + 0.42504258063891829882e0 * t2962 * t5646 - 0.119078225334763520e0 * t625 * t5649 + 0.14683899485061986386e1 * t237 * t5652 + 0.14983660725163427627e0 * t1852 * t4575 * t857 + 0.238156450669527040e0 * t625 * t1565 * t1245 + 0.2766001889280e1 * t237 * t5661 - 0.1844001259520e1 * t237 * t5664;
7950   t5669 = t4423 * t857;
7951   t5672 = t4416 * t349;
7952   t5675 = t4402 * t349;
7953   t5680 = t4411 * t349;
7954   t5685 = t94 * t1445;
7955   t5689 = t441 * t349;
7956   t5690 = t610 * t5689;
7957   t5696 = t4426 * t857;
7958   t5702 = t4433 * t857;
7959   t5708 = t1062 * t4075;
7960   t5715 = -0.4936538891835801600e1 * t237 * t5669 + 0.97972381755974563669e-1 * t5672 * t102 - 0.12751277419167548965e1 * t5675 * t102 - 0.238156450669527040e0 * t1055 * t4114 + 0.21252129031945914941e0 * t5680 * t102 + 0.14983660725163427627e0 * t854 * t4560 - 0.238156450669527040e0 * t625 * t434 * t5685 + 0.476312901339054080e0 * t1042 * t5690 - 0.119078225334763520e0 * t625 * t1570 * t1245 - 0.922000629760e0 * t237 * t5696 - 0.61023519165317445059e0 * t616 * t4433 * t1409 + 0.822756481972633600e0 * t237 * t5702 - 0.21252129031945914941e0 * t625 * t1557 * t1245 + 0.1645512963945267200e1 * t237 * t5708 + 0.29967321450326855254e0 * t1055 * t3863 - 0.10979019874935515226e0 * t1400 * t443;
7961   t5722 = t621 * t1419;
7962   t5726 = t1984 * t354;
7963   t5741 = t99 * t1390;
7964   t5748 = t231 * t5579;
7965   t5761 = -t5579;
7966   t5762 = t239 * t5761;
7967   t5763 = t5762 * t94;
7968   t5768 = 0.10708320e2 * t1549 * t1435 - 0.7138880e1 * t1041 * t5741 - 0.19111352870400e2 * t4402 * t1435 - 0.3569440e1 * t4405 * t1435 + 0.1784720e1 * t5748 * t99 + 0.3185225478400e1 * t4411 * t1435 + 0.6370450956800e1 * t1048 * t5741 + 0.5684735615810048000e1 * t4416 * t1435 + 0.10708320e2 * t5661 - 0.7138880e1 * t5664 - 0.19111352870400e2 * t5669 - 0.3569440e1 * t5696 + 0.1784720e1 * t5763 + 0.3185225478400e1 * t5702 + 0.6370450956800e1 * t5708 + 0.5684735615810048000e1 * t5652;
7969   t5788 = 0.15762619094478157329e0 * t1941 * t1557 * t4879 + 0.36614111499190467036e1 * t616 * t4423 * t1409 - 0.12204703833063489012e1 * t616 * t1062 * t5722 + 0.18968792869915364414e1 * t1983 * t4438 * t5726 - 0.32672968537417605163e1 * t616 * t4438 * t1409 - 0.238156450669527040e0 * t625 * t1420 * t1561 + 0.325024956416e0 * t97 * t4460 * t362 - 0.258304e0 * t97 * t245 * t5768 + 0.238156450669527040e0 * t4588 * t881 + 0.461000314880e0 * t237 * t5763 - 0.1844001259520e1 * t1042 * t5646 - 0.42504258063891829883e0 * t4516 * t858 - 0.922000629760e0 * t4549 * t1394 - 0.238156450669527040e0 * t3894 * t1081 - 0.119078225334763520e0 * t854 * t4617 + 0.461000314880e0 * t5748 * t102;
7970   t5791 = my_piecewise3(t87, 0, t5625 + t5667 + t5715 + t5788);
7971   t5792 = my_piecewise3(t86, 0, t5791);
7972   t5794 = -t5579 * t104 - 0.2e1 * t1390 * t447 - 0.2e1 * t428 * t1451 - t1538 * t368 - t349 * t1596 - t85 * t5792;
7973   t5795 = t46 * t5794;
7974   t5800 = t1604 * t1453;
7975   t5818 = t5795 * t118 / 0.100e3 + t4633 * t1457 / 0.60e2 - 0.3e1 / 0.50e2 * t450 * t5800 + t1603 * t374 * t263 / 0.60e2 - t4642 * t1457 / 0.30e2 - t266 * t5794 * t118 / 0.100e3 - t4648 * t1457 / 0.180e3 + t685 * t452 * t1453 / 0.50e2 + t4654 * t1457 / 0.180e3;
7976   t5819 = t121 * t5818;
7977   t5826 = t4665 * t384;
7978   t5838 = t384 * t1649;
7979   t5841 = -params->c1 * t5794;
7980   t5847 = t1484 * t15;
7981   t5854 = t1602 * t374;
7982   t5859 = t1626 * t449 * t1453;
7983   t5864 = t1598 * t374;
7984   t5868 = t464 * t5794;
7985   t5871 = -t5841 * t131 - 0.5e1 / 0.9e1 * t4683 * t1478 + 0.2e1 * t1476 * t470 + 0.20e2 / 0.9e1 * t3086 * t5847 + 0.2e1 * t461 * t1498 - 0.10e2 / 0.9e1 * t1481 * t1627 - 0.50e2 / 0.27e2 * t279 * t4695 * t5854 - 0.20e2 / 0.9e1 * t463 * t5859 + 0.5e1 / 0.9e1 * t1481 * t1630 + 0.50e2 / 0.81e2 * t279 * t1144 * t5864 + 0.5e1 / 0.9e1 * t463 * t5868;
7986   t5873 = t1633 * t393;
7987   t5877 = t1635 * t393;
7988   t5882 = t4725 * t1453;
7989   t5889 = t280 * t5794;
7990   t5899 = my_piecewise3(t129, t5871 * t135 + t5873 * t135 + t5877 * t135 + 0.2e1 * t469 * t1491, -0.10e2 / 0.3e1 * t4722 * t396 - 0.4e1 * t719 * t5882 - 0.10e2 / 0.3e1 * t4730 * t396 + 0.10e2 / 0.9e1 * t4734 * t396 + t287 * t5889 * t137 + 0.5e1 / 0.9e1 * t4741 * t396 - 0.2e1 * t733 * t5882 - 0.5e1 / 0.9e1 * t4747 * t396);
7991   t5902 = 0.24e2 * t4296 * t5499 - 0.16e2 * t1004 * t5502 - 0.16e2 * t4303 * t5505 + 0.8e1 * t497 * t1516 * t399 - 0.4e1 * t497 * t5499 + 0.4e1 * t168 * t5505 - 0.2e1 * t168 * t5515 - 0.4e1 * t1004 * t5518 + 0.2e1 * t168 * t5521 * t140 + 0.2e1 * t168 * t5819 * t140 - 0.2e1 * t168 * t1614 * t399 + 0.8e1 * t1004 * t5826 - 0.4e1 * t168 * t1365 * t473 - 0.4e1 * t168 * t1466 * t473 - 0.4e1 * t168 * t456 * t1504 - t168 * t5838 - t128 * t5899 + 0.1174e1 * t5899;
7992   t5903 = t7 * t5902;
7993   t5904 = t5903 * t158;
7994   t5907 = t407 * t1653;
7995   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7996     v3sigmalapl2[0] = -0.3e1 / 0.8e1 * t164 * t5904 + 0.92773125000000000000e0 * t5907 * t413;
7997 
7998   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7999     v3sigmalapltau[0] = 0.0e0;
8000 
8001   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
8002     v3sigmatau2[0] = 0.0e0;
8003 
8004   t5910 = t122 * t121;
8005   t5911 = t1515 * t455;
8006   t5912 = t5910 * t5911;
8007   t5916 = t121 * t5911;
8008   t5920 = t1005 * t1613;
8009   t5928 = t1515 * t473;
8010   t5931 = t58 * t62;
8011   t5940 = t76 * t75;
8012   t5942 = 0.1e1 / t572 / t78;
8013   t5943 = t5940 * t5942;
8014   t5944 = t1528 * t425;
8015   t5945 = t5943 * t5944;
8016   t5948 = t1782 * t5944;
8017   t5951 = t2737 * t1534;
8018   t5956 = -t5931 * t5129 / 0.972e3 + 0.9e1 * t2724 * t1529 - 0.3e1 * t1018 * t1532 - t5537 * t1535 / 0.972e3 - 0.15e2 * t1769 * t5945 + 0.9e1 * t558 * t5948 + t5551 * t5951 / 0.324e3 - t5559 * t1535 / 0.972e3;
8019   t5962 = t1577 * t441;
8020   t5968 = t1069 * t4509;
8021   t5971 = t4433 * t1058;
8022   t5974 = t94 * t1577;
8023   t5985 = t4411 * t428;
8024   t5993 = t1556 * t433;
8025   t5994 = t1861 * t5993;
8026   t5998 = -t5956;
8027   t5999 = t239 * t5998;
8028   t6000 = t5999 * t94;
8029   t6003 = t1925 * t5993;
8030   t6004 = t6003 * t94;
8031   t6018 = -0.734005159174078464e0 * t97 * t1847 * t5962 - 0.32937059624806545678e0 * t1052 * t4603 - 0.2766001889280e1 * t237 * t5968 + 0.2468269445917900800e1 * t237 * t5971 + 0.44950982175490282881e0 * t1852 * t434 * t5974 + 0.714469352008581120e0 * t625 * t1565 * t1561 - 0.357234676004290560e0 * t1055 * t4617 - 0.16468529812403272839e0 * t4457 * t1081 + 0.63756387095837744823e0 * t5985 * t102 - 0.357234676004290560e0 * t4591 * t1081 + 0.975074869248e0 * t97 * t1088 * t1590 - 0.32672968537417605163e1 * t616 * t5994 * t621 + 0.461000314880e0 * t237 * t6000 - 0.4936538891835801600e1 * t237 * t6004 + 0.18968792869915364414e1 * t1983 * t5994 * t1984 - 0.12751277419167548965e1 * t1052 * t4506 - 0.84395584650891170840e0 * t2987 * t4490 + 0.11378729917768353994e1 * t1052 * t4513 + 0.714469352008581120e0 * t4588 * t1081;
8032   t6019 = t5994 * t94;
8033   t6022 = t840 * t1538;
8034   t6025 = t618 * t5993;
8035   t6026 = t6025 * t94;
8036   t6034 = t621 * t441;
8037   t6038 = t621 * t1569;
8038   t6045 = t94 * t1590;
8039   t6046 = t434 * t6045;
8040   t6052 = t1542 * t428;
8041   t6053 = t1830 * t6052;
8042   t6056 = t599 * t6052;
8043   t6059 = t1836 * t6052;
8044   t6062 = t231 * t5956;
8045   t6067 = t99 * t1538;
8046   t6074 = t428 * t99;
8047   t6085 = 0.10708320e2 * t6056 * t99 - 0.10708320e2 * t1041 * t6067 - 0.19111352870400e2 * t6053 * t99 + 0.1784720e1 * t6062 * t99 + 0.9555676435200e1 * t4411 * t6074 + 0.5684735615810048000e1 * t6059 * t99 + 0.10708320e2 * t6026 - 0.10708320e2 * t5968 - 0.19111352870400e2 * t6004 + 0.1784720e1 * t6000 + 0.9555676435200e1 * t5971 + 0.5684735615810048000e1 * t6019;
8048   t6097 = 0.14683899485061986386e1 * t237 * t6019 - 0.2766001889280e1 * t1042 * t6022 + 0.2766001889280e1 * t237 * t6026 + 0.36614111499190467036e1 * t616 * t6003 * t621 + 0.44950982175490282881e0 * t1055 * t4560 + 0.47287857283434471986e0 * t1941 * t1557 * t6034 - 0.18307055749595233518e1 * t616 * t1062 * t6038 - 0.357234676004290560e0 * t625 * t1570 * t1561 - 0.357234676004290560e0 * t625 * t6046 - 0.63756387095837744824e0 * t625 * t1557 * t1561 - 0.12751277419167548965e1 * t6053 * t102 + 0.2766001889280e1 * t6056 * t102 + 0.97972381755974563669e-1 * t6059 * t102 + 0.461000314880e0 * t6062 * t102 - 0.258304e0 * t97 * t245 * t6085 - 0.12751277419167548965e1 * t4516 * t1059 + 0.63756387095837744823e0 * t4519 * t1059 + 0.29391714526792369101e0 * t4522 * t1059 + 0.63756387095837744823e0 * t1052 * t4510;
8049   t6099 = my_piecewise3(t87, 0, t6018 + t6097);
8050   t6100 = my_piecewise3(t86, 0, t6099);
8051   t6102 = -t5956 * t104 - 0.3e1 * t1538 * t447 - 0.3e1 * t428 * t1596 - t85 * t6100;
8052   t6103 = t46 * t6102;
8053   t6107 = t114 * t449 * t118;
8054   t6110 = t1602 * t449;
8055   t6111 = t46 * t6110;
8056   t6114 = t116 * t118;
8057   t6120 = t1598 * t449;
8058   t6127 = t6103 * t118 / 0.100e3 - 0.9e1 / 0.100e3 * t1599 * t6107 - 0.3e1 / 0.100e3 * t6111 * t118 + 0.3e1 / 0.50e2 * t6111 * t6114 - t266 * t6102 * t118 / 0.100e3 + 0.3e1 / 0.100e3 * t685 * t6120 * t118 - t2024 * t6110 * t118 / 0.100e3;
8059   t6128 = t121 * t6127;
8060   t6139 = -params->c1 * t6102;
8061   t6147 = t14 * t732;
8062   t6148 = t6147 * t6110;
8063   t6151 = t1626 * t6120;
8064   t6154 = t464 * t6102;
8065   t6157 = -t6139 * t131 + 0.3e1 * t1622 * t470 - 0.6e1 * t461 * t1638 + 0.3e1 * t461 * t1642 + 0.10e2 / 0.3e1 * t463 * t6148 - 0.10e2 / 0.3e1 * t463 * t6151 + 0.5e1 / 0.9e1 * t463 * t6154;
8066   t6159 = t1633 * t468;
8067   t6162 = t1635 * t468;
8068   t6165 = t732 * t6110;
8069   t6169 = t4725 * t1598;
8070   t6172 = t2079 * t6110;
8071   t6176 = t280 * t6102;
8072   t6181 = t2094 * t6110;
8073   t6185 = my_piecewise3(t129, t6157 * t135 + 0.3e1 * t6159 * t135 + t6162 * t135, t2092 * t6181 * t137 + 0.6e1 * t287 * t6165 * t137 + t287 * t6176 * t137 + 0.6e1 * t730 * t6172 * t137 - 0.6e1 * t719 * t6169 - 0.3e1 * t733 * t6169);
8074   t6188 = 0.48e2 * t1691 * t5912 * t140 - 0.24e2 * t497 * t5916 * t140 - 0.24e2 * t4303 * t5920 + 0.24e2 * t497 * t1516 * t473 + 0.6e1 * t168 * t5920 - 0.6e1 * t168 * t5928 + 0.2e1 * t168 * t6128 * t140 - 0.6e1 * t168 * t1614 * t473 - 0.6e1 * t168 * t456 * t1649 - t128 * t6185 + 0.1174e1 * t6185;
8075   t6189 = t7 * t6188;
8076   t6190 = t6189 * t158;
8077   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
8078     v3lapl3[0] = -0.3e1 / 0.8e1 * t164 * t6190;
8079 
8080   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
8081     v3lapl2tau[0] = 0.0e0;
8082 
8083   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
8084     v3lapltau2[0] = 0.0e0;
8085 
8086   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
8087     v3tau3[0] = 0.0e0;
8088 
8089 #ifndef XC_DONT_COMPILE_LXC
8090 
8091   if(order < 4) return;
8092 
8093 
8094   t6195 = t165 / t1689 / t123;
8095   t6196 = t498 * t498;
8096   t6206 = t693 * t693;
8097   t6220 = 0.1e1 / t17 / t174;
8098   t6221 = sigma[0] * t6220;
8099   t6222 = t15 * t6221;
8100   t6225 = 0.1e1 / t9 / t187;
8101   t6226 = t31 * t6225;
8102   t6230 = 0.1e1 / t524;
8103   t6236 = 0.1e1 / t17 / t3196;
8104   t6241 = t1729 * rho[0];
8105   t6249 = t182 * t182;
8106   t6251 = t1725 * t25 / t6249;
8107   t6259 = t690 * t690;
8108   t6263 = t38 * t6220;
8109   t6266 = 0.13090e5 / 0.729e3 * t6222;
8110   t6273 = 0.4940e4 / 0.59049e5 * t58 * t59 * t509;
8111   t6274 = sigma[0] * t1708;
8112   t6277 = 0.2717e4 / 0.13122e5 * t58 * t6274 * lapl[0];
8113   t6279 = 0.20900e5 / 0.177147e6 * t58 * t6226;
8114   t6282 = t1756 * t213;
8115   t6285 = t551 * t557;
8116   t6290 = t210 * t1768;
8117   t6297 = t555 * t555;
8118   t6300 = t74 / t82 / t6297;
8119   t6301 = t559 * t559;
8120   t6307 = t582 * t582;
8121   t6319 = t569 * t569;
8122   t6338 = t76 * t5942;
8123   t6339 = t6338 * t183;
8124   t6352 = t562 * t573;
8125   t6353 = t6352 * t26;
8126   t6356 = t75 * t1795;
8127   t6360 = -0.4400e4 / 0.243e3 * t1783 * t1754 - 0.440e3 / 0.27e2 * t1786 * t505 + 0.12320e5 / 0.243e3 * t566 * t1705 + 0.6e1 * t6319 * t79 + 0.8e1 * t812 * t1791 + 0.2e1 * t215 * (t6273 - t6277 + t6279) + 0.80e2 / 0.9e1 * t2224 * t569 * t172 - 0.440e3 / 0.27e2 * t1779 * t534 + 0.200e3 / 0.81e2 * t1782 * t569 * t549 + 0.80e2 / 0.27e2 * t565 * t1791 * t172 + 0.50000e5 / 0.59049e5 * t6339 * t522 * t6236 * t15 + 0.48950e5 / 0.2187e4 * t575 * t576 * t6225 - 0.26180e5 / 0.729e3 * t222 * t6263 - 0.44000e5 / 0.2187e4 * t1796 * t1797 * t6230 + 0.200e3 / 0.81e2 * t6353 * t577 + 0.16000e5 / 0.2187e4 * t6356 * t216 * t1798;
8128   t6363 = (0.13090e5 / 0.6561e4 * t6222 + 0.15400e5 / 0.2187e4 * t15 * lapl[0] * t1703 + t6273 - t6277 + t6279) * t83 - 0.2e1 * t6282 * t225 + 0.9e1 / 0.2e1 * t6285 * t559 - 0.3e1 * t1758 * t582 - 0.15e2 / 0.2e1 * t6290 * t1770 + 0.9e1 * t1761 * t1773 - 0.2e1 * t553 * t1806 + 0.105e3 / 0.16e2 * t6300 * t6301 - 0.45e2 / 0.4e1 * t1769 * t559 * t582 + 0.9e1 / 0.4e1 * t558 * t6307 + 0.3e1 * t558 * t225 * t1806 - t214 * t6360 / 0.2e1 - t6266;
8129   t6373 = t585 * t585;
8130   t6374 = t590 * t6373;
8131   t6379 = -t239 * t6363 * t94;
8132   t6382 = t231 * t6363;
8133   t6387 = t610 * t1970;
8134   t6390 = t249 * t658;
8135   t6391 = t1843 * t6390;
8136   t6394 = t621 * t658;
8137   t6398 = t94 * t1964;
8138   t6399 = t1905 * t6398;
8139   t6411 = t620 * t1885;
8140   t6414 = t591 * t591;
8141   t6415 = t1830 * t6414;
8142   t6418 = -0.65874119249613091356e0 * t1826 * t251 - 0.2766001889280e1 * t6374 * t102 + 0.461000314880e0 * t237 * t6379 + 0.461000314880e0 * t6382 * t102 - 0.714469352008581120e0 * t1840 * t1976 - 0.476312901339054080e0 * t609 * t6387 + 0.17980392870196113152e1 * t609 * t6391 + 0.94575714566868943971e0 * t1941 * t620 * t6394 - 0.3688002519040e1 * t237 * t6399 + 0.33758233860356468337e1 * t1941 * t1863 * t1942 - 0.15171639890357805325e1 * t625 * t1863 * t626 - 0.2857877408034324480e1 * t625 * t1933 * t626 + 0.16596011335680e2 * t237 * t6411 - 0.11064007557120e2 * t6415 * t102;
8143   t6419 = pow(t95, -0.3741696e1);
8144   t6420 = t90 * t6419;
8145   t6421 = t6420 * t101;
8146   t6422 = t617 * t617;
8147   t6423 = 0.1e1 / t6422;
8148   t6424 = t619 * t619;
8149   t6425 = t6423 * t6424;
8150   t6426 = t621 * t621;
8151   t6434 = 0.1e1 / t598 / t589;
8152   t6435 = t6434 * t6414;
8153   t6440 = t1861 * t636;
8154   t6444 = t6440 * t1821;
8155   t6450 = t1861 * t6424;
8156   t6451 = t6450 * t94;
8157   t6454 = t636 * t636;
8158   t6455 = t618 * t6454;
8159   t6465 = t1925 * t619;
8160   t6472 = t621 * t1964;
8161   t6476 = -0.92817332546461565657e1 * t6421 * t6425 * t6426 + 0.20312390406477209506e2 * t1983 * t6425 * t1984 - 0.11756685810716947640e1 * t6435 * t102 - 0.32937059624806545678e0 * t1867 * t1976 - 0.19603781122450563098e2 * t616 * t6440 * t1872 + 0.88103396910371918316e1 * t237 * t6444 - 0.12751277419167548965e1 * t625 * t620 * t1937 + 0.29619233351014809600e2 * t237 * t6451 - 0.18307055749595233518e1 * t616 * t6455 * t621 - 0.21968466899514280222e2 * t616 * t6450 * t621 + 0.1428938704017162240e1 * t625 * t632 * t1937 + 0.21968466899514280221e2 * t616 * t6465 * t1910 - 0.37830285826747577588e1 * t1941 * t1926 * t1942 - 0.24409407666126978024e1 * t616 * t1909 * t6472;
8162   t6484 = t1821 * t249;
8163   t6485 = t2481 * t6484;
8164   t6499 = t618 * t1964 * t605;
8165   t6502 = t600 * t615;
8166   t6509 = t1946 * t236;
8167   t6512 = t1954 * t90;
8168   t6517 = 0.16044983381648203533e1 * t1852 * t620 * t1853 + 0.51005109676670195860e1 * t625 * t1926 * t626 + 0.13174823849922618271e1 * t603 * t6485 + 0.16596011335680e2 * t1867 * t1902 - 0.17980392870196113152e1 * t1930 * t1844 - 0.714469352008581120e0 * t625 * t637 * t1937 - 0.476312901339054080e0 * t625 * t1965 * t626 + 0.3291025927890534400e1 * t237 * t6499 - 0.77812782197085049260e0 * t6502 * t1873 + 0.22757459835536707988e1 * t1879 * t1876 + 0.10491196150051375396e1 * t1882 * t1876 + 0.51005109676670195860e1 * t6509 * t606 - 0.476312901339054080e0 * t6512 * t611 + 0.51005109676670195860e1 * t1889 * t1822;
8169   t6522 = t636 * t240;
8170   t6523 = t6522 * t626;
8171   t6530 = t592 * t615;
8172   t6533 = t604 * t6398;
8173   t6536 = t232 * t1982;
8174   t6537 = t1862 * t1984;
8175   t6538 = t4040 * t6537;
8176   t6541 = t1862 * t621;
8177   t6542 = t4040 * t6541;
8178   t6555 = t96 * t1847;
8179   t6556 = t6555 * t1848;
8180   t6563 = -0.11756685810716947640e1 * t1882 * t1822 - 0.25502554838335097930e1 * t1889 * t1886 - 0.25502554838335097929e1 * t2488 * t6523 - 0.45514919671073415977e1 * t1889 * t1876 - 0.25502554838335097930e1 * t1879 * t1822 + 0.33758233860356468336e1 * t6530 * t1873 + 0.85008516127783659764e0 * t603 * t6533 + 0.34978477943697927495e1 * t6536 * t6538 - 0.60248995135255396168e1 * t1870 * t6542 + 0.17980392870196113152e1 * t3476 * t605 * t6390 + 0.1300099825664e1 * t97 * t644 * t1970 * t249 - 0.17980392870196113152e1 * t1852 * t632 * t1853 - 0.13535064380111787705e1 * t609 * t6556 + 0.58783429053584738202e0 * t1836 * t591 * t90 * t1902;
8181   t6566 = t1982 * t245;
8182   t6567 = t1984 * t249;
8183   t6571 = t236 * t1847;
8184   t6580 = t6425 * t94;
8185   t6583 = t598 * t598;
8186   t6584 = 0.1e1 / t6583;
8187   t6585 = t6584 * t6414;
8188   t6588 = t6465 * t1885;
8189   t6592 = t1984 * t636;
8190   t6596 = t1946 * t90;
8191   t6601 = t599 * t6373;
8192   t6605 = 0.1e1 / t617 / t630;
8193   t6606 = t6605 * t6424;
8194   t6607 = t6606 * t94;
8195   t6614 = t1954 * t236;
8196   t6617 = t1862 * t94;
8197   t6618 = t4040 * t6617;
8198   t6621 = -0.19598860293882473159e1 * t6566 * t1863 * t6567 - 0.13535064380111787705e1 * t6571 * t1848 * t239 * t605 - 0.476312901339054080e0 * t625 * t1970 * t239 * t605 + 0.26206649088979828343e1 * t237 * t6580 + 0.45165298839047841173e-1 * t6585 * t102 - 0.29619233351014809600e2 * t237 * t6588 + 0.11381275721949218649e2 * t1983 * t1861 * t619 * t6592 - 0.2857877408034324480e1 * t6596 * t611 + 0.89901964350980565762e0 * t1840 * t1844 + 0.63756387095837744823e0 * t6601 * t102 - 0.17620679382074383663e2 * t237 * t6607 - 0.4404030955044470784e1 * t97 * t1847 * t645 * t658 + 0.85008516127783659764e0 * t6614 * t606 + 0.27077129145119382320e1 * t603 * t6618;
8199   t6622 = t4071 * t6617;
8200   t6625 = t1837 * t236;
8201   t6628 = t1832 * t236;
8202   t6635 = t1837 * t90;
8203   t6641 = t590 * t585;
8204   t6642 = t6641 * t90;
8205   t6648 = t1832 * t90;
8206   t6651 = t4071 * t6541;
8207   t6654 = t636 * t249;
8208   t6658 = t1871 * t6617;
8209   t6663 = t599 * t1809;
8210   t6667 = -0.91029839342146831954e1 * t603 * t6622 + 0.18066119535619136469e0 * t6625 * t606 - 0.23513371621433895280e1 * t6628 * t606 - 0.3688002519040e1 * t590 * t1809 * t90 * t841 - 0.10122663238838101478e0 * t6635 * t611 + 0.89901964350980565762e0 * t1852 * t637 * t1853 + 0.2857877408034324480e1 * t6642 * t2409 - 0.22762551443898437297e2 * t1983 * t6606 * t1984 + 0.13174823849922618271e1 * t6648 * t611 + 0.67516467720712936673e1 * t1870 * t6651 + 0.18915142913373788794e1 * t2506 * t862 * t6654 + 0.51005109676670195860e1 * t603 * t6658 + 0.2857877408034324480e1 * t2482 * t6523 + 0.85008516127783659764e0 * t6663 * t228 * t102;
8211   t6673 = t631 * t6454 * t94;
8212   t6680 = t595 * t615;
8213   t6683 = pow(t100, -0.4258304e1);
8214   t6684 = t645 * t645;
8215   t6688 = t658 * t658;
8216   t6693 = t1815 * t1885 * t249;
8217   t6697 = t1815 * t605 * t658;
8218   t6700 = t646 * t242;
8219   t6703 = t6522 * t94;
8220   t6704 = t1871 * t6703;
8221   t6707 = t2487 * t6484;
8222   t6712 = t1825 * t2296;
8223   t6715 = -0.13606156761889987933e2 * t616 * t6425 * t621 - 0.2766001889280e1 * t237 * t6673 + 0.12751277419167548965e1 * t1879 * t1886 + 0.58783429053584738202e0 * t1882 * t1886 - 0.16879116930178234168e1 * t6680 * t1873 + 0.23916119461575365556e1 * t97 * t6683 * t6684 + 0.975074869248e0 * t97 * t644 * t6688 - 0.65874119249613091356e0 * t603 * t6693 - 0.65874119249613091356e0 * t603 * t6697 + 0.82889667748265151307e0 * t603 * t6700 + 0.45514919671073415976e1 * t603 * t6704 - 0.11756685810716947640e1 * t603 * t6707 - 0.65874119249613091356e0 * t1879 * t1817 + 0.11756685810716947640e1 * t6712 * t2299;
8224   t6721 = t101 * t585;
8225   t6722 = t6721 * t242;
8226   t6726 = t2487 * t1872 * t249;
8227   t6729 = t1820 * t6703;
8228   t6733 = t1871 * t862 * t636;
8229   t6736 = t1836 * t6414;
8230   t6742 = t1925 * t6424 * t94;
8231   t6745 = t1830 * t591;
8232   t6770 = 0.9555676435200e1 * t6601 * t99 + 0.34108413694860288000e2 * t1836 * t585 * t2316 - 0.42833280e2 * t6415 * t99 + 0.64249920e2 * t600 * t1949 + 0.10145661348248508867e2 * t6585 * t99 + 0.114668117222400e3 * t6451 - 0.10708320e2 * t6673 - 0.42833280e2 * t6742 + 0.64249920e2 * t6411 + 0.10145661348248508867e2 * t6580 - 0.68216827389720576000e2 * t6607 + 0.1784720e1 * t6379;
8233   t6778 = t99 * t1809;
8234   t6788 = t6455 * t94;
8235   t6792 = 0.114668117222400e3 * t6736 * t99 - 0.114668117222400e3 * t6588 + 0.12740901913600e2 * t6663 * t892 - 0.114668117222400e3 * t6745 * t1949 - 0.14277760e2 * t1900 * t6778 - 0.10708320e2 * t6374 * t99 - 0.68216827389720576000e2 * t6435 * t99 + 0.1784720e1 * t6382 * t99 + 0.34108413694860288000e2 * t6444 + 0.9555676435200e1 * t6788 + 0.12740901913600e2 * t6499 - 0.14277760e2 * t6399;
8236   t6801 = t615 * t644;
8237   t6802 = t621 * t645;
8238   t6806 = -0.30367989716514304434e0 * t1882 * t1817 + 0.13174823849922618271e1 * t1889 * t1817 - 0.51005109676670195860e1 * t1900 * t236 * t6722 + 0.87198868390655171972e0 * t1870 * t6726 - 0.51005109676670195860e1 * t603 * t6729 - 0.33758233860356468336e1 * t1870 * t6733 + 0.76507664515005293790e1 * t6736 * t102 + 0.1428938704017162240e1 * t1930 * t1976 - 0.11064007557120e2 * t237 * t6742 - 0.76507664515005293789e1 * t6745 * t90 * t1902 + 0.39207562244901126197e2 * t616 * t6606 * t621 - 0.258304e0 * t97 * t245 * (t6770 + t6792) + 0.41444833874132575653e0 * t1867 * t1844 + 0.2468269445917900800e1 * t237 * t6788 - 0.11900499994234945968e1 * t6801 * t620 * t6802;
8239   t6810 = my_piecewise3(t87, 0, t6418 + t6476 + t6517 + t6563 + t6621 + t6667 + t6715 + t6806);
8240   t6811 = my_piecewise3(t86, 0, t6810);
8241   t6817 = 0.3e1 / 0.10e2 * t50 * (t6363 * t104 + 0.4e1 * t1809 * t255 + 0.4e1 * t228 * t1996 + 0.6e1 * t585 * t664 + t85 * t6811 + t6266) - 0.2618e4 / 0.81e2 * t6221;
8242   t6826 = t670 * t670;
8243   t6834 = t674 * t674;
8244   t6836 = t46 * t6834 * t183;
8245   t6838 = t114 * t10 * t1114;
8246   t6842 = t684 * t10 * t1114;
8247   t6857 = t46 * t2078;
8248   t6860 = t183 * t10 * t1114;
8249   t6863 = 0.9163e4 / 0.65610e5 * t47 * t6263 - t46 * t6817 * t263 / 0.180e3 - t2003 * t26 * t920 / 0.27e2 + 0.5e1 / 0.27e2 * t671 * t2535 - t46 * t6826 * t26 * t678 / 0.36e2 - 0.10e2 / 0.27e2 * t671 * t183 * t2544 + 0.125e3 / 0.1458e4 * t6836 * t6838 - 0.125e3 / 0.2187e4 * t6836 * t6842 + t266 * t6817 * t263 / 0.180e3 + t685 * t2002 * t927 / 0.81e2 + t685 * t6826 * t687 / 0.108e3 + 0.5e1 / 0.81e2 * t2024 * t670 * t2535 + 0.25e2 / 0.4374e4 * t6857 * t6834 * t6860;
8250   t6892 = t732 * t10 * t14;
8251   t6895 = t2079 * t6834;
8252   t6899 = t674 * t10;
8253   t6918 = t714 * t714;
8254   t6924 = t716 * t716;
8255   t6928 = t183 * t137;
8256   t6929 = t6928 * t15;
8257   t6932 = t2534 * t2074;
8258   t6940 = t6826 * t26 * t721;
8259   t6946 = t58 * t137 * t2002;
8260   t6950 = 0.1e1 / t731 / t684;
8261   t6967 = t729 * t729;
8262   t6968 = params->d * t6967;
8263   t6969 = t731 * t731;
8264   t6970 = 0.1e1 / t6969;
8265   t6975 = -0.10000e5 / 0.729e3 * t287 * t6895 * t6929 - 0.1000e4 / 0.27e2 * t2069 * t6932 - 0.5000e4 / 0.243e3 * t730 * t2094 * t6834 * t6929 - 0.50e2 / 0.27e2 * t719 * t6940 - 0.1000e4 / 0.27e2 * t2080 * t6932 - 0.200e3 / 0.81e2 * t2073 * t6946 - 0.5000e4 / 0.729e3 * t2092 * t6950 * t6834 * t6929 - 0.5e1 / 0.9e1 * t288 * t6817 * t10 * t290 - 0.100e3 / 0.81e2 * t730 * t732 * t2002 * t961 - 0.25e2 / 0.27e2 * t733 * t6940 - 0.500e3 / 0.81e2 * t2095 * t6932 - 0.1250e4 / 0.2187e4 * t6968 * t6970 * t6834 * t6929;
8266   t6976 = my_piecewise3(t129, (-0.5e1 / 0.9e1 * params->c1 * t6817 * t132 - 0.200e3 / 0.81e2 * t2041 * t26 * t282 - 0.1000e4 / 0.27e2 * t699 * t708 - 0.50e2 / 0.27e2 * params->c1 * t6826 * t703 - 0.10000e5 / 0.729e3 * params->c1 * t6834 * t183 * t6892 - 0.50000e5 / 0.6561e4 * t946 * t6895 * t58 - 0.5000e4 / 0.243e3 * t2589 * t6899 * t14 * t670 - 0.500e3 / 0.81e2 * t130 * t707 * t6826 - 0.2000e4 / 0.243e3 * t946 * t2054 * t2002 - 0.25e2 / 0.81e2 * t279 * t281 * t6817) * t135 + 0.4e1 * t2061 * t285 * t135 + 0.3e1 * t6918 * t135 + 0.6e1 * t714 * t716 * t135 + t6924 * t135, t6975);
8267   t6979 = -0.24e2 * t6195 * t6196 * t140 + 0.36e2 * t1691 * t499 * t693 - 0.24e2 * t1691 * t1692 * t294 - 0.6e1 * t497 * t6206 * t140 + 0.24e2 * t497 * t696 * t693 - 0.8e1 * t497 * t274 * t2032 + 0.12e2 * t497 * t498 * t737 + t168 * (0.26180e5 / 0.19683e5 * t6222 + 0.5225e4 / 0.1458e4 * t30 * t6226 * t42 - 0.5929e4 / 0.288e3 * t184 * t185 * t6230 * t42 + 0.2949e4 / 0.640e3 * t523 * t6236 * t10 * t528 - 0.1053e4 / 0.3200e4 * t1728 / t9 / t6241 * t26 * t1733 + 0.6561e4 / 0.160000e6 * t6251 * t522 * t31 / t1729 / t32 * t42 + 0.6e1 * t6259 + 0.8e1 * t270 * t2029 + 0.2e1 * t121 * t6863) * t140 - 0.4e1 * t168 * t2032 * t294 - 0.6e1 * t168 * t693 * t737 - 0.4e1 * t168 * t273 * t2099 - t128 * t6976 + 0.1174e1 * t6976;
8268   t6991 = t19 * t143;
8269   t7016 = t5 * t7 * t150;
8270   t7024 = t2122 * t306 * t309;
8271   t7030 = -0.3e1 / 0.8e1 * t164 * t7 * t6979 * t158 - 0.12920861304452160000e4 * t2139 * t298 * t2140 - 0.98958000000000000000e1 * t307 * t308 * t2102 * t316 - 0.5e1 / 0.27e2 * t8 * t6991 * t158 + 0.35624880000000000000e3 * t407 * t1679 * t297 * t756 + 0.4e1 / 0.9e1 * t8 * t54 * t297 * t158 - 0.43069537681507200002e3 * t407 * t7 * t6991 * t2140 + 0.17527082181762906534e4 * t995 * t1345 * t26 * t146 * t157 - t8 * t481 * t740 * t158 - 0.44745340053175698261e2 * t7016 * t763 - 0.49479000000000000000e1 * t407 * t490 * t740 * t316 - 0.64604306522260800000e3 * t7024 * t753 * t157 * t147 * t148;
8272   t7073 = 0.1e1 / t153 / t72 / 0.36e2;
8273   t7077 = t157 * t26 * t146;
8274   t7081 = 0.21990666666666666667e1 * t407 * t1666 * t297 * t316 - 0.37933900000000000000e3 * t407 * t7 * t35 * t143 * t756 - 0.17812440000000000000e3 * t749 * t2107 * t756 - 0.91627777777777777788e0 * t7024 * t316 - 0.23749920000000000000e4 * t2119 * t297 * t2126 * t2128 + 0.66147100843063384139e1 * t1686 * t297 * t10 * t2134 + 0.48324967257429754121e3 * t760 * t740 * t410 * t762 + 0.32216644838286502748e3 * t1686 * t2115 + 0.51458160000000000000e4 * t407 * t7 * t6220 * t2129 - 0.20e-18 * t7016 * t2135 - 0.2e1 * t8 * t9 * t2102 * t158 - 0.27708240000000000000e4 * t324 * t306 * t309 * t7073 * t2120 * t31 * t7077;
8275   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8276     v4rho4[0] = t7030 + t7081;
8277 
8278   t7083 = t407 * t408 * t7073;
8279   t7084 = t2120 * t157;
8280   t7091 = t15 * t1703;
8281   t7125 = t116 * t670;
8282   t7129 = 0.770e3 / 0.243e3 * t7091;
8283   t7130 = t802 * t557;
8284   t7147 = t339 * t1768;
8285   t7152 = t6356 * t341;
8286   t7160 = t6356 * t183;
8287   t7181 = t569 * t220;
8288   t7182 = t7181 * t341;
8289   t7185 = t2224 * t818;
8290   t7188 = t216 * t573;
8291   t7189 = t7188 * t341;
8292   t7192 = t1782 * t818;
8293   t7195 = 0.4000e4 / 0.2187e4 * t7152 * t1798 - 0.5e1 / 0.6e1 * t2224 * t10 * t2251 - 0.25e2 / 0.54e2 * t6353 * t826 - 0.500e3 / 0.243e3 * t7160 * t515 * t216 * t31 + 0.20e2 / 0.9e1 * t821 * t792 * t569 - 0.5e1 / 0.18e2 * t821 * t329 * t1791 - 0.220e3 / 0.27e2 * t821 * t2188 * t216 - 0.8525e4 / 0.1458e4 * t575 * t29 * t1708 * sigma[0] + 0.25e2 / 0.6e1 * t2243 * t2258 * t2244 + 0.20e2 / 0.9e1 * t7182 * t172 + 0.40e2 / 0.9e1 * t7185 * t172 + 0.100e3 / 0.81e2 * t7189 * t549 + 0.100e3 / 0.81e2 * t7192 * t549;
8294   t7196 = t565 * t2238;
8295   t7223 = t1791 * t79;
8296   t7232 = 0.247e3 / 0.8748e4 * t58 * t509 * lapl[0];
8297   t7234 = 0.1672e4 / 0.59049e5 * t58 * t6274;
8298   t7238 = 0.20e2 / 0.9e1 * t7196 * t172 - 0.25e2 / 0.54e2 * t2243 * t825 * t569 * sigma[0] - 0.6250e4 / 0.19683e5 * t6339 * t1720 * t185 * t15 - 0.220e3 / 0.27e2 * t2225 * t505 - 0.1100e4 / 0.243e3 * t2230 * t1754 - 0.220e3 / 0.27e2 * t2233 * t505 + 0.3080e4 / 0.243e3 * t815 * t1705 + 0.4750e4 / 0.729e3 * t1796 * t183 * t1713 * t31 + 0.1540e4 / 0.243e3 * t221 * t7091 + 0.20e2 / 0.9e1 * t1778 * t773 + 0.2e1 * t7223 * t341 + 0.6e1 * t2221 * t818 + 0.6e1 * t812 * t2238 + 0.2e1 * t215 * (t7232 - t7234);
8299   t7244 = 0.9e1 / 0.4e1 * t7130 * t559 - 0.45e2 / 0.8e1 * t6290 * t2212 + 0.105e3 / 0.16e2 * t6300 * t346 * t1770 - 0.45e2 / 0.8e1 * t1769 * t809 * t582 + 0.9e1 / 0.4e1 * t6285 * t809 + 0.9e1 / 0.2e1 * t1761 * t2215 + 0.9e1 / 0.4e1 * t1761 * t2218 - 0.15e2 / 0.8e1 * t7147 * t1770 + 0.9e1 / 0.4e1 * t2202 * t1773 - t214 * (t7195 + t7238) / 0.2e1 - t804 * t1806 / 0.2e1;
8300   t7251 = t2198 * t213;
8301   t7271 = -t6282 * t346 / 0.2e1 - 0.3e1 / 0.2e1 * t1758 * t831 - 0.3e1 / 0.2e1 * t553 * t2264 + t7129 - 0.3e1 / 0.2e1 * t7251 * t225 - 0.3e1 / 0.2e1 * t2200 * t582 + 0.3e1 / 0.4e1 * t558 * t346 * t1806 + 0.9e1 / 0.4e1 * t558 * t2264 * t225 + 0.9e1 / 0.4e1 * t558 * t831 * t582 - 0.45e2 / 0.8e1 * t1769 * t831 * t559 + (-0.770e3 / 0.2187e4 * t7091 + t7232 - t7234) * t83;
8302   t7272 = t7244 + t7271;
8303   t7286 = t231 * t7272;
8304   t7289 = t362 * t658;
8305   t7293 = t6423 * t354;
8306   t7294 = t6426 * t1862;
8307   t7298 = t2311 * t94;
8308   t7299 = t604 * t7298;
8309   t7305 = t236 * t363;
8310   t7317 = t2327 * t236;
8311   t7322 = 0.44950982175490282881e0 * t2365 * t1844 + 0.461000314880e0 * t7286 * t102 - 0.2202015477522235392e1 * t3991 * t7289 * t249 - 0.92817332546461565657e1 * t6421 * t7293 * t7294 + 0.63756387095837744823e0 * t603 * t7299 + 0.47287857283434471984e0 * t615 * t363 * t1911 - 0.63756387095837744823e0 * t7305 * t1893 - 0.59502499971174729836e0 * t615 * t888 * t1943 + 0.80224916908241017663e0 * t2478 * t1897 + 0.44950982175490282881e0 * t2478 * t1914 + 0.714469352008581120e0 * t7305 * t1906 + 0.63756387095837744823e0 * t7317 * t606 + 0.44950982175490282881e0 * t2478 * t1938;
8312   t7323 = t2349 * t1821;
8313   t7325 = t6605 * t354;
8314   t7326 = t7325 * t6617;
8315   t7329 = t631 * t2311 * t605;
8316   t7331 = t2340 * t1885;
8317   t7333 = t892 * t585;
8318   t7338 = t99 * t1831;
8319   t7343 = t1830 * t834;
8320   t7348 = t1836 * t834;
8321   t7353 = t6584 * t349;
8322   t7356 = t6434 * t349;
8323   t7361 = t869 * t6398;
8324   t7363 = t590 * t2267;
8325   t7366 = 0.32124960e2 * t7323 - 0.68216827389720576000e2 * t7326 - 0.10708320e2 * t7329 - 0.10708320e2 * t7331 - 0.57334058611200e2 * t2322 * t7333 + 0.17054206847430144000e2 * t2335 * t7333 - 0.42833280e2 * t2322 * t7338 + 0.9555676435200e1 * t2330 * t1949 - 0.57334058611200e2 * t7343 * t2316 + 0.32124960e2 * t2330 * t2316 + 0.17054206847430144000e2 * t7348 * t2316 + 0.114668117222400e3 * t2335 * t7338 + 0.10145661348248508867e2 * t7353 * t7338 - 0.68216827389720576000e2 * t7356 * t7338 - 0.3569440e1 * t838 * t6778 - 0.3569440e1 * t7361 - 0.10708320e2 * t7363 * t892;
8326   t7369 = t1861 * t873;
8327   t7370 = t7369 * t1821;
8328   t7372 = t2349 * t1885;
8329   t7374 = t618 * t2311;
8330   t7375 = t7374 * t605;
8331   t7381 = t2343 * t6617;
8332   t7383 = t599 * t2267;
8333   t7386 = t7293 * t6617;
8334   t7388 = t1925 * t873;
8335   t7389 = t7388 * t1821;
8336   t7399 = t2354 * t6617;
8337   t7401 = t861 * t6398;
8338   t7405 = -t239 * t7272 * t94;
8339   t7407 = 0.3185225478400e1 * t847 * t6778 + 0.17054206847430144000e2 * t7370 + 0.9555676435200e1 * t7372 + 0.9555676435200e1 * t7375 + 0.32124960e2 * t861 * t6703 + 0.32124960e2 * t847 * t7333 - 0.42833280e2 * t7381 + 0.9555676435200e1 * t7383 * t892 + 0.10145661348248508867e2 * t7386 - 0.57334058611200e2 * t7389 - 0.57334058611200e2 * t2343 * t6703 + 0.1784720e1 * t7286 * t99 + 0.17054206847430144000e2 * t2354 * t6703 - 0.10708320e2 * t2319 * t1949 + 0.114668117222400e3 * t7399 + 0.3185225478400e1 * t7401 + 0.1784720e1 * t7405;
8340   t7425 = t873 * t240;
8341   t7426 = t7425 * t626;
8342   t7430 = t236 * t644 * t631;
8343   t7431 = t645 * t240;
8344   t7432 = t857 * t7431;
8345   t7439 = t6641 * t236;
8346   t7450 = -0.258304e0 * t97 * t245 * (t7366 + t7407) + 0.23916119461575365556e1 * t97 * t6683 * t362 * t1848 + 0.10984233449757140111e2 * t616 * t7388 * t1872 - 0.22762551443898437297e2 * t1983 * t7325 * t6537 + 0.39207562244901126197e2 * t616 * t7325 * t6541 - 0.12751277419167548965e1 * t2488 * t7426 - 0.89901964350980565762e0 * t7430 * t7432 + 0.12751277419167548965e1 * t851 * t6658 + 0.12751277419167548965e1 * t6509 * t858 - 0.12751277419167548965e1 * t7439 * t3273 - 0.16468529812403272839e0 * t1879 * t2305 - 0.12751277419167548965e1 * t1879 * t2308 + 0.29391714526792369101e0 * t6712 * t3280 - 0.84395584650891170841e0 * t6680 * t2280;
8347   t7455 = t1815 * t2500 * t249;
8348   t7458 = t2500 * t240;
8349   t7459 = t1820 * t7458;
8350   t7466 = t2298 * t638;
8351   t7473 = t838 * t615;
8352   t7475 = t1871 * t1872 * t228;
8353   t7491 = 0.11378729917768353994e1 * t1879 * t2285 - 0.32937059624806545678e0 * t603 * t7455 - 0.25502554838335097930e1 * t603 * t7459 - 0.16468529812403272839e0 * t851 * t6693 - 0.12751277419167548965e1 * t851 * t6729 + 0.29391714526792369101e0 * t2297 * t7466 - 0.84395584650891170841e0 * t2493 * t6733 + 0.11378729917768353994e1 * t851 * t6704 + 0.16879116930178234168e1 * t7473 * t7475 + 0.21799717097663792993e0 * t2493 * t6726 - 0.357234676004290560e0 * t1840 * t2371 + 0.76507664515005293790e1 * t2335 * t1831 * t102 - 0.17620679382074383663e2 * t237 * t7326 + 0.714469352008581120e0 * t625 * t902 * t631 * t1821;
8354   t7512 = t644 * t618;
8355   t7513 = t615 * t7512;
8356   t7517 = t236 * t7512;
8357   t7522 = t658 * t240;
8358   t7523 = t857 * t7522;
8359   t7526 = t857 * t6654;
8360   t7529 = -0.16468529812403272839e0 * t848 * t660 + 0.822756481972633600e0 * t237 * t7401 + 0.1428938704017162240e1 * t2368 * t2409 - 0.16468529812403272839e0 * t2395 * t251 + 0.29391714526792369101e0 * t2335 * t585 * t3975 + 0.2468269445917900800e1 * t237 * t7372 - 0.75919974291285761083e-1 * t2384 * t251 - 0.12751277419167548965e1 * t2510 * t1822 + 0.44950982175490282881e0 * t3476 * t857 * t6390 - 0.59502499971174729837e0 * t7513 * t1409 * t7431 + 0.80224916908241017662e0 * t7517 * t7432 + 0.1428938704017162240e1 * t2482 * t7426 + 0.714469352008581120e0 * t2482 * t7523 + 0.714469352008581120e0 * t2482 * t7526;
8361   t7532 = t840 * t1809;
8362   t7545 = t1871 * t7458;
8363   t7548 = t363 * t638;
8364   t7554 = t1843 * t645 * t228;
8365   t7560 = t94 * t1848;
8366   t7566 = t1843 * t7289;
8367   t7569 = t245 * t1925;
8368   t7570 = t615 * t7569;
8369   t7571 = t249 * t619;
8370   t7572 = t1409 * t7571;
8371   t7575 = -0.922000629760e0 * t839 * t7532 + 0.44950982175490282881e0 * t1852 * t874 * t1853 + 0.8298005667840e1 * t2330 * t90 * t2362 - 0.714469352008581120e0 * t6596 * t881 + 0.32937059624806545678e0 * t1889 * t2288 + 0.22757459835536707989e1 * t603 * t7545 - 0.16468529812403272839e0 * t603 * t7548 + 0.25502554838335097929e1 * t1889 * t2308 - 0.89901964350980565762e0 * t839 * t7554 - 0.714469352008581120e0 * t625 * t2467 * t6617 - 0.33837660950279469264e0 * t6571 * t355 * t7560 - 0.119078225334763520e0 * t854 * t6387 + 0.44950982175490282881e0 * t609 * t7566 - 0.28372714370060683191e1 * t7570 * t7572;
8372   t7576 = t236 * t7569;
8373   t7577 = t354 * t619;
8374   t7578 = t7577 * t626;
8375   t7582 = t1871 * t1821 * t228;
8376   t7587 = t2298 * t641;
8377   t7601 = t245 * t1861;
8378   t7602 = t1982 * t7601;
8379   t7606 = t1409 * t6522;
8380   t7618 = 0.38253832257502646895e1 * t7576 * t7578 - 0.22757459835536707989e1 * t2291 * t7582 - 0.29391714526792369101e0 * t851 * t6707 + 0.52455980750256876982e0 * t2297 * t7587 + 0.45165298839047841173e-1 * t6625 * t858 + 0.94575714566868943972e0 * t2506 * t3398 * t2483 + 0.47287857283434471986e0 * t2506 * t1409 * t6654 + 0.47287857283434471985e0 * t2506 * t1409 * t7522 - 0.14699145220411854869e1 * t7602 * t5726 * t7571 + 0.10984233449757140111e2 * t4109 * t7606 + 0.67692822862798455802e0 * t851 * t6618 + 0.21252129031945914941e0 * t6614 * t858 + 0.63756387095837744823e0 * t1879 * t2501 + 0.975074869248e0 * t97 * t2275 * t658;
8381   t7621 = t610 * t658 * t228;
8382   t7633 = t610 * t2357;
8383   t7654 = 0.714469352008581120e0 * t839 * t7621 + 0.44950982175490282881e0 * t854 * t6391 - 0.98018905612252815491e1 * t616 * t7369 * t1872 + 0.26206649088979828343e1 * t237 * t7386 - 0.14809616675507404800e2 * t237 * t7389 - 0.357234676004290560e0 * t609 * t7633 - 0.2143408056025743360e1 * t2488 * t7578 - 0.89901964350980565762e0 * t2478 * t1857 + 0.56906378609746093243e1 * t1983 * t7369 * t2430 + 0.20722416937066287826e0 * t848 * t647 - 0.2766001889280e1 * t237 * t7329 + 0.21252129031945914941e0 * t847 * t1809 * t102 + 0.461000314880e0 * t237 * t7405 + 0.21252129031945914941e0 * t851 * t6533;
8384   t7663 = t2330 * t2296;
8385   t7667 = t1871 * t1409 * t636;
8386   t7671 = t4040 * t5726 * t619;
8387   t7674 = t1409 * t619;
8388   t7675 = t4040 * t7674;
8389   t7679 = t1815 * t857 * t658;
8390   t7684 = t591 * t90;
8391   t7685 = t2322 * t7684;
8392   t7688 = t7577 * t94;
8393   t7689 = t4071 * t7688;
8394   t7698 = 0.29391714526792369101e0 * t1882 * t2501 - 0.75919974291285761083e-1 * t1882 * t2288 - 0.16468529812403272839e0 * t1879 * t2288 - 0.32937059624806545678e0 * t2510 * t1817 + 0.58783429053584738202e0 * t7663 * t2299 - 0.84395584650891170841e0 * t1870 * t7667 + 0.26233858457773445622e1 * t6536 * t7671 - 0.45186746351441547127e1 * t1870 * t7675 - 0.16468529812403272839e0 * t603 * t7679 - 0.12751277419167548965e1 * t2291 * t6722 - 0.17635028716075421461e1 * t7685 * t2299 - 0.68272379506610123966e1 * t603 * t7689 + 0.29391714526792369101e0 * t7348 * t591 * t102 + 0.89901964350980565762e0 * t236 * t2275 * t627;
8395   t7720 = t615 * t7601;
8396   t7723 = t857 * t6522;
8397   t7732 = t599 * t228;
8398   t7733 = t7732 * t90;
8399   t7735 = t610 * t362 * t585;
8400   t7741 = 0.63756387095837744823e0 * t2330 * t585 * t102 + 0.45165298839047841173e-1 * t7353 * t1831 * t102 - 0.2766001889280e1 * t2368 * t1902 + 0.32937059624806545678e0 * t6648 * t881 + 0.325024956416e0 * t97 * t888 * t1970 - 0.10151298285083840779e1 * t236 * t2387 * t1854 - 0.63756387095837744823e0 * t2488 * t7523 + 0.25318675395267351252e1 * t7720 * t7572 + 0.8298005667840e1 * t4067 * t7723 + 0.63756387095837744823e0 * t2510 * t1886 - 0.922000629760e0 * t237 * t7361 - 0.2766001889280e1 * t237 * t7331 - 0.16468529812403272839e0 * t7733 * t7735 - 0.61023519165317445059e0 * t616 * t861 * t6472;
8401   t7754 = t236 * t7601;
8402   t7757 = t902 * t249;
8403   t7758 = t1843 * t7757;
8404   t7762 = t840 * t585 * t228;
8405   t7766 = t610 * t585 * t249;
8406   t7772 = t2296 * t235;
8407   t7773 = t847 * t7772;
8408   t7776 = t838 * t625;
8409   t7777 = t2408 * t242;
8410   t7786 = -0.18307055749595233518e1 * t616 * t2349 * t1910 - 0.11064007557120e2 * t237 * t7381 - 0.2766001889280e1 * t7363 * t90 * t841 - 0.98018905612252815489e1 * t4046 * t7606 + 0.44051698455185959158e1 * t4081 * t7723 - 0.11378729917768353994e1 * t7754 * t7578 + 0.89901964350980565762e0 * t609 * t7758 + 0.8298005667840e1 * t2361 * t7762 + 0.714469352008581120e0 * t839 * t7766 - 0.357234676004290560e0 * t625 * t874 * t1937 - 0.15183994858257152217e0 * t7773 * t1817 + 0.65874119249613091356e0 * t7776 * t7777 + 0.975074869248e0 * t97 * t644 * t2357 * t249 - 0.16468529812403272839e0 * t1867 * t2371;
8411   t7789 = t610 * t591 * t249;
8412   t7793 = t840 * t1831;
8413   t7816 = t232 * t1941;
8414   t7817 = t862 * t249;
8415   t7818 = t861 * t7817;
8416   t7821 = t232 * t625;
8417   t7822 = t869 * t1816;
8418   t7825 = t861 * t1816;
8419   t7828 = t232 * t1852;
8420   t7829 = t2474 * t242;
8421   t7834 = -0.2143408056025743360e1 * t2361 * t7789 - 0.11064007557120e2 * t2322 * t90 * t7793 - 0.357234676004290560e0 * t625 * t2357 * t239 * t605 - 0.357234676004290560e0 * t625 * t2312 * t626 - 0.2202015477522235392e1 * t97 * t1847 * t902 * t645 + 0.2468269445917900800e1 * t237 * t7375 - 0.13606156761889987933e2 * t616 * t7293 * t6541 - 0.119078225334763520e0 * t6512 * t881 - 0.25306658097095253694e-1 * t6635 * t881 + 0.43599434195327585985e0 * t7816 * t7818 + 0.65874119249613091356e0 * t7821 * t7822 - 0.58783429053584738202e0 * t7821 * t7825 + 0.41444833874132575653e0 * t7828 * t7829 - 0.22757459835536707989e1 * t851 * t6622;
8422   t7844 = t362 * t645;
8423   t7845 = t6555 * t7844;
8424   t7848 = t362 * t1925;
8425   t7872 = -0.12751277419167548965e1 * t1889 * t2501 + 0.8298005667840e1 * t237 * t7323 - 0.21968466899514280222e2 * t616 * t2354 * t6541 + 0.29619233351014809600e2 * t237 * t7399 - 0.10151298285083840779e1 * t609 * t7845 - 0.94575714566868943969e0 * t1941 * t7848 * t6541 + 0.12751277419167548965e1 * t625 * t7848 * t6617 - 0.89901964350980565762e0 * t1930 * t2475 + 0.20312390406477209506e2 * t1983 * t7293 * t6537 - 0.33837660950279469264e0 * t854 * t6556 - 0.357234676004290560e0 * t625 * t2451 * t1885 + 0.63756387095837744823e0 * t7383 * t228 * t102 + 0.32937059624806545678e0 * t1889 * t2305 + 0.16879116930178234168e1 * t6530 * t2280;
8426   t7878 = t1871 * t3398 * t240;
8427   t7889 = t4071 * t7674;
8428   t7892 = t2319 * t236;
8429   t7895 = t857 * t636;
8430   t7896 = t1820 * t7895;
8431   t7901 = t585 * t90;
8432   t7902 = t847 * t7901;
8433   t7905 = t2335 * t7684;
8434   t7909 = t3475 * t857 * t645;
8435   t7912 = t1871 * t7688;
8436   t7915 = -0.22757459835536707989e1 * t1889 * t2285 - 0.16879116930178234168e1 * t1870 * t7878 - 0.75919974291285761083e-1 * t1882 * t2305 - 0.58783429053584738202e0 * t1882 * t2308 - 0.38906391098542524630e0 * t6502 * t2280 + 0.52455980750256876982e0 * t1882 * t2285 + 0.50637350790534702506e1 * t1870 * t7889 - 0.25502554838335097930e1 * t7892 * t2293 - 0.12751277419167548965e1 * t603 * t7896 - 0.16468529812403272839e0 * t851 * t6697 + 0.29391714526792369101e0 * t7902 * t2299 + 0.13549589651714352352e0 * t7905 * t2299 + 0.20722416937066287826e0 * t603 * t7909 + 0.38253832257502646895e1 * t603 * t7912;
8437   t7917 = t604 * t1885 * t228;
8438   t7920 = t363 * t633;
8439   t7923 = t363 * t622;
8440   t7926 = t363 * t641;
8441   t7929 = t903 * t242;
8442   t7932 = t1871 * t7895;
8443   t7935 = t4040 * t7688;
8444   t7938 = t94 * t1970;
8445   t7942 = t2327 * t90;
8446   t7956 = -0.12751277419167548965e1 * t2291 * t7917 + 0.32937059624806545678e0 * t603 * t7920 + 0.21799717097663792992e0 * t1870 * t7923 - 0.29391714526792369101e0 * t603 * t7926 - 0.32937059624806545678e0 * t603 * t7929 + 0.11378729917768353994e1 * t603 * t7932 + 0.20307846858839536740e1 * t603 * t7935 - 0.119078225334763520e0 * t625 * t355 * t7938 - 0.357234676004290560e0 * t7942 * t611 - 0.38253832257502646895e1 * t7343 * t591 * t102 - 0.63756387095837744823e0 * t2488 * t7526 - 0.14809616675507404800e2 * t4072 * t7723 + 0.16879116930178234168e1 * t2493 * t6651 - 0.32937059624806545678e0 * t2398 * t251;
8447   t7966 = t902 * t618;
8448   t7975 = t362 * t1861;
8449   t7985 = t614 * t101;
8450   t7986 = t7985 * t622;
8451   t7991 = t2292 * t633;
8452   t7994 = t2298 * t633;
8453   t7999 = -0.38253832257502646895e1 * t2322 * t585 * t3975 + 0.44051698455185959158e1 * t237 * t7370 - 0.18307055749595233518e1 * t616 * t7374 * t862 + 0.47287857283434471985e0 * t1941 * t7966 * t1872 - 0.119078225334763520e0 * t625 * t884 * t6398 + 0.44950982175490282881e0 * t1840 * t2475 - 0.48997150734706182895e0 * t6566 * t7975 * t6537 + 0.84395584650891170840e0 * t1941 * t7975 * t6541 - 0.63756387095837744824e0 * t625 * t7966 * t1821 - 0.38906391098542524630e0 * t2297 * t7986 + 0.32937059624806545678e0 * t851 * t6485 + 0.25502554838335097929e1 * t2291 * t7991 - 0.58783429053584738202e0 * t2297 * t7994 + 0.20722416937066287826e0 * t851 * t6700;
8454   t8000 = t847 * t236;
8455   t8002 = t101 * t591 * t242;
8456   t8019 = t844 * t615;
8457   t8022 = t351 * t1982;
8458   t8036 = 0.38253832257502646895e1 * t8000 * t8002 + 0.714469352008581120e0 * t1930 * t2371 - 0.11756685810716947640e1 * t7356 * t1831 * t102 + 0.714469352008581120e0 * t1901 * t7735 + 0.98811178874419637035e0 * t2381 * t251 + 0.20722416937066287826e0 * t1867 * t2475 - 0.37929099725894513314e0 * t625 * t7975 * t6617 - 0.84395584650891170840e0 * t8019 * t1873 + 0.87446194859244818739e0 * t8022 * t6538 - 0.15062248783813849042e1 * t2493 * t6542 + 0.11378729917768353994e1 * t2510 * t1876 - 0.58783429053584738202e0 * t6628 * t858 + 0.56906378609746093242e1 * t4041 * t5726 * t6522 - 0.357234676004290560e0 * t2365 * t1976;
8459   t8041 = my_piecewise3(t87, 0, t7322 + t7450 + t7491 + t7529 + t7575 + t7618 + t7654 + t7698 + t7741 + t7786 + t7834 + t7872 + t7915 + t7956 + t7999 + t8036);
8460   t8042 = my_piecewise3(t86, 0, t8041);
8461   t8048 = 0.3e1 / 0.10e2 * t50 * (t7272 * t104 + t1809 * t368 + t349 * t1996 + 0.3e1 * t2267 * t255 + 0.3e1 * t228 * t2521 + 0.3e1 * t585 * t908 + 0.3e1 * t834 * t664 + t85 * t8042 - t7129) + 0.154e3 / 0.27e2 * t1703;
8462   t8055 = t2002 * t118;
8463   t8059 = t183 * t670;
8464   t8076 = t183 * t684;
8465   t8079 = t2009 * t10 * t1114;
8466   t8093 = -0.539e3 / 0.21870e5 * t47 * t14 * t1703 + t685 * t2527 * t927 / 0.108e3 + 0.125e3 / 0.1458e4 * t375 * t2025 * t6838 - 0.5e1 / 0.27e2 * t2542 * t7125 * t919 - t46 * t8048 * t263 / 0.180e3 + 0.5e1 / 0.54e2 * t2542 * t919 * t670 - t918 * t677 * t8055 / 0.108e3 + 0.5e1 / 0.162e3 * t2556 * t8059 * t919 + t266 * t8048 * t263 / 0.180e3 + 0.5e1 / 0.162e3 * t2024 * t914 * t2535 + 0.5e1 / 0.54e2 * t915 * t2535 - t2528 * t26 * t920 / 0.36e2 - t2531 * t2539 / 0.36e2 - 0.125e3 / 0.2187e4 * t375 * t8076 * t8079 + t2550 * t2553 / 0.108e3 + t926 * t58 * t8055 / 0.324e3 + 0.25e2 / 0.4374e4 * t6857 * t2614 * t8079 - 0.5e1 / 0.27e2 * t915 * t183 * t2544;
8467   t8105 = t706 * t2527;
8468   t8110 = t130 * t183 * t2079;
8469   t8130 = t387 * t183;
8470   t8148 = -0.500e3 / 0.81e2 * t946 * t8105 * t261 - 0.50000e5 / 0.6561e4 * t8110 * t374 * t2009 * t58 - 0.500e3 / 0.81e2 * t946 * t2594 * t670 - 0.25e2 / 0.81e2 * t279 * t281 * t8048 - 0.50e2 / 0.81e2 * t943 * t2058 - 0.50e2 / 0.27e2 * t2581 * t711 - 0.5e1 / 0.9e1 * params->c1 * t8048 * t132 - 0.500e3 / 0.27e2 * t940 * t708 - 0.500e3 / 0.27e2 * t8130 * t2055 - 0.500e3 / 0.243e3 * t946 * t947 * t2002 - 0.2500e4 / 0.243e3 * t2589 * t914 * t674 * t15 - 0.2500e4 / 0.243e3 * t2589 * t4213 * t3090 - 0.10000e5 / 0.729e3 * t8130 * t2051 - 0.50e2 / 0.27e2 * t2578 * t26 * t282;
8471   t8168 = t15 * t137;
8472   t8169 = t2025 * t8168;
8473   t8176 = t2079 * t374;
8474   t8180 = t2094 * t374;
8475   t8185 = t914 * t183 * t2615;
8476   t8198 = t730 * t8176;
8477   t8199 = t3523 * t2074;
8478   t8215 = t287 * t968;
8479   t8218 = t2092 * t8180;
8480   t8221 = -0.1250e4 / 0.2187e4 * t6968 * t6970 * t374 * t8169 - 0.25e2 / 0.81e2 * t969 * t6946 - 0.25e2 / 0.27e2 * t2631 * t2075 - 0.10000e5 / 0.729e3 * t287 * t8176 * t8169 - 0.5000e4 / 0.243e3 * t730 * t8180 * t8169 - 0.500e3 / 0.27e2 * t2080 * t8185 - 0.50e2 / 0.27e2 * t2619 * t2075 - 0.250e3 / 0.81e2 * t2095 * t8185 - 0.25e2 / 0.27e2 * t730 * t732 * t2527 * t961 - 0.50e2 / 0.81e2 * t959 * t6946 - 0.500e3 / 0.27e2 * t8198 * t8199 - 0.500e3 / 0.27e2 * t2069 * t8185 - 0.5000e4 / 0.729e3 * t2092 * t6950 * t374 * t8169 - 0.5e1 / 0.9e1 * t288 * t8048 * t10 * t290 - 0.50e2 / 0.27e2 * t287 * t8105 * t961 - 0.500e3 / 0.27e2 * t8215 * t8199 - 0.250e3 / 0.81e2 * t8218 * t8199;
8481   t8222 = my_piecewise3(t129, t393 * t2061 * t135 + t393 * t2066 * t135 + 0.3e1 * t2604 * t285 * t135 + 0.3e1 * t954 * t714 * t135 + 0.3e1 * t954 * t716 * t135 + t8148 * t135 + 0.3e1 * t2609 * t286, t8221);
8482   t8244 = t168 * (-0.1540e4 / 0.6561e4 * t7091 - 0.209e3 / 0.243e3 * t30 * t6274 * t42 + 0.2809e4 / 0.480e3 * t184 * t31 * t1713 * t42 - 0.18837e5 / 0.12800e5 * t782 * t1722 + 0.29403e5 / 0.256000e6 * t2176 * t1734 - 0.19683e5 / 0.1280000e7 * t6251 * t1727 / t1729 / t60 * t42 + 0.2e1 * t2029 * t381 + 0.6e1 * t690 * t930 + 0.6e1 * t270 * t2559 + 0.2e1 * t121 * t8093) * t140 + 0.6e1 * t497 * t938 * t693 + 0.12e2 * t497 * t2565 * t273 + 0.1174e1 * t8222 + 0.6e1 * t497 * t498 * t973 - 0.6e1 * t497 * t934 * t693 - 0.6e1 * t497 * t2563 * t273 + 0.6e1 * t497 * t936 * t693 - 0.3e1 * t168 * t273 * t2639 - 0.6e1 * t1691 * t1692 * t399 - t168 * t384 * t2099;
8483   t8263 = t1691 * t384;
8484   t8275 = -t168 * t2032 * t399 - 0.3e1 * t168 * t2562 * t294 - 0.3e1 * t168 * t693 * t973 - 0.3e1 * t168 * t933 * t737 + 0.18e2 * t1691 * t934 * t498 - 0.18e2 * t1691 * t936 * t498 - 0.24e2 * t6195 * t385 * t1692 - 0.2e1 * t497 * t385 * t2032 + 0.6e1 * t497 * t2568 * t273 - t128 * t8222 + 0.18e2 * t8263 * t1696;
8485   t8290 = t54 * t2 * t4;
8486   t8302 = t1665 * t306;
8487   t8306 = t67 * t306;
8488   t8312 = t5 * t741;
8489   t8315 = t997 * t1684;
8490   t8326 = 0.10390590000000000000e4 * t7083 * t7084 * t4382 * sigma[0] * t26 * t146 - 0.3e1 / 0.8e1 * t164 * t7 * (t8244 + t8275) * t158 + 0.36339922418771700000e3 * t985 * t2686 + 0.36339922418771700000e3 * t409 * t1345 * t54 * t2140 - t2145 * t978 / 0.2e1 + t8290 * t404 / 0.9e1 - 0.32302153261130400000e3 * t2139 * t403 * t2140 + 0.24226614945847800000e3 * t407 * t408 * t410 * t1665 * t753 * t7077 + 0.5497666666666666667e0 * t8302 * t981 * t316 + 0.89062200000000000000e2 * t8306 * t981 * t756 + 0.33398325000000000000e2 * t2658 * t992 - 0.90609313607680788975e2 * t8312 * t999 - 0.10335484506728653772e1 * t995 * t2672 * t8315 * t157 - 0.65726558181610899501e3 * t995 * t3663 * rho[0] * t7077 + 0.80541612095716256868e2 * t1686 * t2655;
8491   t8374 = -0.3e1 / 0.2e1 * t767 * t2644 - 0.77929425000000000000e2 * t985 * t2679 + 0.66796650000000000000e3 * t985 * t2669 - 0.18603872112111576789e1 * t2663 * t2675 + 0.24162483628714877061e3 * t760 * t976 * t410 * t762 + 0.86588250000000000000e2 * t409 * t754 * t988 * t67 - 0.33559005039881773695e2 * t995 * t8315 * t762 - 0.15101552267946798162e3 * t2663 * t2682 - 0.15585885000000000000e4 * t409 * t2666 * t157 * t1703 * t148 + 0.92773125000000000000e0 * t407 * t2103 * t413 - 0.59374800000000000000e3 * t2119 * t402 * t2126 * t2128 + 0.16536775210765846035e1 * t1686 * t402 * t10 * t2134 - 0.89062200000000000000e2 * t749 * t2647 * t756 - 0.74218500000000000000e1 * t307 * t308 * t2642 * t316 - 0.24739500000000000000e1 * t2149 * t2647 * t316;
8492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8493     v4rho3sigma[0] = t8326 + t8374;
8494 
8495   t8399 = t214 * t6356;
8496   t8400 = t425 * t183;
8497   t8406 = t214 * t7188;
8498   t8409 = t6300 * t75;
8499   t8428 = t1034 * t26;
8500   t8432 = t1758 * t565;
8501   t8435 = -0.2000e4 / 0.2187e4 * t8399 * t8400 * t1714 + 0.9e1 / 0.4e1 * t2724 * t1773 - 0.50e2 / 0.81e2 * t8406 * t2738 + 0.105e3 / 0.8e1 * t8409 * t1023 * t1770 + 0.9e1 / 0.2e1 * t1022 * t2784 * t582 - 0.6e1 * t553 * t2758 - 0.3e1 * t1758 * t1035 - t6282 * t426 - 0.3e1 * t1758 * t1027 - 0.3e1 * t553 * t2755 - 0.1540e4 / 0.243e3 * t1029 * t1030 * t1739 - 0.50e2 / 0.81e2 * t2736 * t8428 * t577 - 0.10e2 / 0.9e1 * t8432 * t1031;
8502   t8436 = t553 * t2224;
8503   t8441 = t214 * t7181;
8504   t8446 = t2761 * t10;
8505   t8460 = t553 * t1782;
8506   t8471 = 0.520e3 / 0.19683e5 * t2194;
8507   t8472 = 0.247e3 / 0.8748e4 * t2196;
8508   t8475 = -0.20e2 / 0.9e1 * t8436 * t1031 - 0.20e2 / 0.9e1 * t2741 * t2748 - 0.10e2 / 0.9e1 * t8441 * t1031 - 0.20e2 / 0.9e1 * t2744 * t2748 - 0.10e2 / 0.9e1 * t1029 * t8446 * t193 + 0.110e3 / 0.27e2 * t2741 * t2771 + 0.110e3 / 0.27e2 * t2744 * t2771 + 0.110e3 / 0.27e2 * t1029 * t2747 * t534 + 0.550e3 / 0.243e3 * t2736 * t2737 * t1801 - 0.50e2 / 0.81e2 * t8460 * t2738 - 0.3e1 * t553 * t2762 - t214 * t7223 * t425 - 0.3e1 * t214 * t2221 * t1034 + (-0.1100e4 / 0.729e3 * t2165 - t8471 + t8472) * t83;
8509   t8480 = t1761 * t216;
8510   t8485 = t558 * t569;
8511   t8499 = t1016 * t557;
8512   t8502 = t2730 * t213;
8513   t8505 = t423 * t1768;
8514   t8510 = -0.45e2 / 0.4e1 * t2732 * t2784 * t559 + 0.9e1 * t8480 * t1024 + 0.9e1 * t2778 * t2785 + 0.9e1 / 0.2e1 * t8485 * t1024 + 0.9e1 * t2781 * t2785 + 0.3e1 / 0.2e1 * t1022 * t1023 * t1806 + 0.9e1 / 0.2e1 * t2778 * t2788 + 0.9e1 / 0.2e1 * t2781 * t2788 - t1018 * t1806 / 0.2e1 + 0.9e1 / 0.4e1 * t8499 * t559 - 0.3e1 / 0.2e1 * t8502 * t225 - 0.15e2 / 0.8e1 * t8505 * t1770 - 0.3e1 / 0.2e1 * t2774 * t582;
8515   t8517 = t79 * t2761;
8516   t8521 = t6285 * t75;
8517   t8524 = t6290 * t75;
8518   t8527 = t1769 * t216;
8519   t8531 = t558 * t1782 * t425;
8520   t8540 = t1761 * t2765;
8521   t8544 = t558 * t2224 * t425;
8522   t8548 = t558 * t565 * t1034;
8523   t8554 = t1769 * t2765;
8524   t8562 = -0.3e1 * t214 * t812 * t2761 - t214 * t215 * (-t8471 + t8472) + 0.9e1 / 0.2e1 * t1022 * t8517 * t225 + 0.9e1 / 0.2e1 * t8521 * t1024 - 0.45e2 / 0.4e1 * t8524 * t2733 - 0.45e2 / 0.4e1 * t8527 * t2733 + 0.25e2 / 0.27e2 * t8531 * t58 * t510 * t225 + 0.5e1 / 0.3e1 * t2766 * t582 * t10 * t193 + 0.10e2 / 0.3e1 * t8540 * t2768 + 0.10e2 / 0.3e1 * t8544 * t2768 + 0.10e2 / 0.3e1 * t8548 * t2768 - 0.55e2 / 0.9e1 * t2766 * t2767 * t534 - 0.25e2 / 0.6e1 * t8554 * t559 * t10 * t193 - 0.45e2 / 0.4e1 * t2732 * t1023 * t1773;
8525   t8564 = t8435 + t8475 + t8510 + t8562;
8526   t8578 = t2816 * t6522;
8527   t8581 = t1058 * t7431;
8528   t8589 = t2968 * t2483;
8529   t8592 = t1058 * t7522;
8530   t8603 = t430 * t1982;
8531   t8608 = 0.12751277419167548965e1 * t6509 * t1059 + 0.10984233449757140111e2 * t4109 * t8578 - 0.89901964350980565762e0 * t7430 * t8581 + 0.44950982175490282881e0 * t3476 * t1058 * t6390 + 0.80224916908241017662e0 * t7517 * t8581 + 0.1428938704017162240e1 * t2482 * t8589 + 0.714469352008581120e0 * t2482 * t8592 - 0.15062248783813849042e1 * t2987 * t6542 + 0.67692822862798455802e0 * t1052 * t6618 + 0.21252129031945914941e0 * t6614 * t1059 + 0.44950982175490282881e0 * t2965 * t1914 + 0.87446194859244818739e0 * t8603 * t6538 + 0.11378729917768353994e1 * t2982 * t1876;
8532   t8613 = t615 * t1088;
8533   t8622 = t2844 * t94;
8534   t8623 = t604 * t8622;
8535   t8626 = t236 * t2938;
8536   t8629 = t2827 * t236;
8537   t8634 = t1045 * t615;
8538   t8637 = t2883 * t90;
8539   t8645 = 0.21252129031945914941e0 * t1052 * t6533 + 0.44950982175490282881e0 * t2965 * t1938 - 0.59502499971174729836e0 * t8613 * t1943 + 0.80224916908241017663e0 * t2965 * t1897 + 0.714469352008581120e0 * t4086 * t1906 + 0.63756387095837744823e0 * t1879 * t2969 + 0.63756387095837744823e0 * t603 * t8623 + 0.89901964350980565762e0 * t8626 * t627 + 0.63756387095837744823e0 * t8629 * t606 + 0.63756387095837744823e0 * t2982 * t1886 - 0.84395584650891170840e0 * t8634 * t1873 + 0.8298005667840e1 * t8637 * t2362 - 0.357234676004290560e0 * t1840 * t2893 + 0.975074869248e0 * t97 * t2938 * t658;
8540   t8649 = t2917 * t6617;
8541   t8651 = t6584 * t428;
8542   t8654 = t1062 * t6398;
8543   t8658 = t2867 * t1821;
8544   t8660 = t6605 * t433;
8545   t8661 = t8660 * t6617;
8546   t8663 = t2863 * t1885;
8547   t8665 = t599 * t2792;
8548   t8670 = t2849 * t6617;
8549   t8674 = t6423 * t433;
8550   t8675 = t8674 * t6617;
8551   t8677 = t590 * t2792;
8552   t8684 = t231 * t8564;
8553   t8687 = -0.10708320e2 * t2896 * t1949 - 0.42833280e2 * t8649 + 0.10145661348248508867e2 * t8651 * t7338 + 0.3185225478400e1 * t8654 - 0.57334058611200e2 * t2958 * t7333 + 0.32124960e2 * t8658 - 0.68216827389720576000e2 * t8661 - 0.10708320e2 * t8663 + 0.9555676435200e1 * t8665 * t892 + 0.3185225478400e1 * t1048 * t6778 + 0.114668117222400e3 * t8670 - 0.3569440e1 * t1041 * t6778 + 0.10145661348248508867e2 * t8675 - 0.10708320e2 * t8677 * t892 + 0.32124960e2 * t1062 * t6703 + 0.32124960e2 * t1048 * t7333 + 0.1784720e1 * t8684 * t99;
8554   t8688 = t6434 * t428;
8555   t8693 = t618 * t2844;
8556   t8694 = t8693 * t605;
8557   t8698 = t1830 * t1037;
8558   t8703 = t1925 * t1073;
8559   t8704 = t8703 * t1821;
8560   t8706 = t1861 * t1073;
8561   t8707 = t8706 * t1821;
8562   t8717 = -t239 * t8564 * t94;
8563   t8719 = t2867 * t1885;
8564   t8723 = t1836 * t1037;
8565   t8726 = t631 * t2844;
8566   t8727 = t8726 * t605;
8567   t8729 = t1069 * t6398;
8568   t8731 = -0.68216827389720576000e2 * t8688 * t7338 - 0.57334058611200e2 * t2917 * t6703 + 0.9555676435200e1 * t8694 - 0.42833280e2 * t2958 * t7338 - 0.57334058611200e2 * t8698 * t2316 + 0.17054206847430144000e2 * t2849 * t6703 - 0.57334058611200e2 * t8704 + 0.17054206847430144000e2 * t8707 + 0.114668117222400e3 * t2836 * t7338 + 0.32124960e2 * t2883 * t2316 + 0.9555676435200e1 * t2883 * t1949 + 0.1784720e1 * t8717 + 0.9555676435200e1 * t8719 + 0.17054206847430144000e2 * t2836 * t7333 + 0.17054206847430144000e2 * t8723 * t2316 - 0.10708320e2 * t8727 - 0.3569440e1 * t8729;
8569   t8736 = t644 * t3022;
8570   t8745 = t1847 * t1101;
8571   t8766 = t2883 * t2296;
8572   t8771 = -0.258304e0 * t97 * t245 * (t8687 + t8731) + 0.975074869248e0 * t97 * t8736 * t249 - 0.922000629760e0 * t1042 * t7532 - 0.38253832257502646895e1 * t8698 * t591 * t102 - 0.2202015477522235392e1 * t97 * t8745 * t645 - 0.2143408056025743360e1 * t2962 * t7789 + 0.8298005667840e1 * t2962 * t7762 + 0.44051698455185959158e1 * t237 * t8707 - 0.13606156761889987933e2 * t616 * t8674 * t6541 + 0.26206649088979828343e1 * t237 * t8675 + 0.29391714526792369101e0 * t8723 * t591 * t102 - 0.61023519165317445059e0 * t616 * t1062 * t6472 + 0.58783429053584738202e0 * t8766 * t2299 - 0.12751277419167548965e1 * t2824 * t7917;
8573   t8776 = t1048 * t236;
8574   t8790 = t1048 * t7901;
8575   t8793 = t2836 * t7684;
8576   t8803 = t1101 * t631;
8577   t8807 = -0.16468529812403272839e0 * t1052 * t6693 + 0.20722416937066287826e0 * t1052 * t6700 + 0.38253832257502646895e1 * t8776 * t8002 - 0.119078225334763520e0 * t1055 * t6387 - 0.119078225334763520e0 * t625 * t434 * t7938 - 0.32937059624806545678e0 * t2884 * t251 - 0.16468529812403272839e0 * t2874 * t251 - 0.16468529812403272839e0 * t1049 * t660 + 0.29391714526792369101e0 * t8790 * t2299 + 0.13549589651714352352e0 * t8793 * t2299 - 0.16468529812403272839e0 * t1052 * t6697 + 0.25502554838335097929e1 * t2824 * t7991 - 0.21968466899514280222e2 * t616 * t2849 * t6541 + 0.714469352008581120e0 * t625 * t8803 * t1821;
8578   t8830 = t1041 * t615;
8579   t8843 = -0.92817332546461565657e1 * t6421 * t8674 * t7294 + 0.20312390406477209506e2 * t1983 * t8674 * t6537 - 0.18307055749595233518e1 * t616 * t2867 * t1910 + 0.56906378609746093243e1 * t1983 * t8706 * t2430 - 0.12751277419167548965e1 * t1052 * t6729 + 0.29391714526792369101e0 * t2803 * t7466 - 0.84395584650891170841e0 * t2987 * t6733 + 0.11378729917768353994e1 * t1052 * t6704 + 0.16879116930178234168e1 * t8830 * t7475 + 0.21799717097663792993e0 * t2987 * t6726 - 0.38906391098542524630e0 * t2803 * t7986 - 0.22757459835536707989e1 * t2824 * t7582 - 0.29391714526792369101e0 * t1052 * t6707 + 0.52455980750256876982e0 * t2803 * t7587;
8580   t8844 = t1058 * t619;
8581   t8845 = t1871 * t8844;
8582   t8848 = t2896 * t236;
8583   t8855 = t8677 * t90;
8584   t8860 = t2958 * t585;
8585   t8863 = t1101 * t618;
8586   t8867 = t441 * t1861;
8587   t8880 = t2968 * t240;
8588   t8881 = t1820 * t8880;
8589   t8885 = t1871 * t4535 * t240;
8590   t8888 = 0.38253832257502646895e1 * t603 * t8845 - 0.25502554838335097930e1 * t8848 * t2293 - 0.32937059624806545678e0 * t2982 * t1817 + 0.461000314880e0 * t237 * t8717 - 0.2766001889280e1 * t8855 * t841 + 0.29619233351014809600e2 * t237 * t8670 - 0.38253832257502646895e1 * t8860 * t3975 - 0.63756387095837744824e0 * t625 * t8863 * t1821 - 0.37929099725894513314e0 * t625 * t8867 * t6617 + 0.47287857283434471985e0 * t1941 * t8863 * t1872 - 0.48997150734706182895e0 * t6566 * t8867 * t6537 + 0.84395584650891170840e0 * t1941 * t8867 * t6541 - 0.25502554838335097930e1 * t603 * t8881 - 0.16879116930178234169e1 * t1870 * t8885;
8591   t8890 = t1871 * t8880;
8592   t8895 = t604 * t1058 * t585;
8593   t8904 = t4071 * t8844;
8594   t8908 = t1871 * t2816 * t636;
8595   t8912 = t4040 * t4042 * t619;
8596   t8915 = t2816 * t619;
8597   t8916 = t4040 * t8915;
8598   t8919 = t433 * t636;
8599   t8920 = t8919 * t94;
8600   t8921 = t1871 * t8920;
8601   t8924 = t4040 * t8844;
8602   t8929 = t1101 * t249;
8603   t8930 = t1843 * t8929;
8604   t8933 = t1084 * t1816;
8605   t8936 = 0.22757459835536707989e1 * t603 * t8890 + 0.29391714526792369101e0 * t7732 * t236 * t8895 - 0.75919974291285761083e-1 * t1882 * t2809 - 0.58783429053584738202e0 * t1882 * t2813 + 0.32937059624806545678e0 * t1052 * t6485 - 0.68272379506610123966e1 * t603 * t8904 - 0.84395584650891170841e0 * t1870 * t8908 + 0.26233858457773445622e1 * t6536 * t8912 - 0.45186746351441547127e1 * t1870 * t8916 + 0.11378729917768353994e1 * t603 * t8921 + 0.20307846858839536740e1 * t603 * t8924 - 0.12751277419167548965e1 * t2824 * t6722 + 0.89901964350980565762e0 * t609 * t8930 + 0.41444833874132575653e0 * t7828 * t8933;
8606   t8964 = t2836 * t228;
8607   t8965 = t97 * t6721;
8608   t8970 = t8919 * t605;
8609   t8973 = -0.75919974291285761083e-1 * t2837 * t251 - 0.2766001889280e1 * t237 * t8727 + 0.10984233449757140111e2 * t616 * t8703 * t1872 - 0.22762551443898437297e2 * t1983 * t8660 * t6537 + 0.39207562244901126197e2 * t616 * t8660 * t6541 - 0.357234676004290560e0 * t625 * t2845 * t626 - 0.25306658097095253694e-1 * t6635 * t1081 + 0.98811178874419637035e0 * t2959 * t251 - 0.119078225334763520e0 * t625 * t1084 * t6398 + 0.44950982175490282881e0 * t1840 * t2905 - 0.119078225334763520e0 * t6512 * t1081 + 0.29391714526792369101e0 * t8964 * t8965 - 0.98018905612252815489e1 * t4046 * t8578 - 0.14809616675507404800e2 * t4072 * t8970;
8610   t8988 = t1815 * t1058 * t658;
8611   t8991 = t1820 * t8920;
8612   t8999 = t610 * t3022;
8613   t9004 = t1102 * t242;
8614   t9007 = t442 * t638;
8615   t9012 = 0.44051698455185959158e1 * t4081 * t8970 + 0.32937059624806545678e0 * t1889 * t2809 + 0.25502554838335097929e1 * t1889 * t2813 + 0.16879116930178234168e1 * t6530 * t2818 - 0.22757459835536707989e1 * t1889 * t2821 - 0.16468529812403272839e0 * t603 * t8988 - 0.12751277419167548965e1 * t603 * t8991 - 0.714469352008581120e0 * t625 * t2931 * t6617 + 0.44950982175490282881e0 * t2890 * t1844 - 0.357234676004290560e0 * t609 * t8999 - 0.16468529812403272839e0 * t1879 * t2800 - 0.32937059624806545678e0 * t603 * t9004 - 0.16468529812403272839e0 * t603 * t9007 - 0.75919974291285761083e-1 * t1882 * t2800;
8616   t9013 = t442 * t622;
8617   t9016 = t442 * t641;
8618   t9031 = t6683 * t441;
8619   t9047 = 0.21799717097663792992e0 * t1870 * t9013 - 0.29391714526792369101e0 * t603 * t9016 - 0.357234676004290560e0 * t625 * t1074 * t1937 - 0.2766001889280e1 * t237 * t8663 + 0.63756387095837744823e0 * t2883 * t585 * t102 - 0.922000629760e0 * t237 * t8729 + 0.822756481972633600e0 * t237 * t8654 + 0.23916119461575365556e1 * t97 * t9031 * t1848 - 0.12751277419167548965e1 * t7439 * t3852 - 0.16468529812403272839e0 * t1879 * t2809 - 0.12751277419167548965e1 * t1879 * t2813 - 0.84395584650891170841e0 * t6680 * t2818 + 0.11378729917768353994e1 * t1879 * t2821 - 0.2766001889280e1 * t2897 * t1902;
8620   t9078 = t2827 * t90;
8621   t9084 = 0.461000314880e0 * t8684 * t102 - 0.11756685810716947640e1 * t8688 * t1831 * t102 - 0.11064007557120e2 * t237 * t8649 - 0.714469352008581120e0 * t6596 * t1081 + 0.63756387095837744823e0 * t8665 * t228 * t102 + 0.45165298839047841173e-1 * t8651 * t1831 * t102 - 0.357234676004290560e0 * t625 * t2921 * t1885 + 0.32937059624806545678e0 * t6648 * t1081 + 0.21252129031945914941e0 * t1048 * t1809 * t102 - 0.14809616675507404800e2 * t237 * t8704 - 0.17620679382074383663e2 * t237 * t8661 + 0.20722416937066287826e0 * t1049 * t647 - 0.357234676004290560e0 * t9078 * t611 + 0.44950982175490282881e0 * t1852 * t1074 * t1853;
8622   t9087 = t441 * t1925;
8623   t9114 = t2816 * t7571;
8624   t9120 = t1062 * t7817;
8625   t9123 = 0.714469352008581120e0 * t6642 * t4020 - 0.94575714566868943969e0 * t1941 * t9087 * t6541 + 0.12751277419167548965e1 * t625 * t9087 * t6617 - 0.89901964350980565762e0 * t1042 * t7554 + 0.44950982175490282881e0 * t1055 * t6391 + 0.29391714526792369101e0 * t1882 * t2969 + 0.45165298839047841173e-1 * t6625 * t1059 + 0.94575714566868943972e0 * t2506 * t4535 * t2483 + 0.47287857283434471986e0 * t2506 * t2816 * t6654 + 0.47287857283434471985e0 * t2506 * t2816 * t7522 - 0.14699145220411854869e1 * t7602 * t4042 * t7571 + 0.25318675395267351252e1 * t7720 * t9114 - 0.33837660950279469264e0 * t6571 * t434 * t7560 + 0.43599434195327585985e0 * t7816 * t9120;
8626   t9126 = t1069 * t1816;
8627   t9129 = t1062 * t1816;
8628   t9140 = t1048 * t7772;
8629   t9150 = t441 * t658;
8630   t9156 = t1041 * t625;
8631   t9162 = 0.65874119249613091356e0 * t7821 * t9126 - 0.58783429053584738202e0 * t7821 * t9129 + 0.1428938704017162240e1 * t2897 * t2409 + 0.714469352008581120e0 * t1042 * t7766 + 0.714469352008581120e0 * t1042 * t7621 + 0.8298005667840e1 * t237 * t8658 - 0.15183994858257152217e0 * t9140 * t1817 - 0.16468529812403272839e0 * t1867 * t2893 - 0.18307055749595233518e1 * t616 * t8693 * t862 + 0.2468269445917900800e1 * t237 * t8694 - 0.2202015477522235392e1 * t3991 * t9150 * t249 - 0.357234676004290560e0 * t2890 * t1976 + 0.65874119249613091356e0 * t9156 * t7777 + 0.325024956416e0 * t97 * t1088 * t1970;
8632   t9165 = t236 * t2953;
8633   t9172 = t1843 * t9150;
8634   t9175 = t3022 * t239;
8635   t9179 = t441 * t645;
8636   t9180 = t6555 * t9179;
8637   t9184 = t610 * t441 * t585;
8638   t9197 = t1058 * t6654;
8639   t9200 = 0.12751277419167548965e1 * t1052 * t6658 - 0.10151298285083840779e1 * t9165 * t1854 - 0.89901964350980565762e0 * t2965 * t1857 + 0.714469352008581120e0 * t1930 * t2893 + 0.44950982175490282881e0 * t609 * t9172 - 0.357234676004290560e0 * t625 * t9175 * t605 - 0.10151298285083840779e1 * t609 * t9180 - 0.16468529812403272839e0 * t7733 * t9184 + 0.20722416937066287826e0 * t1867 * t2905 - 0.63756387095837744823e0 * t4086 * t1893 + 0.16879116930178234168e1 * t2987 * t6651 - 0.22757459835536707989e1 * t1052 * t6622 - 0.12751277419167548965e1 * t2982 * t1822 + 0.714469352008581120e0 * t2482 * t9197;
8640   t9202 = t433 * t619;
8641   t9203 = t9202 * t626;
8642   t9227 = t4071 * t8915;
8643   t9231 = t3475 * t1058 * t645;
8644   t9234 = t442 * t633;
8645   t9237 = 0.38253832257502646895e1 * t7576 * t9203 - 0.12751277419167548965e1 * t2488 * t8589 - 0.63756387095837744823e0 * t2488 * t9197 - 0.63756387095837744823e0 * t2488 * t8592 - 0.11378729917768353994e1 * t7754 * t9203 + 0.8298005667840e1 * t4067 * t8970 + 0.47287857283434471984e0 * t4090 * t1911 + 0.76507664515005293790e1 * t2836 * t1831 * t102 - 0.33837660950279469264e0 * t1055 * t6556 - 0.38906391098542524630e0 * t6502 * t2818 + 0.52455980750256876982e0 * t1882 * t2821 + 0.50637350790534702506e1 * t1870 * t9227 + 0.20722416937066287826e0 * t603 * t9231 + 0.32937059624806545678e0 * t603 * t9234;
8646   t9239 = t1815 * t2968 * t249;
8647   t9258 = t2958 * t7684;
8648   t9270 = t2958 * t90;
8649   t9273 = -0.32937059624806545678e0 * t603 * t9239 - 0.59502499971174729837e0 * t7513 * t2816 * t7431 - 0.28372714370060683191e1 * t7570 * t9114 - 0.2143408056025743360e1 * t2488 * t9203 - 0.12751277419167548965e1 * t1889 * t2969 - 0.58783429053584738202e0 * t6628 * t1059 + 0.56906378609746093242e1 * t4041 * t4042 * t6522 + 0.32937059624806545678e0 * t1889 * t2800 - 0.17635028716075421460e1 * t9258 * t2299 - 0.58783429053584738202e0 * t2803 * t7994 + 0.2468269445917900800e1 * t237 * t8719 - 0.98018905612252815491e1 * t616 * t8706 * t1872 - 0.89901964350980565762e0 * t1930 * t2905 - 0.11064007557120e2 * t9270 * t7793;
8650   t9278 = my_piecewise3(t87, 0, t8608 + t8645 + t8771 + t8807 + t8843 + t8888 + t8936 + t8973 + t9012 + t9047 + t9084 + t9123 + t9162 + t9200 + t9237 + t9273);
8651   t9279 = my_piecewise3(t86, 0, t9278);
8652   t9281 = 0.3e1 * t1037 * t664 + t8564 * t104 + 0.3e1 * t585 * t1107 + t1809 * t447 + t428 * t1996 + 0.3e1 * t228 * t3030 + 0.3e1 * t2792 * t255 + t85 * t9279;
8653   t9292 = t1144 * t1109;
8654   t9317 = t449 * t2009;
8655   t9321 = t2588 * t449;
8656   t9330 = t1135 * t706;
8657   t9333 = -t9281;
8658   t9337 = t3081 * t280;
8659   t9341 = t29 * t670;
8660   t9345 = -params->c1 * t9281 * t131 + 0.100e3 / 0.27e2 * t2044 * t1146 - 0.500e3 / 0.81e2 * t461 * t2050 * t183 - 0.5e1 / 0.9e1 * t1137 * t2083 * t14 + 0.100e3 / 0.27e2 * t3096 * t9292 + 0.50e2 / 0.27e2 * t279 * t1144 * t1109 * t670 + 0.500e3 / 0.27e2 * t946 * t1164 * t261 * t670 - 0.5e1 / 0.3e1 * t3083 * t3090 + 0.50e2 / 0.27e2 * t279 * t1144 * t3032 * t261 + 0.500e3 / 0.27e2 * t946 * t3142 * t674 + 0.5e1 / 0.3e1 * t1141 * t3113 + 0.5e1 / 0.9e1 * t2041 * t10 * t465 + 0.10000e5 / 0.729e3 * t8110 * t9317 * t15 + 0.500e3 / 0.27e2 * t2047 * t9321 + 0.5e1 / 0.3e1 * t3093 * t1149 + 0.50e2 / 0.81e2 * t279 * t1144 * t449 * t2002 - 0.50e2 / 0.27e2 * t9330 * t3087 + 0.5e1 / 0.9e1 * t463 * t464 * t9333 - 0.5e1 / 0.3e1 * t9337 * t1138 - 0.50e2 / 0.27e2 * t3086 * t261 * t26 * t9341;
8661   t9364 = t730 * t732 * t3032;
8662   t9370 = t287 * t706 * t3032;
8663   t9378 = t6968 * t6970;
8664   t9379 = t9317 * t6928;
8665   t9384 = t670 * t26 * t4199 * t137;
8666   t9387 = t287 * t2079;
8667   t9390 = t730 * t2094;
8668   t9395 = t287 * t3142;
8669   t9403 = t2092 * t2094 * t1109;
8670   t9408 = t2092 * t6950;
8671   t9412 = t730 * t2079 * t1109;
8672   t9415 = 0.5e1 / 0.3e1 * t9364 * t291 + 0.10e2 / 0.3e1 * t3130 * t726 + 0.10e2 / 0.3e1 * t9370 * t291 + 0.10e2 / 0.9e1 * t1158 * t2084 + t287 * t280 * t9333 * t137 + 0.250e3 / 0.243e3 * t9378 * t9379 + 0.25e2 / 0.27e2 * t3149 * t9384 + 0.2000e4 / 0.81e2 * t9387 * t9379 + 0.1000e4 / 0.27e2 * t9390 * t9379 + 0.50e2 / 0.9e1 * t3126 * t9384 + 0.50e2 / 0.9e1 * t9395 * t722 + 0.50e2 / 0.9e1 * t3134 * t9384 + 0.5e1 / 0.3e1 * t3143 * t726 + 0.25e2 / 0.27e2 * t9403 * t722 + 0.5e1 / 0.9e1 * t1165 * t2084 + 0.1000e4 / 0.81e2 * t9408 * t9379 + 0.50e2 / 0.9e1 * t9412 * t722;
8673   t9416 = my_piecewise3(t129, 0.3e1 * t1152 * t714 * t135 + 0.3e1 * t1152 * t716 * t135 + t468 * t2061 * t135 + t468 * t2066 * t135 + 0.3e1 * t3116 * t285 * t135 + t9345 * t135 + 0.3e1 * t3121 * t286, t9415);
8674   t9418 = t1124 * t294;
8675   t9422 = t3061 * t140;
8676   t9435 = t497 * t690;
8677   t9446 = t3033 * t114;
8678   t9456 = t2083 * t1114;
8679   t9460 = t183 * t114;
8680   t9461 = t9460 * t118;
8681   t9469 = t685 * t3032;
8682   t9472 = t1110 * t116;
8683   t9475 = t2024 * t1109;
8684   t9478 = t6857 * t449;
8685   t9494 = t9446 * t1115 / 0.20e2 + t3036 * t3042 / 0.20e2 - t266 * t9333 * t118 / 0.100e3 - t3053 * t3042 / 0.60e2 - t1121 * t9456 / 0.180e3 - 0.25e2 / 0.162e3 * t450 * t2009 * t9461 - t4135 * t2553 / 0.36e2 - t1110 * t674 * t687 / 0.36e2 - t9469 * t1115 / 0.60e2 + t9472 * t3047 / 0.18e2 - t9475 * t3047 / 0.108e3 - 0.5e1 / 0.486e3 * t9478 * t2026 + t1113 * t9456 / 0.60e2 + t46 * t9333 * t118 / 0.100e3 + 0.25e2 / 0.243e3 * t1121 * t2026 - t2024 * t3109 * t927 / 0.108e3 + t450 * t7125 * t927 / 0.18e2;
8686   t9505 = 0.2e1 * t168 * t2029 * t455 * t140 - 0.6e1 * t1691 * t1692 * t473 + 0.1174e1 * t9416 + 0.24e2 * t1004 * t9418 * t273 - 0.12e2 * t1004 * t9422 * t273 - 0.12e2 * t168 * t2717 * t294 - 0.6e1 * t168 * t1009 * t737 - 0.3e1 * t168 * t693 * t1169 - 0.12e2 * t9435 * t1006 - t168 * t2032 * t473 - t128 * t9416 - 0.6e1 * t168 * t1125 * t737 - 0.12e2 * t2699 * t2710 + 0.2e1 * t168 * t121 * t9494 * t140 + 0.6e1 * t497 * t498 * t1169 + 0.6e1 * t497 * t1132 * t693;
8687   t9524 = t455 * t737;
8688   t9531 = t6195 * t121;
8689   t9541 = t1691 * t270;
8690   t9560 = 0.36e2 * t2695 * t1005 * t273 * t693 + 0.6e1 * t168 * t690 * t1124 * t140 + 0.6e1 * t168 * t270 * t3061 * t140 - 0.4e1 * t1004 * t1005 * t2032 - 0.12e2 * t1004 * t2702 * t693 + 0.12e2 * t1004 * t2706 * t693 + 0.12e2 * t1004 * t9524 * t273 - 0.48e2 * t9531 * t1005 * t1692 - 0.2e1 * t168 * t456 * t2099 - 0.6e1 * t168 * t2713 * t294 - 0.3e1 * t168 * t273 * t3153 - 0.6e1 * t168 * t3062 * t294 + 0.36e2 * t2695 * t2702 * t498 - 0.36e2 * t2695 * t2706 * t498 + 0.36e2 * t9541 * t2696 - 0.24e2 * t2699 * t2703 + 0.24e2 * t2699 * t2707;
8691   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8692     v4rho3lapl[0] = t8290 * t478 / 0.9e1 - t2145 * t1174 / 0.2e1 + 0.5497666666666666667e0 * t8302 * t1177 * t316 - 0.3e1 / 0.2e1 * t767 * t3158 - 0.24739500000000000000e1 * t2149 * t3161 * t316 + 0.89062200000000000000e2 * t8306 * t1177 * t756 + 0.80541612095716256868e2 * t1686 * t3169 - 0.3e1 / 0.8e1 * t164 * t7 * (t9505 + t9560) * t158 - 0.74218500000000000000e1 * t307 * t308 * t3156 * t316 - 0.89062200000000000000e2 * t749 * t3161 * t756 + 0.24162483628714877061e3 * t760 * t1172 * t410 * t762 - 0.59374800000000000000e3 * t2119 * t476 * t2126 * t2128 + 0.16536775210765846035e1 * t1686 * t476 * t10 * t2134 - 0.32302153261130400000e3 * t2139 * t477 * t2140;
8693 
8694   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8695     v4rho3tau[0] = 0.0e0;
8696 
8697   t9635 = -0.29687400000000000000e2 * t749 * t3630 * t756 - 0.38964712500000000000e3 * t7083 * t7084 * t5575 * t26 * t146 - 0.41747906250000000000e1 * t407 * t741 * t753 * t1348 - 0.49479000000000000000e1 * t307 * t308 * t3625 * t316 + 0.24647459318104087313e3 * t995 * t5085 * t16 * t7077 + 0.80541612095716256868e2 * t760 * t1335 * t410 * t762 + 0.18554625000000000000e1 * t407 * t2643 * t413 + 0.44531100000000000000e3 * t1340 * t2669 - 0.12402581408074384526e1 * t3639 * t2675 - 0.90849806046929250000e2 * t407 * t408 * t997 * t489 * t753 * t7077 - 0.28769105248194262500e3 * t409 * t3663 * t481 * t2140 - 0.90849806046929250000e2 * t985 * t3665 + 0.24226614945847800000e3 * t1340 * t2686 - 0.16699162500000000000e3 * t985 * t3648;
8698   t9642 = t1357 * t17;
8699   t9652 = t5 * t977;
8700   t9679 = t1308 * t183;
8701   t9684 = t3563 * t280;
8702   t9695 = t914 * t914;
8703   t9713 = t35 * t557;
8704   t9717 = t831 * t831;
8705   t9725 = t2254 * sigma[0];
8706   t9739 = t1209 * t573;
8707   t9740 = t9739 * t26;
8708   t9753 = t58 * t509;
8709   t9758 = -0.16e2 / 0.6561e4 * t812 * t3251 - 0.430e3 / 0.59049e5 * t565 * t9725 - 0.220e3 / 0.81e2 * t3234 * t534 + 0.80e2 / 0.27e2 * t2225 * t773 + 0.25e2 / 0.432e3 * t2243 * t1185 * t569 + 0.125e3 / 0.243e3 * t7160 * t188 * t216 * sigma[0] + 0.100e3 / 0.243e3 * t9740 * t577 - 0.5e1 / 0.9e1 * t7182 * t319 - 0.10e2 / 0.9e1 * t7185 * t319 - 0.1000e4 / 0.729e3 * t7152 * t2255 - 0.5e1 / 0.9e1 * t7196 * t319 - 0.5375e4 / 0.2916e4 * t1796 * t9725 + 0.475e3 / 0.486e3 * t574 * t9753 - 0.50e2 / 0.81e2 * t7189 * t800;
8710   t9763 = t1782 * t183;
8711   t9765 = t526 * t31 * t15;
8712   t9775 = t818 * t818;
8713   t9793 = 0.25e2 / 0.9e1 * t2230 * t2196 - 0.50e2 / 0.81e2 * t7192 * t800 + 0.50e2 / 0.177147e6 * t9763 * t9765 + 0.3125e4 / 0.26244e5 * t6339 * t9765 + 0.80e2 / 0.27e2 * t3714 * t818 * t172 + 0.4e1 * t1378 * t2238 + 0.4e1 * t9775 * t79 + 0.80e2 / 0.27e2 * t2233 * t773 - 0.440e3 / 0.81e2 * t815 * t2165 - 0.50e2 / 0.81e2 * t2243 * t825 * t216 + t2221 * t1214 / 0.4374e4 + 0.20e2 / 0.19683e5 * t2224 * t3248 + 0.152e3 / 0.19683e5 * t215 * t9753 + 0.25e2 / 0.432e3 * t6352 * t1214;
8714   t9806 = 0.3e1 / 0.2e1 * t558 * t3261 * t225 + 0.3e1 / 0.2e1 * t1761 * t3228 - t58 * t3210 * t582 / 0.17496e5 + t58 * t9713 * t559 / 0.11664e5 + 0.3e1 / 0.2e1 * t558 * t9717 - t1758 * t1219 / 0.2e1 - t553 * t3261 - t214 * (t9758 + t9793) / 0.2e1 - t804 * t2264 + 0.3e1 / 0.4e1 * t6285 * t1206 - t7251 * t346 - 0.2e1 * t2200 * t831 - 0.15e2 / 0.2e1 * t1769 * t809 * t831;
8715   t9837 = t176 * t213;
8716   t9841 = 0.3e1 / 0.2e1 * t558 * t346 * t2264 - 0.15e2 / 0.4e1 * t7147 * t2212 - 0.15e2 / 0.8e1 * t1769 * t1206 * t582 + 0.76e2 / 0.19683e5 * t58 * t509 * t83 + 0.3e1 * t2202 * t2215 + 0.3e1 / 0.2e1 * t2202 * t2218 + 0.3e1 / 0.4e1 * t558 * t1219 * t582 - 0.15e2 / 0.8e1 * t1769 * t1219 * t559 + 0.105e3 / 0.16e2 * t6300 * t1206 * t559 - 0.15e2 / 0.4e1 * t6290 * t3220 + 0.3e1 * t1761 * t3223 + 0.3e1 * t7130 * t809 + 0.4e1 / 0.6561e4 * t58 * t9837 * t225;
8717   t9842 = t9806 + t9841;
8718   t9856 = t873 * t873;
8719   t9857 = t618 * t9856;
8720   t9861 = t231 * t9842;
8721   t9866 = t1830 * t1222;
8722   t9874 = t3305 * t1821;
8723   t9877 = t6605 * t1240;
8724   t9899 = -0.12204703833063489012e1 * t616 * t9857 * t621 + 0.461000314880e0 * t9861 * t102 - 0.54895099374677576129e-1 * t3434 * t1976 - 0.12751277419167548965e1 * t9866 * t591 * t102 - 0.922000629760e0 * t3500 * t1902 - 0.238156450669527040e0 * t854 * t7633 + 0.2766001889280e1 * t237 * t9874 - 0.22762551443898437297e2 * t1983 * t9877 * t2430 + 0.17489238971848963747e1 * t8022 * t7671 - 0.30124497567627698084e1 * t2493 * t7675 + 0.75858199451789026627e0 * t851 * t7932 - 0.11756685810716947640e1 * t7685 * t3280 - 0.10979019874935515226e0 * t851 * t7679 - 0.85008516127783659764e0 * t851 * t7896 + 0.33758233860356468336e1 * t2493 * t7889 - 0.45514919671073415976e1 * t851 * t7689 + 0.19594476351194912734e0 * t7902 * t3280;
8725   t9901 = t604 * t857 * t585;
8726   t9908 = t1227 * t615;
8727   t9915 = t1230 * t615;
8728   t9923 = t6584 * t1226;
8729   t9927 = t362 * t902;
8730   t9928 = t1843 * t9927;
8731   t9933 = t618 * t3370;
8732   t9934 = t9933 * t605;
8733   t9937 = t3489 * t249;
8734   t9938 = t2487 * t9937;
8735   t9941 = t857 * t873;
8736   t9942 = t1871 * t9941;
8737   t9945 = t1240 * t240;
8738   t9946 = t9945 * t94;
8739   t9947 = t4040 * t9946;
8740   t9950 = t2481 * t9937;
8741   t9953 = t1871 * t9946;
8742   t9956 = -0.85008516127783659764e0 * t2291 * t9901 + 0.14983660725163427627e0 * t3329 * t1844 - 0.42504258063891829883e0 * t3458 * t1886 + 0.56263723100594113894e0 * t9908 * t1873 - 0.75858199451789026629e0 * t3458 * t1876 + 0.21252129031945914941e0 * t3461 * t1886 - 0.28131861550297056947e0 * t9915 * t1873 + 0.37929099725894513314e0 * t3461 * t1876 + 0.2766001889280e1 * t3325 * t90 * t2362 + 0.45165298839047841173e-1 * t9923 * t591 * t102 + 0.59934642900653710508e0 * t609 * t9928 - 0.54895099374677576130e-1 * t1867 * t3381 + 0.1645512963945267200e1 * t237 * t9934 - 0.19594476351194912734e0 * t603 * t9938 + 0.15171639890357805326e1 * t603 * t9942 + 0.13538564572559691160e1 * t603 * t9947 + 0.21958039749871030452e0 * t603 * t9950 + 0.25502554838335097930e1 * t603 * t9953;
8743   t9958 = t1820 * t9941;
8744   t9961 = t4071 * t9946;
8745   t9965 = t1815 * t3493 * t249;
8746   t9968 = t3493 * t240;
8747   t9969 = t1820 * t9968;
8748   t9973 = t1871 * t4883 * t240;
8749   t9976 = t1245 * t249;
8750   t9977 = t2283 * t9976;
8751   t9985 = t631 * t9856 * t94;
8752   t9988 = t621 * t2311;
8753   t10002 = t1925 * t1253;
8754   t10006 = t10002 * t1821;
8755   t10009 = t9877 * t1821;
8756   t10015 = t6423 * t1240;
8757   t10016 = t10015 * t1821;
8758   t10019 = -0.17001703225556731953e1 * t603 * t9958 - 0.45514919671073415978e1 * t603 * t9961 - 0.10979019874935515226e0 * t603 * t9965 - 0.85008516127783659765e0 * t603 * t9969 - 0.56263723100594113894e0 * t1870 * t9973 + 0.10696655587765469022e1 * t7517 * t9977 + 0.90330597678095682346e-1 * t7905 * t3280 - 0.56263723100594113893e0 * t2493 * t7667 - 0.1844001259520e1 * t237 * t9985 - 0.12204703833063489012e1 * t616 * t861 * t9988 + 0.36614111499190467036e1 * t616 * t3364 * t1910 + 0.14983660725163427627e0 * t1852 * t1254 * t1853 - 0.29967321450326855254e0 * t1852 * t1261 * t631 * t1821 + 0.36614111499190467036e1 * t616 * t10002 * t1872 - 0.4936538891835801600e1 * t237 * t10006 - 0.17620679382074383663e2 * t237 * t10009 + 0.76507664515005293790e1 * t3358 * t591 * t102 + 0.26206649088979828343e1 * t237 * t10016;
8759   t10020 = t3297 * t1885;
8760   t10030 = t1261 * t249;
8761   t10031 = t6555 * t10030;
8762   t10036 = t3345 * t90;
8763   t10039 = t834 * t834;
8764   t10040 = t599 * t10039;
8765   t10043 = t362 * t636;
8766   t10044 = t857 * t10043;
8767   t10047 = t362 * t619;
8768   t10048 = t1409 * t10047;
8769   t10051 = t7577 * t1245;
8770   t10057 = t902 * t240;
8771   t10069 = t7425 * t1245;
8772   t10074 = 0.14683899485061986386e1 * t237 * t10020 - 0.13606156761889987933e2 * t616 * t10015 * t1872 - 0.10979019874935515226e0 * t3326 * t251 + 0.952625802678108160e0 * t2368 * t3403 - 0.67675321900558938528e0 * t609 * t10031 - 0.29967321450326855254e0 * t3446 * t1844 - 0.11064007557120e2 * t10036 * t2362 + 0.42504258063891829882e0 * t10040 * t102 + 0.476312901339054080e0 * t2482 * t10044 - 0.18915142913373788794e1 * t7570 * t10048 + 0.25502554838335097930e1 * t7576 * t10051 + 0.63050476377912629314e0 * t2506 * t3398 * t3480 + 0.63050476377912629314e0 * t2506 * t1409 * t10057 + 0.31525238188956314657e0 * t2506 * t1409 * t10043 - 0.97994301469412365794e0 * t7602 * t5726 * t10047 + 0.16879116930178234168e1 * t7720 * t10048 - 0.85008516127783659766e0 * t2488 * t10069 - 0.42504258063891829883e0 * t2488 * t10044;
8773   t10080 = t610 * t902 * t228;
8774   t10086 = t631 * t3370 * t605;
8775   t10089 = t3358 * t2296;
8776   t10105 = t604 * t2500 * t228;
8777   t10112 = t3348 * t236;
8778   t10117 = t3325 * t2296;
8779   t10122 = 0.97972381755974563669e-1 * t3464 * t1886 + 0.952625802678108160e0 * t839 * t10080 + 0.476312901339054080e0 * t839 * t7735 - 0.1844001259520e1 * t237 * t10086 + 0.90330597678095682346e-1 * t10089 * t2299 - 0.17001703225556731953e1 * t7892 * t3273 - 0.21958039749871030452e0 * t2510 * t2305 - 0.17001703225556731953e1 * t2510 * t2308 + 0.39188952702389825468e0 * t7663 * t3280 - 0.11252744620118822779e1 * t8019 * t2280 + 0.15171639890357805325e1 * t2510 * t2285 - 0.17001703225556731953e1 * t2291 * t10105 - 0.21958039749871030452e0 * t851 * t7455 - 0.17001703225556731953e1 * t851 * t7459 - 0.85008516127783659765e0 * t10112 * t2293 - 0.10979019874935515226e0 * t3461 * t1817 + 0.19594476351194912734e0 * t10117 * t2299 - 0.21958039749871030452e0 * t851 * t7929;
8780   t10127 = t3351 * t90;
8781   t10130 = t590 * t3264;
8782   t10158 = t610 * t834 * t249;
8783   t10164 = t101 * t834;
8784   t10165 = t97 * t10164;
8785   t10172 = -0.21958039749871030452e0 * t2510 * t2288 - 0.476312901339054080e0 * t2365 * t2371 - 0.238156450669527040e0 * t10127 * t611 - 0.1844001259520e1 * t10130 * t90 * t841 + 0.42504258063891829882e0 * t851 * t7299 - 0.28131861550297056947e0 * t6680 * t3472 - 0.75858199451789026628e0 * t1889 * t3497 + 0.85008516127783659766e0 * t1889 * t3490 - 0.42504258063891829882e0 * t1889 * t3494 - 0.1428938704017162240e1 * t2488 * t10051 + 0.13814944624710858551e0 * t851 * t7909 + 0.25502554838335097929e1 * t851 * t7912 + 0.650049912832e0 * t97 * t644 * t3377 * t249 - 0.238156450669527040e0 * t625 * t3371 * t626 + 0.952625802678108160e0 * t839 * t10158 - 0.50613316194190507388e-1 * t3431 * t251 + 0.39188952702389825468e0 * t2335 * t228 * t10165 + 0.238156450669527040e0 * t625 * t1274 * t631 * t1821;
8786   t10184 = t838 * t237;
8787   t10185 = t605 * t228;
8788   t10186 = t861 * t10185;
8789   t10189 = t1274 * t249;
8790   t10190 = t1843 * t10189;
8791   t10194 = t610 * t362 * t591;
8792   t10197 = t3489 * t2483;
8793   t10200 = t249 * t873;
8794   t10201 = t857 * t10200;
8795   t10204 = t3471 * t2483;
8796   t10213 = t6434 * t1226;
8797   t10224 = t1861 * t1253;
8798   t10233 = -0.51005109676670195860e1 * t2322 * t228 * t10165 + 0.15762619094478157329e0 * t1941 * t1241 * t6394 + 0.65874119249613091357e0 * t3503 * t251 + 0.2766001889280e1 * t3434 * t1902 - 0.30343279780715610650e1 * t10184 * t10186 + 0.29967321450326855254e0 * t609 * t10190 - 0.1428938704017162240e1 * t2361 * t10194 + 0.25502554838335097930e1 * t7576 * t10197 - 0.85008516127783659765e0 * t2488 * t10201 + 0.16879116930178234169e1 * t7720 * t10204 + 0.650049912832e0 * t97 * t888 * t2357 + 0.97972381755974563669e-1 * t3358 * t585 * t102 - 0.11756685810716947640e1 * t10213 * t591 * t102 - 0.734005159174078464e0 * t97 * t1847 * t1274 * t645 - 0.61023519165317445059e0 * t616 * t3305 * t1910 + 0.18968792869915364414e1 * t1983 * t10224 * t2430 - 0.32672968537417605163e1 * t616 * t10224 * t1872 + 0.69074723123554292753e-1 * t3434 * t1844;
8799   t10234 = t94 * t2357;
8800   t10238 = t590 * t10039;
8801   t10243 = -t239 * t9842 * t94;
8802   t10248 = t861 * t7298;
8803   t10251 = t610 * t3377;
8804   t10254 = t599 * t3264;
8805   t10258 = t3370 * t94;
8806   t10259 = t604 * t10258;
8807   t10265 = t892 * t834;
8808   t10268 = t99 * t2267;
8809   t10273 = t3364 * t1885;
8810   t10275 = t869 * t7298;
8811   t10282 = t3364 * t1821;
8812   t10288 = 0.42833280e2 * t847 * t10265 - 0.7138880e1 * t838 * t10268 + 0.6370450956800e1 * t10254 * t892 - 0.19111352870400e2 * t10273 - 0.7138880e1 * t10275 + 0.6370450956800e1 * t9934 - 0.42833280e2 * t3345 * t2316 + 0.3185225478400e1 * t3325 * t1949 - 0.42833280e2 * t10282 - 0.68216827389720576000e2 * t10213 * t2316 - 0.19111352870400e2 * t3345 * t1949;
8813   t10307 = -0.76445411481600e2 * t2343 * t7458 + 0.6370450956800e1 * t10248 + 0.114668117222400e3 * t3358 * t2316 - 0.19111352870400e2 * t9866 * t2316 + 0.5684735615810048000e1 * t3358 * t1949 - 0.7138880e1 * t10130 * t892 - 0.7138880e1 * t10086 + 0.1784720e1 * t10243 + 0.22738942463240192000e2 * t2335 * t10265 + 0.22738942463240192000e2 * t2354 * t7458 - 0.68216827389720576000e2 * t10009;
8814   t10313 = t3305 * t1885;
8815   t10326 = t3297 * t1821;
8816   t10328 = t1836 * t1222;
8817   t10331 = -0.76445411481600e2 * t2322 * t10265 + 0.10145661348248508867e2 * t9923 * t2316 + 0.3185225478400e1 * t10313 + 0.10708320e2 * t1233 * t1949 + 0.10708320e2 * t3325 * t2316 + 0.1784720e1 * t9861 * t99 + 0.42833280e2 * t861 * t7458 + 0.10708320e2 * t9874 + 0.6370450956800e1 * t847 * t10268 + 0.114668117222400e3 * t10326 + 0.5684735615810048000e1 * t10328 * t2316;
8818   t10333 = t1241 * t1885;
8819   t10341 = t9857 * t94;
8820   t10345 = t3367 * t1885;
8821   t10348 = t10224 * t1821;
8822   t10350 = -0.19111352870400e2 * t10006 + 0.10708320e2 * t10333 + 0.6370450956800e1 * t10040 * t99 - 0.3569440e1 * t3348 * t1949 + 0.10145661348248508867e2 * t10016 + 0.5684735615810048000e1 * t10020 + 0.6370450956800e1 * t10341 - 0.7138880e1 * t10238 * t99 - 0.3569440e1 * t10345 - 0.7138880e1 * t9985 + 0.5684735615810048000e1 * t10348;
8823   t10362 = t840 * t2267;
8824   t10374 = t1262 * t242;
8825   t10377 = -0.238156450669527040e0 * t625 * t355 * t10234 - 0.1844001259520e1 * t10238 * t102 + 0.461000314880e0 * t237 * t10243 - 0.29967321450326855254e0 * t1930 * t3335 + 0.1645512963945267200e1 * t237 * t10248 - 0.238156450669527040e0 * t609 * t10251 + 0.42504258063891829882e0 * t10254 * t228 * t102 + 0.42504258063891829882e0 * t603 * t10259 + 0.29967321450326855254e0 * t236 * t3293 * t627 - 0.258304e0 * t97 * t245 * (t10288 + t10307 + t10331 + t10350) - 0.2936020636696313856e1 * t3991 * t2474 * t902 + 0.325024956416e0 * t97 * t3293 * t658 - 0.1844001259520e1 * t839 * t10362 + 0.1645512963945267200e1 * t237 * t10341 - 0.238156450669527040e0 * t7942 * t881 + 0.59934642900653710508e0 * t854 * t7758 - 0.238156450669527040e0 * t625 * t2312 * t1245 + 0.13814944624710858551e0 * t603 * t10374;
8826   t10381 = t1275 * t242;
8827   t10386 = t10164 * t242;
8828   t10391 = t3345 * t2296;
8829   t10408 = t1274 * t618;
8830   t10416 = t840 * t228 * t834;
8831   t10423 = t6426 * t619;
8832   t10427 = -0.10979019874935515226e0 * t603 * t10381 + 0.25502554838335097930e1 * t3464 * t2293 - 0.17001703225556731953e1 * t2291 * t10386 + 0.21958039749871030452e0 * t3458 * t1817 - 0.11756685810716947640e1 * t10391 * t2299 + 0.21958039749871030452e0 * t851 * t7920 + 0.21958039749871030452e0 * t1889 * t3290 - 0.21968466899514280222e2 * t616 * t3297 * t1872 + 0.29619233351014809600e2 * t237 * t10326 - 0.1428938704017162240e1 * t3434 * t2409 - 0.119078225334763520e0 * t625 * t3427 * t1885 + 0.15762619094478157328e0 * t1941 * t10408 * t1872 - 0.21252129031945914941e0 * t625 * t10408 * t1821 + 0.11064007557120e2 * t2361 * t10416 + 0.14983660725163427627e0 * t1840 * t3335 + 0.238156450669527040e0 * t1930 * t3381 - 0.92817332546461565657e1 * t6421 * t10015 * t10423;
8833   t10455 = t902 * t902;
8834   t10467 = t857 * t7425;
8835   t10470 = t3351 * t236;
8836   t10473 = 0.20312390406477209506e2 * t1983 * t10015 * t2430 - 0.32672968537417605163e1 * t616 * t3297 * t1910 - 0.119078225334763520e0 * t625 * t1254 * t1937 + 0.65874119249613091356e0 * t2381 * t364 - 0.67675321900558938528e0 * t854 * t7845 + 0.822756481972633600e0 * t237 * t10313 + 0.14683899485061986386e1 * t237 * t10348 - 0.10979019874935515226e0 * t2395 * t364 - 0.21958039749871030452e0 * t848 * t904 - 0.21252129031945914941e0 * t625 * t1241 * t1937 - 0.19834166657058243280e0 * t6801 * t1241 * t6802 + 0.650049912832e0 * t97 * t644 * t10455 - 0.119078225334763520e0 * t3329 * t1976 + 0.69074723123554292755e-1 * t1867 * t3335 + 0.952625802678108160e0 * t2482 * t10201 - 0.18915142913373788795e1 * t7570 * t10204 + 0.11064007557120e2 * t4067 * t10467 + 0.42504258063891829882e0 * t10470 * t606;
8837   t10496 = t236 * t1847 * t239;
8838   t10521 = -0.1428938704017162240e1 * t2488 * t10197 - 0.97994301469412365794e0 * t7602 * t5296 * t2483 + 0.75875171479661457657e1 * t4041 * t5726 * t7425 + 0.85008516127783659766e0 * t3458 * t1822 - 0.42504258063891829882e0 * t3461 * t1822 - 0.19594476351194912734e0 * t3464 * t1822 + 0.42504258063891829882e0 * t7317 * t858 + 0.85008516127783659764e0 * t2510 * t2501 + 0.56263723100594113894e0 * t6530 * t3472 - 0.67675321900558938528e0 * t10496 * t857 * t7844 - 0.12204703833063489012e1 * t616 * t9933 * t862 - 0.1844001259520e1 * t237 * t10275 + 0.2766001889280e1 * t237 * t10333 + 0.238156450669527040e0 * t625 * t1249 * t1937 - 0.21958039749871030452e0 * t2398 * t364 - 0.12751277419167548965e1 * t3345 * t585 * t102 + 0.26741638969413672554e0 * t1852 * t1241 * t1853 + 0.14983660725163427627e0 * t1852 * t3301 * t1885;
8839   t10522 = t1261 * t618;
8840   t10547 = t4879 * t240;
8841   t10548 = t861 * t10547;
8842   t10551 = t605 * t362;
8843   t10552 = t861 * t10551;
8844   t10555 = t355 * t9976;
8845   t10558 = t869 * t10551;
8846   t10571 = -0.19834166657058243279e0 * t6801 * t10522 * t1872 + 0.26741638969413672554e0 * t1852 * t10522 * t1821 - 0.238156450669527040e0 * t625 * t3377 * t239 * t605 - 0.50613316194190507389e-1 * t2384 * t364 - 0.29967321450326855254e0 * t1852 * t1249 * t1853 - 0.11064007557120e2 * t237 * t10282 - 0.734005159174078464e0 * t97 * t3449 * t658 + 0.42504258063891829882e0 * t2361 * t10362 + 0.238156450669527040e0 * t3446 * t1976 + 0.29066289463551723990e0 * t7816 * t10548 - 0.39188952702389825468e0 * t7821 * t10552 + 0.27629889249421717102e0 * t7828 * t10555 + 0.43916079499742060904e0 * t7821 * t10558 + 0.13538564572559691160e1 * t851 * t7935 - 0.10979019874935515226e0 * t851 * t7548 + 0.14533144731775861995e0 * t2493 * t7923 - 0.19594476351194912734e0 * t851 * t7926 - 0.10979019874935515226e0 * t1879 * t3290;
8847   t10576 = t1871 * t9968;
8848   t10586 = t604 * t857 * t591;
8849   t10590 = t1815 * t2500 * t362;
8850   t10594 = t1815 * t857 * t902;
8851   t10597 = t2298 * t875;
8852   t10605 = t2487 * t3471 * t249;
8853   t10608 = t3471 * t240;
8854   t10609 = t4071 * t10608;
8855   t10613 = t1871 * t1409 * t873;
8856   t10617 = t4040 * t5296 * t240;
8857   t10620 = t4040 * t10608;
8858   t10625 = t2474 * t240;
8859   t10631 = -0.50613316194190507389e-1 * t1882 * t3290 + 0.75858199451789026628e0 * t603 * t10576 + 0.97972381755974563669e-1 * t10328 * t591 * t102 + 0.21252129031945914941e0 * t3325 * t585 * t102 + 0.25502554838335097929e1 * t8000 * t10586 - 0.21958039749871030452e0 * t603 * t10590 - 0.21958039749871030452e0 * t603 * t10594 + 0.39188952702389825468e0 * t2297 * t10597 - 0.11252744620118822779e1 * t2493 * t7878 + 0.15171639890357805325e1 * t851 * t7545 + 0.14533144731775861996e0 * t1870 * t10605 + 0.33758233860356468337e1 * t1870 * t10609 - 0.11252744620118822779e1 * t1870 * t10613 + 0.17489238971848963748e1 * t6536 * t10617 - 0.30124497567627698084e1 * t1870 * t10620 - 0.11986928580130742102e1 * t7430 * t9977 - 0.79336666628232973116e0 * t7513 * t1409 * t10625 + 0.39188952702389825468e0 * t8000 * t10386;
8860   t10653 = t1233 * t615;
8861   t10670 = t2283 * t3384;
8862   t10673 = -0.50613316194190507388e-1 * t3464 * t1817 - 0.21958039749871030452e0 * t2361 * t10158 + 0.59934642900653710508e0 * t2365 * t2475 + 0.476312901339054080e0 * t3500 * t2409 - 0.922000629760e0 * t237 * t10345 + 0.18968792869915364414e1 * t1983 * t3297 * t6592 - 0.476312901339054080e0 * t625 * t874 * t3384 - 0.4936538891835801600e1 * t237 * t10273 + 0.39207562244901126197e2 * t616 * t9877 * t1872 - 0.12968797032847508210e0 * t10653 * t1873 + 0.17485326916752292327e0 * t3464 * t1876 + 0.37929099725894513314e0 * t1879 * t3497 - 0.19594476351194912734e0 * t1882 * t3490 + 0.21252129031945914941e0 * t1879 * t3494 + 0.97972381755974563669e-1 * t1882 * t3494 - 0.75858199451789026629e0 * t7754 * t10051 - 0.42504258063891829883e0 * t1879 * t3490 - 0.85008516127783659766e0 * t2488 * t10670;
8863   t10678 = t1253 * t240;
8864   t10679 = t10678 * t626;
8865   t10708 = t1409 * t7425;
8866   t10720 = 0.31525238188956314657e0 * t2506 * t4883 * t2483 - 0.42504258063891829882e0 * t2488 * t10679 + 0.17485326916752292327e0 * t1882 * t3497 - 0.75858199451789026628e0 * t7754 * t10197 + 0.58735597940247945544e1 * t4081 * t10467 - 0.67675321900558938528e0 * t236 * t3449 * t627 + 0.59934642900653710508e0 * t2478 * t2452 - 0.12968797032847508210e0 * t6502 * t3472 + 0.59934642900653710508e0 * t3476 * t2500 * t2474 + 0.59934642900653710508e0 * t3476 * t857 * t7757 + 0.29967321450326855254e0 * t3476 * t857 * t7289 + 0.952625802678108160e0 * t2482 * t10069 + 0.952625802678108160e0 * t2482 * t10670 + 0.14645644599676186814e2 * t4109 * t10708 + 0.476312901339054080e0 * t2482 * t10679 - 0.19746155567343206400e2 * t4072 * t10467 - 0.13069187414967042065e2 * t4046 * t10708 + 0.63050476377912629316e0 * t2506 * t1409 * t10200;
8867   t10721 = t838 * t97;
8868   t10722 = t888 * t2408;
8869   t10727 = t351 * t1852;
8870   t10732 = t3402 * t242;
8871   t10735 = t2296 * t614;
8872   t10736 = t847 * t10735;
8873   t10741 = t351 * t625;
8874   t10746 = t351 * t1941;
8875   t10754 = t94 * t228 * t249;
8876   t10755 = t355 * t10754;
8877   t10758 = t869 * t10185;
8878   t10761 = t838 * t616;
8879   t10763 = t621 * t228 * t240;
8880   t10764 = t861 * t10763;
8881   t10775 = -0.11986928580130742102e1 * t10721 * t10722 + 0.27629889249421717102e0 * t2297 * t2475 + 0.27629889249421717102e0 * t10727 * t7829 - 0.10122663238838101478e0 * t7773 * t2288 + 0.43916079499742060904e0 * t7776 * t10732 - 0.51875188131390032840e0 * t10736 * t2280 + 0.69941307667009169309e0 * t7773 * t2285 + 0.43916079499742060904e0 * t10741 * t7822 - 0.10122663238838101478e0 * t7773 * t2305 + 0.29066289463551723990e0 * t10746 * t7818 - 0.39188952702389825468e0 * t10741 * t7825 - 0.78377905404779650936e0 * t7773 * t2308 + 0.43916079499742060904e0 * t7776 * t10755 + 0.34003406451113463906e1 * t10184 * t10758 + 0.22505489240237645558e1 * t10761 * t10764 + 0.29967321450326855254e0 * t854 * t7566 - 0.119078225334763520e0 * t1840 * t3381 + 0.23916119461575365556e1 * t97 * t6683 * t1261 * t645;
8882   t10780 = my_piecewise3(t87, 0, t9899 + t9956 + t10019 + t10074 + t10122 + t10172 + t10233 + t10377 + t10427 + t10473 + t10521 + t10571 + t10631 + t10673 + t10720 + t10775);
8883   t10781 = my_piecewise3(t86, 0, t10780);
8884   t10783 = t9842 * t104 + t85 * t10781 + t1222 * t664 + t585 * t1280 + 0.2e1 * t2267 * t368 + 0.2e1 * t228 * t3510 + 0.2e1 * t349 * t2521 + 0.2e1 * t3264 * t255 + 0.4e1 * t834 * t908;
8885   t10797 = t1306 * t706;
8886   t10805 = -0.2500e4 / 0.729e3 * t2589 * t1286 * t670 * t15 - 0.50000e5 / 0.6561e4 * t8110 * t1286 * t674 * t58 - 0.2000e4 / 0.81e2 * t8130 * t2595 - 0.10000e5 / 0.729e3 * t9679 * t732 * t674 * t15 - 0.20e2 / 0.9e1 * t9684 * t1138 - 0.10e2 / 0.9e1 * t3565 * t3090 - 0.500e3 / 0.81e2 * t1308 * t707 * t670 - 0.10000e5 / 0.729e3 * t2589 * t4213 * t4203 - 0.1000e4 / 0.243e3 * t130 * t707 * t9695 - 0.500e3 / 0.81e2 * t946 * t3613 * t674 - 0.1000e4 / 0.243e3 * t946 * t947 * t2527 - 0.5e1 / 0.9e1 * t463 * t464 * t10783 - 0.100e3 / 0.81e2 * t943 * t2601 - 0.100e3 / 0.81e2 * t279 * t1144 * t3512 * t261 - 0.50e2 / 0.81e2 * t279 * t1144 * t1282 * t670 - 0.50e2 / 0.27e2 * t10797 * t3087 - 0.100e3 / 0.81e2 * params->c1 * t9695 * t703 - params->c1 * t10783 * t131;
8887   t10814 = t954 * t954;
8888   t10839 = t2534 * t8168;
8889   t10843 = t2092 * t2094 * t1282;
8890   t10847 = t9695 * t26 * t721;
8891   t10851 = t58 * t137 * t2527;
8892   t10855 = t730 * t732 * t3512;
8893   t10858 = t261 * t914;
8894   t10859 = t6928 * t10858;
8895   t10865 = -0.5e1 / 0.9e1 * t3614 * t726 - 0.10e2 / 0.9e1 * t3607 * t726 - 0.50e2 / 0.27e2 * t287 * t3613 * t722 - 0.50e2 / 0.27e2 * t730 * t2079 * t1282 * t722 - 0.5000e4 / 0.729e3 * t2092 * t6950 * t1286 * t10839 - 0.25e2 / 0.81e2 * t10843 * t722 - 0.50e2 / 0.81e2 * t733 * t10847 - 0.50e2 / 0.81e2 * t969 * t10851 - 0.10e2 / 0.9e1 * t10855 * t291 - 0.2000e4 / 0.81e2 * t8215 * t10859 - t287 * t280 * t10783 * t137;
8896   t10878 = t3596 * t2074;
8897   t10885 = t2079 * t1286;
8898   t10889 = t2094 * t1286;
8899   t10897 = -0.100e3 / 0.81e2 * t959 * t10851 - 0.100e3 / 0.81e2 * t719 * t10847 - 0.20e2 / 0.9e1 * t287 * t706 * t3512 * t291 - 0.2000e4 / 0.81e2 * t8198 * t10859 - 0.1000e4 / 0.243e3 * t8218 * t10859 - 0.500e3 / 0.81e2 * t2069 * t10878 - 0.1250e4 / 0.2187e4 * t6968 * t6970 * t1286 * t10839 - 0.10000e5 / 0.729e3 * t287 * t10885 * t10839 - 0.5000e4 / 0.243e3 * t730 * t10889 * t10839 - 0.250e3 / 0.243e3 * t2095 * t10878 - 0.500e3 / 0.81e2 * t2080 * t10878;
8900   t10899 = my_piecewise3(t129, t1317 * t714 * t135 + t1317 * t716 * t135 + t1319 * t714 * t135 + t1319 * t716 * t135 + 0.2e1 * t3587 * t285 * t135 + t10805 * t135 + 0.2e1 * t10814 * t135 + 0.2e1 * t394 * t2604 + 0.4e1 * t956 * t955, t10865 + t10897);
8901   t10930 = -t168 * t1300 * t737 - t168 * t693 * t1332 + 0.1174e1 * t10899 - 0.12e2 * t1691 * t3180 * t273 + 0.24e2 * t8263 * t2156 - 0.2e1 * t168 * t2562 * t399 + 0.2e1 * t497 * t1181 * t737 - 0.2e1 * t168 * t273 * t3622 + 0.8e1 * t497 * t3555 * t273 - 0.2e1 * t168 * t384 * t2639 + 0.4e1 * t497 * t3550 * t273 - 0.4e1 * t497 * t3548 * t273 - 0.24e2 * t6195 * t1182 * t498;
8902   t10939 = t31 * t10;
8903   t10951 = t930 * t930;
8904   t10960 = t6899 * t1114;
8905   t10971 = t118 * t2527;
8906   t10981 = t2024 * t1282;
8907   t10990 = t3513 * t114;
8908   t10993 = -0.125e3 / 0.2187e4 * t1287 * t8076 * t10960 + t266 * t10783 * t118 / 0.100e3 - t46 * t10783 * t118 / 0.100e3 + t3535 * t3042 / 0.180e3 + t926 * t58 * t10971 / 0.162e3 + 0.10e2 / 0.243e3 * t2556 * t3523 * t3519 + 0.125e3 / 0.1458e4 * t1287 * t2534 * t6838 + t10981 * t3047 / 0.324e3 + t685 * t9695 * t687 / 0.162e3 - t918 * t677 * t10971 / 0.54e2 - t10990 * t1115 / 0.30e2;
8909   t10994 = t8059 * t118;
8910   t10997 = t685 * t3512;
8911   t11000 = t1283 * t116;
8912   t11026 = 0.5e1 / 0.486e3 * t3541 * t10994 + t10997 * t1115 / 0.90e2 - t11000 * t3047 / 0.54e2 - t46 * t9695 * t26 * t678 / 0.54e2 + 0.25e2 / 0.4374e4 * t6857 * t3596 * t10960 + t1283 * t674 * t687 / 0.108e3 - 0.20e2 / 0.81e2 * t2542 * t3528 * t3519 - 0.5e1 / 0.81e2 * t3527 * t7125 * t118 + 0.10e2 / 0.81e2 * t2542 * t919 * t914 + 0.5e1 / 0.162e3 * t1287 * t10994 - t3516 * t3042 / 0.60e2;
8913   t11054 = t933 * t933;
8914   t11071 = t168 * (0.19e2 / 0.162e3 * t27 * t2258 * t42 - 0.41e2 / 0.32e2 * t184 * t515 * sigma[0] * t42 + 0.1323e4 / 0.3200e4 * t521 * t526 * t10939 * t528 - 0.78003e5 / 0.2048000e7 * t3195 * t2181 + 0.59049e5 / 0.10240000e8 * t6251 * t522 / t1729 / t16 * t42 + 0.4e1 * t10951 + 0.4e1 * t381 * t2559 + 0.2e1 * t690 * t1297 + 0.4e1 * t270 * t3544 + 0.2e1 * t121 * (t10993 + t11026)) * t140 - 0.2e1 * t168 * t3547 * t294 - 0.2e1 * t497 * t1301 * t693 + 0.2e1 * t497 * t498 * t1332 - 0.12e2 * t1691 * t1303 * t498 + 0.4e1 * t497 * t1303 * t693 + 0.8e1 * t497 * t3558 * t273 - 0.4e1 * t168 * t933 * t973 - 0.4e1 * t497 * t11054 * t140 + 0.8e1 * t497 * t936 * t933 + 0.6e1 * t1691 * t1182 * t693 + 0.6e1 * t1691 * t1301 * t498 - 0.4e1 * t497 * t385 * t2562 - t128 * t10899;
8915   t11083 = 0.90609313607680788976e2 * t2663 * t3658 + 0.11326164200960098622e2 * t8312 * t1359 - 0.10067701511964532109e3 * t3639 * t2682 + 0.75507761339733990813e2 * t995 * t9642 * t762 + 0.30615131250000000000e3 * t409 * t2666 * t3646 * t503 + 0.44531100000000000000e2 * t3634 * t992 - 0.12081241814357438530e3 * t9652 * t999 + 0.46509680280278941972e0 * t2663 * t3653 + 0.11627420070069735493e1 * t995 * t2672 * t9642 * t157 - 0.46386562500000000000e0 * t2658 * t1353 - 0.51952950000000000000e2 * t1340 * t2679 - 0.3e1 / 0.8e1 * t164 * t7 * (t10930 + t11071) * t158 - t767 * t3627 - 0.8246500000000000000e0 * t2149 * t3630 * t316 - t2145 * t1337 / 0.6e1;
8916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8917     v4rho2sigma2[0] = t9635 + t11083;
8918 
8919   t11099 = t1476 * t706;
8920   t11110 = t914 * t26;
8921   t11116 = t4191 * t280;
8922   t11123 = t553 * t216;
8923   t11128 = t214 * t569;
8924   t11140 = t2202 * t216;
8925   t11143 = t67 * t557;
8926   t11157 = t11123 * t1387 / 0.2592e4 + 0.5e1 / 0.5832e4 * t3770 * t3777 + t11128 * t1387 / 0.5184e4 + 0.5e1 / 0.5832e4 * t3773 * t3777 - 0.15e2 / 0.2e1 * t8524 * t3767 - 0.15e2 / 0.2e1 * t8527 * t3767 - 0.15e2 / 0.2e1 * t2732 * t2784 * t809 + 0.3e1 * t11140 * t1024 - t58 * t11143 * t559 / 0.6912e4 - t214 * t2238 * t79 * t425 - 0.2e1 * t214 * t3748 * t1034 - t214 * t1378 * t2761 - 0.15e2 / 0.8e1 * t8505 * t2212;
8927   t11172 = t7130 * t75;
8928   t11189 = t58 * t3726 * t582 / 0.10368e5 - t7251 * t426 - 0.13e2 / 0.15552e5 * t3212 + 0.3e1 / 0.2e1 * t8485 * t1375 + 0.3e1 * t2781 * t3742 + 0.3e1 * t2781 * t3732 + 0.3e1 / 0.2e1 * t1022 * t8517 * t346 + 0.3e1 * t11172 * t1024 - 0.13e2 / 0.2916e4 * t3208 + 0.110e3 / 0.81e2 * t1029 * t1030 * t2188 + 0.13e2 / 0.5184e4 * t3790 * t58 * t35 * t225 - t3790 * t58 * t67 * t582 / 0.3456e4 - 0.20e2 / 0.27e2 * t2741 * t3780;
8929   t11199 = t1761 * t215;
8930   t11202 = t558 * t812;
8931   t11205 = sigma[0] * t225;
8932   t11224 = -0.20e2 / 0.27e2 * t2744 * t3780 - 0.20e2 / 0.27e2 * t1029 * t2747 * t792 + 0.250e3 / 0.729e3 * t8399 * t8400 * t2170 - t11199 * t3792 / 0.1728e4 - t11202 * t3792 / 0.1728e4 - 0.5e1 / 0.3888e4 * t3718 * t4807 * t11205 + 0.5e1 / 0.36e2 * t8432 * t1381 + 0.5e1 / 0.18e2 * t8436 * t1381 + 0.5e1 / 0.18e2 * t2741 * t3787 + 0.5e1 / 0.36e2 * t8441 * t1381 + 0.5e1 / 0.18e2 * t2744 * t3787 + 0.5e1 / 0.36e2 * t1029 * t8446 * t329 - 0.2e1 * t2200 * t1027;
8933   t11234 = t346 * t26;
8934   t11238 = t2202 * t2765;
8935   t11254 = t558 * t3714 * t425;
8936   t11263 = -0.2e1 * t2200 * t1035 - t804 * t2755 + 0.10e2 / 0.9e1 * t8548 * t3764 + 0.10e2 / 0.9e1 * t2766 * t831 * t10 * t193 + 0.25e2 / 0.81e2 * t8531 * t11234 * t577 + 0.10e2 / 0.9e1 * t11238 * t2768 - 0.55e2 / 0.27e2 * t2766 * t3763 * t534 + 0.3e1 * t1022 * t2784 * t831 + 0.3e1 * t8480 * t1375 + 0.3e1 * t2778 * t3742 + 0.3e1 * t2778 * t3732 + 0.10e2 / 0.9e1 * t11254 * t2768 - 0.25e2 / 0.108e3 * t8531 * t58 * t545 * t225 + 0.10e2 / 0.9e1 * t8540 * t3764;
8937   t11273 = t1769 * t341;
8938   t11296 = 0.10e2 / 0.9e1 * t8544 * t3764 + 0.3e1 / 0.2e1 * t1022 * t1023 * t2264 + 0.3e1 / 0.2e1 * t3735 * t2788 - 0.15e2 / 0.4e1 * t11273 * t2733 + 0.3e1 / 0.2e1 * t8499 * t809 + 0.3e1 / 0.4e1 * t2724 * t2218 + 0.13e2 / 0.2916e4 * t1384 * t1385 * t825 - 0.13e2 / 0.7776e4 * t3770 * t3753 - 0.13e2 / 0.7776e4 * t3773 * t3753 - 0.185e3 / 0.34992e5 * t1384 * t3776 * t3189 + 0.3e1 / 0.2e1 * t2724 * t2215 + 0.3e1 / 0.2e1 * t3760 * t2788 + 0.3e1 / 0.2e1 * t8521 * t1375;
8939   t11297 = t1769 * t215;
8940   t11316 = t804 * t1782;
8941   t11319 = t2200 * t565;
8942   t11322 = t804 * t2224;
8943   t11327 = t553 * t3714;
8944   t11331 = t214 * t818 * t220;
8945   t11336 = 0.5e1 / 0.6912e4 * t11297 * t58 * t67 * t559 + 0.10e2 / 0.9e1 * t3718 * t1030 * t792 * t225 - 0.25e2 / 0.36e2 * t2736 * t2737 * t2259 + 0.25e2 / 0.162e3 * t8460 * t3708 + 0.25e2 / 0.162e3 * t8406 * t3708 + 0.25e2 / 0.162e3 * t2736 * t8428 * t826 - 0.50e2 / 0.243e3 * t11316 * t2738 - 0.20e2 / 0.27e2 * t11319 * t1031 - 0.20e2 / 0.27e2 * t11322 * t1031 - 0.20e2 / 0.27e2 * t3711 * t2748 - 0.20e2 / 0.27e2 * t11327 * t1031 - 0.20e2 / 0.27e2 * t11331 * t1031 - 0.20e2 / 0.27e2 * t3715 * t2748;
8946   t11342 = t1769 * t565;
8947   t11347 = t341 * t573;
8948   t11348 = t214 * t11347;
8949   t11351 = t1761 * t565;
8950   t11354 = t558 * t2224;
8951   t11367 = t7147 * t75;
8952   t11376 = 0.110e3 / 0.81e2 * t3711 * t2771 + 0.110e3 / 0.81e2 * t3715 * t2771 + 0.25e2 / 0.48e2 * t11342 * t1030 * t329 * t559 - 0.50e2 / 0.243e3 * t11348 * t2738 - 0.5e1 / 0.12e2 * t11351 * t3720 - 0.5e1 / 0.12e2 * t11354 * t3720 - 0.5e1 / 0.12e2 * t3718 * t2747 * t3719 - 0.5e1 / 0.24e2 * t3718 * t1030 * t329 * t582 - 0.2e1 * t804 * t2758 - t804 * t2762 - 0.15e2 / 0.4e1 * t11367 * t2733 - 0.15e2 / 0.2e1 * t2732 * t1023 * t2215 - 0.15e2 / 0.4e1 * t2732 * t1023 * t2218;
8953   t11377 = t1758 * t75;
8954   t11384 = t10939 * t14;
8955   t11402 = t558 * t818;
8956   t11409 = t1761 * t341;
8957   t11412 = t11377 * t1387 / 0.5184e4 + 0.105e3 / 0.8e1 * t8409 * t1023 * t2212 + 0.25e2 / 0.104976e6 * t2736 * t183 * t785 * t11384 - 0.25e2 / 0.9e1 * t8554 * t809 * t10 * t193 - t1018 * t2264 / 0.2e1 - t8502 * t346 / 0.2e1 - t2774 * t831 - t1758 * t1379 - 0.2e1 * t553 * t3749 - 0.2e1 * t553 * t3751 + 0.3e1 * t11402 * t1024 + 0.3e1 * t3735 * t2785 + 0.3e1 * t3760 * t2785 + 0.3e1 * t11409 * t1024;
8958   t11415 = t11157 + t11189 + t11224 + t11263 + t11296 + t11336 + t11376 + t11412;
8959   t11431 = t236 * t4001;
8960   t11439 = t1419 * t240;
8961   t11440 = t11439 * t626;
8962   t11443 = t1088 * t2408;
8963   t11452 = t1982 * t442;
8964   t11458 = t2953 * t2474;
8965   t11465 = 0.29967321450326855254e0 * t11431 * t627 + 0.13814944624710858551e0 * t2297 * t2905 + 0.31525238188956314657e0 * t2506 * t5722 * t2483 - 0.42504258063891829882e0 * t2488 * t11440 - 0.59934642900653710508e0 * t10721 * t11443 + 0.42504258063891829882e0 * t2510 * t2969 + 0.21252129031945914941e0 * t851 * t8623 + 0.15762619094478157328e0 * t4090 * t2427 - 0.48997150734706182895e0 * t11452 * t2431 + 0.84395584650891170840e0 * t4090 * t2434 - 0.67675321900558938528e0 * t232 * t97 * t11458 + 0.29967321450326855254e0 * t8626 * t885 + 0.29967321450326855254e0 * t2965 * t2452;
8966   t11472 = t604 * t1058 * t591;
8967   t11479 = t2883 * t3839;
8968   t11483 = t1048 * t834 * t90;
8969   t11492 = t433 * t240;
8970   t11493 = t11492 * t2304;
8971   t11500 = 0.29967321450326855254e0 * t8626 * t866 - 0.734005159174078464e0 * t3991 * t3862 * t658 + 0.12751277419167548965e1 * t8000 * t11472 - 0.10979019874935515226e0 * t2982 * t2288 - 0.10979019874935515226e0 * t1052 * t7929 + 0.19594476351194912734e0 * t11479 * t2299 + 0.19594476351194912734e0 * t11483 * t2299 + 0.10979019874935515226e0 * t1889 * t3848 - 0.19594476351194912734e0 * t3840 * t7994 + 0.12751277419167548965e1 * t8776 * t10586 + 0.25502554838335097929e1 * t7576 * t11493 - 0.75858199451789026628e0 * t1889 * t3843 + 0.10979019874935515226e0 * t851 * t9234;
8972   t11512 = t1871 * t5722 * t240;
8973   t11515 = t1058 * t873;
8974   t11516 = t1820 * t11515;
8975   t11520 = t1815 * t4075 * t249;
8976   t11533 = t3910 * t236;
8977   t11538 = -0.42504258063891829883e0 * t2824 * t3818 * t638 + 0.56263723100594113894e0 * t8830 * t3818 * t622 - 0.75858199451789026629e0 * t2824 * t3818 * t641 - 0.56263723100594113894e0 * t1870 * t11512 - 0.85008516127783659766e0 * t603 * t11516 - 0.10979019874935515226e0 * t603 * t11520 - 0.85008516127783659764e0 * t8848 * t3273 - 0.85008516127783659764e0 * t2824 * t10105 - 0.42504258063891829882e0 * t2824 * t9901 - 0.58783429053584738202e0 * t9258 * t3280 - 0.85008516127783659766e0 * t2824 * t10386 - 0.85008516127783659765e0 * t11533 * t2293 - 0.85008516127783659766e0 * t8848 * t3819;
8978   t11565 = -0.10979019874935515226e0 * t2982 * t2305 - 0.10979019874935515226e0 * t1052 * t7455 - 0.54895099374677576129e-1 * t1052 * t7679 - 0.85008516127783659764e0 * t2982 * t2308 - 0.85008516127783659764e0 * t1052 * t7459 - 0.42504258063891829882e0 * t1052 * t7896 + 0.16879116930178234168e1 * t2987 * t7889 - 0.22757459835536707989e1 * t1052 * t7689 + 0.19594476351194912734e0 * t8766 * t3280 + 0.97972381755974563669e-1 * t8790 * t3280 + 0.19594476351194912734e0 * t2803 * t10597 + 0.45165298839047841173e-1 * t8793 * t3280 - 0.56263723100594113894e0 * t8634 * t2280;
8979   t11578 = t590 * t3796;
8980   t11579 = t11578 * t90;
8981   t11582 = t97 * t6683;
8982   t11598 = 0.97972381755974563669e-1 * t3840 * t7466 - 0.12968797032847508210e0 * t3840 * t7986 + 0.17485326916752292327e0 * t3840 * t7587 - 0.10979019874935515226e0 * t851 * t9004 - 0.119078225334763520e0 * t1840 * t4114 - 0.1844001259520e1 * t11579 * t841 + 0.23916119461575365556e1 * t11582 * t3862 * t645 - 0.15062248783813849042e1 * t2987 * t7675 + 0.75858199451789026628e0 * t2982 * t2285 + 0.75858199451789026628e0 * t1052 * t7545 + 0.37929099725894513314e0 * t1052 * t7932 + 0.67692822862798455802e0 * t1052 * t7935 - 0.54895099374677576130e-1 * t1052 * t7548;
8983   t11603 = t8919 * t1245;
8984   t11606 = t9202 * t1245;
8985   t11609 = t354 * t658;
8986   t11610 = t1058 * t11609;
8987   t11619 = t433 * t354;
8988   t11620 = t11619 * t1885;
8989   t11623 = t4075 * t240;
8990   t11624 = t1820 * t11623;
8991   t11633 = 0.72665723658879309976e-1 * t2987 * t7923 - 0.97972381755974563671e-1 * t1052 * t7926 - 0.21252129031945914941e0 * t2488 * t11603 - 0.37929099725894513314e0 * t7754 * t11606 + 0.238156450669527040e0 * t2482 * t11610 + 0.476312901339054080e0 * t2368 * t4020 + 0.97972381755974563669e-1 * t1882 * t4076 - 0.21252129031945914941e0 * t2488 * t11610 + 0.14683899485061986386e1 * t4081 * t11620 - 0.85008516127783659765e0 * t603 * t11624 - 0.67675321900558938528e0 * t9165 * t7829 + 0.69074723123554292753e-1 * t851 * t9231 + 0.12751277419167548965e1 * t851 * t8845;
8992   t11647 = t8726 * t857;
8993   t11655 = t1062 * t1409 * t249;
8994   t11658 = t1041 * t237;
8995   t11661 = t430 * t625;
8996   t11666 = t430 * t1941;
8997   t11671 = 0.2766001889280e1 * t2962 * t840 * t349 * t585 + 0.76507664515005293790e1 * t2837 * t3885 - 0.33837660950279469264e0 * t10496 * t1058 * t7844 - 0.119078225334763520e0 * t625 * t2845 * t1245 - 0.922000629760e0 * t237 * t11647 - 0.25937594065695016420e0 * t10736 * t2818 + 0.34970653833504584654e0 * t7773 * t2821 + 0.14533144731775861996e0 * t7816 * t11655 - 0.15171639890357805326e1 * t11658 * t10186 + 0.21958039749871030452e0 * t11661 * t7822 - 0.50613316194190507388e-1 * t9140 * t2305 + 0.14533144731775861995e0 * t11666 * t7818 - 0.19594476351194912734e0 * t11661 * t7825;
8998   t11677 = t2836 * t3983 * t90;
8999   t11682 = t1048 * t237;
9000   t11689 = t2958 * t7772;
9001   t11692 = t1069 * t7298;
9002   t11697 = t1871 * t11623;
9003   t11702 = t1073 * t354;
9004   t11703 = t11702 * t94;
9005   t11704 = t1871 * t11703;
9006   t11709 = -0.39188952702389825468e0 * t9140 * t2308 - 0.119078225334763520e0 * t7942 * t1081 + 0.90330597678095682346e-1 * t11677 * t2299 + 0.21958039749871030452e0 * t9156 * t10732 + 0.25502554838335097930e1 * t11682 * t3983 * t242 + 0.21958039749871030452e0 * t9156 * t3987 * t242 - 0.11756685810716947640e1 * t11689 * t3819 - 0.922000629760e0 * t237 * t11692 - 0.922000629760e0 * t8855 * t1394 + 0.75858199451789026628e0 * t603 * t11697 + 0.37929099725894513314e0 * t1879 * t3843 + 0.75858199451789026628e0 * t603 * t11704 - 0.42504258063891829882e0 * t4095 * t1822;
9007   t11713 = t1058 * t10200;
9008   t11716 = t1058 * t7425;
9009   t11719 = t1069 * t2304;
9010   t11722 = t232 * t237;
9011   t11725 = t430 * t1852;
9012   t11730 = t3839 * t235;
9013   t11731 = t1048 * t11730;
9014   t11737 = t354 * t636;
9015   t11738 = t2816 * t11737;
9016   t11741 = t101 * t6605;
9017   t11742 = t1982 * t11741;
9018   t11743 = t4042 * t7577;
9019   t11746 = t615 * t11741;
9020   t11747 = t2816 * t7577;
9021   t11755 = 0.476312901339054080e0 * t2482 * t11713 + 0.5532003778560e1 * t4067 * t11716 + 0.21958039749871030452e0 * t7821 * t11719 + 0.25502554838335097930e1 * t11722 * t3939 + 0.13814944624710858551e0 * t11725 * t7829 - 0.50613316194190507388e-1 * t9140 * t2288 - 0.50613316194190507388e-1 * t11731 * t1817 + 0.15762619094478157329e0 * t2506 * t2816 * t11609 + 0.36614111499190467036e1 * t4109 * t11738 - 0.22762551443898437297e2 * t11742 * t11743 + 0.39207562244901126197e2 * t11746 * t11747 + 0.42504258063891829882e0 * t2982 * t2501 - 0.12204703833063489012e1 * t616 * t2867 * t3398;
9022   t11756 = t232 * t616;
9023   t11757 = t2917 * t2279;
9024   t11762 = t2849 * t5726 * t240;
9025   t11765 = t434 * t9976;
9026   t11768 = t1069 * t10551;
9027   t11771 = t1062 * t10547;
9028   t11774 = t1062 * t10551;
9029   t11780 = t2863 * t2500;
9030   t11791 = t1101 * t362;
9031   t11796 = t7684 * t840;
9032   t11799 = 0.33758233860356468337e1 * t11756 * t11757 + 0.17489238971848963748e1 * t232 * t1983 * t11762 + 0.13814944624710858551e0 * t7828 * t11765 + 0.21958039749871030452e0 * t7821 * t11768 + 0.14533144731775861995e0 * t7816 * t11771 - 0.19594476351194912734e0 * t7821 * t11774 - 0.238156450669527040e0 * t625 * t3880 * t626 - 0.1844001259520e1 * t237 * t11780 - 0.119078225334763520e0 * t625 * t1420 * t1937 + 0.14983660725163427627e0 * t1852 * t1420 * t1853 + 0.14983660725163427627e0 * t3894 * t1844 - 0.1468010318348156928e1 * t3991 * t11791 * t249 - 0.11756685810716947640e1 * t8688 * t349 * t11796;
9033   t11817 = t1445 * t249;
9034   t11818 = t1843 * t11817;
9035   t11831 = -0.54895099374677576129e-1 * t1400 * t660 + 0.14983660725163427627e0 * t1055 * t7566 - 0.21968466899514280222e2 * t4046 * t11747 - 0.75858199451789026628e0 * t7754 * t11493 - 0.59934642900653710508e0 * t2965 * t7822 - 0.39668333314116486557e0 * t8613 * t7818 + 0.53483277938827345108e0 * t2965 * t7825 - 0.238156450669527040e0 * t2365 * t2893 + 0.29967321450326855254e0 * t609 * t11818 - 0.10979019874935515226e0 * t848 * t1103 - 0.10979019874935515226e0 * t2398 * t443 - 0.54895099374677576130e-1 * t2395 * t443 - 0.29967321450326855254e0 * t1042 * t1843 * t349 * t645;
9036   t11845 = t2968 * t3480;
9037   t11853 = t1048 * t97;
9038   t11854 = t245 * t349;
9039   t11860 = t4063 * t240;
9040   t11864 = t2816 * t11860;
9041   t11867 = 0.238156450669527040e0 * t839 * t9184 + 0.32937059624806545678e0 * t2381 * t443 + 0.29967321450326855254e0 * t2365 * t2905 + 0.31525238188956314656e0 * t4090 * t2418 - 0.42504258063891829882e0 * t4086 * t2350 + 0.29967321450326855254e0 * t3476 * t2968 * t2474 + 0.476312901339054080e0 * t2482 * t11845 + 0.31525238188956314656e0 * t2506 * t4535 * t3480 - 0.42504258063891829882e0 * t2488 * t11845 - 0.1428938704017162240e1 * t11853 * t11854 * t2408 - 0.922000629760e0 * t1042 * t10362 - 0.97994301469412365794e0 * t7602 * t4042 * t11860 + 0.16879116930178234169e1 * t7720 * t11864;
9042   t11870 = t1058 * t10625;
9043   t11876 = t3862 * t242;
9044   t11892 = t599 * t3796;
9045   t11901 = t101 * t6423;
9046   t11902 = t6420 * t11901;
9047   t11903 = t433 * t6426;
9048   t11907 = -0.59934642900653710508e0 * t7430 * t11870 - 0.39668333314116486557e0 * t7513 * t2816 * t10625 + 0.13814944624710858551e0 * t7828 * t11876 - 0.19834166657058243279e0 * t8613 * t2468 + 0.21252129031945914941e0 * t8665 * t349 * t102 + 0.29967321450326855254e0 * t854 * t8930 + 0.14983660725163427627e0 * t854 * t9172 + 0.69074723123554292753e-1 * t1052 * t7909 + 0.12751277419167548965e1 * t1052 * t7912 + 0.42504258063891829882e0 * t11892 * t228 * t102 - 0.238156450669527040e0 * t2890 * t2371 + 0.18968792869915364414e1 * t4041 * t4042 * t11737 - 0.92817332546461565657e1 * t11902 * t11903 * t7577;
9049   t11908 = t1982 * t11901;
9050   t11913 = t615 * t11901;
9051   t11919 = t11702 * t605;
9052   t11926 = t2958 * t3839;
9053   t11929 = t2836 * t3983;
9054   t11932 = t4535 * t2283;
9055   t11943 = 0.20312390406477209506e2 * t11908 * t11743 - 0.32672968537417605163e1 * t4046 * t11738 - 0.13606156761889987933e2 * t11913 * t11747 + 0.14983660725163427627e0 * t3476 * t1058 * t7289 + 0.29367798970123972772e1 * t4081 * t11919 - 0.42504258063891829882e0 * t2488 * t11713 + 0.29367798970123972772e1 * t4081 * t11716 + 0.65874119249613091357e0 * t11926 * t2409 - 0.50613316194190507388e-1 * t11929 * t251 + 0.73228222998380934072e1 * t4109 * t11932 - 0.9873077783671603200e1 * t4072 * t11919 + 0.31525238188956314658e0 * t2506 * t4535 * t4063 + 0.31525238188956314656e0 * t2506 * t2816 * t10057;
9056   t11945 = t11492 * t3384;
9057   t11948 = t2968 * t4063;
9058   t11957 = t1048 * t10735;
9059   t11962 = t2816 * t7425;
9060   t11974 = t1445 * t618;
9061   t11980 = -0.42504258063891829882e0 * t2488 * t11945 + 0.476312901339054080e0 * t2482 * t11948 + 0.5532003778560e1 * t4067 * t11919 - 0.19834166657058243280e0 * t7513 * t2816 * t354 * t645 - 0.25937594065695016420e0 * t11957 * t2280 + 0.34970653833504584654e0 * t9140 * t2285 + 0.73228222998380934072e1 * t4109 * t11962 - 0.9873077783671603200e1 * t4072 * t11716 + 0.476312901339054080e0 * t2482 * t11440 - 0.119078225334763520e0 * t9078 * t881 + 0.21252129031945914941e0 * t1048 * t2267 * t102 - 0.21252129031945914941e0 * t625 * t11974 * t1821 + 0.21252129031945914941e0 * t4095 * t1886;
9062   t11981 = t1397 * t615;
9063   t11994 = t3879 * t94;
9064   t11995 = t604 * t11994;
9065   t12003 = t631 * t3879;
9066   t12004 = t12003 * t605;
9067   t12014 = -0.28131861550297056947e0 * t11981 * t1873 + 0.37929099725894513314e0 * t4095 * t1876 + 0.5532003778560e1 * t8637 * t3984 - 0.54895099374677576130e-1 * t2874 * t364 - 0.25306658097095253694e-1 * t2837 * t364 - 0.42504258063891829882e0 * t2488 * t11948 + 0.42504258063891829882e0 * t603 * t11995 - 0.10979019874935515226e0 * t1049 * t904 - 0.25502554838335097930e1 * t8698 * t349 * t3975 - 0.1844001259520e1 * t237 * t12004 + 0.476312901339054080e0 * t2897 * t3988 + 0.29967321450326855254e0 * t3476 * t1058 * t7757 + 0.476312901339054080e0 * t2482 * t11945;
9068   t12020 = t1871 * t4535 * t354;
9069   t12024 = t1871 * t2816 * t873;
9070   t12033 = t1836 * t1390;
9071   t12048 = t610 * t3958;
9072   t12051 = t4019 * t242;
9073   t12056 = -0.56263723100594113894e0 * t1870 * t12020 - 0.56263723100594113894e0 * t1870 * t12024 - 0.12968797032847508210e0 * t6502 * t3827 - 0.54895099374677576130e-1 * t1879 * t3832 - 0.1844001259520e1 * t2897 * t3332 + 0.97972381755974563669e-1 * t12033 * t591 * t102 + 0.21252129031945914941e0 * t3890 * t585 * t102 - 0.119078225334763520e0 * t625 * t4009 * t1885 + 0.15762619094478157328e0 * t1941 * t11974 * t1872 - 0.10979019874935515226e0 * t3891 * t251 - 0.238156450669527040e0 * t609 * t12048 + 0.21958039749871030452e0 * t7776 * t12051 + 0.13814944624710858551e0 * t10727 * t8933;
9074   t12063 = t1446 * t242;
9075   t12074 = t8693 * t857;
9076   t12081 = t644 * t3958;
9077   t12085 = t3949 * t1885;
9078   t12088 = -0.50613316194190507388e-1 * t7773 * t2800 + 0.21958039749871030452e0 * t10741 * t9126 + 0.56263723100594113894e0 * t6530 * t3827 - 0.10979019874935515226e0 * t603 * t12063 - 0.10979019874935515226e0 * t2510 * t2800 + 0.10979019874935515226e0 * t1889 * t3832 + 0.85008516127783659766e0 * t1889 * t3836 - 0.922000629760e0 * t3911 * t1902 + 0.822756481972633600e0 * t237 * t12074 - 0.29967321450326855254e0 * t1930 * t3863 - 0.54895099374677576130e-1 * t1867 * t4114 + 0.650049912832e0 * t97 * t12081 * t249 + 0.822756481972633600e0 * t237 * t12085;
9079   t12090 = t1062 * t7298;
9080   t12093 = t3958 * t239;
9081   t12103 = t1830 * t1390;
9082   t12113 = t1058 * t7577;
9083   t12118 = t1073 * t1984;
9084   t12124 = 0.822756481972633600e0 * t237 * t12090 - 0.238156450669527040e0 * t625 * t12093 * t605 - 0.33837660950279469264e0 * t1055 * t7845 + 0.32937059624806545678e0 * t2959 * t364 - 0.119078225334763520e0 * t1055 * t7633 - 0.12751277419167548965e1 * t12103 * t591 * t102 - 0.21252129031945914941e0 * t4086 * t2352 - 0.37929099725894513314e0 * t4086 * t2355 + 0.14983660725163427627e0 * t2965 * t2463 - 0.11064007557120e2 * t4072 * t12113 - 0.42504258063891829882e0 * t1889 * t4076 + 0.37937585739830728828e1 * t4041 * t12118 * t2283 - 0.65345937074835210326e1 * t4046 * t11932;
9085   t12135 = t1041 * t97;
9086   t12141 = t1062 * t10763;
9087   t12144 = t1062 * t10185;
9088   t12149 = t349 * t591;
9089   t12161 = 0.31525238188956314658e0 * t2506 * t2816 * t10200 + 0.26741638969413672554e0 * t2965 * t2471 + 0.37937585739830728828e1 * t4041 * t4042 * t7425 - 0.65345937074835210326e1 * t4046 * t11962 - 0.59934642900653710508e0 * t12135 * t10722 - 0.119078225334763520e0 * t625 * t434 * t10234 + 0.11252744620118822779e1 * t10761 * t12141 - 0.15171639890357805326e1 * t10184 * t12144 - 0.714469352008581120e0 * t2962 * t10194 - 0.11064007557120e2 * t9270 * t840 * t12149 - 0.119078225334763520e0 * t3894 * t1976 + 0.42504258063891829882e0 * t2883 * t834 * t102 + 0.325024956416e0 * t97 * t1088 * t2357;
9090   t12166 = t1861 * t1419;
9091   t12191 = t3945 * t1885;
9092   t12194 = t1925 * t1419;
9093   t12198 = 0.13814944624710858551e0 * t2803 * t2475 + 0.18968792869915364414e1 * t1983 * t12166 * t2430 - 0.32672968537417605163e1 * t616 * t12166 * t1872 - 0.61023519165317445059e0 * t616 * t3949 * t1910 + 0.476312901339054080e0 * t1042 * t10080 + 0.29967321450326855254e0 * t1055 * t7758 + 0.29967321450326855254e0 * t2890 * t2475 - 0.10979019874935515226e0 * t2884 * t364 - 0.238156450669527040e0 * t625 * t1074 * t3384 + 0.21252129031945914941e0 * t1052 * t7299 + 0.21252129031945914941e0 * t7317 * t1059 - 0.922000629760e0 * t237 * t12191 + 0.36614111499190467036e1 * t616 * t12194 * t1872;
9094   t12199 = t12194 * t1821;
9095   t12204 = t1445 * t631;
9096   t12208 = t3890 * t90;
9097   t12213 = t2816 * t10047;
9098   t12234 = -0.4936538891835801600e1 * t237 * t12199 + 0.5532003778560e1 * t2962 * t10416 + 0.238156450669527040e0 * t625 * t12204 * t1821 + 0.2766001889280e1 * t12208 * t2362 + 0.238156450669527040e0 * t2482 * t11603 - 0.94575714566868943969e0 * t7570 * t12213 + 0.12751277419167548965e1 * t7576 * t11606 - 0.10979019874935515226e0 * t3874 * t251 + 0.19594476351194912734e0 * t8723 * t349 * t3975 - 0.25502554838335097930e1 * t2958 * t834 * t3975 - 0.61023519165317445059e0 * t616 * t1062 * t9988 - 0.10979019874935515226e0 * t3871 * t251 + 0.19594476351194912734e0 * t2836 * t834 * t3975;
9099   t12245 = t11619 * t1853;
9100   t12252 = t3928 * t90;
9101   t12255 = t441 * t902;
9102   t12259 = t12166 * t1821;
9103   t12267 = t1847 * t1445;
9104   t12271 = 0.476312901339054080e0 * t1042 * t10158 + 0.97972381755974563669e-1 * t3974 * t8965 + 0.45165298839047841173e-1 * t8651 * t349 * t11796 + 0.238156450669527040e0 * t1042 * t7735 + 0.26741638969413672554e0 * t7517 * t12245 - 0.33837660950279469264e0 * t9165 * t2446 - 0.714469352008581120e0 * t4086 * t2338 - 0.238156450669527040e0 * t12252 * t611 - 0.1468010318348156928e1 * t3991 * t12255 * t249 + 0.14683899485061986386e1 * t237 * t12259 - 0.12751277419167548965e1 * t8860 * t3885 - 0.238156450669527040e0 * t625 * t2921 * t2500 - 0.734005159174078464e0 * t97 * t12267 * t645;
9105   t12275 = t604 * t2968 * t228;
9106   t12287 = t1843 * t11791;
9107   t12290 = t2867 * t2500;
9108   t12299 = -t239 * t11415 * t94;
9109   t12307 = -0.85008516127783659764e0 * t7892 * t3852 - 0.85008516127783659764e0 * t2291 * t12275 - 0.42504258063891829882e0 * t2291 * t8895 - 0.58783429053584738202e0 * t7685 * t3859 - 0.10979019874935515226e0 * t2510 * t2809 - 0.119078225334763520e0 * t625 * t1084 * t7298 + 0.29967321450326855254e0 * t609 * t12287 + 0.1645512963945267200e1 * t237 * t12290 + 0.238156450669527040e0 * t1930 * t4114 + 0.69074723123554292753e-1 * t1400 * t647 + 0.461000314880e0 * t237 * t12299 - 0.61023519165317445059e0 * t616 * t8693 * t1409 + 0.14983660725163427627e0 * t1840 * t3863;
9110   t12311 = t1843 * t12255;
9111   t12314 = t1871 * t11515;
9112   t12327 = t1102 * t356;
9113   t12330 = t442 * t875;
9114   t12342 = 0.29967321450326855254e0 * t609 * t12311 + 0.75858199451789026628e0 * t603 * t12314 + 0.17485326916752292327e0 * t1882 * t3843 - 0.54895099374677576130e-1 * t851 * t9007 + 0.72665723658879309976e-1 * t2493 * t9013 - 0.97972381755974563671e-1 * t851 * t9016 - 0.54895099374677576130e-1 * t1879 * t3848 - 0.10979019874935515226e0 * t603 * t12327 - 0.10979019874935515226e0 * t603 * t12330 - 0.25306658097095253694e-1 * t1882 * t3848 + 0.10979019874935515226e0 * t1052 * t7920 + 0.85008516127783659766e0 * t2824 * t3818 * t633 + 0.53483277938827345108e0 * t7517 * t11870;
9115   t12347 = t3890 * t2296;
9116   t12356 = t1062 * t2304;
9117   t12361 = t2849 * t2279;
9118   t12370 = t1041 * t616;
9119   t12373 = -0.1428938704017162240e1 * t2488 * t11493 - 0.10979019874935515226e0 * t4095 * t1817 + 0.19594476351194912734e0 * t12347 * t2299 - 0.56263723100594113894e0 * t2987 * t7878 - 0.28131861550297056947e0 * t2987 * t7667 + 0.87446194859244818739e0 * t8603 * t7671 - 0.19594476351194912734e0 * t7821 * t12356 - 0.45514919671073415978e1 * t11722 * t3942 - 0.30124497567627698084e1 * t11756 * t12361 + 0.13538564572559691160e1 * t11722 * t3956 + 0.21958039749871030452e0 * t9156 * t10755 + 0.17001703225556731953e1 * t11658 * t10758 + 0.11252744620118822779e1 * t12370 * t10764;
9120   t12396 = t618 * t3879;
9121   t12397 = t12396 * t605;
9122   t12402 = t236 * t11901;
9123   t12407 = -0.119078225334763520e0 * t625 * t9175 * t857 + 0.69074723123554292755e-1 * t1867 * t3863 + 0.325024956416e0 * t97 * t4001 * t658 - 0.50613316194190507388e-1 * t7773 * t2809 + 0.14533144731775861995e0 * t10746 * t9120 - 0.19594476351194912734e0 * t10741 * t9129 - 0.39188952702389825468e0 * t7773 * t2813 - 0.25306658097095253694e-1 * t2384 * t443 + 0.325024956416e0 * t97 * t8736 * t362 + 0.1645512963945267200e1 * t237 * t12397 + 0.476312901339054080e0 * t2897 * t3403 + 0.26206649088979828343e1 * t12402 * t12113 + 0.14983660725163427627e0 * t2965 * t2415;
9124   t12414 = t1084 * t2304;
9125   t12417 = t2840 * t2284;
9126   t12420 = t2931 * t2279;
9127   t12423 = t2931 * t2284;
9128   t12426 = t434 * t10754;
9129   t12429 = t1069 * t10185;
9130   t12437 = t236 * t1102;
9131   t12443 = 0.238156450669527040e0 * t4086 * t2346 - 0.94575714566868943969e0 * t4090 * t2439 + 0.12751277419167548965e1 * t4086 * t2344 + 0.13814944624710858551e0 * t7828 * t12414 + 0.21958039749871030452e0 * t7821 * t12417 + 0.14533144731775861995e0 * t7816 * t12420 - 0.19594476351194912734e0 * t7821 * t12423 + 0.21958039749871030452e0 * t7776 * t12426 + 0.17001703225556731953e1 * t10184 * t12429 + 0.650049912832e0 * t97 * t2938 * t902 + 0.21252129031945914941e0 * t8629 * t858 + 0.476312901339054080e0 * t12437 * t870 + 0.31525238188956314656e0 * t615 * t1102 * t863;
9132   t12458 = t236 * t11741;
9133   t12463 = t231 * t11415;
9134   t12474 = -0.42504258063891829882e0 * t12437 * t878 + 0.29967321450326855254e0 * t2965 * t2412 + 0.476312901339054080e0 * t4086 * t2341 + 0.2766001889280e1 * t4067 * t11620 + 0.29619233351014809600e2 * t4081 * t12113 - 0.4936538891835801600e1 * t4072 * t11620 - 0.17620679382074383663e2 * t12458 * t12113 + 0.21252129031945914941e0 * t1879 * t4076 + 0.461000314880e0 * t12463 * t102 - 0.18915142913373788795e1 * t7570 * t11864 - 0.10979019874935515226e0 * t851 * t9239 - 0.54895099374677576129e-1 * t851 * t8988 - 0.85008516127783659764e0 * t2510 * t2813;
9135   t12485 = t3928 * t236;
9136   t12497 = t12149 * t99;
9137   t12514 = 0.6370450956800e1 * t12397 + 0.3185225478400e1 * t12085 - 0.3569440e1 * t1041 * t10268 + 0.21416640e2 * t1048 * t10265 + 0.10145661348248508867e2 * t8651 * t12497 - 0.68216827389720576000e2 * t8660 * t7688 + 0.10708320e2 * t3890 * t2316 + 0.3185225478400e1 * t1048 * t10268 + 0.5684735615810048000e1 * t12259 + 0.11369471231620096000e2 * t2836 * t10265 - 0.7138880e1 * t2896 * t3342 - 0.3569440e1 * t12191 + 0.114668117222400e3 * t2849 * t7688;
9138   t12522 = t3949 * t1821;
9139   t12537 = t1949 * t349;
9140   t12540 = 0.10708320e2 * t1062 * t7895 - 0.7138880e1 * t11578 * t892 - 0.3569440e1 * t11647 + 0.114668117222400e3 * t2836 * t12497 + 0.10708320e2 * t12522 + 0.11369471231620096000e2 * t8723 * t3917 + 0.3185225478400e1 * t8665 * t1435 - 0.38222705740800e2 * t2958 * t10265 + 0.21416640e2 * t1062 * t7458 - 0.42833280e2 * t2958 * t12497 - 0.19111352870400e2 * t12199 + 0.6370450956800e1 * t12290 + 0.3185225478400e1 * t12090 - 0.19111352870400e2 * t2958 * t12537;
9141   t12565 = 0.21416640e2 * t2867 * t2284 + 0.5684735615810048000e1 * t2849 * t7895 - 0.68216827389720576000e2 * t8688 * t12497 - 0.38222705740800e2 * t8703 * t2284 + 0.3185225478400e1 * t12074 - 0.7138880e1 * t11780 + 0.5684735615810048000e1 * t2836 * t12537 - 0.3569440e1 * t11692 + 0.11369471231620096000e2 * t8706 * t2284 - 0.19111352870400e2 * t12103 * t2316 + 0.3185225478400e1 * t3890 * t1949 - 0.42833280e2 * t2917 * t7688 - 0.38222705740800e2 * t8698 * t3917;
9142   t12592 = -0.19111352870400e2 * t2917 * t7895 - 0.38222705740800e2 * t2917 * t7458 + 0.21416640e2 * t2883 * t3917 - 0.3569440e1 * t3910 * t1949 - 0.3569440e1 * t8677 * t1435 + 0.10145661348248508867e2 * t8674 * t7688 + 0.6370450956800e1 * t2883 * t3342 + 0.5684735615810048000e1 * t12033 * t2316 + 0.1784720e1 * t12463 * t99 + 0.10708320e2 * t1048 * t12537 - 0.7138880e1 * t12004 + 0.6370450956800e1 * t11892 * t892 + 0.1784720e1 * t12299 + 0.11369471231620096000e2 * t2849 * t7458;
9143   t12610 = -0.85008516127783659764e0 * t851 * t8881 - 0.42504258063891829882e0 * t851 * t8991 + 0.16879116930178234168e1 * t2493 * t9227 - 0.22757459835536707989e1 * t851 * t8904 + 0.19594476351194912734e0 * t7663 * t3859 + 0.42504258063891829882e0 * t12485 * t606 - 0.12204703833063489012e1 * t616 * t12396 * t862 - 0.258304e0 * t97 * t245 * (t12514 + t12540 + t12565 + t12592) - 0.119078225334763520e0 * t854 * t8999 + 0.15762619094478157328e0 * t2506 * t2816 * t10043 - 0.48997150734706182895e0 * t7602 * t4042 * t10047 + 0.84395584650891170840e0 * t7720 * t12213 - 0.29967321450326855254e0 * t2965 * t2443;
9144   t12613 = t610 * t1101 * t228;
9145   t12625 = t610 * t441 * t591;
9146   t12629 = t1815 * t2968 * t362;
9147   t12633 = t1815 * t1058 * t902;
9148   t12640 = t1820 * t11703;
9149   t12647 = t2298 * t1075;
9150   t12650 = 0.476312901339054080e0 * t839 * t12613 + 0.238156450669527040e0 * t1042 * t610 * t349 * t658 - 0.33837660950279469264e0 * t854 * t9180 + 0.2766001889280e1 * t237 * t12522 - 0.714469352008581120e0 * t2361 * t12625 - 0.10979019874935515226e0 * t603 * t12629 - 0.10979019874935515226e0 * t603 * t12633 - 0.25306658097095253694e-1 * t1882 * t3832 - 0.42504258063891829883e0 * t1879 * t3836 - 0.85008516127783659766e0 * t603 * t12640 - 0.19594476351194912734e0 * t1882 * t3836 + 0.97972381755974563669e-1 * t7902 * t3859 + 0.19594476351194912734e0 * t2297 * t12647;
9151   t12679 = 0.45165298839047841173e-1 * t7905 * t3859 - 0.56263723100594113894e0 * t8019 * t2818 - 0.56263723100594113894e0 * t2493 * t8885 - 0.28131861550297056947e0 * t2493 * t8908 + 0.87446194859244818739e0 * t8022 * t8912 - 0.15062248783813849042e1 * t2493 * t8916 + 0.75858199451789026628e0 * t2510 * t2821 + 0.75858199451789026628e0 * t851 * t8890 + 0.37929099725894513314e0 * t851 * t8921 + 0.67692822862798455802e0 * t851 * t8924 - 0.28131861550297056947e0 * t6680 * t3827 - 0.714469352008581120e0 * t2488 * t11606 - 0.29967321450326855254e0 * t7430 * t12245 + 0.476312901339054080e0 * t3911 * t2409;
9152   t12685 = my_piecewise3(t87, 0, t11831 + t11943 + t12161 + t12307 + t11755 + t12056 + t11633 + t11565 + t11538 + t12014 + t11907 + t12234 + t12271 + t12124 + t11709 + t11598 + t12198 + t11465 + t11799 + t12088 + t12679 + t11500 + t11671 + t12650 + t11980 + t12610 + t11867 + t12474 + t12443 + t12407 + t12373 + t12342);
9153   t12686 = my_piecewise3(t86, 0, t12685);
9154   t12688 = 0.2e1 * t1037 * t908 + t11415 * t104 + 0.2e1 * t834 * t1107 + t85 * t12686 + t1390 * t664 + t585 * t1451 + t2267 * t447 + 0.2e1 * t228 * t4124 + t428 * t2521 + 0.2e1 * t3796 * t255 + t2792 * t368 + t349 * t3030;
9155   t12696 = -t12688;
9156   t12706 = t1144 * t1453;
9157   t12709 = 0.5e1 / 0.9e1 * t2578 * t10 * t465 - 0.50e2 / 0.81e2 * t11099 * t3087 + 0.500e3 / 0.27e2 * t8130 * t3102 - 0.5e1 / 0.9e1 * t1137 * t2626 * t14 - 0.50e2 / 0.81e2 * t3086 * t4198 * t9341 - 0.100e3 / 0.81e2 * t3086 * t11110 * t4199 - 0.5e1 / 0.9e1 * t4193 * t3090 - 0.10e2 / 0.9e1 * t11116 * t1138 + 0.50e2 / 0.81e2 * t279 * t1144 * t3032 * t374 - params->c1 * t12688 * t131 - 0.5e1 / 0.9e1 * t9337 * t1478 + 0.500e3 / 0.81e2 * t946 * t4262 * t674 + 0.5e1 / 0.9e1 * t463 * t464 * t12696 + 0.10e2 / 0.9e1 * t1141 * t4231 + 0.500e3 / 0.81e2 * t946 * t1164 * t374 * t670 + 0.100e3 / 0.81e2 * t3096 * t12706;
9158   t12748 = t461 * t732;
9159   t12756 = 0.200e3 / 0.81e2 * t2581 * t1146 - 0.100e3 / 0.81e2 * t9330 * t4200 + 0.50e2 / 0.81e2 * t279 * t1144 * t449 * t2527 + 0.100e3 / 0.81e2 * t943 * t3110 + 0.200e3 / 0.81e2 * t943 * t3106 + 0.10e2 / 0.9e1 * t4206 * t1149 + 0.5e1 / 0.9e1 * t1481 * t3113 + 0.100e3 / 0.81e2 * t279 * t1144 * t4126 * t261 + 0.1000e4 / 0.81e2 * t946 * t1164 * t10858 + 0.100e3 / 0.81e2 * t279 * t1144 * t1109 * t914 + 0.5e1 / 0.9e1 * t3093 * t1488 + 0.1000e4 / 0.81e2 * t946 * t3142 * t4213 + 0.50e2 / 0.81e2 * t279 * t1144 * t1453 * t670 - 0.10e2 / 0.9e1 * t3083 * t4203 - 0.500e3 / 0.81e2 * t12748 * t2614 * t674 + 0.10000e5 / 0.729e3 * t8110 * t1484 * t6899 * t14;
9160   t12779 = (t12709 + t12756) * t135 + 0.2e1 * t4234 * t285 * t135 + t1491 * t714 * t135 + t1491 * t716 * t135 + t3116 * t393 * t135 + 0.2e1 * t1152 * t954 * t135 + 0.2e1 * t4238 * t286 + t468 * t2604 * t135 + 0.2e1 * t4240 * t286 + t1493 * t715 + t1493 * t717;
9161   t12781 = t287 * t706 * t4126;
9162   t12784 = t287 * t4262;
9163   t12788 = t730 * t2079 * t1453;
9164   t12792 = t730 * t732 * t4126;
9165   t12802 = t6968 * t6970 * t449;
9166   t12809 = t287 * t3133;
9167   t12812 = t730 * t3148;
9168   t12817 = 0.20e2 / 0.9e1 * t12781 * t291 + 0.50e2 / 0.27e2 * t12784 * t722 + 0.50e2 / 0.27e2 * t12788 * t722 + 0.10e2 / 0.9e1 * t12792 * t291 + 0.5e1 / 0.9e1 * t9364 * t396 + 0.5e1 / 0.9e1 * t4263 * t726 + 0.10e2 / 0.9e1 * t3143 * t965 + 0.250e3 / 0.243e3 * t12802 * t2616 + 0.10e2 / 0.9e1 * t4256 * t726 + 0.5e1 / 0.9e1 * t1165 * t2627 + 0.2000e4 / 0.81e2 * t12809 * t2616 + 0.1000e4 / 0.27e2 * t12812 * t2616 + 0.10e2 / 0.9e1 * t9370 * t396;
9169   t12819 = t2092 * t2094 * t1453;
9170   t12825 = t2092 * t6950 * t449;
9171   t12832 = t3600 * t4245;
9172   t12838 = t4198 * t9341 * t137;
9173   t12854 = 0.25e2 / 0.81e2 * t12819 * t722 + 0.10e2 / 0.9e1 * t1158 * t2627 + 0.1000e4 / 0.81e2 * t12825 * t2616 + 0.20e2 / 0.9e1 * t3130 * t965 + 0.100e3 / 0.27e2 * t9395 * t4246 + 0.100e3 / 0.27e2 * t3126 * t12832 + 0.50e2 / 0.81e2 * t3149 * t12832 + 0.25e2 / 0.81e2 * t3149 * t12838 + 0.50e2 / 0.81e2 * t9403 * t4246 + 0.100e3 / 0.27e2 * t9412 * t4246 + 0.50e2 / 0.27e2 * t3126 * t12838 + t287 * t280 * t12696 * t137 + 0.50e2 / 0.27e2 * t3134 * t12838 + 0.100e3 / 0.27e2 * t3134 * t12832;
9174   t12856 = my_piecewise3(t129, t12779, t12817 + t12854);
9175   t12894 = -0.2e1 * t168 * t1365 * t737 - 0.4e1 * t1004 * t1005 * t2562 + 0.1174e1 * t12856 + 0.4e1 * t1004 * t9524 * t384 - 0.4e1 * t168 * t2717 * t399 - t168 * t693 * t1504 + 0.2e1 * t168 * t381 * t3061 * t140 + 0.2e1 * t497 * t498 * t1504 + 0.8e1 * t1004 * t9418 * t384 - 0.2e1 * t168 * t2713 * t399 - 0.12e2 * t2695 * t4168 * t498 - 0.8e1 * t1004 * t2702 * t933 + 0.4e1 * t1004 * t4168 * t693 - 0.8e1 * t2699 * t3682 + 0.4e1 * t168 * t270 * t4160 * t140;
9176   t12922 = t497 * t930;
9177   t12937 = t455 * t973;
9178   t12941 = -0.4e1 * t168 * t1009 * t973 - 0.4e1 * t1004 * t9422 * t384 + 0.2e1 * t168 * t690 * t1465 * t140 + 0.2e1 * t168 * t2559 * t455 * t140 - 0.48e2 * t9531 * t1005 * t384 * t498 - 0.8e1 * t3685 * t2703 + 0.12e2 * t2695 * t1005 * t384 * t693 - 0.2e1 * t168 * t456 * t2639 - 0.8e1 * t12922 * t1006 + 0.8e1 * t3685 * t2707 + 0.12e2 * t2695 * t3699 * t498 + 0.8e1 * t2699 * t3679 + 0.24e2 * t9541 * t3671 + 0.24e2 * t2695 * t2702 * t3670 + 0.8e1 * t1004 * t12937 * t273;
9179   t12986 = 0.24e2 * t2695 * t1005 * t933 * t273 + 0.4e1 * t168 * t930 * t1124 * t140 - 0.4e1 * t1004 * t3699 * t693 - 0.2e1 * t168 * t933 * t1169 - 0.2e1 * t168 * t1466 * t737 - 0.6e1 * t1691 * t1473 * t498 + 0.2e1 * t497 * t1473 * t693 - t168 * t2562 * t473 - 0.2e1 * t168 * t273 * t4273 - 0.4e1 * t168 * t4161 * t294 - 0.2e1 * t168 * t3062 * t399 + 0.4e1 * t497 * t4184 * t273 - 0.8e1 * t2699 * t3676 - 0.8e1 * t2699 * t3700 + 0.8e1 * t2699 * t4169;
9180   t13001 = t1465 * t294;
9181   t13011 = t4160 * t140;
9182   t13018 = t1124 * t399;
9183   t13024 = t1691 * t381;
9184   t13042 = t2626 * t1114;
9185   t13045 = t1454 * t116;
9186   t13063 = -t2024 * t4221 * t927 / 0.162e3 - t2024 * t4217 * t927 / 0.162e3 + t1110 * t4143 * t927 / 0.27e2 - t1454 * t674 * t687 / 0.108e3 - t1121 * t13042 / 0.180e3 + t13045 * t3047 / 0.54e2 - t9469 * t1457 / 0.180e3 + t4130 * t3042 / 0.60e2 - t3053 * t4140 / 0.90e2 + t3036 * t4140 / 0.30e2 + t1113 * t13042 / 0.60e2 - 0.25e2 / 0.162e3 * t3039 * t2614 * t1604 - t4135 * t3538 / 0.54e2;
9187   t13065 = t2614 * t674 * t118;
9188   t13081 = t2024 * t1453;
9189   t13092 = t4127 * t114;
9190   t13100 = t685 * t4126;
9191   t13103 = -0.5e1 / 0.486e3 * t9478 * t13065 - t450 * t670 * t4137 / 0.108e3 - t4157 * t2553 / 0.324e3 + t450 * t116 * t914 * t927 / 0.27e2 + t4144 * t2553 / 0.54e2 + 0.25e2 / 0.243e3 * t1121 * t13065 - t13081 * t3047 / 0.324e3 + t46 * t12696 * t118 / 0.100e3 - t1110 * t261 * t4137 / 0.54e2 - t4150 * t3042 / 0.180e3 + t13092 * t1115 / 0.30e2 - t266 * t12696 * t118 / 0.100e3 + t9446 * t1457 / 0.60e2 - t13100 * t1115 / 0.90e2;
9192   t13109 = -0.4e1 * t168 * t1125 * t973 - 0.24e2 * t2695 * t2706 * t3670 - t168 * t384 * t3153 + 0.8e1 * t1004 * t2706 * t933 - 0.4e1 * t168 * t3692 * t294 + 0.8e1 * t1004 * t13001 * t273 - 0.4e1 * t168 * t3703 * t294 - 0.4e1 * t3685 * t2710 - t128 * t12856 - 0.8e1 * t1004 * t13011 * t273 - 0.4e1 * t168 * t3688 * t294 + 0.8e1 * t1004 * t13018 * t273 - 0.4e1 * t9435 * t1362 + 0.12e2 * t13024 * t2696 + 0.4e1 * t497 * t4186 * t273 + 0.2e1 * t168 * t121 * (t13063 + t13103) * t140;
9193   t13132 = t5 * t1173;
9194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9195     v4rho2sigmalapl[0] = -t2145 * t1509 / 0.6e1 - t767 * t4279 - 0.8246500000000000000e0 * t2149 * t4282 * t316 - 0.3e1 / 0.8e1 * t164 * t7 * (t12894 + t12941 + t12986 + t13109) * t158 - 0.49479000000000000000e1 * t307 * t308 * t4277 * t316 - 0.29687400000000000000e2 * t749 * t4282 * t756 + 0.80541612095716256868e2 * t760 * t1507 * t410 * t762 + 0.92773125000000000000e0 * t407 * t3157 * t413 + 0.22265550000000000000e2 * t4286 * t992 - 0.60406209071787192650e2 * t13132 * t999 + 0.22265550000000000000e3 * t1512 * t2669 - 0.62012907040371922630e0 * t4291 * t2675 - 0.25976475000000000000e2 * t1512 * t2679 - 0.50338507559822660542e2 * t4291 * t2682 + 0.12113307472923900000e3 * t1512 * t2686;
9196 
9197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9198     v4rho2sigmatau[0] = 0.0e0;
9199 
9200   t13155 = t4681 * t280;
9201   t13166 = t6300 * t76;
9202   t13172 = t2724 * t2765;
9203   t13176 = t1769 * t1796 * t1528;
9204   t13180 = t558 * t6356 * t1528;
9205   t13188 = t2774 * t565;
9206   t13191 = t1018 * t2224;
9207   t13196 = t1018 * t1782;
9208   t13199 = t1761 * t1796;
9209   t13202 = t558 * t6338;
9210   t13203 = t1528 * t26;
9211   t13207 = t558 * t4370;
9212   t13211 = t214 * t425 * t220;
9213   t13214 = 0.80e2 / 0.9e1 * t558 * t1796 * t425 * t2748 + 0.5e1 / 0.4374e4 * t3728 + 0.65e2 / 0.13122e5 * t1203 + 0.105e3 / 0.4e1 * t13166 * t4345 * t559 + 0.3e1 * t4332 * t2788 + 0.20e2 / 0.9e1 * t13172 * t2768 - 0.100e3 / 0.9e1 * t13176 * t2768 + 0.80e2 / 0.9e1 * t13180 * t216 * t10 * t193 - 0.220e3 / 0.27e2 * t4353 * t4354 * t534 - 0.40e2 / 0.27e2 * t13188 * t1031 - 0.40e2 / 0.27e2 * t13191 * t1031 - 0.40e2 / 0.27e2 * t4337 * t2748 - 0.100e3 / 0.243e3 * t13196 * t2738 + 0.40e2 / 0.9e1 * t13199 * t4355 + 0.500e3 / 0.243e3 * t13202 * t13203 * t577 + 0.10e2 / 0.9e1 * t13207 * t2768 - 0.40e2 / 0.27e2 * t13211 * t2748;
9214   t13215 = t183 * t1195;
9215   t13220 = t8505 * t75;
9216   t13226 = t8499 * t75;
9217   t13229 = t2724 * t216;
9218   t13240 = t558 * t425;
9219   t13261 = -0.25e2 / 0.59049e5 * t2736 * t13215 * t11384 - 0.65e2 / 0.13122e5 * t3754 - 0.15e2 / 0.2e1 * t13220 * t2733 + 0.220e3 / 0.81e2 * t4337 * t2771 - t1758 * t1532 + 0.6e1 * t13226 * t1024 + 0.6e1 * t13229 * t1024 + 0.6e1 * t4332 * t2785 + 0.6e1 * t1022 * t4345 * t569 + 0.6e1 * t4358 * t4359 * t2761 + 0.6e1 * t13240 * t2785 - 0.30e2 * t2732 * t4345 * t225 * t216 - 0.30e2 * t4344 * t4359 * t225 * t1034 + 0.24e2 * t1022 * t4359 * t216 * t1034 - t11377 * t1535 / 0.2916e4 - t11123 * t1535 / 0.1458e4 - 0.10e2 / 0.6561e4 * t3770 * t4384;
9220   t13267 = t62 * t557;
9221   t13274 = t1034 * t1034;
9222   t13303 = -t11128 * t1535 / 0.2916e4 - 0.10e2 / 0.6561e4 * t3773 * t4384 + t58 * t13267 * t559 / 0.3888e4 - 0.15e2 / 0.4e1 * t1769 * t1532 * t559 + 0.6e1 * t558 * t574 * t13274 + 0.6e1 * t558 * t6352 * t1528 - 0.4e1 * t2774 * t1027 - 0.4e1 * t2774 * t1035 - t58 * t4326 * t582 / 0.5832e4 - 0.2e1 * t8502 * t426 - 0.4e1 * t553 * t4367 + 0.3e1 * t6285 * t1529 + 0.3e1 * t1761 * t4364 - 0.4e1 * t1018 * t2758 - 0.2e1 * t1018 * t2762 - 0.2e1 * t1018 * t2755 + 0.5e1 / 0.2187e4 * t3771;
9223   t13329 = t183 * t4382;
9224   t13333 = t214 * t4345;
9225   t13340 = t6290 * t76;
9226   t13351 = 0.5e1 / 0.2187e4 * t3774 + 0.155e3 / 0.19683e5 * t3778 + 0.3e1 / 0.2e1 * t558 * t1532 * t582 - 0.2e1 * t214 * t1023 * t2761 - 0.20e2 / 0.27e2 * t553 * t4370 * t172 + 0.110e3 / 0.81e2 * t4371 * t505 - 0.5e1 / 0.3888e4 * t11297 * t58 * t62 * t559 + t11199 * t4377 / 0.972e3 + t11202 * t4377 / 0.972e3 + t3790 * t58 * t62 * t582 / 0.1944e4 + 0.5e1 / 0.2187e4 * t3718 * t13329 * t11205 - 0.50e2 / 0.243e3 * t13333 * t549 - 0.5e1 / 0.1458e4 * t3793 - 0.2e1 * t214 * t13274 * t79 - 0.15e2 * t13340 * t4346 + 0.12e2 * t2778 * t4349 + 0.12e2 * t1761 * t76 * t4360 - 0.15e2 / 0.2e1 * t4344 * t4345 * t582;
9227   t13353 = t13214 + t13261 + t13303 + t13351;
9228   t13370 = t441 * t1101;
9229   t13371 = t1843 * t13370;
9230   t13383 = t1590 * t249;
9231   t13384 = t1843 * t13383;
9232   t13389 = -t239 * t13353 * t94;
9233   t13392 = t618 * t4429;
9234   t13393 = t13392 * t605;
9235   t13396 = t1073 * t1073;
9236   t13397 = t618 * t13396;
9237   t13401 = t4441 * t239;
9238   t13411 = t6584 * t1542;
9239   t13417 = t1543 * t615;
9240   t13422 = -0.119078225334763520e0 * t625 * t1570 * t1937 + 0.59934642900653710508e0 * t609 * t13371 - 0.238156450669527040e0 * t625 * t4430 * t626 + 0.21958039749871030452e0 * t1889 * t4603 + 0.25502554838335097929e1 * t8776 * t11472 + 0.476312901339054080e0 * t4549 * t2409 + 0.29967321450326855254e0 * t609 * t13384 + 0.461000314880e0 * t237 * t13389 + 0.1645512963945267200e1 * t237 * t13393 - 0.12204703833063489012e1 * t616 * t13397 * t621 - 0.238156450669527040e0 * t625 * t13401 * t605 - 0.12204703833063489012e1 * t616 * t13392 * t862 + 0.97972381755974563669e-1 * t4416 * t585 * t102 + 0.45165298839047841173e-1 * t13411 * t591 * t102 - 0.42504258063891829883e0 * t4516 * t1886 + 0.56263723100594113894e0 * t13417 * t1873 - 0.75858199451789026629e0 * t4516 * t1876;
9241   t13423 = t1073 * t240;
9242   t13424 = t1058 * t13423;
9243   t13429 = t4505 * t2483;
9244   t13432 = t249 * t1073;
9245   t13433 = t1058 * t13432;
9246   t13441 = t1569 * t240;
9247   t13442 = t13441 * t626;
9248   t13453 = t4408 * t90;
9249   t13458 = t1836 * t1538;
9250   t13468 = t6683 * t1577;
9251   t13474 = -0.19746155567343206400e2 * t4072 * t13424 + 0.58735597940247945544e1 * t4081 * t13424 + 0.25502554838335097930e1 * t7576 * t13429 - 0.85008516127783659765e0 * t2488 * t13433 - 0.75858199451789026628e0 * t7754 * t13429 + 0.31525238188956314657e0 * t2506 * t6038 * t2483 - 0.42504258063891829882e0 * t2488 * t13442 + 0.476312901339054080e0 * t2482 * t13442 - 0.1428938704017162240e1 * t2488 * t13429 + 0.952625802678108160e0 * t2482 * t13433 + 0.11064007557120e2 * t4067 * t13424 - 0.238156450669527040e0 * t13453 * t611 + 0.14983660725163427627e0 * t1840 * t4560 + 0.97972381755974563669e-1 * t13458 * t591 * t102 + 0.21252129031945914941e0 * t4411 * t585 * t102 - 0.12751277419167548965e1 * t4402 * t585 * t102 + 0.23916119461575365556e1 * t97 * t13468 * t645 - 0.119078225334763520e0 * t4591 * t1976;
9252   t13479 = t590 * t4389;
9253   t13480 = t13479 * t90;
9254   t13500 = t1815 * t1058 * t1101;
9255   t13507 = t101 * t1037;
9256   t13508 = t13507 * t242;
9257   t13514 = t2487 * t4489 * t249;
9258   t13517 = t1861 * t1569;
9259   t13524 = 0.238156450669527040e0 * t625 * t1565 * t1937 - 0.1844001259520e1 * t13480 * t841 - 0.21958039749871030452e0 * t1052 * t9239 - 0.10979019874935515226e0 * t1052 * t8988 - 0.17001703225556731953e1 * t2982 * t2813 - 0.17001703225556731953e1 * t1052 * t8881 - 0.85008516127783659764e0 * t1052 * t8991 + 0.39188952702389825468e0 * t8766 * t3859 + 0.19594476351194912734e0 * t8790 * t3859 + 0.39188952702389825468e0 * t2803 * t12647 - 0.21958039749871030452e0 * t603 * t13500 - 0.50613316194190507389e-1 * t1882 * t4603 - 0.17001703225556731953e1 * t8848 * t3852 - 0.17001703225556731953e1 * t2824 * t13508 + 0.21958039749871030452e0 * t4516 * t1817 + 0.14533144731775861996e0 * t1870 * t13514 + 0.18968792869915364414e1 * t1983 * t13517 * t2430 - 0.32672968537417605163e1 * t616 * t13517 * t1872;
9260   t13525 = t1590 * t618;
9261   t13535 = t1577 * t618;
9262   t13539 = t4489 * t240;
9263   t13540 = t4071 * t13539;
9264   t13545 = t2904 * t240;
9265   t13546 = t1058 * t13545;
9266   t13554 = t1847 * t1590;
9267   t13564 = t840 * t2792;
9268   t13567 = t4429 * t94;
9269   t13568 = t604 * t13567;
9270   t13571 = t236 * t4460;
9271   t13574 = t236 * t4552;
9272   t13579 = 0.15762619094478157328e0 * t1941 * t13525 * t1872 - 0.21252129031945914941e0 * t625 * t13525 * t1821 + 0.14983660725163427627e0 * t1852 * t4575 * t1885 - 0.19834166657058243279e0 * t6801 * t13535 * t1872 + 0.33758233860356468337e1 * t1870 * t13540 - 0.21958039749871030452e0 * t1052 * t9004 - 0.11986928580130742102e1 * t7430 * t13546 - 0.79336666628232973116e0 * t7513 * t2816 * t13545 + 0.10696655587765469022e1 * t7517 * t13546 - 0.734005159174078464e0 * t97 * t13554 * t645 - 0.119078225334763520e0 * t1840 * t4617 + 0.476312901339054080e0 * t1042 * t9184 + 0.59934642900653710508e0 * t2890 * t2905 + 0.42504258063891829882e0 * t2962 * t13564 + 0.42504258063891829882e0 * t603 * t13568 + 0.29967321450326855254e0 * t13571 * t627 - 0.67675321900558938528e0 * t13574 * t627 + 0.59934642900653710508e0 * t2965 * t2922;
9273   t13584 = t1546 * t615;
9274   t13591 = t1549 * t615;
9275   t13602 = t4433 * t1821;
9276   t13611 = t4426 * t1885;
9277   t13614 = t6423 * t1556;
9278   t13629 = 0.21252129031945914941e0 * t4519 * t1886 - 0.28131861550297056947e0 * t13584 * t1873 + 0.37929099725894513314e0 * t4519 * t1876 + 0.97972381755974563669e-1 * t4522 * t1886 - 0.12968797032847508210e0 * t13591 * t1873 + 0.17485326916752292327e0 * t4522 * t1876 + 0.42504258063891829882e0 * t8629 * t1059 + 0.85008516127783659764e0 * t2982 * t2969 + 0.42504258063891829882e0 * t1052 * t8623 + 0.2766001889280e1 * t237 * t13602 + 0.14983660725163427627e0 * t1852 * t1570 * t1853 - 0.238156450669527040e0 * t625 * t2845 * t1561 - 0.922000629760e0 * t237 * t13611 - 0.92817332546461565657e1 * t6421 * t13614 * t10423 + 0.20312390406477209506e2 * t1983 * t13614 * t2430 - 0.32672968537417605163e1 * t616 * t4438 * t1910 + 0.18968792869915364414e1 * t1983 * t4438 * t6592 + 0.238156450669527040e0 * t1930 * t4617;
9279   t13632 = t97 * t13507;
9280   t13636 = t610 * t1037 * t249;
9281   t13643 = t4438 * t1885;
9282   t13646 = t13614 * t1821;
9283   t13653 = t1557 * t1885;
9284   t13656 = t4423 * t1885;
9285   t13659 = t4438 * t1821;
9286   t13676 = -0.54895099374677576130e-1 * t1867 * t4617 - 0.51005109676670195860e1 * t3884 * t13632 + 0.952625802678108160e0 * t1042 * t13636 + 0.11064007557120e2 * t2962 * t840 * t228 * t1037 + 0.14683899485061986386e1 * t237 * t13643 + 0.26206649088979828343e1 * t237 * t13646 - 0.21958039749871030452e0 * t2962 * t13636 + 0.39188952702389825468e0 * t8964 * t13632 + 0.2766001889280e1 * t237 * t13653 - 0.4936538891835801600e1 * t237 * t13656 + 0.29619233351014809600e2 * t237 * t13659 - 0.17001703225556731953e1 * t2824 * t12275 - 0.85008516127783659764e0 * t2824 * t8895 - 0.11756685810716947640e1 * t9258 * t3859 + 0.15171639890357805325e1 * t1052 * t8890 + 0.75858199451789026627e0 * t1052 * t8921 + 0.13538564572559691160e1 * t1052 * t8924 - 0.10979019874935515226e0 * t1052 * t9007;
9287   t13685 = t1815 * t2968 * t441;
9288   t13698 = t1101 * t1101;
9289   t13702 = t13397 * t94;
9290   t13705 = t4411 * t90;
9291   t13709 = t1871 * t2816 * t1073;
9292   t13715 = t4433 * t1885;
9293   t13718 = t599 * t4389;
9294   t13722 = t13517 * t1821;
9295   t13728 = 0.14533144731775861995e0 * t2987 * t9013 - 0.19594476351194912734e0 * t1052 * t9016 - 0.10979019874935515226e0 * t1879 * t4603 - 0.21958039749871030452e0 * t603 * t13685 - 0.11252744620118822779e1 * t2987 * t8885 - 0.56263723100594113893e0 * t2987 * t8908 + 0.17489238971848963747e1 * t8603 * t8912 - 0.30124497567627698084e1 * t2987 * t8916 + 0.14983660725163427627e0 * t4591 * t1844 + 0.650049912832e0 * t97 * t644 * t13698 + 0.1645512963945267200e1 * t237 * t13702 + 0.2766001889280e1 * t13705 * t2362 - 0.11252744620118822779e1 * t1870 * t13709 - 0.21252129031945914941e0 * t625 * t1557 * t1937 + 0.822756481972633600e0 * t237 * t13715 + 0.42504258063891829882e0 * t13718 * t228 * t102 + 0.14683899485061986386e1 * t237 * t13722 - 0.734005159174078464e0 * t97 * t4552 * t658;
9296   t13731 = t4489 * t2483;
9297   t13737 = t1556 * t1984;
9298   t13743 = t2816 * t13423;
9299   t13753 = t4408 * t236;
9300   t13758 = t610 * t4441;
9301   t13761 = t4402 * t90;
9302   t13766 = t1069 * t8622;
9303   t13776 = 0.27629889249421717102e0 * t2803 * t2905 - 0.18915142913373788795e1 * t7570 * t13731 + 0.63050476377912629316e0 * t2506 * t2816 * t13432 - 0.97994301469412365794e0 * t7602 * t13737 * t2483 + 0.16879116930178234169e1 * t7720 * t13731 + 0.14645644599676186814e2 * t4109 * t13743 + 0.75875171479661457657e1 * t4041 * t4042 * t13423 - 0.13069187414967042065e2 * t4046 * t13743 - 0.11986928580130742102e1 * t12135 * t11443 + 0.42504258063891829882e0 * t13753 * t606 + 0.238156450669527040e0 * t4588 * t1976 - 0.238156450669527040e0 * t609 * t13758 - 0.11064007557120e2 * t13761 * t2362 - 0.21958039749871030452e0 * t2982 * t2809 - 0.1844001259520e1 * t237 * t13766 - 0.13606156761889987933e2 * t616 * t13614 * t1872 + 0.952625802678108160e0 * t2897 * t4020 + 0.952625802678108160e0 * t1042 * t12613;
9304   t13792 = t6434 * t1542;
9305   t13799 = t1830 * t1538;
9306   t13811 = t644 * t4441;
9307   t13824 = -0.50613316194190507389e-1 * t2837 * t443 + 0.15762619094478157329e0 * t1941 * t1557 * t6394 - 0.10979019874935515226e0 * t2874 * t443 - 0.1428938704017162240e1 * t4457 * t2409 - 0.476312901339054080e0 * t625 * t1074 * t4453 - 0.11756685810716947640e1 * t13792 * t591 * t102 + 0.650049912832e0 * t97 * t1088 * t3022 - 0.12751277419167548965e1 * t13799 * t591 * t102 - 0.21958039749871030452e0 * t1049 * t1103 + 0.65874119249613091357e0 * t4620 * t251 - 0.21958039749871030452e0 * t2884 * t443 - 0.50613316194190507388e-1 * t4614 * t251 + 0.650049912832e0 * t97 * t13811 * t249 + 0.2766001889280e1 * t4457 * t1902 + 0.76507664515005293790e1 * t4416 * t591 * t102 + 0.69074723123554292755e-1 * t1867 * t4560 - 0.1844001259520e1 * t1042 * t13564;
9308   t13832 = t231 * t13353;
9309   t13850 = t4423 * t1821;
9310   t13853 = t6605 * t1556;
9311   t13854 = t13853 * t1821;
9312   t13870 = 0.69074723123554292753e-1 * t4457 * t1844 - 0.29967321450326855254e0 * t4588 * t1844 - 0.29967321450326855254e0 * t1852 * t1565 * t1853 + 0.461000314880e0 * t13832 * t102 + 0.325024956416e0 * t97 * t4460 * t658 - 0.922000629760e0 * t4549 * t1902 - 0.29967321450326855254e0 * t1930 * t4560 + 0.29967321450326855254e0 * t1055 * t9172 + 0.26741638969413672554e0 * t1852 * t13535 * t1821 - 0.61023519165317445059e0 * t616 * t4433 * t1910 - 0.11064007557120e2 * t237 * t13850 - 0.17620679382074383663e2 * t237 * t13854 + 0.26741638969413672554e0 * t1852 * t1557 * t1853 + 0.69941307667009169309e0 * t9140 * t2821 + 0.43916079499742060904e0 * t11661 * t9126 - 0.10122663238838101478e0 * t9140 * t2809 - 0.78377905404779650936e0 * t9140 * t2813 + 0.29066289463551723990e0 * t11666 * t9120;
9313   t13886 = t4505 * t249;
9314   t13887 = t2481 * t13886;
9315   t13890 = t4505 * t240;
9316   t13891 = t1871 * t13890;
9317   t13894 = t1058 * t1073;
9318   t13895 = t1871 * t13894;
9319   t13898 = t4040 * t13890;
9320   t13901 = t13441 * t94;
9321   t13902 = t1871 * t13901;
9322   t13905 = t2487 * t13886;
9323   t13910 = t1062 * t8622;
9324   t13920 = -0.51875188131390032840e0 * t11957 * t2818 - 0.30343279780715610650e1 * t11658 * t12144 - 0.39188952702389825468e0 * t11661 * t9129 - 0.10122663238838101478e0 * t9140 * t2800 + 0.43916079499742060904e0 * t9156 * t12051 + 0.27629889249421717102e0 * t11725 * t8933 + 0.15171639890357805325e1 * t2982 * t2821 + 0.21958039749871030452e0 * t603 * t13887 + 0.25502554838335097930e1 * t603 * t13891 + 0.15171639890357805326e1 * t603 * t13895 + 0.13538564572559691160e1 * t603 * t13898 + 0.75858199451789026628e0 * t603 * t13902 - 0.19594476351194912734e0 * t603 * t13905 + 0.90330597678095682346e-1 * t8793 * t3859 + 0.1645512963945267200e1 * t237 * t13910 - 0.1428938704017162240e1 * t2962 * t12625 - 0.67675321900558938528e0 * t1055 * t9180 - 0.2936020636696313856e1 * t3991 * t2904 * t1101;
9325   t13922 = t434 * t1561 * t249;
9326   t13925 = t1561 * t240;
9327   t13926 = t1069 * t13925;
9328   t13930 = t1062 * t6034 * t240;
9329   t13933 = t1062 * t13925;
9330   t13939 = t13423 * t1561;
9331   t13945 = t1101 * t240;
9332   t13946 = t1058 * t13945;
9333   t13967 = t1820 * t13901;
9334   t13972 = 0.27629889249421717102e0 * t7828 * t13922 + 0.43916079499742060904e0 * t7821 * t13926 + 0.29066289463551723990e0 * t7816 * t13930 - 0.39188952702389825468e0 * t7821 * t13933 + 0.63050476377912629314e0 * t2506 * t4535 * t4496 - 0.85008516127783659766e0 * t2488 * t13939 + 0.59934642900653710508e0 * t3476 * t1058 * t8929 + 0.952625802678108160e0 * t2482 * t13946 + 0.59934642900653710508e0 * t3476 * t2968 * t2904 + 0.952625802678108160e0 * t2482 * t13939 - 0.67675321900558938528e0 * t10496 * t1058 * t9179 + 0.56263723100594113894e0 * t6530 * t4490 + 0.22505489240237645558e1 * t12370 * t12141 - 0.54895099374677576129e-1 * t4457 * t1976 + 0.43916079499742060904e0 * t9156 * t12426 + 0.34003406451113463906e1 * t11658 * t12429 - 0.85008516127783659765e0 * t603 * t13967 - 0.11252744620118822779e1 * t8634 * t2818;
9335   t13976 = t1815 * t4509 * t249;
9336   t13979 = t1820 * t13894;
9337   t13982 = t4071 * t13890;
9338   t13987 = t631 * t4429;
9339   t13988 = t13987 * t605;
9340   t13991 = t1577 * t249;
9341   t13992 = t6555 * t13991;
9342   t13998 = t1871 * t6038 * t240;
9343   t14003 = t4411 * t2296;
9344   t14006 = t1578 * t242;
9345   t14009 = t1591 * t242;
9346   t14012 = t4402 * t2296;
9347   t14015 = t4405 * t236;
9348   t14022 = t4416 * t2296;
9349   t14027 = -0.10979019874935515226e0 * t603 * t13976 - 0.17001703225556731953e1 * t603 * t13979 - 0.45514919671073415978e1 * t603 * t13982 + 0.25502554838335097930e1 * t4522 * t2293 - 0.1844001259520e1 * t237 * t13988 - 0.67675321900558938528e0 * t609 * t13992 - 0.10979019874935515226e0 * t4447 * t251 - 0.56263723100594113894e0 * t1870 * t13998 - 0.10979019874935515226e0 * t4519 * t1817 + 0.19594476351194912734e0 * t14003 * t2299 + 0.13814944624710858551e0 * t603 * t14006 - 0.10979019874935515226e0 * t603 * t14009 - 0.11756685810716947640e1 * t14012 * t2299 - 0.85008516127783659765e0 * t14015 * t2293 + 0.39188952702389825468e0 * t8776 * t13508 - 0.50613316194190507388e-1 * t4522 * t1817 + 0.90330597678095682346e-1 * t14022 * t2299 + 0.33758233860356468336e1 * t2987 * t9227;
9350   t14046 = t1925 * t1569;
9351   t14050 = t14046 * t1821;
9352   t14061 = t892 * t1037;
9353   t14066 = t99 * t2792;
9354   t14070 = t1037 * t1037;
9355   t14071 = t590 * t14070;
9356   t14080 = -0.76445411481600e2 * t2917 * t8880 + 0.22738942463240192000e2 * t2836 * t14061 - 0.7138880e1 * t13766 + 0.114668117222400e3 * t13659 + 0.6370450956800e1 * t1048 * t14066 + 0.1784720e1 * t13389 - 0.7138880e1 * t14071 * t99 + 0.10708320e2 * t13602 + 0.42833280e2 * t1062 * t8880 + 0.6370450956800e1 * t13718 * t892 - 0.42833280e2 * t13850;
9357   t14087 = t599 * t14070;
9358   t14097 = t631 * t13396 * t94;
9359   t14101 = -0.19111352870400e2 * t4402 * t1949 + 0.6370450956800e1 * t13702 + 0.42833280e2 * t1048 * t14061 + 0.6370450956800e1 * t13393 + 0.6370450956800e1 * t14087 * t99 + 0.3185225478400e1 * t4411 * t1949 + 0.5684735615810048000e1 * t13722 + 0.6370450956800e1 * t13910 - 0.42833280e2 * t4402 * t2316 - 0.7138880e1 * t14097 - 0.19111352870400e2 * t13799 * t2316;
9360   t14121 = 0.10145661348248508867e2 * t13646 + 0.114668117222400e3 * t4416 * t2316 - 0.76445411481600e2 * t2958 * t14061 + 0.10708320e2 * t13653 + 0.10708320e2 * t4411 * t2316 + 0.10145661348248508867e2 * t13411 * t2316 - 0.7138880e1 * t1041 * t14066 + 0.5684735615810048000e1 * t13643 - 0.7138880e1 * t13479 * t892 - 0.7138880e1 * t13988 + 0.1784720e1 * t13832 * t99;
9361   t14139 = 0.22738942463240192000e2 * t2849 * t8880 + 0.5684735615810048000e1 * t4416 * t1949 - 0.3569440e1 * t13611 - 0.3569440e1 * t4405 * t1949 - 0.68216827389720576000e2 * t13854 + 0.5684735615810048000e1 * t13458 * t2316 + 0.10708320e2 * t1549 * t1949 - 0.19111352870400e2 * t14050 - 0.68216827389720576000e2 * t13792 * t2316 + 0.3185225478400e1 * t13715 - 0.19111352870400e2 * t13656;
9362   t14145 = t1577 * t631;
9363   t14149 = t1590 * t631;
9364   t14159 = -0.45514919671073415976e1 * t1052 * t8904 + 0.21958039749871030452e0 * t1052 * t9234 + 0.13814944624710858551e0 * t1052 * t9231 + 0.25502554838335097929e1 * t1052 * t8845 - 0.21958039749871030452e0 * t2982 * t2800 - 0.21968466899514280222e2 * t616 * t4438 * t1872 + 0.65874119249613091356e0 * t2959 * t443 - 0.19834166657058243280e0 * t6801 * t1557 * t6802 + 0.36614111499190467036e1 * t616 * t14046 * t1872 - 0.4936538891835801600e1 * t237 * t14050 - 0.238156450669527040e0 * t9078 * t1081 - 0.476312901339054080e0 * t2890 * t2893 + 0.59934642900653710508e0 * t1055 * t8930 - 0.258304e0 * t97 * t245 * (t14080 + t14101 + t14121 + t14139) - 0.29967321450326855254e0 * t1852 * t14145 * t1821 + 0.238156450669527040e0 * t625 * t14149 * t1821 - 0.238156450669527040e0 * t625 * t434 * t94 * t3022 + 0.42504258063891829882e0 * t14087 * t102;
9365   t14185 = t441 * t619;
9366   t14186 = t1058 * t14185;
9367   t14199 = t8919 * t1561;
9368   t14206 = -0.238156450669527040e0 * t1055 * t8999 - 0.12204703833063489012e1 * t616 * t1062 * t621 * t2844 + 0.36614111499190467036e1 * t616 * t4423 * t1910 - 0.22762551443898437297e2 * t1983 * t13853 * t2430 + 0.39207562244901126197e2 * t616 * t13853 * t1872 - 0.85008516127783659766e0 * t2488 * t13946 + 0.63050476377912629314e0 * t2506 * t2816 * t13945 + 0.85008516127783659766e0 * t4516 * t1822 - 0.42504258063891829882e0 * t4519 * t1822 - 0.1428938704017162240e1 * t2488 * t14186 - 0.19594476351194912734e0 * t4522 * t1822 - 0.1844001259520e1 * t14071 * t102 + 0.97972381755974563669e-1 * t1882 * t4510 + 0.37929099725894513314e0 * t1879 * t4513 + 0.17485326916752292327e0 * t1882 * t4513 - 0.42504258063891829883e0 * t2488 * t14199 - 0.75858199451789026629e0 * t7754 * t14186 - 0.42504258063891829883e0 * t1879 * t4506;
9369   t14213 = t2816 * t14185;
9370   t14243 = t4040 * t13737 * t240;
9371   t14246 = t4040 * t13539;
9372   t14252 = -0.19594476351194912734e0 * t1882 * t4506 + 0.21252129031945914941e0 * t1879 * t4510 + 0.476312901339054080e0 * t2482 * t14199 - 0.18915142913373788794e1 * t7570 * t14213 + 0.25502554838335097930e1 * t7576 * t14186 + 0.31525238188956314657e0 * t2506 * t2816 * t441 * t636 - 0.97994301469412365794e0 * t7602 * t4042 * t14185 + 0.16879116930178234168e1 * t7720 * t14213 - 0.28131861550297056947e0 * t6680 * t4490 - 0.12968797032847508210e0 * t6502 * t4490 + 0.29967321450326855254e0 * t3476 * t1058 * t9150 - 0.75858199451789026628e0 * t1889 * t4513 + 0.85008516127783659766e0 * t1889 * t4506 - 0.42504258063891829882e0 * t1889 * t4510 - 0.1844001259520e1 * t237 * t14097 + 0.17489238971848963748e1 * t6536 * t14243 - 0.30124497567627698084e1 * t1870 * t14246 - 0.119078225334763520e0 * t625 * t4571 * t1885;
9373   t14257 = my_piecewise3(t87, 0, t13422 + t13474 + t13524 + t13579 + t13629 + t13676 + t13728 + t13776 + t13824 + t13870 + t13920 + t13972 + t14027 + t14159 + t14206 + t14252);
9374   t14258 = my_piecewise3(t86, 0, t14257);
9375   t14260 = -0.4e1 * t1037 * t1107 - t13353 * t104 - t85 * t14258 - t1538 * t664 - t585 * t1596 - 0.2e1 * t228 * t4627 - 0.2e1 * t4389 * t255 - 0.2e1 * t2792 * t447 - 0.2e1 * t428 * t3030;
9376   t14264 = t4695 * t1602;
9377   t14269 = t1144 * t1598;
9378   t14272 = t1109 * t1109;
9379   t14278 = t130 * t58;
9380   t14290 = 0.2e1 * t3081 * t470 - 0.10e2 / 0.9e1 * t13155 * t1138 - 0.10e2 / 0.9e1 * t3093 * t1627 + 0.5e1 / 0.9e1 * t463 * t464 * t14260 - 0.100e3 / 0.27e2 * t3096 * t14264 + 0.5e1 / 0.9e1 * t3093 * t1630 + 0.100e3 / 0.81e2 * t3096 * t14269 - 0.20e2 / 0.9e1 * t463 * t1626 * t14272 + 0.10e2 / 0.9e1 * t1141 * t4710 - 0.200e3 / 0.27e2 * t14278 * t1164 * t3105 - 0.5e1 / 0.9e1 * t4683 * t3090 + 0.500e3 / 0.81e2 * t946 * t4740 * t674 - 0.2000e4 / 0.81e2 * t946 * t4729 * t674;
9381   t14291 = t1622 * t706;
9382   t14331 = -0.50e2 / 0.81e2 * t14291 * t3087 + 0.20e2 / 0.9e1 * t3086 * t3109 * t15 + 0.40e2 / 0.9e1 * t3086 * t3105 * t15 + params->c1 * t14260 * t131 + 0.100e3 / 0.27e2 * t12748 * t449 * t674 * t58 + 0.100e3 / 0.81e2 * t279 * t1144 * t4629 * t261 + 0.40e2 / 0.9e1 * t9330 * t4688 - 0.40e2 / 0.9e1 * t1141 * t4701 - 0.50e2 / 0.27e2 * t279 * t4695 * t1602 * t670 - 0.20e2 / 0.9e1 * t463 * t1626 * t449 * t3032 + 0.50e2 / 0.81e2 * t279 * t1144 * t1598 * t670 + 0.2e1 * t461 * t3139 + 0.4e1 * t1135 * t1161;
9383   t14341 = t1152 * t1152;
9384   t14354 = t2092 * t6950 * t1602;
9385   t14358 = t287 * t706 * t4629;
9386   t14362 = t6968 * t6970 * t1602;
9387   t14367 = t4725 * t3032;
9388   t14370 = t290 * t1109;
9389   t14371 = t289 * t14370;
9390   t14378 = t287 * t4729;
9391   t14381 = t730 * t4746;
9392   t14384 = t287 * t4740;
9393   t14387 = -0.100e3 / 0.27e2 * t14354 * t722 + 0.20e2 / 0.9e1 * t14358 * t291 - 0.25e2 / 0.81e2 * t14362 * t722 - 0.5e1 / 0.9e1 * t4747 * t726 - 0.2e1 * t733 * t14367 - 0.20e2 / 0.9e1 * t3149 * t14371 + 0.10e2 / 0.9e1 * t4734 * t726 - 0.10e2 / 0.3e1 * t4730 * t726 - 0.200e3 / 0.27e2 * t14378 * t722 - 0.100e3 / 0.9e1 * t14381 * t722 + 0.50e2 / 0.27e2 * t14384 * t722;
9394   t14389 = t730 * t2079 * t1598;
9395   t14412 = t2092 * t2094 * t1598;
9396   t14418 = t730 * t732 * t4629;
9397   t14421 = 0.50e2 / 0.27e2 * t14389 * t722 - 0.2e1 * t730 * t732 * t14272 * t137 - 0.4e1 * t719 * t14367 - 0.10e2 / 0.3e1 * t4722 * t726 - 0.4e1 * t287 * t706 * t14272 * t137 + t287 * t280 * t14260 * t137 - 0.40e2 / 0.3e1 * t3134 * t14371 - 0.40e2 / 0.3e1 * t3126 * t14371 + 0.25e2 / 0.81e2 * t14412 * t722 + 0.5e1 / 0.9e1 * t4741 * t726 + 0.10e2 / 0.9e1 * t14418 * t291;
9398   t14423 = my_piecewise3(t129, (t14290 + t14331) * t135 + 0.2e1 * t4713 * t285 * t135 + t1633 * t714 * t135 + t1633 * t716 * t135 + 0.2e1 * t14341 * t135 + 0.4e1 * t1154 * t1153 + 0.2e1 * t469 * t3116 + t1635 * t714 * t135 + t1635 * t716 * t135, t14387 + t14421);
9399   t14437 = t4657 * t140;
9400   t14456 = t2024 * t1145;
9401   t14457 = t15 * t1118;
9402   t14462 = t1603 * t684;
9403   t14475 = t685 * t14272 * t118 / 0.50e2 - t1599 * t674 * t687 / 0.108e3 + t4654 * t3042 / 0.180e3 + t1603 * t670 * t263 / 0.60e2 + t14456 * t14457 / 0.45e2 - t4648 * t3042 / 0.180e3 - 0.5e1 / 0.162e3 * t14462 * t3047 - t266 * t14260 * t118 / 0.100e3 + t4135 * t14457 / 0.15e2 - 0.3e1 / 0.50e2 * t450 * t1604 * t3032 - t4642 * t3042 / 0.30e2;
9404   t14479 = t1599 * t116;
9405   t14482 = t2024 * t1598;
9406   t14485 = t6857 * t1602;
9407   t14488 = t4630 * t114;
9408   t14497 = t58 * t1604;
9409   t14500 = t450 * t3528;
9410   t14506 = t685 * t4629;
9411   t14509 = -0.3e1 / 0.50e2 * t46 * t14272 * t1604 + t14479 * t3047 / 0.54e2 - t14482 * t3047 / 0.324e3 + t14485 * t3047 / 0.324e3 + t14488 * t1115 / 0.30e2 + t4633 * t3042 / 0.60e2 + t685 * t452 * t3032 / 0.50e2 + 0.5e1 / 0.108e3 * t1603 * t674 * t14497 - 0.2e1 / 0.15e2 * t14500 * t14457 + t46 * t14260 * t118 / 0.100e3 - t14506 * t1115 / 0.90e2;
9412   t14520 = t1005 * t3061;
9413   t14523 = 0.16e2 * t2699 * t4666 + 0.1174e1 * t14423 - 0.4e1 * t168 * t2713 * t473 - 0.4e1 * t168 * t456 * t3153 + 0.12e2 * t2695 * t4317 * t498 - 0.24e2 * t2695 * t4665 * t498 - 0.8e1 * t1004 * t14437 * t273 - 0.16e2 * t497 * t532 * t1515 * t140 + 0.2e1 * t168 * t121 * (t14475 + t14509) * t140 - 0.2e1 * t168 * t273 * t4751 - 0.8e1 * t2699 * t4318 - 0.16e2 * t4303 * t14520;
9414   t14530 = t4314 * t273;
9415   t14536 = t6195 * t122;
9416   t14537 = t1520 * t498;
9417   t14547 = t1520 * t693;
9418   t14552 = t1124 * t1124;
9419   t14559 = -0.16e2 * t497 * t122 * t14552 * t140 + 0.32e2 * t1004 * t4314 * t270 - 0.8e1 * t168 * t1125 * t1169 + 0.2e1 * t497 * t498 * t1649 - 0.8e1 * t168 * t2717 * t473 - 0.4e1 * t168 * t4658 * t294 - t128 * t14423 + 0.4e1 * t168 * t14520 + 0.8e1 * t497 * t14530 - 0.96e2 * t14536 * t14537 + 0.12e2 * t1691 * t14537 - 0.4e1 * t497 * t14547;
9420   t14574 = t2706 * t1124;
9421   t14580 = t1124 * t473;
9422   t14587 = t497 * t455;
9423   t14597 = t455 * t1169;
9424   t14601 = 0.96e2 * t4296 * t1005 * t273 * t1124 + 0.4e1 * t168 * t270 * t4657 * t140 + 0.96e2 * t2695 * t1520 * t273 * t270 + 0.16e2 * t1004 * t14580 * t273 + 0.16e2 * t1004 * t14597 * t273 - 0.16e2 * t1004 * t1520 * t690 + 0.8e1 * t1004 * t4665 * t693 + 0.8e1 * t497 * t1516 * t737 - 0.4e1 * t168 * t3062 * t473 - 0.48e2 * t4296 * t14530 - 0.8e1 * t168 * t14574 - 0.16e2 * t14587 * t2703;
9425   t14630 = t1613 * t294;
9426   t14637 = 0.2e1 * t168 * t690 * t1613 * t140 - 0.64e2 * t1004 * t1005 * t2717 + 0.8e1 * t1004 * t14630 * t273 - 0.4e1 * t1004 * t4317 * t693 - 0.8e1 * t168 * t1009 * t1169 + 0.4e1 * t168 * t14552 * t140 - 0.2e1 * t168 * t1515 * t737 - 0.2e1 * t168 * t1614 * t737 - t168 * t693 * t1649 - 0.4e1 * t168 * t4321 * t294 + 0.24e2 * t4296 * t14547 + 0.32e2 * t4303 * t14574;
9427   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9428     v4rho2lapl2[0] = -t2145 * t1654 / 0.6e1 - t767 * t4756 - 0.8246500000000000000e0 * t2149 * t4759 * t316 - 0.3e1 / 0.8e1 * t164 * t7 * (t14523 + t14559 + t14601 + t14637) * t158 - 0.49479000000000000000e1 * t307 * t308 * t4754 * t316 - 0.29687400000000000000e2 * t749 * t4759 * t756 + 0.80541612095716256868e2 * t760 * t1652 * t410 * t762;
9429 
9430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9431     v4rho2lapltau[0] = 0.0e0;
9432 
9433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9434     v4rho2tau2[0] = 0.0e0;
9435 
9436   t14667 = 0.1e1 / t522;
9437   t14674 = t5071 * t53;
9438   t14694 = t5 * t1336;
9439   t14697 = 0.14611767187500000000e3 * t7083 * t2120 * t1345 * t157 / t33 * t26 * t146 + 0.69764520420418412959e0 * t3639 * t3653 - 0.13915968750000000000e1 * t3634 * t1353 - 0.92427972442890327423e2 * t995 * t14667 * t60 * t7077 + 0.69579843750000000000e0 * t985 * t5079 - 0.11326164200960098622e3 * t995 * t14674 * t762 - 0.33978492602880295866e2 * t2663 * t5082 + 0.31310929687500000000e2 * t985 * t5062 - 0.87205650525523016197e0 * t995 * t2672 * t14674 * t157 - 0.87205650525523016199e-1 * t2663 * t5074 + 0.41747906250000000000e2 * t409 * t2666 * t5060 * t170 + 0.33398325000000000000e2 * t5049 * t992 - 0.90609313607680788976e2 * t14694 * t999;
9440   t14765 = 0.6e1 * t497 * t1181 * t973 + 0.18e2 * t1691 * t1182 * t933 - 0.6e1 * t497 * t934 * t1300 + 0.6e1 * t497 * t936 * t1300 + 0.12e2 * t497 * t1303 * t933 - 0.18e2 * t1691 * t4770 * t273 - 0.6e1 * t1691 * t4763 * t294 - 0.24e2 * t6195 * t4764 * t273 - 0.2e1 * t497 * t4985 * t273 - 0.6e1 * t497 * t385 * t3547 + 0.18e2 * t8263 * t3183;
9441   t14791 = t557 * t346 * t225;
9442   t14857 = t786 * t38;
9443   t14869 = t3748 * t1214 / 0.1458e4 + 0.10e2 / 0.6561e4 * t3714 * t3248 - 0.8e1 / 0.2187e4 * t1378 * t3251 - 0.5e1 / 0.3e1 * t3714 * t10 * t329 * t818 - 0.25e2 / 0.54e2 * t9740 * t826 + 0.20e2 / 0.9e1 * t3233 * t773 + 0.25e2 / 0.144e3 * t7189 * t1214 + 0.125e3 / 0.162e3 * t7152 * t3248 + 0.25e2 / 0.144e3 * t7192 * t1214 - 0.25e2 / 0.27e2 * t2230 * t3251 - 0.5e1 / 0.8748e4 * t2224 * t4807 - 0.25e2 / 0.78732e5 * t9763 * t14857 + 0.10e2 / 0.2187e4 * t565 * t3247 - 0.125e3 / 0.1296e4 * t6356 * t4807 * t216 - 0.3125e4 / 0.69984e5 * t6339 * t14857 + 0.125e3 / 0.324e3 * t1796 * t3247;
9444   t14872 = 0.2e1 / 0.2187e4 * t58 * t9837 * t346 + t1214 * t14791 / 0.3888e4 - t58 * t3210 * t831 / 0.5832e4 + 0.9e1 / 0.4e1 * t7130 * t1206 - 0.45e2 / 0.8e1 * t7147 * t3220 + 0.9e1 / 0.2e1 * t2202 * t3223 - 0.3e1 / 0.2e1 * t2200 * t1219 + 0.9e1 / 0.4e1 * t2202 * t3228 - 0.3e1 / 0.2e1 * t804 * t3261 - 0.15e2 / 0.8e1 * t6290 * t4795 + 0.105e3 / 0.16e2 * t6300 * t4795 * t225 - 0.45e2 / 0.8e1 * t1769 * t1206 * t831 + 0.9e1 / 0.4e1 * t1761 * t4798 - 0.45e2 / 0.8e1 * t1769 * t4798 * t225 + 0.9e1 / 0.4e1 * t558 * t831 * t1219 + 0.9e1 / 0.4e1 * t558 * t346 * t3261 - t553 * t4812 / 0.2e1 + 0.3e1 / 0.4e1 * t558 * t4812 * t225 - t214 * t14869 / 0.2e1;
9445   t14884 = t610 * t4867;
9446   t14887 = t6434 * t4827;
9447   t14899 = t2298 * t1250;
9448   t14909 = t2487 * t3471 * t362;
9449   t14913 = t1871 * t1409 * t1253;
9450   t14918 = -0.119078225334763520e0 * t609 * t14884 - 0.11756685810716947640e1 * t14887 * t90 * t841 - 0.357234676004290560e0 * t854 * t10251 + 0.32937059624806545679e0 * t851 * t9950 + 0.38253832257502646895e1 * t851 * t9953 - 0.25502554838335097930e1 * t851 * t9958 - 0.58783429053584738203e0 * t2297 * t14899 + 0.50637350790534702504e1 * t2493 * t10609 - 0.68272379506610123965e1 * t851 * t9961 + 0.20722416937066287827e0 * t851 * t10374 + 0.21799717097663792993e0 * t1870 * t14909 - 0.84395584650891170843e0 * t1870 * t14913 - 0.75919974291285761083e-1 * t3464 * t2288;
9451   t14929 = -t239 * t14872 * t94;
9452   t14932 = t4828 * t236;
9453   t14935 = t4849 * t1984;
9454   t14936 = t4040 * t14935;
9455   t14939 = t9945 * t1245;
9456   t14942 = t4849 * t94;
9457   t14943 = t1871 * t14942;
9458   t14946 = t1253 * t249;
9459   t14947 = t857 * t14946;
9460   t14950 = t857 * t10678;
9461   t14953 = t3489 * t2474;
9462   t14958 = t362 * t873;
9463   t14959 = t857 * t14958;
9464   t14962 = -0.32937059624806545678e0 * t2510 * t3290 - 0.32937059624806545678e0 * t851 * t10590 - 0.32937059624806545678e0 * t851 * t10594 + 0.38253832257502646895e1 * t3464 * t3273 + 0.461000314880e0 * t237 * t14929 + 0.45165298839047841173e-1 * t14932 * t606 + 0.87446194859244818738e0 * t6536 * t14936 - 0.11378729917768353994e1 * t7754 * t14939 + 0.12751277419167548965e1 * t603 * t14943 + 0.714469352008581120e0 * t2482 * t14947 + 0.8298005667840e1 * t4067 * t14950 - 0.89901964350980565762e0 * t7430 * t14953 - 0.2143408056025743360e1 * t2488 * t14939 + 0.1428938704017162240e1 * t2482 * t14959;
9465   t14982 = t604 * t857 * t834;
9466   t14995 = 0.63756387095837744823e0 * t3461 * t2501 + 0.29391714526792369101e0 * t3464 * t2501 + 0.63756387095837744823e0 * t2510 * t3494 + 0.63756387095837744823e0 * t851 * t10259 - 0.84395584650891170840e0 * t8019 * t3472 - 0.357234676004290560e0 * t10127 * t881 + 0.714469352008581120e0 * t625 * t1249 * t3384 + 0.8298005667840e1 * t3434 * t3332 - 0.25502554838335097930e1 * t2291 * t14982 + 0.32937059624806545679e0 * t3458 * t2305 + 0.25502554838335097930e1 * t3458 * t2308 - 0.17635028716075421460e1 * t10391 * t3280 + 0.16879116930178234168e1 * t9908 * t2280 - 0.22757459835536707989e1 * t3458 * t2285;
9467   t15014 = t3489 * t228;
9468   t15015 = t1871 * t15014;
9469   t15018 = t1245 * t228;
9470   t15019 = t355 * t15018;
9471   t15028 = -0.12751277419167548965e1 * t10112 * t3273 - 0.16468529812403272839e0 * t3461 * t2305 - 0.12751277419167548965e1 * t3461 * t2308 + 0.29391714526792369101e0 * t10117 * t3280 - 0.84395584650891170840e0 * t9915 * t2280 + 0.11378729917768353994e1 * t3461 * t2285 + 0.58783429053584738202e0 * t8000 * t14982 - 0.75919974291285761083e-1 * t3464 * t2305 - 0.45186746351441547126e1 * t2493 * t10620 - 0.22757459835536707988e1 * t2291 * t15015 + 0.65874119249613091356e0 * t7776 * t15019 + 0.41444833874132575653e0 * t10727 * t10555 + 0.65874119249613091356e0 * t10741 * t10558 - 0.15183994858257152217e0 * t7773 * t3290;
9472   t15035 = t4849 * t621;
9473   t15036 = t4040 * t15035;
9474   t15044 = t1820 * t15014;
9475   t15049 = t231 * t14872;
9476   t15052 = t618 * t4858;
9477   t15053 = t15052 * t605;
9478   t15059 = t4864 * t605;
9479   t15062 = t3364 * t2500;
9480   t15071 = 0.43599434195327585986e0 * t10746 * t10548 - 0.58783429053584738202e0 * t10741 * t10552 - 0.15062248783813849042e1 * t1870 * t15036 - 0.16468529812403272839e0 * t3434 * t2371 + 0.63756387095837744823e0 * t10254 * t349 * t102 + 0.25502554838335097930e1 * t2291 * t15044 + 0.714469352008581120e0 * t3446 * t2371 + 0.461000314880e0 * t15049 * t102 + 0.822756481972633600e0 * t237 * t15053 + 0.12751277419167548965e1 * t625 * t4855 * t626 + 0.29619233351014809600e2 * t237 * t15059 - 0.14809616675507404800e2 * t237 * t15062 - 0.38253832257502646894e1 * t9866 * t349 * t3975 - 0.119078225334763520e0 * t625 * t4859 * t626;
9481   t15073 = t631 * t4858 * t605;
9482   t15079 = t621 * t3370;
9483   t15089 = t3305 * t2500;
9484   t15093 = t840 * t1222 * t228;
9485   t15096 = t362 * t1274;
9486   t15097 = t1843 * t15096;
9487   t15109 = t6605 * t4849;
9488   t15110 = t15109 * t605;
9489   t15113 = t3297 * t2500;
9490   t15116 = -0.922000629760e0 * t237 * t15073 - 0.18307055749595233518e1 * t616 * t2349 * t4883 - 0.18307055749595233518e1 * t616 * t861 * t15079 - 0.94575714566868943973e0 * t1941 * t4855 * t1942 - 0.21968466899514280222e2 * t616 * t4864 * t862 + 0.2468269445917900800e1 * t237 * t15089 + 0.8298005667840e1 * t2361 * t15093 + 0.44950982175490282881e0 * t609 * t15097 + 0.714469352008581120e0 * t3500 * t3403 + 0.20722416937066287826e0 * t3434 * t2475 - 0.75919974291285761083e-1 * t3431 * t364 - 0.37929099725894513314e0 * t625 * t4864 * t626 - 0.17620679382074383663e2 * t237 * t15110 + 0.44051698455185959158e1 * t237 * t15113;
9491   t15118 = t4840 * t90;
9492   t15121 = t840 * t3264;
9493   t15127 = t3358 * t90;
9494   t15131 = t1843 * t1261 * t228;
9495   t15141 = t4071 * t15035;
9496   t15144 = t4840 * t236;
9497   t15147 = t4831 * t236;
9498   t15156 = -0.11064007557120e2 * t15118 * t841 - 0.2766001889280e1 * t839 * t15121 + 0.975074869248e0 * t97 * t888 * t3377 + 0.29391714526792369101e0 * t15127 * t3332 - 0.89901964350980565762e0 * t839 * t15131 - 0.10151298285083840779e1 * t854 * t10031 + 0.89901964350980565762e0 * t854 * t9928 - 0.61023519165317445059e0 * t616 * t15052 * t862 + 0.16879116930178234169e1 * t1870 * t15141 - 0.58783429053584738203e0 * t15144 * t606 + 0.21252129031945914941e0 * t15147 * t606 - 0.63756387095837744824e0 * t2488 * t14947 - 0.14809616675507404800e2 * t4072 * t14950 + 0.44051698455185959158e1 * t4081 * t14950;
9499   t15157 = t4040 * t14942;
9500   t15164 = t4834 * t236;
9501   t15170 = t3493 * t3480;
9502   t15181 = t1274 * t240;
9503   t15182 = t857 * t15181;
9504   t15194 = 0.67692822862798455803e0 * t603 * t15157 - 0.12751277419167548965e1 * t3458 * t2501 + 0.63756387095837744823e0 * t10470 * t858 + 0.12751277419167548965e1 * t15164 * t606 + 0.44950982175490282881e0 * t3476 * t3493 * t2474 + 0.714469352008581120e0 * t2482 * t15170 + 0.47287857283434471985e0 * t2506 * t4883 * t3480 - 0.63756387095837744824e0 * t2488 * t15170 + 0.44950982175490282881e0 * t3476 * t857 * t10189 + 0.714469352008581120e0 * t2482 * t15182 + 0.47287857283434471985e0 * t2506 * t1409 * t15181 - 0.63756387095837744824e0 * t2488 * t15182 + 0.80224916908241017663e0 * t7517 * t14953 + 0.38253832257502646895e1 * t7576 * t14939;
9505   t15215 = t4855 * t605;
9506   t15218 = t1241 * t2500;
9507   t15223 = t4858 * t94;
9508   t15224 = t604 * t15223;
9509   t15227 = t4071 * t14942;
9510   t15236 = -0.12751277419167548965e1 * t2488 * t14959 - 0.63756387095837744824e0 * t625 * t1241 * t3384 - 0.357234676004290560e0 * t625 * t874 * t4892 + 0.39207562244901126197e2 * t616 * t15109 * t862 - 0.98018905612252815489e1 * t616 * t3297 * t3398 - 0.714469352008581120e0 * t625 * t4850 * t626 - 0.11064007557120e2 * t237 * t15215 + 0.8298005667840e1 * t237 * t15218 + 0.11378729917768353994e1 * t2510 * t3497 + 0.21252129031945914941e0 * t603 * t15224 - 0.22757459835536707989e1 * t603 * t15227 - 0.12751277419167548965e1 * t2510 * t3490 - 0.58783429053584738202e0 * t3464 * t2308 + 0.13549589651714352352e0 * t10089 * t3280;
9511   t15242 = t604 * t3493 * t228;
9512   t15249 = t2298 * t1255;
9513   t15257 = t1871 * t3471 * t228;
9514   t15264 = t7985 * t1242;
9515   t15271 = -0.38906391098542524630e0 * t10653 * t2280 + 0.52455980750256876982e0 * t3464 * t2285 - 0.12751277419167548965e1 * t2291 * t15242 - 0.16468529812403272839e0 * t851 * t9965 - 0.12751277419167548965e1 * t851 * t9969 + 0.29391714526792369101e0 * t2297 * t15249 - 0.84395584650891170840e0 * t2493 * t9973 + 0.11378729917768353994e1 * t851 * t10576 + 0.16879116930178234168e1 * t7473 * t15257 + 0.21799717097663792993e0 * t2493 * t10605 - 0.16879116930178234168e1 * t2493 * t10613 - 0.38906391098542524630e0 * t2297 * t15264 + 0.26233858457773445621e1 * t8022 * t10617 - 0.16468529812403272839e0 * t851 * t10381;
9516   t15273 = t3325 * t3839;
9517   t15280 = t4867 * t239;
9518   t15284 = t4821 * t239;
9519   t15294 = t6423 * t4849;
9520   t15299 = t610 * t1274 * t228;
9521   t15304 = t6555 * t4821;
9522   t15308 = t610 * t362 * t834;
9523   t15313 = t4834 * t90;
9524   t15316 = 0.29391714526792369101e0 * t15273 * t2299 - 0.357234676004290560e0 * t2365 * t3381 - 0.2766001889280e1 * t2368 * t4933 - 0.119078225334763520e0 * t625 * t15280 * t605 - 0.33837660950279469264e0 * t6571 * t15284 * t605 + 0.44950982175490282881e0 * t1852 * t874 * t4946 - 0.2202015477522235392e1 * t3991 * t15096 * t249 - 0.13606156761889987933e2 * t616 * t15294 * t862 + 0.714469352008581120e0 * t839 * t15299 + 0.44950982175490282881e0 * t854 * t10190 - 0.33837660950279469264e0 * t609 * t15304 - 0.32937059624806545678e0 * t2361 * t15308 + 0.44950982175490282881e0 * t3329 * t2475 - 0.714469352008581120e0 * t15313 * t611;
9525   t15317 = t599 * t4815;
9526   t15321 = t4831 * t90;
9527   t15331 = t590 * t4815;
9528   t15332 = t15331 * t90;
9529   t15341 = t644 * t4867;
9530   t15345 = t869 * t10258;
9531   t15348 = t15294 * t605;
9532   t15357 = 0.21252129031945914941e0 * t15317 * t228 * t102 - 0.119078225334763520e0 * t15321 * t611 - 0.16468529812403272839e0 * t4928 * t251 + 0.29391714526792369101e0 * t10328 * t349 * t3975 + 0.98811178874419637034e0 * t10036 * t3403 - 0.922000629760e0 * t15332 * t841 + 0.32937059624806545679e0 * t15118 * t611 - 0.38253832257502646895e1 * t10036 * t3332 + 0.44950982175490282881e0 * t2365 * t3335 + 0.325024956416e0 * t97 * t15341 * t249 - 0.2766001889280e1 * t237 * t15345 + 0.26206649088979828343e1 * t237 * t15348 - 0.48997150734706182896e0 * t6566 * t4864 * t6567 - 0.22762551443898437297e2 * t1983 * t15109 * t3417;
9533   t15360 = t1984 * t873;
9534   t15364 = t6426 * t240;
9535   t15376 = t4828 * t90;
9536   t15382 = t94 * t3377;
9537   t15388 = t6584 * t4827;
9538   t15392 = t4837 * t228;
9539   t15409 = t2340 * t3493;
9540   t15421 = 0.32124960e2 * t847 * t15392 - 0.42833280e2 * t4840 * t892 + 0.3185225478400e1 * t15317 * t892 + 0.17054206847430144000e2 * t10328 * t3917 - 0.57334058611200e2 * t2343 * t9968 - 0.3569440e1 * t15331 * t892 - 0.3569440e1 * t15073 - 0.68216827389720576000e2 * t14887 * t892 - 0.10708320e2 * t15345 - 0.10708320e2 * t15409 - 0.68216827389720576000e2 * t15110 + 0.32124960e2 * t861 * t9968 + 0.3185225478400e1 * t15053 + 0.9555676435200e1 * t15089 + 0.17054206847430144000e2 * t10224 * t2284 - 0.42833280e2 * t15215 + 0.10145661348248508867e2 * t15388 * t892;
9541   t15422 = t99 * t3264;
9542   t15434 = t9933 * t857;
9543   t15451 = -0.10708320e2 * t838 * t15422 - 0.10708320e2 * t2319 * t4837 - 0.57334058611200e2 * t15062 + 0.17054206847430144000e2 * t15113 + 0.114668117222400e3 * t15059 + 0.9555676435200e1 * t3325 * t3342 + 0.17054206847430144000e2 * t3358 * t3342 + 0.9555676435200e1 * t15434 - 0.57334058611200e2 * t3345 * t3342 - 0.57334058611200e2 * t2322 * t15392 + 0.9555676435200e1 * t10254 * t1435 + 0.32124960e2 * t15218 + 0.114668117222400e3 * t4828 * t892 + 0.10145661348248508867e2 * t15348 + 0.1784720e1 * t15049 * t99 + 0.1784720e1 * t14929 + 0.32124960e2 * t1233 * t3342;
9544   t15460 = t2298 * t1258;
9545   t15463 = 0.56906378609746093242e1 * t1983 * t3297 * t15360 - 0.92817332546461565657e1 * t6421 * t15294 * t15364 + 0.20312390406477209506e2 * t1983 * t15294 * t3417 + 0.84395584650891170840e0 * t1941 * t4864 * t1942 - 0.357234676004290560e0 * t3329 * t2371 + 0.76507664515005293790e1 * t15376 * t841 + 0.975074869248e0 * t97 * t2275 * t1274 - 0.357234676004290560e0 * t625 * t355 * t15382 - 0.25306658097095253694e-1 * t15376 * t611 + 0.45165298839047841173e-1 * t15388 * t228 * t102 - 0.258304e0 * t97 * t245 * (t15421 + t15451) - 0.29391714526792369101e0 * t851 * t9938 + 0.22757459835536707988e1 * t851 * t9942 + 0.52455980750256876981e0 * t2297 * t15460;
9546   t15467 = t3475 * t857 * t1261;
9547   t15470 = t3489 * t362;
9548   t15471 = t2481 * t15470;
9549   t15476 = t1253 * t354;
9550   t15477 = t15476 * t94;
9551   t15478 = t1871 * t15477;
9552   t15481 = t101 * t1222;
9553   t15482 = t15481 * t242;
9554   t15488 = t1815 * t3493 * t362;
9555   t15492 = t1815 * t857 * t1274;
9556   t15495 = t2487 * t15470;
9557   t15498 = t1820 * t15477;
9558   t15506 = t1409 * t10678;
9559   t15509 = 0.20307846858839536740e1 * t851 * t9947 + 0.20722416937066287827e0 * t603 * t15467 + 0.32937059624806545678e0 * t603 * t15471 - 0.16468529812403272839e0 * t3461 * t2288 + 0.11378729917768353994e1 * t603 * t15478 - 0.12751277419167548965e1 * t2291 * t15482 + 0.32937059624806545678e0 * t3458 * t2288 - 0.16468529812403272839e0 * t603 * t15488 - 0.16468529812403272839e0 * t603 * t15492 - 0.29391714526792369101e0 * t603 * t15495 - 0.12751277419167548965e1 * t603 * t15498 + 0.44950982175490282881e0 * t2478 * t3428 + 0.47287857283434471986e0 * t2506 * t1409 * t14946 + 0.10984233449757140111e2 * t4109 * t15506;
9560   t15519 = t3471 * t3480;
9561   t15544 = t610 * t1222 * t249;
9562   t15547 = 0.56906378609746093244e1 * t4041 * t5726 * t10678 - 0.98018905612252815491e1 * t4046 * t15506 - 0.59502499971174729838e0 * t7513 * t3471 * t2474 - 0.28372714370060683191e1 * t7570 * t15519 + 0.94575714566868943972e0 * t2506 * t1409 * t14958 - 0.14699145220411854869e1 * t7602 * t5296 * t3480 + 0.25318675395267351253e1 * t7720 * t15519 - 0.2766001889280e1 * t237 * t15409 - 0.16468529812403272839e0 * t3326 * t364 + 0.2468269445917900800e1 * t237 * t15434 + 0.63756387095837744823e0 * t3325 * t834 * t102 + 0.1428938704017162240e1 * t839 * t15308 - 0.89901964350980565762e0 * t3446 * t2475 + 0.714469352008581120e0 * t839 * t15544;
9563   t15564 = t621 * t902;
9564   t15577 = t1261 * t240;
9565   t15578 = t857 * t15577;
9566   t15589 = -0.357234676004290560e0 * t625 * t3371 * t1245 - 0.357234676004290560e0 * t625 * t1254 * t3384 - 0.2143408056025743360e1 * t3434 * t3403 - 0.2202015477522235392e1 * t97 * t3449 * t902 + 0.10984233449757140111e2 * t616 * t3364 * t3398 + 0.20722416937066287827e0 * t848 * t1263 + 0.47287857283434471986e0 * t1941 * t1241 * t15564 - 0.16468529812403272839e0 * t848 * t1276 + 0.23916119461575365556e1 * t97 * t6683 * t4821 * t249 - 0.10151298285083840779e1 * t10496 * t857 * t10030 - 0.89901964350980565762e0 * t7430 * t15578 + 0.89901964350980565762e0 * t3476 * t857 * t9927 - 0.59502499971174729837e0 * t7513 * t1409 * t15577 + 0.80224916908241017663e0 * t7517 * t15578;
9567   t15594 = my_piecewise3(t87, 0, t14918 + t14962 + t14995 + t15028 + t15071 + t15116 + t15156 + t15194 + t15236 + t15271 + t15316 + t15357 + t15463 + t15509 + t15547 + t15589);
9568   t15595 = my_piecewise3(t86, 0, t15594);
9569   t15597 = t14872 * t104 + 0.3e1 * t1222 * t908 + 0.3e1 * t834 * t1280 + t85 * t15595 + t228 * t4958 + t4815 * t255 + 0.3e1 * t3264 * t368 + 0.3e1 * t349 * t3510;
9570   t15601 = t4961 * t114;
9571   t15614 = t2011 * t914;
9572   t15629 = t685 * t4960;
9573   t15644 = -t46 * t15597 * t118 / 0.100e3 - t15601 * t1115 / 0.60e2 - t10990 * t1457 / 0.20e2 + t1283 * t261 * t4137 / 0.36e2 - t3516 * t4140 / 0.20e2 - t1283 * t4143 * t927 / 0.18e2 + 0.5e1 / 0.54e2 * t1287 * t15614 + 0.125e3 / 0.1458e4 * t4967 * t9460 * t1115 - 0.5e1 / 0.27e2 * t3527 * t6114 * t914 - 0.125e3 / 0.2187e4 * t4967 * t8076 * t1115 + t266 * t15597 * t118 / 0.100e3 + t15629 * t1115 / 0.180e3 + t10997 * t1457 / 0.60e2 + t3535 * t4140 / 0.60e2 + t2024 * t5009 * t927 / 0.108e3 + 0.5e1 / 0.162e3 * t3541 * t15614 + 0.25e2 / 0.4374e4 * t6857 * t4977 * t1115;
9574   t15674 = t4993 * t280;
9575   t15728 = -params->c1 * t15597 * t131 - 0.10e2 / 0.9e1 * t15674 * t1138 - 0.10e2 / 0.3e1 * t9684 * t1478 - 0.350e3 / 0.81e2 * t10797 * t4200 - 0.10e2 / 0.3e1 * t3565 * t4203 - 0.500e3 / 0.27e2 * t1308 * t707 * t914 - 0.10000e5 / 0.729e3 * t4997 * t183 * t732 * t261 * t15 - 0.50000e5 / 0.6561e4 * t8110 * t4966 * t26 * t4199 - 0.2500e4 / 0.243e3 * t2589 * t1286 * t10 * t14 * t914 - 0.100e3 / 0.81e2 * t276 * t707 * t5006 - 0.500e3 / 0.27e2 * t946 * t968 * t3580 - 0.100e3 / 0.81e2 * t5004 * t11110 * t5005 - 0.100e3 / 0.81e2 * t5004 * t4198 * t13 * t3512 - 0.50e2 / 0.81e2 * t279 * t1144 * t3512 * t374 - 0.50e2 / 0.81e2 * t279 * t1144 * t1282 * t914 - 0.50e2 / 0.81e2 * t279 * t1144 * t4960 * t261 - 0.5e1 / 0.9e1 * t463 * t464 * t15597;
9576   t15747 = t6928 * t1138;
9577   t15750 = t3596 * t3600;
9578   t15758 = t58 * t5027 * t261;
9579   t15783 = t730 * t732 * t4960;
9580   t15798 = -0.10000e5 / 0.729e3 * t287 * t2079 * t4966 * t15747 - 0.500e3 / 0.27e2 * t2069 * t15750 - 0.5000e4 / 0.243e3 * t730 * t2094 * t4966 * t15747 - 0.50e2 / 0.9e1 * t8215 * t15758 - 0.10e2 / 0.3e1 * t2619 * t5028 - 0.50e2 / 0.9e1 * t8198 * t15758 - 0.10e2 / 0.3e1 * t959 * t15 * t137 * t3512 - 0.500e3 / 0.27e2 * t2080 * t15750 - 0.5000e4 / 0.729e3 * t2092 * t6950 * t4966 * t15747 - 0.10e2 / 0.9e1 * t287 * t706 * t4960 * t291 - t287 * t280 * t15597 * t137 - 0.5e1 / 0.9e1 * t15783 * t291 - 0.5e1 / 0.3e1 * t10855 * t396 - 0.5e1 / 0.3e1 * t3614 * t965 - 0.25e2 / 0.27e2 * t10843 * t4246 - 0.250e3 / 0.81e2 * t2095 * t15750 - 0.1250e4 / 0.2187e4 * t6968 * t6970 * t4966 * t15747;
9581   t15799 = my_piecewise3(t129, 0.3e1 * t1317 * t954 * t135 + t5016 * t285 * t135 + t5021 * t285 * t135 + 0.3e1 * t3587 * t393 * t135 + 0.3e1 * t1320 * t954 + t15728 * t135 + 0.3e1 * t5018 * t286, t15798);
9582   t15802 = t168 * (0.27e2 / 0.160e3 * t184 * t188 * t42 - 0.243e3 / 0.2560e4 * t521 * t785 * t15 * sigma[0] * t42 + 0.24057e5 / 0.2048000e7 * t4779 * t3200 - 0.177147e6 / 0.81920000e8 * t6251 * t185 / t6241 * t42 + 0.6e1 * t930 * t1297 + 0.6e1 * t381 * t3544 + 0.2e1 * t270 * t4981 + 0.2e1 * t121 * t15644) * t140 - t168 * t4984 * t294 + 0.6e1 * t497 * t4987 * t273 - 0.3e1 * t168 * t3547 * t399 - 0.3e1 * t168 * t1300 * t973 + 0.6e1 * t497 * t4990 * t273 - 0.3e1 * t168 * t933 * t1332 - 0.3e1 * t168 * t384 * t3622 - t168 * t273 * t5041 - t128 * t15799 + 0.1174e1 * t15799;
9583   t15808 = 0.27831937500000000000e1 * t407 * t3626 * t413 + 0.13591397041152118346e3 * t3639 * t3658 + 0.33978492602880295866e2 * t9652 * t1359 - 0.25048743750000000000e3 * t1340 * t3648 - 0.13627470907039387500e3 * t1340 * t3665 + 0.19305583784972465625e3 * t409 * t5085 * t9 * t2140 + 0.34068677267598468750e2 * t407 * t408 * t1357 * t302 * t753 * t7077 - 0.24739500000000000000e1 * t307 * t308 * t5044 * t316 + 0.62621859375000000000e1 * t3643 * t5067 + 0.17034338633799234375e2 * t985 * t5087 - t767 * t5046 / 0.2e1 - 0.12524371875000000000e2 * t407 * t977 * t753 * t1348 - 0.3e1 / 0.8e1 * t164 * t7 * (t14765 + t15802) * t158;
9584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9585     v4rhosigma3[0] = t14697 + t15808;
9586 
9587   t15822 = t5425 * t280;
9588   t15849 = 0.500e3 / 0.81e2 * t946 * t3142 * t1286 + 0.100e3 / 0.81e2 * t5434 * t9292 - 0.100e3 / 0.81e2 * t11099 * t4200 + 0.10e2 / 0.9e1 * t4206 * t1488 - 0.5e1 / 0.9e1 * t15822 * t1138 + 0.200e3 / 0.81e2 * t943 * t4222 + 0.20e2 / 0.9e1 * t10797 * t4688 + 0.10e2 / 0.9e1 * t1481 * t4231 - 0.50e2 / 0.81e2 * t9330 * t5429 + t1306 * t1161 + 0.5e1 / 0.9e1 * t1141 * t5449 - 0.500e3 / 0.81e2 * t12748 * t3596 * t261 + 0.500e3 / 0.27e2 * t9679 * t1164 * t261 - 0.10e2 / 0.9e1 * t11116 * t1478 + t3563 * t470 - 0.100e3 / 0.81e2 * t3086 * t4198 * t29 * t914;
9589   t15858 = t449 * t1286;
9590   t15862 = t449 * t3512;
9591   t15869 = t1109 * t1282;
9592   t15885 = t2202 * t565;
9593   t15888 = t15 * sigma[0];
9594   t15892 = t804 * t3714;
9595   t15899 = t1034 * t346;
9596   t15907 = t558 * t3714;
9597   t15917 = -0.5e1 / 0.12e2 * t15885 * t3720 - 0.25e2 / 0.139968e6 * t2736 * t13215 * t15888 - 0.20e2 / 0.27e2 * t15892 * t1031 - 0.5e1 / 0.12e2 * t11351 * t5152 - 0.5e1 / 0.12e2 * t11354 * t5152 - 0.5e1 / 0.12e2 * t3718 * t15899 * t319 - 0.5e1 / 0.12e2 * t3718 * t425 * t831 * t319 - 0.5e1 / 0.12e2 * t15907 * t3720 - t5528 * t14791 / 0.3456e4 + 0.10e2 / 0.9e1 * t3718 * t5151 * t773 - 0.25e2 / 0.864e3 * t8406 * t5157;
9598   t15947 = t558 * t1378;
9599   t15950 = -0.25e2 / 0.864e3 * t2736 * t8428 * t1185 - 0.125e3 / 0.972e3 * t8399 * t8400 * t3189 + 0.5e1 / 0.18e2 * t11319 * t1381 + 0.5e1 / 0.18e2 * t11322 * t1381 + 0.5e1 / 0.18e2 * t3711 * t3787 - t11199 * t5163 / 0.1728e4 - t11202 * t5163 / 0.1728e4 - t3790 * t58 * t67 * t831 / 0.1728e4 + 0.13e2 / 0.5184e4 * t3790 * t58 * t35 * t346 + 0.25e2 / 0.162e3 * t2736 * t2737 * t825 - 0.20e2 / 0.27e2 * t3711 * t3780 - t15947 * t3792 / 0.1728e4;
9600   t15952 = t58 * t9713;
9601   t15953 = t425 * t225;
9602   t15954 = t215 * t15953;
9603   t15957 = t2202 * t215;
9604   t15960 = t558 * t58;
9605   t15961 = t35 * t79;
9606   t15984 = t15952 * t15954 / 0.5832e4 - t15957 * t3792 / 0.1728e4 + t15960 * t15961 * t15953 / 0.5832e4 - t2774 * t1219 / 0.2e1 - t1018 * t3261 / 0.2e1 + 0.3e1 / 0.4e1 * t8499 * t1206 + 0.3e1 / 0.2e1 * t2724 * t3223 + 0.3e1 / 0.2e1 * t1022 * t1023 * t3261 - 0.5e1 / 0.15552e5 * t3770 * t5139 - 0.5e1 / 0.15552e5 * t3773 * t5139 + 0.3e1 * t11172 * t1375 + 0.3e1 * t11140 * t1375;
9607   t16008 = t213 * t216 * t1023;
9608   t16011 = 0.3e1 * t3760 * t3742 + 0.3e1 / 0.2e1 * t2781 * t5136 + 0.3e1 / 0.2e1 * t1022 * t2784 * t1219 + 0.3e1 * t3760 * t3732 - 0.2e1 * t804 * t3749 - 0.13e2 / 0.15552e5 * t4789 + 0.3e1 * t3735 * t3732 + 0.3e1 / 0.2e1 * t2778 * t5136 - 0.15e2 / 0.8e1 * t8505 * t3220 + 0.3e1 / 0.4e1 * t2724 * t3228 + 0.5e1 / 0.5832e4 * t5125 * t3777 - t1214 * t16008 / 0.8748e4;
9609   t16014 = t5128 * t2784;
9610   t16018 = t425 * sigma[0];
9611   t16019 = t565 * t16018;
9612   t16044 = -t1214 * t16014 / 0.8748e4 - 0.5e1 / 0.19683e5 * t3247 * t213 * t16019 - 0.15e2 / 0.2e1 * t11273 * t3767 - 0.15e2 / 0.4e1 * t2732 * t1023 * t3228 + 0.5e1 / 0.10368e5 * t1022 * t3776 * t4382 * t225 - 0.2e1 * t2200 * t1379 - 0.20e2 / 0.27e2 * t3715 * t3780 - 0.13e2 / 0.7776e4 * t5125 * t3753 + 0.4e1 / 0.6561e4 * t3251 * t5129 - 0.13e2 / 0.7776e4 * t5115 * t3753 + 0.4e1 / 0.6561e4 * t5121 * t825 * t1023;
9613   t16045 = t2200 * t75;
9614   t16048 = t804 * t216;
9615   t16065 = t214 * t183;
9616   t16070 = t553 * t341;
9617   t16073 = t214 * t818;
9618   t16082 = t16045 * t1387 / 0.2592e4 + t16048 * t1387 / 0.2592e4 + 0.5e1 / 0.5832e4 * t5115 * t3777 + 0.105e3 / 0.8e1 * t8409 * t1023 * t3220 - 0.15e2 / 0.2e1 * t2732 * t1023 * t3223 - t553 * t26 * t5122 / 0.8748e4 - t5121 * t1185 * t2784 / 0.8748e4 - 0.5e1 / 0.19683e5 * t16065 * t188 * t220 * t16018 + t16070 * t1387 / 0.2592e4 + t16073 * t1387 / 0.2592e4 + 0.25e2 / 0.162e3 * t11316 * t3708 + 0.5e1 / 0.3456e4 * t11297 * t58 * t5162 * t225;
9619   t16086 = t558 * t1782;
9620   t16098 = t2202 * t341;
9621   t16115 = 0.25e2 / 0.162e3 * t11348 * t3708 + 0.25e2 / 0.576e3 * t16086 * t2737 * t1185 * t225 + 0.35e2 / 0.15552e5 * t1384 * t3776 * t324 - 0.15e2 / 0.4e1 * t8524 * t5118 - 0.15e2 / 0.4e1 * t8527 * t5118 + 0.3e1 * t16098 * t1024 - 0.15e2 / 0.4e1 * t2732 * t2784 * t1206 + 0.3e1 * t11409 * t1375 + 0.3e1 * t11402 * t1375 + 0.3e1 * t3735 * t3742 - 0.15e2 / 0.2e1 * t11367 * t3767 + t58 * t3726 * t831 / 0.5184e4;
9622   t16124 = t346 * sigma[0];
9623   t16148 = -0.2e1 * t804 * t3751 + 0.10e2 / 0.9e1 * t11254 * t3764 + 0.5e1 / 0.9e1 * t2766 * t1219 * t10 * t193 - 0.5e1 / 0.3888e4 * t3718 * t4807 * t16124 + 0.5e1 / 0.18e2 * t11327 * t1381 + 0.5e1 / 0.18e2 * t11331 * t1381 + 0.5e1 / 0.18e2 * t3715 * t3787 - 0.25e2 / 0.864e3 * t8460 * t5157 + 0.10e2 / 0.9e1 * t11238 * t3764 + 0.25e2 / 0.24e2 * t8554 * t3763 * t3719 - 0.25e2 / 0.108e3 * t8531 * t11234 * t826 - 0.25e2 / 0.18e2 * t8554 * t1206 * t10 * t193;
9624   t16151 = t15917 + t15950 + t15984 + t16011 + t16044 + t16082 + t16115 + t16148;
9625   t16169 = t11619 * t2500;
9626   t16172 = t433 * t1240;
9627   t16173 = t16172 * t862;
9628   t16176 = t1419 * t354;
9629   t16177 = t16176 * t626;
9630   t16180 = t16176 * t605;
9631   t16183 = t5183 * t236;
9632   t16200 = -0.42504258063891829882e0 * t3458 * t2969 - 0.9873077783671603200e1 * t4072 * t16169 + 0.39207562244901126197e2 * t11746 * t16173 - 0.42504258063891829883e0 * t2488 * t16177 - 0.9873077783671603200e1 * t4072 * t16180 + 0.21252129031945914941e0 * t16183 * t606 + 0.65874119249613091356e0 * t11926 * t3403 + 0.13814944624710858551e0 * t3840 * t2475 - 0.50613316194190507389e-1 * t11929 * t364 + 0.476312901339054080e0 * t4086 * t3362 + 0.29967321450326855254e0 * t8626 * t1246 + 0.29967321450326855254e0 * t2965 * t3424 + 0.29967321450326855254e0 * t2965 * t3385;
9633   t16204 = t1058 * t15577;
9634   t16218 = t5722 * t2283;
9635   t16221 = t1419 * t1984;
9636   t16233 = t354 * t902;
9637   t16237 = t1240 * t249;
9638   t16238 = t2816 * t16237;
9639   t16241 = -0.33837660950279469264e0 * t10496 * t1058 * t10030 - 0.29967321450326855254e0 * t7430 * t16204 + 0.29967321450326855254e0 * t3476 * t1058 * t9927 - 0.19834166657058243279e0 * t7513 * t2816 * t15577 + 0.42504258063891829882e0 * t851 * t11995 + 0.31525238188956314658e0 * t2506 * t5722 * t4063 + 0.73228222998380934071e1 * t4109 * t16218 + 0.37937585739830728829e1 * t4041 * t16221 * t2283 + 0.15762619094478157329e0 * t2506 * t2816 * t14946 + 0.29967321450326855254e0 * t11431 * t866 + 0.31525238188956314657e0 * t2506 * t2816 * t14958 + 0.31525238188956314657e0 * t2506 * t2816 * t16233 - 0.94575714566868943973e0 * t7570 * t16238;
9640   t16243 = t354 * t873;
9641   t16244 = t2816 * t16243;
9642   t16247 = t1445 * t362;
9643   t16275 = 0.73228222998380934072e1 * t4109 * t16244 - 0.1468010318348156928e1 * t3991 * t16247 * t249 - 0.67675321900558938528e0 * t351 * t97 * t11458 + 0.13814944624710858551e0 * t2297 * t3863 - 0.85008516127783659764e0 * t11533 * t3273 - 0.12751277419167548965e1 * t8698 * t1226 * t102 - 0.922000629760e0 * t1042 * t15121 - 0.922000629760e0 * t2897 * t4933 - 0.54895099374677576130e-1 * t3434 * t2893 + 0.21252129031945914941e0 * t10470 * t1059 + 0.21252129031945914941e0 * t3461 * t2969 + 0.42504258063891829882e0 * t2510 * t4076 - 0.42504258063891829882e0 * t2824 * t15242;
9644   t16292 = t101 * t1226;
9645   t16304 = -0.54895099374677576129e-1 * t1052 * t9965 - 0.42504258063891829882e0 * t1052 * t9969 + 0.97972381755974563669e-1 * t2803 * t15249 - 0.28131861550297056947e0 * t2987 * t9973 + 0.37929099725894513314e0 * t1052 * t10576 + 0.56263723100594113894e0 * t8830 * t15257 + 0.75858199451789026628e0 * t851 * t11704 + 0.75858199451789026628e0 * t851 * t12314 + 0.12751277419167548965e1 * t8776 * t16292 * t242 - 0.54895099374677576130e-1 * t1052 * t10381 - 0.10979019874935515226e0 * t4095 * t2305 - 0.85008516127783659764e0 * t4095 * t2308 + 0.19594476351194912734e0 * t12347 * t3280;
9646   t16333 = -0.56263723100594113893e0 * t11981 * t2280 + 0.75858199451789026627e0 * t4095 * t2285 - 0.10979019874935515226e0 * t1052 * t10590 - 0.10979019874935515226e0 * t1052 * t10594 + 0.85008516127783659764e0 * t2824 * t15044 + 0.10979019874935515226e0 * t1052 * t9950 + 0.12751277419167548965e1 * t1052 * t9953 - 0.85008516127783659764e0 * t1052 * t9958 - 0.19594476351194912734e0 * t2803 * t14899 + 0.16879116930178234168e1 * t2987 * t10609 - 0.22757459835536707989e1 * t1052 * t9961 - 0.85008516127783659765e0 * t8848 * t5356 - 0.85008516127783659765e0 * t2824 * t14982;
9647   t16338 = t1871 * t5722 * t354;
9648   t16342 = t1871 * t2816 * t1253;
9649   t16350 = t604 * t1058 * t834;
9650   t16363 = t2968 * t5242;
9651   t16369 = -0.85008516127783659765e0 * t2824 * t3818 * t875 - 0.56263723100594113896e0 * t1870 * t16338 - 0.28131861550297056947e0 * t1870 * t16342 + 0.75858199451789026628e0 * t2510 * t3843 + 0.12751277419167548965e1 * t3464 * t3852 - 0.85008516127783659764e0 * t2291 * t16350 + 0.10979019874935515226e0 * t3458 * t2809 + 0.85008516127783659764e0 * t3458 * t2813 - 0.58783429053584738202e0 * t10391 * t3859 + 0.42504258063891829882e0 * t12485 * t858 + 0.26741638969413672554e0 * t7517 * t16204 + 0.476312901339054080e0 * t2482 * t16363 - 0.238156450669527040e0 * t625 * t3880 * t1245;
9652   t16384 = t1048 * t3839 * t614;
9653   t16401 = -0.238156450669527040e0 * t625 * t1420 * t3384 - 0.11756685810716947640e1 * t2958 * t11730 * t3273 - 0.50613316194190507388e-1 * t11731 * t2305 - 0.39188952702389825468e0 * t11731 * t2308 + 0.90330597678095682346e-1 * t11677 * t3280 - 0.25937594065695016420e0 * t16384 * t2280 + 0.34970653833504584655e0 * t11731 * t2285 + 0.21958039749871030452e0 * t9156 * t15019 + 0.13814944624710858551e0 * t11725 * t10555 + 0.21958039749871030452e0 * t11661 * t10558 + 0.56263723100594113893e0 * t9908 * t2818 - 0.75858199451789026627e0 * t3458 * t2821 - 0.10979019874935515226e0 * t2510 * t3832;
9654   t16404 = t1084 * t3289;
9655   t16407 = t1084 * t3272;
9656   t16420 = t8706 * t3489;
9657   t16425 = t236 * t1446;
9658   t16430 = t644 * t5210;
9659   t16434 = -0.10979019874935515226e0 * t851 * t12629 + 0.13814944624710858551e0 * t7828 * t16404 + 0.21958039749871030452e0 * t7776 * t16407 + 0.13814944624710858551e0 * t10727 * t12414 + 0.21958039749871030452e0 * t10741 * t12417 - 0.50613316194190507389e-1 * t7773 * t3848 + 0.14533144731775861995e0 * t10746 * t12420 - 0.19594476351194912734e0 * t10741 * t12423 + 0.14683899485061986386e1 * t237 * t16420 - 0.714469352008581120e0 * t3434 * t4020 + 0.476312901339054080e0 * t16425 * t870 + 0.476312901339054080e0 * t3911 * t3403 + 0.325024956416e0 * t97 * t16430 * t249;
9660   t16438 = t441 * t1274;
9661   t16442 = t1843 * t16247;
9662   t16452 = t2867 * t3493;
9663   t16455 = t1062 * t10258;
9664   t16472 = t4042 * t9945;
9665   t16475 = -0.734005159174078464e0 * t3991 * t16438 * t249 + 0.29967321450326855254e0 * t609 * t16442 + 0.238156450669527040e0 * t625 * t8803 * t3489 + 0.32937059624806545678e0 * t3503 * t443 + 0.29967321450326855254e0 * t2365 * t3863 + 0.822756481972633600e0 * t237 * t16452 + 0.822756481972633600e0 * t237 * t16455 + 0.21252129031945914941e0 * t2883 * t1222 * t102 - 0.734005159174078464e0 * t97 * t8745 * t1261 + 0.29967321450326855254e0 * t854 * t12287 + 0.18968792869915364414e1 * t4041 * t4042 * t10678 - 0.48997150734706182896e0 * t7602 * t4042 * t16237 - 0.22762551443898437297e2 * t11742 * t16472;
9666   t16498 = t1069 * t10258;
9667   t16504 = t631 * t5200;
9668   t16505 = t16504 * t605;
9669   t16508 = t2863 * t3493;
9670   t16511 = 0.37937585739830728828e1 * t4041 * t4042 * t16243 - 0.92817332546461565657e1 * t11902 * t11903 * t9945 + 0.20312390406477209506e2 * t11908 * t16472 + 0.84395584650891170840e0 * t7720 * t16238 - 0.65345937074835210326e1 * t4046 * t16244 + 0.29967321450326855254e0 * t3476 * t4075 * t2474 + 0.650049912832e0 * t97 * t4001 * t902 - 0.119078225334763520e0 * t2890 * t3381 - 0.238156450669527040e0 * t12252 * t881 - 0.922000629760e0 * t237 * t16498 - 0.119078225334763520e0 * t625 * t5201 * t626 - 0.922000629760e0 * t237 * t16505 - 0.922000629760e0 * t237 * t16508;
9671   t16539 = -0.94575714566868943969e0 * t4090 * t3395 + 0.31525238188956314656e0 * t4090 * t3399 - 0.48997150734706182895e0 * t11452 * t3418 + 0.84395584650891170840e0 * t4090 * t3421 + 0.26741638969413672554e0 * t2965 * t3312 + 0.12751277419167548965e1 * t4086 * t3365 - 0.42504258063891829882e0 * t4086 * t3315 + 0.14983660725163427627e0 * t2965 * t3428 + 0.42504258063891829882e0 * t4095 * t2501 + 0.21252129031945914941e0 * t2982 * t3494 + 0.21252129031945914941e0 * t1052 * t10259 - 0.28131861550297056947e0 * t8634 * t3472 + 0.37929099725894513314e0 * t2982 * t3497;
9672   t16543 = t11492 * t4892;
9673   t16550 = t4075 * t3480;
9674   t16572 = t3890 * t3839;
9675   t16575 = 0.15762619094478157328e0 * t2506 * t2816 * t15181 - 0.21252129031945914941e0 * t2488 * t16543 + 0.476312901339054080e0 * t2482 * t16177 + 0.5532003778560e1 * t4067 * t16180 + 0.476312901339054080e0 * t2482 * t16550 + 0.31525238188956314657e0 * t2506 * t5722 * t3480 - 0.42504258063891829883e0 * t2488 * t16550 + 0.14983660725163427627e0 * t3476 * t1058 * t10189 + 0.238156450669527040e0 * t2482 * t16543 + 0.650049912832e0 * t97 * t12081 * t362 + 0.14983660725163427627e0 * t1852 * t1074 * t4946 - 0.1468010318348156928e1 * t3991 * t3862 * t902 + 0.19594476351194912734e0 * t16572 * t2299;
9676   t16591 = t618 * t5200;
9677   t16595 = t16591 * t605;
9678   t16603 = t434 * t15018;
9679   t16610 = -0.10979019874935515226e0 * t2510 * t3848 - 0.10979019874935515226e0 * t851 * t12327 - 0.10979019874935515226e0 * t851 * t12330 + 0.14983660725163427627e0 * t3329 * t2905 - 0.54895099374677576130e-1 * t3326 * t443 + 0.21252129031945914941e0 * t1048 * t3264 * t102 - 0.61023519165317445059e0 * t616 * t16591 * t862 + 0.822756481972633600e0 * t237 * t16595 - 0.50613316194190507389e-1 * t11731 * t2288 + 0.21958039749871030452e0 * t9156 * t5335 * t242 + 0.21958039749871030452e0 * t7776 * t16603 + 0.13814944624710858551e0 * t10727 * t11765 + 0.21958039749871030452e0 * t10741 * t11768;
9680   t16618 = t1058 * t14946;
9681   t16621 = t1058 * t10678;
9682   t16624 = t2816 * t10678;
9683   t16627 = t16172 * t626;
9684   t16630 = t16172 * t605;
9685   t16643 = -0.50613316194190507389e-1 * t7773 * t3832 + 0.31525238188956314657e0 * t615 * t1446 * t863 - 0.42504258063891829883e0 * t16425 * t878 + 0.238156450669527040e0 * t2482 * t16618 + 0.2766001889280e1 * t4067 * t16621 + 0.36614111499190467036e1 * t4109 * t16624 + 0.12751277419167548965e1 * t7576 * t16627 + 0.29619233351014809600e2 * t4081 * t16630 - 0.37929099725894513314e0 * t4086 * t3298 - 0.21252129031945914941e0 * t2488 * t16618 - 0.4936538891835801600e1 * t4072 * t16621 - 0.32672968537417605163e1 * t4046 * t16624 + 0.14683899485061986386e1 * t4081 * t16621;
9686   t16655 = t1088 * t3402;
9687   t16672 = -0.37929099725894513314e0 * t7754 * t16627 - 0.17620679382074383663e2 * t12458 * t16630 + 0.29367798970123972772e1 * t4081 * t16169 - 0.13606156761889987933e2 * t11913 * t16173 + 0.26206649088979828343e1 * t12402 * t16630 - 0.59934642900653710508e0 * t10721 * t16655 + 0.14983660725163427627e0 * t2965 * t3412 + 0.238156450669527040e0 * t4086 * t3368 + 0.15762619094478157328e0 * t4090 * t3306 - 0.21252129031945914941e0 * t4086 * t3309 - 0.19834166657058243278e0 * t8613 * t3392 + 0.14983660725163427627e0 * t2890 * t3335 - 0.119078225334763520e0 * t10127 * t1081;
9688   t16675 = t2836 * t1222;
9689   t16688 = t5183 * t90;
9690   t16691 = t2298 * t1421;
9691   t16704 = -0.54895099374677576129e-1 * t5249 * t251 + 0.97972381755974563669e-1 * t16675 * t3975 - 0.11756685810716947640e1 * t8688 * t1226 * t3975 + 0.19594476351194912734e0 * t3974 * t10165 - 0.25306658097095253694e-1 * t5317 * t251 + 0.45165298839047841173e-1 * t8651 * t1226 * t3975 - 0.119078225334763520e0 * t16688 * t611 + 0.19594476351194912734e0 * t2297 * t16691 - 0.56263723100594113893e0 * t2493 * t11512 + 0.75858199451789026627e0 * t851 * t11697 + 0.19594476351194912734e0 * t8000 * t16350 - 0.25306658097095253694e-1 * t3464 * t2809 - 0.19594476351194912734e0 * t3464 * t2813;
9692   t16713 = t16176 * t94;
9693   t16714 = t1871 * t16713;
9694   t16718 = t1048 * t1222 * t90;
9695   t16721 = t1226 * t90;
9696   t16722 = t2836 * t16721;
9697   t16727 = t1058 * t16233;
9698   t16730 = t1058 * t14958;
9699   t16743 = 0.45165298839047841173e-1 * t10089 * t3859 - 0.12968797032847508210e0 * t10653 * t2818 + 0.75858199451789026629e0 * t603 * t16714 + 0.97972381755974563669e-1 * t16718 * t2299 + 0.45165298839047841173e-1 * t16722 * t2299 - 0.10979019874935515226e0 * t4095 * t2288 + 0.476312901339054080e0 * t2482 * t16727 + 0.476312901339054080e0 * t2482 * t16730 - 0.42504258063891829882e0 * t2488 * t16363 - 0.42504258063891829882e0 * t2488 * t16730 - 0.42504258063891829882e0 * t2488 * t16727 - 0.714469352008581120e0 * t2488 * t16627 - 0.11064007557120e2 * t4072 * t16630;
9700   t16754 = t442 * t1255;
9701   t16757 = t442 * t1242;
9702   t16760 = t442 * t1258;
9703   t16763 = t433 * t1253;
9704   t16764 = t16763 * t94;
9705   t16765 = t1871 * t16764;
9706   t16768 = t16172 * t94;
9707   t16769 = t4040 * t16768;
9708   t16777 = t590 * t5166;
9709   t16778 = t16777 * t90;
9710   t16781 = 0.5532003778560e1 * t4067 * t16169 - 0.21968466899514280222e2 * t4046 * t16173 + 0.29967321450326855254e0 * t11431 * t885 - 0.29967321450326855254e0 * t2965 * t3318 - 0.714469352008581120e0 * t4086 * t3322 - 0.54895099374677576130e-1 * t603 * t16754 + 0.72665723658879309975e-1 * t1870 * t16757 - 0.97972381755974563669e-1 * t603 * t16760 + 0.37929099725894513314e0 * t603 * t16765 + 0.67692822862798455803e0 * t603 * t16769 - 0.119078225334763520e0 * t1055 * t10251 + 0.97972381755974563669e-1 * t8723 * t1226 * t102 - 0.922000629760e0 * t16778 * t841;
9711   t16785 = t599 * t5166;
9712   t16792 = t442 * t1250;
9713   t16804 = t3475 * t1058 * t1261;
9714   t16807 = t5242 * t249;
9715   t16808 = t1058 * t16807;
9716   t16811 = t5242 * t240;
9717   t16812 = t1058 * t16811;
9718   t16815 = t2816 * t16811;
9719   t16818 = t1820 * t16713;
9720   t16821 = -0.119078225334763520e0 * t3329 * t2893 + 0.21252129031945914941e0 * t16785 * t228 * t102 + 0.76507664515005293790e1 * t8964 * t97 * t16292 + 0.10979019874935515226e0 * t603 * t16792 - 0.67675321900558938528e0 * t9165 * t10555 - 0.59934642900653710508e0 * t2965 * t10558 - 0.39668333314116486558e0 * t8613 * t10548 + 0.53483277938827345109e0 * t2965 * t10552 + 0.69074723123554292755e-1 * t603 * t16804 - 0.59934642900653710508e0 * t7430 * t16808 - 0.1428938704017162240e1 * t2488 * t16812 - 0.18915142913373788794e1 * t7570 * t16815 - 0.85008516127783659766e0 * t603 * t16818;
9721   t16825 = t1815 * t4075 * t362;
9722   t16829 = t1815 * t1058 * t1274;
9723   t16853 = -0.42504258063891829883e0 * t2824 * t15482 - 0.10979019874935515226e0 * t603 * t16825 - 0.54895099374677576130e-1 * t603 * t16829 + 0.325024956416e0 * t97 * t1088 * t3377 - 0.10979019874935515226e0 * t851 * t12633 - 0.85008516127783659765e0 * t2510 * t3836 - 0.85008516127783659765e0 * t851 * t12640 - 0.85008516127783659765e0 * t851 * t11516 - 0.56263723100594113894e0 * t8019 * t3827 - 0.56263723100594113894e0 * t2493 * t12020 + 0.19594476351194912734e0 * t11479 * t3280 + 0.19594476351194912734e0 * t11483 * t3280 + 0.19594476351194912734e0 * t3840 * t10597;
9724   t16866 = t2816 * t1240;
9725   t16867 = t4071 * t16866;
9726   t16880 = t1871 * t16768;
9727   t16889 = -0.10979019874935515226e0 * t2982 * t3290 + 0.17485326916752292327e0 * t3464 * t2821 - 0.39668333314116486558e0 * t7513 * t2816 * t16807 - 0.97994301469412365794e0 * t7602 * t4042 * t16811 + 0.16879116930178234169e1 * t1870 * t16867 + 0.10979019874935515226e0 * t3458 * t2800 + 0.25502554838335097930e1 * t7576 * t16812 + 0.53483277938827345108e0 * t7517 * t16808 + 0.16879116930178234168e1 * t7720 * t16815 - 0.75858199451789026627e0 * t7754 * t16812 + 0.12751277419167548965e1 * t603 * t16880 - 0.61023519165317445059e0 * t616 * t1062 * t15079 + 0.18968792869915364414e1 * t1983 * t8706 * t5296;
9728   t16894 = t1069 * t3272;
9729   t16899 = t351 * t237;
9730   t16904 = t351 * t616;
9731   t16910 = t1062 * t1409 * t228;
9732   t16915 = t3949 * t2500;
9733   t16930 = t5174 * t228;
9734   t16941 = 0.6370450956800e1 * t16915 + 0.10708320e2 * t2883 * t5174 - 0.7138880e1 * t11578 * t1435 - 0.19111352870400e2 * t8698 * t5174 - 0.3569440e1 * t16498 + 0.5684735615810048000e1 * t8723 * t5174 + 0.6370450956800e1 * t11892 * t1435 - 0.38222705740800e2 * t12103 * t3917 - 0.42833280e2 * t2958 * t16930 + 0.3185225478400e1 * t16785 * t892 + 0.5684735615810048000e1 * t2849 * t9968 - 0.38222705740800e2 * t12194 * t2284 + 0.3185225478400e1 * t1048 * t15422;
9735   t16942 = t12003 * t857;
9736   t16957 = t3945 * t2500;
9737   t16961 = t1435 * t834;
9738   t16970 = -0.7138880e1 * t16942 + 0.21416640e2 * t3949 * t2284 + 0.10708320e2 * t1048 * t15392 + 0.10145661348248508867e2 * t8674 * t9946 + 0.3185225478400e1 * t16455 + 0.11369471231620096000e2 * t2849 * t9941 + 0.6370450956800e1 * t3890 * t3342 + 0.10145661348248508867e2 * t8651 * t16930 - 0.7138880e1 * t16957 - 0.3569440e1 * t16777 * t892 + 0.11369471231620096000e2 * t2836 * t16961 + 0.21416640e2 * t1048 * t16961 + 0.114668117222400e3 * t2836 * t16930 + 0.114668117222400e3 * t2849 * t9946;
9739   t16984 = t2867 * t3489;
9740   t16996 = 0.5684735615810048000e1 * t16420 - 0.42833280e2 * t2917 * t9946 - 0.3569440e1 * t16508 - 0.68216827389720576000e2 * t8688 * t16930 - 0.3569440e1 * t2896 * t4837 - 0.68216827389720576000e2 * t8660 * t9946 + 0.21416640e2 * t3890 * t3917 + 0.10708320e2 * t16984 + 0.11369471231620096000e2 * t12033 * t3917 + 0.11369471231620096000e2 * t12166 * t2284 - 0.19111352870400e2 * t2917 * t9968 - 0.19111352870400e2 * t2958 * t15392 + 0.10708320e2 * t1062 * t9968;
9741   t16997 = t8703 * t3489;
9742   t17001 = t12396 * t857;
9743   t17014 = -t239 * t16151 * t94;
9744   t17021 = t231 * t16151;
9745   t17025 = -0.19111352870400e2 * t16997 - 0.38222705740800e2 * t2917 * t9941 + 0.6370450956800e1 * t17001 + 0.5684735615810048000e1 * t2836 * t15392 + 0.3185225478400e1 * t16452 - 0.7138880e1 * t3910 * t3342 + 0.3185225478400e1 * t2883 * t4837 - 0.38222705740800e2 * t2958 * t16961 + 0.1784720e1 * t17014 - 0.3569440e1 * t16505 + 0.21416640e2 * t1062 * t9941 - 0.3569440e1 * t1041 * t15422 + 0.1784720e1 * t17021 * t99 + 0.3185225478400e1 * t16595;
9746   t17033 = t2958 * t349;
9747   t17036 = -0.238156450669527040e0 * t854 * t12048 - 0.19594476351194912734e0 * t10741 * t11774 + 0.17001703225556731953e1 * t10184 * t16894 + 0.21958039749871030452e0 * t10741 * t11719 + 0.25502554838335097930e1 * t16899 * t3939 - 0.39188952702389825468e0 * t7773 * t3836 + 0.33758233860356468337e1 * t16904 * t11757 - 0.45514919671073415977e1 * t16899 * t3942 + 0.11252744620118822779e1 * t10761 * t16910 + 0.14533144731775861995e0 * t10746 * t11655 - 0.258304e0 * t97 * t245 * (t16941 + t16970 + t16996 + t17025) + 0.5532003778560e1 * t12208 * t3984 - 0.25502554838335097930e1 * t17033 * t10165;
9748   t17047 = t610 * t1445 * t228;
9749   t17054 = t1843 * t16438;
9750   t17072 = 0.32937059624806545679e0 * t5341 * t251 - 0.1844001259520e1 * t237 * t16957 + 0.2766001889280e1 * t2962 * t15093 + 0.238156450669527040e0 * t3446 * t2893 + 0.476312901339054080e0 * t839 * t17047 + 0.29967321450326855254e0 * t854 * t11818 - 0.29967321450326855254e0 * t1042 * t15131 + 0.14983660725163427627e0 * t609 * t17054 - 0.1428938704017162240e1 * t11853 * t11854 * t3402 - 0.59934642900653710508e0 * t12135 * t644 * t349 * t2474 - 0.65345937074835210328e1 * t4046 * t16218 + 0.29367798970123972772e1 * t4081 * t16180 + 0.5532003778560e1 * t2962 * t840 * t349 * t834;
9751   t17090 = t5210 * t239;
9752   t17106 = 0.476312901339054080e0 * t3911 * t3988 + 0.238156450669527040e0 * t3500 * t4020 - 0.61023519165317445059e0 * t616 * t2867 * t4883 - 0.12204703833063489012e1 * t616 * t3949 * t3398 - 0.119078225334763520e0 * t625 * t434 * t15382 - 0.238156450669527040e0 * t3894 * t2371 + 0.2766001889280e1 * t8637 * t5320 - 0.119078225334763520e0 * t625 * t17090 * t605 - 0.119078225334763520e0 * t625 * t2921 * t3493 - 0.238156450669527040e0 * t625 * t4009 * t2500 + 0.461000314880e0 * t17021 * t102 - 0.10979019874935515226e0 * t851 * t12063 - 0.25306658097095253694e-1 * t3464 * t2800;
9753   t17121 = t604 * t4075 * t228;
9754   t17128 = t1446 * t356;
9755   t17131 = t1820 * t16764;
9756   t17134 = t4071 * t16768;
9757   t17137 = t610 * t5210;
9758   t17142 = -0.54895099374677576129e-1 * t3461 * t2809 - 0.42504258063891829882e0 * t3461 * t2813 + 0.97972381755974563669e-1 * t10117 * t3859 - 0.28131861550297056947e0 * t9915 * t2818 + 0.37929099725894513314e0 * t3461 * t2821 - 0.85008516127783659764e0 * t2291 * t17121 - 0.10979019874935515226e0 * t851 * t11520 - 0.85008516127783659764e0 * t851 * t11624 - 0.10979019874935515226e0 * t603 * t17128 - 0.42504258063891829883e0 * t603 * t17131 - 0.22757459835536707989e1 * t603 * t17134 - 0.119078225334763520e0 * t609 * t17137 - 0.4936538891835801600e1 * t237 * t16997;
9759   t17143 = t1069 * t3289;
9760   t17146 = t1062 * t3289;
9761   t17150 = t1062 * t1409 * t362;
9762   t17156 = t610 * t441 * t834;
9763   t17177 = 0.21958039749871030452e0 * t7821 * t17143 - 0.19594476351194912734e0 * t7821 * t17146 + 0.14533144731775861995e0 * t7816 * t17150 + 0.13814944624710858551e0 * t10727 * t11876 + 0.476312901339054080e0 * t839 * t17156 - 0.29967321450326855254e0 * t3446 * t2905 + 0.29967321450326855254e0 * t3894 * t2475 + 0.36614111499190467036e1 * t616 * t8703 * t3471 - 0.25306658097095253694e-1 * t3431 * t443 - 0.1844001259520e1 * t237 * t16942 + 0.238156450669527040e0 * t1042 * t15544 - 0.25937594065695016420e0 * t10736 * t3827 + 0.17489238971848963748e1 * t351 * t1983 * t11762;
9764   t17181 = t1062 * t3272;
9765   t17193 = t2958 * t1222;
9766   t17212 = t441 * t1261;
9767   t17213 = t6555 * t17212;
9768   t17216 = -0.30124497567627698085e1 * t16904 * t12361 - 0.15171639890357805326e1 * t10184 * t17181 - 0.19594476351194912734e0 * t10741 * t12356 + 0.34970653833504584655e0 * t7773 * t3843 + 0.13538564572559691160e1 * t16899 * t3956 + 0.42504258063891829882e0 * t11892 * t349 * t102 - 0.12751277419167548965e1 * t17193 * t3975 - 0.11064007557120e2 * t9270 * t840 * t1226 * t228 - 0.714469352008581120e0 * t2962 * t610 * t1226 * t249 + 0.476312901339054080e0 * t2897 * t5336 + 0.476312901339054080e0 * t1042 * t15308 + 0.476312901339054080e0 * t1042 * t610 * t349 * t902 - 0.33837660950279469264e0 * t609 * t17213;
9769   t17248 = 0.2766001889280e1 * t237 * t16984 - 0.32672968537417605163e1 * t616 * t8706 * t3471 + 0.238156450669527040e0 * t1042 * t15299 + 0.14983660725163427627e0 * t1055 * t10190 - 0.10979019874935515226e0 * t3891 * t364 - 0.25502554838335097930e1 * t12103 * t349 * t3975 - 0.119078225334763520e0 * t625 * t1074 * t4892 - 0.33837660950279469264e0 * t9165 * t3302 + 0.325024956416e0 * t97 * t2938 * t1274 - 0.56263723100594113894e0 * t2493 * t12024 - 0.1844001259520e1 * t11579 * t1394 - 0.119078225334763520e0 * t625 * t1084 * t10258 + 0.1645512963945267200e1 * t237 * t17001;
9770   t17270 = t349 * t239;
9771   t17281 = t349 * t618;
9772   t17285 = 0.1645512963945267200e1 * t237 * t16915 - 0.10979019874935515226e0 * t2361 * t17156 + 0.69074723123554292755e-1 * t3434 * t2905 - 0.10979019874935515226e0 * t848 * t1447 + 0.42504258063891829882e0 * t3890 * t834 * t102 - 0.238156450669527040e0 * t2365 * t4114 - 0.50613316194190507389e-1 * t9140 * t3290 + 0.14533144731775861995e0 * t11666 * t10548 - 0.19594476351194912734e0 * t11661 * t10552 + 0.25502554838335097930e1 * t11682 * t17270 * t3272 + 0.21958039749871030452e0 * t9156 * t17270 * t2304 + 0.17001703225556731953e1 * t11658 * t349 * t631 * t2284 + 0.11252744620118822779e1 * t12370 * t17281 * t2279;
9773   t17316 = -0.15171639890357805326e1 * t11658 * t17281 * t2284 + 0.23916119461575365556e1 * t11582 * t17212 * t249 + 0.72665723658879309976e-1 * t2987 * t10605 - 0.56263723100594113894e0 * t2987 * t10613 - 0.12968797032847508210e0 * t2803 * t15264 + 0.87446194859244818739e0 * t8603 * t10617 - 0.15062248783813849042e1 * t2987 * t10620 - 0.10979019874935515226e0 * t3874 * t364 - 0.10979019874935515226e0 * t3871 * t364 - 0.10979019874935515226e0 * t1400 * t904 - 0.238156450669527040e0 * t625 * t12093 * t857 - 0.54895099374677576130e-1 * t1049 * t1276 - 0.21252129031945914941e0 * t625 * t8863 * t3489;
9774   t17332 = t5200 * t94;
9775   t17333 = t604 * t17332;
9776   t17342 = t2958 * t16721;
9777   t17347 = -0.1844001259520e1 * t3911 * t3332 - 0.75858199451789026628e0 * t2824 * t15015 - 0.97972381755974563671e-1 * t1052 * t9938 + 0.75858199451789026628e0 * t1052 * t9942 + 0.17485326916752292327e0 * t2803 * t15460 + 0.67692822862798455802e0 * t1052 * t9947 - 0.42504258063891829882e0 * t10112 * t3852 + 0.21252129031945914941e0 * t603 * t17333 - 0.42504258063891829882e0 * t2982 * t3490 + 0.69074723123554292755e-1 * t1052 * t10374 - 0.54895099374677576130e-1 * t3461 * t2800 - 0.58783429053584738203e0 * t17342 * t2299 - 0.85008516127783659766e0 * t11533 * t3819;
9778   t17370 = t4040 * t4042 * t1240;
9779   t17373 = t4040 * t16866;
9780   t17383 = 0.14533144731775861995e0 * t10746 * t11771 + 0.29967321450326855254e0 * t854 * t12311 - 0.10979019874935515226e0 * t5344 * t251 + 0.19594476351194912734e0 * t12033 * t349 * t3975 + 0.15762619094478157328e0 * t1941 * t8863 * t3471 - 0.12204703833063489012e1 * t616 * t12396 * t1409 - 0.33837660950279469264e0 * t1055 * t10031 + 0.29967321450326855254e0 * t1055 * t9928 + 0.69074723123554292755e-1 * t1049 * t1263 + 0.87446194859244818738e0 * t6536 * t17370 - 0.15062248783813849042e1 * t1870 * t17373 + 0.97972381755974563669e-1 * t3464 * t2969 + 0.31525238188956314657e0 * t2506 * t4535 * t5242 + 0.461000314880e0 * t237 * t17014;
9781   t17389 = my_piecewise3(t87, 0, t17177 + t16575 + t17248 + t17036 + t16889 + t17347 + t17383 + t17072 + t16475 + t16511 + t16743 + t16672 + t16781 + t16610 + t16821 + t17216 + t16200 + t17142 + t17285 + t16275 + t17316 + t16434 + t17106 + t16333 + t16853 + t16401 + t16643 + t16369 + t16241 + t16704 + t16539 + t16304);
9782   t17390 = my_piecewise3(t86, 0, t17389);
9783   t17392 = -t1037 * t1280 - t16151 * t104 - t1222 * t1107 - 0.2e1 * t1390 * t908 - 0.2e1 * t834 * t1451 - t85 * t17390 - t228 * t5376 - t5166 * t255 - t3264 * t447 - 0.2e1 * t349 * t4124 - t428 * t3510 - 0.2e1 * t3796 * t368;
9784   t17407 = 0.1000e4 / 0.81e2 * t946 * t1164 * t374 * t914 + 0.200e3 / 0.81e2 * t943 * t4228 - 0.10e2 / 0.9e1 * t4193 * t4203 + 0.10000e5 / 0.729e3 * t8110 * t15858 * t1138 + 0.10e2 / 0.9e1 * t463 * t1626 * t15862 + 0.1000e4 / 0.81e2 * t946 * t4262 * t4213 + 0.10e2 / 0.9e1 * t463 * t1626 * t15869 + 0.50e2 / 0.81e2 * t279 * t1144 * t5378 * t261 + 0.100e3 / 0.81e2 * t279 * t1144 * t4126 * t374 + 0.100e3 / 0.81e2 * t279 * t1144 * t1453 * t914 + 0.5e1 / 0.9e1 * t463 * t464 * t17392 - t1135 * t1326 + params->c1 * t17392 * t131 + 0.50e2 / 0.27e2 * t14278 * t1164 * t3580 - t461 * t3610 - 0.10e2 / 0.9e1 * t3086 * t3580 * t15;
9785   t17430 = (t15849 + t17407) * t135 + t5452 * t285 * t135 + 0.2e1 * t4234 * t393 * t135 + 0.2e1 * t1491 * t954 * t135 + 0.2e1 * t5454 * t286 + t1152 * t1317 * t135 + t468 * t3587 * t135 + t5457 * t286 + t1152 * t1319 * t135 + 0.2e1 * t1493 * t955 + t5459 * t286;
9786   t17431 = t5027 * t1138;
9787   t17439 = t287 * t706 * t5378;
9788   t17443 = t730 * t732 * t5378;
9789   t17463 = 0.10e2 / 0.3e1 * t3126 * t17431 + 0.10e2 / 0.3e1 * t3134 * t17431 + 0.100e3 / 0.27e2 * t12784 * t4246 + 0.10e2 / 0.9e1 * t17439 * t291 + 0.5e1 / 0.9e1 * t17443 * t291 + t287 * t280 * t17392 * t137 + 0.50e2 / 0.81e2 * t12819 * t4246 + 0.2000e4 / 0.81e2 * t12809 * t3597 + 0.1000e4 / 0.27e2 * t12812 * t3597 + 0.20e2 / 0.9e1 * t12781 * t396 + 0.50e2 / 0.27e2 * t9395 * t1323 + 0.10e2 / 0.9e1 * t4263 * t965 + 0.100e3 / 0.27e2 * t12788 * t4246;
9790   t17465 = t4198 * t721 * t914;
9791   t17482 = t1109 * t137;
9792   t17483 = t17482 * t1282;
9793   t17486 = t4725 * t3512;
9794   t17495 = 0.100e3 / 0.27e2 * t3134 * t17465 + 0.5e1 / 0.9e1 * t3149 * t17431 + 0.50e2 / 0.81e2 * t3149 * t17465 + 0.100e3 / 0.27e2 * t3126 * t17465 + 0.10e2 / 0.9e1 * t12792 * t396 + 0.25e2 / 0.81e2 * t9403 * t1323 + 0.250e3 / 0.243e3 * t12802 * t3597 + 0.1000e4 / 0.81e2 * t12825 * t3597 + 0.2e1 * t719 * t17483 + 0.2e1 * t719 * t17486 + 0.50e2 / 0.27e2 * t9412 * t1323 + 0.20e2 / 0.9e1 * t4256 * t965 + t733 * t17486 + t733 * t17483;
9795   t17497 = my_piecewise3(t129, t17430, t17463 + t17495);
9796   t17530 = t455 * t1332;
9797   t17537 = -0.8e1 * t3685 * t3700 - t128 * t17497 - 0.4e1 * t1004 * t2702 * t1300 - 0.8e1 * t1004 * t13011 * t384 - 0.8e1 * t3685 * t3682 + 0.8e1 * t1004 * t13018 * t384 + 0.4e1 * t1004 * t2706 * t1300 + 0.2e1 * t168 * t1297 * t1124 * t140 + 0.12e2 * t2695 * t1005 * t1300 * t273 + 0.2e1 * t497 * t1181 * t1169 + 0.12e2 * t9541 * t5090 - 0.8e1 * t12922 * t1362 + 0.8e1 * t2699 * t5098 + 0.4e1 * t1004 * t17530 * t273 + 0.4e1 * t497 * t1473 * t933;
9798   t17562 = t1465 * t399;
9799   t17582 = -t168 * t273 * t5480 + 0.8e1 * t3685 * t3679 + 0.24e2 * t13024 * t3671 - 0.2e1 * t168 * t5104 * t294 - 0.8e1 * t3685 * t3676 + 0.4e1 * t168 * t381 * t4160 * t140 + 0.24e2 * t2695 * t3699 * t3670 - 0.6e1 * t1691 * t5416 * t273 + 0.8e1 * t1004 * t13001 * t384 + 0.8e1 * t1004 * t17562 * t273 - 0.8e1 * t2699 * t5095 - 0.4e1 * t168 * t3703 * t399 + 0.2e1 * t497 * t5419 * t273 + 0.24e2 * t2695 * t1005 * t384 * t933 + 0.2e1 * t168 * t270 * t5405 * t140;
9800   t17602 = t3596 * t919;
9801   t17607 = t15 * t1291;
9802   t17618 = t450 * t374;
9803   t17631 = -t685 * t15869 * t118 / 0.100e3 - t9475 * t5391 / 0.324e3 + 0.25e2 / 0.243e3 * t1121 * t17602 - 0.5e1 / 0.486e3 * t9478 * t17602 - t4135 * t17607 / 0.60e2 + t13092 * t1457 / 0.30e2 - 0.25e2 / 0.162e3 * t5384 * t9460 * t919 + t46 * t17392 * t118 / 0.100e3 - t17618 * t3538 / 0.54e2 - t1454 * t261 * t4137 / 0.54e2 + t4130 * t4140 / 0.30e2 - t685 * t15862 * t118 / 0.100e3 + 0.3e1 / 0.100e3 * t1110 * t5388;
9804   t17637 = t685 * t5378;
9805   t17654 = t116 * t1282;
9806   t17655 = t450 * t17654;
9807   t17660 = t2024 * t5399;
9808   t17668 = t5379 * t114;
9809   t17671 = -t1110 * t1286 * t687 / 0.108e3 - t13100 * t1457 / 0.90e2 - t17637 * t1115 / 0.180e3 + 0.3e1 / 0.100e3 * t450 * t114 * t3512 * t118 - t266 * t17392 * t118 / 0.100e3 + t9472 * t5391 / 0.54e2 - t4150 * t4140 / 0.90e2 + t1454 * t4143 * t927 / 0.27e2 + t17655 * t1115 / 0.30e2 + t4144 * t3538 / 0.27e2 - t17660 * t1115 / 0.180e3 - t4157 * t3538 / 0.162e3 - t2024 * t5442 * t927 / 0.162e3 + t17668 * t1115 / 0.60e2;
9810   t17704 = t497 * t1297;
9811   t17707 = -0.2e1 * t168 * t456 * t3622 - 0.4e1 * t168 * t1466 * t973 + 0.2e1 * t168 * t3544 * t455 * t140 - 0.4e1 * t168 * t4161 * t399 + 0.2e1 * t168 * t121 * (t17631 + t17671) * t140 - 0.2e1 * t168 * t5406 * t294 + 0.8e1 * t1004 * t12937 * t384 + 0.8e1 * t1004 * t4168 * t933 - 0.4e1 * t168 * t1365 * t973 - 0.8e1 * t1004 * t3699 * t933 - 0.2e1 * t168 * t384 * t4273 - 0.4e1 * t168 * t3688 * t399 - 0.4e1 * t168 * t3692 * t399 + 0.12e2 * t2695 * t2702 * t1181 - 0.4e1 * t17704 * t1006;
9812   t17744 = t5405 * t140;
9813   t17753 = 0.1174e1 * t17497 - 0.4e1 * t2699 * t5101 - 0.2e1 * t168 * t1125 * t1332 + 0.4e1 * t497 * t5421 * t273 - t168 * t3547 * t473 - 0.12e2 * t2695 * t2706 * t1181 + 0.8e1 * t3685 * t4169 - 0.2e1 * t168 * t1009 * t1332 - 0.4e1 * t168 * t5108 * t294 + 0.4e1 * t168 * t930 * t1465 * t140 - 0.24e2 * t2695 * t4168 * t3670 - 0.4e1 * t1004 * t1005 * t3547 - 0.48e2 * t9531 * t1005 * t1181 * t273 - 0.4e1 * t1004 * t17744 * t273 - t168 * t1300 * t1169 - 0.2e1 * t168 * t933 * t1504;
9814   t17769 = t5 * t1508;
9815   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9816     v4rhosigma2lapl[0] = -t767 * t5485 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t7 * (t17537 + t17582 + t17707 + t17753) * t158 - 0.24739500000000000000e1 * t307 * t308 * t5483 * t316 + 0.18554625000000000000e1 * t407 * t4278 * t413 + 0.22265550000000000000e2 * t5488 * t992 - 0.60406209071787192651e2 * t17769 * t999 - 0.41747906250000000000e1 * t407 * t1173 * t753 * t1348 - 0.83495812500000000000e2 * t1512 * t3648 + 0.23254840140139470986e0 * t4291 * t3653 - 0.46386562500000000000e0 * t4286 * t1353 + 0.45304656803840394488e2 * t4291 * t3658 + 0.11326164200960098622e2 * t13132 * t1359 - 0.45424903023464625000e2 * t1512 * t3665;
9817 
9818   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9819     v4rhosigma2tau[0] = 0.0e0;
9820 
9821   t17790 = t5515 * t273;
9822   t17798 = t2702 * t1465;
9823   t17813 = t1005 * t4160;
9824   t17826 = t4168 * t1124;
9825   t17841 = 0.4e1 * t497 * t17790 - 0.2e1 * t168 * t5819 * t294 + 0.8e1 * t3685 * t4666 - 0.16e2 * t4303 * t17798 + 0.48e2 * t2695 * t1520 * t381 * t273 - 0.96e2 * t14536 * t1520 * t3670 + 0.4e1 * t1004 * t14630 * t384 + 0.4e1 * t168 * t17798 + 0.4e1 * t168 * t17813 + 0.8e1 * t497 * t1516 * t973 - 0.32e2 * t1004 * t1005 * t3692 + 0.48e2 * t4296 * t1005 * t1465 * t273 + 0.16e2 * t4303 * t17826 + 0.12e2 * t1691 * t1515 * t770 + 0.16e2 * t1004 * t5515 * t270 - 0.24e2 * t2695 * t4665 * t3670 + 0.16e2 * t1004 * t4314 * t381;
9826   t17842 = t15 * t1460;
9827   t17873 = t5795 * t114;
9828   t17876 = -t14500 * t17842 / 0.15e2 + 0.5e1 / 0.108e3 * t1603 * t4198 * t920 - t4144 * t14457 / 0.15e2 - 0.5e1 / 0.162e3 * t1603 * t684 * t374 * t927 - t2024 * t5864 * t927 / 0.324e3 + t1599 * t4143 * t927 / 0.54e2 + t6857 * t5854 * t927 / 0.324e3 + t14456 * t17842 / 0.90e2 + t4157 * t14457 / 0.90e2 + t14488 * t1457 / 0.60e2 + t4654 * t4140 / 0.180e3 + t4135 * t17842 / 0.30e2 + t17873 * t1115 / 0.60e2;
9829   t17899 = t1761 * t574;
9830   t17911 = 0.10e2 / 0.9e1 * t13172 * t3764 - 0.50e2 / 0.9e1 * t13176 * t3764 + 0.40e2 / 0.9e1 * t13180 * t341 * t10 * t193 - 0.15e2 / 0.2e1 * t13340 * t5542 - 0.15e2 / 0.2e1 * t4344 * t4345 * t831 + 0.6e1 * t2778 * t5545 + 0.6e1 * t2781 * t5545 - 0.5e1 / 0.6e1 * t13199 * t5548 - t17899 * t5552 / 0.864e3 - t5551 * t8428 * t1386 / 0.864e3 - 0.5e1 / 0.972e3 * t4353 * t8400 * t1189 - 0.10e2 / 0.27e2 * t804 * t4370 * t172;
9831   t17912 = t558 * t1023;
9832   t17927 = t4807 * t213;
9833   t17932 = t2774 * t75;
9834   t17938 = -t17912 * t3792 / 0.1728e4 - 0.5e1 / 0.24e2 * t13207 * t15 * t19 * t225 + 0.5e1 / 0.18e2 * t13211 * t3787 - 0.13e2 / 0.7776e4 * t5537 * t3753 + t5528 * t16008 / 0.2592e4 + t5528 * t16014 / 0.2592e4 + 0.5e1 / 0.5832e4 * t17927 * t16019 - 0.15e2 / 0.2e1 * t13220 * t3767 + t17932 * t1387 / 0.2592e4 - 0.5e1 / 0.2916e4 * t5140 + 0.5e1 / 0.4374e4 * t5116 - 0.13e2 / 0.7776e4 * t5123;
9835   t17946 = t58 * t11143;
9836   t17959 = t7147 * t76;
9837   t17967 = 0.5e1 / 0.4374e4 * t5126 - 0.13e2 / 0.7776e4 * t5130 + 0.5e1 / 0.17496e5 * t3770 * t5576 + 0.5e1 / 0.17496e5 * t3773 * t5576 - t17946 * t15954 / 0.1728e4 + 0.5e1 / 0.18e2 * t13188 * t1381 + 0.5e1 / 0.18e2 * t13191 * t1381 - 0.5e1 / 0.6561e4 * t5125 * t4384 - 0.5e1 / 0.11664e5 * t1022 * t3776 * t5575 * t225 - 0.15e2 / 0.2e1 * t17959 * t4346 + 0.6e1 * t3760 * t4349 + 0.6e1 * t2202 * t76 * t4360;
9838   t17987 = t2724 * t341;
9839   t17993 = t2202 * t1796;
9840   t17996 = t1769 * t1796;
9841   t18000 = 0.5e1 / 0.8748e4 * t5147 + 0.6e1 * t1022 * t4345 * t818 - 0.15e2 / 0.4e1 * t1769 * t1528 * t79 * t346 * t225 + 0.3e1 * t13240 * t3742 + 0.3e1 * t13226 * t1375 + 0.3e1 * t13229 * t1375 + 0.3e1 * t4332 * t3742 + 0.3e1 * t4332 * t3732 + 0.3e1 * t17987 * t1024 - t2200 * t1532 + 0.25e2 / 0.162e3 * t13196 * t3708 + 0.20e2 / 0.9e1 * t17993 * t4355 + 0.25e2 / 0.12e2 * t17996 * t4354 * t3719;
9842   t18003 = t558 * t6356;
9843   t18033 = -0.5e1 / 0.3e1 * t18003 * t4354 * t822 - 0.5e1 / 0.3e1 * t4353 * t1030 * t329 * t1034 - 0.2e1 * t1018 * t3751 - t58 * t4326 * t831 / 0.5832e4 - 0.2e1 * t2774 * t1379 - 0.2e1 * t1018 * t3749 + 0.3e1 / 0.2e1 * t558 * t1532 * t831 - 0.2e1 * t804 * t4367 + 0.3e1 / 0.2e1 * t1761 * t5556 + 0.3e1 * t7130 * t1529 + 0.3e1 / 0.2e1 * t2202 * t4364 + t5931 * t14791 / 0.3888e4;
9844   t18034 = t1018 * t216;
9845   t18057 = t553 * t425;
9846   t18060 = t214 * t1034;
9847   t18073 = t18034 * t1387 / 0.2592e4 + 0.5e1 / 0.5832e4 * t5537 * t3777 + 0.105e3 / 0.4e1 * t13166 * t4345 * t809 - 0.15e2 * t2732 * t4345 * t346 * t216 - 0.15e2 * t4344 * t4359 * t15899 - 0.15e2 * t2732 * t4345 * t341 * t225 + 0.12e2 * t1022 * t4359 * t341 * t1034 + t18057 * t1387 / 0.2592e4 + t18060 * t1387 / 0.2592e4 + 0.5e1 / 0.5832e4 * t5559 * t3777 + 0.5e1 / 0.36e2 * t553 * t1528 * t5564 - 0.10e2 / 0.27e2 * t5562 * t5563 * t792 - t16045 * t1535 / 0.2916e4;
9848   t18085 = t2724 * t215;
9849   t18104 = -t16048 * t1535 / 0.2916e4 - 0.5e1 / 0.6561e4 * t5115 * t4384 - t16070 * t1535 / 0.2916e4 - t16073 * t1535 / 0.2916e4 + 0.5e1 / 0.18e2 * t4337 * t3787 - t18085 * t3792 / 0.1728e4 + t11199 * t5570 / 0.1944e4 + t11202 * t5570 / 0.1944e4 + t3790 * t58 * t62 * t831 / 0.1944e4 + 0.5e1 / 0.4374e4 * t3718 * t13329 * t16124 + t15947 * t4377 / 0.1944e4 - 0.125e3 / 0.162e3 * t13202 * t13203 * t826;
9850   t18105 = t1769 * t574;
9851   t18121 = 0.1e1 / t17 / t187;
9852   t18122 = t183 * t18121;
9853   t18126 = t1018 * t3714;
9854   t18129 = t2724 * t565;
9855   t18144 = 0.5e1 / 0.1728e4 * t18105 * t2737 * t1386 * t225 - t16086 * t2737 * t1386 * t216 / 0.432e3 + 0.5e1 / 0.9e1 * t13207 * t3764 - 0.5e1 / 0.3888e4 * t11297 * t58 * t5569 * t225 + 0.25e2 / 0.157464e6 * t2736 * t18122 * t15888 - 0.20e2 / 0.27e2 * t18126 * t1031 - 0.5e1 / 0.12e2 * t18129 * t3720 + 0.25e2 / 0.324e3 * t13333 * t800 + t15957 * t4377 / 0.1944e4 + 0.20e2 / 0.9e1 * t4353 * t4354 * t792 + 0.13e2 / 0.2592e4 * t5551 * t5157 - 0.20e2 / 0.27e2 * t4337 * t3780 - 0.5e1 / 0.2916e4 * t5164;
9856   t18147 = t17911 + t17938 + t17967 + t18000 + t18033 + t18073 + t18104 + t18144;
9857   t18180 = t604 * t857 * t1037;
9858   t18191 = -0.238156450669527040e0 * t1055 * t12048 - 0.75858199451789026629e0 * t4516 * t2285 - 0.42504258063891829882e0 * t14015 * t3273 - 0.54895099374677576129e-1 * t4519 * t2305 - 0.42504258063891829882e0 * t4519 * t2308 + 0.97972381755974563669e-1 * t14003 * t3280 - 0.28131861550297056947e0 * t13584 * t2280 + 0.37929099725894513314e0 * t4519 * t2285 + 0.19594476351194912734e0 * t8776 * t18180 - 0.25306658097095253694e-1 * t4522 * t2305 - 0.10979019874935515226e0 * t2982 * t3832 - 0.54895099374677576130e-1 * t4519 * t2288 - 0.42504258063891829883e0 * t14015 * t3819;
9859   t18192 = t101 * t1390;
9860   t18193 = t18192 * t242;
9861   t18198 = t4416 * t3839;
9862   t18201 = t4402 * t3839;
9863   t18218 = t1058 * t1419;
9864   t18219 = t1871 * t18218;
9865   t18224 = 0.19594476351194912734e0 * t8776 * t18193 - 0.25306658097095253694e-1 * t4522 * t2288 + 0.45165298839047841173e-1 * t18198 * t2299 - 0.58783429053584738203e0 * t18201 * t2299 - 0.10979019874935515226e0 * t851 * t13685 + 0.75858199451789026627e0 * t4095 * t2821 - 0.19594476351194912734e0 * t4522 * t2308 + 0.45165298839047841173e-1 * t14022 * t3280 - 0.12968797032847508210e0 * t13591 * t2280 + 0.17485326916752292327e0 * t4522 * t2285 - 0.85008516127783659764e0 * t11533 * t3852 + 0.75858199451789026629e0 * t603 * t18219 + 0.75858199451789026627e0 * t2982 * t3843;
9866   t18238 = t5610 * t240;
9867   t18239 = t2816 * t18238;
9868   t18242 = t7985 * t1558;
9869   t18252 = t3862 * t240;
9870   t18253 = t1058 * t18252;
9871   t18258 = 0.75858199451789026627e0 * t1052 * t11704 + 0.75858199451789026627e0 * t1052 * t12314 - 0.10979019874935515226e0 * t2982 * t3848 - 0.10979019874935515226e0 * t1052 * t12327 - 0.10979019874935515226e0 * t1052 * t12330 - 0.10979019874935515226e0 * t2510 * t4603 - 0.18915142913373788794e1 * t7570 * t18239 - 0.12968797032847508210e0 * t2297 * t18242 + 0.87446194859244818739e0 * t8022 * t14243 - 0.15062248783813849042e1 * t2493 * t14246 - 0.67675321900558938528e0 * t10496 * t1058 * t3992 - 0.59934642900653710508e0 * t7430 * t18253 - 0.85008516127783659764e0 * t2824 * t17121;
9872   t18288 = -0.10979019874935515226e0 * t1052 * t11520 - 0.85008516127783659764e0 * t1052 * t11624 - 0.10979019874935515226e0 * t4095 * t2809 - 0.85008516127783659764e0 * t4095 * t2813 + 0.19594476351194912734e0 * t12347 * t3859 - 0.56263723100594113893e0 * t11981 * t2818 - 0.85008516127783659764e0 * t2824 * t604 * t2968 * t349 - 0.85008516127783659766e0 * t2824 * t18193 + 0.10979019874935515226e0 * t4516 * t2288 - 0.85008516127783659764e0 * t8848 * t5635 + 0.12751277419167548965e1 * t4522 * t3819 - 0.39668333314116486558e0 * t7513 * t2816 * t18252 + 0.53483277938827345109e0 * t7517 * t18253;
9873   t18291 = t5610 * t249;
9874   t18292 = t1058 * t18291;
9875   t18295 = t1058 * t18238;
9876   t18300 = t2298 * t1574;
9877   t18310 = t1815 * t1058 * t1445;
9878   t18314 = t1815 * t4075 * t441;
9879   t18318 = t1871 * t2816 * t1419;
9880   t18322 = t4040 * t13737 * t354;
9881   t18325 = t4489 * t354;
9882   t18326 = t4040 * t18325;
9883   t18329 = t1556 * t354;
9884   t18330 = t18329 * t94;
9885   t18331 = t4071 * t18330;
9886   t18334 = -0.59934642900653710508e0 * t7430 * t18292 - 0.1428938704017162240e1 * t2488 * t18295 + 0.75858199451789026628e0 * t851 * t13895 + 0.17485326916752292327e0 * t2297 * t18300 + 0.67692822862798455802e0 * t851 * t13898 - 0.10979019874935515226e0 * t1052 * t12063 - 0.10979019874935515226e0 * t4095 * t2800 - 0.10979019874935515226e0 * t603 * t18310 - 0.10979019874935515226e0 * t603 * t18314 - 0.56263723100594113896e0 * t1870 * t18318 + 0.87446194859244818738e0 * t6536 * t18322 - 0.15062248783813849042e1 * t1870 * t18326 - 0.22757459835536707989e1 * t603 * t18331;
9887   t18336 = t1815 * t4509 * t362;
9888   t18339 = t4509 * t354;
9889   t18340 = t1820 * t18339;
9890   t18343 = t4411 * t3839;
9891   t18346 = t1820 * t18218;
9892   t18360 = t1871 * t4489 * t228;
9893   t18369 = -0.54895099374677576130e-1 * t603 * t18336 - 0.42504258063891829883e0 * t603 * t18340 + 0.97972381755974563669e-1 * t18343 * t2299 - 0.85008516127783659766e0 * t603 * t18346 + 0.16879116930178234168e1 * t2493 * t13540 - 0.56263723100594113894e0 * t2493 * t13709 + 0.19594476351194912734e0 * t2803 * t16691 - 0.56263723100594113893e0 * t2987 * t11512 + 0.75858199451789026627e0 * t1052 * t11697 + 0.56263723100594113894e0 * t7473 * t18360 + 0.72665723658879309976e-1 * t2493 * t13514 - 0.10979019874935515226e0 * t851 * t13500 - 0.54895099374677576130e-1 * t851 * t14009;
9894   t18372 = t1871 * t6038 * t354;
9895   t18375 = t1871 * t18339;
9896   t18378 = t4505 * t362;
9897   t18379 = t2487 * t18378;
9898   t18397 = t2816 * t11439;
9899   t18400 = t11492 * t4075;
9900   t18403 = t18329 * t626;
9901   t18406 = -0.28131861550297056947e0 * t1870 * t18372 + 0.37929099725894513314e0 * t603 * t18375 - 0.97972381755974563669e-1 * t603 * t18379 - 0.238156450669527040e0 * t3894 * t2893 - 0.59934642900653710508e0 * t12135 * t16655 - 0.67675321900558938528e0 * t430 * t97 * t11458 + 0.13814944624710858551e0 * t2803 * t3863 + 0.65874119249613091356e0 * t11926 * t4020 + 0.13814944624710858551e0 * t3840 * t2905 - 0.50613316194190507389e-1 * t11929 * t443 + 0.73228222998380934071e1 * t4109 * t18397 - 0.9873077783671603200e1 * t4072 * t18400 + 0.12751277419167548965e1 * t7576 * t18403;
9902   t18407 = t11619 * t2968;
9903   t18410 = t18329 * t862;
9904   t18416 = t4509 * t3480;
9905   t18425 = t2867 * t4075;
9906   t18433 = t4489 * t3480;
9907   t18437 = t1556 * t240 * t1245;
9908   t18440 = t1419 * t249;
9909   t18441 = t1058 * t18440;
9910   t18446 = -0.9873077783671603200e1 * t4072 * t18407 + 0.39207562244901126197e2 * t11746 * t18410 + 0.14983660725163427627e0 * t3476 * t4509 * t2474 + 0.238156450669527040e0 * t2482 * t18416 + 0.238156450669527040e0 * t625 * t1565 * t3384 - 0.21252129031945914941e0 * t625 * t1557 * t3384 + 0.1645512963945267200e1 * t237 * t18425 - 0.29967321450326855254e0 * t4588 * t2475 - 0.1468010318348156928e1 * t3991 * t3862 * t1101 + 0.84395584650891170843e0 * t7720 * t18433 - 0.37929099725894513314e0 * t7754 * t18437 - 0.42504258063891829883e0 * t2488 * t18441 - 0.65345937074835210328e1 * t4046 * t18397;
9911   t18452 = t4505 * t228;
9912   t18453 = t1820 * t18452;
9913   t18462 = t2298 * t1566;
9914   t18473 = t1557 * t2500;
9915   t18476 = t2863 * t4075;
9916   t18481 = -t239 * t18147 * t94;
9917   t18486 = 0.29367798970123972772e1 * t4081 * t18400 + 0.85008516127783659766e0 * t2291 * t18453 + 0.10979019874935515226e0 * t851 * t13887 + 0.12751277419167548965e1 * t851 * t13891 - 0.85008516127783659766e0 * t851 * t13979 - 0.19594476351194912734e0 * t2297 * t18462 - 0.54895099374677576130e-1 * t4447 * t364 - 0.11064007557120e2 * t13761 * t3984 + 0.5532003778560e1 * t2962 * t840 * t349 * t1037 + 0.2766001889280e1 * t237 * t18473 - 0.1844001259520e1 * t237 * t18476 + 0.461000314880e0 * t237 * t18481 + 0.14983660725163427627e0 * t2365 * t4560;
9918   t18501 = t236 * t1578;
9919   t18504 = t4505 * t2474;
9920   t18509 = t362 * t1073;
9921   t18510 = t1058 * t18509;
9922   t18519 = -0.54895099374677576129e-1 * t4457 * t2371 - 0.10979019874935515226e0 * t1400 * t1103 + 0.29967321450326855254e0 * t2890 * t3863 + 0.29967321450326855254e0 * t1055 * t12287 + 0.325024956416e0 * t97 * t13811 * t362 - 0.19834166657058243279e0 * t615 * t1578 * t863 + 0.26741638969413672554e0 * t18501 * t878 - 0.29967321450326855254e0 * t7430 * t18504 - 0.714469352008581120e0 * t2488 * t18437 + 0.476312901339054080e0 * t2482 * t18510 - 0.94575714566868943973e0 * t7570 * t18433 + 0.29967321450326855254e0 * t2965 * t4010 - 0.50613316194190507389e-1 * t7773 * t4603;
9923   t18528 = t631 * t5761;
9924   t18529 = t18528 * t605;
9925   t18535 = t11439 * t1561;
9926   t18538 = t1569 * t1984;
9927   t18553 = t840 * t3796;
9928   t18556 = 0.14533144731775861995e0 * t10746 * t13930 - 0.19594476351194912734e0 * t10741 * t13933 - 0.119078225334763520e0 * t625 * t5762 * t626 - 0.922000629760e0 * t237 * t18529 - 0.61023519165317445059e0 * t616 * t13392 * t1409 - 0.42504258063891829883e0 * t2488 * t18535 + 0.18968792869915364414e1 * t4041 * t18538 * t2283 + 0.29967321450326855254e0 * t1055 * t12311 - 0.54895099374677576130e-1 * t848 * t1592 + 0.15762619094478157329e0 * t1941 * t1557 * t15564 - 0.10979019874935515226e0 * t3874 * t443 - 0.10979019874935515226e0 * t3871 * t443 + 0.42504258063891829882e0 * t2962 * t18553;
9929   t18557 = t618 * t5761;
9930   t18558 = t18557 * t605;
9931   t18586 = 0.822756481972633600e0 * t237 * t18558 + 0.37937585739830728829e1 * t4041 * t4042 * t11439 - 0.56263723100594113893e0 * t2987 * t12020 - 0.56263723100594113893e0 * t2987 * t12024 + 0.12751277419167548965e1 * t4522 * t3273 - 0.85008516127783659766e0 * t2824 * t18180 + 0.10979019874935515226e0 * t4516 * t2305 + 0.85008516127783659766e0 * t4516 * t2308 - 0.58783429053584738202e0 * t14012 * t3280 + 0.56263723100594113894e0 * t13417 * t2280 + 0.19594476351194912734e0 * t11479 * t3859 + 0.19594476351194912734e0 * t11483 * t3859 + 0.19594476351194912734e0 * t3840 * t12647;
9932   t18598 = t1590 * t362;
9933   t18599 = t1843 * t18598;
9934   t18602 = t1561 * t354;
9935   t18603 = t1069 * t18602;
9936   t18607 = t1062 * t6034 * t354;
9937   t18610 = t1062 * t18602;
9938   t18617 = t11492 * t5685;
9939   t18629 = -0.56263723100594113893e0 * t8634 * t3827 - 0.10979019874935515226e0 * t1052 * t12629 - 0.10979019874935515226e0 * t1052 * t12633 - 0.32672968537417605163e1 * t616 * t4438 * t3398 + 0.14983660725163427627e0 * t609 * t18599 + 0.21958039749871030452e0 * t7821 * t18603 + 0.14533144731775861995e0 * t7816 * t18607 - 0.19594476351194912734e0 * t7821 * t18610 + 0.31525238188956314657e0 * t2506 * t2816 * t1445 * t240 - 0.42504258063891829883e0 * t2488 * t18617 - 0.1428938704017162240e1 * t11853 * t442 * t3983 - 0.59934642900653710508e0 * t12135 * t1088 * t3987 + 0.14983660725163427627e0 * t1852 * t4575 * t2500;
9940   t18630 = t1577 * t362;
9941   t18631 = t6555 * t18630;
9942   t18636 = t430 * t616;
9943   t18639 = t430 * t237;
9944   t18651 = t610 * t1590 * t228;
9945   t18656 = t1578 * t356;
9946   t18659 = t2481 * t18378;
9947   t18662 = t1871 * t18330;
9948   t18665 = -0.33837660950279469264e0 * t609 * t18631 + 0.34970653833504584654e0 * t9140 * t3843 - 0.30124497567627698084e1 * t18636 * t12361 + 0.13538564572559691160e1 * t18639 * t3956 + 0.21958039749871030452e0 * t9156 * t16407 + 0.13814944624710858551e0 * t11725 * t12414 + 0.21958039749871030452e0 * t11661 * t12417 - 0.238156450669527040e0 * t12252 * t1081 + 0.238156450669527040e0 * t839 * t18651 - 0.50613316194190507389e-1 * t9140 * t3848 + 0.69074723123554292755e-1 * t603 * t18656 + 0.10979019874935515226e0 * t603 * t18659 + 0.12751277419167548965e1 * t603 * t18662;
9949   t18667 = t644 * t5768;
9950   t18671 = t13392 * t857;
9951   t18674 = t4433 * t2500;
9952   t18684 = t4509 * t4063;
9953   t18687 = t4509 * t2283;
9954   t18690 = t6038 * t2283;
9955   t18703 = 0.325024956416e0 * t97 * t18667 * t249 + 0.822756481972633600e0 * t237 * t18671 + 0.822756481972633600e0 * t237 * t18674 + 0.238156450669527040e0 * t4588 * t2371 + 0.15762619094478157328e0 * t2506 * t6038 * t3480 - 0.21252129031945914941e0 * t2488 * t18416 + 0.238156450669527040e0 * t2482 * t18684 + 0.2766001889280e1 * t4067 * t18687 + 0.36614111499190467036e1 * t4109 * t18690 - 0.4936538891835801600e1 * t4072 * t18687 + 0.15762619094478157329e0 * t2506 * t6038 * t4063 + 0.2766001889280e1 * t4457 * t3332 - 0.61023519165317445059e0 * t616 * t4433 * t3398;
9956   t18708 = t13987 * t857;
9957   t18716 = t599 * t5579;
9958   t18723 = t1062 * t11994;
9959   t18729 = -0.19111352870400e2 * t13799 * t3917 - 0.3569440e1 * t18708 + 0.3185225478400e1 * t18558 + 0.10708320e2 * t1549 * t3342 - 0.68216827389720576000e2 * t13853 * t2284 + 0.3185225478400e1 * t18674 + 0.3185225478400e1 * t18716 * t892 + 0.6370450956800e1 * t18425 + 0.114668117222400e3 * t4416 * t3917 + 0.3185225478400e1 * t18671 + 0.6370450956800e1 * t18723 - 0.3569440e1 * t4405 * t3342 - 0.38222705740800e2 * t2917 * t11703;
9960   t18735 = t590 * t5579;
9961   t18742 = t892 * t1390;
9962   t18745 = t99 * t3796;
9963   t18748 = t1069 * t11994;
9964   t18760 = 0.21416640e2 * t1062 * t11703 + 0.10708320e2 * t18473 - 0.19111352870400e2 * t14046 * t2284 - 0.3569440e1 * t18735 * t892 - 0.7138880e1 * t2896 * t5741 + 0.10708320e2 * t4411 * t3917 + 0.11369471231620096000e2 * t2836 * t18742 - 0.7138880e1 * t1041 * t18745 - 0.7138880e1 * t18748 + 0.10145661348248508867e2 * t13411 * t3917 + 0.3185225478400e1 * t4411 * t3342 - 0.3569440e1 * t13479 * t1435 + 0.10145661348248508867e2 * t13614 * t2284 + 0.5684735615810048000e1 * t4416 * t3342;
9965   t18762 = t4438 * t2500;
9966   t18764 = t1435 * t1037;
9967   t18773 = t4423 * t2500;
9968   t18788 = 0.5684735615810048000e1 * t18762 + 0.21416640e2 * t1048 * t18764 - 0.42833280e2 * t4423 * t2284 + 0.114668117222400e3 * t4438 * t2284 + 0.3185225478400e1 * t13718 * t1435 - 0.19111352870400e2 * t18773 - 0.38222705740800e2 * t2917 * t11623 - 0.7138880e1 * t18476 - 0.38222705740800e2 * t2958 * t18742 - 0.38222705740800e2 * t2958 * t18764 + 0.11369471231620096000e2 * t2849 * t11703 + 0.6370450956800e1 * t1048 * t18745 - 0.42833280e2 * t4402 * t3917;
9969   t18810 = t4426 * t2500;
9970   t18812 = t231 * t18147;
9971   t18816 = -0.3569440e1 * t18529 + 0.21416640e2 * t1062 * t11623 + 0.5684735615810048000e1 * t13517 * t2284 + 0.11369471231620096000e2 * t2849 * t11623 + 0.5684735615810048000e1 * t13458 * t3917 - 0.68216827389720576000e2 * t13792 * t3917 + 0.11369471231620096000e2 * t2836 * t18764 + 0.21416640e2 * t1048 * t18742 + 0.10708320e2 * t4433 * t2284 - 0.19111352870400e2 * t4402 * t3342 + 0.6370450956800e1 * t2883 * t5741 - 0.3569440e1 * t18810 + 0.1784720e1 * t18812 * t99 + 0.1784720e1 * t18481;
9972   t18838 = t610 * t1390 * t249;
9973   t18848 = -0.33837660950279469264e0 * t13574 * t885 - 0.258304e0 * t97 * t245 * (t18729 + t18760 + t18788 + t18816) - 0.97972381755974563671e-1 * t851 * t13905 + 0.21252129031945914941e0 * t13718 * t349 * t102 - 0.922000629760e0 * t13480 * t1394 - 0.85008516127783659764e0 * t2982 * t3836 - 0.85008516127783659764e0 * t1052 * t12640 - 0.85008516127783659764e0 * t1052 * t11516 - 0.85008516127783659764e0 * t2824 * t16350 - 0.10979019874935515226e0 * t2962 * t18838 - 0.39668333314116486558e0 * t7513 * t2816 * t18291 + 0.69074723123554292755e-1 * t851 * t14006 - 0.922000629760e0 * t237 * t18708;
9974   t18857 = t5761 * t94;
9975   t18858 = t604 * t18857;
9976   t18886 = -0.922000629760e0 * t237 * t18810 - 0.922000629760e0 * t4549 * t3332 + 0.21252129031945914941e0 * t603 * t18858 + 0.14983660725163427627e0 * t13571 * t885 - 0.119078225334763520e0 * t625 * t4571 * t2500 + 0.14683899485061986386e1 * t237 * t18762 - 0.734005159174078464e0 * t97 * t4552 * t902 - 0.42504258063891829883e0 * t4516 * t2501 + 0.21252129031945914941e0 * t13753 * t858 + 0.21252129031945914941e0 * t4519 * t2501 + 0.97972381755974563669e-1 * t4522 * t2501 - 0.12204703833063489012e1 * t616 * t1062 * t621 * t3879 + 0.36614111499190467036e1 * t616 * t4423 * t3398;
9977   t18909 = t5748 * t236;
9978   t18916 = -0.12204703833063489012e1 * t616 * t2867 * t5722 + 0.650049912832e0 * t97 * t1088 * t3958 + 0.14983660725163427627e0 * t854 * t13384 + 0.476312901339054080e0 * t3911 * t4020 + 0.29967321450326855254e0 * t3894 * t2905 + 0.1645512963945267200e1 * t237 * t18723 - 0.119078225334763520e0 * t4591 * t2371 - 0.1844001259520e1 * t2897 * t5646 + 0.476312901339054080e0 * t2482 * t18617 + 0.14983660725163427627e0 * t13571 * t866 + 0.21252129031945914941e0 * t18909 * t606 + 0.476312901339054080e0 * t1042 * t17047 + 0.29967321450326855254e0 * t1055 * t11818;
9979   t18922 = t4505 * t2283;
9980   t18935 = t441 * t1445;
9981   t18936 = t1843 * t18935;
9982   t18942 = t604 * t4509 * t228;
9983   t18949 = 0.12751277419167548965e1 * t7576 * t18437 - 0.714469352008581120e0 * t2488 * t18403 - 0.11064007557120e2 * t4072 * t18922 + 0.5532003778560e1 * t4067 * t18407 - 0.21968466899514280222e2 * t4046 * t18410 + 0.29619233351014809600e2 * t4081 * t18922 + 0.476312901339054080e0 * t2482 * t18441 + 0.5532003778560e1 * t4067 * t18400 + 0.29967321450326855254e0 * t609 * t18936 - 0.22757459835536707989e1 * t851 * t13982 - 0.42504258063891829882e0 * t2291 * t18942 - 0.54895099374677576129e-1 * t851 * t13976 - 0.42504258063891829882e0 * t851 * t13967;
9984   t18950 = t2298 * t1571;
9985   t18957 = t1871 * t18452;
9986   t18960 = t1591 * t356;
9987   t18963 = t4040 * t18330;
9988   t18966 = t236 * t1591;
9989   t18982 = 0.97972381755974563669e-1 * t2297 * t18950 - 0.28131861550297056947e0 * t2493 * t13998 + 0.37929099725894513314e0 * t851 * t13902 - 0.75858199451789026628e0 * t2291 * t18957 - 0.54895099374677576130e-1 * t603 * t18960 + 0.67692822862798455803e0 * t603 * t18963 + 0.238156450669527040e0 * t18966 * t870 + 0.15762619094478157328e0 * t615 * t1591 * t863 - 0.21252129031945914941e0 * t18966 * t878 - 0.37929099725894513314e0 * t7754 * t18403 - 0.17620679382074383663e2 * t12458 * t18922 + 0.29367798970123972772e1 * t4081 * t18407 - 0.13606156761889987933e2 * t11913 * t18410;
9990   t18993 = t18735 * t90;
9991   t19006 = t13737 * t2283;
9992   t19009 = t4489 * t4063;
9993   t19012 = t2816 * t11702;
9994   t19019 = 0.26206649088979828343e1 * t12402 * t18922 - 0.33837660950279469264e0 * t13574 * t866 + 0.29967321450326855254e0 * t2965 * t3868 - 0.29967321450326855254e0 * t18501 * t870 - 0.922000629760e0 * t18993 * t841 - 0.48997150734706182896e0 * t7602 * t13737 * t4063 + 0.37937585739830728828e1 * t4041 * t4042 * t11702 - 0.92817332546461565657e1 * t11902 * t1556 * t6426 * t2283 + 0.20312390406477209506e2 * t11908 * t19006 + 0.84395584650891170840e0 * t7720 * t19009 - 0.65345937074835210326e1 * t4046 * t19012 + 0.21252129031945914941e0 * t2510 * t4510 + 0.21252129031945914941e0 * t851 * t13568;
9995   t19030 = t5768 * t239;
9996   t19054 = 0.37929099725894513314e0 * t2510 * t4513 + 0.97972381755974563669e-1 * t4416 * t834 * t102 + 0.21252129031945914941e0 * t18716 * t228 * t102 - 0.238156450669527040e0 * t2890 * t4114 - 0.119078225334763520e0 * t625 * t19030 * t605 - 0.19834166657058243280e0 * t7513 * t4489 * t2474 + 0.31525238188956314658e0 * t2506 * t2816 * t18509 - 0.48997150734706182898e0 * t7602 * t13737 * t3480 - 0.94575714566868943973e0 * t7570 * t19009 + 0.73228222998380934072e1 * t4109 * t19012 - 0.22762551443898437297e2 * t11742 * t19006 + 0.31525238188956314658e0 * t2506 * t2816 * t18440 - 0.119078225334763520e0 * t854 * t13758;
9997   t19075 = t5748 * t90;
9998   t19088 = -0.238156450669527040e0 * t625 * t3880 * t1561 - 0.238156450669527040e0 * t625 * t1420 * t4453 + 0.18968792869915364414e1 * t1983 * t4438 * t15360 + 0.42504258063891829882e0 * t8637 * t5646 + 0.476312901339054080e0 * t2897 * t5690 + 0.476312901339054080e0 * t1042 * t610 * t1101 * t349 + 0.476312901339054080e0 * t1042 * t17156 - 0.119078225334763520e0 * t19075 * t611 - 0.32672968537417605163e1 * t4046 * t18690 - 0.21252129031945914941e0 * t2488 * t18684 + 0.14683899485061986386e1 * t4081 * t18687 + 0.26741638969413672554e0 * t7517 * t18504 - 0.42504258063891829882e0 * t2488 * t18510;
9999   t19106 = t2968 * t5610;
10000   t19109 = t1101 * t354;
10001   t19110 = t1058 * t19109;
10002   t19113 = t441 * t873;
10003   t19114 = t1058 * t19113;
10004   t19126 = 0.13814944624710858551e0 * t10727 * t13922 + 0.21958039749871030452e0 * t10741 * t13926 + 0.42504258063891829882e0 * t1052 * t11995 - 0.28131861550297056947e0 * t8019 * t4490 + 0.29967321450326855254e0 * t3476 * t2968 * t3862 + 0.29967321450326855254e0 * t3476 * t1058 * t11791 + 0.29967321450326855254e0 * t3476 * t1058 * t12255 + 0.476312901339054080e0 * t2482 * t19106 + 0.476312901339054080e0 * t2482 * t19110 + 0.476312901339054080e0 * t2482 * t19114 + 0.31525238188956314657e0 * t2506 * t4535 * t5610 + 0.31525238188956314657e0 * t2506 * t2816 * t19109 + 0.31525238188956314657e0 * t2506 * t2816 * t19113;
10005   t19145 = t610 * t362 * t1037;
10006   t19151 = t840 * t1390 * t228;
10007   t19160 = t97 * t18192;
10008   t19163 = -0.42504258063891829883e0 * t2488 * t19106 - 0.42504258063891829883e0 * t2488 * t19114 - 0.42504258063891829883e0 * t2488 * t19110 - 0.42504258063891829883e0 * t2510 * t4506 - 0.238156450669527040e0 * t625 * t434 * t94 * t3958 - 0.714469352008581120e0 * t4457 * t3403 + 0.476312901339054080e0 * t1042 * t19145 - 0.714469352008581120e0 * t4457 * t3988 + 0.5532003778560e1 * t2962 * t19151 + 0.476312901339054080e0 * t1042 * t18838 + 0.14983660725163427627e0 * t4591 * t2475 - 0.25502554838335097930e1 * t17033 * t13632 + 0.19594476351194912734e0 * t8964 * t19160;
10009   t19193 = 0.32937059624806545678e0 * t13761 * t3403 - 0.10979019874935515226e0 * t2962 * t19145 + 0.69074723123554292753e-1 * t4457 * t2475 - 0.10979019874935515226e0 * t3891 * t443 - 0.10979019874935515226e0 * t1049 * t1447 - 0.12751277419167548965e1 * t13799 * t349 * t3975 - 0.54895099374677576129e-1 * t5680 * t251 + 0.97972381755974563669e-1 * t13458 * t349 * t3975 - 0.25502554838335097930e1 * t9270 * t19151 - 0.15171639890357805325e1 * t11658 * t17181 - 0.19594476351194912734e0 * t11661 * t12356 - 0.45514919671073415976e1 * t18639 * t3942 - 0.97994301469412365794e0 * t7602 * t4042 * t18238;
10010   t19207 = t610 * t5768;
10011   t19214 = t1843 * t1577 * t228;
10012   t19230 = 0.16879116930178234168e1 * t7720 * t18239 + 0.53483277938827345109e0 * t7517 * t18292 + 0.25502554838335097930e1 * t7576 * t18295 + 0.21252129031945914941e0 * t4411 * t834 * t102 - 0.1468010318348156928e1 * t3991 * t18935 * t249 - 0.119078225334763520e0 * t609 * t19207 - 0.119078225334763520e0 * t625 * t13401 * t857 - 0.29967321450326855254e0 * t839 * t19214 - 0.33837660950279469264e0 * t854 * t13992 - 0.61023519165317445059e0 * t616 * t18557 * t862 + 0.29967321450326855254e0 * t3476 * t4075 * t2904 + 0.476312901339054080e0 * t2482 * t18535 + 0.31525238188956314657e0 * t2506 * t5722 * t4496;
10013   t19238 = t94 * t349;
10014   t19247 = t19238 * t240;
10015   t19258 = t1561 * t362;
10016   t19259 = t434 * t19258;
10017   t19269 = 0.29967321450326855254e0 * t3476 * t1058 * t11817 - 0.75858199451789026629e0 * t7754 * t18295 - 0.119078225334763520e0 * t13453 * t881 + 0.25502554838335097929e1 * t11682 * t434 * t19238 * t228 + 0.21958039749871030452e0 * t9156 * t434 * t19238 * t249 + 0.17001703225556731953e1 * t11658 * t1069 * t19247 + 0.21958039749871030452e0 * t9156 * t5689 * t242 + 0.13814944624710858551e0 * t11725 * t11876 - 0.50613316194190507389e-1 * t11731 * t2800 + 0.13814944624710858551e0 * t7828 * t19259 - 0.25937594065695016420e0 * t11957 * t3827 + 0.17489238971848963747e1 * t430 * t1983 * t11762 + 0.238156450669527040e0 * t4549 * t3988;
10018   t19303 = 0.238156450669527040e0 * t4549 * t3403 + 0.32937059624806545679e0 * t5675 * t251 + 0.2766001889280e1 * t13705 * t3984 - 0.25306658097095253694e-1 * t4614 * t364 - 0.11756685810716947640e1 * t13792 * t349 * t3975 + 0.19594476351194912734e0 * t3974 * t13632 - 0.25306658097095253694e-1 * t5672 * t251 + 0.45165298839047841173e-1 * t13411 * t349 * t3975 + 0.76507664515005293790e1 * t5672 * t3975 - 0.119078225334763520e0 * t625 * t4430 * t1245 - 0.119078225334763520e0 * t625 * t1570 * t3384 - 0.734005159174078464e0 * t3991 * t18598 * t249 - 0.50613316194190507388e-1 * t11731 * t2809;
10019   t19330 = -0.39188952702389825468e0 * t11731 * t2813 + 0.90330597678095682346e-1 * t11677 * t3859 - 0.25937594065695016420e0 * t16384 * t2818 + 0.34970653833504584655e0 * t11731 * t2821 + 0.11252744620118822779e1 * t12370 * t16910 + 0.14533144731775861995e0 * t11666 * t11655 - 0.50613316194190507389e-1 * t9140 * t3832 + 0.14533144731775861995e0 * t11666 * t11771 - 0.19594476351194912734e0 * t11661 * t11774 + 0.17001703225556731953e1 * t11658 * t16894 + 0.21958039749871030452e0 * t11661 * t11719 + 0.25502554838335097929e1 * t18639 * t3939 - 0.39188952702389825468e0 * t9140 * t3836;
10020   t19335 = t2487 * t4489 * t362;
10021   t19338 = t4071 * t18325;
10022   t19348 = t434 * t1561 * t228;
10023   t19355 = t621 * t349;
10024   t19367 = 0.33758233860356468336e1 * t18636 * t11757 + 0.72665723658879309980e-1 * t1870 * t19335 + 0.16879116930178234169e1 * t1870 * t19338 - 0.4936538891835801600e1 * t237 * t18773 + 0.14533144731775861995e0 * t11666 * t12420 - 0.19594476351194912734e0 * t11661 * t12423 + 0.21958039749871030452e0 * t7776 * t19348 - 0.1844001259520e1 * t1042 * t18553 - 0.11756685810716947640e1 * t11689 * t5635 + 0.11252744620118822779e1 * t12370 * t1062 * t19355 * t240 - 0.15171639890357805325e1 * t11658 * t1062 * t19247 + 0.21958039749871030452e0 * t9156 * t16603 + 0.13814944624710858551e0 * t11725 * t11765;
10025   t19401 = 0.21958039749871030452e0 * t11661 * t11768 + 0.42504258063891829882e0 * t12485 * t1059 + 0.42504258063891829882e0 * t4095 * t2969 + 0.42504258063891829882e0 * t2982 * t4076 - 0.119078225334763520e0 * t2365 * t4617 - 0.238156450669527040e0 * t625 * t1074 * t5685 + 0.325024956416e0 * t97 * t4460 * t902 + 0.461000314880e0 * t18812 * t102 + 0.650049912832e0 * t97 * t2938 * t1445 - 0.12751277419167548965e1 * t4402 * t834 * t102 + 0.29967321450326855254e0 * t854 * t13371 + 0.69074723123554292755e-1 * t848 * t1579 - 0.1844001259520e1 * t237 * t18748 + 0.23916119461575365556e1 * t11582 * t18630 * t249;
10026   t19407 = my_piecewise3(t87, 0, t18191 + t18288 + t18446 + t19088 + t19163 + t19126 + t19230 + t19330 + t18369 + t18629 + t18406 + t18519 + t19401 + t19269 + t19367 + t18258 + t18982 + t19303 + t18556 + t18224 + t18486 + t19019 + t19193 + t18949 + t18586 + t18334 + t18916 + t18886 + t18848 + t18665 + t18703 + t19054);
10027   t19408 = my_piecewise3(t86, 0, t19407);
10028   t19410 = -0.2e1 * t1037 * t1451 - t18147 * t104 - 0.2e1 * t1390 * t1107 - t1538 * t908 - t834 * t1596 - t85 * t19408 - t228 * t5792 - t5579 * t255 - t349 * t4627 - t4389 * t368 - 0.2e1 * t3796 * t447 - 0.2e1 * t428 * t4124;
10029   t19416 = t1599 * t261;
10030   t19423 = t685 * t5794;
10031   t19444 = -0.3e1 / 0.50e2 * t450 * t1604 * t4126 - t266 * t19410 * t118 / 0.100e3 - t4648 * t4140 / 0.180e3 - t19416 * t4137 / 0.108e3 + t4633 * t4140 / 0.60e2 - 0.3e1 / 0.50e2 * t1110 * t5800 - t19423 * t1115 / 0.180e3 - t4642 * t4140 / 0.30e2 + t1603 * t914 * t263 / 0.60e2 + t685 * t452 * t4126 / 0.50e2 + t685 * t1118 * t1453 / 0.50e2 - t14506 * t1457 / 0.180e3 + t46 * t19410 * t118 / 0.100e3 + t17618 * t14457 / 0.30e2;
10032   t19461 = t2706 * t1465;
10033   t19464 = t4314 * t384;
10034   t19473 = t455 * t1504;
10035   t19498 = 0.2e1 * t168 * t121 * (t17876 + t19444) * t140 - 0.8e1 * t14587 * t3676 - 0.16e2 * t4303 * t17813 - t168 * t273 * t5899 - 0.4e1 * t168 * t17826 - 0.2e1 * t168 * t5521 * t294 + 0.16e2 * t4303 * t19461 - 0.24e2 * t4296 * t19464 - 0.32e2 * t1004 * t1005 * t3703 - 0.2e1 * t168 * t1515 * t973 + 0.8e1 * t1004 * t19473 * t273 - 0.2e1 * t168 * t4321 * t399 - 0.4e1 * t168 * t456 * t4273 - 0.16e2 * t2699 * t5502 + 0.48e2 * t4296 * t1005 * t384 * t1124 - 0.4e1 * t168 * t3688 * t473 - 0.4e1 * t1004 * t14437 * t384 - 0.2e1 * t168 * t1614 * t973;
10036   t19552 = t5841 * t280;
10037   t19555 = 0.2e1 * t1476 * t1161 + 0.50e2 / 0.81e2 * t279 * t1144 * t5794 * t261 - 0.2000e4 / 0.81e2 * t946 * t4729 * t4213 + 0.20e2 / 0.9e1 * t3086 * t4227 * t15 - 0.100e3 / 0.27e2 * t14278 * t1164 * t4227 + 0.2e1 * t1135 * t1498 - 0.20e2 / 0.9e1 * t463 * t1626 * t449 * t4126 - 0.20e2 / 0.9e1 * t1481 * t4701 + 0.5e1 / 0.9e1 * t463 * t464 * t19410 + 0.500e3 / 0.81e2 * t946 * t4740 * t4213 + 0.50e2 / 0.81e2 * t279 * t1144 * t1598 * t914 + 0.100e3 / 0.27e2 * t461 * t1164 * t4200 - 0.100e3 / 0.27e2 * t14278 * t1164 * t4217 - 0.50e2 / 0.27e2 * t279 * t4695 * t1602 * t914 - 0.10e2 / 0.9e1 * t4206 * t1627 + 0.5e1 / 0.9e1 * t1141 * t5868 - 0.5e1 / 0.9e1 * t19552 * t1138;
10038   t19597 = 0.20e2 / 0.9e1 * t3086 * t4217 * t15 - 0.5e1 / 0.9e1 * t13155 * t1478 - 0.20e2 / 0.9e1 * t1141 * t5859 - 0.20e2 / 0.9e1 * t463 * t1626 * t1109 * t1453 + 0.100e3 / 0.81e2 * t943 * t4707 - 0.5e1 / 0.9e1 * t4683 * t4203 + 0.2e1 * t4191 * t470 + 0.50e2 / 0.81e2 * t279 * t1144 * t4629 * t374 + params->c1 * t19410 * t131 + 0.5e1 / 0.9e1 * t1481 * t4710 + 0.20e2 / 0.9e1 * t11099 * t4688 + 0.20e2 / 0.9e1 * t9330 * t5847 - 0.50e2 / 0.81e2 * t14291 * t4200 - 0.100e3 / 0.27e2 * t943 * t4697 + 0.20e2 / 0.9e1 * t3086 * t4221 * t15 + 0.2e1 * t461 * t4259 + 0.5e1 / 0.9e1 * t4206 * t1630;
10039   t19618 = (t19555 + t19597) * t135 + t5871 * t285 * t135 + t4713 * t393 * t135 + t1633 * t954 * t135 + t5873 * t286 + 0.2e1 * t1153 * t1491 + 0.2e1 * t1154 * t1492 + 0.2e1 * t469 * t4234 + 0.2e1 * t1493 * t1153 + t1635 * t954 * t135 + t5877 * t286;
10040   t19621 = t17482 * t1453;
10041   t19624 = t4725 * t4126;
10042   t19628 = t287 * t706 * t5794;
10043   t19635 = t730 * t732 * t5794;
10044   t19646 = t137 * t1453;
10045   t19647 = t19646 * t1138;
10046   t19654 = 0.5e1 / 0.9e1 * t4741 * t965 - 0.2e1 * t733 * t19621 - 0.2e1 * t733 * t19624 + 0.10e2 / 0.9e1 * t19628 * t291 + t287 * t280 * t19410 * t137 + 0.5e1 / 0.9e1 * t19635 * t291 + 0.5e1 / 0.9e1 * t14418 * t396 - 0.25e2 / 0.81e2 * t14362 * t4246 - 0.4e1 * t719 * t19624 - 0.100e3 / 0.27e2 * t14354 * t4246 - 0.20e2 / 0.3e1 * t3126 * t19647 - 0.20e2 / 0.3e1 * t3134 * t19647 + 0.25e2 / 0.81e2 * t14412 * t4246;
10047   t19659 = t395 * t14370;
10048   t19684 = -0.200e3 / 0.27e2 * t14378 * t4246 - 0.100e3 / 0.9e1 * t14381 * t4246 - 0.20e2 / 0.3e1 * t3134 * t19659 - 0.20e2 / 0.3e1 * t3126 * t19659 + 0.10e2 / 0.9e1 * t14358 * t396 - 0.10e2 / 0.3e1 * t4730 * t965 - 0.10e2 / 0.9e1 * t3149 * t19659 + 0.50e2 / 0.27e2 * t14384 * t4246 + 0.50e2 / 0.27e2 * t14389 * t4246 - 0.10e2 / 0.9e1 * t3149 * t19647 - 0.5e1 / 0.9e1 * t4747 * t965 - 0.10e2 / 0.3e1 * t4722 * t965 + 0.10e2 / 0.9e1 * t4734 * t965 - 0.4e1 * t719 * t19621;
10049   t19686 = my_piecewise3(t129, t19618, t19654 + t19684);
10050   t19715 = t1520 * t933;
10051   t19725 = t1465 * t473;
10052   t19729 = -0.16e2 * t1004 * t1520 * t930 + 0.8e1 * t2699 * t5826 + 0.1174e1 * t19686 - 0.4e1 * t168 * t1365 * t1169 + 0.4e1 * t497 * t19464 + 0.2e1 * t168 * t930 * t1613 * t140 + 0.2e1 * t168 * t381 * t4657 * t140 + 0.48e2 * t2695 * t1520 * t384 * t270 - 0.4e1 * t3685 * t4318 - 0.8e1 * t14587 * t3700 - 0.4e1 * t168 * t1009 * t1504 - 0.4e1 * t168 * t1466 * t1169 - 0.4e1 * t497 * t19715 - 0.4e1 * t168 * t19461 + 0.8e1 * t1004 * t4665 * t933 - t168 * t933 * t1649 + 0.8e1 * t1004 * t19725 * t273;
10053   t19741 = t5818 * t140;
10054   t19758 = t1613 * t399;
10055   t19781 = 0.12e2 * t2695 * t4317 * t3670 - t168 * t384 * t4751 - 0.2e1 * t168 * t4658 * t399 - 0.4e1 * t168 * t4161 * t473 - 0.4e1 * t1004 * t19741 * t273 + 0.2e1 * t497 * t5838 * t273 + 0.8e1 * t1004 * t14597 * t384 - 0.4e1 * t168 * t3703 * t473 + 0.24e2 * t4296 * t19715 - 0.24e2 * t4296 * t17790 + 0.4e1 * t1004 * t19758 * t273 - 0.4e1 * t1004 * t4317 * t933 + 0.2e1 * t168 * t270 * t5818 * t140 - 0.4e1 * t168 * t1125 * t1504 - 0.4e1 * t2699 * t5518 - t128 * t19686 - 0.4e1 * t168 * t3692 * t473 + 0.8e1 * t1004 * t14580 * t384;
10056   t19797 = t5 * t1653;
10057   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10058     v4rhosigmalapl2[0] = -t767 * t5904 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t7 * (t17841 + t19498 + t19729 + t19781) * t158 - 0.24739500000000000000e1 * t307 * t308 * t5902 * t316 + 0.92773125000000000000e0 * t407 * t4755 * t413 + 0.11132775000000000000e2 * t5907 * t992 - 0.30203104535893596325e2 * t19797 * t999;
10059 
10060   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10061     v4rhosigmalapltau[0] = 0.0e0;
10062 
10063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10064     v4rhosigmatau2[0] = 0.0e0;
10065 
10066   t19811 = t13329 * t213;
10067   t19830 = t1769 * t5940 / t572 / t219;
10068   t19831 = t5944 * t10;
10069   t19832 = t19831 * t193;
10070   t19845 = t2724 * t1796;
10071   t19848 = t6300 * t5940;
10072   t19849 = t5942 * t5944;
10073   t19856 = 0.5e1 / 0.1458e4 * t5529 + 0.9e1 / 0.2e1 * t2724 * t4364 - 0.6e1 * t1018 * t4367 - t5931 * t16008 / 0.972e3 - t5931 * t16014 / 0.972e3 - 0.5e1 / 0.2187e4 * t19811 * t16019 - t17932 * t1535 / 0.972e3 - t18034 * t1535 / 0.972e3 - 0.5e1 / 0.2187e4 * t5537 * t4384 - t18057 * t1535 / 0.972e3 - t18060 * t1535 / 0.972e3 - 0.5e1 / 0.2187e4 * t5559 * t4384 - 0.5e1 / 0.486e3 * t5553 - 0.50e2 / 0.3e1 * t19830 * t19832 + 0.20e2 / 0.3e1 * t18003 * t19832 - 0.5e1 / 0.648e3 * t18105 * t2737 * t1534 * t225 + t16086 * t2737 * t1534 * t216 / 0.162e3 + 0.20e2 / 0.3e1 * t19845 * t4355 + 0.105e3 / 0.2e1 * t19848 * t19849 * t225 - 0.45e2 * t4344 * t19849 * t216;
10074   t19862 = t573 * t5944;
10075   t19878 = t8505 * t76;
10076   t19890 = t58 * t13267;
10077   t19908 = -0.45e2 * t1769 * t5940 * t5942 * t1528 * t1034 - 0.45e2 / 0.2e1 * t2732 * t19862 * t225 + 0.27e2 * t1022 * t4345 * t1034 + 0.9e1 * t8499 * t1529 - 0.15e2 * t6290 * t5945 + 0.9e1 * t1761 * t5948 + 0.9e1 * t558 * t7188 * t5944 - 0.45e2 / 0.2e1 * t19878 * t4346 + 0.18e2 * t4332 * t4349 + 0.18e2 * t2724 * t76 * t4360 + 0.5e1 / 0.1458e4 * t5538 + 0.5e1 / 0.1458e4 * t5560 - 0.3e1 * t2774 * t1532 + t19890 * t15954 / 0.648e3 - 0.10e2 / 0.9e1 * t1018 * t4370 * t172 + t18085 * t4377 / 0.648e3 + t17899 * t5951 / 0.324e3 + t5551 * t8428 * t1534 / 0.324e3 + 0.10e2 / 0.729e3 * t4353 * t8400 * t4383 + t17912 * t4377 / 0.648e3;
10078   t19909 = t19856 + t19908;
10079   t19924 = t6053 * t90;
10080   t19927 = t6555 * t5962;
10081   t19935 = t231 * t19909;
10082   t19938 = t6059 * t90;
10083   t19941 = t441 * t1073;
10084   t19942 = t1058 * t19941;
10085   t19952 = t1577 * t240;
10086   t19953 = t1058 * t19952;
10087   t19959 = 0.975074869248e0 * t97 * t1088 * t4441 - 0.11064007557120e2 * t19924 * t841 - 0.33837660950279469264e0 * t609 * t19927 - 0.16468529812403272839e0 * t4457 * t2893 + 0.63756387095837744823e0 * t4411 * t1037 * t102 + 0.461000314880e0 * t19935 * t102 + 0.76507664515005293790e1 * t19938 * t841 + 0.1428938704017162240e1 * t2482 * t19942 - 0.12751277419167548965e1 * t4516 * t2969 + 0.11378729917768353994e1 * t2982 * t4513 - 0.10151298285083840779e1 * t10496 * t1058 * t13991 - 0.89901964350980565762e0 * t7430 * t19953 + 0.89901964350980565762e0 * t3476 * t1058 * t13370;
10088   t19965 = t4505 * t2904;
10089   t19968 = t4505 * t4496;
10090   t19992 = -0.59502499971174729837e0 * t7513 * t2816 * t19952 + 0.80224916908241017663e0 * t7517 * t19953 - 0.89901964350980565762e0 * t7430 * t19965 - 0.2143408056025743360e1 * t2488 * t19968 + 0.63756387095837744823e0 * t13753 * t1059 + 0.63756387095837744823e0 * t4519 * t2969 + 0.29391714526792369101e0 * t4522 * t2969 + 0.63756387095837744823e0 * t2982 * t4510 + 0.63756387095837744823e0 * t1052 * t13568 + 0.32937059624806545679e0 * t19924 * t611 + 0.8298005667840e1 * t4457 * t4563 - 0.2766001889280e1 * t1042 * t840 * t4389 - 0.89901964350980565762e0 * t1042 * t19214 - 0.10151298285083840779e1 * t1055 * t13992;
10091   t19996 = -t239 * t19909 * t94;
10092   t19999 = t590 * t5956;
10093   t20000 = t19999 * t90;
10094   t20005 = t644 * t6085;
10095   t20009 = t5993 * t621;
10096   t20010 = t4071 * t20009;
10097   t20017 = t2816 * t13441;
10098   t20020 = t1590 * t240;
10099   t20021 = t1058 * t20020;
10100   t20029 = t4489 * t4496;
10101   t20040 = 0.461000314880e0 * t237 * t19996 - 0.922000629760e0 * t20000 * t841 - 0.2766001889280e1 * t2897 * t6022 + 0.325024956416e0 * t97 * t20005 * t249 + 0.16879116930178234169e1 * t1870 * t20010 + 0.47287857283434471986e0 * t2506 * t2816 * t1569 * t249 + 0.10984233449757140111e2 * t4109 * t20017 + 0.714469352008581120e0 * t2482 * t20021 + 0.44950982175490282881e0 * t2965 * t4572 - 0.59502499971174729838e0 * t7513 * t4489 * t2904 - 0.28372714370060683191e1 * t7570 * t20029 + 0.94575714566868943972e0 * t2506 * t2816 * t19941 - 0.14699145220411854869e1 * t7602 * t13737 * t4496 + 0.25318675395267351253e1 * t7720 * t20029;
10102   t20044 = t610 * t6085;
10103   t20047 = t6062 * t90;
10104   t20050 = t441 * t1590;
10105   t20062 = t13458 * t428;
10106   t20066 = t1815 * t1058 * t1590;
10107   t20069 = t4505 * t441;
10108   t20070 = t2487 * t20069;
10109   t20073 = t1058 * t1569;
10110   t20074 = t1820 * t20073;
10111   t20083 = 0.44950982175490282881e0 * t3476 * t1058 * t13383 - 0.119078225334763520e0 * t609 * t20044 - 0.119078225334763520e0 * t20047 * t611 - 0.2202015477522235392e1 * t3991 * t20050 * t249 + 0.44950982175490282881e0 * t2890 * t4560 - 0.357234676004290560e0 * t13453 * t1081 - 0.16468529812403272839e0 * t4447 * t443 - 0.16468529812403272839e0 * t5985 * t251 + 0.29391714526792369101e0 * t20062 * t3975 - 0.16468529812403272839e0 * t603 * t20066 - 0.29391714526792369101e0 * t603 * t20070 - 0.12751277419167548965e1 * t603 * t20074 + 0.20722416937066287827e0 * t1049 * t1579 + 0.47287857283434471986e0 * t1941 * t1557 * t621 * t1101;
10112   t20089 = t6423 * t5993;
10113   t20099 = t4416 * t90;
10114   t20102 = t5962 * t239;
10115   t20112 = t2863 * t4509;
10116   t20115 = t1069 * t13567;
10117   t20121 = t6003 * t605;
10118   t20126 = -0.98018905612252815489e1 * t616 * t4438 * t4535 - 0.92817332546461565657e1 * t6421 * t20089 * t15364 + 0.20312390406477209506e2 * t1983 * t20089 * t3417 + 0.84395584650891170840e0 * t1941 * t5994 * t1942 + 0.29391714526792369101e0 * t20099 * t4563 - 0.33837660950279469264e0 * t6571 * t20102 * t605 - 0.75919974291285761083e-1 * t4614 * t443 + 0.714469352008581120e0 * t1042 * t18651 + 0.44950982175490282881e0 * t1055 * t13384 - 0.2766001889280e1 * t237 * t20112 - 0.2766001889280e1 * t237 * t20115 - 0.714469352008581120e0 * t625 * t6025 * t626 - 0.11064007557120e2 * t237 * t20121 + 0.714469352008581120e0 * t4549 * t4020;
10119   t20148 = t6683 * t5962;
10120   t20160 = 0.44950982175490282881e0 * t4591 * t2905 - 0.16468529812403272839e0 * t1049 * t1592 - 0.48997150734706182896e0 * t6566 * t5994 * t6567 + 0.56906378609746093242e1 * t1983 * t4438 * t12118 - 0.357234676004290560e0 * t4591 * t2893 + 0.25502554838335097930e1 * t2824 * t18453 + 0.32937059624806545679e0 * t1052 * t13887 + 0.38253832257502646895e1 * t1052 * t13891 + 0.975074869248e0 * t97 * t2938 * t1590 + 0.23916119461575365556e1 * t97 * t20148 * t249 - 0.38253832257502646895e1 * t13761 * t4563 + 0.29391714526792369101e0 * t14003 * t3859 - 0.84395584650891170840e0 * t13584 * t2818 + 0.11378729917768353994e1 * t4519 * t2821;
10121   t20163 = t604 * t1058 * t1037;
10122   t20186 = t631 * t5998;
10123   t20187 = t20186 * t605;
10124   t20189 = t1557 * t2968;
10125   t20193 = t6584 * t6052;
10126   t20198 = t618 * t5998;
10127   t20199 = t20198 * t605;
10128   t20203 = t13392 * t1058;
10129   t20207 = t6605 * t5993;
10130   t20208 = t20207 * t605;
10131   t20210 = t4423 * t2968;
10132   t20214 = t892 * t1538;
10133   t20218 = 0.17054206847430144000e2 * t13517 * t2812 + 0.9555676435200e1 * t13718 * t6074 - 0.3569440e1 * t20187 + 0.32124960e2 * t20189 - 0.10708320e2 * t20115 - 0.42833280e2 * t20121 + 0.10145661348248508867e2 * t20193 * t892 + 0.17054206847430144000e2 * t4416 * t4399 + 0.3185225478400e1 * t20199 - 0.3569440e1 * t19999 * t892 + 0.9555676435200e1 * t20203 - 0.57334058611200e2 * t2917 * t13901 - 0.68216827389720576000e2 * t20208 - 0.57334058611200e2 * t20210 + 0.9555676435200e1 * t4411 * t4399 - 0.57334058611200e2 * t2958 * t20214 - 0.10708320e2 * t20112;
10134   t20223 = t5994 * t605;
10135   t20225 = t4438 * t2968;
10136   t20227 = t4433 * t2968;
10137   t20232 = t599 * t5956;
10138   t20235 = t20089 * t605;
10139   t20245 = t6434 * t6052;
10140   t20257 = 0.32124960e2 * t1048 * t20214 - 0.10708320e2 * t2896 * t6067 + 0.114668117222400e3 * t20223 + 0.17054206847430144000e2 * t20225 + 0.9555676435200e1 * t20227 - 0.10708320e2 * t1041 * t99 * t4389 + 0.3185225478400e1 * t20232 * t892 + 0.10145661348248508867e2 * t20235 + 0.32124960e2 * t1062 * t13901 + 0.17054206847430144000e2 * t13458 * t428 * t228 * t99 + 0.1784720e1 * t19935 * t99 - 0.68216827389720576000e2 * t20245 * t892 + 0.114668117222400e3 * t6059 * t892 - 0.57334058611200e2 * t4402 * t4399 + 0.1784720e1 * t19996 + 0.32124960e2 * t1549 * t4399 - 0.42833280e2 * t6053 * t892;
10141   t20273 = 0.58783429053584738202e0 * t8776 * t20163 - 0.75919974291285761083e-1 * t4522 * t2809 - 0.58783429053584738202e0 * t4522 * t2813 + 0.13549589651714352352e0 * t14022 * t3859 - 0.38906391098542524630e0 * t13591 * t2818 + 0.52455980750256876982e0 * t4522 * t2821 - 0.12751277419167548965e1 * t2824 * t18942 - 0.16468529812403272839e0 * t1052 * t13976 - 0.12751277419167548965e1 * t1052 * t13967 - 0.258304e0 * t97 * t245 * (t20218 + t20257) - 0.63756387095837744824e0 * t625 * t1557 * t4453 - 0.357234676004290560e0 * t625 * t1074 * t6045 + 0.56906378609746093244e1 * t4041 * t4042 * t13441 - 0.98018905612252815491e1 * t4046 * t20017;
10142   t20277 = t4509 * t4496;
10143   t20300 = t101 * t1538;
10144   t20301 = t97 * t20300;
10145   t20307 = t610 * t441 * t1037;
10146   t20310 = t6085 * t239;
10147   t20314 = 0.44950982175490282881e0 * t3476 * t4509 * t2904 + 0.714469352008581120e0 * t2482 * t20277 + 0.47287857283434471985e0 * t2506 * t6038 * t4496 - 0.63756387095837744824e0 * t2488 * t20277 - 0.922000629760e0 * t237 * t20187 - 0.89901964350980565762e0 * t4588 * t2905 + 0.98811178874419637034e0 * t4620 * t443 - 0.37929099725894513314e0 * t625 * t5994 * t626 - 0.17620679382074383663e2 * t237 * t20208 + 0.714469352008581120e0 * t1042 * t610 * t1538 * t249 - 0.38253832257502646894e1 * t3884 * t20301 - 0.2143408056025743360e1 * t4457 * t4020 + 0.1428938704017162240e1 * t1042 * t20307 - 0.119078225334763520e0 * t625 * t20310 * t605;
10148   t20347 = t1843 * t20050;
10149   t20350 = -0.25502554838335097930e1 * t1052 * t13979 - 0.58783429053584738203e0 * t2803 * t18462 + 0.50637350790534702504e1 * t2987 * t13540 - 0.68272379506610123965e1 * t1052 * t13982 - 0.32937059624806545678e0 * t2982 * t4603 - 0.32937059624806545678e0 * t1052 * t13685 - 0.32937059624806545678e0 * t1052 * t13500 - 0.75919974291285761083e-1 * t4522 * t2800 - 0.16468529812403272839e0 * t1052 * t14009 + 0.16879116930178234168e1 * t8830 * t18360 - 0.357234676004290560e0 * t625 * t4430 * t1561 - 0.357234676004290560e0 * t625 * t434 * t94 * t4441 + 0.89901964350980565762e0 * t1055 * t13371 + 0.44950982175490282881e0 * t609 * t20347;
10150   t20368 = t2481 * t20069;
10151   t20385 = -0.32937059624806545678e0 * t2962 * t20307 - 0.11756685810716947640e1 * t20245 * t228 * t102 - 0.2202015477522235392e1 * t97 * t4552 * t1101 - 0.18307055749595233518e1 * t616 * t2867 * t6038 - 0.18307055749595233518e1 * t616 * t1062 * t621 * t4429 - 0.357234676004290560e0 * t2890 * t4617 + 0.32937059624806545678e0 * t603 * t20368 + 0.38253832257502646895e1 * t4522 * t3852 - 0.25502554838335097930e1 * t2824 * t20163 + 0.32937059624806545679e0 * t4516 * t2809 + 0.25502554838335097930e1 * t4516 * t2813 - 0.17635028716075421460e1 * t14012 * t3859 + 0.16879116930178234168e1 * t13417 * t2818 - 0.22757459835536707989e1 * t4516 * t2821;
10152   t20418 = -0.12751277419167548965e1 * t14015 * t3852 - 0.16468529812403272839e0 * t4519 * t2809 - 0.12751277419167548965e1 * t4519 * t2813 + 0.21799717097663792993e0 * t2987 * t13514 - 0.16879116930178234168e1 * t2987 * t13709 - 0.38906391098542524630e0 * t2803 * t18242 + 0.26233858457773445621e1 * t8603 * t14243 - 0.45186746351441547126e1 * t2987 * t14246 + 0.20722416937066287826e0 * t4457 * t2905 + 0.714469352008581120e0 * t625 * t1565 * t4453 + 0.44950982175490282881e0 * t1852 * t1074 * t5974 + 0.21252129031945914941e0 * t20232 * t228 * t102 + 0.43599434195327585986e0 * t11666 * t13930 + 0.65874119249613091356e0 * t9156 * t19348;
10153   t20427 = t11492 * t4509;
10154   t20430 = t1569 * t433;
10155   t20431 = t20430 * t626;
10156   t20436 = t5993 * t94;
10157   t20437 = t4040 * t20436;
10158   t20442 = t1871 * t20436;
10159   t20454 = 0.41444833874132575653e0 * t11725 * t13922 + 0.65874119249613091356e0 * t11661 * t13926 - 0.15183994858257152217e0 * t9140 * t4603 - 0.58783429053584738202e0 * t11661 * t13933 - 0.14809616675507404800e2 * t4072 * t20427 - 0.63756387095837744824e0 * t2488 * t20431 + 0.44051698455185959158e1 * t4081 * t20427 + 0.67692822862798455803e0 * t603 * t20437 - 0.11378729917768353994e1 * t7754 * t19968 + 0.12751277419167548965e1 * t603 * t20442 + 0.714469352008581120e0 * t2482 * t20431 + 0.8298005667840e1 * t4067 * t20427 - 0.84395584650891170840e0 * t8634 * t4490 + 0.47287857283434471985e0 * t2506 * t2816 * t20020;
10160   t20493 = -0.63756387095837744824e0 * t2488 * t20021 + 0.80224916908241017663e0 * t7517 * t19965 + 0.38253832257502646895e1 * t7576 * t19968 - 0.12751277419167548965e1 * t2488 * t19942 + 0.63756387095837744823e0 * t13718 * t428 * t102 - 0.25306658097095253694e-1 * t19938 * t611 + 0.45165298839047841173e-1 * t20193 * t228 * t102 - 0.357234676004290560e0 * t625 * t1570 * t4453 - 0.94575714566868943973e0 * t1941 * t6003 * t1942 - 0.21968466899514280222e2 * t616 * t5994 * t862 + 0.10984233449757140111e2 * t616 * t4423 * t4535 - 0.22762551443898437297e2 * t1983 * t20207 * t3417 + 0.39207562244901126197e2 * t616 * t20207 * t862 - 0.357234676004290560e0 * t1055 * t13758;
10161   t20496 = t1871 * t20073;
10162   t20505 = t1871 * t2816 * t1569;
10163   t20509 = t1815 * t4509 * t441;
10164   t20530 = 0.8298005667840e1 * t237 * t20189 + 0.11378729917768353994e1 * t603 * t20496 - 0.12751277419167548965e1 * t2824 * t20300 * t242 + 0.32937059624806545678e0 * t4516 * t2800 - 0.84395584650891170843e0 * t1870 * t20505 - 0.16468529812403272839e0 * t603 * t20509 + 0.2468269445917900800e1 * t237 * t20203 + 0.2468269445917900800e1 * t237 * t20227 + 0.8298005667840e1 * t2962 * t840 * t1538 * t228 + 0.29619233351014809600e2 * t237 * t20223 - 0.22757459835536707988e1 * t2824 * t18957 - 0.29391714526792369101e0 * t1052 * t13905 + 0.22757459835536707988e1 * t1052 * t13895 + 0.52455980750256876981e0 * t2803 * t18300;
10165   t20535 = t3475 * t1058 * t1577;
10166   t20541 = t2487 * t4489 * t441;
10167   t20548 = t6056 * t236;
10168   t20551 = t6062 * t236;
10169   t20554 = t6059 * t236;
10170   t20558 = t4040 * t5993 * t1984;
10171   t20561 = t4040 * t20009;
10172   t20566 = t6053 * t236;
10173   t20569 = t5998 * t94;
10174   t20570 = t604 * t20569;
10175   t20573 = 0.20307846858839536740e1 * t1052 * t13898 + 0.20722416937066287827e0 * t603 * t20535 + 0.20722416937066287827e0 * t1052 * t14006 + 0.21799717097663792993e0 * t1870 * t20541 - 0.84395584650891170840e0 * t2987 * t13998 + 0.11378729917768353994e1 * t1052 * t13902 + 0.12751277419167548965e1 * t20548 * t606 + 0.21252129031945914941e0 * t20551 * t606 + 0.45165298839047841173e-1 * t20554 * t606 + 0.87446194859244818738e0 * t6536 * t20558 - 0.15062248783813849042e1 * t1870 * t20561 - 0.12751277419167548965e1 * t2982 * t4506 - 0.58783429053584738203e0 * t20566 * t606 + 0.21252129031945914941e0 * t603 * t20570;
10176   t20574 = t4071 * t20436;
10177   t20580 = t4411 * t428 * t90;
10178   t20587 = t6056 * t90;
10179   t20610 = -0.22757459835536707989e1 * t603 * t20574 - 0.16468529812403272839e0 * t4519 * t2800 + 0.29391714526792369101e0 * t20580 * t2299 + 0.29391714526792369101e0 * t2803 * t18950 + 0.714469352008581120e0 * t4588 * t2893 - 0.714469352008581120e0 * t20587 * t611 - 0.61023519165317445059e0 * t616 * t20198 * t862 + 0.822756481972633600e0 * t237 * t20199 + 0.12751277419167548965e1 * t625 * t6003 * t626 - 0.14809616675507404800e2 * t237 * t20210 + 0.44051698455185959158e1 * t237 * t20225 - 0.13606156761889987933e2 * t616 * t20089 * t862 + 0.26206649088979828343e1 * t237 * t20235 - 0.119078225334763520e0 * t625 * t5999 * t626;
10180   t20615 = my_piecewise3(t87, 0, t19959 + t19992 + t20040 + t20083 + t20126 + t20160 + t20273 + t20314 + t20350 + t20385 + t20418 + t20454 + t20493 + t20530 + t20573 + t20610);
10181   t20616 = my_piecewise3(t86, 0, t20615);
10182   t20618 = 0.3e1 * t1037 * t1596 + t19909 * t104 + 0.3e1 * t1538 * t1107 + t85 * t20616 + t228 * t6100 + t5956 * t255 + 0.3e1 * t428 * t4627 + 0.3e1 * t4389 * t447;
10183   t20621 = t6139 * t280;
10184   t20648 = t29 * t2079;
10185   t20662 = t1109 * t1598;
10186   t20666 = t449 * t4629;
10187   t20676 = -t20618;
10188   t20680 = 0.3e1 * t461 * t4737 + 0.10e2 / 0.3e1 * t1141 * t6148 + 0.200e3 / 0.27e2 * t279 * t20648 * t6110 * t261 + 0.10e2 * t463 * t6147 * t1602 * t1109 - 0.10e2 / 0.3e1 * t1141 * t6151 - 0.50e2 / 0.9e1 * t14278 * t1164 * t4706 - 0.10e2 / 0.3e1 * t463 * t1626 * t20662 - 0.10e2 / 0.3e1 * t463 * t1626 * t20666 + 0.5e1 / 0.9e1 * t1141 * t6154 + 0.50e2 / 0.81e2 * t279 * t1144 * t6102 * t261 + 0.5e1 / 0.9e1 * t463 * t464 * t20676;
10189   t20698 = t287 * t6172;
10190   t20701 = t1602 * t137;
10191   t20702 = t20701 * t1109;
10192   t20705 = t730 * t6181;
10193   t20708 = t137 * t1598;
10194   t20709 = t20708 * t1138;
10195   t20712 = t17482 * t1598;
10196   t20717 = t4725 * t4629;
10197   t20723 = t2092 * t6950 * t6110;
10198   t20727 = t287 * t706 * t6102;
10199   t20734 = t730 * t732 * t6102;
10200   t20747 = t6968 * t6970 * t6110;
10201   t20750 = 0.40e2 / 0.3e1 * t20698 * t291 + 0.18e2 * t2069 * t20702 + 0.20e2 * t20705 * t291 - 0.10e2 * t3126 * t20709 - 0.6e1 * t719 * t20712 - 0.10e2 * t3134 * t20709 - 0.6e1 * t719 * t20717 + 0.18e2 * t2080 * t20702 + 0.20e2 / 0.3e1 * t20723 * t291 + 0.10e2 / 0.9e1 * t20727 * t291 + t287 * t280 * t20676 * t137 + 0.5e1 / 0.9e1 * t20734 * t291 - 0.3e1 * t733 * t20717 - 0.3e1 * t733 * t20712 - 0.5e1 / 0.3e1 * t14412 * t1145 * t8168 + 0.3e1 * t2095 * t20702 + 0.5e1 / 0.9e1 * t20747 * t291;
10202   t20751 = my_piecewise3(t129, (-params->c1 * t20618 * t131 - 0.5e1 / 0.9e1 * t20621 * t1138 + 0.3e1 * t4681 * t470 + 0.10e2 / 0.3e1 * t14291 * t4688 + 0.3e1 * t1622 * t1161 - 0.6e1 * t1135 * t1638 - 0.10e2 * t12748 * t4696 * t15 - 0.12e2 * t461 * t1157 * t1109 + 0.3e1 * t1135 * t1642 + 0.10e2 / 0.3e1 * t3086 * t4706 * t15 + t20680) * t135 + t6157 * t285 * t135 + 0.3e1 * t4713 * t468 * t135 + 0.3e1 * t1633 * t1152 * t135 + 0.3e1 * t6159 * t286 + 0.3e1 * t1636 * t1152 + t6162 * t285 * t135, t20750);
10203   t20759 = t2706 * t1613;
10204   t20764 = t4665 * t1124;
10205   t20777 = t2702 * t1613;
10206   t20781 = t270 * t5911 * t140;
10207   t20787 = t6127 * t140;
10208   t20791 = t1520 * t1124;
10209   t20800 = t1005 * t4657;
10210   t20806 = t6103 * t114;
10211   t20811 = t15 * t452;
10212   t20817 = t1599 * t116 * t449;
10213   t20822 = t6111 * t114;
10214   t20828 = t6111 * t684;
10215   t20834 = t685 * t6102;
10216   t20843 = t2024 * t6120;
10217   t20849 = t6857 * t6110;
10218   t20852 = t46 * t20676 * t118 / 0.100e3 + t20806 * t1115 / 0.60e2 - 0.9e1 / 0.100e3 * t4630 * t6107 + t19416 * t20811 / 0.20e2 - 0.9e1 / 0.100e3 * t1599 * t4636 - t20817 * t1115 / 0.10e2 - 0.9e1 / 0.100e3 * t1603 * t1118 - t20822 * t1115 / 0.12e2 + 0.9e1 / 0.50e2 * t1603 * t6114 * t1109 + t20828 * t1115 / 0.18e2 - t266 * t20676 * t118 / 0.100e3 - t20834 * t1115 / 0.180e3 + 0.3e1 / 0.100e3 * t685 * t20666 * t118 + 0.3e1 / 0.100e3 * t685 * t20662 * t118 + t20843 * t1115 / 0.60e2 - 0.3e1 / 0.100e3 * t2024 * t1610 * t1109 - t20849 * t1115 / 0.180e3;
10219   t20857 = 0.1174e1 * t20751 - 0.6e1 * t168 * t4658 * t473 - 0.6e1 * t168 * t1009 * t1649 + 0.24e2 * t4303 * t20759 - 0.12e2 * t14587 * t4318 - 0.12e2 * t168 * t20764 - 0.48e2 * t1004 * t1005 * t4321 - t128 * t20751 - 0.6e1 * t168 * t1614 * t1169 - 0.6e1 * t168 * t1125 * t1649 + 0.6e1 * t168 * t20777 - 0.24e2 * t497 * t20781 - 0.6e1 * t168 * t4321 * t473 - 0.4e1 * t1004 * t20787 * t273 - 0.72e2 * t1004 * t20791 - 0.2e1 * t168 * t6128 * t294 - 0.48e2 * t1691 * t5912 * t294 + 0.6e1 * t168 * t20800 + 0.2e1 * t168 * t121 * t20852 * t140;
10220   t20863 = t6195 * t5910;
10221   t20864 = t5911 * t140;
10222   t20865 = t20864 * t273;
10223   t20868 = t5928 * t273;
10224   t20892 = t455 * t1649;
10225   t20901 = t1691 * t5910;
10226   t20910 = t1613 * t473;
10227   t20916 = 0.24e2 * t497 * t5916 * t294 + 0.144e3 * t4296 * t20781 - 0.192e3 * t20863 * t20865 - 0.72e2 * t4296 * t20868 - t168 * t273 * t6185 - 0.24e2 * t4303 * t20777 - 0.6e1 * t168 * t1515 * t1169 + 0.72e2 * t4296 * t1005 * t1613 * t273 - 0.24e2 * t4303 * t20800 + 0.24e2 * t497 * t1516 * t1169 + 0.12e2 * t497 * t20868 + 0.48e2 * t1004 * t5928 * t270 + 0.12e2 * t1004 * t20892 * t273 - 0.6e1 * t168 * t456 * t4751 + 0.48e2 * t4303 * t20764 + 0.144e3 * t20901 * t20791 + 0.2e1 * t168 * t270 * t6127 * t140 + 0.72e2 * t2695 * t20865 + 0.12e2 * t1004 * t20910 * t273 - 0.6e1 * t168 * t20759;
10228   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10229     v4rholapl3[0] = -t767 * t6190 / 0.2e1 - 0.3e1 / 0.8e1 * t164 * t7 * (t20857 + t20916) * t158 - 0.24739500000000000000e1 * t307 * t308 * t6188 * t316;
10230 
10231   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10232     v4rholapl2tau[0] = 0.0e0;
10233 
10234   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10235     v4rholapltau2[0] = 0.0e0;
10236 
10237   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10238     v4rhotau3[0] = 0.0e0;
10239 
10240   t20930 = 0.1e1 / t148 / t522 * t18;
10241   t20959 = t1181 * t1181;
10242   t20969 = t1300 * t1300;
10243   t20994 = t1297 * t1297;
10244   t21010 = t1206 * t1206;
10245   t21016 = t1219 * t1219;
10246   t21023 = 0.1e1 / t13 / t182;
10247   t21024 = t10 * t21023;
10248   t21039 = t1196 * t14;
10249   t21047 = t58 * t9713 * t1206 / 0.1944e4 - t58 * t3210 * t1219 / 0.2916e4 - 0.15e2 / 0.2e1 * t7147 * t4795 + 0.9e1 * t2202 * t4798 - 0.2e1 * t804 * t4812 + 0.105e3 / 0.16e2 * t6300 * t21010 - 0.45e2 / 0.4e1 * t1769 * t1206 * t1219 + 0.9e1 / 0.4e1 * t558 * t21016 + 0.3e1 * t558 * t346 * t4812 - t214 * (t21024 * t1195 * t79 / 0.2125764e7 - 0.5e1 / 0.2187e4 * t3714 * t4807 + 0.25e2 / 0.72e2 * t9739 * t1214 - 0.125e3 / 0.324e3 * t6356 * t341 * t183 * t324 + 0.25e2 / 0.209952e6 * t1782 * t21024 * t1195 + 0.25e2 / 0.209952e6 * t9763 * t21039 + 0.3125e4 / 0.186624e6 * t6339 * t21039) / 0.2e1;
10250   t21072 = t15481 * t356;
10251   t21085 = 0.1300099825664e1 * t97 * t15341 * t362 - 0.51005109676670195860e1 * t851 * t15498 + 0.87198868390655171972e0 * t2493 * t14909 - 0.11756685810716947640e1 * t851 * t15495 - 0.65874119249613091356e0 * t3461 * t3290 - 0.65874119249613091356e0 * t851 * t15488 + 0.11756685810716947640e1 * t15273 * t3280 - 0.65874119249613091356e0 * t851 * t15492 - 0.51005109676670195860e1 * t2291 * t21072 + 0.45514919671073415976e1 * t851 * t15478 - 0.30367989716514304433e0 * t3464 * t3290 - 0.33758233860356468336e1 * t2493 * t14913 + 0.82889667748265151307e0 * t851 * t15467 + 0.13174823849922618271e1 * t851 * t15471;
10252   t21088 = t1226 * t1226;
10253   t21089 = t1830 * t21088;
10254   t21092 = t1240 * t1240;
10255   t21093 = t1861 * t21092;
10256   t21094 = t21093 * t94;
10257   t21097 = t621 * t1261;
10258   t21110 = t1241 * t3493;
10259   t21121 = t6423 * t21092;
10260   t21125 = t6584 * t21088;
10261   t21128 = 0.13174823849922618271e1 * t3458 * t3290 - 0.11064007557120e2 * t21089 * t102 + 0.29619233351014809600e2 * t237 * t21094 - 0.11900499994234945968e1 * t6801 * t1241 * t21097 - 0.37830285826747577588e1 * t1941 * t4855 * t4879 - 0.17980392870196113152e1 * t1852 * t1249 * t4946 - 0.2857877408034324480e1 * t625 * t4850 * t1245 + 0.16596011335680e2 * t237 * t21110 + 0.22757459835536707988e1 * t3461 * t3497 + 0.58783429053584738202e0 * t3464 * t3494 - 0.77812782197085049260e0 * t10653 * t3472 + 0.10491196150051375396e1 * t3464 * t3497 - 0.13606156761889987933e2 * t616 * t21121 * t621 + 0.45165298839047841173e-1 * t21125 * t102;
10262   t21134 = t15476 * t1245;
10263   t21141 = t869 * t15223;
10264   t21164 = 0.51005109676670195860e1 * t3458 * t3490 + 0.17980392870196113152e1 * t2478 * t4893 - 0.25502554838335097930e1 * t2488 * t21134 + 0.51005109676670195860e1 * t15164 * t858 + 0.2857877408034324480e1 * t2482 * t21134 - 0.3688002519040e1 * t237 * t21141 + 0.1428938704017162240e1 * t625 * t1249 * t4892 + 0.16044983381648203533e1 * t1852 * t1241 * t4946 + 0.89901964350980565762e0 * t1852 * t1254 * t4946 - 0.17980392870196113152e1 * t3446 * t3335 + 0.85008516127783659764e0 * t15317 * t349 * t102 - 0.476312901339054080e0 * t15321 * t881 - 0.2857877408034324480e1 * t15313 * t881 + 0.41444833874132575653e0 * t3434 * t3335;
10265   t21165 = t6605 * t21092;
10266   t21169 = t1253 * t1253;
10267   t21170 = t618 * t21169;
10268   t21176 = t1261 * t1261;
10269   t21180 = t6434 * t21088;
10270   t21186 = t10224 * t3489;
10271   t21208 = -0.22762551443898437297e2 * t1983 * t21165 * t1984 - 0.18307055749595233518e1 * t616 * t21170 * t621 - 0.3688002519040e1 * t15332 * t1394 + 0.23916119461575365556e1 * t97 * t6683 * t21176 - 0.11756685810716947640e1 * t21180 * t102 - 0.21968466899514280222e2 * t616 * t21093 * t621 + 0.88103396910371918316e1 * t237 * t21186 - 0.476312901339054080e0 * t625 * t4859 * t1245 + 0.2857877408034324480e1 * t3500 * t5336 - 0.12751277419167548965e1 * t625 * t1241 * t4892 - 0.476312901339054080e0 * t625 * t15280 * t857 - 0.13535064380111787705e1 * t6571 * t15284 * t857 - 0.65874119249613091356e0 * t4928 * t364 - 0.15171639890357805325e1 * t625 * t4864 * t1245;
10272   t21211 = t21121 * t94;
10273   t21216 = -t239 * t21047 * t94;
10274   t21219 = t1222 * t1222;
10275   t21220 = t599 * t21219;
10276   t21243 = t15052 * t857;
10277   t21246 = 0.26206649088979828343e1 * t237 * t21211 + 0.461000314880e0 * t237 * t21216 + 0.63756387095837744823e0 * t21220 * t102 - 0.25502554838335097930e1 * t3461 * t3490 - 0.11756685810716947640e1 * t3464 * t3490 + 0.67516467720712936673e1 * t2493 * t15141 + 0.18066119535619136469e0 * t14932 * t858 + 0.34978477943697927495e1 * t8022 * t14936 - 0.60248995135255396168e1 * t2493 * t15036 - 0.23513371621433895281e1 * t15144 * t858 + 0.85008516127783659764e0 * t15147 * t858 + 0.27077129145119382320e1 * t851 * t15157 + 0.51005109676670195860e1 * t851 * t14943 + 0.3291025927890534400e1 * t237 * t21243;
10278   t21250 = t3364 * t3493;
10279   t21256 = t1984 * t362;
10280   t21260 = t1984 * t1253;
10281   t21272 = t362 * t1253;
10282   t21286 = 0.51005109676670195860e1 * t625 * t4855 * t1245 - 0.29619233351014809600e2 * t237 * t21250 - 0.714469352008581120e0 * t625 * t1254 * t4892 - 0.19598860293882473159e1 * t6566 * t4864 * t21256 + 0.11381275721949218649e2 * t1983 * t3297 * t21260 + 0.33758233860356468337e1 * t1941 * t4864 * t4879 - 0.19603781122450563098e2 * t616 * t3297 * t4883 + 0.17980392870196113152e1 * t854 * t15097 + 0.18915142913373788794e1 * t2506 * t1409 * t21272 + 0.85008516127783659764e0 * t851 * t15224 - 0.91029839342146831954e1 * t851 * t15227 + 0.13174823849922618271e1 * t15118 * t881 + 0.16596011335680e2 * t3434 * t4933 - 0.10122663238838101478e0 * t15376 * t881;
10283   t21294 = t1836 * t21088;
10284   t21300 = t631 * t21169 * t94;
10285   t21302 = t21170 * t94;
10286   t21309 = t231 * t21047;
10287   t21313 = -0.42833280e2 * t21089 * t99 + 0.64249920e2 * t1233 * t4837 + 0.114668117222400e3 * t21294 * t99 - 0.14277760e2 * t21141 + 0.64249920e2 * t21110 - 0.10708320e2 * t21300 + 0.9555676435200e1 * t21302 + 0.34108413694860288000e2 * t21186 + 0.10145661348248508867e2 * t21125 * t99 - 0.68216827389720576000e2 * t21180 * t99 + 0.1784720e1 * t21309 * t99 + 0.114668117222400e3 * t21094;
10288   t21321 = t590 * t21219;
10289   t21324 = t99 * t4815;
10290   t21330 = t1925 * t21092 * t94;
10291   t21334 = t21165 * t94;
10292   t21337 = 0.12740901913600e2 * t21243 - 0.114668117222400e3 * t21250 + 0.12740901913600e2 * t15317 * t1435 + 0.10145661348248508867e2 * t21211 + 0.9555676435200e1 * t21220 * t99 - 0.10708320e2 * t21321 * t99 - 0.14277760e2 * t838 * t21324 + 0.34108413694860288000e2 * t10328 * t5174 - 0.42833280e2 * t21330 - 0.114668117222400e3 * t3345 * t4837 - 0.68216827389720576000e2 * t21334 + 0.1784720e1 * t21216;
10293   t21359 = t621 * t1274;
10294   t21371 = -0.32937059624806545678e0 * t3434 * t3381 - 0.258304e0 * t97 * t245 * (t21313 + t21337) - 0.2766001889280e1 * t21321 * t102 + 0.461000314880e0 * t21309 * t102 + 0.2468269445917900800e1 * t237 * t21302 + 0.58783429053584738202e0 * t15127 * t4933 - 0.17620679382074383663e2 * t237 * t21334 - 0.2766001889280e1 * t237 * t21300 + 0.76507664515005293790e1 * t21294 * t102 + 0.20312390406477209506e2 * t1983 * t21121 * t1984 + 0.94575714566868943971e0 * t1941 * t1241 * t21359 + 0.21968466899514280222e2 * t616 * t3364 * t4883 - 0.24409407666126978024e1 * t616 * t15052 * t1409 - 0.76507664515005293789e1 * t10036 * t4933;
10295   t21376 = t1274 * t1274;
10296   t21407 = -0.11064007557120e2 * t237 * t21330 + 0.89901964350980565762e0 * t3329 * t3335 + 0.975074869248e0 * t97 * t644 * t21376 - 0.714469352008581120e0 * t3329 * t3381 - 0.92817332546461565657e1 * t6421 * t21121 * t6426 - 0.4404030955044470784e1 * t97 * t3449 * t1274 - 0.13535064380111787705e1 * t854 * t15304 - 0.476312901339054080e0 * t854 * t14884 - 0.25502554838335097930e1 * t3458 * t3494 + 0.33758233860356468336e1 * t9908 * t3472 - 0.45514919671073415977e1 * t3458 * t3497 + 0.12751277419167548965e1 * t3461 * t3494 - 0.16879116930178234168e1 * t9915 * t3472 + 0.1428938704017162240e1 * t3446 * t3381 + 0.39207562244901126197e2 * t616 * t21165 * t621;
10297   t21411 = my_piecewise3(t87, 0, t21085 + t21128 + t21164 + t21208 + t21246 + t21286 + t21371 + t21407);
10298   t21412 = my_piecewise3(t86, 0, t21411);
10299   t21414 = t21047 * t104 + 0.6e1 * t1222 * t1280 + t85 * t21412 + 0.4e1 * t349 * t4958 + 0.4e1 * t4815 * t368;
10300   t21423 = t1282 * t1282;
10301   t21430 = t118 * t26 * t5005;
10302   t21433 = t1286 * t1286;
10303   t21435 = t46 * t21433 * t183;
10304   t21459 = -t46 * t21414 * t118 / 0.100e3 - t15601 * t1457 / 0.15e2 + t1283 * t1286 * t687 / 0.36e2 - 0.9e1 / 0.100e3 * t46 * t21423 * t1604 - t11000 * t5391 / 0.18e2 + t3527 * t21430 / 0.36e2 + 0.125e3 / 0.1458e4 * t21435 * t6838 - t1287 * t2014 * t21430 / 0.18e2 - 0.125e3 / 0.2187e4 * t21435 * t6842 + t266 * t21414 * t118 / 0.100e3 + t15629 * t1457 / 0.45e2 + 0.3e1 / 0.100e3 * t685 * t21423 * t118 + t10981 * t5391 / 0.108e3 + t2024 * t3596 * t21430 / 0.108e3 + 0.25e2 / 0.4374e4 * t6857 * t21433 * t6860;
10305   t21491 = t2079 * t21433;
10306   t21495 = t732 * t1286;
10307   t21518 = -params->c1 * t21414 * t131 - 0.40e2 / 0.9e1 * t15674 * t1478 - 0.350e3 / 0.81e2 * t10797 * t5429 - 0.6e1 * params->c1 * t21423 * t280 - 0.550e3 / 0.81e2 * t9679 * t706 * t26 * t5005 - 0.10000e5 / 0.729e3 * params->c1 * t21433 * t183 * t6892 - 0.50000e5 / 0.6561e4 * t946 * t21491 * t58 - 0.1000e4 / 0.27e2 * t946 * t21495 * t1282 - 0.20e2 / 0.9e1 * t946 * t706 * t10 * t28 * t21423 - 0.100e3 / 0.81e2 * t5004 * t4198 * t13 * t4960 - 0.100e3 / 0.81e2 * t279 * t1144 * t4960 * t374 - 0.10e2 / 0.9e1 * t463 * t1626 * t21423 - 0.5e1 / 0.9e1 * t463 * t464 * t21414;
10308   t21523 = t1317 * t1317;
10309   t21529 = t1319 * t1319;
10310   t21535 = t287 * t21495;
10311   t21536 = t50 * t1282;
10312   t21537 = t6928 * t21536;
10313   t21544 = t58 * t5027;
10314   t21551 = t730 * t10885;
10315   t21582 = -0.10000e5 / 0.729e3 * t287 * t21491 * t6929 - 0.50e2 / 0.9e1 * t21535 * t21537 - 0.5000e4 / 0.243e3 * t730 * t2094 * t21433 * t6929 - 0.50e2 / 0.9e1 * t21535 * t21544 - 0.6e1 * t287 * t706 * t21423 * t137 - 0.50e2 / 0.9e1 * t21551 * t21544 - 0.40e2 / 0.9e1 * t959 * t15 * t137 * t4960 - 0.50e2 / 0.9e1 * t21551 * t21537 - 0.5000e4 / 0.729e3 * t2092 * t6950 * t21433 * t6929 - t287 * t280 * t21414 * t137 - 0.20e2 / 0.9e1 * t15783 * t396 - 0.3e1 * t730 * t732 * t21423 * t137 - 0.25e2 / 0.27e2 * t10843 * t1323 - 0.25e2 / 0.27e2 * t2092 * t10889 * t21537 - 0.1250e4 / 0.2187e4 * t6968 * t6970 * t21433 * t6929;
10316   t21583 = my_piecewise3(t129, 0.6e1 * t1317 * t1319 * t135 + 0.4e1 * t5016 * t393 * t135 + t21518 * t135 + 0.3e1 * t21523 * t135 + t21529 * t135, t21582);
10317   t21586 = -0.24e2 * t6195 * t20959 * t140 + 0.36e2 * t1691 * t1182 * t1300 - 0.24e2 * t1691 * t4763 * t399 - 0.6e1 * t497 * t20969 * t140 + 0.24e2 * t497 * t1303 * t1300 - 0.8e1 * t497 * t385 * t4984 + 0.12e2 * t497 * t1181 * t1332 + t168 * (0.729e3 / 0.51200e5 * t521 * t1195 * t15 * t42 - 0.6561e4 / 0.2048000e7 * t1726 * sigma[0] * t4783 + 0.531441e6 / 0.655360000e9 * t6251 * t31 / t1729 * t42 + 0.6e1 * t20994 + 0.8e1 * t381 * t4981 + 0.2e1 * t121 * t21459) * t140 - 0.4e1 * t168 * t4984 * t399 - 0.6e1 * t168 * t1300 * t1332 - 0.4e1 * t168 * t384 * t5041 - t128 * t21583 + 0.1174e1 * t21583;
10318   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10319     v4sigma4[0] = 0.68137354535196937499e2 * t1340 * t5087 + 0.12741934726080110950e3 * t995 * t20930 * t762 - 0.12775753975349425781e2 * t409 * t5071 * t753 * t7077 + 0.34660489666083872784e2 * t995 / t1727 * t32 * t7077 - 0.54794126953125000000e2 * t7083 * t2120 * t3663 * t157 * t2122 * t26 * t146 - 0.15655464843750000000e2 * t1344 * t15 * t5085 * t157 * t150 + 0.27831937500000000000e1 * t1340 * t5079 + 0.67956985205760591732e2 * t14694 * t1359 - 0.3e1 / 0.8e1 * t164 * t7 * t21586 * t158 - 0.11498178577814483203e3 * t409 * t14667 * t149 * t2140 - 0.27831937500000000000e1 * t5049 * t1353 - 0.25048743750000000000e2 * t407 * t1336 * t753 * t1348 + 0.54503531578451885124e0 * t995 * t2672 * t20930 * t157 - 0.13591397041152118347e3 * t3639 * t5082 + 0.25048743750000000000e2 * t5053 * t5067 + 0.37109250000000000000e1 * t407 * t5045 * t413 - 0.93932789062500000000e2 * t409 * t2666 * t1357 * t157 * t19 - 0.17394960937500000000e1 * t409 * t313 * t146 * t5071 * t157 + 0.12524371875000000000e3 * t1340 * t5062 - 0.34882260210209206480e0 * t3639 * t5074;
10320 
10321   t21670 = t214 * t10;
10322   t21671 = t21023 * t18121;
10323   t21680 = t5128 * t79;
10324   t21718 = 0.9e1 * t16098 * t1375 + 0.9e1 / 0.2e1 * t3735 * t5136 + 0.9e1 / 0.2e1 * t3760 * t5136 + 0.105e3 / 0.8e1 * t8409 * t1023 * t4795 + t21670 * t21671 * t79 / 0.2519424e7 - 0.5e1 / 0.5184e4 * t5125 * t5139 + 0.5e1 / 0.17496e5 * t17927 * t2765 + t21024 * t18121 * t21680 / 0.2519424e7 - 0.5e1 / 0.5184e4 * t5115 * t5139 - 0.45e2 / 0.4e1 * t11367 * t5118 - 0.45e2 / 0.4e1 * t11273 * t5118 + 0.5e1 / 0.17496e5 * t16065 * t324 * t220 * t425 + 0.3e1 / 0.2e1 * t1022 * t1023 * t4812 + 0.25e2 / 0.16e2 * t11342 * t425 * t1206 * t319 - 0.5e1 / 0.4e1 * t15907 * t5152 - 0.5e1 / 0.8e1 * t3718 * t425 * t1219 * t319 - 0.5e1 / 0.4e1 * t15885 * t5152 + 0.25e2 / 0.192e3 * t16086 * t5151 * t1214 + t58 * t3726 * t1219 / 0.3456e4 - t3790 * t58 * t67 * t1219 / 0.1152e4;
10325   t21738 = t804 * t341;
10326   t21751 = t215 * t5151;
10327   t21765 = t213 * t341 * t1023;
10328   t21768 = t1795 * t425;
10329   t21772 = t573 * t10;
10330   t21776 = 0.25e2 / 0.373248e6 * t2736 * t18122 * t15 - t15947 * t5163 / 0.576e3 - t15957 * t5163 / 0.576e3 + 0.5e1 / 0.2304e4 * t11297 * t58 * t67 * t1206 + t15960 * t15961 * t5151 / 0.1944e4 - t58 * t11143 * t1206 / 0.2304e4 + 0.9e1 / 0.4e1 * t2724 * t4798 + t21738 * t1387 / 0.864e3 + 0.5e1 / 0.3456e4 * t1022 * t3776 * t4382 * t346 + 0.5e1 / 0.6e1 * t15892 * t1381 - 0.25e2 / 0.288e3 * t11348 * t5157 - 0.25e2 / 0.288e3 * t11316 * t5157 + t15952 * t21751 / 0.1944e4 - t1018 * t4812 / 0.2e1 - 0.15e2 / 0.8e1 * t8505 * t4795 - 0.45e2 / 0.4e1 * t2732 * t1023 * t4798 - t804 * t26 * t5122 / 0.2916e4 - t1214 * t21765 / 0.2916e4 + 0.125e3 / 0.2592e4 * t1384 * t21768 * t4807 + 0.25e2 / 0.746496e6 * t1384 * t21772 * t21671;
10331   t21777 = t21718 + t21776;
10332   t21807 = t12194 * t3489;
10333   t21810 = t231 * t21777;
10334   t21821 = -0.32937059624806545678e0 * t851 * t17128 + 0.975074869248e0 * t97 * t4001 * t1274 + 0.63756387095837744823e0 * t16785 * t349 * t102 - 0.18307055749595233518e1 * t616 * t3949 * t4883 + 0.56906378609746093243e1 * t1983 * t12166 * t5296 - 0.357234676004290560e0 * t3329 * t4114 + 0.8298005667840e1 * t12208 * t5320 - 0.14809616675507404800e2 * t237 * t21807 + 0.461000314880e0 * t21810 * t102 - 0.2766001889280e1 * t16778 * t1394 + 0.52455980750256876982e0 * t3840 * t15460 + 0.11378729917768353994e1 * t3461 * t3843 + 0.22757459835536707989e1 * t851 * t16714;
10335   t21836 = -t239 * t21777 * t94;
10336   t21847 = t1274 * t354;
10337   t21848 = t1058 * t21847;
10338   t21858 = 0.11378729917768353994e1 * t851 * t16765 - 0.58783429053584738202e0 * t3840 * t14899 + 0.32937059624806545678e0 * t1052 * t15471 - 0.10151298285083840779e1 * t9165 * t4947 + 0.29391714526792369101e0 * t3840 * t15249 - 0.38906391098542524630e0 * t3840 * t15264 + 0.461000314880e0 * t237 * t21836 + 0.32937059624806545678e0 * t15118 * t1081 - 0.2202015477522235392e1 * t97 * t12267 * t1261 + 0.44950982175490282881e0 * t3476 * t1058 * t15096 + 0.714469352008581120e0 * t2482 * t21848 - 0.84395584650891170841e0 * t2987 * t14913 + 0.11378729917768353994e1 * t1052 * t15478 + 0.23916119461575365556e1 * t97 * t9031 * t4821;
10339   t21872 = t1261 * t354;
10340   t21873 = t1058 * t21872;
10341   t21892 = -0.119078225334763520e0 * t15321 * t1081 + 0.12751277419167548965e1 * t15164 * t1059 + 0.87446194859244818739e0 * t8603 * t14936 - 0.15062248783813849042e1 * t2987 * t15036 + 0.67692822862798455802e0 * t1052 * t15157 + 0.21252129031945914941e0 * t15147 * t1059 - 0.89901964350980565762e0 * t7430 * t21873 - 0.59502499971174729837e0 * t7513 * t2816 * t21872 + 0.65874119249613091356e0 * t10741 * t17143 + 0.43599434195327585985e0 * t10746 * t17150 - 0.58783429053584738202e0 * t10741 * t17146 + 0.41444833874132575653e0 * t10727 * t16404 - 0.98018905612252815491e1 * t616 * t12166 * t3471 - 0.38253832257502646895e1 * t17193 * t3885;
10342   t21900 = t16591 * t857;
10343   t21911 = t2849 * t14942;
10344   t21919 = t362 * t1240;
10345   t21920 = t2816 * t21919;
10346   t21928 = -0.16468529812403272839e0 * t5249 * t364 + 0.29391714526792369101e0 * t16675 * t3885 + 0.39207562244901126197e2 * t616 * t8660 * t15035 + 0.2468269445917900800e1 * t237 * t21900 - 0.58783429053584738202e0 * t15144 * t1059 + 0.12751277419167548965e1 * t1052 * t14943 - 0.12751277419167548965e1 * t3458 * t4076 + 0.714469352008581120e0 * t3446 * t4114 + 0.29619233351014809600e2 * t237 * t21911 + 0.714469352008581120e0 * t625 * t12204 * t3489 + 0.80224916908241017662e0 * t7517 * t21873 - 0.28372714370060683191e1 * t7570 * t21920 - 0.2202015477522235392e1 * t3991 * t16438 * t362 + 0.89901964350980565762e0 * t11431 * t1246;
10347   t21931 = t16763 * t1409;
10348   t21934 = t16763 * t857;
10349   t21937 = t16172 * t1245;
10350   t21966 = -0.98018905612252815489e1 * t4046 * t21931 + 0.44051698455185959158e1 * t4081 * t21934 - 0.11378729917768353994e1 * t7754 * t21937 + 0.29391714526792369101e0 * t3464 * t4076 + 0.45165298839047841173e-1 * t14932 * t1059 + 0.47287857283434471985e0 * t2506 * t2816 * t21847 - 0.63756387095837744823e0 * t2488 * t21848 - 0.33837660950279469264e0 * t1055 * t15304 + 0.76507664515005293790e1 * t2836 * t4827 * t102 - 0.16468529812403272839e0 * t851 * t16754 - 0.75919974291285761083e-1 * t3464 * t3848 + 0.20722416937066287826e0 * t1052 * t15467 - 0.33837660950279469264e0 * t6571 * t434 * t94 * t4821 - 0.357234676004290560e0 * t3894 * t3381;
10351   t21995 = 0.29391714526792369101e0 * t16718 * t3280 + 0.32937059624806545678e0 * t3458 * t3848 - 0.2766001889280e1 * t3911 * t4933 - 0.25306658097095253694e-1 * t15376 * t1081 - 0.25502554838335097929e1 * t851 * t16818 - 0.12751277419167548965e1 * t851 * t17131 - 0.75919974291285761083e-1 * t3464 * t3832 - 0.12751277419167548965e1 * t3461 * t3836 + 0.63756387095837744823e0 * t16183 * t858 - 0.89901964350980565762e0 * t2965 * t4950 + 0.63756387095837744823e0 * t4095 * t3494 - 0.84395584650891170840e0 * t11981 * t3472 + 0.11378729917768353994e1 * t4095 * t3497 + 0.21252129031945914941e0 * t1052 * t15224;
10352   t22018 = t12166 * t3489;
10353   t22024 = t8674 * t14942;
10354   t22028 = t610 * t441 * t1222;
10355   t22033 = 0.38253832257502646895e1 * t851 * t16880 + 0.20722416937066287826e0 * t851 * t16804 - 0.58783429053584738202e0 * t3464 * t3836 + 0.50637350790534702506e1 * t2493 * t16867 - 0.119078225334763520e0 * t1055 * t14884 + 0.45165298839047841173e-1 * t8651 * t4827 * t102 - 0.357234676004290560e0 * t16688 * t881 - 0.11756685810716947640e1 * t8688 * t4827 * t102 - 0.38253832257502646895e1 * t12103 * t1226 * t102 + 0.44051698455185959158e1 * t237 * t22018 - 0.13606156761889987933e2 * t616 * t8674 * t15035 + 0.26206649088979828343e1 * t237 * t22024 + 0.714469352008581120e0 * t839 * t22028 - 0.89901964350980565762e0 * t3446 * t3863;
10356   t22040 = t2917 * t14942;
10357   t22056 = t16504 * t857;
10358   t22067 = t4075 * t5242;
10359   t22076 = 0.63756387095837744823e0 * t3890 * t1222 * t102 + 0.975074869248e0 * t97 * t16430 * t362 - 0.11064007557120e2 * t237 * t22040 - 0.18307055749595233518e1 * t616 * t16591 * t1409 - 0.714469352008581120e0 * t15313 * t1081 - 0.119078225334763520e0 * t625 * t434 * t94 * t4867 + 0.714469352008581120e0 * t1042 * t610 * t1222 * t362 - 0.2766001889280e1 * t237 * t22056 + 0.56906378609746093242e1 * t4041 * t4042 * t15476 - 0.14699145220411854869e1 * t7602 * t4042 * t21919 + 0.25318675395267351252e1 * t7720 * t21920 + 0.1428938704017162240e1 * t2482 * t22067 + 0.47287857283434471986e0 * t2506 * t2816 * t21272 + 0.94575714566868943972e0 * t2506 * t5722 * t5242;
10360   t22102 = t604 * t1058 * t1222;
10361   t22113 = 0.44950982175490282881e0 * t2965 * t4889 + 0.714469352008581120e0 * t4086 * t4853 + 0.63756387095837744823e0 * t851 * t17333 - 0.16468529812403272839e0 * t3434 * t4114 + 0.29391714526792369101e0 * t12033 * t1226 * t102 - 0.16468529812403272839e0 * t1400 * t1276 - 0.48997150734706182895e0 * t6566 * t8867 * t14935 + 0.84395584650891170840e0 * t1941 * t8867 * t15035 + 0.44950982175490282881e0 * t3894 * t3335 - 0.12751277419167548965e1 * t2291 * t22102 + 0.32937059624806545678e0 * t3458 * t3832 - 0.357234676004290560e0 * t854 * t17137 + 0.8298005667840e1 * t4067 * t21934 - 0.12751277419167548965e1 * t2488 * t22067;
10362   t22142 = 0.58783429053584738202e0 * t16572 * t3280 - 0.16468529812403272839e0 * t3461 * t3848 + 0.32937059624806545678e0 * t851 * t16792 + 0.29391714526792369101e0 * t15273 * t3859 - 0.12751277419167548965e1 * t2824 * t21072 - 0.17635028716075421461e1 * t17342 * t3280 + 0.63756387095837744823e0 * t3461 * t4076 - 0.38906391098542524630e0 * t10653 * t3827 + 0.26233858457773445622e1 * t8022 * t17370 - 0.45186746351441547127e1 * t2493 * t17373 + 0.44950982175490282881e0 * t2965 * t4893 - 0.12751277419167548965e1 * t4095 * t3490 + 0.16879116930178234168e1 * t2987 * t15141 - 0.22757459835536707989e1 * t1052 * t15227;
10363   t22150 = t3949 * t3493;
10364   t22153 = t1062 * t15223;
10365   t22158 = t8660 * t14942;
10366   t22163 = t3945 * t3493;
10367   t22166 = t1069 * t15223;
10368   t22180 = -0.63756387095837744824e0 * t625 * t11974 * t3489 - 0.37929099725894513314e0 * t625 * t8867 * t14942 + 0.2468269445917900800e1 * t237 * t22150 + 0.822756481972633600e0 * t237 * t22153 - 0.10151298285083840779e1 * t854 * t17213 - 0.17620679382074383663e2 * t237 * t22158 - 0.16468529812403272839e0 * t4928 * t443 - 0.2766001889280e1 * t237 * t22163 - 0.922000629760e0 * t237 * t22166 + 0.44950982175490282881e0 * t3329 * t3863 + 0.89901964350980565762e0 * t854 * t16442 + 0.44950982175490282881e0 * t854 * t17054 + 0.20722416937066287826e0 * t3434 * t3863 - 0.357234676004290560e0 * t625 * t1420 * t4892;
10369   t22210 = t16763 * t1245;
10370   t22215 = -0.94575714566868943969e0 * t1941 * t9087 * t15035 + 0.12751277419167548965e1 * t625 * t9087 * t14942 - 0.21968466899514280222e2 * t616 * t2849 * t15035 + 0.25502554838335097929e1 * t3458 * t3836 - 0.16879116930178234168e1 * t2493 * t16338 - 0.84395584650891170841e0 * t2493 * t16342 - 0.25502554838335097929e1 * t11533 * t5356 - 0.68272379506610123966e1 * t851 * t17134 - 0.84395584650891170841e0 * t9915 * t3827 + 0.325024956416e0 * t97 * t1088 * t4867 - 0.11064007557120e2 * t9270 * t840 * t4827 + 0.80224916908241017663e0 * t2965 * t4896 - 0.63756387095837744823e0 * t2488 * t22210 - 0.14809616675507404800e2 * t4072 * t21934;
10371   t22255 = -0.357234676004290560e0 * t625 * t17090 * t857 - 0.357234676004290560e0 * t625 * t4009 * t3493 - 0.75919974291285761083e-1 * t5317 * t364 + 0.1428938704017162240e1 * t3911 * t5336 - 0.922000629760e0 * t1042 * t840 * t4815 + 0.21799717097663792992e0 * t2493 * t16757 - 0.29391714526792369101e0 * t851 * t16760 - 0.15183994858257152217e0 * t11731 * t3290 + 0.47287857283434471985e0 * t1941 * t11974 * t3471 - 0.357234676004290560e0 * t625 * t5201 * t1245 - 0.714469352008581120e0 * t625 * t2931 * t14942 - 0.32937059624806545678e0 * t5344 * t364 - 0.119078225334763520e0 * t625 * t1084 * t15223 - 0.2143408056025743360e1 * t2962 * t610 * t1226 * t362;
10372   t22296 = 0.8298005667840e1 * t2962 * t840 * t349 * t1222 + 0.714469352008581120e0 * t1042 * t610 * t1274 * t349 + 0.44950982175490282881e0 * t1055 * t15097 + 0.98811178874419637035e0 * t5341 * t364 + 0.20722416937066287826e0 * t1400 * t1263 - 0.61023519165317445059e0 * t616 * t1062 * t621 * t4858 - 0.92817332546461565657e1 * t6421 * t8674 * t6426 * t4849 + 0.20312390406477209506e2 * t1983 * t8674 * t14935 - 0.89901964350980565762e0 * t1042 * t1843 * t1261 * t349 + 0.52455980750256876982e0 * t3464 * t3843 + 0.20307846858839536740e1 * t851 * t16769 + 0.38253832257502646895e1 * t8776 * t16292 * t356 - 0.16468529812403272839e0 * t1052 * t15492 - 0.32937059624806545678e0 * t851 * t16825;
10373   t22331 = -0.16468529812403272839e0 * t851 * t16829 + 0.13549589651714352352e0 * t16722 * t3280 - 0.32937059624806545678e0 * t4095 * t3290 - 0.16468529812403272839e0 * t1052 * t15488 + 0.21799717097663792993e0 * t2987 * t14909 - 0.29391714526792369101e0 * t1052 * t15495 + 0.25502554838335097929e1 * t2824 * t1820 * t3489 * t349 - 0.12751277419167548965e1 * t1052 * t15498 + 0.16879116930178234168e1 * t9908 * t3827 - 0.22757459835536707989e1 * t3458 * t3843 - 0.16468529812403272839e0 * t3461 * t3832 - 0.12751277419167548965e1 * t2824 * t3818 * t1255 + 0.16879116930178234168e1 * t8830 * t3818 * t1242 - 0.22757459835536707989e1 * t2824 * t3818 * t1258;
10374   t22332 = t3949 * t3489;
10375   t22347 = t99 * t4827;
10376   t22361 = t1435 * t1222;
10377   t22373 = -0.57334058611200e2 * t2917 * t15477 - 0.57334058611200e2 * t21807 - 0.42833280e2 * t2958 * t22347 - 0.42833280e2 * t22040 + 0.32124960e2 * t3890 * t5174 + 0.10145661348248508867e2 * t22024 + 0.32124960e2 * t22332 - 0.68216827389720576000e2 * t8688 * t22347 + 0.9555676435200e1 * t21900 + 0.1784720e1 * t21836 - 0.57334058611200e2 * t12103 * t5174 + 0.32124960e2 * t1048 * t22361 + 0.114668117222400e3 * t21911 - 0.10708320e2 * t16777 * t1435 + 0.1784720e1 * t21810 * t99 + 0.17054206847430144000e2 * t12033 * t5174 - 0.57334058611200e2 * t2958 * t22361;
10378   t22401 = 0.32124960e2 * t1062 * t15477 + 0.10145661348248508867e2 * t8651 * t22347 + 0.9555676435200e1 * t16785 * t1435 - 0.68216827389720576000e2 * t22158 - 0.10708320e2 * t22056 + 0.17054206847430144000e2 * t2836 * t22361 + 0.17054206847430144000e2 * t2849 * t15477 - 0.10708320e2 * t3910 * t4837 - 0.3569440e1 * t1041 * t21324 + 0.3185225478400e1 * t1048 * t21324 + 0.114668117222400e3 * t2836 * t22347 - 0.3569440e1 * t22166 + 0.17054206847430144000e2 * t22018 + 0.9555676435200e1 * t22150 + 0.9555676435200e1 * t3890 * t4837 + 0.3185225478400e1 * t22153 - 0.10708320e2 * t22163;
10379   t22423 = t1245 * t349;
10380   t22427 = 0.8298005667840e1 * t237 * t22332 - 0.22762551443898437297e2 * t1983 * t8660 * t14935 + 0.44950982175490282881e0 * t1852 * t1420 * t4946 + 0.10984233449757140111e2 * t616 * t12194 * t3471 - 0.258304e0 * t97 * t245 * (t22373 + t22401) + 0.21252129031945914941e0 * t1048 * t4815 * t102 + 0.10984233449757140111e2 * t4109 * t21931 + 0.38253832257502646895e1 * t7576 * t21937 + 0.714469352008581120e0 * t2482 * t22210 + 0.47287857283434471984e0 * t4090 * t4884 - 0.63756387095837744823e0 * t4086 * t4862 - 0.59502499971174729836e0 * t8613 * t4880 - 0.2143408056025743360e1 * t2488 * t21937 + 0.65874119249613091356e0 * t9156 * t355 * t22423;
10381   t22432 = my_piecewise3(t87, 0, t21821 + t21858 + t21892 + t21928 + t21966 + t21995 + t22033 + t22076 + t22113 + t22142 + t22180 + t22215 + t22255 + t22296 + t22331 + t22427);
10382   t22433 = my_piecewise3(t86, 0, t22432);
10383   t22435 = t21777 * t104 + 0.3e1 * t1222 * t1451 + 0.3e1 * t1390 * t1280 + t85 * t22433 + 0.3e1 * t349 * t5376 + 0.3e1 * t5166 * t368 + t428 * t4958 + t4815 * t447;
10384   t22439 = -t22435;
10385   t22443 = t449 * t4960;
10386   t22452 = t1453 * t1282;
10387   t22468 = t449 * t4966;
10388   t22472 = 0.5e1 / 0.9e1 * t463 * t464 * t22439 + 0.10e2 / 0.9e1 * t463 * t1626 * t22443 - t461 * t5033 + 0.50e2 / 0.27e2 * t279 * t1144 * t5378 * t374 + 0.10e2 / 0.3e1 * t463 * t1626 * t22452 + 0.3e1 * t1306 * t1498 - 0.500e3 / 0.81e2 * t461 * t5000 * t183 - 0.50e2 / 0.27e2 * t11099 * t5429 - 0.3e1 * t1476 * t1326 + 0.50e2 / 0.27e2 * t14278 * t1164 * t5009 + 0.10000e5 / 0.729e3 * t8110 * t22468 * t15;
10389   t22493 = t5009 * t8168;
10390   t22496 = t22468 * t6928;
10391   t22506 = t22452 * t137;
10392   t22513 = t4725 * t4960;
10393   t22529 = 0.10e2 / 0.3e1 * t17439 * t396 + 0.5e1 / 0.3e1 * t3149 * t22493 + 0.250e3 / 0.243e3 * t9378 * t22496 + 0.5e1 / 0.3e1 * t17443 * t396 + 0.1000e4 / 0.81e2 * t9408 * t22496 + t287 * t280 * t22439 * t137 + 0.3e1 * t733 * t22506 + 0.2000e4 / 0.81e2 * t9387 * t22496 + 0.1000e4 / 0.27e2 * t9390 * t22496 + 0.2e1 * t719 * t22513 + 0.10e2 * t3126 * t22493 + 0.50e2 / 0.9e1 * t12788 * t1323 + 0.50e2 / 0.9e1 * t12784 * t1323 + 0.6e1 * t719 * t22506 + 0.10e2 * t3134 * t22493 + t733 * t22513 + 0.25e2 / 0.27e2 * t12819 * t1323;
10394   t22530 = my_piecewise3(t129, (-0.5e1 / 0.3e1 * t15822 * t1478 - 0.10e2 / 0.3e1 * t3086 * t395 * t14 * t1282 + 0.500e3 / 0.27e2 * t4997 * t9321 + 0.5e1 / 0.3e1 * t1481 * t5449 + 0.500e3 / 0.27e2 * t946 * t4262 * t1286 + 0.100e3 / 0.27e2 * t5434 * t12706 + 0.100e3 / 0.27e2 * t2589 * t1484 * t21536 + t4993 * t470 + 0.20e2 / 0.3e1 * t10797 * t5847 - params->c1 * t22435 * t131 + t22472) * t135 + 0.3e1 * t5452 * t393 * t135 + 0.3e1 * t1491 * t1317 * t135 + 0.3e1 * t1491 * t1319 * t135 + t468 * t5016 * t135 + 0.3e1 * t5457 * t394 + t468 * t5021 * t135, t22529);
10395   t22560 = 0.36e2 * t2695 * t3699 * t1181 + 0.12e2 * t1004 * t17530 * t384 + 0.24e2 * t1004 * t17562 * t384 + 0.24e2 * t3685 * t5098 + 0.12e2 * t1004 * t4168 * t1300 + 0.1174e1 * t22530 - t168 * t4984 * t473 - t128 * t22530 + 0.36e2 * t13024 * t5090 - 0.6e1 * t168 * t5406 * t399 - 0.6e1 * t1691 * t4763 * t473 + 0.36e2 * t2695 * t1005 * t384 * t1300 - 0.3e1 * t168 * t1300 * t1504 + 0.2e1 * t168 * t4981 * t455 * t140 - 0.4e1 * t1004 * t1005 * t4984 - 0.6e1 * t168 * t1365 * t1332;
10396   t22610 = -t266 * t22439 * t118 / 0.100e3 + t46 * t22439 * t118 / 0.100e3 + t13045 * t5391 / 0.18e2 - 0.25e2 / 0.162e3 * t450 * t4966 * t9461 - 0.3e1 / 0.100e3 * t685 * t22452 * t118 + t17655 * t1457 / 0.10e2 - t13081 * t5391 / 0.108e3 + 0.25e2 / 0.243e3 * t1121 * t4978 - t17637 * t1457 / 0.60e2 - t17618 * t17607 / 0.20e2 - t1454 * t1286 * t687 / 0.36e2 - t17660 * t1457 / 0.60e2 + 0.3e1 / 0.100e3 * t450 * t114 * t4960 * t118 + t17668 * t1457 / 0.20e2 - t685 * t22443 * t118 / 0.100e3 + 0.9e1 / 0.100e3 * t1454 * t5388 - 0.5e1 / 0.486e3 * t9478 * t4978;
10397   t22655 = -0.6e1 * t168 * t5104 * t399 + 0.6e1 * t168 * t1297 * t1465 * t140 + 0.2e1 * t168 * t121 * t22610 * t140 - 0.2e1 * t168 * t456 * t5041 - 0.12e2 * t1004 * t17744 * t384 - 0.3e1 * t168 * t384 * t5480 - 0.6e1 * t168 * t1466 * t1332 + 0.6e1 * t497 * t1473 * t1300 - 0.12e2 * t168 * t5108 * t399 - 0.36e2 * t2695 * t4168 * t1181 - 0.12e2 * t1004 * t3699 * t1300 + 0.6e1 * t168 * t381 * t5405 * t140 - 0.12e2 * t17704 * t1362 - 0.12e2 * t3685 * t5101 + 0.6e1 * t497 * t1181 * t1504 - 0.48e2 * t9531 * t1005 * t4763 - 0.24e2 * t3685 * t5095;
10398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10399     v4sigma3lapl[0] = -0.3e1 / 0.8e1 * t164 * t7 * (t22560 + t22655) * t158 + 0.27831937500000000000e1 * t407 * t5484 * t413 - 0.12524371875000000000e2 * t407 * t1508 * t753 * t1348 - 0.13915968750000000000e1 * t5488 * t1353 + 0.33978492602880295866e2 * t17769 * t1359 + 0.31310929687500000000e2 * t1512 * t5062 + 0.62621859375000000000e1 * t5492 * t5067 - 0.87205650525523016199e-1 * t4291 * t5074 + 0.69579843750000000000e0 * t1512 * t5079 - 0.33978492602880295866e2 * t4291 * t5082 + 0.17034338633799234375e2 * t1512 * t5087;
10400 
10401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10402     v4sigma3tau[0] = 0.0e0;
10403 
10404   t22691 = t1005 * t5405;
10405   t22694 = t4168 * t1465;
10406   t22697 = t1453 * t1453;
10407   t22722 = 0.1e1 / t17 / t186;
10408   t22736 = t2202 * t574;
10409   t22739 = t13203 * t1185;
10410   t22744 = 0.3e1 * t2202 * t5556 - 0.25e2 / 0.864e3 * t5562 * t573 * t26 * t1185 - t21738 * t1535 / 0.1458e4 - 0.5e1 / 0.5832e4 * t1022 * t3776 * t5575 * t346 - 0.307e3 / 0.272097792e9 * t21024 * t22722 * t21680 + 0.6e1 * t17987 * t1375 + 0.3e1 * t4332 * t5136 - t18085 * t5163 / 0.864e3 + 0.5e1 / 0.9e1 * t18126 * t1381 - 0.5e1 / 0.3e1 * t17993 * t5548 - t22736 * t5552 / 0.432e3 + t16086 * t22739 / 0.1458e4 + 0.125e3 / 0.432e3 * t13202 * t22739;
10411   t22784 = -t17912 * t5163 / 0.864e3 - 0.5e1 / 0.12e2 * t13207 * t3763 * t329 + t15957 * t5570 / 0.972e3 + t15947 * t5570 / 0.972e3 + t3790 * t58 * t62 * t1219 / 0.1944e4 - 0.25e2 / 0.419904e6 * t2736 * t183 * t22722 * t15 - 0.25e2 / 0.432e3 * t13196 * t5157 - 0.5e1 / 0.3888e4 * t11297 * t58 * t62 * t1206 - t58 * t4326 * t1219 / 0.5832e4 - 0.5e1 / 0.6e1 * t18129 * t5152 + 0.25e2 / 0.6e1 * t17996 * t1528 * t346 * t319 + 0.5e1 / 0.864e3 * t18105 * t5151 * t5528 - 0.10e2 / 0.3e1 * t18003 * t1528 * t341 * t319;
10412   t22805 = t1018 * t341;
10413   t22809 = t557 * t76 * t4345;
10414   t22819 = t21023 * t22722;
10415   t22823 = -t16086 * t425 * t341 * t5528 / 0.216e3 - 0.15e2 / 0.2e1 * t13220 * t5118 - 0.5e1 / 0.7776e4 * t19811 * t2765 - 0.5e1 / 0.7776e4 * t5537 * t5139 - 0.15e2 * t17959 * t5542 + 0.12e2 * t3760 * t5545 + t5528 * t21765 / 0.1296e4 - t1018 * t26 * t5122 / 0.4374e4 + t22805 * t1387 / 0.1296e4 + t1214 * t22809 / 0.2916e4 - 0.30e2 * t2732 * t4345 * t346 * t341 + 0.5e1 / 0.1296e4 * t4358 * t21768 * t13329 + t4358 * t21772 * t22819 / 0.746496e6;
10416   t22824 = t804 * t425;
10417   t22834 = t213 * t1528 * t79;
10418   t22863 = t22824 * t1387 / 0.1296e4 + 0.5e1 / 0.18e2 * t804 * t1528 * t5564 - 0.15e2 / 0.2e1 * t4344 * t4345 * t1219 - t1214 * t22834 / 0.8748e4 + 0.3e1 / 0.2e1 * t558 * t1532 * t1219 - t17946 * t21751 / 0.864e3 + t58 * t13267 * t1206 / 0.3888e4 - 0.371e3 / 0.544195584e9 * t21670 * t22819 * t79 - 0.5e1 / 0.7776e4 * t5559 * t5139 + 0.5e1 / 0.8748e4 * t5115 * t5576 + 0.5e1 / 0.8748e4 * t5125 * t5576 + 0.105e3 / 0.4e1 * t13166 * t4345 * t1206 - 0.15e2 / 0.4e1 * t1769 * t1532 * t1206 + 0.6e1 * t558 * t9739 * t1528;
10419   t22865 = t22744 + t22784 + t22823 + t22863;
10420   t22879 = t441 * t1240;
10421   t22880 = t1058 * t22879;
10422   t22899 = t441 * t1253;
10423   t22900 = t1058 * t22899;
10424   t22903 = t2816 * t22879;
10425   t22922 = -0.1428938704017162240e1 * t2488 * t22880 + 0.85008516127783659766e0 * t3458 * t4506 - 0.75858199451789026628e0 * t3458 * t4513 + 0.42504258063891829882e0 * t18909 * t858 - 0.67675321900558938528e0 * t10496 * t1058 * t17212 + 0.59934642900653710508e0 * t2965 * t5231 - 0.12968797032847508210e0 * t10653 * t4490 + 0.29967321450326855254e0 * t3476 * t1058 * t16438 + 0.476312901339054080e0 * t2482 * t22900 - 0.18915142913373788794e1 * t7570 * t22903 + 0.25502554838335097930e1 * t7576 * t22880 + 0.31525238188956314657e0 * t2506 * t2816 * t22899 - 0.97994301469412365794e0 * t7602 * t4042 * t22879 + 0.16879116930178234168e1 * t7720 * t22903 - 0.42504258063891829883e0 * t2488 * t22900 - 0.75858199451789026629e0 * t7754 * t22880 - 0.42504258063891829883e0 * t3461 * t4506;
10426   t22943 = t1445 * t1445;
10427   t22947 = t362 * t1419;
10428   t22957 = t18329 * t1245;
10429   t22960 = t11619 * t4075;
10430   t22967 = -0.19594476351194912734e0 * t3464 * t4506 + 0.21252129031945914941e0 * t3461 * t4510 + 0.97972381755974563669e-1 * t3464 * t4510 + 0.37929099725894513314e0 * t3461 * t4513 + 0.17485326916752292327e0 * t3464 * t4513 + 0.17485326916752292327e0 * t4522 * t3497 + 0.42504258063891829882e0 * t16183 * t1059 + 0.85008516127783659764e0 * t4095 * t4076 + 0.42504258063891829882e0 * t1052 * t17333 - 0.28131861550297056947e0 * t9915 * t4490 + 0.650049912832e0 * t97 * t644 * t22943 + 0.63050476377912629316e0 * t2506 * t2816 * t22947 - 0.97994301469412365794e0 * t7602 * t13737 * t5242 + 0.75875171479661457657e1 * t4041 * t4042 * t16176 - 0.75858199451789026628e0 * t7754 * t22957 + 0.58735597940247945544e1 * t4081 * t22960 + 0.56263723100594113894e0 * t9908 * t4490 - 0.19594476351194912734e0 * t4522 * t3490;
10431   t22972 = t1390 * t1390;
10432   t22973 = t599 * t22972;
10433   t22983 = -t239 * t22865 * t94;
10434   t22986 = t2816 * t16176;
10435   t22993 = t1445 * t354;
10436   t22994 = t1058 * t22993;
10437   t23013 = t1569 * t354;
10438   t23014 = t23013 * t1245;
10439   t23017 = 0.59934642900653710508e0 * t3476 * t1058 * t16247 + 0.42504258063891829882e0 * t22973 * t102 - 0.11986928580130742102e1 * t12135 * t1088 * t5335 + 0.27629889249421717102e0 * t3840 * t3863 + 0.461000314880e0 * t237 * t22983 + 0.14645644599676186814e2 * t4109 * t22986 - 0.19746155567343206400e2 * t4072 * t22960 + 0.42504258063891829882e0 * t851 * t18858 + 0.952625802678108160e0 * t2482 * t22994 - 0.42504258063891829883e0 * t4516 * t3494 + 0.56263723100594113894e0 * t13417 * t3472 - 0.75858199451789026629e0 * t4516 * t3497 + 0.21252129031945914941e0 * t4519 * t3494 - 0.28131861550297056947e0 * t13584 * t3472 + 0.37929099725894513314e0 * t4519 * t3497 + 0.97972381755974563669e-1 * t4522 * t3494 - 0.12968797032847508210e0 * t13591 * t3472 - 0.42504258063891829882e0 * t2488 * t23014;
10440   t23034 = t840 * t5166;
10441   t23045 = t840 * t349 * t1390;
10442   t23048 = t4433 * t3493;
10443   t23051 = t13517 * t3489;
10444   t23059 = t4433 * t3489;
10445   t23067 = t13853 * t3489;
10446   t23071 = t1419 * t1419;
10447   t23073 = t631 * t23071 * t94;
10448   t23076 = t590 * t22972;
10449   t23080 = 0.10708320e2 * t4411 * t5174 + 0.10708320e2 * t23059 - 0.7138880e1 * t18735 * t1435 + 0.10145661348248508867e2 * t13411 * t5174 + 0.42833280e2 * t1062 * t16713 - 0.68216827389720576000e2 * t23067 + 0.6370450956800e1 * t18716 * t1435 - 0.7138880e1 * t23073 + 0.1784720e1 * t22983 - 0.7138880e1 * t23076 * t99 + 0.5684735615810048000e1 * t23051;
10450   t23083 = t99 * t5166;
10451   t23086 = t618 * t23071;
10452   t23087 = t23086 * t94;
10453   t23096 = t13614 * t3489;
10454   t23098 = t4438 * t3493;
10455   t23100 = t4423 * t3493;
10456   t23102 = t231 * t22865;
10457   t23105 = -0.68216827389720576000e2 * t13792 * t5174 - 0.7138880e1 * t1041 * t23083 + 0.6370450956800e1 * t23087 + 0.5684735615810048000e1 * t4416 * t4837 - 0.3569440e1 * t4405 * t4837 + 0.114668117222400e3 * t4416 * t5174 + 0.3185225478400e1 * t23048 + 0.10145661348248508867e2 * t23096 + 0.5684735615810048000e1 * t23098 - 0.19111352870400e2 * t23100 + 0.1784720e1 * t23102 * t99;
10458   t23115 = t4438 * t3489;
10459   t23117 = t1435 * t1390;
10460   t23120 = t14046 * t3489;
10461   t23124 = t18557 * t857;
10462   t23130 = -0.76445411481600e2 * t2917 * t16713 - 0.19111352870400e2 * t13799 * t5174 + 0.22738942463240192000e2 * t2849 * t16713 - 0.42833280e2 * t4402 * t5174 + 0.114668117222400e3 * t23115 + 0.22738942463240192000e2 * t2836 * t23117 - 0.19111352870400e2 * t23120 - 0.19111352870400e2 * t4402 * t4837 + 0.6370450956800e1 * t23124 - 0.76445411481600e2 * t2958 * t23117 + 0.10708320e2 * t1549 * t4837;
10463   t23131 = t4423 * t3489;
10464   t23133 = t18528 * t857;
10465   t23139 = t4426 * t3493;
10466   t23143 = t1062 * t17332;
10467   t23147 = t1069 * t17332;
10468   t23151 = t1557 * t3493;
10469   t23153 = -0.42833280e2 * t23131 - 0.7138880e1 * t23133 + 0.6370450956800e1 * t22973 * t99 + 0.3185225478400e1 * t4411 * t4837 - 0.3569440e1 * t23139 + 0.42833280e2 * t1048 * t23117 + 0.6370450956800e1 * t23143 + 0.5684735615810048000e1 * t13458 * t5174 - 0.7138880e1 * t23147 + 0.6370450956800e1 * t1048 * t23083 + 0.10708320e2 * t23151;
10470   t23163 = -0.42504258063891829882e0 * t4519 * t3490 + 0.85008516127783659766e0 * t4516 * t3490 + 0.476312901339054080e0 * t2482 * t23014 + 0.31525238188956314657e0 * t2506 * t6038 * t5242 - 0.13069187414967042065e2 * t4046 * t22986 + 0.63050476377912629314e0 * t2506 * t2816 * t22993 - 0.85008516127783659766e0 * t2488 * t22994 + 0.42504258063891829882e0 * t2962 * t23034 - 0.734005159174078464e0 * t97 * t4552 * t1274 + 0.29066289463551723990e0 * t10746 * t18607 - 0.39188952702389825468e0 * t10741 * t18610 + 0.11064007557120e2 * t2962 * t23045 + 0.822756481972633600e0 * t237 * t23048 + 0.14683899485061986386e1 * t237 * t23051 - 0.21252129031945914941e0 * t625 * t1557 * t4892 - 0.258304e0 * t97 * t245 * (t23080 + t23105 + t23130 + t23153) + 0.2766001889280e1 * t13705 * t5320 + 0.14983660725163427627e0 * t4591 * t3335;
10471   t23177 = t11619 * t19258;
10472   t23209 = -0.11064007557120e2 * t13761 * t5320 + 0.45165298839047841173e-1 * t13411 * t1226 * t102 + 0.69074723123554292755e-1 * t3434 * t4560 + 0.25502554838335097929e1 * t8776 * t604 * t1058 * t1226 + 0.10696655587765469022e1 * t7517 * t23177 - 0.79336666628232973116e0 * t7513 * t2816 * t3862 * t354 - 0.67675321900558938528e0 * t854 * t18631 + 0.59934642900653710508e0 * t854 * t18936 - 0.238156450669527040e0 * t625 * t5762 * t1245 + 0.15171639890357805325e1 * t1052 * t16714 + 0.75858199451789026627e0 * t1052 * t16765 - 0.30124497567627698084e1 * t2987 * t17373 + 0.13538564572559691160e1 * t1052 * t16769 - 0.21958039749871030452e0 * t4095 * t3848 - 0.21958039749871030452e0 * t1052 * t17128 - 0.10979019874935515226e0 * t1052 * t16754 - 0.29967321450326855254e0 * t4588 * t3335 - 0.119078225334763520e0 * t3329 * t4617;
10473   t23253 = 0.325024956416e0 * t97 * t4460 * t1274 + 0.1645512963945267200e1 * t237 * t23087 - 0.12204703833063489012e1 * t616 * t1062 * t621 * t5200 - 0.21958039749871030452e0 * t1400 * t1447 - 0.50613316194190507389e-1 * t5317 * t443 + 0.15762619094478157329e0 * t1941 * t1557 * t21359 + 0.59934642900653710508e0 * t3894 * t3863 - 0.11756685810716947640e1 * t13792 * t1226 * t102 - 0.11252744620118822779e1 * t2493 * t18318 + 0.17489238971848963748e1 * t8022 * t18322 - 0.12751277419167548965e1 * t4402 * t1222 * t102 + 0.15171639890357805326e1 * t851 * t18219 + 0.15171639890357805325e1 * t4095 * t3843 + 0.1645512963945267200e1 * t237 * t23143 + 0.97972381755974563669e-1 * t13458 * t1226 * t102 - 0.238156450669527040e0 * t1055 * t17137 - 0.30124497567627698084e1 * t2493 * t18326 + 0.69074723123554292753e-1 * t4457 * t3335;
10474   t23281 = t610 * t1390 * t362;
10475   t23297 = -0.50613316194190507388e-1 * t5672 * t364 - 0.29967321450326855254e0 * t1852 * t14145 * t3489 - 0.29967321450326855254e0 * t1852 * t1565 * t4946 - 0.11064007557120e2 * t237 * t23131 + 0.2766001889280e1 * t237 * t23151 - 0.21968466899514280222e2 * t616 * t4438 * t3471 + 0.29619233351014809600e2 * t237 * t23115 - 0.10979019874935515226e0 * t3461 * t4603 - 0.21958039749871030452e0 * t851 * t18314 - 0.21958039749871030452e0 * t851 * t18310 - 0.50613316194190507389e-1 * t3464 * t4603 + 0.952625802678108160e0 * t1042 * t23281 + 0.238156450669527040e0 * t625 * t14149 * t3489 - 0.17620679382074383663e2 * t237 * t23067 + 0.13814944624710858551e0 * t1052 * t16804 + 0.21958039749871030452e0 * t3458 * t4603 - 0.29967321450326855254e0 * t3446 * t4560 - 0.1428938704017162240e1 * t2488 * t22957;
10476   t23298 = t1058 * t22947;
10477   t23303 = t857 * t349;
10478   t23335 = t4075 * t5610;
10479   t23341 = 0.952625802678108160e0 * t2482 * t23298 - 0.1844001259520e1 * t237 * t23073 - 0.30343279780715610650e1 * t11658 * t1062 * t23303 - 0.39188952702389825468e0 * t11661 * t17146 + 0.69941307667009169309e0 * t11731 * t3843 + 0.43916079499742060904e0 * t9156 * t1084 * t23303 + 0.27629889249421717102e0 * t11725 * t16404 - 0.238156450669527040e0 * t854 * t19207 - 0.1844001259520e1 * t18993 * t1394 + 0.90330597678095682346e-1 * t18198 * t3280 - 0.11756685810716947640e1 * t18201 * t3280 - 0.85008516127783659765e0 * t14015 * t5356 + 0.461000314880e0 * t23102 * t102 + 0.29967321450326855254e0 * t13571 * t1246 - 0.67675321900558938528e0 * t13574 * t1246 + 0.59934642900653710508e0 * t3476 * t4075 * t3862 + 0.952625802678108160e0 * t2482 * t23335 + 0.63050476377912629314e0 * t2506 * t5722 * t5610;
10480   t23390 = -0.85008516127783659766e0 * t2488 * t23335 + 0.36614111499190467036e1 * t616 * t14046 * t3471 - 0.4936538891835801600e1 * t237 * t23120 - 0.61023519165317445059e0 * t616 * t4433 * t4883 + 0.18968792869915364414e1 * t1983 * t13517 * t5296 - 0.32672968537417605163e1 * t616 * t13517 * t3471 - 0.45514919671073415978e1 * t851 * t18331 - 0.10979019874935515226e0 * t851 * t18336 - 0.85008516127783659765e0 * t851 * t18340 - 0.78377905404779650936e0 * t11731 * t3836 - 0.51875188131390032840e0 * t16384 * t3827 - 0.734005159174078464e0 * t97 * t13554 * t1261 - 0.476312901339054080e0 * t625 * t1420 * t5685 + 0.18968792869915364414e1 * t1983 * t4438 * t21260 - 0.92817332546461565657e1 * t6421 * t13614 * t6426 * t1240 + 0.20312390406477209506e2 * t1983 * t13614 * t5296 - 0.32672968537417605163e1 * t616 * t4438 * t4883;
10481   t23399 = t4489 * t5242;
10482   t23437 = -0.1428938704017162240e1 * t2962 * t610 * t441 * t1226 - 0.1428938704017162240e1 * t4457 * t5336 - 0.85008516127783659765e0 * t2488 * t23298 + 0.16879116930178234168e1 * t7720 * t23399 - 0.42504258063891829882e0 * t3458 * t4510 - 0.238156450669527040e0 * t625 * t19030 * t857 - 0.67675321900558938528e0 * t1055 * t17213 + 0.65874119249613091356e0 * t5341 * t443 - 0.19834166657058243280e0 * t6801 * t1557 * t21097 + 0.23916119461575365556e1 * t97 * t13468 * t1261 - 0.119078225334763520e0 * t4591 * t3381 - 0.12204703833063489012e1 * t616 * t18557 * t1409 + 0.1645512963945267200e1 * t237 * t23124 + 0.650049912832e0 * t97 * t18667 * t362 - 0.2936020636696313856e1 * t3991 * t3862 * t1445 - 0.1844001259520e1 * t23076 * t102 + 0.650049912832e0 * t97 * t1088 * t5210 + 0.14983660725163427627e0 * t3329 * t4560;
10483   t23484 = 0.29967321450326855254e0 * t854 * t18599 - 0.51005109676670195860e1 * t9270 * t23045 - 0.21958039749871030452e0 * t2962 * t23281 + 0.952625802678108160e0 * t3911 * t5690 + 0.952625802678108160e0 * t1042 * t610 * t1445 * t349 + 0.476312901339054080e0 * t1042 * t22028 - 0.4936538891835801600e1 * t237 * t23100 + 0.39207562244901126197e2 * t616 * t13853 * t3471 + 0.39188952702389825468e0 * t3974 * t19160 + 0.65874119249613091357e0 * t13761 * t5336 - 0.1844001259520e1 * t237 * t23147 - 0.13606156761889987933e2 * t616 * t13614 * t3471 + 0.26206649088979828343e1 * t237 * t23096 + 0.14983660725163427627e0 * t1852 * t4575 * t3493 - 0.19834166657058243279e0 * t6801 * t13535 * t3471 + 0.26741638969413672554e0 * t1852 * t13535 * t3489 + 0.238156450669527040e0 * t625 * t1565 * t4892 - 0.119078225334763520e0 * t625 * t4571 * t3493;
10484   t23531 = 0.15762619094478157328e0 * t1941 * t13525 * t3471 - 0.21252129031945914941e0 * t625 * t13525 * t3489 - 0.12204703833063489012e1 * t616 * t23086 * t621 + 0.476312901339054080e0 * t4549 * t5336 + 0.59934642900653710508e0 * t1055 * t16442 + 0.29967321450326855254e0 * t1055 * t17054 - 0.21958039749871030452e0 * t5344 * t443 - 0.10979019874935515226e0 * t5249 * t443 + 0.42504258063891829882e0 * t18716 * t349 * t102 - 0.1844001259520e1 * t237 * t23133 - 0.119078225334763520e0 * t625 * t1570 * t4892 - 0.922000629760e0 * t237 * t23139 - 0.12751277419167548965e1 * t13799 * t1226 * t102 - 0.238156450669527040e0 * t625 * t5201 * t1561 + 0.36614111499190467036e1 * t616 * t4423 * t4883 - 0.22762551443898437297e2 * t1983 * t13853 * t5296 + 0.14683899485061986386e1 * t237 * t23098 + 0.26741638969413672554e0 * t1852 * t1557 * t4946;
10485   t23574 = -0.238156450669527040e0 * t625 * t434 * t94 * t5210 + 0.97972381755974563669e-1 * t4416 * t1222 * t102 - 0.238156450669527040e0 * t16688 * t1081 - 0.476312901339054080e0 * t3894 * t4114 + 0.14533144731775861995e0 * t2987 * t16757 - 0.19594476351194912734e0 * t1052 * t16760 + 0.21958039749871030452e0 * t851 * t18659 + 0.25502554838335097930e1 * t851 * t18662 - 0.17001703225556731953e1 * t851 * t18346 - 0.56263723100594113894e0 * t2493 * t18372 + 0.75858199451789026628e0 * t851 * t18375 + 0.76507664515005293790e1 * t4416 * t1226 * t102 - 0.54895099374677576129e-1 * t4457 * t3381 + 0.14533144731775861996e0 * t2493 * t19335 + 0.33758233860356468337e1 * t2493 * t19338 - 0.45514919671073415976e1 * t1052 * t17134 + 0.21958039749871030452e0 * t1052 * t16792 - 0.238156450669527040e0 * t19075 * t881;
10486   t23587 = t18192 * t356;
10487   t23612 = -0.19594476351194912734e0 * t851 * t18379 - 0.11252744620118822779e1 * t11981 * t3827 - 0.11756685810716947640e1 * t17342 * t3859 - 0.21958039749871030452e0 * t4095 * t3832 - 0.21958039749871030452e0 * t1052 * t16825 - 0.10979019874935515226e0 * t1052 * t16829 - 0.17001703225556731953e1 * t2824 * t23587 + 0.21958039749871030452e0 * t4516 * t3290 - 0.17001703225556731953e1 * t11533 * t5635 - 0.10979019874935515226e0 * t4519 * t3290 + 0.25502554838335097930e1 * t4522 * t5356 + 0.25502554838335097929e1 * t1052 * t16880 - 0.11252744620118822779e1 * t2987 * t16338 - 0.56263723100594113893e0 * t2987 * t16342 + 0.17489238971848963747e1 * t8603 * t17370 - 0.17001703225556731953e1 * t4095 * t3836 - 0.17001703225556731953e1 * t1052 * t16818 - 0.85008516127783659764e0 * t1052 * t17131;
10488   t23652 = 0.33758233860356468336e1 * t2987 * t16867 + 0.39188952702389825468e0 * t16572 * t3859 + 0.19594476351194912734e0 * t16718 * t3859 + 0.39188952702389825468e0 * t3840 * t16691 + 0.90330597678095682346e-1 * t16722 * t3859 - 0.17001703225556731953e1 * t2824 * t604 * t4075 * t349 - 0.85008516127783659764e0 * t2824 * t22102 + 0.238156450669527040e0 * t3446 * t4617 - 0.18915142913373788795e1 * t7570 * t23399 + 0.25502554838335097929e1 * t7576 * t22957 + 0.11064007557120e2 * t4067 * t22960 - 0.922000629760e0 * t4549 * t4933 - 0.54895099374677576130e-1 * t3434 * t4617 - 0.11986928580130742102e1 * t7430 * t23177 + 0.13814944624710858551e0 * t851 * t18656 + 0.19594476351194912734e0 * t18343 * t3280 + 0.39188952702389825468e0 * t8776 * t23587 - 0.50613316194190507388e-1 * t4522 * t3290;
10489   t23695 = 0.238156450669527040e0 * t4588 * t3381 + 0.43916079499742060904e0 * t9156 * t434 * t22423 + 0.34003406451113463906e1 * t11658 * t1069 * t23303 + 0.22505489240237645558e1 * t12370 * t1062 * t19355 * t354 + 0.43916079499742060904e0 * t11661 * t17143 - 0.10122663238838101478e0 * t11731 * t3832 + 0.29066289463551723990e0 * t11666 * t17150 - 0.10122663238838101478e0 * t11731 * t3848 + 0.27629889249421717102e0 * t10727 * t19259 + 0.43916079499742060904e0 * t10741 * t18603 + 0.14983660725163427627e0 * t1852 * t1570 * t4946 + 0.2766001889280e1 * t237 * t23059 - 0.10979019874935515226e0 * t851 * t18960 + 0.13538564572559691160e1 * t851 * t18963 - 0.10979019874935515226e0 * t5680 * t364 + 0.21252129031945914941e0 * t4411 * t1222 * t102 + 0.2766001889280e1 * t4457 * t4933 - 0.1844001259520e1 * t1042 * t23034;
10490   t23700 = my_piecewise3(t87, 0, t22922 + t22967 + t23017 + t23163 + t23209 + t23253 + t23297 + t23341 + t23390 + t23437 + t23484 + t23531 + t23574 + t23612 + t23652 + t23695);
10491   t23701 = my_piecewise3(t86, 0, t23700);
10492   t23703 = t22865 * t104 + t1222 * t1596 + t1538 * t1280 + 0.4e1 * t1390 * t1451 + t85 * t23701 + 0.2e1 * t349 * t5792 + 0.2e1 * t5579 * t368 + 0.2e1 * t428 * t5376 + 0.2e1 * t5166 * t447;
10493   t23711 = t1598 * t1282;
10494   t23725 = -0.20e2 / 0.9e1 * t463 * t1626 * t22697 - 0.100e3 / 0.27e2 * t5434 * t14264 - 0.50e2 / 0.81e2 * t14291 * t5429 + 0.100e3 / 0.81e2 * t5434 * t14269 + 0.10e2 / 0.9e1 * t1481 * t5868 - params->c1 * t23703 * t131 + 0.100e3 / 0.27e2 * t12748 * t15858 * t58 - 0.10e2 / 0.9e1 * t19552 * t1478 + 0.10e2 / 0.9e1 * t463 * t1626 * t23711 + 0.2e1 * t5425 * t470 + 0.100e3 / 0.81e2 * t279 * t1144 * t5794 * t374 - t1622 * t1326 - 0.200e3 / 0.27e2 * t14278 * t1164 * t5442;
10495   t23735 = -t23703;
10496   t23752 = t1602 * t1282;
10497   t23761 = 0.4e1 * t1476 * t1498 + 0.40e2 / 0.9e1 * t3086 * t5442 * t15 + 0.40e2 / 0.9e1 * t11099 * t5847 + 0.2e1 * t461 * t5471 + 0.5e1 / 0.9e1 * t463 * t464 * t23735 + 0.4e1 * t461 * t1157 * t1282 - 0.2e1 * t1306 * t1638 - 0.2000e4 / 0.81e2 * t946 * t4729 * t1286 + t1306 * t1642 - 0.20e2 / 0.9e1 * t463 * t1626 * t449 * t5378 - 0.10e2 / 0.3e1 * t463 * t6147 * t23752 - 0.40e2 / 0.9e1 * t1481 * t5859 + 0.500e3 / 0.81e2 * t946 * t4740 * t1286;
10498   t23771 = t1491 * t1491;
10499   t23786 = t20708 * t1282;
10500   t23789 = t23752 * t137;
10501   t23800 = t4725 * t5378;
10502   t23810 = t395 * t290 * t1453;
10503   t23813 = t287 * t280 * t23735 * t137 + 0.2e1 * t719 * t23786 - 0.6e1 * t2080 * t23789 + 0.50e2 / 0.27e2 * t14384 * t1323 + 0.50e2 / 0.27e2 * t14389 * t1323 - 0.100e3 / 0.27e2 * t14354 * t1323 + 0.20e2 / 0.9e1 * t19628 * t396 - 0.4e1 * t719 * t23800 - 0.4e1 * t287 * t706 * t22697 * t137 - 0.6e1 * t2069 * t23789 - 0.40e2 / 0.3e1 * t3134 * t23810;
10504   t23836 = -0.40e2 / 0.3e1 * t3126 * t23810 - 0.200e3 / 0.27e2 * t14378 * t1323 - 0.100e3 / 0.9e1 * t14381 * t1323 + t733 * t23786 + 0.25e2 / 0.81e2 * t14412 * t1323 - 0.2e1 * t733 * t23800 + 0.10e2 / 0.9e1 * t19635 * t396 - 0.20e2 / 0.9e1 * t3149 * t23810 - t2095 * t23789 - 0.25e2 / 0.81e2 * t14362 * t1323 - 0.2e1 * t730 * t732 * t22697 * t137;
10505   t23838 = my_piecewise3(t129, (t23725 + t23761) * t135 + 0.2e1 * t5871 * t393 * t135 + t1633 * t1317 * t135 + t1633 * t1319 * t135 + 0.2e1 * t23771 * t135 + 0.4e1 * t1493 * t1492 + 0.2e1 * t469 * t5452 + t1635 * t1317 * t135 + t1635 * t1319 * t135, t23813 + t23836);
10506   t23843 = t1520 * t1300;
10507   t23857 = t5515 * t384;
10508   t23860 = 0.4e1 * t168 * t381 * t5818 * t140 + 0.16e2 * t1004 * t19473 * t384 - 0.2e1 * t168 * t1515 * t1332 - 0.2e1 * t168 * t1614 * t1332 - 0.4e1 * t168 * t5819 * t399 - 0.4e1 * t168 * t5406 * t473 - t128 * t23838 + 0.4e1 * t168 * t22691 + 0.32e2 * t4303 * t22694 + 0.24e2 * t4296 * t23843 - 0.4e1 * t497 * t23843 + 0.8e1 * t497 * t23857;
10509   t23861 = t1465 * t1465;
10510   t23914 = t14479 * t5391 / 0.54e2 - t1599 * t1286 * t687 / 0.108e3 + t4157 * t17842 / 0.45e2 + t2024 * t23752 * t118 / 0.100e3 + t685 * t452 * t5378 / 0.50e2 - t685 * t23711 * t118 / 0.100e3 + 0.3e1 / 0.100e3 * t1599 * t5388 - 0.3e1 / 0.50e2 * t46 * t22697 * t1604 + t17873 * t1457 / 0.30e2 - t19423 * t1457 / 0.90e2 - 0.3e1 / 0.50e2 * t450 * t1604 * t5378;
10511   t23942 = -t14482 * t5391 / 0.324e3 - 0.5e1 / 0.162e3 * t14462 * t5391 + 0.5e1 / 0.108e3 * t1603 * t1286 * t14497 + t685 * t22697 * t118 / 0.50e2 + t17618 * t17842 / 0.15e2 - 0.2e1 / 0.15e2 * t4144 * t17842 - 0.3e1 / 0.50e2 * t1603 * t17654 * t118 + t14485 * t5391 / 0.324e3 + 0.3e1 / 0.100e3 * t1603 * t1291 + t46 * t23735 * t118 / 0.100e3 - t266 * t23735 * t118 / 0.100e3;
10512   t23957 = -0.16e2 * t497 * t122 * t23861 * t140 + 0.8e1 * t497 * t1516 * t1332 - 0.48e2 * t4296 * t23857 - 0.16e2 * t497 * t1200 * t1515 * t140 + 0.32e2 * t1004 * t5515 * t381 + 0.16e2 * t3685 * t5826 + 0.12e2 * t2695 * t4317 * t1181 + 0.8e1 * t1004 * t4665 * t1300 + 0.2e1 * t168 * t121 * (t23914 + t23942) * t140 + 0.16e2 * t1004 * t19725 * t384 - 0.4e1 * t168 * t456 * t5480 - 0.4e1 * t168 * t5104 * t473;
10513   t23984 = t1520 * t1181;
10514   t23993 = 0.96e2 * t4296 * t1005 * t384 * t1465 + 0.2e1 * t168 * t1297 * t1613 * t140 - 0.64e2 * t1004 * t1005 * t5108 - 0.8e1 * t1004 * t19741 * t384 - t168 * t1300 * t1649 + 0.4e1 * t168 * t23861 * t140 - 0.2e1 * t168 * t384 * t5899 - 0.8e1 * t168 * t5108 * t473 - 0.96e2 * t14536 * t23984 - 0.16e2 * t14587 * t5095 - 0.16e2 * t4303 * t22691 - 0.8e1 * t3685 * t5518;
10515   t24027 = 0.96e2 * t2695 * t1520 * t384 * t381 - 0.8e1 * t168 * t1466 * t1504 + 0.1174e1 * t23838 - 0.4e1 * t168 * t5521 * t399 - 0.8e1 * t168 * t22694 - 0.4e1 * t1004 * t4317 * t1300 + 0.8e1 * t1004 * t19758 * t384 - 0.8e1 * t168 * t1365 * t1504 + 0.2e1 * t497 * t1181 * t1649 + 0.12e2 * t1691 * t23984 - 0.16e2 * t1004 * t1520 * t1297 - 0.24e2 * t2695 * t4665 * t1181;
10516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10517     v4sigma2lapl2[0] = -0.3e1 / 0.8e1 * t164 * t7 * (t23860 + t23957 + t23993 + t24027) * t158 + 0.18554625000000000000e1 * t407 * t5903 * t413 - 0.41747906250000000000e1 * t407 * t1653 * t753 * t1348 - 0.46386562500000000000e0 * t5907 * t1353 + 0.11326164200960098622e2 * t19797 * t1359;
10518 
10519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10520     v4sigma2lapltau[0] = 0.0e0;
10521 
10522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10523     v4sigma2tau2[0] = 0.0e0;
10524 
10525   t24050 = t1005 * t5818;
10526   t24060 = t5928 * t384;
10527   t24063 = t1520 * t1465;
10528   t24095 = 0.1e1 / t17 / t507;
10529   t24096 = t21023 * t24095;
10530   t24107 = t2724 * t574;
10531   t24112 = t19831 * t329;
10532   t24115 = t1769 * t5943;
10533   t24116 = t13203 * t1386;
10534   t24119 = -0.5e1 / 0.648e3 * t18105 * t2737 * t1534 * t346 + t16086 * t2737 * t1534 * t341 / 0.162e3 - 0.45e2 / 0.2e1 * t19878 * t5542 + 0.18e2 * t4332 * t5545 + t5528 * t22834 / 0.1728e4 + 0.5e1 / 0.5832e4 * t5537 * t5576 + 0.105e3 / 0.2e1 * t19848 * t19849 * t346 - 0.45e2 * t4344 * t19849 * t341 - 0.45e2 / 0.2e1 * t2732 * t19862 * t346 + t21670 * t24096 * t79 / 0.839808e6 + 0.9e1 * t558 * t11347 * t5944 + t19890 * t21751 / 0.648e3 - 0.5e1 / 0.2e1 * t19845 * t5548 - t24107 * t5552 / 0.288e3 + t18085 * t5570 / 0.648e3 + 0.25e2 / 0.4e1 * t19830 * t24112 + 0.5e1 / 0.576e3 * t24115 * t24116;
10535   t24128 = t1018 * t425;
10536   t24136 = t183 * t5575;
10537   t24163 = -0.5e1 / 0.2e1 * t18003 * t24112 - t16086 * t24116 / 0.192e3 + t22736 * t5951 / 0.324e3 + t17912 * t5570 / 0.648e3 + t24128 * t1387 / 0.864e3 + 0.5e1 / 0.12e2 * t1018 * t1528 * t5564 - t22805 * t1535 / 0.972e3 - 0.5e1 / 0.972e3 * t4358 * t21768 * t24136 - t4358 * t21772 * t24096 / 0.279936e6 - t22824 * t1535 / 0.972e3 - t5931 * t21765 / 0.972e3 - t5528 * t22809 / 0.576e3 + 0.9e1 / 0.2e1 * t2724 * t5556 - 0.15e2 * t7147 * t5945 + 0.9e1 * t2202 * t5948 + 0.5e1 / 0.5832e4 * t5559 * t5576 + 0.5e1 / 0.5832e4 * t24136 * t213 * t2765 + t21024 * t24095 * t21680 / 0.419904e6;
10538   t24164 = t24119 + t24163;
10539   t24202 = 0.25502554838335097930e1 * t4516 * t3836 - 0.17635028716075421460e1 * t18201 * t3859 + 0.16879116930178234168e1 * t13417 * t3827 - 0.22757459835536707989e1 * t4516 * t3843 - 0.12751277419167548965e1 * t14015 * t5635 - 0.84395584650891170843e0 * t2493 * t20505 + 0.29391714526792369101e0 * t3840 * t18950 - 0.84395584650891170840e0 * t2987 * t18372 + 0.11378729917768353994e1 * t1052 * t18375 - 0.16468529812403272839e0 * t4519 * t3832 - 0.12751277419167548965e1 * t4519 * t3836 + 0.29391714526792369101e0 * t18343 * t3859 - 0.84395584650891170840e0 * t13584 * t3827;
10540   t24205 = t11619 * t4509;
10541   t24218 = t231 * t24164;
10542   t24227 = t4505 * t3862;
10543   t24230 = t4505 * t5610;
10544   t24233 = t441 * t1419;
10545   t24234 = t1058 * t24233;
10546   t24239 = 0.11378729917768353994e1 * t4519 * t3843 - 0.14809616675507404800e2 * t4072 * t24205 + 0.65874119249613091356e0 * t9156 * t434 * t1561 * t349 + 0.41444833874132575653e0 * t11725 * t19259 + 0.65874119249613091356e0 * t11661 * t18603 - 0.15183994858257152217e0 * t11731 * t4603 + 0.461000314880e0 * t24218 * t102 + 0.63756387095837744823e0 * t4095 * t4510 + 0.63756387095837744823e0 * t1052 * t18858 + 0.44051698455185959158e1 * t4081 * t24205 + 0.80224916908241017663e0 * t7517 * t24227 + 0.38253832257502646895e1 * t7576 * t24230 - 0.12751277419167548965e1 * t2488 * t24234 - 0.11378729917768353994e1 * t7754 * t24230;
10547   t24243 = t1557 * t4075;
10548   t24269 = t6003 * t857;
10549   t24274 = t1569 * t362;
10550   t24275 = t1058 * t24274;
10551   t24280 = -0.89901964350980565762e0 * t7430 * t24227 + 0.8298005667840e1 * t237 * t24243 + 0.44950982175490282881e0 * t4591 * t3863 - 0.16468529812403272839e0 * t5680 * t443 - 0.92817332546461565657e1 * t6421 * t20089 * t6426 * t354 + 0.20312390406477209506e2 * t1983 * t20089 * t5726 + 0.84395584650891170840e0 * t1941 * t5994 * t4879 - 0.98018905612252815489e1 * t616 * t4438 * t5722 - 0.63756387095837744824e0 * t625 * t1557 * t5685 - 0.714469352008581120e0 * t625 * t6025 * t1245 - 0.11064007557120e2 * t237 * t24269 + 0.12751277419167548965e1 * t851 * t20442 + 0.714469352008581120e0 * t2482 * t24275 + 0.8298005667840e1 * t4067 * t24205;
10552   t24302 = t11619 * t5974;
10553   t24312 = t20207 * t857;
10554   t24315 = -0.29391714526792369101e0 * t851 * t20070 - 0.12751277419167548965e1 * t851 * t20074 + 0.11378729917768353994e1 * t851 * t20496 - 0.922000629760e0 * t20000 * t1394 - 0.16468529812403272839e0 * t4519 * t3848 + 0.29391714526792369101e0 * t20580 * t3280 - 0.29391714526792369101e0 * t1052 * t18379 + 0.89901964350980565762e0 * t3476 * t1058 * t18935 - 0.59502499971174729837e0 * t7513 * t2816 * t1577 * t354 + 0.80224916908241017663e0 * t7517 * t24302 + 0.44950982175490282881e0 * t3894 * t4560 + 0.98811178874419637034e0 * t5675 * t443 - 0.37929099725894513314e0 * t625 * t5994 * t1245 - 0.17620679382074383663e2 * t237 * t24312;
10555   t24323 = t610 * t441 * t1390;
10556   t24353 = t5994 * t857;
10557   t24356 = -0.16468529812403272839e0 * t5985 * t364 + 0.29391714526792369101e0 * t20062 * t3885 - 0.32937059624806545678e0 * t2962 * t24323 + 0.20722416937066287826e0 * t4457 * t3863 - 0.75919974291285761083e-1 * t5672 * t443 + 0.714469352008581120e0 * t1042 * t610 * t1590 * t349 + 0.714469352008581120e0 * t4549 * t5690 + 0.714469352008581120e0 * t625 * t1565 * t5685 - 0.16468529812403272839e0 * t1400 * t1592 + 0.44950982175490282881e0 * t1852 * t1420 * t5974 + 0.44950982175490282881e0 * t1055 * t18599 - 0.357234676004290560e0 * t625 * t434 * t94 * t5768 - 0.357234676004290560e0 * t625 * t1420 * t6045 + 0.29619233351014809600e2 * t237 * t24353;
10558   t24357 = t3945 * t4509;
10559   t24360 = t1069 * t18857;
10560   t24383 = t11619 * t6045;
10561   t24392 = -0.2766001889280e1 * t237 * t24357 - 0.2766001889280e1 * t237 * t24360 - 0.119078225334763520e0 * t854 * t20044 - 0.84395584650891170840e0 * t11981 * t4490 + 0.12751277419167548965e1 * t20548 * t858 - 0.2766001889280e1 * t1042 * t840 * t5579 + 0.8298005667840e1 * t4457 * t5646 - 0.11064007557120e2 * t19924 * t1394 + 0.975074869248e0 * t97 * t1088 * t5768 + 0.47287857283434471985e0 * t2506 * t2816 * t1590 * t354 - 0.63756387095837744824e0 * t2488 * t24383 + 0.87446194859244818738e0 * t8022 * t20558 - 0.15062248783813849042e1 * t2493 * t20561 - 0.12751277419167548965e1 * t4095 * t4506;
10562   t24409 = t4505 * t349;
10563   t24428 = -0.25306658097095253694e-1 * t19938 * t881 + 0.45165298839047841173e-1 * t20193 * t349 * t102 - 0.63756387095837744824e0 * t2488 * t24275 + 0.56906378609746093242e1 * t1983 * t4438 * t16221 + 0.21252129031945914941e0 * t20232 * t349 * t102 - 0.32937059624806545678e0 * t1052 * t18310 + 0.25502554838335097930e1 * t2824 * t1820 * t24409 + 0.32937059624806545679e0 * t1052 * t18659 + 0.38253832257502646895e1 * t1052 * t18662 - 0.25502554838335097930e1 * t1052 * t18346 - 0.58783429053584738203e0 * t3840 * t18462 + 0.50637350790534702504e1 * t2987 * t19338 - 0.68272379506610123965e1 * t1052 * t18331 - 0.2202015477522235392e1 * t97 * t4552 * t1445;
10564   t24445 = t604 * t1058 * t1390;
10565   t24454 = t4489 * t5610;
10566   t24462 = 0.325024956416e0 * t97 * t20005 * t362 + 0.22757459835536707988e1 * t1052 * t18219 + 0.52455980750256876981e0 * t3840 * t18300 + 0.20307846858839536740e1 * t1052 * t18963 + 0.20722416937066287827e0 * t851 * t20535 + 0.32937059624806545678e0 * t851 * t20368 + 0.38253832257502646895e1 * t4522 * t5635 - 0.25502554838335097930e1 * t2824 * t24445 + 0.32937059624806545679e0 * t4516 * t3832 - 0.32937059624806545678e0 * t1052 * t18314 - 0.357234676004290560e0 * t1055 * t19207 - 0.28372714370060683191e1 * t7570 * t24454 + 0.94575714566868943972e0 * t2506 * t2816 * t24233 - 0.58783429053584738203e0 * t20566 * t858;
10567   t24476 = t4509 * t5610;
10568   t24499 = 0.67692822862798455803e0 * t851 * t20437 + 0.44950982175490282881e0 * t2965 * t5649 - 0.59502499971174729838e0 * t7513 * t4489 * t3862 + 0.44950982175490282881e0 * t3476 * t4509 * t3862 + 0.714469352008581120e0 * t2482 * t24476 + 0.47287857283434471985e0 * t2506 * t6038 * t5610 - 0.2202015477522235392e1 * t3991 * t20050 * t362 - 0.33837660950279469264e0 * t854 * t19927 + 0.20722416937066287827e0 * t1052 * t18656 + 0.21799717097663792993e0 * t2493 * t20541 + 0.58783429053584738202e0 * t8776 * t24445 - 0.75919974291285761083e-1 * t4522 * t3832 - 0.58783429053584738202e0 * t4522 * t3836 + 0.13549589651714352352e0 * t18198 * t3859;
10569   t24502 = -t239 * t24164 * t94;
10570   t24525 = t2816 * t23013;
10571   t24535 = 0.461000314880e0 * t237 * t24502 - 0.119078225334763520e0 * t20047 * t881 + 0.21252129031945914941e0 * t20551 * t858 + 0.45165298839047841173e-1 * t20554 * t858 - 0.14699145220411854869e1 * t7602 * t13737 * t5610 + 0.25318675395267351253e1 * t7720 * t24454 - 0.63756387095837744824e0 * t2488 * t24476 + 0.63756387095837744823e0 * t4519 * t4076 + 0.29391714526792369101e0 * t4522 * t4076 + 0.47287857283434471986e0 * t2506 * t2816 * t24274 + 0.10984233449757140111e2 * t4109 * t24525 + 0.56906378609746093244e1 * t4041 * t4042 * t23013 - 0.98018905612252815491e1 * t4046 * t24525 - 0.357234676004290560e0 * t4591 * t4114;
10572   t24570 = -0.16468529812403272839e0 * t4457 * t4114 - 0.357234676004290560e0 * t3894 * t4617 + 0.63756387095837744823e0 * t18909 * t1059 + 0.44950982175490282881e0 * t3476 * t1058 * t18598 + 0.714469352008581120e0 * t2482 * t24383 - 0.2766001889280e1 * t3911 * t6022 + 0.714469352008581120e0 * t1042 * t610 * t1538 * t362 - 0.38253832257502646894e1 * t17033 * t20301 - 0.2143408056025743360e1 * t4457 * t5690 + 0.1428938704017162240e1 * t1042 * t24323 - 0.89901964350980565762e0 * t4588 * t3863 + 0.44950982175490282881e0 * t854 * t20347 - 0.89901964350980565762e0 * t1042 * t1843 * t1577 * t349 - 0.10151298285083840779e1 * t1055 * t18631;
10573   t24573 = t4433 * t4075;
10574   t24583 = t18557 * t1058;
10575   t24612 = -0.714469352008581120e0 * t20587 * t881 + 0.2468269445917900800e1 * t237 * t24573 + 0.8298005667840e1 * t2962 * t840 * t1538 * t349 - 0.119078225334763520e0 * t625 * t20310 * t857 + 0.2468269445917900800e1 * t237 * t24583 - 0.38906391098542524630e0 * t13591 * t3827 + 0.52455980750256876982e0 * t4522 * t3843 - 0.12751277419167548965e1 * t2824 * t604 * t4509 * t349 - 0.16468529812403272839e0 * t1052 * t18336 + 0.63756387095837744823e0 * t18716 * t428 * t102 + 0.23916119461575365556e1 * t97 * t20148 * t362 + 0.39207562244901126197e2 * t616 * t20207 * t1409 - 0.18307055749595233518e1 * t616 * t3949 * t6038 - 0.18307055749595233518e1 * t616 * t1062 * t621 * t5761;
10576   t24652 = -0.33837660950279469264e0 * t6571 * t20102 * t857 - 0.357234676004290560e0 * t625 * t5762 * t1561 - 0.357234676004290560e0 * t625 * t1570 * t5685 - 0.94575714566868943973e0 * t1941 * t6003 * t4879 - 0.21968466899514280222e2 * t616 * t5994 * t1409 + 0.10984233449757140111e2 * t616 * t4423 * t5722 - 0.22762551443898437297e2 * t1983 * t20207 * t5726 - 0.12751277419167548965e1 * t1052 * t18340 - 0.16468529812403272839e0 * t1052 * t18960 + 0.16879116930178234168e1 * t8830 * t1871 * t4489 * t349 + 0.21799717097663792993e0 * t2987 * t19335 - 0.16879116930178234168e1 * t2987 * t18318 - 0.38906391098542524630e0 * t3840 * t18242 + 0.26233858457773445621e1 * t8603 * t18322;
10577   t24678 = t4438 * t4075;
10578   t24684 = t20089 * t857;
10579   t24687 = -0.45186746351441547126e1 * t2987 * t18326 - 0.22757459835536707988e1 * t2824 * t1871 * t24409 + 0.21252129031945914941e0 * t851 * t20570 - 0.22757459835536707989e1 * t851 * t20574 + 0.975074869248e0 * t97 * t4001 * t1590 - 0.75919974291285761083e-1 * t4522 * t3848 + 0.29391714526792369101e0 * t20099 * t5646 - 0.38253832257502646895e1 * t13761 * t5646 + 0.63756387095837744823e0 * t4411 * t1390 * t102 - 0.357234676004290560e0 * t19075 * t1081 + 0.16879116930178234169e1 * t2493 * t20010 + 0.44051698455185959158e1 * t237 * t24678 - 0.13606156761889987933e2 * t616 * t20089 * t1409 + 0.26206649088979828343e1 * t237 * t24684;
10580   t24692 = t20186 * t857;
10581   t24698 = t20198 * t857;
10582   t24704 = t4423 * t4075;
10583   t24738 = t1435 * t1538;
10584   t24751 = 0.3185225478400e1 * t24698 + 0.10145661348248508867e2 * t24684 + 0.17054206847430144000e2 * t24678 + 0.32124960e2 * t1549 * t5741 - 0.42833280e2 * t6053 * t1435 + 0.9555676435200e1 * t24573 + 0.1784720e1 * t24502 - 0.57334058611200e2 * t24704 + 0.9555676435200e1 * t24583 + 0.17054206847430144000e2 * t13517 * t3835 - 0.10708320e2 * t1041 * t99 * t5579 - 0.57334058611200e2 * t2958 * t24738 + 0.1784720e1 * t24218 * t99 - 0.3569440e1 * t19999 * t1435 - 0.68216827389720576000e2 * t20245 * t1435 - 0.57334058611200e2 * t4402 * t5741 - 0.10708320e2 * t3910 * t6067;
10585   t24781 = 0.3185225478400e1 * t20232 * t1435 + 0.9555676435200e1 * t4411 * t5741 - 0.57334058611200e2 * t2917 * t18339 + 0.17054206847430144000e2 * t13458 * t428 * t349 * t99 + 0.9555676435200e1 * t18716 * t6074 + 0.32124960e2 * t24243 + 0.114668117222400e3 * t6059 * t1435 - 0.42833280e2 * t24269 + 0.17054206847430144000e2 * t4416 * t5741 + 0.10145661348248508867e2 * t20193 * t1435 - 0.10708320e2 * t24360 - 0.68216827389720576000e2 * t24312 - 0.3569440e1 * t24692 + 0.114668117222400e3 * t24353 - 0.10708320e2 * t24357 + 0.32124960e2 * t1048 * t24738 + 0.32124960e2 * t1062 * t18339;
10586   t24788 = -0.119078225334763520e0 * t625 * t5999 * t1245 - 0.922000629760e0 * t237 * t24692 - 0.61023519165317445059e0 * t616 * t20198 * t1409 + 0.822756481972633600e0 * t237 * t24698 + 0.12751277419167548965e1 * t625 * t6003 * t1245 - 0.14809616675507404800e2 * t237 * t24704 - 0.48997150734706182896e0 * t6566 * t5994 * t21256 + 0.89901964350980565762e0 * t1055 * t18936 + 0.20722416937066287827e0 * t1400 * t1579 + 0.47287857283434471986e0 * t1941 * t1557 * t621 * t1445 - 0.16468529812403272839e0 * t851 * t20509 - 0.16468529812403272839e0 * t851 * t20066 - 0.258304e0 * t97 * t245 * (t24751 + t24781) + 0.43599434195327585986e0 * t11666 * t18607;
10587   t24820 = -0.58783429053584738202e0 * t11661 * t18610 + 0.32937059624806545679e0 * t19924 * t881 - 0.11756685810716947640e1 * t20245 * t349 * t102 - 0.2143408056025743360e1 * t2488 * t24230 + 0.1428938704017162240e1 * t2482 * t24234 - 0.12751277419167548965e1 * t4516 * t4076 - 0.32937059624806545678e0 * t4095 * t4603 - 0.12751277419167548965e1 * t2824 * t20300 * t356 + 0.32937059624806545678e0 * t4516 * t3848 + 0.76507664515005293790e1 * t19938 * t1394 + 0.11378729917768353994e1 * t4095 * t4513 - 0.10151298285083840779e1 * t10496 * t1058 * t18630 - 0.89901964350980565762e0 * t7430 * t24302 + 0.714469352008581120e0 * t4588 * t4114;
10588   t24825 = my_piecewise3(t87, 0, t24202 + t24239 + t24280 + t24315 + t24356 + t24392 + t24428 + t24462 + t24499 + t24535 + t24570 + t24612 + t24652 + t24687 + t24788 + t24820);
10589   t24826 = my_piecewise3(t86, 0, t24825);
10590   t24828 = t24164 * t104 + 0.3e1 * t1390 * t1596 + 0.3e1 * t1538 * t1451 + t85 * t24826 + t349 * t6100 + t5956 * t368 + 0.3e1 * t428 * t5792 + 0.3e1 * t5579 * t447;
10591   t24870 = t1453 * t1598;
10592   t24874 = t449 * t5794;
10593   t24884 = -t24828;
10594   t24888 = 0.3e1 * t461 * t5889 + 0.10e2 / 0.3e1 * t1481 * t6148 + 0.200e3 / 0.27e2 * t279 * t20648 * t6110 * t374 + 0.10e2 * t463 * t6147 * t1602 * t1453 - 0.10e2 / 0.3e1 * t1481 * t6151 - 0.50e2 / 0.9e1 * t14278 * t1164 * t5864 - 0.10e2 / 0.3e1 * t463 * t1626 * t24870 - 0.10e2 / 0.3e1 * t463 * t1626 * t24874 + 0.5e1 / 0.9e1 * t1481 * t6154 + 0.50e2 / 0.81e2 * t279 * t1144 * t6102 * t374 + 0.5e1 / 0.9e1 * t463 * t464 * t24884;
10595   t24908 = t20701 * t1453;
10596   t24913 = t20708 * t1478;
10597   t24916 = t19646 * t1598;
10598   t24921 = t4725 * t5794;
10599   t24946 = 0.40e2 / 0.3e1 * t20698 * t396 + 0.18e2 * t2069 * t24908 + 0.20e2 * t20705 * t396 - 0.10e2 * t3126 * t24913 - 0.6e1 * t719 * t24916 - 0.10e2 * t3134 * t24913 - 0.6e1 * t719 * t24921 + 0.18e2 * t2080 * t24908 + 0.20e2 / 0.3e1 * t20723 * t396 + 0.10e2 / 0.9e1 * t20727 * t396 + t287 * t280 * t24884 * t137 + 0.5e1 / 0.9e1 * t20734 * t396 - 0.3e1 * t733 * t24921 - 0.3e1 * t733 * t24916 - 0.5e1 / 0.3e1 * t14412 * t1484 * t8168 + 0.3e1 * t2095 * t24908 + 0.5e1 / 0.9e1 * t20747 * t396;
10600   t24947 = my_piecewise3(t129, (-params->c1 * t24828 * t131 - 0.5e1 / 0.9e1 * t20621 * t1478 + 0.3e1 * t5841 * t470 + 0.10e2 / 0.3e1 * t14291 * t5847 + 0.3e1 * t1622 * t1498 - 0.6e1 * t1476 * t1638 - 0.10e2 * t12748 * t5854 * t15 - 0.12e2 * t461 * t1157 * t1453 + 0.3e1 * t1476 * t1642 + 0.10e2 / 0.3e1 * t3086 * t5864 * t15 + t24888) * t135 + t6157 * t393 * t135 + 0.3e1 * t5871 * t468 * t135 + 0.3e1 * t1633 * t1491 * t135 + 0.3e1 * t6159 * t394 + 0.3e1 * t1636 * t1491 + t6162 * t393 * t135, t24946);
10601   t24955 = t3699 * t1613;
10602   t24968 = t4168 * t1613;
10603   t24975 = t381 * t5911 * t140;
10604   t24978 = 0.72e2 * t4296 * t1005 * t1613 * t384 - 0.48e2 * t1004 * t1005 * t5521 - 0.4e1 * t1004 * t20787 * t384 + 0.12e2 * t1004 * t20892 * t384 + 0.12e2 * t1004 * t20910 * t384 - 0.6e1 * t168 * t1515 * t1504 - 0.6e1 * t168 * t1614 * t1504 - 0.2e1 * t168 * t6128 * t399 + 0.24e2 * t497 * t5916 * t399 - 0.72e2 * t1004 * t24063 - t128 * t24947 - 0.12e2 * t14587 * t5518 + 0.6e1 * t168 * t24955 - 0.24e2 * t4303 * t24050 - 0.72e2 * t4296 * t24060 + 0.12e2 * t497 * t24060 - 0.24e2 * t4303 * t24955 + 0.24e2 * t4303 * t24968 - 0.24e2 * t497 * t24975;
10605   t24983 = t4665 * t1465;
10606   t24994 = t20864 * t384;
10607   t25061 = t46 * t24884 * t118 / 0.100e3 + t20806 * t1457 / 0.60e2 - 0.9e1 / 0.100e3 * t5795 * t6107 + t1599 * t374 * t20811 / 0.20e2 - 0.9e1 / 0.100e3 * t1599 * t5800 - t20817 * t1457 / 0.10e2 - 0.9e1 / 0.100e3 * t1603 * t1460 - t20822 * t1457 / 0.12e2 + 0.9e1 / 0.50e2 * t1603 * t6114 * t1453 + t20828 * t1457 / 0.18e2 - t266 * t24884 * t118 / 0.100e3 - t20834 * t1457 / 0.180e3 + 0.3e1 / 0.100e3 * t685 * t24874 * t118 + 0.3e1 / 0.100e3 * t685 * t24870 * t118 + t20843 * t1457 / 0.60e2 - 0.3e1 / 0.100e3 * t2024 * t1610 * t1453 - t20849 * t1457 / 0.180e3;
10608   t25074 = -0.6e1 * t168 * t24968 + 0.6e1 * t168 * t24050 - 0.12e2 * t168 * t24983 + 0.1174e1 * t24947 - 0.6e1 * t168 * t5521 * t473 + 0.48e2 * t4303 * t24983 + 0.144e3 * t20901 * t24063 + 0.72e2 * t2695 * t24994 - t168 * t384 * t6185 + 0.2e1 * t168 * t381 * t6127 * t140 + 0.24e2 * t497 * t1516 * t1504 + 0.48e2 * t1004 * t5928 * t381 - 0.6e1 * t168 * t1365 * t1649 + 0.144e3 * t4296 * t24975 - 0.6e1 * t168 * t1466 * t1649 - 0.6e1 * t168 * t5819 * t473 + 0.2e1 * t168 * t121 * t25061 * t140 - 0.6e1 * t168 * t456 * t5899 - 0.48e2 * t1691 * t5912 * t399 - 0.192e3 * t20863 * t24994;
10609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10610     v4sigmalapl3[0] = -0.3e1 / 0.8e1 * t164 * t7 * (t24978 + t25074) * t158 + 0.92773125000000000000e0 * t407 * t6189 * t413;
10611 
10612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10613     v4sigmalapl2tau[0] = 0.0e0;
10614 
10615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10616     v4sigmalapltau2[0] = 0.0e0;
10617 
10618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10619     v4sigmatau3[0] = 0.0e0;
10620 
10621   t25083 = t76 * t76;
10622   t25084 = t572 * t572;
10623   t25087 = t1528 * t1528;
10624   t25096 = t13203 * t1534;
10625   t25111 = t21023 * t6220;
10626   t25124 = 0.105e3 * t6300 * t25083 / t25084 * t25087 + 0.9e1 * t558 * t25087 * t573 - 0.60e2 * t8505 * t5945 - 0.5e1 / 0.162e3 * t24115 * t25096 + t16086 * t25096 / 0.54e2 + t24107 * t5951 / 0.81e2 - t21024 * t6220 * t21680 / 0.236196e6 + 0.36e2 * t2724 * t5948 - 0.90e2 * t1769 * t6338 * t25087 - t21670 * t25111 * t79 / 0.472392e6 - t5931 * t22834 / 0.486e3 + t5931 * t22809 / 0.162e3 - t24128 * t1535 / 0.243e3 + t4358 * t21772 * t25111 / 0.157464e6;
10627   t25140 = t20430 * t1561;
10628   t25157 = t1542 * t1542;
10629   t25158 = t6584 * t25157;
10630   t25161 = t6434 * t25157;
10631   t25164 = -0.25502554838335097930e1 * t4519 * t4506 - 0.11756685810716947640e1 * t4522 * t4506 + 0.27077129145119382320e1 * t1052 * t20437 + 0.51005109676670195860e1 * t1052 * t20442 - 0.25502554838335097929e1 * t2488 * t25140 + 0.51005109676670195860e1 * t20548 * t1059 - 0.16879116930178234168e1 * t13584 * t4490 - 0.77812782197085049260e0 * t13591 * t4490 + 0.22757459835536707988e1 * t4519 * t4513 + 0.10491196150051375396e1 * t4522 * t4513 - 0.25502554838335097930e1 * t4516 * t4510 + 0.51005109676670195860e1 * t4516 * t4506 + 0.45165298839047841173e-1 * t25158 * t102 - 0.11756685810716947640e1 * t25161 * t102;
10632   t25165 = t1830 * t25157;
10633   t25168 = t231 * t25124;
10634   t25173 = t1556 * t1556;
10635   t25174 = t6605 * t25173;
10636   t25175 = t25174 * t94;
10637   t25200 = -0.11064007557120e2 * t25165 * t102 + 0.461000314880e0 * t25168 * t102 - 0.2857877408034324480e1 * t20587 * t1081 - 0.17620679382074383663e2 * t237 * t25175 + 0.16596011335680e2 * t4457 * t6022 + 0.1300099825664e1 * t97 * t1088 * t6085 - 0.476312901339054080e0 * t1055 * t20044 + 0.89901964350980565762e0 * t4591 * t4560 - 0.51005109676670195860e1 * t2824 * t20300 * t435 + 0.13174823849922618271e1 * t4516 * t4603 + 0.11756685810716947640e1 * t20580 * t3859 + 0.33758233860356468336e1 * t13417 * t4490 + 0.85008516127783659764e0 * t20551 * t1059 + 0.18066119535619136469e0 * t20554 * t1059;
10638   t25219 = t6423 * t25173;
10639   t25220 = t25219 * t94;
10640   t25236 = 0.13174823849922618271e1 * t1052 * t20368 - 0.51005109676670195860e1 * t1052 * t20074 + 0.45514919671073415976e1 * t1052 * t20496 - 0.3688002519040e1 * t1042 * t840 * t5956 - 0.76507664515005293789e1 * t13761 * t6022 - 0.32937059624806545678e0 * t4457 * t4617 - 0.10122663238838101478e0 * t19938 * t1081 + 0.1428938704017162240e1 * t4588 * t4617 + 0.26206649088979828343e1 * t237 * t25220 - 0.92817332546461565657e1 * t6421 * t25219 * t6426 + 0.20312390406477209506e2 * t1983 * t25219 * t1984 - 0.13606156761889987933e2 * t616 * t25219 * t621 + 0.58783429053584738202e0 * t20099 * t6022 - 0.23513371621433895281e1 * t20566 * t1059;
10641   t25245 = t1538 * t1538;
10642   t25246 = t590 * t25245;
10643   t25253 = -t239 * t25124 * t94;
10644   t25266 = t20198 * t1058;
10645   t25269 = t13517 * t4505;
10646   t25275 = 0.85008516127783659764e0 * t1052 * t20570 - 0.91029839342146831954e1 * t1052 * t20574 + 0.34978477943697927495e1 * t8603 * t20558 - 0.60248995135255396168e1 * t2987 * t20561 - 0.2766001889280e1 * t25246 * t102 + 0.41444833874132575653e0 * t4457 * t4560 + 0.461000314880e0 * t237 * t25253 + 0.67516467720712936673e1 * t2987 * t20010 + 0.2857877408034324480e1 * t2482 * t25140 + 0.17980392870196113152e1 * t2965 * t6046 + 0.18915142913373788794e1 * t2506 * t2816 * t441 * t1569 + 0.3291025927890534400e1 * t237 * t25266 + 0.88103396910371918316e1 * t237 * t25269 - 0.12751277419167548965e1 * t625 * t1557 * t6045;
10647   t25284 = t1557 * t4509;
10648   t25287 = t1069 * t20569;
10649   t25306 = t4423 * t4509;
10650   t25323 = -0.15171639890357805325e1 * t625 * t5994 * t1561 - 0.2857877408034324480e1 * t625 * t6025 * t1561 + 0.16596011335680e2 * t237 * t25284 - 0.3688002519040e1 * t237 * t25287 + 0.11381275721949218649e2 * t1983 * t4438 * t18538 - 0.19603781122450563098e2 * t616 * t4438 * t6038 - 0.476312901339054080e0 * t625 * t5999 * t1561 - 0.714469352008581120e0 * t625 * t1570 * t6045 - 0.476312901339054080e0 * t625 * t434 * t94 * t6085 - 0.29619233351014809600e2 * t237 * t25306 - 0.24409407666126978024e1 * t616 * t1062 * t621 * t5998 + 0.89901964350980565762e0 * t1852 * t1570 * t5974 - 0.11900499994234945968e1 * t6801 * t1557 * t621 * t1577 - 0.37830285826747577588e1 * t1941 * t6003 * t6034;
10651   t25329 = t1569 * t1569;
10652   t25330 = t618 * t25329;
10653   t25357 = -0.13535064380111787705e1 * t1055 * t19927 - 0.4404030955044470784e1 * t97 * t4552 * t1590 - 0.18307055749595233518e1 * t616 * t25330 * t621 - 0.65874119249613091356e0 * t1052 * t20509 - 0.65874119249613091356e0 * t1052 * t20066 - 0.11756685810716947640e1 * t1052 * t20070 + 0.82889667748265151307e0 * t1052 * t20535 + 0.87198868390655171972e0 * t2987 * t20541 - 0.33758233860356468336e1 * t2987 * t20505 + 0.13174823849922618271e1 * t19924 * t1081 - 0.65874119249613091356e0 * t4519 * t4603 - 0.30367989716514304433e0 * t4522 * t4603 + 0.85008516127783659764e0 * t20232 * t428 * t102 - 0.476312901339054080e0 * t20047 * t1081;
10654   t25365 = t599 * t25245;
10655   t25368 = t1590 * t1590;
10656   t25376 = t25330 * t94;
10657   t25380 = t631 * t25329 * t94;
10658   t25390 = t1925 * t25173 * t94;
10659   t25392 = 0.10145661348248508867e2 * t25220 - 0.68216827389720576000e2 * t25175 + 0.1784720e1 * t25253 + 0.12740901913600e2 * t25266 + 0.9555676435200e1 * t25376 + 0.34108413694860288000e2 * t25269 - 0.10708320e2 * t25380 - 0.14277760e2 * t25287 - 0.114668117222400e3 * t25306 + 0.9555676435200e1 * t25365 * t99 + 0.34108413694860288000e2 * t13458 * t1542 * t99 - 0.42833280e2 * t25390;
10660   t25409 = t1861 * t25173;
10661   t25410 = t25409 * t94;
10662   t25412 = t1836 * t25157;
10663   t25419 = 0.64249920e2 * t25284 + 0.12740901913600e2 * t20232 * t6074 - 0.114668117222400e3 * t4402 * t6067 - 0.42833280e2 * t25165 * t99 + 0.64249920e2 * t1549 * t6067 - 0.10708320e2 * t25246 * t99 - 0.14277760e2 * t1041 * t99 * t5956 + 0.10145661348248508867e2 * t25158 * t99 + 0.114668117222400e3 * t25410 + 0.114668117222400e3 * t25412 * t99 - 0.68216827389720576000e2 * t25161 * t99 + 0.1784720e1 * t25168 * t99;
10664   t25428 = t1577 * t1577;
10665   t25448 = 0.12751277419167548965e1 * t4519 * t4510 + 0.58783429053584738202e0 * t4522 * t4510 - 0.45514919671073415977e1 * t4516 * t4513 + 0.63756387095837744823e0 * t25365 * t102 + 0.975074869248e0 * t97 * t644 * t25368 - 0.258304e0 * t97 * t245 * (t25392 + t25419) - 0.2766001889280e1 * t237 * t25380 - 0.11064007557120e2 * t237 * t25390 + 0.23916119461575365556e1 * t97 * t6683 * t25428 - 0.714469352008581120e0 * t4591 * t4617 + 0.2857877408034324480e1 * t1042 * t610 * t1538 * t441 + 0.17980392870196113152e1 * t1055 * t20347 + 0.94575714566868943971e0 * t1941 * t1557 * t621 * t1590 - 0.19598860293882473159e1 * t6566 * t5994 * t1984 * t441;
10666   t25489 = 0.33758233860356468337e1 * t1941 * t5994 * t6034 + 0.21968466899514280222e2 * t616 * t4423 * t6038 - 0.65874119249613091356e0 * t5985 * t443 - 0.17980392870196113152e1 * t1852 * t1565 * t5974 + 0.76507664515005293790e1 * t25412 * t102 + 0.2468269445917900800e1 * t237 * t25376 - 0.17980392870196113152e1 * t4588 * t4560 + 0.29619233351014809600e2 * t237 * t25410 - 0.22762551443898437297e2 * t1983 * t25174 * t1984 + 0.39207562244901126197e2 * t616 * t25174 * t621 - 0.21968466899514280222e2 * t616 * t25409 * t621 + 0.16044983381648203533e1 * t1852 * t1557 * t5974 + 0.51005109676670195860e1 * t625 * t6003 * t1561 + 0.1428938704017162240e1 * t625 * t1565 * t6045 - 0.13535064380111787705e1 * t6571 * t20102 * t1058;
10667   t25493 = my_piecewise3(t87, 0, t25164 + t25200 + t25236 + t25275 + t25323 + t25357 + t25448 + t25489);
10668   t25494 = my_piecewise3(t86, 0, t25493);
10669   t25496 = -t25124 * t104 - 0.6e1 * t1538 * t1596 - t85 * t25494 - 0.4e1 * t428 * t6100 - 0.4e1 * t5956 * t447;
10670   t25504 = t1598 * t1598;
10671   t25512 = t1602 * t1602;
10672   t25513 = t46 * t25512;
10673   t25522 = t6102 * t449;
10674   t25529 = t1598 * t1602;
10675   t25536 = t46 * t25496 * t118 / 0.100e3 - 0.3e1 / 0.25e2 * t6103 * t6107 - 0.9e1 / 0.50e2 * t1599 * t1610 - 0.9e1 / 0.100e3 * t46 * t25504 * t1604 + 0.9e1 / 0.25e2 * t1599 * t116 * t1602 * t118 + 0.3e1 / 0.20e2 * t25513 * t1604 - t25513 * t684 * t118 / 0.10e2 - t266 * t25496 * t118 / 0.100e3 + t685 * t25522 * t118 / 0.25e2 + 0.3e1 / 0.100e3 * t685 * t25504 * t118 - 0.3e1 / 0.50e2 * t2024 * t25529 * t118 + t6857 * t25512 * t118 / 0.100e3;
10676   t25573 = params->c1 * t25496 * t131 + 0.4e1 * t6139 * t470 - 0.12e2 * t1622 * t1638 + 0.6e1 * t1622 * t1642 + 0.24e2 * t461 * t6165 - 0.24e2 * t461 * t1157 * t1598 + 0.4e1 * t461 * t6176 - 0.40e2 / 0.3e1 * t463 * t14 * t2079 * t25512 + 0.20e2 * t463 * t6147 * t25529 - 0.10e2 / 0.3e1 * t463 * t1626 * t25504 - 0.40e2 / 0.9e1 * t463 * t1626 * t25522 + 0.5e1 / 0.9e1 * t463 * t464 * t25496;
10677   t25578 = t1633 * t1633;
10678   t25584 = t1635 * t1635;
10679   t25591 = t20701 * t1598;
10680   t25604 = t4725 * t6102;
10681   t25625 = -0.24e2 * t287 * t2079 * t25512 * t137 - 0.12e2 * t2092 * t6950 * t25512 * t137 - 0.36e2 * t730 * t2094 * t25512 * t137 + t287 * t280 * t25496 * t137 - 0.6e1 * t287 * t706 * t25504 * t137 - 0.3e1 * t730 * t732 * t25504 * t137 - t6968 * t6970 * t25512 * t137 + 0.36e2 * t2069 * t25591 + 0.36e2 * t2080 * t25591 + 0.6e1 * t2095 * t25591 - 0.8e1 * t719 * t25604 - 0.4e1 * t733 * t25604;
10682   t25626 = my_piecewise3(t129, 0.6e1 * t1633 * t1635 * t135 + 0.4e1 * t6157 * t468 * t135 + t25573 * t135 + 0.3e1 * t25578 * t135 + t25584 * t135, t25625);
10683   t25628 = t1515 * t1515;
10684   t25632 = t122 * t122;
10685   t25640 = t1520 * t1613;
10686   t25650 = t1005 * t6127;
10687   t25653 = t1613 * t1613;
10688   t25658 = t4665 * t1613;
10689   t25687 = -0.24e2 * t497 * t122 * t25653 * t140 + 0.48e2 * t497 * t1516 * t1649 - 0.12e2 * t168 * t1614 * t1649 - 0.8e1 * t168 * t456 * t6185 - 0.8e1 * t168 * t6128 * t473 + 0.96e2 * t497 * t5916 * t473 - 0.144e3 * t1004 * t25640 - t128 * t25626 - 0.24e2 * t168 * t25658 - 0.32e2 * t4303 * t25650 + 0.96e2 * t4303 * t25658;
10690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10691     v4lapl4[0] = -0.3e1 / 0.8e1 * t164 * t7 * (0.2e1 * t168 * t121 * t25536 * t140 + 0.1174e1 * t25626 - 0.24e2 * t497 * t25628 * t140 - 0.384e3 * t6195 * t25632 * t25628 * t140 - 0.192e3 * t1691 * t5912 * t473 + 0.288e3 * t20901 * t25640 + 0.288e3 * t1691 * t122 * t25628 * t140 - 0.12e2 * t168 * t1515 * t1649 + 0.8e1 * t168 * t25650 + 0.6e1 * t168 * t25653 * t140 + t25687) * t158;
10692 
10693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10694     v4lapl3tau[0] = 0.0e0;
10695 
10696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10697     v4lapl2tau2[0] = 0.0e0;
10698 
10699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10700     v4lapltau3[0] = 0.0e0;
10701 
10702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10703     v4tau4[0] = 0.0e0;
10704 
10705 #ifndef XC_DONT_COMPILE_MXC
10706 
10707   if(order < 5) return;
10708 
10709 
10710 #endif
10711 
10712 #endif
10713 
10714 #endif
10715 
10716 #endif
10717 
10718 #endif
10719 
10720 
10721 }
10722 
10723 
10724 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 *))10725 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 *))
10726 {
10727 
10728 #ifndef XC_DONT_COMPILE_EXC
10729   double t2, t4, t5, t6, t7, t8, t9, t10;
10730   double t11, t12, t14, t15, t16, t17, t18, t19;
10731   double t20, t21, t22, t23, t24, t25, t26, t27;
10732   double t28, t29, t30, t31, t35, t36, t37, t38;
10733   double t39, t40, t41, t42, t43, t45, t46, t47;
10734   double t48, t49, t52, t56, t57, t60, t61, t63;
10735   double t64, t68, t69, t70, t72, t75, t77, t78;
10736   double t81, t82, t83, t84, t85, t86, t87, t88;
10737   double t89, t91, t92, t93, t94, t95, t96, t97;
10738   double t98, t100, t101, t104, t105, t106, t107, t109;
10739   double t110, t111, t112, t113, t114, t120, t123, t124;
10740   double t126, t128, t131, t132, t133, t138, t139, t140;
10741   double t141, t142, t145, t147, t149, t150, t153, t154;
10742   double t155, t156, t157, t158, t159, t161, t162, t166;
10743   double t167, t168, t170, t172, t173, t174, t175, t176;
10744   double t177, t178, t179, t180, t181, t182, t184, t185;
10745   double t186, t188, t189, t190, t191, t194, t200, t202;
10746   double t203, t207, t208, t210, t213, t215, t216, t219;
10747   double t220, t221, t222, t223, t224, t225, t226, t227;
10748   double t229, t230, t231, t232, t233, t234, t235, t236;
10749   double t238, t239, t242, t243, t244, t245, t247, t248;
10750   double t249, t250, t251, t252, t258, t261, t262, t264;
10751   double t266, t269, t270, t271, t276, t277, t278, t279;
10752   double t280, t283, t285, t287, t288, t291, t292, t293;
10753   double t294, t296, t297, t301, t302, t303, t305;
10754 
10755 #ifndef XC_DONT_COMPILE_VXC
10756   double t307, t308, t309, t310, t311, t312, t313, t314;
10757   double t316, t317, t319, t320, t321, t322, t323, t325;
10758   double t326, t327, t328, t330, t332, t333, t334, t336;
10759   double t338, t339, t343, t344, t345, t346, t347, t348;
10760   double t349, t350, t355, t358, t365, t366, t369, t371;
10761   double t372, t375, t376, t377, t378, t381, t382, t383;
10762   double t384, t387, t390, t392, t393, t394, t397, t398;
10763   double t399, t400, t401, t402, t403, t404, t407, t411;
10764   double t413, t416, t417, t423, t425, t428, t432, t435;
10765   double t436, t438, t441, t442, t443, t444, t447, t448;
10766   double t449, t450, t451, t452, t453, t456, t459, t460;
10767   double t462, t463, t464, t465, t466, t467, t468, t469;
10768   double t471, t473, t475, t477, t478, t480, t481, t482;
10769   double t483, t484, t485, t486, t487, t489, t490, t491;
10770   double t493, t494, t498, t499, t501, t502, t503, t504;
10771   double t506, t507, t508, t510, t512, t513, t514, t516;
10772   double t518, t519, t523, t524, t525, t526, t531, t534;
10773   double t541, t542, t545, t547, t548, t551, t552, t553;
10774   double t554, t557, t558, t559, t560, t563, t566, t568;
10775   double t569, t570, t573, t574, t575, t576, t577, t578;
10776   double t579, t580, t583, t587, t589, t592, t593, t599;
10777   double t601, t604, t608, t611, t612, t614, t617, t618;
10778   double t619, t620, t623, t624, t625, t626, t627, t628;
10779   double t631, t634, t635, t637, t638, t640, t642, t644;
10780   double t646, t647, t649, t650, t651, t654, t659, t664;
10781   double t667, t670, t671, t672, t673, t674, t676, t681;
10782   double t684, t686, t689, t690, t691, t697, t698, t699;
10783   double t702, t703, t709, t710, t716, t719, t720, t722;
10784   double t728, t729, t730, t731, t734, t737, t738, t741;
10785   double t742, t743, t745, t747, t749, t754, t759, t762;
10786   double t765, t766, t767, t768, t769, t771, t776, t779;
10787   double t781, t784, t785, t786, t792, t793, t794, t797;
10788   double t798, t804, t805, t811, t814, t815, t817, t823;
10789   double t824, t825, t826, t829, t832, t833, t836, t837;
10790   double t838, t840, t842, t844, t845, t846, t847, t852;
10791   double t854, t855, t857, t858, t860, t862, t865, t866;
10792   double t867, t873, t874, t875, t878, t879, t881, t882;
10793   double t884, t887, t888, t893, t895, t896, t897, t900;
10794   double t901, t902, t905, t908, t909, t913, t918, t920;
10795   double t921, t923, t924, t926, t928, t931, t932, t933;
10796   double t939, t940, t941, t944, t945, t947, t948, t950;
10797   double t953, t954, t959, t961, t962, t963, t966, t967;
10798   double t968, t971, t974, t975;
10799 
10800 #ifndef XC_DONT_COMPILE_FXC
10801   double t979, t982, t983, t984, t985, t986, t987, t988;
10802   double t990, t991, t992, t994, t995, t996, t998, t999;
10803   double t1000, t1001, t1002, t1004, t1005, t1006, t1007, t1008;
10804   double t1009, t1010, t1011, t1013, t1014, t1016, t1017, t1019;
10805   double t1020, t1022, t1023, t1025, t1026, t1027, t1030, t1031;
10806   double t1032, t1036, t1037, t1038, t1040, t1042, t1043, t1047;
10807   double t1048, t1054, t1055, t1056, t1057, t1059, t1061, t1062;
10808   double t1065, t1067, t1070, t1077, t1078, t1081, t1082, t1083;
10809   double t1084, t1086, t1088, t1090, t1091, t1092, t1095, t1098;
10810   double t1099, t1102, t1105, t1106, t1107, t1108, t1109, t1110;
10811   double t1115, t1118, t1122, t1123, t1124, t1125, t1128, t1131;
10812   double t1132, t1133, t1136, t1137, t1138, t1139, t1142, t1143;
10813   double t1144, t1147, t1148, t1149, t1150, t1151, t1152, t1153;
10814   double t1154, t1155, t1158, t1159, t1160, t1163, t1164, t1165;
10815   double t1166, t1169, t1170, t1171, t1174, t1177, t1178, t1180;
10816   double t1191, t1193, t1195, t1196, t1197, t1203, t1204, t1207;
10817   double t1210, t1211, t1217, t1218, t1220, t1223, t1226, t1229;
10818   double t1232, t1235, t1236, t1239, t1240, t1241, t1244, t1247;
10819   double t1248, t1249, t1250, t1252, t1253, t1254, t1255, t1258;
10820   double t1259, t1262, t1263, t1264, t1265, t1266, t1270, t1273;
10821   double t1274, t1276, t1277, t1279, t1280, t1281, t1284, t1286;
10822   double t1288, t1289, t1290, t1291, t1293, t1294, t1295, t1296;
10823   double t1297, t1298, t1299, t1301, t1302, t1303, t1304, t1305;
10824   double t1306, t1307, t1308, t1309, t1310, t1312, t1313, t1314;
10825   double t1316, t1317, t1318, t1319, t1321, t1322, t1323, t1325;
10826   double t1326, t1327, t1329, t1331, t1334, t1337, t1339, t1341;
10827   double t1342, t1345, t1346, t1347, t1349, t1354, t1356, t1359;
10828   double t1361, t1362, t1364, t1367, t1369, t1372, t1374, t1375;
10829   double t1376, t1377, t1379, t1380, t1383, t1384, t1386, t1390;
10830   double t1391, t1393, t1394, t1395, t1396, t1397, t1399, t1400;
10831   double t1401, t1402, t1404, t1405, t1406, t1408, t1409, t1411;
10832   double t1412, t1413, t1414, t1415, t1417, t1418, t1419, t1420;
10833   double t1423, t1424, t1425, t1429, t1430, t1431, t1433, t1435;
10834   double t1436, t1440, t1441, t1446, t1447, t1448, t1450, t1452;
10835   double t1453, t1456, t1458, t1461, t1468, t1469, t1472, t1473;
10836   double t1474, t1475, t1477, t1479, t1481, t1482, t1483, t1486;
10837   double t1489, t1490, t1493, t1496, t1497, t1498, t1499, t1500;
10838   double t1501, t1506, t1509, t1513, t1514, t1515, t1516, t1519;
10839   double t1522, t1523, t1524, t1527, t1528, t1529, t1530, t1533;
10840   double t1534, t1535, t1538, t1539, t1540, t1541, t1542, t1543;
10841   double t1544, t1545, t1546, t1549, t1550, t1551, t1554, t1555;
10842   double t1556, t1557, t1560, t1561, t1562, t1565, t1568, t1569;
10843   double t1571, t1582, t1584, t1586, t1587, t1588, t1594, t1595;
10844   double t1598, t1601, t1602, t1608, t1609, t1611, t1614, t1617;
10845   double t1620, t1623, t1626, t1627, t1630, t1631, t1632, t1635;
10846   double t1638, t1639, t1640, t1641, t1643, t1644, t1645, t1646;
10847   double t1649, t1650, t1653, t1654, t1655, t1659, t1662, t1663;
10848   double t1665, t1666, t1668, t1669, t1670, t1673, t1675, t1677;
10849   double t1678, t1679, t1680, t1682, t1683, t1684, t1685, t1686;
10850   double t1687, t1688, t1690, t1691, t1692, t1693, t1694, t1696;
10851   double t1698, t1699, t1701, t1702, t1703, t1706, t1715, t1716;
10852   double t1718, t1719, t1720, t1725, t1728, t1731, t1732, t1733;
10853   double t1734, t1735, t1737, t1742, t1745, t1748, t1751, t1754;
10854   double t1755, t1758, t1759, t1764, t1767, t1771, t1772, t1773;
10855   double t1774, t1777, t1780, t1781, t1784, t1787, t1790, t1791;
10856   double t1794, t1795, t1796, t1799, t1802, t1803, t1806, t1807;
10857   double t1808, t1811, t1814, t1817, t1818, t1821, t1825, t1835;
10858   double t1836, t1837, t1839, t1840, t1841, t1847, t1848, t1851;
10859   double t1852, t1853, t1859, t1860, t1863, t1866, t1867, t1869;
10860   double t1871, t1873, t1876, t1879, t1880, t1884, t1887, t1888;
10861   double t1889, t1892, t1893, t1894, t1897, t1898, t1901, t1902;
10862   double t1906, t1909, t1910, t1912, t1913, t1915, t1916, t1917;
10863   double t1919, t1920, t1921, t1922, t1923, t1924, t1925, t1926;
10864   double t1927, t1928, t1929, t1930, t1931, t1932, t1933, t1935;
10865   double t1936, t1937, t1938, t1939, t1940, t1942, t1943, t1944;
10866   double t1947, t1949, t1950, t1952, t1953, t1955, t1956, t1957;
10867   double t1958, t1959, t1963, t1964, t1966, t1967, t1968, t1972;
10868   double t1973, t1974, t1977, t1986, t1987, t1989, t1990, t1991;
10869   double t1996, t1999, t2002, t2003, t2004, t2005, t2006, t2008;
10870   double t2013, t2016, t2019, t2022, t2025, t2026, t2029, t2030;
10871   double t2035, t2038, t2042, t2043, t2044, t2045, t2048, t2051;
10872   double t2052, t2055, t2058, t2061, t2062, t2065, t2066, t2067;
10873   double t2070, t2073, t2074, t2077, t2078, t2079, t2082, t2085;
10874   double t2088, t2089, t2092, t2096, t2106, t2107, t2108, t2110;
10875   double t2111, t2112, t2118, t2119, t2122, t2123, t2124, t2130;
10876   double t2131, t2134, t2137, t2138, t2140, t2142, t2144, t2147;
10877   double t2150, t2151, t2155, t2158, t2159, t2160, t2163, t2164;
10878   double t2165, t2168, t2169, t2172, t2173, t2177, t2180, t2181;
10879   double t2183, t2184, t2186, t2187, t2188, t2190, t2191, t2192;
10880   double t2193, t2194, t2195, t2196, t2197, t2198, t2199, t2200;
10881   double t2201, t2202, t2204, t2205, t2206, t2207, t2208, t2209;
10882   double t2211, t2212, t2213, t2217, t2219, t2220, t2221, t2225;
10883   double t2226, t2227, t2230, t2235, t2236, t2237, t2239, t2243;
10884   double t2244, t2245, t2248, t2250, t2251, t2252, t2255, t2256;
10885   double t2258, t2262, t2263, t2266, t2269, t2270, t2273, t2276;
10886   double t2279, t2280, t2283, t2290, t2291, t2294, t2295, t2296;
10887   double t2299, t2302, t2305, t2309, t2322, t2323, t2324, t2326;
10888   double t2327, t2328, t2330, t2331, t2334, t2335, t2336, t2339;
10889   double t2342, t2345, t2346, t2353, t2356, t2358, t2359, t2362;
10890   double t2365, t2366, t2367, t2370, t2373, t2374, t2375, t2378;
10891   double t2379, t2382, t2385, t2386, t2390, t2393, t2394, t2398;
10892   double t2399, t2401, t2405, t2406, t2410, t2414, t2417, t2418;
10893   double t2419, t2422, t2427, t2428, t2429, t2431, t2435, t2436;
10894   double t2437, t2440, t2442, t2443, t2444, t2447, t2448, t2450;
10895   double t2454, t2455, t2458, t2461, t2462, t2465, t2468, t2471;
10896   double t2472, t2475, t2482, t2483, t2486, t2487, t2488, t2491;
10897   double t2494, t2497, t2501, t2514, t2515, t2516, t2518, t2519;
10898   double t2520, t2522, t2523, t2526, t2527, t2528, t2531, t2534;
10899   double t2537, t2538, t2545, t2548, t2550, t2551, t2554, t2557;
10900   double t2558, t2559, t2562, t2565, t2566, t2567, t2570, t2571;
10901   double t2574, t2577, t2578, t2582, t2585, t2587, t2590, t2591;
10902   double t2594, t2595, t2598, t2602, t2606, t2608, t2609, t2610;
10903   double t2613, t2616, t2619, t2622, t2627, t2632, t2635, t2639;
10904   double t2640, t2643, t2646, t2653, t2654, t2655, t2658, t2659;
10905   double t2662, t2663, t2666, t2667, t2668, t2671, t2674, t2675;
10906   double t2676, t2687, t2688, t2689, t2691, t2692, t2693, t2695;
10907   double t2696, t2699, t2700, t2704, t2710, t2713, t2714, t2716;
10908   double t2719, t2721, t2730, t2732, t2733, t2735, t2736, t2739;
10909   double t2745, t2748, t2749, t2752, t2754, t2755, t2756, t2758;
10910   double t2760, t2761, t2763, t2765, t2767, t2768, t2770, t2772;
10911   double t2774, t2775, t2778, t2782, t2786, t2788, t2789, t2790;
10912   double t2793, t2796, t2799, t2802, t2807, t2812, t2815, t2819;
10913   double t2820, t2823, t2826, t2833, t2834, t2835, t2838, t2839;
10914   double t2842, t2843, t2846, t2847, t2848, t2851, t2854, t2855;
10915   double t2856, t2867, t2868, t2869, t2871, t2872, t2873, t2875;
10916   double t2876, t2879, t2880, t2884, t2890, t2893, t2894, t2896;
10917   double t2899, t2901, t2910, t2912, t2913, t2915, t2916, t2919;
10918   double t2925, t2928, t2929, t2932, t2934, t2935, t2936, t2938;
10919   double t2940, t2941, t2943, t2945, t2947, t2948, t2950, t2952;
10920   double t2954, t2957, t2962, t2967, t2970, t2971, t2973, t2976;
10921   double t2977, t2978, t2979, t2980, t2982, t2986, t2989, t2992;
10922   double t3001, t3008, t3011, t3012, t3013, t3016, t3027, t3037;
10923   double t3038, t3039, t3041, t3042, t3043, t3045, t3046, t3049;
10924   double t3052, t3057, t3058, t3065, t3068, t3070, t3073, t3076;
10925   double t3080, t3083, t3084, t3085, t3090, t3096, t3099, t3101;
10926   double t3106, t3109, t3114, t3119, t3122, t3123, t3125, t3128;
10927   double t3129, t3130, t3131, t3132, t3134, t3138, t3141, t3144;
10928   double t3153, t3160, t3163, t3164, t3165, t3168, t3179, t3189;
10929   double t3190, t3191, t3193, t3194, t3195, t3197, t3198, t3201;
10930   double t3204, t3209, t3210, t3217, t3220, t3222, t3225, t3228;
10931   double t3232, t3235, t3236, t3237, t3242, t3248, t3251, t3253;
10932   double t3258, t3259, t3263, t3271, t3272, t3275, t3277, t3278;
10933   double t3281, t3285, t3286, t3289, t3292, t3299, t3300, t3301;
10934   double t3304, t3308, t3309, t3312, t3313, t3314, t3317, t3320;
10935   double t3321, t3322, t3333, t3334, t3335, t3337, t3338, t3339;
10936   double t3341, t3342, t3345, t3346, t3347, t3353, t3356, t3357;
10937   double t3365, t3369, t3370, t3373, t3376, t3378, t3379, t3381;
10938   double t3385, t3388, t3392, t3395, t3397, t3400, t3401, t3405;
10939   double t3413, t3414, t3417, t3419, t3420, t3423, t3427, t3428;
10940   double t3431, t3434, t3441, t3442, t3443, t3446, t3450, t3451;
10941   double t3454, t3455, t3456, t3459, t3462, t3463, t3464, t3475;
10942   double t3476, t3477, t3479, t3480, t3481, t3483, t3484, t3487;
10943   double t3488, t3489, t3495, t3498, t3499, t3507, t3511, t3512;
10944   double t3515, t3518, t3520, t3521, t3523, t3527, t3530, t3534;
10945   double t3537, t3539;
10946 
10947 #ifndef XC_DONT_COMPILE_KXC
10948   double t3543, t3546, t3547, t3548, t3549, t3550, t3552, t3554;
10949   double t3555, t3556, t3557, t3559, t3563, t3565, t3566, t3568;
10950   double t3569, t3570, t3571, t3573, t3574, t3575, t3576, t3577;
10951   double t3578, t3580, t3581, t3582, t3583, t3584, t3585, t3586;
10952   double t3588, t3589, t3590, t3591, t3592, t3593, t3594, t3596;
10953   double t3598, t3599, t3602, t3603, t3605, t3606, t3607, t3608;
10954   double t3610, t3611, t3612, t3613, t3614, t3615, t3617, t3619;
10955   double t3620, t3624, t3630, t3633, t3634, t3638, t3639, t3643;
10956   double t3645, t3647, t3650, t3651, t3652, t3653, t3654, t3658;
10957   double t3659, t3664, t3667, t3674, t3675, t3678, t3679, t3680;
10958   double t3681, t3683, t3686, t3693, t3694, t3695, t3698, t3703;
10959   double t3704, t3707, t3708, t3711, t3716, t3720, t3721, t3722;
10960   double t3723, t3726, t3731, t3734, t3741, t3742, t3743, t3747;
10961   double t3750, t3753, t3754, t3755, t3757, t3758, t3759, t3766;
10962   double t3767, t3768, t3771, t3772, t3773, t3776, t3779, t3783;
10963   double t3786, t3787, t3790, t3793, t3794, t3795, t3798, t3799;
10964   double t3802, t3803, t3806, t3807, t3808, t3811, t3814, t3815;
10965   double t3819, t3822, t3823, t3824, t3827, t3830, t3833, t3834;
10966   double t3837, t3840, t3841, t3842, t3845, t3849, t3852, t3853;
10967   double t3856, t3857, t3858, t3861, t3862, t3863, t3864, t3867;
10968   double t3870, t3874, t3875, t3879, t3880, t3887, t3888, t3889;
10969   double t3892, t3897, t3914, t3918, t3920, t3921, t3927, t3928;
10970   double t3934, t3935, t3936, t3939, t3940, t3949, t3950, t3951;
10971   double t3954, t3957, t3966, t3969, t3972, t3975, t3976, t3979;
10972   double t3980, t3983, t3986, t3991, t3994, t3995, t3998, t3999;
10973   double t4000, t4003, t4004, t4005, t4008, t4009, t4017, t4019;
10974   double t4020, t4024, t4027, t4028, t4030, t4031, t4032, t4034;
10975   double t4035, t4037, t4038, t4039, t4040, t4041, t4043, t4045;
10976   double t4046, t4047, t4049, t4050, t4052, t4053, t4054, t4055;
10977   double t4056, t4057, t4059, t4061, t4062, t4063, t4064, t4065;
10978   double t4066, t4068, t4069, t4070, t4072, t4073, t4075, t4077;
10979   double t4079, t4080, t4082, t4083, t4084, t4086, t4088, t4089;
10980   double t4090, t4091, t4092, t4094, t4095, t4097, t4099, t4101;
10981   double t4102, t4104, t4106, t4107, t4108, t4109, t4111, t4112;
10982   double t4114, t4115, t4116, t4117, t4118, t4119, t4120, t4122;
10983   double t4123, t4124, t4126, t4127, t4128, t4129, t4130, t4132;
10984   double t4133, t4135, t4136, t4138, t4140, t4142, t4143, t4145;
10985   double t4146, t4147, t4148, t4149, t4151, t4152, t4154, t4156;
10986   double t4158, t4159, t4160, t4171, t4173, t4180, t4182, t4183;
10987   double t4185, t4186, t4188, t4190, t4193, t4195, t4197, t4203;
10988   double t4204, t4206, t4209, t4212, t4214, t4216, t4218, t4220;
10989   double t4223, t4225, t4226, t4228, t4229, t4230, t4234, t4235;
10990   double t4237, t4238, t4239, t4241, t4242, t4244, t4245, t4246;
10991   double t4247, t4249, t4250, t4252, t4253, t4254, t4255, t4257;
10992   double t4259, t4262, t4263, t4265, t4268, t4270, t4272, t4273;
10993   double t4274, t4276, t4278, t4279, t4280, t4281, t4282, t4283;
10994   double t4284, t4286, t4288, t4289, t4291, t4293, t4296, t4297;
10995   double t4306, t4308, t4310, t4312, t4315, t4316, t4317, t4319;
10996   double t4322, t4323, t4324, t4326, t4328, t4330, t4332, t4334;
10997   double t4336, t4341, t4345, t4347, t4351, t4352, t4353, t4355;
10998   double t4357, t4358, t4359, t4360, t4361, t4362, t4363, t4367;
10999   double t4369, t4371, t4373, t4375, t4377, t4381, t4382, t4384;
11000   double t4386, t4387, t4391, t4394, t4397, t4400, t4403, t4408;
11001   double t4411, t4412, t4414, t4416, t4417, t4418, t4419, t4420;
11002   double t4423, t4425, t4427, t4429, t4431, t4433, t4435, t4437;
11003   double t4439, t4441, t4443, t4446, t4447, t4449, t4451, t4453;
11004   double t4454, t4456, t4459, t4463, t4464, t4466, t4468, t4469;
11005   double t4470, t4472, t4473, t4475, t4476, t4477, t4479, t4481;
11006   double t4482, t4484, t4486, t4487, t4489, t4493, t4495, t4501;
11007   double t4507, t4509, t4511, t4512, t4513, t4515, t4519, t4521;
11008   double t4522, t4524, t4525, t4526, t4527, t4529, t4530, t4531;
11009   double t4532, t4533, t4534, t4536, t4537, t4538, t4539, t4541;
11010   double t4542, t4543, t4544, t4545, t4546, t4548, t4549, t4550;
11011   double t4552, t4553, t4554, t4556, t4559, t4564, t4566, t4567;
11012   double t4571, t4578, t4579, t4580, t4583, t4584, t4588, t4589;
11013   double t4593, t4595, t4597, t4600, t4601, t4602, t4606, t4607;
11014   double t4612, t4615, t4622, t4623, t4626, t4627, t4628, t4629;
11015   double t4631, t4634, t4641, t4642, t4643, t4646, t4651, t4652;
11016   double t4655, t4656, t4659, t4664, t4668, t4669, t4670, t4671;
11017   double t4674, t4679, t4682, t4688, t4689, t4693, t4694, t4695;
11018   double t4699, t4700, t4701, t4705, t4706, t4707, t4708, t4712;
11019   double t4715, t4718, t4719, t4722, t4723, t4726, t4727, t4728;
11020   double t4731, t4735, t4736, t4737, t4741, t4742, t4745, t4752;
11021   double t4755, t4756, t4757, t4761, t4762, t4763, t4766, t4767;
11022   double t4770, t4773, t4774, t4777, t4780, t4781, t4784, t4785;
11023   double t4786, t4787, t4790, t4795, t4807, t4808, t4813, t4816;
11024   double t4820, t4823, t4824, t4825, t4828, t4831, t4838, t4839;
11025   double t4840, t4844, t4845, t4848, t4849, t4850, t4853, t4854;
11026   double t4857, t4863, t4866, t4868, t4869, t4875, t4876, t4882;
11027   double t4883, t4884, t4887, t4888, t4897, t4898, t4899, t4902;
11028   double t4905, t4914, t4917, t4920, t4923, t4924, t4927, t4928;
11029   double t4931, t4934, t4939, t4942, t4943, t4946, t4947, t4948;
11030   double t4951, t4952, t4953, t4956, t4957, t4965, t4966, t4970;
11031   double t4973, t4974, t4976, t4977, t4978, t4981, t4982, t4984;
11032   double t4985, t4987, t4988, t4989, t4990, t4992, t4993, t4995;
11033   double t4996, t4998, t4999, t5000, t5001, t5003, t5004, t5005;
11034   double t5006, t5008, t5009, t5011, t5012, t5013, t5014, t5016;
11035   double t5017, t5018, t5019, t5020, t5022, t5023, t5024, t5025;
11036   double t5026, t5027, t5028, t5029, t5030, t5031, t5033, t5035;
11037   double t5036, t5037, t5039, t5040, t5041, t5042, t5044, t5046;
11038   double t5047, t5049, t5050, t5051, t5052, t5055, t5067, t5071;
11039   double t5077, t5078, t5079, t5080, t5081, t5083, t5084, t5085;
11040   double t5086, t5087, t5088, t5089, t5091, t5093, t5094, t5095;
11041   double t5096, t5098, t5099, t5100, t5101, t5102, t5103, t5104;
11042   double t5105, t5106, t5108, t5109, t5110, t5111, t5112, t5113;
11043   double t5114, t5115, t5116, t5117, t5118, t5119, t5120, t5121;
11044   double t5123, t5124, t5125, t5126, t5127, t5129, t5130, t5131;
11045   double t5132, t5133, t5134, t5136, t5137, t5138, t5139, t5141;
11046   double t5142, t5143, t5144, t5145, t5146, t5147, t5149, t5150;
11047   double t5151, t5153, t5154, t5158, t5167, t5172, t5178, t5183;
11048   double t5192, t5195, t5196, t5197, t5198, t5199, t5201, t5203;
11049   double t5213, t5216, t5219, t5222, t5225, t5226, t5231, t5234;
11050   double t5239, t5244, t5245, t5252, t5255, t5256, t5259, t5260;
11051   double t5265, t5268, t5276, t5280, t5284, t5285, t5288, t5291;
11052   double t5294, t5295, t5298, t5299, t5302, t5303, t5306, t5309;
11053   double t5312, t5313, t5314, t5317, t5318, t5319, t5320, t5326;
11054   double t5329, t5334, t5335, t5336, t5339, t5340, t5343, t5344;
11055   double t5347, t5348, t5351, t5354, t5355, t5356, t5359, t5362;
11056   double t5367, t5374, t5375, t5382, t5385, t5387, t5388, t5389;
11057   double t5390, t5393, t5394, t5399, t5406, t5409, t5410, t5413;
11058   double t5416, t5419, t5422, t5423, t5426, t5427, t5428, t5431;
11059   double t5434, t5440, t5441, t5442, t5445, t5454, t5470, t5472;
11060   double t5476, t5485, t5486, t5489, t5494, t5495, t5498, t5499;
11061   double t5504, t5508, t5513, t5514, t5517, t5520, t5521, t5527;
11062   double t5528, t5531, t5534, t5535, t5538, t5539, t5542, t5544;
11063   double t5550, t5553, t5556, t5559, t5562, t5563, t5565, t5568;
11064   double t5578, t5581, t5588, t5589, t5594, t5595, t5601, t5604;
11065   double t5609, t5614, t5615, t5616, t5619, t5626, t5627, t5631;
11066   double t5639, t5642, t5643, t5645, t5646, t5648, t5649, t5651;
11067   double t5652, t5653, t5654, t5655, t5657, t5658, t5659, t5661;
11068   double t5662, t5663, t5664, t5665, t5666, t5667, t5668, t5669;
11069   double t5670, t5672, t5673, t5674, t5675, t5677, t5678, t5679;
11070   double t5681, t5682, t5683, t5684, t5685, t5687, t5688, t5689;
11071   double t5691, t5692, t5695, t5697, t5699, t5700, t5701, t5703;
11072   double t5704, t5706, t5707, t5709, t5710, t5712, t5713, t5714;
11073   double t5715, t5716, t5718, t5719, t5720, t5721, t5722, t5726;
11074   double t5729, t5732, t5734, t5736, t5738, t5743, t5744, t5745;
11075   double t5746, t5747, t5749, t5751, t5752, t5755, t5756, t5759;
11076   double t5760, t5762, t5763, t5766, t5767, t5774, t5778, t5781;
11077   double t5783, t5785, t5788, t5790, t5793, t5795, t5796, t5797;
11078   double t5800, t5801, t5803, t5804, t5805, t5806, t5807, t5809;
11079   double t5811, t5813, t5814, t5817, t5819, t5821, t5823, t5824;
11080   double t5826, t5827, t5830, t5831, t5833, t5836, t5837, t5838;
11081   double t5840, t5842, t5847, t5848, t5849, t5851, t5852, t5854;
11082   double t5855, t5856, t5857, t5859, t5860, t5861, t5871, t5872;
11083   double t5873, t5874, t5875, t5876, t5877, t5878, t5879, t5880;
11084   double t5882, t5883, t5884, t5885, t5886, t5888, t5889, t5890;
11085   double t5891, t5893, t5894, t5895, t5896, t5897, t5898, t5899;
11086   double t5900, t5901, t5903, t5904, t5905, t5906, t5908, t5909;
11087   double t5910, t5911, t5912, t5913, t5914, t5915, t5916, t5917;
11088   double t5919, t5920, t5921, t5922, t5923, t5924, t5926, t5927;
11089   double t5928, t5932, t5941, t5946, t5952, t5957, t5966, t5969;
11090   double t5970, t5971, t5972, t5973, t5975, t5977, t5987, t5990;
11091   double t5993, t5996, t5999, t6000, t6005, t6008, t6013, t6018;
11092   double t6019, t6026, t6029, t6030, t6033, t6034, t6039, t6042;
11093   double t6050, t6056, t6057, t6060, t6065, t6069, t6070, t6075;
11094   double t6076, t6081, t6086, t6089, t6090, t6091, t6092, t6095;
11095   double t6100, t6101, t6102, t6105, t6106, t6109, t6110, t6113;
11096   double t6116, t6117, t6118, t6123, t6124, t6127, t6128, t6131;
11097   double t6136, t6141, t6150, t6152, t6153, t6155, t6156, t6158;
11098   double t6160, t6161, t6162, t6164, t6165, t6167, t6169, t6170;
11099   double t6172, t6178, t6179, t6184, t6187, t6191, t6194, t6197;
11100   double t6203, t6206, t6212, t6215, t6216, t6217, t6218, t6221;
11101   double t6222, t6225, t6232, t6233, t6238, t6242, t6247, t6256;
11102   double t6257, t6260, t6263, t6270, t6273, t6274, t6277, t6282;
11103   double t6283, t6288, t6291, t6294, t6295, t6301, t6302, t6305;
11104   double t6308, t6309, t6312, t6313, t6316, t6318, t6324, t6327;
11105   double t6330, t6333, t6336, t6337, t6339, t6342, t6352, t6355;
11106   double t6362, t6363, t6368, t6369, t6375, t6378, t6383, t6388;
11107   double t6389, t6390, t6393, t6400, t6401, t6405, t6413, t6416;
11108   double t6417, t6419, t6420, t6421, t6423, t6424, t6426, t6427;
11109   double t6429, t6431, t6432, t6433, t6435, t6436, t6437, t6438;
11110   double t6439, t6441, t6442, t6443, t6444, t6445, t6446, t6447;
11111   double t6448, t6449, t6451, t6452, t6453, t6454, t6455, t6457;
11112   double t6458, t6459, t6460, t6461, t6462, t6465, t6467, t6471;
11113   double t6473, t6475, t6476, t6478, t6482, t6485, t6486, t6492;
11114   double t6493, t6496, t6499, t6500, t6503, t6504, t6507, t6510;
11115   double t6514, t6521, t6525, t6528, t6531, t6532, t6535, t6536;
11116   double t6537, t6540, t6543, t6546, t6549, t6550, t6554, t6555;
11117   double t6558, t6560, t6563, t6564, t6565, t6566, t6573, t6577;
11118   double t6579, t6580, t6581, t6582, t6585, t6588, t6589, t6599;
11119   double t6602, t6607, t6610, t6615, t6618, t6620, t6621, t6623;
11120   double t6624, t6626, t6628, t6629, t6630, t6632, t6633, t6635;
11121   double t6637, t6638, t6640, t6648, t6652, t6653, t6656, t6658;
11122   double t6661, t6664, t6668, t6671, t6681, t6688, t6689, t6696;
11123   double t6701, t6708, t6717, t6720, t6725, t6728, t6733, t6735;
11124   double t6741, t6742, t6750, t6751, t6754, t6755, t6778, t6791;
11125   double t6794, t6797, t6800, t6803, t6806, t6823, t6826, t6827;
11126   double t6829, t6830, t6833, t6836, t6839, t6842, t6843, t6844;
11127   double t6850, t6855, t6858, t6859, t6878, t6880, t6883, t6884;
11128   double t6887, t6890, t6893, t6894, t6899, t6902, t6903, t6906;
11129   double t6907, t6910, t6913, t6918, t6923, t6927, t6930, t6931;
11130   double t6936, t6939, t6940, t6945, t6946, t6950, t6953, t6954;
11131   double t6959, t6966, t6967, t6968, t6970, t6973, t6975, t6979;
11132   double t6980, t6990, t6991, t6992, t6994, t6997, t7002, t7003;
11133   double t7004, t7008, t7010, t7013, t7016, t7017, t7019, t7020;
11134   double t7024, t7025, t7026, t7028, t7029, t7033, t7036, t7041;
11135   double t7044, t7048, t7051, t7052, t7055, t7058, t7059, t7062;
11136   double t7063, t7066, t7069, t7073, t7080, t7083, t7086, t7087;
11137   double t7090, t7091, t7092, t7095, t7096, t7099, t7101, t7104;
11138   double t7105, t7106, t7107, t7115, t7118, t7121, t7122, t7125;
11139   double t7128, t7131, t7132, t7133, t7134, t7137, t7141, t7143;
11140   double t7147, t7148, t7158, t7161, t7166, t7169, t7174, t7177;
11141   double t7179, t7180, t7182, t7183, t7185, t7187, t7188, t7189;
11142   double t7191, t7192, t7194, t7196, t7197, t7199, t7203, t7209;
11143   double t7212, t7213, t7216, t7219, t7222, t7224, t7227, t7230;
11144   double t7237, t7246, t7249, t7260, t7268, t7269, t7277, t7282;
11145   double t7287, t7290, t7296, t7299, t7300, t7313, t7328, t7335;
11146   double t7336, t7337, t7340, t7343, t7346, t7355, t7358, t7365;
11147   double t7382, t7385, t7386, t7388, t7389, t7392, t7395, t7398;
11148   double t7401, t7402, t7403, t7409, t7414, t7417, t7418, t7437;
11149   double t7439, t7442, t7443, t7446, t7449, t7452, t7453, t7458;
11150   double t7461, t7462, t7465, t7466, t7469, t7472, t7477, t7482;
11151   double t7486, t7489, t7490, t7495, t7498, t7499, t7504, t7505;
11152   double t7509, t7512, t7514, t7517, t7518, t7525, t7526, t7527;
11153   double t7529, t7532, t7533, t7534, t7536, t7537, t7538, t7539;
11154   double t7541, t7542, t7543, t7544, t7545, t7546, t7547, t7549;
11155   double t7550, t7551, t7552, t7553, t7555, t7556, t7557, t7558;
11156   double t7560, t7561, t7562, t7563, t7565, t7566, t7567, t7569;
11157   double t7570, t7571, t7572, t7573, t7574, t7575, t7577, t7578;
11158   double t7579, t7580, t7582, t7583, t7584, t7585, t7586, t7587;
11159   double t7588, t7590, t7591, t7592, t7593, t7594, t7595, t7597;
11160   double t7598, t7599, t7600, t7601, t7602, t7603, t7604, t7605;
11161   double t7606, t7607, t7609, t7610, t7611, t7612, t7614, t7615;
11162   double t7616, t7617, t7618, t7620, t7621, t7622, t7629, t7632;
11163   double t7638, t7644, t7645, t7649, t7657, t7659, t7661, t7669;
11164   double t7672, t7677, t7682, t7683, t7696, t7697, t7700, t7710;
11165   double t7713, t7721, t7722, t7725, t7729, t7732, t7735, t7738;
11166   double t7741, t7742, t7745, t7746, t7749, t7753, t7754, t7759;
11167   double t7760, t7767, t7770, t7771, t7772, t7775, t7778, t7781;
11168   double t7784, t7785, t7793, t7794, t7797, t7800, t7803, t7806;
11169   double t7807, t7810, t7817, t7818, t7821, t7822, t7826, t7828;
11170   double t7831, t7832, t7837, t7840, t7841, t7850, t7851, t7854;
11171   double t7857, t7858, t7861, t7864, t7867, t7870, t7873, t7876;
11172   double t7877, t7878, t7881, t7889, t7909, t7910, t7914, t7918;
11173   double t7919, t7922, t7927, t7930, t7931, t7934, t7935, t7938;
11174   double t7939, t7944, t7947, t7948, t7955, t7958, t7959, t7961;
11175   double t7962, t7965, t7968, t7972, t7973, t7976, t7977, t7984;
11176   double t7987, t7990, t7993, t7996, t7997, t7999, t8004, t8007;
11177   double t8012, t8014, t8029, t8036, t8045, t8046, t8049, t8050;
11178   double t8056, t8059, t8062, t8063, t8071, t8074, t8075, t8077;
11179   double t8078, t8079, t8082, t8084, t8085, t8087, t8088, t8089;
11180   double t8090, t8091, t8092, t8094, t8095, t8096, t8097, t8098;
11181   double t8100, t8101, t8102, t8103, t8104, t8106, t8107, t8108;
11182   double t8109, t8110, t8111, t8115, t8116, t8117, t8118, t8120;
11183   double t8121, t8122, t8124, t8125, t8126, t8127, t8128, t8129;
11184   double t8132, t8134, t8135, t8136, t8137, t8139, t8140, t8141;
11185   double t8142, t8143, t8144, t8145, t8146, t8147, t8149, t8150;
11186   double t8151, t8152, t8154, t8155, t8156, t8157, t8158, t8159;
11187   double t8161, t8162, t8163, t8164, t8166, t8167, t8169, t8170;
11188   double t8171, t8172, t8174, t8175, t8176, t8177, t8178, t8179;
11189   double t8180, t8181, t8182, t8183, t8185, t8186, t8187, t8188;
11190   double t8189, t8190, t8191, t8192, t8193, t8195, t8196, t8197;
11191   double t8198, t8199, t8201, t8202, t8203, t8204, t8206, t8207;
11192   double t8208, t8215, t8218, t8224, t8230, t8231, t8235, t8243;
11193   double t8245, t8247, t8255, t8258, t8263, t8268, t8269, t8282;
11194   double t8283, t8286, t8296, t8299, t8307, t8308, t8315, t8324;
11195   double t8325, t8333, t8336, t8339, t8342, t8345, t8350, t8353;
11196   double t8355, t8357, t8358, t8360, t8361, t8363, t8364, t8365;
11197   double t8367, t8368, t8370, t8372, t8373, t8375, t8379, t8380;
11198   double t8383, t8386, t8393, t8394, t8397, t8400, t8407, t8410;
11199   double t8419, t8422, t8425, t8426, t8429, t8430, t8433, t8436;
11200   double t8439, t8442, t8444, t8447, t8451, t8458, t8461, t8464;
11201   double t8465, t8472, t8475, t8476, t8483, t8487, t8490, t8491;
11202   double t8496, t8499, t8506, t8507, t8510, t8511, t8515, t8516;
11203   double t8524, t8527, t8530, t8531, t8534, t8535, t8538, t8541;
11204   double t8544, t8545, t8547, t8548, t8551, t8554, t8558, t8559;
11205   double t8562, t8563, t8570, t8573, t8576, t8579, t8582, t8583;
11206   double t8585, t8590, t8593, t8598, t8600, t8615, t8622, t8631;
11207   double t8632, t8635, t8636, t8642, t8645, t8648, t8649, t8657;
11208   double t8660, t8661, t8663, t8664, t8665, t8669, t8670, t8671;
11209   double t8674, t8675, t8680, t8683, t8686, t8689, t8692, t8696;
11210   double t8703, t8704, t8707, t8711, t8712, t8713, t8717, t8718;
11211   double t8721, t8722, t8723, t8726, t8729, t8732, t8734, t8737;
11212   double t8740, t8741, t8743, t8744, t8746, t8747, t8748, t8750;
11213   double t8751, t8755, t8760, t8763, t8767, t8774, t8777, t8779;
11214   double t8780, t8782, t8785, t8794, t8795, t8797, t8799, t8800;
11215   double t8808, t8809, t8812, t8813, t8828, t8829, t8830, t8836;
11216   double t8839, t8845, t8849, t8850, t8851, t8852, t8859, t8866;
11217   double t8867, t8870, t8871, t8874, t8876, t8877, t8878, t8883;
11218   double t8886, t8893, t8896, t8899, t8900, t8904, t8909, t8913;
11219   double t8916, t8917, t8922, t8929, t8937, t8941, t8944, t8947;
11220   double t8953, t8956, t8959, t8965, t8966, t8969, t8974, t8978;
11221   double t8981, t8982, t8985, t8988, t8989, t8992, t8993, t8999;
11222   double t9000, t9003, t9007, t9014, t9017, t9020, t9027, t9028;
11223   double t9042, t9043, t9046, t9047, t9050, t9053, t9074, t9077;
11224   double t9085, t9087, t9091, t9096, t9097, t9100, t9109, t9110;
11225   double t9121, t9122, t9125, t9129, t9130, t9132, t9133, t9136;
11226   double t9141, t9143, t9146, t9149, t9150, t9156, t9163, t9166;
11227   double t9167, t9174, t9175, t9190, t9192, t9197, t9199, t9204;
11228   double t9205, t9206, t9209, t9212, t9219, t9223, t9227, t9228;
11229   double t9233, t9234, t9237, t9240, t9244, t9246, t9250, t9252;
11230   double t9262, t9265, t9268, t9269, t9279, t9282, t9283, t9285;
11231   double t9288, t9289, t9293, t9298, t9300, t9301, t9306, t9308;
11232   double t9312, t9313, t9314, t9318, t9321, t9326, t9329, t9330;
11233   double t9335, t9338, t9341, t9344, t9347, t9351, t9358, t9359;
11234   double t9362, t9366, t9367, t9370, t9371, t9374, t9375, t9376;
11235   double t9379, t9385, t9386, t9391, t9394, t9396, t9401, t9404;
11236   double t9407, t9410, t9415, t9416, t9418, t9419, t9421, t9422;
11237   double t9423, t9425, t9428, t9429, t9434, t9435, t9437, t9439;
11238   double t9446, t9449, t9451, t9452, t9454, t9455, t9466, t9467;
11239   double t9470, t9471, t9474, t9475, t9492, t9494, t9501, t9506;
11240   double t9507, t9513, t9517, t9520, t9521, t9524, t9527, t9532;
11241   double t9540, t9541, t9544, t9545, t9548, t9549, t9550, t9553;
11242   double t9554, t9557, t9558, t9565, t9575, t9576, t9579, t9580;
11243   double t9581, t9585, t9593, t9600, t9603, t9606, t9615, t9618;
11244   double t9621, t9630, t9632, t9634, t9636, t9639, t9640, t9641;
11245   double t9643, t9644, t9646, t9648, t9650, t9652, t9658, t9663;
11246   double t9666, t9669, t9672, t9679, t9688, t9691, t9700, t9701;
11247   double t9702, t9713, t9721, t9722, t9728, t9729, t9732, t9733;
11248   double t9736, t9737, t9747, t9748, t9755, t9759, t9771, t9772;
11249   double t9777, t9780, t9784, t9785, t9787, t9788, t9791, t9796;
11250   double t9798, t9801, t9804, t9805, t9811, t9818, t9821, t9822;
11251   double t9829, t9830, t9845, t9847, t9852, t9854, t9859, t9860;
11252   double t9861, t9864, t9867, t9874, t9878, t9882, t9883, t9888;
11253   double t9889, t9892, t9895, t9899, t9901, t9905, t9907, t9917;
11254   double t9920, t9923, t9924, t9934, t9937, t9938, t9940, t9943;
11255   double t9944, t9951, t9953, t9954, t9959, t9961, t9964, t9966;
11256   double t9967, t9970, t9971, t9977, t9978, t9988, t9991, t9992;
11257   double t9995, t10000, t10006, t10011, t10018, t10019, t10020, t10023;
11258   double t10027, t10028, t10029, t10032, t10033, t10034, t10038, t10041;
11259   double t10044, t10045, t10051, t10056, t10057, t10061, t10062, t10073;
11260   double t10077, t10081, t10087, t10097, t10101, t10105, t10115, t10118;
11261   double t10121, t10122, t10126, t10127, t10130, t10133, t10136, t10145;
11262   double t10146, t10149, t10152, t10155, t10158, t10162, t10172, t10180;
11263   double t10183, t10184, t10185, t10188, t10189, t10192, t10200, t10201;
11264   double t10208, t10217, t10232, t10238, t10239, t10242, t10243, t10246;
11265   double t10249, t10250, t10254, t10255, t10258, t10259, t10269, t10272;
11266   double t10275, t10280, t10285, t10288, t10293, t10294, t10297, t10300;
11267   double t10301, t10303, t10304, t10307, t10310, t10316, t10322, t10328;
11268   double t10331, t10332, t10339, t10340, t10355, t10357, t10362, t10369;
11269   double t10370, t10371, t10375, t10380, t10381, t10384, t10387, t10396;
11270   double t10399, t10400, t10403, t10404, t10408, t10411, t10414, t10415;
11271   double t10420, t10421, t10425, t10428, t10430, t10433, t10434, t10437;
11272   double t10438, t10439, t10442, t10446, t10449, t10450, t10456, t10457;
11273   double t10467, t10470, t10471, t10474, t10479, t10485, t10490, t10497;
11274   double t10498, t10499, t10502, t10506, t10507, t10508, t10511, t10512;
11275   double t10513, t10517, t10520, t10523, t10524, t10530, t10535, t10536;
11276   double t10540, t10541, t10552, t10553, t10561, t10562, t10565, t10566;
11277   double t10569, t10572, t10575, t10578, t10585, t10586, t10596, t10601;
11278   double t10612, t10613, t10614, t10617, t10621, t10640, t10642, t10646;
11279   double t10650, t10653, t10654, t10660, t10661, t10664, t10668, t10671;
11280   double t10672, t10675, t10682, t10685, t10688, t10691, t10692, t10695;
11281   double t10696, t10699, t10700, t10703, t10710, t10713, t10716, t10723;
11282   double t10730, t10737, t10748, t10752, t10756, t10759, t10766, t10770;
11283   double t10775, t10778, t10779, t10781, t10782, t10785, t10788, t10794;
11284   double t10800, t10806, t10809, t10810, t10817, t10818, t10833, t10835;
11285   double t10840, t10847, t10848, t10849, t10853, t10858, t10859, t10862;
11286   double t10865, t10874, t10877, t10878, t10881, t10882, t10886, t10889;
11287   double t10892, t10893, t10898, t10899, t10903, t10906, t10908, t10911;
11288   double t10912, t10915, t10916, t10922, t10931, t10935, t10941, t10947;
11289   double t10950, t10959, t10964, t10967, t10976, t10977, t10978, t10983;
11290   double t10984, t10987, t11004, t11009, t11010, t11013, t11016, t11019;
11291   double t11020, t11023, t11026, t11027, t11028, t11031, t11034, t11037;
11292   double t11038, t11044, t11045, t11048, t11049, t11052, t11055, t11059;
11293   double t11064, t11069, t11083, t11084, t11085, t11089, t11107, t11109;
11294   double t11110, t11112, t11113, t11118, t11119, t11129, t11130, t11133;
11295   double t11136, t11137, t11139, t11142, t11145, t11149, t11152, t11156;
11296   double t11157, t11158, t11161, t11168, t11170, t11173, t11176, t11179;
11297   double t11180, t11185, t11193, t11196, t11197, t11200, t11202, t11204;
11298   double t11206, t11207, t11209, t11211, t11213, t11214, t11216, t11217;
11299   double t11219, t11221, t11223, t11224, t11225, t11226, t11228, t11229;
11300   double t11231, t11233, t11234, t11236, t11238, t11239, t11241, t11244;
11301   double t11245, t11246, t11247, t11253, t11262, t11266, t11272, t11278;
11302   double t11281, t11290, t11295, t11298, t11307, t11308, t11311, t11312;
11303   double t11315, t11318, t11321, t11324, t11325, t11328, t11331, t11334;
11304   double t11335, t11338, t11339, t11342, t11355, t11358, t11359, t11363;
11305   double t11366, t11367, t11370, t11371, t11372, t11375, t11379, t11382;
11306   double t11391, t11396, t11397, t11400, t11413, t11430, t11438, t11440;
11307   double t11441, t11443, t11444, t11449, t11450, t11460, t11461, t11464;
11308   double t11467, t11468, t11470, t11473, t11476, t11480, t11483, t11487;
11309   double t11488, t11489, t11492, t11499, t11501, t11504, t11507, t11510;
11310   double t11511, t11516, t11524, t11527, t11528, t11531, t11533, t11535;
11311   double t11537, t11538, t11540, t11542, t11544, t11545, t11547, t11548;
11312   double t11550, t11552, t11554, t11555, t11556, t11557, t11559, t11560;
11313   double t11562, t11564, t11565, t11567, t11569, t11570, t11572, t11575;
11314   double t11576, t11577, t11582, t11585, t11588, t11591, t11595, t11602;
11315   double t11603, t11606, t11607, t11613, t11614, t11615, t11617, t11618;
11316   double t11624, t11625, t11626, t11630, t11637, t11641, t11643, t11644;
11317   double t11645, t11647, t11648, t11650, t11653, t11661, t11670, t11679;
11318   double t11681, t11683, t11685, t11687, t11688, t11689, t11691, t11693;
11319   double t11695, t11697, t11717, t11720, t11723, t11735, t11738, t11763;
11320   double t11774, t11782, t11802, t11820, t11823, t11824, t11829, t11832;
11321   double t11833, t11859, t11862, t11863, t11865, t11866, t11871, t11875;
11322   double t11878, t11886, t11892, t11893, t11903, t11906, t11908, t11912;
11323   double t11916, t11921, t11929, t11936, t11939, t11941, t11944, t11946;
11324   double t11955, t11958, t11967, t11970, t11972, t11981, t11983, t11986;
11325   double t11991, t11994, t11997, t12000, t12004, t12011, t12016, t12017;
11326   double t12018, t12022, t12023, t12031, t12037, t12040, t12041, t12045;
11327   double t12046, t12047, t12049, t12050, t12052, t12055, t12056, t12057;
11328   double t12059, t12060, t12062, t12076, t12079, t12082, t12091, t12103;
11329   double t12106, t12109, t12118, t12126, t12140, t12143, t12152, t12157;
11330   double t12166, t12175, t12180, t12181, t12182, t12187, t12191, t12193;
11331   double t12194, t12211, t12228, t12229, t12241, t12252, t12253, t12264;
11332   double t12269, t12272, t12273, t12275, t12276, t12281, t12285, t12288;
11333   double t12296, t12302, t12303, t12313, t12316, t12318, t12322, t12326;
11334   double t12331, t12339, t12346, t12349, t12351, t12354, t12356, t12365;
11335   double t12368, t12377, t12380, t12382, t12391, t12393, t12396, t12399;
11336   double t12402, t12412, t12415, t12418, t12425, t12426, t12434, t12435;
11337   double t12439, t12442, t12445, t12448, t12449, t12450, t12453, t12456;
11338   double t12457, t12459, t12460, t12461, t12466, t12467, t12472, t12475;
11339   double t12483, t12490, t12497, t12506, t12508, t12510, t12512, t12514;
11340   double t12515, t12516, t12518, t12520, t12522, t12524, t12531, t12549;
11341   double t12562, t12566, t12575, t12580, t12596, t12597, t12602, t12612;
11342   double t12616, t12631, t12635, t12647, t12678, t12684, t12687, t12688;
11343   double t12690, t12691, t12696, t12714, t12715, t12722, t12734, t12737;
11344   double t12743, t12750, t12755, t12760, t12764, t12767, t12769, t12773;
11345   double t12778, t12785, t12795, t12798, t12800, t12805, t12808, t12811;
11346   double t12821, t12824, t12827, t12834, t12835, t12843, t12844, t12848;
11347   double t12851, t12854, t12857, t12858, t12859, t12862, t12865, t12866;
11348   double t12868, t12869, t12870, t12875, t12876, t12881, t12884, t12892;
11349   double t12895, t12901, t12907, t12913, t12919, t12930, t12934, t12939;
11350   double t12940, t12950, t12965, t12975, t12982, t12984, t12987, t12990;
11351   double t12991, t12998, t13005, t13018, t13019, t13020, t13025, t13040;
11352   double t13047, t13054, t13064, t13068, t13093, t13096, t13097, t13099;
11353   double t13100, t13105, t13123, t13124, t13131, t13143, t13146, t13152;
11354   double t13159, t13164, t13169, t13173, t13176, t13178, t13182, t13187;
11355   double t13194, t13204, t13207, t13209, t13214, t13215, t13216, t13220;
11356   double t13224, t13232, t13235, t13244, t13246, t13247, t13248, t13249;
11357   double t13252, t13255, t13260, t13274, t13278, t13284, t13287, t13307;
11358   double t13312, t13313, t13314, t13317, t13318, t13319, t13322, t13325;
11359   double t13328, t13331, t13334, t13337, t13338, t13341, t13342, t13344;
11360   double t13345, t13346, t13350, t13354, t13358, t13386, t13390, t13401;
11361   double t13403, t13404, t13406, t13407, t13411, t13414, t13415, t13418;
11362   double t13424, t13431, t13432, t13443, t13451, t13452, t13455, t13458;
11363   double t13461, t13463, t13466, t13469, t13473, t13476, t13480, t13485;
11364   double t13489, t13492, t13494, t13497, t13498, t13499, t13503, t13507;
11365   double t13515, t13518, t13527, t13529, t13530, t13531, t13532, t13535;
11366   double t13538, t13543, t13549, t13552, t13555, t13559, t13566, t13567;
11367   double t13575, t13596, t13597, t13598, t13601, t13602, t13603, t13606;
11368   double t13607, t13614, t13615, t13618, t13623, t13626, t13627, t13630;
11369   double t13633, t13638, t13641, t13644, t13653, t13673, t13678, t13684;
11370   double t13686, t13687, t13689, t13690, t13694, t13697, t13698, t13701;
11371   double t13707, t13714, t13715, t13726, t13734, t13735, t13738, t13741;
11372   double t13744, t13746, t13749, t13752, t13756, t13759, t13763, t13768;
11373   double t13772, t13775, t13777;
11374 
11375 #ifndef XC_DONT_COMPILE_LXC
11376   double t13794, t13798, t13805, t13808, t13813, t13821, t13830, t13834;
11377   double t13835, t13840, t13842, t13845, t13847, t13849, t13852, t13855;
11378   double t13858, t13860, t13862, t13864, t13869, t13870, t13881, t13883;
11379   double t13888, t13889, t13891, t13893, t13897, t13898, t13904, t13907;
11380   double t13909, t13915, t13917, t13922, t13925, t13930, t13932, t13935;
11381   double t13942, t13948, t13953, t13957, t13963, t13965, t13966, t13967;
11382   double t13970, t13980, t13987, t13989, t13993, t13996, t13997, t13998;
11383   double t13999, t14003, t14020, t14029, t14037, t14038, t14040, t14041;
11384   double t14045, t14046, t14051, t14054, t14068, t14072, t14074, t14075;
11385   double t14085, t14089, t14093, t14094, t14098, t14100, t14101, t14105;
11386   double t14106, t14108, t14111, t14115, t14116, t14117, t14122, t14123;
11387   double t14124, t14134, t14136, t14138, t14145, t14147, t14148, t14151;
11388   double t14152, t14160, t14164, t14165, t14169, t14174, t14175, t14178;
11389   double t14179, t14181, t14187, t14188, t14198, t14211, t14213, t14217;
11390   double t14223, t14228, t14236, t14238, t14246, t14250, t14253, t14260;
11391   double t14261, t14264, t14266, t14269, t14272, t14277, t14284, t14287;
11392   double t14288, t14294, t14309, t14310, t14313, t14317, t14333, t14334;
11393   double t14347, t14350, t14358, t14360, t14365, t14372, t14375, t14376;
11394   double t14377, t14378, t14379, t14380, t14381, t14382, t14389, t14390;
11395   double t14393, t14396, t14399, t14400, t14404, t14411, t14412, t14416;
11396   double t14420, t14421, t14438, t14443, t14446, t14447, t14452, t14453;
11397   double t14456, t14458, t14459, t14462, t14463, t14474, t14477, t14478;
11398   double t14483, t14486, t14493, t14496, t14497, t14500, t14501, t14504;
11399   double t14507, t14508, t14509, t14514, t14518, t14519, t14523, t14524;
11400   double t14527, t14528, t14529, t14532, t14533, t14540, t14543, t14544;
11401   double t14549, t14550, t14559, t14566, t14573, t14574, t14579, t14584;
11402   double t14587, t14596, t14597, t14599, t14606, t14613, t14622, t14625;
11403   double t14626, t14645, t14646, t14650, t14653, t14654, t14660, t14662;
11404   double t14665, t14670, t14676, t14679, t14682, t14683, t14684, t14687;
11405   double t14694, t14702, t14705, t14708, t14714, t14717, t14723, t14727;
11406   double t14748, t14749, t14760, t14770, t14776, t14780, t14783, t14786;
11407   double t14795, t14799, t14800, t14806, t14815, t14823, t14825, t14827;
11408   double t14831, t14846, t14848, t14849, t14852, t14881, t14884, t14888;
11409   double t14907, t14913, t14917, t14918, t14921, t14929, t14935, t14939;
11410   double t14956, t14957, t14958, t14959, t14964, t14965, t14968, t14976;
11411   double t14982, t14988, t14994, t15007, t15015, t15019, t15036, t15050;
11412   double t15056, t15061, t15067, t15068, t15080, t15085, t15086, t15097;
11413   double t15098, t15099, t15104, t15111, t15112, t15119, t15120, t15126;
11414   double t15137, t15140, t15144, t15159, t15161, t15168, t15172, t15177;
11415   double t15179, t15180, t15185, t15187, t15188, t15190, t15192, t15195;
11416   double t15196, t15198, t15201, t15206, t15216, t15219, t15222, t15229;
11417   double t15230, t15238, t15240, t15241, t15243, t15244, t15249, t15256;
11418   double t15258, t15272, t15285, t15286, t15288, t15292, t15294, t15296;
11419   double t15297, t15299, t15304, t15316, t15317, t15322, t15323, t15325;
11420   double t15343, t15352, t15354, t15356, t15359, t15362, t15364, t15365;
11421   double t15367, t15368, t15374, t15378, t15380, t15385, t15391, t15395;
11422   double t15398, t15406, t15408, t15410, t15414, t15432, t15454, t15477;
11423   double t15503, t15505, t15519, t15522, t15535, t15542, t15548, t15551;
11424   double t15558, t15559, t15560, t15562, t15582, t15586, t15587, t15602;
11425   double t15610, t15622, t15631, t15632, t15637, t15640, t15645, t15649;
11426   double t15653, t15654, t15658, t15659, t15664, t15665, t15667, t15669;
11427   double t15671, t15677, t15688, t15690, t15696, t15697, t15710, t15712;
11428   double t15723, t15735, t15740, t15743, t15747, t15750, t15755, t15757;
11429   double t15762, t15764, t15767, t15770, t15789, t15794, t15796, t15799;
11430   double t15803, t15804, t15814, t15815, t15817, t15822, t15827, t15841;
11431   double t15860, t15869, t15871, t15873, t15875, t15913, t15929, t15932;
11432   double t15939, t15948, t15955, t15960, t15965, t15967, t15969, t15971;
11433   double t15977, t15981, t15982, t15985, t15986, t15999, t16002, t16011;
11434   double t16012, t16013, t16018, t16019, t16023, t16027, t16028, t16034;
11435   double t16036, t16039, t16041, t16044, t16046, t16053, t16054, t16055;
11436   double t16060, t16067, t16070, t16078, t16083, t16084, t16085, t16086;
11437   double t16090, t16095, t16103, t16108, t16114, t16117, t16133, t16136;
11438   double t16138, t16147, t16159, t16169, t16172, t16175, t16178, t16181;
11439   double t16183, t16198, t16204, t16210, t16217, t16230, t16242, t16253;
11440   double t16266, t16289, t16294, t16315, t16323, t16324, t16334, t16348;
11441   double t16349, t16350, t16353, t16354, t16358, t16364, t16369, t16383;
11442   double t16387, t16390, t16397, t16398, t16401, t16403, t16406, t16409;
11443   double t16414, t16421, t16424, t16425, t16431, t16437, t16451, t16452;
11444   double t16462, t16463, t16466, t16484, t16487, t16495, t16501, t16504;
11445   double t16505, t16508, t16509, t16515, t16518, t16524, t16528, t16531;
11446   double t16532, t16539, t16542, t16544, t16547, t16548, t16549, t16556;
11447   double t16557, t16558, t16561, t16568, t16573, t16578, t16579, t16580;
11448   double t16583, t16584, t16589, t16595, t16597, t16604, t16605, t16606;
11449   double t16607, t16610, t16613, t16614, t16616, t16617, t16623, t16624;
11450   double t16625, t16629, t16634, t16635, t16638, t16641, t16642, t16643;
11451   double t16644, t16646, t16652, t16654, t16656, t16660, t16663, t16664;
11452   double t16666, t16672, t16678, t16681, t16686, t16692, t16706, t16710;
11453   double t16721, t16728, t16735, t16740, t16743, t16746, t16749, t16754;
11454   double t16755, t16761, t16762, t16763, t16764, t16771, t16772, t16787;
11455   double t16790, t16791, t16797, t16800, t16801, t16821, t16834, t16837;
11456   double t16839, t16840, t16843, t16846, t16852, t16853, t16856, t16866;
11457   double t16869, t16870, t16871, t16874, t16880, t16883, t16900, t16903;
11458   double t16904, t16911, t16920, t16928, t16932, t16933, t16939, t16948;
11459   double t16956, t16958, t16960, t16964, t16979, t16981, t16984, t17013;
11460   double t17016, t17020, t17039, t17045, t17049, t17050, t17053, t17061;
11461   double t17067, t17071, t17088, t17089, t17094, t17095, t17098, t17121;
11462   double t17128, t17132, t17139, t17154, t17159, t17180, t17191, t17201;
11463   double t17216, t17229, t17232, t17237, t17269, t17279, t17291, t17296;
11464   double t17297, t17309, t17328, t17335, t17347, t17355, t17357, t17359;
11465   double t17363, t17366, t17372, t17377, t17386, t17392, t17402, t17408;
11466   double t17418, t17420, t17422, t17424, t17451, t17465, t17472, t17479;
11467   double t17485, t17486, t17511, t17513, t17519, t17522, t17523, t17530;
11468   double t17538, t17539, t17542, t17545, t17546, t17549, t17552, t17571;
11469   double t17585, t17593, t17598, t17614, t17628, t17629, t17641, t17642;
11470   double t17645, t17649, t17657, t17658, t17661, t17678, t17679, t17682;
11471   double t17689, t17693, t17700, t17703, t17706, t17707, t17710, t17711;
11472   double t17712, t17715, t17716, t17720, t17723, t17726, t17728, t17731;
11473   double t17738, t17743, t17745, t17748, t17752, t17756, t17766, t17771;
11474   double t17777, t17785, t17791, t17804, t17809, t17812, t17813, t17816;
11475   double t17819, t17822, t17825, t17826, t17829, t17837, t17840, t17844;
11476   double t17848, t17851, t17852, t17856, t17860, t17865, t17866, t17867;
11477   double t17870, t17871, t17874, t17877, t17880, t17883, t17888, t17891;
11478   double t17896, t17900, t17909, t17918, t17923, t17924, t17934, t17937;
11479   double t17943, t17947, t17951, t17957, t17963, t17971, t17974, t17987;
11480   double t17988, t17989, t17996, t17999, t18003, t18010, t18011, t18014;
11481   double t18015, t18016, t18019, t18024, t18025, t18031, t18032, t18035;
11482   double t18046, t18047, t18048, t18051, t18052, t18055, t18058, t18062;
11483   double t18063, t18072, t18077, t18078, t18086, t18092, t18094, t18097;
11484   double t18098, t18102, t18105, t18106, t18109, t18110, t18117, t18121;
11485   double t18133, t18134, t18140, t18155, t18174, t18181, t18184, t18187;
11486   double t18199, t18200, t18214, t18215, t18238, t18243, t18249, t18251;
11487   double t18252, t18260, t18264, t18268, t18277, t18280, t18287, t18288;
11488   double t18291, t18295, t18296, t18307, t18312, t18328, t18356, t18377;
11489   double t18378, t18381, t18382, t18391, t18396, t18397, t18403, t18414;
11490   double t18428, t18448, t18449, t18453, t18456, t18457, t18458, t18459;
11491   double t18468, t18475, t18489, t18502, t18503, t18541, t18547, t18560;
11492   double t18583, t18587, t18615, t18622, t18624, t18627, t18629, t18631;
11493   double t18635, t18652, t18655, t18656, t18660, t18661, t18665, t18666;
11494   double t18671, t18686, t18694, t18696, t18699, t18703, t18704, t18708;
11495   double t18711, t18713, t18723, t18725, t18744, t18749, t18767, t18769;
11496   double t18771, t18783, t18786, t18788, t18792, t18793, t18795, t18803;
11497   double t18809, t18810, t18816, t18819, t18821, t18829, t18830, t18847;
11498   double t18852, t18854, t18858, t18866, t18878, t18881, t18885, t18890;
11499   double t18895, t18897, t18900, t18907, t18912, t18918, t18920, t18927;
11500   double t18928, t18933, t18936, t18939, t18941, t18955, t18974, t18976;
11501   double t18979, t18993, t19013, t19015, t19040, t19047, t19055, t19070;
11502   double t19082, t19086, t19087, t19106, t19113, t19118, t19120, t19123;
11503   double t19124, t19125, t19126, t19127, t19128, t19130, t19131, t19133;
11504   double t19135, t19136, t19137, t19141, t19144, t19146, t19150, t19166;
11505   double t19171, t19173, t19183, t19186, t19188, t19191, t19195, t19196;
11506   double t19201, t19204, t19207, t19214, t19225, t19227, t19236, t19237;
11507   double t19239, t19245, t19246, t19253, t19260, t19264, t19266, t19267;
11508   double t19268, t19269, t19270, t19273, t19275, t19290, t19292, t19320;
11509   double t19326, t19333, t19348, t19366, t19371, t19377, t19378, t19381;
11510   double t19404, t19407, t19409, t19411, t19413, t19415, t19418, t19421;
11511   double t19424, t19430, t19444, t19446, t19449, t19454, t19456, t19458;
11512   double t19469, t19471, t19474, t19475, t19477, t19479, t19485, t19488;
11513   double t19489, t19499, t19514, t19520, t19531, t19533, t19537, t19539;
11514   double t19553, t19555, t19557, t19561, t19570, t19575, t19577, t19579;
11515   double t19585, t19619, t19639, t19672, t19674, t19679, t19713, t19715;
11516   double t19747, t19766, t19790, t19815, t19843, t19849, t19856, t19857;
11517   double t19858, t19861, t19873, t19881, t19900, t19901, t19904, t19907;
11518   double t19908, t19911, t19912, t19915, t19940, t19949, t19951, t19955;
11519   double t19966, t19971, t19999, t20000, t20018, t20022, t20025, t20026;
11520   double t20041, t20043, t20046, t20047, t20048, t20054, t20064, t20069;
11521   double t20072, t20073, t20076, t20079, t20082, t20083, t20086, t20089;
11522   double t20090, t20093, t20096, t20098, t20101, t20104, t20107, t20112;
11523   double t20115, t20120, t20126, t20138, t20146, t20147, t20152, t20153;
11524   double t20156, t20162, t20163, t20164, t20169, t20172, t20177, t20180;
11525   double t20183, t20187, t20194, t20195, t20198, t20203, t20219, t20220;
11526   double t20224, t20225, t20228, t20229, t20232, t20236, t20240, t20241;
11527   double t20242, t20248, t20249, t20253, t20264, t20271, t20275, t20276;
11528   double t20279, t20285, t20289, t20295, t20298, t20303, t20310, t20312;
11529   double t20317, t20326, t20331, t20335, t20340, t20343, t20349, t20352;
11530   double t20353, t20354, t20355, t20358, t20361, t20367, t20370, t20373;
11531   double t20378, t20379, t20382, t20383, t20386, t20390, t20402, t20405;
11532   double t20406, t20420, t20421, t20424, t20428, t20429, t20444, t20445;
11533   double t20452, t20463, t20473, t20476, t20477, t20486, t20491, t20497;
11534   double t20498, t20503, t20506, t20507, t20510, t20511, t20515, t20526;
11535   double t20531, t20535, t20542, t20552, t20555, t20577, t20592, t20595;
11536   double t20599, t20603, t20607, t20615, t20631, t20642, t20647, t20652;
11537   double t20665, t20668, t20671, t20672, t20675, t20676, t20677, t20680;
11538   double t20683, t20684, t20685, t20691, t20716, t20725, t20742, t20746;
11539   double t20750, t20751, t20765, t20770, t20771, t20777, t20784, t20794;
11540   double t20814, t20837, t20842, t20843, t20844, t20845, t20854, t20864;
11541   double t20866, t20868, t20886, t20889, t20890, t20892, t20920, t20953;
11542   double t20963, t20965, t20974, t21004, t21031, t21045, t21060, t21085;
11543   double t21098, t21102, t21103, t21111, t21116, t21140, t21141, t21147;
11544   double t21152, t21159, t21172, t21180, t21184, t21188, t21192, t21197;
11545   double t21204, t21210, t21214, t21215, t21218, t21222, t21229, t21238;
11546   double t21239, t21244, t21247, t21251, t21255, t21258, t21260, t21265;
11547   double t21268, t21294, t21295, t21298, t21303, t21326, t21327, t21331;
11548   double t21333, t21349, t21354, t21355, t21356, t21359, t21360, t21361;
11549   double t21368, t21369, t21372, t21375, t21376, t21384, t21388, t21389;
11550   double t21406, t21409, t21410, t21413, t21416, t21419, t21426, t21440;
11551   double t21457, t21460, t21463, t21464, t21467, t21471, t21478, t21488;
11552   double t21492, t21499, t21502, t21508, t21515, t21518, t21521, t21524;
11553   double t21532, t21536, t21539, t21542, t21551, t21555, t21565, t21572;
11554   double t21573, t21579, t21585, t21587, t21590, t21596, t21616, t21626;
11555   double t21629, t21642, t21645, t21650, t21651, t21663, t21664, t21667;
11556   double t21671, t21672, t21675, t21676, t21684, t21688, t21694, t21697;
11557   double t21700, t21707, t21710, t21713, t21722, t21741, t21744, t21746;
11558   double t21749, t21758, t21764, t21770, t21774, t21779, t21786, t21787;
11559   double t21792, t21795, t21800, t21815, t21819, t21828, t21833, t21836;
11560   double t21839, t21848, t21854, t21857, t21861, t21866, t21870, t21871;
11561   double t21875, t21879, t21880, t21890, t21898, t21899, t21905, t21906;
11562   double t21909, t21912, t21915, t21921, t21924, t21929, t21934, t21950;
11563   double t22008, t22028, t22034, t22042, t22047, t22048, t22050, t22060;
11564   double t22070, t22077, t22095, t22096, t22099, t22102, t22106, t22109;
11565   double t22113, t22117, t22121, t22130, t22134, t22146, t22147, t22167;
11566   double t22170, t22176, t22177, t22180, t22189, t22192, t22210, t22215;
11567   double t22223, t22232, t22239, t22243, t22251, t22259, t22280, t22291;
11568   double t22298, t22302, t22310, t22313, t22315, t22320, t22324, t22327;
11569   double t22333, t22335, t22337, t22343, t22346, t22348, t22352, t22357;
11570   double t22364, t22365, t22367, t22370, t22371, t22373, t22374, t22381;
11571   double t22388, t22390, t22394, t22397, t22401, t22402, t22415, t22425;
11572   double t22427, t22428, t22434, t22437, t22441, t22442, t22443, t22446;
11573   double t22456, t22457, t22471, t22478, t22481, t22482, t22484, t22486;
11574   double t22491, t22497, t22502, t22503, t22506, t22512, t22515, t22523;
11575   double t22531, t22544, t22559, t22563, t22565, t22577, t22584, t22586;
11576   double t22587, t22589, t22593, t22598, t22608, t22611, t22613, t22615;
11577   double t22616, t22618, t22622, t22635, t22645, t22648, t22660, t22664;
11578   double t22676, t22680, t22685, t22690, t22695, t22699, t22702, t22705;
11579   double t22710, t22713, t22721, t22727, t22730, t22737, t22738, t22741;
11580   double t22742, t22748, t22751, t22756, t22760, t22774, t22779, t22786;
11581   double t22789, t22794, t22797, t22800, t22804, t22831, t22833, t22847;
11582   double t22860, t22861, t22862, t22865, t22866, t22867, t22877, t22881;
11583   double t22884, t22885, t22886, t22889, t22895, t22899, t22900, t22902;
11584   double t22903, t22907, t22908, t22916, t22918, t22921, t22922, t22926;
11585   double t22927, t22929, t22931, t22934, t22936, t22939, t22941, t22942;
11586   double t22948, t22955, t22963, t22966, t22969, t22974, t22976, t22978;
11587   double t22983, t22992, t22995, t23007, t23011, t23017, t23020, t23021;
11588   double t23025, t23028, t23032, t23035, t23042, t23045, t23050, t23051;
11589   double t23085, t23092, t23095, t23113, t23121, t23124, t23127, t23130;
11590   double t23137, t23150, t23164, t23173, t23193, t23198, t23203, t23206;
11591   double t23211, t23226, t23229, t23234, t23238, t23246, t23261, t23264;
11592   double t23269, t23272, t23285, t23297, t23302, t23307, t23321, t23331;
11593   double t23334, t23339, t23347, t23352, t23357, t23358, t23369, t23382;
11594   double t23387, t23400, t23406, t23415, t23418, t23423, t23444, t23445;
11595   double t23454, t23457, t23460, t23462, t23465, t23468, t23477, t23483;
11596   double t23491, t23501, t23519, t23524, t23525, t23530, t23531, t23539;
11597   double t23544, t23545, t23547, t23553, t23562, t23573, t23588, t23606;
11598   double t23607, t23610, t23613, t23617, t23623, t23627, t23635, t23640;
11599   double t23648, t23652, t23657, t23658, t23660, t23667, t23678, t23689;
11600   double t23702, t23705, t23708, t23716, t23721, t23731, t23732, t23735;
11601   double t23744, t23752, t23796, t23802, t23806, t23816, t23841, t23869;
11602   double t23874, t23883, t23891, t23895, t23896, t23898, t23900, t23901;
11603   double t23908, t23924, t23926, t23928, t23931, t23952, t23954, t23964;
11604   double t23966, t23967, t23974, t23995, t24000, t24005, t24017, t24019;
11605   double t24020, t24026, t24046, t24058, t24066, t24090, t24102, t24118;
11606   double t24129, t24132, t24154, t24155, t24158, t24183, t24185, t24190;
11607   double t24195, t24199, t24200, t24214, t24219, t24224, t24237, t24241;
11608   double t24244, t24245, t24260, t24261, t24264, t24270, t24273, t24275;
11609   double t24278, t24282, t24290, t24293, t24297, t24298, t24303, t24304;
11610   double t24307, t24310, t24320, t24324, t24335, t24338, t24343, t24344;
11611   double t24345, t24349, t24352, t24353, t24356, t24360, t24365, t24368;
11612   double t24373, t24375, t24378, t24381, t24382, t24385, t24386, t24389;
11613   double t24393, t24394, t24397, t24410, t24421, t24424, t24429, t24432;
11614   double t24433, t24439, t24445, t24461, t24464, t24467, t24475, t24487;
11615   double t24488, t24496, t24497, t24518, t24525, t24529, t24534, t24537;
11616   double t24540, t24543, t24546, t24549, t24553, t24563, t24576, t24584;
11617   double t24593, t24603, t24621, t24625, t24638, t24641, t24645, t24656;
11618   double t24659, t24668, t24676, t24679, t24682, t24684, t24685, t24694;
11619   double t24695, t24697, t24699, t24700, t24703, t24708, t24711, t24717;
11620   double t24719, t24730, t24731, t24733, t24734, t24738, t24739, t24742;
11621   double t24746, t24749, t24754, t24759, t24761, t24766, t24771, t24780;
11622   double t24782, t24789, t24790, t24795, t24796, t24800, t24830, t24848;
11623   double t24849, t24850, t24855, t24856, t24880, t24888, t24899, t24906;
11624   double t24919, t24932, t24940, t24947, t24961, t24964, t24965, t24966;
11625   double t24969, t24971, t24972, t24975, t24982, t24987, t25007, t25008;
11626   double t25011, t25018, t25021, t25022, t25025, t25028, t25031, t25032;
11627   double t25035, t25038, t25060, t25085, t25092, t25129, t25134, t25135;
11628   double t25137, t25144, t25156, t25170, t25188, t25197, t25209, t25213;
11629   double t25217, t25222, t25228, t25232, t25236, t25247, t25260, t25272;
11630   double t25279, t25281, t25292, t25330, t25342, t25354, t25357, t25360;
11631   double t25369, t25380, t25384, t25388, t25405, t25417, t25429, t25435;
11632   double t25445, t25449, t25486, t25489, t25490, t25495, t25503, t25509;
11633   double t25513, t25515, t25518, t25520, t25521, t25524, t25525, t25529;
11634   double t25534, t25537, t25542, t25548, t25562, t25568, t25574, t25580;
11635   double t25581, t25583, t25585, t25587, t25589, t25593, t25598, t25604;
11636   double t25608, t25610, t25612, t25619, t25625, t25630, t25636, t25641;
11637   double t25645, t25647, t25679, t25685, t25719, t25721, t25732, t25741;
11638   double t25745, t25756, t25759, t25763, t25764, t25765, t25772, t25786;
11639   double t25787, t25792, t25793, t25798, t25803, t25808, t25810, t25813;
11640   double t25817, t25819, t25823, t25825, t25827, t25829, t25843, t25845;
11641   double t25864, t25866, t25868, t25870, t25873, t25874, t25876, t25878;
11642   double t25880, t25884, t25890, t25895, t25899, t25903, t25907, t25949;
11643   double t25973, t26016, t26047, t26055, t26061, t26082, t26101, t26112;
11644   double t26116, t26143, t26153, t26160, t26163, t26168, t26187, t26188;
11645   double t26191, t26198, t26205, t26206, t26220, t26225, t26229, t26232;
11646   double t26233, t26239, t26240, t26250, t26257, t26263, t26270, t26273;
11647   double t26274, t26278, t26282, t26285, t26288, t26292, t26295, t26302;
11648   double t26309, t26312, t26315, t26321, t26324, t26332, t26337, t26342;
11649   double t26353, t26368, t26374, t26377, t26380, t26385, t26396, t26397;
11650   double t26405, t26411, t26412, t26425, t26431, t26435, t26439, t26442;
11651   double t26443, t26446, t26447, t26450, t26453, t26454, t26458, t26467;
11652   double t26470, t26471, t26480, t26485, t26486, t26491, t26494, t26506;
11653   double t26512, t26520, t26523, t26524, t26528, t26532, t26535, t26538;
11654   double t26541, t26542, t26545, t26547, t26550, t26553, t26556, t26581;
11655   double t26587, t26593, t26594, t26610, t26623, t26633, t26645, t26649;
11656   double t26657, t26674, t26685, t26686, t26689, t26690, t26695, t26697;
11657   double t26709, t26712, t26727, t26728, t26731, t26737, t26744, t26748;
11658   double t26751, t26752, t26753, t26758, t26763, t26764, t26769, t26770;
11659   double t26773, t26774, t26777, t26778, t26781, t26785, t26788, t26804;
11660   double t26811, t26812, t26827, t26840, t26844, t26849, t26850, t26853;
11661   double t26856, t26859, t26864, t26869, t26878, t26892, t26902, t26903;
11662   double t26908, t26923, t26941, t26942, t26943, t26947, t26951, t26961;
11663   double t26966, t26968, t26985, t27001, t27013, t27016, t27018, t27019;
11664   double t27022, t27024, t27025, t27028, t27035, t27040, t27044, t27055;
11665   double t27079, t27091, t27104, t27135, t27140, t27141, t27143, t27158;
11666   double t27179, t27188, t27200, t27203, t27207, t27220, t27224, t27229;
11667   double t27230, t27239, t27247, t27258, t27262, t27271, t27273, t27289;
11668   double t27301, t27313, t27321, t27329, t27337, t27348, t27354, t27358;
11669   double t27364, t27377, t27388, t27425, t27429, t27473, t27476, t27531;
11670   double t27537, t27579, t27585, t27598, t27600, t27608, t27609, t27610;
11671   double t27617, t27635, t27638, t27667, t27676, t27701, t27704, t27707;
11672   double t27710, t27713, t27717, t27722, t27723, t27726, t27729, t27742;
11673   double t27766, t27772, t27776, t27779, t27784, t27788, t27791, t27796;
11674   double t27822, t27851, t27854, t27861, t27870, t27878, t27889, t27902;
11675   double t27915, t27918, t27921, t27926, t27934, t27937, t27957, t27960;
11676   double t28002, t28022, t28026, t28033, t28037, t28060, t28064, t28065;
11677   double t28070, t28075, t28076, t28080, t28083, t28093, t28096, t28101;
11678   double t28106, t28114, t28115, t28118, t28125, t28128, t28129, t28141;
11679   double t28153, t28167, t28168, t28171, t28172, t28175, t28178, t28180;
11680   double t28181, t28182, t28185, t28189, t28193, t28198, t28201, t28206;
11681   double t28217, t28218, t28223, t28236, t28243, t28246, t28249, t28255;
11682   double t28280, t28282, t28285, t28310, t28315, t28345, t28346, t28347;
11683   double t28359, t28364, t28367, t28379, t28384, t28387, t28393, t28396;
11684   double t28407, t28408, t28412, t28417, t28426, t28427, t28428, t28433;
11685   double t28434, t28437, t28440, t28448, t28461, t28465, t28468, t28475;
11686   double t28479, t28494, t28499, t28503, t28510, t28520, t28526, t28531;
11687   double t28534, t28537, t28542, t28548, t28556, t28565, t28568, t28578;
11688   double t28587, t28590, t28591, t28592, t28604, t28622, t28629, t28632;
11689   double t28637, t28639, t28645, t28646, t28651, t28652, t28656, t28657;
11690   double t28662, t28668, t28669, t28671, t28685, t28689, t28699, t28718;
11691   double t28724, t28729, t28732, t28734, t28735, t28736, t28739, t28767;
11692   double t28786, t28799, t28819, t28820, t28823, t28826, t28833, t28834;
11693   double t28839, t28844, t28852, t28855, t28871, t28874, t28890, t28893;
11694   double t28896, t28899, t28904, t28907, t28910, t28911, t28914, t28917;
11695   double t28922, t28936, t28939, t28942, t28945, t28949, t28964, t28976;
11696   double t28983, t29008, t29009, t29015, t29020, t29022, t29037, t29040;
11697   double t29043, t29046, t29051, t29054, t29071, t29077, t29078, t29082;
11698   double t29087, t29112, t29121, t29127, t29137, t29140, t29156, t29160;
11699   double t29168, t29171, t29189, t29203, t29212, t29223, t29229, t29230;
11700   double t29232, t29239, t29244, t29276, t29287, t29290, t29313, t29317;
11701   double t29336, t29339, t29342, t29347, t29349, t29353, t29360, t29365;
11702   double t29369, t29383, t29387, t29390, t29392, t29422, t29426, t29430;
11703   double t29442, t29460, t29479, t29520, t29521, t29541, t29550, t29561;
11704   double t29571, t29577, t29580, t29583, t29597, t29615, t29646, t29653;
11705   double t29673, t29687, t29689, t29691, t29701, t29703, t29704, t29706;
11706   double t29716, t29717, t29721, t29723, t29724, t29726, t29734, t29735;
11707   double t29744, t29758, t29763, t29777, t29779, t29787, t29789, t29793;
11708   double t29794, t29797, t29801, t29802, t29808, t29812, t29816, t29820;
11709   double t29824, t29878, t29903, t29933, t29964, t29994, t29997, t30004;
11710   double t30014, t30030, t30033, t30036, t30040, t30058, t30061, t30074;
11711   double t30083, t30104, t30116, t30119, t30122, t30127, t30152, t30164;
11712   double t30167, t30171, t30176, t30177, t30180, t30184, t30188, t30191;
11713   double t30193, t30198, t30201, t30210, t30213, t30231, t30244, t30261;
11714   double t30265, t30268, t30302, t30303, t30306, t30311, t30312, t30315;
11715   double t30316, t30320, t30322, t30334, t30335, t30336, t30344, t30345;
11716   double t30353, t30359, t30368, t30370, t30372, t30383, t30389, t30391;
11717   double t30397, t30404, t30411, t30413, t30415, t30417, t30418, t30426;
11718   double t30429, t30435, t30438, t30441, t30444, t30449, t30452, t30455;
11719   double t30463, t30466, t30467, t30472, t30475, t30482, t30484, t30487;
11720   double t30488, t30491, t30494, t30495, t30498, t30499, t30503, t30510;
11721   double t30513, t30514, t30517, t30525, t30528, t30531, t30534, t30537;
11722   double t30540, t30543, t30546, t30549, t30554, t30558, t30563, t30574;
11723   double t30579, t30580, t30581, t30584, t30587, t30594, t30599, t30612;
11724   double t30615, t30620, t30625, t30630, t30649, t30652, t30662, t30681;
11725   double t30694, t30705, t30726, t30744, t30748, t30752, t30755, t30760;
11726   double t30763, t30769, t30784, t30787, t30791, t30796, t30815, t30819;
11727   double t30820, t30827, t30846, t30861, t30862, t30863, t30866, t30874;
11728   double t30877, t30896, t30910, t30927, t30950, t30953, t30956, t30959;
11729   double t30962, t30975, t30988, t30994, t30999, t31000, t31003, t31008;
11730   double t31013, t31030, t31046, t31051, t31054, t31055, t31056, t31059;
11731   double t31060, t31065, t31078, t31081, t31084, t31089, t31090, t31097;
11732   double t31098, t31101, t31126, t31136, t31142, t31153, t31159, t31168;
11733   double t31171, t31187, t31191, t31197, t31207, t31211, t31214, t31217;
11734   double t31234, t31235, t31246, t31266, t31271, t31282, t31290, t31309;
11735   double t31312, t31314, t31315, t31320, t31339, t31347, t31348, t31349;
11736   double t31353, t31364, t31384, t31407, t31410, t31413, t31420, t31423;
11737   double t31424, t31425, t31452, t31463, t31476, t31483, t31491, t31498;
11738   double t31501, t31530, t31536, t31537, t31539, t31542, t31545, t31551;
11739   double t31561, t31566, t31582, t31609, t31632, t31640, t31643, t31653;
11740   double t31657, t31661, t31668, t31672, t31680, t31684, t31688, t31697;
11741   double t31701, t31708, t31710, t31718, t31742, t31762, t31767, t31777;
11742   double t31785, t31796, t31799, t31810, t31818, t31837, t31847, t31854;
11743   double t31887, t31900, t31927, t31933, t31940, t31942, t31943, t31945;
11744   double t31946, t31947, t31949, t31953, t31957, t31963, t31971, t31976;
11745   double t32003, t32006, t32012, t32024, t32032, t32045, t32048, t32053;
11746   double t32064, t32067, t32074, t32077, t32087, t32093, t32096, t32099;
11747   double t32100, t32104, t32108, t32125, t32149, t32156, t32167, t32170;
11748   double t32175, t32184, t32188, t32201, t32205, t32223, t32226, t32228;
11749   double t32242, t32245, t32246, t32249, t32250, t32254, t32259, t32260;
11750   double t32263, t32266, t32267, t32270, t32275, t32283, t32287, t32294;
11751   double t32297, t32299, t32302, t32324, t32327, t32330, t32331, t32335;
11752   double t32338, t32341, t32344, t32346, t32347, t32348, t32352, t32356;
11753   double t32364, t32369, t32374, t32377, t32378, t32391, t32392, t32401;
11754   double t32402, t32411, t32415, t32430, t32431, t32434, t32441, t32444;
11755   double t32448, t32451, t32460, t32466, t32470, t32474, t32488, t32507;
11756   double t32508, t32529, t32536, t32542, t32552, t32564, t32568, t32571;
11757   double t32579, t32580, t32583, t32589, t32594, t32599, t32600, t32603;
11758   double t32606, t32615, t32618, t32636, t32637, t32648, t32651, t32655;
11759   double t32656, t32663, t32669, t32673, t32674, t32677, t32682, t32683;
11760   double t32686, t32692, t32696, t32703, t32706, t32713, t32717, t32723;
11761   double t32726, t32733, t32739, t32749, t32752, t32759, t32761, t32788;
11762   double t32791, t32795, t32799, t32802, t32808, t32817, t32819, t32820;
11763   double t32821, t32825, t32826, t32830, t32832, t32838, t32843, t32844;
11764   double t32851, t32854, t32864, t32867, t32870, t32883, t32888, t32895;
11765   double t32907, t32919, t32928, t32937, t32946, t32949, t32976, t32994;
11766   double t32995, t33022, t33035, t33053, t33059, t33060, t33067, t33072;
11767   double t33084, t33128, t33133, t33134, t33136, t33140, t33153, t33163;
11768   double t33176, t33179, t33183, t33189, t33202, t33205, t33210, t33211;
11769   double t33217, t33227, t33233, t33240, t33243, t33245, t33249, t33255;
11770   double t33268, t33273, t33277, t33278, t33281, t33284, t33309, t33331;
11771   double t33346, t33351, t33354, t33360, t33363, t33369, t33375, t33378;
11772   double t33383, t33384, t33401, t33404, t33415, t33421, t33431, t33450;
11773   double t33458, t33471, t33472, t33474, t33484, t33498, t33506, t33508;
11774   double t33512, t33513, t33516, t33541, t33551, t33554, t33558, t33561;
11775   double t33564, t33570, t33573, t33576, t33587, t33588, t33604, t33607;
11776   double t33642, t33647, t33655, t33679, t33682, t33687, t33702, t33705;
11777   double t33716, t33723, t33726, t33729, t33730, t33731, t33735, t33739;
11778   double t33745, t33749, t33752, t33759, t33763, t33767, t33776, t33788;
11779   double t33790, t33817, t33821, t33824, t33825, t33828, t33833, t33838;
11780   double t33841, t33848, t33852, t33856, t33859, t33870, t33879, t33880;
11781   double t33891, t33896, t33900, t33902, t33903, t33913, t33932, t33941;
11782   double t33944, t33971, t33978, t33981, t33987, t33990, t33993, t34005;
11783   double t34021, t34029, t34034, t34037, t34038, t34041, t34042, t34045;
11784   double t34049, t34051, t34055, t34072, t34075, t34076, t34081, t34084;
11785   double t34085, t34086, t34101, t34118, t34119, t34122, t34123, t34124;
11786   double t34128, t34131, t34132, t34135, t34138, t34142, t34149, t34150;
11787   double t34153, t34156, t34163, t34164, t34167, t34170, t34171, t34174;
11788   double t34177, t34186, t34187, t34202, t34205, t34212, t34223, t34224;
11789   double t34230, t34233, t34237, t34257, t34260, t34261, t34267, t34272;
11790   double t34287, t34294, t34298, t34301, t34302, t34305, t34309, t34310;
11791   double t34314, t34318, t34321, t34326, t34328, t34329, t34331, t34336;
11792   double t34338, t34341, t34349, t34350, t34353, t34355, t34376, t34390;
11793   double t34399, t34407, t34410, t34414, t34418, t34422, t34426, t34431;
11794   double t34451, t34465, t34471, t34476, t34481, t34485, t34488, t34491;
11795   double t34494, t34499, t34504, t34513, t34528, t34542, t34550, t34554;
11796   double t34577, t34594, t34599, t34602, t34605, t34608, t34643, t34674;
11797   double t34676, t34691, t34696, t34697, t34699, t34708, t34714, t34717;
11798   double t34722, t34745, t34760, t34767, t34780, t34788, t34813, t34819;
11799   double t34829, t34845, t34848, t34849, t34855, t34858, t34866, t34872;
11800   double t34875, t34878, t34882, t34891, t34894, t34904, t34909, t34911;
11801   double t34913, t34914, t34919, t34928, t34935, t34939, t34949, t34953;
11802   double t34962, t34987, t34991, t35002, t35007, t35026, t35034, t35054;
11803   double t35055, t35056, t35063, t35112, t35138, t35204, t35216, t35219;
11804   double t35235, t35249, t35253, t35256, t35257, t35266, t35269, t35272;
11805   double t35275, t35278, t35279, t35285, t35291, t35293, t35295, t35299;
11806   double t35302, t35309, t35311, t35312, t35314, t35315, t35319, t35321;
11807   double t35324, t35326, t35327, t35335, t35338, t35340, t35343, t35347;
11808   double t35355, t35357, t35366, t35375, t35386, t35394, t35401, t35408;
11809   double t35409, t35422, t35423, t35424, t35425, t35429, t35438, t35446;
11810   double t35450, t35461, t35472, t35483, t35486, t35487, t35493, t35496;
11811   double t35499, t35500, t35506, t35517, t35520, t35521, t35530, t35535;
11812   double t35536, t35539, t35542, t35551, t35573, t35582, t35584, t35596;
11813   double t35599, t35608, t35611, t35614, t35615, t35623, t35637, t35660;
11814   double t35663, t35670, t35681, t35691, t35692, t35695, t35696, t35701;
11815   double t35703, t35711, t35721, t35724, t35735, t35739, t35743, t35753;
11816   double t35754, t35777, t35780, t35784, t35799, t35808, t35814, t35820;
11817   double t35824, t35842, t35845, t35856, t35857, t35863, t35873, t35876;
11818   double t35879, t35882, t35883, t35892, t35898, t35899, t35905, t35925;
11819   double t35938, t35943, t35944, t35946, t35950, t35963, t35978, t35993;
11820   double t36023, t36077, t36096, t36099, t36107, t36132, t36147, t36148;
11821   double t36151, t36158, t36159, t36161, t36175, t36177, t36203, t36205;
11822   double t36212, t36235, t36240, t36241, t36248, t36249, t36253, t36257;
11823   double t36259, t36270, t36272, t36293, t36297, t36303, t36307, t36311;
11824   double t36315, t36319, t36320, t36321, t36326, t36328, t36334, t36335;
11825   double t36336, t36342, t36348, t36349, t36354, t36360, t36361, t36379;
11826   double t36398, t36442, t36468, t36534, t36546, t36549, t36562, t36568;
11827   double t36572, t36578, t36582, t36586, t36587, t36604, t36613, t36614;
11828   double t36617, t36627, t36632, t36637, t36647, t36650, t36658, t36670;
11829   double t36679, t36680, t36687, t36690, t36710, t36714, t36720, t36725;
11830   double t36734, t36737, t36744, t36745, t36748, t36758, t36768, t36769;
11831   double t36772, t36773, t36782, t36783, t36789, t36790, t36796, t36799;
11832   double t36806, t36807, t36813, t36817, t36818, t36820, t36822, t36824;
11833   double t36827, t36831, t36841, t36843, t36847, t36850, t36853, t36856;
11834   double t36858, t36866, t36882, t36891, t36903, t36908, t36909, t36918;
11835   double t36919, t36926, t36929, t36936, t36940, t36943, t36944, t36952;
11836   double t36955, t36958, t36961, t36966, t36970, t36973, t36974, t36982;
11837   double t36983, t36986, t36987, t36990, t36997, t37002, t37011, t37013;
11838   double t37024, t37037, t37040, t37050, t37064, t37071, t37078, t37081;
11839   double t37084, t37085, t37088, t37089, t37119, t37137, t37144, t37156;
11840   double t37160, t37163, t37164, t37183, t37186, t37192, t37195, t37201;
11841   double t37208, t37215, t37229, t37238, t37254, t37266, t37269, t37274;
11842   double t37275, t37277, t37281, t37294, t37309, t37324, t37354, t37408;
11843   double t37427, t37430, t37438, t37463, t37478, t37479, t37482, t37496;
11844   double t37500, t37527, t37549, t37594, t37619, t37624, t37630, t37638;
11845   double t37671, t37681, t37692, t37693, t37694, t37698, t37701, t37715;
11846   double t37716, t37719, t37721, t37743, t37750, t37751, t37762, t37765;
11847   double t37774, t37783, t37794, t37797, t37812, t37823, t37825, t37829;
11848   double t37832, t37845, t37848, t37851, t37854, t37881, t37911, t37914;
11849   double t37939, t37956, t37960, t37967, t37986, t37993, t37996, t37999;
11850   double t38000, t38019, t38028, t38029, t38051, t38052, t38055, t38056;
11851   double t38059, t38062, t38073, t38074, t38081, t38094, t38101, t38106;
11852   double t38128, t38129, t38134, t38163, t38173, t38176, t38188, t38189;
11853   double t38192, t38195, t38198, t38202, t38203, t38206, t38209, t38212;
11854   double t38215, t38223, t38224, t38229, t38238, t38245, t38248, t38251;
11855   double t38254, t38257, t38270, t38275, t38278, t38281, t38284, t38290;
11856   double t38293, t38296, t38303, t38307, t38310, t38311, t38312, t38320;
11857   double t38341, t38347, t38355, t38366, t38370, t38374, t38377, t38380;
11858   double t38383, t38384, t38387, t38388, t38416, t38432, t38443, t38448;
11859   double t38467, t38481, t38486, t38505, t38508, t38512, t38516, t38520;
11860   double t38523, t38524, t38530, t38534, t38535, t38562, t38564, t38565;
11861   double t38570, t38581, t38591, t38596, t38599, t38600, t38601, t38628;
11862   double t38647, t38660, t38663, t38671, t38695, t38700, t38716, t38719;
11863   double t38730, t38743, t38750, t38767, t38771, t38774, t38781, t38801;
11864   double t38811, t38812, t38828, t38835, t38850, t38861, t38867, t38870;
11865   double t38871, t38887, t38890, t38893, t38896, t38903, t38909, t38938;
11866   double t38951, t38959, t38972, t38978, t38984, t39007, t39020, t39035;
11867   double t39043, t39045, t39052, t39079, t39081, t39082, t39095, t39110;
11868   double t39122, t39145, t39151, t39152, t39154, t39167, t39184, t39190;
11869   double t39194, t39197, t39239, t39262, t39263, t39269, t39292, t39299;
11870   double t39302, t39303, t39309, t39324, t39327, t39329, t39340, t39348;
11871   double t39357, t39368, t39373, t39378, t39394, t39395, t39400, t39405;
11872   double t39442, t39460, t39482, t39486, t39501, t39534, t39562, t39581;
11873   double t39599, t39610, t39616, t39629, t39632, t39638, t39640, t39641;
11874   double t39646, t39650, t39654, t39658, t39673, t39694, t39750, t39777;
11875   double t39795, t39813, t39822, t39849, t39865, t39868, t39880, t39884;
11876   double t39889, t39897, t39908, t39918, t39921, t39924, t39925, t39926;
11877   double t39956, t39957, t39988, t39998, t39999, t40014, t40019, t40021;
11878   double t40024, t40028, t40029, t40032, t40035, t40052, t40057, t40060;
11879   double t40063, t40098, t40101, t40111, t40115, t40122, t40132, t40137;
11880   double t40138, t40141, t40142, t40145, t40148, t40151, t40154, t40161;
11881   double t40164, t40165, t40168, t40169, t40180, t40191, t40204, t40214;
11882   double t40221, t40237, t40238, t40241, t40256, t40261, t40284, t40287;
11883   double t40291, t40292, t40297, t40306, t40307, t40310, t40311, t40314;
11884   double t40319, t40320, t40323, t40328, t40330, t40347, t40351, t40352;
11885   double t40361, t40367, t40370, t40373, t40388, t40391, t40399, t40401;
11886   double t40405, t40409, t40415, t40418, t40428, t40429, t40438, t40440;
11887   double t40441, t40455, t40459, t40467, t40474, t40475, t40478, t40484;
11888   double t40505, t40508, t40512, t40518, t40525, t40528, t40531, t40532;
11889   double t40535, t40547, t40565, t40568, t40569, t40572, t40573, t40578;
11890   double t40581, t40605, t40617, t40622, t40636, t40649, t40689, t40697;
11891   double t40711, t40718, t40719, t40722, t40725, t40727, t40730, t40733;
11892   double t40736, t40743, t40751, t40760, t40788, t40804, t40819, t40824;
11893   double t40828, t40851, t40859, t40860, t40872, t40875, t40884, t40915;
11894   double t40921, t40924, t40931, t40937, t40949, t40954, t40959, t40965;
11895   double t40986, t40992, t40997, t41002, t41019, t41025, t41035, t41043;
11896   double t41058, t41064, t41071, t41087, t41089, t41091, t41106, t41119;
11897   double t41142, t41160, t41181, t41192, t41204, t41217, t41222, t41229;
11898   double t41256, t41268, t41278, t41292, t41295, t41301, t41302, t41304;
11899   double t41310, t41314, t41331, t41335, t41352, t41375, t41386, t41387;
11900   double t41391, t41395, t41407, t41410, t41423, t41433, t41440, t41442;
11901   double t41446, t41470, t41492, t41521, t41532, t41533, t41553, t41556;
11902   double t41561, t41566, t41574, t41582, t41590, t41608, t41615, t41648;
11903   double t41663, t41677, t41679, t41680, t41688, t41694, t41697, t41722;
11904   double t41728, t41731, t41767, t41783, t41784, t41788, t41791, t41796;
11905   double t41799, t41807, t41808, t41811, t41831, t41864, t41865, t41878;
11906   double t41890, t41903, t41906, t41915, t41934, t41965, t41974, t41977;
11907   double t41993, t41994, t41999, t42002, t42031, t42034, t42054, t42058;
11908   double t42061, t42062, t42065, t42070, t42073, t42076, t42077, t42082;
11909   double t42083, t42086, t42087, t42088, t42091, t42093, t42099, t42124;
11910   double t42137, t42145, t42146, t42149, t42150, t42153, t42156, t42159;
11911   double t42162, t42172, t42175, t42181, t42182, t42187, t42188, t42191;
11912   double t42196, t42199, t42213, t42219, t42226, t42227, t42233, t42236;
11913   double t42239, t42242, t42255, t42258, t42261, t42264, t42270, t42277;
11914   double t42307, t42315, t42326, t42334, t42339, t42342, t42346, t42349;
11915   double t42352, t42364, t42367, t42370, t42371, t42378, t42381, t42395;
11916   double t42396, t42400, t42406, t42411, t42416, t42446, t42447, t42458;
11917   double t42459, t42476, t42489, t42490, t42494, t42504, t42511, t42516;
11918   double t42521, t42525, t42536, t42542, t42547, t42551, t42554, t42555;
11919   double t42559, t42564, t42572, t42575, t42590, t42598, t42609, t42610;
11920   double t42632, t42654, t42660, t42668, t42671, t42674, t42675, t42679;
11921   double t42696, t42702, t42704, t42730, t42750, t42756, t42762, t42767;
11922   double t42784, t42792, t42799, t42806, t42809, t42812, t42815, t42816;
11923   double t42819, t42821, t42822, t42827, t42828, t42848, t42856, t42857;
11924   double t42861, t42880, t42886, t42889, t42926, t42928, t42931, t42932;
11925   double t42959, t42972, t42990, t42993, t42994, t42999, t43008, t43016;
11926   double t43019, t43022, t43025, t43028, t43046, t43056, t43061, t43071;
11927   double t43078, t43079, t43088, t43096, t43120, t43128, t43159, t43170;
11928   double t43193, t43223, t43253, t43265, t43289, t43295, t43296, t43298;
11929   double t43301, t43305, t43355, t43376, t43377, t43380, t43381, t43393;
11930   double t43408, t43412, t43415, t43422, t43443, t43445, t43447, t43448;
11931   double t43465, t43468, t43500, t43509, t43546, t43576, t43584, t43597;
11932   double t43602, t43611, t43627, t43667, t43673, t43677, t43685, t43689;
11933   double t43707, t43708, t43713, t43724, t43731, t43792, t43810, t43825;
11934   double t43832, t43842, t43844, t43845, t43849, t43852, t43861, t43864;
11935   double t43868, t43880, t43891, t43894, t43917, t43943, t43946, t43951;
11936   double t43963, t43978, t43998, t44001, t44009, t44031, t44040, t44059;
11937   double t44072, t44075, t44097, t44098, t44106, t44110, t44124, t44135;
11938   double t44156, t44164, t44169, t44187, t44193, t44197, t44200, t44203;
11939   double t44216, t44225, t44245, t44248, t44249, t44255, t44260, t44274;
11940   double t44275, t44280, t44289, t44292, t44293, t44296, t44323, t44326;
11941   double t44329, t44330, t44352, t44358, t44365, t44401, t44420, t44433;
11942   double t44435, t44441, t44446, t44451, t44460, t44461, t44469, t44472;
11943   double t44479, t44492, t44499, t44500, t44503, t44514, t44523, t44539;
11944   double t44556, t44557, t44570, t44573, t44577, t44581, t44584, t44585;
11945   double t44588, t44589, t44592, t44593, t44596, t44597, t44607, t44610;
11946   double t44611, t44614, t44620, t44631, t44634, t44637, t44645, t44651;
11947   double t44652, t44655, t44656, t44659, t44664, t44667, t44695, t44700;
11948   double t44705, t44710, t44719, t44722, t44723, t44728, t44736, t44737;
11949   double t44740, t44743, t44745, t44748, t44754, t44776, t44778, t44781;
11950   double t44784, t44787, t44791, t44794, t44800, t44803, t44804, t44811;
11951   double t44814, t44818, t44823, t44826, t44829, t44830, t44833, t44841;
11952   double t44854, t44857, t44862, t44884, t44889, t44891, t44894, t44900;
11953   double t44929, t44934, t44938, t44945, t44950, t44954, t44961, t44964;
11954   double t44996, t44997, t45015, t45018, t45026, t45029, t45031, t45034;
11955   double t45037, t45040, t45045, t45064, t45083, t45090, t45095, t45098;
11956   double t45099, t45112, t45113, t45129, t45146, t45147, t45163, t45167;
11957   double t45189, t45197, t45206, t45209, t45221, t45245, t45270, t45295;
11958   double t45301, t45331, t45337, t45338, t45340, t45366, t45372, t45393;
11959   double t45396, t45397, t45402, t45405, t45424, t45427, t45431, t45440;
11960   double t45459, t45461, t45463, t45467, t45473, t45480, t45487, t45488;
11961   double t45491, t45512, t45530, t45540, t45612, t45625, t45628, t45633;
11962   double t45652, t45659, t45668, t45672, t45717, t45725, t45744, t45746;
11963   double t45759, t45762, t45765, t45777, t45780, t45781, t45789, t45792;
11964   double t45795, t45796, t45802, t45809, t45810, t45817, t45832, t45835;
11965   double t45843, t45844, t45867, t45874, t45891, t45892, t45893, t45906;
11966   double t45919, t45928, t45929, t45941, t45946, t45968, t45971, t45972;
11967   double t45975, t45976, t45979, t45982, t45985, t45986, t46010, t46014;
11968   double t46015, t46018, t46021, t46033, t46037, t46041, t46050, t46059;
11969   double t46065, t46066, t46070, t46072, t46074, t46075, t46077, t46083;
11970   double t46085, t46092, t46096, t46101, t46103, t46106, t46107, t46109;
11971   double t46111, t46114, t46119, t46122, t46131, t46132, t46134, t46140;
11972   double t46150, t46151, t46165, t46166, t46169, t46172, t46175, t46178;
11973   double t46189, t46192, t46201, t46202, t46205, t46210, t46217, t46223;
11974   double t46226, t46227, t46249, t46256, t46259, t46283, t46284, t46296;
11975   double t46324, t46332, t46338, t46341, t46342, t46371, t46374, t46383;
11976   double t46406, t46410, t46433, t46442, t46469, t46472, t46473, t46480;
11977   double t46504, t46514, t46521, t46540, t46554, t46556, t46559, t46562;
11978   double t46566, t46584, t46587, t46590, t46593, t46596, t46599, t46624;
11979   double t46632, t46637, t46638, t46640, t46643, t46670, t46684, t46688;
11980   double t46698, t46702, t46720, t46723, t46724, t46727, t46730, t46731;
11981   double t46734, t46739, t46745, t46749, t46756, t46769, t46772, t46773;
11982   double t46782, t46787, t46793, t46798, t46804, t46810, t46819, t46825;
11983   double t46828, t46850, t46865, t46872, t46875, t46876, t46887, t46891;
11984   double t46894, t46897, t46911, t46917, t46918, t46919, t46947, t46952;
11985   double t46963, t46964, t46976, t46983, t46991, t47009, t47010, t47037;
11986   double t47041, t47045, t47054, t47076, t47086, t47088, t47089, t47090;
11987   double t47093, t47099, t47100, t47109, t47126, t47136, t47139, t47142;
11988   double t47145, t47155, t47170, t47173, t47181, t47185, t47191, t47192;
11989   double t47197, t47200, t47203, t47209, t47215, t47220, t47244, t47250;
11990   double t47253, t47256, t47284, t47288, t47296, t47302, t47305, t47315;
11991   double t47318, t47319, t47328, t47332, t47336, t47342, t47350, t47351;
11992   double t47360, t47361, t47364, t47367, t47374, t47375, t47378, t47379;
11993   double t47382, t47387, t47388, t47391, t47404, t47409, t47414, t47420;
11994   double t47427, t47428, t47431, t47438, t47442, t47445, t47452, t47478;
11995   double t47483, t47489, t47512, t47526, t47527, t47537, t47552, t47559;
11996   double t47564, t47577, t47594, t47601, t47610, t47633, t47636, t47639;
11997   double t47640, t47643, t47646, t47651, t47659, t47662, t47665, t47676;
11998   double t47677, t47680, t47694, t47713, t47718, t47719, t47721, t47724;
11999   double t47751, t47765, t47769, t47779, t47783, t47801, t47804, t47805;
12000   double t47808, t47811, t47812, t47815, t47820, t47826, t47830, t47837;
12001   double t47850, t47853, t47854, t47856, t47873, t47874, t47875, t47878;
12002   double t47884, t47889, t47895, t47900, t47906, t47912, t47921, t47927;
12003   double t47930, t47941, t47945, t47948, t47949, t47952, t47969, t48002;
12004   double t48009, t48062, t48091, t48101, t48126, t48142, t48148, t48155;
12005   double t48156, t48171, t48179, t48187, t48188, t48191, t48195, t48198;
12006   double t48200, t48202, t48204, t48205, t48207, t48209, t48211, t48220;
12007   double t48221, t48222, t48224, t48225, t48230, t48233, t48236, t48239;
12008   double t48242, t48246, t48248, t48250, t48252, t48253, t48257, t48259;
12009   double t48260, t48264, t48287, t48290, t48322, t48355, t48358, t48368;
12010   double t48369, t48393, t48428, t48436, t48463, t48473, t48500, t48510;
12011   double t48518, t48522, t48543, t48547, t48548, t48550, t48559, t48566;
12012   double t48569, t48571, t48595, t48627, t48631, t48654, t48659, t48665;
12013   double t48671, t48672, t48673, t48680, t48687, t48718, t48719, t48722;
12014   double t48727, t48766, t48794, t48804, t48829, t48845, t48851, t48871;
12015   double t48879, t48894, t48895, t48896, t48907, t48908, t48909, t48912;
12016   double t48917, t48926, t48930, t48931, t48934, t48953, t48956, t48960;
12017   double t48964, t48970, t48977, t48982, t48985, t48996, t49010, t49016;
12018   double t49023, t49030, t49039, t49052, t49055, t49058, t49061, t49091;
12019   double t49092, t49097, t49104, t49106, t49107, t49110, t49113, t49120;
12020   double t49126, t49135, t49142, t49144, t49153, t49171, t49179, t49212;
12021   double t49244, t49248, t49249, t49251, t49260, t49267, t49270, t49272;
12022   double t49296, t49328, t49332, t49355, t49360, t49366, t49372, t49373;
12023   double t49374, t49381, t49388, t49419, t49420, t49423, t49441, t49444;
12024   double t49472, t49476, t49479, t49483, t49484, t49501, t49513, t49522;
12025   double t49531, t49565, t49566, t49592, t49595, t49615, t49616, t49622;
12026   double t49642, t49650, t49682, t49715, t49726, t49752, t49785, t49809;
12027   double t49823, t49832, t49845, t49851, t49857, t49860, t49882, t49883;
12028   double t49886, t49889, t49890, t49893, t49900, t49936, t49938, t49941;
12029   double t49959, t49960, t49975, t49980, t49983, t49990, t49993, t49997;
12030   double t50009, t50014, t50029, t50031, t50043, t50073, t50113, t50144;
12031   double t50182, t50213, t50218, t50219, t50221, t50243, t50258, t50330;
12032   double t50337, t50356, t50360, t50372, t50384, t50395, t50396, t50418;
12033   double t50469, t50551, t50588, t50616, t50629, t50630, t50639, t50645;
12034   double t50651, t50655, t50667, t50678, t50679, t50691, t50716, t50722;
12035   double t50723, t50739, t50742, t50756, t50768, t50770, t50776, t50783;
12036   double t50785, t50791, t50797, t50799, t50800, t50802, t50803, t50824;
12037   double t50828, t50834, t50836, t50864, t50878, t50900, t50936, t50948;
12038   double t50951, t50961, t50965, t50974, t51011, t51041, t51078, t51085;
12039   double t51086, t51089, t51090, t51117, t51150, t51184, t51197, t51209;
12040   double t51212, t51225, t51254, t51257, t51264, t51296, t51327, t51332;
12041   double t51333, t51335, t51356, t51373, t51379, t51383, t51403, t51413;
12042   double t51420, t51425, t51441, t51442, t51504, t51533, t51572, t51589;
12043   double t51620, t51621, t51625, t51646, t51650, t51655, t51692, t51706;
12044   double t51726, t51729, t51748, t51766, t51768, t51824, t51825, t51826;
12045   double t51844, t51845, t51862, t51876, t51887, t51893, t51918, t51940;
12046   double t51955, t51959, t51966, t51972, t52007, t52014, t52055, t52062;
12047   double t52067, t52071, t52078, t52082, t52086, t52089, t52100, t52106;
12048   double t52109, t52113, t52119, t52152, t52158, t52159, t52162, t52163;
12049   double t52166, t52174, t52177, t52185, t52195, t52198, t52203, t52218;
12050   double t52239, t52242, t52245, t52248, t52250, t52292, t52296, t52301;
12051   double t52310, t52313, t52316, t52319, t52343, t52365, t52389, t52394;
12052   double t52408, t52432, t52446, t52457, t52474, t52480, t52496, t52512;
12053   double t52559, t52603, t52608, t52609, t52611, t52636, t52641, t52665;
12054   double t52669, t52673, t52683, t52698, t52703, t52713, t52721, t52743;
12055   double t52748, t52750, t52752, t52767, t52772, t52775, t52780, t52786;
12056   double t52835, t52863, t52880, t52916, t52957, t52995, t53002, t53014;
12057   double t53024, t53051, t53053, t53057, t53071, t53075, t53094, t53117;
12058   double t53131, t53133, t53149, t53167, t53180, t53181, t53186, t53213;
12059   double t53219, t53220, t53231, t53235, t53236, t53275, t53279, t53280;
12060   double t53309, t53312, t53314, t53321, t53349, t53364, t53374, t53389;
12061   double t53405, t53428, t53433, t53434, t53458, t53469, t53475, t53484;
12062   double t53498, t53504, t53511, t53543, t53563, t53570, t53580, t53584;
12063   double t53597, t53606, t53612, t53623, t53634, t53643, t53646, t53655;
12064   double t53658, t53666, t53672, t53679, t53684, t53693, t53700, t53707;
12065   double t53709, t53716, t53721, t53723, t53732, t53736, t53742, t53754;
12066   double t53795, t53798, t53841, t53845, t53884, t53927, t53965, t53970;
12067   double t53971, t53973, t53977, t53984, t53994, t54028, t54032, t54042;
12068   double t54055, t54062, t54072, t54075, t54081, t54107, t54109, t54111;
12069   double t54116, t54128, t54136, t54152, t54156, t54159, t54185, t54241;
12070   double t54269, t54279, t54314, t54319, t54322, t54323, t54344, t54345;
12071   double t54349, t54352, t54371, t54394, t54395, t54420, t54424, t54438;
12072   double t54441, t54442, t54445, t54450, t54453, t54462, t54473, t54482;
12073   double t54500, t54508, t54512, t54513, t54527, t54544, t54563, t54564;
12074   double t54581, t54611, t54639, t54647, t54669, t54683, t54693, t54697;
12075   double t54715, t54724, t54733, t54736, t54762, t54790, t54797, t54801;
12076   double t54804, t54807, t54810, t54838, t54861, t54879, t54895, t54922;
12077   double t54926, t54930, t54942, t54944, t54958, t54978, t55016, t55051;
12078   double t55056, t55057, t55059, t55101, t55105, t55115, t55119, t55139;
12079   double t55144, t55147, t55152, t55177, t55178, t55196, t55207, t55218;
12080   double t55228, t55229, t55238, t55243, t55289, t55303, t55309, t55326;
12081   double t55337, t55349, t55350, t55356, t55387, t55388, t55391, t55392;
12082   double t55411, t55431, t55432, t55468, t55474, t55487, t55494, t55497;
12083   double t55500, t55509, t55536, t55541, t55573, t55590, t55608, t55620;
12084   double t55621, t55624, t55627, t55643, t55645, t55648, t55655, t55658;
12085   double t55685, t55688, t55692, t55702, t55711, t55725, t55735, t55761;
12086   double t55762, t55768, t55789, t55814, t55819, t55850, t55883, t55891;
12087   double t55910, t55925, t55927, t55928, t55940, t55942, t55955, t55971;
12088   double t55987, t56007, t56022, t56059, t56088, t56093, t56094, t56096;
12089   double t56138, t56142, t56152, t56156, t56176, t56181, t56184, t56189;
12090   double t56214, t56215, t56217, t56261, t56268, t56280, t56283, t56286;
12091   double t56293, t56299, t56304, t56355, t56362, t56370, t56371, t56379;
12092   double t56384, t56388, t56389, t56392, t56401, t56423, t56431, t56432;
12093   double t56464, t56465, t56468, t56469, t56470, t56497, t56502, t56516;
12094   double t56531, t56538, t56549, t56578, t56583, t56586, t56589, t56598;
12095   double t56624, t56626, t56627, t56628, t56633, t56635, t56636, t56639;
12096   double t56642, t56645, t56653, t56655, t56660, t56665, t56666, t56672;
12097   double t56681, t56694, t56719, t56743, t56754, t56775, t56792, t56796;
12098   double t56797, t56799, t56816, t56820, t56824, t56828, t56832, t56836;
12099   double t56841, t56847, t56854, t56867, t56888, t56889, t56891, t56908;
12100   double t56929, t56937, t56957, t56978, t56986, t56987, t56990, t57003;
12101   double t57015, t57025, t57033, t57034, t57064, t57065, t57066, t57069;
12102   double t57070, t57073, t57089, t57090, t57094, t57097, t57107, t57116;
12103   double t57149, t57170, t57173, t57180, t57192, t57195, t57224, t57231;
12104   double t57234, t57264, t57267, t57270, t57274, t57275, t57283, t57288;
12105   double t57292, t57300, t57301, t57305, t57307, t57315, t57320, t57325;
12106   double t57356, t57359, t57391, t57395, t57396, t57398, t57406, t57414;
12107   double t57415, t57424, t57431, t57438, t57481, t57486, t57492, t57499;
12108   double t57512, t57533, t57534, t57539, t57549, t57553, t57565, t57571;
12109   double t57581, t57589;
12110 #endif
12111 
12112 #endif
12113 
12114 #endif
12115 
12116 #endif
12117 
12118 #endif
12119 
12120 
12121   mgga_x_scan_params *params;
12122 
12123   assert(p->params != NULL);
12124   params = (mgga_x_scan_params * )(p->params);
12125 
12126   t2 = M_CBRT3;
12127   t4 = POW_1_3(0.1e1 / M_PI);
12128   t5 = t2 * t4;
12129   t6 = M_CBRT4;
12130   t7 = t6 * t6;
12131   t8 = t5 * t7;
12132   t9 = rho[0] - rho[1];
12133   t10 = rho[0] + rho[1];
12134   t11 = 0.1e1 / t10;
12135   t12 = t9 * t11;
12136   t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
12137   t15 = POW_1_3(t14);
12138   t16 = t15 * t14;
12139   t17 = POW_1_3(t10);
12140   t18 = t16 * t17;
12141   t19 = M_CBRT6;
12142   t20 = M_PI * M_PI;
12143   t21 = POW_1_3(t20);
12144   t22 = t21 * t21;
12145   t23 = 0.1e1 / t22;
12146   t24 = t19 * t23;
12147   t25 = rho[0] * rho[0];
12148   t26 = POW_1_3(rho[0]);
12149   t27 = t26 * t26;
12150   t28 = t27 * t25;
12151   t29 = 0.1e1 / t28;
12152   t30 = sigma[0] * t29;
12153   t31 = t24 * t30;
12154   t35 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
12155   t36 = t19 * t19;
12156   t37 = t35 * t36;
12157   t38 = t21 * t20;
12158   t39 = 0.1e1 / t38;
12159   t40 = t37 * t39;
12160   t41 = sigma[0] * sigma[0];
12161   t42 = t25 * t25;
12162   t43 = t42 * rho[0];
12163   t45 = 0.1e1 / t26 / t43;
12164   t46 = t41 * t45;
12165   t47 = t35 * t19;
12166   t48 = t23 * sigma[0];
12167   t49 = t48 * t29;
12168   t52 = exp(-0.27e2 / 0.80e2 * t47 * t49);
12169   t56 = sqrt(0.146e3);
12170   t57 = t56 * t19;
12171   t60 = t36 * t22;
12172   t61 = 0.5e1 / 0.72e2 * t31;
12173   t63 = t27 * rho[0];
12174   t64 = 0.1e1 / t63;
12175   t68 = t36 * t39;
12176   t69 = lapl[0] * lapl[0];
12177   t70 = t25 * rho[0];
12178   t72 = 0.1e1 / t26 / t70;
12179   t75 = t68 * t69 * t72 / 0.5832e4;
12180   t77 = 0.1e1 / t26 / t42;
12181   t78 = sigma[0] * t77;
12182   t81 = t68 * t78 * lapl[0] / 0.5184e4;
12183   t82 = t68 * t46;
12184   t83 = t82 / 0.17496e5;
12185   t84 = 0.1e1 + 0.5e1 / 0.648e3 * t31 + 0.5e1 / 0.54e2 * t24 * lapl[0] * t64 + t75 - t81 + t83;
12186   t85 = t75 - t81 + t83;
12187   t86 = t85 * t85;
12188   t87 = 0.1e1 + t61;
12189   t88 = t87 * t87;
12190   t89 = 0.1e1 / t88;
12191   t91 = t86 * t89 + 0.1e1;
12192   t92 = sqrt(t91);
12193   t93 = 0.1e1 / t92;
12194   t94 = t84 * t93;
12195   t95 = t94 - t61;
12196   t96 = t95 <= 0.0e0;
12197   t97 = 0.1784720e1 <= t95;
12198   t98 = 0.1e1 / t95;
12199   t100 = exp(-0.461000314880e0 * t98);
12200   t101 = 0.1784720e1 - t94 + t61;
12201   t104 = exp(-0.1784720e1 / t101);
12202   t105 = 0.1e1 + t104;
12203   t106 = pow(t105, 0.258304e0);
12204   t107 = t100 * t106;
12205   t109 = exp(-0.1784720e1 * t98);
12206   t110 = t109 + t104;
12207   t111 = pow(t110, -0.258304e0);
12208   t112 = t107 * t111;
12209   t113 = my_piecewise3(t97, 1, t112);
12210   t114 = my_piecewise3(t96, 0, t113);
12211   t120 = 0.3e1 / 0.10e2 * t60 * (t95 * t114 + t61) - t30 / 0.8e1;
12212   t123 = 0.5e1 / 0.9e1 * t120 * t19 * t23;
12213   t124 = 0.1e1 - t123;
12214   t126 = t124 * t124;
12215   t128 = exp(-t126 / 0.2e1);
12216   t131 = 0.7e1 / 0.12960e5 * t57 * t49 + t56 * t124 * t128 / 0.100e3;
12217   t132 = t131 * t131;
12218   t133 = params->k1 + 0.5e1 / 0.972e3 * t31 + t40 * t46 * t52 / 0.576e3 + t132;
12219   t138 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t133);
12220   t139 = t123 <= 0.1e1;
12221   t140 = params->c1 * t120;
12222   t141 = 0.1e1 / t124;
12223   t142 = t24 * t141;
12224   t145 = exp(-0.5e1 / 0.9e1 * t140 * t142);
12225   t147 = exp(params->c2 * t141);
12226   t149 = my_piecewise3(t139, t145, -params->d * t147);
12227   t150 = 0.1e1 - t149;
12228   t153 = t138 * t150 + 0.1174e1 * t149;
12229   t154 = sqrt(0.3e1);
12230   t155 = 0.1e1 / t21;
12231   t156 = t36 * t155;
12232   t157 = sqrt(sigma[0]);
12233   t158 = t26 * rho[0];
12234   t159 = 0.1e1 / t158;
12235   t161 = t156 * t157 * t159;
12236   t162 = sqrt(t161);
12237   t166 = exp(-0.98958000000000000000e1 * t154 / t162);
12238   t167 = 0.1e1 - t166;
12239   t168 = t153 * t167;
12240   t170 = t8 * t18 * t168;
12241   t172 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
12242   t173 = POW_1_3(t172);
12243   t174 = t173 * t172;
12244   t175 = t174 * t17;
12245   t176 = rho[1] * rho[1];
12246   t177 = POW_1_3(rho[1]);
12247   t178 = t177 * t177;
12248   t179 = t178 * t176;
12249   t180 = 0.1e1 / t179;
12250   t181 = sigma[2] * t180;
12251   t182 = t24 * t181;
12252   t184 = sigma[2] * sigma[2];
12253   t185 = t176 * t176;
12254   t186 = t185 * rho[1];
12255   t188 = 0.1e1 / t177 / t186;
12256   t189 = t184 * t188;
12257   t190 = t23 * sigma[2];
12258   t191 = t190 * t180;
12259   t194 = exp(-0.27e2 / 0.80e2 * t47 * t191);
12260   t200 = 0.5e1 / 0.72e2 * t182;
12261   t202 = t178 * rho[1];
12262   t203 = 0.1e1 / t202;
12263   t207 = lapl[1] * lapl[1];
12264   t208 = t176 * rho[1];
12265   t210 = 0.1e1 / t177 / t208;
12266   t213 = t68 * t207 * t210 / 0.5832e4;
12267   t215 = 0.1e1 / t177 / t185;
12268   t216 = sigma[2] * t215;
12269   t219 = t68 * t216 * lapl[1] / 0.5184e4;
12270   t220 = t68 * t189;
12271   t221 = t220 / 0.17496e5;
12272   t222 = 0.1e1 + 0.5e1 / 0.648e3 * t182 + 0.5e1 / 0.54e2 * t24 * lapl[1] * t203 + t213 - t219 + t221;
12273   t223 = t213 - t219 + t221;
12274   t224 = t223 * t223;
12275   t225 = 0.1e1 + t200;
12276   t226 = t225 * t225;
12277   t227 = 0.1e1 / t226;
12278   t229 = t224 * t227 + 0.1e1;
12279   t230 = sqrt(t229);
12280   t231 = 0.1e1 / t230;
12281   t232 = t222 * t231;
12282   t233 = t232 - t200;
12283   t234 = t233 <= 0.0e0;
12284   t235 = 0.1784720e1 <= t233;
12285   t236 = 0.1e1 / t233;
12286   t238 = exp(-0.461000314880e0 * t236);
12287   t239 = 0.1784720e1 - t232 + t200;
12288   t242 = exp(-0.1784720e1 / t239);
12289   t243 = 0.1e1 + t242;
12290   t244 = pow(t243, 0.258304e0);
12291   t245 = t238 * t244;
12292   t247 = exp(-0.1784720e1 * t236);
12293   t248 = t247 + t242;
12294   t249 = pow(t248, -0.258304e0);
12295   t250 = t245 * t249;
12296   t251 = my_piecewise3(t235, 1, t250);
12297   t252 = my_piecewise3(t234, 0, t251);
12298   t258 = 0.3e1 / 0.10e2 * t60 * (t233 * t252 + t200) - t181 / 0.8e1;
12299   t261 = 0.5e1 / 0.9e1 * t258 * t19 * t23;
12300   t262 = 0.1e1 - t261;
12301   t264 = t262 * t262;
12302   t266 = exp(-t264 / 0.2e1);
12303   t269 = 0.7e1 / 0.12960e5 * t57 * t191 + t56 * t262 * t266 / 0.100e3;
12304   t270 = t269 * t269;
12305   t271 = params->k1 + 0.5e1 / 0.972e3 * t182 + t40 * t189 * t194 / 0.576e3 + t270;
12306   t276 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t271);
12307   t277 = t261 <= 0.1e1;
12308   t278 = params->c1 * t258;
12309   t279 = 0.1e1 / t262;
12310   t280 = t24 * t279;
12311   t283 = exp(-0.5e1 / 0.9e1 * t278 * t280);
12312   t285 = exp(params->c2 * t279);
12313   t287 = my_piecewise3(t277, t283, -params->d * t285);
12314   t288 = 0.1e1 - t287;
12315   t291 = t276 * t288 + 0.1174e1 * t287;
12316   t292 = sqrt(sigma[2]);
12317   t293 = t177 * rho[1];
12318   t294 = 0.1e1 / t293;
12319   t296 = t156 * t292 * t294;
12320   t297 = sqrt(t296);
12321   t301 = exp(-0.98958000000000000000e1 * t154 / t297);
12322   t302 = 0.1e1 - t301;
12323   t303 = t291 * t302;
12324   t305 = t8 * t175 * t303;
12325   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
12326     zk[0] = -0.3e1 / 0.8e1 * t170 - 0.3e1 / 0.8e1 * t305;
12327 
12328 #ifndef XC_DONT_COMPILE_VXC
12329 
12330   if(order < 1) return;
12331 
12332 
12333   t307 = 0.3e1 / 0.8e1 * t170;
12334   t308 = 0.3e1 / 0.8e1 * t305;
12335   t309 = t7 * t15;
12336   t310 = t5 * t309;
12337   t311 = t17 * t153;
12338   t312 = t10 * t10;
12339   t313 = 0.1e1 / t312;
12340   t314 = t9 * t313;
12341   t316 = t11 / 0.2e1 - t314 / 0.2e1;
12342   t317 = t167 * t316;
12343   t319 = t310 * t311 * t317;
12344   t320 = t319 / 0.2e1;
12345   t321 = t17 * t17;
12346   t322 = 0.1e1 / t321;
12347   t323 = t16 * t322;
12348   t325 = t8 * t323 * t168;
12349   t326 = t325 / 0.8e1;
12350   t327 = params->k1 * params->k1;
12351   t328 = t133 * t133;
12352   t330 = t327 / t328;
12353   t332 = 0.1e1 / t27 / t70;
12354   t333 = sigma[0] * t332;
12355   t334 = t24 * t333;
12356   t336 = t42 * t25;
12357   t338 = 0.1e1 / t26 / t336;
12358   t339 = t41 * t338;
12359   t343 = t35 * t35;
12360   t344 = t20 * t20;
12361   t345 = 0.1e1 / t344;
12362   t346 = t343 * t345;
12363   t347 = t41 * sigma[0];
12364   t348 = t42 * t42;
12365   t349 = t348 * rho[0];
12366   t350 = 0.1e1 / t349;
12367   t355 = t48 * t332;
12368   t358 = 0.5e1 / 0.27e2 * t334;
12369   t365 = 0.5e1 / 0.8748e4 * t68 * t69 * t77;
12370   t366 = sigma[0] * t45;
12371   t369 = 0.13e2 / 0.15552e5 * t68 * t366 * lapl[0];
12372   t371 = 0.2e1 / 0.6561e4 * t68 * t339;
12373   t372 = -0.5e1 / 0.243e3 * t334 - 0.25e2 / 0.162e3 * t24 * lapl[0] * t29 - t365 + t369 - t371;
12374   t375 = 0.1e1 / t92 / t91;
12375   t376 = t84 * t375;
12376   t377 = t85 * t89;
12377   t378 = -t365 + t369 - t371;
12378   t381 = t88 * t87;
12379   t382 = 0.1e1 / t381;
12380   t383 = t86 * t382;
12381   t384 = t383 * t19;
12382   t387 = 0.2e1 * t377 * t378 + 0.10e2 / 0.27e2 * t384 * t355;
12383   t390 = t372 * t93 - t376 * t387 / 0.2e1 + t358;
12384   t392 = t95 * t95;
12385   t393 = 0.1e1 / t392;
12386   t394 = t393 * t390;
12387   t397 = pow(t105, -0.741696e0);
12388   t398 = t100 * t397;
12389   t399 = t398 * t111;
12390   t400 = t101 * t101;
12391   t401 = 0.1e1 / t400;
12392   t402 = -t390;
12393   t403 = t401 * t402;
12394   t404 = t403 * t104;
12395   t407 = pow(t110, -0.1258304e1);
12396   t411 = 0.1784720e1 * t394 * t109 + 0.1784720e1 * t404;
12397   t413 = t107 * t407 * t411;
12398   t416 = my_piecewise3(t97, 0, 0.461000314880e0 * t394 * t112 + 0.461000314880e0 * t399 * t404 - 0.258304e0 * t413);
12399   t417 = my_piecewise3(t96, 0, t416);
12400   t423 = 0.3e1 / 0.10e2 * t60 * (t390 * t114 + t95 * t417 - t358) + t333 / 0.3e1;
12401   t425 = t24 * t128;
12402   t428 = t56 * t126;
12403   t432 = -0.7e1 / 0.4860e4 * t57 * t355 - t56 * t423 * t425 / 0.180e3 + t428 * t423 * t425 / 0.180e3;
12404   t435 = -0.10e2 / 0.729e3 * t334 - t40 * t339 * t52 / 0.108e3 + 0.3e1 / 0.320e3 * t346 * t347 * t350 * t52 + 0.2e1 * t131 * t432;
12405   t436 = t435 * t150;
12406   t438 = params->c1 * t423;
12407   t441 = t140 * t36;
12408   t442 = 0.1e1 / t126;
12409   t443 = t39 * t442;
12410   t444 = t443 * t423;
12411   t447 = -0.5e1 / 0.9e1 * t438 * t142 - 0.25e2 / 0.81e2 * t441 * t444;
12412   t448 = t447 * t145;
12413   t449 = params->d * params->c2;
12414   t450 = t449 * t442;
12415   t451 = t423 * t19;
12416   t452 = t23 * t147;
12417   t453 = t451 * t452;
12418   t456 = my_piecewise3(t139, t448, -0.5e1 / 0.9e1 * t450 * t453);
12419   t459 = t330 * t436 - t138 * t456 + 0.1174e1 * t456;
12420   t460 = t459 * t167;
12421   t462 = t8 * t18 * t460;
12422   t463 = 0.3e1 / 0.8e1 * t462;
12423   t464 = pow(0.3e1, 0.1e1 / 0.6e1);
12424   t465 = t464 * t464;
12425   t466 = t465 * t465;
12426   t467 = t466 * t464;
12427   t468 = t467 * t4;
12428   t469 = t468 * t7;
12429   t471 = t469 * t18 * t153;
12430   t473 = 0.1e1 / t162 / t161;
12431   t475 = t473 * t36 * t155;
12432   t477 = 0.1e1 / t26 / t25;
12433   t478 = t157 * t477;
12434   t480 = t475 * t478 * t166;
12435   t481 = t471 * t480;
12436   t482 = 0.24739500000000000000e1 * t481;
12437   t483 = t7 * t173;
12438   t484 = t5 * t483;
12439   t485 = t17 * t291;
12440   t486 = -t316;
12441   t487 = t302 * t486;
12442   t489 = t484 * t485 * t487;
12443   t490 = t489 / 0.2e1;
12444   t491 = t174 * t322;
12445   t493 = t8 * t491 * t303;
12446   t494 = t493 / 0.8e1;
12447   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12448     vrho[0] = -t307 - t308 + t10 * (-t320 - t326 - t463 - t482 - t490 - t494);
12449 
12450   t498 = -t11 / 0.2e1 - t314 / 0.2e1;
12451   t499 = t167 * t498;
12452   t501 = t310 * t311 * t499;
12453   t502 = t501 / 0.2e1;
12454   t503 = -t498;
12455   t504 = t302 * t503;
12456   t506 = t484 * t485 * t504;
12457   t507 = t506 / 0.2e1;
12458   t508 = t271 * t271;
12459   t510 = t327 / t508;
12460   t512 = 0.1e1 / t178 / t208;
12461   t513 = sigma[2] * t512;
12462   t514 = t24 * t513;
12463   t516 = t185 * t176;
12464   t518 = 0.1e1 / t177 / t516;
12465   t519 = t184 * t518;
12466   t523 = t184 * sigma[2];
12467   t524 = t185 * t185;
12468   t525 = t524 * rho[1];
12469   t526 = 0.1e1 / t525;
12470   t531 = t190 * t512;
12471   t534 = 0.5e1 / 0.27e2 * t514;
12472   t541 = 0.5e1 / 0.8748e4 * t68 * t207 * t215;
12473   t542 = sigma[2] * t188;
12474   t545 = 0.13e2 / 0.15552e5 * t68 * t542 * lapl[1];
12475   t547 = 0.2e1 / 0.6561e4 * t68 * t519;
12476   t548 = -0.5e1 / 0.243e3 * t514 - 0.25e2 / 0.162e3 * t24 * lapl[1] * t180 - t541 + t545 - t547;
12477   t551 = 0.1e1 / t230 / t229;
12478   t552 = t222 * t551;
12479   t553 = t223 * t227;
12480   t554 = -t541 + t545 - t547;
12481   t557 = t226 * t225;
12482   t558 = 0.1e1 / t557;
12483   t559 = t224 * t558;
12484   t560 = t559 * t19;
12485   t563 = 0.2e1 * t553 * t554 + 0.10e2 / 0.27e2 * t560 * t531;
12486   t566 = t548 * t231 - t552 * t563 / 0.2e1 + t534;
12487   t568 = t233 * t233;
12488   t569 = 0.1e1 / t568;
12489   t570 = t569 * t566;
12490   t573 = pow(t243, -0.741696e0);
12491   t574 = t238 * t573;
12492   t575 = t574 * t249;
12493   t576 = t239 * t239;
12494   t577 = 0.1e1 / t576;
12495   t578 = -t566;
12496   t579 = t577 * t578;
12497   t580 = t579 * t242;
12498   t583 = pow(t248, -0.1258304e1);
12499   t587 = 0.1784720e1 * t570 * t247 + 0.1784720e1 * t580;
12500   t589 = t245 * t583 * t587;
12501   t592 = my_piecewise3(t235, 0, 0.461000314880e0 * t570 * t250 + 0.461000314880e0 * t575 * t580 - 0.258304e0 * t589);
12502   t593 = my_piecewise3(t234, 0, t592);
12503   t599 = 0.3e1 / 0.10e2 * t60 * (t233 * t593 + t566 * t252 - t534) + t513 / 0.3e1;
12504   t601 = t24 * t266;
12505   t604 = t56 * t264;
12506   t608 = -0.7e1 / 0.4860e4 * t57 * t531 - t56 * t599 * t601 / 0.180e3 + t604 * t599 * t601 / 0.180e3;
12507   t611 = -0.10e2 / 0.729e3 * t514 - t40 * t519 * t194 / 0.108e3 + 0.3e1 / 0.320e3 * t346 * t523 * t526 * t194 + 0.2e1 * t269 * t608;
12508   t612 = t611 * t288;
12509   t614 = params->c1 * t599;
12510   t617 = t278 * t36;
12511   t618 = 0.1e1 / t264;
12512   t619 = t39 * t618;
12513   t620 = t619 * t599;
12514   t623 = -0.5e1 / 0.9e1 * t614 * t280 - 0.25e2 / 0.81e2 * t617 * t620;
12515   t624 = t623 * t283;
12516   t625 = t449 * t618;
12517   t626 = t599 * t19;
12518   t627 = t23 * t285;
12519   t628 = t626 * t627;
12520   t631 = my_piecewise3(t277, t624, -0.5e1 / 0.9e1 * t625 * t628);
12521   t634 = t510 * t612 - t276 * t631 + 0.1174e1 * t631;
12522   t635 = t634 * t302;
12523   t637 = t8 * t175 * t635;
12524   t638 = 0.3e1 / 0.8e1 * t637;
12525   t640 = t469 * t175 * t291;
12526   t642 = 0.1e1 / t297 / t296;
12527   t644 = t642 * t36 * t155;
12528   t646 = 0.1e1 / t177 / t176;
12529   t647 = t292 * t646;
12530   t649 = t644 * t647 * t301;
12531   t650 = t640 * t649;
12532   t651 = 0.24739500000000000000e1 * t650;
12533   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12534     vrho[1] = -t307 - t308 + t10 * (-t502 - t326 - t507 - t494 - t638 - t651);
12535 
12536   t654 = t24 * t29;
12537   t659 = 0.1e1 / t348;
12538   t664 = t23 * t29;
12539   t667 = 0.5e1 / 0.72e2 * t654;
12540   t670 = t68 * t77 * lapl[0];
12541   t671 = t670 / 0.5184e4;
12542   t672 = t68 * t366;
12543   t673 = t672 / 0.8748e4;
12544   t674 = 0.5e1 / 0.648e3 * t654 - t671 + t673;
12545   t676 = -t671 + t673;
12546   t681 = 0.2e1 * t377 * t676 - 0.5e1 / 0.36e2 * t383 * t654;
12547   t684 = t674 * t93 - t376 * t681 / 0.2e1 - t667;
12548   t686 = t393 * t684;
12549   t689 = -t684;
12550   t690 = t401 * t689;
12551   t691 = t690 * t104;
12552   t697 = 0.1784720e1 * t686 * t109 + 0.1784720e1 * t691;
12553   t698 = t407 * t697;
12554   t699 = t107 * t698;
12555   t702 = my_piecewise3(t97, 0, 0.461000314880e0 * t686 * t112 + 0.461000314880e0 * t399 * t691 - 0.258304e0 * t699);
12556   t703 = my_piecewise3(t96, 0, t702);
12557   t709 = 0.3e1 / 0.10e2 * t60 * (t684 * t114 + t95 * t703 + t667) - t29 / 0.8e1;
12558   t710 = t56 * t709;
12559   t716 = 0.7e1 / 0.12960e5 * t57 * t664 - t710 * t425 / 0.180e3 + t428 * t709 * t425 / 0.180e3;
12560   t719 = 0.5e1 / 0.972e3 * t654 + t40 * t366 * t52 / 0.288e3 - 0.9e1 / 0.2560e4 * t346 * t41 * t659 * t52 + 0.2e1 * t131 * t716;
12561   t720 = t719 * t150;
12562   t722 = params->c1 * t709;
12563   t728 = -0.5e1 / 0.9e1 * t722 * t142 - 0.25e2 / 0.81e2 * t441 * t443 * t709;
12564   t729 = t728 * t145;
12565   t730 = t709 * t19;
12566   t731 = t730 * t452;
12567   t734 = my_piecewise3(t139, t729, -0.5e1 / 0.9e1 * t450 * t731);
12568   t737 = t330 * t720 - t138 * t734 + 0.1174e1 * t734;
12569   t738 = t737 * t167;
12570   t741 = 0.3e1 / 0.8e1 * t8 * t18 * t738;
12571   t742 = 0.1e1 / t157;
12572   t743 = t742 * t159;
12573   t745 = t475 * t743 * t166;
12574   t747 = 0.92773125000000000000e0 * t471 * t745;
12575   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12576     vsigma[0] = t10 * (-t741 + t747);
12577 
12578   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12579     vsigma[1] = 0.0e0;
12580 
12581   t749 = t24 * t180;
12582   t754 = 0.1e1 / t524;
12583   t759 = t23 * t180;
12584   t762 = 0.5e1 / 0.72e2 * t749;
12585   t765 = t68 * t215 * lapl[1];
12586   t766 = t765 / 0.5184e4;
12587   t767 = t68 * t542;
12588   t768 = t767 / 0.8748e4;
12589   t769 = 0.5e1 / 0.648e3 * t749 - t766 + t768;
12590   t771 = -t766 + t768;
12591   t776 = 0.2e1 * t553 * t771 - 0.5e1 / 0.36e2 * t559 * t749;
12592   t779 = t769 * t231 - t552 * t776 / 0.2e1 - t762;
12593   t781 = t569 * t779;
12594   t784 = -t779;
12595   t785 = t577 * t784;
12596   t786 = t785 * t242;
12597   t792 = 0.1784720e1 * t781 * t247 + 0.1784720e1 * t786;
12598   t793 = t583 * t792;
12599   t794 = t245 * t793;
12600   t797 = my_piecewise3(t235, 0, 0.461000314880e0 * t781 * t250 + 0.461000314880e0 * t575 * t786 - 0.258304e0 * t794);
12601   t798 = my_piecewise3(t234, 0, t797);
12602   t804 = 0.3e1 / 0.10e2 * t60 * (t233 * t798 + t779 * t252 + t762) - t180 / 0.8e1;
12603   t805 = t56 * t804;
12604   t811 = 0.7e1 / 0.12960e5 * t57 * t759 - t805 * t601 / 0.180e3 + t604 * t804 * t601 / 0.180e3;
12605   t814 = 0.5e1 / 0.972e3 * t749 + t40 * t542 * t194 / 0.288e3 - 0.9e1 / 0.2560e4 * t346 * t184 * t754 * t194 + 0.2e1 * t269 * t811;
12606   t815 = t814 * t288;
12607   t817 = params->c1 * t804;
12608   t823 = -0.5e1 / 0.9e1 * t817 * t280 - 0.25e2 / 0.81e2 * t617 * t619 * t804;
12609   t824 = t823 * t283;
12610   t825 = t804 * t19;
12611   t826 = t825 * t627;
12612   t829 = my_piecewise3(t277, t824, -0.5e1 / 0.9e1 * t625 * t826);
12613   t832 = t510 * t815 - t276 * t829 + 0.1174e1 * t829;
12614   t833 = t832 * t302;
12615   t836 = 0.3e1 / 0.8e1 * t8 * t175 * t833;
12616   t837 = 0.1e1 / t292;
12617   t838 = t837 * t294;
12618   t840 = t644 * t838 * t301;
12619   t842 = 0.92773125000000000000e0 * t640 * t840;
12620   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12621     vsigma[2] = t10 * (-t836 + t842);
12622 
12623   t844 = t17 * t10;
12624   t845 = t844 * t2;
12625   t846 = t845 * t4;
12626   t847 = t7 * t16;
12627   t852 = t68 * lapl[0] * t72 / 0.2916e4;
12628   t854 = t68 * t78 / 0.5184e4;
12629   t855 = 0.5e1 / 0.54e2 * t24 * t64 + t852 - t854;
12630   t857 = t852 - t854;
12631   t858 = t377 * t857;
12632   t860 = -t376 * t858 + t855 * t93;
12633   t862 = t393 * t860;
12634   t865 = -t860;
12635   t866 = t401 * t865;
12636   t867 = t866 * t104;
12637   t873 = 0.1784720e1 * t862 * t109 + 0.1784720e1 * t867;
12638   t874 = t407 * t873;
12639   t875 = t107 * t874;
12640   t878 = my_piecewise3(t97, 0, 0.461000314880e0 * t862 * t112 + 0.461000314880e0 * t399 * t867 - 0.258304e0 * t875);
12641   t879 = my_piecewise3(t96, 0, t878);
12642   t881 = -t860 * t114 - t95 * t879;
12643   t882 = t56 * t881;
12644   t884 = t881 * t128;
12645   t887 = t882 * t128 / 0.100e3 - t428 * t884 / 0.100e3;
12646   t888 = t131 * t887;
12647   t893 = -params->c1 * t881;
12648   t895 = t140 * t19;
12649   t896 = t23 * t442;
12650   t897 = t896 * t881;
12651   t900 = -t893 * t141 + 0.5e1 / 0.9e1 * t895 * t897;
12652   t901 = t900 * t145;
12653   t902 = t442 * t881;
12654   t905 = my_piecewise3(t139, t901, t449 * t902 * t147);
12655   t908 = 0.2e1 * t330 * t888 * t150 - t138 * t905 + 0.1174e1 * t905;
12656   t909 = t908 * t167;
12657   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
12658     vlapl[0] = -0.3e1 / 0.8e1 * t846 * t847 * t909;
12659 
12660   t913 = t7 * t174;
12661   t918 = t68 * lapl[1] * t210 / 0.2916e4;
12662   t920 = t68 * t216 / 0.5184e4;
12663   t921 = 0.5e1 / 0.54e2 * t24 * t203 + t918 - t920;
12664   t923 = t918 - t920;
12665   t924 = t553 * t923;
12666   t926 = t921 * t231 - t552 * t924;
12667   t928 = t569 * t926;
12668   t931 = -t926;
12669   t932 = t577 * t931;
12670   t933 = t932 * t242;
12671   t939 = 0.1784720e1 * t928 * t247 + 0.1784720e1 * t933;
12672   t940 = t583 * t939;
12673   t941 = t245 * t940;
12674   t944 = my_piecewise3(t235, 0, 0.461000314880e0 * t928 * t250 + 0.461000314880e0 * t575 * t933 - 0.258304e0 * t941);
12675   t945 = my_piecewise3(t234, 0, t944);
12676   t947 = -t233 * t945 - t926 * t252;
12677   t948 = t56 * t947;
12678   t950 = t947 * t266;
12679   t953 = t948 * t266 / 0.100e3 - t604 * t950 / 0.100e3;
12680   t954 = t269 * t953;
12681   t959 = -params->c1 * t947;
12682   t961 = t278 * t19;
12683   t962 = t23 * t618;
12684   t963 = t962 * t947;
12685   t966 = -t959 * t279 + 0.5e1 / 0.9e1 * t961 * t963;
12686   t967 = t966 * t283;
12687   t968 = t618 * t947;
12688   t971 = my_piecewise3(t277, t967, t449 * t968 * t285);
12689   t974 = 0.2e1 * t510 * t954 * t288 - t276 * t971 + 0.1174e1 * t971;
12690   t975 = t974 * t302;
12691   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
12692     vlapl[1] = -0.3e1 / 0.8e1 * t846 * t913 * t975;
12693 
12694   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12695     vtau[0] = 0.0e0;
12696 
12697   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
12698     vtau[1] = 0.0e0;
12699 
12700 #ifndef XC_DONT_COMPILE_FXC
12701 
12702   if(order < 2) return;
12703 
12704 
12705   t979 = t325 / 0.4e1;
12706   t982 = t493 / 0.4e1;
12707   t983 = t15 * t15;
12708   t984 = 0.1e1 / t983;
12709   t985 = t7 * t984;
12710   t986 = t5 * t985;
12711   t987 = t316 * t316;
12712   t988 = t167 * t987;
12713   t990 = t986 * t311 * t988;
12714   t991 = t990 / 0.6e1;
12715   t992 = t322 * t153;
12716   t994 = t310 * t992 * t317;
12717   t995 = t994 / 0.3e1;
12718   t996 = t17 * t459;
12719   t998 = t310 * t996 * t317;
12720   t999 = t15 * t17;
12721   t1000 = t999 * t153;
12722   t1001 = t469 * t1000;
12723   t1002 = t166 * t316;
12724   t1004 = t475 * t478 * t1002;
12725   t1005 = t1001 * t1004;
12726   t1006 = 0.65972000000000000000e1 * t1005;
12727   t1007 = t312 * t10;
12728   t1008 = 0.1e1 / t1007;
12729   t1009 = t9 * t1008;
12730   t1010 = -t313 + t1009;
12731   t1011 = t167 * t1010;
12732   t1013 = t310 * t311 * t1011;
12733   t1014 = t1013 / 0.2e1;
12734   t1016 = 0.1e1 / t321 / t10;
12735   t1017 = t16 * t1016;
12736   t1019 = t8 * t1017 * t168;
12737   t1020 = t1019 / 0.12e2;
12738   t1022 = t8 * t323 * t460;
12739   t1023 = t1022 / 0.4e1;
12740   t1025 = t469 * t323 * t153;
12741   t1026 = t1025 * t480;
12742   t1027 = 0.16493000000000000000e1 * t1026;
12743   t1030 = t327 / t328 / t133;
12744   t1031 = t435 * t435;
12745   t1032 = t1031 * t150;
12746   t1036 = 0.1e1 / t27 / t42;
12747   t1037 = sigma[0] * t1036;
12748   t1038 = t24 * t1037;
12749   t1040 = t42 * t70;
12750   t1042 = 0.1e1 / t26 / t1040;
12751   t1043 = t41 * t1042;
12752   t1047 = t348 * t25;
12753   t1048 = 0.1e1 / t1047;
12754   t1054 = t343 * t35 * t345;
12755   t1055 = t41 * t41;
12756   t1056 = t1054 * t1055;
12757   t1057 = t348 * t42;
12758   t1059 = 0.1e1 / t27 / t1057;
12759   t1061 = t23 * t52;
12760   t1062 = t1059 * t19 * t1061;
12761   t1065 = t432 * t432;
12762   t1067 = t48 * t1036;
12763   t1070 = 0.55e2 / 0.81e2 * t1038;
12764   t1077 = 0.65e2 / 0.26244e5 * t68 * t69 * t45;
12765   t1078 = sigma[0] * t338;
12766   t1081 = 0.13e2 / 0.2916e4 * t68 * t1078 * lapl[0];
12767   t1082 = t68 * t1043;
12768   t1083 = 0.38e2 / 0.19683e5 * t1082;
12769   t1084 = 0.55e2 / 0.729e3 * t1038 + 0.100e3 / 0.243e3 * t24 * lapl[0] * t332 + t1077 - t1081 + t1083;
12770   t1086 = t372 * t375;
12771   t1088 = t91 * t91;
12772   t1090 = 0.1e1 / t92 / t1088;
12773   t1091 = t84 * t1090;
12774   t1092 = t387 * t387;
12775   t1095 = t378 * t378;
12776   t1098 = t85 * t382;
12777   t1099 = t1098 * t378;
12778   t1102 = t1077 - t1081 + t1083;
12779   t1105 = t88 * t88;
12780   t1106 = 0.1e1 / t1105;
12781   t1107 = t86 * t1106;
12782   t1108 = t1107 * t36;
12783   t1109 = t39 * t41;
12784   t1110 = t1109 * t1042;
12785   t1115 = 0.2e1 * t1095 * t89 + 0.40e2 / 0.27e2 * t1099 * t334 + 0.2e1 * t377 * t1102 + 0.50e2 / 0.243e3 * t1108 * t1110 - 0.110e3 / 0.81e2 * t384 * t1067;
12786   t1118 = t1084 * t93 - t1086 * t387 + 0.3e1 / 0.4e1 * t1091 * t1092 - t376 * t1115 / 0.2e1 - t1070;
12787   t1122 = t392 * t95;
12788   t1123 = 0.1e1 / t1122;
12789   t1124 = t390 * t390;
12790   t1125 = t1123 * t1124;
12791   t1128 = t393 * t1118;
12792   t1131 = t392 * t392;
12793   t1132 = 0.1e1 / t1131;
12794   t1133 = t1132 * t1124;
12795   t1136 = t394 * t398;
12796   t1137 = t111 * t401;
12797   t1138 = t402 * t104;
12798   t1139 = t1137 * t1138;
12799   t1142 = t394 * t100;
12800   t1143 = t106 * t407;
12801   t1144 = t1143 * t411;
12802   t1147 = pow(t105, -0.1741696e1);
12803   t1148 = t100 * t1147;
12804   t1149 = t1148 * t111;
12805   t1150 = t400 * t400;
12806   t1151 = 0.1e1 / t1150;
12807   t1152 = t402 * t402;
12808   t1153 = t1151 * t1152;
12809   t1154 = t104 * t104;
12810   t1155 = t1153 * t1154;
12811   t1158 = t398 * t407;
12812   t1159 = t104 * t411;
12813   t1160 = t403 * t1159;
12814   t1163 = t400 * t101;
12815   t1164 = 0.1e1 / t1163;
12816   t1165 = t1164 * t1152;
12817   t1166 = t1165 * t104;
12818   t1169 = -t1118;
12819   t1170 = t401 * t1169;
12820   t1171 = t1170 * t104;
12821   t1174 = t1153 * t104;
12822   t1177 = pow(t110, -0.2258304e1);
12823   t1178 = t411 * t411;
12824   t1180 = t107 * t1177 * t1178;
12825   t1191 = -0.3569440e1 * t1125 * t109 + 0.1784720e1 * t1128 * t109 + 0.3185225478400e1 * t1133 * t109 - 0.3569440e1 * t1166 + 0.1784720e1 * t1171 + 0.3185225478400e1 * t1174;
12826   t1193 = t107 * t407 * t1191;
12827   t1195 = -0.922000629760e0 * t1125 * t112 + 0.461000314880e0 * t1128 * t112 + 0.21252129031945914941e0 * t1133 * t112 + 0.42504258063891829882e0 * t1136 * t1139 - 0.238156450669527040e0 * t1142 * t1144 - 0.61023519165317445059e0 * t1149 * t1155 - 0.238156450669527040e0 * t1158 * t1160 - 0.922000629760e0 * t399 * t1166 + 0.461000314880e0 * t399 * t1171 + 0.822756481972633600e0 * t399 * t1174 + 0.325024956416e0 * t1180 - 0.258304e0 * t1193;
12828   t1196 = my_piecewise3(t97, 0, t1195);
12829   t1197 = my_piecewise3(t96, 0, t1196);
12830   t1203 = 0.3e1 / 0.10e2 * t60 * (t1118 * t114 + t95 * t1197 + 0.2e1 * t390 * t417 + t1070) - 0.11e2 / 0.9e1 * t1037;
12831   t1204 = t56 * t1203;
12832   t1207 = t423 * t423;
12833   t1210 = t39 * t124;
12834   t1211 = t1210 * t128;
12835   t1217 = t126 * t124;
12836   t1218 = t56 * t1217;
12837   t1220 = t68 * t128;
12838   t1223 = 0.77e2 / 0.14580e5 * t57 * t1067 - t1204 * t425 / 0.180e3 - t56 * t1207 * t36 * t1211 / 0.108e3 + t428 * t1203 * t425 / 0.180e3 + t1218 * t1207 * t1220 / 0.324e3;
12839   t1226 = 0.110e3 / 0.2187e4 * t1038 + 0.19e2 / 0.324e3 * t40 * t1043 * t52 - 0.43e2 / 0.320e3 * t346 * t347 * t1048 * t52 + 0.27e2 / 0.3200e4 * t1056 * t1062 + 0.2e1 * t1065 + 0.2e1 * t131 * t1223;
12840   t1229 = t435 * t456;
12841   t1232 = params->c1 * t1203;
12842   t1235 = params->c1 * t1207;
12843   t1236 = t68 * t442;
12844   t1239 = 0.1e1 / t1217;
12845   t1240 = t345 * t1239;
12846   t1241 = t1240 * t1207;
12847   t1244 = t443 * t1203;
12848   t1247 = -0.5e1 / 0.9e1 * t1232 * t142 - 0.50e2 / 0.81e2 * t1235 * t1236 - 0.500e3 / 0.243e3 * t140 * t1241 - 0.25e2 / 0.81e2 * t441 * t1244;
12849   t1248 = t1247 * t145;
12850   t1249 = t447 * t447;
12851   t1250 = t1249 * t145;
12852   t1252 = t449 * t1239;
12853   t1253 = t1207 * t36;
12854   t1254 = t39 * t147;
12855   t1255 = t1253 * t1254;
12856   t1258 = t1203 * t19;
12857   t1259 = t1258 * t452;
12858   t1262 = params->c2 * params->c2;
12859   t1263 = params->d * t1262;
12860   t1264 = t126 * t126;
12861   t1265 = 0.1e1 / t1264;
12862   t1266 = t1263 * t1265;
12863   t1270 = my_piecewise3(t139, t1248 + t1250, -0.50e2 / 0.81e2 * t1252 * t1255 - 0.5e1 / 0.9e1 * t450 * t1259 - 0.25e2 / 0.81e2 * t1266 * t1255);
12864   t1273 = -0.2e1 * t1030 * t1032 + t330 * t1226 * t150 - 0.2e1 * t330 * t1229 - t138 * t1270 + 0.1174e1 * t1270;
12865   t1274 = t1273 * t167;
12866   t1276 = t8 * t18 * t1274;
12867   t1277 = 0.3e1 / 0.8e1 * t1276;
12868   t1279 = t469 * t18 * t459;
12869   t1280 = t1279 * t480;
12870   t1281 = 0.49479000000000000000e1 * t1280;
12871   t1284 = 0.1e1 / t162 / t31 / 0.6e1;
12872   t1286 = t1284 * t19 * t23;
12873   t1288 = t1286 * t1037 * t166;
12874   t1289 = t471 * t1288;
12875   t1290 = 0.29687400000000000000e2 * t1289;
12876   t1291 = t157 * t72;
12877   t1293 = t475 * t1291 * t166;
12878   t1294 = t471 * t1293;
12879   t1295 = 0.57725500000000000000e1 * t1294;
12880   t1296 = t847 * t17;
12881   t1297 = t5 * t1296;
12882   t1298 = t153 * t742;
12883   t1299 = 0.1e1 / t27;
12884   t1301 = t24 * t166;
12885   t1302 = t1298 * t1299 * t1301;
12886   t1303 = t1297 * t1302;
12887   t1304 = 0.80541612095716256868e2 * t1303;
12888   t1305 = t173 * t173;
12889   t1306 = 0.1e1 / t1305;
12890   t1307 = t7 * t1306;
12891   t1308 = t5 * t1307;
12892   t1309 = t486 * t486;
12893   t1310 = t302 * t1309;
12894   t1312 = t1308 * t485 * t1310;
12895   t1313 = t1312 / 0.6e1;
12896   t1314 = t322 * t291;
12897   t1316 = t484 * t1314 * t487;
12898   t1317 = t1316 / 0.3e1;
12899   t1318 = -t1010;
12900   t1319 = t302 * t1318;
12901   t1321 = t484 * t485 * t1319;
12902   t1322 = t1321 / 0.2e1;
12903   t1323 = t174 * t1016;
12904   t1325 = t8 * t1323 * t303;
12905   t1326 = t1325 / 0.12e2;
12906   t1327 = -t991 - t995 - t998 - t1006 - t1014 + t1020 - t1023 - t1027 - t1277 - t1281 - t1290 + t1295 + t1304 - t1313 - t1317 - t1322 + t1326;
12907   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12908     v2rho2[0] = -t319 - t979 - 0.3e1 / 0.4e1 * t462 - 0.49479000000000000000e1 * t481 - t489 - t982 + t10 * t1327;
12909 
12910   t1329 = t499 * t316;
12911   t1331 = t986 * t311 * t1329;
12912   t1334 = t310 * t992 * t499;
12913   t1337 = t310 * t996 * t499;
12914   t1339 = t166 * t498;
12915   t1341 = t475 * t478 * t1339;
12916   t1342 = t1001 * t1341;
12917   t1345 = 0.1e1 / t321 / t312;
12918   t1346 = t1345 * t153;
12919   t1347 = t167 * t9;
12920   t1349 = t310 * t1346 * t1347;
12921   t1354 = t504 * t486;
12922   t1356 = t1308 * t485 * t1354;
12923   t1359 = t484 * t1314 * t504;
12924   t1361 = t1345 * t291;
12925   t1362 = t302 * t9;
12926   t1364 = t484 * t1361 * t1362;
12927   t1367 = t17 * t634;
12928   t1369 = t484 * t1367 * t487;
12929   t1372 = t8 * t491 * t635;
12930   t1374 = t173 * t17;
12931   t1375 = t1374 * t291;
12932   t1376 = t469 * t1375;
12933   t1377 = t301 * t486;
12934   t1379 = t644 * t647 * t1377;
12935   t1380 = t1376 * t1379;
12936   t1383 = t469 * t491 * t291;
12937   t1384 = t1383 * t649;
12938   t1386 = -t1331 / 0.6e1 - t1334 / 0.6e1 - t1337 / 0.2e1 - 0.32986000000000000000e1 * t1342 - t1349 / 0.2e1 - t994 / 0.6e1 + t1020 - t1022 / 0.8e1 - 0.82465000000000000000e0 * t1026 - t1356 / 0.6e1 - t1359 / 0.6e1 + t1364 / 0.2e1 - t1316 / 0.6e1 + t1326 - t1369 / 0.2e1 - t1372 / 0.8e1 - 0.32986000000000000000e1 * t1380 - 0.82465000000000000000e0 * t1384;
12939   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12940     v2rho2[1] = t10 * t1386 - t320 - t463 - t482 - t490 - t502 - t507 - t638 - t651 - t979 - t982;
12941 
12942   t1390 = t498 * t498;
12943   t1391 = t167 * t1390;
12944   t1393 = t986 * t311 * t1391;
12945   t1394 = t1393 / 0.6e1;
12946   t1395 = t1334 / 0.3e1;
12947   t1396 = t313 + t1009;
12948   t1397 = t167 * t1396;
12949   t1399 = t310 * t311 * t1397;
12950   t1400 = t1399 / 0.2e1;
12951   t1401 = t503 * t503;
12952   t1402 = t302 * t1401;
12953   t1404 = t1308 * t485 * t1402;
12954   t1405 = t1404 / 0.6e1;
12955   t1406 = t1359 / 0.3e1;
12956   t1408 = t484 * t1367 * t504;
12957   t1409 = t301 * t503;
12958   t1411 = t644 * t647 * t1409;
12959   t1412 = t1376 * t1411;
12960   t1413 = 0.65972000000000000000e1 * t1412;
12961   t1414 = -t1396;
12962   t1415 = t302 * t1414;
12963   t1417 = t484 * t485 * t1415;
12964   t1418 = t1417 / 0.2e1;
12965   t1419 = t1372 / 0.4e1;
12966   t1420 = 0.16493000000000000000e1 * t1384;
12967   t1423 = t327 / t508 / t271;
12968   t1424 = t611 * t611;
12969   t1425 = t1424 * t288;
12970   t1429 = 0.1e1 / t178 / t185;
12971   t1430 = sigma[2] * t1429;
12972   t1431 = t24 * t1430;
12973   t1433 = t185 * t208;
12974   t1435 = 0.1e1 / t177 / t1433;
12975   t1436 = t184 * t1435;
12976   t1440 = t524 * t176;
12977   t1441 = 0.1e1 / t1440;
12978   t1446 = t184 * t184;
12979   t1447 = t1054 * t1446;
12980   t1448 = t524 * t185;
12981   t1450 = 0.1e1 / t178 / t1448;
12982   t1452 = t23 * t194;
12983   t1453 = t1450 * t19 * t1452;
12984   t1456 = t608 * t608;
12985   t1458 = t190 * t1429;
12986   t1461 = 0.55e2 / 0.81e2 * t1431;
12987   t1468 = 0.65e2 / 0.26244e5 * t68 * t207 * t188;
12988   t1469 = sigma[2] * t518;
12989   t1472 = 0.13e2 / 0.2916e4 * t68 * t1469 * lapl[1];
12990   t1473 = t68 * t1436;
12991   t1474 = 0.38e2 / 0.19683e5 * t1473;
12992   t1475 = 0.55e2 / 0.729e3 * t1431 + 0.100e3 / 0.243e3 * t24 * lapl[1] * t512 + t1468 - t1472 + t1474;
12993   t1477 = t548 * t551;
12994   t1479 = t229 * t229;
12995   t1481 = 0.1e1 / t230 / t1479;
12996   t1482 = t222 * t1481;
12997   t1483 = t563 * t563;
12998   t1486 = t554 * t554;
12999   t1489 = t223 * t558;
13000   t1490 = t1489 * t554;
13001   t1493 = t1468 - t1472 + t1474;
13002   t1496 = t226 * t226;
13003   t1497 = 0.1e1 / t1496;
13004   t1498 = t224 * t1497;
13005   t1499 = t1498 * t36;
13006   t1500 = t39 * t184;
13007   t1501 = t1500 * t1435;
13008   t1506 = 0.2e1 * t1486 * t227 + 0.40e2 / 0.27e2 * t1490 * t514 + 0.2e1 * t553 * t1493 + 0.50e2 / 0.243e3 * t1499 * t1501 - 0.110e3 / 0.81e2 * t560 * t1458;
13009   t1509 = t1475 * t231 - t1477 * t563 + 0.3e1 / 0.4e1 * t1482 * t1483 - t552 * t1506 / 0.2e1 - t1461;
13010   t1513 = t568 * t233;
13011   t1514 = 0.1e1 / t1513;
13012   t1515 = t566 * t566;
13013   t1516 = t1514 * t1515;
13014   t1519 = t569 * t1509;
13015   t1522 = t568 * t568;
13016   t1523 = 0.1e1 / t1522;
13017   t1524 = t1523 * t1515;
13018   t1527 = t570 * t574;
13019   t1528 = t249 * t577;
13020   t1529 = t578 * t242;
13021   t1530 = t1528 * t1529;
13022   t1533 = t570 * t238;
13023   t1534 = t244 * t583;
13024   t1535 = t1534 * t587;
13025   t1538 = pow(t243, -0.1741696e1);
13026   t1539 = t238 * t1538;
13027   t1540 = t1539 * t249;
13028   t1541 = t576 * t576;
13029   t1542 = 0.1e1 / t1541;
13030   t1543 = t578 * t578;
13031   t1544 = t1542 * t1543;
13032   t1545 = t242 * t242;
13033   t1546 = t1544 * t1545;
13034   t1549 = t574 * t583;
13035   t1550 = t242 * t587;
13036   t1551 = t579 * t1550;
13037   t1554 = t576 * t239;
13038   t1555 = 0.1e1 / t1554;
13039   t1556 = t1555 * t1543;
13040   t1557 = t1556 * t242;
13041   t1560 = -t1509;
13042   t1561 = t577 * t1560;
13043   t1562 = t1561 * t242;
13044   t1565 = t1544 * t242;
13045   t1568 = pow(t248, -0.2258304e1);
13046   t1569 = t587 * t587;
13047   t1571 = t245 * t1568 * t1569;
13048   t1582 = -0.3569440e1 * t1516 * t247 + 0.1784720e1 * t1519 * t247 + 0.3185225478400e1 * t1524 * t247 - 0.3569440e1 * t1557 + 0.1784720e1 * t1562 + 0.3185225478400e1 * t1565;
13049   t1584 = t245 * t583 * t1582;
13050   t1586 = -0.922000629760e0 * t1516 * t250 + 0.461000314880e0 * t1519 * t250 + 0.21252129031945914941e0 * t1524 * t250 + 0.42504258063891829882e0 * t1527 * t1530 - 0.238156450669527040e0 * t1533 * t1535 - 0.61023519165317445059e0 * t1540 * t1546 - 0.238156450669527040e0 * t1549 * t1551 - 0.922000629760e0 * t575 * t1557 + 0.461000314880e0 * t575 * t1562 + 0.822756481972633600e0 * t575 * t1565 + 0.325024956416e0 * t1571 - 0.258304e0 * t1584;
13051   t1587 = my_piecewise3(t235, 0, t1586);
13052   t1588 = my_piecewise3(t234, 0, t1587);
13053   t1594 = 0.3e1 / 0.10e2 * t60 * (t1509 * t252 + t233 * t1588 + 0.2e1 * t566 * t593 + t1461) - 0.11e2 / 0.9e1 * t1430;
13054   t1595 = t56 * t1594;
13055   t1598 = t599 * t599;
13056   t1601 = t39 * t262;
13057   t1602 = t1601 * t266;
13058   t1608 = t264 * t262;
13059   t1609 = t56 * t1608;
13060   t1611 = t68 * t266;
13061   t1614 = 0.77e2 / 0.14580e5 * t57 * t1458 - t1595 * t601 / 0.180e3 - t56 * t1598 * t36 * t1602 / 0.108e3 + t604 * t1594 * t601 / 0.180e3 + t1609 * t1598 * t1611 / 0.324e3;
13062   t1617 = 0.110e3 / 0.2187e4 * t1431 + 0.19e2 / 0.324e3 * t40 * t1436 * t194 - 0.43e2 / 0.320e3 * t346 * t523 * t1441 * t194 + 0.27e2 / 0.3200e4 * t1447 * t1453 + 0.2e1 * t1456 + 0.2e1 * t269 * t1614;
13063   t1620 = t611 * t631;
13064   t1623 = params->c1 * t1594;
13065   t1626 = params->c1 * t1598;
13066   t1627 = t68 * t618;
13067   t1630 = 0.1e1 / t1608;
13068   t1631 = t345 * t1630;
13069   t1632 = t1631 * t1598;
13070   t1635 = t619 * t1594;
13071   t1638 = -0.5e1 / 0.9e1 * t1623 * t280 - 0.50e2 / 0.81e2 * t1626 * t1627 - 0.500e3 / 0.243e3 * t278 * t1632 - 0.25e2 / 0.81e2 * t617 * t1635;
13072   t1639 = t1638 * t283;
13073   t1640 = t623 * t623;
13074   t1641 = t1640 * t283;
13075   t1643 = t449 * t1630;
13076   t1644 = t1598 * t36;
13077   t1645 = t39 * t285;
13078   t1646 = t1644 * t1645;
13079   t1649 = t1594 * t19;
13080   t1650 = t1649 * t627;
13081   t1653 = t264 * t264;
13082   t1654 = 0.1e1 / t1653;
13083   t1655 = t1263 * t1654;
13084   t1659 = my_piecewise3(t277, t1639 + t1641, -0.50e2 / 0.81e2 * t1643 * t1646 - 0.5e1 / 0.9e1 * t625 * t1650 - 0.25e2 / 0.81e2 * t1655 * t1646);
13085   t1662 = -0.2e1 * t1423 * t1425 + t510 * t1617 * t288 - 0.2e1 * t510 * t1620 - t276 * t1659 + 0.1174e1 * t1659;
13086   t1663 = t1662 * t302;
13087   t1665 = t8 * t175 * t1663;
13088   t1666 = 0.3e1 / 0.8e1 * t1665;
13089   t1668 = t469 * t175 * t634;
13090   t1669 = t1668 * t649;
13091   t1670 = 0.49479000000000000000e1 * t1669;
13092   t1673 = 0.1e1 / t297 / t182 / 0.6e1;
13093   t1675 = t1673 * t19 * t23;
13094   t1677 = t1675 * t1430 * t301;
13095   t1678 = t640 * t1677;
13096   t1679 = 0.29687400000000000000e2 * t1678;
13097   t1680 = t292 * t210;
13098   t1682 = t644 * t1680 * t301;
13099   t1683 = t640 * t1682;
13100   t1684 = 0.57725500000000000000e1 * t1683;
13101   t1685 = t913 * t17;
13102   t1686 = t5 * t1685;
13103   t1687 = t291 * t837;
13104   t1688 = 0.1e1 / t178;
13105   t1690 = t24 * t301;
13106   t1691 = t1687 * t1688 * t1690;
13107   t1692 = t1686 * t1691;
13108   t1693 = 0.80541612095716256868e2 * t1692;
13109   t1694 = -t1394 - t1395 - t1400 + t1020 - t1405 - t1406 - t1408 - t1413 - t1418 + t1326 - t1419 - t1420 - t1666 - t1670 - t1679 + t1684 + t1693;
13110   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13111     v2rho2[2] = -t501 - t979 - t506 - t982 - 0.3e1 / 0.4e1 * t637 - 0.49479000000000000000e1 * t650 + t10 * t1694;
13112 
13113   t1696 = t17 * t737;
13114   t1698 = t310 * t1696 * t317;
13115   t1699 = t1698 / 0.2e1;
13116   t1701 = t8 * t323 * t738;
13117   t1702 = t1701 / 0.8e1;
13118   t1703 = t720 * t435;
13119   t1706 = t24 * t332;
13120   t1715 = t1054 * t347;
13121   t1716 = t348 * t70;
13122   t1718 = 0.1e1 / t27 / t1716;
13123   t1719 = t1718 * t19;
13124   t1720 = t1719 * t1061;
13125   t1725 = t23 * t332;
13126   t1728 = 0.5e1 / 0.27e2 * t1706;
13127   t1731 = t68 * t45 * lapl[0];
13128   t1732 = 0.13e2 / 0.15552e5 * t1731;
13129   t1733 = t68 * t1078;
13130   t1734 = 0.4e1 / 0.6561e4 * t1733;
13131   t1735 = -0.5e1 / 0.243e3 * t1706 + t1732 - t1734;
13132   t1737 = t674 * t375;
13133   t1742 = t681 * t387;
13134   t1745 = t378 * t89;
13135   t1748 = t1098 * t676;
13136   t1751 = t1732 - t1734;
13137   t1754 = t1098 * t19;
13138   t1755 = t664 * t378;
13139   t1758 = t39 * t338;
13140   t1759 = t1758 * sigma[0];
13141   t1764 = 0.2e1 * t1745 * t676 + 0.20e2 / 0.27e2 * t1748 * t334 + 0.2e1 * t377 * t1751 - 0.5e1 / 0.18e2 * t1754 * t1755 - 0.25e2 / 0.324e3 * t1108 * t1759 + 0.10e2 / 0.27e2 * t383 * t1706;
13142   t1767 = t1735 * t93 - t1737 * t387 / 0.2e1 - t1086 * t681 / 0.2e1 + 0.3e1 / 0.4e1 * t1091 * t1742 - t376 * t1764 / 0.2e1 + t1728;
13143   t1771 = t1123 * t684;
13144   t1772 = t1771 * t100;
13145   t1773 = t106 * t111;
13146   t1774 = t1773 * t390;
13147   t1777 = t393 * t1767;
13148   t1780 = t1132 * t684;
13149   t1781 = t1780 * t390;
13150   t1784 = t686 * t398;
13151   t1787 = t686 * t100;
13152   t1790 = t689 * t104;
13153   t1791 = t1137 * t1790;
13154   t1794 = t1151 * t689;
13155   t1795 = t1154 * t402;
13156   t1796 = t1794 * t1795;
13157   t1799 = t690 * t1159;
13158   t1802 = t1164 * t689;
13159   t1803 = t1802 * t1138;
13160   t1806 = -t1767;
13161   t1807 = t401 * t1806;
13162   t1808 = t1807 * t104;
13163   t1811 = t1794 * t1138;
13164   t1814 = t1143 * t697;
13165   t1817 = t697 * t401;
13166   t1818 = t1817 * t1138;
13167   t1821 = t1177 * t697;
13168   t1825 = t109 * t390;
13169   t1835 = -0.3569440e1 * t1771 * t1825 + 0.1784720e1 * t1777 * t109 + 0.3185225478400e1 * t1780 * t1825 - 0.3569440e1 * t1803 + 0.1784720e1 * t1808 + 0.3185225478400e1 * t1811;
13170   t1836 = t407 * t1835;
13171   t1837 = t107 * t1836;
13172   t1839 = -0.922000629760e0 * t1772 * t1774 + 0.461000314880e0 * t1777 * t112 + 0.21252129031945914941e0 * t1781 * t112 + 0.21252129031945914941e0 * t1784 * t1139 - 0.119078225334763520e0 * t1787 * t1144 + 0.21252129031945914941e0 * t1136 * t1791 - 0.61023519165317445059e0 * t1149 * t1796 - 0.119078225334763520e0 * t1158 * t1799 - 0.922000629760e0 * t399 * t1803 + 0.461000314880e0 * t399 * t1808 + 0.822756481972633600e0 * t399 * t1811 - 0.119078225334763520e0 * t1142 * t1814 - 0.119078225334763520e0 * t1158 * t1818 + 0.325024956416e0 * t107 * t1821 * t411 - 0.258304e0 * t1837;
13173   t1840 = my_piecewise3(t97, 0, t1839);
13174   t1841 = my_piecewise3(t96, 0, t1840);
13175   t1847 = 0.3e1 / 0.10e2 * t60 * (t1767 * t114 + t95 * t1841 + t390 * t703 + t684 * t417 - t1728) + t332 / 0.3e1;
13176   t1848 = t56 * t1847;
13177   t1851 = t710 * t36;
13178   t1852 = t423 * t128;
13179   t1853 = t1210 * t1852;
13180   t1859 = t1218 * t709;
13181   t1860 = t68 * t1852;
13182   t1863 = -0.7e1 / 0.4860e4 * t57 * t1725 - t1848 * t425 / 0.180e3 - t1851 * t1853 / 0.108e3 + t428 * t1847 * t425 / 0.180e3 + t1859 * t1860 / 0.324e3;
13183   t1866 = -0.10e2 / 0.729e3 * t1706 - t40 * t1078 * t52 / 0.54e2 + 0.3e1 / 0.64e2 * t346 * t41 * t350 * t52 - 0.81e2 / 0.25600e5 * t1715 * t1720 + 0.2e1 * t432 * t716 + 0.2e1 * t131 * t1863;
13184   t1867 = t1866 * t150;
13185   t1869 = t719 * t456;
13186   t1871 = t435 * t734;
13187   t1873 = params->c1 * t1847;
13188   t1876 = t722 * t36;
13189   t1879 = t140 * t345;
13190   t1880 = t1239 * t709;
13191   t1884 = t443 * t1847;
13192   t1887 = -0.5e1 / 0.9e1 * t1873 * t142 - 0.50e2 / 0.81e2 * t1876 * t444 - 0.500e3 / 0.243e3 * t1879 * t1880 * t423 - 0.25e2 / 0.81e2 * t441 * t1884;
13193   t1888 = t1887 * t145;
13194   t1889 = t728 * t447;
13195   t1892 = t449 * t1880;
13196   t1893 = t147 * t423;
13197   t1894 = t68 * t1893;
13198   t1897 = t1847 * t19;
13199   t1898 = t1897 * t452;
13200   t1901 = t1265 * t709;
13201   t1902 = t1263 * t1901;
13202   t1906 = my_piecewise3(t139, t1889 * t145 + t1888, -0.50e2 / 0.81e2 * t1892 * t1894 - 0.5e1 / 0.9e1 * t450 * t1898 - 0.25e2 / 0.81e2 * t1902 * t1894);
13203   t1909 = -0.2e1 * t1030 * t1703 + t330 * t1867 - t330 * t1869 - t330 * t1871 - t138 * t1906 + 0.1174e1 * t1906;
13204   t1910 = t1909 * t167;
13205   t1912 = t8 * t18 * t1910;
13206   t1913 = 0.3e1 / 0.8e1 * t1912;
13207   t1915 = t469 * t18 * t737;
13208   t1916 = t1915 * t480;
13209   t1917 = 0.24739500000000000000e1 * t1916;
13210   t1919 = t475 * t743 * t1002;
13211   t1920 = t1001 * t1919;
13212   t1921 = 0.12369750000000000000e1 * t1920;
13213   t1922 = t1025 * t745;
13214   t1923 = 0.30924375000000000000e0 * t1922;
13215   t1924 = t1279 * t745;
13216   t1925 = 0.92773125000000000000e0 * t1924;
13217   t1926 = t468 * t1296;
13218   t1927 = t153 * t1284;
13219   t1928 = t1927 * t19;
13220   t1929 = t1725 * t166;
13221   t1930 = t1928 * t1929;
13222   t1931 = t1926 * t1930;
13223   t1932 = 0.11132775000000000000e2 * t1931;
13224   t1933 = t742 * t477;
13225   t1935 = t475 * t1933 * t166;
13226   t1936 = t471 * t1935;
13227   t1937 = 0.12369750000000000000e1 * t1936;
13228   t1938 = t157 * sigma[0];
13229   t1939 = 0.1e1 / t1938;
13230   t1940 = t153 * t1939;
13231   t1942 = t1940 * t26 * t1301;
13232   t1943 = t1297 * t1942;
13233   t1944 = 0.30203104535893596325e2 * t1943;
13234   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13235     v2rhosigma[0] = -t741 + t747 + t10 * (-t1699 - t1702 - t1913 - t1917 + t1921 + t1923 + t1925 + t1932 - t1937 - t1944);
13236 
13237   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13238     v2rhosigma[1] = 0.0e0;
13239 
13240   t1947 = t17 * t832;
13241   t1949 = t484 * t1947 * t487;
13242   t1950 = t1949 / 0.2e1;
13243   t1952 = t8 * t491 * t833;
13244   t1953 = t1952 / 0.8e1;
13245   t1955 = t644 * t838 * t1377;
13246   t1956 = t1376 * t1955;
13247   t1957 = 0.12369750000000000000e1 * t1956;
13248   t1958 = t1383 * t840;
13249   t1959 = 0.30924375000000000000e0 * t1958;
13250   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13251     v2rhosigma[2] = -t836 + t842 + t10 * (-t1950 - t1953 + t1957 + t1959);
13252 
13253   t1963 = t310 * t1696 * t499;
13254   t1964 = t1963 / 0.2e1;
13255   t1966 = t475 * t743 * t1339;
13256   t1967 = t1001 * t1966;
13257   t1968 = 0.12369750000000000000e1 * t1967;
13258   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13259     v2rhosigma[3] = -t741 + t747 + t10 * (-t1964 - t1702 + t1968 + t1923);
13260 
13261   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13262     v2rhosigma[4] = 0.0e0;
13263 
13264   t1972 = t484 * t1947 * t504;
13265   t1973 = t1972 / 0.2e1;
13266   t1974 = t815 * t611;
13267   t1977 = t24 * t512;
13268   t1986 = t1054 * t523;
13269   t1987 = t524 * t208;
13270   t1989 = 0.1e1 / t178 / t1987;
13271   t1990 = t1989 * t19;
13272   t1991 = t1990 * t1452;
13273   t1996 = t23 * t512;
13274   t1999 = 0.5e1 / 0.27e2 * t1977;
13275   t2002 = t68 * t188 * lapl[1];
13276   t2003 = 0.13e2 / 0.15552e5 * t2002;
13277   t2004 = t68 * t1469;
13278   t2005 = 0.4e1 / 0.6561e4 * t2004;
13279   t2006 = -0.5e1 / 0.243e3 * t1977 + t2003 - t2005;
13280   t2008 = t769 * t551;
13281   t2013 = t776 * t563;
13282   t2016 = t554 * t227;
13283   t2019 = t1489 * t771;
13284   t2022 = t2003 - t2005;
13285   t2025 = t1489 * t19;
13286   t2026 = t759 * t554;
13287   t2029 = t39 * t518;
13288   t2030 = t2029 * sigma[2];
13289   t2035 = 0.2e1 * t2016 * t771 + 0.20e2 / 0.27e2 * t2019 * t514 + 0.2e1 * t553 * t2022 - 0.5e1 / 0.18e2 * t2025 * t2026 - 0.25e2 / 0.324e3 * t1499 * t2030 + 0.10e2 / 0.27e2 * t559 * t1977;
13290   t2038 = t2006 * t231 - t2008 * t563 / 0.2e1 - t1477 * t776 / 0.2e1 + 0.3e1 / 0.4e1 * t1482 * t2013 - t552 * t2035 / 0.2e1 + t1999;
13291   t2042 = t1514 * t779;
13292   t2043 = t2042 * t238;
13293   t2044 = t244 * t249;
13294   t2045 = t2044 * t566;
13295   t2048 = t569 * t2038;
13296   t2051 = t1523 * t779;
13297   t2052 = t2051 * t566;
13298   t2055 = t781 * t574;
13299   t2058 = t781 * t238;
13300   t2061 = t784 * t242;
13301   t2062 = t1528 * t2061;
13302   t2065 = t1542 * t784;
13303   t2066 = t1545 * t578;
13304   t2067 = t2065 * t2066;
13305   t2070 = t785 * t1550;
13306   t2073 = t1555 * t784;
13307   t2074 = t2073 * t1529;
13308   t2077 = -t2038;
13309   t2078 = t577 * t2077;
13310   t2079 = t2078 * t242;
13311   t2082 = t2065 * t1529;
13312   t2085 = t1534 * t792;
13313   t2088 = t792 * t577;
13314   t2089 = t2088 * t1529;
13315   t2092 = t1568 * t792;
13316   t2096 = t247 * t566;
13317   t2106 = -0.3569440e1 * t2042 * t2096 + 0.1784720e1 * t2048 * t247 + 0.3185225478400e1 * t2051 * t2096 - 0.3569440e1 * t2074 + 0.1784720e1 * t2079 + 0.3185225478400e1 * t2082;
13318   t2107 = t583 * t2106;
13319   t2108 = t245 * t2107;
13320   t2110 = -0.922000629760e0 * t2043 * t2045 + 0.461000314880e0 * t2048 * t250 + 0.21252129031945914941e0 * t2052 * t250 + 0.21252129031945914941e0 * t2055 * t1530 - 0.119078225334763520e0 * t2058 * t1535 + 0.21252129031945914941e0 * t1527 * t2062 - 0.61023519165317445059e0 * t1540 * t2067 - 0.119078225334763520e0 * t1549 * t2070 - 0.922000629760e0 * t575 * t2074 + 0.461000314880e0 * t575 * t2079 + 0.822756481972633600e0 * t575 * t2082 - 0.119078225334763520e0 * t1533 * t2085 - 0.119078225334763520e0 * t1549 * t2089 + 0.325024956416e0 * t245 * t2092 * t587 - 0.258304e0 * t2108;
13321   t2111 = my_piecewise3(t235, 0, t2110);
13322   t2112 = my_piecewise3(t234, 0, t2111);
13323   t2118 = 0.3e1 / 0.10e2 * t60 * (t2038 * t252 + t233 * t2112 + t566 * t798 + t779 * t593 - t1999) + t512 / 0.3e1;
13324   t2119 = t56 * t2118;
13325   t2122 = t805 * t36;
13326   t2123 = t599 * t266;
13327   t2124 = t1601 * t2123;
13328   t2130 = t1609 * t804;
13329   t2131 = t68 * t2123;
13330   t2134 = -0.7e1 / 0.4860e4 * t57 * t1996 - t2119 * t601 / 0.180e3 - t2122 * t2124 / 0.108e3 + t604 * t2118 * t601 / 0.180e3 + t2130 * t2131 / 0.324e3;
13331   t2137 = -0.10e2 / 0.729e3 * t1977 - t40 * t1469 * t194 / 0.54e2 + 0.3e1 / 0.64e2 * t346 * t184 * t526 * t194 - 0.81e2 / 0.25600e5 * t1986 * t1991 + 0.2e1 * t608 * t811 + 0.2e1 * t269 * t2134;
13332   t2138 = t2137 * t288;
13333   t2140 = t814 * t631;
13334   t2142 = t611 * t829;
13335   t2144 = params->c1 * t2118;
13336   t2147 = t817 * t36;
13337   t2150 = t278 * t345;
13338   t2151 = t1630 * t804;
13339   t2155 = t619 * t2118;
13340   t2158 = -0.5e1 / 0.9e1 * t2144 * t280 - 0.50e2 / 0.81e2 * t2147 * t620 - 0.500e3 / 0.243e3 * t2150 * t2151 * t599 - 0.25e2 / 0.81e2 * t617 * t2155;
13341   t2159 = t2158 * t283;
13342   t2160 = t823 * t623;
13343   t2163 = t449 * t2151;
13344   t2164 = t285 * t599;
13345   t2165 = t68 * t2164;
13346   t2168 = t2118 * t19;
13347   t2169 = t2168 * t627;
13348   t2172 = t1654 * t804;
13349   t2173 = t1263 * t2172;
13350   t2177 = my_piecewise3(t277, t2160 * t283 + t2159, -0.50e2 / 0.81e2 * t2163 * t2165 - 0.5e1 / 0.9e1 * t625 * t2169 - 0.25e2 / 0.81e2 * t2173 * t2165);
13351   t2180 = -0.2e1 * t1423 * t1974 + t510 * t2138 - t510 * t2140 - t510 * t2142 - t276 * t2177 + 0.1174e1 * t2177;
13352   t2181 = t2180 * t302;
13353   t2183 = t8 * t175 * t2181;
13354   t2184 = 0.3e1 / 0.8e1 * t2183;
13355   t2186 = t469 * t175 * t832;
13356   t2187 = t2186 * t649;
13357   t2188 = 0.24739500000000000000e1 * t2187;
13358   t2190 = t644 * t838 * t1409;
13359   t2191 = t1376 * t2190;
13360   t2192 = 0.12369750000000000000e1 * t2191;
13361   t2193 = t1668 * t840;
13362   t2194 = 0.92773125000000000000e0 * t2193;
13363   t2195 = t468 * t1685;
13364   t2196 = t291 * t1673;
13365   t2197 = t2196 * t19;
13366   t2198 = t1996 * t301;
13367   t2199 = t2197 * t2198;
13368   t2200 = t2195 * t2199;
13369   t2201 = 0.11132775000000000000e2 * t2200;
13370   t2202 = t837 * t646;
13371   t2204 = t644 * t2202 * t301;
13372   t2205 = t640 * t2204;
13373   t2206 = 0.12369750000000000000e1 * t2205;
13374   t2207 = t292 * sigma[2];
13375   t2208 = 0.1e1 / t2207;
13376   t2209 = t291 * t2208;
13377   t2211 = t2209 * t177 * t1690;
13378   t2212 = t1686 * t2211;
13379   t2213 = 0.30203104535893596325e2 * t2212;
13380   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13381     v2rhosigma[5] = -t836 + t842 + t10 * (-t1973 - t1953 - t2184 - t2188 + t2192 + t1959 + t2194 + t2201 - t2206 - t2213);
13382 
13383   t2217 = t8 * t18 * t909;
13384   t2219 = t4 * t7;
13385   t2220 = t845 * t2219;
13386   t2221 = t15 * t908;
13387   t2225 = t1030 * t131;
13388   t2226 = t887 * t150;
13389   t2227 = t2226 * t435;
13390   t2230 = t432 * t887;
13391   t2235 = 0.5e1 / 0.4374e4 * t670;
13392   t2236 = 0.13e2 / 0.15552e5 * t672;
13393   t2237 = -0.25e2 / 0.162e3 * t654 - t2235 + t2236;
13394   t2239 = t855 * t375;
13395   t2243 = t1091 * t85;
13396   t2244 = t89 * t857;
13397   t2245 = t2244 * t387;
13398   t2248 = t1745 * t857;
13399   t2250 = t376 * t1098;
13400   t2251 = t857 * t19;
13401   t2252 = t2251 * t355;
13402   t2255 = -t2235 + t2236;
13403   t2256 = t377 * t2255;
13404   t2258 = t2237 * t93 - t2239 * t387 / 0.2e1 - t1086 * t858 + 0.3e1 / 0.2e1 * t2243 * t2245 - t376 * t2248 - 0.10e2 / 0.27e2 * t2250 * t2252 - t376 * t2256;
13405   t2262 = t1123 * t860;
13406   t2263 = t2262 * t100;
13407   t2266 = t393 * t2258;
13408   t2269 = t1132 * t860;
13409   t2270 = t2269 * t390;
13410   t2273 = t862 * t398;
13411   t2276 = t862 * t100;
13412   t2279 = t865 * t104;
13413   t2280 = t1137 * t2279;
13414   t2283 = t1151 * t865;
13415   t2290 = t1164 * t865;
13416   t2291 = t2290 * t1138;
13417   t2294 = -t2258;
13418   t2295 = t401 * t2294;
13419   t2296 = t2295 * t104;
13420   t2299 = t2283 * t1138;
13421   t2302 = t1143 * t873;
13422   t2305 = t873 * t401;
13423   t2309 = t1177 * t873;
13424   t2322 = -0.3569440e1 * t2262 * t1825 + 0.1784720e1 * t2266 * t109 + 0.3185225478400e1 * t2269 * t1825 - 0.3569440e1 * t2291 + 0.1784720e1 * t2296 + 0.3185225478400e1 * t2299;
13425   t2323 = t407 * t2322;
13426   t2324 = t107 * t2323;
13427   t2326 = -0.922000629760e0 * t2263 * t1774 + 0.461000314880e0 * t2266 * t112 + 0.21252129031945914941e0 * t2270 * t112 + 0.21252129031945914941e0 * t2273 * t1139 - 0.119078225334763520e0 * t2276 * t1144 + 0.21252129031945914941e0 * t1136 * t2280 - 0.61023519165317445059e0 * t1149 * t2283 * t1795 - 0.119078225334763520e0 * t1158 * t866 * t1159 - 0.922000629760e0 * t399 * t2291 + 0.461000314880e0 * t399 * t2296 + 0.822756481972633600e0 * t399 * t2299 - 0.119078225334763520e0 * t1142 * t2302 - 0.119078225334763520e0 * t1158 * t2305 * t1138 + 0.325024956416e0 * t107 * t2309 * t411 - 0.258304e0 * t2324;
13428   t2327 = my_piecewise3(t97, 0, t2326);
13429   t2328 = my_piecewise3(t96, 0, t2327);
13430   t2330 = -t2258 * t114 - t95 * t2328 - t390 * t879 - t860 * t417;
13431   t2331 = t56 * t2330;
13432   t2334 = t882 * t124;
13433   t2335 = t23 * t128;
13434   t2336 = t451 * t2335;
13435   t2339 = t2330 * t128;
13436   t2342 = t1218 * t881;
13437   t2345 = t2331 * t128 / 0.100e3 + t2334 * t2336 / 0.60e2 - t428 * t2339 / 0.100e3 - t2342 * t2336 / 0.180e3;
13438   t2346 = t131 * t2345;
13439   t2353 = t435 * t905;
13440   t2356 = -params->c1 * t2330;
13441   t2358 = t893 * t442;
13442   t2359 = t451 * t23;
13443   t2362 = t438 * t19;
13444   t2365 = t39 * t1239;
13445   t2366 = t881 * t423;
13446   t2367 = t2365 * t2366;
13447   t2370 = t896 * t2330;
13448   t2373 = -t2356 * t141 - 0.5e1 / 0.9e1 * t2358 * t2359 + 0.5e1 / 0.9e1 * t2362 * t897 + 0.50e2 / 0.81e2 * t441 * t2367 + 0.5e1 / 0.9e1 * t895 * t2370;
13449   t2374 = t2373 * t145;
13450   t2375 = t900 * t447;
13451   t2378 = t1239 * t881;
13452   t2379 = t449 * t2378;
13453   t2382 = t442 * t2330;
13454   t2385 = t1265 * t881;
13455   t2386 = t1263 * t2385;
13456   t2390 = my_piecewise3(t139, t2375 * t145 + t2374, 0.10e2 / 0.9e1 * t2379 * t453 + t449 * t2382 * t147 + 0.5e1 / 0.9e1 * t2386 * t453);
13457   t2393 = -0.4e1 * t2225 * t2227 + 0.2e1 * t330 * t2230 * t150 + 0.2e1 * t330 * t2346 * t150 - 0.2e1 * t330 * t888 * t456 - t330 * t2353 - t138 * t2390 + 0.1174e1 * t2390;
13458   t2394 = t2393 * t167;
13459   t2398 = t844 * t467;
13460   t2399 = t2398 * t4;
13461   t2401 = t2399 * t847 * t908;
13462   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13463     v2rholapl[0] = -t2217 / 0.2e1 - t2220 * t2221 * t317 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t847 * t2394 - 0.24739500000000000000e1 * t2401 * t480;
13464 
13465   t2405 = t8 * t175 * t975;
13466   t2406 = t173 * t974;
13467   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13468     v2rholapl[1] = -t2220 * t2406 * t487 / 0.2e1 - t2405 / 0.2e1;
13469 
13470   t2410 = t2221 * t499;
13471   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13472     v2rholapl[2] = -t2220 * t2410 / 0.2e1 - t2217 / 0.2e1;
13473 
13474   t2414 = t2406 * t504;
13475   t2417 = t1423 * t269;
13476   t2418 = t953 * t288;
13477   t2419 = t2418 * t611;
13478   t2422 = t608 * t953;
13479   t2427 = 0.5e1 / 0.4374e4 * t765;
13480   t2428 = 0.13e2 / 0.15552e5 * t767;
13481   t2429 = -0.25e2 / 0.162e3 * t749 - t2427 + t2428;
13482   t2431 = t921 * t551;
13483   t2435 = t1482 * t223;
13484   t2436 = t227 * t923;
13485   t2437 = t2436 * t563;
13486   t2440 = t2016 * t923;
13487   t2442 = t552 * t1489;
13488   t2443 = t923 * t19;
13489   t2444 = t2443 * t531;
13490   t2447 = -t2427 + t2428;
13491   t2448 = t553 * t2447;
13492   t2450 = t2429 * t231 - t2431 * t563 / 0.2e1 - t1477 * t924 + 0.3e1 / 0.2e1 * t2435 * t2437 - t552 * t2440 - 0.10e2 / 0.27e2 * t2442 * t2444 - t552 * t2448;
13493   t2454 = t1514 * t926;
13494   t2455 = t2454 * t238;
13495   t2458 = t569 * t2450;
13496   t2461 = t1523 * t926;
13497   t2462 = t2461 * t566;
13498   t2465 = t928 * t574;
13499   t2468 = t928 * t238;
13500   t2471 = t931 * t242;
13501   t2472 = t1528 * t2471;
13502   t2475 = t1542 * t931;
13503   t2482 = t1555 * t931;
13504   t2483 = t2482 * t1529;
13505   t2486 = -t2450;
13506   t2487 = t577 * t2486;
13507   t2488 = t2487 * t242;
13508   t2491 = t2475 * t1529;
13509   t2494 = t1534 * t939;
13510   t2497 = t939 * t577;
13511   t2501 = t1568 * t939;
13512   t2514 = -0.3569440e1 * t2454 * t2096 + 0.1784720e1 * t2458 * t247 + 0.3185225478400e1 * t2461 * t2096 - 0.3569440e1 * t2483 + 0.1784720e1 * t2488 + 0.3185225478400e1 * t2491;
13513   t2515 = t583 * t2514;
13514   t2516 = t245 * t2515;
13515   t2518 = -0.922000629760e0 * t2455 * t2045 + 0.461000314880e0 * t2458 * t250 + 0.21252129031945914941e0 * t2462 * t250 + 0.21252129031945914941e0 * t2465 * t1530 - 0.119078225334763520e0 * t2468 * t1535 + 0.21252129031945914941e0 * t1527 * t2472 - 0.61023519165317445059e0 * t1540 * t2475 * t2066 - 0.119078225334763520e0 * t1549 * t932 * t1550 - 0.922000629760e0 * t575 * t2483 + 0.461000314880e0 * t575 * t2488 + 0.822756481972633600e0 * t575 * t2491 - 0.119078225334763520e0 * t1533 * t2494 - 0.119078225334763520e0 * t1549 * t2497 * t1529 + 0.325024956416e0 * t245 * t2501 * t587 - 0.258304e0 * t2516;
13516   t2519 = my_piecewise3(t235, 0, t2518);
13517   t2520 = my_piecewise3(t234, 0, t2519);
13518   t2522 = -t233 * t2520 - t2450 * t252 - t566 * t945 - t926 * t593;
13519   t2523 = t56 * t2522;
13520   t2526 = t948 * t262;
13521   t2527 = t23 * t266;
13522   t2528 = t626 * t2527;
13523   t2531 = t2522 * t266;
13524   t2534 = t1609 * t947;
13525   t2537 = t2523 * t266 / 0.100e3 + t2526 * t2528 / 0.60e2 - t604 * t2531 / 0.100e3 - t2534 * t2528 / 0.180e3;
13526   t2538 = t269 * t2537;
13527   t2545 = t611 * t971;
13528   t2548 = -params->c1 * t2522;
13529   t2550 = t959 * t618;
13530   t2551 = t626 * t23;
13531   t2554 = t614 * t19;
13532   t2557 = t39 * t1630;
13533   t2558 = t947 * t599;
13534   t2559 = t2557 * t2558;
13535   t2562 = t962 * t2522;
13536   t2565 = -t2548 * t279 - 0.5e1 / 0.9e1 * t2550 * t2551 + 0.5e1 / 0.9e1 * t2554 * t963 + 0.50e2 / 0.81e2 * t617 * t2559 + 0.5e1 / 0.9e1 * t961 * t2562;
13537   t2566 = t2565 * t283;
13538   t2567 = t966 * t623;
13539   t2570 = t1630 * t947;
13540   t2571 = t449 * t2570;
13541   t2574 = t618 * t2522;
13542   t2577 = t1654 * t947;
13543   t2578 = t1263 * t2577;
13544   t2582 = my_piecewise3(t277, t2567 * t283 + t2566, 0.10e2 / 0.9e1 * t2571 * t628 + t449 * t2574 * t285 + 0.5e1 / 0.9e1 * t2578 * t628);
13545   t2585 = -0.4e1 * t2417 * t2419 + 0.2e1 * t510 * t2422 * t288 + 0.2e1 * t510 * t2538 * t288 - 0.2e1 * t510 * t954 * t631 - t510 * t2545 - t276 * t2582 + 0.1174e1 * t2582;
13546   t2587 = t913 * t2585 * t302;
13547   t2590 = t913 * t974;
13548   t2591 = t2399 * t2590;
13549   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13550     v2rholapl[3] = -t2405 / 0.2e1 - t2220 * t2414 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t2587 - 0.24739500000000000000e1 * t2591 * t649;
13551 
13552   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13553     v2rhotau[0] = 0.0e0;
13554 
13555   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13556     v2rhotau[1] = 0.0e0;
13557 
13558   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13559     v2rhotau[2] = 0.0e0;
13560 
13561   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13562     v2rhotau[3] = 0.0e0;
13563 
13564   t2594 = t719 * t719;
13565   t2595 = t2594 * t150;
13566   t2598 = t39 * t45;
13567   t2602 = sigma[0] * t659;
13568   t2606 = t1054 * t41;
13569   t2608 = 0.1e1 / t27 / t1047;
13570   t2609 = t2608 * t19;
13571   t2610 = t2609 * t1061;
13572   t2613 = t716 * t716;
13573   t2616 = t68 * t45 * t93;
13574   t2619 = t681 * t681;
13575   t2622 = t676 * t676;
13576   t2627 = t68 * t45;
13577   t2632 = 0.2e1 * t2622 * t89 - 0.5e1 / 0.9e1 * t1748 * t654 + t377 * t2627 / 0.4374e4 + 0.25e2 / 0.864e3 * t1107 * t2627;
13578   t2635 = t2616 / 0.8748e4 - t1737 * t681 + 0.3e1 / 0.4e1 * t1091 * t2619 - t376 * t2632 / 0.2e1;
13579   t2639 = t684 * t684;
13580   t2640 = t1123 * t2639;
13581   t2643 = t393 * t2635;
13582   t2646 = t1132 * t2639;
13583   t2653 = t689 * t689;
13584   t2654 = t1151 * t2653;
13585   t2655 = t2654 * t1154;
13586   t2658 = t104 * t697;
13587   t2659 = t690 * t2658;
13588   t2662 = t1164 * t2653;
13589   t2663 = t2662 * t104;
13590   t2666 = -t2635;
13591   t2667 = t401 * t2666;
13592   t2668 = t2667 * t104;
13593   t2671 = t2654 * t104;
13594   t2674 = t697 * t697;
13595   t2675 = t1177 * t2674;
13596   t2676 = t107 * t2675;
13597   t2687 = -0.3569440e1 * t2640 * t109 + 0.1784720e1 * t2643 * t109 + 0.3185225478400e1 * t2646 * t109 - 0.3569440e1 * t2663 + 0.1784720e1 * t2668 + 0.3185225478400e1 * t2671;
13598   t2688 = t407 * t2687;
13599   t2689 = t107 * t2688;
13600   t2691 = -0.922000629760e0 * t2640 * t112 + 0.461000314880e0 * t2643 * t112 + 0.21252129031945914941e0 * t2646 * t112 + 0.42504258063891829882e0 * t1784 * t1791 - 0.238156450669527040e0 * t1787 * t1814 - 0.61023519165317445059e0 * t1149 * t2655 - 0.238156450669527040e0 * t1158 * t2659 - 0.922000629760e0 * t399 * t2663 + 0.461000314880e0 * t399 * t2668 + 0.822756481972633600e0 * t399 * t2671 + 0.325024956416e0 * t2676 - 0.258304e0 * t2689;
13601   t2692 = my_piecewise3(t97, 0, t2691);
13602   t2693 = my_piecewise3(t96, 0, t2692);
13603   t2695 = t2635 * t114 + t95 * t2693 + 0.2e1 * t684 * t703;
13604   t2696 = t56 * t2695;
13605   t2699 = t709 * t709;
13606   t2700 = t56 * t2699;
13607   t2704 = t2695 * t128;
13608   t2710 = -t2696 * t128 / 0.100e3 - t2700 * t36 * t1211 / 0.108e3 + t428 * t2704 / 0.100e3 + t1218 * t2699 * t1220 / 0.324e3;
13609   t2713 = t37 * t2598 * t52 / 0.288e3 - 0.9e1 / 0.640e3 * t346 * t2602 * t52 + 0.243e3 / 0.204800e6 * t2606 * t2610 + 0.2e1 * t2613 + 0.2e1 * t131 * t2710;
13610   t2714 = t2713 * t150;
13611   t2716 = t719 * t734;
13612   t2719 = params->c1 * t2695;
13613   t2721 = params->c1 * t2699;
13614   t2730 = -t2719 * t141 - 0.50e2 / 0.81e2 * t2721 * t1236 - 0.500e3 / 0.243e3 * t140 * t1240 * t2699 - 0.5e1 / 0.9e1 * t895 * t896 * t2695;
13615   t2732 = t728 * t728;
13616   t2733 = t2732 * t145;
13617   t2735 = t2699 * t36;
13618   t2736 = t2735 * t1254;
13619   t2739 = t442 * t2695;
13620   t2745 = my_piecewise3(t139, t2730 * t145 + t2733, -0.50e2 / 0.81e2 * t1252 * t2736 - t449 * t2739 * t147 - 0.25e2 / 0.81e2 * t1266 * t2736);
13621   t2748 = -0.2e1 * t1030 * t2595 + t330 * t2714 - 0.2e1 * t330 * t2716 - t138 * t2745 + 0.1174e1 * t2745;
13622   t2749 = t2748 * t167;
13623   t2752 = 0.3e1 / 0.8e1 * t8 * t18 * t2749;
13624   t2754 = 0.18554625000000000000e1 * t1915 * t745;
13625   t2755 = 0.1e1 / sigma[0];
13626   t2756 = t2755 * t29;
13627   t2758 = t1286 * t2756 * t166;
13628   t2760 = 0.41747906250000000000e1 * t471 * t2758;
13629   t2761 = t1939 * t159;
13630   t2763 = t475 * t2761 * t166;
13631   t2765 = 0.46386562500000000000e0 * t471 * t2763;
13632   t2767 = 0.1e1 / t157 / t41;
13633   t2768 = t153 * t2767;
13634   t2770 = t2768 * t158 * t1301;
13635   t2772 = 0.11326164200960098622e2 * t1297 * t2770;
13636   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13637     v2sigma2[0] = t10 * (-t2752 + t2754 - t2760 - t2765 + t2772);
13638 
13639   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13640     v2sigma2[1] = 0.0e0;
13641 
13642   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13643     v2sigma2[2] = 0.0e0;
13644 
13645   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13646     v2sigma2[3] = 0.0e0;
13647 
13648   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13649     v2sigma2[4] = 0.0e0;
13650 
13651   t2774 = t814 * t814;
13652   t2775 = t2774 * t288;
13653   t2778 = t39 * t188;
13654   t2782 = sigma[2] * t754;
13655   t2786 = t1054 * t184;
13656   t2788 = 0.1e1 / t178 / t1440;
13657   t2789 = t2788 * t19;
13658   t2790 = t2789 * t1452;
13659   t2793 = t811 * t811;
13660   t2796 = t68 * t188 * t231;
13661   t2799 = t776 * t776;
13662   t2802 = t771 * t771;
13663   t2807 = t68 * t188;
13664   t2812 = 0.2e1 * t2802 * t227 - 0.5e1 / 0.9e1 * t2019 * t749 + t553 * t2807 / 0.4374e4 + 0.25e2 / 0.864e3 * t1498 * t2807;
13665   t2815 = t2796 / 0.8748e4 - t2008 * t776 + 0.3e1 / 0.4e1 * t1482 * t2799 - t552 * t2812 / 0.2e1;
13666   t2819 = t779 * t779;
13667   t2820 = t1514 * t2819;
13668   t2823 = t569 * t2815;
13669   t2826 = t1523 * t2819;
13670   t2833 = t784 * t784;
13671   t2834 = t1542 * t2833;
13672   t2835 = t2834 * t1545;
13673   t2838 = t242 * t792;
13674   t2839 = t785 * t2838;
13675   t2842 = t1555 * t2833;
13676   t2843 = t2842 * t242;
13677   t2846 = -t2815;
13678   t2847 = t577 * t2846;
13679   t2848 = t2847 * t242;
13680   t2851 = t2834 * t242;
13681   t2854 = t792 * t792;
13682   t2855 = t1568 * t2854;
13683   t2856 = t245 * t2855;
13684   t2867 = -0.3569440e1 * t2820 * t247 + 0.1784720e1 * t2823 * t247 + 0.3185225478400e1 * t2826 * t247 - 0.3569440e1 * t2843 + 0.1784720e1 * t2848 + 0.3185225478400e1 * t2851;
13685   t2868 = t583 * t2867;
13686   t2869 = t245 * t2868;
13687   t2871 = -0.922000629760e0 * t2820 * t250 + 0.461000314880e0 * t2823 * t250 + 0.21252129031945914941e0 * t2826 * t250 + 0.42504258063891829882e0 * t2055 * t2062 - 0.238156450669527040e0 * t2058 * t2085 - 0.61023519165317445059e0 * t1540 * t2835 - 0.238156450669527040e0 * t1549 * t2839 - 0.922000629760e0 * t575 * t2843 + 0.461000314880e0 * t575 * t2848 + 0.822756481972633600e0 * t575 * t2851 + 0.325024956416e0 * t2856 - 0.258304e0 * t2869;
13688   t2872 = my_piecewise3(t235, 0, t2871);
13689   t2873 = my_piecewise3(t234, 0, t2872);
13690   t2875 = t233 * t2873 + t2815 * t252 + 0.2e1 * t779 * t798;
13691   t2876 = t56 * t2875;
13692   t2879 = t804 * t804;
13693   t2880 = t56 * t2879;
13694   t2884 = t2875 * t266;
13695   t2890 = -t2876 * t266 / 0.100e3 - t2880 * t36 * t1602 / 0.108e3 + t604 * t2884 / 0.100e3 + t1609 * t2879 * t1611 / 0.324e3;
13696   t2893 = t37 * t2778 * t194 / 0.288e3 - 0.9e1 / 0.640e3 * t346 * t2782 * t194 + 0.243e3 / 0.204800e6 * t2786 * t2790 + 0.2e1 * t2793 + 0.2e1 * t269 * t2890;
13697   t2894 = t2893 * t288;
13698   t2896 = t814 * t829;
13699   t2899 = params->c1 * t2875;
13700   t2901 = params->c1 * t2879;
13701   t2910 = -t2899 * t279 - 0.50e2 / 0.81e2 * t2901 * t1627 - 0.500e3 / 0.243e3 * t278 * t1631 * t2879 - 0.5e1 / 0.9e1 * t961 * t962 * t2875;
13702   t2912 = t823 * t823;
13703   t2913 = t2912 * t283;
13704   t2915 = t2879 * t36;
13705   t2916 = t2915 * t1645;
13706   t2919 = t618 * t2875;
13707   t2925 = my_piecewise3(t277, t2910 * t283 + t2913, -0.50e2 / 0.81e2 * t1643 * t2916 - t449 * t2919 * t285 - 0.25e2 / 0.81e2 * t1655 * t2916);
13708   t2928 = -0.2e1 * t1423 * t2775 + t510 * t2894 - 0.2e1 * t510 * t2896 - t276 * t2925 + 0.1174e1 * t2925;
13709   t2929 = t2928 * t302;
13710   t2932 = 0.3e1 / 0.8e1 * t8 * t175 * t2929;
13711   t2934 = 0.18554625000000000000e1 * t2186 * t840;
13712   t2935 = 0.1e1 / sigma[2];
13713   t2936 = t2935 * t180;
13714   t2938 = t1675 * t2936 * t301;
13715   t2940 = 0.41747906250000000000e1 * t640 * t2938;
13716   t2941 = t2208 * t294;
13717   t2943 = t644 * t2941 * t301;
13718   t2945 = 0.46386562500000000000e0 * t640 * t2943;
13719   t2947 = 0.1e1 / t292 / t184;
13720   t2948 = t291 * t2947;
13721   t2950 = t2948 * t293 * t1690;
13722   t2952 = 0.11326164200960098622e2 * t1686 * t2950;
13723   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13724     v2sigma2[5] = t10 * (-t2932 + t2934 - t2940 - t2945 + t2952);
13725 
13726   t2954 = t2226 * t719;
13727   t2957 = t716 * t887;
13728   t2962 = t68 * t77 * t93;
13729   t2967 = t2244 * t681;
13730   t2970 = t676 * t89;
13731   t2971 = t2970 * t857;
13732   t2973 = t2251 * t664;
13733   t2976 = t376 * t85;
13734   t2977 = t89 * t36;
13735   t2978 = t39 * t77;
13736   t2979 = t2977 * t2978;
13737   t2980 = t2976 * t2979;
13738   t2982 = -t2962 / 0.5184e4 - t2239 * t681 / 0.2e1 - t1737 * t858 + 0.3e1 / 0.2e1 * t2243 * t2967 - t376 * t2971 + 0.5e1 / 0.36e2 * t2250 * t2973 + t2980 / 0.5184e4;
13739   t2986 = t1773 * t684;
13740   t2989 = t393 * t2982;
13741   t2992 = t2269 * t684;
13742   t3001 = t1154 * t689;
13743   t3008 = t2290 * t1790;
13744   t3011 = -t2982;
13745   t3012 = t401 * t3011;
13746   t3013 = t3012 * t104;
13747   t3016 = t2283 * t1790;
13748   t3027 = t109 * t684;
13749   t3037 = -0.3569440e1 * t2262 * t3027 + 0.1784720e1 * t2989 * t109 + 0.3185225478400e1 * t2269 * t3027 - 0.3569440e1 * t3008 + 0.1784720e1 * t3013 + 0.3185225478400e1 * t3016;
13750   t3038 = t407 * t3037;
13751   t3039 = t107 * t3038;
13752   t3041 = -0.922000629760e0 * t2263 * t2986 + 0.461000314880e0 * t2989 * t112 + 0.21252129031945914941e0 * t2992 * t112 + 0.21252129031945914941e0 * t2273 * t1791 - 0.119078225334763520e0 * t2276 * t1814 + 0.21252129031945914941e0 * t1784 * t2280 - 0.61023519165317445059e0 * t1149 * t2283 * t3001 - 0.119078225334763520e0 * t1158 * t866 * t2658 - 0.922000629760e0 * t399 * t3008 + 0.461000314880e0 * t399 * t3013 + 0.822756481972633600e0 * t399 * t3016 - 0.119078225334763520e0 * t1787 * t2302 - 0.119078225334763520e0 * t1158 * t2305 * t1790 + 0.325024956416e0 * t107 * t2309 * t697 - 0.258304e0 * t3039;
13753   t3042 = my_piecewise3(t97, 0, t3041);
13754   t3043 = my_piecewise3(t96, 0, t3042);
13755   t3045 = -t2982 * t114 - t95 * t3043 - t684 * t879 - t860 * t703;
13756   t3046 = t56 * t3045;
13757   t3049 = t730 * t2335;
13758   t3052 = t3045 * t128;
13759   t3057 = t3046 * t128 / 0.100e3 + t2334 * t3049 / 0.60e2 - t428 * t3052 / 0.100e3 - t2342 * t3049 / 0.180e3;
13760   t3058 = t131 * t3057;
13761   t3065 = t719 * t905;
13762   t3068 = -params->c1 * t3045;
13763   t3070 = t730 * t23;
13764   t3073 = t722 * t19;
13765   t3076 = t881 * t709;
13766   t3080 = t896 * t3045;
13767   t3083 = -t3068 * t141 - 0.5e1 / 0.9e1 * t2358 * t3070 + 0.5e1 / 0.9e1 * t3073 * t897 + 0.50e2 / 0.81e2 * t441 * t2365 * t3076 + 0.5e1 / 0.9e1 * t895 * t3080;
13768   t3084 = t3083 * t145;
13769   t3085 = t900 * t728;
13770   t3090 = t442 * t3045;
13771   t3096 = my_piecewise3(t139, t3085 * t145 + t3084, 0.10e2 / 0.9e1 * t2379 * t731 + t449 * t3090 * t147 + 0.5e1 / 0.9e1 * t2386 * t731);
13772   t3099 = -0.4e1 * t2225 * t2954 + 0.2e1 * t330 * t2957 * t150 + 0.2e1 * t330 * t3058 * t150 - 0.2e1 * t330 * t888 * t734 - t330 * t3065 - t138 * t3096 + 0.1174e1 * t3096;
13773   t3101 = t847 * t3099 * t167;
13774   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13775     v2sigmalapl[0] = -0.3e1 / 0.8e1 * t846 * t3101 + 0.92773125000000000000e0 * t2401 * t745;
13776 
13777   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13778     v2sigmalapl[1] = 0.0e0;
13779 
13780   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13781     v2sigmalapl[2] = 0.0e0;
13782 
13783   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13784     v2sigmalapl[3] = 0.0e0;
13785 
13786   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13787     v2sigmalapl[4] = 0.0e0;
13788 
13789   t3106 = t2418 * t814;
13790   t3109 = t811 * t953;
13791   t3114 = t68 * t215 * t231;
13792   t3119 = t2436 * t776;
13793   t3122 = t771 * t227;
13794   t3123 = t3122 * t923;
13795   t3125 = t2443 * t759;
13796   t3128 = t552 * t223;
13797   t3129 = t227 * t36;
13798   t3130 = t39 * t215;
13799   t3131 = t3129 * t3130;
13800   t3132 = t3128 * t3131;
13801   t3134 = -t3114 / 0.5184e4 - t2431 * t776 / 0.2e1 - t2008 * t924 + 0.3e1 / 0.2e1 * t2435 * t3119 - t552 * t3123 + 0.5e1 / 0.36e2 * t2442 * t3125 + t3132 / 0.5184e4;
13802   t3138 = t2044 * t779;
13803   t3141 = t569 * t3134;
13804   t3144 = t2461 * t779;
13805   t3153 = t1545 * t784;
13806   t3160 = t2482 * t2061;
13807   t3163 = -t3134;
13808   t3164 = t577 * t3163;
13809   t3165 = t3164 * t242;
13810   t3168 = t2475 * t2061;
13811   t3179 = t247 * t779;
13812   t3189 = -0.3569440e1 * t2454 * t3179 + 0.1784720e1 * t3141 * t247 + 0.3185225478400e1 * t2461 * t3179 - 0.3569440e1 * t3160 + 0.1784720e1 * t3165 + 0.3185225478400e1 * t3168;
13813   t3190 = t583 * t3189;
13814   t3191 = t245 * t3190;
13815   t3193 = -0.922000629760e0 * t2455 * t3138 + 0.461000314880e0 * t3141 * t250 + 0.21252129031945914941e0 * t3144 * t250 + 0.21252129031945914941e0 * t2465 * t2062 - 0.119078225334763520e0 * t2468 * t2085 + 0.21252129031945914941e0 * t2055 * t2472 - 0.61023519165317445059e0 * t1540 * t2475 * t3153 - 0.119078225334763520e0 * t1549 * t932 * t2838 - 0.922000629760e0 * t575 * t3160 + 0.461000314880e0 * t575 * t3165 + 0.822756481972633600e0 * t575 * t3168 - 0.119078225334763520e0 * t2058 * t2494 - 0.119078225334763520e0 * t1549 * t2497 * t2061 + 0.325024956416e0 * t245 * t2501 * t792 - 0.258304e0 * t3191;
13816   t3194 = my_piecewise3(t235, 0, t3193);
13817   t3195 = my_piecewise3(t234, 0, t3194);
13818   t3197 = -t233 * t3195 - t3134 * t252 - t779 * t945 - t926 * t798;
13819   t3198 = t56 * t3197;
13820   t3201 = t825 * t2527;
13821   t3204 = t3197 * t266;
13822   t3209 = t3198 * t266 / 0.100e3 + t2526 * t3201 / 0.60e2 - t604 * t3204 / 0.100e3 - t2534 * t3201 / 0.180e3;
13823   t3210 = t269 * t3209;
13824   t3217 = t814 * t971;
13825   t3220 = -params->c1 * t3197;
13826   t3222 = t825 * t23;
13827   t3225 = t817 * t19;
13828   t3228 = t947 * t804;
13829   t3232 = t962 * t3197;
13830   t3235 = -t3220 * t279 - 0.5e1 / 0.9e1 * t2550 * t3222 + 0.5e1 / 0.9e1 * t3225 * t963 + 0.50e2 / 0.81e2 * t617 * t2557 * t3228 + 0.5e1 / 0.9e1 * t961 * t3232;
13831   t3236 = t3235 * t283;
13832   t3237 = t966 * t823;
13833   t3242 = t618 * t3197;
13834   t3248 = my_piecewise3(t277, t3237 * t283 + t3236, 0.10e2 / 0.9e1 * t2571 * t826 + t449 * t3242 * t285 + 0.5e1 / 0.9e1 * t2578 * t826);
13835   t3251 = -0.4e1 * t2417 * t3106 + 0.2e1 * t510 * t3109 * t288 + 0.2e1 * t510 * t3210 * t288 - 0.2e1 * t510 * t954 * t829 - t510 * t3217 - t276 * t3248 + 0.1174e1 * t3248;
13836   t3253 = t913 * t3251 * t302;
13837   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13838     v2sigmalapl[5] = -0.3e1 / 0.8e1 * t846 * t3253 + 0.92773125000000000000e0 * t2591 * t840;
13839 
13840   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13841     v2sigmatau[0] = 0.0e0;
13842 
13843   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13844     v2sigmatau[1] = 0.0e0;
13845 
13846   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13847     v2sigmatau[2] = 0.0e0;
13848 
13849   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13850     v2sigmatau[3] = 0.0e0;
13851 
13852   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13853     v2sigmatau[4] = 0.0e0;
13854 
13855   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13856     v2sigmatau[5] = 0.0e0;
13857 
13858   t3258 = t887 * t887;
13859   t3259 = t132 * t3258;
13860   t3263 = t3258 * t150;
13861   t3271 = t857 * t857;
13862   t3272 = t1107 * t3271;
13863   t3275 = t3271 * t89;
13864   t3277 = t39 * t72;
13865   t3278 = t2977 * t3277;
13866   t3281 = t68 * t72 * t93 / 0.2916e4 - 0.2e1 * t2239 * t858 + 0.3e1 * t1091 * t3272 - t376 * t3275 - t2976 * t3278 / 0.2916e4;
13867   t3285 = t860 * t860;
13868   t3286 = t1123 * t3285;
13869   t3289 = t393 * t3281;
13870   t3292 = t1132 * t3285;
13871   t3299 = t865 * t865;
13872   t3300 = t1151 * t3299;
13873   t3301 = t3300 * t1154;
13874   t3304 = t104 * t873;
13875   t3308 = t1164 * t3299;
13876   t3309 = t3308 * t104;
13877   t3312 = -t3281;
13878   t3313 = t401 * t3312;
13879   t3314 = t3313 * t104;
13880   t3317 = t3300 * t104;
13881   t3320 = t873 * t873;
13882   t3321 = t1177 * t3320;
13883   t3322 = t107 * t3321;
13884   t3333 = -0.3569440e1 * t3286 * t109 + 0.1784720e1 * t3289 * t109 + 0.3185225478400e1 * t3292 * t109 - 0.3569440e1 * t3309 + 0.1784720e1 * t3314 + 0.3185225478400e1 * t3317;
13885   t3334 = t407 * t3333;
13886   t3335 = t107 * t3334;
13887   t3337 = -0.922000629760e0 * t3286 * t112 + 0.461000314880e0 * t3289 * t112 + 0.21252129031945914941e0 * t3292 * t112 + 0.42504258063891829882e0 * t2273 * t2280 - 0.238156450669527040e0 * t2276 * t2302 - 0.61023519165317445059e0 * t1149 * t3301 - 0.238156450669527040e0 * t1158 * t866 * t3304 - 0.922000629760e0 * t399 * t3309 + 0.461000314880e0 * t399 * t3314 + 0.822756481972633600e0 * t399 * t3317 + 0.325024956416e0 * t3322 - 0.258304e0 * t3335;
13888   t3338 = my_piecewise3(t97, 0, t3337);
13889   t3339 = my_piecewise3(t96, 0, t3338);
13890   t3341 = -t3281 * t114 - t95 * t3339 - 0.2e1 * t860 * t879;
13891   t3342 = t56 * t3341;
13892   t3345 = t881 * t881;
13893   t3346 = t56 * t3345;
13894   t3347 = t124 * t128;
13895   t3353 = t3345 * t128;
13896   t3356 = t3342 * t128 / 0.100e3 - 0.3e1 / 0.100e3 * t3346 * t3347 - t428 * t3341 * t128 / 0.100e3 + t1218 * t3353 / 0.100e3;
13897   t3357 = t131 * t3356;
13898   t3365 = -params->c1 * t3341;
13899   t3369 = t23 * t1239;
13900   t3370 = t3369 * t3345;
13901   t3373 = t896 * t3341;
13902   t3376 = -t3365 * t141 + 0.2e1 * t893 * t902 - 0.10e2 / 0.9e1 * t895 * t3370 + 0.5e1 / 0.9e1 * t895 * t3373;
13903   t3378 = t900 * t900;
13904   t3379 = t3378 * t145;
13905   t3381 = t1239 * t3345;
13906   t3385 = t442 * t3341;
13907   t3388 = t1265 * t3345;
13908   t3392 = my_piecewise3(t139, t3376 * t145 + t3379, -t1263 * t3388 * t147 - 0.2e1 * t449 * t3381 * t147 + t449 * t3385 * t147);
13909   t3395 = -0.8e1 * t1030 * t3259 * t150 + 0.2e1 * t330 * t3263 + 0.2e1 * t330 * t3357 * t150 - 0.4e1 * t330 * t888 * t905 - t138 * t3392 + 0.1174e1 * t3392;
13910   t3397 = t847 * t3395 * t167;
13911   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13912     v2lapl2[0] = -0.3e1 / 0.8e1 * t846 * t3397;
13913 
13914   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13915     v2lapl2[1] = 0.0e0;
13916 
13917   t3400 = t953 * t953;
13918   t3401 = t270 * t3400;
13919   t3405 = t3400 * t288;
13920   t3413 = t923 * t923;
13921   t3414 = t1498 * t3413;
13922   t3417 = t3413 * t227;
13923   t3419 = t39 * t210;
13924   t3420 = t3129 * t3419;
13925   t3423 = t68 * t210 * t231 / 0.2916e4 - 0.2e1 * t2431 * t924 + 0.3e1 * t1482 * t3414 - t552 * t3417 - t3128 * t3420 / 0.2916e4;
13926   t3427 = t926 * t926;
13927   t3428 = t1514 * t3427;
13928   t3431 = t569 * t3423;
13929   t3434 = t1523 * t3427;
13930   t3441 = t931 * t931;
13931   t3442 = t1542 * t3441;
13932   t3443 = t3442 * t1545;
13933   t3446 = t242 * t939;
13934   t3450 = t1555 * t3441;
13935   t3451 = t3450 * t242;
13936   t3454 = -t3423;
13937   t3455 = t577 * t3454;
13938   t3456 = t3455 * t242;
13939   t3459 = t3442 * t242;
13940   t3462 = t939 * t939;
13941   t3463 = t1568 * t3462;
13942   t3464 = t245 * t3463;
13943   t3475 = -0.3569440e1 * t3428 * t247 + 0.1784720e1 * t3431 * t247 + 0.3185225478400e1 * t3434 * t247 - 0.3569440e1 * t3451 + 0.1784720e1 * t3456 + 0.3185225478400e1 * t3459;
13944   t3476 = t583 * t3475;
13945   t3477 = t245 * t3476;
13946   t3479 = -0.922000629760e0 * t3428 * t250 + 0.461000314880e0 * t3431 * t250 + 0.21252129031945914941e0 * t3434 * t250 + 0.42504258063891829882e0 * t2465 * t2472 - 0.238156450669527040e0 * t2468 * t2494 - 0.61023519165317445059e0 * t1540 * t3443 - 0.238156450669527040e0 * t1549 * t932 * t3446 - 0.922000629760e0 * t575 * t3451 + 0.461000314880e0 * t575 * t3456 + 0.822756481972633600e0 * t575 * t3459 + 0.325024956416e0 * t3464 - 0.258304e0 * t3477;
13947   t3480 = my_piecewise3(t235, 0, t3479);
13948   t3481 = my_piecewise3(t234, 0, t3480);
13949   t3483 = -t233 * t3481 - t3423 * t252 - 0.2e1 * t926 * t945;
13950   t3484 = t56 * t3483;
13951   t3487 = t947 * t947;
13952   t3488 = t56 * t3487;
13953   t3489 = t262 * t266;
13954   t3495 = t3487 * t266;
13955   t3498 = t3484 * t266 / 0.100e3 - 0.3e1 / 0.100e3 * t3488 * t3489 - t604 * t3483 * t266 / 0.100e3 + t1609 * t3495 / 0.100e3;
13956   t3499 = t269 * t3498;
13957   t3507 = -params->c1 * t3483;
13958   t3511 = t23 * t1630;
13959   t3512 = t3511 * t3487;
13960   t3515 = t962 * t3483;
13961   t3518 = -t3507 * t279 + 0.2e1 * t959 * t968 - 0.10e2 / 0.9e1 * t961 * t3512 + 0.5e1 / 0.9e1 * t961 * t3515;
13962   t3520 = t966 * t966;
13963   t3521 = t3520 * t283;
13964   t3523 = t1630 * t3487;
13965   t3527 = t618 * t3483;
13966   t3530 = t1654 * t3487;
13967   t3534 = my_piecewise3(t277, t3518 * t283 + t3521, -t1263 * t3530 * t285 - 0.2e1 * t449 * t3523 * t285 + t449 * t3527 * t285);
13968   t3537 = -0.8e1 * t1423 * t3401 * t288 + 0.2e1 * t510 * t3405 + 0.2e1 * t510 * t3499 * t288 - 0.4e1 * t510 * t954 * t971 - t276 * t3534 + 0.1174e1 * t3534;
13969   t3539 = t913 * t3537 * t302;
13970   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13971     v2lapl2[2] = -0.3e1 / 0.8e1 * t846 * t3539;
13972 
13973   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13974     v2lapltau[0] = 0.0e0;
13975 
13976   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13977     v2lapltau[1] = 0.0e0;
13978 
13979   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13980     v2lapltau[2] = 0.0e0;
13981 
13982   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
13983     v2lapltau[3] = 0.0e0;
13984 
13985   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13986     v2tau2[0] = 0.0e0;
13987 
13988   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13989     v2tau2[1] = 0.0e0;
13990 
13991   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
13992     v2tau2[2] = 0.0e0;
13993 
13994 #ifndef XC_DONT_COMPILE_KXC
13995 
13996   if(order < 3) return;
13997 
13998 
13999   t3543 = t8 * t323 * t1274;
14000   t3546 = t8 * t1017 * t460;
14001   t3547 = t3546 / 0.4e1;
14002   t3548 = t847 * t322;
14003   t3549 = t5 * t3548;
14004   t3550 = t3549 * t1302;
14005   t3552 = t459 * t742;
14006   t3554 = t3552 * t1299 * t1301;
14007   t3555 = t1297 * t3554;
14008   t3556 = 0.24162483628714877061e3 * t3555;
14009   t3557 = 0.1e1 / t20;
14010   t3559 = 0.1e1 / t42;
14011   t3563 = 0.1e1 / t162 / t3557 / t1938 / t3559 / 0.36e2;
14012   t3565 = t153 * t3563 * t3557;
14013   t3566 = 0.1e1 / t1040;
14014   t3568 = t1938 * t3566 * t166;
14015   t3569 = t3565 * t3568;
14016   t3570 = t1926 * t3569;
14017   t3571 = 0.59374800000000000000e3 * t3570;
14018   t3573 = t153 * t19 * t38;
14019   t3574 = t742 * t64;
14020   t3575 = t3574 * t166;
14021   t3576 = t3573 * t3575;
14022   t3577 = t1297 * t3576;
14023   t3578 = 0.16536775210765846035e1 * t3577;
14024   t3580 = t1298 * t64 * t1301;
14025   t3581 = t1297 * t3580;
14026   t3582 = 0.24162483628714877060e3 * t3581;
14027   t3583 = t984 * t17;
14028   t3584 = t3583 * t153;
14029   t3585 = t469 * t3584;
14030   t3586 = t166 * t987;
14031   t3588 = t475 * t478 * t3586;
14032   t3589 = t3585 * t3588;
14033   t3590 = 0.32986000000000000000e1 * t3589;
14034   t3591 = t15 * t322;
14035   t3592 = t3591 * t153;
14036   t3593 = t469 * t3592;
14037   t3594 = t3593 * t1004;
14038   t3596 = t317 * t1010;
14039   t3598 = t986 * t311 * t3596;
14040   t3599 = t3598 / 0.2e1;
14041   t3602 = 0.1e1 / t27 / t43;
14042   t3603 = sigma[0] * t3602;
14043   t3605 = t1286 * t3603 * t166;
14044   t3606 = t471 * t3605;
14045   t3607 = 0.20781180000000000000e3 * t3606;
14046   t3608 = t157 * t77;
14047   t3610 = t475 * t3608 * t166;
14048   t3611 = t471 * t3610;
14049   t3612 = 0.19241833333333333333e2 * t3611;
14050   t3613 = t1279 * t1293;
14051   t3614 = 0.17317650000000000000e2 * t3613;
14052   t3615 = t1025 * t1293;
14053   t3617 = t328 * t328;
14054   t3619 = t327 / t3617;
14055   t3620 = t1031 * t435;
14056   t3624 = t436 * t1226;
14057   t3630 = t24 * t3603;
14058   t3633 = 0.1e1 / t26 / t348;
14059   t3634 = t41 * t3633;
14060   t3638 = 0.1e1 / t1716;
14061   t3639 = t347 * t3638;
14062   t3643 = t348 * t43;
14063   t3645 = 0.1e1 / t27 / t3643;
14064   t3647 = t3645 * t19 * t1061;
14065   t3650 = t343 * t343;
14066   t3651 = t3650 * t345;
14067   t3652 = t1055 * sigma[0];
14068   t3653 = t3651 * t3652;
14069   t3654 = t348 * t348;
14070   t3658 = t39 * t52;
14071   t3659 = 0.1e1 / t26 / t3654 * t36 * t3658;
14072   t3664 = t48 * t3602;
14073   t3667 = 0.770e3 / 0.243e3 * t3630;
14074   t3674 = 0.260e3 / 0.19683e5 * t68 * t69 * t338;
14075   t3675 = sigma[0] * t1042;
14076   t3678 = 0.247e3 / 0.8748e4 * t68 * t3675 * lapl[0];
14077   t3679 = t68 * t3634;
14078   t3680 = 0.836e3 / 0.59049e5 * t3679;
14079   t3681 = -0.770e3 / 0.2187e4 * t3630 - 0.1100e4 / 0.729e3 * t24 * lapl[0] * t1036 - t3674 + t3678 - t3680;
14080   t3683 = t1084 * t375;
14081   t3686 = t372 * t1090;
14082   t3693 = 0.1e1 / t92 / t1088 / t91;
14083   t3694 = t84 * t3693;
14084   t3695 = t1092 * t387;
14085   t3698 = t387 * t1115;
14086   t3703 = t1095 * t382;
14087   t3704 = t3703 * t19;
14088   t3707 = t85 * t1106;
14089   t3708 = t3707 * t378;
14090   t3711 = t1098 * t1102;
14091   t3716 = -t3674 + t3678 - t3680;
14092   t3720 = 0.1e1 / t1105 / t87;
14093   t3721 = t86 * t3720;
14094   t3722 = t345 * t347;
14095   t3723 = t3722 * t3638;
14096   t3726 = t1109 * t3633;
14097   t3731 = 0.6e1 * t1745 * t1102 + 0.20e2 / 0.9e1 * t3704 * t355 + 0.100e3 / 0.81e2 * t3708 * t1082 + 0.20e2 / 0.9e1 * t3711 * t334 - 0.220e3 / 0.27e2 * t1099 * t1038 + 0.2e1 * t377 * t3716 + 0.2000e4 / 0.2187e4 * t3721 * t3723 - 0.550e3 / 0.243e3 * t1108 * t3726 + 0.1540e4 / 0.243e3 * t384 * t3664;
14098   t3734 = t3681 * t93 - 0.3e1 / 0.2e1 * t3683 * t387 + 0.9e1 / 0.4e1 * t3686 * t1092 - 0.3e1 / 0.2e1 * t1086 * t1115 - 0.15e2 / 0.8e1 * t3694 * t3695 + 0.9e1 / 0.4e1 * t1091 * t3698 - t376 * t3731 / 0.2e1 + t3667;
14099   t3741 = 0.1e1 / t1150 / t101;
14100   t3742 = t1152 * t402;
14101   t3743 = t3741 * t3742;
14102   t3747 = t1143 * t1191;
14103   t3750 = t1133 * t100;
14104   t3753 = pow(t105, -0.2741696e1);
14105   t3754 = t100 * t3753;
14106   t3755 = t3754 * t111;
14107   t3757 = 0.1e1 / t1150 / t400;
14108   t3758 = t3757 * t3742;
14109   t3759 = t1154 * t104;
14110   t3766 = t1123 * t390;
14111   t3767 = t3766 * t100;
14112   t3768 = t1773 * t1118;
14113   t3771 = t398 * t1177;
14114   t3772 = t104 * t1178;
14115   t3773 = t403 * t3772;
14116   t3776 = t1165 * t1159;
14117   t3779 = t1132 * t1118;
14118   t3783 = t1125 * t100;
14119   t3786 = t104 * t1191;
14120   t3787 = t403 * t3786;
14121   t3790 = t1153 * t1159;
14122   t3793 = t1148 * t407;
14123   t3794 = t1154 * t411;
14124   t3795 = t1153 * t3794;
14125   t3798 = t1151 * t3742;
14126   t3799 = t3798 * t104;
14127   t3802 = t106 * t1177;
14128   t3803 = t3802 * t1178;
14129   t3806 = -t3734;
14130   t3807 = t401 * t3806;
14131   t3808 = t3807 * t104;
14132   t3811 = t3743 * t104;
14133   t3814 = pow(t110, -0.3258304e1);
14134   t3815 = t1178 * t411;
14135   t3819 = t1128 * t100;
14136   t3822 = 0.36614111499190467036e1 * t1149 * t3743 * t1154 - 0.357234676004290560e0 * t1142 * t3747 - 0.16468529812403272839e0 * t3750 * t1144 + 0.18968792869915364414e1 * t3755 * t3758 * t3759 - 0.32672968537417605163e1 * t1149 * t3758 * t1154 - 0.2766001889280e1 * t3767 * t3768 + 0.44950982175490282881e0 * t3771 * t3773 + 0.714469352008581120e0 * t1158 * t3776 + 0.63756387095837744823e0 * t3779 * t390 * t112 + 0.714469352008581120e0 * t3783 * t1144 - 0.357234676004290560e0 * t1158 * t3787 - 0.63756387095837744824e0 * t1158 * t3790 + 0.47287857283434471986e0 * t3793 * t3795 + 0.2766001889280e1 * t399 * t3799 + 0.44950982175490282881e0 * t1142 * t3803 + 0.461000314880e0 * t399 * t3808 - 0.4936538891835801600e1 * t399 * t3811 - 0.734005159174078464e0 * t107 * t3814 * t3815 - 0.357234676004290560e0 * t3819 * t1144;
14137   t3823 = t1124 * t390;
14138   t3824 = t1132 * t3823;
14139   t3827 = t1128 * t398;
14140   t3830 = t1133 * t398;
14141   t3833 = t1169 * t104;
14142   t3834 = t1137 * t3833;
14143   t3837 = t1125 * t398;
14144   t3840 = t111 * t1164;
14145   t3841 = t1152 * t104;
14146   t3842 = t3840 * t3841;
14147   t3845 = t3758 * t104;
14148   t3849 = t1151 * t1169 * t1138;
14149   t3852 = t1164 * t402;
14150   t3853 = t3852 * t3833;
14151   t3856 = t407 * t401;
14152   t3857 = t1138 * t411;
14153   t3858 = t3856 * t3857;
14154   t3861 = t394 * t1148;
14155   t3862 = t111 * t1151;
14156   t3863 = t1152 * t1154;
14157   t3864 = t3862 * t3863;
14158   t3867 = t3862 * t3841;
14159   t3870 = t393 * t3734;
14160   t3874 = 0.1e1 / t1131 / t95;
14161   t3875 = t3874 * t3823;
14162   t3879 = 0.1e1 / t1131 / t392;
14163   t3880 = t3879 * t3823;
14164   t3887 = t1151 * t402;
14165   t3888 = t1154 * t1169;
14166   t3889 = t3887 * t3888;
14167   t3892 = t1170 * t1159;
14168   t3897 = t109 * t1118;
14169   t3914 = 0.10708320e2 * t3824 * t109 - 0.10708320e2 * t3766 * t3897 - 0.19111352870400e2 * t3875 * t109 + 0.1784720e1 * t3870 * t109 + 0.9555676435200e1 * t3779 * t1825 + 0.5684735615810048000e1 * t3880 * t109 + 0.10708320e2 * t3799 - 0.10708320e2 * t3853 - 0.19111352870400e2 * t3811 + 0.1784720e1 * t3808 + 0.9555676435200e1 * t3849 + 0.5684735615810048000e1 * t3845;
14170   t3918 = 0.2766001889280e1 * t3824 * t112 + 0.63756387095837744823e0 * t3827 * t1139 + 0.29391714526792369101e0 * t3830 * t1139 + 0.63756387095837744823e0 * t1136 * t3834 - 0.12751277419167548965e1 * t3837 * t1139 - 0.12751277419167548965e1 * t1136 * t3842 + 0.14683899485061986386e1 * t399 * t3845 + 0.2468269445917900800e1 * t399 * t3849 - 0.2766001889280e1 * t399 * t3853 - 0.32937059624806545678e0 * t1136 * t3858 - 0.84395584650891170840e0 * t3861 * t3864 + 0.11378729917768353994e1 * t1136 * t3867 + 0.461000314880e0 * t3870 * t112 - 0.12751277419167548965e1 * t3875 * t112 + 0.97972381755974563669e-1 * t3880 * t112 + 0.975074869248e0 * t107 * t1177 * t411 * t1191 - 0.18307055749595233518e1 * t1149 * t3889 - 0.357234676004290560e0 * t1158 * t3892 - 0.258304e0 * t107 * t407 * t3914;
14171   t3920 = my_piecewise3(t97, 0, t3822 + t3918);
14172   t3921 = my_piecewise3(t96, 0, t3920);
14173   t3927 = 0.3e1 / 0.10e2 * t60 * (0.3e1 * t1118 * t417 + t3734 * t114 + 0.3e1 * t390 * t1197 + t95 * t3921 - t3667) + 0.154e3 / 0.27e2 * t3603;
14174   t3928 = t56 * t3927;
14175   t3934 = t1207 * t423;
14176   t3935 = t56 * t3934;
14177   t3936 = t345 * t128;
14178   t3939 = t345 * t126;
14179   t3940 = t3939 * t128;
14180   t3949 = t56 * t1264;
14181   t3950 = t3934 * t345;
14182   t3951 = t3950 * t128;
14183   t3954 = -0.539e3 / 0.21870e5 * t57 * t3664 - t3928 * t425 / 0.180e3 - t1204 * t36 * t1853 / 0.36e2 + 0.5e1 / 0.162e3 * t3935 * t3936 - 0.5e1 / 0.81e2 * t3935 * t3940 + t428 * t3927 * t425 / 0.180e3 + t1218 * t1203 * t1860 / 0.108e3 + 0.5e1 / 0.486e3 * t3949 * t3951;
14184   t3957 = -0.1540e4 / 0.6561e4 * t3630 - 0.209e3 / 0.486e3 * t40 * t3634 * t52 + 0.797e3 / 0.480e3 * t346 * t3639 * t52 - 0.729e3 / 0.3200e4 * t1056 * t3647 + 0.243e3 / 0.32000e5 * t3653 * t3659 + 0.6e1 * t432 * t1223 + 0.2e1 * t131 * t3954;
14185   t3966 = params->c1 * t3927;
14186   t3969 = t1232 * t36;
14187   t3972 = params->c1 * t3934;
14188   t3975 = t1265 * t3934;
14189   t3976 = t3975 * t24;
14190   t3979 = t1239 * t423;
14191   t3980 = t3979 * t1203;
14192   t3983 = t443 * t3927;
14193   t3986 = -0.5e1 / 0.9e1 * t3966 * t142 - 0.50e2 / 0.27e2 * t3969 * t444 - 0.500e3 / 0.81e2 * t3972 * t1240 - 0.2500e4 / 0.729e3 * t1879 * t3976 - 0.500e3 / 0.81e2 * t1879 * t3980 - 0.25e2 / 0.81e2 * t441 * t3983;
14194   t3991 = t1249 * t447;
14195   t3994 = t449 * t1265;
14196   t3995 = t3950 * t147;
14197   t3998 = t449 * t3979;
14198   t3999 = t147 * t1203;
14199   t4000 = t68 * t3999;
14200   t4003 = t1264 * t124;
14201   t4004 = 0.1e1 / t4003;
14202   t4005 = t1263 * t4004;
14203   t4008 = t3927 * t19;
14204   t4009 = t4008 * t452;
14205   t4017 = params->d * t1262 * params->c2;
14206   t4019 = 0.1e1 / t1264 / t126;
14207   t4020 = t4017 * t4019;
14208   t4024 = my_piecewise3(t139, 0.3e1 * t1247 * t447 * t145 + t3986 * t145 + t3991 * t145, -0.500e3 / 0.81e2 * t3994 * t3995 - 0.50e2 / 0.27e2 * t3998 * t4000 - 0.500e3 / 0.81e2 * t4005 * t3995 - 0.5e1 / 0.9e1 * t450 * t4009 - 0.25e2 / 0.27e2 * t1263 * t1265 * t1203 * t1894 - 0.250e3 / 0.243e3 * t4020 * t3995);
14209   t4027 = 0.6e1 * t3619 * t3620 * t150 - 0.6e1 * t1030 * t3624 + 0.6e1 * t1030 * t1031 * t456 + t330 * t3957 * t150 - 0.3e1 * t330 * t1226 * t456 - 0.3e1 * t330 * t435 * t1270 - t138 * t4024 + 0.1174e1 * t4024;
14210   t4028 = t4027 * t167;
14211   t4030 = t8 * t18 * t4028;
14212   t4031 = 0.3e1 / 0.8e1 * t4030;
14213   t4032 = t16 * t1345;
14214   t4034 = t8 * t4032 * t168;
14215   t4035 = 0.5e1 / 0.36e2 * t4034;
14216   t4037 = t475 * t1291 * t1002;
14217   t4038 = t1001 * t4037;
14218   t4039 = 0.23090200000000000000e2 * t4038;
14219   t4040 = t468 * t847;
14220   t4041 = 0.1e1 / t70;
14221   t4043 = t4041 * t473 * t166;
14222   t4045 = t4040 * t311 * t4043;
14223   t4046 = 0.32302153261130400000e3 * t4045;
14224   t4047 = t487 * t1318;
14225   t4049 = t1308 * t485 * t4047;
14226   t4050 = t4049 / 0.2e1;
14227   t4052 = t469 * t18 * t1273;
14228   t4053 = t4052 * t480;
14229   t4054 = 0.74218500000000000000e1 * t4053;
14230   t4055 = t1279 * t1288;
14231   t4056 = 0.89062200000000000000e2 * t4055;
14232   t4057 = t3607 - t3612 + t3614 + 0.57725500000000000000e1 * t3615 - t4031 - t4035 + t4039 - t4046 - t4050 - t4054 - t4056;
14233   t4059 = t8 * t1000;
14234   t4061 = t742 * t1299 * t19;
14235   t4062 = t23 * t166;
14236   t4063 = t4062 * t316;
14237   t4064 = t4061 * t4063;
14238   t4065 = t4059 * t4064;
14239   t4066 = 0.32216644838286502747e3 * t4065;
14240   t4068 = t469 * t1017 * t153;
14241   t4069 = t4068 * t480;
14242   t4070 = 0.16493000000000000000e1 * t4069;
14243   t4072 = t469 * t323 * t459;
14244   t4073 = t4072 * t480;
14245   t4075 = t1025 * t1288;
14246   t4077 = t17 * t1273;
14247   t4079 = t310 * t4077 * t317;
14248   t4080 = 0.3e1 / 0.2e1 * t4079;
14249   t4082 = t986 * t996 * t988;
14250   t4083 = t4082 / 0.2e1;
14251   t4084 = t322 * t459;
14252   t4086 = t310 * t4084 * t317;
14253   t4088 = 0.1e1 / t1305 / t172;
14254   t4089 = t7 * t4088;
14255   t4090 = t5 * t4089;
14256   t4091 = t1309 * t486;
14257   t4092 = t302 * t4091;
14258   t4094 = t4090 * t485 * t4092;
14259   t4095 = t4094 / 0.9e1;
14260   t4097 = t1308 * t1314 * t1310;
14261   t4099 = t1016 * t291;
14262   t4101 = t484 * t4099 * t487;
14263   t4102 = t4101 / 0.3e1;
14264   t4104 = t484 * t1314 * t1319;
14265   t4106 = t4066 + t4070 - 0.49479000000000000000e1 * t4073 - 0.29687400000000000000e2 * t4075 - t4080 - t4083 - t4086 + t4095 - t4097 / 0.6e1 + t4102 - t4104 / 0.2e1;
14266   t4107 = t312 * t312;
14267   t4108 = 0.1e1 / t4107;
14268   t4109 = t9 * t4108;
14269   t4111 = -0.3e1 * t1008 + 0.3e1 * t4109;
14270   t4112 = t302 * t4111;
14271   t4114 = t484 * t485 * t4112;
14272   t4115 = t4114 / 0.2e1;
14273   t4116 = t999 * t459;
14274   t4117 = t469 * t4116;
14275   t4118 = t4117 * t1004;
14276   t4119 = 0.19791600000000000000e2 * t4118;
14277   t4120 = t166 * t1010;
14278   t4122 = t475 * t478 * t4120;
14279   t4123 = t1001 * t4122;
14280   t4124 = 0.98958000000000000000e1 * t4123;
14281   t4126 = t1286 * t1037 * t1002;
14282   t4127 = t1001 * t4126;
14283   t4128 = 0.11874960000000000000e3 * t4127;
14284   t4129 = -t4111;
14285   t4130 = t167 * t4129;
14286   t4132 = t310 * t311 * t4130;
14287   t4133 = t4132 / 0.2e1;
14288   t4135 = t310 * t996 * t1011;
14289   t4136 = 0.3e1 / 0.2e1 * t4135;
14290   t4138 = t310 * t992 * t1011;
14291   t4140 = t174 * t1345;
14292   t4142 = t8 * t4140 * t303;
14293   t4143 = 0.5e1 / 0.36e2 * t4142;
14294   t4145 = 0.1e1 / t983 / t14;
14295   t4146 = t7 * t4145;
14296   t4147 = t5 * t4146;
14297   t4148 = t987 * t316;
14298   t4149 = t167 * t4148;
14299   t4151 = t4147 * t311 * t4149;
14300   t4152 = t4151 / 0.9e1;
14301   t4154 = t986 * t992 * t988;
14302   t4156 = t1016 * t153;
14303   t4158 = t310 * t4156 * t317;
14304   t4159 = t4158 / 0.3e1;
14305   t4160 = -t4115 - t4119 - t4124 - t4128 - t4133 - t4136 - t4138 / 0.2e1 - t4143 + t4152 - t4154 / 0.6e1 + t4159;
14306   t4171 = t1325 / 0.4e1;
14307   t4173 = t1019 / 0.4e1;
14308   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14309     v3rho3[0] = t10 * (-0.3e1 / 0.8e1 * t3543 + t3547 + 0.80541612095716256868e2 * t3550 + t3556 - t3571 + t3578 - t3582 - t3590 - 0.65972000000000000001e1 * t3594 - t3599 + t4057 + t4106 + t4160) + 0.17317650000000000000e2 * t1294 + 0.24162483628714877061e3 * t1303 - 0.9e1 / 0.8e1 * t1276 - 0.3e1 / 0.4e1 * t1022 - 0.14843700000000000000e2 * t1280 - 0.89062200000000000000e2 * t1289 - 0.49479000000000000000e1 * t1026 + t4171 - 0.3e1 / 0.2e1 * t1321 + t4173 - 0.3e1 * t998 - 0.3e1 / 0.2e1 * t1013 - t1312 / 0.2e1 - t1316 - t990 / 0.2e1 - t994 - 0.19791600000000000000e2 * t1005;
14310 
14311   t4180 = t1331 / 0.3e1;
14312   t4182 = 0.65972000000000000000e1 * t1342;
14313   t4183 = 0.65972000000000000000e1 * t1380;
14314   t4185 = t1304 - t1419 + t4171 - t1277 + t4173 - t1022 / 0.2e1 - t1369 - t4180 - 0.32986000000000000000e1 * t1026 - t1281 - t1290 - t4182 - t4183 - t1313 - 0.2e1 / 0.3e1 * t1316;
14315   t4186 = t1356 / 0.3e1;
14316   t4188 = t15 * t1345;
14317   t4190 = t8 * t4188 * t168;
14318   t4193 = t8 * t1323 * t635;
14319   t4195 = t173 * t1345;
14320   t4197 = t8 * t4195 * t303;
14321   t4203 = 0.1e1 / t321 / t1007;
14322   t4204 = t4203 * t291;
14323   t4206 = t484 * t4204 * t1362;
14324   t4209 = t484 * t1367 * t1319;
14325   t4212 = t310 * t4077 * t499;
14326   t4214 = t504 * t1318;
14327   t4216 = t1308 * t485 * t4214;
14328   t4218 = t1362 * t486;
14329   t4220 = t1308 * t1361 * t4218;
14330   t4223 = -t4190 / 0.2e1 + t4193 / 0.12e2 + t4197 / 0.2e1 - t3543 / 0.8e1 + t3546 / 0.6e1 + 0.26847204031905418956e2 * t3550 - 0.7e1 / 0.6e1 * t4206 - t4209 / 0.2e1 - t4212 / 0.2e1 - t4216 / 0.6e1 + t4220 / 0.3e1 - 0.21990666666666666666e1 * t3594;
14331   t4225 = t469 * t1323 * t291;
14332   t4226 = t4225 * t649;
14333   t4228 = t4062 * t498;
14334   t4229 = t4061 * t4228;
14335   t4230 = t4059 * t4229;
14336   t4234 = t475 * t1291 * t1339;
14337   t4235 = t1001 * t4234;
14338   t4237 = t4188 * t153;
14339   t4238 = t469 * t4237;
14340   t4239 = t166 * t9;
14341   t4241 = t475 * t478 * t4239;
14342   t4242 = t4238 * t4241;
14343   t4244 = t1306 * t17;
14344   t4245 = t4244 * t291;
14345   t4246 = t469 * t4245;
14346   t4247 = t301 * t1309;
14347   t4249 = t644 * t647 * t4247;
14348   t4250 = t4246 * t4249;
14349   t4252 = t173 * t322;
14350   t4253 = t4252 * t291;
14351   t4254 = t469 * t4253;
14352   t4255 = t4254 * t1379;
14353   t4257 = t499 * t1010;
14354   t4259 = t986 * t311 * t4257;
14355   t4262 = t310 * t4084 * t499;
14356   t4263 = t4262 / 0.3e1;
14357   t4265 = t484 * t4099 * t504;
14358   t4268 = t1308 * t1367 * t1310;
14359   t4270 = t322 * t634;
14360   t4272 = t484 * t4270 * t487;
14361   t4273 = t4272 / 0.3e1;
14362   t4274 = 0.54976666666666666667e0 * t4226 + 0.10738881612762167582e3 * t4230 + 0.19241833333333333333e1 * t3615 + 0.76967333333333333333e1 * t4235 - 0.65972000000000000000e1 * t4242 - 0.10995333333333333333e1 * t4250 - 0.21990666666666666666e1 * t4255 - t4259 / 0.6e1 - t4035 - t4263 + t4265 / 0.9e1 - t4268 / 0.6e1 - t4273;
14363   t4276 = t153 * t473;
14364   t4278 = t469 * t3583 * t4276;
14365   t4279 = t156 * t157;
14366   t4280 = t477 * t166;
14367   t4281 = t498 * t316;
14368   t4282 = t4280 * t4281;
14369   t4283 = t4279 * t4282;
14370   t4284 = t4278 * t4283;
14371   t4286 = t301 * t1318;
14372   t4288 = t644 * t647 * t4286;
14373   t4289 = t1376 * t4288;
14374   t4291 = t3593 * t1341;
14375   t4293 = t4117 * t1341;
14376   t4296 = t1286 * t1037 * t1339;
14377   t4297 = t1001 * t4296;
14378   t4306 = -0.21990666666666666666e1 * t4284 - 0.32986000000000000000e1 * t4289 - 0.21990666666666666666e1 * t4291 - 0.65972000000000000000e1 * t4293 - 0.39583200000000000000e2 * t4297 + 0.10995333333333333333e1 * t4069 - 0.16493000000000000000e1 * t4073 - 0.98958000000000000000e1 * t4075 - t4086 / 0.3e1 - t4097 / 0.18e2 + 0.2e1 / 0.9e1 * t4101 - t4104 / 0.6e1;
14379   t4308 = t986 * t996 * t1329;
14380   t4310 = t504 * t1309;
14381   t4312 = t4090 * t485 * t4310;
14382   t4315 = t1308 * t1314 * t1354;
14383   t4316 = t4315 / 0.9e1;
14384   t4317 = t499 * t987;
14385   t4319 = t4147 * t311 * t4317;
14386   t4322 = t986 * t992 * t1329;
14387   t4323 = t4322 / 0.9e1;
14388   t4324 = t1347 * t316;
14389   t4326 = t986 * t1346 * t4324;
14390   t4328 = t1345 * t459;
14391   t4330 = t310 * t4328 * t1347;
14392   t4332 = t310 * t4156 * t499;
14393   t4334 = t4203 * t153;
14394   t4336 = t310 * t4334 * t1347;
14395   t4341 = -t4308 / 0.3e1 + t4312 / 0.9e1 - t4316 + t4319 / 0.9e1 - t4323 - t4326 / 0.3e1 - t4330 + t4332 / 0.9e1 + 0.7e1 / 0.6e1 * t4336 - t4138 / 0.6e1 - t4143 - t4154 / 0.18e2 + 0.2e1 / 0.9e1 * t4158;
14396   t4345 = -t1322 - t4186 + t1295 - t1420 - t1006 - t1395 - t1337 - t1349 - t1406 + t1364 - 0.2e1 / 0.3e1 * t994 - t998 - t1014 - t991 + t10 * (t4223 + t4274 + t4306 + t4341);
14397   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14398     v3rho3[1] = t4185 + t4345;
14399 
14400   t4347 = t1693 - t1666 - t1372 / 0.2e1 + t4171 + t4173 - t1023 - t1369 - t1400 - t4180 - t1405 - t1408 - t1418 - t1027 - t4182 - t4183;
14401   t4351 = t913 * t322;
14402   t4352 = t5 * t4351;
14403   t4353 = t4352 * t1691;
14404   t4355 = t291 * t642;
14405   t4357 = t469 * t4244 * t4355;
14406   t4358 = t156 * t292;
14407   t4359 = t646 * t301;
14408   t4360 = t503 * t486;
14409   t4361 = t4359 * t4360;
14410   t4362 = t4358 * t4361;
14411   t4363 = t4357 * t4362;
14412   t4367 = t1383 * t1682;
14413   t4369 = t1383 * t1677;
14414   t4371 = t1391 * t316;
14415   t4373 = t4147 * t311 * t4371;
14416   t4375 = t499 * t9;
14417   t4377 = t986 * t1346 * t4375;
14418   t4381 = t1675 * t1430 * t1377;
14419   t4382 = t1376 * t4381;
14420   t4384 = t4193 / 0.6e1 + t3546 / 0.12e2 + 0.26847204031905418956e2 * t4353 - 0.21990666666666666667e1 * t4363 + t4206 / 0.3e1 + 0.10995333333333333333e1 * t4226 + 0.19241833333333333333e1 * t4367 - 0.98958000000000000000e1 * t4369 + t4373 / 0.9e1 - t4377 / 0.3e1 - 0.21990666666666666667e1 * t4255 - 0.39583200000000000000e2 * t4382;
14421   t4386 = t644 * t1680 * t1377;
14422   t4387 = t1376 * t4386;
14423   t4391 = t484 * t4270 * t504;
14424   t4394 = t484 * t1314 * t1415;
14425   t4397 = t310 * t992 * t1397;
14426   t4400 = t1308 * t1314 * t1402;
14427   t4403 = t986 * t992 * t1391;
14428   t4408 = 0.76967333333333333333e1 * t4387 - t4035 - t4263 + 0.2e1 / 0.9e1 * t4265 - t4273 - t4391 / 0.3e1 - t4394 / 0.6e1 - t4397 / 0.6e1 - t4400 / 0.18e2 - t4403 / 0.18e2 - 0.21990666666666666667e1 * t4291 + 0.54976666666666666667e0 * t4069 + t4101 / 0.9e1;
14429   t4411 = t469 * t491 * t634;
14430   t4412 = t4411 * t649;
14431   t4414 = t8 * t1375;
14432   t4416 = t837 * t1688 * t19;
14433   t4417 = t23 * t301;
14434   t4418 = t4417 * t486;
14435   t4419 = t4416 * t4418;
14436   t4420 = t4414 * t4419;
14437   t4423 = t1308 * t1367 * t1354;
14438   t4425 = t1415 * t486;
14439   t4427 = t1308 * t485 * t4425;
14440   t4429 = t1397 * t316;
14441   t4431 = t986 * t311 * t4429;
14442   t4433 = t1402 * t486;
14443   t4435 = t4090 * t485 * t4433;
14444   t4437 = t504 * t9;
14445   t4439 = t1308 * t1361 * t4437;
14446   t4441 = t17 * t1662;
14447   t4443 = t484 * t4441 * t487;
14448   t4446 = -t1008 - 0.3e1 * t4109;
14449   t4447 = t167 * t4446;
14450   t4449 = t310 * t311 * t4447;
14451   t4451 = t1345 * t634;
14452   t4453 = t484 * t4451 * t1362;
14453   t4454 = -0.16493000000000000000e1 * t4412 + 0.10738881612762167582e3 * t4420 - t4423 / 0.3e1 - t4427 / 0.6e1 - t4431 / 0.6e1 + t4435 / 0.9e1 + t4439 / 0.3e1 - t4316 - t4323 - t4443 / 0.2e1 - t4449 / 0.2e1 + t4453;
14454   t4456 = t986 * t996 * t1391;
14455   t4459 = t310 * t996 * t1397;
14456   t4463 = -t4446;
14457   t4464 = t302 * t4463;
14458   t4466 = t484 * t485 * t4464;
14459   t4468 = t4195 * t291;
14460   t4469 = t469 * t4468;
14461   t4470 = t301 * t9;
14462   t4472 = t644 * t647 * t4470;
14463   t4473 = t4469 * t4472;
14464   t4475 = t1374 * t634;
14465   t4476 = t469 * t4475;
14466   t4477 = t4476 * t1379;
14467   t4479 = t166 * t1390;
14468   t4481 = t475 * t478 * t4479;
14469   t4482 = t3585 * t4481;
14470   t4484 = t166 * t1396;
14471   t4486 = t475 * t478 * t4484;
14472   t4487 = t1001 * t4486;
14473   t4489 = t4254 * t1411;
14474   t4493 = t8 * t491 * t1663;
14475   t4495 = -t4456 / 0.6e1 - t4459 / 0.2e1 + 0.2e1 / 0.9e1 * t4332 - t4336 / 0.3e1 - t4466 / 0.2e1 + 0.65972000000000000000e1 * t4473 - 0.65972000000000000000e1 * t4477 - 0.10995333333333333333e1 * t4482 - 0.32986000000000000000e1 * t4487 - 0.21990666666666666667e1 * t4489 - t4143 + t4158 / 0.9e1 - t4493 / 0.8e1;
14476   t4501 = -t1413 - t1317 - t4186 - t1394 - 0.32986000000000000000e1 * t1384 - t1670 - t1679 + t1684 + t10 * (t4384 + t4408 + t4454 + t4495) - 0.2e1 / 0.3e1 * t1334 - t1337 - t1349 - 0.2e1 / 0.3e1 * t1359 + t1364 - t995;
14477   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14478     v3rho3[2] = t4347 + t4501;
14479 
14480   t4507 = t4193 / 0.4e1;
14481   t4509 = t634 * t837;
14482   t4511 = t4509 * t1688 * t1690;
14483   t4512 = t1686 * t4511;
14484   t4513 = 0.24162483628714877061e3 * t4512;
14485   t4515 = 0.1e1 / t185;
14486   t4519 = 0.1e1 / t297 / t3557 / t2207 / t4515 / 0.36e2;
14487   t4521 = t291 * t4519 * t3557;
14488   t4522 = 0.1e1 / t1433;
14489   t4524 = t2207 * t4522 * t301;
14490   t4525 = t4521 * t4524;
14491   t4526 = t2195 * t4525;
14492   t4527 = 0.59374800000000000000e3 * t4526;
14493   t4529 = t291 * t19 * t38;
14494   t4530 = t837 * t203;
14495   t4531 = t4530 * t301;
14496   t4532 = t4529 * t4531;
14497   t4533 = t1686 * t4532;
14498   t4534 = 0.16536775210765846035e1 * t4533;
14499   t4536 = t1687 * t203 * t1690;
14500   t4537 = t1686 * t4536;
14501   t4538 = 0.24162483628714877060e3 * t4537;
14502   t4539 = t301 * t1401;
14503   t4541 = t644 * t647 * t4539;
14504   t4542 = t4246 * t4541;
14505   t4543 = 0.32986000000000000000e1 * t4542;
14506   t4544 = t4476 * t1411;
14507   t4545 = 0.19791600000000000000e2 * t4544;
14508   t4546 = t301 * t1414;
14509   t4548 = t644 * t647 * t4546;
14510   t4549 = t1376 * t4548;
14511   t4550 = 0.98958000000000000000e1 * t4549;
14512   t4552 = t1675 * t1430 * t1409;
14513   t4553 = t1376 * t4552;
14514   t4554 = 0.11874960000000000000e3 * t4553;
14515   t4556 = 0.16493000000000000000e1 * t4226;
14516   t4559 = t4265 / 0.3e1;
14517   t4564 = t508 * t508;
14518   t4566 = t327 / t4564;
14519   t4567 = t1424 * t611;
14520   t4571 = t612 * t1617;
14521   t4578 = 0.1e1 / t178 / t186;
14522   t4579 = sigma[2] * t4578;
14523   t4580 = t24 * t4579;
14524   t4583 = 0.1e1 / t177 / t524;
14525   t4584 = t184 * t4583;
14526   t4588 = 0.1e1 / t1987;
14527   t4589 = t523 * t4588;
14528   t4593 = t524 * t186;
14529   t4595 = 0.1e1 / t178 / t4593;
14530   t4597 = t4595 * t19 * t1452;
14531   t4600 = t1446 * sigma[2];
14532   t4601 = t3651 * t4600;
14533   t4602 = t524 * t524;
14534   t4606 = t39 * t194;
14535   t4607 = 0.1e1 / t177 / t4602 * t36 * t4606;
14536   t4612 = t190 * t4578;
14537   t4615 = 0.770e3 / 0.243e3 * t4580;
14538   t4622 = 0.260e3 / 0.19683e5 * t68 * t207 * t518;
14539   t4623 = sigma[2] * t1435;
14540   t4626 = 0.247e3 / 0.8748e4 * t68 * t4623 * lapl[1];
14541   t4627 = t68 * t4584;
14542   t4628 = 0.836e3 / 0.59049e5 * t4627;
14543   t4629 = -0.770e3 / 0.2187e4 * t4580 - 0.1100e4 / 0.729e3 * t24 * lapl[1] * t1429 - t4622 + t4626 - t4628;
14544   t4631 = t1475 * t551;
14545   t4634 = t548 * t1481;
14546   t4641 = 0.1e1 / t230 / t1479 / t229;
14547   t4642 = t222 * t4641;
14548   t4643 = t1483 * t563;
14549   t4646 = t563 * t1506;
14550   t4651 = t1486 * t558;
14551   t4652 = t4651 * t19;
14552   t4655 = t223 * t1497;
14553   t4656 = t4655 * t554;
14554   t4659 = t1489 * t1493;
14555   t4664 = -t4622 + t4626 - t4628;
14556   t4668 = 0.1e1 / t1496 / t225;
14557   t4669 = t224 * t4668;
14558   t4670 = t345 * t523;
14559   t4671 = t4670 * t4588;
14560   t4674 = t1500 * t4583;
14561   t4679 = 0.6e1 * t2016 * t1493 + 0.20e2 / 0.9e1 * t4652 * t531 + 0.100e3 / 0.81e2 * t4656 * t1473 + 0.20e2 / 0.9e1 * t4659 * t514 - 0.220e3 / 0.27e2 * t1490 * t1431 + 0.2e1 * t553 * t4664 + 0.2000e4 / 0.2187e4 * t4669 * t4671 - 0.550e3 / 0.243e3 * t1499 * t4674 + 0.1540e4 / 0.243e3 * t560 * t4612;
14562   t4682 = t4629 * t231 - 0.3e1 / 0.2e1 * t4631 * t563 + 0.9e1 / 0.4e1 * t4634 * t1483 - 0.3e1 / 0.2e1 * t1477 * t1506 - 0.15e2 / 0.8e1 * t4642 * t4643 + 0.9e1 / 0.4e1 * t1482 * t4646 - t552 * t4679 / 0.2e1 + t4615;
14563   t4688 = pow(t248, -0.3258304e1);
14564   t4689 = t1569 * t587;
14565   t4693 = -t4682;
14566   t4694 = t577 * t4693;
14567   t4695 = t4694 * t242;
14568   t4699 = 0.1e1 / t1541 / t576;
14569   t4700 = t1543 * t578;
14570   t4701 = t4699 * t4700;
14571   t4705 = pow(t243, -0.2741696e1);
14572   t4706 = t238 * t4705;
14573   t4707 = t4706 * t249;
14574   t4708 = t1545 * t242;
14575   t4712 = t4701 * t242;
14576   t4715 = t1534 * t1582;
14577   t4718 = t244 * t1568;
14578   t4719 = t4718 * t1569;
14579   t4722 = t1523 * t1509;
14580   t4723 = t4722 * t566;
14581   t4726 = t1514 * t566;
14582   t4727 = t4726 * t238;
14583   t4728 = t2044 * t1509;
14584   t4731 = t569 * t4682;
14585   t4735 = 0.1e1 / t1522 / t568;
14586   t4736 = t1515 * t566;
14587   t4737 = t4735 * t4736;
14588   t4741 = 0.1e1 / t1522 / t233;
14589   t4742 = t4741 * t4736;
14590   t4745 = t1523 * t4736;
14591   t4752 = t1516 * t574;
14592   t4755 = t249 * t1555;
14593   t4756 = t1543 * t242;
14594   t4757 = t4755 * t4756;
14595   t4761 = 0.1e1 / t1541 / t239;
14596   t4762 = t4761 * t4700;
14597   t4763 = t4762 * t242;
14598   t4766 = t1542 * t4700;
14599   t4767 = t4766 * t242;
14600   t4770 = t1516 * t238;
14601   t4773 = -0.734005159174078464e0 * t245 * t4688 * t4689 + 0.461000314880e0 * t575 * t4695 - 0.32672968537417605163e1 * t1540 * t4701 * t1545 + 0.18968792869915364414e1 * t4707 * t4701 * t4708 + 0.14683899485061986386e1 * t575 * t4712 - 0.357234676004290560e0 * t1533 * t4715 + 0.44950982175490282881e0 * t1533 * t4719 + 0.63756387095837744823e0 * t4723 * t250 - 0.2766001889280e1 * t4727 * t4728 + 0.461000314880e0 * t4731 * t250 + 0.97972381755974563669e-1 * t4737 * t250 - 0.12751277419167548965e1 * t4742 * t250 + 0.2766001889280e1 * t4745 * t250 + 0.975074869248e0 * t245 * t1568 * t587 * t1582 - 0.12751277419167548965e1 * t4752 * t1530 - 0.12751277419167548965e1 * t1527 * t4757 - 0.4936538891835801600e1 * t575 * t4763 + 0.2766001889280e1 * t575 * t4767 + 0.714469352008581120e0 * t4770 * t1535;
14602   t4774 = t1519 * t574;
14603   t4777 = t1524 * t574;
14604   t4780 = t1560 * t242;
14605   t4781 = t1528 * t4780;
14606   t4784 = t570 * t1539;
14607   t4785 = t249 * t1542;
14608   t4786 = t1543 * t1545;
14609   t4787 = t4785 * t4786;
14610   t4790 = t4785 * t4756;
14611   t4795 = t247 * t1509;
14612   t4807 = t1555 * t578;
14613   t4808 = t4807 * t4780;
14614   t4813 = t1542 * t1560 * t1529;
14615   t4816 = 0.10708320e2 * t4745 * t247 - 0.10708320e2 * t4726 * t4795 - 0.19111352870400e2 * t4742 * t247 + 0.1784720e1 * t4731 * t247 + 0.9555676435200e1 * t4722 * t2096 + 0.5684735615810048000e1 * t4737 * t247 + 0.10708320e2 * t4767 - 0.10708320e2 * t4808 - 0.19111352870400e2 * t4763 + 0.1784720e1 * t4695 + 0.9555676435200e1 * t4813 + 0.5684735615810048000e1 * t4712;
14616   t4820 = t1524 * t238;
14617   t4823 = t574 * t1568;
14618   t4824 = t242 * t1569;
14619   t4825 = t579 * t4824;
14620   t4828 = t1556 * t1550;
14621   t4831 = t1544 * t1550;
14622   t4838 = t1539 * t583;
14623   t4839 = t1545 * t587;
14624   t4840 = t1544 * t4839;
14625   t4844 = t1545 * t1560;
14626   t4845 = t1542 * t578 * t4844;
14627   t4848 = t583 * t577;
14628   t4849 = t1529 * t587;
14629   t4850 = t4848 * t4849;
14630   t4853 = t242 * t1582;
14631   t4854 = t579 * t4853;
14632   t4857 = t1561 * t1550;
14633   t4863 = t1519 * t238;
14634   t4866 = 0.63756387095837744823e0 * t4774 * t1530 + 0.29391714526792369101e0 * t4777 * t1530 + 0.63756387095837744823e0 * t1527 * t4781 - 0.84395584650891170840e0 * t4784 * t4787 + 0.11378729917768353994e1 * t1527 * t4790 - 0.258304e0 * t245 * t583 * t4816 - 0.16468529812403272839e0 * t4820 * t1535 + 0.44950982175490282881e0 * t4823 * t4825 + 0.714469352008581120e0 * t1549 * t4828 - 0.63756387095837744824e0 * t1549 * t4831 - 0.2766001889280e1 * t575 * t4808 + 0.2468269445917900800e1 * t575 * t4813 + 0.47287857283434471986e0 * t4838 * t4840 - 0.18307055749595233518e1 * t1540 * t4845 - 0.32937059624806545678e0 * t1527 * t4850 - 0.357234676004290560e0 * t1549 * t4854 - 0.357234676004290560e0 * t1549 * t4857 + 0.36614111499190467036e1 * t1540 * t4762 * t1545 - 0.357234676004290560e0 * t4863 * t1535;
14635   t4868 = my_piecewise3(t235, 0, t4773 + t4866);
14636   t4869 = my_piecewise3(t234, 0, t4868);
14637   t4875 = 0.3e1 / 0.10e2 * t60 * (0.3e1 * t1509 * t593 + 0.3e1 * t566 * t1588 + t233 * t4869 + t4682 * t252 - t4615) + 0.154e3 / 0.27e2 * t4579;
14638   t4876 = t56 * t4875;
14639   t4882 = t1598 * t599;
14640   t4883 = t56 * t4882;
14641   t4884 = t345 * t266;
14642   t4887 = t345 * t264;
14643   t4888 = t4887 * t266;
14644   t4897 = t56 * t1653;
14645   t4898 = t4882 * t345;
14646   t4899 = t4898 * t266;
14647   t4902 = -0.539e3 / 0.21870e5 * t57 * t4612 - t4876 * t601 / 0.180e3 - t1595 * t36 * t2124 / 0.36e2 + 0.5e1 / 0.162e3 * t4883 * t4884 - 0.5e1 / 0.81e2 * t4883 * t4888 + t604 * t4875 * t601 / 0.180e3 + t1609 * t1594 * t2131 / 0.108e3 + 0.5e1 / 0.486e3 * t4897 * t4899;
14648   t4905 = -0.1540e4 / 0.6561e4 * t4580 - 0.209e3 / 0.486e3 * t40 * t4584 * t194 + 0.797e3 / 0.480e3 * t346 * t4589 * t194 - 0.729e3 / 0.3200e4 * t1447 * t4597 + 0.243e3 / 0.32000e5 * t4601 * t4607 + 0.6e1 * t608 * t1614 + 0.2e1 * t269 * t4902;
14649   t4914 = params->c1 * t4875;
14650   t4917 = t1623 * t36;
14651   t4920 = params->c1 * t4882;
14652   t4923 = t1654 * t4882;
14653   t4924 = t4923 * t24;
14654   t4927 = t1630 * t599;
14655   t4928 = t4927 * t1594;
14656   t4931 = t619 * t4875;
14657   t4934 = -0.5e1 / 0.9e1 * t4914 * t280 - 0.50e2 / 0.27e2 * t4917 * t620 - 0.500e3 / 0.81e2 * t4920 * t1631 - 0.2500e4 / 0.729e3 * t2150 * t4924 - 0.500e3 / 0.81e2 * t2150 * t4928 - 0.25e2 / 0.81e2 * t617 * t4931;
14658   t4939 = t1640 * t623;
14659   t4942 = t449 * t1654;
14660   t4943 = t4898 * t285;
14661   t4946 = t449 * t4927;
14662   t4947 = t285 * t1594;
14663   t4948 = t68 * t4947;
14664   t4951 = t1653 * t262;
14665   t4952 = 0.1e1 / t4951;
14666   t4953 = t1263 * t4952;
14667   t4956 = t4875 * t19;
14668   t4957 = t4956 * t627;
14669   t4965 = 0.1e1 / t1653 / t264;
14670   t4966 = t4017 * t4965;
14671   t4970 = my_piecewise3(t277, 0.3e1 * t1638 * t623 * t283 + t4934 * t283 + t4939 * t283, -0.500e3 / 0.81e2 * t4942 * t4943 - 0.50e2 / 0.27e2 * t4946 * t4948 - 0.500e3 / 0.81e2 * t4953 * t4943 - 0.5e1 / 0.9e1 * t625 * t4957 - 0.25e2 / 0.27e2 * t1263 * t1654 * t1594 * t2165 - 0.250e3 / 0.243e3 * t4966 * t4943);
14672   t4973 = 0.6e1 * t4566 * t4567 * t288 - 0.6e1 * t1423 * t4571 + 0.6e1 * t1423 * t1424 * t631 + t510 * t4905 * t288 - 0.3e1 * t510 * t1617 * t631 - 0.3e1 * t510 * t611 * t1659 - t276 * t4970 + 0.1174e1 * t4970;
14673   t4974 = t4973 * t302;
14674   t4976 = t8 * t175 * t4974;
14675   t4977 = 0.3e1 / 0.8e1 * t4976;
14676   t4978 = t4556 + 0.57725500000000000000e1 * t4367 - 0.29687400000000000000e2 * t4369 - t4035 + t4559 - t4391 - t4394 / 0.2e1 - t4397 / 0.2e1 - t4400 / 0.6e1 - t4403 / 0.6e1 - t4977;
14677   t4981 = 0.3e1 * t1008 + 0.3e1 * t4109;
14678   t4982 = t302 * t4981;
14679   t4984 = t484 * t485 * t4982;
14680   t4985 = t4984 / 0.2e1;
14681   t4987 = t484 * t1367 * t1415;
14682   t4988 = 0.3e1 / 0.2e1 * t4987;
14683   t4989 = -t4981;
14684   t4990 = t167 * t4989;
14685   t4992 = t310 * t311 * t4990;
14686   t4993 = t4992 / 0.2e1;
14687   t4995 = t1308 * t1367 * t1402;
14688   t4996 = t4995 / 0.2e1;
14689   t4998 = t484 * t4441 * t504;
14690   t4999 = 0.3e1 / 0.2e1 * t4998;
14691   t5000 = t1390 * t498;
14692   t5001 = t167 * t5000;
14693   t5003 = t4147 * t311 * t5001;
14694   t5004 = t5003 / 0.9e1;
14695   t5005 = t1401 * t503;
14696   t5006 = t302 * t5005;
14697   t5008 = t4090 * t485 * t5006;
14698   t5009 = t5008 / 0.9e1;
14699   t5011 = t1675 * t4579 * t301;
14700   t5012 = t640 * t5011;
14701   t5013 = 0.20781180000000000000e3 * t5012;
14702   t5014 = t292 * t215;
14703   t5016 = t644 * t5014 * t301;
14704   t5017 = t640 * t5016;
14705   t5018 = 0.19241833333333333333e2 * t5017;
14706   t5019 = t1668 * t1682;
14707   t5020 = 0.17317650000000000000e2 * t5019;
14708   t5022 = t469 * t175 * t1662;
14709   t5023 = t5022 * t649;
14710   t5024 = 0.74218500000000000000e1 * t5023;
14711   t5025 = -t4985 - t4988 - t4993 - t4996 - t4999 + t5004 + t5009 + t5013 - t5018 + t5020 - t5024;
14712   t5026 = t1668 * t1677;
14713   t5027 = 0.89062200000000000000e2 * t5026;
14714   t5028 = t4417 * t503;
14715   t5029 = t4416 * t5028;
14716   t5030 = t4414 * t5029;
14717   t5031 = 0.32216644838286502747e3 * t5030;
14718   t5033 = t504 * t1414;
14719   t5035 = t1308 * t485 * t5033;
14720   t5036 = t5035 / 0.2e1;
14721   t5037 = t499 * t1396;
14722   t5039 = t986 * t311 * t5037;
14723   t5040 = t5039 / 0.2e1;
14724   t5041 = t468 * t913;
14725   t5042 = 0.1e1 / t208;
14726   t5044 = t5042 * t642 * t301;
14727   t5046 = t5041 * t485 * t5044;
14728   t5047 = 0.32302153261130400000e3 * t5046;
14729   t5049 = t644 * t1680 * t1409;
14730   t5050 = t1376 * t5049;
14731   t5051 = 0.23090200000000000000e2 * t5050;
14732   t5052 = t4332 / 0.3e1;
14733   t5055 = -t5027 + t5031 - 0.49479000000000000000e1 * t4412 - t5036 - t5040 - t5047 + t5051 + t5052 - 0.65972000000000000001e1 * t4489 - t4143 - 0.3e1 / 0.8e1 * t4493;
14734   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14735     v3rho3[3] = -0.9e1 / 0.8e1 * t1665 + 0.17317650000000000000e2 * t1683 - 0.49479000000000000000e1 * t1384 - 0.19791600000000000000e2 * t1412 + 0.24162483628714877061e3 * t1692 + t10 * (t4507 + 0.80541612095716256868e2 * t4353 + t4513 - t4527 + t4534 - t4538 - t4543 - t4545 - t4550 - t4554 + t4978 + t5025 + t5055) - 0.14843700000000000000e2 * t1669 - 0.89062200000000000000e2 * t1678 - 0.3e1 * t1408 - 0.3e1 / 0.2e1 * t1417 - 0.3e1 / 0.2e1 * t1399 - 0.3e1 / 0.4e1 * t1372 + t4171 + t4173 - t1393 / 0.2e1 - t1404 / 0.2e1 - t1359 - t1334;
14736 
14737   t5067 = t1701 / 0.4e1;
14738   t5071 = 0.61848750000000000000e0 * t1922;
14739   t5077 = t459 * t1284 * t19;
14740   t5078 = t5077 * t1929;
14741   t5079 = t1926 * t5078;
14742   t5080 = 0.22265550000000000000e2 * t5079;
14743   t5081 = t737 * t742;
14744   t5083 = t5081 * t1299 * t1301;
14745   t5084 = t1297 * t5083;
14746   t5085 = 0.80541612095716256868e2 * t5084;
14747   t5086 = t468 * t3548;
14748   t5087 = t5086 * t1930;
14749   t5088 = 0.74218500000000000000e1 * t5087;
14750   t5089 = t3549 * t1942;
14751   t5091 = t459 * t1939;
14752   t5093 = t5091 * t26 * t1301;
14753   t5094 = t1297 * t5093;
14754   t5095 = 0.60406209071787192650e2 * t5094;
14755   t5096 = 0.1e1 / t336;
14756   t5098 = t5096 * t166 * t157;
14757   t5099 = t3565 * t5098;
14758   t5100 = t1926 * t5099;
14759   t5101 = 0.22265550000000000000e3 * t5100;
14760   t5102 = t1939 * t1299;
14761   t5103 = t5102 * t166;
14762   t5104 = t3573 * t5103;
14763   t5105 = t1297 * t5104;
14764   t5106 = 0.62012907040371922630e0 * t5105;
14765   t5108 = t1940 * t1299 * t1301;
14766   t5109 = t1297 * t5108;
14767   t5110 = 0.30203104535893596326e2 * t5109;
14768   t5111 = t23 * t1036;
14769   t5112 = t5111 * t166;
14770   t5113 = t1928 * t5112;
14771   t5114 = t1926 * t5113;
14772   t5115 = 0.55663875000000000000e2 * t5114;
14773   t5116 = t1279 * t1935;
14774   t5117 = 0.24739500000000000000e1 * t5116;
14775   t5118 = t4068 * t745;
14776   t5119 = 0.20616250000000000000e0 * t5118;
14777   t5120 = t1025 * t1935;
14778   t5121 = 0.82465000000000000000e0 * t5120;
14779   t5123 = t469 * t323 * t737;
14780   t5124 = t5123 * t480;
14781   t5125 = 0.16493000000000000000e1 * t5124;
14782   t5126 = t4052 * t745;
14783   t5127 = 0.92773125000000000000e0 * t5126;
14784   t5129 = t469 * t18 * t1909;
14785   t5130 = t5129 * t480;
14786   t5131 = 0.49479000000000000000e1 * t5130;
14787   t5132 = t1915 * t1288;
14788   t5133 = 0.29687400000000000000e2 * t5132;
14789   t5134 = t332 * t166;
14790   t5136 = t1286 * t5134 * t316;
14791   t5137 = t1001 * t5136;
14792   t5138 = 0.29687400000000000000e2 * t5137;
14793   t5139 = t5080 + t5085 + t5088 - 0.20135403023929064216e2 * t5089 - t5095 + t5101 - t5106 + t5110 - t5115 - t5117 - t5119 - t5121 - t5125 + t5127 - t5131 - t5133 + t5138;
14794   t5141 = t1939 * t26 * t19;
14795   t5142 = t5141 * t4063;
14796   t5143 = t4059 * t5142;
14797   t5144 = 0.80541612095716256867e2 * t5143;
14798   t5145 = t4072 * t745;
14799   t5146 = 0.61848750000000000000e0 * t5145;
14800   t5147 = t742 * t72;
14801   t5149 = t475 * t5147 * t166;
14802   t5150 = t471 * t5149;
14803   t5151 = 0.28862750000000000000e1 * t5150;
14804   t5153 = t8 * t323 * t1910;
14805   t5154 = t5153 / 0.4e1;
14806   t5158 = t1867 * t435;
14807   t5167 = t24 * t1036;
14808   t5172 = t41 * t1048;
14809   t5178 = t3651 * t1055;
14810   t5183 = 0.1e1 / t26 / t348 / t1040 * t36 * t3658;
14811   t5192 = 0.55e2 / 0.81e2 * t5167;
14812   t5195 = t68 * t338 * lapl[0];
14813   t5196 = 0.13e2 / 0.2916e4 * t5195;
14814   t5197 = t68 * t3675;
14815   t5198 = 0.76e2 / 0.19683e5 * t5197;
14816   t5199 = 0.55e2 / 0.729e3 * t5167 - t5196 + t5198;
14817   t5201 = t1735 * t375;
14818   t5203 = t674 * t1090;
14819   t5213 = t681 * t1092;
14820   t5216 = t1764 * t387;
14821   t5219 = t681 * t1115;
14822   t5222 = t1102 * t89;
14823   t5225 = t378 * t382;
14824   t5226 = t5225 * t676;
14825   t5231 = t3707 * t676;
14826   t5234 = t1098 * t1751;
14827   t5239 = -t5196 + t5198;
14828   t5244 = t3707 * t36;
14829   t5245 = t378 * sigma[0];
14830   t5252 = t664 * t1102;
14831   t5255 = t345 * t1048;
14832   t5256 = t5255 * t41;
14833   t5259 = t39 * t1042;
14834   t5260 = t5259 * sigma[0];
14835   t5265 = 0.2e1 * t5222 * t676 + 0.40e2 / 0.27e2 * t5226 * t334 + 0.4e1 * t1745 * t1751 + 0.100e3 / 0.243e3 * t5231 * t1082 + 0.40e2 / 0.27e2 * t5234 * t334 - 0.220e3 / 0.81e2 * t1748 * t1038 + 0.2e1 * t377 * t5239 - 0.5e1 / 0.18e2 * t3703 * t654 - 0.25e2 / 0.81e2 * t5244 * t1758 * t5245 + 0.40e2 / 0.27e2 * t1754 * t1725 * t378 - 0.5e1 / 0.18e2 * t1754 * t5252 - 0.250e3 / 0.729e3 * t3721 * t5256 + 0.25e2 / 0.36e2 * t1108 * t5260 - 0.110e3 / 0.81e2 * t383 * t5167;
14836   t5268 = t5199 * t93 - t5201 * t387 + 0.3e1 / 0.4e1 * t5203 * t1092 - t1737 * t1115 / 0.2e1 - t3683 * t681 / 0.2e1 + 0.3e1 / 0.2e1 * t3686 * t1742 - t1086 * t1764 - 0.15e2 / 0.8e1 * t3694 * t5213 + 0.3e1 / 0.2e1 * t1091 * t5216 + 0.3e1 / 0.4e1 * t1091 * t5219 - t376 * t5265 / 0.2e1 - t5192;
14837   t5276 = t3814 * t697;
14838   t5280 = t1177 * t1835;
14839   t5284 = t697 * t1151;
14840   t5285 = t5284 * t3863;
14841   t5288 = t5284 * t3841;
14842   t5291 = t1777 * t100;
14843   t5294 = t1790 * t411;
14844   t5295 = t3856 * t5294;
14845   t5298 = t1790 * t402;
14846   t5299 = t3840 * t5298;
14847   t5302 = t3001 * t402;
14848   t5303 = t3862 * t5302;
14849   t5306 = t3862 * t5298;
14850   t5309 = t698 * t404;
14851   t5312 = t1771 * t398;
14852   t5313 = t111 * t390;
14853   t5314 = t5313 * t404;
14854   t5317 = t390 * t100;
14855   t5318 = t1780 * t5317;
14856   t5319 = t397 * t111;
14857   t5320 = t5319 * t404;
14858   t5326 = t697 * t1164 * t3841;
14859   t5329 = t690 * t3772;
14860   t5334 = -0.734005159174078464e0 * t107 * t5276 * t1178 + 0.650049912832e0 * t107 * t5280 * t411 + 0.15762619094478157328e0 * t3793 * t5285 - 0.21252129031945914941e0 * t1158 * t5288 - 0.238156450669527040e0 * t5291 * t1144 - 0.10979019874935515226e0 * t1136 * t5295 - 0.85008516127783659765e0 * t1136 * t5299 - 0.56263723100594113894e0 * t3861 * t5303 + 0.75858199451789026628e0 * t1136 * t5306 - 0.10979019874935515226e0 * t1136 * t5309 - 0.85008516127783659765e0 * t5312 * t5314 + 0.19594476351194912734e0 * t5318 * t5320 - 0.10979019874935515226e0 * t1784 * t3858 + 0.238156450669527040e0 * t1158 * t5326 + 0.14983660725163427627e0 * t3771 * t5329 - 0.922000629760e0 * t1772 * t3768;
14861   t5335 = t1123 * t1767;
14862   t5336 = t5335 * t100;
14863   t5339 = t3874 * t684;
14864   t5340 = t5339 * t1124;
14865   t5343 = t1132 * t1767;
14866   t5344 = t5343 * t390;
14867   t5347 = t1164 * t1806;
14868   t5348 = t5347 * t1138;
14869   t5351 = t1794 * t3888;
14870   t5354 = t3757 * t689;
14871   t5355 = t3759 * t1152;
14872   t5356 = t5354 * t5355;
14873   t5359 = t5354 * t3863;
14874   t5362 = t1807 * t1159;
14875   t5367 = t1794 * t3841;
14876   t5374 = t3879 * t684;
14877   t5375 = t5374 * t1124;
14878   t5382 = t398 * t1821;
14879   t5385 = -0.1844001259520e1 * t5336 * t1774 - 0.12751277419167548965e1 * t5340 * t112 + 0.42504258063891829882e0 * t5344 * t112 - 0.1844001259520e1 * t399 * t5348 - 0.61023519165317445059e0 * t1149 * t5351 + 0.18968792869915364414e1 * t3755 * t5356 - 0.32672968537417605163e1 * t1149 * t5359 - 0.238156450669527040e0 * t1158 * t5362 - 0.119078225334763520e0 * t1787 * t3747 + 0.2766001889280e1 * t399 * t5367 - 0.119078225334763520e0 * t3819 * t1814 + 0.238156450669527040e0 * t3783 * t1814 + 0.97972381755974563669e-1 * t5375 * t112 - 0.42504258063891829882e0 * t3837 * t1791 - 0.42504258063891829882e0 * t1784 * t3842 + 0.29967321450326855254e0 * t5382 * t1160;
14880   t5387 = t407 * t1164;
14881   t5388 = t398 * t5387;
14882   t5389 = t411 * t402;
14883   t5390 = t1790 * t5389;
14884   t5393 = t407 * t1151;
14885   t5394 = t398 * t5393;
14886   t5399 = t686 * t1148;
14887   t5406 = t690 * t3786;
14888   t5409 = t1151 * t1806;
14889   t5410 = t5409 * t1795;
14890   t5413 = t5409 * t1138;
14891   t5416 = t1794 * t3833;
14892   t5419 = t1802 * t3833;
14893   t5422 = t3741 * t689;
14894   t5423 = t5422 * t3841;
14895   t5426 = -t5268;
14896   t5427 = t401 * t5426;
14897   t5428 = t5427 * t104;
14898   t5431 = t1780 * t1118;
14899   t5434 = t1143 * t1835;
14900   t5440 = 0.476312901339054080e0 * t5388 * t5390 - 0.42504258063891829882e0 * t5394 * t5390 + 0.21252129031945914941e0 * t1784 * t3834 - 0.28131861550297056947e0 * t5399 * t3864 + 0.37929099725894513314e0 * t1784 * t3867 + 0.21252129031945914941e0 * t3827 * t1791 - 0.119078225334763520e0 * t1158 * t5406 - 0.12204703833063489012e1 * t1149 * t5410 + 0.1645512963945267200e1 * t399 * t5413 + 0.822756481972633600e0 * t399 * t5416 - 0.922000629760e0 * t399 * t5419 - 0.4936538891835801600e1 * t399 * t5423 + 0.461000314880e0 * t399 * t5428 + 0.21252129031945914941e0 * t5431 * t112 - 0.238156450669527040e0 * t1142 * t5434 + 0.325024956416e0 * t107 * t1821 * t1191;
14901   t5441 = t1780 * t100;
14902   t5442 = t1773 * t1124;
14903   t5445 = t109 * t1124;
14904   t5454 = t393 * t5268;
14905   t5470 = t5354 * t3841;
14906   t5472 = 0.10708320e2 * t1780 * t5445 - 0.7138880e1 * t5335 * t1825 - 0.19111352870400e2 * t5339 * t5445 - 0.3569440e1 * t1771 * t3897 + 0.1784720e1 * t5454 * t109 + 0.6370450956800e1 * t5343 * t1825 + 0.3185225478400e1 * t1780 * t3897 + 0.5684735615810048000e1 * t5374 * t5445 + 0.10708320e2 * t5367 - 0.7138880e1 * t5348 - 0.19111352870400e2 * t5423 - 0.3569440e1 * t5419 + 0.1784720e1 * t5428 + 0.6370450956800e1 * t5413 + 0.3185225478400e1 * t5416 + 0.5684735615810048000e1 * t5470;
14907   t5476 = t5422 * t3863;
14908   t5485 = t1835 * t401;
14909   t5486 = t5485 * t1138;
14910   t5489 = t1817 * t3833;
14911   t5494 = t697 * t411;
14912   t5495 = t3802 * t5494;
14913   t5498 = t1806 * t104;
14914   t5499 = t1137 * t5498;
14915   t5504 = t1148 * t5393;
14916   t5508 = t1777 * t398;
14917   t5513 = t390 * t411;
14918   t5514 = t1143 * t5513;
14919   t5517 = 0.2766001889280e1 * t5441 * t5442 - 0.258304e0 * t107 * t407 * t5472 + 0.36614111499190467036e1 * t1149 * t5476 - 0.54895099374677576130e-1 * t3750 * t1814 + 0.14983660725163427627e0 * t1787 * t3803 + 0.461000314880e0 * t5454 * t112 - 0.238156450669527040e0 * t1158 * t5486 - 0.119078225334763520e0 * t1158 * t5489 + 0.14683899485061986386e1 * t399 * t5470 + 0.29967321450326855254e0 * t1142 * t5495 + 0.42504258063891829882e0 * t1136 * t5499 + 0.97972381755974563669e-1 * t3830 * t1791 + 0.31525238188956314657e0 * t5504 * t3001 * t5389 + 0.42504258063891829882e0 * t5508 * t1139 - 0.10979019874935515226e0 * t1781 * t413 + 0.476312901339054080e0 * t1772 * t5514;
14920   t5520 = my_piecewise3(t97, 0, t5334 + t5385 + t5440 + t5517);
14921   t5521 = my_piecewise3(t96, 0, t5520);
14922   t5527 = 0.3e1 / 0.10e2 * t60 * (t1118 * t703 + t5268 * t114 + t684 * t1197 + 0.2e1 * t1767 * t417 + 0.2e1 * t390 * t1841 + t95 * t5521 + t5192) - 0.11e2 / 0.9e1 * t1036;
14923   t5528 = t56 * t5527;
14924   t5531 = t1848 * t36;
14925   t5534 = t345 * t1207;
14926   t5535 = t5534 * t128;
14927   t5538 = t1203 * t128;
14928   t5539 = t1210 * t5538;
14929   t5542 = t710 * t345;
14930   t5544 = t126 * t1207 * t128;
14931   t5550 = t1218 * t1847;
14932   t5553 = t68 * t5538;
14933   t5556 = t3949 * t709;
14934   t5559 = 0.77e2 / 0.14580e5 * t57 * t5111 - t5528 * t425 / 0.180e3 - t5531 * t1853 / 0.54e2 + 0.5e1 / 0.162e3 * t710 * t5535 - t1851 * t5539 / 0.108e3 - 0.5e1 / 0.81e2 * t5542 * t5544 + t428 * t5527 * t425 / 0.180e3 + t5550 * t1860 / 0.162e3 + t1859 * t5553 / 0.324e3 + 0.5e1 / 0.486e3 * t5556 * t5535;
14935   t5562 = 0.110e3 / 0.2187e4 * t5167 + 0.19e2 / 0.162e3 * t40 * t3675 * t52 - 0.167e3 / 0.320e3 * t346 * t5172 * t52 + 0.81e2 / 0.1024e4 * t1715 * t1062 - 0.729e3 / 0.256000e6 * t5178 * t5183 + 0.2e1 * t1223 * t716 + 0.4e1 * t432 * t1863 + 0.2e1 * t131 * t5559;
14936   t5563 = t5562 * t150;
14937   t5565 = t1866 * t456;
14938   t5568 = t719 * t1270;
14939   t5578 = params->c1 * t5527;
14940   t5581 = t1873 * t36;
14941   t5588 = t345 * t1265;
14942   t5589 = t140 * t5588;
14943   t5594 = t1239 * t1847;
14944   t5595 = t5594 * t423;
14945   t5601 = t443 * t5527;
14946   t5604 = -0.5e1 / 0.9e1 * t5578 * t142 - 0.100e3 / 0.81e2 * t5581 * t444 - 0.500e3 / 0.81e2 * t722 * t1241 - 0.50e2 / 0.81e2 * t1876 * t1244 - 0.2500e4 / 0.729e3 * t5589 * t709 * t1207 * t24 - 0.1000e4 / 0.243e3 * t1879 * t5595 - 0.500e3 / 0.243e3 * t1879 * t1880 * t1203 - 0.25e2 / 0.81e2 * t441 * t5601;
14947   t5609 = t728 * t1247;
14948   t5614 = t709 * t345;
14949   t5615 = t147 * t1207;
14950   t5616 = t5614 * t5615;
14951   t5619 = t449 * t5594;
14952   t5626 = t5527 * t19;
14953   t5627 = t5626 * t452;
14954   t5631 = t1263 * t1265 * t1847;
14955   t5639 = my_piecewise3(t139, t728 * t1249 * t145 + 0.2e1 * t1887 * t447 * t145 + t5604 * t145 + t5609 * t145, -0.500e3 / 0.81e2 * t3994 * t5616 - 0.100e3 / 0.81e2 * t5619 * t1894 - 0.500e3 / 0.81e2 * t4005 * t5616 - 0.50e2 / 0.81e2 * t1892 * t4000 - 0.5e1 / 0.9e1 * t450 * t5627 - 0.50e2 / 0.81e2 * t5631 * t1894 - 0.25e2 / 0.81e2 * t1902 * t4000 - 0.250e3 / 0.243e3 * t4020 * t5616);
14956   t5642 = 0.6e1 * t3619 * t720 * t1031 - 0.4e1 * t1030 * t5158 + 0.4e1 * t1030 * t1869 * t435 - 0.2e1 * t1030 * t720 * t1226 + t330 * t5563 - 0.2e1 * t330 * t5565 - t330 * t5568 + 0.2e1 * t1030 * t1031 * t734 - t330 * t1226 * t734 - 0.2e1 * t330 * t435 * t1906 - t138 * t5639 + 0.1174e1 * t5639;
14957   t5643 = t5642 * t167;
14958   t5645 = t8 * t18 * t5643;
14959   t5646 = 0.3e1 / 0.8e1 * t5645;
14960   t5648 = t8 * t1017 * t738;
14961   t5649 = t5648 / 0.12e2;
14962   t5651 = t475 * t743 * t4120;
14963   t5652 = t1001 * t5651;
14964   t5653 = 0.12369750000000000000e1 * t5652;
14965   t5654 = t4117 * t1919;
14966   t5655 = 0.24739500000000000000e1 * t5654;
14967   t5657 = t986 * t1696 * t988;
14968   t5658 = t5657 / 0.6e1;
14969   t5659 = t322 * t737;
14970   t5661 = t310 * t5659 * t317;
14971   t5662 = t5661 / 0.3e1;
14972   t5663 = t1915 * t1293;
14973   t5664 = 0.57725500000000000000e1 * t5663;
14974   t5665 = t999 * t737;
14975   t5666 = t469 * t5665;
14976   t5667 = t5666 * t1004;
14977   t5668 = 0.65972000000000000000e1 * t5667;
14978   t5669 = t153 * t2755;
14979   t5670 = 0.1e1 / t25;
14980   t5672 = t5670 * t473 * t166;
14981   t5673 = t5669 * t5672;
14982   t5674 = t1926 * t5673;
14983   t5675 = 0.12113307472923900000e3 * t5674;
14984   t5677 = t475 * t1933 * t1002;
14985   t5678 = t1001 * t5677;
14986   t5679 = 0.32986000000000000000e1 * t5678;
14987   t5681 = t475 * t743 * t3586;
14988   t5682 = t3585 * t5681;
14989   t5683 = 0.41232500000000000000e0 * t5682;
14990   t5684 = t3593 * t1919;
14991   t5685 = 0.82465000000000000000e0 * t5684;
14992   t5687 = t310 * t1696 * t1011;
14993   t5688 = t5687 / 0.2e1;
14994   t5689 = t17 * t1909;
14995   t5691 = t310 * t5689 * t317;
14996   t5692 = -t5144 + t5146 + t5151 - t5154 - t5646 + t5649 + t5653 + t5655 - t5658 - t5662 + t5664 - t5668 + t5675 - t5679 + t5683 + t5685 - t5688 - t5691;
14997   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14998     v3rho2sigma[0] = -t1698 - t5067 - 0.3e1 / 0.4e1 * t1912 - 0.49479000000000000000e1 * t1916 + 0.24739500000000000000e1 * t1920 + t5071 + 0.18554625000000000000e1 * t1924 + 0.22265550000000000000e2 * t1931 - 0.24739500000000000000e1 * t1936 - 0.60406209071787192650e2 * t1943 + t10 * (t5139 + t5692);
14999 
15000   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15001     v3rho2sigma[1] = 0.0e0;
15002 
15003   t5695 = t1952 / 0.4e1;
15004   t5697 = 0.61848750000000000000e0 * t1958;
15005   t5699 = t1308 * t1947 * t1310;
15006   t5700 = t5699 / 0.6e1;
15007   t5701 = t322 * t832;
15008   t5703 = t484 * t5701 * t487;
15009   t5704 = t5703 / 0.3e1;
15010   t5706 = t484 * t1947 * t1319;
15011   t5707 = t5706 / 0.2e1;
15012   t5709 = t8 * t1323 * t833;
15013   t5710 = t5709 / 0.12e2;
15014   t5712 = t644 * t838 * t4247;
15015   t5713 = t4246 * t5712;
15016   t5714 = 0.41232500000000000000e0 * t5713;
15017   t5715 = t4254 * t1955;
15018   t5716 = 0.82465000000000000000e0 * t5715;
15019   t5718 = t644 * t838 * t4286;
15020   t5719 = t1376 * t5718;
15021   t5720 = 0.12369750000000000000e1 * t5719;
15022   t5721 = t4225 * t840;
15023   t5722 = 0.20616250000000000000e0 * t5721;
15024   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15025     v3rho2sigma[2] = -t1949 - t5695 + 0.24739500000000000000e1 * t1956 + t5697 + t10 * (-t5700 - t5704 - t5707 + t5710 + t5714 + t5716 + t5720 - t5722);
15026 
15027   t5726 = t986 * t1696 * t1329;
15028   t5729 = t310 * t5659 * t499;
15029   t5732 = t310 * t5689 * t499;
15030   t5734 = t5666 * t1341;
15031   t5736 = t1345 * t737;
15032   t5738 = t310 * t5736 * t1347;
15033   t5743 = t156 * t742;
15034   t5744 = t159 * t166;
15035   t5745 = t5744 * t4281;
15036   t5746 = t5743 * t5745;
15037   t5747 = t4278 * t5746;
15038   t5749 = t3593 * t1966;
15039   t5751 = -t5726 / 0.6e1 - t5729 / 0.6e1 - t5732 / 0.2e1 - 0.32986000000000000000e1 * t5734 - t5738 / 0.2e1 - t5661 / 0.6e1 + t5649 - t5153 / 0.8e1 - 0.82465000000000000000e0 * t5124 + 0.41232500000000000000e0 * t5747 + 0.41232500000000000000e0 * t5749;
15040   t5752 = t4117 * t1966;
15041   t5755 = t1286 * t5134 * t498;
15042   t5756 = t1001 * t5755;
15043   t5759 = t475 * t1933 * t1339;
15044   t5760 = t1001 * t5759;
15045   t5762 = t5141 * t4228;
15046   t5763 = t4059 * t5762;
15047   t5766 = t475 * t743 * t4239;
15048   t5767 = t4238 * t5766;
15049   t5774 = 0.12369750000000000000e1 * t5752 + 0.14843700000000000000e2 * t5756 - 0.16493000000000000000e1 * t5760 - 0.40270806047858128434e2 * t5763 + 0.12369750000000000000e1 * t5767 + 0.41232500000000000000e0 * t5684 - t5119 + 0.30924375000000000000e0 * t5145 + 0.37109250000000000000e1 * t5087 - 0.41232500000000000000e0 * t5120 - 0.10067701511964532108e2 * t5089;
15050   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15051     v3rho2sigma[3] = -t1699 - t5067 - t1913 - t1917 + t1921 + t5071 + t1925 + t1932 - t1937 - t1944 - t1964 + t1968 + t10 * (t5751 + t5774);
15052 
15053   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15054     v3rho2sigma[4] = 0.0e0;
15055 
15056   t5778 = t1308 * t1947 * t1354;
15057   t5781 = t484 * t5701 * t504;
15058   t5783 = t1345 * t832;
15059   t5785 = t484 * t5783 * t1362;
15060   t5788 = t17 * t2180;
15061   t5790 = t484 * t5788 * t487;
15062   t5793 = t8 * t491 * t2181;
15063   t5795 = t1374 * t832;
15064   t5796 = t469 * t5795;
15065   t5797 = t5796 * t1379;
15066   t5800 = t469 * t491 * t832;
15067   t5801 = t5800 * t649;
15068   t5803 = t156 * t837;
15069   t5804 = t294 * t301;
15070   t5805 = t5804 * t4360;
15071   t5806 = t5803 * t5805;
15072   t5807 = t4357 * t5806;
15073   t5809 = t4254 * t2190;
15074   t5811 = -t5778 / 0.6e1 - t5781 / 0.6e1 + t5785 / 0.2e1 - t5703 / 0.6e1 + t5710 - t5790 / 0.2e1 - t5793 / 0.8e1 - 0.32986000000000000000e1 * t5797 - 0.82465000000000000000e0 * t5801 + 0.41232500000000000000e0 * t5807 + 0.41232500000000000000e0 * t5809;
15075   t5813 = t644 * t838 * t4470;
15076   t5814 = t4469 * t5813;
15077   t5817 = t4476 * t1955;
15078   t5819 = t4411 * t840;
15079   t5821 = t512 * t301;
15080   t5823 = t1675 * t5821 * t486;
15081   t5824 = t1376 * t5823;
15082   t5826 = t468 * t4351;
15083   t5827 = t5826 * t2199;
15084   t5830 = t644 * t2202 * t1377;
15085   t5831 = t1376 * t5830;
15086   t5833 = t1383 * t2204;
15087   t5836 = t2208 * t177 * t19;
15088   t5837 = t5836 * t4418;
15089   t5838 = t4414 * t5837;
15090   t5840 = t4352 * t2211;
15091   t5842 = -0.12369750000000000000e1 * t5814 + 0.41232500000000000000e0 * t5715 - t5722 + 0.12369750000000000000e1 * t5817 + 0.30924375000000000000e0 * t5819 + 0.14843700000000000000e2 * t5824 + 0.37109250000000000000e1 * t5827 - 0.16493000000000000000e1 * t5831 - 0.41232500000000000000e0 * t5833 - 0.40270806047858128433e2 * t5838 - 0.10067701511964532108e2 * t5840;
15092   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15093     v3rho2sigma[5] = -t1950 - t5695 + t1957 + t5697 - t1973 - t2184 - t2188 + t2192 + t2194 + t2201 - t2206 - t2213 + t10 * (t5811 + t5842);
15094 
15095   t5847 = t986 * t1696 * t1391;
15096   t5848 = t5847 / 0.6e1;
15097   t5849 = t5729 / 0.3e1;
15098   t5851 = t310 * t1696 * t1397;
15099   t5852 = t5851 / 0.2e1;
15100   t5854 = t475 * t743 * t4479;
15101   t5855 = t3585 * t5854;
15102   t5856 = 0.41232500000000000000e0 * t5855;
15103   t5857 = 0.82465000000000000000e0 * t5749;
15104   t5859 = t475 * t743 * t4484;
15105   t5860 = t1001 * t5859;
15106   t5861 = 0.12369750000000000000e1 * t5860;
15107   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15108     v3rho2sigma[6] = -t1963 - t5067 + 0.24739500000000000000e1 * t1967 + t5071 + t10 * (-t5848 - t5849 - t5852 + t5649 + t5856 + t5857 + t5861 - t5119);
15109 
15110   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15111     v3rho2sigma[7] = 0.0e0;
15112 
15113   t5871 = 0.74218500000000000000e1 * t5827;
15114   t5872 = 0.20135403023929064216e2 * t5840;
15115   t5873 = 0.16493000000000000000e1 * t5801;
15116   t5874 = 0.61848750000000000000e0 * t5819;
15117   t5875 = 0.82465000000000000000e0 * t5833;
15118   t5876 = t23 * t1429;
15119   t5877 = t5876 * t301;
15120   t5878 = t2197 * t5877;
15121   t5879 = t2195 * t5878;
15122   t5880 = 0.55663875000000000000e2 * t5879;
15123   t5882 = t634 * t1673 * t19;
15124   t5883 = t5882 * t2198;
15125   t5884 = t2195 * t5883;
15126   t5885 = 0.22265550000000000000e2 * t5884;
15127   t5886 = t634 * t2208;
15128   t5888 = t5886 * t177 * t1690;
15129   t5889 = t1686 * t5888;
15130   t5890 = 0.60406209071787192650e2 * t5889;
15131   t5891 = 0.1e1 / t516;
15132   t5893 = t5891 * t301 * t292;
15133   t5894 = t4521 * t5893;
15134   t5895 = t2195 * t5894;
15135   t5896 = 0.22265550000000000000e3 * t5895;
15136   t5897 = t2208 * t1688;
15137   t5898 = t5897 * t301;
15138   t5899 = t4529 * t5898;
15139   t5900 = t1686 * t5899;
15140   t5901 = 0.62012907040371922630e0 * t5900;
15141   t5903 = t2209 * t1688 * t1690;
15142   t5904 = t1686 * t5903;
15143   t5905 = 0.30203104535893596326e2 * t5904;
15144   t5906 = t832 * t837;
15145   t5908 = t5906 * t1688 * t1690;
15146   t5909 = t1686 * t5908;
15147   t5910 = 0.80541612095716256868e2 * t5909;
15148   t5911 = t5836 * t5028;
15149   t5912 = t4414 * t5911;
15150   t5913 = 0.80541612095716256867e2 * t5912;
15151   t5914 = t1668 * t2204;
15152   t5915 = 0.24739500000000000000e1 * t5914;
15153   t5916 = t5022 * t840;
15154   t5917 = 0.92773125000000000000e0 * t5916;
15155   t5919 = t469 * t175 * t2180;
15156   t5920 = t5919 * t649;
15157   t5921 = 0.49479000000000000000e1 * t5920;
15158   t5922 = t2186 * t1677;
15159   t5923 = 0.29687400000000000000e2 * t5922;
15160   t5924 = t5871 - t5872 - t5873 + t5874 - t5875 - t5880 + t5885 - t5890 + t5896 - t5901 + t5905 + t5910 - t5913 - t5915 + t5917 - t5921 - t5923;
15161   t5926 = t1675 * t5821 * t503;
15162   t5927 = t1376 * t5926;
15163   t5928 = 0.29687400000000000000e2 * t5927;
15164   t5932 = t2138 * t611;
15165   t5941 = t24 * t1429;
15166   t5946 = t184 * t1441;
15167   t5952 = t3651 * t1446;
15168   t5957 = 0.1e1 / t177 / t524 / t1433 * t36 * t4606;
15169   t5966 = 0.55e2 / 0.81e2 * t5941;
15170   t5969 = t68 * t518 * lapl[1];
15171   t5970 = 0.13e2 / 0.2916e4 * t5969;
15172   t5971 = t68 * t4623;
15173   t5972 = 0.76e2 / 0.19683e5 * t5971;
15174   t5973 = 0.55e2 / 0.729e3 * t5941 - t5970 + t5972;
15175   t5975 = t2006 * t551;
15176   t5977 = t769 * t1481;
15177   t5987 = t776 * t1483;
15178   t5990 = t2035 * t563;
15179   t5993 = t776 * t1506;
15180   t5996 = t1493 * t227;
15181   t5999 = t554 * t558;
15182   t6000 = t5999 * t771;
15183   t6005 = t4655 * t771;
15184   t6008 = t1489 * t2022;
15185   t6013 = -t5970 + t5972;
15186   t6018 = t4655 * t36;
15187   t6019 = t554 * sigma[2];
15188   t6026 = t759 * t1493;
15189   t6029 = t345 * t1441;
15190   t6030 = t6029 * t184;
15191   t6033 = t39 * t1435;
15192   t6034 = t6033 * sigma[2];
15193   t6039 = 0.2e1 * t5996 * t771 + 0.40e2 / 0.27e2 * t6000 * t514 + 0.4e1 * t2016 * t2022 + 0.100e3 / 0.243e3 * t6005 * t1473 + 0.40e2 / 0.27e2 * t6008 * t514 - 0.220e3 / 0.81e2 * t2019 * t1431 + 0.2e1 * t553 * t6013 - 0.5e1 / 0.18e2 * t4651 * t749 - 0.25e2 / 0.81e2 * t6018 * t2029 * t6019 + 0.40e2 / 0.27e2 * t2025 * t1996 * t554 - 0.5e1 / 0.18e2 * t2025 * t6026 - 0.250e3 / 0.729e3 * t4669 * t6030 + 0.25e2 / 0.36e2 * t1499 * t6034 - 0.110e3 / 0.81e2 * t559 * t5941;
15194   t6042 = t5973 * t231 - t5975 * t563 + 0.3e1 / 0.4e1 * t5977 * t1483 - t2008 * t1506 / 0.2e1 - t4631 * t776 / 0.2e1 + 0.3e1 / 0.2e1 * t4634 * t2013 - t1477 * t2035 - 0.15e2 / 0.8e1 * t4642 * t5987 + 0.3e1 / 0.2e1 * t1482 * t5990 + 0.3e1 / 0.4e1 * t1482 * t5993 - t552 * t6039 / 0.2e1 - t5966;
15195   t6050 = t1568 * t2106;
15196   t6056 = t2051 * t238;
15197   t6057 = t2044 * t1515;
15198   t6060 = t2048 * t238;
15199   t6065 = t4688 * t792;
15200   t6069 = t4735 * t779;
15201   t6070 = t6069 * t1515;
15202   t6075 = t1523 * t2038;
15203   t6076 = t6075 * t566;
15204   t6081 = t2051 * t1509;
15205   t6086 = t1534 * t2106;
15206   t6089 = t566 * t238;
15207   t6090 = t2051 * t6089;
15208   t6091 = t573 * t249;
15209   t6092 = t6091 * t580;
15210   t6095 = t793 * t580;
15211   t6100 = 0.650049912832e0 * t245 * t6050 * t587 - 0.54895099374677576130e-1 * t4820 * t2085 + 0.2766001889280e1 * t6056 * t6057 - 0.238156450669527040e0 * t6060 * t1535 - 0.119078225334763520e0 * t2058 * t4715 - 0.734005159174078464e0 * t245 * t6065 * t1569 + 0.97972381755974563669e-1 * t6070 * t250 - 0.922000629760e0 * t2043 * t4728 + 0.42504258063891829882e0 * t6076 * t250 + 0.14983660725163427627e0 * t2058 * t4719 + 0.21252129031945914941e0 * t6081 * t250 + 0.238156450669527040e0 * t4770 * t2085 - 0.238156450669527040e0 * t1533 * t6086 + 0.19594476351194912734e0 * t6090 * t6092 - 0.10979019874935515226e0 * t1527 * t6095 - 0.10979019874935515226e0 * t2055 * t4850;
15212   t6101 = t2061 * t587;
15213   t6102 = t4848 * t6101;
15214   t6105 = t2061 * t578;
15215   t6106 = t4755 * t6105;
15216   t6109 = t3153 * t578;
15217   t6110 = t4785 * t6109;
15218   t6113 = t4785 * t6105;
15219   t6116 = t2042 * t574;
15220   t6117 = t249 * t566;
15221   t6118 = t6117 * t580;
15222   t6123 = t1514 * t2038;
15223   t6124 = t6123 * t238;
15224   t6127 = t2106 * t577;
15225   t6128 = t6127 * t1529;
15226   t6131 = t247 * t1515;
15227   t6136 = t4741 * t779;
15228   t6141 = t569 * t6042;
15229   t6150 = t2065 * t4756;
15230   t6152 = t1555 * t2077;
15231   t6153 = t6152 * t1529;
15232   t6155 = t4761 * t784;
15233   t6156 = t6155 * t4756;
15234   t6158 = t2073 * t4780;
15235   t6160 = -t6042;
15236   t6161 = t577 * t6160;
15237   t6162 = t6161 * t242;
15238   t6164 = t1542 * t2077;
15239   t6165 = t6164 * t1529;
15240   t6167 = t2065 * t4780;
15241   t6169 = t4699 * t784;
15242   t6170 = t6169 * t4756;
15243   t6172 = 0.10708320e2 * t2051 * t6131 - 0.7138880e1 * t6123 * t2096 - 0.19111352870400e2 * t6136 * t6131 - 0.3569440e1 * t2042 * t4795 + 0.1784720e1 * t6141 * t247 + 0.6370450956800e1 * t6075 * t2096 + 0.3185225478400e1 * t2051 * t4795 + 0.5684735615810048000e1 * t6069 * t6131 + 0.10708320e2 * t6150 - 0.7138880e1 * t6153 - 0.19111352870400e2 * t6156 - 0.3569440e1 * t6158 + 0.1784720e1 * t6162 + 0.6370450956800e1 * t6165 + 0.3185225478400e1 * t6167 + 0.5684735615810048000e1 * t6170;
15244   t6178 = t566 * t587;
15245   t6179 = t1534 * t6178;
15246   t6184 = t6155 * t4786;
15247   t6187 = t785 * t4824;
15248   t6191 = t792 * t1555 * t4756;
15249   t6194 = t574 * t2092;
15250   t6197 = -0.10979019874935515226e0 * t1527 * t6102 - 0.85008516127783659765e0 * t1527 * t6106 - 0.56263723100594113894e0 * t4784 * t6110 + 0.75858199451789026628e0 * t1527 * t6113 - 0.85008516127783659765e0 * t6116 * t6118 - 0.119078225334763520e0 * t4863 * t2085 - 0.1844001259520e1 * t6124 * t2045 - 0.238156450669527040e0 * t1549 * t6128 - 0.258304e0 * t245 * t583 * t6172 - 0.10979019874935515226e0 * t2052 * t589 + 0.476312901339054080e0 * t2043 * t6179 + 0.2766001889280e1 * t575 * t6150 + 0.36614111499190467036e1 * t1540 * t6184 + 0.14983660725163427627e0 * t4823 * t6187 + 0.238156450669527040e0 * t1549 * t6191 + 0.29967321450326855254e0 * t6194 * t1551;
15251   t6203 = t785 * t4853;
15252   t6206 = t6164 * t2066;
15253   t6212 = t2065 * t4844;
15254   t6215 = t583 * t1555;
15255   t6216 = t574 * t6215;
15256   t6217 = t587 * t578;
15257   t6218 = t2061 * t6217;
15258   t6221 = t583 * t1542;
15259   t6222 = t574 * t6221;
15260   t6225 = t781 * t1539;
15261   t6232 = t2077 * t242;
15262   t6233 = t1528 * t6232;
15263   t6238 = t1539 * t6221;
15264   t6242 = t2048 * t574;
15265   t6247 = -0.42504258063891829882e0 * t2055 * t4757 - 0.42504258063891829882e0 * t4752 * t2062 - 0.119078225334763520e0 * t1549 * t6203 - 0.12204703833063489012e1 * t1540 * t6206 + 0.325024956416e0 * t245 * t2092 * t1582 - 0.61023519165317445059e0 * t1540 * t6212 + 0.476312901339054080e0 * t6216 * t6218 - 0.42504258063891829882e0 * t6222 * t6218 - 0.28131861550297056947e0 * t6225 * t4787 + 0.37929099725894513314e0 * t2055 * t4790 + 0.21252129031945914941e0 * t4774 * t2062 + 0.42504258063891829882e0 * t1527 * t6233 + 0.97972381755974563669e-1 * t4777 * t2062 + 0.31525238188956314657e0 * t6238 * t3153 * t6217 + 0.42504258063891829882e0 * t6242 * t1530 + 0.21252129031945914941e0 * t2055 * t4781;
15266   t6256 = t4708 * t1543;
15267   t6257 = t6169 * t6256;
15268   t6260 = t6169 * t4786;
15269   t6263 = t2078 * t1550;
15270   t6270 = t2088 * t4780;
15271   t6273 = t792 * t1542;
15272   t6274 = t6273 * t4786;
15273   t6277 = t6273 * t4756;
15274   t6282 = t792 * t587;
15275   t6283 = t4718 * t6282;
15276   t6288 = t6136 * t1515;
15277   t6291 = 0.822756481972633600e0 * t575 * t6167 - 0.1844001259520e1 * t575 * t6153 - 0.922000629760e0 * t575 * t6158 - 0.4936538891835801600e1 * t575 * t6156 + 0.18968792869915364414e1 * t4707 * t6257 - 0.32672968537417605163e1 * t1540 * t6260 - 0.238156450669527040e0 * t1549 * t6263 + 0.461000314880e0 * t575 * t6162 + 0.461000314880e0 * t6141 * t250 - 0.119078225334763520e0 * t1549 * t6270 + 0.15762619094478157328e0 * t4838 * t6274 - 0.21252129031945914941e0 * t1549 * t6277 + 0.14683899485061986386e1 * t575 * t6170 + 0.29967321450326855254e0 * t1533 * t6283 + 0.1645512963945267200e1 * t575 * t6165 - 0.12751277419167548965e1 * t6288 * t250;
15278   t6294 = my_piecewise3(t235, 0, t6100 + t6197 + t6247 + t6291);
15279   t6295 = my_piecewise3(t234, 0, t6294);
15280   t6301 = 0.3e1 / 0.10e2 * t60 * (t1509 * t798 + t779 * t1588 + 0.2e1 * t2038 * t593 + 0.2e1 * t566 * t2112 + t233 * t6295 + t6042 * t252 + t5966) - 0.11e2 / 0.9e1 * t1429;
15281   t6302 = t56 * t6301;
15282   t6305 = t2119 * t36;
15283   t6308 = t345 * t1598;
15284   t6309 = t6308 * t266;
15285   t6312 = t1594 * t266;
15286   t6313 = t1601 * t6312;
15287   t6316 = t805 * t345;
15288   t6318 = t264 * t1598 * t266;
15289   t6324 = t1609 * t2118;
15290   t6327 = t68 * t6312;
15291   t6330 = t4897 * t804;
15292   t6333 = 0.77e2 / 0.14580e5 * t57 * t5876 - t6302 * t601 / 0.180e3 - t6305 * t2124 / 0.54e2 + 0.5e1 / 0.162e3 * t805 * t6309 - t2122 * t6313 / 0.108e3 - 0.5e1 / 0.81e2 * t6316 * t6318 + t604 * t6301 * t601 / 0.180e3 + t6324 * t2131 / 0.162e3 + t2130 * t6327 / 0.324e3 + 0.5e1 / 0.486e3 * t6330 * t6309;
15293   t6336 = 0.110e3 / 0.2187e4 * t5941 + 0.19e2 / 0.162e3 * t40 * t4623 * t194 - 0.167e3 / 0.320e3 * t346 * t5946 * t194 + 0.81e2 / 0.1024e4 * t1986 * t1453 - 0.729e3 / 0.256000e6 * t5952 * t5957 + 0.2e1 * t1614 * t811 + 0.4e1 * t608 * t2134 + 0.2e1 * t269 * t6333;
15294   t6337 = t6336 * t288;
15295   t6339 = t2137 * t631;
15296   t6342 = t814 * t1659;
15297   t6352 = params->c1 * t6301;
15298   t6355 = t2144 * t36;
15299   t6362 = t345 * t1654;
15300   t6363 = t278 * t6362;
15301   t6368 = t1630 * t2118;
15302   t6369 = t6368 * t599;
15303   t6375 = t619 * t6301;
15304   t6378 = -0.5e1 / 0.9e1 * t6352 * t280 - 0.100e3 / 0.81e2 * t6355 * t620 - 0.500e3 / 0.81e2 * t817 * t1632 - 0.50e2 / 0.81e2 * t2147 * t1635 - 0.2500e4 / 0.729e3 * t6363 * t804 * t1598 * t24 - 0.1000e4 / 0.243e3 * t2150 * t6369 - 0.500e3 / 0.243e3 * t2150 * t2151 * t1594 - 0.25e2 / 0.81e2 * t617 * t6375;
15305   t6383 = t823 * t1638;
15306   t6388 = t804 * t345;
15307   t6389 = t285 * t1598;
15308   t6390 = t6388 * t6389;
15309   t6393 = t449 * t6368;
15310   t6400 = t6301 * t19;
15311   t6401 = t6400 * t627;
15312   t6405 = t1263 * t1654 * t2118;
15313   t6413 = my_piecewise3(t277, t823 * t1640 * t283 + 0.2e1 * t2158 * t623 * t283 + t6378 * t283 + t6383 * t283, -0.500e3 / 0.81e2 * t4942 * t6390 - 0.100e3 / 0.81e2 * t6393 * t2165 - 0.500e3 / 0.81e2 * t4953 * t6390 - 0.50e2 / 0.81e2 * t2163 * t4948 - 0.5e1 / 0.9e1 * t625 * t6401 - 0.50e2 / 0.81e2 * t6405 * t2165 - 0.25e2 / 0.81e2 * t2173 * t4948 - 0.250e3 / 0.243e3 * t4966 * t6390);
15314   t6416 = 0.6e1 * t4566 * t815 * t1424 - 0.4e1 * t1423 * t5932 + 0.4e1 * t1423 * t2140 * t611 - 0.2e1 * t1423 * t815 * t1617 + t510 * t6337 - 0.2e1 * t510 * t6339 - t510 * t6342 + 0.2e1 * t1423 * t1424 * t829 - t510 * t1617 * t829 - 0.2e1 * t510 * t611 * t2177 - t276 * t6413 + 0.1174e1 * t6413;
15315   t6417 = t6416 * t302;
15316   t6419 = t8 * t175 * t6417;
15317   t6420 = 0.3e1 / 0.8e1 * t6419;
15318   t6421 = t5781 / 0.3e1;
15319   t6423 = t1308 * t1947 * t1402;
15320   t6424 = t6423 / 0.6e1;
15321   t6426 = t484 * t1947 * t1415;
15322   t6427 = t6426 / 0.2e1;
15323   t6429 = t484 * t5788 * t504;
15324   t6431 = t644 * t2202 * t1409;
15325   t6432 = t1376 * t6431;
15326   t6433 = 0.32986000000000000000e1 * t6432;
15327   t6435 = t644 * t838 * t4539;
15328   t6436 = t4246 * t6435;
15329   t6437 = 0.41232500000000000000e0 * t6436;
15330   t6438 = t4476 * t2190;
15331   t6439 = 0.24739500000000000000e1 * t6438;
15332   t6441 = t644 * t838 * t4546;
15333   t6442 = t1376 * t6441;
15334   t6443 = 0.12369750000000000000e1 * t6442;
15335   t6444 = t5796 * t1411;
15336   t6445 = 0.65972000000000000000e1 * t6444;
15337   t6446 = 0.82465000000000000000e0 * t5809;
15338   t6447 = t2186 * t1682;
15339   t6448 = 0.57725500000000000000e1 * t6447;
15340   t6449 = t837 * t210;
15341   t6451 = t644 * t6449 * t301;
15342   t6452 = t640 * t6451;
15343   t6453 = 0.28862750000000000000e1 * t6452;
15344   t6454 = t291 * t2935;
15345   t6455 = 0.1e1 / t176;
15346   t6457 = t6455 * t642 * t301;
15347   t6458 = t6454 * t6457;
15348   t6459 = t2195 * t6458;
15349   t6460 = 0.12113307472923900000e3 * t6459;
15350   t6461 = t5793 / 0.4e1;
15351   t6462 = t5928 - t6420 + t5710 - t6421 - t6424 - t6427 - t6429 - t6433 + t6437 - t5722 + t6439 + t6443 - t6445 + t6446 + t6448 + t6453 + t6460 - t6461;
15352   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15353     v3rho2sigma[8] = -t1972 - t5695 - 0.3e1 / 0.4e1 * t2183 - 0.49479000000000000000e1 * t2187 + 0.24739500000000000000e1 * t2191 + t5697 + 0.18554625000000000000e1 * t2193 + 0.22265550000000000000e2 * t2200 - 0.24739500000000000000e1 * t2205 - 0.60406209071787192650e2 * t2212 + t10 * (t5924 + t6462);
15354 
15355   t6465 = t17 * t908;
15356   t6467 = t310 * t6465 * t317;
15357   t6471 = t8 * t323 * t909 / 0.6e1;
15358   t6473 = t8 * t18 * t2394;
15359   t6475 = t469 * t18 * t908;
15360   t6476 = t6475 * t480;
15361   t6478 = t984 * t908;
15362   t6482 = t15 * t2393;
15363   t6485 = t309 * t908;
15364   t6486 = t2399 * t6485;
15365   t6492 = t3619 * t131;
15366   t6493 = t2226 * t1031;
15367   t6496 = t1030 * t432;
15368   t6499 = t2345 * t150;
15369   t6500 = t6499 * t435;
15370   t6503 = t887 * t456;
15371   t6504 = t6503 * t435;
15372   t6507 = t2226 * t1226;
15373   t6510 = t1223 * t887;
15374   t6514 = t432 * t2345;
15375   t6521 = t2237 * t375;
15376   t6525 = t1086 * t1098;
15377   t6528 = t376 * t5225;
15378   t6531 = t2255 * t19;
15379   t6532 = t6531 * t355;
15380   t6535 = t376 * t3707;
15381   t6536 = t857 * t36;
15382   t6537 = t6536 * t1110;
15383   t6540 = t2244 * t1115;
15384   t6543 = t3686 * t85;
15385   t6546 = t1091 * t378;
15386   t6549 = t89 * t2255;
15387   t6550 = t6549 * t387;
15388   t6554 = t3694 * t85;
15389   t6555 = t2244 * t1092;
15390   t6558 = t5222 * t857;
15391   t6560 = t1745 * t2255;
15392   t6563 = 0.65e2 / 0.13122e5 * t1731;
15393   t6564 = 0.13e2 / 0.2916e4 * t1733;
15394   t6565 = t6563 - t6564;
15395   t6566 = t377 * t6565;
15396   t6573 = t855 * t1090;
15397   t6577 = 0.100e3 / 0.243e3 * t1706 + t6563 - t6564;
15398   t6579 = t1098 * t857;
15399   t6580 = t1091 * t6579;
15400   t6581 = t387 * t19;
15401   t6582 = t6581 * t355;
15402   t6585 = t2251 * t1067;
15403   t6588 = -0.15e2 / 0.4e1 * t6554 * t6555 - t376 * t6558 - 0.2e1 * t376 * t6560 - t376 * t6566 - t3683 * t858 - 0.2e1 * t1086 * t2248 - 0.2e1 * t1086 * t2256 + 0.3e1 / 0.4e1 * t6573 * t1092 + t6577 * t93 + 0.10e2 / 0.9e1 * t6580 * t6582 + 0.110e3 / 0.81e2 * t2250 * t6585;
15404   t6589 = -t6521 * t387 - t2239 * t1115 / 0.2e1 - 0.20e2 / 0.27e2 * t6525 * t2252 - 0.20e2 / 0.27e2 * t6528 * t2252 - 0.20e2 / 0.27e2 * t2250 * t6532 - 0.50e2 / 0.243e3 * t6535 * t6537 + 0.3e1 / 0.2e1 * t2243 * t6540 + 0.3e1 * t6543 * t2245 + 0.3e1 * t6546 * t2245 + 0.3e1 * t2243 * t6550 + t6588;
15405   t6599 = t1123 * t2258;
15406   t6602 = t3874 * t860;
15407   t6607 = t393 * t6589;
15408   t6610 = t1132 * t2258;
15409   t6615 = t3879 * t860;
15410   t6618 = t2283 * t3841;
15411   t6620 = t1164 * t2294;
15412   t6621 = t6620 * t1138;
15413   t6623 = t3741 * t865;
15414   t6624 = t6623 * t3841;
15415   t6626 = t2290 * t3833;
15416   t6628 = -t6589;
15417   t6629 = t401 * t6628;
15418   t6630 = t6629 * t104;
15419   t6632 = t1151 * t2294;
15420   t6633 = t6632 * t1138;
15421   t6635 = t2283 * t3833;
15422   t6637 = t3757 * t865;
15423   t6638 = t6637 * t3841;
15424   t6640 = 0.10708320e2 * t2269 * t5445 - 0.7138880e1 * t6599 * t1825 - 0.19111352870400e2 * t6602 * t5445 - 0.3569440e1 * t2262 * t3897 + 0.1784720e1 * t6607 * t109 + 0.6370450956800e1 * t6610 * t1825 + 0.3185225478400e1 * t2269 * t3897 + 0.5684735615810048000e1 * t6615 * t5445 + 0.10708320e2 * t6618 - 0.7138880e1 * t6621 - 0.19111352870400e2 * t6624 - 0.3569440e1 * t6626 + 0.1784720e1 * t6630 + 0.6370450956800e1 * t6633 + 0.3185225478400e1 * t6635 + 0.5684735615810048000e1 * t6638;
15425   t6648 = t3814 * t873;
15426   t6652 = t2279 * t402;
15427   t6653 = t3840 * t6652;
15428   t6656 = t865 * t1154;
15429   t6658 = t3862 * t6656 * t402;
15430   t6661 = t3862 * t6652;
15431   t6664 = t874 * t404;
15432   t6668 = t3856 * t2279 * t411;
15433   t6671 = t1143 * t2322;
15434   t6681 = t2279 * t5389;
15435   t6688 = -0.258304e0 * t107 * t407 * t6640 + 0.461000314880e0 * t399 * t6630 - 0.54895099374677576130e-1 * t3750 * t2302 - 0.734005159174078464e0 * t107 * t6648 * t1178 - 0.85008516127783659765e0 * t1136 * t6653 - 0.56263723100594113894e0 * t3861 * t6658 + 0.75858199451789026628e0 * t1136 * t6661 - 0.10979019874935515226e0 * t1136 * t6664 - 0.10979019874935515226e0 * t1136 * t6668 - 0.238156450669527040e0 * t1142 * t6671 - 0.61023519165317445059e0 * t1149 * t2283 * t3888 - 0.4936538891835801600e1 * t399 * t6624 - 0.119078225334763520e0 * t3819 * t2302 + 0.476312901339054080e0 * t5388 * t6681 - 0.42504258063891829882e0 * t5394 * t6681 + 0.21252129031945914941e0 * t2273 * t3834;
15436   t6689 = t862 * t1148;
15437   t6696 = t2266 * t398;
15438   t6701 = t873 * t1164;
15439   t6708 = t873 * t1151;
15440   t6717 = t398 * t2309;
15441   t6720 = t2269 * t5317;
15442   t6725 = t2262 * t398;
15443   t6728 = t2269 * t100;
15444   t6733 = -0.28131861550297056947e0 * t6689 * t3864 + 0.37929099725894513314e0 * t2273 * t3867 + 0.21252129031945914941e0 * t3827 * t2280 + 0.42504258063891829882e0 * t6696 * t1139 + 0.476312901339054080e0 * t2263 * t5514 + 0.238156450669527040e0 * t1158 * t6701 * t3841 - 0.119078225334763520e0 * t1158 * t2305 * t3833 + 0.15762619094478157328e0 * t3793 * t6708 * t3863 - 0.21252129031945914941e0 * t1158 * t6708 * t3841 - 0.42504258063891829882e0 * t2273 * t3842 + 0.29967321450326855254e0 * t6717 * t1160 + 0.19594476351194912734e0 * t6720 * t5320 - 0.10979019874935515226e0 * t2273 * t3858 - 0.85008516127783659765e0 * t6725 * t5314 + 0.2766001889280e1 * t6728 * t5442 + 0.238156450669527040e0 * t3783 * t2302;
15445   t6735 = t1177 * t2322;
15446   t6741 = t2294 * t104;
15447   t6742 = t1137 * t6741;
15448   t6750 = t873 * t411;
15449   t6751 = t3802 * t6750;
15450   t6754 = t2322 * t401;
15451   t6755 = t6754 * t1138;
15452   t6778 = 0.650049912832e0 * t107 * t6735 * t411 - 0.42504258063891829882e0 * t3837 * t2280 + 0.42504258063891829882e0 * t1136 * t6742 + 0.97972381755974563669e-1 * t3830 * t2280 + 0.31525238188956314657e0 * t5504 * t6656 * t5389 + 0.29967321450326855254e0 * t1142 * t6751 - 0.238156450669527040e0 * t1158 * t6755 + 0.1645512963945267200e1 * t399 * t6633 + 0.461000314880e0 * t6607 * t112 - 0.1844001259520e1 * t399 * t6621 - 0.922000629760e0 * t399 * t6626 + 0.18968792869915364414e1 * t3755 * t6637 * t5355 - 0.32672968537417605163e1 * t1149 * t6637 * t3863 + 0.822756481972633600e0 * t399 * t6635 + 0.14683899485061986386e1 * t399 * t6638 - 0.10979019874935515226e0 * t2270 * t413;
15453   t6791 = t6602 * t1124;
15454   t6794 = t6599 * t100;
15455   t6797 = t6610 * t390;
15456   t6800 = t2266 * t100;
15457   t6803 = t6615 * t1124;
15458   t6806 = t2269 * t1118;
15459   t6823 = 0.36614111499190467036e1 * t1149 * t6623 * t3863 + 0.14983660725163427627e0 * t3771 * t866 * t3772 + 0.2766001889280e1 * t399 * t6618 + 0.14983660725163427627e0 * t2276 * t3803 - 0.922000629760e0 * t2263 * t3768 - 0.12751277419167548965e1 * t6791 * t112 - 0.1844001259520e1 * t6794 * t1774 + 0.42504258063891829882e0 * t6797 * t112 - 0.238156450669527040e0 * t6800 * t1144 + 0.97972381755974563669e-1 * t6803 * t112 + 0.21252129031945914941e0 * t6806 * t112 - 0.119078225334763520e0 * t2276 * t3747 - 0.238156450669527040e0 * t1158 * t2295 * t1159 - 0.119078225334763520e0 * t1158 * t866 * t3786 - 0.12204703833063489012e1 * t1149 * t6632 * t1795 + 0.325024956416e0 * t107 * t2309 * t1191;
15460   t6826 = my_piecewise3(t97, 0, t6688 + t6733 + t6778 + t6823);
15461   t6827 = my_piecewise3(t96, 0, t6826);
15462   t6829 = -t1118 * t879 - t6589 * t114 - t860 * t1197 - 0.2e1 * t2258 * t417 - 0.2e1 * t390 * t2328 - t95 * t6827;
15463   t6830 = t56 * t6829;
15464   t6833 = t2331 * t124;
15465   t6836 = t882 * t1207;
15466   t6839 = t1258 * t2335;
15467   t6842 = t882 * t126;
15468   t6843 = t39 * t128;
15469   t6844 = t1253 * t6843;
15470   t6850 = t1218 * t2330;
15471   t6855 = t3949 * t881;
15472   t6858 = t6830 * t128 / 0.100e3 + t6833 * t2336 / 0.30e2 - t6836 * t1220 / 0.108e3 + t2334 * t6839 / 0.60e2 + t6842 * t6844 / 0.54e2 - t428 * t6829 * t128 / 0.100e3 - t6850 * t2336 / 0.90e2 - t2342 * t6839 / 0.180e3 - t6855 * t6844 / 0.324e3;
15473   t6859 = t131 * t6858;
15474   t6878 = -params->c1 * t6829;
15475   t6880 = t2356 * t442;
15476   t6883 = t893 * t1239;
15477   t6884 = t1253 * t39;
15478   t6887 = t1258 * t23;
15479   t6890 = t1232 * t19;
15480   t6893 = t1235 * t36;
15481   t6894 = t2365 * t881;
15482   t6899 = t2385 * t1207;
15483   t6902 = t2330 * t423;
15484   t6903 = t2365 * t6902;
15485   t6906 = t881 * t1203;
15486   t6907 = t2365 * t6906;
15487   t6910 = t896 * t6829;
15488   t6913 = -t6878 * t141 - 0.10e2 / 0.9e1 * t6880 * t2359 - 0.50e2 / 0.81e2 * t6883 * t6884 - 0.5e1 / 0.9e1 * t2358 * t6887 + 0.5e1 / 0.9e1 * t6890 * t897 + 0.100e3 / 0.81e2 * t6893 * t6894 + 0.10e2 / 0.9e1 * t2362 * t2370 + 0.500e3 / 0.81e2 * t1879 * t6899 + 0.100e3 / 0.81e2 * t441 * t6903 + 0.50e2 / 0.81e2 * t441 * t6907 + 0.5e1 / 0.9e1 * t895 * t6910;
15489   t6918 = t900 * t1247;
15490   t6923 = t449 * t2385;
15491   t6927 = t449 * t1239 * t2330;
15492   t6930 = t4004 * t881;
15493   t6931 = t1263 * t6930;
15494   t6936 = t442 * t6829;
15495   t6939 = t1265 * t2330;
15496   t6940 = t1263 * t6939;
15497   t6945 = t4019 * t881;
15498   t6946 = t4017 * t6945;
15499   t6950 = my_piecewise3(t139, t900 * t1249 * t145 + 0.2e1 * t2373 * t447 * t145 + t6913 * t145 + t6918 * t145, 0.50e2 / 0.27e2 * t6923 * t1255 + 0.20e2 / 0.9e1 * t6927 * t453 + 0.50e2 / 0.27e2 * t6931 * t1255 + 0.10e2 / 0.9e1 * t2379 * t1259 + t449 * t6936 * t147 + 0.10e2 / 0.9e1 * t6940 * t453 + 0.5e1 / 0.9e1 * t2386 * t1259 + 0.25e2 / 0.81e2 * t6946 * t1255);
15500   t6953 = 0.12e2 * t6492 * t6493 - 0.8e1 * t6496 * t2227 - 0.8e1 * t2225 * t6500 + 0.8e1 * t2225 * t6504 - 0.4e1 * t2225 * t6507 + 0.2e1 * t330 * t6510 * t150 + 0.4e1 * t330 * t6514 * t150 - 0.4e1 * t330 * t2230 * t456 + 0.2e1 * t330 * t6859 * t150 - 0.4e1 * t330 * t2346 * t456 - 0.2e1 * t330 * t888 * t1270 + 0.2e1 * t1030 * t1031 * t905 - t330 * t1226 * t905 - 0.2e1 * t330 * t435 * t2390 - t138 * t6950 + 0.1174e1 * t6950;
15501   t6954 = t6953 * t167;
15502   t6959 = t2399 * t847 * t2393;
15503   t6966 = t2219 * t16;
15504   t6967 = t845 * t6966;
15505   t6968 = t908 * t742;
15506   t6970 = t6968 * t1299 * t1301;
15507   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15508     v3rho2lapl[0] = -0.4e1 / 0.3e1 * t6467 - t6471 - t6473 - 0.65972000000000000000e1 * t6476 - t2220 * t6478 * t988 / 0.6e1 - t2220 * t6482 * t317 - 0.65972000000000000000e1 * t6486 * t1004 - t2220 * t2221 * t1011 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t847 * t6954 - 0.49479000000000000000e1 * t6959 * t480 - 0.29687400000000000000e2 * t2401 * t1288 + 0.57725500000000000000e1 * t2401 * t1293 + 0.80541612095716256868e2 * t6967 * t6970;
15509 
15510   t6973 = t17 * t974;
15511   t6975 = t484 * t6973 * t487;
15512   t6979 = t8 * t491 * t975 / 0.6e1;
15513   t6980 = t1306 * t974;
15514   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15515     v3rho2lapl[1] = -0.4e1 / 0.3e1 * t6975 - t6979 - t2220 * t6980 * t1310 / 0.6e1 - t2220 * t2406 * t1319 / 0.2e1;
15516 
15517   t6990 = t17 * t2;
15518   t6991 = t6990 * t2219;
15519   t6992 = t6991 * t2410;
15520   t6994 = t6478 * t1329;
15521   t6997 = t6482 * t499;
15522   t7002 = t1016 * t2;
15523   t7003 = t7002 * t2219;
15524   t7004 = t2221 * t1347;
15525   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15526     v3rho2lapl[2] = -0.2e1 / 0.3e1 * t6467 - t6471 - t6473 / 0.2e1 - 0.32986000000000000000e1 * t6476 - 0.2e1 / 0.3e1 * t6992 - t2220 * t6994 / 0.6e1 - t2220 * t6997 / 0.2e1 - 0.32986000000000000000e1 * t6486 * t1341 - t7003 * t7004 / 0.2e1;
15527 
15528   t7008 = t6991 * t2414;
15529   t7010 = t6980 * t1354;
15530   t7013 = t2406 * t1362;
15531   t7016 = t6990 * t4;
15532   t7017 = t7016 * t2587;
15533   t7019 = t173 * t2585;
15534   t7020 = t7019 * t487;
15535   t7024 = t17 * t467 * t4;
15536   t7025 = t7024 * t2590;
15537   t7026 = t7025 * t649;
15538   t7028 = t483 * t974;
15539   t7029 = t2399 * t7028;
15540   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15541     v3rho2lapl[3] = -0.2e1 / 0.3e1 * t6975 - t6979 - 0.2e1 / 0.3e1 * t7008 - t2220 * t7010 / 0.6e1 + t7003 * t7013 / 0.2e1 - t7017 / 0.2e1 - t2220 * t7020 / 0.2e1 - 0.32986000000000000000e1 * t7026 - 0.32986000000000000000e1 * t7029 * t1379;
15542 
15543   t7033 = t6478 * t1391;
15544   t7036 = t2221 * t1397;
15545   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15546     v3rho2lapl[4] = -0.4e1 / 0.3e1 * t6992 - t6471 - t2220 * t7033 / 0.6e1 - t2220 * t7036 / 0.2e1;
15547 
15548   t7041 = t6980 * t1402;
15549   t7044 = t7019 * t504;
15550   t7048 = t2406 * t1415;
15551   t7051 = t4566 * t269;
15552   t7052 = t2418 * t1424;
15553   t7055 = t1423 * t608;
15554   t7058 = t2537 * t288;
15555   t7059 = t7058 * t611;
15556   t7062 = t953 * t631;
15557   t7063 = t7062 * t611;
15558   t7066 = t2418 * t1617;
15559   t7069 = t1614 * t953;
15560   t7073 = t608 * t2537;
15561   t7080 = t1477 * t1489;
15562   t7083 = t552 * t5999;
15563   t7086 = t2447 * t19;
15564   t7087 = t7086 * t531;
15565   t7090 = t552 * t4655;
15566   t7091 = t923 * t36;
15567   t7092 = t7091 * t1501;
15568   t7095 = t4642 * t223;
15569   t7096 = t2436 * t1483;
15570   t7099 = t5996 * t923;
15571   t7101 = t2016 * t2447;
15572   t7104 = 0.65e2 / 0.13122e5 * t2002;
15573   t7105 = 0.13e2 / 0.2916e4 * t2004;
15574   t7106 = t7104 - t7105;
15575   t7107 = t553 * t7106;
15576   t7115 = t4634 * t223;
15577   t7118 = t1482 * t554;
15578   t7121 = t227 * t2447;
15579   t7122 = t7121 * t563;
15580   t7125 = t2436 * t1506;
15581   t7128 = t921 * t1481;
15582   t7131 = t1489 * t923;
15583   t7132 = t1482 * t7131;
15584   t7133 = t563 * t19;
15585   t7134 = t7133 * t531;
15586   t7137 = t2443 * t1458;
15587   t7141 = 0.100e3 / 0.243e3 * t1977 + t7104 - t7105;
15588   t7143 = t2429 * t551;
15589   t7147 = -0.2e1 * t1477 * t2448 + 0.3e1 * t7115 * t2437 + 0.3e1 * t7118 * t2437 + 0.3e1 * t2435 * t7122 + 0.3e1 / 0.2e1 * t2435 * t7125 + 0.3e1 / 0.4e1 * t7128 * t1483 + 0.10e2 / 0.9e1 * t7132 * t7134 + 0.110e3 / 0.81e2 * t2442 * t7137 + t7141 * t231 - t7143 * t563 - t2431 * t1506 / 0.2e1;
15590   t7148 = -0.20e2 / 0.27e2 * t7080 * t2444 - 0.20e2 / 0.27e2 * t7083 * t2444 - 0.20e2 / 0.27e2 * t2442 * t7087 - 0.50e2 / 0.243e3 * t7090 * t7092 - 0.15e2 / 0.4e1 * t7095 * t7096 - t552 * t7099 - 0.2e1 * t552 * t7101 - t552 * t7107 - t4631 * t924 - 0.2e1 * t1477 * t2440 + t7147;
15591   t7158 = t1514 * t2450;
15592   t7161 = t4741 * t926;
15593   t7166 = t569 * t7148;
15594   t7169 = t1523 * t2450;
15595   t7174 = t4735 * t926;
15596   t7177 = t2475 * t4756;
15597   t7179 = t1555 * t2486;
15598   t7180 = t7179 * t1529;
15599   t7182 = t4761 * t931;
15600   t7183 = t7182 * t4756;
15601   t7185 = t2482 * t4780;
15602   t7187 = -t7148;
15603   t7188 = t577 * t7187;
15604   t7189 = t7188 * t242;
15605   t7191 = t1542 * t2486;
15606   t7192 = t7191 * t1529;
15607   t7194 = t2475 * t4780;
15608   t7196 = t4699 * t931;
15609   t7197 = t7196 * t4756;
15610   t7199 = 0.10708320e2 * t2461 * t6131 - 0.7138880e1 * t7158 * t2096 - 0.19111352870400e2 * t7161 * t6131 - 0.3569440e1 * t2454 * t4795 + 0.1784720e1 * t7166 * t247 + 0.6370450956800e1 * t7169 * t2096 + 0.3185225478400e1 * t2461 * t4795 + 0.5684735615810048000e1 * t7174 * t6131 + 0.10708320e2 * t7177 - 0.7138880e1 * t7180 - 0.19111352870400e2 * t7183 - 0.3569440e1 * t7185 + 0.1784720e1 * t7189 + 0.6370450956800e1 * t7192 + 0.3185225478400e1 * t7194 + 0.5684735615810048000e1 * t7197;
15611   t7203 = t2461 * t6089;
15612   t7209 = t4848 * t2471 * t587;
15613   t7212 = t2471 * t578;
15614   t7213 = t4755 * t7212;
15615   t7216 = t2454 * t574;
15616   t7219 = t940 * t580;
15617   t7222 = t931 * t1545;
15618   t7224 = t4785 * t7222 * t578;
15619   t7227 = t4785 * t7212;
15620   t7230 = t4688 * t939;
15621   t7237 = t7169 * t566;
15622   t7246 = t1534 * t2514;
15623   t7249 = -0.258304e0 * t245 * t583 * t7199 + 0.19594476351194912734e0 * t7203 * t6092 - 0.10979019874935515226e0 * t2465 * t4850 - 0.10979019874935515226e0 * t1527 * t7209 - 0.85008516127783659765e0 * t1527 * t7213 - 0.85008516127783659765e0 * t7216 * t6118 - 0.10979019874935515226e0 * t1527 * t7219 - 0.56263723100594113894e0 * t4784 * t7224 + 0.75858199451789026628e0 * t1527 * t7227 - 0.734005159174078464e0 * t245 * t7230 * t1569 + 0.325024956416e0 * t245 * t2501 * t1582 + 0.42504258063891829882e0 * t7237 * t250 - 0.119078225334763520e0 * t2468 * t4715 - 0.54895099374677576130e-1 * t4820 * t2494 + 0.238156450669527040e0 * t4770 * t2494 - 0.238156450669527040e0 * t1533 * t7246;
15624   t7260 = t1568 * t2514;
15625   t7268 = t2486 * t242;
15626   t7269 = t1528 * t7268;
15627   t7277 = t2471 * t6217;
15628   t7282 = t2458 * t574;
15629   t7287 = t928 * t1539;
15630   t7290 = -0.10979019874935515226e0 * t2462 * t589 + 0.476312901339054080e0 * t2455 * t6179 - 0.1844001259520e1 * t575 * t7180 - 0.922000629760e0 * t575 * t7185 - 0.4936538891835801600e1 * t575 * t7183 + 0.650049912832e0 * t245 * t7260 * t587 - 0.42504258063891829882e0 * t4752 * t2472 + 0.21252129031945914941e0 * t4774 * t2472 + 0.42504258063891829882e0 * t1527 * t7269 + 0.97972381755974563669e-1 * t4777 * t2472 + 0.31525238188956314657e0 * t6238 * t7222 * t6217 + 0.476312901339054080e0 * t6216 * t7277 - 0.42504258063891829882e0 * t2465 * t4757 + 0.42504258063891829882e0 * t7282 * t1530 + 0.21252129031945914941e0 * t2465 * t4781 - 0.28131861550297056947e0 * t7287 * t4787;
15631   t7296 = t574 * t2501;
15632   t7299 = t2514 * t577;
15633   t7300 = t7299 * t1529;
15634   t7313 = t939 * t1555;
15635   t7328 = t939 * t1542;
15636   t7335 = 0.37929099725894513314e0 * t2465 * t4790 - 0.42504258063891829882e0 * t6222 * t7277 + 0.29967321450326855254e0 * t7296 * t1551 - 0.238156450669527040e0 * t1549 * t7300 + 0.1645512963945267200e1 * t575 * t7192 + 0.822756481972633600e0 * t575 * t7194 + 0.14683899485061986386e1 * t575 * t7197 - 0.119078225334763520e0 * t4863 * t2494 + 0.2766001889280e1 * t575 * t7177 + 0.238156450669527040e0 * t1549 * t7313 * t4756 + 0.461000314880e0 * t7166 * t250 + 0.36614111499190467036e1 * t1540 * t7182 * t4786 + 0.14983660725163427627e0 * t4823 * t932 * t4824 - 0.119078225334763520e0 * t1549 * t2497 * t4780 + 0.15762619094478157328e0 * t4838 * t7328 * t4786 - 0.21252129031945914941e0 * t1549 * t7328 * t4756;
15637   t7336 = t939 * t587;
15638   t7337 = t4718 * t7336;
15639   t7340 = t7161 * t1515;
15640   t7343 = t2458 * t238;
15641   t7346 = t7158 * t238;
15642   t7355 = t2461 * t1509;
15643   t7358 = t7174 * t1515;
15644   t7365 = t2461 * t238;
15645   t7382 = 0.29967321450326855254e0 * t1533 * t7337 - 0.12751277419167548965e1 * t7340 * t250 - 0.238156450669527040e0 * t7343 * t1535 - 0.1844001259520e1 * t7346 * t2045 + 0.18968792869915364414e1 * t4707 * t7196 * t6256 - 0.32672968537417605163e1 * t1540 * t7196 * t4786 + 0.21252129031945914941e0 * t7355 * t250 + 0.97972381755974563669e-1 * t7358 * t250 - 0.922000629760e0 * t2455 * t4728 + 0.14983660725163427627e0 * t2468 * t4719 + 0.2766001889280e1 * t7365 * t6057 - 0.238156450669527040e0 * t1549 * t2487 * t1550 - 0.119078225334763520e0 * t1549 * t932 * t4853 - 0.12204703833063489012e1 * t1540 * t7191 * t2066 - 0.61023519165317445059e0 * t1540 * t2475 * t4844 + 0.461000314880e0 * t575 * t7189;
15646   t7385 = my_piecewise3(t235, 0, t7249 + t7290 + t7335 + t7382);
15647   t7386 = my_piecewise3(t234, 0, t7385);
15648   t7388 = -t1509 * t945 - t926 * t1588 - t233 * t7386 - 0.2e1 * t2450 * t593 - t7148 * t252 - 0.2e1 * t566 * t2520;
15649   t7389 = t56 * t7388;
15650   t7392 = t2523 * t262;
15651   t7395 = t948 * t1598;
15652   t7398 = t1649 * t2527;
15653   t7401 = t948 * t264;
15654   t7402 = t39 * t266;
15655   t7403 = t1644 * t7402;
15656   t7409 = t1609 * t2522;
15657   t7414 = t4897 * t947;
15658   t7417 = t7389 * t266 / 0.100e3 + t7392 * t2528 / 0.30e2 - t7395 * t1611 / 0.108e3 + t2526 * t7398 / 0.60e2 + t7401 * t7403 / 0.54e2 - t604 * t7388 * t266 / 0.100e3 - t7409 * t2528 / 0.90e2 - t2534 * t7398 / 0.180e3 - t7414 * t7403 / 0.324e3;
15659   t7418 = t269 * t7417;
15660   t7437 = -params->c1 * t7388;
15661   t7439 = t2548 * t618;
15662   t7442 = t959 * t1630;
15663   t7443 = t1644 * t39;
15664   t7446 = t1649 * t23;
15665   t7449 = t1623 * t19;
15666   t7452 = t1626 * t36;
15667   t7453 = t2557 * t947;
15668   t7458 = t2577 * t1598;
15669   t7461 = t2522 * t599;
15670   t7462 = t2557 * t7461;
15671   t7465 = t947 * t1594;
15672   t7466 = t2557 * t7465;
15673   t7469 = t962 * t7388;
15674   t7472 = -t7437 * t279 - 0.10e2 / 0.9e1 * t7439 * t2551 - 0.50e2 / 0.81e2 * t7442 * t7443 - 0.5e1 / 0.9e1 * t2550 * t7446 + 0.5e1 / 0.9e1 * t7449 * t963 + 0.100e3 / 0.81e2 * t7452 * t7453 + 0.10e2 / 0.9e1 * t2554 * t2562 + 0.500e3 / 0.81e2 * t2150 * t7458 + 0.100e3 / 0.81e2 * t617 * t7462 + 0.50e2 / 0.81e2 * t617 * t7466 + 0.5e1 / 0.9e1 * t961 * t7469;
15675   t7477 = t966 * t1638;
15676   t7482 = t449 * t2577;
15677   t7486 = t449 * t1630 * t2522;
15678   t7489 = t4952 * t947;
15679   t7490 = t1263 * t7489;
15680   t7495 = t618 * t7388;
15681   t7498 = t1654 * t2522;
15682   t7499 = t1263 * t7498;
15683   t7504 = t4965 * t947;
15684   t7505 = t4017 * t7504;
15685   t7509 = my_piecewise3(t277, t966 * t1640 * t283 + 0.2e1 * t2565 * t623 * t283 + t7472 * t283 + t7477 * t283, 0.50e2 / 0.27e2 * t7482 * t1646 + 0.20e2 / 0.9e1 * t7486 * t628 + 0.50e2 / 0.27e2 * t7490 * t1646 + 0.10e2 / 0.9e1 * t2571 * t1650 + t449 * t7495 * t285 + 0.10e2 / 0.9e1 * t7499 * t628 + 0.5e1 / 0.9e1 * t2578 * t1650 + 0.25e2 / 0.81e2 * t7505 * t1646);
15686   t7512 = 0.12e2 * t7051 * t7052 - 0.8e1 * t7055 * t2419 - 0.8e1 * t2417 * t7059 + 0.8e1 * t2417 * t7063 - 0.4e1 * t2417 * t7066 + 0.2e1 * t510 * t7069 * t288 + 0.4e1 * t510 * t7073 * t288 - 0.4e1 * t510 * t2422 * t631 + 0.2e1 * t510 * t7418 * t288 - 0.4e1 * t510 * t2538 * t631 - 0.2e1 * t510 * t954 * t1659 + 0.2e1 * t1423 * t1424 * t971 - t510 * t1617 * t971 - 0.2e1 * t510 * t611 * t2582 - t276 * t7509 + 0.1174e1 * t7509;
15687   t7514 = t913 * t7512 * t302;
15688   t7517 = t913 * t2585;
15689   t7518 = t2399 * t7517;
15690   t7525 = t2219 * t174;
15691   t7526 = t845 * t7525;
15692   t7527 = t974 * t837;
15693   t7529 = t7527 * t1688 * t1690;
15694   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15695     v3rho2lapl[5] = -0.4e1 / 0.3e1 * t7008 - t6979 - t7017 - 0.65972000000000000000e1 * t7026 - t2220 * t7041 / 0.6e1 - t2220 * t7044 - 0.65972000000000000000e1 * t7029 * t1411 - t2220 * t7048 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t7514 - 0.49479000000000000000e1 * t7518 * t649 - 0.29687400000000000000e2 * t2591 * t1677 + 0.57725500000000000000e1 * t2591 * t1682 + 0.80541612095716256868e2 * t7526 * t7529;
15696 
15697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15698     v3rho2tau[0] = 0.0e0;
15699 
15700   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15701     v3rho2tau[1] = 0.0e0;
15702 
15703   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15704     v3rho2tau[2] = 0.0e0;
15705 
15706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15707     v3rho2tau[3] = 0.0e0;
15708 
15709   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15710     v3rho2tau[4] = 0.0e0;
15711 
15712   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15713     v3rho2tau[5] = 0.0e0;
15714 
15715   t7532 = 0.1e1 / t41;
15716   t7533 = t153 * t7532;
15717   t7534 = 0.1e1 / rho[0];
15718   t7536 = t7534 * t473 * t166;
15719   t7537 = t7533 * t7536;
15720   t7538 = t1926 * t7537;
15721   t7539 = 0.45424903023464625000e2 * t7538;
15722   t7541 = t469 * t18 * t2748;
15723   t7542 = t7541 * t480;
15724   t7543 = 0.24739500000000000000e1 * t7542;
15725   t7544 = t5129 * t745;
15726   t7545 = 0.18554625000000000000e1 * t7544;
15727   t7546 = t1279 * t2758;
15728   t7547 = 0.41747906250000000000e1 * t7546;
15729   t7549 = t737 * t1284 * t19;
15730   t7550 = t7549 * t1929;
15731   t7551 = t1926 * t7550;
15732   t7552 = 0.22265550000000000000e2 * t7551;
15733   t7553 = t737 * t1939;
15734   t7555 = t7553 * t26 * t1301;
15735   t7556 = t1297 * t7555;
15736   t7557 = 0.60406209071787192651e2 * t7556;
15737   t7558 = 0.1e1 / t43;
15738   t7560 = t742 * t7558 * t166;
15739   t7561 = t3565 * t7560;
15740   t7562 = t1926 * t7561;
15741   t7563 = 0.83495812500000000000e2 * t7562;
15742   t7565 = t8 * t323 * t2749;
15743   t7566 = t7565 / 0.8e1;
15744   t7567 = t17 * t2748;
15745   t7569 = t310 * t7567 * t317;
15746   t7570 = t7569 / 0.2e1;
15747   t7571 = t2767 * t26;
15748   t7572 = t7571 * t166;
15749   t7573 = t3573 * t7572;
15750   t7574 = t1297 * t7573;
15751   t7575 = 0.23254840140139470986e0 * t7574;
15752   t7577 = t2768 * t26 * t1301;
15753   t7578 = t1297 * t7577;
15754   t7579 = 0.30203104535893596326e2 * t7578;
15755   t7580 = t459 * t2767;
15756   t7582 = t7580 * t158 * t1301;
15757   t7583 = t1297 * t7582;
15758   t7584 = 0.11326164200960098622e2 * t7583;
15759   t7585 = -t7539 - t7543 + t7545 - t7547 + t7552 - t7557 - t7563 - t7566 - t7570 + t7575 + t7579 + t7584;
15760   t7586 = t3549 * t2770;
15761   t7587 = 0.37753880669866995407e1 * t7586;
15762   t7588 = t1939 * t477;
15763   t7590 = t475 * t7588 * t166;
15764   t7591 = t471 * t7590;
15765   t7592 = 0.61848750000000000000e0 * t7591;
15766   t7593 = t1025 * t2758;
15767   t7594 = 0.13915968750000000000e1 * t7593;
15768   t7595 = t2755 * t332;
15769   t7597 = t1286 * t7595 * t166;
15770   t7598 = t471 * t7597;
15771   t7599 = 0.55663875000000000000e1 * t7598;
15772   t7600 = t1025 * t2763;
15773   t7601 = 0.15462187500000000000e0 * t7600;
15774   t7602 = t5123 * t745;
15775   t7603 = 0.61848750000000000000e0 * t7602;
15776   t7604 = t1915 * t1935;
15777   t7605 = 0.24739500000000000000e1 * t7604;
15778   t7606 = t1279 * t2763;
15779   t7607 = 0.46386562500000000000e0 * t7606;
15780   t7609 = t2767 * t158 * t19;
15781   t7610 = t7609 * t4063;
15782   t7611 = t4059 * t7610;
15783   t7612 = 0.15101552267946798163e2 * t7611;
15784   t7614 = t475 * t2761 * t1002;
15785   t7615 = t1001 * t7614;
15786   t7616 = 0.61848750000000000000e0 * t7615;
15787   t7617 = t5666 * t1919;
15788   t7618 = 0.24739500000000000000e1 * t7617;
15789   t7620 = t1286 * t2756 * t1002;
15790   t7621 = t1001 * t7620;
15791   t7622 = 0.55663875000000000000e1 * t7621;
15792   t7629 = t2594 * t456;
15793   t7632 = t2714 * t435;
15794   t7638 = t350 * sigma[0];
15795   t7644 = t3651 * t347;
15796   t7645 = t348 * t336;
15797   t7649 = 0.1e1 / t26 / t7645 * t36 * t3658;
15798   t7657 = t68 * t338 * t93;
15799   t7659 = t45 * t375;
15800   t7661 = t68 * t7659 * t387;
15801   t7669 = t2619 * t387;
15802   t7672 = t681 * t1764;
15803   t7677 = t2632 * t387;
15804   t7682 = t2622 * t382;
15805   t7683 = t7682 * t19;
15806   t7696 = t345 * t350;
15807   t7697 = t7696 * sigma[0];
15808   t7700 = t68 * t338;
15809   t7710 = 0.4e1 * t2970 * t1751 + 0.20e2 / 0.27e2 * t7683 * t355 - 0.5e1 / 0.9e1 * t5226 * t654 - 0.25e2 / 0.81e2 * t5231 * t1733 - 0.5e1 / 0.9e1 * t5234 * t654 + 0.40e2 / 0.27e2 * t1748 * t1706 + t1745 * t2627 / 0.4374e4 + 0.10e2 / 0.19683e5 * t1098 * t7697 - 0.8e1 / 0.6561e4 * t377 * t7700 + 0.25e2 / 0.432e3 * t5244 * t2598 * t378 + 0.125e3 / 0.972e3 * t3721 * t7697 - 0.25e2 / 0.162e3 * t1107 * t7700;
15810   t7713 = -0.4e1 / 0.6561e4 * t7657 - t7661 / 0.17496e5 - t5201 * t681 + 0.3e1 / 0.2e1 * t5203 * t1742 - t1737 * t1764 + 0.3e1 / 0.4e1 * t3686 * t2619 - 0.15e2 / 0.8e1 * t3694 * t7669 + 0.3e1 / 0.2e1 * t1091 * t7672 - t1086 * t2632 / 0.2e1 + 0.3e1 / 0.4e1 * t1091 * t7677 - t376 * t7710 / 0.2e1;
15811   t7721 = t1123 * t2635;
15812   t7722 = t7721 * t100;
15813   t7725 = t3814 * t2674;
15814   t7729 = t2646 * t100;
15815   t7732 = t393 * t7713;
15816   t7735 = t2643 * t100;
15817   t7738 = t2640 * t100;
15818   t7741 = t3874 * t2639;
15819   t7742 = t7741 * t390;
15820   t7745 = t3879 * t2639;
15821   t7746 = t7745 * t390;
15822   t7749 = t1177 * t2687;
15823   t7753 = t1132 * t2635;
15824   t7754 = t7753 * t390;
15825   t7759 = t1790 * t390;
15826   t7760 = t1137 * t7759;
15827   t7767 = t5319 * t691;
15828   t7770 = -t7713;
15829   t7771 = t401 * t7770;
15830   t7772 = t7771 * t104;
15831   t7775 = -0.922000629760e0 * t7722 * t1774 - 0.734005159174078464e0 * t107 * t7725 * t411 + 0.2766001889280e1 * t7729 * t1774 + 0.461000314880e0 * t7732 * t112 - 0.119078225334763520e0 * t7735 * t1144 + 0.238156450669527040e0 * t7738 * t1144 - 0.12751277419167548965e1 * t7742 * t112 + 0.97972381755974563669e-1 * t7746 * t112 + 0.325024956416e0 * t107 * t7749 * t411 + 0.21252129031945914941e0 * t7754 * t112 - 0.238156450669527040e0 * t5291 * t1814 - 0.85008516127783659764e0 * t5312 * t7760 - 0.10979019874935515226e0 * t1784 * t5295 - 0.85008516127783659764e0 * t1784 * t5299 + 0.19594476351194912734e0 * t5318 * t7767 + 0.461000314880e0 * t399 * t7772;
15832   t7778 = t3802 * t2674;
15833   t7781 = t1143 * t2687;
15834   t7784 = t697 * t402;
15835   t7785 = t1790 * t7784;
15836   t7793 = t2653 * t104;
15837   t7794 = t3840 * t7793;
15838   t7797 = t2640 * t398;
15839   t7800 = t2643 * t398;
15840   t7803 = t2646 * t398;
15841   t7806 = t2666 * t104;
15842   t7807 = t1137 * t7806;
15843   t7810 = t3862 * t7793;
15844   t7817 = t2653 * t1154;
15845   t7818 = t3862 * t7817;
15846   t7821 = t1177 * t401;
15847   t7822 = t398 * t7821;
15848   t7826 = -0.54895099374677576129e-1 * t7729 * t1144 + 0.14983660725163427627e0 * t1142 * t7778 - 0.119078225334763520e0 * t1142 * t7781 + 0.476312901339054080e0 * t5388 * t7785 + 0.31525238188956314657e0 * t5504 * t3001 * t7784 - 0.42504258063891829883e0 * t5394 * t7785 - 0.42504258063891829883e0 * t1136 * t7794 - 0.42504258063891829883e0 * t7797 * t1139 + 0.21252129031945914941e0 * t7800 * t1139 + 0.97972381755974563669e-1 * t7803 * t1139 + 0.21252129031945914941e0 * t1136 * t7807 + 0.37929099725894513314e0 * t1136 * t7810 + 0.42504258063891829882e0 * t5508 * t1791 + 0.42504258063891829882e0 * t1784 * t5499 - 0.28131861550297056947e0 * t3861 * t7818 + 0.29967321450326855254e0 * t7822 * t1790 * t5494;
15849   t7828 = t1807 * t2658;
15850   t7831 = t104 * t1835;
15851   t7832 = t690 * t7831;
15852   t7837 = t2654 * t3794;
15853   t7840 = t3741 * t2653;
15854   t7841 = t7840 * t1795;
15855   t7850 = t1790 * t697;
15856   t7851 = t3856 * t7850;
15857   t7854 = t1794 * t5498;
15858   t7857 = t3757 * t2653;
15859   t7858 = t7857 * t1138;
15860   t7861 = t2662 * t1159;
15861   t7864 = t2654 * t1138;
15862   t7867 = t1802 * t5498;
15863   t7870 = t7840 * t1138;
15864   t7873 = t2667 * t1159;
15865   t7876 = -0.238156450669527040e0 * t1158 * t7828 - 0.238156450669527040e0 * t1158 * t7832 - 0.10979019874935515226e0 * t1781 * t699 + 0.15762619094478157329e0 * t3793 * t7837 + 0.36614111499190467036e1 * t1149 * t7841 - 0.56263723100594113893e0 * t5399 * t5303 + 0.75858199451789026627e0 * t1784 * t5306 - 0.10979019874935515226e0 * t1784 * t5309 - 0.10979019874935515226e0 * t1136 * t7851 + 0.1645512963945267200e1 * t399 * t7854 + 0.14683899485061986386e1 * t399 * t7858 + 0.238156450669527040e0 * t1158 * t7861 + 0.2766001889280e1 * t399 * t7864 - 0.1844001259520e1 * t399 * t7867 - 0.4936538891835801600e1 * t399 * t7870 - 0.119078225334763520e0 * t1158 * t7873;
15866   t7877 = t1164 * t2666;
15867   t7878 = t7877 * t1138;
15868   t7881 = t7857 * t1795;
15869   t7889 = t109 * t1767;
15870   t7909 = t1151 * t2666;
15871   t7910 = t7909 * t1138;
15872   t7914 = 0.10708320e2 * t2646 * t1825 - 0.7138880e1 * t1771 * t7889 - 0.19111352870400e2 * t7741 * t1825 - 0.3569440e1 * t7721 * t1825 + 0.1784720e1 * t7732 * t109 + 0.3185225478400e1 * t7753 * t1825 + 0.6370450956800e1 * t1780 * t7889 + 0.5684735615810048000e1 * t7745 * t1825 + 0.10708320e2 * t7864 - 0.7138880e1 * t7867 - 0.19111352870400e2 * t7870 - 0.3569440e1 * t7878 + 0.1784720e1 * t7772 + 0.3185225478400e1 * t7910 + 0.6370450956800e1 * t7854 + 0.5684735615810048000e1 * t7858;
15873   t7918 = t2674 * t401;
15874   t7919 = t7918 * t1138;
15875   t7922 = t7909 * t1795;
15876   t7927 = t2654 * t1159;
15877   t7930 = t1154 * t1806;
15878   t7931 = t1794 * t7930;
15879   t7934 = t3759 * t402;
15880   t7935 = t7857 * t7934;
15881   t7938 = t697 * t390;
15882   t7939 = t1143 * t7938;
15883   t7944 = t1773 * t1767;
15884   t7947 = t2687 * t401;
15885   t7948 = t7947 * t1138;
15886   t7955 = -0.922000629760e0 * t399 * t7878 - 0.32672968537417605163e1 * t1149 * t7881 + 0.650049912832e0 * t107 * t1821 * t1835 - 0.258304e0 * t107 * t407 * t7914 + 0.14983660725163427627e0 * t3771 * t7919 - 0.61023519165317445059e0 * t1149 * t7922 + 0.822756481972633600e0 * t399 * t7910 - 0.21252129031945914941e0 * t1158 * t7927 - 0.12204703833063489012e1 * t1149 * t7931 + 0.18968792869915364414e1 * t3755 * t7935 + 0.476312901339054080e0 * t1772 * t7939 + 0.29967321450326855254e0 * t1787 * t5495 - 0.1844001259520e1 * t1772 * t7944 - 0.119078225334763520e0 * t1158 * t7948 - 0.238156450669527040e0 * t1787 * t5434 + 0.42504258063891829882e0 * t5441 * t7944;
15887   t7958 = my_piecewise3(t97, 0, t7775 + t7826 + t7876 + t7955);
15888   t7959 = my_piecewise3(t96, 0, t7958);
15889   t7961 = t7713 * t114 + 0.2e1 * t1767 * t703 + 0.2e1 * t684 * t1841 + t2635 * t417 + t390 * t2693 + t95 * t7959;
15890   t7962 = t56 * t7961;
15891   t7965 = t2696 * t124;
15892   t7968 = t128 * t1847;
15893   t7972 = t345 * t423;
15894   t7973 = t7972 * t128;
15895   t7976 = t2700 * t345;
15896   t7977 = t126 * t423;
15897   t7984 = t1218 * t2695;
15898   t7987 = t68 * t7968;
15899   t7990 = t3949 * t2699;
15900   t7993 = -t7962 * t128 / 0.100e3 - t7965 * t2336 / 0.60e2 - t1851 * t1210 * t7968 / 0.54e2 + 0.5e1 / 0.162e3 * t2700 * t7973 - 0.5e1 / 0.81e2 * t7976 * t7977 * t128 + t428 * t7961 * t128 / 0.100e3 + t7984 * t2336 / 0.180e3 + t1859 * t7987 / 0.162e3 + 0.5e1 / 0.486e3 * t7990 * t7973;
15901   t7996 = -t37 * t1758 * t52 / 0.54e2 + 0.21e2 / 0.160e3 * t346 * t7638 * t52 - 0.81e2 / 0.3200e4 * t2606 * t1720 + 0.2187e4 / 0.2048000e7 * t7644 * t7649 + 0.4e1 * t716 * t1863 + 0.2e1 * t432 * t2710 + 0.2e1 * t131 * t7993;
15902   t7997 = t7996 * t150;
15903   t7999 = t2713 * t456;
15904   t8004 = t1866 * t734;
15905   t8007 = t719 * t1906;
15906   t8012 = params->c1 * t7961;
15907   t8014 = t2719 * t442;
15908   t8029 = t2695 * t423;
15909   t8036 = -t8012 * t141 - 0.10e2 / 0.9e1 * t8014 * t2359 - 0.100e3 / 0.81e2 * t1876 * t1884 - 0.500e3 / 0.81e2 * t2721 * t1240 * t423 - 0.2500e4 / 0.729e3 * t5589 * t2699 * t423 * t24 - 0.1000e4 / 0.243e3 * t1879 * t1880 * t1847 - 0.50e2 / 0.81e2 * t441 * t2365 * t8029 - 0.5e1 / 0.9e1 * t895 * t896 * t7961;
15910   t8045 = t2699 * t345;
15911   t8046 = t8045 * t1893;
15912   t8049 = t147 * t1847;
15913   t8050 = t68 * t8049;
15914   t8056 = t449 * t1239 * t2695;
15915   t8059 = t442 * t7961;
15916   t8062 = t1265 * t2695;
15917   t8063 = t1263 * t8062;
15918   t8071 = my_piecewise3(t139, t2730 * t447 * t145 + t2732 * t447 * t145 + t8036 * t145 + 0.2e1 * t729 * t1887, -0.500e3 / 0.81e2 * t3994 * t8046 - 0.100e3 / 0.81e2 * t1892 * t8050 - 0.500e3 / 0.81e2 * t4005 * t8046 - 0.10e2 / 0.9e1 * t8056 * t453 - t449 * t8059 * t147 - 0.5e1 / 0.9e1 * t8063 * t453 - 0.50e2 / 0.81e2 * t1902 * t8050 - 0.250e3 / 0.243e3 * t4020 * t8046);
15919   t8074 = 0.6e1 * t3619 * t2595 * t435 - 0.4e1 * t1030 * t720 * t1866 + 0.2e1 * t1030 * t7629 - 0.2e1 * t1030 * t7632 + t330 * t7997 - t330 * t7999 + 0.4e1 * t1030 * t2716 * t435 - 0.2e1 * t330 * t8004 - 0.2e1 * t330 * t8007 - t330 * t435 * t2745 - t138 * t8071 + 0.1174e1 * t8071;
15920   t8075 = t8074 * t167;
15921   t8077 = t8 * t18 * t8075;
15922   t8078 = 0.3e1 / 0.8e1 * t8077;
15923   t8079 = t7587 + t7592 - t7594 + t7599 - t7601 + t7603 - t7605 - t7607 + t7612 - t7616 + t7618 - t7622 - t8078;
15924   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15925     v3rhosigma2[0] = -t2752 + t2754 - t2760 - t2765 + t2772 + t10 * (t7585 + t8079);
15926 
15927   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15928     v3rhosigma2[1] = 0.0e0;
15929 
15930   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15931     v3rhosigma2[2] = 0.0e0;
15932 
15933   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15934     v3rhosigma2[3] = 0.0e0;
15935 
15936   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15937     v3rhosigma2[4] = 0.0e0;
15938 
15939   t8082 = t17 * t2928;
15940   t8084 = t484 * t8082 * t487;
15941   t8085 = t8084 / 0.2e1;
15942   t8087 = t8 * t491 * t2929;
15943   t8088 = t8087 / 0.8e1;
15944   t8089 = t5796 * t1955;
15945   t8090 = 0.24739500000000000000e1 * t8089;
15946   t8091 = t5800 * t840;
15947   t8092 = 0.61848750000000000000e0 * t8091;
15948   t8094 = t1675 * t2936 * t1377;
15949   t8095 = t1376 * t8094;
15950   t8096 = 0.55663875000000000000e1 * t8095;
15951   t8097 = t1383 * t2938;
15952   t8098 = 0.13915968750000000000e1 * t8097;
15953   t8100 = t644 * t2941 * t1377;
15954   t8101 = t1376 * t8100;
15955   t8102 = 0.61848750000000000000e0 * t8101;
15956   t8103 = t1383 * t2943;
15957   t8104 = 0.15462187500000000000e0 * t8103;
15958   t8106 = t2947 * t293 * t19;
15959   t8107 = t8106 * t4418;
15960   t8108 = t4414 * t8107;
15961   t8109 = 0.15101552267946798163e2 * t8108;
15962   t8110 = t4352 * t2950;
15963   t8111 = 0.37753880669866995407e1 * t8110;
15964   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15965     v3rhosigma2[5] = -t2932 + t2934 - t2940 - t2945 + t2952 + t10 * (-t8085 - t8088 + t8090 + t8092 - t8096 - t8098 - t8102 - t8104 + t8109 + t8111);
15966 
15967   t8115 = t310 * t7567 * t499;
15968   t8116 = t8115 / 0.2e1;
15969   t8117 = t5666 * t1966;
15970   t8118 = 0.24739500000000000000e1 * t8117;
15971   t8120 = t1286 * t2756 * t1339;
15972   t8121 = t1001 * t8120;
15973   t8122 = 0.55663875000000000000e1 * t8121;
15974   t8124 = t475 * t2761 * t1339;
15975   t8125 = t1001 * t8124;
15976   t8126 = 0.61848750000000000000e0 * t8125;
15977   t8127 = t7609 * t4228;
15978   t8128 = t4059 * t8127;
15979   t8129 = 0.15101552267946798163e2 * t8128;
15980   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15981     v3rhosigma2[6] = -t2752 + t2754 - t2760 - t2765 + t2772 + t10 * (-t8116 - t7566 + t8118 + t7603 - t8122 - t7594 - t8126 - t7601 + t8129 + t7587);
15982 
15983   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15984     v3rhosigma2[7] = 0.0e0;
15985 
15986   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15987     v3rhosigma2[8] = 0.0e0;
15988 
15989   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15990     v3rhosigma2[9] = 0.0e0;
15991 
15992   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15993     v3rhosigma2[10] = 0.0e0;
15994 
15995   t8132 = t832 * t2208;
15996   t8134 = t8132 * t177 * t1690;
15997   t8135 = t1686 * t8134;
15998   t8136 = 0.60406209071787192651e2 * t8135;
15999   t8137 = 0.1e1 / t186;
16000   t8139 = t837 * t8137 * t301;
16001   t8140 = t4521 * t8139;
16002   t8141 = t2195 * t8140;
16003   t8142 = 0.83495812500000000000e2 * t8141;
16004   t8143 = t2947 * t177;
16005   t8144 = t8143 * t301;
16006   t8145 = t4529 * t8144;
16007   t8146 = t1686 * t8145;
16008   t8147 = 0.23254840140139470986e0 * t8146;
16009   t8149 = t2948 * t177 * t1690;
16010   t8150 = t1686 * t8149;
16011   t8151 = 0.30203104535893596326e2 * t8150;
16012   t8152 = t634 * t2947;
16013   t8154 = t8152 * t293 * t1690;
16014   t8155 = t1686 * t8154;
16015   t8156 = 0.11326164200960098622e2 * t8155;
16016   t8157 = 0.1e1 / t184;
16017   t8158 = t291 * t8157;
16018   t8159 = 0.1e1 / rho[1];
16019   t8161 = t8159 * t642 * t301;
16020   t8162 = t8158 * t8161;
16021   t8163 = t2195 * t8162;
16022   t8164 = 0.45424903023464625000e2 * t8163;
16023   t8166 = t484 * t8082 * t504;
16024   t8167 = t8166 / 0.2e1;
16025   t8169 = t1675 * t2936 * t1409;
16026   t8170 = t1376 * t8169;
16027   t8171 = 0.55663875000000000000e1 * t8170;
16028   t8172 = -t8136 - t8142 + t8147 + t8151 + t8156 - t8164 + t8092 - t8098 - t8104 - t8088 - t8167 - t8171;
16029   t8174 = t644 * t2941 * t1409;
16030   t8175 = t1376 * t8174;
16031   t8176 = 0.61848750000000000000e0 * t8175;
16032   t8177 = t5796 * t2190;
16033   t8178 = 0.24739500000000000000e1 * t8177;
16034   t8179 = t2186 * t2204;
16035   t8180 = 0.24739500000000000000e1 * t8179;
16036   t8181 = t8106 * t5028;
16037   t8182 = t4414 * t8181;
16038   t8183 = 0.15101552267946798163e2 * t8182;
16039   t8185 = t469 * t175 * t2928;
16040   t8186 = t8185 * t649;
16041   t8187 = 0.24739500000000000000e1 * t8186;
16042   t8188 = t5919 * t840;
16043   t8189 = 0.18554625000000000000e1 * t8188;
16044   t8190 = t1668 * t2938;
16045   t8191 = 0.41747906250000000000e1 * t8190;
16046   t8192 = t1668 * t2943;
16047   t8193 = 0.46386562500000000000e0 * t8192;
16048   t8195 = t832 * t1673 * t19;
16049   t8196 = t8195 * t2198;
16050   t8197 = t2195 * t8196;
16051   t8198 = 0.22265550000000000000e2 * t8197;
16052   t8199 = t2208 * t646;
16053   t8201 = t644 * t8199 * t301;
16054   t8202 = t640 * t8201;
16055   t8203 = 0.61848750000000000000e0 * t8202;
16056   t8204 = t2935 * t512;
16057   t8206 = t1675 * t8204 * t301;
16058   t8207 = t640 * t8206;
16059   t8208 = 0.55663875000000000000e1 * t8207;
16060   t8215 = t2774 * t631;
16061   t8218 = t2894 * t611;
16062   t8224 = t526 * sigma[2];
16063   t8230 = t3651 * t523;
16064   t8231 = t524 * t516;
16065   t8235 = 0.1e1 / t177 / t8231 * t36 * t4606;
16066   t8243 = t68 * t518 * t231;
16067   t8245 = t188 * t551;
16068   t8247 = t68 * t8245 * t563;
16069   t8255 = t2799 * t563;
16070   t8258 = t776 * t2035;
16071   t8263 = t2812 * t563;
16072   t8268 = t2802 * t558;
16073   t8269 = t8268 * t19;
16074   t8282 = t345 * t526;
16075   t8283 = t8282 * sigma[2];
16076   t8286 = t68 * t518;
16077   t8296 = 0.4e1 * t3122 * t2022 + 0.20e2 / 0.27e2 * t8269 * t531 - 0.5e1 / 0.9e1 * t6000 * t749 - 0.25e2 / 0.81e2 * t6005 * t2004 - 0.5e1 / 0.9e1 * t6008 * t749 + 0.40e2 / 0.27e2 * t2019 * t1977 + t2016 * t2807 / 0.4374e4 + 0.10e2 / 0.19683e5 * t1489 * t8283 - 0.8e1 / 0.6561e4 * t553 * t8286 + 0.25e2 / 0.432e3 * t6018 * t2778 * t554 + 0.125e3 / 0.972e3 * t4669 * t8283 - 0.25e2 / 0.162e3 * t1498 * t8286;
16078   t8299 = -0.4e1 / 0.6561e4 * t8243 - t8247 / 0.17496e5 - t5975 * t776 + 0.3e1 / 0.2e1 * t5977 * t2013 - t2008 * t2035 + 0.3e1 / 0.4e1 * t4634 * t2799 - 0.15e2 / 0.8e1 * t4642 * t8255 + 0.3e1 / 0.2e1 * t1482 * t8258 - t1477 * t2812 / 0.2e1 + 0.3e1 / 0.4e1 * t1482 * t8263 - t552 * t8296 / 0.2e1;
16079   t8307 = t2061 * t566;
16080   t8308 = t1528 * t8307;
16081   t8315 = t6091 * t786;
16082   t8324 = t2061 * t792;
16083   t8325 = t4848 * t8324;
16084   t8333 = t247 * t2038;
16085   t8336 = t4741 * t2819;
16086   t8339 = t1514 * t2815;
16087   t8342 = t569 * t8299;
16088   t8345 = t1523 * t2815;
16089   t8350 = t4735 * t2819;
16090   t8353 = t2834 * t1529;
16091   t8355 = t2073 * t6232;
16092   t8357 = t4761 * t2833;
16093   t8358 = t8357 * t1529;
16094   t8360 = t1555 * t2846;
16095   t8361 = t8360 * t1529;
16096   t8363 = -t8299;
16097   t8364 = t577 * t8363;
16098   t8365 = t8364 * t242;
16099   t8367 = t1542 * t2846;
16100   t8368 = t8367 * t1529;
16101   t8370 = t2065 * t6232;
16102   t8372 = t4699 * t2833;
16103   t8373 = t8372 * t1529;
16104   t8375 = 0.10708320e2 * t2826 * t2096 - 0.7138880e1 * t2042 * t8333 - 0.19111352870400e2 * t8336 * t2096 - 0.3569440e1 * t8339 * t2096 + 0.1784720e1 * t8342 * t247 + 0.3185225478400e1 * t8345 * t2096 + 0.6370450956800e1 * t2051 * t8333 + 0.5684735615810048000e1 * t8350 * t2096 + 0.10708320e2 * t8353 - 0.7138880e1 * t8355 - 0.19111352870400e2 * t8358 - 0.3569440e1 * t8361 + 0.1784720e1 * t8365 + 0.3185225478400e1 * t8368 + 0.6370450956800e1 * t8370 + 0.5684735615810048000e1 * t8373;
16105   t8379 = t2867 * t577;
16106   t8380 = t8379 * t1529;
16107   t8383 = t4718 * t2854;
16108   t8386 = t2823 * t238;
16109   t8393 = t2854 * t577;
16110   t8394 = t8393 * t1529;
16111   t8397 = -0.85008516127783659764e0 * t6116 * t8308 - 0.10979019874935515226e0 * t2055 * t6102 - 0.85008516127783659764e0 * t2055 * t6106 + 0.19594476351194912734e0 * t6090 * t8315 - 0.56263723100594113893e0 * t6225 * t6110 + 0.75858199451789026627e0 * t2055 * t6113 - 0.10979019874935515226e0 * t2055 * t6095 - 0.10979019874935515226e0 * t1527 * t8325 + 0.650049912832e0 * t245 * t2092 * t2106 - 0.258304e0 * t245 * t583 * t8375 - 0.119078225334763520e0 * t1549 * t8380 + 0.14983660725163427627e0 * t1533 * t8383 - 0.119078225334763520e0 * t8386 * t1535 + 0.1645512963945267200e1 * t575 * t8370 + 0.14683899485061986386e1 * t575 * t8373 + 0.14983660725163427627e0 * t4823 * t8394;
16112   t8400 = t8367 * t2066;
16113   t8407 = t2834 * t1550;
16114   t8410 = t2842 * t1550;
16115   t8419 = t2847 * t1550;
16116   t8422 = t8357 * t2066;
16117   t8425 = t1545 * t2077;
16118   t8426 = t2065 * t8425;
16119   t8429 = t4708 * t578;
16120   t8430 = t8372 * t8429;
16121   t8433 = t1534 * t2867;
16122   t8436 = t8350 * t566;
16123   t8439 = t2826 * t238;
16124   t8442 = -0.922000629760e0 * t575 * t8361 - 0.61023519165317445059e0 * t1540 * t8400 + 0.822756481972633600e0 * t575 * t8368 + 0.461000314880e0 * t8342 * t250 - 0.21252129031945914941e0 * t1549 * t8407 + 0.238156450669527040e0 * t1549 * t8410 + 0.2766001889280e1 * t575 * t8353 - 0.1844001259520e1 * t575 * t8355 - 0.4936538891835801600e1 * t575 * t8358 - 0.119078225334763520e0 * t1549 * t8419 + 0.36614111499190467036e1 * t1540 * t8422 - 0.12204703833063489012e1 * t1540 * t8426 + 0.18968792869915364414e1 * t4707 * t8430 - 0.119078225334763520e0 * t1533 * t8433 + 0.97972381755974563669e-1 * t8436 * t250 - 0.54895099374677576129e-1 * t8439 * t1535;
16125   t8444 = t2044 * t2038;
16126   t8447 = t4688 * t2854;
16127   t8451 = t2820 * t238;
16128   t8458 = t8372 * t2066;
16129   t8461 = t2078 * t2838;
16130   t8464 = t242 * t2106;
16131   t8465 = t785 * t8464;
16132   t8472 = t2834 * t4839;
16133   t8475 = t792 * t566;
16134   t8476 = t1534 * t8475;
16135   t8483 = t1568 * t2867;
16136   t8487 = t8339 * t238;
16137   t8490 = 0.42504258063891829882e0 * t6056 * t8444 - 0.734005159174078464e0 * t245 * t8447 * t587 + 0.238156450669527040e0 * t8451 * t1535 + 0.461000314880e0 * t575 * t8365 - 0.238156450669527040e0 * t2058 * t6086 - 0.32672968537417605163e1 * t1540 * t8458 - 0.238156450669527040e0 * t1549 * t8461 - 0.238156450669527040e0 * t1549 * t8465 + 0.29967321450326855254e0 * t2058 * t6283 - 0.10979019874935515226e0 * t2052 * t794 + 0.15762619094478157329e0 * t4838 * t8472 + 0.476312901339054080e0 * t2043 * t8476 - 0.1844001259520e1 * t2043 * t8444 + 0.2766001889280e1 * t8439 * t2045 + 0.325024956416e0 * t245 * t8483 * t587 - 0.922000629760e0 * t8487 * t2045;
16138   t8491 = t8336 * t566;
16139   t8496 = t8345 * t566;
16140   t8499 = t2826 * t574;
16141   t8506 = t2833 * t1545;
16142   t8507 = t4785 * t8506;
16143   t8510 = t1568 * t577;
16144   t8511 = t574 * t8510;
16145   t8515 = t792 * t578;
16146   t8516 = t2061 * t8515;
16147   t8524 = t2820 * t574;
16148   t8527 = t2823 * t574;
16149   t8530 = t2833 * t242;
16150   t8531 = t4755 * t8530;
16151   t8534 = t2846 * t242;
16152   t8535 = t1528 * t8534;
16153   t8538 = t4785 * t8530;
16154   t8541 = -0.12751277419167548965e1 * t8491 * t250 - 0.238156450669527040e0 * t6060 * t2085 + 0.21252129031945914941e0 * t8496 * t250 + 0.97972381755974563669e-1 * t8499 * t1530 + 0.42504258063891829882e0 * t6242 * t2062 + 0.42504258063891829882e0 * t2055 * t6233 - 0.28131861550297056947e0 * t4784 * t8507 + 0.29967321450326855254e0 * t8511 * t2061 * t6282 + 0.476312901339054080e0 * t6216 * t8516 + 0.31525238188956314657e0 * t6238 * t3153 * t8515 - 0.42504258063891829883e0 * t6222 * t8516 - 0.42504258063891829883e0 * t8524 * t1530 + 0.21252129031945914941e0 * t8527 * t1530 - 0.42504258063891829883e0 * t1527 * t8531 + 0.21252129031945914941e0 * t1527 * t8535 + 0.37929099725894513314e0 * t1527 * t8538;
16155   t8544 = my_piecewise3(t235, 0, t8397 + t8442 + t8490 + t8541);
16156   t8545 = my_piecewise3(t234, 0, t8544);
16157   t8547 = 0.2e1 * t2038 * t798 + 0.2e1 * t779 * t2112 + t233 * t8545 + t8299 * t252 + t2815 * t593 + t566 * t2873;
16158   t8548 = t56 * t8547;
16159   t8551 = t2876 * t262;
16160   t8554 = t266 * t2118;
16161   t8558 = t345 * t599;
16162   t8559 = t8558 * t266;
16163   t8562 = t2880 * t345;
16164   t8563 = t264 * t599;
16165   t8570 = t1609 * t2875;
16166   t8573 = t68 * t8554;
16167   t8576 = t4897 * t2879;
16168   t8579 = -t8548 * t266 / 0.100e3 - t8551 * t2528 / 0.60e2 - t2122 * t1601 * t8554 / 0.54e2 + 0.5e1 / 0.162e3 * t2880 * t8559 - 0.5e1 / 0.81e2 * t8562 * t8563 * t266 + t604 * t8547 * t266 / 0.100e3 + t8570 * t2528 / 0.180e3 + t2130 * t8573 / 0.162e3 + 0.5e1 / 0.486e3 * t8576 * t8559;
16169   t8582 = -t37 * t2029 * t194 / 0.54e2 + 0.21e2 / 0.160e3 * t346 * t8224 * t194 - 0.81e2 / 0.3200e4 * t2786 * t1991 + 0.2187e4 / 0.2048000e7 * t8230 * t8235 + 0.4e1 * t811 * t2134 + 0.2e1 * t608 * t2890 + 0.2e1 * t269 * t8579;
16170   t8583 = t8582 * t288;
16171   t8585 = t2893 * t631;
16172   t8590 = t2137 * t829;
16173   t8593 = t814 * t2177;
16174   t8598 = params->c1 * t8547;
16175   t8600 = t2899 * t618;
16176   t8615 = t2875 * t599;
16177   t8622 = -t8598 * t279 - 0.10e2 / 0.9e1 * t8600 * t2551 - 0.100e3 / 0.81e2 * t2147 * t2155 - 0.500e3 / 0.81e2 * t2901 * t1631 * t599 - 0.2500e4 / 0.729e3 * t6363 * t2879 * t599 * t24 - 0.1000e4 / 0.243e3 * t2150 * t2151 * t2118 - 0.50e2 / 0.81e2 * t617 * t2557 * t8615 - 0.5e1 / 0.9e1 * t961 * t962 * t8547;
16178   t8631 = t2879 * t345;
16179   t8632 = t8631 * t2164;
16180   t8635 = t285 * t2118;
16181   t8636 = t68 * t8635;
16182   t8642 = t449 * t1630 * t2875;
16183   t8645 = t618 * t8547;
16184   t8648 = t1654 * t2875;
16185   t8649 = t1263 * t8648;
16186   t8657 = my_piecewise3(t277, t2910 * t623 * t283 + t2912 * t623 * t283 + 0.2e1 * t824 * t2158 + t8622 * t283, -0.500e3 / 0.81e2 * t4942 * t8632 - 0.100e3 / 0.81e2 * t2163 * t8636 - 0.500e3 / 0.81e2 * t4953 * t8632 - 0.10e2 / 0.9e1 * t8642 * t628 - t449 * t8645 * t285 - 0.5e1 / 0.9e1 * t8649 * t628 - 0.50e2 / 0.81e2 * t2173 * t8636 - 0.250e3 / 0.243e3 * t4966 * t8632);
16187   t8660 = 0.6e1 * t4566 * t2775 * t611 - 0.4e1 * t1423 * t815 * t2137 + 0.2e1 * t1423 * t8215 - 0.2e1 * t1423 * t8218 + t510 * t8583 - t510 * t8585 + 0.4e1 * t1423 * t2896 * t611 - 0.2e1 * t510 * t8590 - 0.2e1 * t510 * t8593 - t510 * t611 * t2925 - t276 * t8657 + 0.1174e1 * t8657;
16188   t8661 = t8660 * t302;
16189   t8663 = t8 * t175 * t8661;
16190   t8664 = 0.3e1 / 0.8e1 * t8663;
16191   t8665 = -t8176 + t8178 - t8180 + t8183 - t8187 + t8189 - t8191 - t8193 + t8111 + t8198 + t8203 + t8208 - t8664;
16192   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16193     v3rhosigma2[11] = -t2932 + t2934 - t2940 - t2945 + t2952 + t10 * (t8172 + t8665);
16194 
16195   t8669 = t7016 * t3101 / 0.2e1;
16196   t8670 = t15 * t3099;
16197   t8671 = t8670 * t317;
16198   t8674 = t719 * t435;
16199   t8675 = t2226 * t8674;
16200   t8680 = t6499 * t719;
16201   t8683 = t6503 * t719;
16202   t8686 = t2226 * t1866;
16203   t8689 = t1030 * t716;
16204   t8692 = t1863 * t887;
16205   t8696 = t716 * t2345;
16206   t8703 = t3057 * t150;
16207   t8704 = t8703 * t435;
16208   t8707 = t432 * t3057;
16209   t8711 = 0.2e1 * t330 * t8692 * t150 + 0.2e1 * t330 * t8696 * t150 + 0.2e1 * t330 * t8707 * t150 - 0.2e1 * t330 * t2957 * t456 - 0.4e1 * t2225 * t8680 + 0.4e1 * t2225 * t8683 - 0.4e1 * t2225 * t8686 - 0.4e1 * t2225 * t8704 - 0.4e1 * t8689 * t2227 - 0.4e1 * t6496 * t2954 + 0.12e2 * t6492 * t8675;
16210   t8712 = t681 * t19;
16211   t8713 = t8712 * t355;
16212   t8717 = t676 * t382;
16213   t8718 = t376 * t8717;
16214   t8721 = t1091 * t1098;
16215   t8722 = t664 * t387;
16216   t8723 = t2251 * t8722;
16217   t8726 = t6536 * t1759;
16218   t8729 = t1737 * t1098;
16219   t8732 = t77 * t375;
16220   t8734 = t68 * t8732 * t387;
16221   t8737 = t2244 * t1742;
16222   t8740 = t1086 * t85;
16223   t8741 = t8740 * t2979;
16224   t8743 = t376 * t378;
16225   t8744 = t8743 * t2979;
16226   t8746 = t382 * t345;
16227   t8747 = t8746 * t2602;
16228   t8748 = t2976 * t8747;
16229   t8750 = t2977 * t2598;
16230   t8751 = t2976 * t8750;
16231   t8755 = t5203 * t85;
16232   t8760 = 0.5e1 / 0.9e1 * t6580 * t8713 + 0.13e2 / 0.15552e5 * t2616 - 0.10e2 / 0.27e2 * t8718 * t2252 - 0.5e1 / 0.24e2 * t8721 * t8723 + 0.25e2 / 0.324e3 * t6535 * t8726 - 0.10e2 / 0.27e2 * t8729 * t2252 + t8734 / 0.10368e5 - t1737 * t2248 - 0.15e2 / 0.4e1 * t6554 * t8737 + t8741 / 0.5184e4 + t8744 / 0.5184e4 + 0.5e1 / 0.11664e5 * t8748 - 0.13e2 / 0.15552e5 * t8751 + 0.3e1 / 0.4e1 * t6573 * t1742 + 0.3e1 / 0.2e1 * t8755 * t2245 + 0.3e1 / 0.2e1 * t6543 * t2967;
16233   t8763 = t6549 * t681;
16234   t8767 = t2251 * t1725;
16235   t8774 = t6531 * t664;
16236   t8777 = t1091 * t377;
16237   t8779 = t68 * t77 * t387;
16238   t8780 = t8777 * t8779;
16239   t8782 = t2244 * t1764;
16240   t8785 = t1091 * t676;
16241   t8794 = t1751 * t89;
16242   t8795 = t8794 * t857;
16243   t8797 = t2970 * t2255;
16244   t8799 = 0.3e1 / 0.2e1 * t6546 * t2967 + 0.3e1 / 0.2e1 * t2243 * t8763 - t5201 * t858 - 0.10e2 / 0.27e2 * t2250 * t8767 + 0.5e1 / 0.36e2 * t6525 * t2973 + 0.5e1 / 0.36e2 * t6528 * t2973 + 0.5e1 / 0.36e2 * t2250 * t8774 - t8780 / 0.3456e4 + 0.3e1 / 0.2e1 * t2243 * t8782 + 0.3e1 / 0.2e1 * t8785 * t2245 - t6521 * t681 / 0.2e1 - t2239 * t1764 / 0.2e1 - t1737 * t2256 - t1086 * t2971 - t376 * t8795 - t376 * t8797;
16245   t8800 = t8760 + t8799;
16246   t8808 = t111 * t684;
16247   t8809 = t8808 * t404;
16248   t8812 = t684 * t100;
16249   t8813 = t2269 * t8812;
16250   t8828 = -t8800;
16251   t8829 = t401 * t8828;
16252   t8830 = t8829 * t104;
16253   t8836 = t2279 * t7784;
16254   t8839 = -0.42504258063891829883e0 * t6725 * t8809 + 0.97972381755974563669e-1 * t8813 * t5320 - 0.42504258063891829882e0 * t6725 * t7760 - 0.54895099374677576129e-1 * t2273 * t5295 - 0.42504258063891829882e0 * t2273 * t5299 + 0.97972381755974563669e-1 * t6720 * t7767 - 0.28131861550297056947e0 * t6689 * t5303 + 0.37929099725894513314e0 * t2273 * t5306 + 0.461000314880e0 * t399 * t8830 + 0.14983660725163427627e0 * t7822 * t2279 * t5494 + 0.238156450669527040e0 * t5388 * t8836;
16255   t8845 = t689 * t411;
16256   t8849 = t111 * t3741;
16257   t8850 = t1148 * t8849;
16258   t8851 = t689 * t402;
16259   t8852 = t6656 * t8851;
16260   t8859 = t2989 * t398;
16261   t8866 = t3011 * t104;
16262   t8867 = t1137 * t8866;
16263   t8870 = t865 * t689;
16264   t8871 = t8870 * t1159;
16265   t8874 = 0.15762619094478157328e0 * t5504 * t6656 * t7784 - 0.21252129031945914941e0 * t5394 * t8836 + 0.15762619094478157329e0 * t5504 * t6656 * t8845 + 0.36614111499190467036e1 * t8850 * t8852 + 0.21252129031945914941e0 * t5508 * t2280 + 0.21252129031945914941e0 * t1784 * t6742 + 0.21252129031945914941e0 * t8859 * t1139 + 0.21252129031945914941e0 * t6696 * t1791 + 0.21252129031945914941e0 * t2273 * t5499 + 0.21252129031945914941e0 * t1136 * t8867 - 0.21252129031945914941e0 * t5394 * t8871;
16266   t8876 = t111 * t3757;
16267   t8877 = t398 * t8876;
16268   t8878 = t8870 * t1138;
16269   t8883 = t398 * t874;
16270   t8886 = t1148 * t874;
16271   t8893 = t398 * t3862;
16272   t8896 = t398 * t8849;
16273   t8899 = t3754 * t8876;
16274   t8900 = t865 * t3759;
16275   t8904 = t1148 * t8876;
16276   t8909 = 0.14683899485061986386e1 * t8877 * t8878 + 0.14983660725163427627e0 * t6717 * t1799 + 0.238156450669527040e0 * t8883 * t1803 + 0.15762619094478157328e0 * t8886 * t1796 - 0.21252129031945914941e0 * t8883 * t1811 + 0.238156450669527040e0 * t5388 * t8871 + 0.2766001889280e1 * t8893 * t8878 - 0.4936538891835801600e1 * t8896 * t8878 + 0.18968792869915364414e1 * t8899 * t8900 * t8851 - 0.32672968537417605163e1 * t8904 * t8852 + 0.14983660725163427627e0 * t6717 * t1818;
16277   t8913 = t1137 * t2279 * t390;
16278   t8916 = t8870 * t104;
16279   t8917 = t3862 * t8916;
16280   t8922 = t874 * t691;
16281   t8929 = t5319 * t867;
16282   t8937 = t3862 * t6656 * t689;
16283   t8941 = t3856 * t2279 * t697;
16284   t8944 = -0.54895099374677576130e-1 * t2273 * t5309 - 0.42504258063891829882e0 * t5312 * t8913 + 0.37929099725894513314e0 * t1136 * t8917 - 0.54895099374677576130e-1 * t1784 * t6664 - 0.54895099374677576130e-1 * t1136 * t8922 - 0.54895099374677576129e-1 * t1784 * t6668 - 0.42504258063891829882e0 * t1784 * t6653 + 0.97972381755974563669e-1 * t5318 * t8929 - 0.28131861550297056947e0 * t5399 * t6658 + 0.37929099725894513314e0 * t1784 * t6661 - 0.28131861550297056947e0 * t3861 * t8937 - 0.54895099374677576130e-1 * t1136 * t8941;
16285   t8947 = t3840 * t8916;
16286   t8953 = t1143 * t3037;
16287   t8956 = t6620 * t1790;
16288   t8959 = t2290 * t5498;
16289   t8965 = t1164 * t3011;
16290   t8966 = t8965 * t1138;
16291   t8969 = t6610 * t684;
16292   t8974 = t1151 * t3011;
16293   t8978 = t8974 * t1138;
16294   t8981 = -0.42504258063891829883e0 * t1136 * t8947 + 0.325024956416e0 * t107 * t6735 * t697 - 0.119078225334763520e0 * t1142 * t8953 - 0.922000629760e0 * t399 * t8956 - 0.922000629760e0 * t399 * t8959 - 0.119078225334763520e0 * t1158 * t3012 * t1159 - 0.922000629760e0 * t399 * t8966 + 0.21252129031945914941e0 * t8969 * t112 - 0.922000629760e0 * t6794 * t2986 - 0.61023519165317445059e0 * t1149 * t8974 * t1795 + 0.822756481972633600e0 * t399 * t8978;
16295   t8982 = t6632 * t1790;
16296   t8985 = t2283 * t5498;
16297   t8988 = t684 * t411;
16298   t8989 = t1143 * t8988;
16299   t8992 = t6602 * t390;
16300   t8993 = t107 * t8808;
16301   t8999 = t1132 * t2982;
16302   t9000 = t8999 * t390;
16303   t9003 = t393 * t8800;
16304   t9007 = t1143 * t873 * t390;
16305   t9014 = t6754 * t1790;
16306   t9017 = t2989 * t100;
16307   t9020 = 0.822756481972633600e0 * t399 * t8982 + 0.822756481972633600e0 * t399 * t8985 + 0.238156450669527040e0 * t2263 * t8989 - 0.12751277419167548965e1 * t8992 * t8993 + 0.325024956416e0 * t107 * t2309 * t1835 + 0.21252129031945914941e0 * t9000 * t112 + 0.461000314880e0 * t9003 * t112 + 0.238156450669527040e0 * t1772 * t9007 + 0.14983660725163427627e0 * t1787 * t6751 - 0.54895099374677576130e-1 * t1781 * t875 - 0.119078225334763520e0 * t1158 * t9014 - 0.119078225334763520e0 * t9017 * t1144;
16308   t9027 = t873 * t697;
16309   t9028 = t3802 * t9027;
16310   t9042 = t1123 * t2982;
16311   t9043 = t9042 * t100;
16312   t9046 = t107 * t3814;
16313   t9047 = t9027 * t411;
16314   t9050 = t2269 * t1767;
16315   t9053 = t3027 * t390;
16316   t9074 = t2283 * t5298;
16317   t9077 = t6623 * t5298;
16318   t9085 = t6637 * t5298;
16319   t9087 = 0.10708320e2 * t2269 * t9053 - 0.3569440e1 * t6599 * t3027 - 0.19111352870400e2 * t6602 * t9053 - 0.3569440e1 * t2262 * t7889 - 0.3569440e1 * t9042 * t1825 + 0.1784720e1 * t9003 * t109 + 0.3185225478400e1 * t8999 * t1825 + 0.3185225478400e1 * t6610 * t3027 + 0.3185225478400e1 * t2269 * t7889 + 0.5684735615810048000e1 * t6615 * t9053 + 0.10708320e2 * t9074 - 0.3569440e1 * t8956 - 0.19111352870400e2 * t9077 - 0.3569440e1 * t8959 - 0.3569440e1 * t8966 + 0.1784720e1 * t8830 + 0.3185225478400e1 * t8978 + 0.3185225478400e1 * t8982 + 0.3185225478400e1 * t8985 + 0.5684735615810048000e1 * t9085;
16320   t9091 = -0.119078225334763520e0 * t6800 * t1814 - 0.119078225334763520e0 * t1158 * t2305 * t5498 + 0.14983660725163427627e0 * t1142 * t9028 - 0.61023519165317445059e0 * t1149 * t6632 * t3001 - 0.61023519165317445059e0 * t1149 * t2283 * t7930 - 0.119078225334763520e0 * t1158 * t2295 * t2658 - 0.119078225334763520e0 * t5291 * t2302 - 0.922000629760e0 * t9043 * t1774 - 0.734005159174078464e0 * t9046 * t9047 + 0.21252129031945914941e0 * t9050 * t112 - 0.258304e0 * t107 * t407 * t9087;
16321   t9096 = t3037 * t401;
16322   t9097 = t9096 * t1138;
16323   t9100 = t1177 * t3037;
16324   t9109 = t684 * t390;
16325   t9110 = t1773 * t9109;
16326   t9121 = t6615 * t684;
16327   t9122 = t5317 * t1773;
16328   t9125 = -0.119078225334763520e0 * t2276 * t5434 - 0.119078225334763520e0 * t1787 * t6671 - 0.119078225334763520e0 * t1158 * t9097 + 0.325024956416e0 * t107 * t9100 * t411 - 0.119078225334763520e0 * t1158 * t866 * t7831 - 0.922000629760e0 * t2263 * t7944 + 0.2766001889280e1 * t6728 * t9110 + 0.238156450669527040e0 * t2263 * t7939 + 0.14983660725163427627e0 * t2276 * t5495 - 0.54895099374677576130e-1 * t2270 * t699 - 0.54895099374677576129e-1 * t2992 * t413 + 0.97972381755974563669e-1 * t9121 * t9122;
16329   t9129 = my_piecewise3(t97, 0, t8839 + t8874 + t8909 + t8944 + t8981 + t9020 + t9091 + t9125);
16330   t9130 = my_piecewise3(t96, 0, t9129);
16331   t9132 = -t8800 * t114 - t1767 * t879 - t860 * t1841 - t2258 * t703 - t684 * t2328 - t2982 * t417 - t390 * t3043 - t95 * t9130;
16332   t9133 = t56 * t9132;
16333   t9136 = t3046 * t124;
16334   t9141 = t882 * t423;
16335   t9143 = t68 * t709 * t128;
16336   t9146 = t1897 * t2335;
16337   t9149 = t126 * t709;
16338   t9150 = t882 * t9149;
16339   t9156 = t1218 * t3045;
16340   t9163 = t3949 * t3076;
16341   t9166 = t9133 * t128 / 0.100e3 + t9136 * t2336 / 0.60e2 + t6833 * t3049 / 0.60e2 - t9141 * t9143 / 0.108e3 + t2334 * t9146 / 0.60e2 + t9150 * t1860 / 0.54e2 - t428 * t9132 * t128 / 0.100e3 - t9156 * t2336 / 0.180e3 - t6850 * t3049 / 0.180e3 - t2342 * t9146 / 0.180e3 - t9163 * t1860 / 0.324e3;
16342   t9167 = t131 * t9166;
16343   t9174 = t887 * t734;
16344   t9175 = t9174 * t435;
16345   t9190 = t1866 * t905;
16346   t9192 = t719 * t2390;
16347   t9197 = -params->c1 * t9132;
16348   t9199 = t3068 * t442;
16349   t9204 = t709 * t36;
16350   t9205 = t39 * t423;
16351   t9206 = t9204 * t9205;
16352   t9209 = t1897 * t23;
16353   t9212 = t1873 * t19;
16354   t9219 = t709 * t423;
16355   t9223 = t2330 * t709;
16356   t9227 = t881 * t1847;
16357   t9228 = t2365 * t9227;
16358   t9233 = t3045 * t423;
16359   t9234 = t2365 * t9233;
16360   t9237 = t896 * t9132;
16361   t9240 = -t9197 * t141 - 0.5e1 / 0.9e1 * t9199 * t2359 - 0.5e1 / 0.9e1 * t6880 * t3070 - 0.50e2 / 0.81e2 * t6883 * t9206 - 0.5e1 / 0.9e1 * t2358 * t9209 + 0.5e1 / 0.9e1 * t9212 * t897 + 0.100e3 / 0.81e2 * t1876 * t2367 + 0.5e1 / 0.9e1 * t3073 * t2370 + 0.500e3 / 0.81e2 * t1879 * t2385 * t9219 + 0.50e2 / 0.81e2 * t441 * t2365 * t9223 + 0.50e2 / 0.81e2 * t441 * t9228 + 0.5e1 / 0.9e1 * t2362 * t3080 + 0.50e2 / 0.81e2 * t441 * t9234 + 0.5e1 / 0.9e1 * t895 * t9237;
16362   t9244 = t2373 * t728;
16363   t9246 = t900 * t1887;
16364   t9250 = t147 * t709;
16365   t9252 = t9250 * t68 * t423;
16366   t9262 = t449 * t1239 * t3045;
16367   t9265 = t442 * t9132;
16368   t9268 = t1265 * t3045;
16369   t9269 = t1263 * t9268;
16370   t9279 = my_piecewise3(t139, t3083 * t447 * t145 + t9240 * t145 + t9244 * t145 + t9246 * t145 + t3085 * t448, 0.50e2 / 0.27e2 * t6923 * t9252 + 0.10e2 / 0.9e1 * t6927 * t731 + 0.50e2 / 0.27e2 * t6931 * t9252 + 0.10e2 / 0.9e1 * t2379 * t1898 + 0.10e2 / 0.9e1 * t9262 * t453 + t449 * t9265 * t147 + 0.5e1 / 0.9e1 * t9269 * t453 + 0.5e1 / 0.9e1 * t6940 * t731 + 0.5e1 / 0.9e1 * t2386 * t1898 + 0.25e2 / 0.81e2 * t6946 * t9252);
16371   t9282 = 0.2e1 * t330 * t9167 * t150 - 0.2e1 * t330 * t3058 * t456 + 0.4e1 * t2225 * t9175 - 0.2e1 * t330 * t2230 * t734 - 0.2e1 * t330 * t2346 * t734 - 0.2e1 * t330 * t888 * t1906 + 0.2e1 * t1030 * t3065 * t435 - t330 * t9190 - t330 * t9192 - t330 * t435 * t3096 - t138 * t9279 + 0.1174e1 * t9279;
16372   t9283 = t8711 + t9282;
16373   t9285 = t847 * t9283 * t167;
16374   t9288 = t847 * t3099;
16375   t9289 = t2399 * t9288;
16376   t9293 = 0.12369750000000000000e1 * t6475 * t745;
16377   t9298 = t2398 * t6966;
16378   t9300 = t908 * t1284 * t19;
16379   t9301 = t9300 * t1929;
16380   t9306 = t908 * t1939;
16381   t9308 = t9306 * t26 * t1301;
16382   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16383     v3rhosigmalapl[0] = -t8669 - t2220 * t8671 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t9285 - 0.24739500000000000000e1 * t9289 * t480 + t9293 + 0.12369750000000000000e1 * t6486 * t1919 + 0.92773125000000000000e0 * t6959 * t745 + 0.11132775000000000000e2 * t9298 * t9301 - 0.12369750000000000000e1 * t2401 * t1935 - 0.30203104535893596325e2 * t6967 * t9308;
16384 
16385   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16386     v3rhosigmalapl[1] = 0.0e0;
16387 
16388   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16389     v3rhosigmalapl[2] = 0.0e0;
16390 
16391   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16392     v3rhosigmalapl[3] = 0.0e0;
16393 
16394   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16395     v3rhosigmalapl[4] = 0.0e0;
16396 
16397   t9312 = t7016 * t3253 / 0.2e1;
16398   t9313 = t173 * t3251;
16399   t9314 = t9313 * t487;
16400   t9318 = 0.12369750000000000000e1 * t7025 * t840;
16401   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16402     v3rhosigmalapl[5] = -t9312 - t2220 * t9314 / 0.2e1 + t9318 + 0.12369750000000000000e1 * t7029 * t1955;
16403 
16404   t9321 = t8670 * t499;
16405   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16406     v3rhosigmalapl[6] = -t8669 - t2220 * t9321 / 0.2e1 + t9293 + 0.12369750000000000000e1 * t6486 * t1966;
16407 
16408   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16409     v3rhosigmalapl[7] = 0.0e0;
16410 
16411   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16412     v3rhosigmalapl[8] = 0.0e0;
16413 
16414   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16415     v3rhosigmalapl[9] = 0.0e0;
16416 
16417   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16418     v3rhosigmalapl[10] = 0.0e0;
16419 
16420   t9326 = t9313 * t504;
16421   t9329 = t814 * t611;
16422   t9330 = t2418 * t9329;
16423   t9335 = t7058 * t814;
16424   t9338 = t7062 * t814;
16425   t9341 = t2418 * t2137;
16426   t9344 = t1423 * t811;
16427   t9347 = t2134 * t953;
16428   t9351 = t811 * t2537;
16429   t9358 = t3209 * t288;
16430   t9359 = t9358 * t611;
16431   t9362 = t608 * t3209;
16432   t9366 = 0.2e1 * t510 * t9347 * t288 + 0.2e1 * t510 * t9351 * t288 + 0.2e1 * t510 * t9362 * t288 - 0.2e1 * t510 * t3109 * t631 - 0.4e1 * t2417 * t9335 + 0.4e1 * t2417 * t9338 - 0.4e1 * t2417 * t9341 - 0.4e1 * t2417 * t9359 - 0.4e1 * t9344 * t2419 - 0.4e1 * t7055 * t3106 + 0.12e2 * t7051 * t9330;
16433   t9367 = t2008 * t1489;
16434   t9370 = t771 * t558;
16435   t9371 = t552 * t9370;
16436   t9374 = t1482 * t1489;
16437   t9375 = t759 * t563;
16438   t9376 = t2443 * t9375;
16439   t9379 = t7091 * t2030;
16440   t9385 = t776 * t19;
16441   t9386 = t9385 * t531;
16442   t9391 = t2443 * t1996;
16443   t9394 = t215 * t551;
16444   t9396 = t68 * t9394 * t563;
16445   t9401 = t7121 * t776;
16446   t9404 = t2436 * t2035;
16447   t9407 = t1482 * t771;
16448   t9410 = -0.10e2 / 0.27e2 * t9367 * t2444 - 0.10e2 / 0.27e2 * t9371 * t2444 - 0.5e1 / 0.24e2 * t9374 * t9376 + 0.25e2 / 0.324e3 * t7090 * t9379 - t7143 * t776 / 0.2e1 + 0.13e2 / 0.15552e5 * t2796 + 0.5e1 / 0.9e1 * t7132 * t9386 - t2431 * t2035 / 0.2e1 - 0.10e2 / 0.27e2 * t2442 * t9391 + t9396 / 0.10368e5 - t5975 * t924 - t2008 * t2440 - t2008 * t2448 + 0.3e1 / 0.2e1 * t2435 * t9401 + 0.3e1 / 0.2e1 * t2435 * t9404 + 0.3e1 / 0.2e1 * t9407 * t2437;
16449   t9415 = t1477 * t223;
16450   t9416 = t9415 * t3131;
16451   t9418 = t552 * t554;
16452   t9419 = t9418 * t3131;
16453   t9421 = t558 * t345;
16454   t9422 = t9421 * t2782;
16455   t9423 = t3128 * t9422;
16456   t9425 = t2436 * t2013;
16457   t9428 = t3129 * t2778;
16458   t9429 = t3128 * t9428;
16459   t9434 = t2022 * t227;
16460   t9435 = t9434 * t923;
16461   t9437 = t3122 * t2447;
16462   t9439 = t5977 * t223;
16463   t9446 = t7086 * t759;
16464   t9449 = t1482 * t553;
16465   t9451 = t68 * t215 * t563;
16466   t9452 = t9449 * t9451;
16467   t9454 = 0.3e1 / 0.2e1 * t7115 * t3119 + 0.3e1 / 0.2e1 * t7118 * t3119 + t9416 / 0.5184e4 + t9419 / 0.5184e4 + 0.5e1 / 0.11664e5 * t9423 - 0.15e2 / 0.4e1 * t7095 * t9425 - 0.13e2 / 0.15552e5 * t9429 + 0.3e1 / 0.4e1 * t7128 * t2013 - t1477 * t3123 - t552 * t9435 - t552 * t9437 + 0.3e1 / 0.2e1 * t9439 * t2437 + 0.5e1 / 0.36e2 * t7080 * t3125 + 0.5e1 / 0.36e2 * t7083 * t3125 + 0.5e1 / 0.36e2 * t2442 * t9446 - t9452 / 0.3456e4;
16468   t9455 = t9410 + t9454;
16469   t9466 = t1555 * t3163;
16470   t9467 = t9466 * t1529;
16471   t9470 = t3189 * t577;
16472   t9471 = t9470 * t1529;
16473   t9474 = t779 * t238;
16474   t9475 = t2461 * t9474;
16475   t9492 = -0.119078225334763520e0 * t1549 * t3164 * t1550 - 0.922000629760e0 * t575 * t9467 - 0.119078225334763520e0 * t1549 * t9471 + 0.97972381755974563669e-1 * t9475 * t6092 - 0.42504258063891829882e0 * t7216 * t8308 - 0.54895099374677576129e-1 * t2465 * t6102 - 0.42504258063891829882e0 * t2465 * t6106 + 0.97972381755974563669e-1 * t7203 * t8315 - 0.28131861550297056947e0 * t7287 * t6110 + 0.37929099725894513314e0 * t2465 * t6113 - 0.54895099374677576130e-1 * t2465 * t6095;
16476   t9494 = t1528 * t2471 * t566;
16477   t9501 = t6091 * t933;
16478   t9506 = t249 * t779;
16479   t9507 = t9506 * t580;
16480   t9513 = t4785 * t7222 * t784;
16481   t9517 = t4848 * t2471 * t792;
16482   t9520 = t2471 * t784;
16483   t9521 = t4755 * t9520;
16484   t9524 = t4785 * t9520;
16485   t9527 = -0.42504258063891829882e0 * t6116 * t9494 - 0.54895099374677576129e-1 * t2055 * t7209 - 0.42504258063891829882e0 * t2055 * t7213 + 0.97972381755974563669e-1 * t6090 * t9501 - 0.28131861550297056947e0 * t6225 * t7224 - 0.42504258063891829883e0 * t7216 * t9507 + 0.37929099725894513314e0 * t2055 * t7227 - 0.28131861550297056947e0 * t4784 * t9513 - 0.54895099374677576130e-1 * t1527 * t9517 - 0.42504258063891829883e0 * t1527 * t9521 + 0.37929099725894513314e0 * t1527 * t9524;
16486   t9532 = t574 * t940;
16487   t9540 = t931 * t578;
16488   t9541 = t9540 * t2838;
16489   t9544 = t784 * t587;
16490   t9545 = t2471 * t9544;
16491   t9548 = t574 * t4785;
16492   t9549 = t784 * t578;
16493   t9550 = t2471 * t9549;
16494   t9553 = t249 * t4761;
16495   t9554 = t574 * t9553;
16496   t9557 = t3163 * t242;
16497   t9558 = t1528 * t9557;
16498   t9565 = 0.325024956416e0 * t245 * t7260 * t792 - 0.21252129031945914941e0 * t9532 * t2082 + 0.14983660725163427627e0 * t7296 * t2089 + 0.15762619094478157328e0 * t6238 * t7222 * t8515 - 0.21252129031945914941e0 * t6222 * t9541 + 0.238156450669527040e0 * t6216 * t9545 + 0.2766001889280e1 * t9548 * t9550 - 0.4936538891835801600e1 * t9554 * t9550 + 0.21252129031945914941e0 * t1527 * t9558 - 0.21252129031945914941e0 * t6222 * t9545 + 0.21252129031945914941e0 * t7282 * t2062;
16499   t9575 = t1539 * t9553;
16500   t9576 = t7222 * t9549;
16501   t9579 = t249 * t4699;
16502   t9580 = t4706 * t9579;
16503   t9581 = t931 * t4708;
16504   t9585 = t1539 * t9579;
16505   t9593 = t574 * t9579;
16506   t9600 = 0.21252129031945914941e0 * t2465 * t6233 + 0.21252129031945914941e0 * t6242 * t2472 + 0.21252129031945914941e0 * t2055 * t7269 + 0.15762619094478157329e0 * t6238 * t7222 * t9544 + 0.36614111499190467036e1 * t9575 * t9576 + 0.18968792869915364414e1 * t9580 * t9581 * t9549 - 0.32672968537417605163e1 * t9585 * t9576 + 0.14983660725163427627e0 * t8511 * t2471 * t6282 + 0.238156450669527040e0 * t6216 * t9541 + 0.14683899485061986386e1 * t9593 * t9550 + 0.14983660725163427627e0 * t7296 * t2070 + 0.238156450669527040e0 * t9532 * t2074;
16507   t9603 = t1539 * t940;
16508   t9606 = t3179 * t566;
16509   t9615 = t1514 * t3134;
16510   t9618 = t569 * t9455;
16511   t9621 = t1523 * t3134;
16512   t9630 = t2475 * t6105;
16513   t9632 = t7179 * t2061;
16514   t9634 = t7182 * t6105;
16515   t9636 = t2482 * t6232;
16516   t9639 = -t9455;
16517   t9640 = t577 * t9639;
16518   t9641 = t9640 * t242;
16519   t9643 = t1542 * t3163;
16520   t9644 = t9643 * t1529;
16521   t9646 = t7191 * t2061;
16522   t9648 = t2475 * t6232;
16523   t9650 = t7196 * t6105;
16524   t9652 = 0.10708320e2 * t2461 * t9606 - 0.3569440e1 * t7158 * t3179 - 0.19111352870400e2 * t7161 * t9606 - 0.3569440e1 * t2454 * t8333 - 0.3569440e1 * t9615 * t2096 + 0.1784720e1 * t9618 * t247 + 0.3185225478400e1 * t9621 * t2096 + 0.3185225478400e1 * t7169 * t3179 + 0.3185225478400e1 * t2461 * t8333 + 0.5684735615810048000e1 * t7174 * t9606 + 0.10708320e2 * t9630 - 0.3569440e1 * t9632 - 0.19111352870400e2 * t9634 - 0.3569440e1 * t9636 - 0.3569440e1 * t9467 + 0.1784720e1 * t9641 + 0.3185225478400e1 * t9644 + 0.3185225478400e1 * t9646 + 0.3185225478400e1 * t9648 + 0.5684735615810048000e1 * t9650;
16525   t9658 = t940 * t786;
16526   t9663 = t3141 * t574;
16527   t9666 = t9615 * t238;
16528   t9669 = t2461 * t2038;
16529   t9672 = t7169 * t779;
16530   t9679 = 0.15762619094478157328e0 * t9603 * t2067 - 0.258304e0 * t245 * t583 * t9652 - 0.54895099374677576130e-1 * t2055 * t7219 - 0.54895099374677576130e-1 * t1527 * t9658 + 0.461000314880e0 * t575 * t9641 + 0.21252129031945914941e0 * t9663 * t1530 - 0.922000629760e0 * t9666 * t2045 + 0.21252129031945914941e0 * t9669 * t250 + 0.21252129031945914941e0 * t9672 * t250 - 0.922000629760e0 * t575 * t9632 - 0.922000629760e0 * t575 * t9636;
16531   t9688 = t9621 * t566;
16532   t9691 = t3141 * t238;
16533   t9700 = t245 * t4688;
16534   t9701 = t939 * t792;
16535   t9702 = t9701 * t587;
16536   t9713 = -0.61023519165317445059e0 * t1540 * t7191 * t3153 - 0.61023519165317445059e0 * t1540 * t2475 * t8425 - 0.922000629760e0 * t2455 * t8444 + 0.21252129031945914941e0 * t9688 * t250 - 0.119078225334763520e0 * t9691 * t1535 - 0.119078225334763520e0 * t2058 * t7246 - 0.922000629760e0 * t7346 * t3138 - 0.119078225334763520e0 * t6060 * t2494 - 0.734005159174078464e0 * t9700 * t9702 - 0.119078225334763520e0 * t1549 * t2487 * t2838 - 0.119078225334763520e0 * t1549 * t932 * t8464 - 0.54895099374677576130e-1 * t2462 * t794;
16537   t9721 = t7174 * t779;
16538   t9722 = t6089 * t2044;
16539   t9728 = t7161 * t566;
16540   t9729 = t245 * t9506;
16541   t9732 = t779 * t566;
16542   t9733 = t2044 * t9732;
16543   t9736 = t779 * t587;
16544   t9737 = t1534 * t9736;
16545   t9747 = 0.238156450669527040e0 * t2455 * t8476 + 0.14983660725163427627e0 * t2468 * t6283 - 0.54895099374677576129e-1 * t3144 * t589 + 0.97972381755974563669e-1 * t9721 * t9722 + 0.325024956416e0 * t245 * t2501 * t2106 - 0.12751277419167548965e1 * t9728 * t9729 + 0.2766001889280e1 * t7365 * t9733 + 0.238156450669527040e0 * t2455 * t9737 - 0.119078225334763520e0 * t1549 * t2497 * t6232 - 0.119078225334763520e0 * t2468 * t6086 - 0.54895099374677576130e-1 * t2052 * t941;
16546   t9748 = t7299 * t2061;
16547   t9755 = t1568 * t3189;
16548   t9759 = t4718 * t9701;
16549   t9771 = t939 * t566;
16550   t9772 = t1534 * t9771;
16551   t9777 = t1534 * t3189;
16552   t9780 = -0.119078225334763520e0 * t1549 * t9748 + 0.461000314880e0 * t9618 * t250 - 0.119078225334763520e0 * t7343 * t2085 + 0.325024956416e0 * t245 * t9755 * t587 + 0.14983660725163427627e0 * t1533 * t9759 - 0.61023519165317445059e0 * t1540 * t9643 * t2066 + 0.822756481972633600e0 * t575 * t9644 + 0.822756481972633600e0 * t575 * t9646 + 0.822756481972633600e0 * t575 * t9648 + 0.238156450669527040e0 * t2043 * t9772 + 0.14983660725163427627e0 * t2058 * t7337 - 0.119078225334763520e0 * t1533 * t9777;
16553   t9784 = my_piecewise3(t235, 0, t9492 + t9527 + t9565 + t9600 + t9679 + t9713 + t9747 + t9780);
16554   t9785 = my_piecewise3(t234, 0, t9784);
16555   t9787 = -t2038 * t945 - t926 * t2112 - t233 * t9785 - t2450 * t798 - t9455 * t252 - t779 * t2520 - t3134 * t593 - t566 * t3195;
16556   t9788 = t56 * t9787;
16557   t9791 = t3198 * t262;
16558   t9796 = t948 * t599;
16559   t9798 = t68 * t804 * t266;
16560   t9801 = t2168 * t2527;
16561   t9804 = t264 * t804;
16562   t9805 = t948 * t9804;
16563   t9811 = t1609 * t3197;
16564   t9818 = t4897 * t3228;
16565   t9821 = t9788 * t266 / 0.100e3 + t9791 * t2528 / 0.60e2 + t7392 * t3201 / 0.60e2 - t9796 * t9798 / 0.108e3 + t2526 * t9801 / 0.60e2 + t9805 * t2131 / 0.54e2 - t604 * t9787 * t266 / 0.100e3 - t9811 * t2528 / 0.180e3 - t7409 * t3201 / 0.180e3 - t2534 * t9801 / 0.180e3 - t9818 * t2131 / 0.324e3;
16566   t9822 = t269 * t9821;
16567   t9829 = t953 * t829;
16568   t9830 = t9829 * t611;
16569   t9845 = t2137 * t971;
16570   t9847 = t814 * t2582;
16571   t9852 = -params->c1 * t9787;
16572   t9854 = t3220 * t618;
16573   t9859 = t804 * t36;
16574   t9860 = t39 * t599;
16575   t9861 = t9859 * t9860;
16576   t9864 = t2168 * t23;
16577   t9867 = t2144 * t19;
16578   t9874 = t804 * t599;
16579   t9878 = t2522 * t804;
16580   t9882 = t947 * t2118;
16581   t9883 = t2557 * t9882;
16582   t9888 = t3197 * t599;
16583   t9889 = t2557 * t9888;
16584   t9892 = t962 * t9787;
16585   t9895 = -t9852 * t279 - 0.5e1 / 0.9e1 * t9854 * t2551 - 0.5e1 / 0.9e1 * t7439 * t3222 - 0.50e2 / 0.81e2 * t7442 * t9861 - 0.5e1 / 0.9e1 * t2550 * t9864 + 0.5e1 / 0.9e1 * t9867 * t963 + 0.100e3 / 0.81e2 * t2147 * t2559 + 0.5e1 / 0.9e1 * t3225 * t2562 + 0.500e3 / 0.81e2 * t2150 * t2577 * t9874 + 0.50e2 / 0.81e2 * t617 * t2557 * t9878 + 0.50e2 / 0.81e2 * t617 * t9883 + 0.5e1 / 0.9e1 * t2554 * t3232 + 0.50e2 / 0.81e2 * t617 * t9889 + 0.5e1 / 0.9e1 * t961 * t9892;
16586   t9899 = t2565 * t823;
16587   t9901 = t966 * t2158;
16588   t9905 = t285 * t804;
16589   t9907 = t9905 * t68 * t599;
16590   t9917 = t449 * t1630 * t3197;
16591   t9920 = t618 * t9787;
16592   t9923 = t1654 * t3197;
16593   t9924 = t1263 * t9923;
16594   t9934 = my_piecewise3(t277, t3235 * t623 * t283 + t9895 * t283 + t9899 * t283 + t9901 * t283 + t3237 * t624, 0.50e2 / 0.27e2 * t7482 * t9907 + 0.10e2 / 0.9e1 * t7486 * t826 + 0.50e2 / 0.27e2 * t7490 * t9907 + 0.10e2 / 0.9e1 * t2571 * t2169 + 0.10e2 / 0.9e1 * t9917 * t628 + t449 * t9920 * t285 + 0.5e1 / 0.9e1 * t9924 * t628 + 0.5e1 / 0.9e1 * t7499 * t826 + 0.5e1 / 0.9e1 * t2578 * t2169 + 0.25e2 / 0.81e2 * t7505 * t9907);
16595   t9937 = 0.2e1 * t510 * t9822 * t288 - 0.2e1 * t510 * t3210 * t631 + 0.4e1 * t2417 * t9830 - 0.2e1 * t510 * t2422 * t829 - 0.2e1 * t510 * t2538 * t829 - 0.2e1 * t510 * t954 * t2177 + 0.2e1 * t1423 * t3217 * t611 - t510 * t9845 - t510 * t9847 - t510 * t611 * t3248 - t276 * t9934 + 0.1174e1 * t9934;
16596   t9938 = t9366 + t9937;
16597   t9940 = t913 * t9938 * t302;
16598   t9943 = t913 * t3251;
16599   t9944 = t2399 * t9943;
16600   t9951 = t2398 * t7525;
16601   t9953 = t974 * t1673 * t19;
16602   t9954 = t9953 * t2198;
16603   t9959 = t974 * t2208;
16604   t9961 = t9959 * t177 * t1690;
16605   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16606     v3rhosigmalapl[11] = -t9312 - t2220 * t9326 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t9940 - 0.24739500000000000000e1 * t9944 * t649 + t9318 + 0.12369750000000000000e1 * t7029 * t2190 + 0.92773125000000000000e0 * t7518 * t840 + 0.11132775000000000000e2 * t9951 * t9954 - 0.12369750000000000000e1 * t2591 * t2204 - 0.30203104535893596325e2 * t7526 * t9961;
16607 
16608   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16609     v3rhosigmatau[0] = 0.0e0;
16610 
16611   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16612     v3rhosigmatau[1] = 0.0e0;
16613 
16614   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16615     v3rhosigmatau[2] = 0.0e0;
16616 
16617   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16618     v3rhosigmatau[3] = 0.0e0;
16619 
16620   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16621     v3rhosigmatau[4] = 0.0e0;
16622 
16623   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16624     v3rhosigmatau[5] = 0.0e0;
16625 
16626   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16627     v3rhosigmatau[6] = 0.0e0;
16628 
16629   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16630     v3rhosigmatau[7] = 0.0e0;
16631 
16632   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16633     v3rhosigmatau[8] = 0.0e0;
16634 
16635   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16636     v3rhosigmatau[9] = 0.0e0;
16637 
16638   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16639     v3rhosigmatau[10] = 0.0e0;
16640 
16641   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16642     v3rhosigmatau[11] = 0.0e0;
16643 
16644   t9964 = t7016 * t3397;
16645   t9966 = t15 * t3395;
16646   t9967 = t9966 * t317;
16647   t9970 = t3619 * t132;
16648   t9971 = t3263 * t435;
16649   t9977 = t1030 * t132;
16650   t9978 = t2226 * t2345;
16651   t9988 = t3258 * t456;
16652   t9991 = t3356 * t150;
16653   t9992 = t9991 * t435;
16654   t9995 = t432 * t3356;
16655   t10000 = t72 * t375;
16656   t10006 = t6573 * t85;
16657   t10011 = t2239 * t1098;
16658   t10018 = t3694 * t86;
16659   t10019 = t1106 * t3271;
16660   t10020 = t10019 * t387;
16661   t10023 = t10019 * t378;
16662   t10027 = t1091 * t3721;
16663   t10028 = t3271 * t19;
16664   t10029 = t10028 * t355;
16665   t10032 = t1091 * t86;
16666   t10033 = t1106 * t857;
16667   t10034 = t10033 * t2255;
16668   t10038 = t3275 * t387;
16669   t10041 = t2244 * t2255;
16670   t10044 = t3271 * t382;
16671   t10045 = t376 * t10044;
16672   t10051 = t68 * t72 * t387;
16673   t10056 = t3566 * sigma[0];
16674   t10057 = t8746 * t10056;
16675   t10061 = 0.20e2 / 0.9e1 * t10027 * t10029 + 0.6e1 * t10032 * t10034 - t1086 * t3275 + 0.3e1 / 0.2e1 * t1091 * t10038 - 0.2e1 * t376 * t10041 - 0.10e2 / 0.27e2 * t10045 * t334 - t8740 * t3278 / 0.2916e4 + t8777 * t10051 / 0.1944e4 - t8743 * t3278 / 0.2916e4 - 0.5e1 / 0.6561e4 * t2976 * t10057 + 0.5e1 / 0.4374e4 * t2980;
16676   t10062 = -0.5e1 / 0.4374e4 * t2962 - t68 * t10000 * t387 / 0.5832e4 - 0.2e1 * t6521 * t858 + 0.3e1 * t10006 * t2245 - 0.2e1 * t2239 * t2248 - 0.20e2 / 0.27e2 * t10011 * t2252 - 0.2e1 * t2239 * t2256 + 0.3e1 * t3686 * t3272 - 0.15e2 / 0.2e1 * t10018 * t10020 + 0.6e1 * t2243 * t10023 + t10061;
16677   t10073 = t104 * t2322;
16678   t10077 = t1151 * t3312;
16679   t10081 = t10077 * t1138;
16680   t10087 = t2283 * t6741;
16681   t10097 = t3741 * t3299;
16682   t10101 = t1154 * t2294;
16683   t10105 = t3757 * t3299;
16684   t10115 = t3856 * t2279 * t873;
16685   t10118 = t10105 * t1138;
16686   t10121 = -0.238156450669527040e0 * t1158 * t2295 * t3304 - 0.238156450669527040e0 * t1158 * t866 * t10073 - 0.61023519165317445059e0 * t1149 * t10077 * t1795 + 0.822756481972633600e0 * t399 * t10081 - 0.21252129031945914941e0 * t1158 * t3300 * t1159 + 0.1645512963945267200e1 * t399 * t10087 + 0.29967321450326855254e0 * t2276 * t6751 - 0.10979019874935515226e0 * t2270 * t875 + 0.15762619094478157329e0 * t3793 * t3300 * t3794 + 0.36614111499190467036e1 * t1149 * t10097 * t1795 - 0.12204703833063489012e1 * t1149 * t2283 * t10101 + 0.18968792869915364414e1 * t3755 * t10105 * t7934 - 0.32672968537417605163e1 * t1149 * t10105 * t1795 - 0.10979019874935515226e0 * t2273 * t6664 - 0.10979019874935515226e0 * t1136 * t10115 + 0.14683899485061986386e1 * t399 * t10118;
16687   t10122 = t3320 * t401;
16688   t10126 = t1164 * t3312;
16689   t10127 = t10126 * t1138;
16690   t10130 = t3300 * t1138;
16691   t10133 = t2290 * t6741;
16692   t10136 = t10097 * t1138;
16693   t10145 = t3874 * t3285;
16694   t10146 = t10145 * t390;
16695   t10149 = t3286 * t100;
16696   t10152 = t1773 * t2258;
16697   t10155 = t3292 * t100;
16698   t10158 = t1177 * t3333;
16699   t10162 = t3814 * t3320;
16700   t10172 = 0.14983660725163427627e0 * t3771 * t10122 * t1138 - 0.922000629760e0 * t399 * t10127 + 0.2766001889280e1 * t399 * t10130 - 0.1844001259520e1 * t399 * t10133 - 0.4936538891835801600e1 * t399 * t10136 - 0.119078225334763520e0 * t1158 * t3313 * t1159 + 0.238156450669527040e0 * t1158 * t3308 * t1159 - 0.12751277419167548965e1 * t10146 * t112 + 0.238156450669527040e0 * t10149 * t1144 - 0.1844001259520e1 * t2263 * t10152 + 0.2766001889280e1 * t10155 * t1774 + 0.325024956416e0 * t107 * t10158 * t411 - 0.734005159174078464e0 * t107 * t10162 * t411 - 0.85008516127783659764e0 * t6725 * t8913 - 0.10979019874935515226e0 * t2273 * t6668 - 0.85008516127783659764e0 * t2273 * t6653;
16701   t10180 = t393 * t10062;
16702   t10183 = -t10062;
16703   t10184 = t401 * t10183;
16704   t10185 = t10184 * t104;
16705   t10188 = t1123 * t3281;
16706   t10189 = t10188 * t100;
16707   t10192 = t3802 * t3320;
16708   t10200 = t3879 * t3285;
16709   t10201 = t10200 * t390;
16710   t10208 = t109 * t2258;
16711   t10217 = t1132 * t3281;
16712   t10232 = 0.10708320e2 * t3292 * t1825 - 0.7138880e1 * t2262 * t10208 - 0.19111352870400e2 * t10145 * t1825 - 0.3569440e1 * t10188 * t1825 + 0.1784720e1 * t10180 * t109 + 0.3185225478400e1 * t10217 * t1825 + 0.6370450956800e1 * t2269 * t10208 + 0.5684735615810048000e1 * t10200 * t1825 + 0.10708320e2 * t10130 - 0.7138880e1 * t10133 - 0.19111352870400e2 * t10136 - 0.3569440e1 * t10127 + 0.1784720e1 * t10185 + 0.3185225478400e1 * t10081 + 0.6370450956800e1 * t10087 + 0.5684735615810048000e1 * t10118;
16713   t10238 = t3312 * t104;
16714   t10239 = t1137 * t10238;
16715   t10242 = t3299 * t104;
16716   t10243 = t3862 * t10242;
16717   t10246 = t3840 * t10242;
16718   t10249 = 0.19594476351194912734e0 * t6720 * t8929 - 0.56263723100594113893e0 * t6689 * t6658 + 0.75858199451789026627e0 * t2273 * t6661 + 0.461000314880e0 * t10180 * t112 + 0.461000314880e0 * t399 * t10185 - 0.922000629760e0 * t10189 * t1774 + 0.14983660725163427627e0 * t1142 * t10192 + 0.650049912832e0 * t107 * t2309 * t2322 - 0.54895099374677576129e-1 * t10155 * t1144 + 0.97972381755974563669e-1 * t10201 * t112 - 0.238156450669527040e0 * t2276 * t6671 - 0.258304e0 * t107 * t407 * t10232 - 0.238156450669527040e0 * t6800 * t2302 + 0.21252129031945914941e0 * t1136 * t10239 + 0.37929099725894513314e0 * t1136 * t10243 - 0.42504258063891829883e0 * t1136 * t10246;
16719   t10250 = t873 * t402;
16720   t10254 = t865 * t402;
16721   t10255 = t10254 * t3304;
16722   t10258 = t3299 * t1154;
16723   t10259 = t3862 * t10258;
16724   t10269 = t3286 * t398;
16725   t10272 = t3289 * t398;
16726   t10275 = t3292 * t398;
16727   t10280 = t1143 * t3333;
16728   t10285 = t3289 * t100;
16729   t10288 = t10217 * t390;
16730   t10293 = t3333 * t401;
16731   t10294 = t10293 * t1138;
16732   t10297 = 0.31525238188956314657e0 * t5504 * t6656 * t10250 - 0.42504258063891829883e0 * t5394 * t10255 - 0.28131861550297056947e0 * t3861 * t10259 + 0.29967321450326855254e0 * t7822 * t2279 * t6750 + 0.476312901339054080e0 * t5388 * t10255 + 0.42504258063891829882e0 * t2273 * t6742 - 0.42504258063891829883e0 * t10269 * t1139 + 0.21252129031945914941e0 * t10272 * t1139 + 0.97972381755974563669e-1 * t10275 * t1139 + 0.42504258063891829882e0 * t6696 * t2280 - 0.119078225334763520e0 * t1142 * t10280 + 0.42504258063891829882e0 * t6728 * t10152 - 0.119078225334763520e0 * t10285 * t1144 + 0.21252129031945914941e0 * t10288 * t112 + 0.476312901339054080e0 * t2263 * t9007 - 0.119078225334763520e0 * t1158 * t10294;
16733   t10300 = my_piecewise3(t97, 0, t10121 + t10172 + t10249 + t10297);
16734   t10301 = my_piecewise3(t96, 0, t10300);
16735   t10303 = -t10062 * t114 - t10301 * t95 - 0.2e1 * t2258 * t879 - 0.2e1 * t2328 * t860 - t3281 * t417 - t3339 * t390;
16736   t10304 = t56 * t10303;
16737   t10307 = t3342 * t124;
16738   t10310 = t3347 * t2330;
16739   t10316 = t3346 * t126;
16740   t10322 = t1218 * t3341;
16741   t10328 = t3949 * t3345;
16742   t10331 = t10304 * t128 / 0.100e3 + t10307 * t2336 / 0.60e2 - 0.3e1 / 0.50e2 * t882 * t10310 + t3346 * t423 * t425 / 0.60e2 - t10316 * t2336 / 0.30e2 - t428 * t10303 * t128 / 0.100e3 - t10322 * t2336 / 0.180e3 + t1218 * t884 * t2330 / 0.50e2 + t10328 * t2336 / 0.180e3;
16743   t10332 = t131 * t10331;
16744   t10339 = t887 * t905;
16745   t10340 = t10339 * t435;
16746   t10355 = -params->c1 * t10303;
16747   t10357 = t3365 * t442;
16748   t10362 = t2366 * t24;
16749   t10369 = t39 * t1265;
16750   t10370 = t3345 * t423;
16751   t10371 = t10369 * t10370;
16752   t10375 = t3369 * t881 * t2330;
16753   t10380 = t3341 * t423;
16754   t10381 = t2365 * t10380;
16755   t10384 = t896 * t10303;
16756   t10387 = -t10355 * t141 - 0.5e1 / 0.9e1 * t10357 * t2359 + 0.2e1 * t2356 * t902 + 0.20e2 / 0.9e1 * t6883 * t10362 + 0.2e1 * t893 * t2382 - 0.10e2 / 0.9e1 * t2362 * t3370 - 0.50e2 / 0.27e2 * t441 * t10371 - 0.20e2 / 0.9e1 * t895 * t10375 + 0.5e1 / 0.9e1 * t2362 * t3373 + 0.50e2 / 0.81e2 * t441 * t10381 + 0.5e1 / 0.9e1 * t895 * t10384;
16757   t10396 = t449 * t3388;
16758   t10399 = t881 * t147;
16759   t10400 = t10399 * t2330;
16760   t10403 = t4004 * t3345;
16761   t10404 = t1263 * t10403;
16762   t10408 = t449 * t1239 * t3341;
16763   t10411 = t442 * t10303;
16764   t10414 = t1265 * t3341;
16765   t10415 = t1263 * t10414;
16766   t10420 = t4019 * t3345;
16767   t10421 = t4017 * t10420;
16768   t10425 = my_piecewise3(t139, t145 * t3376 * t447 + t145 * t3378 * t447 + t10387 * t145 + 0.2e1 * t2373 * t901, -0.10e2 / 0.3e1 * t10396 * t453 - 0.4e1 * t1252 * t10400 - 0.10e2 / 0.3e1 * t10404 * t453 + 0.10e2 / 0.9e1 * t10408 * t453 + t449 * t10411 * t147 + 0.5e1 / 0.9e1 * t10415 * t453 - 0.2e1 * t1266 * t10400 - 0.5e1 / 0.9e1 * t10421 * t453);
16769   t10428 = 0.24e2 * t9970 * t9971 - 0.16e2 * t2225 * t3263 * t432 - 0.16e2 * t9977 * t9978 + 0.8e1 * t1030 * t3259 * t456 - 0.4e1 * t1030 * t9971 + 0.4e1 * t330 * t9978 - 0.2e1 * t330 * t9988 - 0.4e1 * t2225 * t9992 + 0.2e1 * t330 * t9995 * t150 + 0.2e1 * t330 * t10332 * t150 - 0.2e1 * t330 * t3357 * t456 + 0.8e1 * t2225 * t10340 - 0.4e1 * t330 * t2230 * t905 - 0.4e1 * t330 * t2346 * t905 - 0.4e1 * t330 * t888 * t2390 - t330 * t435 * t3392 - t138 * t10425 + 0.1174e1 * t10425;
16770   t10430 = t847 * t10428 * t167;
16771   t10433 = t847 * t3395;
16772   t10434 = t2399 * t10433;
16773   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16774     v3rholapl2[0] = -t9964 / 0.2e1 - t2220 * t9967 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t10430 - 0.24739500000000000000e1 * t10434 * t480;
16775 
16776   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16777     v3rholapl2[1] = 0.0e0;
16778 
16779   t10437 = t7016 * t3539;
16780   t10438 = t173 * t3537;
16781   t10439 = t10438 * t487;
16782   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16783     v3rholapl2[2] = -t2220 * t10439 / 0.2e1 - t10437 / 0.2e1;
16784 
16785   t10442 = t9966 * t499;
16786   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16787     v3rholapl2[3] = -t2220 * t10442 / 0.2e1 - t9964 / 0.2e1;
16788 
16789   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16790     v3rholapl2[4] = 0.0e0;
16791 
16792   t10446 = t10438 * t504;
16793   t10449 = t4566 * t270;
16794   t10450 = t3405 * t611;
16795   t10456 = t1423 * t270;
16796   t10457 = t2418 * t2537;
16797   t10467 = t3400 * t631;
16798   t10470 = t3498 * t288;
16799   t10471 = t10470 * t611;
16800   t10474 = t608 * t3498;
16801   t10479 = t210 * t551;
16802   t10485 = t7128 * t223;
16803   t10490 = t2431 * t1489;
16804   t10497 = t4642 * t224;
16805   t10498 = t1497 * t3413;
16806   t10499 = t10498 * t563;
16807   t10502 = t10498 * t554;
16808   t10506 = t1482 * t4669;
16809   t10507 = t3413 * t19;
16810   t10508 = t10507 * t531;
16811   t10511 = t1482 * t224;
16812   t10512 = t1497 * t923;
16813   t10513 = t10512 * t2447;
16814   t10517 = t3417 * t563;
16815   t10520 = t2436 * t2447;
16816   t10523 = t3413 * t558;
16817   t10524 = t552 * t10523;
16818   t10530 = t68 * t210 * t563;
16819   t10535 = t4522 * sigma[2];
16820   t10536 = t9421 * t10535;
16821   t10540 = 0.20e2 / 0.9e1 * t10506 * t10508 + 0.6e1 * t10511 * t10513 - t1477 * t3417 + 0.3e1 / 0.2e1 * t1482 * t10517 - 0.2e1 * t552 * t10520 - 0.10e2 / 0.27e2 * t10524 * t514 - t9415 * t3420 / 0.2916e4 + t9449 * t10530 / 0.1944e4 - t9418 * t3420 / 0.2916e4 - 0.5e1 / 0.6561e4 * t3128 * t10536 + 0.5e1 / 0.4374e4 * t3132;
16822   t10541 = -0.5e1 / 0.4374e4 * t3114 - t68 * t10479 * t563 / 0.5832e4 - 0.2e1 * t7143 * t924 + 0.3e1 * t10485 * t2437 - 0.2e1 * t2431 * t2440 - 0.20e2 / 0.27e2 * t10490 * t2444 - 0.2e1 * t2431 * t2448 + 0.3e1 * t4634 * t3414 - 0.15e2 / 0.2e1 * t10497 * t10499 + 0.6e1 * t2435 * t10502 + t10540;
16823   t10552 = t939 * t578;
16824   t10553 = t2471 * t10552;
16825   t10561 = t3441 * t242;
16826   t10562 = t4755 * t10561;
16827   t10565 = t3454 * t242;
16828   t10566 = t1528 * t10565;
16829   t10569 = t4785 * t10561;
16830   t10572 = t3428 * t574;
16831   t10575 = t3431 * t574;
16832   t10578 = t3434 * t574;
16833   t10585 = t3441 * t1545;
16834   t10586 = t4785 * t10585;
16835   t10596 = 0.29967321450326855254e0 * t8511 * t2471 * t7336 + 0.476312901339054080e0 * t6216 * t10553 + 0.31525238188956314657e0 * t6238 * t7222 * t10552 - 0.42504258063891829883e0 * t6222 * t10553 - 0.42504258063891829883e0 * t1527 * t10562 + 0.21252129031945914941e0 * t1527 * t10566 + 0.37929099725894513314e0 * t1527 * t10569 - 0.42504258063891829883e0 * t10572 * t1530 + 0.21252129031945914941e0 * t10575 * t1530 + 0.97972381755974563669e-1 * t10578 * t1530 + 0.42504258063891829882e0 * t7282 * t2472 + 0.42504258063891829882e0 * t2465 * t7269 - 0.28131861550297056947e0 * t4784 * t10586 + 0.650049912832e0 * t245 * t2501 * t2514 - 0.56263723100594113893e0 * t7287 * t7224 + 0.75858199451789026627e0 * t2465 * t7227;
16836   t10601 = t3434 * t238;
16837   t10612 = -t10541;
16838   t10613 = t577 * t10612;
16839   t10614 = t10613 * t242;
16840   t10617 = t1545 * t2486;
16841   t10621 = t4699 * t3441;
16842   t10640 = -0.10979019874935515226e0 * t2465 * t7219 - 0.238156450669527040e0 * t2468 * t7246 - 0.54895099374677576129e-1 * t10601 * t1535 - 0.85008516127783659764e0 * t7216 * t9494 - 0.10979019874935515226e0 * t2465 * t7209 - 0.85008516127783659764e0 * t2465 * t7213 + 0.19594476351194912734e0 * t7203 * t9501 + 0.461000314880e0 * t575 * t10614 - 0.12204703833063489012e1 * t1540 * t2475 * t10617 + 0.18968792869915364414e1 * t4707 * t10621 * t8429 - 0.32672968537417605163e1 * t1540 * t10621 * t2066 - 0.238156450669527040e0 * t1549 * t2487 * t3446 + 0.476312901339054080e0 * t2455 * t9772 + 0.29967321450326855254e0 * t2468 * t7337 - 0.10979019874935515226e0 * t2462 * t941 + 0.15762619094478157329e0 * t4838 * t3442 * t4839;
16843   t10642 = t4761 * t3441;
16844   t10646 = t4688 * t3462;
16845   t10650 = t3431 * t238;
16846   t10653 = t1523 * t3423;
16847   t10654 = t10653 * t566;
16848   t10660 = t1555 * t3454;
16849   t10661 = t10660 * t1529;
16850   t10664 = t1542 * t3454;
16851   t10668 = t10664 * t1529;
16852   t10671 = t3475 * t577;
16853   t10672 = t10671 * t1529;
16854   t10675 = t3462 * t577;
16855   t10682 = t2475 * t7268;
16856   t10685 = t10621 * t1529;
16857   t10688 = t10642 * t1529;
16858   t10691 = t4741 * t3427;
16859   t10692 = t10691 * t566;
16860   t10695 = t1514 * t3423;
16861   t10696 = t10695 * t238;
16862   t10699 = 0.36614111499190467036e1 * t1540 * t10642 * t2066 - 0.734005159174078464e0 * t245 * t10646 * t587 - 0.119078225334763520e0 * t10650 * t1535 + 0.21252129031945914941e0 * t10654 * t250 - 0.119078225334763520e0 * t1549 * t3455 * t1550 - 0.922000629760e0 * t575 * t10661 - 0.61023519165317445059e0 * t1540 * t10664 * t2066 + 0.822756481972633600e0 * t575 * t10668 - 0.119078225334763520e0 * t1549 * t10672 + 0.14983660725163427627e0 * t4823 * t10675 * t1529 - 0.21252129031945914941e0 * t1549 * t3442 * t1550 + 0.1645512963945267200e1 * t575 * t10682 + 0.14683899485061986386e1 * t575 * t10685 - 0.4936538891835801600e1 * t575 * t10688 - 0.12751277419167548965e1 * t10692 * t250 - 0.922000629760e0 * t10696 * t2045;
16863   t10700 = t3428 * t238;
16864   t10703 = t242 * t2514;
16865   t10710 = t3442 * t1529;
16866   t10713 = t2482 * t7268;
16867   t10716 = t2044 * t2450;
16868   t10723 = t247 * t2450;
16869   t10730 = t569 * t10541;
16870   t10737 = t4735 * t3427;
16871   t10748 = 0.10708320e2 * t3434 * t2096 - 0.7138880e1 * t2454 * t10723 - 0.19111352870400e2 * t10691 * t2096 - 0.3569440e1 * t10695 * t2096 + 0.1784720e1 * t10730 * t247 + 0.3185225478400e1 * t10653 * t2096 + 0.6370450956800e1 * t2461 * t10723 + 0.5684735615810048000e1 * t10737 * t2096 + 0.10708320e2 * t10710 - 0.7138880e1 * t10713 - 0.19111352870400e2 * t10688 - 0.3569440e1 * t10661 + 0.1784720e1 * t10614 + 0.3185225478400e1 * t10668 + 0.6370450956800e1 * t10682 + 0.5684735615810048000e1 * t10685;
16872   t10752 = t1568 * t3475;
16873   t10756 = t4718 * t3462;
16874   t10759 = t1534 * t3475;
16875   t10766 = t10737 * t566;
16876   t10770 = t4848 * t2471 * t939;
16877   t10775 = 0.238156450669527040e0 * t10700 * t1535 - 0.238156450669527040e0 * t1549 * t932 * t10703 + 0.238156450669527040e0 * t1549 * t3450 * t1550 + 0.2766001889280e1 * t575 * t10710 - 0.1844001259520e1 * t575 * t10713 - 0.1844001259520e1 * t2455 * t10716 - 0.238156450669527040e0 * t7343 * t2494 - 0.258304e0 * t245 * t583 * t10748 + 0.325024956416e0 * t245 * t10752 * t587 + 0.14983660725163427627e0 * t1533 * t10756 - 0.119078225334763520e0 * t1533 * t10759 + 0.42504258063891829882e0 * t7365 * t10716 + 0.2766001889280e1 * t10601 * t2045 + 0.97972381755974563669e-1 * t10766 * t250 - 0.10979019874935515226e0 * t1527 * t10770 + 0.461000314880e0 * t10730 * t250;
16878   t10778 = my_piecewise3(t235, 0, t10596 + t10640 + t10699 + t10775);
16879   t10779 = my_piecewise3(t234, 0, t10778);
16880   t10781 = -t10541 * t252 - t10779 * t233 - 0.2e1 * t2450 * t945 - 0.2e1 * t2520 * t926 - t3423 * t593 - t3481 * t566;
16881   t10782 = t56 * t10781;
16882   t10785 = t3484 * t262;
16883   t10788 = t3489 * t2522;
16884   t10794 = t3488 * t264;
16885   t10800 = t1609 * t3483;
16886   t10806 = t4897 * t3487;
16887   t10809 = t10782 * t266 / 0.100e3 + t10785 * t2528 / 0.60e2 - 0.3e1 / 0.50e2 * t948 * t10788 + t3488 * t599 * t601 / 0.60e2 - t10794 * t2528 / 0.30e2 - t604 * t10781 * t266 / 0.100e3 - t10800 * t2528 / 0.180e3 + t1609 * t950 * t2522 / 0.50e2 + t10806 * t2528 / 0.180e3;
16888   t10810 = t269 * t10809;
16889   t10817 = t953 * t971;
16890   t10818 = t10817 * t611;
16891   t10833 = -params->c1 * t10781;
16892   t10835 = t3507 * t618;
16893   t10840 = t2558 * t24;
16894   t10847 = t39 * t1654;
16895   t10848 = t3487 * t599;
16896   t10849 = t10847 * t10848;
16897   t10853 = t3511 * t947 * t2522;
16898   t10858 = t3483 * t599;
16899   t10859 = t2557 * t10858;
16900   t10862 = t962 * t10781;
16901   t10865 = -t10833 * t279 - 0.5e1 / 0.9e1 * t10835 * t2551 + 0.2e1 * t2548 * t968 + 0.20e2 / 0.9e1 * t7442 * t10840 + 0.2e1 * t959 * t2574 - 0.10e2 / 0.9e1 * t2554 * t3512 - 0.50e2 / 0.27e2 * t617 * t10849 - 0.20e2 / 0.9e1 * t961 * t10853 + 0.5e1 / 0.9e1 * t2554 * t3515 + 0.50e2 / 0.81e2 * t617 * t10859 + 0.5e1 / 0.9e1 * t961 * t10862;
16902   t10874 = t449 * t3530;
16903   t10877 = t947 * t285;
16904   t10878 = t10877 * t2522;
16905   t10881 = t4952 * t3487;
16906   t10882 = t1263 * t10881;
16907   t10886 = t449 * t1630 * t3483;
16908   t10889 = t618 * t10781;
16909   t10892 = t1654 * t3483;
16910   t10893 = t1263 * t10892;
16911   t10898 = t4965 * t3487;
16912   t10899 = t4017 * t10898;
16913   t10903 = my_piecewise3(t277, t283 * t3518 * t623 + t283 * t3520 * t623 + t10865 * t283 + 0.2e1 * t2565 * t967, -0.10e2 / 0.3e1 * t10874 * t628 - 0.4e1 * t1643 * t10878 - 0.10e2 / 0.3e1 * t10882 * t628 + 0.10e2 / 0.9e1 * t10886 * t628 + t449 * t10889 * t285 + 0.5e1 / 0.9e1 * t10893 * t628 - 0.2e1 * t1655 * t10878 - 0.5e1 / 0.9e1 * t10899 * t628);
16914   t10906 = 0.24e2 * t10449 * t10450 - 0.16e2 * t2417 * t3405 * t608 - 0.16e2 * t10456 * t10457 + 0.8e1 * t1423 * t3401 * t631 - 0.4e1 * t1423 * t10450 + 0.4e1 * t510 * t10457 - 0.2e1 * t510 * t10467 - 0.4e1 * t2417 * t10471 + 0.2e1 * t510 * t10474 * t288 + 0.2e1 * t510 * t10810 * t288 - 0.2e1 * t510 * t3499 * t631 + 0.8e1 * t2417 * t10818 - 0.4e1 * t510 * t2422 * t971 - 0.4e1 * t510 * t2538 * t971 - 0.4e1 * t510 * t954 * t2582 - t510 * t611 * t3534 - t276 * t10903 + 0.1174e1 * t10903;
16915   t10908 = t913 * t10906 * t302;
16916   t10911 = t913 * t3537;
16917   t10912 = t2399 * t10911;
16918   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16919     v3rholapl2[5] = -t10437 / 0.2e1 - t2220 * t10446 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t10908 - 0.24739500000000000000e1 * t10912 * t649;
16920 
16921   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16922     v3rholapltau[0] = 0.0e0;
16923 
16924   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16925     v3rholapltau[1] = 0.0e0;
16926 
16927   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16928     v3rholapltau[2] = 0.0e0;
16929 
16930   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16931     v3rholapltau[3] = 0.0e0;
16932 
16933   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16934     v3rholapltau[4] = 0.0e0;
16935 
16936   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16937     v3rholapltau[5] = 0.0e0;
16938 
16939   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16940     v3rholapltau[6] = 0.0e0;
16941 
16942   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16943     v3rholapltau[7] = 0.0e0;
16944 
16945   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16946     v3rhotau2[0] = 0.0e0;
16947 
16948   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16949     v3rhotau2[1] = 0.0e0;
16950 
16951   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16952     v3rhotau2[2] = 0.0e0;
16953 
16954   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16955     v3rhotau2[3] = 0.0e0;
16956 
16957   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16958     v3rhotau2[4] = 0.0e0;
16959 
16960   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16961     v3rhotau2[5] = 0.0e0;
16962 
16963   t10915 = t2594 * t719;
16964   t10916 = t10915 * t150;
16965   t10922 = t2594 * t734;
16966   t10931 = t3651 * t41;
16967   t10935 = 0.1e1 / t26 / t3643 * t36 * t3658;
16968   t10941 = t68 * t7659 * t681;
16969   t10947 = t2619 * t681;
16970   t10950 = t681 * t2632;
16971   t10959 = t345 * t659;
16972   t10964 = t2970 * t2627 / 0.1458e4 - 0.5e1 / 0.6e1 * t7682 * t654 + 0.25e2 / 0.144e3 * t5231 * t2627 - 0.5e1 / 0.8748e4 * t1098 * t10959 - 0.125e3 / 0.2592e4 * t3721 * t10959;
16973   t10967 = -t10941 / 0.5832e4 + 0.9e1 / 0.4e1 * t5203 * t2619 - 0.3e1 / 0.2e1 * t1737 * t2632 - 0.15e2 / 0.8e1 * t3694 * t10947 + 0.9e1 / 0.4e1 * t1091 * t10950 - t376 * t10964 / 0.2e1;
16974   t10976 = t2653 * t689;
16975   t10977 = t3757 * t10976;
16976   t10978 = t10977 * t104;
16977   t10983 = t2639 * t684;
16978   t10984 = t3879 * t10983;
16979   t10987 = t1773 * t2635;
16980   t11004 = t393 * t10967;
16981   t11009 = t1154 * t2666;
16982   t11010 = t1794 * t11009;
16983   t11013 = t2667 * t2658;
16984   t11016 = t7909 * t1790;
16985   t11019 = t104 * t2674;
16986   t11020 = t690 * t11019;
16987   t11023 = t2662 * t2658;
16988   t11026 = 0.975074869248e0 * t107 * t1821 * t2687 + 0.14683899485061986386e1 * t399 * t10978 - 0.16468529812403272839e0 * t7729 * t1814 + 0.97972381755974563669e-1 * t10984 * t112 - 0.2766001889280e1 * t1772 * t10987 - 0.12751277419167548965e1 * t1784 * t7794 - 0.12751277419167548965e1 * t7797 * t1791 + 0.63756387095837744823e0 * t7800 * t1791 + 0.29391714526792369101e0 * t7803 * t1791 + 0.63756387095837744823e0 * t1784 * t7807 - 0.84395584650891170840e0 * t5399 * t7818 + 0.11378729917768353994e1 * t1784 * t7810 + 0.461000314880e0 * t11004 * t112 + 0.44950982175490282881e0 * t1787 * t7778 - 0.18307055749595233518e1 * t1149 * t11010 - 0.357234676004290560e0 * t1158 * t11013 + 0.2468269445917900800e1 * t399 * t11016 + 0.44950982175490282881e0 * t3771 * t11020 + 0.714469352008581120e0 * t1158 * t11023;
16989   t11027 = t104 * t2687;
16990   t11028 = t690 * t11027;
16991   t11031 = t2654 * t2658;
16992   t11034 = t1802 * t7806;
16993   t11037 = t1154 * t697;
16994   t11038 = t2654 * t11037;
16995   t11044 = t1151 * t10976;
16996   t11045 = t11044 * t104;
16997   t11048 = t3741 * t10976;
16998   t11049 = t11048 * t104;
16999   t11052 = t3874 * t10983;
17000   t11055 = t2674 * t697;
17001   t11059 = t7753 * t684;
17002   t11064 = t1132 * t10983;
17003   t11069 = t109 * t2635;
17004   t11083 = -t10967;
17005   t11084 = t401 * t11083;
17006   t11085 = t11084 * t104;
17007   t11089 = 0.10708320e2 * t11064 * t109 - 0.10708320e2 * t1771 * t11069 - 0.19111352870400e2 * t11052 * t109 + 0.1784720e1 * t11004 * t109 + 0.9555676435200e1 * t7753 * t3027 + 0.5684735615810048000e1 * t10984 * t109 + 0.10708320e2 * t11045 - 0.10708320e2 * t11034 - 0.19111352870400e2 * t11049 + 0.1784720e1 * t11085 + 0.9555676435200e1 * t11016 + 0.5684735615810048000e1 * t10978;
17008   t11107 = -0.357234676004290560e0 * t1158 * t11028 - 0.63756387095837744824e0 * t1158 * t11031 - 0.2766001889280e1 * t399 * t11034 + 0.47287857283434471986e0 * t3793 * t11038 - 0.32672968537417605163e1 * t1149 * t10977 * t1154 + 0.2766001889280e1 * t399 * t11045 - 0.4936538891835801600e1 * t399 * t11049 - 0.12751277419167548965e1 * t11052 * t112 - 0.734005159174078464e0 * t107 * t3814 * t11055 + 0.63756387095837744823e0 * t11059 * t112 - 0.357234676004290560e0 * t7735 * t1814 + 0.2766001889280e1 * t11064 * t112 - 0.258304e0 * t107 * t407 * t11089 + 0.461000314880e0 * t399 * t11085 + 0.714469352008581120e0 * t7738 * t1814 + 0.18968792869915364414e1 * t3755 * t10977 * t3759 - 0.32937059624806545678e0 * t1784 * t7851 + 0.36614111499190467036e1 * t1149 * t11048 * t1154 - 0.357234676004290560e0 * t1787 * t7781;
17009   t11109 = my_piecewise3(t97, 0, t11026 + t11107);
17010   t11110 = my_piecewise3(t96, 0, t11109);
17011   t11112 = t10967 * t114 + t11110 * t95 + 0.3e1 * t2635 * t703 + 0.3e1 * t2693 * t684;
17012   t11113 = t56 * t11112;
17013   t11118 = t2699 * t709;
17014   t11119 = t56 * t11118;
17015   t11129 = t11118 * t345;
17016   t11130 = t11129 * t128;
17017   t11133 = -t11113 * t128 / 0.100e3 - t7965 * t3049 / 0.20e2 + 0.5e1 / 0.162e3 * t11119 * t3936 - 0.5e1 / 0.81e2 * t11119 * t3940 + t428 * t11112 * t128 / 0.100e3 + t7984 * t3049 / 0.60e2 + 0.5e1 / 0.486e3 * t3949 * t11130;
17018   t11136 = -0.27e2 / 0.1280e4 * t346 * t659 * t52 + 0.729e3 / 0.102400e6 * t1054 * sigma[0] * t2610 - 0.6561e4 / 0.16384000e8 * t10931 * t10935 + 0.6e1 * t716 * t2710 + 0.2e1 * t131 * t11133;
17019   t11137 = t11136 * t150;
17020   t11139 = t2713 * t734;
17021   t11142 = t719 * t2745;
17022   t11145 = params->c1 * t11112;
17023   t11149 = params->c1 * t11118;
17024   t11152 = t1265 * t11118;
17025   t11156 = t140 * t1240;
17026   t11157 = t22 * t2695;
17027   t11158 = t9204 * t11157;
17028   t11161 = t2695 * t709;
17029   t11168 = -t11145 * t141 - 0.10e2 / 0.3e1 * t8014 * t3070 - 0.500e3 / 0.81e2 * t11149 * t1240 - 0.2500e4 / 0.729e3 * t1879 * t11152 * t24 - 0.100e3 / 0.81e2 * t11156 * t11158 - 0.50e2 / 0.81e2 * t441 * t2365 * t11161 - 0.5e1 / 0.9e1 * t895 * t896 * t11112;
17030   t11170 = t2730 * t728;
17031   t11173 = t2732 * t728;
17032   t11176 = t11129 * t147;
17033   t11179 = t147 * t2695;
17034   t11180 = t24 * t11179;
17035   t11185 = t442 * t11112;
17036   t11193 = my_piecewise3(t139, t11168 * t145 + 0.3e1 * t11170 * t145 + t11173 * t145, -0.500e3 / 0.81e2 * t3994 * t11176 - 0.10e2 / 0.3e1 * t1892 * t11180 - 0.500e3 / 0.81e2 * t4005 * t11176 - t449 * t11185 * t147 - 0.5e1 / 0.3e1 * t8063 * t731 - 0.250e3 / 0.243e3 * t4020 * t11176);
17037   t11196 = 0.6e1 * t3619 * t10916 - 0.6e1 * t1030 * t720 * t2713 + 0.6e1 * t1030 * t10922 + t330 * t11137 - 0.3e1 * t330 * t11139 - 0.3e1 * t330 * t11142 - t138 * t11193 + 0.1174e1 * t11193;
17038   t11197 = t11196 * t167;
17039   t11200 = 0.3e1 / 0.8e1 * t8 * t18 * t11197;
17040   t11202 = 0.27831937500000000000e1 * t7541 * t745;
17041   t11204 = 0.12524371875000000000e2 * t1915 * t2758;
17042   t11206 = 0.13915968750000000000e1 * t1915 * t2763;
17043   t11207 = t737 * t2767;
17044   t11209 = t11207 * t158 * t1301;
17045   t11211 = 0.33978492602880295866e2 * t1297 * t11209;
17046   t11213 = t1939 * t3559 * t166;
17047   t11214 = t3565 * t11213;
17048   t11216 = 0.31310929687500000000e2 * t1926 * t11214;
17049   t11217 = t7532 * t29;
17050   t11219 = t1286 * t11217 * t166;
17051   t11221 = 0.62621859375000000000e1 * t471 * t11219;
17052   t11223 = 0.1e1 / t157 / t347;
17053   t11224 = t11223 * t158;
17054   t11225 = t11224 * t166;
17055   t11226 = t3573 * t11225;
17056   t11228 = 0.87205650525523016199e-1 * t1297 * t11226;
17057   t11229 = t2767 * t159;
17058   t11231 = t475 * t11229 * t166;
17059   t11233 = 0.69579843750000000000e0 * t471 * t11231;
17060   t11234 = t153 * t11223;
17061   t11236 = t11234 * t158 * t1301;
17062   t11238 = 0.33978492602880295866e2 * t1297 * t11236;
17063   t11239 = 0.1e1 / t347;
17064   t11241 = t11239 * t473 * t166;
17065   t11244 = 0.17034338633799234375e2 * t4040 * t311 * t11241;
17066   t11245 = -t11200 + t11202 - t11204 - t11206 + t11211 + t11216 + t11221 - t11228 + t11233 - t11238 + t11244;
17067   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17068     v3sigma3[0] = t10 * t11245;
17069 
17070   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17071     v3sigma3[1] = 0.0e0;
17072 
17073   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17074     v3sigma3[2] = 0.0e0;
17075 
17076   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17077     v3sigma3[3] = 0.0e0;
17078 
17079   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17080     v3sigma3[4] = 0.0e0;
17081 
17082   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17083     v3sigma3[5] = 0.0e0;
17084 
17085   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17086     v3sigma3[6] = 0.0e0;
17087 
17088   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17089     v3sigma3[7] = 0.0e0;
17090 
17091   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17092     v3sigma3[8] = 0.0e0;
17093 
17094   t11246 = t2774 * t814;
17095   t11247 = t11246 * t288;
17096   t11253 = t2774 * t829;
17097   t11262 = t3651 * t184;
17098   t11266 = 0.1e1 / t177 / t4593 * t36 * t4606;
17099   t11272 = t68 * t8245 * t776;
17100   t11278 = t2799 * t776;
17101   t11281 = t776 * t2812;
17102   t11290 = t345 * t754;
17103   t11295 = t3122 * t2807 / 0.1458e4 - 0.5e1 / 0.6e1 * t8268 * t749 + 0.25e2 / 0.144e3 * t6005 * t2807 - 0.5e1 / 0.8748e4 * t1489 * t11290 - 0.125e3 / 0.2592e4 * t4669 * t11290;
17104   t11298 = -t11272 / 0.5832e4 + 0.9e1 / 0.4e1 * t5977 * t2799 - 0.3e1 / 0.2e1 * t2008 * t2812 - 0.15e2 / 0.8e1 * t4642 * t11278 + 0.9e1 / 0.4e1 * t1482 * t11281 - t552 * t11295 / 0.2e1;
17105   t11307 = t2819 * t779;
17106   t11308 = t4741 * t11307;
17107   t11311 = t242 * t2854;
17108   t11312 = t785 * t11311;
17109   t11315 = t2842 * t2838;
17110   t11318 = t8367 * t2061;
17111   t11321 = t2847 * t2838;
17112   t11324 = t242 * t2867;
17113   t11325 = t785 * t11324;
17114   t11328 = t2834 * t2838;
17115   t11331 = t2073 * t8534;
17116   t11334 = t1545 * t792;
17117   t11335 = t2834 * t11334;
17118   t11338 = t1545 * t2846;
17119   t11339 = t2065 * t11338;
17120   t11342 = t1523 * t11307;
17121   t11355 = t4735 * t11307;
17122   t11358 = t2833 * t784;
17123   t11359 = t4761 * t11358;
17124   t11363 = 0.975074869248e0 * t245 * t2092 * t2867 - 0.12751277419167548965e1 * t11308 * t250 + 0.44950982175490282881e0 * t4823 * t11312 + 0.714469352008581120e0 * t1549 * t11315 + 0.2468269445917900800e1 * t575 * t11318 - 0.357234676004290560e0 * t1549 * t11321 - 0.357234676004290560e0 * t1549 * t11325 - 0.63756387095837744824e0 * t1549 * t11328 - 0.2766001889280e1 * t575 * t11331 + 0.47287857283434471986e0 * t4838 * t11335 - 0.18307055749595233518e1 * t1540 * t11339 + 0.2766001889280e1 * t11342 * t250 + 0.63756387095837744823e0 * t8527 * t2062 + 0.29391714526792369101e0 * t8499 * t2062 + 0.63756387095837744823e0 * t2055 * t8535 - 0.84395584650891170840e0 * t6225 * t8507 + 0.11378729917768353994e1 * t2055 * t8538 + 0.97972381755974563669e-1 * t11355 * t250 + 0.36614111499190467036e1 * t1540 * t11359 * t1545;
17125   t11366 = t1542 * t11358;
17126   t11367 = t11366 * t242;
17127   t11370 = -t11298;
17128   t11371 = t577 * t11370;
17129   t11372 = t11371 * t242;
17130   t11375 = t2854 * t792;
17131   t11379 = t11359 * t242;
17132   t11382 = t2044 * t2815;
17133   t11391 = t8345 * t779;
17134   t11396 = t4699 * t11358;
17135   t11397 = t11396 * t242;
17136   t11400 = t569 * t11298;
17137   t11413 = t247 * t2815;
17138   t11430 = 0.10708320e2 * t11342 * t247 - 0.10708320e2 * t2042 * t11413 - 0.19111352870400e2 * t11308 * t247 + 0.1784720e1 * t11400 * t247 + 0.9555676435200e1 * t8345 * t3179 + 0.5684735615810048000e1 * t11355 * t247 + 0.10708320e2 * t11367 - 0.10708320e2 * t11331 - 0.19111352870400e2 * t11379 + 0.1784720e1 * t11372 + 0.9555676435200e1 * t11318 + 0.5684735615810048000e1 * t11397;
17139   t11438 = 0.44950982175490282881e0 * t2058 * t8383 + 0.2766001889280e1 * t575 * t11367 + 0.461000314880e0 * t575 * t11372 - 0.734005159174078464e0 * t245 * t4688 * t11375 - 0.4936538891835801600e1 * t575 * t11379 - 0.2766001889280e1 * t2043 * t11382 + 0.714469352008581120e0 * t8451 * t2085 - 0.12751277419167548965e1 * t2055 * t8531 - 0.12751277419167548965e1 * t8524 * t2062 + 0.63756387095837744823e0 * t11391 * t250 - 0.357234676004290560e0 * t8386 * t2085 + 0.14683899485061986386e1 * t575 * t11397 + 0.461000314880e0 * t11400 * t250 - 0.16468529812403272839e0 * t8439 * t2085 + 0.18968792869915364414e1 * t4707 * t11396 * t4708 - 0.32672968537417605163e1 * t1540 * t11396 * t1545 - 0.258304e0 * t245 * t583 * t11430 - 0.357234676004290560e0 * t2058 * t8433 - 0.32937059624806545678e0 * t2055 * t8325;
17140   t11440 = my_piecewise3(t235, 0, t11363 + t11438);
17141   t11441 = my_piecewise3(t234, 0, t11440);
17142   t11443 = t11298 * t252 + t11441 * t233 + 0.3e1 * t2815 * t798 + 0.3e1 * t2873 * t779;
17143   t11444 = t56 * t11443;
17144   t11449 = t2879 * t804;
17145   t11450 = t56 * t11449;
17146   t11460 = t11449 * t345;
17147   t11461 = t11460 * t266;
17148   t11464 = -t11444 * t266 / 0.100e3 - t8551 * t3201 / 0.20e2 + 0.5e1 / 0.162e3 * t11450 * t4884 - 0.5e1 / 0.81e2 * t11450 * t4888 + t604 * t11443 * t266 / 0.100e3 + t8570 * t3201 / 0.60e2 + 0.5e1 / 0.486e3 * t4897 * t11461;
17149   t11467 = -0.27e2 / 0.1280e4 * t346 * t754 * t194 + 0.729e3 / 0.102400e6 * t1054 * sigma[2] * t2790 - 0.6561e4 / 0.16384000e8 * t11262 * t11266 + 0.6e1 * t811 * t2890 + 0.2e1 * t269 * t11464;
17150   t11468 = t11467 * t288;
17151   t11470 = t2893 * t829;
17152   t11473 = t814 * t2925;
17153   t11476 = params->c1 * t11443;
17154   t11480 = params->c1 * t11449;
17155   t11483 = t1654 * t11449;
17156   t11487 = t278 * t1631;
17157   t11488 = t22 * t2875;
17158   t11489 = t9859 * t11488;
17159   t11492 = t2875 * t804;
17160   t11499 = -t11476 * t279 - 0.10e2 / 0.3e1 * t8600 * t3222 - 0.500e3 / 0.81e2 * t11480 * t1631 - 0.2500e4 / 0.729e3 * t2150 * t11483 * t24 - 0.100e3 / 0.81e2 * t11487 * t11489 - 0.50e2 / 0.81e2 * t617 * t2557 * t11492 - 0.5e1 / 0.9e1 * t961 * t962 * t11443;
17161   t11501 = t2910 * t823;
17162   t11504 = t2912 * t823;
17163   t11507 = t11460 * t285;
17164   t11510 = t285 * t2875;
17165   t11511 = t24 * t11510;
17166   t11516 = t618 * t11443;
17167   t11524 = my_piecewise3(t277, t11499 * t283 + 0.3e1 * t11501 * t283 + t11504 * t283, -0.500e3 / 0.81e2 * t4942 * t11507 - 0.10e2 / 0.3e1 * t2163 * t11511 - 0.500e3 / 0.81e2 * t4953 * t11507 - t449 * t11516 * t285 - 0.5e1 / 0.3e1 * t8649 * t826 - 0.250e3 / 0.243e3 * t4966 * t11507);
17168   t11527 = 0.6e1 * t4566 * t11247 - 0.6e1 * t1423 * t815 * t2893 + 0.6e1 * t1423 * t11253 + t510 * t11468 - 0.3e1 * t510 * t11470 - 0.3e1 * t510 * t11473 - t276 * t11524 + 0.1174e1 * t11524;
17169   t11528 = t11527 * t302;
17170   t11531 = 0.3e1 / 0.8e1 * t8 * t175 * t11528;
17171   t11533 = 0.27831937500000000000e1 * t8185 * t840;
17172   t11535 = 0.12524371875000000000e2 * t2186 * t2938;
17173   t11537 = 0.13915968750000000000e1 * t2186 * t2943;
17174   t11538 = t832 * t2947;
17175   t11540 = t11538 * t293 * t1690;
17176   t11542 = 0.33978492602880295866e2 * t1686 * t11540;
17177   t11544 = t2208 * t4515 * t301;
17178   t11545 = t4521 * t11544;
17179   t11547 = 0.31310929687500000000e2 * t2195 * t11545;
17180   t11548 = t8157 * t180;
17181   t11550 = t1675 * t11548 * t301;
17182   t11552 = 0.62621859375000000000e1 * t640 * t11550;
17183   t11554 = 0.1e1 / t292 / t523;
17184   t11555 = t11554 * t293;
17185   t11556 = t11555 * t301;
17186   t11557 = t4529 * t11556;
17187   t11559 = 0.87205650525523016199e-1 * t1686 * t11557;
17188   t11560 = t2947 * t294;
17189   t11562 = t644 * t11560 * t301;
17190   t11564 = 0.69579843750000000000e0 * t640 * t11562;
17191   t11565 = t291 * t11554;
17192   t11567 = t11565 * t293 * t1690;
17193   t11569 = 0.33978492602880295866e2 * t1686 * t11567;
17194   t11570 = 0.1e1 / t523;
17195   t11572 = t11570 * t642 * t301;
17196   t11575 = 0.17034338633799234375e2 * t5041 * t485 * t11572;
17197   t11576 = -t11531 + t11533 - t11535 - t11537 + t11542 + t11547 + t11552 - t11559 + t11564 - t11569 + t11575;
17198   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17199     v3sigma3[9] = t10 * t11576;
17200 
17201   t11577 = t2226 * t2594;
17202   t11582 = t8703 * t719;
17203   t11585 = t9174 * t719;
17204   t11588 = t2226 * t2713;
17205   t11591 = t2710 * t887;
17206   t11595 = t716 * t3057;
17207   t11602 = t857 * t681;
17208   t11603 = t11602 * t654;
17209   t11606 = t8746 * t3566;
17210   t11607 = t2976 * t11606;
17211   t11613 = t376 * t36;
17212   t11614 = t2598 * t2244;
17213   t11615 = t11613 * t11614;
17214   t11617 = t376 * t676;
17215   t11618 = t11617 * t2979;
17216   t11624 = t77 * t681;
17217   t11625 = t68 * t11624;
17218   t11626 = t8777 * t11625;
17219   t11630 = t6536 * t2598;
17220   t11637 = t2244 * t2632;
17221   t11641 = t68 * t8732 * t681;
17222   t11643 = t375 * t85;
17223   t11644 = t11643 * t2244;
17224   t11645 = t2627 * t11644;
17225   t11647 = t1737 * t85;
17226   t11648 = t11647 * t2979;
17227   t11650 = t2244 * t2619;
17228   t11653 = -0.5e1 / 0.12e2 * t8721 * t11603 - 0.5e1 / 0.15552e5 * t11607 + 0.3e1 / 0.4e1 * t6573 * t2619 - t2239 * t2632 / 0.2e1 - t11615 / 0.8748e4 + t11618 / 0.2592e4 - 0.2e1 * t1737 * t2971 + 0.5e1 / 0.18e2 * t8729 * t2973 - t11626 / 0.1728e4 + 0.5e1 / 0.18e2 * t8718 * t2973 - 0.25e2 / 0.864e3 * t6535 * t11630 + 0.3e1 * t8755 * t2967 + 0.3e1 * t8785 * t2967 + 0.3e1 / 0.2e1 * t2243 * t11637 + t11641 / 0.5184e4 - t11645 / 0.8748e4 + t11648 / 0.2592e4 - 0.15e2 / 0.4e1 * t6554 * t11650;
17229   t11661 = t109 * t2639;
17230   t11670 = t393 * t11653;
17231   t11679 = t2283 * t7793;
17232   t11681 = t8965 * t1790;
17233   t11683 = t6623 * t7793;
17234   t11685 = t2290 * t7806;
17235   t11687 = -t11653;
17236   t11688 = t401 * t11687;
17237   t11689 = t11688 * t104;
17238   t11691 = t8974 * t1790;
17239   t11693 = t2283 * t7806;
17240   t11695 = t6637 * t7793;
17241   t11697 = 0.10708320e2 * t2269 * t11661 - 0.7138880e1 * t9042 * t3027 - 0.19111352870400e2 * t6602 * t11661 - 0.3569440e1 * t2262 * t11069 + 0.1784720e1 * t11670 * t109 + 0.6370450956800e1 * t8999 * t3027 + 0.3185225478400e1 * t2269 * t11069 + 0.5684735615810048000e1 * t6615 * t11661 + 0.10708320e2 * t11679 - 0.7138880e1 * t11681 - 0.19111352870400e2 * t11683 - 0.3569440e1 * t11685 + 0.1784720e1 * t11689 + 0.6370450956800e1 * t11691 + 0.3185225478400e1 * t11693 + 0.5684735615810048000e1 * t11695;
17242   t11717 = t6615 * t2639;
17243   t11720 = t2269 * t2635;
17244   t11723 = t8999 * t684;
17245   t11735 = -0.258304e0 * t107 * t407 * t11697 - 0.922000629760e0 * t399 * t11685 - 0.4936538891835801600e1 * t399 * t11683 - 0.10979019874935515226e0 * t1784 * t8941 - 0.85008516127783659765e0 * t1784 * t8947 - 0.56263723100594113894e0 * t5399 * t8937 + 0.75858199451789026628e0 * t1784 * t8917 - 0.238156450669527040e0 * t9017 * t1814 - 0.119078225334763520e0 * t2276 * t7781 + 0.97972381755974563669e-1 * t11717 * t112 + 0.21252129031945914941e0 * t11720 * t112 + 0.42504258063891829882e0 * t11723 * t112 - 0.238156450669527040e0 * t1787 * t8953 + 0.325024956416e0 * t107 * t2309 * t2687 - 0.119078225334763520e0 * t7735 * t2302 + 0.14983660725163427627e0 * t2276 * t7778;
17246   t11738 = t6602 * t2639;
17247   t11763 = t8808 * t691;
17248   t11774 = -0.42504258063891829882e0 * t7797 * t2280 - 0.12751277419167548965e1 * t11738 * t112 + 0.238156450669527040e0 * t7738 * t2302 + 0.238156450669527040e0 * t1158 * t6701 * t7793 + 0.14983660725163427627e0 * t3771 * t866 * t11019 + 0.2766001889280e1 * t399 * t11679 + 0.36614111499190467036e1 * t1149 * t6623 * t7817 + 0.461000314880e0 * t399 * t11689 - 0.1844001259520e1 * t9043 * t2986 - 0.922000629760e0 * t2263 * t10987 - 0.734005159174078464e0 * t107 * t6648 * t2674 - 0.85008516127783659765e0 * t6725 * t11763 + 0.19594476351194912734e0 * t8813 * t7767 - 0.10979019874935515226e0 * t2273 * t7851 - 0.10979019874935515226e0 * t1784 * t8922 - 0.54895099374677576130e-1 * t7729 * t2302;
17249   t11782 = t3759 * t2653;
17250   t11802 = t9096 * t1790;
17251   t11820 = -0.12204703833063489012e1 * t1149 * t8974 * t3001 - 0.61023519165317445059e0 * t1149 * t2283 * t11009 + 0.18968792869915364414e1 * t3755 * t6637 * t11782 - 0.32672968537417605163e1 * t1149 * t6637 * t7817 - 0.238156450669527040e0 * t1158 * t3012 * t2658 - 0.119078225334763520e0 * t1158 * t866 * t11027 - 0.1844001259520e1 * t399 * t11681 + 0.650049912832e0 * t107 * t9100 * t697 + 0.29967321450326855254e0 * t6717 * t2659 - 0.238156450669527040e0 * t1158 * t11802 - 0.119078225334763520e0 * t1158 * t2305 * t7806 + 0.15762619094478157328e0 * t3793 * t6708 * t7817 - 0.21252129031945914941e0 * t1158 * t6708 * t7793 + 0.1645512963945267200e1 * t399 * t11691 + 0.822756481972633600e0 * t399 * t11693 + 0.14683899485061986386e1 * t399 * t11695;
17252   t11823 = t684 * t697;
17253   t11824 = t1143 * t11823;
17254   t11829 = t1773 * t2639;
17255   t11832 = t697 * t689;
17256   t11833 = t2279 * t11832;
17257   t11859 = 0.29967321450326855254e0 * t1787 * t9028 + 0.476312901339054080e0 * t2263 * t11824 - 0.10979019874935515226e0 * t2992 * t699 + 0.2766001889280e1 * t6728 * t11829 + 0.476312901339054080e0 * t5388 * t11833 - 0.42504258063891829882e0 * t5394 * t11833 + 0.21252129031945914941e0 * t2273 * t7807 - 0.28131861550297056947e0 * t6689 * t7818 + 0.37929099725894513314e0 * t2273 * t7810 + 0.21252129031945914941e0 * t7800 * t2280 + 0.42504258063891829882e0 * t1784 * t8867 + 0.97972381755974563669e-1 * t7803 * t2280 + 0.31525238188956314657e0 * t5504 * t6656 * t11832 + 0.42504258063891829882e0 * t8859 * t1791 - 0.42504258063891829882e0 * t2273 * t7794 + 0.461000314880e0 * t11670 * t112;
17258   t11862 = my_piecewise3(t97, 0, t11735 + t11774 + t11820 + t11859);
17259   t11863 = my_piecewise3(t96, 0, t11862);
17260   t11865 = -t114 * t11653 - t11863 * t95 - t2635 * t879 - t2693 * t860 - 0.2e1 * t2982 * t703 - 0.2e1 * t3043 * t684;
17261   t11866 = t56 * t11865;
17262   t11871 = t882 * t2699;
17263   t11875 = t124 * t2695 * t128;
17264   t11878 = t2735 * t6843;
17265   t11886 = t881 * t2695;
17266   t11892 = t11866 * t128 / 0.100e3 + t9136 * t3049 / 0.30e2 - t11871 * t1220 / 0.108e3 + 0.3e1 / 0.100e3 * t882 * t11875 + t6842 * t11878 / 0.54e2 - t428 * t11865 * t128 / 0.100e3 - t9156 * t3049 / 0.90e2 - t1218 * t11886 * t128 / 0.100e3 - t6855 * t11878 / 0.324e3;
17267   t11893 = t131 * t11892;
17268   t11903 = t2594 * t905;
17269   t11906 = t2713 * t905;
17270   t11908 = t719 * t3096;
17271   t11912 = -params->c1 * t11865;
17272   t11916 = t2735 * t39;
17273   t11921 = t2721 * t36;
17274   t11929 = t3045 * t709;
17275   t11936 = t896 * t11865;
17276   t11939 = -t11912 * t141 - 0.10e2 / 0.9e1 * t9199 * t3070 - 0.50e2 / 0.81e2 * t6883 * t11916 - t893 * t2739 + t2719 * t902 + 0.100e3 / 0.81e2 * t11921 * t6894 + 0.10e2 / 0.9e1 * t3073 * t3080 + 0.500e3 / 0.81e2 * t1879 * t2385 * t2699 + 0.100e3 / 0.81e2 * t441 * t2365 * t11929 + 0.10e2 / 0.9e1 * t895 * t3369 * t11886 + 0.5e1 / 0.9e1 * t895 * t11936;
17277   t11941 = t3083 * t728;
17278   t11944 = t900 * t2730;
17279   t11946 = t900 * t2732;
17280   t11955 = t10399 * t2695;
17281   t11958 = t442 * t11865;
17282   t11967 = my_piecewise3(t139, t11939 * t145 + 0.2e1 * t11941 * t145 + t11944 * t145 + t11946 * t145, 0.50e2 / 0.27e2 * t6923 * t2736 + 0.20e2 / 0.9e1 * t9262 * t731 + 0.50e2 / 0.27e2 * t6931 * t2736 + 0.2e1 * t1252 * t11955 + t449 * t11958 * t147 + 0.10e2 / 0.9e1 * t9269 * t731 + t1266 * t11955 + 0.25e2 / 0.81e2 * t6946 * t2736);
17283   t11970 = 0.12e2 * t6492 * t11577 - 0.8e1 * t8689 * t2954 - 0.8e1 * t2225 * t11582 + 0.8e1 * t2225 * t11585 - 0.4e1 * t2225 * t11588 + 0.2e1 * t330 * t11591 * t150 + 0.4e1 * t330 * t11595 * t150 - 0.4e1 * t330 * t2957 * t734 + 0.2e1 * t330 * t11893 * t150 - 0.4e1 * t330 * t3058 * t734 - 0.2e1 * t330 * t888 * t2745 + 0.2e1 * t1030 * t11903 - t330 * t11906 - 0.2e1 * t330 * t11908 - t138 * t11967 + 0.1174e1 * t11967;
17284   t11972 = t847 * t11970 * t167;
17285   t11981 = t908 * t2767;
17286   t11983 = t11981 * t158 * t1301;
17287   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17288     v3sigma2lapl[0] = -0.3e1 / 0.8e1 * t846 * t11972 + 0.18554625000000000000e1 * t9289 * t745 - 0.41747906250000000000e1 * t2401 * t2758 - 0.46386562500000000000e0 * t2401 * t2763 + 0.11326164200960098622e2 * t6967 * t11983;
17289 
17290   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17291     v3sigma2lapl[1] = 0.0e0;
17292 
17293   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17294     v3sigma2lapl[2] = 0.0e0;
17295 
17296   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17297     v3sigma2lapl[3] = 0.0e0;
17298 
17299   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17300     v3sigma2lapl[4] = 0.0e0;
17301 
17302   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17303     v3sigma2lapl[5] = 0.0e0;
17304 
17305   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17306     v3sigma2lapl[6] = 0.0e0;
17307 
17308   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17309     v3sigma2lapl[7] = 0.0e0;
17310 
17311   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17312     v3sigma2lapl[8] = 0.0e0;
17313 
17314   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17315     v3sigma2lapl[9] = 0.0e0;
17316 
17317   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17318     v3sigma2lapl[10] = 0.0e0;
17319 
17320   t11986 = t2418 * t2774;
17321   t11991 = t9358 * t814;
17322   t11994 = t9829 * t814;
17323   t11997 = t2418 * t2893;
17324   t12000 = t2890 * t953;
17325   t12004 = t811 * t3209;
17326   t12011 = t7091 * t2778;
17327   t12016 = t215 * t776;
17328   t12017 = t68 * t12016;
17329   t12018 = t9449 * t12017;
17330   t12022 = t923 * t776;
17331   t12023 = t12022 * t749;
17332   t12031 = t68 * t9394 * t776;
17333   t12037 = t2436 * t2812;
17334   t12040 = t9421 * t4522;
17335   t12041 = t3128 * t12040;
17336   t12045 = t551 * t223;
17337   t12046 = t12045 * t2436;
17338   t12047 = t2807 * t12046;
17339   t12049 = t2008 * t223;
17340   t12050 = t12049 * t3131;
17341   t12052 = t2436 * t2799;
17342   t12055 = t552 * t36;
17343   t12056 = t2778 * t2436;
17344   t12057 = t12055 * t12056;
17345   t12059 = t552 * t771;
17346   t12060 = t12059 * t3131;
17347   t12062 = -0.25e2 / 0.864e3 * t7090 * t12011 + 0.5e1 / 0.18e2 * t9367 * t3125 - t12018 / 0.1728e4 + 0.5e1 / 0.18e2 * t9371 * t3125 - 0.5e1 / 0.12e2 * t9374 * t12023 - t2431 * t2812 / 0.2e1 + 0.3e1 * t9439 * t3119 + t12031 / 0.5184e4 - 0.2e1 * t2008 * t3123 + 0.3e1 * t9407 * t3119 + 0.3e1 / 0.2e1 * t2435 * t12037 - 0.5e1 / 0.15552e5 * t12041 + 0.3e1 / 0.4e1 * t7128 * t2799 - t12047 / 0.8748e4 + t12050 / 0.2592e4 - 0.15e2 / 0.4e1 * t7095 * t12052 - t12057 / 0.8748e4 + t12060 / 0.2592e4;
17348   t12076 = t9466 * t2061;
17349   t12079 = t2482 * t8534;
17350   t12082 = t7182 * t8530;
17351   t12091 = t4708 * t2833;
17352   t12103 = t9643 * t2061;
17353   t12106 = t2475 * t8534;
17354   t12109 = t7196 * t8530;
17355   t12118 = -0.238156450669527040e0 * t1549 * t3164 * t2838 - 0.119078225334763520e0 * t1549 * t932 * t11324 - 0.1844001259520e1 * t575 * t12076 - 0.922000629760e0 * t575 * t12079 - 0.4936538891835801600e1 * t575 * t12082 - 0.12204703833063489012e1 * t1540 * t9643 * t3153 - 0.61023519165317445059e0 * t1540 * t2475 * t11338 + 0.18968792869915364414e1 * t4707 * t7196 * t12091 - 0.32672968537417605163e1 * t1540 * t7196 * t8506 - 0.10979019874935515226e0 * t3144 * t794 + 0.238156450669527040e0 * t1549 * t7313 * t8530 + 0.1645512963945267200e1 * t575 * t12103 + 0.822756481972633600e0 * t575 * t12106 + 0.14683899485061986386e1 * t575 * t12109 - 0.734005159174078464e0 * t245 * t7230 * t2854 + 0.36614111499190467036e1 * t1540 * t7182 * t8506;
17356   t12126 = t9470 * t2061;
17357   t12140 = t2461 * t2815;
17358   t12143 = t7174 * t2819;
17359   t12152 = t7161 * t2819;
17360   t12157 = t247 * t2819;
17361   t12166 = t569 * t12062;
17362   t12175 = t2475 * t8530;
17363   t12180 = -t12062;
17364   t12181 = t577 * t12180;
17365   t12182 = t12181 * t242;
17366   t12187 = 0.10708320e2 * t2461 * t12157 - 0.7138880e1 * t9615 * t3179 - 0.19111352870400e2 * t7161 * t12157 - 0.3569440e1 * t2454 * t11413 + 0.1784720e1 * t12166 * t247 + 0.6370450956800e1 * t9621 * t3179 + 0.3185225478400e1 * t2461 * t11413 + 0.5684735615810048000e1 * t7174 * t12157 + 0.10708320e2 * t12175 - 0.7138880e1 * t12076 - 0.19111352870400e2 * t12082 - 0.3569440e1 * t12079 + 0.1784720e1 * t12182 + 0.6370450956800e1 * t12103 + 0.3185225478400e1 * t12106 + 0.5684735615810048000e1 * t12109;
17367   t12191 = 0.14983660725163427627e0 * t4823 * t932 * t11311 + 0.238156450669527040e0 * t8451 * t2494 + 0.29967321450326855254e0 * t2058 * t9759 - 0.238156450669527040e0 * t1549 * t12126 - 0.119078225334763520e0 * t1549 * t2497 * t8534 + 0.15762619094478157328e0 * t4838 * t7328 * t8506 - 0.21252129031945914941e0 * t1549 * t7328 * t8530 + 0.14983660725163427627e0 * t2468 * t8383 + 0.21252129031945914941e0 * t12140 * t250 + 0.97972381755974563669e-1 * t12143 * t250 - 0.1844001259520e1 * t9666 * t3138 - 0.42504258063891829882e0 * t2465 * t8531 + 0.29967321450326855254e0 * t7296 * t2839 - 0.12751277419167548965e1 * t12152 * t250 - 0.119078225334763520e0 * t2468 * t8433 - 0.258304e0 * t245 * t583 * t12187;
17368   t12193 = t931 * t784;
17369   t12194 = t12193 * t2838;
17370   t12211 = t9621 * t779;
17371   t12228 = -0.42504258063891829882e0 * t6222 * t12194 - 0.54895099374677576130e-1 * t8439 * t2494 - 0.10979019874935515226e0 * t2055 * t9658 - 0.10979019874935515226e0 * t2055 * t9517 - 0.85008516127783659765e0 * t2055 * t9521 - 0.56263723100594113894e0 * t6225 * t9513 + 0.75858199451789026628e0 * t2055 * t9524 + 0.461000314880e0 * t12166 * t250 + 0.42504258063891829882e0 * t12211 * t250 - 0.42504258063891829882e0 * t8524 * t2472 + 0.21252129031945914941e0 * t2465 * t8535 - 0.28131861550297056947e0 * t7287 * t8507 + 0.37929099725894513314e0 * t2465 * t8538 + 0.21252129031945914941e0 * t8527 * t2472 + 0.42504258063891829882e0 * t2055 * t9558 + 0.97972381755974563669e-1 * t8499 * t2472;
17372   t12229 = t784 * t792;
17373   t12241 = t9506 * t786;
17374   t12252 = t779 * t792;
17375   t12253 = t1534 * t12252;
17376   t12264 = t2044 * t2819;
17377   t12269 = 0.31525238188956314657e0 * t6238 * t7222 * t12229 + 0.476312901339054080e0 * t6216 * t12194 + 0.42504258063891829882e0 * t9663 * t2062 + 0.19594476351194912734e0 * t9475 * t8315 - 0.10979019874935515226e0 * t2465 * t8325 - 0.85008516127783659765e0 * t7216 * t12241 + 0.325024956416e0 * t245 * t2501 * t2867 + 0.650049912832e0 * t245 * t9755 * t792 + 0.461000314880e0 * t575 * t12182 + 0.476312901339054080e0 * t2455 * t12253 + 0.2766001889280e1 * t575 * t12175 - 0.922000629760e0 * t2455 * t11382 - 0.119078225334763520e0 * t8386 * t2494 - 0.238156450669527040e0 * t9691 * t2085 + 0.2766001889280e1 * t7365 * t12264 - 0.238156450669527040e0 * t2058 * t9777;
17378   t12272 = my_piecewise3(t235, 0, t12118 + t12191 + t12228 + t12269);
17379   t12273 = my_piecewise3(t234, 0, t12272);
17380   t12275 = -t12062 * t252 - t12273 * t233 - t2815 * t945 - t2873 * t926 - 0.2e1 * t3134 * t798 - 0.2e1 * t3195 * t779;
17381   t12276 = t56 * t12275;
17382   t12281 = t948 * t2879;
17383   t12285 = t262 * t2875 * t266;
17384   t12288 = t2915 * t7402;
17385   t12296 = t947 * t2875;
17386   t12302 = t12276 * t266 / 0.100e3 + t9791 * t3201 / 0.30e2 - t12281 * t1611 / 0.108e3 + 0.3e1 / 0.100e3 * t948 * t12285 + t7401 * t12288 / 0.54e2 - t604 * t12275 * t266 / 0.100e3 - t9811 * t3201 / 0.90e2 - t1609 * t12296 * t266 / 0.100e3 - t7414 * t12288 / 0.324e3;
17387   t12303 = t269 * t12302;
17388   t12313 = t2774 * t971;
17389   t12316 = t2893 * t971;
17390   t12318 = t814 * t3248;
17391   t12322 = -params->c1 * t12275;
17392   t12326 = t2915 * t39;
17393   t12331 = t2901 * t36;
17394   t12339 = t3197 * t804;
17395   t12346 = t962 * t12275;
17396   t12349 = -t12322 * t279 - 0.10e2 / 0.9e1 * t9854 * t3222 - 0.50e2 / 0.81e2 * t7442 * t12326 - t959 * t2919 + t2899 * t968 + 0.100e3 / 0.81e2 * t12331 * t7453 + 0.10e2 / 0.9e1 * t3225 * t3232 + 0.500e3 / 0.81e2 * t2150 * t2577 * t2879 + 0.100e3 / 0.81e2 * t617 * t2557 * t12339 + 0.10e2 / 0.9e1 * t961 * t3511 * t12296 + 0.5e1 / 0.9e1 * t961 * t12346;
17397   t12351 = t3235 * t823;
17398   t12354 = t966 * t2910;
17399   t12356 = t966 * t2912;
17400   t12365 = t10877 * t2875;
17401   t12368 = t618 * t12275;
17402   t12377 = my_piecewise3(t277, t12349 * t283 + 0.2e1 * t12351 * t283 + t12354 * t283 + t12356 * t283, 0.50e2 / 0.27e2 * t7482 * t2916 + 0.20e2 / 0.9e1 * t9917 * t826 + 0.50e2 / 0.27e2 * t7490 * t2916 + 0.2e1 * t1643 * t12365 + t449 * t12368 * t285 + 0.10e2 / 0.9e1 * t9924 * t826 + t1655 * t12365 + 0.25e2 / 0.81e2 * t7505 * t2916);
17403   t12380 = 0.12e2 * t7051 * t11986 - 0.8e1 * t9344 * t3106 - 0.8e1 * t2417 * t11991 + 0.8e1 * t2417 * t11994 - 0.4e1 * t2417 * t11997 + 0.2e1 * t510 * t12000 * t288 + 0.4e1 * t510 * t12004 * t288 - 0.4e1 * t510 * t3109 * t829 + 0.2e1 * t510 * t12303 * t288 - 0.4e1 * t510 * t3210 * t829 - 0.2e1 * t510 * t954 * t2925 + 0.2e1 * t1423 * t12313 - t510 * t12316 - 0.2e1 * t510 * t12318 - t276 * t12377 + 0.1174e1 * t12377;
17404   t12382 = t913 * t12380 * t302;
17405   t12391 = t974 * t2947;
17406   t12393 = t12391 * t293 * t1690;
17407   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17408     v3sigma2lapl[11] = -0.3e1 / 0.8e1 * t846 * t12382 + 0.18554625000000000000e1 * t9944 * t840 - 0.41747906250000000000e1 * t2591 * t2938 - 0.46386562500000000000e0 * t2591 * t2943 + 0.11326164200960098622e2 * t7526 * t12393;
17409 
17410   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17411     v3sigma2tau[0] = 0.0e0;
17412 
17413   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17414     v3sigma2tau[1] = 0.0e0;
17415 
17416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17417     v3sigma2tau[2] = 0.0e0;
17418 
17419   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17420     v3sigma2tau[3] = 0.0e0;
17421 
17422   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17423     v3sigma2tau[4] = 0.0e0;
17424 
17425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17426     v3sigma2tau[5] = 0.0e0;
17427 
17428   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17429     v3sigma2tau[6] = 0.0e0;
17430 
17431   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17432     v3sigma2tau[7] = 0.0e0;
17433 
17434   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17435     v3sigma2tau[8] = 0.0e0;
17436 
17437   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17438     v3sigma2tau[9] = 0.0e0;
17439 
17440   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17441     v3sigma2tau[10] = 0.0e0;
17442 
17443   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17444     v3sigma2tau[11] = 0.0e0;
17445 
17446   t12396 = t3263 * t719;
17447   t12399 = t3263 * t716;
17448   t12402 = t2226 * t3057;
17449   t12412 = t3258 * t734;
17450   t12415 = t9991 * t719;
17451   t12418 = t716 * t3356;
17452   t12425 = t68 * t77;
17453   t12426 = t12425 * t11644;
17454   t12434 = t2239 * t85;
17455   t12435 = t12434 * t2979;
17456   t12439 = t10019 * t681;
17457   t12442 = t10019 * t676;
17458   t12445 = t10028 * t664;
17459   t12448 = t1091 * t1107;
17460   t12449 = t6536 * t2978;
17461   t12450 = t12448 * t12449;
17462   t12453 = t3275 * t681;
17463   t12456 = t376 * t857;
17464   t12457 = t12456 * t2979;
17465   t12459 = t376 * t3271;
17466   t12460 = t382 * t19;
17467   t12461 = t12460 * t664;
17468   t12466 = t72 * t681;
17469   t12467 = t68 * t12466;
17470   t12472 = t8746 * t5096;
17471   t12475 = -t68 * t10000 * t681 / 0.5832e4 + t12426 / 0.2592e4 + 0.3e1 * t10006 * t2967 - 0.2e1 * t2239 * t2971 + 0.5e1 / 0.18e2 * t10011 * t2973 + t12435 / 0.2592e4 + 0.3e1 * t5203 * t3272 - 0.15e2 / 0.2e1 * t10018 * t12439 + 0.6e1 * t2243 * t12442 - 0.5e1 / 0.6e1 * t10027 * t12445 - t12450 / 0.864e3 - t1737 * t3275 + 0.3e1 / 0.2e1 * t1091 * t12453 + t12457 / 0.2592e4 + 0.5e1 / 0.36e2 * t12459 * t12461 - t11647 * t3278 / 0.2916e4 + t8777 * t12467 / 0.1944e4 - t11617 * t3278 / 0.2916e4 + 0.5e1 / 0.17496e5 * t2976 * t12472;
17472   t12483 = t1773 * t2982;
17473   t12490 = t109 * t2982;
17474   t12497 = t393 * t12475;
17475   t12506 = t3300 * t1790;
17476   t12508 = t2290 * t8866;
17477   t12510 = t10097 * t1790;
17478   t12512 = t10126 * t1790;
17479   t12514 = -t12475;
17480   t12515 = t401 * t12514;
17481   t12516 = t12515 * t104;
17482   t12518 = t10077 * t1790;
17483   t12520 = t2283 * t8866;
17484   t12522 = t10105 * t1790;
17485   t12524 = 0.10708320e2 * t3292 * t3027 - 0.7138880e1 * t2262 * t12490 - 0.19111352870400e2 * t10145 * t3027 - 0.3569440e1 * t10188 * t3027 + 0.1784720e1 * t12497 * t109 + 0.3185225478400e1 * t10217 * t3027 + 0.6370450956800e1 * t2269 * t12490 + 0.5684735615810048000e1 * t10200 * t3027 + 0.10708320e2 * t12506 - 0.7138880e1 * t12508 - 0.19111352870400e2 * t12510 - 0.3569440e1 * t12512 + 0.1784720e1 * t12516 + 0.3185225478400e1 * t12518 + 0.6370450956800e1 * t12520 + 0.5684735615810048000e1 * t12522;
17486   t12531 = t10293 * t1790;
17487   t12549 = t104 * t3037;
17488   t12562 = -0.1844001259520e1 * t2263 * t12483 + 0.42504258063891829882e0 * t6728 * t12483 - 0.258304e0 * t107 * t407 * t12524 - 0.238156450669527040e0 * t1158 * t3012 * t3304 - 0.119078225334763520e0 * t1158 * t12531 - 0.61023519165317445059e0 * t1149 * t10077 * t3001 + 0.822756481972633600e0 * t399 * t12518 - 0.21252129031945914941e0 * t1158 * t3300 * t2658 + 0.1645512963945267200e1 * t399 * t12520 + 0.14683899485061986386e1 * t399 * t12522 + 0.14983660725163427627e0 * t3771 * t10122 * t1790 - 0.238156450669527040e0 * t1158 * t866 * t12549 + 0.238156450669527040e0 * t1158 * t3308 * t2658 + 0.2766001889280e1 * t399 * t12506 - 0.1844001259520e1 * t399 * t12508 - 0.4936538891835801600e1 * t399 * t12510;
17489   t12566 = t10145 * t684;
17490   t12575 = t10200 * t684;
17491   t12580 = t8870 * t3304;
17492   t12596 = t873 * t684;
17493   t12597 = t1143 * t12596;
17494   t12602 = -0.119078225334763520e0 * t1158 * t3313 * t2658 - 0.12751277419167548965e1 * t12566 * t112 - 0.922000629760e0 * t10189 * t2986 - 0.119078225334763520e0 * t1787 * t10280 - 0.54895099374677576129e-1 * t10155 * t1814 + 0.97972381755974563669e-1 * t12575 * t112 + 0.37929099725894513314e0 * t1784 * t10243 - 0.42504258063891829883e0 * t5394 * t12580 - 0.42504258063891829883e0 * t1784 * t10246 + 0.21252129031945914941e0 * t1784 * t10239 + 0.2766001889280e1 * t10155 * t2986 + 0.325024956416e0 * t107 * t10158 * t697 - 0.238156450669527040e0 * t9017 * t2302 + 0.14983660725163427627e0 * t1787 * t10192 + 0.476312901339054080e0 * t2263 * t12597 + 0.29967321450326855254e0 * t2276 * t9028;
17495   t12612 = t1154 * t3011;
17496   t12616 = t3759 * t689;
17497   t12631 = t873 * t689;
17498   t12635 = t10217 * t684;
17499   t12647 = -0.10979019874935515226e0 * t2992 * t875 + 0.15762619094478157329e0 * t3793 * t3300 * t11037 + 0.36614111499190467036e1 * t1149 * t10097 * t3001 - 0.12204703833063489012e1 * t1149 * t2283 * t12612 + 0.18968792869915364414e1 * t3755 * t10105 * t12616 - 0.32672968537417605163e1 * t1149 * t10105 * t3001 + 0.21252129031945914941e0 * t10272 * t1791 + 0.97972381755974563669e-1 * t10275 * t1791 + 0.42504258063891829882e0 * t8859 * t2280 + 0.42504258063891829882e0 * t2273 * t8867 + 0.31525238188956314657e0 * t5504 * t6656 * t12631 + 0.21252129031945914941e0 * t12635 * t112 - 0.28131861550297056947e0 * t5399 * t10259 + 0.29967321450326855254e0 * t7822 * t2279 * t9027 + 0.476312901339054080e0 * t5388 * t12580 - 0.238156450669527040e0 * t2276 * t8953;
17500   t12678 = t1137 * t2279 * t684;
17501   t12684 = -0.42504258063891829883e0 * t10269 * t1791 + 0.461000314880e0 * t399 * t12516 - 0.119078225334763520e0 * t10285 * t1814 - 0.734005159174078464e0 * t107 * t10162 * t697 + 0.238156450669527040e0 * t10149 * t1814 + 0.461000314880e0 * t12497 * t112 - 0.922000629760e0 * t399 * t12512 - 0.10979019874935515226e0 * t2273 * t8941 - 0.85008516127783659764e0 * t2273 * t8947 + 0.19594476351194912734e0 * t8813 * t8929 - 0.56263723100594113893e0 * t6689 * t8937 + 0.75858199451789026627e0 * t2273 * t8917 - 0.10979019874935515226e0 * t2273 * t8922 - 0.10979019874935515226e0 * t1784 * t10115 - 0.85008516127783659764e0 * t6725 * t12678 + 0.650049912832e0 * t107 * t2309 * t3037;
17502   t12687 = my_piecewise3(t97, 0, t12562 + t12602 + t12647 + t12684);
17503   t12688 = my_piecewise3(t96, 0, t12687);
17504   t12690 = -t114 * t12475 - t12688 * t95 - 0.2e1 * t2982 * t879 - 0.2e1 * t3043 * t860 - t3281 * t703 - t3339 * t684;
17505   t12691 = t56 * t12690;
17506   t12696 = t3347 * t3045;
17507   t12714 = t12691 * t128 / 0.100e3 + t10307 * t3049 / 0.60e2 - 0.3e1 / 0.50e2 * t882 * t12696 + t3346 * t709 * t425 / 0.60e2 - t10316 * t3049 / 0.30e2 - t428 * t12690 * t128 / 0.100e3 - t10322 * t3049 / 0.180e3 + t1218 * t884 * t3045 / 0.50e2 + t10328 * t3049 / 0.180e3;
17508   t12715 = t131 * t12714;
17509   t12722 = t10339 * t719;
17510   t12734 = t719 * t3392;
17511   t12737 = -params->c1 * t12690;
17512   t12743 = t3076 * t24;
17513   t12750 = t3345 * t709;
17514   t12755 = t3369 * t881 * t3045;
17515   t12760 = t3341 * t709;
17516   t12764 = t896 * t12690;
17517   t12767 = -t12737 * t141 - 0.5e1 / 0.9e1 * t10357 * t3070 + 0.2e1 * t3068 * t902 + 0.20e2 / 0.9e1 * t6883 * t12743 + 0.2e1 * t893 * t3090 - 0.10e2 / 0.9e1 * t3073 * t3370 - 0.50e2 / 0.27e2 * t441 * t10369 * t12750 - 0.20e2 / 0.9e1 * t895 * t12755 + 0.5e1 / 0.9e1 * t3073 * t3373 + 0.50e2 / 0.81e2 * t441 * t2365 * t12760 + 0.5e1 / 0.9e1 * t895 * t12764;
17518   t12769 = t3376 * t728;
17519   t12773 = t3378 * t728;
17520   t12778 = t10399 * t3045;
17521   t12785 = t442 * t12690;
17522   t12795 = my_piecewise3(t139, t12767 * t145 + t12769 * t145 + t12773 * t145 + 0.2e1 * t3083 * t901, -0.10e2 / 0.3e1 * t10396 * t731 - 0.4e1 * t1252 * t12778 - 0.10e2 / 0.3e1 * t10404 * t731 + 0.10e2 / 0.9e1 * t10408 * t731 + t449 * t12785 * t147 + 0.5e1 / 0.9e1 * t10415 * t731 - 0.2e1 * t1266 * t12778 - 0.5e1 / 0.9e1 * t10421 * t731);
17523   t12798 = 0.24e2 * t9970 * t12396 - 0.16e2 * t2225 * t12399 - 0.16e2 * t9977 * t12402 + 0.8e1 * t1030 * t3259 * t734 - 0.4e1 * t1030 * t12396 + 0.4e1 * t330 * t12402 - 0.2e1 * t330 * t12412 - 0.4e1 * t2225 * t12415 + 0.2e1 * t330 * t12418 * t150 + 0.2e1 * t330 * t12715 * t150 - 0.2e1 * t330 * t3357 * t734 + 0.8e1 * t2225 * t12722 - 0.4e1 * t330 * t2957 * t905 - 0.4e1 * t330 * t3058 * t905 - 0.4e1 * t330 * t888 * t3096 - t330 * t12734 - t138 * t12795 + 0.1174e1 * t12795;
17524   t12800 = t847 * t12798 * t167;
17525   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17526     v3sigmalapl2[0] = -0.3e1 / 0.8e1 * t846 * t12800 + 0.92773125000000000000e0 * t10434 * t745;
17527 
17528   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17529     v3sigmalapl2[1] = 0.0e0;
17530 
17531   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17532     v3sigmalapl2[2] = 0.0e0;
17533 
17534   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17535     v3sigmalapl2[3] = 0.0e0;
17536 
17537   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17538     v3sigmalapl2[4] = 0.0e0;
17539 
17540   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17541     v3sigmalapl2[5] = 0.0e0;
17542 
17543   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17544     v3sigmalapl2[6] = 0.0e0;
17545 
17546   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17547     v3sigmalapl2[7] = 0.0e0;
17548 
17549   t12805 = t3405 * t814;
17550   t12808 = t3405 * t811;
17551   t12811 = t2418 * t3209;
17552   t12821 = t3400 * t829;
17553   t12824 = t10470 * t814;
17554   t12827 = t811 * t3498;
17555   t12834 = t68 * t215;
17556   t12835 = t12834 * t12046;
17557   t12843 = t2431 * t223;
17558   t12844 = t12843 * t3131;
17559   t12848 = t10498 * t776;
17560   t12851 = t10498 * t771;
17561   t12854 = t10507 * t759;
17562   t12857 = t1482 * t1498;
17563   t12858 = t7091 * t3130;
17564   t12859 = t12857 * t12858;
17565   t12862 = t3417 * t776;
17566   t12865 = t552 * t923;
17567   t12866 = t12865 * t3131;
17568   t12868 = t552 * t3413;
17569   t12869 = t558 * t19;
17570   t12870 = t12869 * t759;
17571   t12875 = t210 * t776;
17572   t12876 = t68 * t12875;
17573   t12881 = t9421 * t5891;
17574   t12884 = -t68 * t10479 * t776 / 0.5832e4 + t12835 / 0.2592e4 + 0.3e1 * t10485 * t3119 - 0.2e1 * t2431 * t3123 + 0.5e1 / 0.18e2 * t10490 * t3125 + t12844 / 0.2592e4 + 0.3e1 * t5977 * t3414 - 0.15e2 / 0.2e1 * t10497 * t12848 + 0.6e1 * t2435 * t12851 - 0.5e1 / 0.6e1 * t10506 * t12854 - t12859 / 0.864e3 - t2008 * t3417 + 0.3e1 / 0.2e1 * t1482 * t12862 + t12866 / 0.2592e4 + 0.5e1 / 0.36e2 * t12868 * t12870 - t12049 * t3420 / 0.2916e4 + t9449 * t12876 / 0.1944e4 - t12059 * t3420 / 0.2916e4 + 0.5e1 / 0.17496e5 * t3128 * t12881;
17575   t12892 = t10671 * t2061;
17576   t12895 = t10621 * t2061;
17577   t12901 = t10642 * t2061;
17578   t12907 = t10660 * t2061;
17579   t12913 = t10664 * t2061;
17580   t12919 = t2475 * t9557;
17581   t12930 = t1545 * t3163;
17582   t12934 = t10653 * t779;
17583   t12939 = -0.119078225334763520e0 * t1549 * t12892 + 0.14683899485061986386e1 * t575 * t12895 + 0.14983660725163427627e0 * t4823 * t10675 * t2061 - 0.4936538891835801600e1 * t575 * t12901 - 0.119078225334763520e0 * t1549 * t3455 * t2838 - 0.922000629760e0 * t575 * t12907 - 0.61023519165317445059e0 * t1540 * t10664 * t3153 + 0.822756481972633600e0 * t575 * t12913 - 0.21252129031945914941e0 * t1549 * t3442 * t2838 + 0.1645512963945267200e1 * t575 * t12919 - 0.10979019874935515226e0 * t3144 * t941 + 0.15762619094478157329e0 * t4838 * t3442 * t11334 + 0.36614111499190467036e1 * t1540 * t10642 * t3153 - 0.12204703833063489012e1 * t1540 * t2475 * t12930 + 0.21252129031945914941e0 * t12934 * t250 - 0.119078225334763520e0 * t10650 * t2085;
17584   t12940 = t2044 * t3134;
17585   t12950 = t1528 * t2471 * t779;
17586   t12965 = t4708 * t784;
17587   t12975 = t242 * t3189;
17588   t12982 = 0.42504258063891829882e0 * t7365 * t12940 + 0.21252129031945914941e0 * t2055 * t10566 - 0.238156450669527040e0 * t2468 * t9777 - 0.10979019874935515226e0 * t2055 * t10770 - 0.85008516127783659764e0 * t7216 * t12950 - 0.10979019874935515226e0 * t2465 * t9517 - 0.85008516127783659764e0 * t2465 * t9521 + 0.19594476351194912734e0 * t9475 * t9501 - 0.56263723100594113893e0 * t7287 * t9513 + 0.75858199451789026627e0 * t2465 * t9524 - 0.10979019874935515226e0 * t2465 * t9658 + 0.18968792869915364414e1 * t4707 * t10621 * t12965 - 0.32672968537417605163e1 * t1540 * t10621 * t3153 - 0.238156450669527040e0 * t1549 * t3164 * t3446 - 0.238156450669527040e0 * t1549 * t932 * t12975 + 0.238156450669527040e0 * t1549 * t3450 * t2838;
17589   t12984 = t3442 * t2061;
17590   t12987 = t2482 * t9557;
17591   t12990 = t939 * t779;
17592   t12991 = t1534 * t12990;
17593   t12998 = t247 * t3134;
17594   t13005 = t569 * t12884;
17595   t13018 = -t12884;
17596   t13019 = t577 * t13018;
17597   t13020 = t13019 * t242;
17598   t13025 = 0.10708320e2 * t3434 * t3179 - 0.7138880e1 * t2454 * t12998 - 0.19111352870400e2 * t10691 * t3179 - 0.3569440e1 * t10695 * t3179 + 0.1784720e1 * t13005 * t247 + 0.3185225478400e1 * t10653 * t3179 + 0.6370450956800e1 * t2461 * t12998 + 0.5684735615810048000e1 * t10737 * t3179 + 0.10708320e2 * t12984 - 0.7138880e1 * t12987 - 0.19111352870400e2 * t12901 - 0.3569440e1 * t12907 + 0.1784720e1 * t13020 + 0.3185225478400e1 * t12913 + 0.6370450956800e1 * t12919 + 0.5684735615810048000e1 * t12895;
17599   t13040 = t10737 * t779;
17600   t13047 = t10691 * t779;
17601   t13054 = 0.2766001889280e1 * t575 * t12984 - 0.1844001259520e1 * t575 * t12987 + 0.476312901339054080e0 * t2455 * t12991 + 0.29967321450326855254e0 * t2468 * t9759 - 0.258304e0 * t245 * t583 * t13025 - 0.238156450669527040e0 * t9691 * t2494 + 0.14983660725163427627e0 * t2058 * t10756 + 0.325024956416e0 * t245 * t10752 * t792 + 0.461000314880e0 * t575 * t13020 - 0.54895099374677576129e-1 * t10601 * t2085 + 0.97972381755974563669e-1 * t13040 * t250 + 0.461000314880e0 * t13005 * t250 - 0.922000629760e0 * t10696 * t3138 - 0.12751277419167548965e1 * t13047 * t250 + 0.238156450669527040e0 * t10700 * t2085 - 0.1844001259520e1 * t2455 * t12940;
17602   t13064 = t939 * t784;
17603   t13068 = t12193 * t3446;
17604   t13093 = -0.734005159174078464e0 * t245 * t10646 * t792 + 0.2766001889280e1 * t10601 * t3138 - 0.119078225334763520e0 * t2058 * t10759 + 0.37929099725894513314e0 * t2055 * t10569 + 0.31525238188956314657e0 * t6238 * t7222 * t13064 - 0.42504258063891829883e0 * t6222 * t13068 - 0.42504258063891829883e0 * t2055 * t10562 + 0.97972381755974563669e-1 * t10578 * t2062 + 0.42504258063891829882e0 * t9663 * t2472 + 0.42504258063891829882e0 * t2465 * t9558 - 0.28131861550297056947e0 * t6225 * t10586 + 0.29967321450326855254e0 * t8511 * t2471 * t9701 + 0.476312901339054080e0 * t6216 * t13068 - 0.42504258063891829883e0 * t10572 * t2062 + 0.21252129031945914941e0 * t10575 * t2062 + 0.650049912832e0 * t245 * t2501 * t3189;
17605   t13096 = my_piecewise3(t235, 0, t12939 + t12982 + t13054 + t13093);
17606   t13097 = my_piecewise3(t234, 0, t13096);
17607   t13099 = -t12884 * t252 - t13097 * t233 - 0.2e1 * t3134 * t945 - 0.2e1 * t3195 * t926 - t3423 * t798 - t3481 * t779;
17608   t13100 = t56 * t13099;
17609   t13105 = t3489 * t3197;
17610   t13123 = t13100 * t266 / 0.100e3 + t10785 * t3201 / 0.60e2 - 0.3e1 / 0.50e2 * t948 * t13105 + t3488 * t804 * t601 / 0.60e2 - t10794 * t3201 / 0.30e2 - t604 * t13099 * t266 / 0.100e3 - t10800 * t3201 / 0.180e3 + t1609 * t950 * t3197 / 0.50e2 + t10806 * t3201 / 0.180e3;
17611   t13124 = t269 * t13123;
17612   t13131 = t10817 * t814;
17613   t13143 = t814 * t3534;
17614   t13146 = -params->c1 * t13099;
17615   t13152 = t3228 * t24;
17616   t13159 = t3487 * t804;
17617   t13164 = t3511 * t947 * t3197;
17618   t13169 = t3483 * t804;
17619   t13173 = t962 * t13099;
17620   t13176 = -t13146 * t279 - 0.5e1 / 0.9e1 * t10835 * t3222 + 0.2e1 * t3220 * t968 + 0.20e2 / 0.9e1 * t7442 * t13152 + 0.2e1 * t959 * t3242 - 0.10e2 / 0.9e1 * t3225 * t3512 - 0.50e2 / 0.27e2 * t617 * t10847 * t13159 - 0.20e2 / 0.9e1 * t961 * t13164 + 0.5e1 / 0.9e1 * t3225 * t3515 + 0.50e2 / 0.81e2 * t617 * t2557 * t13169 + 0.5e1 / 0.9e1 * t961 * t13173;
17621   t13178 = t3518 * t823;
17622   t13182 = t3520 * t823;
17623   t13187 = t10877 * t3197;
17624   t13194 = t618 * t13099;
17625   t13204 = my_piecewise3(t277, t13176 * t283 + t13178 * t283 + t13182 * t283 + 0.2e1 * t3235 * t967, -0.10e2 / 0.3e1 * t10874 * t826 - 0.4e1 * t1643 * t13187 - 0.10e2 / 0.3e1 * t10882 * t826 + 0.10e2 / 0.9e1 * t10886 * t826 + t449 * t13194 * t285 + 0.5e1 / 0.9e1 * t10893 * t826 - 0.2e1 * t1655 * t13187 - 0.5e1 / 0.9e1 * t10899 * t826);
17626   t13207 = 0.24e2 * t10449 * t12805 - 0.16e2 * t2417 * t12808 - 0.16e2 * t10456 * t12811 + 0.8e1 * t1423 * t3401 * t829 - 0.4e1 * t1423 * t12805 + 0.4e1 * t510 * t12811 - 0.2e1 * t510 * t12821 - 0.4e1 * t2417 * t12824 + 0.2e1 * t510 * t12827 * t288 + 0.2e1 * t510 * t13124 * t288 - 0.2e1 * t510 * t3499 * t829 + 0.8e1 * t2417 * t13131 - 0.4e1 * t510 * t3109 * t971 - 0.4e1 * t510 * t3210 * t971 - 0.4e1 * t510 * t954 * t3248 - t510 * t13143 - t276 * t13204 + 0.1174e1 * t13204;
17627   t13209 = t913 * t13207 * t302;
17628   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17629     v3sigmalapl2[8] = -0.3e1 / 0.8e1 * t846 * t13209 + 0.92773125000000000000e0 * t10912 * t840;
17630 
17631   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17632     v3sigmalapltau[0] = 0.0e0;
17633 
17634   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17635     v3sigmalapltau[1] = 0.0e0;
17636 
17637   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17638     v3sigmalapltau[2] = 0.0e0;
17639 
17640   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17641     v3sigmalapltau[3] = 0.0e0;
17642 
17643   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17644     v3sigmalapltau[4] = 0.0e0;
17645 
17646   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17647     v3sigmalapltau[5] = 0.0e0;
17648 
17649   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17650     v3sigmalapltau[6] = 0.0e0;
17651 
17652   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17653     v3sigmalapltau[7] = 0.0e0;
17654 
17655   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17656     v3sigmalapltau[8] = 0.0e0;
17657 
17658   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17659     v3sigmalapltau[9] = 0.0e0;
17660 
17661   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17662     v3sigmalapltau[10] = 0.0e0;
17663 
17664   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17665     v3sigmalapltau[11] = 0.0e0;
17666 
17667   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17668     v3sigmatau2[0] = 0.0e0;
17669 
17670   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17671     v3sigmatau2[1] = 0.0e0;
17672 
17673   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17674     v3sigmatau2[2] = 0.0e0;
17675 
17676   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17677     v3sigmatau2[3] = 0.0e0;
17678 
17679   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17680     v3sigmatau2[4] = 0.0e0;
17681 
17682   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17683     v3sigmatau2[5] = 0.0e0;
17684 
17685   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17686     v3sigmatau2[6] = 0.0e0;
17687 
17688   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17689     v3sigmatau2[7] = 0.0e0;
17690 
17691   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17692     v3sigmatau2[8] = 0.0e0;
17693 
17694   t13214 = t132 * t131;
17695   t13215 = t3258 * t887;
17696   t13216 = t13214 * t13215;
17697   t13220 = t131 * t13215;
17698   t13224 = t2226 * t3356;
17699   t13232 = t3258 * t905;
17700   t13235 = t68 * t72;
17701   t13244 = t86 * t85;
17702   t13246 = 0.1e1 / t1105 / t88;
17703   t13247 = t13244 * t13246;
17704   t13248 = t3271 * t857;
17705   t13249 = t13247 * t13248;
17706   t13252 = t3707 * t13248;
17707   t13255 = t6536 * t3277;
17708   t13260 = -t13235 * t11644 / 0.972e3 + 0.9e1 * t6573 * t3272 - 0.3e1 * t2239 * t3275 - t12434 * t3278 / 0.972e3 - 0.15e2 * t3694 * t13249 + 0.9e1 * t1091 * t13252 + t12448 * t13255 / 0.324e3 - t12456 * t3278 / 0.972e3;
17709   t13274 = t104 * t3333;
17710   t13278 = t10077 * t2279;
17711   t13284 = t2290 * t10238;
17712   t13287 = t104 * t3320;
17713   t13307 = t10217 * t860;
17714   t13312 = t3299 * t865;
17715   t13313 = t3757 * t13312;
17716   t13314 = t13313 * t104;
17717   t13317 = -0.12751277419167548965e1 * t2273 * t10246 + 0.63756387095837744823e0 * t2273 * t10239 - 0.84395584650891170840e0 * t6689 * t10259 + 0.11378729917768353994e1 * t2273 * t10243 - 0.357234676004290560e0 * t1158 * t866 * t13274 + 0.2468269445917900800e1 * t399 * t13278 - 0.63756387095837744824e0 * t1158 * t3300 * t3304 - 0.2766001889280e1 * t399 * t13284 + 0.44950982175490282881e0 * t3771 * t866 * t13287 + 0.714469352008581120e0 * t1158 * t3308 * t3304 - 0.12751277419167548965e1 * t10269 * t2280 + 0.63756387095837744823e0 * t10272 * t2280 + 0.29391714526792369101e0 * t10275 * t2280 - 0.32937059624806545678e0 * t2273 * t10115 + 0.975074869248e0 * t107 * t2309 * t3333 + 0.44950982175490282881e0 * t2276 * t10192 + 0.63756387095837744823e0 * t13307 * t112 - 0.357234676004290560e0 * t10285 * t2302 + 0.14683899485061986386e1 * t399 * t13314;
17718   t13318 = t3285 * t860;
17719   t13319 = t1132 * t13318;
17720   t13322 = t109 * t3281;
17721   t13325 = t3874 * t13318;
17722   t13328 = t393 * t13260;
17723   t13331 = t860 * t109;
17724   t13334 = t3879 * t13318;
17725   t13337 = t1151 * t13312;
17726   t13338 = t13337 * t104;
17727   t13341 = t3741 * t13312;
17728   t13342 = t13341 * t104;
17729   t13344 = -t13260;
17730   t13345 = t401 * t13344;
17731   t13346 = t13345 * t104;
17732   t13350 = 0.10708320e2 * t13319 * t109 - 0.10708320e2 * t2262 * t13322 - 0.19111352870400e2 * t13325 * t109 + 0.1784720e1 * t13328 * t109 + 0.9555676435200e1 * t10217 * t13331 + 0.5684735615810048000e1 * t13334 * t109 + 0.10708320e2 * t13338 - 0.10708320e2 * t13284 - 0.19111352870400e2 * t13342 + 0.1784720e1 * t13346 + 0.9555676435200e1 * t13278 + 0.5684735615810048000e1 * t13314;
17733   t13354 = t1154 * t873;
17734   t13358 = t1154 * t3312;
17735   t13386 = t3320 * t873;
17736   t13390 = t1773 * t3281;
17737   t13401 = -0.258304e0 * t107 * t407 * t13350 + 0.47287857283434471986e0 * t3793 * t3300 * t13354 - 0.18307055749595233518e1 * t1149 * t2283 * t13358 - 0.357234676004290560e0 * t1158 * t3313 * t3304 + 0.2766001889280e1 * t13319 * t112 - 0.12751277419167548965e1 * t13325 * t112 - 0.16468529812403272839e0 * t10155 * t2302 - 0.357234676004290560e0 * t2276 * t10280 + 0.97972381755974563669e-1 * t13334 * t112 + 0.461000314880e0 * t13328 * t112 + 0.36614111499190467036e1 * t1149 * t13341 * t1154 + 0.714469352008581120e0 * t10149 * t2302 - 0.4936538891835801600e1 * t399 * t13342 + 0.461000314880e0 * t399 * t13346 - 0.734005159174078464e0 * t107 * t3814 * t13386 - 0.2766001889280e1 * t2263 * t13390 + 0.18968792869915364414e1 * t3755 * t13313 * t3759 + 0.2766001889280e1 * t399 * t13338 - 0.32672968537417605163e1 * t1149 * t13313 * t1154;
17738   t13403 = my_piecewise3(t97, 0, t13317 + t13401);
17739   t13404 = my_piecewise3(t96, 0, t13403);
17740   t13406 = -t114 * t13260 - t13404 * t95 - 0.3e1 * t3281 * t879 - 0.3e1 * t3339 * t860;
17741   t13407 = t56 * t13406;
17742   t13411 = t124 * t881 * t128;
17743   t13414 = t3345 * t881;
17744   t13415 = t56 * t13414;
17745   t13418 = t126 * t128;
17746   t13424 = t3341 * t881;
17747   t13431 = t13407 * t128 / 0.100e3 - 0.9e1 / 0.100e3 * t3342 * t13411 - 0.3e1 / 0.100e3 * t13415 * t128 + 0.3e1 / 0.50e2 * t13415 * t13418 - t428 * t13406 * t128 / 0.100e3 + 0.3e1 / 0.100e3 * t1218 * t13424 * t128 - t3949 * t13414 * t128 / 0.100e3;
17748   t13432 = t131 * t13431;
17749   t13443 = -params->c1 * t13406;
17750   t13451 = t23 * t1265;
17751   t13452 = t13451 * t13414;
17752   t13455 = t3369 * t13424;
17753   t13458 = t896 * t13406;
17754   t13461 = -t13443 * t141 + 0.3e1 * t3365 * t902 - 0.6e1 * t893 * t3381 + 0.3e1 * t893 * t3385 + 0.10e2 / 0.3e1 * t895 * t13452 - 0.10e2 / 0.3e1 * t895 * t13455 + 0.5e1 / 0.9e1 * t895 * t13458;
17755   t13463 = t3376 * t900;
17756   t13466 = t3378 * t900;
17757   t13469 = t1265 * t13414;
17758   t13473 = t10399 * t3341;
17759   t13476 = t4004 * t13414;
17760   t13480 = t442 * t13406;
17761   t13485 = t4019 * t13414;
17762   t13489 = my_piecewise3(t139, t13461 * t145 + 0.3e1 * t13463 * t145 + t13466 * t145, 0.6e1 * t1263 * t13476 * t147 + 0.6e1 * t13469 * t147 * t449 + t13480 * t147 * t449 + t13485 * t147 * t4017 - 0.6e1 * t1252 * t13473 - 0.3e1 * t1266 * t13473);
17763   t13492 = 0.48e2 * t3619 * t13216 * t150 - 0.24e2 * t1030 * t13220 * t150 - 0.24e2 * t9977 * t13224 + 0.24e2 * t1030 * t3259 * t905 + 0.6e1 * t330 * t13224 - 0.6e1 * t330 * t13232 + 0.2e1 * t330 * t13432 * t150 - 0.6e1 * t330 * t3357 * t905 - 0.6e1 * t330 * t888 * t3392 - t138 * t13489 + 0.1174e1 * t13489;
17764   t13494 = t847 * t13492 * t167;
17765   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17766     v3lapl3[0] = -0.3e1 / 0.8e1 * t846 * t13494;
17767 
17768   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17769     v3lapl3[1] = 0.0e0;
17770 
17771   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17772     v3lapl3[2] = 0.0e0;
17773 
17774   t13497 = t270 * t269;
17775   t13498 = t3400 * t953;
17776   t13499 = t13497 * t13498;
17777   t13503 = t269 * t13498;
17778   t13507 = t2418 * t3498;
17779   t13515 = t3400 * t971;
17780   t13518 = t68 * t210;
17781   t13527 = t224 * t223;
17782   t13529 = 0.1e1 / t1496 / t226;
17783   t13530 = t13527 * t13529;
17784   t13531 = t3413 * t923;
17785   t13532 = t13530 * t13531;
17786   t13535 = t4655 * t13531;
17787   t13538 = t7091 * t3419;
17788   t13543 = -t13518 * t12046 / 0.972e3 + 0.9e1 * t7128 * t3414 - 0.3e1 * t2431 * t3417 - t12843 * t3420 / 0.972e3 - 0.15e2 * t4642 * t13532 + 0.9e1 * t1482 * t13535 + t12857 * t13538 / 0.324e3 - t12865 * t3420 / 0.972e3;
17789   t13549 = t2482 * t10565;
17790   t13552 = t10664 * t2471;
17791   t13555 = t1545 * t939;
17792   t13559 = t1545 * t3454;
17793   t13566 = t242 * t3475;
17794   t13567 = t932 * t13566;
17795   t13575 = t242 * t3462;
17796   t13596 = -t13543;
17797   t13597 = t577 * t13596;
17798   t13598 = t13597 * t242;
17799   t13601 = t3441 * t931;
17800   t13602 = t4761 * t13601;
17801   t13603 = t13602 * t242;
17802   t13606 = -0.2766001889280e1 * t575 * t13549 + 0.2468269445917900800e1 * t575 * t13552 + 0.47287857283434471986e0 * t4838 * t3442 * t13555 - 0.18307055749595233518e1 * t1540 * t2475 * t13559 - 0.357234676004290560e0 * t1549 * t3455 * t3446 - 0.357234676004290560e0 * t1549 * t13567 - 0.63756387095837744824e0 * t1549 * t3442 * t3446 - 0.32937059624806545678e0 * t2465 * t10770 + 0.44950982175490282881e0 * t4823 * t932 * t13575 + 0.714469352008581120e0 * t1549 * t3450 * t3446 + 0.11378729917768353994e1 * t2465 * t10569 + 0.63756387095837744823e0 * t10575 * t2472 + 0.29391714526792369101e0 * t10578 * t2472 + 0.63756387095837744823e0 * t2465 * t10566 - 0.84395584650891170840e0 * t7287 * t10586 - 0.12751277419167548965e1 * t10572 * t2472 - 0.12751277419167548965e1 * t2465 * t10562 + 0.461000314880e0 * t575 * t13598 - 0.4936538891835801600e1 * t575 * t13603;
17803   t13607 = t4699 * t13601;
17804   t13614 = t1542 * t13601;
17805   t13615 = t13614 * t242;
17806   t13618 = t13607 * t242;
17807   t13623 = t10653 * t926;
17808   t13626 = t3427 * t926;
17809   t13627 = t4741 * t13626;
17810   t13630 = t1523 * t13626;
17811   t13633 = t247 * t3423;
17812   t13638 = t569 * t13543;
17813   t13641 = t926 * t247;
17814   t13644 = t4735 * t13626;
17815   t13653 = 0.10708320e2 * t13630 * t247 - 0.10708320e2 * t2454 * t13633 - 0.19111352870400e2 * t13627 * t247 + 0.1784720e1 * t13638 * t247 + 0.9555676435200e1 * t10653 * t13641 + 0.5684735615810048000e1 * t13644 * t247 + 0.10708320e2 * t13615 - 0.10708320e2 * t13549 - 0.19111352870400e2 * t13603 + 0.1784720e1 * t13598 + 0.9555676435200e1 * t13552 + 0.5684735615810048000e1 * t13618;
17816   t13673 = t2044 * t3423;
17817   t13678 = t3462 * t939;
17818   t13684 = 0.18968792869915364414e1 * t4707 * t13607 * t4708 - 0.32672968537417605163e1 * t1540 * t13607 * t1545 + 0.2766001889280e1 * t575 * t13615 + 0.14683899485061986386e1 * t575 * t13618 + 0.714469352008581120e0 * t10700 * t2494 + 0.63756387095837744823e0 * t13623 * t250 - 0.12751277419167548965e1 * t13627 * t250 - 0.258304e0 * t245 * t583 * t13653 + 0.2766001889280e1 * t13630 * t250 + 0.36614111499190467036e1 * t1540 * t13602 * t1545 - 0.357234676004290560e0 * t10650 * t2494 + 0.461000314880e0 * t13638 * t250 + 0.975074869248e0 * t245 * t2501 * t3475 - 0.16468529812403272839e0 * t10601 * t2494 + 0.44950982175490282881e0 * t2468 * t10756 - 0.2766001889280e1 * t2455 * t13673 + 0.97972381755974563669e-1 * t13644 * t250 - 0.734005159174078464e0 * t245 * t4688 * t13678 - 0.357234676004290560e0 * t2468 * t10759;
17819   t13686 = my_piecewise3(t235, 0, t13606 + t13684);
17820   t13687 = my_piecewise3(t234, 0, t13686);
17821   t13689 = -t13543 * t252 - t13687 * t233 - 0.3e1 * t3423 * t945 - 0.3e1 * t3481 * t926;
17822   t13690 = t56 * t13689;
17823   t13694 = t262 * t947 * t266;
17824   t13697 = t3487 * t947;
17825   t13698 = t56 * t13697;
17826   t13701 = t264 * t266;
17827   t13707 = t3483 * t947;
17828   t13714 = t13690 * t266 / 0.100e3 - 0.9e1 / 0.100e3 * t3484 * t13694 - 0.3e1 / 0.100e3 * t13698 * t266 + 0.3e1 / 0.50e2 * t13698 * t13701 - t604 * t13689 * t266 / 0.100e3 + 0.3e1 / 0.100e3 * t1609 * t13707 * t266 - t4897 * t13697 * t266 / 0.100e3;
17829   t13715 = t269 * t13714;
17830   t13726 = -params->c1 * t13689;
17831   t13734 = t23 * t1654;
17832   t13735 = t13734 * t13697;
17833   t13738 = t3511 * t13707;
17834   t13741 = t962 * t13689;
17835   t13744 = -t13726 * t279 + 0.3e1 * t3507 * t968 - 0.6e1 * t959 * t3523 + 0.3e1 * t959 * t3527 + 0.10e2 / 0.3e1 * t961 * t13735 - 0.10e2 / 0.3e1 * t961 * t13738 + 0.5e1 / 0.9e1 * t961 * t13741;
17836   t13746 = t3518 * t966;
17837   t13749 = t3520 * t966;
17838   t13752 = t1654 * t13697;
17839   t13756 = t10877 * t3483;
17840   t13759 = t4952 * t13697;
17841   t13763 = t618 * t13689;
17842   t13768 = t4965 * t13697;
17843   t13772 = my_piecewise3(t277, t13744 * t283 + 0.3e1 * t13746 * t283 + t13749 * t283, 0.6e1 * t1263 * t13759 * t285 + 0.6e1 * t13752 * t285 * t449 + t13763 * t285 * t449 + t13768 * t285 * t4017 - 0.6e1 * t13756 * t1643 - 0.3e1 * t13756 * t1655);
17844   t13775 = 0.48e2 * t4566 * t13499 * t288 - 0.24e2 * t1423 * t13503 * t288 - 0.24e2 * t10456 * t13507 + 0.24e2 * t1423 * t3401 * t971 + 0.6e1 * t510 * t13507 - 0.6e1 * t510 * t13515 + 0.2e1 * t510 * t13715 * t288 - 0.6e1 * t510 * t3499 * t971 - 0.6e1 * t510 * t954 * t3534 - t276 * t13772 + 0.1174e1 * t13772;
17845   t13777 = t913 * t13775 * t302;
17846   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17847     v3lapl3[3] = -0.3e1 / 0.8e1 * t846 * t13777;
17848 
17849   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17850     v3lapl2tau[0] = 0.0e0;
17851 
17852   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17853     v3lapl2tau[1] = 0.0e0;
17854 
17855   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17856     v3lapl2tau[2] = 0.0e0;
17857 
17858   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17859     v3lapl2tau[3] = 0.0e0;
17860 
17861   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17862     v3lapl2tau[4] = 0.0e0;
17863 
17864   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17865     v3lapl2tau[5] = 0.0e0;
17866 
17867   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17868     v3lapltau2[0] = 0.0e0;
17869 
17870   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17871     v3lapltau2[1] = 0.0e0;
17872 
17873   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17874     v3lapltau2[2] = 0.0e0;
17875 
17876   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17877     v3lapltau2[3] = 0.0e0;
17878 
17879   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17880     v3lapltau2[4] = 0.0e0;
17881 
17882   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17883     v3lapltau2[5] = 0.0e0;
17884 
17885   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17886     v3tau3[0] = 0.0e0;
17887 
17888   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17889     v3tau3[1] = 0.0e0;
17890 
17891   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17892     v3tau3[2] = 0.0e0;
17893 
17894   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17895     v3tau3[3] = 0.0e0;
17896 
17897 #ifndef XC_DONT_COMPILE_LXC
17898 
17899   if(order < 4) return;
17900 
17901 
17902   t13794 = t156 * t166;
17903   t13798 = t3549 * t3554;
17904   t13805 = t3549 * t3576;
17905   t13808 = t459 * t3563 * t3557;
17906   t13813 = t459 * t19 * t38;
17907   t13821 = t3549 * t3580;
17908   t13830 = t14 * t14;
17909   t13834 = t5 * t7 / t983 / t13830;
17910   t13835 = t987 * t987;
17911   t13840 = 0.10291428212230410600e4 * t1297 * t1298 * t29 * t1301 + 0.17527082181762906534e4 * t1297 * t153 * t159 * t2755 * t13794 + 0.32216644838286502748e3 * t13798 + 0.48324967257429754121e3 * t1297 * t1273 * t742 * t1299 * t1301 + 0.22049033614354461380e1 * t13805 - 0.23749920000000000000e4 * t1926 * t13808 * t3568 + 0.66147100843063384139e1 * t1297 * t13813 * t3575 - 0.96649934514859508241e3 * t1297 * t3552 * t64 * t1301 - 0.32216644838286502747e3 * t13821 + 0.83124720000000000000e4 * t1926 * t3565 * t1938 * t659 * t166 - t986 * t4077 * t988 - 0.5e1 / 0.27e2 * t13834 * t311 * t167 * t13835;
17912   t13842 = t4147 * t992 * t4149;
17913   t13845 = t986 * t4156 * t988;
17914   t13847 = t322 * t1273;
17915   t13849 = t310 * t13847 * t317;
17916   t13852 = t8 * t323 * t4028;
17917   t13855 = t310 * t992 * t4130;
17918   t13858 = t310 * t4084 * t1011;
17919   t13860 = t4107 * t10;
17920   t13862 = t9 / t13860;
17921   t13864 = 0.12e2 * t4108 - 0.12e2 * t13862;
17922   t13869 = t1361 * t487;
17923   t13870 = t484 * t13869;
17924   t13881 = t484 * t1314 * t4112;
17925   t13883 = t1010 * t1010;
17926   t13888 = t1346 * t317;
17927   t13889 = t310 * t13888;
17928   t13891 = 0.4e1 / 0.27e2 * t13842 + 0.2e1 / 0.9e1 * t13845 - 0.2e1 * t13849 - t13852 / 0.2e1 - 0.2e1 / 0.3e1 * t13855 - 0.2e1 * t13858 - t484 * t485 * t302 * t13864 / 0.2e1 - 0.20e2 / 0.27e2 * t13870 + t310 * t311 * t167 * t13864 / 0.2e1 - 0.3e1 * t310 * t4077 * t1011 - 0.2e1 / 0.3e1 * t13881 - t986 * t311 * t167 * t13883 / 0.2e1 - 0.20e2 / 0.27e2 * t13889;
17929   t13893 = t172 * t172;
17930   t13897 = t5 * t7 / t1305 / t13893;
17931   t13898 = t1309 * t1309;
17932   t13904 = t4090 * t1314 * t4092;
17933   t13907 = t1308 * t4099 * t1310;
17934   t13909 = t1318 * t1318;
17935   t13915 = t484 * t4099 * t1319;
17936   t13917 = t17 * t4027;
17937   t13922 = t310 * t4156 * t1011;
17938   t13925 = t986 * t4084 * t988;
17939   t13930 = t1016 * t459;
17940   t13932 = t310 * t13930 * t317;
17941   t13935 = t4040 * t992 * t4043;
17942   t13942 = -0.5e1 / 0.27e2 * t13897 * t485 * t302 * t13898 + 0.4e1 / 0.27e2 * t13904 + 0.2e1 / 0.9e1 * t13907 - t1308 * t485 * t302 * t13909 / 0.2e1 + 0.2e1 / 0.3e1 * t13915 - 0.2e1 * t310 * t13917 * t317 + 0.2e1 / 0.3e1 * t13922 - 0.2e1 / 0.3e1 * t13925 + 0.4e1 / 0.9e1 * t4147 * t996 * t4149 + 0.4e1 / 0.3e1 * t13932 - 0.43069537681507200000e3 * t13935 + 0.12920861304452160000e4 * t4040 * t311 * t3559 * t473 * t166;
17943   t13948 = t986 * t992 * t3596;
17944   t13953 = 0.10e2 / 0.27e2 * t8 * t174 * t4203 * t303;
17945   t13957 = 0.10e2 / 0.27e2 * t8 * t16 * t4203 * t168;
17946   t13963 = t5086 * t3569;
17947   t13965 = t847 * t1016;
17948   t13966 = t5 * t13965;
17949   t13967 = t13966 * t1302;
17950   t13970 = t8 * t1017 * t1274;
17951   t13980 = t166 * t4129;
17952   t13987 = t3593 * t4122;
17953   t13989 = 0.2e1 / 0.3e1 * t4147 * t311 * t988 * t1010 - 0.2e1 / 0.3e1 * t13948 + t13953 + t13957 - 0.88196134457417845518e1 * t1297 * t3573 * t742 * t29 * t166 - 0.79166400000000000000e3 * t13963 - 0.10738881612762167582e3 * t13967 + t13970 / 0.2e1 + 0.15393466666666666667e2 * t3585 * t475 * t1291 * t3586 + 0.46180400000000000000e2 * t1001 * t475 * t1291 * t4120 - 0.13194400000000000000e2 * t1001 * t475 * t478 * t13980 - 0.39583200000000000000e2 * t4117 * t4122 - 0.13194400000000000000e2 * t13987;
17954   t13993 = t8 * t4032 * t460;
17955   t13996 = t468 * t309 * t17;
17956   t13997 = t153 * t4041;
17957   t13998 = t473 * t166;
17958   t13999 = t13998 * t316;
17959   t14003 = t316 * t1010;
17960   t14020 = t1308 * t1314 * t4047;
17961   t14029 = t3593 * t4037;
17962   t14037 = -0.5e1 / 0.9e1 * t13993 - 0.17227815072602880000e4 * t13996 * t13997 * t13999 - 0.13194400000000000000e2 * t4278 * t4279 * t4280 * t14003 - 0.2e1 * t986 * t996 * t3596 - 0.2e1 / 0.3e1 * t986 * t311 * t317 * t4129 + 0.2e1 / 0.3e1 * t4090 * t485 * t1310 * t1318 - 0.2e1 / 0.3e1 * t14020 - 0.2e1 / 0.3e1 * t1308 * t485 * t487 * t4111 - 0.12920861304452160000e4 * t4040 * t996 * t4043 + 0.30786933333333333333e2 * t14029 + 0.92360800000000000000e2 * t4117 * t4037 + 0.11083296000000000000e4 * t1001 * t1286 * t3603 * t1002;
17963   t14038 = t984 * t322;
17964   t14040 = t469 * t14038 * t153;
17965   t14041 = t14040 * t3588;
17966   t14045 = t469 * t15 * t1016 * t153;
17967   t14046 = t14045 * t1004;
17968   t14051 = 0.1e1 / t162 / t82 * t3557 / 0.36e2;
17969   t14054 = 0.1e1 / t26 / t349;
17970   t14068 = t3593 * t4126;
17971   t14072 = t4145 * t17;
17972   t14074 = t469 * t14072 * t153;
17973   t14075 = t166 * t4148;
17974   t14085 = t469 * t999 * t1273;
17975   t14089 = t469 * t3583 * t459;
17976   t14093 = t469 * t3591 * t459;
17977   t14094 = t14093 * t1004;
17978   t14098 = -0.43981333333333333333e1 * t14041 + 0.87962666666666666668e1 * t14046 - 0.27708240000000000000e4 * t471 * t14051 * t41 * t14054 * t166 * t156 - 0.23749920000000000000e3 * t1001 * t1286 * t1037 * t4120 - 0.79166400000000000000e2 * t3585 * t1286 * t1037 * t3586 - 0.15833280000000000000e3 * t14068 - 0.47499840000000000000e3 * t4117 * t4126 + 0.29320888888888888889e1 * t14074 * t475 * t478 * t14075 - 0.10262311111111111111e3 * t1001 * t475 * t3608 * t1002 - 0.39583200000000000000e2 * t14085 * t1004 - 0.13194400000000000000e2 * t14089 * t3588 - 0.26388800000000000000e2 * t14094 + 0.34635300000000000000e2 * t4052 * t1293;
17979   t14100 = t8 * t3584;
17980   t14101 = t4062 * t987;
17981   t14105 = t8 * t3592;
17982   t14106 = t14105 * t4064;
17983   t14108 = t8 * t4116;
17984   t14111 = t4062 * t1010;
17985   t14115 = t3563 * t3557;
17986   t14116 = t14115 * t1938;
17987   t14117 = t3566 * t166;
17988   t14122 = t19 * t38;
17989   t14123 = t14122 * t742;
17990   t14124 = t64 * t166;
17991   t14134 = t4072 * t1288;
17992   t14136 = t4068 * t1293;
17993   t14138 = t1025 * t3610;
17994   t14145 = t4072 * t1293;
17995   t14147 = 0.21477763225524335164e3 * t14100 * t4061 * t14101 + 0.42955526451048670329e3 * t14106 + 0.12886657935314601099e4 * t14108 * t4064 + 0.64433289676573005494e3 * t4059 * t4061 * t14111 - 0.31666560000000000000e4 * t1001 * t14116 * t14117 * t316 + 0.88196134457417845519e1 * t4059 * t14123 * t14124 * t316 - 0.64604306522260800000e3 * t471 * t45 * t1284 * t166 * t4279 - 0.11874960000000000000e3 * t14134 - 0.76967333333333333334e1 * t14136 - 0.25655777777777777777e2 * t14138 + 0.83381277777777777776e2 * t471 * t475 * t157 * t45 * t166 + 0.23090200000000000000e2 * t14145;
17996   t14148 = t1025 * t3605;
17997   t14151 = 0.1e1 / t27 / t336;
17998   t14152 = sigma[0] * t14151;
17999   t14160 = t469 * t18 * t4027;
18000   t14164 = t469 * t4032 * t153;
18001   t14165 = t14164 * t480;
18002   t14169 = t4068 * t1288;
18003   t14174 = t469 * t323 * t1273;
18004   t14175 = t14174 * t480;
18005   t14178 = t469 * t1017 * t459;
18006   t14179 = t14178 * t480;
18007   t14181 = t3574 * t19;
18008   t14187 = t327 / t3617 / t133;
18009   t14188 = t1031 * t1031;
18010   t14198 = t1226 * t1226;
18011   t14211 = t24 * t14152;
18012   t14213 = t41 * t14054;
18013   t14217 = 0.1e1 / t1057;
18014   t14223 = 0.1e1 / t27 / t7645;
18015   t14228 = t3654 * rho[0];
18016   t14236 = t344 * t344;
18017   t14238 = t3650 * t35 / t14236;
18018   t14246 = t1223 * t1223;
18019   t14250 = t48 * t14151;
18020   t14253 = 0.13090e5 / 0.729e3 * t14211;
18021   t14260 = 0.4940e4 / 0.59049e5 * t68 * t69 * t1042;
18022   t14261 = sigma[0] * t3633;
18023   t14264 = 0.2717e4 / 0.13122e5 * t68 * t14261 * lapl[0];
18024   t14266 = 0.20900e5 / 0.177147e6 * t68 * t14213;
18025   t14269 = t3681 * t375;
18026   t14272 = t1084 * t1090;
18027   t14277 = t372 * t3693;
18028   t14284 = t1088 * t1088;
18029   t14287 = t84 / t92 / t14284;
18030   t14288 = t1092 * t1092;
18031   t14294 = t1115 * t1115;
18032   t14309 = t1095 * t1106;
18033   t14310 = t14309 * t36;
18034   t14313 = t85 * t3720;
18035   t14317 = t1102 * t1102;
18036   t14333 = t86 * t13246;
18037   t14334 = t14333 * t345;
18038   t14347 = -0.4400e4 / 0.243e3 * t3708 * t3679 - 0.440e3 / 0.27e2 * t3711 * t1038 + 0.12320e5 / 0.243e3 * t1099 * t3630 - 0.44000e5 / 0.2187e4 * t3721 * t3722 * t14217 + 0.200e3 / 0.81e2 * t14310 * t1110 + 0.16000e5 / 0.2187e4 * t14313 * t378 * t3723 + 0.6e1 * t14317 * t89 + 0.8e1 * t1745 * t3716 + 0.80e2 / 0.9e1 * t5225 * t1102 * t334 - 0.440e3 / 0.27e2 * t3704 * t1067 + 0.200e3 / 0.81e2 * t3707 * t1102 * t1082 + 0.80e2 / 0.27e2 * t1098 * t3716 * t334 + 0.50000e5 / 0.59049e5 * t14334 * t1055 * t14223 * t24 + 0.48950e5 / 0.2187e4 * t1108 * t1109 * t14054 - 0.26180e5 / 0.729e3 * t384 * t14250 + 0.2e1 * t377 * (t14260 - t14264 + t14266);
18039   t14350 = (0.13090e5 / 0.6561e4 * t14211 + 0.15400e5 / 0.2187e4 * t24 * lapl[0] * t3602 + t14260 - t14264 + t14266) * t93 - 0.2e1 * t14269 * t387 + 0.9e1 / 0.2e1 * t14272 * t1092 - 0.3e1 * t3683 * t1115 - 0.15e2 / 0.2e1 * t14277 * t3695 + 0.9e1 * t3686 * t3698 - 0.2e1 * t1086 * t3731 + 0.105e3 / 0.16e2 * t14287 * t14288 - 0.45e2 / 0.4e1 * t3694 * t1092 * t1115 + 0.9e1 / 0.4e1 * t1091 * t14294 + 0.3e1 * t1091 * t387 * t3731 - t376 * t14347 / 0.2e1 - t14253;
18040   t14358 = t1169 * t1169;
18041   t14360 = t1164 * t14358 * t104;
18042   t14365 = t3875 * t398;
18043   t14372 = t3824 * t398;
18044   t14375 = pow(t105, -0.3741696e1);
18045   t14376 = t100 * t14375;
18046   t14377 = t14376 * t111;
18047   t14378 = t1150 * t1150;
18048   t14379 = 0.1e1 / t14378;
18049   t14380 = t1152 * t1152;
18050   t14381 = t14379 * t14380;
18051   t14382 = t1154 * t1154;
18052   t14389 = t411 * t1169;
18053   t14390 = t1138 * t14389;
18054   t14393 = t3870 * t398;
18055   t14396 = t1153 * t3833;
18056   t14399 = t3754 * t407;
18057   t14400 = t3759 * t411;
18058   t14404 = t1132 * t3734;
18059   t14411 = -0.2766001889280e1 * t399 * t14360 - 0.25502554838335097930e1 * t3827 * t3842 - 0.23513371621433895280e1 * t14365 * t1139 - 0.11756685810716947640e1 * t3830 * t3842 - 0.25502554838335097930e1 * t3837 * t3834 + 0.51005109676670195860e1 * t14372 * t1139 - 0.92817332546461565657e1 * t14377 * t14381 * t14382 + 0.20312390406477209506e2 * t3755 * t14381 * t3759 + 0.2857877408034324480e1 * t5388 * t14390 + 0.85008516127783659764e0 * t14393 * t1139 + 0.16596011335680e2 * t399 * t14396 - 0.19598860293882473159e1 * t14399 * t3758 * t14400 + 0.85008516127783659764e0 * t14404 * t390 * t112 - 0.13606156761889987933e2 * t1149 * t14381 * t1154;
18060   t14412 = t1143 * t3914;
18061   t14416 = t1151 * t3806 * t1138;
18062   t14420 = 0.1e1 / t1150 / t1163;
18063   t14421 = t14420 * t14380;
18064   t14438 = t3880 * t398;
18065   t14443 = t3824 * t100;
18066   t14446 = t3741 * t1152;
18067   t14447 = t14446 * t3833;
18068   t14452 = t1124 * t1124;
18069   t14453 = t3874 * t14452;
18070   t14456 = -0.476312901339054080e0 * t1142 * t14412 + 0.3291025927890534400e1 * t399 * t14416 - 0.22762551443898437297e2 * t3755 * t14421 * t3759 + 0.39207562244901126197e2 * t1149 * t14421 * t1154 + 0.58783429053584738202e0 * t3879 * t1124 * t100 * t3768 + 0.13174823849922618271e1 * t3837 * t3858 + 0.12751277419167548965e1 * t3827 * t3834 + 0.58783429053584738202e0 * t3830 * t3834 + 0.18066119535619136469e0 * t14438 * t1139 - 0.714469352008581120e0 * t3819 * t3747 - 0.2857877408034324480e1 * t14443 * t1144 - 0.29619233351014809600e2 * t399 * t14447 + 0.41444833874132575653e0 * t3750 * t3803 - 0.11064007557120e2 * t14453 * t112;
18071   t14458 = t104 * t3806;
18072   t14459 = t3852 * t14458;
18073   t14462 = t398 * t3814;
18074   t14463 = t104 * t3815;
18075   t14474 = t3880 * t100;
18076   t14477 = pow(t110, -0.4258304e1);
18077   t14478 = t1178 * t1178;
18078   t14483 = t3741 * t14380 * t104;
18079   t14486 = t3874 * t1124;
18080   t14493 = t1137 * t14458;
18081   t14496 = t106 * t3814;
18082   t14497 = t14496 * t3815;
18083   t14500 = t1123 * t1118;
18084   t14501 = t14500 * t100;
18085   t14504 = t14381 * t104;
18086   t14507 = -0.3688002519040e1 * t399 * t14459 - 0.13535064380111787705e1 * t14462 * t403 * t14463 - 0.17980392870196113152e1 * t3771 * t1165 * t3772 + 0.16596011335680e2 * t3750 * t3768 + 0.89901964350980565762e0 * t3819 * t3803 - 0.10122663238838101478e0 * t14474 * t1144 + 0.23916119461575365556e1 * t107 * t14477 * t14478 - 0.11064007557120e2 * t399 * t14483 - 0.76507664515005293789e1 * t14486 * t100 * t3768 + 0.18915142913373788794e1 * t5504 * t1795 * t14389 + 0.85008516127783659764e0 * t1136 * t14493 - 0.13535064380111787705e1 * t1142 * t14497 + 0.2857877408034324480e1 * t14501 * t5514 + 0.26206649088979828343e1 * t399 * t14504;
18087   t14508 = t1151 * t14358;
18088   t14509 = t14508 * t104;
18089   t14514 = t1154 * t3806;
18090   t14518 = t1148 * t1177;
18091   t14519 = t1154 * t1178;
18092   t14523 = t411 * t1191;
18093   t14524 = t3802 * t14523;
18094   t14527 = t1131 * t1131;
18095   t14528 = 0.1e1 / t14527;
18096   t14529 = t14528 * t14452;
18097   t14532 = t1118 * t1118;
18098   t14533 = t1132 * t14532;
18099   t14540 = t1125 * t1148;
18100   t14543 = t3742 * t1154;
18101   t14544 = t8849 * t14543;
18102   t14549 = t3742 * t104;
18103   t14550 = t8849 * t14549;
18104   t14559 = 0.2468269445917900800e1 * t399 * t14509 - 0.32937059624806545678e0 * t3750 * t3747 - 0.24409407666126978024e1 * t1149 * t3887 * t14514 - 0.11900499994234945968e1 * t14518 * t1153 * t14519 + 0.17980392870196113152e1 * t1142 * t14524 + 0.45165298839047841173e-1 * t14529 * t112 + 0.63756387095837744823e0 * t14533 * t112 + 0.1300099825664e1 * t107 * t1177 * t3914 * t411 + 0.33758233860356468336e1 * t14540 * t3864 + 0.67516467720712936673e1 * t3861 * t14544 - 0.45514919671073415977e1 * t3837 * t3867 - 0.91029839342146831954e1 * t1136 * t14550 + 0.16044983381648203533e1 * t3771 * t1153 * t3772 + 0.1428938704017162240e1 * t1158 * t1165 * t3786;
18105   t14566 = t3875 * t100;
18106   t14573 = 0.1e1 / t1131 / t1122;
18107   t14574 = t14573 * t14452;
18108   t14579 = t1123 * t14532;
18109   t14584 = -t401 * t14350 * t104;
18110   t14587 = t1191 * t1191;
18111   t14596 = t1132 * t390;
18112   t14597 = t14596 * t100;
18113   t14599 = t1143 * t411 * t1118;
18114   t14606 = t3759 * t1169;
18115   t14613 = -0.4404030955044470784e1 * t107 * t3814 * t1178 * t1191 + 0.13174823849922618271e1 * t14566 * t1144 - 0.2857877408034324480e1 * t1158 * t3798 * t1159 - 0.11756685810716947640e1 * t14574 * t112 + 0.1428938704017162240e1 * t3783 * t3747 - 0.2766001889280e1 * t14579 * t112 + 0.461000314880e0 * t399 * t14584 + 0.975074869248e0 * t107 * t1177 * t14587 - 0.17980392870196113152e1 * t3783 * t3803 - 0.476312901339054080e0 * t1158 * t3807 * t1159 - 0.65874119249613091356e0 * t14597 * t14599 + 0.89901964350980565762e0 * t3771 * t1170 * t3772 + 0.11381275721949218649e2 * t3755 * t3757 * t1152 * t14606 + 0.33758233860356468337e1 * t3793 * t3758 * t3794;
18116   t14622 = t393 * t14350;
18117   t14625 = t3757 * t1169;
18118   t14626 = t14625 * t3841;
18119   t14645 = t1138 * t1169;
18120   t14646 = t3862 * t14645;
18121   t14650 = t7821 * t1138 * t1178;
18122   t14653 = t3841 * t411;
18123   t14654 = t5387 * t14653;
18124   t14660 = -0.15171639890357805325e1 * t1158 * t3758 * t1159 - 0.714469352008581120e0 * t1158 * t1170 * t3786 - 0.25502554838335097929e1 * t5394 * t14390 + 0.461000314880e0 * t14622 * t112 + 0.88103396910371918316e1 * t399 * t14626 + 0.21968466899514280221e2 * t1149 * t14446 * t3888 - 0.19603781122450563098e2 * t1149 * t14625 * t3863 - 0.476312901339054080e0 * t1158 * t3914 * t401 * t1138 - 0.37830285826747577588e1 * t3793 * t3743 * t3794 + 0.51005109676670195860e1 * t1158 * t3743 * t1159 + 0.45514919671073415976e1 * t1136 * t14646 + 0.82889667748265151307e0 * t1136 * t14650 + 0.13174823849922618271e1 * t1136 * t14654 - 0.51005109676670195860e1 * t14500 * t398 * t5314;
18125   t14662 = t3879 * t14452;
18126   t14665 = t3870 * t100;
18127   t14670 = t8876 * t14549;
18128   t14676 = t1128 * t1148;
18129   t14679 = t1133 * t1148;
18130   t14682 = t394 * t3754;
18131   t14683 = t3742 * t3759;
18132   t14684 = t8876 * t14683;
18133   t14687 = t8876 * t14543;
18134   t14694 = t3862 * t14549;
18135   t14702 = t3856 * t1138 * t1191;
18136   t14705 = 0.76507664515005293790e1 * t14662 * t112 - 0.476312901339054080e0 * t14665 * t1144 + 0.10491196150051375396e1 * t3830 * t3867 + 0.27077129145119382320e1 * t1136 * t14670 + 0.17980392870196113152e1 * t7822 * t1138 * t14523 - 0.16879116930178234168e1 * t14676 * t3864 - 0.77812782197085049260e0 * t14679 * t3864 + 0.34978477943697927495e1 * t14682 * t14684 - 0.60248995135255396168e1 * t3861 * t14687 + 0.22757459835536707988e1 * t3827 * t3867 + 0.51005109676670195860e1 * t3837 * t3842 + 0.51005109676670195860e1 * t1136 * t14694 - 0.3688002519040e1 * t1123 * t3734 * t100 * t1774 - 0.65874119249613091356e0 * t1136 * t14702;
18137   t14708 = t3779 * t5317;
18138   t14714 = t3856 * t3833 * t411;
18139   t14717 = t3840 * t14645;
18140   t14723 = t3757 * t14380;
18141   t14727 = t14723 * t104;
18142   t14748 = -0.114668117222400e3 * t14447 - 0.14277760e2 * t14459 + 0.10145661348248508867e2 * t14529 * t109 + 0.114668117222400e3 * t14727 + 0.9555676435200e1 * t14509 - 0.42833280e2 * t14483 + 0.64249920e2 * t14396 + 0.114668117222400e3 * t14662 * t109 + 0.9555676435200e1 * t14533 * t109 + 0.34108413694860288000e2 * t3879 * t1118 * t5445 - 0.10708320e2 * t14360 - 0.114668117222400e3 * t14486 * t3897;
18143   t14749 = t109 * t3734;
18144   t14760 = t14421 * t104;
18145   t14770 = -0.14277760e2 * t3766 * t14749 - 0.10708320e2 * t14579 * t109 - 0.42833280e2 * t14453 * t109 + 0.64249920e2 * t1133 * t3897 + 0.12740901913600e2 * t14404 * t1825 - 0.68216827389720576000e2 * t14760 + 0.1784720e1 * t14584 + 0.34108413694860288000e2 * t14626 - 0.68216827389720576000e2 * t14574 * t109 + 0.1784720e1 * t14622 * t109 + 0.12740901913600e2 * t14416 + 0.10145661348248508867e2 * t14504;
18146   t14776 = t5393 * t3863 * t411;
18147   t14780 = t3862 * t1795 * t1169;
18148   t14783 = t5393 * t14653;
18149   t14786 = t1154 * t1191;
18150   t14795 = -0.65874119249613091356e0 * t3827 * t3858 + 0.11756685810716947640e1 * t14708 * t5320 - 0.30367989716514304433e0 * t3830 * t3858 - 0.65874119249613091356e0 * t1136 * t14714 - 0.51005109676670195860e1 * t1136 * t14717 - 0.18307055749595233518e1 * t1149 * t14508 * t1154 - 0.21968466899514280222e2 * t1149 * t14723 * t1154 + 0.29619233351014809600e2 * t399 * t14727 - 0.258304e0 * t107 * t407 * (t14748 + t14770) + 0.87198868390655171972e0 * t3861 * t14776 - 0.33758233860356468336e1 * t3861 * t14780 - 0.11756685810716947640e1 * t1136 * t14783 + 0.94575714566868943971e0 * t3793 * t1153 * t14786 - 0.12751277419167548965e1 * t1158 * t1153 * t3786 - 0.17620679382074383663e2 * t399 * t14760;
18151   t14799 = my_piecewise3(t97, 0, t14411 + t14456 + t14507 + t14559 + t14613 + t14660 + t14705 + t14795);
18152   t14800 = my_piecewise3(t96, 0, t14799);
18153   t14806 = 0.3e1 / 0.10e2 * t60 * (0.6e1 * t1118 * t1197 + t114 * t14350 + t14800 * t95 + 0.4e1 * t3734 * t417 + 0.4e1 * t390 * t3921 + t14253) - 0.2618e4 / 0.81e2 * t14152;
18154   t14815 = t1203 * t1203;
18155   t14823 = t1207 * t1207;
18156   t14825 = t56 * t14823 * t345;
18157   t14827 = t124 * t19 * t2335;
18158   t14831 = t1217 * t19 * t2335;
18159   t14846 = t56 * t4003;
18160   t14848 = t345 * t19;
18161   t14849 = t14848 * t2335;
18162   t14852 = 0.9163e4 / 0.65610e5 * t57 * t14250 - t56 * t14806 * t425 / 0.180e3 - t3928 * t36 * t1853 / 0.27e2 + 0.5e1 / 0.27e2 * t1204 * t5535 - t56 * t14815 * t36 * t1211 / 0.36e2 - 0.10e2 / 0.27e2 * t1204 * t345 * t5544 + 0.125e3 / 0.1458e4 * t14825 * t14827 - 0.125e3 / 0.2187e4 * t14825 * t14831 + t428 * t14806 * t425 / 0.180e3 + t1218 * t3927 * t1860 / 0.81e2 + t1218 * t14815 * t1220 / 0.108e3 + 0.5e1 / 0.81e2 * t3949 * t1203 * t5535 + 0.25e2 / 0.4374e4 * t14846 * t14823 * t14849;
18163   t14881 = t1265 * t19 * t23;
18164   t14884 = t4004 * t14823;
18165   t14888 = t1207 * t19;
18166   t14907 = t1247 * t1247;
18167   t14913 = t1249 * t1249;
18168   t14917 = t345 * t147;
18169   t14918 = t14917 * t24;
18170   t14921 = t5534 * t3999;
18171   t14929 = t14815 * t36 * t1254;
18172   t14935 = t68 * t147 * t3927;
18173   t14939 = 0.1e1 / t1264 / t1217;
18174   t14956 = t1262 * t1262;
18175   t14957 = params->d * t14956;
18176   t14958 = t1264 * t1264;
18177   t14959 = 0.1e1 / t14958;
18178   t14964 = -0.10000e5 / 0.729e3 * t449 * t14884 * t14918 - 0.1000e4 / 0.27e2 * t3994 * t14921 - 0.5000e4 / 0.243e3 * t1263 * t4019 * t14823 * t14918 - 0.50e2 / 0.27e2 * t1252 * t14929 - 0.1000e4 / 0.27e2 * t4005 * t14921 - 0.200e3 / 0.81e2 * t3998 * t14935 - 0.5000e4 / 0.729e3 * t4017 * t14939 * t14823 * t14918 - 0.5e1 / 0.9e1 * t450 * t14806 * t19 * t452 - 0.100e3 / 0.81e2 * t1263 * t1265 * t3927 * t1894 - 0.25e2 / 0.27e2 * t1266 * t14929 - 0.500e3 / 0.81e2 * t4020 * t14921 - 0.1250e4 / 0.2187e4 * t14957 * t14959 * t14823 * t14918;
18179   t14965 = my_piecewise3(t139, (-0.5e1 / 0.9e1 * params->c1 * t14806 * t142 - 0.200e3 / 0.81e2 * t3966 * t36 * t444 - 0.1000e4 / 0.27e2 * t1232 * t1241 - 0.50e2 / 0.27e2 * params->c1 * t14815 * t1236 - 0.10000e5 / 0.729e3 * params->c1 * t14823 * t345 * t14881 - 0.50000e5 / 0.6561e4 * t1879 * t14884 * t68 - 0.5000e4 / 0.243e3 * t5589 * t14888 * t23 * t1203 - 0.500e3 / 0.81e2 * t140 * t1240 * t14815 - 0.2000e4 / 0.243e3 * t1879 * t3979 * t3927 - 0.25e2 / 0.81e2 * t441 * t443 * t14806) * t145 + 0.4e1 * t3986 * t447 * t145 + 0.3e1 * t14907 * t145 + 0.6e1 * t1247 * t1249 * t145 + t14913 * t145, t14964);
18180   t14968 = -0.24e2 * t14187 * t14188 * t150 + 0.36e2 * t3619 * t1032 * t1226 - 0.24e2 * t3619 * t3620 * t456 - 0.6e1 * t1030 * t14198 * t150 + 0.24e2 * t1030 * t1229 * t1226 - 0.8e1 * t1030 * t436 * t3957 + 0.12e2 * t1030 * t1031 * t1270 + t330 * (0.26180e5 / 0.19683e5 * t14211 + 0.5225e4 / 0.1458e4 * t40 * t14213 * t52 - 0.5929e4 / 0.288e3 * t346 * t347 * t14217 * t52 + 0.2949e4 / 0.640e3 * t1056 * t14223 * t19 * t1061 - 0.1053e4 / 0.3200e4 * t3653 / t26 / t14228 * t36 * t3658 + 0.6561e4 / 0.160000e6 * t14238 * t1055 * t41 / t3654 / t42 * t52 + 0.6e1 * t14246 + 0.8e1 * t432 * t3954 + 0.2e1 * t131 * t14852) * t150 - 0.4e1 * t330 * t3957 * t456 - 0.6e1 * t330 * t1226 * t1270 - 0.4e1 * t330 * t435 * t4024 - t138 * t14965 + 0.1174e1 * t14965;
18181   t14976 = 0.27708240000000000000e3 * t14148 - 0.14085022000000000000e4 * t471 * t1286 * t14152 * t166 - 0.76967333333333333333e2 * t1279 * t3610 - 0.98958000000000000000e1 * t14160 * t480 - 0.36651111111111111111e1 * t14165 + 0.83124720000000000000e3 * t1279 * t3605 + 0.39583200000000000000e2 * t14169 - 0.17812440000000000000e3 * t4052 * t1288 - 0.98958000000000000000e1 * t14175 + 0.65972000000000000000e1 * t14179 - 0.12886657935314601099e4 * t4059 * t14181 * t4063 - 0.3e1 / 0.8e1 * t8 * t18 * t14968 * t167 - 0.2e1 * t310 * t996 * t4130;
18182   t14982 = -0.3e1 / 0.2e1 * t3543 + t3546 + 0.32216644838286502748e3 * t3550 + 0.96649934514859508243e3 * t3555 - 0.23749920000000000000e4 * t3570 + 0.66147100843063384139e1 * t3577 - 0.96649934514859508241e3 * t3581 - 0.13194400000000000000e2 * t3589 - 0.26388800000000000000e2 * t3594 + t10 * (t13840 + t13891 + t13942 + t13989 + t14037 + t14098 + t14147 + t14976) - 0.2e1 * t3598;
18183   t14988 = 0.5e1 / 0.9e1 * t4034;
18184   t14994 = 0.83124720000000000000e3 * t3606 - 0.76967333333333333333e2 * t3611 + 0.69270600000000000000e2 * t3613 + 0.23090200000000000000e2 * t3615 - 0.3e1 / 0.2e1 * t4030 - t14988 + 0.92360800000000000000e2 * t4038 - 0.12920861304452160000e4 * t4045 - 0.2e1 * t4049 - 0.29687400000000000000e2 * t4053 - 0.35624880000000000000e3 * t4055;
18185   t15007 = 0.12886657935314601099e4 * t4065 + 0.65972000000000000000e1 * t4069 - 0.19791600000000000000e2 * t4073 - 0.11874960000000000000e3 * t4075 - 0.6e1 * t4079 - 0.2e1 * t4082 - 0.4e1 * t4086 + 0.4e1 / 0.9e1 * t4094 - 0.2e1 / 0.3e1 * t4097 + 0.4e1 / 0.3e1 * t4101 - 0.2e1 * t4104;
18186   t15015 = 0.5e1 / 0.9e1 * t4142;
18187   t15019 = -0.2e1 * t4114 - 0.79166400000000000000e2 * t4118 - 0.39583200000000000000e2 * t4123 - 0.47499840000000000000e3 * t4127 - 0.2e1 * t4132 - 0.6e1 * t4135 - 0.2e1 * t4138 - t15015 + 0.4e1 / 0.9e1 * t4151 - 0.2e1 / 0.3e1 * t4154 + 0.4e1 / 0.3e1 * t4158;
18188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18189     v4rho4[0] = t14982 + t14994 + t15007 + t15019;
18190 
18191   t15036 = t310 * t4203 * t459 * t1347;
18192   t15050 = t986 * t4334 * t4324;
18193   t15056 = 0.80541612095716256868e2 * t13798 + 0.55122584035886153449e0 * t13805 - 0.80541612095716256867e2 * t13821 + 0.7e1 / 0.2e1 * t15036 + t13842 / 0.27e2 + t13845 / 0.9e1 - t13849 / 0.2e1 - t13852 / 0.8e1 - t986 * t1346 * t1347 * t1010 / 0.2e1 + t4147 * t996 * t4317 / 0.3e1 + 0.7e1 / 0.6e1 * t15050 - t13855 / 0.6e1 - t13858 / 0.2e1 - 0.5e1 / 0.9e1 * t13870 - t13881 / 0.6e1;
18194   t15061 = t498 * t1010;
18195   t15067 = t469 * t14072 * t4276;
18196   t15068 = t498 * t987;
18197   t15080 = t469 * t3583 * t459 * t473;
18198   t15085 = t469 * t984 * t1345 * t4276;
18199   t15086 = t9 * t316;
18200   t15097 = t469 * t3583 * t1927;
18201   t15098 = t24 * sigma[0];
18202   t15099 = t1036 * t166;
18203   t15104 = -0.5e1 / 0.9e1 * t13889 + t13904 / 0.27e2 + t13907 / 0.9e1 + t13915 / 0.3e1 - 0.32985999999999999999e1 * t4278 * t4279 * t4280 * t15061 + 0.21990666666666666666e1 * t15067 * t4279 * t4280 * t15068 + t13922 / 0.3e1 - t13925 / 0.6e1 + 0.2e1 / 0.3e1 * t13932 - 0.10767384420376800000e3 * t13935 - t13948 / 0.6e1 - 0.65972000000000000000e1 * t15080 * t4283 - 0.65972000000000000000e1 * t15085 * t4279 * t4280 * t15086 + 0.76967333333333333332e1 * t4278 * t4279 * t72 * t166 * t4281 - 0.39583199999999999999e2 * t15097 * t15098 * t15099 * t4281;
18204   t15111 = t986 * t4156 * t1329;
18205   t15112 = t15111 / 0.9e1;
18206   t15119 = t1308 * t4099 * t1354;
18207   t15120 = t15119 / 0.9e1;
18208   t15126 = t4147 * t992 * t4317;
18209   t15137 = t4090 * t1314 * t4310;
18210   t15140 = t986 * t992 * t4257;
18211   t15144 = t13953 + t13957 - t986 * t311 * t499 * t4129 / 0.6e1 + t15112 - t986 * t996 * t4257 / 0.2e1 - t986 * t4328 * t4324 + t15120 - 0.5e1 / 0.27e2 * t13834 * t311 * t499 * t4148 + t15126 / 0.9e1 + t4147 * t1346 * t1347 * t987 / 0.3e1 - 0.5e1 / 0.27e2 * t13897 * t485 * t504 * t4091 + t15137 / 0.9e1 - t15140 / 0.6e1 - 0.19791600000000000000e3 * t13963 - 0.53694408063810837911e2 * t13967;
18212   t15159 = t3593 * t4296;
18213   t15161 = t301 * t4111;
18214   t15168 = t1308 * t4204 * t4218;
18215   t15172 = t5 * t4146 * t17;
18216   t15177 = t4088 * t17;
18217   t15179 = t469 * t15177 * t291;
18218   t15180 = t301 * t4091;
18219   t15185 = t1306 * t322;
18220   t15187 = t469 * t15185 * t291;
18221   t15188 = t15187 * t4249;
18222   t15190 = t4254 * t4288;
18223   t15192 = t14045 * t1341;
18224   t15195 = t469 * t14038 * t4276;
18225   t15196 = t15195 * t4283;
18226   t15198 = 0.27708240000000000000e3 * t1001 * t1286 * t3603 * t1339 - 0.11874960000000000000e3 * t4238 * t1286 * t1037 * t4239 + t13970 / 0.4e1 - 0.3e1 / 0.2e1 * t8 * t4188 * t460 - 0.98958000000000000000e1 * t4238 * t480 - 0.39583199999999999999e2 * t15159 - 0.32986000000000000000e1 * t1376 * t644 * t647 * t15161 - 0.32985999999999999999e1 * t13987 - 0.7e1 / 0.6e1 * t15168 - 0.5e1 / 0.12e2 * t13993 + t15172 * t168 * t15061 * t316 / 0.3e1 + 0.73302222222222222220e0 * t15179 * t644 * t647 * t15180 - 0.10995333333333333333e1 * t15188 - 0.32985999999999999999e1 * t15190 + 0.21990666666666666666e1 * t15192 - 0.21990666666666666666e1 * t15196;
18227   t15201 = t1318 * t486;
18228   t15206 = t4062 * t4281;
18229   t15216 = 0.1e1 / t321 / t4107;
18230   t15219 = t484 * t15216 * t291 * t1362;
18231   t15222 = t484 * t4270 * t1319;
18232   t15229 = t310 * t13930 * t499;
18233   t15230 = t15229 / 0.3e1;
18234   t15238 = t1016 * t634;
18235   t15240 = t484 * t15238 * t487;
18236   t15241 = t15240 / 0.3e1;
18237   t15243 = t5 * t4089 * t17;
18238   t15244 = t503 * t1318;
18239   t15249 = t13998 * t498;
18240   t15256 = -0.32985999999999999999e1 * t4357 * t4358 * t4359 * t15201 + 0.10738881612762167582e3 * t14100 * t4061 * t15206 - 0.11874960000000000000e3 * t4117 * t4296 - t310 * t13917 * t499 / 0.2e1 + 0.25e2 / 0.6e1 * t15219 - t15222 / 0.2e1 - 0.3e1 / 0.2e1 * t310 * t1345 * t1273 * t1347 + t15230 + t1308 * t13869 / 0.2e1 - t484 * t1367 * t4112 / 0.2e1 - t986 * t13888 / 0.2e1 + t15241 + t15243 * t303 * t15244 * t486 / 0.3e1 - 0.43069537681507199998e3 * t13996 * t13997 * t15249 - t1308 * t1367 * t4047 / 0.2e1;
18241   t15258 = t986 * t4084 * t1329;
18242   t15272 = t1308 * t1314 * t4214;
18243   t15285 = t469 * t173 * t1016 * t291;
18244   t15286 = t15285 * t1379;
18245   t15288 = t14093 * t1341;
18246   t15292 = t3593 * t4234;
18247   t15294 = t15 * t4203;
18248   t15296 = t469 * t15294 * t153;
18249   t15297 = t15296 * t4241;
18250   t15299 = -t15258 / 0.3e1 - t986 * t4077 * t1329 / 0.2e1 - t1308 * t485 * t504 * t4111 / 0.6e1 + t1308 * t1361 * t1362 * t1318 / 0.2e1 - t15272 / 0.6e1 - t4090 * t1361 * t1362 * t1309 / 0.3e1 - t14020 / 0.6e1 + 0.76967333333333333331e1 * t14029 - 0.10995333333333333333e1 * t14041 + 0.43981333333333333332e1 * t14046 - 0.39583199999999999999e2 * t14068 + 0.21990666666666666666e1 * t15286 - 0.65972000000000000000e1 * t15288 - 0.98958000000000000000e1 * t14085 * t1341 + 0.76967333333333333332e1 * t15292 + 0.23090200000000000000e2 * t15297;
18251   t15304 = t469 * t4188 * t459;
18252   t15316 = t8 * t4237;
18253   t15317 = t4062 * t9;
18254   t15322 = t469 * t4140 * t291;
18255   t15323 = t15322 * t649;
18256   t15325 = t14105 * t4229;
18257   t15343 = 0.23090200000000000000e2 * t4117 * t4234 - 0.19791600000000000000e2 * t15304 * t4241 - 0.25655777777777777778e2 * t1001 * t475 * t3608 * t1339 + 0.23090200000000000000e2 * t4238 * t475 * t1291 * t4239 - 0.65972000000000000000e1 * t14094 + 0.32216644838286502747e3 * t15316 * t4061 * t15317 - 0.91627777777777777779e0 * t15323 + 0.10738881612762167582e3 * t15325 + 0.32216644838286502747e3 * t14108 * t4229 - 0.79166400000000000000e3 * t1001 * t14116 * t14117 * t498 + 0.22049033614354461380e1 * t4059 * t14123 * t14124 * t498 - 0.32216644838286502746e3 * t4059 * t14181 * t4228 + 0.10738881612762167582e3 * t14106 - 0.29687400000000000000e2 * t14134 - 0.38483666666666666666e1 * t14136;
18258   t15352 = t8 * t4140 * t635;
18259   t15354 = t173 * t4203;
18260   t15356 = t8 * t15354 * t303;
18261   t15359 = t8 * t15294 * t168;
18262   t15362 = t310 * t13847 * t499;
18263   t15364 = t1346 * t499;
18264   t15365 = t310 * t15364;
18265   t15367 = t1361 * t504;
18266   t15368 = t484 * t15367;
18267   t15374 = t1308 * t4270 * t1310;
18268   t15378 = t310 * t15216 * t153 * t1347;
18269   t15380 = -0.64139444444444444443e1 * t14138 + 0.57725500000000000000e1 * t14145 + 0.69270600000000000000e2 * t14148 - 0.27488333333333333333e1 * t14165 + 0.19791600000000000000e2 * t14169 - 0.24739500000000000000e1 * t14175 + 0.32985999999999999999e1 * t14179 - 0.5e1 / 0.36e2 * t15352 - 0.5e1 / 0.2e1 * t15356 + 0.5e1 / 0.2e1 * t15359 - t15362 / 0.2e1 - 0.5e1 / 0.27e2 * t15365 - 0.5e1 / 0.27e2 * t15368 + t4090 * t1367 * t4092 / 0.9e1 - t15374 / 0.6e1 - 0.25e2 / 0.6e1 * t15378;
18270   t15385 = -0.3e1 / 0.2e1 * t4190 + t4507 + 0.3e1 / 0.2e1 * t4197 - 0.3e1 / 0.4e1 * t3543 + 0.3e1 / 0.4e1 * t3546 + 0.16108322419143251374e3 * t3550 + t3556 - t3571 + t3578 - t3582 - 0.7e1 / 0.2e1 * t4206 - 0.3e1 / 0.2e1 * t4209 - 0.3e1 / 0.2e1 * t4212 - t4216 / 0.2e1 + t4220 - t3590 - 0.13194400000000000000e2 * t3594 + t10 * (t15056 + t15104 + t15144 + t15198 + t15256 + t15299 + t15343 + t15380) + t4556;
18271   t15391 = 0.65972000000000000000e1 * t4255;
18272   t15395 = 0.32216644838286502747e3 * t4230 - t3599 + t3607 - t3612 + t3614 + 0.11545100000000000000e2 * t3615 + 0.23090200000000000000e2 * t4235 - 0.19791600000000000000e2 * t4242 - 0.32986000000000000000e1 * t4250 - t15391 - t4259 / 0.2e1 - t4031 - t14988 - t4262 + t4559 - t4268 / 0.2e1 - t4272 + t4039 - 0.65972000000000000000e1 * t4284;
18273   t15398 = 0.65972000000000000000e1 * t4291;
18274   t15406 = -0.98958000000000000000e1 * t4289 - t15398 - 0.19791600000000000000e2 * t4293 - 0.11874960000000000000e3 * t4297 - t4046 - t4050 - t4054 - t4056 + t4066 + 0.49479000000000000000e1 * t4069 - 0.98958000000000000000e1 * t4073 - 0.59374800000000000000e2 * t4075 - t4080 - t4083 - 0.2e1 * t4086 + t4095 - t4097 / 0.3e1 + t4101 - t4104;
18275   t15408 = t4315 / 0.3e1;
18276   t15410 = t4322 / 0.3e1;
18277   t15414 = -t4115 - t4119 - t4124 - t4128 - t4308 + t4312 / 0.3e1 - t15408 + t4319 / 0.3e1 - t15410 - t4326 - 0.3e1 * t4330 + t5052 + 0.7e1 / 0.2e1 * t4336 - t4133 - t4136 - t4138 - t15015 + t4152 - t4154 / 0.3e1 + t4158;
18278   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18279     v4rho4[1] = t15385 + t15395 + t15406 + t15414;
18280 
18281   t15432 = -t4190 + t4193 / 0.2e1 + t4197 - t3543 / 0.4e1 + t3546 / 0.2e1 + 0.53694408063810837912e2 * t3550 + 0.53694408063810837912e2 * t4353 - 0.43981333333333333334e1 * t4363 - 0.5e1 / 0.3e1 * t4206 - t4209 - t4212 - t4216 / 0.3e1 + 0.2e1 / 0.3e1 * t4220 - 0.43981333333333333334e1 * t3594 + 0.32986000000000000000e1 * t4226 + 0.21477763225524335165e3 * t4230 + 0.38483666666666666666e1 * t4367 - 0.19791600000000000000e2 * t4369 + 0.2e1 / 0.9e1 * t4373 - 0.2e1 / 0.3e1 * t4377;
18282   t15454 = 0.2e1 / 0.3e1 * t4265 - t4268 / 0.3e1 - 0.4e1 / 0.3e1 * t4272 - 0.2e1 / 0.3e1 * t4391 - t4394 / 0.3e1 - t4397 / 0.3e1 - t4400 / 0.9e1 - t4403 / 0.9e1 - 0.43981333333333333334e1 * t4284 - 0.65972000000000000000e1 * t4289 - 0.87962666666666666667e1 * t4291;
18283   t15477 = t1308 * t4204 * t4437;
18284   t15503 = -0.2e1 / 0.3e1 * t15036 + t13845 / 0.27e2 - 0.2e1 / 0.9e1 * t15050 + t4090 * t485 * t1402 * t1318 / 0.9e1 - 0.7e1 / 0.9e1 * t15477 + t4147 * t311 * t1391 * t1010 / 0.9e1 - t986 * t311 * t1397 * t1010 / 0.6e1 + 0.2e1 / 0.3e1 * t1308 * t4451 * t4218 + 0.2e1 / 0.9e1 * t4147 * t996 * t4371 - 0.10e2 / 0.27e2 * t13870 - 0.10e2 / 0.27e2 * t13889 + t13907 / 0.27e2 + t13915 / 0.9e1 + t13922 / 0.9e1 + 0.2e1 / 0.9e1 * t13932 + t4090 * t485 * t1415 * t1309 / 0.9e1;
18285   t15505 = t1308 * t1314 * t4425;
18286   t15519 = t4147 * t992 * t4371;
18287   t15522 = t986 * t4334 * t4375;
18288   t15535 = t986 * t992 * t4429;
18289   t15542 = t4090 * t1314 * t4433;
18290   t15548 = t1308 * t4270 * t1354;
18291   t15551 = -t15505 / 0.9e1 - t1308 * t485 * t1415 * t1318 / 0.6e1 - t986 * t996 * t4429 / 0.3e1 + t13953 + t13957 - 0.5e1 / 0.27e2 * t13834 * t311 * t1391 * t987 + 0.2e1 / 0.27e2 * t15519 + 0.7e1 / 0.9e1 * t15522 - 0.2e1 / 0.3e1 * t986 * t4328 * t4375 - t1308 * t1367 * t4214 / 0.3e1 + t4147 * t311 * t1397 * t987 / 0.9e1 - t15535 / 0.9e1 - 0.5e1 / 0.27e2 * t13897 * t485 * t1402 * t1309 + 0.2e1 / 0.27e2 * t15542 + 0.2e1 / 0.9e1 * t4090 * t1367 * t4310 - 0.2e1 / 0.9e1 * t15548 + 0.4e1 / 0.27e2 * t15111;
18292   t15558 = t913 * t1016;
18293   t15559 = t5 * t15558;
18294   t15560 = t15559 * t1691;
18295   t15562 = t15285 * t1411;
18296   t15582 = t469 * t4244 * t634;
18297   t15586 = t469 * t4252 * t634;
18298   t15587 = t15586 * t1379;
18299   t15602 = 0.4e1 / 0.27e2 * t15119 + 0.2e1 / 0.27e2 * t15126 + 0.2e1 / 0.27e2 * t15137 - t15140 / 0.9e1 - 0.17898136021270279304e2 * t13967 - 0.17898136021270279304e2 * t15560 + 0.14660444444444444445e1 * t15562 + t13970 / 0.12e2 - 0.4e1 / 0.9e1 * t5 * t4089 * t1345 * t303 * t4360 * t9 + 0.4e1 / 0.9e1 * t5 * t4146 * t1345 * t168 * t4281 * t9 + 0.25655777777777777777e1 * t3585 * t475 * t1291 * t4479 - 0.21990666666666666667e1 * t15582 * t4249 - 0.43981333333333333334e1 * t15587 + 0.76967333333333333333e1 * t1001 * t475 * t1291 * t4484 - 0.26388800000000000000e2 * t15159 - t1308 * t485 * t4464 * t486 / 0.3e1 - t986 * t311 * t4447 * t316 / 0.3e1;
18300   t15610 = t8 * t1323 * t1663;
18301   t15622 = t4254 * t4386;
18302   t15631 = t469 * t15177 * t4355;
18303   t15632 = t503 * t1309;
18304   t15637 = 0.2e1 / 0.9e1 * t15168 - 0.5e1 / 0.18e2 * t13993 - 0.73302222222222222223e0 * t15188 - 0.21990666666666666667e1 * t15190 + 0.29320888888888888889e1 * t15192 - 0.14660444444444444444e1 * t15196 + t15610 / 0.12e2 + t8 * t4195 * t635 + 0.76967333333333333333e1 * t1376 * t644 * t1680 * t4286 - 0.39583200000000000000e2 * t1376 * t1675 * t1430 * t4286 + 0.51311555555555555555e1 * t15622 - 0.65972000000000000000e1 * t4117 * t4486 + 0.41e2 / 0.9e1 * t15219 - t15222 / 0.3e1 + 0.4e1 / 0.9e1 * t15229 + 0.4e1 / 0.9e1 * t15240 + 0.14660444444444444445e1 * t15631 * t4358 * t4359 * t15632;
18305   t15640 = t498 * t9;
18306   t15645 = t4062 * t1390;
18307   t15649 = t4062 * t1396;
18308   t15653 = t8 * t4245;
18309   t15654 = t4417 * t1309;
18310   t15658 = t8 * t4253;
18311   t15659 = t15658 * t4419;
18312   t15664 = t469 * t1323 * t634;
18313   t15665 = t15664 * t649;
18314   t15667 = t4225 * t1677;
18315   t15669 = t4225 * t1682;
18316   t15671 = t4417 * t1318;
18317   t15677 = t166 * t4446;
18318   t15688 = t4254 * t4381;
18319   t15690 = -0.43981333333333333333e1 * t15085 * t4279 * t4280 * t15640 + 0.35796272042540558607e2 * t14100 * t4061 * t15645 + 0.10738881612762167582e3 * t4059 * t4061 * t15649 + 0.35796272042540558607e2 * t15653 * t4416 * t15654 + 0.71592544085081117215e2 * t15659 + 0.65972000000000000000e1 * t4469 * t649 + 0.10995333333333333333e1 * t15665 + 0.65972000000000000000e1 * t15667 - 0.12827888888888888889e1 * t15669 + 0.10738881612762167582e3 * t4414 * t4416 * t15671 - 0.2e1 / 0.9e1 * t15258 - t15272 / 0.9e1 - 0.65972000000000000000e1 * t1001 * t475 * t478 * t15677 - 0.21990666666666666666e1 * t14089 * t4481 - 0.13194400000000000000e2 * t4246 * t1675 * t1430 * t4247 - 0.26388800000000000000e2 * t15688;
18320   t15696 = t469 * t15354 * t291;
18321   t15697 = t15696 * t4472;
18322   t15710 = t3593 * t4486;
18323   t15712 = t14040 * t4481;
18324   t15723 = 0.25655777777777777778e1 * t4246 * t644 * t1680 * t4247 - 0.15393466666666666666e2 * t15697 - 0.39583200000000000000e2 * t1001 * t1286 * t1037 * t4484 - 0.13194400000000000000e2 * t3585 * t1286 * t1037 * t4479 - 0.65972000000000000000e1 * t4476 * t4288 + 0.14660444444444444444e1 * t14046 - 0.21990666666666666666e1 * t15710 - 0.73302222222222222221e0 * t15712 + 0.29320888888888888889e1 * t15286 - 0.43981333333333333334e1 * t15288 + 0.51311555555555555556e1 * t15292 - 0.43981333333333333334e1 * t15297 - 0.18325555555555555555e1 * t15323 + 0.71592544085081117217e2 * t15325 - 0.12827888888888888889e1 * t14136 - 0.18325555555555555556e1 * t14165 + 0.65972000000000000000e1 * t14169;
18325   t15735 = t1308 * t4099 * t1402;
18326   t15740 = t484 * t4099 * t1415;
18327   t15743 = t310 * t4156 * t1397;
18328   t15747 = t484 * t4203 * t634 * t1362;
18329   t15750 = t986 * t4084 * t1391;
18330   t15755 = 0.1e1 / t321 / t13860;
18331   t15757 = t9 * t9;
18332   t15762 = 0.10995333333333333333e1 * t14179 - 0.5e1 / 0.18e2 * t15352 + t15356 / 0.3e1 - t15359 / 0.3e1 - t15362 / 0.3e1 - 0.10e2 / 0.27e2 * t15365 - 0.10e2 / 0.27e2 * t15368 - t15374 / 0.9e1 - 0.41e2 / 0.9e1 * t15378 + t15735 / 0.27e2 + t1308 * t15367 / 0.3e1 + t15740 / 0.9e1 + t15743 / 0.9e1 - 0.7e1 / 0.3e1 * t15747 - t15750 / 0.9e1 - t986 * t15364 / 0.3e1 - t1308 * t15755 * t291 * t302 * t15757 / 0.3e1;
18333   t15764 = t484 * t15238 * t504;
18334   t15767 = t986 * t4156 * t1391;
18335   t15770 = t310 * t4084 * t1397;
18336   t15789 = t484 * t1314 * t4464;
18337   t15794 = t322 * t1662;
18338   t15796 = t484 * t15794 * t487;
18339   t15799 = t310 * t992 * t4447;
18340   t15803 = t469 * t1306 * t1345 * t4355;
18341   t15804 = t9 * t486;
18342   t15814 = t469 * t15185 * t4355;
18343   t15815 = t15814 * t4362;
18344   t15817 = t1390 * t316;
18345   t15822 = t1396 * t316;
18346   t15827 = 0.2e1 / 0.9e1 * t15764 + t15767 / 0.27e2 - t15770 / 0.3e1 - t986 * t15755 * t153 * t167 * t15757 / 0.3e1 - t310 * t4077 * t1397 / 0.2e1 - t484 * t4441 * t1319 / 0.2e1 - t310 * t996 * t4447 - t986 * t4077 * t1391 / 0.6e1 - t15789 / 0.3e1 - t1308 * t4441 * t1310 / 0.6e1 - t15796 / 0.3e1 - t15799 / 0.3e1 + 0.43981333333333333334e1 * t15803 * t4358 * t4359 * t15804 - 0.21990666666666666667e1 * t4357 * t4358 * t4359 * t15244 - 0.14660444444444444445e1 * t15815 + 0.14660444444444444444e1 * t15067 * t4279 * t4280 * t15817 - 0.21990666666666666666e1 * t4278 * t4279 * t4280 * t15822;
18347   t15841 = 0.21477763225524335164e3 * t4420 + t10 * (t15503 + t15551 + t15602 + t15637 + t15690 + t15723 + t15762 + t15827) - 0.2e1 / 0.3e1 * t4423 - t4427 / 0.3e1 - t4431 / 0.3e1 + 0.2e1 / 0.9e1 * t4435 + 0.2e1 / 0.3e1 * t4439 - 0.2e1 / 0.3e1 * t4308 + 0.2e1 / 0.9e1 * t4312 - 0.4e1 / 0.9e1 * t4315 + 0.2e1 / 0.9e1 * t4319;
18348   t15860 = -t4466 - t4138 / 0.3e1 + 0.13194400000000000000e2 * t4473 - 0.13194400000000000000e2 * t4477 - 0.21990666666666666666e1 * t4482 - 0.65972000000000000000e1 * t4487 - 0.43981333333333333334e1 * t4489 - t15015 - t4154 / 0.9e1 + 0.2e1 / 0.3e1 * t4158 - t4493 / 0.4e1;
18349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18350     v4rho4[2] = t15860 + t15841 + t15454 + t15432 - t14988 + 0.38483666666666666667e1 * t3615 - 0.79166400000000000000e2 * t4382 - 0.79166400000000000000e2 * t4297 + 0.15393466666666666667e2 * t4387 - 0.2e1 / 0.3e1 * t4326 - 0.2e1 * t4330 + 0.2e1 / 0.3e1 * t4332 + 0.2e1 / 0.3e1 * t4101 - 0.32986000000000000000e1 * t4073 - 0.19791600000000000000e2 * t4075 - t4456 / 0.3e1 - t4097 / 0.9e1 - 0.4e1 / 0.3e1 * t4262 - t4443 + 0.15393466666666666667e2 * t4235 - t4259 / 0.3e1 - t4459 - 0.4e1 / 0.9e1 * t4322 + 0.5e1 / 0.3e1 * t4336 - 0.32986000000000000000e1 * t4412 + 0.32986000000000000000e1 * t4069 - 0.13194400000000000000e2 * t4293 - t4104 / 0.3e1 - 0.87962666666666666667e1 * t4255 - 0.13194400000000000000e2 * t4242 - 0.21990666666666666667e1 * t4250 - 0.2e1 / 0.3e1 * t4086 - t4449 + 0.2e1 * t4453;
18351 
18352   t15869 = t4352 * t4511;
18353   t15871 = t4352 * t4536;
18354   t15873 = t4352 * t4532;
18355   t15875 = t5826 * t4525;
18356   t15913 = 0.80541612095716256870e2 * t15869 - 0.80541612095716256867e2 * t15871 + 0.55122584035886153450e0 * t15873 - 0.19791600000000000000e3 * t15875 - 0.5e1 / 0.27e2 * t13897 * t485 * t5006 * t486 - t4090 * t1361 * t1402 * t9 / 0.3e1 - t1308 * t485 * t504 * t4463 / 0.2e1 + t1308 * t1361 * t1362 * t1414 / 0.2e1 - 0.5e1 / 0.27e2 * t13834 * t311 * t5001 * t316 - t986 * t996 * t5037 / 0.2e1 - t986 * t311 * t4990 * t316 / 0.6e1 + t4090 * t1367 * t4433 / 0.3e1 - t986 * t311 * t499 * t4446 / 0.2e1 + t15477 / 0.3e1 - 0.5e1 / 0.27e2 * t13870;
18357   t15929 = t5041 * t1314 * t5044;
18358   t15932 = t1308 * t1314 * t5033;
18359   t15939 = t986 * t992 * t5037;
18360   t15948 = -0.5e1 / 0.27e2 * t13889 - t1308 * t485 * t4982 * t486 / 0.6e1 - t1308 * t1367 * t4425 / 0.2e1 - t15505 / 0.6e1 + t13953 + t13957 + t1308 * t4451 * t4437 - t1308 * t4441 * t1354 / 0.2e1 - 0.10767384420376800000e3 * t15929 - t15932 / 0.6e1 + t4147 * t1346 * t1391 * t9 / 0.3e1 - t15939 / 0.6e1 - t986 * t1346 * t1347 * t1396 / 0.2e1 + t15519 / 0.9e1 - t15522 / 0.3e1 - t15535 / 0.6e1;
18361   t15955 = t166 * t4989;
18362   t15960 = t166 * t5000;
18363   t15965 = t4254 * t5049;
18364   t15967 = t4254 * t4552;
18365   t15969 = t4254 * t4548;
18366   t15971 = t15586 * t1411;
18367   t15977 = t4417 * t4360;
18368   t15981 = t15542 / 0.9e1 - t15548 / 0.3e1 + t15112 + t15120 - 0.53694408063810837912e2 * t15560 + 0.43981333333333333334e1 * t15562 - 0.65972000000000000000e1 * t15587 - 0.32986000000000000000e1 * t1001 * t475 * t478 * t15955 + 0.73302222222222222222e0 * t14074 * t475 * t478 * t15960 + 0.76967333333333333333e1 * t15965 - 0.39583200000000000000e2 * t15967 - 0.32986000000000000000e1 * t15969 - 0.65972000000000000000e1 * t15971 - 0.23090200000000000000e2 * t4469 * t644 * t1680 * t4470 + 0.10738881612762167582e3 * t15653 * t4416 * t15977;
18369   t15982 = t15658 * t5029;
18370   t15985 = t469 * t491 * t1662;
18371   t15986 = t15985 * t649;
18372   t15999 = t469 * t4195 * t634;
18373   t16002 = t301 * t4463;
18374   t16011 = t4519 * t3557;
18375   t16012 = t16011 * t2207;
18376   t16013 = t4522 * t301;
18377   t16018 = t8 * t4468;
18378   t16019 = t4417 * t9;
18379   t16023 = t4530 * t19;
18380   t16027 = t14122 * t837;
18381   t16028 = t203 * t301;
18382   t16034 = t4411 * t1677;
18383   t16036 = t8 * t4475;
18384   t16039 = t4411 * t1682;
18385   t16041 = 0.10738881612762167582e3 * t15982 - 0.24739500000000000000e1 * t15986 + 0.23090200000000000000e2 * t4476 * t4386 + 0.27708240000000000000e3 * t1376 * t1675 * t4579 * t1377 - 0.25655777777777777777e2 * t1376 * t644 * t5014 * t1377 + 0.19791600000000000000e2 * t15999 * t4472 - 0.98958000000000000000e1 * t1376 * t644 * t647 * t16002 + 0.11874960000000000000e3 * t4469 * t1675 * t1430 * t4470 - 0.79166400000000000000e3 * t1376 * t16012 * t16013 * t486 - 0.32216644838286502747e3 * t16018 * t4416 * t16019 - 0.32216644838286502747e3 * t4414 * t16023 * t4418 + 0.22049033614354461380e1 * t4414 * t16027 * t16028 * t486 - 0.5e1 / 0.36e2 * t13993 - 0.29687400000000000000e2 * t16034 + 0.32216644838286502748e3 * t16036 * t4419 + 0.57725500000000000000e1 * t16039;
18386   t16044 = t1383 * t5011;
18387   t16046 = t1383 * t5016;
18388   t16053 = t469 * t4244 * t2196;
18389   t16054 = t24 * sigma[2];
18390   t16055 = t1429 * t301;
18391   t16060 = t503 * t9;
18392   t16067 = t469 * t4244 * t634 * t642;
18393   t16070 = t1401 * t486;
18394   t16078 = 0.69270600000000000000e2 * t16044 - 0.64139444444444444443e1 * t16046 + 0.21990666666666666667e1 * t15192 + t15610 / 0.4e1 + 0.76967333333333333333e1 * t15622 - t15219 / 0.3e1 + t15230 + t15241 - 0.39583200000000000000e2 * t16053 * t16054 * t16055 * t4360 + 0.65972000000000000000e1 * t15803 * t4358 * t4359 * t16060 - 0.65972000000000000000e1 * t16067 * t4362 + 0.21990666666666666667e1 * t15631 * t4358 * t4359 * t16070 + 0.10738881612762167582e3 * t15659 + 0.32986000000000000000e1 * t15665 + 0.19791600000000000000e2 * t15667;
18395   t16083 = t468 * t483 * t17;
18396   t16084 = t291 * t5042;
18397   t16085 = t642 * t301;
18398   t16086 = t16085 * t486;
18399   t16090 = t503 * t1414;
18400   t16095 = t498 * t1396;
18401   t16103 = t469 * t1374 * t1662;
18402   t16108 = t15187 * t4541;
18403   t16114 = t8 * t491 * t4974;
18404   t16117 = -0.38483666666666666667e1 * t15669 - 0.39583200000000000000e2 * t15688 + 0.65972000000000000001e1 * t15697 - 0.43069537681507200000e3 * t16083 * t16084 * t16086 + t15243 * t303 * t16090 * t486 / 0.3e1 + t15172 * t168 * t16095 * t316 / 0.3e1 - 0.32986000000000000000e1 * t15710 - 0.10995333333333333333e1 * t15712 - 0.98958000000000000000e1 * t16103 * t1379 - 0.11874960000000000000e3 * t4476 * t4381 - 0.10995333333333333333e1 * t16108 + 0.21990666666666666667e1 * t15286 - 0.27488333333333333333e1 * t15323 - 0.91627777777777777778e0 * t14165 - t16114 / 0.8e1 - 0.5e1 / 0.12e2 * t15352;
18405   t16133 = t484 * t1314 * t4982;
18406   t16136 = t484 * t4270 * t1415;
18407   t16138 = -0.5e1 / 0.9e1 * t15365 - 0.5e1 / 0.9e1 * t15368 + t15378 / 0.3e1 + t15735 / 0.9e1 + t15740 / 0.3e1 + t15743 / 0.3e1 + t15747 - t15750 / 0.6e1 + 0.2e1 / 0.3e1 * t15764 + t15767 / 0.9e1 - t15770 / 0.2e1 - t15789 / 0.2e1 - t15796 / 0.2e1 - t15799 / 0.2e1 - t16133 / 0.6e1 - t16136 / 0.2e1;
18408   t16147 = 0.6e1 * t4108 + 0.12e2 * t13862;
18409   t16159 = t17 * t4973;
18410   t16169 = t4090 * t1314 * t5006;
18411   t16172 = t484 * t15794 * t504;
18412   t16175 = t4147 * t992 * t5001;
18413   t16178 = t310 * t992 * t4990;
18414   t16181 = t1308 * t4270 * t1402;
18415   t16183 = t1414 * t486;
18416   t16198 = -0.3e1 / 0.2e1 * t484 * t1367 * t4464 - t310 * t996 * t4990 / 0.2e1 - t310 * t311 * t167 * t16147 / 0.2e1 + 0.3e1 / 0.2e1 * t484 * t1345 * t1662 * t1362 + t4147 * t996 * t5001 / 0.9e1 - t484 * t16159 * t487 / 0.2e1 + t484 * t485 * t302 * t16147 / 0.2e1 + t16169 / 0.27e2 - t16172 / 0.2e1 + t16175 / 0.27e2 - t16178 / 0.6e1 - t16181 / 0.6e1 - 0.32986000000000000000e1 * t4357 * t4358 * t4359 * t16183 - 0.21990666666666666667e1 * t15815 + 0.76967333333333333333e1 * t4357 * t4358 * t210 * t301 * t4360 - 0.32986000000000000000e1 * t4278 * t4279 * t4280 * t16095;
18417   t16204 = 0.3e1 / 0.4e1 * t4193 + t3547 + 0.16108322419143251374e3 * t4353 + t4513 - t4527 + t4534 - t4538 - 0.65972000000000000000e1 * t4363 + t4206 - t4543 - t4545 - t4550 - t4554 + 0.49479000000000000000e1 * t4226 + 0.11545100000000000000e2 * t4367 - 0.59374800000000000000e2 * t4369 + t10 * (t15913 + t15948 + t15981 + t16041 + t16078 + t16117 + t16138 + t16198) + t4373 / 0.3e1 - t4377;
18418   t16210 = -t15391 - 0.11874960000000000000e3 * t4382 + 0.23090200000000000000e2 * t4387 - t14988 - t4262 + t4265 - t4272 - 0.2e1 * t4391 - t4394 - t4397 - t4400 / 0.3e1 - t4403 / 0.3e1 - t15398 - t4977 - t4985 - t4988 - t4993 - t4996 - t4999;
18419   t16217 = t5004 + t5009 + t4070 + t5013 - t5018 + t5020 - t5024 - t5027 + t5031 + t4102 - 0.98958000000000000000e1 * t4412 + 0.32216644838286502748e3 * t4420 - t4423 - t4427 / 0.2e1 - t4431 / 0.2e1 + t4435 / 0.3e1 + t4439 - t15408 - t15410;
18420   t16230 = -0.3e1 / 0.2e1 * t4443 - 0.3e1 / 0.2e1 * t4449 + 0.3e1 * t4453 - t4456 / 0.2e1 - 0.3e1 / 0.2e1 * t4459 - t5036 - t5040 - t5047 + t5051 + t4332 - t4336 - 0.3e1 / 0.2e1 * t4466 + 0.19791600000000000000e2 * t4473 - 0.19791600000000000000e2 * t4477 - 0.32986000000000000000e1 * t4482 - 0.98958000000000000000e1 * t4487 - 0.13194400000000000000e2 * t4489 - t15015 + t4159 - 0.3e1 / 0.4e1 * t4493;
18421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18422     v4rho4[3] = t16204 + t16210 + t16217 + t16230;
18423 
18424   t16242 = t4193 + 0.32216644838286502748e3 * t4353 + 0.96649934514859508243e3 * t4512 - 0.23749920000000000000e4 * t4526 + 0.66147100843063384139e1 * t4533 - 0.96649934514859508241e3 * t4537 - 0.13194400000000000000e2 * t4542 - 0.79166400000000000000e2 * t4544 - 0.39583200000000000000e2 * t4549 - 0.47499840000000000000e3 * t4553 + 0.65972000000000000000e1 * t4226;
18425   t16253 = 0.23090200000000000000e2 * t4367 - 0.11874960000000000000e3 * t4369 - t14988 + 0.4e1 / 0.3e1 * t4265 - 0.4e1 * t4391 - 0.2e1 * t4394 - 0.2e1 * t4397 - 0.2e1 / 0.3e1 * t4400 - 0.2e1 / 0.3e1 * t4403 - 0.3e1 / 0.2e1 * t4976 - 0.2e1 * t4984;
18426   t16266 = -0.6e1 * t4987 - 0.2e1 * t4992 - 0.2e1 * t4995 - 0.6e1 * t4998 + 0.4e1 / 0.9e1 * t5003 + 0.4e1 / 0.9e1 * t5008 + 0.83124720000000000000e3 * t5012 - 0.76967333333333333333e2 * t5017 + 0.69270600000000000000e2 * t5019 - 0.29687400000000000000e2 * t5023 - 0.35624880000000000000e3 * t5026;
18427   t16289 = t156 * t301;
18428   t16294 = t634 * t4519 * t3557;
18429   t16315 = -0.2e1 / 0.3e1 * t986 * t311 * t4990 * t498 + 0.32216644838286502748e3 * t15869 - 0.32216644838286502747e3 * t15871 + 0.22049033614354461380e1 * t15873 - 0.79166400000000000000e3 * t15875 + 0.48324967257429754121e3 * t1686 * t1662 * t837 * t1688 * t1690 + 0.17527082181762906534e4 * t1686 * t291 * t294 * t2935 * t16289 - 0.23749920000000000000e4 * t2195 * t16294 * t4524 - 0.88196134457417845518e1 * t1686 * t4529 * t837 * t180 * t301 - 0.12920861304452160000e4 * t5041 * t1367 * t5044 + 0.12920861304452160000e4 * t5041 * t485 * t4515 * t642 * t301 - 0.13194400000000000000e2 * t4357 * t4358 * t4359 * t16090;
18430   t16323 = t327 / t4564 / t271;
18431   t16324 = t1424 * t1424;
18432   t16334 = t1617 * t1617;
18433   t16348 = 0.1e1 / t178 / t516;
18434   t16349 = sigma[2] * t16348;
18435   t16350 = t24 * t16349;
18436   t16353 = 0.1e1 / t177 / t525;
18437   t16354 = t184 * t16353;
18438   t16358 = 0.1e1 / t1448;
18439   t16364 = 0.1e1 / t178 / t8231;
18440   t16369 = t4602 * rho[1];
18441   t16383 = t1614 * t1614;
18442   t16387 = t190 * t16348;
18443   t16390 = 0.13090e5 / 0.729e3 * t16350;
18444   t16397 = 0.4940e4 / 0.59049e5 * t68 * t207 * t1435;
18445   t16398 = sigma[2] * t4583;
18446   t16401 = 0.2717e4 / 0.13122e5 * t68 * t16398 * lapl[1];
18447   t16403 = 0.20900e5 / 0.177147e6 * t68 * t16354;
18448   t16406 = t4629 * t551;
18449   t16409 = t1475 * t1481;
18450   t16414 = t548 * t4641;
18451   t16421 = t1479 * t1479;
18452   t16424 = t222 / t230 / t16421;
18453   t16425 = t1483 * t1483;
18454   t16431 = t1506 * t1506;
18455   t16437 = t1493 * t1493;
18456   t16451 = t224 * t13529;
18457   t16452 = t16451 * t345;
18458   t16462 = t1486 * t1497;
18459   t16463 = t16462 * t36;
18460   t16466 = t223 * t4668;
18461   t16484 = 0.6e1 * t16437 * t227 + 0.8e1 * t2016 * t4664 + 0.2e1 * t553 * (t16397 - t16401 + t16403) - 0.4400e4 / 0.243e3 * t4656 * t4627 - 0.440e3 / 0.27e2 * t4659 * t1431 + 0.12320e5 / 0.243e3 * t1490 * t4580 + 0.50000e5 / 0.59049e5 * t16452 * t1446 * t16364 * t24 + 0.48950e5 / 0.2187e4 * t1499 * t1500 * t16353 - 0.26180e5 / 0.729e3 * t560 * t16387 + 0.200e3 / 0.81e2 * t16463 * t1501 + 0.16000e5 / 0.2187e4 * t16466 * t554 * t4671 - 0.44000e5 / 0.2187e4 * t4669 * t4670 * t16358 + 0.80e2 / 0.9e1 * t5999 * t1493 * t514 - 0.440e3 / 0.27e2 * t4652 * t1458 + 0.200e3 / 0.81e2 * t4655 * t1493 * t1473 + 0.80e2 / 0.27e2 * t1489 * t4664 * t514;
18462   t16487 = (0.13090e5 / 0.6561e4 * t16350 + 0.15400e5 / 0.2187e4 * t24 * lapl[1] * t4578 + t16397 - t16401 + t16403) * t231 - 0.2e1 * t16406 * t563 + 0.9e1 / 0.2e1 * t16409 * t1483 - 0.3e1 * t4631 * t1506 - 0.15e2 / 0.2e1 * t16414 * t4643 + 0.9e1 * t4634 * t4646 - 0.2e1 * t1477 * t4679 + 0.105e3 / 0.16e2 * t16424 * t16425 - 0.45e2 / 0.4e1 * t4642 * t1483 * t1506 + 0.9e1 / 0.4e1 * t1482 * t16431 + 0.3e1 * t1482 * t563 * t4679 - t552 * t16484 / 0.2e1 - t16390;
18463   t16495 = t4722 * t6089;
18464   t16501 = t6221 * t4786 * t587;
18465   t16504 = t4756 * t587;
18466   t16505 = t6221 * t16504;
18467   t16508 = t1529 * t1560;
18468   t16509 = t4755 * t16508;
18469   t16515 = t8510 * t1529 * t1569;
18470   t16518 = t6215 * t16504;
18471   t16524 = t4848 * t4780 * t587;
18472   t16528 = t4848 * t1529 * t1582;
18473   t16531 = t1509 * t1509;
18474   t16532 = t1523 * t16531;
18475   t16539 = t4785 * t16508;
18476   t16542 = 0.11756685810716947640e1 * t16495 * t6092 - 0.30367989716514304433e0 * t4777 * t4850 + 0.87198868390655171972e0 * t4784 * t16501 - 0.11756685810716947640e1 * t1527 * t16505 - 0.51005109676670195860e1 * t1527 * t16509 - 0.65874119249613091356e0 * t4774 * t4850 + 0.82889667748265151307e0 * t1527 * t16515 + 0.13174823849922618271e1 * t1527 * t16518 + 0.13174823849922618271e1 * t4752 * t4850 - 0.65874119249613091356e0 * t1527 * t16524 - 0.65874119249613091356e0 * t1527 * t16528 + 0.63756387095837744823e0 * t16532 * t250 - 0.4404030955044470784e1 * t245 * t4688 * t1569 * t1582 + 0.45514919671073415976e1 * t1527 * t16539;
18477   t16544 = t4785 * t2066 * t1560;
18478   t16547 = t4726 * t574;
18479   t16548 = t249 * t1509;
18480   t16549 = t16548 * t580;
18481   t16556 = t1560 * t1560;
18482   t16557 = t1542 * t16556;
18483   t16558 = t16557 * t242;
18484   t16561 = t1514 * t16531;
18485   t16568 = t1534 * t587 * t1509;
18486   t16573 = t1534 * t4816;
18487   t16578 = t1543 * t1543;
18488   t16579 = t4699 * t16578;
18489   t16580 = t16579 * t242;
18490   t16583 = t4699 * t1543;
18491   t16584 = t4708 * t1560;
18492   t16589 = t4699 * t1560 * t4756;
18493   t16595 = -0.33758233860356468336e1 * t4784 * t16544 - 0.51005109676670195860e1 * t16547 * t16549 + 0.1300099825664e1 * t245 * t1568 * t4816 * t587 + 0.2468269445917900800e1 * t575 * t16558 - 0.2766001889280e1 * t16561 * t250 + 0.16044983381648203533e1 * t4823 * t1544 * t4824 + 0.2857877408034324480e1 * t4727 * t16568 - 0.17980392870196113152e1 * t4770 * t4719 - 0.476312901339054080e0 * t1533 * t16573 + 0.1428938704017162240e1 * t4770 * t4715 + 0.29619233351014809600e2 * t575 * t16580 + 0.11381275721949218649e2 * t4707 * t16583 * t16584 + 0.88103396910371918316e1 * t575 * t16589 + 0.51005109676670195860e1 * t1549 * t4762 * t1550;
18494   t16597 = t242 * t4816;
18495   t16604 = t1522 * t1522;
18496   t16605 = 0.1e1 / t16604;
18497   t16606 = t1515 * t1515;
18498   t16607 = t16605 * t16606;
18499   t16610 = t4735 * t16606;
18500   t16613 = t4761 * t1543;
18501   t16614 = t16613 * t4780;
18502   t16616 = t242 * t4693;
18503   t16617 = t4807 * t16616;
18504   t16623 = 0.1e1 / t1541 / t1554;
18505   t16624 = t16623 * t16578;
18506   t16625 = t16624 * t242;
18507   t16629 = -t577 * t16487 * t242;
18508   t16634 = 0.1e1 / t1522 / t1513;
18509   t16635 = t16634 * t16606;
18510   t16638 = t569 * t16487;
18511   t16641 = t1541 * t1541;
18512   t16642 = 0.1e1 / t16641;
18513   t16643 = t16642 * t16578;
18514   t16644 = t16643 * t242;
18515   t16646 = t247 * t4682;
18516   t16652 = -0.114668117222400e3 * t16614 - 0.14277760e2 * t16617 + 0.10145661348248508867e2 * t16607 * t247 + 0.114668117222400e3 * t16580 - 0.68216827389720576000e2 * t16625 + 0.1784720e1 * t16629 + 0.114668117222400e3 * t16610 * t247 - 0.68216827389720576000e2 * t16635 * t247 + 0.1784720e1 * t16638 * t247 + 0.10145661348248508867e2 * t16644 - 0.14277760e2 * t4726 * t16646 - 0.114668117222400e3 * t4741 * t1515 * t4795;
18517   t16654 = t4761 * t16578 * t242;
18518   t16656 = t1544 * t4780;
18519   t16660 = t4735 * t1509;
18520   t16663 = t1542 * t4693;
18521   t16664 = t16663 * t1529;
18522   t16666 = t4741 * t16606;
18523   t16672 = t1555 * t16556 * t242;
18524   t16678 = t1523 * t4682;
18525   t16681 = -0.42833280e2 * t16654 + 0.64249920e2 * t16656 + 0.9555676435200e1 * t16532 * t247 + 0.34108413694860288000e2 * t16660 * t6131 + 0.12740901913600e2 * t16664 - 0.42833280e2 * t16666 * t247 + 0.9555676435200e1 * t16558 + 0.34108413694860288000e2 * t16589 - 0.10708320e2 * t16672 + 0.64249920e2 * t1524 * t4795 - 0.10708320e2 * t16561 * t247 + 0.12740901913600e2 * t16678 * t2096;
18526   t16686 = t1582 * t1582;
18527   t16692 = t4731 * t238;
18528   t16706 = t1545 * t1582;
18529   t16710 = -0.476312901339054080e0 * t1549 * t579 * t16597 - 0.2857877408034324480e1 * t1549 * t4766 * t1550 + 0.45165298839047841173e-1 * t16607 * t250 + 0.76507664515005293790e1 * t16610 * t250 - 0.258304e0 * t245 * t583 * (t16652 + t16681) + 0.975074869248e0 * t245 * t1568 * t16686 + 0.461000314880e0 * t575 * t16629 - 0.476312901339054080e0 * t16692 * t1535 - 0.11064007557120e2 * t16666 * t250 + 0.16596011335680e2 * t575 * t16656 - 0.714469352008581120e0 * t4863 * t4715 + 0.39207562244901126197e2 * t1540 * t16624 * t1545 - 0.29619233351014809600e2 * t575 * t16614 + 0.94575714566868943971e0 * t4838 * t1544 * t16706;
18530   t16721 = t1524 * t1539;
18531   t16728 = t1519 * t1539;
18532   t16735 = t4731 * t574;
18533   t16740 = t1516 * t1539;
18534   t16743 = t4745 * t574;
18535   t16746 = -0.22762551443898437297e2 * t4707 * t16624 * t4708 + 0.41444833874132575653e0 * t4820 * t4719 - 0.3688002519040e1 * t575 * t16617 + 0.21968466899514280222e2 * t1540 * t16613 * t4844 - 0.77812782197085049260e0 * t16721 * t4787 - 0.45514919671073415977e1 * t4752 * t4790 + 0.12751277419167548965e1 * t4774 * t4781 - 0.16879116930178234168e1 * t16728 * t4787 + 0.22757459835536707988e1 * t4774 * t4790 + 0.58783429053584738202e0 * t4777 * t4781 + 0.85008516127783659764e0 * t16735 * t1530 - 0.25502554838335097930e1 * t4752 * t4781 + 0.33758233860356468336e1 * t16740 * t4787 + 0.51005109676670195860e1 * t16743 * t1530;
18536   t16749 = t4737 * t574;
18537   t16754 = t4700 * t242;
18538   t16755 = t4785 * t16754;
18539   t16761 = pow(t243, -0.3741696e1);
18540   t16762 = t238 * t16761;
18541   t16763 = t16762 * t249;
18542   t16764 = t1545 * t1545;
18543   t16771 = pow(t248, -0.4258304e1);
18544   t16772 = t1569 * t1569;
18545   t16787 = t4745 * t238;
18546   t16790 = t244 * t4688;
18547   t16791 = t16790 * t4689;
18548   t16797 = 0.18066119535619136469e0 * t16749 * t1530 + 0.51005109676670195860e1 * t4752 * t4757 + 0.51005109676670195860e1 * t1527 * t16755 + 0.1428938704017162240e1 * t1549 * t1556 * t4853 - 0.92817332546461565657e1 * t16763 * t16643 * t16764 + 0.20312390406477209506e2 * t4707 * t16643 * t4708 + 0.23916119461575365556e1 * t245 * t16771 * t16772 - 0.714469352008581120e0 * t1549 * t1561 * t4853 - 0.18307055749595233518e1 * t1540 * t16557 * t1545 - 0.11064007557120e2 * t575 * t16654 + 0.85008516127783659764e0 * t16678 * t566 * t250 - 0.2857877408034324480e1 * t16787 * t1535 - 0.13535064380111787705e1 * t1533 * t16791 - 0.24409407666126978024e1 * t1540 * t16663 * t2066;
18549   t16800 = t4706 * t583;
18550   t16801 = t4708 * t587;
18551   t16821 = t574 * t4688;
18552   t16834 = t4742 * t574;
18553   t16837 = 0.3291025927890534400e1 * t575 * t16664 - 0.19598860293882473159e1 * t16800 * t4701 * t16801 - 0.2766001889280e1 * t575 * t16672 - 0.11756685810716947640e1 * t16635 * t250 - 0.476312901339054080e0 * t1549 * t4694 * t1550 + 0.10491196150051375396e1 * t4777 * t4790 + 0.461000314880e0 * t16638 * t250 + 0.89901964350980565762e0 * t4863 * t4719 - 0.21968466899514280222e2 * t1540 * t16579 * t1545 - 0.13535064380111787705e1 * t16821 * t4689 * t577 * t1529 - 0.12751277419167548965e1 * t1549 * t1544 * t4853 - 0.15171639890357805325e1 * t1549 * t4701 * t1550 - 0.65874119249613091356e0 * t4723 * t589 - 0.23513371621433895281e1 * t16834 * t1530;
18554   t16839 = t4700 * t1545;
18555   t16840 = t9579 * t16839;
18556   t16843 = t9579 * t16754;
18557   t16846 = t9553 * t16754;
18558   t16852 = t1560 * t578;
18559   t16853 = t16852 * t1550;
18560   t16856 = t1582 * t587;
18561   t16866 = t9553 * t16839;
18562   t16869 = t570 * t4706;
18563   t16870 = t4700 * t4708;
18564   t16871 = t9579 * t16870;
18565   t16874 = t4718 * t16856;
18566   t16880 = t4737 * t238;
18567   t16883 = -0.60248995135255396168e1 * t4784 * t16840 + 0.27077129145119382320e1 * t1527 * t16843 - 0.91029839342146831954e1 * t1527 * t16846 + 0.18915142913373788795e1 * t6238 * t4844 * t6217 - 0.25502554838335097930e1 * t6222 * t16853 + 0.17980392870196113152e1 * t8511 * t1529 * t16856 + 0.2857877408034324480e1 * t6216 * t16853 - 0.25502554838335097930e1 * t4774 * t4757 - 0.11756685810716947640e1 * t4777 * t4757 + 0.67516467720712936673e1 * t4784 * t16866 + 0.34978477943697927495e1 * t16869 * t16871 + 0.17980392870196113152e1 * t1533 * t16874 + 0.89901964350980565762e0 * t4823 * t1561 * t4824 - 0.10122663238838101478e0 * t16880 * t1535;
18568   t16900 = t1528 * t16616;
18569   t16903 = t1539 * t1568;
18570   t16904 = t1545 * t1569;
18571   t16911 = t2044 * t4682;
18572   t16920 = t4742 * t238;
18573   t16928 = 0.58783429053584738202e0 * t16660 * t1515 * t250 - 0.76507664515005293789e1 * t4741 * t1509 * t1515 * t250 - 0.17980392870196113152e1 * t4823 * t1556 * t4824 - 0.32937059624806545678e0 * t4820 * t4715 - 0.17620679382074383663e2 * t575 * t16625 + 0.16596011335680e2 * t4820 * t4728 + 0.85008516127783659764e0 * t1527 * t16900 - 0.11900499994234945968e1 * t16903 * t1544 * t16904 - 0.37830285826747577588e1 * t4838 * t4762 * t4839 - 0.3688002519040e1 * t4727 * t16911 + 0.33758233860356468337e1 * t4838 * t4701 * t4839 - 0.19603781122450563098e2 * t1540 * t16583 * t4844 + 0.13174823849922618271e1 * t16920 * t1535 - 0.13606156761889987933e2 * t1540 * t16643 * t1545 + 0.26206649088979828343e1 * t575 * t16644;
18574   t16932 = my_piecewise3(t235, 0, t16542 + t16595 + t16710 + t16746 + t16797 + t16837 + t16883 + t16928);
18575   t16933 = my_piecewise3(t234, 0, t16932);
18576   t16939 = 0.3e1 / 0.10e2 * t60 * (0.6e1 * t1509 * t1588 + t16487 * t252 + t16933 * t233 + 0.4e1 * t4682 * t593 + 0.4e1 * t4869 * t566 + t16390) - 0.2618e4 / 0.81e2 * t16349;
18577   t16948 = t1594 * t1594;
18578   t16956 = t1598 * t1598;
18579   t16958 = t56 * t16956 * t345;
18580   t16960 = t262 * t19 * t2527;
18581   t16964 = t1608 * t19 * t2527;
18582   t16979 = t56 * t4951;
18583   t16981 = t14848 * t2527;
18584   t16984 = 0.9163e4 / 0.65610e5 * t57 * t16387 - t56 * t16939 * t601 / 0.180e3 - t4876 * t36 * t2124 / 0.27e2 + 0.5e1 / 0.27e2 * t1595 * t6309 - t56 * t16948 * t36 * t1602 / 0.36e2 - 0.10e2 / 0.27e2 * t1595 * t345 * t6318 + 0.125e3 / 0.1458e4 * t16958 * t16960 - 0.125e3 / 0.2187e4 * t16958 * t16964 + t604 * t16939 * t601 / 0.180e3 + t1609 * t4875 * t2131 / 0.81e2 + t1609 * t16948 * t1611 / 0.108e3 + 0.5e1 / 0.81e2 * t4897 * t1594 * t6309 + 0.25e2 / 0.4374e4 * t16979 * t16956 * t16981;
18585   t17013 = t1654 * t19 * t23;
18586   t17016 = t4952 * t16956;
18587   t17020 = t1598 * t19;
18588   t17039 = t1638 * t1638;
18589   t17045 = t1640 * t1640;
18590   t17049 = t345 * t285;
18591   t17050 = t17049 * t24;
18592   t17053 = t6308 * t4947;
18593   t17061 = t16948 * t36 * t1645;
18594   t17067 = t68 * t285 * t4875;
18595   t17071 = 0.1e1 / t1653 / t1608;
18596   t17088 = t1653 * t1653;
18597   t17089 = 0.1e1 / t17088;
18598   t17094 = -0.10000e5 / 0.729e3 * t449 * t17016 * t17050 - 0.1000e4 / 0.27e2 * t4942 * t17053 - 0.5000e4 / 0.243e3 * t1263 * t4965 * t16956 * t17050 - 0.50e2 / 0.27e2 * t1643 * t17061 - 0.1000e4 / 0.27e2 * t4953 * t17053 - 0.200e3 / 0.81e2 * t4946 * t17067 - 0.5000e4 / 0.729e3 * t4017 * t17071 * t16956 * t17050 - 0.5e1 / 0.9e1 * t625 * t16939 * t19 * t627 - 0.100e3 / 0.81e2 * t1263 * t1654 * t4875 * t2165 - 0.25e2 / 0.27e2 * t1655 * t17061 - 0.500e3 / 0.81e2 * t4966 * t17053 - 0.1250e4 / 0.2187e4 * t14957 * t17089 * t16956 * t17050;
18599   t17095 = my_piecewise3(t277, (-0.5e1 / 0.9e1 * params->c1 * t16939 * t280 - 0.200e3 / 0.81e2 * t4914 * t36 * t620 - 0.1000e4 / 0.27e2 * t1623 * t1632 - 0.50e2 / 0.27e2 * params->c1 * t16948 * t1627 - 0.10000e5 / 0.729e3 * params->c1 * t16956 * t345 * t17013 - 0.50000e5 / 0.6561e4 * t2150 * t17016 * t68 - 0.5000e4 / 0.243e3 * t6363 * t17020 * t23 * t1594 - 0.500e3 / 0.81e2 * t278 * t1631 * t16948 - 0.2000e4 / 0.243e3 * t2150 * t4927 * t4875 - 0.25e2 / 0.81e2 * t617 * t619 * t16939) * t283 + 0.4e1 * t4934 * t623 * t283 + 0.3e1 * t17039 * t283 + 0.6e1 * t1638 * t1640 * t283 + t17045 * t283, t17094);
18600   t17098 = -0.24e2 * t16323 * t16324 * t288 + 0.36e2 * t4566 * t1425 * t1617 - 0.24e2 * t4566 * t4567 * t631 - 0.6e1 * t1423 * t16334 * t288 + 0.24e2 * t1423 * t1620 * t1617 - 0.8e1 * t1423 * t612 * t4905 + 0.12e2 * t1423 * t1424 * t1659 + t510 * (0.26180e5 / 0.19683e5 * t16350 + 0.5225e4 / 0.1458e4 * t40 * t16354 * t194 - 0.5929e4 / 0.288e3 * t346 * t523 * t16358 * t194 + 0.2949e4 / 0.640e3 * t1447 * t16364 * t19 * t1452 - 0.1053e4 / 0.3200e4 * t4601 / t177 / t16369 * t36 * t4606 + 0.6561e4 / 0.160000e6 * t14238 * t1446 * t184 / t4602 / t185 * t194 + 0.6e1 * t16383 + 0.8e1 * t608 * t4902 + 0.2e1 * t269 * t16984) * t288 - 0.4e1 * t510 * t4905 * t631 - 0.6e1 * t510 * t1617 * t1659 - 0.4e1 * t510 * t611 * t4970 - t276 * t17095 + 0.1174e1 * t17095;
18601   t17121 = t13953 + t13957 - 0.43069537681507200000e3 * t15929 - 0.2e1 / 0.3e1 * t15932 - 0.2e1 / 0.3e1 * t15939 - 0.10738881612762167582e3 * t15560 + 0.87962666666666666668e1 * t15562 - 0.3e1 / 0.8e1 * t8 * t175 * t17098 * t302 - 0.14085022000000000000e4 * t640 * t1675 * t16349 * t301 + 0.83381277777777777776e2 * t640 * t644 * t292 * t188 * t301 - 0.64604306522260800000e3 * t640 * t188 * t1673 * t301 * t4358 - 0.12886657935314601099e4 * t4414 * t16023 * t5028 + 0.30786933333333333333e2 * t15965;
18602   t17128 = t4417 * t1401;
18603   t17132 = t4417 * t1414;
18604   t17139 = -0.12e2 * t4108 - 0.12e2 * t13862;
18605   t17154 = -0.15833280000000000000e3 * t15967 - 0.13194400000000000000e2 * t15969 - 0.26388800000000000000e2 * t15971 + 0.42955526451048670329e3 * t15982 - 0.98958000000000000000e1 * t15986 + 0.21477763225524335164e3 * t15653 * t4416 * t17128 + 0.64433289676573005494e3 * t4414 * t4416 * t17132 + 0.12886657935314601099e4 * t16036 * t5029 - t484 * t485 * t302 * t17139 / 0.2e1 - 0.3e1 * t484 * t4441 * t1415 - 0.2e1 * t484 * t1367 * t4982 - 0.31666560000000000000e4 * t1376 * t16012 * t16013 * t503;
18606   t17159 = t634 * t19 * t38;
18607   t17180 = t1414 * t1414;
18608   t17191 = -0.2e1 * t484 * t16159 * t504 + 0.66147100843063384139e1 * t1686 * t17159 * t4531 - 0.96649934514859508241e3 * t1686 * t4509 * t203 * t1690 + 0.83124720000000000000e4 * t2195 * t4521 * t2207 * t754 * t301 + 0.10291428212230410600e4 * t1686 * t1687 * t180 * t1690 - 0.11874960000000000000e3 * t16034 + 0.23090200000000000000e2 * t16039 + 0.27708240000000000000e3 * t16044 - 0.25655777777777777777e2 * t16046 - t1308 * t485 * t302 * t17180 / 0.2e1 + t15610 / 0.2e1 + 0.4e1 / 0.9e1 * t4090 * t1367 * t5006 + 0.83124720000000000000e3 * t1668 * t5011;
18609   t17201 = t469 * t175 * t4973;
18610   t17216 = 0.1e1 / t297 / t220 * t3557 / 0.36e2;
18611   t17229 = -0.76967333333333333333e2 * t1668 * t5016 + 0.34635300000000000000e2 * t5022 * t1682 - 0.17812440000000000000e3 * t5022 * t1677 - 0.98958000000000000000e1 * t17201 * t649 + 0.65972000000000000000e1 * t15665 + 0.39583200000000000000e2 * t15667 - 0.76967333333333333334e1 * t15669 + 0.46180400000000000000e2 * t1376 * t644 * t1680 * t4546 - 0.39583200000000000000e2 * t4476 * t4548 - 0.27708240000000000000e4 * t640 * t17216 * t184 * t16353 * t301 * t156 + 0.11083296000000000000e4 * t1376 * t1675 * t4579 * t1409 - 0.13194400000000000000e2 * t15582 * t4541;
18612   t17232 = t301 * t5005;
18613   t17237 = t301 * t4981;
18614   t17269 = -0.39583200000000000000e2 * t16103 * t1411 + 0.29320888888888888889e1 * t15179 * t644 * t647 * t17232 - 0.13194400000000000000e2 * t1376 * t644 * t647 * t17237 - 0.10262311111111111111e3 * t1376 * t644 * t5014 * t1409 - 0.79166400000000000000e2 * t4246 * t1675 * t1430 * t4539 - 0.47499840000000000000e3 * t4476 * t4552 + 0.92360800000000000000e2 * t4476 * t5049 + 0.15393466666666666667e2 * t4246 * t644 * t1680 * t4539 - 0.23749920000000000000e3 * t1376 * t1675 * t1430 * t4546 - 0.43981333333333333333e1 * t16108 + 0.88196134457417845519e1 * t4414 * t16027 * t16028 * t503 - 0.36651111111111111111e1 * t15323 - t16114 / 0.2e1;
18615   t17279 = t1401 * t1401;
18616   t17291 = t1390 * t1390;
18617   t17296 = -0.5e1 / 0.9e1 * t15352 - 0.20e2 / 0.27e2 * t15365 - 0.20e2 / 0.27e2 * t15368 + 0.2e1 / 0.9e1 * t15735 + 0.2e1 / 0.3e1 * t15740 + 0.2e1 / 0.3e1 * t15743 + 0.4e1 / 0.3e1 * t15764 + 0.2e1 / 0.9e1 * t15767 - 0.5e1 / 0.27e2 * t13897 * t485 * t302 * t17279 + t310 * t311 * t167 * t17139 / 0.2e1 - t1308 * t4441 * t1402 - 0.5e1 / 0.27e2 * t13834 * t311 * t167 * t17291;
18618   t17297 = t1396 * t1396;
18619   t17309 = t16085 * t503;
18620   t17328 = -t986 * t311 * t167 * t17297 / 0.2e1 - 0.2e1 / 0.3e1 * t16133 - 0.2e1 * t16136 + 0.4e1 / 0.27e2 * t16169 - 0.2e1 * t16172 + 0.4e1 / 0.27e2 * t16175 - 0.2e1 / 0.3e1 * t16178 - 0.2e1 / 0.3e1 * t16181 - 0.17227815072602880000e4 * t16083 * t16084 * t17309 + 0.2e1 / 0.3e1 * t4090 * t485 * t1402 * t1414 + 0.2e1 / 0.3e1 * t4147 * t311 * t1391 * t1396 - 0.2e1 / 0.3e1 * t1308 * t485 * t4982 * t503 - 0.2e1 * t1308 * t1367 * t5033;
18621   t17335 = 0.12886657935314601099e4 * t5030 - 0.19791600000000000000e2 * t4412 - 0.2e1 * t5035 - 0.2e1 * t5039 - 0.12920861304452160000e4 * t5046 + 0.92360800000000000000e2 * t5050 + 0.4e1 / 0.3e1 * t4332 + t10 * (t16315 + t17121 + t17154 + t17191 + t17229 + t17269 + t17296 + t17328) - 0.26388800000000000000e2 * t4489 - t15015 - 0.3e1 / 0.2e1 * t4493;
18622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18623     v4rho4[4] = t16242 + t16253 + t16266 + t17335;
18624 
18625   t17347 = 0.61848750000000000000e0 * t5118;
18626   t17355 = 0.66796650000000000000e2 * t5079 + 0.24162483628714877061e3 * t5084 + 0.22265550000000000000e2 * t5087 - 0.60406209071787192650e2 * t5089 - 0.18121862721536157795e3 * t5094 + 0.66796650000000000000e3 * t5100 - 0.18603872112111576789e1 * t5105 + 0.90609313607680788977e2 * t5109 - 0.16699162500000000000e3 * t5114 - 0.74218500000000000000e1 * t5116 - t17347 - 0.24739500000000000000e1 * t5120 - 0.49479000000000000000e1 * t5124 + 0.27831937500000000000e1 * t5126 - 0.14843700000000000000e2 * t5130 - 0.89062200000000000000e2 * t5132 + 0.89062200000000000000e2 * t5137 - 0.24162483628714877060e3 * t5143;
18627   t17357 = t4068 * t1935;
18628   t17359 = t8 * t5665;
18629   t17363 = t469 * t18 * t5642;
18630   t17366 = t23 * t3602;
18631   t17372 = t737 * t3563 * t3557;
18632   t17377 = t737 * t19 * t38;
18633   t17386 = t3549 * t5083;
18634   t17392 = t5086 * t5078;
18635   t17402 = 0.82465000000000000000e0 * t17357 + 0.32216644838286502747e3 * t17359 * t4064 - 0.74218500000000000000e1 * t17363 * t480 + 0.29440005000000000000e3 * t1926 * t1928 * t17366 * t166 - 0.59374800000000000000e3 * t1926 * t17372 * t3568 + 0.16536775210765846035e1 * t1297 * t17377 * t3575 + 0.33398325000000000000e2 * t1926 * t1273 * t1284 * t19 * t1929 + 0.80541612095716256868e2 * t17386 - 0.24162483628714877060e3 * t1297 * t5081 * t64 * t1301 + 0.22265550000000000000e2 * t17392 - 0.16699162500000000000e3 * t1926 * t5077 * t5112 - 0.65726558181610899501e3 * t1297 * t7533 / t26 * t13794;
18636   t17408 = t3549 * t5108;
18637   t17418 = t5086 * t5099;
18638   t17420 = t3549 * t5104;
18639   t17422 = t3549 * t5093;
18640   t17424 = t5669 * t5670;
18641   t17451 = t3619 * t719;
18642   t17465 = -0.6e1 * t1030 * t1226 * t1867 - 0.2e1 * t1030 * t3957 * t720 - 0.6e1 * t1030 * t435 * t5563 + 0.12e2 * t1030 * t435 * t5565 + 0.18e2 * t1031 * t1867 * t3619 - 0.18e2 * t1031 * t1869 * t3619 - 0.3e1 * t1226 * t1906 * t330 - t330 * t3957 * t734 - t330 * t4024 * t719 - 0.6e1 * t3619 * t3620 * t734 + 0.18e2 * t17451 * t3624;
18643   t17472 = t722 * t345;
18644   t17479 = t1239 * t5527;
18645   t17485 = t24 * t3602;
18646   t17486 = 0.770e3 / 0.243e3 * t17485;
18647   t17511 = 0.247e3 / 0.8748e4 * t68 * t1042 * lapl[0];
18648   t17513 = 0.1672e4 / 0.59049e5 * t68 * t14261;
18649   t17519 = t1735 * t1090;
18650   t17522 = 0.105e3 / 0.16e2 * t14287 * t681 * t3695 - 0.45e2 / 0.8e1 * t3694 * t1742 * t1115 + 0.3e1 / 0.4e1 * t1091 * t681 * t3731 + 0.9e1 / 0.2e1 * t3686 * t5216 + 0.9e1 / 0.4e1 * t3686 * t5219 - 0.45e2 / 0.8e1 * t14277 * t5213 + 0.9e1 / 0.4e1 * t1091 * t5265 * t387 + 0.9e1 / 0.4e1 * t1091 * t1764 * t1115 + (-0.770e3 / 0.2187e4 * t17485 + t17511 - t17513) * t93 - 0.45e2 / 0.8e1 * t3694 * t1764 * t1092 + 0.9e1 / 0.4e1 * t17519 * t1092;
18651   t17523 = t674 * t3693;
18652   t17530 = t5199 * t375;
18653   t17538 = t1102 * t382;
18654   t17539 = t17538 * t676;
18655   t17542 = t5225 * t1751;
18656   t17545 = t378 * t1106;
18657   t17546 = t17545 * t676;
18658   t17549 = t3707 * t1751;
18659   t17552 = t1098 * t5239;
18660   t17571 = 0.3080e4 / 0.243e3 * t1748 * t3630 + 0.25e2 / 0.6e1 * t5244 * t5259 * t5245 + 0.20e2 / 0.9e1 * t17539 * t334 + 0.40e2 / 0.9e1 * t17542 * t334 + 0.100e3 / 0.81e2 * t17546 * t1082 + 0.100e3 / 0.81e2 * t17549 * t1082 + 0.20e2 / 0.9e1 * t17552 * t334 - 0.25e2 / 0.54e2 * t5244 * t1758 * t1102 * sigma[0] - 0.6250e4 / 0.19683e5 * t14334 * t3645 * t347 * t24 - 0.220e3 / 0.27e2 * t5226 * t1038 - 0.1100e4 / 0.243e3 * t5231 * t3679 - 0.220e3 / 0.27e2 * t5234 * t1038 + 0.20e2 / 0.9e1 * t3703 * t1706;
18661   t17585 = t14313 * t676;
18662   t17593 = t14313 * t345;
18663   t17598 = t3716 * t89;
18664   t17614 = -0.220e3 / 0.27e2 * t1754 * t5111 * t378 + 0.20e2 / 0.9e1 * t1754 * t1725 * t1102 - 0.5e1 / 0.18e2 * t1754 * t664 * t3716 - 0.8525e4 / 0.1458e4 * t1108 * t39 * t3633 * sigma[0] + 0.4000e4 / 0.2187e4 * t17585 * t3723 - 0.5e1 / 0.6e1 * t5225 * t19 * t5252 - 0.25e2 / 0.54e2 * t14310 * t1759 - 0.500e3 / 0.243e3 * t17593 * t1048 * t378 * t41 + 0.2e1 * t17598 * t676 + 0.6e1 * t5222 * t1751 + 0.6e1 * t1745 * t5239 + 0.2e1 * t377 * (t17511 - t17513) + 0.4750e4 / 0.729e3 * t3721 * t345 * t3638 * t41 + 0.1540e4 / 0.243e3 * t383 * t17485;
18665   t17628 = -0.15e2 / 0.8e1 * t17523 * t3695 + 0.9e1 / 0.4e1 * t5203 * t3698 + 0.9e1 / 0.4e1 * t14272 * t1742 + t17486 - 0.3e1 / 0.2e1 * t17530 * t387 - t376 * (t17571 + t17614) / 0.2e1 - 0.3e1 / 0.2e1 * t5201 * t1115 - t1737 * t3731 / 0.2e1 - t14269 * t681 / 0.2e1 - 0.3e1 / 0.2e1 * t3683 * t1764 - 0.3e1 / 0.2e1 * t1086 * t5265;
18666   t17629 = t17522 + t17628;
18667   t17641 = t3757 * t1806;
18668   t17642 = t17641 * t3841;
18669   t17645 = t14379 * t689;
18670   t17649 = t17645 * t14549;
18671   t17657 = t3741 * t1806;
18672   t17658 = t17657 * t3841;
18673   t17661 = t14382 * t3742;
18674   t17678 = t1118 * t390;
18675   t17679 = t1773 * t17678;
18676   t17682 = 0.44051698455185959158e1 * t399 * t17642 - 0.13606156761889987933e2 * t1149 * t17645 * t14543 + 0.26206649088979828343e1 * t399 * t17649 - 0.119078225334763520e0 * t1158 * t1817 * t14458 - 0.119078225334763520e0 * t1787 * t14412 - 0.14809616675507404800e2 * t399 * t17658 - 0.92817332546461565657e1 * t14377 * t17645 * t17661 + 0.20312390406477209506e2 * t3755 * t17645 * t14683 + 0.44950982175490282881e0 * t3819 * t5495 - 0.714469352008581120e0 * t1158 * t5284 * t14549 - 0.33837660950279469264e0 * t14462 * t690 * t14463 - 0.32937059624806545678e0 * t5344 * t413 + 0.8298005667840e1 * t5441 * t17679;
18677   t17689 = t14420 * t689;
18678   t17693 = t1836 * t404;
18679   t17700 = t698 * t1166;
18680   t17703 = t5313 * t1166;
18681   t17706 = t1790 * t1169;
18682   t17707 = t3840 * t17706;
18683   t17710 = t689 * t1152;
18684   t17711 = t17710 * t104;
18685   t17712 = t8849 * t17711;
18686   t17715 = t5498 * t402;
18687   t17716 = t3840 * t17715;
18688   t17720 = t111 * t1118 * t404;
18689   t17723 = t3862 * t17715;
18690   t17726 = t3766 * t398;
18691   t17728 = t1137 * t1790 * t1118;
18692   t17731 = 0.714469352008581120e0 * t1772 * t14599 + 0.714469352008581120e0 * t1158 * t1835 * t1164 * t3841 + 0.39207562244901126197e2 * t1149 * t17689 * t14543 - 0.32937059624806545678e0 * t1136 * t17693 - 0.75919974291285761083e-1 * t3830 * t5309 - 0.16468529812403272839e0 * t3827 * t5309 + 0.32937059624806545678e0 * t1136 * t17700 + 0.25502554838335097929e1 * t5312 * t17703 - 0.12751277419167548965e1 * t1136 * t17707 - 0.68272379506610123966e1 * t1136 * t17712 - 0.25502554838335097929e1 * t1136 * t17716 - 0.12751277419167548965e1 * t5312 * t17720 + 0.22757459835536707989e1 * t1136 * t17723 - 0.12751277419167548965e1 * t17726 * t17728;
18693   t17738 = t3862 * t7930 * t402;
18694   t17743 = t1780 * t398;
18695   t17745 = t111 * t1124 * t404;
18696   t17748 = t14528 * t684;
18697   t17752 = t697 * t3741;
18698   t17756 = t697 * t3757;
18699   t17766 = t3802 * t1178 * t390;
18700   t17771 = t104 * t3914;
18701   t17777 = 0.32937059624806545678e0 * t3837 * t5295 + 0.25502554838335097929e1 * t3837 * t5299 - 0.16879116930178234168e1 * t3861 * t17738 + 0.20722416937066287826e0 * t1784 * t14650 + 0.38253832257502646895e1 * t17743 * t17745 + 0.45165298839047841173e-1 * t17748 * t3823 * t112 + 0.12751277419167548965e1 * t1158 * t17752 * t14549 - 0.37929099725894513314e0 * t1158 * t17756 * t14549 - 0.16468529812403272839e0 * t1781 * t1193 - 0.38253832257502646894e1 * t5339 * t1118 * t9122 - 0.89901964350980565762e0 * t1772 * t17766 - 0.357234676004290560e0 * t5291 * t3747 - 0.119078225334763520e0 * t1158 * t690 * t17771 - 0.16468529812403272839e0 * t5431 * t413;
18702   t17785 = t5354 * t14549;
18703   t17791 = t17689 * t14549;
18704   t17804 = t5335 * t398;
18705   t17809 = t5313 * t1171;
18706   t17812 = t1771 * t1148;
18707   t17813 = t5313 * t1155;
18708   t17816 = 0.29391714526792369101e0 * t5374 * t1118 * t9122 - 0.75919974291285761083e-1 * t5375 * t413 + 0.714469352008581120e0 * t14501 * t7939 + 0.29619233351014809600e2 * t399 * t17785 - 0.61023519165317445059e0 * t1149 * t1794 * t14514 - 0.17620679382074383663e2 * t399 * t17791 - 0.18307055749595233518e1 * t1149 * t5409 * t3888 - 0.714469352008581120e0 * t14443 * t1814 + 0.98811178874419637035e0 * t5340 * t413 + 0.10984233449757140111e2 * t1149 * t17657 * t3863 - 0.25502554838335097929e1 * t17804 * t5314 + 0.29391714526792369101e0 * t14708 * t7767 - 0.12751277419167548965e1 * t5312 * t17809 + 0.16879116930178234168e1 * t17812 * t17813;
18709   t17819 = t5313 * t1174;
18710   t17822 = t5319 * t1171;
18711   t17825 = t1147 * t111;
18712   t17826 = t17825 * t1155;
18713   t17829 = t5319 * t1174;
18714   t17837 = t7821 * t1790 * t1178;
18715   t17840 = t3862 * t17711;
18716   t17844 = t3862 * t3001 * t1169;
18717   t17848 = t8876 * t12616 * t1152;
18718   t17851 = t3001 * t1152;
18719   t17852 = t8876 * t17851;
18720   t17856 = t3856 * t5498 * t411;
18721   t17860 = t3856 * t1790 * t1191;
18722   t17865 = -0.22757459835536707989e1 * t5312 * t17819 + 0.29391714526792369101e0 * t5318 * t17822 - 0.38906391098542524630e0 * t5318 * t17826 + 0.52455980750256876982e0 * t5318 * t17829 - 0.84395584650891170841e0 * t5399 * t14780 + 0.11378729917768353994e1 * t1784 * t14646 + 0.20722416937066287826e0 * t1136 * t17837 + 0.38253832257502646895e1 * t1136 * t17840 - 0.84395584650891170841e0 * t3861 * t17844 + 0.26233858457773445622e1 * t14682 * t17848 - 0.45186746351441547127e1 * t3861 * t17852 - 0.32937059624806545678e0 * t1136 * t17856 - 0.16468529812403272839e0 * t1136 * t17860 - 0.16468529812403272839e0 * t1784 * t14702;
18723   t17866 = t1118 * t100;
18724   t17867 = t1780 * t17866;
18725   t17870 = t1124 * t100;
18726   t17871 = t5374 * t17870;
18727   t17874 = t698 * t1174;
18728   t17877 = t698 * t1171;
18729   t17880 = t393 * t17629;
18730   t17883 = t8876 * t17711;
18731   t17888 = t698 * t1155;
18732   t17891 = t5319 * t1166;
18733   t17896 = t1151 * t5426;
18734   t17900 = t3879 * t1767;
18735   t17909 = 0.29391714526792369101e0 * t17867 * t5320 + 0.13549589651714352352e0 * t17871 * t5320 - 0.29391714526792369101e0 * t1136 * t17874 - 0.16468529812403272839e0 * t1136 * t17877 + 0.461000314880e0 * t17880 * t112 + 0.20307846858839536740e1 * t1136 * t17883 + 0.32937059624806545678e0 * t3837 * t5309 + 0.21799717097663792992e0 * t3861 * t17888 - 0.58783429053584738202e0 * t5318 * t17891 + 0.32937059624806545678e0 * t1784 * t14654 - 0.18307055749595233518e1 * t1149 * t17896 * t1795 + 0.29391714526792369101e0 * t17900 * t1124 * t112 - 0.89901964350980565762e0 * t3783 * t5495 - 0.22762551443898437297e2 * t3755 * t17689 * t14683;
18736   t17918 = t1143 * t1124 * t411;
18737   t17923 = t1835 * t411;
18738   t17924 = t3802 * t17923;
18739   t17934 = t1794 * t14458;
18740   t17937 = t5409 * t3833;
18741   t17943 = t1835 * t1151;
18742   t17947 = t5347 * t3833;
18743   t17951 = t1164 * t5426 * t1138;
18744   t17957 = 0.44950982175490282881e0 * t3771 * t1807 * t3772 - 0.357234676004290560e0 * t1158 * t1807 * t3786 - 0.2143408056025743360e1 * t5441 * t17918 + 0.20722416937066287826e0 * t1781 * t1180 + 0.89901964350980565762e0 * t1142 * t17924 - 0.357234676004290560e0 * t1158 * t5472 * t401 * t1138 - 0.98018905612252815491e1 * t1149 * t17641 * t3863 + 0.822756481972633600e0 * t399 * t17934 + 0.2468269445917900800e1 * t399 * t17937 + 0.56906378609746093243e1 * t3755 * t17641 * t5355 + 0.47287857283434471985e0 * t3793 * t17943 * t3863 - 0.2766001889280e1 * t399 * t17947 - 0.2766001889280e1 * t399 * t17951 - 0.357234676004290560e0 * t1158 * t5427 * t1159;
18745   t17963 = t17896 * t1138;
18746   t17971 = t5454 * t100;
18747   t17974 = t1773 * t3734;
18748   t17987 = t398 * t1177 * t1164;
18749   t17988 = t1178 * t402;
18750   t17989 = t1790 * t17988;
18751   t17996 = t1777 * t1148;
18752   t17999 = -0.357234676004290560e0 * t1158 * t5485 * t3833 - 0.357234676004290560e0 * t3819 * t5434 + 0.2468269445917900800e1 * t399 * t17963 - 0.16468529812403272839e0 * t3750 * t5434 + 0.76507664515005293790e1 * t5374 * t3823 * t112 - 0.357234676004290560e0 * t17971 * t1144 - 0.922000629760e0 * t1772 * t17974 + 0.975074869248e0 * t107 * t1177 * t5472 * t411 + 0.975074869248e0 * t107 * t5280 * t1191 + 0.44950982175490282881e0 * t5382 * t3787 - 0.89901964350980565762e0 * t17987 * t17989 + 0.63756387095837744823e0 * t5508 * t3834 + 0.21252129031945914941e0 * t1784 * t14493 - 0.84395584650891170840e0 * t17996 * t3864;
18753   t18003 = t686 * t3754;
18754   t18010 = t394 * t1158;
18755   t18011 = t1802 * t3857;
18756   t18014 = t394 * t3793;
18757   t18015 = t3794 * t402;
18758   t18016 = t1794 * t18015;
18759   t18019 = t1794 * t3857;
18760   t18024 = t5339 * t100;
18761   t18025 = t1773 * t3823;
18762   t18031 = t689 * t1169;
18763   t18032 = t18031 * t1159;
18764   t18035 = t18031 * t1138;
18765   t18046 = 0.87446194859244818739e0 * t18003 * t14684 - 0.15062248783813849042e1 * t5399 * t14687 + 0.11378729917768353994e1 * t5508 * t3867 + 0.65874119249613091356e0 * t18010 * t18011 + 0.43599434195327585985e0 * t18014 * t18016 - 0.58783429053584738202e0 * t18010 * t18019 + 0.32937059624806545678e0 * t14566 * t1814 - 0.11064007557120e2 * t18024 * t18025 + 0.89901964350980565762e0 * t398 * t5280 * t1160 - 0.63756387095837744823e0 * t5394 * t18032 - 0.14809616675507404800e2 * t8896 * t18035 + 0.12751277419167548965e1 * t14372 * t1791 + 0.94575714566868943972e0 * t5504 * t7930 * t5389 + 0.44950982175490282881e0 * t7822 * t1790 * t14523;
18766   t18047 = t1191 * t402;
18767   t18048 = t1790 * t18047;
18768   t18051 = t411 * t1152;
18769   t18052 = t1790 * t18051;
18770   t18055 = t1143 * t5472;
18771   t18058 = t3874 * t1767;
18772   t18062 = t407 * t3757;
18773   t18063 = t398 * t18062;
18774   t18072 = t1143 * t697 * t1118;
18775   t18077 = t1148 * t18062;
18776   t18078 = t3001 * t18051;
18777   t18086 = t1123 * t5268;
18778   t18092 = 0.714469352008581120e0 * t5388 * t18048 - 0.2143408056025743360e1 * t5394 * t18052 - 0.357234676004290560e0 * t1142 * t18055 - 0.38253832257502646895e1 * t18058 * t1124 * t112 - 0.11378729917768353994e1 * t18063 * t18052 + 0.44051698455185959158e1 * t8877 * t18035 - 0.2202015477522235392e1 * t9046 * t5494 * t1191 - 0.16468529812403272839e0 * t14597 * t18072 + 0.20722416937066287826e0 * t3750 * t5495 + 0.25318675395267351252e1 * t18077 * t18078 + 0.47287857283434471986e0 * t5504 * t3001 * t14389 - 0.25306658097095253694e-1 * t14474 * t1814 - 0.2766001889280e1 * t18086 * t100 * t1774 + 0.714469352008581120e0 * t3783 * t5434;
18779   t18094 = t5422 * t14549;
18780   t18097 = t1177 * t1151;
18781   t18098 = t1148 * t18097;
18782   t18102 = t398 * t18097;
18783   t18105 = t407 * t3741;
18784   t18106 = t1148 * t18105;
18785   t18109 = t1806 * t402;
18786   t18110 = t18109 * t1159;
18787   t18117 = t398 * t698;
18788   t18121 = t1143 * t1191 * t390;
18789   t18133 = t5426 * t104;
18790   t18134 = t1137 * t18133;
18791   t18140 = -0.11064007557120e2 * t399 * t18094 - 0.59502499971174729837e0 * t18098 * t3001 * t17988 + 0.80224916908241017662e0 * t18102 * t17989 - 0.28372714370060683191e1 * t18106 * t18078 - 0.12751277419167548965e1 * t5394 * t18110 + 0.44950982175490282881e0 * t5291 * t3803 + 0.44950982175490282881e0 * t5382 * t3892 + 0.714469352008581120e0 * t18117 * t3853 + 0.714469352008581120e0 * t1772 * t18121 + 0.44950982175490282881e0 * t1787 * t14524 + 0.23916119461575365556e1 * t107 * t14477 * t697 * t3815 - 0.10151298285083840779e1 * t398 * t5276 * t3773 + 0.63756387095837744823e0 * t1136 * t18134 - 0.59502499971174729836e0 * t1148 * t1821 * t3795;
18792   t18155 = t1802 * t14458;
18793   t18174 = 0.47287857283434471984e0 * t1148 * t698 * t3889 + 0.29391714526792369101e0 * t3830 * t5499 + 0.45165298839047841173e-1 * t14438 * t1791 - 0.12751277419167548965e1 * t3837 * t5499 - 0.58783429053584738202e0 * t14365 * t1791 - 0.63756387095837744824e0 * t1158 * t17943 * t3841 - 0.922000629760e0 * t399 * t18155 + 0.21252129031945914941e0 * t1780 * t3734 * t112 + 0.47287857283434471985e0 * t5504 * t3001 * t18047 - 0.63756387095837744823e0 * t5394 * t18048 - 0.119078225334763520e0 * t14665 * t1814 - 0.16468529812403272839e0 * t1784 * t14714 + 0.21799717097663792993e0 * t5399 * t14776 - 0.29391714526792369101e0 * t1784 * t14783;
18794   t18181 = t5343 * t5317;
18795   t18184 = t5339 * t17870;
18796   t18187 = t5454 * t398;
18797   t18199 = t697 * t1191;
18798   t18200 = t3802 * t18199;
18799   t18214 = -0.12751277419167548965e1 * t1784 * t14717 - 0.32937059624806545678e0 * t5508 * t3858 + 0.58783429053584738202e0 * t18181 * t5320 - 0.17635028716075421461e1 * t18184 * t5320 + 0.63756387095837744823e0 * t18187 * t1139 + 0.80224916908241017663e0 * t5382 * t3790 - 0.63756387095837744823e0 * t18117 * t3849 + 0.8298005667840e1 * t5343 * t100 * t5442 + 0.1428938704017162240e1 * t5388 * t18110 + 0.44950982175490282881e0 * t1142 * t18200 + 0.1428938704017162240e1 * t5336 * t5514 - 0.48997150734706182895e0 * t14399 * t17756 * t14683 + 0.84395584650891170840e0 * t3793 * t17756 * t14543 + 0.63756387095837744823e0 * t5343 * t1118 * t112;
18800   t18215 = t3862 * t17706;
18801   t18238 = t8849 * t17851;
18802   t18243 = -t401 * t17629 * t104;
18803   t18249 = 0.11378729917768353994e1 * t1136 * t18215 - 0.84395584650891170841e0 * t14676 * t5303 - 0.38906391098542524630e0 * t14679 * t5303 + 0.11378729917768353994e1 * t3827 * t5306 + 0.52455980750256876982e0 * t3830 * t5306 + 0.16879116930178234168e1 * t14540 * t5303 - 0.22757459835536707989e1 * t3837 * t5306 - 0.16468529812403272839e0 * t3827 * t5295 - 0.75919974291285761083e-1 * t3830 * t5295 - 0.12751277419167548965e1 * t3827 * t5299 - 0.58783429053584738202e0 * t3830 * t5299 + 0.50637350790534702506e1 * t3861 * t18238 + 0.461000314880e0 * t399 * t18243 + 0.325024956416e0 * t107 * t1821 * t3914;
18804   t18251 = t1771 * t1158;
18805   t18252 = t5513 * t404;
18806   t18260 = t1169 * t402;
18807   t18264 = t3754 * t18062;
18808   t18268 = t18031 * t1795;
18809   t18277 = t398 * t18105;
18810   t18280 = t14573 * t684;
18811   t18287 = t697 * t1178;
18812   t18288 = t14496 * t18287;
18813   t18291 = t1132 * t5268;
18814   t18295 = 0.65874119249613091356e0 * t18251 * t18252 - 0.33837660950279469264e0 * t1787 * t14497 - 0.21968466899514280222e2 * t1149 * t5354 * t14543 + 0.56906378609746093242e1 * t8899 * t12616 * t18260 - 0.14699145220411854869e1 * t18264 * t12616 * t18051 - 0.98018905612252815489e1 * t8904 * t18268 + 0.714469352008581120e0 * t5388 * t18032 + 0.8298005667840e1 * t8893 * t18035 + 0.10984233449757140111e2 * t8850 * t18268 + 0.38253832257502646895e1 * t18277 * t18052 - 0.11756685810716947640e1 * t18280 * t3823 * t112 - 0.94575714566868943969e0 * t3793 * t17752 * t14543 - 0.10151298285083840779e1 * t1142 * t18288 + 0.63756387095837744823e0 * t18291 * t390 * t112;
18815   t18296 = t5409 * t3841;
18816   t18307 = t3823 * t109;
18817   t18312 = t17678 * t109;
18818   t18328 = 0.32124960e2 * t1794 * t14645 - 0.57334058611200e2 * t5422 * t14645 + 0.17054206847430144000e2 * t17642 + 0.17054206847430144000e2 * t17900 * t5445 + 0.9555676435200e1 * t17937 + 0.114668117222400e3 * t5374 * t18307 - 0.57334058611200e2 * t17658 - 0.10708320e2 * t17947 + 0.17054206847430144000e2 * t5374 * t18312 + 0.3185225478400e1 * t17934 + 0.17054206847430144000e2 * t5354 * t14645 + 0.32124960e2 * t18296 - 0.10708320e2 * t5335 * t3897 + 0.9555676435200e1 * t17963 - 0.42833280e2 * t5339 * t18307 + 0.32124960e2 * t1780 * t18312 + 0.10145661348248508867e2 * t17748 * t18307;
18819   t18356 = -0.68216827389720576000e2 * t18280 * t18307 + 0.10145661348248508867e2 * t17649 + 0.1784720e1 * t18243 - 0.10708320e2 * t18086 * t1825 + 0.9555676435200e1 * t5343 * t3897 - 0.57334058611200e2 * t5339 * t18312 + 0.32124960e2 * t5343 * t5445 - 0.3569440e1 * t18155 + 0.3185225478400e1 * t1780 * t14749 + 0.114668117222400e3 * t17785 - 0.42833280e2 * t18094 - 0.10708320e2 * t17951 + 0.9555676435200e1 * t18291 * t1825 + 0.1784720e1 * t17880 * t109 - 0.57334058611200e2 * t18058 * t5445 - 0.68216827389720576000e2 * t17791 - 0.3569440e1 * t1771 * t14749;
18820   t18377 = t5317 * t397;
18821   t18378 = t1780 * t18377;
18822   t18381 = t394 * t3771;
18823   t18382 = t5494 * t404;
18824   t18391 = 0.8298005667840e1 * t399 * t18296 - 0.258304e0 * t107 * t407 * (t18328 + t18356) - 0.12751277419167548965e1 * t5508 * t3842 + 0.16879116930178234168e1 * t5399 * t14544 - 0.22757459835536707989e1 * t1784 * t14550 + 0.67692822862798455802e0 * t1784 * t14670 + 0.21252129031945914941e0 * t14393 * t1791 + 0.63756387095837744823e0 * t3827 * t5499 + 0.12751277419167548965e1 * t1784 * t14694 - 0.89901964350980565762e0 * t5382 * t3776 - 0.15183994858257152217e0 * t18378 * t3858 + 0.41444833874132575653e0 * t18381 * t18382 - 0.2202015477522235392e1 * t107 * t3814 * t1835 * t1178 - 0.2766001889280e1 * t5336 * t3768;
18825   t18396 = my_piecewise3(t97, 0, t17682 + t17731 + t17777 + t17816 + t17865 + t17909 + t17957 + t17999 + t18046 + t18092 + t18140 + t18174 + t18214 + t18249 + t18295 + t18391);
18826   t18397 = my_piecewise3(t96, 0, t18396);
18827   t18403 = 0.3e1 / 0.10e2 * t60 * (0.3e1 * t1118 * t1841 + t114 * t17629 + 0.3e1 * t1197 * t1767 + t18397 * t95 + t3734 * t703 + 0.3e1 * t390 * t5521 + t3921 * t684 + 0.3e1 * t417 * t5268 - t17486) + 0.154e3 / 0.27e2 * t3602;
18828   t18414 = t140 * t345 * t4004;
18829   t18428 = -0.500e3 / 0.243e3 * t1879 * t1880 * t3927 - 0.50e2 / 0.27e2 * t5578 * t36 * t444 - 0.10000e5 / 0.729e3 * t17472 * t3976 - 0.500e3 / 0.27e2 * t17472 * t3980 - 0.50e2 / 0.81e2 * t1876 * t3983 - 0.500e3 / 0.81e2 * t1879 * t17479 * t423 - 0.50e2 / 0.27e2 * t5581 * t1244 - 0.5e1 / 0.9e1 * params->c1 * t18403 * t142 - 0.500e3 / 0.27e2 * t1873 * t1241 - 0.2500e4 / 0.243e3 * t5589 * t1847 * t1207 * t24 - 0.50000e5 / 0.6561e4 * t18414 * t709 * t3934 * t68 - 0.500e3 / 0.81e2 * t1879 * t5594 * t1203 - 0.2500e4 / 0.243e3 * t5589 * t9219 * t6887 - 0.25e2 / 0.81e2 * t441 * t443 * t18403;
18830   t18448 = t24 * t147;
18831   t18449 = t3950 * t18448;
18832   t18453 = t1847 * t345 * t5615;
18833   t18456 = t4019 * t709;
18834   t18457 = t4017 * t18456;
18835   t18458 = t345 * t1203;
18836   t18459 = t18458 * t1893;
18837   t18468 = t4004 * t709;
18838   t18475 = t1263 * t18468;
18839   t18489 = t449 * t1901;
18840   t18502 = -0.1250e4 / 0.2187e4 * t14957 * t14959 * t709 * t18449 - 0.500e3 / 0.27e2 * t4005 * t18453 - 0.250e3 / 0.81e2 * t18457 * t18459 - 0.50e2 / 0.81e2 * t1892 * t14935 - 0.25e2 / 0.27e2 * t5631 * t4000 - 0.50e2 / 0.27e2 * t5619 * t4000 - 0.10000e5 / 0.729e3 * t449 * t18468 * t18449 - 0.5000e4 / 0.243e3 * t1263 * t18456 * t18449 - 0.500e3 / 0.27e2 * t18475 * t18459 - 0.5e1 / 0.9e1 * t450 * t18403 * t19 * t452 - 0.25e2 / 0.27e2 * t1263 * t1265 * t5527 * t1894 - 0.50e2 / 0.27e2 * t449 * t17479 * t1894 - 0.500e3 / 0.27e2 * t18489 * t18459 - 0.25e2 / 0.81e2 * t1902 * t14935 - 0.500e3 / 0.27e2 * t3994 * t18453 - 0.250e3 / 0.81e2 * t4020 * t18453 - 0.5000e4 / 0.729e3 * t4017 * t14939 * t709 * t18449;
18841   t18503 = my_piecewise3(t139, 0.3e1 * t1247 * t145 * t1887 + 0.3e1 * t1249 * t145 * t1887 + t145 * t3986 * t728 + t145 * t3991 * t728 + 0.3e1 * t145 * t447 * t5604 + t145 * t18428 + 0.3e1 * t448 * t5609, t18502);
18842   t18541 = t3927 * t128;
18843   t18547 = t3934 * t19 * t2335;
18844   t18560 = t126 * t1203;
18845   t18583 = t345 * t1217;
18846   t18587 = -t5528 * t36 * t1853 / 0.36e2 + 0.5e1 / 0.162e3 * t5556 * t18458 * t1852 + 0.5e1 / 0.162e3 * t3949 * t1847 * t5535 + t1859 * t68 * t18541 / 0.324e3 + 0.25e2 / 0.4374e4 * t14846 * t5614 * t18547 - 0.539e3 / 0.21870e5 * t57 * t17366 + t428 * t18403 * t425 / 0.180e3 + 0.125e3 / 0.1458e4 * t710 * t3950 * t14827 + t5550 * t5553 / 0.108e3 - 0.5e1 / 0.27e2 * t5542 * t18560 * t1852 + t1218 * t5527 * t1860 / 0.108e3 - t56 * t18403 * t425 / 0.180e3 + 0.5e1 / 0.54e2 * t5542 * t1852 * t1203 - t1851 * t1210 * t18541 / 0.108e3 + 0.5e1 / 0.54e2 * t1848 * t5535 - 0.5e1 / 0.27e2 * t1848 * t345 * t5544 - t5531 * t5539 / 0.36e2 - 0.125e3 / 0.2187e4 * t710 * t18583 * t18547;
18847   t18615 = -t138 * t18503 + 0.6e1 * t1030 * t1869 * t1226 + t330 * (-0.1540e4 / 0.6561e4 * t17485 - 0.209e3 / 0.243e3 * t40 * t14261 * t52 + 0.2809e4 / 0.480e3 * t346 * t41 * t3638 * t52 - 0.18837e5 / 0.12800e5 * t1715 * t3647 + 0.29403e5 / 0.256000e6 * t5178 * t3659 - 0.19683e5 / 0.1280000e7 * t14238 * t3652 / t3654 / t70 * t52 + 0.2e1 * t3954 * t716 + 0.6e1 * t1223 * t1863 + 0.6e1 * t432 * t5559 + 0.2e1 * t131 * t18587) * t150 + 0.6e1 * t1030 * t1031 * t1906 + 0.6e1 * t1030 * t5568 * t435 - 0.3e1 * t330 * t5562 * t456 - 0.24e2 * t14187 * t720 * t3620 - 0.3e1 * t330 * t1866 * t1270 + 0.6e1 * t1030 * t1871 * t1226 + 0.1174e1 * t18503 - 0.3e1 * t330 * t435 * t5639;
18848   t18622 = t310 * t5659 * t1011;
18849   t18624 = -0.90609313607680788975e2 * t1297 * t1273 * t1939 * t26 * t1301 + 0.30203104535893596326e2 * t17408 - 0.11410061713559803056e3 * t1297 * t1940 * t64 * t1301 - 0.24492105000000000000e4 * t1926 * t3565 * t14117 * t157 + 0.22265550000000000000e3 * t17418 - 0.62012907040371922630e0 * t17420 - 0.60406209071787192650e2 * t17422 + 0.48453229891695600000e3 * t13996 * t17424 * t13999 + 0.66796650000000000000e3 * t1926 * t13808 * t5098 - 0.18603872112111576789e1 * t1297 * t13813 * t5103 - 0.3e1 / 0.8e1 * t8 * t18 * (t17465 + t18615) * t167 - t18622 / 0.2e1;
18850   t18627 = t8 * t323 * t5643;
18851   t18629 = t3593 * t5136;
18852   t18631 = t14105 * t5142;
18853   t18635 = t14115 * t5096;
18854   t18652 = t14178 * t745;
18855   t18655 = t469 * t1017 * t737;
18856   t18656 = t18655 * t480;
18857   t18660 = -0.3e1 / 0.8e1 * t18627 + 0.29687400000000000000e2 * t18629 - 0.80541612095716256867e2 * t18631 + 0.17317650000000000000e2 * t5129 * t1293 + 0.89062200000000000000e3 * t1001 * t18635 * t166 * t157 * t316 + 0.92773125000000000000e0 * t14160 * t745 - 0.37109250000000000000e1 * t4052 * t1935 + 0.44531100000000000000e2 * t1001 * t1286 * t5134 * t1010 - 0.12081241814357438530e3 * t4059 * t5141 * t14111 - 0.61848750000000000000e0 * t18652 + 0.16493000000000000000e1 * t18656 + 0.86588250000000000000e1 * t1279 * t5149;
18858   t18661 = t5102 * t19;
18859   t18665 = t14122 * t1939;
18860   t18666 = t1299 * t166;
18861   t18671 = t17 * t5642;
18862   t18686 = t986 * t5659 * t988;
18863   t18694 = t1016 * t737;
18864   t18696 = t310 * t18694 * t317;
18865   t18699 = t469 * t3583 * t737;
18866   t18703 = t469 * t3591 * t737;
18867   t18704 = t18703 * t1004;
18868   t18708 = 0.12081241814357438530e3 * t4059 * t18661 * t4063 - 0.24805162816148769052e1 * t4059 * t18665 * t18666 * t316 - 0.3e1 / 0.2e1 * t310 * t18671 * t317 + 0.23090200000000000000e2 * t5666 * t4037 + 0.10390590000000000000e4 * t471 * t14051 * t3633 * t166 * sigma[0] * t156 - 0.98958000000000000000e1 * t5666 * t4122 - t18686 / 0.6e1 - 0.3e1 / 0.2e1 * t310 * t5689 * t1011 - t310 * t1696 * t4130 / 0.2e1 + t18696 / 0.3e1 - 0.32986000000000000000e1 * t18699 * t3588 - 0.65972000000000000001e1 * t18704 - 0.98958000000000000000e1 * t4117 * t5677;
18869   t18711 = t3593 * t5677;
18870   t18713 = t3593 * t5651;
18871   t18723 = t14045 * t1919;
18872   t18725 = t5086 * t5673;
18873   t18744 = -0.32985999999999999999e1 * t18711 + 0.12369750000000000000e1 * t18713 + 0.37109250000000000000e1 * t14085 * t1919 + 0.37109250000000000000e1 * t4117 * t5651 + 0.12369750000000000000e1 * t1001 * t475 * t743 * t13980 - 0.82465000000000000000e0 * t18723 + 0.12113307472923900000e3 * t18725 + 0.36339922418771700000e3 * t1926 * t459 * t2755 * t5672 - 0.12113307472923900000e3 * t1926 * t5669 * t4043 - 0.16493000000000000000e1 * t3585 * t475 * t1933 * t3586 + 0.12369750000000000000e1 * t14089 * t5681 - 0.49479000000000000000e1 * t1001 * t475 * t1933 * t4120;
18874   t18749 = t14040 * t5681;
18875   t18767 = t468 * t13965 * t1930;
18876   t18769 = t5086 * t5113;
18877   t18771 = t13966 * t1942;
18878   t18783 = t469 * t999 * t1909;
18879   t18786 = -0.27488333333333333333e0 * t14074 * t475 * t743 * t14075 + 0.41232500000000000000e0 * t18749 + 0.12369750000000000000e1 * t4278 * t5743 * t5744 * t14003 - 0.11874960000000000000e3 * t5666 * t4126 + 0.11545100000000000000e2 * t1001 * t475 * t5147 * t1002 + 0.24162483628714877061e3 * t1297 * t1909 * t742 * t1299 * t1301 - 0.74218500000000000000e1 * t18767 - 0.55663875000000000000e2 * t18769 + 0.20135403023929064216e2 * t18771 + 0.90609313607680788977e2 * t1297 * t5091 * t1299 * t1301 + 0.14469678309420115281e1 * t1297 * t3573 * t1939 * t64 * t166 - 0.19791600000000000000e2 * t18783 * t1004;
18880   t18788 = t14093 * t1919;
18881   t18792 = 0.5e1 / 0.36e2 * t8 * t4032 * t738;
18882   t18793 = t14174 * t745;
18883   t18795 = t5123 * t1293;
18884   t18803 = t742 * t77;
18885   t18809 = 0.34360416666666666667e0 * t14164 * t745;
18886   t18810 = t1025 * t5149;
18887   t18816 = t4072 * t1935;
18888   t18819 = t8 * t1017 * t1910;
18889   t18821 = 0.24739500000000000000e1 * t18788 - t18792 + 0.92773125000000000000e0 * t18793 + 0.57725500000000000000e1 * t18795 - 0.22265550000000000000e3 * t1001 * t1286 * t15099 * t316 - 0.89062200000000000000e2 * t5129 * t1288 + 0.24226614945847800000e3 * t471 * t18803 * t1284 * t13794 + t18809 + 0.28862750000000000000e1 * t18810 - 0.96209166666666666667e1 * t471 * t475 * t18803 * t166 - 0.24739500000000000000e1 * t18816 + t18819 / 0.4e1;
18890   t18829 = t469 * t323 * t1909;
18891   t18830 = t18829 * t480;
18892   t18847 = t5123 * t1288;
18893   t18852 = t322 * t1909;
18894   t18854 = t310 * t18852 * t317;
18895   t18858 = -t986 * t1696 * t3596 / 0.2e1 - 0.32302153261130400000e3 * t4040 * t1696 * t4043 - 0.49479000000000000000e1 * t18830 + 0.89062200000000000000e2 * t4117 * t5136 - 0.19241833333333333333e2 * t1915 * t3610 - 0.40270806047858128434e2 * t14100 * t5141 * t14101 + 0.14843700000000000000e2 * t3585 * t1286 * t5134 * t987 + 0.20781180000000000000e3 * t1915 * t3605 - 0.24162483628714877060e3 * t14108 * t5142 - 0.29687400000000000000e2 * t18847 - t986 * t5689 * t988 / 0.2e1 - t18854 + t4147 * t1696 * t4149 / 0.9e1;
18896   t18866 = t5648 / 0.4e1;
18897   t18878 = 0.18554625000000000000e1 * t5145 + t10 * (t17402 + t18624 + t18660 + t18708 + t18744 + t18786 + t18821 + t18858) + 0.86588250000000000000e1 * t5150 - 0.3e1 / 0.4e1 * t5153 - 0.9e1 / 0.8e1 * t5645 + t18866 + 0.37109250000000000000e1 * t5652 + 0.74218500000000000000e1 * t5654 - t5657 / 0.2e1 - t5661 + 0.17317650000000000000e2 * t5663 - 0.19791600000000000000e2 * t5667 + 0.36339922418771700000e3 * t5674 - 0.98958000000000000000e1 * t5678 + 0.12369750000000000000e1 * t5682 + 0.24739500000000000000e1 * t5684 - 0.3e1 / 0.2e1 * t5687 - 0.3e1 * t5691;
18898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18899     v4rho3sigma[0] = t17355 + t18878;
18900 
18901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18902     v4rho3sigma[1] = 0.0e0;
18903 
18904   t18881 = t5709 / 0.4e1;
18905   t18885 = 0.61848750000000000000e0 * t5721;
18906   t18890 = t1308 * t5701 * t1310;
18907   t18895 = t1016 * t832;
18908   t18897 = t484 * t18895 * t487;
18909   t18900 = t484 * t5701 * t1319;
18910   t18907 = 0.5e1 / 0.36e2 * t8 * t4140 * t833;
18911   t18912 = t15187 * t5712;
18912   t18918 = t15285 * t1955;
18913   t18920 = t4254 * t5718;
18914   t18927 = 0.34360416666666666667e0 * t15322 * t840;
18915   t18928 = t4090 * t1947 * t4092 / 0.9e1 - t18890 / 0.6e1 - t1308 * t1947 * t4047 / 0.2e1 + t18897 / 0.3e1 - t18900 / 0.2e1 - t484 * t1947 * t4112 / 0.2e1 - t18907 - 0.27488333333333333333e0 * t15179 * t644 * t838 * t15180 + 0.41232500000000000000e0 * t18912 + 0.12369750000000000000e1 * t4357 * t5803 * t5804 * t15201 - 0.82465000000000000000e0 * t18918 + 0.12369750000000000000e1 * t18920 + 0.12369750000000000000e1 * t1376 * t644 * t838 * t15161 + t18927;
18916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18917     v4rho3sigma[2] = -t5699 / 0.2e1 - t5703 - 0.3e1 / 0.2e1 * t5706 + t18881 + 0.12369750000000000000e1 * t5713 + 0.24739500000000000000e1 * t5715 + 0.37109250000000000000e1 * t5719 - t18885 + t10 * t18928;
18918 
18919   t18933 = t5080 + t5085 + 0.14843700000000000000e2 * t5087 - 0.40270806047858128433e2 * t5089 - t5095 + t5101 - t5106 + t5110 - t5115 - t5117 - t17347 - 0.16493000000000000000e1 * t5120;
18920   t18936 = t5726 / 0.3e1;
18921   t18939 = t310 * t18852 * t499 / 0.3e1;
18922   t18941 = t310 * t18694 * t499;
18923   t18955 = t310 * t4203 * t737 * t1347;
18924   t18974 = 0.98958000000000000000e1 * t3593 * t5755;
18925   t18976 = 0.26847204031905418956e2 * t14105 * t5762;
18926   t18979 = -t18939 + t18941 / 0.9e1 - t310 * t1345 * t1909 * t1347 + 0.54976666666666666666e0 * t17357 + 0.26847204031905418956e2 * t17386 + 0.74218500000000000000e1 * t17392 + 0.10067701511964532109e2 * t17408 + 0.74218500000000000000e2 * t17418 - 0.20670969013457307543e0 * t17420 - 0.20135403023929064216e2 * t17422 + 0.7e1 / 0.6e1 * t18955 + 0.12369750000000000000e1 * t4238 * t745 - 0.80541612095716256868e2 * t15316 * t5141 * t15317 + 0.29687400000000000000e2 * t4238 * t1286 * t5134 * t9 - 0.74218500000000000000e2 * t1001 * t1286 * t15099 * t498 + 0.10738881612762167582e3 * t17359 * t4229 - t18622 / 0.6e1 + t18974 - t18976 + 0.29687400000000000000e2 * t4117 * t5755;
18927   t18993 = 0.82465000000000000000e0 * t14093 * t1966;
18928   t19013 = t15195 * t5746;
18929   t19015 = 0.2e1 / 0.9e1 * t18696 - 0.21990666666666666666e1 * t18704 - 0.10995333333333333333e1 * t18711 + 0.41232500000000000000e0 * t18713 + 0.24739500000000000000e1 * t15304 * t5766 - 0.54976666666666666666e0 * t18723 + 0.40377691576412999998e2 * t18725 + 0.13744166666666666667e0 * t18749 + 0.82465000000000000000e0 * t15080 * t5746 - 0.27488333333333333333e0 * t15067 * t5743 * t5744 * t15068 + 0.27488333333333333334e0 * t19013;
18930   t19040 = t469 * t4188 * t737;
18931   t19047 = t18703 * t1341;
18932   t19055 = -0.10995333333333333333e1 * t4278 * t5743 * t4282 + 0.82465000000000000000e0 * t15085 * t5743 * t5744 * t15086 + 0.41232500000000000000e0 * t4278 * t5743 * t5744 * t15061 - 0.49479000000000000000e1 * t18767 - 0.18554625000000000000e2 * t18769 + 0.13423602015952709478e2 * t18771 + 0.16151076630565200000e3 * t13996 * t17424 * t15249 + 0.82465000000000000000e0 * t18788 - t310 * t18671 * t499 / 0.2e1 - 0.65972000000000000000e1 * t19040 * t4241 - 0.65972000000000000000e1 * t18783 * t1341 - 0.39583200000000000000e2 * t5666 * t4296 - 0.21990666666666666666e1 * t19047 - t18792 + 0.30924375000000000000e0 * t18793 + 0.19241833333333333333e1 * t18795 + t18809 + 0.96209166666666666667e0 * t18810 - 0.82465000000000000000e0 * t18816 + 0.76967333333333333333e1 * t5666 * t4234;
18933   t19070 = t986 * t5659 * t1329 / 0.9e1;
18934   t19082 = t14045 * t1966;
18935   t19086 = 0.10995333333333333333e1 * t3593 * t5759;
18936   t19087 = t15296 * t5766;
18937   t19106 = t469 * t3583 * t737 * t473;
18938   t19113 = -t19086 - 0.28862750000000000000e1 * t19087 + 0.40270806047858128434e2 * t4059 * t18661 * t4228 - 0.82683876053829230173e0 * t4059 * t18665 * t18666 * t498 + 0.29687400000000000000e3 * t1001 * t18635 * t1339 * t157 - 0.80541612095716256868e2 * t14108 * t5762 - 0.16493000000000000000e1 * t18830 - 0.98958000000000000000e1 * t18847 - 0.21990666666666666666e1 * t19106 * t4283 - t8 * t4188 * t738 / 0.2e1 - t18854 / 0.3e1;
18939   t19118 = -0.32986000000000000000e1 * t5124 + t5127 - t5131 - t5133 + t5138 - t5144 + 0.12369750000000000000e1 * t5145 - t18936 + t10 * (t18979 - t18627 / 0.8e1 + 0.98958000000000000000e1 * t18629 - 0.26847204031905418955e2 * t18631 - 0.41232500000000000000e0 * t18652 + 0.10995333333333333333e1 * t18656 + 0.98958000000000000000e1 * t3585 * t1286 * t5134 * t4281 - 0.26847204031905418956e2 * t14100 * t5141 * t15206 + t18993 + 0.12369750000000000000e1 * t14085 * t1966 - t18686 / 0.18e2 + t19015 + t19055 - t986 * t1696 * t4257 / 0.6e1 - t986 * t5736 * t4324 / 0.3e1 - t986 * t5689 * t1329 / 0.3e1 + t4147 * t1696 * t4317 / 0.9e1 - t19070 + 0.38483666666666666667e1 * t1001 * t475 * t5147 * t1339 - 0.32986000000000000000e1 * t4238 * t475 * t1933 * t4239 - 0.32986000000000000000e1 * t4117 * t5759 + t18819 / 0.6e1 - 0.27488333333333333333e0 * t19082 + t19113) - t5849 - t5732 - t5738;
18940   t19120 = 0.65972000000000000000e1 * t5734;
18941   t19123 = 0.29687400000000000000e2 * t5756;
18942   t19124 = 0.80541612095716256868e2 * t5763;
18943   t19125 = -t19120 + t5151 - t5153 / 0.2e1 - t5646 + t18866 + t5653 + t5655 - t5658 - 0.2e1 / 0.3e1 * t5661 + t5664 + t19123 - t19124;
18944   t19126 = 0.24739500000000000000e1 * t5752;
18945   t19127 = 0.32986000000000000000e1 * t5760;
18946   t19128 = 0.24739500000000000000e1 * t5767;
18947   t19130 = 0.82465000000000000000e0 * t5747;
18948   t19131 = t5857 + t19126 - t19127 + t19128 - t5668 + t5675 - t5679 + t5683 + 0.16493000000000000000e1 * t5684 - t5688 - t5691 + t19130;
18949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18950     v4rho3sigma[3] = t18933 + t19118 + t19125 + t19131;
18951 
18952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18953     v4rho3sigma[4] = 0.0e0;
18954 
18955   t19133 = 0.29687400000000000000e2 * t5824;
18956   t19135 = 0.24739500000000000000e1 * t5817;
18957   t19136 = 0.32986000000000000000e1 * t5831;
18958   t19137 = t5871 - t5872 - t5873 + t5874 + t19133 - t5875 - t5700 - 0.2e1 / 0.3e1 * t5703 - t5707 + t19135 - t19136 - t5790 + t18881;
18959   t19141 = t322 * t2180;
18960   t19144 = t484 * t19141 * t487 / 0.3e1;
18961   t19146 = t484 * t18895 * t504;
18962   t19150 = t484 * t4203 * t832 * t1362;
18963   t19166 = t1308 * t5701 * t1354 / 0.9e1;
18964   t19171 = t15814 * t5806;
18965   t19173 = -t1308 * t5788 * t1310 / 0.6e1 - t19144 + t19146 / 0.9e1 - 0.7e1 / 0.6e1 * t19150 - t484 * t5788 * t1319 / 0.2e1 - t1308 * t1947 * t4214 / 0.6e1 + t1308 * t5783 * t4218 / 0.3e1 + t4090 * t1947 * t4310 / 0.9e1 - t19166 - 0.27488333333333333333e0 * t15631 * t5803 * t5804 * t15632 + 0.27488333333333333334e0 * t19171;
18966   t19183 = t15559 * t2211;
18967   t19186 = t468 * t15558 * t2199;
18968   t19188 = t15285 * t2190;
18969   t19191 = t469 * t4244 * t832;
18970   t19195 = t469 * t4252 * t832;
18971   t19196 = t19195 * t1379;
18972   t19201 = 0.41232500000000000000e0 * t4357 * t5803 * t5804 * t15244 - t18890 / 0.18e2 + 0.2e1 / 0.9e1 * t18897 - t18900 / 0.6e1 + 0.13744166666666666667e0 * t18912 - 0.54976666666666666666e0 * t18918 + 0.67118010079763547387e1 * t19183 - 0.24739500000000000000e1 * t19186 - 0.27488333333333333333e0 * t19188 - 0.10995333333333333333e1 * t19191 * t4249 - 0.21990666666666666666e1 * t19196 + t8 * t4195 * t833 / 0.2e1;
18973   t19204 = t8 * t1323 * t2181;
18974   t19207 = t15696 * t5813;
18975   t19214 = 0.10995333333333333333e1 * t4254 * t5830;
18976   t19225 = t19204 / 0.12e2 + t18927 - t18907 + 0.41232500000000000000e0 * t18920 + 0.28862750000000000000e1 * t19207 - 0.54976666666666666667e0 * t4246 * t644 * t2202 * t4247 - t19214 + 0.12369750000000000000e1 * t4476 * t5718 - 0.16493000000000000000e1 * t1376 * t644 * t2202 * t4286 - 0.32986000000000000000e1 * t5796 * t4288 + 0.41232500000000000000e0 * t15582 * t5712;
18977   t19227 = 0.82465000000000000000e0 * t15586 * t1955;
18978   t19236 = t469 * t1323 * t832;
18979   t19237 = t19236 * t649;
18980   t19239 = t4225 * t2204;
18981   t19245 = 0.26847204031905418955e2 * t15658 * t5837;
18982   t19246 = t15664 * t840;
18983   t19253 = 0.98958000000000000000e1 * t4254 * t5823;
18984   t19260 = t19227 + 0.14843700000000000000e2 * t1376 * t1675 * t5821 * t1318 - 0.40270806047858128433e2 * t4414 * t5836 * t15671 + 0.54976666666666666667e0 * t19237 + 0.27488333333333333333e0 * t19239 - 0.13423602015952709478e2 * t15653 * t5836 * t15654 - t19245 - 0.20616250000000000000e0 * t19246 + 0.49479000000000000000e1 * t4246 * t1675 * t5821 * t1309 + t19253 - 0.12369750000000000000e1 * t4469 * t840 - 0.82465000000000000000e0 * t15803 * t5803 * t5804 * t15804;
18985   t19264 = 0.82465000000000000000e0 * t5807;
18986   t19266 = t5778 / 0.3e1;
18987   t19267 = 0.65972000000000000000e1 * t5797;
18988   t19268 = 0.24739500000000000000e1 * t5814;
18989   t19269 = 0.80541612095716256866e2 * t5838;
18990   t19270 = -t6421 + t5785 + t10 * (t19173 + t19201 + t19225 + t19260) + t19264 - t18885 + t5714 + 0.16493000000000000000e1 * t5715 + t5720 - t19266 - t19267 + t6446 - t19268 - t19269 - t6461;
18991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18992     v4rho3sigma[5] = t19137 + t19270;
18993 
18994   t19273 = t5088 - 0.20135403023929064217e2 * t5089 - t17347 - t5121 - t5125 + t5146 - t18936 - 0.2e1 / 0.3e1 * t5729 - t5732 - t5738 + t5856 - t5848 - t5852;
18995   t19275 = t310 * t5659 * t1397;
18996   t19290 = t986 * t5659 * t1391;
18997   t19292 = -t19275 / 0.6e1 - t986 * t5689 * t1391 / 0.6e1 - t18939 + 0.2e1 / 0.9e1 * t18941 + 0.27488333333333333333e0 * t17357 - t18955 / 0.3e1 - t986 * t5736 * t4375 / 0.3e1 - t986 * t1696 * t4429 / 0.6e1 + t18974 - t18976 - t19290 / 0.18e2;
18998   t19320 = -t310 * t1696 * t4447 / 0.2e1 - t310 * t5689 * t1397 / 0.2e1 - 0.20616250000000000000e0 * t18652 + 0.54976666666666666667e0 * t18656 + t4147 * t1696 * t4371 / 0.9e1 + t18993 - 0.32986000000000000000e1 * t5666 * t4486 + t18696 / 0.9e1 - 0.10995333333333333333e1 * t18699 * t4481 - 0.16493000000000000000e1 * t1001 * t475 * t1933 * t4484 + 0.14843700000000000000e2 * t1001 * t1286 * t5134 * t1396 - 0.40270806047858128434e2 * t4059 * t5141 * t15649;
18999   t19326 = t14040 * t5854;
19000   t19333 = t3593 * t5859;
19001   t19348 = 0.49479000000000000000e1 * t3585 * t1286 * t5134 * t1390 + 0.13744166666666666667e0 * t19326 - 0.54976666666666666667e0 * t3585 * t475 * t1933 * t4479 - 0.27488333333333333333e0 * t18723 + 0.41232500000000000000e0 * t19333 + 0.12369750000000000000e1 * t4117 * t5859 + 0.12369750000000000000e1 * t1001 * t475 * t743 * t15677 + 0.82465000000000000000e0 * t15085 * t5743 * t5744 * t15640 + 0.27488333333333333333e0 * t19013 - 0.24739500000000000000e1 * t18767 + 0.67118010079763547390e1 * t18771;
19002   t19366 = -0.27488333333333333333e0 * t15067 * t5743 * t5744 * t15817 + 0.41232500000000000000e0 * t14089 * t5854 - 0.21990666666666666667e1 * t19047 - 0.13423602015952709478e2 * t14100 * t5141 * t15645 - t18792 + t18809 - t19070 + t18819 / 0.12e2 - 0.54976666666666666667e0 * t19082 - t19086 + 0.82465000000000000000e0 * t19087 + 0.41232500000000000000e0 * t4278 * t5743 * t5744 * t15822;
19003   t19371 = -t19120 - t5154 + t10 * (t19292 + t19320 + t19348 + t19366) + t18866 - t5662 + t19123 - t19124 + 0.16493000000000000000e1 * t5749 + t19126 - t19127 + t19128 + t5861 + t5685 + t19130;
19004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19005     v4rho3sigma[6] = t19273 + t19371;
19006 
19007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19008     v4rho3sigma[7] = 0.0e0;
19009 
19010   t19377 = 0.14843700000000000000e2 * t5827 - 0.40270806047858128433e2 * t5840 - 0.32986000000000000000e1 * t5801 + 0.12369750000000000000e1 * t5819 + t19133 - 0.16493000000000000000e1 * t5833 - t5880 + t5885 - t5890 + t5896 - t5901 + t5905;
19011   t19378 = t5910 - t5913 - t5915 + t5917 - t5921 - t5923 + t5928 - t5704 + t19135 - t19136 - t5790 - t6420;
19012   t19381 = t18881 - 0.2e1 / 0.3e1 * t5781 + t5785 - t6424 + t19264 - t6427 - t6429 - t6433 + t6437 - t18885 + t6439 + t6443;
19013   t19404 = t469 * t4244 * t832 * t642;
19014   t19407 = t4352 * t5908;
19015   t19409 = t5826 * t5894;
19016   t19411 = t4352 * t5899;
19017   t19413 = t5826 * t5883;
19018   t19415 = t4352 * t5888;
19019   t19418 = t484 * t19141 * t504;
19020   t19421 = t1308 * t5701 * t1402;
19021   t19424 = t484 * t5701 * t1415;
19022   t19430 = -t19144 + 0.2e1 / 0.9e1 * t19146 + t19150 / 0.3e1 + 0.41232500000000000000e0 * t4357 * t5803 * t5804 * t16183 - 0.82465000000000000000e0 * t15803 * t5803 * t5804 * t16060 + 0.82465000000000000000e0 * t16067 * t5806 - t19166 - 0.10995333333333333333e1 * t4357 * t5803 * t4361 - 0.27488333333333333333e0 * t15631 * t5803 * t5804 * t16070 - 0.21990666666666666667e1 * t19404 * t4362 + 0.26847204031905418956e2 * t19407 + 0.74218500000000000000e2 * t19409 - 0.20670969013457307543e0 * t19411 + 0.74218500000000000000e1 * t19413 - 0.20135403023929064217e2 * t19415 - t19418 / 0.3e1 - t19421 / 0.18e2 - t19424 / 0.6e1 + 0.27488333333333333333e0 * t19171 - t1308 * t5788 * t1354 / 0.3e1;
19023   t19444 = t4254 * t6431;
19024   t19446 = t15187 * t6435;
19025   t19449 = t15586 * t2190;
19026   t19454 = t4352 * t5903;
19027   t19456 = t5826 * t5878;
19028   t19458 = t6454 * t6455;
19029   t19469 = t4411 * t2204;
19030   t19471 = t1383 * t6451;
19031   t19474 = t469 * t491 * t2180;
19032   t19475 = t19474 * t649;
19033   t19477 = t5800 * t1677;
19034   t19479 = t16011 * t5891;
19035   t19485 = -0.49479000000000000000e1 * t19186 + 0.10067701511964532109e2 * t19454 - 0.18554625000000000000e2 * t19456 + 0.16151076630565200000e3 * t16083 * t19458 * t16086 + 0.80541612095716256867e2 * t16018 * t5836 * t16019 - 0.29687400000000000000e2 * t4469 * t1675 * t5821 * t9 - 0.82465000000000000000e0 * t19469 + 0.96209166666666666667e0 * t19471 - 0.16493000000000000000e1 * t19475 - 0.98958000000000000000e1 * t19477 + 0.29687400000000000000e3 * t1376 * t19479 * t301 * t292 * t486;
19036   t19488 = t14122 * t2208;
19037   t19489 = t1688 * t301;
19038   t19499 = t15985 * t840;
19039   t19514 = t469 * t1374 * t2180;
19040   t19520 = t469 * t4195 * t832;
19041   t19531 = t19195 * t1411;
19042   t19533 = t4254 * t6441;
19043   t19537 = -0.82683876053829230173e0 * t4414 * t19488 * t19489 * t486 - 0.54976666666666666667e0 * t19188 - 0.21990666666666666667e1 * t19196 - t484 * t1947 * t4464 / 0.2e1 + 0.30924375000000000000e0 * t19499 + 0.98958000000000000000e1 * t4246 * t1675 * t5821 * t4360 - 0.26847204031905418956e2 * t15653 * t5836 * t15977 + t19204 / 0.6e1 + t18927 + 0.38483666666666666667e1 * t1376 * t644 * t6449 * t1377 - 0.65972000000000000000e1 * t19514 * t1379 - 0.39583200000000000000e2 * t5796 * t4381 - t18907 + 0.65972000000000000000e1 * t19520 * t4472 - 0.24739500000000000000e1 * t15999 * t5813 + 0.12369750000000000000e1 * t1376 * t644 * t838 * t16002 + 0.76967333333333333333e1 * t5796 * t4386 - 0.21990666666666666667e1 * t19531 + 0.41232500000000000000e0 * t19533 - 0.32986000000000000000e1 * t4476 * t5830;
19044   t19539 = t5826 * t6458;
19045   t19553 = t4254 * t5926;
19046   t19555 = t15658 * t5911;
19047   t19557 = t5897 * t19;
19048   t19561 = t8 * t5795;
19049   t19570 = t17 * t6416;
19050   t19575 = t8 * t491 * t6417;
19051   t19577 = t5800 * t1682;
19052   t19579 = -0.41232500000000000000e0 * t19246 + t19253 + 0.98958000000000000000e1 * t19553 - 0.26847204031905418956e2 * t19555 + 0.40270806047858128435e2 * t4414 * t19557 * t4418 + 0.10738881612762167582e3 * t19561 * t4419 - 0.74218500000000000000e2 * t1376 * t1675 * t16055 * t486 + 0.12369750000000000000e1 * t16103 * t1955 - t484 * t19570 * t487 / 0.2e1 - t19575 / 0.8e1 + 0.19241833333333333333e1 * t19577;
19053   t19585 = -t6445 + t5716 - t19266 - t19267 + 0.16493000000000000000e1 * t5809 - t19268 + t10 * (t19430 + t484 * t1345 * t2180 * t1362 + t18897 / 0.9e1 + t4090 * t1947 * t4433 / 0.9e1 + t1308 * t5783 * t4437 / 0.3e1 - t1308 * t1947 * t4425 / 0.6e1 - 0.10995333333333333333e1 * t19444 + 0.13744166666666666667e0 * t19446 - 0.27488333333333333333e0 * t18918 + 0.82465000000000000000e0 * t19449 + 0.13423602015952709477e2 * t19183 + t19485 + t19537 - 0.82465000000000000000e0 * t19207 - t19214 + 0.40377691576413000000e2 * t19539 + 0.32986000000000000000e1 * t4469 * t644 * t2202 * t4470 + 0.29687400000000000000e2 * t4476 * t5823 - 0.80541612095716256866e2 * t16036 * t5837 + t19227 + 0.10995333333333333333e1 * t19237 + 0.54976666666666666667e0 * t19239 - t19245 + t19579) - t19269 + t6448 + t6453 + t6460 - t5793 / 0.2e1;
19054   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19055     v4rho3sigma[8] = t19377 + t19378 + t19381 + t19585;
19056 
19057   t19619 = t4147 * t1696 * t5001 / 0.9e1 - t19290 / 0.6e1 - t986 * t1696 * t5037 / 0.2e1 + t18941 / 0.3e1 - t19275 / 0.2e1 - t310 * t1696 * t4990 / 0.2e1 - t18792 - 0.27488333333333333333e0 * t14074 * t475 * t743 * t15960 + 0.41232500000000000000e0 * t19326 + 0.12369750000000000000e1 * t4278 * t5743 * t5744 * t16095 - 0.82465000000000000000e0 * t19082 + 0.12369750000000000000e1 * t19333 + 0.12369750000000000000e1 * t1001 * t475 * t743 * t15955 + t18809;
19058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19059     v4rho3sigma[9] = -t5847 / 0.2e1 - t5729 - 0.3e1 / 0.2e1 * t5851 + t18866 + 0.12369750000000000000e1 * t5855 + 0.24739500000000000000e1 * t5749 + 0.37109250000000000000e1 * t5860 - t17347 + t10 * t19619;
19060 
19061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19062     v4rho3sigma[10] = 0.0e0;
19063 
19064   t19639 = 0.22265550000000000000e2 * t5827 - 0.60406209071787192650e2 * t5840 - 0.49479000000000000000e1 * t5801 + 0.18554625000000000000e1 * t5819 - 0.24739500000000000000e1 * t5833 - 0.16699162500000000000e3 * t5879 + 0.66796650000000000000e2 * t5884 - 0.18121862721536157795e3 * t5889 + 0.66796650000000000000e3 * t5895 - 0.18603872112111576789e1 * t5900 + 0.90609313607680788977e2 * t5904 + 0.24162483628714877061e3 * t5909 - 0.24162483628714877060e3 * t5912 - 0.74218500000000000000e1 * t5914 + 0.27831937500000000000e1 * t5916 - 0.14843700000000000000e2 * t5920 - 0.89062200000000000000e2 * t5922 + 0.89062200000000000000e2 * t5927;
19065   t19672 = t19146 / 0.3e1 - 0.3e1 / 0.2e1 * t484 * t5788 * t1415 - t484 * t1947 * t4982 / 0.2e1 - 0.3e1 / 0.2e1 * t484 * t19570 * t504 - t1308 * t5788 * t1402 / 0.2e1 - t1308 * t1947 * t5033 / 0.2e1 + 0.80541612095716256868e2 * t19407 + 0.22265550000000000000e3 * t19409 - 0.62012907040371922630e0 * t19411 + 0.22265550000000000000e2 * t19413 - 0.60406209071787192650e2 * t19415 + 0.24162483628714877061e3 * t1686 * t2180 * t837 * t1688 * t1690;
19066   t19674 = t832 * t4519 * t3557;
19067   t19679 = t832 * t19 * t38;
19068   t19713 = -0.59374800000000000000e3 * t2195 * t19674 * t4524 + 0.16536775210765846035e1 * t1686 * t19679 * t4531 + 0.33398325000000000000e2 * t2195 * t1662 * t1673 * t19 * t2198 - t19418 - t19421 / 0.6e1 - t19424 / 0.2e1 - 0.32302153261130400000e3 * t5041 * t1947 * t5044 - 0.24492105000000000000e4 * t2195 * t4521 * t16013 * t292 + 0.14469678309420115281e1 * t1686 * t4529 * t2208 * t203 * t301 + 0.48453229891695600000e3 * t16083 * t19458 * t17309 - 0.65726558181610899501e3 * t1686 * t8158 / t177 * t16289 - 0.12113307472923900000e3 * t2195 * t6454 * t5044;
19069   t19715 = t837 * t215;
19070   t19747 = -0.96209166666666666667e1 * t640 * t644 * t19715 * t301 + 0.92773125000000000000e0 * t17201 * t840 - 0.22265550000000000000e3 * t1376 * t1675 * t16055 * t503 - 0.32985999999999999999e1 * t19444 + 0.41232500000000000000e0 * t19446 - 0.49479000000000000000e1 * t1376 * t644 * t2202 * t4546 + 0.12369750000000000000e1 * t15582 * t6435 - 0.98958000000000000000e1 * t4476 * t6431 + t4090 * t1947 * t5006 / 0.9e1 + 0.24226614945847800000e3 * t640 * t19715 * t1673 * t16289 + 0.24739500000000000000e1 * t19449 - 0.40270806047858128434e2 * t15653 * t5836 * t17128;
19071   t19766 = t23 * t4578;
19072   t19790 = 0.12081241814357438530e3 * t4414 * t19557 * t5028 + 0.14843700000000000000e2 * t4246 * t1675 * t5821 * t1401 - 0.37109250000000000000e1 * t5022 * t2204 - 0.90609313607680788975e2 * t1686 * t1662 * t2208 * t177 * t1690 - 0.24162483628714877060e3 * t1686 * t5906 * t203 * t1690 + 0.29440005000000000000e3 * t2195 * t2197 * t19766 * t301 - 0.11410061713559803056e3 * t1686 * t2209 * t203 * t1690 + 0.66796650000000000000e3 * t2195 * t16294 * t5893 - 0.18603872112111576789e1 * t1686 * t17159 * t5898 + 0.90609313607680788977e2 * t1686 * t5886 * t1688 * t1690 - 0.16699162500000000000e3 * t2195 * t5882 * t5877 + 0.20135403023929064216e2 * t19183 - 0.74218500000000000000e1 * t19186;
19073   t19815 = 0.30203104535893596326e2 * t19454 - 0.55663875000000000000e2 * t19456 + 0.10390590000000000000e4 * t640 * t17216 * t4583 * t301 * sigma[2] * t156 - 0.24739500000000000000e1 * t19469 + 0.28862750000000000000e1 * t19471 - 0.49479000000000000000e1 * t19475 - 0.29687400000000000000e2 * t19477 - 0.11874960000000000000e3 * t5796 * t4552 - 0.82465000000000000000e0 * t19188 - 0.98958000000000000000e1 * t5796 * t4548 + 0.92773125000000000000e0 * t19499 - 0.27488333333333333333e0 * t15179 * t644 * t838 * t17232;
19074   t19843 = t4566 * t814;
19075   t19849 = t817 * t345;
19076   t19856 = t24 * t4578;
19077   t19857 = 0.770e3 / 0.243e3 * t19856;
19078   t19858 = t2006 * t1481;
19079   t19861 = t769 * t4641;
19080   t19873 = t16466 * t771;
19081   t19881 = t16466 * t345;
19082   t19900 = t1493 * t558;
19083   t19901 = t19900 * t771;
19084   t19904 = t5999 * t2022;
19085   t19907 = t554 * t1497;
19086   t19908 = t19907 * t771;
19087   t19911 = -0.8525e4 / 0.1458e4 * t1499 * t39 * t4583 * sigma[2] + 0.4000e4 / 0.2187e4 * t19873 * t4671 - 0.5e1 / 0.6e1 * t5999 * t19 * t6026 - 0.25e2 / 0.54e2 * t16463 * t2030 - 0.500e3 / 0.243e3 * t19881 * t1441 * t554 * t184 + 0.20e2 / 0.9e1 * t2025 * t1996 * t1493 - 0.5e1 / 0.18e2 * t2025 * t759 * t4664 + 0.4750e4 / 0.729e3 * t4669 * t345 * t4588 * t184 + 0.1540e4 / 0.243e3 * t559 * t19856 + 0.20e2 / 0.9e1 * t4651 * t1977 + 0.20e2 / 0.9e1 * t19901 * t514 + 0.40e2 / 0.9e1 * t19904 * t514 + 0.100e3 / 0.81e2 * t19908 * t1473;
19088   t19912 = t4655 * t2022;
19089   t19915 = t1489 * t6013;
19090   t19940 = t4664 * t227;
19091   t19949 = 0.247e3 / 0.8748e4 * t68 * t1435 * lapl[1];
19092   t19951 = 0.1672e4 / 0.59049e5 * t68 * t16398;
19093   t19955 = 0.100e3 / 0.81e2 * t19912 * t1473 + 0.20e2 / 0.9e1 * t19915 * t514 - 0.25e2 / 0.54e2 * t6018 * t2029 * t1493 * sigma[2] - 0.6250e4 / 0.19683e5 * t16452 * t4595 * t523 * t24 - 0.220e3 / 0.27e2 * t6000 * t1431 - 0.1100e4 / 0.243e3 * t6005 * t4627 - 0.220e3 / 0.27e2 * t6008 * t1431 + 0.3080e4 / 0.243e3 * t2019 * t4580 + 0.25e2 / 0.6e1 * t6018 * t6033 * t6019 - 0.220e3 / 0.27e2 * t2025 * t5876 * t554 + 0.2e1 * t19940 * t771 + 0.6e1 * t5996 * t2022 + 0.6e1 * t2016 * t6013 + 0.2e1 * t553 * (t19949 - t19951);
19094   t19966 = t5973 * t551;
19095   t19971 = 0.9e1 / 0.4e1 * t19858 * t1483 - 0.15e2 / 0.8e1 * t19861 * t4643 + 0.9e1 / 0.4e1 * t5977 * t4646 - 0.45e2 / 0.8e1 * t4642 * t2035 * t1483 - t552 * (t19911 + t19955) / 0.2e1 - 0.3e1 / 0.2e1 * t4631 * t2035 - 0.3e1 / 0.2e1 * t1477 * t6039 + 0.3e1 / 0.4e1 * t1482 * t776 * t4679 + t19857 - 0.3e1 / 0.2e1 * t19966 * t563 - 0.3e1 / 0.2e1 * t5975 * t1506;
19096   t19999 = -t2008 * t4679 / 0.2e1 - t16406 * t776 / 0.2e1 - 0.45e2 / 0.8e1 * t16414 * t5987 + 0.105e3 / 0.16e2 * t16424 * t776 * t4643 - 0.45e2 / 0.8e1 * t4642 * t2013 * t1506 + 0.9e1 / 0.4e1 * t16409 * t2013 + 0.9e1 / 0.2e1 * t4634 * t5990 + 0.9e1 / 0.4e1 * t4634 * t5993 + 0.9e1 / 0.4e1 * t1482 * t6039 * t563 + 0.9e1 / 0.4e1 * t1482 * t2035 * t1506 + (-0.770e3 / 0.2187e4 * t19856 + t19949 - t19951) * t231;
19097   t20000 = t19971 + t19999;
19098   t20018 = t2107 * t580;
19099   t20022 = t8510 * t2061 * t1569;
19100   t20025 = t2061 * t1543;
19101   t20026 = t4785 * t20025;
19102   t20041 = t2051 * t574;
19103   t20043 = t249 * t1515 * t580;
19104   t20046 = -0.16468529812403272839e0 * t2055 * t16524 - 0.75919974291285761083e-1 * t4777 * t6095 - 0.16468529812403272839e0 * t4774 * t6095 - 0.32937059624806545678e0 * t1527 * t20018 + 0.20722416937066287826e0 * t1527 * t20022 + 0.38253832257502646895e1 * t1527 * t20026 + 0.20722416937066287826e0 * t2055 * t16515 + 0.32937059624806545678e0 * t2055 * t16518 + 0.32937059624806545678e0 * t4752 * t6095 + 0.11378729917768353994e1 * t2055 * t16539 + 0.29391714526792369101e0 * t16495 * t8315 - 0.84395584650891170841e0 * t6225 * t16544 + 0.38253832257502646895e1 * t20041 * t20043;
19105   t20047 = t6160 * t242;
19106   t20048 = t1528 * t20047;
19107   t20054 = t6141 * t238;
19108   t20064 = t792 * t1582;
19109   t20069 = t2044 * t4736;
19110   t20072 = t2042 * t1539;
19111   t20073 = t6117 * t1546;
19112   t20076 = t6117 * t1565;
19113   t20079 = t6075 * t6089;
19114   t20082 = t1509 * t238;
19115   t20083 = t2051 * t20082;
19116   t20086 = t6091 * t1562;
19117   t20089 = t1538 * t249;
19118   t20090 = t20089 * t1546;
19119   t20093 = t6091 * t1565;
19120   t20096 = 0.63756387095837744823e0 * t1527 * t20048 + 0.325024956416e0 * t245 * t2092 * t4816 - 0.357234676004290560e0 * t20054 * t1535 + 0.21252129031945914941e0 * t2051 * t4682 * t250 - 0.2202015477522235392e1 * t245 * t4688 * t2106 * t1569 - 0.2202015477522235392e1 * t9700 * t20064 * t587 - 0.11064007557120e2 * t6136 * t238 * t20069 + 0.16879116930178234168e1 * t20072 * t20073 - 0.22757459835536707989e1 * t6116 * t20076 + 0.58783429053584738202e0 * t20079 * t6092 + 0.29391714526792369101e0 * t20083 * t6092 + 0.29391714526792369101e0 * t6090 * t20086 - 0.38906391098542524630e0 * t6090 * t20090 + 0.52455980750256876982e0 * t6090 * t20093;
19121   t20098 = t793 * t1557;
19122   t20101 = t793 * t1562;
19123   t20104 = t793 * t1546;
19124   t20107 = t793 * t1565;
19125   t20112 = t3153 * t16852;
19126   t20115 = t6141 * t574;
19127   t20120 = t4741 * t2038;
19128   t20126 = -t577 * t20000 * t242;
19129   t20138 = 0.32937059624806545678e0 * t1527 * t20098 - 0.16468529812403272839e0 * t1527 * t20101 + 0.21799717097663792992e0 * t4784 * t20104 - 0.29391714526792369101e0 * t1527 * t20107 - 0.32937059624806545678e0 * t6242 * t4850 + 0.10984233449757140111e2 * t9575 * t20112 + 0.63756387095837744823e0 * t20115 * t1530 + 0.32937059624806545678e0 * t16920 * t2085 - 0.38253832257502646895e1 * t20120 * t1515 * t250 + 0.461000314880e0 * t575 * t20126 + 0.63756387095837744823e0 * t4774 * t6233 + 0.63756387095837744823e0 * t6242 * t4781 + 0.21252129031945914941e0 * t2055 * t16900 + 0.56906378609746093242e1 * t9580 * t12965 * t16852;
19130   t20146 = t587 * t1543;
19131   t20147 = t2061 * t20146;
19132   t20152 = t1515 * t238;
19133   t20153 = t6069 * t20152;
19134   t20156 = t1523 * t6042;
19135   t20162 = t784 * t1560;
19136   t20163 = t20162 * t242;
19137   t20164 = t4785 * t20163;
19138   t20169 = t9579 * t20025;
19139   t20172 = t6123 * t574;
19140   t20177 = t6117 * t1562;
19141   t20180 = -0.16468529812403272839e0 * t4820 * t6086 + 0.8298005667840e1 * t6075 * t238 * t6057 + 0.21252129031945914941e0 * t16735 * t2062 - 0.2143408056025743360e1 * t6222 * t20147 - 0.16468529812403272839e0 * t2055 * t16528 + 0.13549589651714352352e0 * t20153 * t6092 + 0.63756387095837744823e0 * t20156 * t566 * t250 + 0.714469352008581120e0 * t4770 * t6086 + 0.11378729917768353994e1 * t1527 * t20164 + 0.52455980750256876982e0 * t4777 * t6113 + 0.20307846858839536740e1 * t1527 * t20169 - 0.25502554838335097930e1 * t20172 * t6118 - 0.12751277419167548965e1 * t6116 * t16549 - 0.12751277419167548965e1 * t6116 * t20177;
19142   t20183 = t6136 * t20152;
19143   t20187 = t4848 * t2061 * t1582;
19144   t20194 = t6232 * t578;
19145   t20195 = t4755 * t20194;
19146   t20198 = t4755 * t20163;
19147   t20203 = t781 * t4706;
19148   t20219 = -0.17635028716075421460e1 * t20183 * t6092 - 0.16468529812403272839e0 * t1527 * t20187 - 0.75919974291285761083e-1 * t4777 * t6102 - 0.12751277419167548965e1 * t4774 * t6106 - 0.25502554838335097930e1 * t1527 * t20195 - 0.12751277419167548965e1 * t1527 * t20198 + 0.29391714526792369101e0 * t4777 * t6233 + 0.87446194859244818739e0 * t20203 * t16871 - 0.15062248783813849042e1 * t6225 * t16840 + 0.11378729917768353994e1 * t6242 * t4790 + 0.67692822862798455802e0 * t2055 * t16843 - 0.10151298285083840779e1 * t574 * t6065 * t4825 - 0.89901964350980565762e0 * t6194 * t4828 - 0.357234676004290560e0 * t6060 * t4715;
19149   t20220 = t4735 * t2038;
19150   t20224 = t6089 * t573;
19151   t20225 = t2051 * t20224;
19152   t20228 = t570 * t4823;
19153   t20229 = t2088 * t4849;
19154   t20232 = t1514 * t6042;
19155   t20236 = t9549 * t4780;
19156   t20240 = t574 * t1568 * t1555;
19157   t20241 = t1569 * t578;
19158   t20242 = t2061 * t20241;
19159   t20248 = t1568 * t1542;
19160   t20249 = t1539 * t20248;
19161   t20253 = t1534 * t6172;
19162   t20264 = t6155 * t16754;
19163   t20271 = 0.29391714526792369101e0 * t20220 * t1515 * t250 - 0.15183994858257152217e0 * t20225 * t4850 + 0.41444833874132575653e0 * t20228 * t20229 - 0.2766001889280e1 * t20232 * t238 * t2045 + 0.44051698455185959158e1 * t9593 * t20236 - 0.89901964350980565762e0 * t20240 * t20242 + 0.44950982175490282881e0 * t8511 * t2061 * t16856 - 0.59502499971174729837e0 * t20249 * t3153 * t20241 - 0.357234676004290560e0 * t1533 * t20253 + 0.76507664515005293790e1 * t6069 * t4736 * t250 - 0.119078225334763520e0 * t2058 * t16573 + 0.975074869248e0 * t245 * t6050 * t1582 - 0.11064007557120e2 * t575 * t20264 + 0.975074869248e0 * t245 * t1568 * t6172 * t587;
19164   t20275 = t3153 * t1543;
19165   t20276 = t9553 * t20275;
19166   t20279 = t9553 * t20025;
19167   t20285 = t4785 * t8425 * t578;
19168   t20289 = t4785 * t3153 * t1560;
19169   t20295 = t9579 * t12965 * t1543;
19170   t20298 = t9579 * t20275;
19171   t20303 = t4785 * t20194;
19172   t20310 = t1523 * t566 * t238;
19173   t20312 = t1534 * t792 * t1509;
19174   t20317 = -0.58783429053584738202e0 * t4777 * t6106 + 0.50637350790534702506e1 * t4784 * t20276 - 0.68272379506610123966e1 * t1527 * t20279 - 0.84395584650891170841e0 * t16728 * t6110 - 0.16879116930178234169e1 * t4784 * t20285 - 0.84395584650891170841e0 * t4784 * t20289 - 0.38906391098542524630e0 * t16721 * t6110 + 0.26233858457773445622e1 * t16869 * t20295 - 0.45186746351441547127e1 * t4784 * t20298 + 0.11378729917768353994e1 * t4774 * t6113 + 0.22757459835536707989e1 * t1527 * t20303 - 0.119078225334763520e0 * t1549 * t2088 * t16616 - 0.16468529812403272839e0 * t20310 * t20312 + 0.20722416937066287826e0 * t4820 * t6283;
19175   t20326 = t6169 * t16754;
19176   t20331 = t792 * t4699;
19177   t20335 = t2065 * t16616;
19178   t20340 = t6164 * t4780;
19179   t20343 = t4699 * t2077;
19180   t20349 = t9549 * t4853;
19181   t20352 = t583 * t4699;
19182   t20353 = t1539 * t20352;
19183   t20354 = t784 * t1543;
19184   t20355 = t20354 * t4839;
19185   t20358 = t574 * t20352;
19186   t20361 = -0.714469352008581120e0 * t1549 * t6273 * t16754 - 0.357234676004290560e0 * t4863 * t6086 - 0.21968466899514280222e2 * t1540 * t6169 * t16839 + 0.29619233351014809600e2 * t575 * t20326 + 0.44950982175490282881e0 * t2058 * t16874 - 0.37929099725894513314e0 * t1549 * t20331 * t16754 + 0.822756481972633600e0 * t575 * t20335 - 0.33837660950279469264e0 * t2058 * t16791 + 0.2468269445917900800e1 * t575 * t20340 - 0.98018905612252815491e1 * t1540 * t20343 * t4786 + 0.20722416937066287826e0 * t2052 * t1571 - 0.63756387095837744823e0 * t6222 * t20349 + 0.25318675395267351252e1 * t20353 * t20355 - 0.11378729917768353994e1 * t20358 * t20147;
19187   t20367 = t2048 * t1539;
19188   t20370 = t574 * t20248;
19189   t20373 = t6232 * t6217;
19190   t20378 = t587 * t1560;
19191   t20379 = t2061 * t20378;
19192   t20382 = t583 * t4761;
19193   t20383 = t1539 * t20382;
19194   t20386 = t16605 * t779;
19195   t20390 = t574 * t20382;
19196   t20402 = t2044 * t566 * t1509;
19197   t20405 = 0.8298005667840e1 * t9548 * t20236 - 0.84395584650891170840e0 * t20367 * t4787 + 0.80224916908241017662e0 * t20370 * t20242 + 0.1428938704017162240e1 * t6216 * t20373 + 0.714469352008581120e0 * t6216 * t20349 + 0.714469352008581120e0 * t6216 * t20379 - 0.28372714370060683191e1 * t20383 * t20355 + 0.45165298839047841173e-1 * t20386 * t4736 * t250 + 0.38253832257502646895e1 * t20390 * t20147 - 0.12751277419167548965e1 * t6222 * t20373 - 0.63756387095837744823e0 * t6222 * t20379 - 0.922000629760e0 * t2043 * t16911 - 0.16468529812403272839e0 * t2052 * t1584 + 0.8298005667840e1 * t6056 * t20402;
19198   t20406 = t792 * t4761;
19199   t20420 = t4761 * t2077;
19200   t20421 = t20420 * t4756;
19201   t20424 = t1545 * t4693;
19202   t20428 = t6136 * t566;
19203   t20429 = t245 * t16548;
19204   t20444 = t16642 * t784;
19205   t20445 = t16764 * t4700;
19206   t20452 = -0.94575714566868943969e0 * t4838 * t20406 * t16839 + 0.12751277419167548965e1 * t1549 * t20406 * t16754 + 0.23916119461575365556e1 * t245 * t16771 * t792 * t4689 - 0.357234676004290560e0 * t1549 * t2078 * t4853 - 0.14809616675507404800e2 * t575 * t20421 - 0.61023519165317445059e0 * t1540 * t2065 * t20424 - 0.38253832257502646894e1 * t20428 * t20429 - 0.48997150734706182895e0 * t16800 * t20331 * t16870 + 0.84395584650891170840e0 * t4838 * t20331 * t16839 + 0.44950982175490282881e0 * t6060 * t4719 - 0.32937059624806545678e0 * t6076 * t589 - 0.16468529812403272839e0 * t6081 * t589 - 0.92817332546461565657e1 * t16763 * t20444 * t20445 + 0.20312390406477209506e2 * t4707 * t20444 * t16870;
19207   t20463 = t20343 * t4756;
19208   t20473 = t4718 * t1569 * t566;
19209   t20476 = t792 * t1569;
19210   t20477 = t16790 * t20476;
19211   t20486 = t20444 * t16754;
19212   t20491 = t1514 * t1509;
19213   t20497 = -0.357234676004290560e0 * t1549 * t6172 * t577 * t1529 - 0.89901964350980565762e0 * t4770 * t6283 - 0.357234676004290560e0 * t1549 * t6161 * t1550 + 0.44051698455185959158e1 * t575 * t20463 - 0.119078225334763520e0 * t1549 * t785 * t16597 + 0.56906378609746093243e1 * t4707 * t20343 * t6256 - 0.89901964350980565762e0 * t2043 * t20473 - 0.10151298285083840779e1 * t1533 * t20477 + 0.44950982175490282881e0 * t4823 * t2078 * t4824 - 0.13606156761889987933e2 * t1540 * t20444 * t16839 + 0.26206649088979828343e1 * t575 * t20486 - 0.75919974291285761083e-1 * t6070 * t589 + 0.714469352008581120e0 * t20491 * t238 * t8476 + 0.44950982175490282881e0 * t4863 * t6283;
19214   t20498 = t16634 * t779;
19215   t20503 = t1555 * t6160 * t1529;
19216   t20506 = t16623 * t784;
19217   t20507 = t20506 * t16754;
19218   t20510 = t1542 * t6160;
19219   t20511 = t20510 * t1529;
19220   t20515 = t1534 * t1582 * t566;
19221   t20526 = t4755 * t4756 * t566;
19222   t20531 = t6091 * t1557;
19223   t20535 = t1528 * t2061 * t1509;
19224   t20542 = -0.11756685810716947640e1 * t20498 * t4736 * t250 - 0.2766001889280e1 * t575 * t20503 - 0.17620679382074383663e2 * t575 * t20507 + 0.2468269445917900800e1 * t575 * t20511 + 0.714469352008581120e0 * t2043 * t20515 + 0.63756387095837744823e0 * t6075 * t1509 * t250 + 0.21799717097663792993e0 * t6225 * t16501 - 0.29391714526792369101e0 * t2055 * t16505 + 0.25502554838335097929e1 * t6116 * t20526 - 0.12751277419167548965e1 * t2055 * t16509 - 0.58783429053584738202e0 * t6090 * t20531 - 0.12751277419167548965e1 * t16547 * t20535 + 0.32937059624806545678e0 * t4752 * t6102 + 0.25502554838335097929e1 * t4752 * t6106;
19225   t20552 = t4848 * t6232 * t587;
19226   t20555 = t2106 * t1542;
19227   t20577 = t242 * t4689;
19228   t20592 = t2096 * t1509;
19229   t20595 = t6152 * t4780;
19230   t20599 = t6164 * t4756;
19231   t20603 = t2073 * t16616;
19232   t20607 = t4736 * t247;
19233   t20615 = -0.57334058611200e2 * t6155 * t16508 + 0.32124960e2 * t2065 * t16508 + 0.1784720e1 * t20126 + 0.17054206847430144000e2 * t6169 * t16508 - 0.10708320e2 * t20232 * t2096 + 0.32124960e2 * t6075 * t6131 + 0.32124960e2 * t2051 * t20592 - 0.10708320e2 * t20595 + 0.9555676435200e1 * t6075 * t4795 + 0.32124960e2 * t20599 + 0.17054206847430144000e2 * t20220 * t6131 - 0.3569440e1 * t20603 + 0.9555676435200e1 * t20156 * t2096 + 0.114668117222400e3 * t6069 * t20607 + 0.10145661348248508867e2 * t20486 - 0.10708320e2 * t6123 * t4795 - 0.42833280e2 * t6136 * t20607;
19234   t20631 = t569 * t20000;
19235   t20642 = -0.57334058611200e2 * t20421 - 0.68216827389720576000e2 * t20507 + 0.114668117222400e3 * t20326 + 0.3185225478400e1 * t2051 * t16646 + 0.9555676435200e1 * t20340 - 0.57334058611200e2 * t20120 * t6131 + 0.9555676435200e1 * t20511 + 0.3185225478400e1 * t20335 - 0.3569440e1 * t2042 * t16646 - 0.42833280e2 * t20264 - 0.68216827389720576000e2 * t20498 * t20607 + 0.1784720e1 * t20631 * t247 + 0.10145661348248508867e2 * t20386 * t20607 - 0.10708320e2 * t20503 + 0.17054206847430144000e2 * t6069 * t20592 - 0.57334058611200e2 * t6136 * t20592 + 0.17054206847430144000e2 * t20463;
19236   t20647 = 0.16879116930178234168e1 * t16740 * t6110 - 0.22757459835536707989e1 * t4752 * t6113 - 0.16468529812403272839e0 * t4774 * t6102 - 0.32937059624806545678e0 * t1527 * t20552 + 0.47287857283434471985e0 * t4838 * t20555 * t4786 - 0.63756387095837744824e0 * t1549 * t20555 * t4756 + 0.16879116930178234168e1 * t6225 * t16866 - 0.22757459835536707989e1 * t2055 * t16846 - 0.12751277419167548965e1 * t4752 * t6233 - 0.58783429053584738202e0 * t16834 * t2062 - 0.18307055749595233518e1 * t1540 * t6164 * t4844 + 0.714469352008581120e0 * t1549 * t2106 * t1555 * t4756 - 0.33837660950279469264e0 * t16821 * t785 * t20577 - 0.258304e0 * t245 * t583 * (t20615 + t20642);
19237   t20652 = t1534 * t1515 * t587;
19238   t20665 = t4718 * t20064;
19239   t20668 = t6069 * t566;
19240   t20671 = t570 * t1549;
19241   t20672 = t2073 * t4849;
19242   t20675 = t570 * t4838;
19243   t20676 = t4839 * t578;
19244   t20677 = t2065 * t20676;
19245   t20680 = t2065 * t4849;
19246   t20683 = t2042 * t1549;
19247   t20684 = t1550 * t566;
19248   t20685 = t579 * t20684;
19249   t20691 = -0.357234676004290560e0 * t1549 * t6127 * t4780 - 0.2143408056025743360e1 * t6056 * t20652 + 0.1428938704017162240e1 * t6124 * t6179 + 0.714469352008581120e0 * t2043 * t16568 + 0.8298005667840e1 * t575 * t20599 - 0.119078225334763520e0 * t16692 * t2085 - 0.25306658097095253694e-1 * t16880 * t2085 + 0.44950982175490282881e0 * t1533 * t20665 + 0.29391714526792369101e0 * t20668 * t20429 + 0.65874119249613091356e0 * t20671 * t20672 + 0.43599434195327585985e0 * t20675 * t20677 - 0.58783429053584738202e0 * t20671 * t20680 + 0.65874119249613091356e0 * t20683 * t20685 - 0.18307055749595233518e1 * t1540 * t20510 * t2066;
19250   t20716 = t574 * t793;
19251   t20725 = -0.714469352008581120e0 * t16787 * t2085 - 0.922000629760e0 * t575 * t20603 - 0.2766001889280e1 * t575 * t20595 - 0.2766001889280e1 * t6124 * t4728 + 0.461000314880e0 * t20631 * t250 - 0.14809616675507404800e2 * t9554 * t20236 - 0.12751277419167548965e1 * t6242 * t4757 + 0.44950982175490282881e0 * t6194 * t4857 + 0.44950982175490282881e0 * t6194 * t4854 - 0.59502499971174729836e0 * t1539 * t2092 * t4840 + 0.80224916908241017663e0 * t6194 * t4831 + 0.714469352008581120e0 * t20716 * t4808 + 0.89901964350980565762e0 * t574 * t6050 * t1551 + 0.47287857283434471984e0 * t1539 * t793 * t4845;
19252   t20742 = t578 * t1582;
19253   t20746 = t4706 * t20352;
19254   t20750 = t2106 * t587;
19255   t20751 = t4718 * t20750;
19256   t20765 = -0.63756387095837744823e0 * t20716 * t4813 + 0.12751277419167548965e1 * t2055 * t16755 + 0.12751277419167548965e1 * t16743 * t2062 - 0.98018905612252815489e1 * t9585 * t20112 + 0.45165298839047841173e-1 * t16749 * t2062 + 0.94575714566868943972e0 * t6238 * t8425 * t6217 + 0.47287857283434471986e0 * t6238 * t3153 * t20378 + 0.47287857283434471985e0 * t6238 * t3153 * t20742 - 0.14699145220411854869e1 * t20746 * t12965 * t20146 + 0.89901964350980565762e0 * t1533 * t20751 + 0.10984233449757140111e2 * t1540 * t20420 * t4786 - 0.22762551443898437297e2 * t4707 * t20506 * t16870 + 0.39207562244901126197e2 * t1540 * t20506 * t16839 + 0.98811178874419637035e0 * t6288 * t589;
19257   t20770 = my_piecewise3(t235, 0, t20046 + t20096 + t20138 + t20180 + t20219 + t20271 + t20317 + t20361 + t20405 + t20452 + t20497 + t20542 + t20647 + t20691 + t20725 + t20765);
19258   t20771 = my_piecewise3(t234, 0, t20770);
19259   t20777 = 0.3e1 / 0.10e2 * t60 * (0.3e1 * t1509 * t2112 + 0.3e1 * t1588 * t2038 + t20000 * t252 + t20771 * t233 + t4682 * t798 + t4869 * t779 + 0.3e1 * t566 * t6295 + 0.3e1 * t593 * t6042 - t19857) + 0.154e3 / 0.27e2 * t4578;
19260   t20784 = t278 * t345 * t4952;
19261   t20794 = t1630 * t6301;
19262   t20814 = -0.10000e5 / 0.729e3 * t19849 * t4924 - 0.2500e4 / 0.243e3 * t6363 * t2118 * t1598 * t24 - 0.25e2 / 0.81e2 * t617 * t619 * t20777 - 0.500e3 / 0.27e2 * t19849 * t4928 - 0.50000e5 / 0.6561e4 * t20784 * t804 * t4882 * t68 - 0.50e2 / 0.81e2 * t2147 * t4931 - 0.5e1 / 0.9e1 * params->c1 * t20777 * t280 - 0.500e3 / 0.81e2 * t2150 * t20794 * t599 - 0.50e2 / 0.27e2 * t6352 * t36 * t620 - 0.50e2 / 0.27e2 * t6355 * t1635 - 0.500e3 / 0.81e2 * t2150 * t6368 * t1594 - 0.500e3 / 0.243e3 * t2150 * t2151 * t4875 - 0.2500e4 / 0.243e3 * t6363 * t9874 * t7446 - 0.500e3 / 0.27e2 * t2144 * t1632;
19263   t20837 = t2118 * t345 * t6389;
19264   t20842 = t4965 * t804;
19265   t20843 = t4017 * t20842;
19266   t20844 = t345 * t1594;
19267   t20845 = t20844 * t2164;
19268   t20854 = t449 * t2172;
19269   t20864 = t4952 * t804;
19270   t20866 = t4882 * t19;
19271   t20868 = t17049 * t20866 * t23;
19272   t20886 = t1263 * t20864;
19273   t20889 = -0.5e1 / 0.9e1 * t625 * t20777 * t19 * t627 - 0.500e3 / 0.27e2 * t4953 * t20837 - 0.50e2 / 0.27e2 * t6393 * t4948 - 0.250e3 / 0.81e2 * t20843 * t20845 - 0.500e3 / 0.27e2 * t4942 * t20837 - 0.25e2 / 0.81e2 * t2173 * t17067 - 0.250e3 / 0.81e2 * t4966 * t20837 - 0.500e3 / 0.27e2 * t20854 * t20845 - 0.50e2 / 0.27e2 * t449 * t20794 * t2165 - 0.25e2 / 0.27e2 * t1263 * t1654 * t6301 * t2165 - 0.10000e5 / 0.729e3 * t449 * t20864 * t20868 - 0.5000e4 / 0.243e3 * t1263 * t20842 * t20868 - 0.1250e4 / 0.2187e4 * t14957 * t17089 * t804 * t20868 - 0.25e2 / 0.27e2 * t6405 * t4948 - 0.5000e4 / 0.729e3 * t4017 * t17071 * t804 * t20868 - 0.50e2 / 0.81e2 * t2163 * t17067 - 0.500e3 / 0.27e2 * t20886 * t20845;
19274   t20890 = my_piecewise3(t277, 0.3e1 * t1638 * t2158 * t283 + 0.3e1 * t1640 * t2158 * t283 + t283 * t4934 * t823 + t283 * t4939 * t823 + 0.3e1 * t283 * t623 * t6378 + t20814 * t283 + 0.3e1 * t624 * t6383, t20889);
19275   t20892 = 0.6e1 * t1423 * t1424 * t2177 - 0.6e1 * t1423 * t1617 * t2138 - 0.6e1 * t1423 * t611 * t6337 + 0.12e2 * t1423 * t611 * t6339 + 0.6e1 * t1423 * t611 * t6342 + 0.18e2 * t1424 * t2138 * t4566 - 0.6e1 * t4566 * t4567 * t829 - t4905 * t510 * t829 - 0.3e1 * t510 * t631 * t6336 + 0.18e2 * t19843 * t4571 - t20890 * t276;
19276   t20920 = t264 * t1594;
19277   t20953 = t4875 * t266;
19278   t20963 = t345 * t1608;
19279   t20965 = t20866 * t2527;
19280   t20974 = -0.5e1 / 0.27e2 * t6316 * t20920 * t2123 + 0.5e1 / 0.162e3 * t6330 * t20844 * t2123 + t6324 * t6327 / 0.108e3 + t1609 * t6301 * t2131 / 0.108e3 - 0.539e3 / 0.21870e5 * t57 * t19766 - t6305 * t6313 / 0.36e2 + 0.5e1 / 0.162e3 * t4897 * t2118 * t6309 - t56 * t20777 * t601 / 0.180e3 + 0.5e1 / 0.54e2 * t2119 * t6309 + t604 * t20777 * t601 / 0.180e3 - t6302 * t36 * t2124 / 0.36e2 + 0.125e3 / 0.1458e4 * t805 * t4898 * t16960 + t2130 * t68 * t20953 / 0.324e3 - 0.5e1 / 0.27e2 * t2119 * t345 * t6318 + 0.5e1 / 0.54e2 * t6316 * t2123 * t1594 - 0.125e3 / 0.2187e4 * t805 * t20963 * t20965 - t2122 * t1601 * t20953 / 0.108e3 + 0.25e2 / 0.4374e4 * t16979 * t6388 * t20965;
19281   t21004 = 0.6e1 * t1423 * t2142 * t1617 + t510 * (-0.1540e4 / 0.6561e4 * t19856 - 0.209e3 / 0.243e3 * t40 * t16398 * t194 + 0.2809e4 / 0.480e3 * t346 * t184 * t4588 * t194 - 0.18837e5 / 0.12800e5 * t1986 * t4597 + 0.29403e5 / 0.256000e6 * t5952 * t4607 - 0.19683e5 / 0.1280000e7 * t14238 * t4600 / t4602 / t208 * t194 + 0.2e1 * t4902 * t811 + 0.6e1 * t1614 * t2134 + 0.6e1 * t608 * t6333 + 0.2e1 * t269 * t20974) * t288 - 0.2e1 * t1423 * t815 * t4905 - t510 * t814 * t4970 - 0.3e1 * t510 * t2137 * t1659 - 0.3e1 * t510 * t1617 * t2177 + 0.6e1 * t1423 * t2140 * t1617 - 0.18e2 * t4566 * t2140 * t1424 - 0.3e1 * t510 * t611 * t6413 - 0.24e2 * t16323 * t815 * t4567 + 0.1174e1 * t20890;
19282   t21031 = -0.16493000000000000000e1 * t4246 * t644 * t2202 * t4539 - 0.3e1 / 0.8e1 * t8 * t175 * (t20892 + t21004) * t302 + t19204 / 0.4e1 + 0.32216644838286502747e3 * t19561 * t5029 - 0.19241833333333333333e2 * t2186 * t5016 + t18927 - 0.89062200000000000000e2 * t5919 * t1677 + 0.89062200000000000000e3 * t1376 * t19479 * t1409 * t292 - 0.24805162816148769052e1 * t4414 * t19488 * t19489 * t503 + 0.86588250000000000000e1 * t1668 * t6451 + 0.89062200000000000000e2 * t4476 * t5926 - 0.24162483628714877061e3 * t16036 * t5911;
19283   t21045 = t469 * t175 * t6416;
19284   t21060 = 0.44531100000000000000e2 * t1376 * t1675 * t5821 * t1414 - 0.12081241814357438530e3 * t4414 * t5836 * t17132 + 0.17317650000000000000e2 * t5919 * t1682 + 0.20781180000000000000e3 * t2186 * t5011 - t18907 - 0.74218500000000000000e1 * t21045 * t649 - 0.65972000000000000001e1 * t19531 + 0.12369750000000000000e1 * t19533 - 0.19791600000000000000e2 * t19514 * t1411 + 0.11545100000000000000e2 * t1376 * t644 * t6449 * t1409 + 0.37109250000000000000e1 * t4476 * t6441 + 0.37109250000000000000e1 * t16103 * t2190;
19285   t21085 = 0.23090200000000000000e2 * t5796 * t5049 + 0.12369750000000000000e1 * t1376 * t644 * t838 * t17237 + 0.12113307472923900000e3 * t19539 + 0.12369750000000000000e1 * t4357 * t5803 * t5804 * t16090 - 0.32986000000000000000e1 * t19191 * t4541 + 0.16493000000000000000e1 * t19237 + 0.82465000000000000000e0 * t19239 - 0.61848750000000000000e0 * t19246 + 0.29687400000000000000e2 * t19553 - 0.80541612095716256867e2 * t19555 - 0.3e1 / 0.8e1 * t19575 + 0.57725500000000000000e1 * t19577 + 0.36339922418771700000e3 * t2195 * t634 * t2935 * t6457;
19286   t21098 = -0.9e1 / 0.8e1 * t6419 + t18881 - t5781 - t6423 / 0.2e1 - 0.3e1 / 0.2e1 * t6426 - 0.3e1 * t6429 - 0.98958000000000000000e1 * t6432 + 0.12369750000000000000e1 * t6436 + t10 * (t19672 + t19713 + t19747 + t19790 + t19815 + t21031 + t21060 + t21085) - t18885 + 0.74218500000000000000e1 * t6438 + 0.37109250000000000000e1 * t6442 - 0.19791600000000000000e2 * t6444 + 0.24739500000000000000e1 * t5809 + 0.17317650000000000000e2 * t6447 + 0.86588250000000000000e1 * t6452 + 0.36339922418771700000e3 * t6459 - 0.3e1 / 0.4e1 * t5793;
19287   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19288     v4rho3sigma[11] = t19639 + t21098;
19289 
19290   t21102 = t469 * t18 * t2393;
19291   t21103 = t21102 * t480;
19292   t21111 = t908 * t3563 * t3557;
19293   t21116 = t908 * t19 * t38;
19294   t21140 = t423 * t36;
19295   t21141 = t39 * t1203;
19296   t21147 = t6878 * t442;
19297   t21152 = t2365 * t2330;
19298   t21159 = t5588 * t881;
19299   t21172 = t3694 * t6579;
19300   t21180 = t3686 * t6579;
19301   t21184 = t1091 * t5225 * t857;
19302   t21188 = t1091 * t1098 * t2255;
19303   t21192 = t1091 * t3707 * t857;
19304   t21197 = t2237 * t1090;
19305   t21204 = t3694 * t378;
19306   t21210 = t14287 * t85;
19307   t21214 = 0.5e1 / 0.3e1 * t6580 * t1115 * t19 * t355 - 0.25e2 / 0.6e1 * t21172 * t1092 * t19 * t355 - 0.55e2 / 0.9e1 * t6580 * t6581 * t1067 + 0.10e2 / 0.3e1 * t21180 * t6582 + 0.10e2 / 0.3e1 * t21184 * t6582 + 0.10e2 / 0.3e1 * t21188 * t6582 + 0.25e2 / 0.27e2 * t21192 * t68 * t1043 * t387 + 0.9e1 / 0.4e1 * t21197 * t1092 + 0.9e1 / 0.2e1 * t6543 * t6540 + 0.9e1 / 0.2e1 * t6546 * t6540 - 0.45e2 / 0.4e1 * t21204 * t6555 - 0.45e2 / 0.4e1 * t6554 * t6549 * t1092 + 0.105e3 / 0.8e1 * t21210 * t2244 * t3695;
19308   t21215 = t14277 * t85;
19309   t21218 = t89 * t6565;
19310   t21222 = t6577 * t375;
19311   t21229 = t855 * t3693;
19312   t21238 = 0.520e3 / 0.19683e5 * t5195;
19313   t21239 = 0.247e3 / 0.8748e4 * t5197;
19314   t21244 = t376 * t17545;
19315   t21247 = t6565 * t19;
19316   t21251 = t2255 * t36;
19317   t21255 = t3683 * t1098;
19318   t21258 = -0.45e2 / 0.4e1 * t21215 * t6555 + 0.9e1 / 0.2e1 * t2243 * t21218 * t387 - 0.3e1 / 0.2e1 * t21222 * t387 - 0.3e1 / 0.2e1 * t6521 * t1115 - t2239 * t3731 / 0.2e1 - 0.15e2 / 0.8e1 * t21229 * t3695 - 0.45e2 / 0.4e1 * t6554 * t2244 * t3698 + 0.9e1 / 0.4e1 * t6573 * t3698 + (-0.1100e4 / 0.729e3 * t5167 - t21238 + t21239) * t93 - 0.20e2 / 0.9e1 * t6528 * t6532 - 0.50e2 / 0.81e2 * t21244 * t6537 - 0.10e2 / 0.9e1 * t2250 * t21247 * t355 - 0.50e2 / 0.81e2 * t6535 * t21251 * t1110 - 0.10e2 / 0.9e1 * t21255 * t2252;
19319   t21260 = t1086 * t5225;
19320   t21265 = t1086 * t3707;
19321   t21268 = t376 * t17538;
19322   t21294 = -0.20e2 / 0.9e1 * t21260 * t2252 - 0.20e2 / 0.9e1 * t6525 * t6532 - 0.50e2 / 0.81e2 * t21265 * t6537 - 0.10e2 / 0.9e1 * t21268 * t2252 - 0.1540e4 / 0.243e3 * t2250 * t2251 * t3664 + 0.110e3 / 0.27e2 * t6525 * t6585 + 0.110e3 / 0.27e2 * t6528 * t6585 + 0.110e3 / 0.27e2 * t2250 * t6531 * t1067 + 0.550e3 / 0.243e3 * t6535 * t6536 * t3726 - t376 * t17598 * t857 - 0.3e1 * t376 * t5222 * t2255 - 0.6e1 * t1086 * t6560 + 0.3e1 / 0.2e1 * t2243 * t2244 * t3731;
19323   t21295 = t14272 * t85;
19324   t21298 = t3686 * t378;
19325   t21303 = t1091 * t1102;
19326   t21326 = t376 * t14313;
19327   t21327 = t857 * t345;
19328   t21331 = 0.9e1 / 0.2e1 * t21295 * t2245 + 0.9e1 * t21298 * t2245 + 0.9e1 * t6543 * t6550 + 0.9e1 / 0.2e1 * t21303 * t2245 + 0.9e1 / 0.2e1 * t2243 * t6549 * t1115 - 0.3e1 * t376 * t1745 * t6565 - 0.3e1 * t1086 * t6566 - t376 * t377 * (-t21238 + t21239) - t14269 * t858 - 0.3e1 * t3683 * t2248 - 0.3e1 * t3683 * t2256 + 0.9e1 * t6546 * t6550 - 0.3e1 * t1086 * t6558 - 0.2000e4 / 0.2187e4 * t21326 * t21327 * t3639;
19329   t21333 = t21214 + t21258 + t21294 + t21331;
19330   t21349 = t1143 * t873 * t1118;
19331   t21354 = t865 * t1169;
19332   t21355 = t21354 * t104;
19333   t21356 = t3862 * t21355;
19334   t21359 = t865 * t1152;
19335   t21360 = t21359 * t104;
19336   t21361 = t8876 * t21360;
19337   t21368 = t3757 * t2294;
19338   t21369 = t21368 * t3841;
19339   t21372 = t2283 * t14458;
19340   t21375 = t14420 * t865;
19341   t21376 = t21375 * t14549;
19342   t21384 = t14379 * t865;
19343   t21388 = 0.44950982175490282881e0 * t3771 * t2295 * t3772 + 0.714469352008581120e0 * t3767 * t21349 - 0.89901964350980565762e0 * t3783 * t6751 + 0.11378729917768353994e1 * t1136 * t21356 + 0.20307846858839536740e1 * t1136 * t21361 + 0.32937059624806545678e0 * t3837 * t6664 + 0.20722416937066287826e0 * t2270 * t1180 + 0.44051698455185959158e1 * t399 * t21369 + 0.822756481972633600e0 * t399 * t21372 - 0.17620679382074383663e2 * t399 * t21376 - 0.2143408056025743360e1 * t6728 * t17918 - 0.98018905612252815491e1 * t1149 * t21368 * t3863 - 0.13606156761889987933e2 * t1149 * t21384 * t14543;
19344   t21389 = t2290 * t14458;
19345   t21406 = t874 * t1166;
19346   t21409 = t6656 * t1152;
19347   t21410 = t8876 * t21409;
19348   t21413 = t6632 * t3833;
19349   t21416 = t2269 * t398;
19350   t21419 = t6610 * t5317;
19351   t21426 = -0.922000629760e0 * t399 * t21389 + 0.1428938704017162240e1 * t6794 * t5514 - 0.16468529812403272839e0 * t6806 * t413 + 0.29391714526792369101e0 * t6615 * t1118 * t9122 + 0.39207562244901126197e2 * t1149 * t21375 * t14543 + 0.8298005667840e1 * t6728 * t17679 + 0.714469352008581120e0 * t2263 * t14599 + 0.32937059624806545678e0 * t1136 * t21406 - 0.45186746351441547127e1 * t3861 * t21410 + 0.2468269445917900800e1 * t399 * t21413 + 0.38253832257502646895e1 * t21416 * t17745 + 0.58783429053584738202e0 * t21419 * t5320 + 0.29391714526792369101e0 * t6720 * t17822 - 0.38906391098542524630e0 * t6720 * t17826;
19352   t21440 = t1137 * t2279 * t1118;
19353   t21457 = t8849 * t21409;
19354   t21460 = 0.52455980750256876982e0 * t6720 * t17829 - 0.16468529812403272839e0 * t2273 * t14714 + 0.21799717097663792993e0 * t6689 * t14776 - 0.29391714526792369101e0 * t2273 * t14783 + 0.25502554838335097929e1 * t6725 * t17703 + 0.29391714526792369101e0 * t14596 * t398 * t21440 - 0.84395584650891170841e0 * t14676 * t6658 - 0.38906391098542524630e0 * t14679 * t6658 + 0.11378729917768353994e1 * t3827 * t6661 + 0.52455980750256876982e0 * t3830 * t6661 - 0.75919974291285761083e-1 * t3830 * t6668 - 0.12751277419167548965e1 * t3827 * t6653 - 0.58783429053584738202e0 * t3830 * t6653 + 0.50637350790534702506e1 * t3861 * t21457;
19355   t21463 = t6741 * t402;
19356   t21464 = t3840 * t21463;
19357   t21467 = t3840 * t21355;
19358   t21471 = t8876 * t8900 * t1152;
19359   t21478 = t6602 * t17870;
19360   t21488 = t3862 * t10101 * t402;
19361   t21492 = t3862 * t6656 * t1169;
19362   t21499 = -0.16468529812403272839e0 * t3827 * t6664 - 0.25502554838335097929e1 * t1136 * t21464 - 0.12751277419167548965e1 * t1136 * t21467 + 0.26233858457773445622e1 * t14682 * t21471 - 0.84395584650891170841e0 * t6689 * t14780 + 0.11378729917768353994e1 * t2273 * t14646 - 0.17635028716075421460e1 * t21478 * t5320 - 0.58783429053584738202e0 * t6720 * t17891 + 0.20722416937066287826e0 * t2273 * t14650 + 0.32937059624806545678e0 * t2273 * t14654 - 0.16879116930178234168e1 * t3861 * t21488 - 0.84395584650891170841e0 * t3861 * t21492 - 0.75919974291285761083e-1 * t3830 * t6664 - 0.16468529812403272839e0 * t2273 * t14702;
19363   t21502 = t6637 * t14549;
19364   t21508 = t1143 * t6640;
19365   t21515 = t2323 * t404;
19366   t21518 = t874 * t1171;
19367   t21521 = t874 * t1155;
19368   t21524 = t874 * t1174;
19369   t21532 = t3862 * t21463;
19370   t21536 = t7821 * t2279 * t1178;
19371   t21539 = t3862 * t21360;
19372   t21542 = 0.29619233351014809600e2 * t399 * t21502 - 0.22762551443898437297e2 * t3755 * t21375 * t14683 - 0.357234676004290560e0 * t1142 * t21508 + 0.98811178874419637035e0 * t6791 * t413 - 0.89901964350980565762e0 * t2263 * t17766 - 0.32937059624806545678e0 * t1136 * t21515 - 0.16468529812403272839e0 * t1136 * t21518 + 0.21799717097663792992e0 * t3861 * t21521 - 0.29391714526792369101e0 * t1136 * t21524 - 0.75919974291285761083e-1 * t6803 * t413 - 0.714469352008581120e0 * t1158 * t6708 * t14549 + 0.22757459835536707989e1 * t1136 * t21532 + 0.20722416937066287826e0 * t1136 * t21536 + 0.38253832257502646895e1 * t1136 * t21539;
19373   t21551 = t2322 * t1164;
19374   t21555 = t873 * t3741;
19375   t21565 = t2322 * t1151;
19376   t21572 = t1123 * t6589;
19377   t21573 = t21572 * t100;
19378   t21579 = t2305 * t3857;
19379   t21585 = -0.119078225334763520e0 * t2276 * t14412 - 0.357234676004290560e0 * t6800 * t3747 - 0.922000629760e0 * t2263 * t17974 - 0.714469352008581120e0 * t14443 * t2302 + 0.714469352008581120e0 * t1158 * t21551 * t3841 - 0.94575714566868943969e0 * t3793 * t21555 * t14543 + 0.12751277419167548965e1 * t1158 * t21555 * t14549 - 0.119078225334763520e0 * t1158 * t2305 * t14458 + 0.47287857283434471985e0 * t3793 * t21565 * t3863 - 0.357234676004290560e0 * t1158 * t6754 * t3833 - 0.2766001889280e1 * t21573 * t1774 + 0.56906378609746093243e1 * t3755 * t21368 * t5355 + 0.41444833874132575653e0 * t18381 * t21579 + 0.325024956416e0 * t107 * t2309 * t3914;
19380   t21587 = t2269 * t18377;
19381   t21590 = t2262 * t1158;
19382   t21596 = t873 * t3757;
19383   t21616 = t6640 * t401;
19384   t21626 = t6623 * t14549;
19385   t21629 = -0.15183994858257152217e0 * t21587 * t3858 + 0.65874119249613091356e0 * t21590 * t18252 - 0.63756387095837744824e0 * t1158 * t21565 * t3841 - 0.37929099725894513314e0 * t1158 * t21596 * t14549 + 0.44950982175490282881e0 * t3819 * t6751 - 0.48997150734706182895e0 * t14399 * t21596 * t14683 + 0.84395584650891170840e0 * t3793 * t21596 * t14543 + 0.32937059624806545678e0 * t14566 * t2302 + 0.63756387095837744823e0 * t6610 * t1118 * t112 - 0.2202015477522235392e1 * t9046 * t6750 * t1191 - 0.357234676004290560e0 * t1158 * t21616 * t1138 - 0.21968466899514280222e2 * t1149 * t6637 * t14543 - 0.33837660950279469264e0 * t14462 * t866 * t14463 - 0.11064007557120e2 * t399 * t21626;
19386   t21642 = t2269 * t17866;
19387   t21645 = t6615 * t17870;
19388   t21650 = t1151 * t6628;
19389   t21651 = t21650 * t1138;
19390   t21663 = t1164 * t6628;
19391   t21664 = t21663 * t1138;
19392   t21667 = -0.12751277419167548965e1 * t17726 * t21440 + 0.32937059624806545678e0 * t3837 * t6668 + 0.25502554838335097929e1 * t3837 * t6653 + 0.16879116930178234168e1 * t14540 * t6658 - 0.22757459835536707989e1 * t3837 * t6661 - 0.16468529812403272839e0 * t3827 * t6668 + 0.29391714526792369101e0 * t21642 * t5320 + 0.13549589651714352352e0 * t21645 * t5320 - 0.32937059624806545678e0 * t6696 * t3858 + 0.2468269445917900800e1 * t399 * t21651 - 0.92817332546461565657e1 * t14377 * t21384 * t17661 + 0.20312390406477209506e2 * t3755 * t21384 * t14683 - 0.357234676004290560e0 * t1158 * t6629 * t1159 - 0.2766001889280e1 * t399 * t21664;
19393   t21671 = t873 * t1191;
19394   t21672 = t3802 * t21671;
19395   t21675 = t2322 * t411;
19396   t21676 = t3802 * t21675;
19397   t21684 = t3814 * t2322;
19398   t21688 = t1177 * t6640;
19399   t21694 = t2290 * t3857;
19400   t21697 = t2283 * t18015;
19401   t21700 = t2283 * t3857;
19402   t21707 = t2266 * t1148;
19403   t21710 = t862 * t3754;
19404   t21713 = 0.44950982175490282881e0 * t1142 * t21672 + 0.89901964350980565762e0 * t1142 * t21676 + 0.714469352008581120e0 * t3783 * t6671 + 0.21252129031945914941e0 * t2269 * t3734 * t112 - 0.2202015477522235392e1 * t107 * t21684 * t1178 + 0.975074869248e0 * t107 * t21688 * t411 + 0.44950982175490282881e0 * t6800 * t3803 + 0.65874119249613091356e0 * t18010 * t21694 + 0.43599434195327585985e0 * t18014 * t21697 - 0.58783429053584738202e0 * t18010 * t21700 - 0.32937059624806545678e0 * t6797 * t413 + 0.21252129031945914941e0 * t2273 * t14493 - 0.84395584650891170840e0 * t21707 * t3864 + 0.87446194859244818739e0 * t21710 * t14684;
19405   t21722 = t2279 * t17988;
19406   t21741 = t6610 * t100;
19407   t21744 = -0.15062248783813849042e1 * t6689 * t14687 + 0.11378729917768353994e1 * t6696 * t3867 + 0.67692822862798455802e0 * t2273 * t14670 + 0.21252129031945914941e0 * t14393 * t2280 - 0.89901964350980565762e0 * t17987 * t21722 + 0.80224916908241017662e0 * t18102 * t21722 + 0.63756387095837744823e0 * t6696 * t3834 + 0.29391714526792369101e0 * t3830 * t6742 + 0.45165298839047841173e-1 * t14438 * t2280 - 0.12751277419167548965e1 * t3837 * t6742 - 0.58783429053584738202e0 * t14365 * t2280 + 0.63756387095837744823e0 * t3827 * t6742 - 0.357234676004290560e0 * t3819 * t6671 + 0.8298005667840e1 * t21741 * t5442;
19408   t21746 = t6602 * t100;
19409   t21749 = t6632 * t3841;
19410   t21758 = t21384 * t14549;
19411   t21764 = t6607 * t100;
19412   t21770 = t3856 * t6741 * t411;
19413   t21774 = t3856 * t2279 * t1191;
19414   t21779 = t6599 * t398;
19415   t21786 = -0.11064007557120e2 * t21746 * t18025 + 0.8298005667840e1 * t399 * t21749 - 0.119078225334763520e0 * t1158 * t866 * t17771 - 0.357234676004290560e0 * t1158 * t2295 * t3786 + 0.26206649088979828343e1 * t399 * t21758 + 0.975074869248e0 * t107 * t6735 * t1191 - 0.357234676004290560e0 * t21764 * t1144 - 0.25306658097095253694e-1 * t14474 * t2302 - 0.32937059624806545678e0 * t1136 * t21770 - 0.16468529812403272839e0 * t1136 * t21774 - 0.12751277419167548965e1 * t2273 * t14717 - 0.25502554838335097929e1 * t21779 * t5314 - 0.12751277419167548965e1 * t6725 * t17720 - 0.12751277419167548965e1 * t6725 * t17809;
19416   t21787 = t2262 * t1148;
19417   t21792 = t8849 * t21360;
19418   t21795 = t393 * t21333;
19419   t21800 = -t401 * t21333 * t104;
19420   t21815 = t14573 * t860;
19421   t21819 = t14477 * t873;
19422   t21828 = 0.16879116930178234168e1 * t21787 * t17813 - 0.22757459835536707989e1 * t6725 * t17819 - 0.68272379506610123966e1 * t1136 * t21792 + 0.461000314880e0 * t21795 * t112 + 0.461000314880e0 * t399 * t21800 - 0.16468529812403272839e0 * t2270 * t1193 - 0.18307055749595233518e1 * t1149 * t6632 * t3888 - 0.61023519165317445059e0 * t1149 * t2283 * t14514 + 0.714469352008581120e0 * t2263 * t18121 - 0.16468529812403272839e0 * t14597 * t21349 - 0.11756685810716947640e1 * t21815 * t3823 * t112 + 0.23916119461575365556e1 * t107 * t21819 * t3815 - 0.119078225334763520e0 * t14665 * t2302 + 0.76507664515005293790e1 * t6615 * t3823 * t112;
19423   t21833 = t6607 * t398;
19424   t21836 = t6656 * t18051;
19425   t21839 = t398 * t6735;
19426   t21848 = t2279 * t18051;
19427   t21854 = t6620 * t3833;
19428   t21857 = t3741 * t2294;
19429   t21861 = t21857 * t3841;
19430   t21866 = t3879 * t2258;
19431   t21870 = -0.33837660950279469264e0 * t2276 * t14497 + 0.63756387095837744823e0 * t21833 * t1139 - 0.28372714370060683191e1 * t18106 * t21836 + 0.89901964350980565762e0 * t21839 * t1160 + 0.44950982175490282881e0 * t6717 * t3892 + 0.44950982175490282881e0 * t6717 * t3787 + 0.12751277419167548965e1 * t2273 * t14694 - 0.2143408056025743360e1 * t5394 * t21848 - 0.59502499971174729837e0 * t18098 * t6656 * t17988 - 0.2766001889280e1 * t399 * t21854 + 0.10984233449757140111e2 * t1149 * t21857 * t3863 - 0.14809616675507404800e2 * t399 * t21861 - 0.16468529812403272839e0 * t3750 * t6671 + 0.29391714526792369101e0 * t21866 * t1124 * t112;
19432   t21871 = t14528 * t860;
19433   t21875 = t1132 * t6589;
19434   t21879 = t873 * t1178;
19435   t21880 = t14496 * t21879;
19436   t21890 = t6602 * t1118;
19437   t21898 = t2294 * t402;
19438   t21899 = t21898 * t1159;
19439   t21905 = t6628 * t104;
19440   t21906 = t1137 * t21905;
19441   t21909 = t2279 * t18047;
19442   t21912 = t6656 * t18260;
19443   t21915 = 0.45165298839047841173e-1 * t21871 * t3823 * t112 + 0.63756387095837744823e0 * t21875 * t390 * t112 - 0.10151298285083840779e1 * t1142 * t21880 - 0.18307055749595233518e1 * t1149 * t21650 * t1795 + 0.44950982175490282881e0 * t2276 * t14524 + 0.20722416937066287826e0 * t3750 * t6751 - 0.38253832257502646895e1 * t21890 * t9122 - 0.2766001889280e1 * t6794 * t3768 + 0.94575714566868943972e0 * t5504 * t10101 * t5389 - 0.12751277419167548965e1 * t5394 * t21899 + 0.44950982175490282881e0 * t7822 * t2279 * t14523 + 0.63756387095837744823e0 * t1136 * t21906 + 0.714469352008581120e0 * t5388 * t21909 - 0.98018905612252815489e1 * t8904 * t21912;
19444   t21921 = t2279 * t18260;
19445   t21924 = t1148 * t2309;
19446   t21929 = t398 * t6648;
19447   t21934 = t2279 * t14389;
19448   t21950 = 0.80224916908241017663e0 * t6717 * t3790 + 0.714469352008581120e0 * t8883 * t3853 + 0.8298005667840e1 * t8893 * t21921 - 0.59502499971174729836e0 * t21924 * t3795 - 0.63756387095837744823e0 * t5394 * t21909 - 0.10151298285083840779e1 * t21929 * t3773 + 0.1428938704017162240e1 * t5388 * t21899 + 0.714469352008581120e0 * t5388 * t21934 - 0.63756387095837744823e0 * t5394 * t21934 + 0.47287857283434471985e0 * t5504 * t6656 * t18047 - 0.89901964350980565762e0 * t6717 * t3776 + 0.44051698455185959158e1 * t8877 * t21921 - 0.11378729917768353994e1 * t18063 * t21848 + 0.12751277419167548965e1 * t14372 * t2280;
19449   t22008 = 0.32124960e2 * t2283 * t14645 - 0.57334058611200e2 * t6602 * t18312 - 0.3569440e1 * t21389 - 0.10708320e2 * t6599 * t3897 - 0.68216827389720576000e2 * t21376 + 0.9555676435200e1 * t21875 * t1825 + 0.32124960e2 * t2269 * t18312 + 0.3185225478400e1 * t21372 + 0.17054206847430144000e2 * t6615 * t18312 + 0.1784720e1 * t21795 * t109 - 0.42833280e2 * t6602 * t18307 + 0.32124960e2 * t6610 * t5445 - 0.42833280e2 * t21626 + 0.10145661348248508867e2 * t21871 * t18307 + 0.17054206847430144000e2 * t6637 * t14645 - 0.10708320e2 * t21572 * t1825 + 0.114668117222400e3 * t6615 * t18307;
19450   t22028 = t3874 * t2258;
19451   t22034 = -0.68216827389720576000e2 * t21815 * t18307 - 0.10708320e2 * t21664 + 0.32124960e2 * t21749 + 0.17054206847430144000e2 * t21866 * t5445 + 0.17054206847430144000e2 * t21369 + 0.9555676435200e1 * t21413 + 0.1784720e1 * t21800 + 0.3185225478400e1 * t2269 * t14749 + 0.114668117222400e3 * t21502 + 0.10145661348248508867e2 * t21758 - 0.3569440e1 * t2262 * t14749 - 0.57334058611200e2 * t21861 - 0.10708320e2 * t21854 - 0.57334058611200e2 * t6623 * t14645 - 0.57334058611200e2 * t22028 * t5445 + 0.9555676435200e1 * t21651 + 0.9555676435200e1 * t6610 * t3897;
19452   t22042 = 0.47287857283434471986e0 * t5504 * t6656 * t14389 + 0.10984233449757140111e2 * t8850 * t21912 - 0.14809616675507404800e2 * t8896 * t21921 - 0.14699145220411854869e1 * t18264 * t8900 * t18051 + 0.56906378609746093242e1 * t8899 * t8900 * t18260 + 0.25318675395267351252e1 * t18077 * t21836 - 0.12751277419167548965e1 * t6696 * t3842 + 0.16879116930178234168e1 * t6689 * t14544 - 0.22757459835536707989e1 * t2273 * t14550 + 0.38253832257502646895e1 * t18277 * t21848 + 0.47287857283434471984e0 * t8886 * t3889 - 0.63756387095837744823e0 * t8883 * t3849 - 0.258304e0 * t107 * t407 * (t22008 + t22034) - 0.38253832257502646895e1 * t22028 * t1124 * t112;
19453   t22047 = my_piecewise3(t97, 0, t21388 + t21426 + t21460 + t21499 + t21542 + t21585 + t21629 + t21667 + t21713 + t21744 + t21786 + t21828 + t21870 + t21915 + t21950 + t22042);
19454   t22048 = my_piecewise3(t96, 0, t22047);
19455   t22050 = 0.3e1 * t1118 * t2328 + t114 * t21333 + 0.3e1 * t1197 * t2258 + t22048 * t95 + t3734 * t879 + 0.3e1 * t390 * t6827 + t3921 * t860 + 0.3e1 * t417 * t6589;
19456   t22060 = -t22050;
19457   t22070 = t2356 * t1239;
19458   t22077 = -0.5e1 / 0.3e1 * t6880 * t6887 + 0.500e3 / 0.27e2 * t1879 * t6939 * t1207 + 0.50e2 / 0.27e2 * t441 * t2365 * t2330 * t1203 - 0.50e2 / 0.27e2 * t6883 * t21140 * t21141 + 0.5e1 / 0.3e1 * t2362 * t6910 - 0.5e1 / 0.3e1 * t21147 * t2359 + 0.100e3 / 0.27e2 * t3969 * t2367 + 0.100e3 / 0.27e2 * t6893 * t21152 + 0.50e2 / 0.81e2 * t441 * t2365 * t881 * t3927 + 0.500e3 / 0.27e2 * t3972 * t21159 + 0.500e3 / 0.27e2 * t1879 * t2385 * t423 * t1203 + 0.5e1 / 0.3e1 * t6890 * t2370 - params->c1 * t22050 * t141 + 0.10000e5 / 0.729e3 * t18414 * t881 * t3934 * t24 + 0.5e1 / 0.9e1 * t3966 * t19 * t897 + 0.5e1 / 0.9e1 * t895 * t896 * t22060 - 0.500e3 / 0.81e2 * t893 * t3975 * t345 - 0.5e1 / 0.9e1 * t2358 * t4008 * t23 - 0.50e2 / 0.27e2 * t22070 * t6884 + 0.50e2 / 0.27e2 * t441 * t2365 * t6829 * t423;
19459   t22095 = t449 * t4004;
19460   t22096 = t10399 * t3950;
19461   t22099 = t1263 * t4019;
19462   t22102 = t14957 * t14959;
19463   t22106 = t1893 * t68 * t1203;
19464   t22109 = t4017 * t14939;
19465   t22113 = t1263 * t4004 * t2330;
19466   t22117 = t1263 * t1265 * t6829;
19467   t22121 = t449 * t1239 * t6829;
19468   t22130 = t449 * t6939;
19469   t22134 = t4017 * t4019 * t2330;
19470   t22146 = 0.2000e4 / 0.81e2 * t22095 * t22096 + 0.1000e4 / 0.27e2 * t22099 * t22096 + 0.250e3 / 0.243e3 * t22102 * t22096 + 0.50e2 / 0.9e1 * t6923 * t22106 + 0.1000e4 / 0.81e2 * t22109 * t22096 + 0.50e2 / 0.9e1 * t22113 * t1255 + 0.5e1 / 0.3e1 * t22117 * t453 + 0.10e2 / 0.3e1 * t22121 * t453 + 0.10e2 / 0.3e1 * t6927 * t1259 + 0.50e2 / 0.9e1 * t6931 * t22106 + 0.10e2 / 0.9e1 * t2379 * t4009 + 0.50e2 / 0.9e1 * t22130 * t1255 + 0.25e2 / 0.27e2 * t22134 * t1255 + 0.5e1 / 0.9e1 * t2386 * t4009 + 0.5e1 / 0.3e1 * t6940 * t1259 + t449 * t442 * t22060 * t147 + 0.25e2 / 0.27e2 * t6946 * t22106;
19471   t22147 = my_piecewise3(t139, 0.3e1 * t1247 * t145 * t2373 + 0.3e1 * t1249 * t145 * t2373 + t145 * t3986 * t900 + t145 * t3991 * t900 + 0.3e1 * t145 * t447 * t6913 + t145 * t22077 + 0.3e1 * t448 * t6918, t22146);
19472   t22167 = t2331 * t126;
19473   t22170 = t14846 * t881;
19474   t22176 = t345 * t124;
19475   t22177 = t22176 * t128;
19476   t22180 = t3949 * t2330;
19477   t22189 = t6830 * t124;
19478   t22192 = t4008 * t2335;
19479   t22210 = t1218 * t6829;
19480   t22215 = t22167 * t6844 / 0.18e2 - 0.5e1 / 0.486e3 * t22170 * t3951 - t9141 * t5553 / 0.36e2 - 0.25e2 / 0.162e3 * t882 * t3934 * t22177 - t22180 * t6844 / 0.108e3 - t3949 * t6906 * t1860 / 0.108e3 + t56 * t22060 * t128 / 0.100e3 + t22189 * t2336 / 0.20e2 + t2334 * t22192 / 0.60e2 + t882 * t18560 * t1860 / 0.18e2 + t6833 * t6839 / 0.20e2 - t2331 * t1207 * t1220 / 0.36e2 - t428 * t22060 * t128 / 0.100e3 - t2342 * t22192 / 0.180e3 + 0.25e2 / 0.243e3 * t2342 * t3951 - t22210 * t2336 / 0.60e2 - t6850 * t6839 / 0.60e2;
19481   t22223 = t1030 * t1223;
19482   t22232 = t3619 * t432;
19483   t22239 = -0.6e1 * t330 * t6859 * t456 + 0.36e2 * t6492 * t2226 * t435 * t1226 + 0.1174e1 * t22147 - 0.6e1 * t330 * t2346 * t1270 - 0.3e1 * t330 * t435 * t6950 - 0.2e1 * t330 * t888 * t4024 - 0.6e1 * t330 * t2230 * t1270 + 0.6e1 * t330 * t432 * t6858 * t150 - t330 * t3957 * t905 + 0.2e1 * t330 * t131 * t22215 * t150 - 0.36e2 * t6492 * t6503 * t1031 - 0.12e2 * t22223 * t2227 - 0.12e2 * t2225 * t6499 * t1226 - 0.4e1 * t2225 * t2226 * t3957 + 0.36e2 * t22232 * t6493 + 0.6e1 * t330 * t1223 * t2345 * t150;
19484   t22243 = t14187 * t131;
19485   t22251 = t887 * t1270;
19486   t22259 = t6858 * t150;
19487   t22280 = t2345 * t456;
19488   t22291 = 0.6e1 * t1030 * t1031 * t2390 - 0.48e2 * t22243 * t2226 * t3620 - t138 * t22147 - 0.3e1 * t330 * t1226 * t2390 + 0.12e2 * t2225 * t22251 * t435 + 0.2e1 * t330 * t3954 * t887 * t150 - 0.12e2 * t2225 * t22259 * t435 - 0.12e2 * t330 * t6514 * t456 + 0.24e2 * t6496 * t6504 - 0.6e1 * t330 * t6510 * t456 + 0.36e2 * t6492 * t6499 * t1031 + 0.6e1 * t1030 * t2353 * t1226 - 0.6e1 * t3619 * t3620 * t905 + 0.24e2 * t2225 * t22280 * t435 + 0.12e2 * t2225 * t6503 * t1226 - 0.24e2 * t6496 * t6500 - 0.12e2 * t6496 * t6507;
19489   t22298 = t8 * t323 * t2394;
19490   t22302 = t8 * t1017 * t909 / 0.9e1;
19491   t22310 = t310 * t322 * t908 * t317;
19492   t22313 = t8 * t18 * t6954;
19493   t22315 = t984 * t2393;
19494   t22320 = t2399 * t985 * t908;
19495   t22324 = t2399 * t309 * t2393;
19496   t22327 = t15 * t6953;
19497   t22333 = t310 * t17 * t2393 * t317;
19498   t22335 = 0.17317650000000000000e2 * t6959 * t1293 - 0.19791600000000000000e2 * t21103 + 0.24162483628714877061e3 * t6967 * t2393 * t742 * t1299 * t1301 - 0.59374800000000000000e3 * t9298 * t21111 * t3568 + 0.16536775210765846035e1 * t6967 * t21116 * t3575 - 0.24162483628714877060e3 * t6967 * t6968 * t64 * t1301 - 0.3e1 / 0.8e1 * t846 * t847 * (t22239 + t22291) * t167 - t22298 / 0.2e1 + t22302 + 0.23090200000000000000e2 * t6486 * t4037 - t2220 * t2221 * t4130 / 0.2e1 - 0.2e1 / 0.3e1 * t22310 - 0.3e1 / 0.2e1 * t22313 - t2220 * t22315 * t988 / 0.2e1 - 0.32986000000000000000e1 * t22320 * t3588 - 0.19791600000000000000e2 * t22324 * t1004 - 0.3e1 / 0.2e1 * t2220 * t22327 * t317 - 0.4e1 * t22333;
19499   t22337 = t986 * t6465 * t988;
19500   t22343 = t1297 * t6970;
19501   t22346 = t310 * t6465 * t1011;
19502   t22348 = t846 * t6485;
19503   t22352 = t2399 * t847 * t6953;
19504   t22357 = t6475 * t1293;
19505   t22364 = t469 * t323 * t908;
19506   t22365 = t22364 * t480;
19507   t22367 = t6475 * t1288;
19508   t22370 = t469 * t999 * t908;
19509   t22371 = t22370 * t1004;
19510   t22373 = t2398 * t2219;
19511   t22374 = t16 * t908;
19512   t22381 = t4145 * t908;
19513   t22388 = -0.2e1 / 0.3e1 * t22337 - 0.98958000000000000000e1 * t6486 * t4122 - 0.11874960000000000000e3 * t6486 * t4126 + 0.32216644838286502747e3 * t22343 - 0.2e1 * t22346 + 0.32216644838286502747e3 * t22348 * t4064 - 0.74218500000000000000e1 * t22352 * t480 - 0.89062200000000000000e2 * t6959 * t1288 + 0.23090200000000000000e2 * t22357 + 0.20781180000000000000e3 * t2401 * t3605 - 0.19241833333333333333e2 * t2401 * t3610 - 0.32986000000000000000e1 * t22365 - 0.11874960000000000000e3 * t22367 - 0.26388800000000000000e2 * t22371 - 0.32302153261130400000e3 * t22373 * t22374 * t4043 - t2220 * t6478 * t3596 / 0.2e1 + t2220 * t22381 * t4149 / 0.9e1 - 0.3e1 / 0.2e1 * t2220 * t6482 * t1011;
19514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19515     v4rho3lapl[0] = t22335 + t22388;
19516 
19517   t22390 = t1308 * t6973 * t1310;
19518   t22394 = t484 * t322 * t974 * t487;
19519   t22397 = t484 * t6973 * t1319;
19520   t22401 = t8 * t1323 * t975 / 0.9e1;
19521   t22402 = t4088 * t974;
19522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19523     v4rho3lapl[1] = -0.2e1 / 0.3e1 * t22390 - 0.2e1 / 0.3e1 * t22394 - 0.2e1 * t22397 + t22401 + t2220 * t22402 * t4092 / 0.9e1 - t2220 * t6980 * t4047 / 0.2e1 - t2220 * t2406 * t4112 / 0.2e1;
19524 
19525   t22415 = 0.87962666666666666666e1 * t22370 * t1341;
19526   t22425 = 0.4e1 / 0.3e1 * t6991 * t6997;
19527   t22427 = t1345 * t2 * t2219;
19528   t22428 = t22427 * t7004;
19529   t22434 = t2399 * t985 * t908 * t473;
19530   t22437 = t7002 * t4;
19531   t22441 = t322 * t2;
19532   t22442 = t22441 * t2219;
19533   t22443 = t22442 * t2410;
19534   t22446 = -0.65972000000000000000e1 * t21103 - t22298 / 0.3e1 + t22302 - t22415 - 0.65972000000000000000e1 * t22324 * t1341 + t2220 * t22381 * t4317 / 0.9e1 - t2220 * t22327 * t499 / 0.2e1 - t22425 + t22428 / 0.6e1 - 0.4e1 / 0.9e1 * t22310 - t22313 / 0.2e1 - 0.21990666666666666666e1 * t22434 * t4283 - t22437 * t309 * t909 / 0.2e1 - 0.2e1 / 0.9e1 * t22443 - 0.4e1 / 0.3e1 * t22333;
19535   t22456 = t1016 * t467 * t4;
19536   t22457 = t22456 * t6485;
19537   t22471 = 0.4e1 / 0.9e1 * t6991 * t6994;
19538   t22478 = -0.2e1 / 0.9e1 * t22337 - t7003 * t6482 * t1347 + 0.10738881612762167582e3 * t22343 - 0.39583200000000000000e2 * t6486 * t4296 + 0.76967333333333333333e1 * t6486 * t4234 - 0.65972000000000000000e1 * t22457 * t4241 - 0.2e1 / 0.3e1 * t22346 + 0.10738881612762167582e3 * t22348 * t4229 + 0.76967333333333333333e1 * t22357 - 0.21990666666666666666e1 * t22365 - 0.39583200000000000000e2 * t22367 - 0.87962666666666666666e1 * t22371 - t7003 * t6478 * t4324 / 0.3e1 - t22471 - t2220 * t6478 * t4257 / 0.6e1 - t2220 * t22315 * t1329 / 0.3e1;
19539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19540     v4rho3lapl[2] = t22446 + t22478;
19541 
19542   t22481 = t322 * t467 * t4 * t2590;
19543   t22482 = t22481 * t649;
19544   t22484 = t7024 * t7028;
19545   t22486 = 0.87962666666666666666e1 * t22484 * t1379;
19546   t22491 = t1306 * t2585;
19547   t22497 = t22427 * t7013;
19548   t22502 = t22441 * t4;
19549   t22503 = t22502 * t2587;
19550   t22506 = 0.4e1 / 0.3e1 * t6991 * t7020;
19551   t22512 = t22442 * t2414;
19552   t22515 = 0.4e1 / 0.9e1 * t6991 * t7010;
19553   t22523 = t2399 * t1307 * t974;
19554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19555     v4rho3lapl[3] = -0.10995333333333333333e1 * t22482 - t22486 + t2220 * t22402 * t4310 / 0.9e1 - 0.2e1 / 0.3e1 * t22397 + t22401 - t2220 * t22491 * t1310 / 0.6e1 - 0.32986000000000000000e1 * t7029 * t4288 - t22497 / 0.6e1 + t22437 * t483 * t975 / 0.2e1 - t22503 / 0.6e1 - t22506 - t2220 * t7019 * t1319 / 0.2e1 - 0.2e1 / 0.9e1 * t22390 - 0.4e1 / 0.9e1 * t22394 - 0.2e1 / 0.9e1 * t22512 - t22515 - t2220 * t6980 * t4214 / 0.6e1 + t7003 * t6980 * t4218 / 0.3e1 - 0.10995333333333333333e1 * t22523 * t4249;
19556 
19557   t22531 = t6991 * t7033;
19558   t22544 = t6991 * t7036;
19559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19560     v4rho3lapl[4] = -0.4e1 / 0.9e1 * t22443 - t22471 - t22425 - t22415 - 0.4e1 / 0.3e1 * t22428 - 0.2e1 / 0.9e1 * t22310 + t22302 - t22298 / 0.6e1 - 0.10995333333333333333e1 * t22365 - 0.2e1 / 0.9e1 * t22531 + t2220 * t22381 * t4371 / 0.9e1 - t2220 * t22315 * t1391 / 0.6e1 - 0.10995333333333333333e1 * t22320 * t4481 - t7003 * t6478 * t4375 / 0.3e1 - 0.2e1 / 0.3e1 * t22544 - t2220 * t6478 * t4429 / 0.6e1 - t2220 * t6482 * t1397 / 0.2e1 - 0.32986000000000000000e1 * t6486 * t4486 - t2220 * t2221 * t4447 / 0.2e1;
19561 
19562   t22559 = t2399 * t1307 * t974 * t642;
19563   t22563 = t7016 * t7514;
19564   t22565 = t173 * t7512;
19565   t22577 = t6991 * t7048;
19566   t22584 = t6991 * t7041;
19567   t22586 = -0.21990666666666666667e1 * t22559 * t4362 - t22506 - 0.4e1 / 0.9e1 * t22512 + t22401 - t22563 / 0.2e1 - t2220 * t22565 * t487 / 0.2e1 - t22515 - t22503 / 0.3e1 + t7003 * t6980 * t4437 / 0.3e1 - t2220 * t22491 * t1354 / 0.3e1 + 0.4e1 / 0.3e1 * t22497 - 0.2e1 / 0.3e1 * t22577 + t7003 * t7019 * t1362 - t2220 * t2406 * t4464 / 0.2e1 - 0.2e1 / 0.9e1 * t22584;
19568   t22587 = t6991 * t7044;
19569   t22589 = t22456 * t7028;
19570   t22593 = t2399 * t483 * t2585;
19571   t22598 = t1686 * t7529;
19572   t22608 = t846 * t7028;
19573   t22611 = t7025 * t1682;
19574   t22613 = t7025 * t1677;
19575   t22615 = t7024 * t7517;
19576   t22616 = t22615 * t649;
19577   t22618 = t22484 * t1411;
19578   t22622 = -0.4e1 / 0.3e1 * t22587 + 0.65972000000000000000e1 * t22589 * t4472 - 0.65972000000000000000e1 * t22593 * t1379 - 0.39583200000000000000e2 * t7029 * t4381 + 0.10738881612762167582e3 * t22598 - 0.2e1 / 0.9e1 * t22394 - t2220 * t6980 * t4425 / 0.6e1 - t22486 + t2220 * t22402 * t4433 / 0.9e1 - 0.21990666666666666667e1 * t22482 + 0.10738881612762167582e3 * t22608 * t4419 + 0.76967333333333333333e1 * t22611 - 0.39583200000000000000e2 * t22613 - 0.65972000000000000000e1 * t22616 - 0.87962666666666666666e1 * t22618 + 0.76967333333333333333e1 * t7029 * t4386;
19579   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19580     v4rho3lapl[5] = t22586 + t22622;
19581 
19582   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19583     v4rho3lapl[6] = -0.2e1 / 0.3e1 * t22443 - 0.2e1 / 0.3e1 * t22531 - 0.2e1 * t22544 + t22302 + t2220 * t22381 * t5001 / 0.9e1 - t2220 * t6478 * t5037 / 0.2e1 - t2220 * t2221 * t4990 / 0.2e1;
19584 
19585   t22635 = t174 * t974;
19586   t22645 = t2557 * t2522;
19587   t22648 = t2548 * t1630;
19588   t22660 = t39 * t1594;
19589   t22664 = t947 * t4882;
19590   t22676 = t1482 * t1489 * t2447;
19591   t22680 = t1482 * t4655 * t923;
19592   t22685 = t4642 * t7131;
19593   t22690 = t7141 * t551;
19594   t22695 = t4634 * t7131;
19595   t22699 = t1482 * t5999 * t923;
19596   t22702 = t16409 * t223;
19597   t22705 = t4634 * t554;
19598   t22710 = t1477 * t4655;
19599   t22713 = 0.5e1 / 0.3e1 * t7132 * t1506 * t19 * t531 - 0.55e2 / 0.9e1 * t7132 * t7133 * t1458 + 0.10e2 / 0.3e1 * t22676 * t7134 + 0.25e2 / 0.27e2 * t22680 * t68 * t1436 * t563 - 0.25e2 / 0.6e1 * t22685 * t1483 * t19 * t531 - 0.3e1 / 0.2e1 * t22690 * t563 - 0.3e1 / 0.2e1 * t7143 * t1506 + 0.10e2 / 0.3e1 * t22695 * t7134 + 0.10e2 / 0.3e1 * t22699 * t7134 + 0.9e1 / 0.2e1 * t22702 * t2437 + 0.9e1 * t22705 * t2437 + 0.9e1 * t7115 * t7122 - 0.50e2 / 0.81e2 * t22710 * t7092;
19600   t22721 = t552 * t19900;
19601   t22727 = t16414 * t223;
19602   t22730 = t4642 * t554;
19603   t22737 = 0.520e3 / 0.19683e5 * t5969;
19604   t22738 = 0.247e3 / 0.8748e4 * t5971;
19605   t22741 = t552 * t16466;
19606   t22742 = t923 * t345;
19607   t22748 = t2429 * t1481;
19608   t22751 = t921 * t4641;
19609   t22756 = -0.6e1 * t1477 * t7101 - 0.3e1 * t552 * t2016 * t7106 + 0.110e3 / 0.27e2 * t7080 * t7137 - 0.10e2 / 0.9e1 * t22721 * t2444 - 0.45e2 / 0.4e1 * t7095 * t2436 * t4646 - 0.45e2 / 0.4e1 * t22727 * t7096 - 0.45e2 / 0.4e1 * t22730 * t7096 - 0.45e2 / 0.4e1 * t7095 * t7121 * t1483 + (-0.1100e4 / 0.729e3 * t5941 - t22737 + t22738) * t231 - 0.2000e4 / 0.2187e4 * t22741 * t22742 * t4589 - t2431 * t4679 / 0.2e1 + 0.9e1 / 0.4e1 * t22748 * t1483 - 0.15e2 / 0.8e1 * t22751 * t4643 + 0.9e1 / 0.2e1 * t7115 * t7125;
19610   t22760 = t16424 * t223;
19611   t22774 = t1482 * t1493;
19612   t22779 = t227 * t7106;
19613   t22786 = t4631 * t1489;
19614   t22789 = t1477 * t5999;
19615   t22794 = 0.9e1 / 0.4e1 * t7128 * t4646 + 0.105e3 / 0.8e1 * t22760 * t2436 * t4643 - 0.3e1 * t4631 * t2448 + 0.9e1 / 0.2e1 * t7118 * t7125 + 0.9e1 / 0.2e1 * t2435 * t7121 * t1506 + 0.3e1 / 0.2e1 * t2435 * t2436 * t4679 + 0.9e1 / 0.2e1 * t22774 * t2437 + 0.9e1 * t7118 * t7122 + 0.9e1 / 0.2e1 * t2435 * t22779 * t563 + 0.550e3 / 0.243e3 * t7090 * t7091 * t4674 - 0.10e2 / 0.9e1 * t22786 * t2444 - 0.20e2 / 0.9e1 * t22789 * t2444 - 0.20e2 / 0.9e1 * t7080 * t7087;
19616   t22797 = t552 * t19907;
19617   t22800 = t7106 * t19;
19618   t22804 = t2447 * t36;
19619   t22831 = -0.20e2 / 0.9e1 * t7083 * t7087 - 0.50e2 / 0.81e2 * t22797 * t7092 - 0.10e2 / 0.9e1 * t2442 * t22800 * t531 - 0.50e2 / 0.81e2 * t7090 * t22804 * t1501 - 0.1540e4 / 0.243e3 * t2442 * t2443 * t4612 + 0.110e3 / 0.27e2 * t7083 * t7137 + 0.110e3 / 0.27e2 * t2442 * t7086 * t1458 - t16406 * t924 - 0.3e1 * t4631 * t2440 - 0.3e1 * t1477 * t7107 - t552 * t553 * (-t22737 + t22738) - 0.3e1 * t1477 * t7099 - t552 * t19940 * t923 - 0.3e1 * t552 * t5996 * t2447;
19620   t22833 = t22713 + t22756 + t22794 + t22831;
19621   t22847 = t16771 * t939;
19622   t22860 = t931 * t1560;
19623   t22861 = t22860 * t242;
19624   t22862 = t4785 * t22861;
19625   t22865 = t931 * t1543;
19626   t22866 = t22865 * t242;
19627   t22867 = t9579 * t22866;
19628   t22877 = t4785 * t7222 * t1560;
19629   t22881 = t9579 * t9581 * t1543;
19630   t22884 = 0.32937059624806545678e0 * t16920 * t2494 + 0.23916119461575365556e1 * t245 * t22847 * t4689 - 0.2202015477522235392e1 * t9700 * t7336 * t1582 - 0.922000629760e0 * t2455 * t16911 + 0.714469352008581120e0 * t4770 * t7246 - 0.84395584650891170841e0 * t7287 * t16544 + 0.11378729917768353994e1 * t1527 * t22862 + 0.20307846858839536740e1 * t1527 * t22867 + 0.32937059624806545678e0 * t4752 * t7219 - 0.16468529812403272839e0 * t4774 * t7219 - 0.75919974291285761083e-1 * t4777 * t7219 - 0.84395584650891170841e0 * t4784 * t22877 + 0.26233858457773445622e1 * t16869 * t22881;
19631   t22885 = t7222 * t1543;
19632   t22886 = t9579 * t22885;
19633   t22889 = t4741 * t2450;
19634   t22895 = t2482 * t16616;
19635   t22899 = t16642 * t931;
19636   t22900 = t22899 * t16754;
19637   t22902 = t4699 * t2486;
19638   t22903 = t22902 * t4756;
19639   t22907 = t1555 * t7187;
19640   t22908 = t22907 * t1529;
19641   t22916 = t2475 * t16616;
19642   t22918 = t4735 * t2450;
19643   t22921 = t1542 * t7187;
19644   t22922 = t22921 * t1529;
19645   t22926 = t4761 * t2486;
19646   t22927 = t22926 * t4756;
19647   t22929 = t7182 * t16754;
19648   t22931 = t16605 * t926;
19649   t22934 = t7191 * t4756;
19650   t22936 = -0.3569440e1 * t22895 + 0.32124960e2 * t2461 * t20592 + 0.10145661348248508867e2 * t22900 + 0.17054206847430144000e2 * t22903 - 0.42833280e2 * t7161 * t20607 - 0.10708320e2 * t22908 + 0.114668117222400e3 * t7174 * t20607 - 0.3569440e1 * t2454 * t16646 + 0.17054206847430144000e2 * t7174 * t20592 + 0.3185225478400e1 * t22916 + 0.17054206847430144000e2 * t22918 * t6131 + 0.9555676435200e1 * t22922 + 0.3185225478400e1 * t2461 * t16646 - 0.57334058611200e2 * t22927 - 0.42833280e2 * t22929 + 0.10145661348248508867e2 * t22931 * t20607 + 0.32124960e2 * t22934;
19651   t22939 = t7196 * t16754;
19652   t22941 = t16623 * t931;
19653   t22942 = t22941 * t16754;
19654   t22948 = t16634 * t926;
19655   t22955 = t7191 * t4780;
19656   t22963 = t1523 * t7148;
19657   t22966 = t1514 * t7148;
19658   t22969 = t569 * t22833;
19659   t22974 = -t577 * t22833 * t242;
19660   t22976 = t7179 * t4780;
19661   t22978 = 0.9555676435200e1 * t7169 * t4795 + 0.114668117222400e3 * t22939 - 0.68216827389720576000e2 * t22942 - 0.10708320e2 * t7158 * t4795 + 0.32124960e2 * t2475 * t16508 - 0.68216827389720576000e2 * t22948 * t20607 + 0.32124960e2 * t7169 * t6131 - 0.57334058611200e2 * t7182 * t16508 + 0.9555676435200e1 * t22955 + 0.17054206847430144000e2 * t7196 * t16508 - 0.57334058611200e2 * t7161 * t20592 - 0.57334058611200e2 * t22889 * t6131 + 0.9555676435200e1 * t22963 * t2096 - 0.10708320e2 * t22966 * t2096 + 0.1784720e1 * t22969 * t247 + 0.1784720e1 * t22974 - 0.10708320e2 * t22976;
19662   t22983 = t7161 * t238;
19663   t22992 = t9553 * t22885;
19664   t22995 = t22966 * t238;
19665   t23007 = -0.45186746351441547127e1 * t4784 * t22886 - 0.38253832257502646895e1 * t22889 * t1515 * t250 - 0.357234676004290560e0 * t7343 * t4715 - 0.258304e0 * t245 * t583 * (t22936 + t22978) - 0.11064007557120e2 * t22983 * t20069 - 0.58783429053584738202e0 * t4777 * t7213 - 0.38906391098542524630e0 * t16721 * t7224 + 0.52455980750256876982e0 * t4777 * t7227 + 0.50637350790534702506e1 * t4784 * t22992 - 0.2766001889280e1 * t22995 * t2045 - 0.11756685810716947640e1 * t22948 * t4736 * t250 + 0.20722416937066287826e0 * t2465 * t16515 + 0.32937059624806545678e0 * t2465 * t16518 + 0.32937059624806545678e0 * t4752 * t7209;
19666   t23011 = t940 * t1557;
19667   t23017 = t4848 * t7268 * t587;
19668   t23020 = t7268 * t578;
19669   t23021 = t4755 * t23020;
19670   t23025 = t4785 * t10617 * t578;
19671   t23028 = t4785 * t23020;
19672   t23032 = t4848 * t2471 * t1582;
19673   t23035 = t4755 * t22861;
19674   t23042 = t940 * t1565;
19675   t23045 = t4785 * t22866;
19676   t23050 = 0.25502554838335097929e1 * t4752 * t7213 + 0.32937059624806545678e0 * t1527 * t23011 - 0.75919974291285761083e-1 * t4777 * t7209 - 0.32937059624806545678e0 * t1527 * t23017 - 0.25502554838335097930e1 * t1527 * t23021 - 0.16879116930178234169e1 * t4784 * t23025 + 0.22757459835536707989e1 * t1527 * t23028 - 0.16468529812403272839e0 * t1527 * t23032 - 0.12751277419167548965e1 * t1527 * t23035 - 0.84395584650891170841e0 * t16728 * t7224 + 0.11378729917768353994e1 * t4774 * t7227 - 0.29391714526792369101e0 * t1527 * t23042 + 0.38253832257502646895e1 * t1527 * t23045 - 0.119078225334763520e0 * t2468 * t16573;
19677   t23051 = t1534 * t7199;
19678   t23085 = -0.357234676004290560e0 * t1533 * t23051 + 0.20722416937066287826e0 * t2462 * t1571 - 0.32937059624806545678e0 * t7237 * t589 - 0.12751277419167548965e1 * t7282 * t4757 + 0.16879116930178234168e1 * t7287 * t16866 - 0.22757459835536707989e1 * t2465 * t16846 + 0.2468269445917900800e1 * t575 * t22955 - 0.357234676004290560e0 * t1549 * t2487 * t4853 + 0.44950982175490282881e0 * t7343 * t4719 - 0.357234676004290560e0 * t1549 * t7188 * t1550 + 0.714469352008581120e0 * t2455 * t16568 + 0.10984233449757140111e2 * t1540 * t22926 * t4786 - 0.22762551443898437297e2 * t4707 * t22941 * t16870 + 0.39207562244901126197e2 * t1540 * t22941 * t16839;
19679   t23092 = t1534 * t939 * t1509;
19680   t23095 = t928 * t4706;
19681   t23113 = t7199 * t577;
19682   t23121 = t7161 * t20152;
19683   t23124 = t2454 * t1539;
19684   t23127 = 0.44950982175490282881e0 * t4823 * t2487 * t4824 - 0.16468529812403272839e0 * t20310 * t23092 + 0.87446194859244818739e0 * t23095 * t16871 - 0.15062248783813849042e1 * t7287 * t16840 - 0.14809616675507404800e2 * t575 * t22927 - 0.61023519165317445059e0 * t1540 * t2475 * t20424 - 0.92817332546461565657e1 * t16763 * t22899 * t20445 + 0.20312390406477209506e2 * t4707 * t22899 * t16870 - 0.714469352008581120e0 * t16787 * t2494 - 0.357234676004290560e0 * t1549 * t23113 * t1529 - 0.12751277419167548965e1 * t7216 * t16549 - 0.12751277419167548965e1 * t7216 * t20177 - 0.17635028716075421460e1 * t23121 * t6092 + 0.16879116930178234168e1 * t23124 * t20073;
19685   t23130 = t940 * t1562;
19686   t23137 = t9553 * t22866;
19687   t23150 = t7222 * t20146;
19688   t23164 = -0.22757459835536707989e1 * t7216 * t20076 - 0.16468529812403272839e0 * t1527 * t23130 + 0.16879116930178234168e1 * t16740 * t7224 - 0.22757459835536707989e1 * t4752 * t7227 - 0.68272379506610123966e1 * t1527 * t23137 - 0.58783429053584738202e0 * t7203 * t20531 + 0.67692822862798455802e0 * t2465 * t16843 + 0.56906378609746093242e1 * t9580 * t9581 * t16852 - 0.59502499971174729837e0 * t20249 * t7222 * t20241 - 0.28372714370060683191e1 * t20383 * t23150 - 0.18307055749595233518e1 * t1540 * t7191 * t4844 + 0.975074869248e0 * t245 * t7260 * t1582 + 0.714469352008581120e0 * t2455 * t20515 - 0.357234676004290560e0 * t1549 * t7299 * t4780;
19689   t23173 = t574 * t7260;
19690   t23193 = t574 * t7230;
19691   t23198 = -0.98018905612252815491e1 * t1540 * t22902 * t4786 + 0.44051698455185959158e1 * t575 * t22903 + 0.80224916908241017663e0 * t7296 * t4831 + 0.89901964350980565762e0 * t23173 * t1551 - 0.2766001889280e1 * t7346 * t4728 - 0.119078225334763520e0 * t1549 * t2497 * t16616 - 0.16468529812403272839e0 * t7355 * t589 - 0.32937059624806545678e0 * t7282 * t4850 - 0.16468529812403272839e0 * t2465 * t16524 - 0.16468529812403272839e0 * t2465 * t16528 + 0.21799717097663792993e0 * t7287 * t16501 - 0.29391714526792369101e0 * t2465 * t16505 - 0.10151298285083840779e1 * t23193 * t4825 - 0.38906391098542524630e0 * t7203 * t20090;
19692   t23203 = t7158 * t574;
19693   t23206 = t2461 * t574;
19694   t23211 = t9540 * t4853;
19695   t23226 = t22860 * t1529;
19696   t23229 = t22860 * t2066;
19697   t23234 = 0.52455980750256876982e0 * t7203 * t20093 - 0.922000629760e0 * t575 * t22895 - 0.25502554838335097929e1 * t23203 * t6118 + 0.38253832257502646895e1 * t23206 * t20043 + 0.25502554838335097929e1 * t7216 * t20526 - 0.63756387095837744823e0 * t6222 * t23211 + 0.44950982175490282881e0 * t7296 * t4854 - 0.21968466899514280222e2 * t1540 * t7196 * t16839 - 0.33837660950279469264e0 * t16821 * t932 * t20577 - 0.16468529812403272839e0 * t2462 * t1584 + 0.12751277419167548965e1 * t16743 * t2472 - 0.14809616675507404800e2 * t9554 * t23226 - 0.98018905612252815489e1 * t9585 * t23229 + 0.44051698455185959158e1 * t9593 * t23226;
19698   t23238 = t22865 * t1550;
19699   t23246 = t2515 * t580;
19700   t23261 = t9540 * t4824;
19701   t23264 = t7268 * t6217;
19702   t23269 = t2471 * t20378;
19703   t23272 = -0.11378729917768353994e1 * t20358 * t23238 - 0.119078225334763520e0 * t16692 * t2494 + 0.76507664515005293790e1 * t7174 * t4736 * t250 - 0.32937059624806545678e0 * t1527 * t23246 + 0.461000314880e0 * t575 * t22974 - 0.25306658097095253694e-1 * t16880 * t2494 - 0.16468529812403272839e0 * t4820 * t7246 + 0.38253832257502646895e1 * t20390 * t23238 + 0.44950982175490282881e0 * t7296 * t4857 + 0.714469352008581120e0 * t9532 * t4808 + 0.80224916908241017662e0 * t20370 * t23261 + 0.1428938704017162240e1 * t6216 * t23264 + 0.714469352008581120e0 * t6216 * t23211 + 0.714469352008581120e0 * t6216 * t23269;
19704   t23285 = t7174 * t20152;
19705   t23297 = t7166 * t574;
19706   t23302 = t2458 * t1539;
19707   t23307 = -0.14699145220411854869e1 * t20746 * t9581 * t20146 + 0.25318675395267351252e1 * t20353 * t23150 - 0.17620679382074383663e2 * t575 * t22942 - 0.13606156761889987933e2 * t1540 * t22899 * t16839 + 0.26206649088979828343e1 * t575 * t22900 + 0.13549589651714352352e0 * t23285 * t6092 - 0.18307055749595233518e1 * t1540 * t22921 * t2066 - 0.11064007557120e2 * t575 * t22929 - 0.12751277419167548965e1 * t6222 * t23264 - 0.63756387095837744823e0 * t6222 * t23269 + 0.63756387095837744823e0 * t23297 * t1530 + 0.63756387095837744823e0 * t7282 * t4781 - 0.84395584650891170840e0 * t23302 * t4787 + 0.11378729917768353994e1 * t7282 * t4790;
19708   t23321 = t939 * t4761;
19709   t23331 = t7336 * t580;
19710   t23334 = t7161 * t1509;
19711   t23339 = t939 * t4699;
19712   t23347 = 0.21252129031945914941e0 * t2461 * t4682 * t250 + 0.325024956416e0 * t245 * t2501 * t4816 + 0.21252129031945914941e0 * t2465 * t16900 - 0.12751277419167548965e1 * t4752 * t7269 - 0.58783429053584738202e0 * t16834 * t2472 - 0.94575714566868943969e0 * t4838 * t23321 * t16839 + 0.12751277419167548965e1 * t1549 * t23321 * t16754 + 0.29391714526792369101e0 * t22918 * t1515 * t250 + 0.41444833874132575653e0 * t20228 * t23331 - 0.38253832257502646895e1 * t23334 * t9722 + 0.8298005667840e1 * t7365 * t20402 - 0.37929099725894513314e0 * t1549 * t23339 * t16754 - 0.12751277419167548965e1 * t2465 * t16509 + 0.21252129031945914941e0 * t16735 * t2472;
19713   t23352 = t1539 * t2501;
19714   t23357 = t939 * t1582;
19715   t23358 = t4718 * t23357;
19716   t23369 = t2514 * t1555;
19717   t23382 = 0.47287857283434471984e0 * t9603 * t4845 - 0.63756387095837744823e0 * t9532 * t4813 - 0.59502499971174729836e0 * t23352 * t4840 - 0.2143408056025743360e1 * t6222 * t23238 + 0.44950982175490282881e0 * t1533 * t23358 + 0.20722416937066287826e0 * t4820 * t7337 + 0.8298005667840e1 * t575 * t22934 + 0.98811178874419637035e0 * t7340 * t589 - 0.2143408056025743360e1 * t7365 * t20652 + 0.714469352008581120e0 * t1549 * t23369 * t4756 + 0.11378729917768353994e1 * t2465 * t16539 - 0.12751277419167548965e1 * t20491 * t574 * t9494 - 0.16468529812403272839e0 * t4774 * t7209 - 0.12751277419167548965e1 * t4774 * t7213;
19718   t23387 = t940 * t1546;
19719   t23400 = t2514 * t1542;
19720   t23406 = t1568 * t7199;
19721   t23415 = t2475 * t4849;
19722   t23418 = t2461 * t20224;
19723   t23423 = 0.29391714526792369101e0 * t16495 * t9501 + 0.21799717097663792992e0 * t4784 * t23387 - 0.89901964350980565762e0 * t2455 * t20473 + 0.44950982175490282881e0 * t2468 * t16874 - 0.48997150734706182895e0 * t16800 * t23339 * t16870 + 0.84395584650891170840e0 * t4838 * t23339 * t16839 - 0.63756387095837744824e0 * t1549 * t23400 * t4756 + 0.461000314880e0 * t22969 * t250 + 0.975074869248e0 * t245 * t23406 * t587 + 0.63756387095837744823e0 * t22963 * t566 * t250 - 0.33837660950279469264e0 * t2468 * t16791 - 0.58783429053584738202e0 * t20671 * t23415 - 0.15183994858257152217e0 * t23418 * t4850 - 0.357234676004290560e0 * t4863 * t7246;
19724   t23444 = t7187 * t242;
19725   t23445 = t1528 * t23444;
19726   t23454 = t2475 * t20676;
19727   t23457 = t2482 * t4849;
19728   t23460 = 0.12751277419167548965e1 * t2465 * t16755 - 0.89901964350980565762e0 * t7296 * t4828 + 0.47287857283434471985e0 * t4838 * t23400 * t4786 + 0.45165298839047841173e-1 * t16749 * t2472 + 0.94575714566868943972e0 * t6238 * t10617 * t6217 + 0.47287857283434471986e0 * t6238 * t7222 * t20378 + 0.47287857283434471985e0 * t6238 * t7222 * t20742 + 0.63756387095837744823e0 * t4774 * t7269 + 0.63756387095837744823e0 * t1527 * t23445 + 0.29391714526792369101e0 * t4777 * t7269 - 0.75919974291285761083e-1 * t7358 * t589 + 0.1428938704017162240e1 * t7346 * t6179 + 0.43599434195327585985e0 * t20675 * t23454 + 0.65874119249613091356e0 * t20671 * t23457;
19729   t23462 = t2454 * t1549;
19730   t23465 = t7169 * t6089;
19731   t23468 = t2461 * t20082;
19732   t23477 = t7169 * t238;
19733   t23483 = t7166 * t238;
19734   t23491 = t4688 * t2514;
19735   t23501 = 0.65874119249613091356e0 * t23462 * t20685 + 0.58783429053584738202e0 * t23465 * t6092 + 0.29391714526792369101e0 * t23468 * t6092 + 0.29391714526792369101e0 * t7203 * t20086 - 0.2766001889280e1 * t575 * t22908 - 0.2766001889280e1 * t575 * t22976 + 0.8298005667840e1 * t23477 * t6057 + 0.63756387095837744823e0 * t7169 * t1509 * t250 - 0.357234676004290560e0 * t23483 * t1535 + 0.2468269445917900800e1 * t575 * t22922 + 0.29391714526792369101e0 * t7174 * t1509 * t9722 - 0.2202015477522235392e1 * t245 * t23491 * t1569 + 0.45165298839047841173e-1 * t22931 * t4736 * t250 - 0.119078225334763520e0 * t1549 * t932 * t16597;
19736   t23519 = t8510 * t2471 * t1569;
19737   t23524 = t2514 * t587;
19738   t23525 = t4718 * t23524;
19739   t23530 = t939 * t1569;
19740   t23531 = t16790 * t23530;
19741   t23539 = 0.8298005667840e1 * t9548 * t23226 + 0.10984233449757140111e2 * t9575 * t23229 - 0.89901964350980565762e0 * t20240 * t23261 + 0.44950982175490282881e0 * t8511 * t2471 * t16856 + 0.822756481972633600e0 * t575 * t22916 - 0.714469352008581120e0 * t1549 * t7328 * t16754 + 0.29619233351014809600e2 * t575 * t22939 + 0.20722416937066287826e0 * t1527 * t23519 + 0.44950982175490282881e0 * t4863 * t7337 + 0.89901964350980565762e0 * t1533 * t23525 - 0.89901964350980565762e0 * t4770 * t7337 - 0.10151298285083840779e1 * t1533 * t23531 + 0.714469352008581120e0 * t4727 * t23092 + 0.56906378609746093243e1 * t4707 * t22902 * t6256;
19742   t23544 = my_piecewise3(t235, 0, t22884 + t23007 + t23050 + t23085 + t23127 + t23164 + t23198 + t23234 + t23272 + t23307 + t23347 + t23382 + t23423 + t23460 + t23501 + t23539);
19743   t23545 = my_piecewise3(t234, 0, t23544);
19744   t23547 = 0.3e1 * t1509 * t2520 + 0.3e1 * t1588 * t2450 + t22833 * t252 + t233 * t23545 + t4682 * t945 + t4869 * t926 + 0.3e1 * t566 * t7386 + 0.3e1 * t593 * t7148;
19745   t23553 = t7437 * t618;
19746   t23562 = -t23547;
19747   t23573 = t6362 * t947;
19748   t23588 = 0.100e3 / 0.27e2 * t7452 * t22645 - 0.50e2 / 0.27e2 * t22648 * t7443 + 0.50e2 / 0.81e2 * t617 * t2557 * t947 * t4875 + 0.5e1 / 0.3e1 * t2554 * t7469 - 0.5e1 / 0.3e1 * t7439 * t7446 - 0.50e2 / 0.27e2 * t7442 * t599 * t36 * t22660 + 0.10000e5 / 0.729e3 * t20784 * t22664 * t24 - params->c1 * t23547 * t279 + 0.5e1 / 0.9e1 * t4914 * t19 * t963 - 0.5e1 / 0.3e1 * t23553 * t2551 + 0.100e3 / 0.27e2 * t4917 * t2559 + 0.50e2 / 0.27e2 * t617 * t2557 * t2522 * t1594 + 0.5e1 / 0.9e1 * t961 * t962 * t23562 + 0.50e2 / 0.27e2 * t617 * t2557 * t7388 * t599 - 0.5e1 / 0.9e1 * t2550 * t4956 * t23 + 0.500e3 / 0.27e2 * t4920 * t23573 + 0.5e1 / 0.3e1 * t7449 * t2562 - 0.500e3 / 0.81e2 * t959 * t4923 * t345 + 0.500e3 / 0.27e2 * t2150 * t2577 * t599 * t1594 + 0.500e3 / 0.27e2 * t2150 * t7498 * t1598;
19749   t23606 = t4017 * t17071;
19750   t23607 = t22664 * t17049;
19751   t23610 = t449 * t4952;
19752   t23613 = t1263 * t4965;
19753   t23617 = t2164 * t68 * t1594;
19754   t23623 = t14957 * t17089;
19755   t23627 = t449 * t1630 * t7388;
19756   t23635 = t1263 * t4952 * t2522;
19757   t23640 = t449 * t7498;
19758   t23648 = t4017 * t4965 * t2522;
19759   t23652 = t1263 * t1654 * t7388;
19760   t23657 = 0.1000e4 / 0.81e2 * t23606 * t23607 + 0.2000e4 / 0.81e2 * t23610 * t23607 + 0.1000e4 / 0.27e2 * t23613 * t23607 + 0.50e2 / 0.9e1 * t7482 * t23617 + t449 * t618 * t23562 * t285 + 0.250e3 / 0.243e3 * t23623 * t23607 + 0.10e2 / 0.3e1 * t23627 * t628 + 0.10e2 / 0.9e1 * t2571 * t4957 + 0.50e2 / 0.9e1 * t7490 * t23617 + 0.50e2 / 0.9e1 * t23635 * t1646 + 0.10e2 / 0.3e1 * t7486 * t1650 + 0.50e2 / 0.9e1 * t23640 * t1646 + 0.25e2 / 0.27e2 * t7505 * t23617 + 0.5e1 / 0.9e1 * t2578 * t4957 + 0.25e2 / 0.27e2 * t23648 * t1646 + 0.5e1 / 0.3e1 * t23652 * t628 + 0.5e1 / 0.3e1 * t7499 * t1650;
19761   t23658 = my_piecewise3(t277, 0.3e1 * t1638 * t2565 * t283 + 0.3e1 * t1640 * t2565 * t283 + t283 * t4934 * t966 + t283 * t4939 * t966 + 0.3e1 * t283 * t623 * t7472 + t23588 * t283 + 0.3e1 * t624 * t7477, t23657);
19762   t23660 = t1423 * t1614;
19763   t23667 = t4566 * t608;
19764   t23678 = t7417 * t288;
19765   t23689 = t2537 * t631;
19766   t23702 = t1609 * t7388;
19767   t23705 = t16979 * t947;
19768   t23708 = t4956 * t2527;
19769   t23716 = t4897 * t2522;
19770   t23721 = t2523 * t264;
19771   t23731 = t345 * t262;
19772   t23732 = t23731 * t266;
19773   t23735 = t7389 * t262;
19774   t23744 = -t604 * t23562 * t266 / 0.100e3 - t4897 * t7465 * t2131 / 0.108e3 - t23702 * t2528 / 0.60e2 - 0.5e1 / 0.486e3 * t23705 * t4899 + t2526 * t23708 / 0.60e2 + t56 * t23562 * t266 / 0.100e3 + 0.25e2 / 0.243e3 * t2534 * t4899 - t23716 * t7403 / 0.108e3 - t9796 * t6327 / 0.36e2 + t23721 * t7403 / 0.18e2 + t7392 * t7398 / 0.20e2 - t7409 * t7398 / 0.60e2 - t2534 * t23708 / 0.180e3 - 0.25e2 / 0.162e3 * t948 * t4882 * t23732 + t23735 * t2528 / 0.20e2 - t2523 * t1598 * t1611 / 0.36e2 + t948 * t20920 * t2131 / 0.18e2;
19775   t23752 = -0.12e2 * t510 * t7073 * t631 + 0.1174e1 * t23658 - 0.12e2 * t23660 * t2419 - 0.12e2 * t7055 * t7066 - 0.24e2 * t7055 * t7059 + 0.36e2 * t23667 * t7052 - 0.36e2 * t7051 * t7062 * t1424 + 0.24e2 * t7055 * t7063 - 0.6e1 * t510 * t2422 * t1659 - 0.12e2 * t2417 * t23678 * t611 - 0.6e1 * t4566 * t4567 * t971 + 0.6e1 * t510 * t1614 * t2537 * t288 + 0.24e2 * t2417 * t23689 * t611 - 0.4e1 * t2417 * t2418 * t4905 + 0.2e1 * t510 * t269 * t23744 * t288 - 0.3e1 * t510 * t611 * t7509;
19776   t23796 = t953 * t1659;
19777   t23802 = t16323 * t269;
19778   t23806 = -t276 * t23658 + 0.6e1 * t1423 * t2545 * t1617 + 0.6e1 * t510 * t608 * t7417 * t288 - 0.6e1 * t510 * t2538 * t1659 - 0.12e2 * t2417 * t7058 * t1617 - 0.6e1 * t510 * t7069 * t631 - 0.6e1 * t510 * t7418 * t631 + 0.2e1 * t510 * t4902 * t953 * t288 + 0.6e1 * t1423 * t1424 * t2582 + 0.12e2 * t2417 * t7062 * t1617 - 0.3e1 * t510 * t1617 * t2582 + 0.36e2 * t7051 * t7058 * t1424 + 0.36e2 * t7051 * t2418 * t611 * t1617 - 0.2e1 * t510 * t954 * t4970 + 0.12e2 * t2417 * t23796 * t611 - t510 * t4905 * t971 - 0.48e2 * t23802 * t2418 * t4567;
19779   t23816 = t2399 * t913 * t7512;
19780   t23841 = -0.32302153261130400000e3 * t22373 * t22635 * t5044 - t2220 * t6980 * t5033 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t913 * (t23752 + t23806) * t302 - 0.2e1 / 0.3e1 * t22512 - 0.89062200000000000000e2 * t7518 * t1677 - 0.74218500000000000000e1 * t23816 * t649 + t22401 - 0.3e1 / 0.2e1 * t22563 + t2220 * t22402 * t5006 / 0.9e1 - 0.3e1 / 0.2e1 * t2220 * t7019 * t1415 - t22503 / 0.2e1 - 0.3e1 / 0.2e1 * t2220 * t22565 * t504 - t2220 * t2406 * t4982 / 0.2e1 - t2220 * t22491 * t1402 / 0.2e1 - 0.2e1 * t22577 - 0.2e1 / 0.3e1 * t22584 - 0.4e1 * t22587 + 0.23090200000000000000e2 * t7029 * t5049;
19781   t23869 = t974 * t4519 * t3557;
19782   t23874 = t974 * t19 * t38;
19783   t23883 = -0.32986000000000000000e1 * t22523 * t4541 - 0.19791600000000000000e2 * t22593 * t1411 - 0.98958000000000000000e1 * t7029 * t4548 - 0.11874960000000000000e3 * t7029 * t4552 + 0.32216644838286502747e3 * t22598 - 0.19241833333333333333e2 * t2591 * t5016 + 0.17317650000000000000e2 * t7518 * t1682 + 0.32216644838286502747e3 * t22608 * t5029 + 0.20781180000000000000e3 * t2591 * t5011 - 0.32986000000000000000e1 * t22482 + 0.23090200000000000000e2 * t22611 - 0.11874960000000000000e3 * t22613 - 0.19791600000000000000e2 * t22616 + 0.24162483628714877061e3 * t7526 * t2585 * t837 * t1688 * t1690 - 0.59374800000000000000e3 * t9951 * t23869 * t4524 + 0.16536775210765846035e1 * t7526 * t23874 * t4531 - 0.24162483628714877060e3 * t7526 * t7527 * t203 * t1690 - 0.26388800000000000000e2 * t22618;
19784   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
19785     v4rho3lapl[7] = t23841 + t23883;
19786 
19787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19788     v4rho3tau[0] = 0.0e0;
19789 
19790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19791     v4rho3tau[1] = 0.0e0;
19792 
19793   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19794     v4rho3tau[2] = 0.0e0;
19795 
19796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19797     v4rho3tau[3] = 0.0e0;
19798 
19799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19800     v4rho3tau[4] = 0.0e0;
19801 
19802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19803     v4rho3tau[5] = 0.0e0;
19804 
19805   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19806     v4rho3tau[6] = 0.0e0;
19807 
19808   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19809     v4rho3tau[7] = 0.0e0;
19810 
19811   t23891 = t7565 / 0.4e1;
19812   t23895 = 0.75507761339733990814e1 * t7586;
19813   t23896 = -0.90849806046929250000e2 * t7538 - 0.49479000000000000000e1 * t7542 + 0.37109250000000000000e1 * t7544 - 0.83495812500000000000e1 * t7546 + 0.44531100000000000000e2 * t7551 - 0.12081241814357438530e3 * t7556 - 0.16699162500000000000e3 * t7562 - t23891 - t7569 + 0.46509680280278941972e0 * t7574 + 0.60406209071787192652e2 * t7578 + 0.22652328401920197244e2 * t7583 + t23895;
19814   t23898 = 0.27831937500000000000e1 * t7593;
19815   t23900 = 0.30924375000000000000e0 * t7600;
19816   t23901 = 0.12369750000000000000e1 * t7602;
19817   t23908 = t5086 * t7537;
19818   t23924 = t322 * t2748;
19819   t23926 = t310 * t23924 * t317;
19820   t23928 = t17 * t8074;
19821   t23931 = t3593 * t7620;
19822   t23952 = t18829 * t745;
19823   t23954 = t4072 * t2763;
19824   t23964 = -0.30283268682309750000e2 * t23908 + 0.24226614945847800000e3 * t1926 * t737 * t2755 * t5672 - 0.16655797775270362500e3 * t1926 * t7533 * t5672 - 0.90849806046929250000e2 * t1926 * t459 * t7532 * t7536 - t986 * t7567 * t988 / 0.6e1 - t23926 / 0.3e1 - t310 * t23928 * t317 - 0.37109250000000000000e1 * t23931 + 0.16493000000000000000e1 * t1001 * t475 * t7588 * t1002 - 0.11132775000000000000e2 * t4117 * t7620 - 0.55663875000000000000e1 * t1001 * t1286 * t2756 * t4120 + 0.18554625000000000000e1 * t17363 * t745 + 0.15101552267946798163e2 * t4059 * t7609 * t14111 - 0.46386562500000000000e0 * t4052 * t2763 - 0.49479000000000000000e1 * t5129 * t1935 + 0.12369750000000000000e1 * t23952 - 0.30924375000000000000e0 * t23954 + 0.11132775000000000000e2 * t1279 * t7597 - 0.18554625000000000000e1 * t3585 * t1286 * t2756 * t3586 - 0.41747906250000000000e1 * t4052 * t2758;
19825   t23966 = t469 * t323 * t2748;
19826   t23967 = t23966 * t480;
19827   t23974 = t1939 * t72;
19828   t23995 = t18703 * t1919;
19829   t24000 = t469 * t999 * t2748;
19830   t24005 = t8 * t1017 * t2749 / 0.12e2;
19831   t24017 = t4072 * t2758;
19832   t24019 = t14115 * t742;
19833   t24020 = t7558 * t166;
19834   t24026 = t8 * t323 * t8075;
19835   t24046 = t1866 * t1866;
19836   t24058 = t2721 * t345;
19837   t24066 = t1764 * t1764;
19838   t24090 = -t68 * t7659 * t1115 / 0.17496e5 + 0.3e1 / 0.2e1 * t1091 * t24066 - t1737 * t5265 + 0.3e1 / 0.4e1 * t14272 * t2619 - t3683 * t2632 / 0.2e1 - t1086 * t7710 - t17530 * t681 - 0.2e1 * t5201 * t1764 + 0.3e1 / 0.2e1 * t1091 * t681 * t5265 + 0.3e1 / 0.2e1 * t5203 * t5219 - 0.15e2 / 0.8e1 * t3694 * t2632 * t1092 + 0.3e1 * t3686 * t7672 + 0.3e1 * t17519 * t1742;
19839   t24102 = t45 * t1090;
19840   t24118 = t338 * t375;
19841   t24129 = t5255 * sigma[0];
19842   t24132 = t68 * t1042;
19843   t24154 = t2622 * t1106;
19844   t24155 = t24154 * t36;
19845   t24158 = t5222 * t2627 / 0.4374e4 + 0.20e2 / 0.19683e5 * t5225 * t7697 - 0.5375e4 / 0.2916e4 * t3721 * t24129 + 0.475e3 / 0.486e3 * t1107 * t24132 - 0.16e2 / 0.6561e4 * t1745 * t7700 - 0.430e3 / 0.59049e5 * t1098 * t24129 + 0.152e3 / 0.19683e5 * t377 * t24132 + 0.25e2 / 0.432e3 * t14309 * t2627 - 0.220e3 / 0.81e2 * t7683 * t1067 + 0.80e2 / 0.27e2 * t5226 * t1706 + 0.80e2 / 0.27e2 * t5234 * t1706 - 0.440e3 / 0.81e2 * t1748 * t5167 - 0.50e2 / 0.81e2 * t5244 * t1758 * t378 + 0.100e3 / 0.243e3 * t24155 * t1110;
19846   t24183 = t3707 * t345;
19847   t24185 = t1059 * t41 * t24;
19848   t24190 = t1751 * t1751;
19849   t24195 = -0.5e1 / 0.9e1 * t17539 * t654 - 0.10e2 / 0.9e1 * t17542 * t654 - 0.1000e4 / 0.729e3 * t17585 * t5256 - 0.5e1 / 0.9e1 * t17552 * t654 + 0.25e2 / 0.432e3 * t5244 * t2598 * t1102 + 0.125e3 / 0.243e3 * t17593 * t350 * t378 * sigma[0] + 0.25e2 / 0.9e1 * t5231 * t5197 + 0.80e2 / 0.27e2 * t8717 * t1751 * t334 - 0.50e2 / 0.81e2 * t17546 * t1733 - 0.50e2 / 0.81e2 * t17549 * t1733 + 0.50e2 / 0.177147e6 * t24183 * t24185 + 0.3125e4 / 0.26244e5 * t14334 * t24185 + 0.4e1 * t24190 * t89 + 0.4e1 * t2970 * t5239;
19850   t24199 = 0.3e1 / 0.2e1 * t1091 * t7710 * t387 + 0.76e2 / 0.19683e5 * t68 * t1042 * t93 + 0.3e1 * t5203 * t5216 + 0.105e3 / 0.16e2 * t14287 * t2619 * t1092 + t68 * t24102 * t1092 / 0.11664e5 - 0.15e2 / 0.8e1 * t3694 * t2619 * t1115 - 0.15e2 / 0.4e1 * t14277 * t7669 - 0.15e2 / 0.4e1 * t17523 * t5213 + 0.3e1 / 0.4e1 * t1091 * t2632 * t1115 + 0.3e1 / 0.2e1 * t3686 * t7677 + 0.4e1 / 0.6561e4 * t68 * t24118 * t387 - 0.15e2 / 0.2e1 * t3694 * t1742 * t1764 - t376 * (t24158 + t24195) / 0.2e1;
19851   t24200 = t24090 + t24199;
19852   t24214 = t686 * t1158;
19853   t24219 = t686 * t3793;
19854   t24224 = t1151 * t7770;
19855   t24237 = t3856 * t1790 * t1835;
19856   t24241 = t5393 * t7817 * t411;
19857   t24244 = t7817 * t402;
19858   t24245 = t8849 * t24244;
19859   t24260 = 0.43916079499742060904e0 * t24214 * t18011 - 0.10122663238838101478e0 * t18378 * t5295 + 0.29066289463551723990e0 * t24219 * t18016 - 0.39188952702389825468e0 * t24214 * t18019 - 0.12204703833063489012e1 * t1149 * t24224 * t1795 + 0.14983660725163427627e0 * t3771 * t7918 * t3833 + 0.21252129031945914941e0 * t7753 * t1118 * t112 + 0.21958039749871030452e0 * t3837 * t7851 - 0.21958039749871030452e0 * t1136 * t24237 + 0.14533144731775861996e0 * t3861 * t24241 + 0.33758233860356468337e1 * t3861 * t24245 - 0.10979019874935515226e0 * t1784 * t17877 + 0.14533144731775861995e0 * t5399 * t17888 - 0.19594476351194912734e0 * t1784 * t17874 - 0.10979019874935515226e0 * t3827 * t7851 - 0.50613316194190507389e-1 * t3830 * t7851 + 0.21958039749871030452e0 * t1784 * t17700;
19860   t24261 = t1773 * t5268;
19861   t24264 = t1790 * t18109;
19862   t24270 = t5498 * t7784;
19863   t24273 = t1806 * t1806;
19864   t24275 = t1164 * t24273 * t104;
19865   t24278 = t1123 * t7713;
19866   t24282 = t393 * t24200;
19867   t24290 = t7732 * t398;
19868   t24293 = t1132 * t7713;
19869   t24297 = t697 * t1152;
19870   t24298 = t1790 * t24297;
19871   t24303 = t1771 * t107;
19872   t24304 = t1821 * t5513;
19873   t24307 = t3001 * t18109;
19874   t24310 = t411 * t1806;
19875   t24320 = 0.42504258063891829882e0 * t5441 * t24261 - 0.19746155567343206400e2 * t8896 * t24264 + 0.59934642900653710508e0 * t7822 * t5498 * t5494 + 0.952625802678108160e0 * t5388 * t24270 - 0.1844001259520e1 * t399 * t24275 - 0.1844001259520e1 * t24278 * t100 * t1774 + 0.461000314880e0 * t24282 * t112 + 0.75875171479661457657e1 * t8899 * t12616 * t18109 - 0.42504258063891829882e0 * t3837 * t7807 + 0.42504258063891829882e0 * t24290 * t1139 + 0.42504258063891829882e0 * t24293 * t390 * t112 - 0.1428938704017162240e1 * t5394 * t24298 - 0.75858199451789026628e0 * t3837 * t7810 - 0.11986928580130742102e1 * t24303 * t24304 + 0.14645644599676186814e2 * t8850 * t24307 + 0.63050476377912629316e0 * t5504 * t3001 * t24310 - 0.97994301469412365794e0 * t18264 * t11782 * t5389 - 0.119078225334763520e0 * t1158 * t2667 * t3786;
19876   t24324 = t2675 * t404;
19877   t24335 = t5319 * t1808;
19878   t24338 = t7806 * t5389;
19879   t24343 = t2653 * t402;
19880   t24344 = t24343 * t104;
19881   t24345 = t8849 * t24344;
19882   t24349 = t3856 * t7806 * t411;
19883   t24352 = t7806 * t402;
19884   t24353 = t3840 * t24352;
19885   t24356 = t8876 * t24244;
19886   t24360 = t3856 * t5498 * t697;
19887   t24365 = t7741 * t5317;
19888   t24368 = t7721 * t398;
19889   t24373 = -0.119078225334763520e0 * t3819 * t7781 + 0.13814944624710858551e0 * t1136 * t24324 - 0.21958039749871030452e0 * t1784 * t17693 - 0.45514919671073415976e1 * t1784 * t17712 + 0.39188952702389825468e0 * t18181 * t7767 + 0.19594476351194912734e0 * t17867 * t7767 + 0.39188952702389825468e0 * t5318 * t24335 + 0.476312901339054080e0 * t5388 * t24338 - 0.54895099374677576130e-1 * t3750 * t7781 - 0.45514919671073415978e1 * t1136 * t24345 - 0.10979019874935515226e0 * t1136 * t24349 - 0.85008516127783659765e0 * t1136 * t24353 - 0.30124497567627698084e1 * t3861 * t24356 - 0.21958039749871030452e0 * t1136 * t24360 + 0.21958039749871030452e0 * t7797 * t3858 - 0.11756685810716947640e1 * t24365 * t5320 - 0.85008516127783659765e0 * t24368 * t5314 + 0.25502554838335097930e1 * t7803 * t5314;
19890   t24375 = t3862 * t11009 * t402;
19891   t24378 = t3862 * t24352;
19892   t24381 = t7793 * t411;
19893   t24382 = t5393 * t24381;
19894   t24385 = t1790 * t1806;
19895   t24386 = t3862 * t24385;
19896   t24389 = t5494 * t402;
19897   t24393 = t2658 * t411;
19898   t24394 = t8851 * t24393;
19899   t24397 = t2688 * t404;
19900   t24410 = t7741 * t100;
19901   t24421 = t7745 * t5317;
19902   t24424 = -0.56263723100594113894e0 * t3861 * t24375 + 0.75858199451789026628e0 * t1136 * t24378 - 0.19594476351194912734e0 * t1136 * t24382 + 0.15171639890357805326e1 * t1136 * t24386 - 0.79336666628232973116e0 * t18098 * t3001 * t24389 + 0.10696655587765469022e1 * t18102 * t24394 - 0.10979019874935515226e0 * t1136 * t24397 + 0.13814944624710858551e0 * t1784 * t17837 + 0.25502554838335097929e1 * t1784 * t17840 - 0.21958039749871030452e0 * t5508 * t5309 - 0.50613316194190507388e-1 * t7803 * t3858 - 0.922000629760e0 * t7722 * t3768 - 0.11064007557120e2 * t24410 * t5442 - 0.17001703225556731953e1 * t5508 * t5299 - 0.17001703225556731953e1 * t1784 * t17716 - 0.85008516127783659764e0 * t1784 * t17707 + 0.33758233860356468336e1 * t5399 * t18238 + 0.90330597678095682346e-1 * t24421 * t5320;
19903   t24429 = t7753 * t5317;
19904   t24432 = t111 * t1767;
19905   t24433 = t24432 * t404;
19906   t24439 = t1137 * t1790 * t1124;
19907   t24445 = t1137 * t5498 * t390;
19908   t24461 = t7793 * t5389;
19909   t24464 = t1790 * t24310;
19910   t24467 = t7817 * t5389;
19911   t24475 = -0.10979019874935515226e0 * t7800 * t3858 + 0.19594476351194912734e0 * t24429 * t5320 + 0.39188952702389825468e0 * t17743 * t24433 - 0.17001703225556731953e1 * t5312 * t24433 + 0.25502554838335097929e1 * t17743 * t24439 - 0.17001703225556731953e1 * t17804 * t7760 - 0.17001703225556731953e1 * t5312 * t24445 - 0.85008516127783659764e0 * t5312 * t17728 - 0.11756685810716947640e1 * t18184 * t7767 - 0.21958039749871030452e0 * t5508 * t5295 - 0.21958039749871030452e0 * t1784 * t17856 - 0.10979019874935515226e0 * t1784 * t17860 - 0.12751277419167548965e1 * t7741 * t1118 * t112 + 0.25502554838335097930e1 * t18277 * t24461 - 0.85008516127783659765e0 * t5394 * t24464 + 0.16879116930178234169e1 * t18077 * t24467 - 0.75858199451789026628e0 * t18063 * t24461 - 0.29967321450326855254e0 * t3771 * t2662 * t3772;
19912   t24487 = t7770 * t104;
19913   t24488 = t1137 * t24487;
19914   t24496 = t2687 * t411;
19915   t24497 = t3802 * t24496;
19916   t24518 = -0.10122663238838101478e0 * t18378 * t5309 + 0.650049912832e0 * t107 * t1821 * t5472 + 0.21252129031945914941e0 * t3827 * t7807 + 0.97972381755974563669e-1 * t3830 * t7807 + 0.37929099725894513314e0 * t3827 * t7810 + 0.42504258063891829882e0 * t1136 * t24488 + 0.76507664515005293790e1 * t7745 * t1124 * t112 - 0.1844001259520e1 * t1772 * t24261 + 0.29967321450326855254e0 * t1142 * t24497 + 0.90330597678095682346e-1 * t17871 * t7767 - 0.11252744620118822779e1 * t17996 * t5303 - 0.11252744620118822779e1 * t5399 * t17738 - 0.56263723100594113893e0 * t5399 * t17844 + 0.17489238971848963747e1 * t18003 * t17848 - 0.30124497567627698084e1 * t5399 * t17852 + 0.15171639890357805325e1 * t5508 * t5306 + 0.15171639890357805325e1 * t1784 * t17723 + 0.75858199451789026627e0 * t1784 * t18215;
19917   t24525 = t3862 * t3001 * t1806;
19918   t24529 = t8876 * t11782 * t402;
19919   t24534 = -t401 * t24200 * t104;
19920   t24537 = t8876 * t24344;
19921   t24540 = t5387 * t24381;
19922   t24543 = t3862 * t24344;
19923   t24546 = t3840 * t24385;
19924   t24549 = t1835 * t402;
19925   t24553 = t8851 * t7831;
19926   t24563 = t2674 * t1151;
19927   t24576 = 0.13538564572559691160e1 * t1784 * t17883 - 0.11986928580130742102e1 * t17987 * t24394 - 0.11252744620118822779e1 * t3861 * t24525 + 0.17489238971848963748e1 * t14682 * t24529 + 0.461000314880e0 * t399 * t24534 + 0.13538564572559691160e1 * t1136 * t24537 + 0.21958039749871030452e0 * t1136 * t24540 + 0.25502554838335097930e1 * t1136 * t24543 - 0.17001703225556731953e1 * t1136 * t24546 + 0.63050476377912629314e0 * t5504 * t3001 * t24549 - 0.85008516127783659766e0 * t5394 * t24553 + 0.27629889249421717102e0 * t5318 * t5495 - 0.29967321450326855254e0 * t7738 * t3803 - 0.476312901339054080e0 * t1158 * t1807 * t7831 - 0.19834166657058243279e0 * t14518 * t24563 * t3863 + 0.26741638969413672554e0 * t3771 * t24563 * t3841 + 0.29967321450326855254e0 * t398 * t7749 * t1160 - 0.67675321900558938528e0 * t398 * t7725 * t1160;
19928   t24584 = t7840 * t3841;
19929   t24593 = t1143 * t7914;
19930   t24603 = t398 * t3814 * t401;
19931   t24621 = 0.59934642900653710508e0 * t5382 * t5486 + 0.31525238188956314657e0 * t5504 * t11009 * t5389 - 0.42504258063891829882e0 * t5394 * t24338 - 0.11064007557120e2 * t399 * t24584 + 0.2766001889280e1 * t7729 * t3768 + 0.69074723123554292753e-1 * t7729 * t3803 + 0.65874119249613091356e0 * t5340 * t699 - 0.238156450669527040e0 * t1142 * t24593 - 0.42504258063891829882e0 * t7800 * t3842 - 0.19594476351194912734e0 * t7803 * t3842 + 0.56263723100594113894e0 * t14540 * t7818 - 0.67675321900558938528e0 * t24603 * t1790 * t18287 - 0.1428938704017162240e1 * t5394 * t24461 + 0.952625802678108160e0 * t5388 * t24464 - 0.18915142913373788795e1 * t18106 * t24467 + 0.11064007557120e2 * t8893 * t24264 - 0.2936020636696313856e1 * t9046 * t5494 * t1835 + 0.2766001889280e1 * t7753 * t100 * t5442;
19932   t24625 = t14573 * t2639;
19933   t24638 = t7857 * t3833;
19934   t24641 = t14379 * t2653;
19935   t24645 = t24641 * t3841;
19936   t24656 = t7877 * t3833;
19937   t24659 = t1154 * t5426;
19938   t24668 = t14382 * t1152;
19939   t24676 = t1825 * t1767;
19940   t24679 = t24224 * t1138;
19941   t24682 = t7909 * t3833;
19942   t24684 = t1767 * t1767;
19943   t24685 = t1123 * t24684;
19944   t24694 = -0.42833280e2 * t7741 * t5445 - 0.76445411481600e2 * t5422 * t17715 + 0.42833280e2 * t1780 * t24676 + 0.6370450956800e1 * t24679 - 0.3569440e1 * t24656 + 0.3185225478400e1 * t24682 - 0.7138880e1 * t24685 * t109 - 0.68216827389720576000e2 * t24625 * t5445 + 0.5684735615810048000e1 * t24638 + 0.10708320e2 * t7753 * t5445 - 0.7138880e1 * t24275;
19945   t24695 = t2654 * t3833;
19946   t24697 = t7909 * t3841;
19947   t24699 = t3757 * t2666;
19948   t24700 = t24699 * t3841;
19949   t24703 = t3879 * t2635;
19950   t24708 = t7840 * t3833;
19951   t24711 = t1802 * t18133;
19952   t24717 = 0.10708320e2 * t24695 + 0.10708320e2 * t24697 + 0.5684735615810048000e1 * t24700 + 0.1784720e1 * t24534 + 0.5684735615810048000e1 * t24703 * t5445 - 0.7138880e1 * t24278 * t1825 - 0.19111352870400e2 * t24708 + 0.10145661348248508867e2 * t24645 - 0.7138880e1 * t24711 - 0.19111352870400e2 * t7741 * t3897 + 0.22738942463240192000e2 * t5374 * t24676;
19953   t24719 = t14528 * t2639;
19954   t24730 = t3741 * t2666;
19955   t24731 = t24730 * t3841;
19956   t24733 = t1151 * t24273;
19957   t24734 = t24733 * t104;
19958   t24738 = t14420 * t2653;
19959   t24739 = t24738 * t3841;
19960   t24742 = t1164 * t7770 * t1138;
19961   t24746 = 0.10145661348248508867e2 * t24719 * t5445 + 0.10708320e2 * t2646 * t3897 + 0.1784720e1 * t24282 * t109 + 0.3185225478400e1 * t7753 * t3897 + 0.5684735615810048000e1 * t7745 * t3897 - 0.19111352870400e2 * t24731 + 0.6370450956800e1 * t24734 - 0.76445411481600e2 * t5339 * t24676 - 0.68216827389720576000e2 * t24739 - 0.7138880e1 * t24742 + 0.6370450956800e1 * t24293 * t1825;
19962   t24749 = t109 * t5268;
19963   t24754 = t3874 * t2635;
19964   t24759 = t1794 * t18133;
19965   t24761 = t7857 * t3841;
19966   t24766 = t1132 * t24684;
19967   t24771 = -0.3569440e1 * t7721 * t3897 - 0.7138880e1 * t1771 * t24749 + 0.42833280e2 * t1794 * t17715 - 0.19111352870400e2 * t24754 * t5445 + 0.22738942463240192000e2 * t5354 * t17715 + 0.6370450956800e1 * t24759 + 0.114668117222400e3 * t24761 + 0.114668117222400e3 * t7745 * t5445 - 0.42833280e2 * t24584 + 0.6370450956800e1 * t24766 * t109 + 0.6370450956800e1 * t1780 * t24749;
19968   t24780 = -0.11756685810716947640e1 * t24625 * t1124 * t112 - 0.29967321450326855254e0 * t3783 * t7778 + 0.650049912832e0 * t107 * t1177 * t7914 * t411 + 0.238156450669527040e0 * t1158 * t2662 * t3786 + 0.14683899485061986386e1 * t399 * t24638 - 0.13606156761889987933e2 * t1149 * t24641 * t3863 + 0.26206649088979828343e1 * t399 * t24645 - 0.734005159174078464e0 * t107 * t3814 * t2687 * t1178 - 0.13069187414967042065e2 * t8904 * t24307 + 0.58735597940247945544e1 * t8877 * t24264 - 0.922000629760e0 * t399 * t24656 - 0.12204703833063489012e1 * t1149 * t1794 * t24659 - 0.50613316194190507389e-1 * t5375 * t699 + 0.18968792869915364414e1 * t3755 * t7857 * t14606 - 0.92817332546461565657e1 * t14377 * t24641 * t24668 - 0.258304e0 * t107 * t407 * (t24694 + t24717 + t24746 + t24771) - 0.19834166657058243280e0 * t14518 * t2654 * t14519;
19969   t24782 = t1143 * t697 * t1124;
19970   t24789 = t2674 * t411;
19971   t24790 = t14496 * t24789;
19972   t24795 = t697 * t1835;
19973   t24796 = t3802 * t24795;
19974   t24800 = t1143 * t1835 * t390;
19975   t24830 = -0.1428938704017162240e1 * t5441 * t24782 - 0.67675321900558938528e0 * t1787 * t18288 + 0.59934642900653710508e0 * t1787 * t17924 - 0.67675321900558938528e0 * t1142 * t24790 - 0.238156450669527040e0 * t17971 * t1814 + 0.59934642900653710508e0 * t1142 * t24796 + 0.952625802678108160e0 * t1772 * t24800 + 0.1645512963945267200e1 * t399 * t24679 - 0.61023519165317445059e0 * t1149 * t7909 * t3888 + 0.18968792869915364414e1 * t3755 * t24699 * t5355 - 0.32672968537417605163e1 * t1149 * t24699 * t3863 + 0.822756481972633600e0 * t399 * t24682 + 0.14683899485061986386e1 * t399 * t24700 + 0.42504258063891829882e0 * t24766 * t112 + 0.238156450669527040e0 * t3783 * t7781 + 0.36614111499190467036e1 * t1149 * t7840 * t3888 - 0.22762551443898437297e2 * t3755 * t24738 * t5355 - 0.17620679382074383663e2 * t399 * t24739;
19976   t24848 = t104 * t390;
19977   t24849 = t24848 * t411;
19978   t24850 = t690 * t24849;
19979   t24855 = t5317 * t1147;
19980   t24856 = t1780 * t24855;
19981   t24880 = -0.1844001259520e1 * t399 * t24711 + 0.2766001889280e1 * t399 * t24695 - 0.21968466899514280222e2 * t1149 * t7857 * t3863 + 0.29619233351014809600e2 * t399 * t24761 + 0.14983660725163427627e0 * t3819 * t7778 + 0.238156450669527040e0 * t7738 * t3747 - 0.12204703833063489012e1 * t1149 * t24733 * t1154 + 0.43916079499742060904e0 * t18251 * t24850 - 0.78377905404779650936e0 * t18378 * t5299 - 0.51875188131390032840e0 * t24856 * t5303 + 0.69941307667009169309e0 * t18378 * t5306 - 0.734005159174078464e0 * t107 * t7725 * t1191 + 0.1645512963945267200e1 * t399 * t24759 - 0.21252129031945914941e0 * t1158 * t2654 * t3786 - 0.238156450669527040e0 * t1158 * t7771 * t1159 - 0.4936538891835801600e1 * t399 * t24708 + 0.39207562244901126197e2 * t1149 * t24738 * t3863 + 0.26741638969413672554e0 * t3771 * t2654 * t3772;
19982   t24888 = t104 * t5472;
19983   t24899 = t1773 * t1767 * t390;
19984   t24906 = t2646 * t1148;
19985   t24919 = t2687 * t1151;
19986   t24932 = -0.238156450669527040e0 * t1158 * t5427 * t2658 + 0.23916119461575365556e1 * t107 * t14477 * t2674 * t1178 - 0.238156450669527040e0 * t1158 * t690 * t24888 - 0.32672968537417605163e1 * t1149 * t7857 * t3888 + 0.20312390406477209506e2 * t3755 * t24641 * t5355 - 0.51005109676670195860e1 * t18024 * t24899 - 0.10979019874935515226e0 * t7754 * t413 + 0.17485326916752292327e0 * t3830 * t7810 - 0.12968797032847508210e0 * t24906 * t3864 + 0.17485326916752292327e0 * t7803 * t3867 + 0.42504258063891829882e0 * t18187 * t1791 + 0.85008516127783659764e0 * t5508 * t5499 - 0.238156450669527040e0 * t1787 * t18055 + 0.69074723123554292755e-1 * t3750 * t7778 - 0.21252129031945914941e0 * t1158 * t24919 * t3841 + 0.238156450669527040e0 * t1158 * t2687 * t1164 * t3841 - 0.1844001259520e1 * t399 * t24742 - 0.119078225334763520e0 * t1158 * t7947 * t3833;
19987   t24940 = t1835 * t1835;
19988   t24947 = t1143 * t1767 * t411;
19989   t24961 = t7732 * t100;
19990   t24964 = t1771 * t399;
19991   t24965 = t24848 * t402;
19992   t24966 = t1802 * t24965;
19993   t24969 = t1771 * t1149;
19994   t24971 = t1154 * t390 * t402;
19995   t24972 = t1794 * t24971;
19996   t24975 = t1794 * t24965;
19997   t24982 = t2643 * t1148;
19998   t24987 = 0.15762619094478157328e0 * t3793 * t24919 * t3863 - 0.54895099374677576129e-1 * t7729 * t3747 + 0.650049912832e0 * t107 * t1177 * t24940 - 0.1428938704017162240e1 * t7729 * t5514 + 0.952625802678108160e0 * t1772 * t24947 + 0.11064007557120e2 * t5441 * t24899 - 0.21958039749871030452e0 * t1781 * t1837 + 0.952625802678108160e0 * t5336 * t7939 + 0.14983660725163427627e0 * t3771 * t2667 * t3772 + 0.2766001889280e1 * t399 * t24697 - 0.238156450669527040e0 * t24961 * t1144 + 0.34003406451113463906e1 * t24964 * t24966 + 0.22505489240237645558e1 * t24969 * t24972 - 0.30343279780715610650e1 * t24964 * t24975 - 0.75858199451789026629e0 * t7797 * t3867 + 0.21252129031945914941e0 * t7800 * t3834 - 0.28131861550297056947e0 * t24982 * t3864 + 0.37929099725894513314e0 * t7800 * t3867;
19999   t25007 = t697 * t1169;
20000   t25008 = t1790 * t25007;
20001   t25011 = t3001 * t24297;
20002   t25018 = t690 * t24393;
20003   t25021 = t2658 * t402;
20004   t25022 = t1802 * t25021;
20005   t25025 = t7938 * t404;
20006   t25028 = t686 * t3771;
20007   t25031 = t11037 * t402;
20008   t25032 = t1794 * t25031;
20009   t25035 = t1794 * t25021;
20010   t25038 = 0.97972381755974563669e-1 * t7803 * t3834 + 0.45165298839047841173e-1 * t24719 * t1124 * t112 + 0.97972381755974563669e-1 * t7745 * t1118 * t112 - 0.119078225334763520e0 * t7735 * t3747 + 0.42504258063891829882e0 * t1784 * t18134 - 0.28131861550297056947e0 * t14676 * t7818 - 0.12968797032847508210e0 * t14679 * t7818 + 0.29967321450326855254e0 * t7822 * t1790 * t18199 + 0.476312901339054080e0 * t5388 * t25008 - 0.18915142913373788794e1 * t18106 * t25011 + 0.25502554838335097930e1 * t18277 * t24298 + 0.1645512963945267200e1 * t399 * t24734 + 0.27629889249421717102e0 * t18381 * t25018 + 0.43916079499742060904e0 * t18010 * t25022 + 0.43916079499742060904e0 * t18251 * t25025 + 0.27629889249421717102e0 * t25028 * t18382 + 0.29066289463551723990e0 * t18014 * t25032 - 0.39188952702389825468e0 * t18010 * t25035;
20011   t25060 = t2640 * t1148;
20012   t25085 = -0.476312901339054080e0 * t5291 * t5434 + 0.31525238188956314657e0 * t5504 * t3001 * t25007 - 0.97994301469412365794e0 * t18264 * t12616 * t24297 + 0.16879116930178234168e1 * t18077 * t25011 - 0.42504258063891829883e0 * t5394 * t25008 - 0.75858199451789026629e0 * t18063 * t24298 - 0.42504258063891829883e0 * t3827 * t7794 - 0.19594476351194912734e0 * t3830 * t7794 - 0.42504258063891829883e0 * t7797 * t3834 + 0.56263723100594113894e0 * t25060 * t3864 + 0.97972381755974563669e-1 * t24703 * t1124 * t112 + 0.63050476377912629314e0 * t5504 * t7930 * t7784 - 0.85008516127783659766e0 * t5394 * t24270 + 0.59934642900653710508e0 * t7822 * t1790 * t17923 + 0.952625802678108160e0 * t5388 * t24553 + 0.36614111499190467036e1 * t1149 * t24730 * t3863 - 0.4936538891835801600e1 * t399 * t24731 - 0.29967321450326855254e0 * t3771 * t2674 * t1164 * t3841;
20013   t25092 = t107 * t24432;
20014   t25129 = 0.15762619094478157329e0 * t3793 * t2654 * t14786 + 0.59934642900653710508e0 * t5291 * t5495 + 0.39188952702389825468e0 * t5374 * t390 * t25092 - 0.21958039749871030452e0 * t5344 * t699 + 0.65874119249613091357e0 * t24410 * t5514 - 0.21958039749871030452e0 * t5441 * t24947 - 0.238156450669527040e0 * t1158 * t7914 * t401 * t1138 - 0.10979019874935515226e0 * t5431 * t699 + 0.476312901339054080e0 * t7722 * t5514 - 0.50613316194190507388e-1 * t7746 * t413 + 0.14983660725163427627e0 * t7735 * t3803 - 0.12751277419167548965e1 * t24754 * t1124 * t112 + 0.29967321450326855254e0 * t1787 * t18200 + 0.476312901339054080e0 * t1772 * t18072 + 0.85008516127783659766e0 * t3837 * t7794 + 0.85008516127783659766e0 * t7797 * t3842 - 0.1844001259520e1 * t24685 * t112 + 0.325024956416e0 * t107 * t7749 * t1191;
20015   t25134 = my_piecewise3(t97, 0, t24260 + t24320 + t24373 + t24424 + t24475 + t24518 + t24576 + t24621 + t24780 + t24830 + t24880 + t24932 + t24987 + t25038 + t25085 + t25129);
20016   t25135 = my_piecewise3(t96, 0, t25134);
20017   t25137 = t1118 * t2693 + t114 * t24200 + t1197 * t2635 + 0.4e1 * t1767 * t1841 + t25135 * t95 + 0.2e1 * t390 * t7959 + 0.2e1 * t417 * t7713 + 0.2e1 * t5268 * t703 + 0.2e1 * t5521 * t684;
20018   t25144 = t1847 * t1847;
20019   t25156 = t2719 * t1239;
20020   t25170 = t8012 * t442;
20021   t25188 = -0.2000e4 / 0.81e2 * t17472 * t5595 - 0.10000e5 / 0.729e3 * t24058 * t1265 * t1207 * t24 - 0.5e1 / 0.9e1 * t895 * t896 * t25137 - 0.500e3 / 0.81e2 * t1879 * t8062 * t1207 - 0.1000e4 / 0.243e3 * t140 * t1240 * t25144 - 0.500e3 / 0.81e2 * t2721 * t1240 * t1203 - 0.100e3 / 0.81e2 * t1876 * t5601 - 0.10000e5 / 0.729e3 * t5589 * t9219 * t9209 - 0.50e2 / 0.27e2 * t25156 * t6884 - 0.100e3 / 0.81e2 * params->c1 * t25144 * t1236 - 0.10e2 / 0.9e1 * t8014 * t6887 - params->c1 * t25137 * t141 - 0.50e2 / 0.81e2 * t441 * t2365 * t2695 * t1203 - 0.20e2 / 0.9e1 * t25170 * t2359 - 0.50000e5 / 0.6561e4 * t18414 * t2699 * t1207 * t68 - 0.1000e4 / 0.243e3 * t1879 * t1880 * t5527 - 0.2500e4 / 0.729e3 * t5589 * t2699 * t1203 * t24 - 0.100e3 / 0.81e2 * t441 * t2365 * t7961 * t423;
20022   t25197 = t1887 * t1887;
20023   t25209 = t7972 * t8049;
20024   t25213 = t68 * t147 * t5527;
20025   t25217 = t1263 * t1265 * t7961;
20026   t25222 = t5534 * t18448;
20027   t25228 = t4004 * t2699;
20028   t25232 = t4019 * t2699;
20029   t25236 = t8045 * t3999;
20030   t25247 = -0.2000e4 / 0.81e2 * t18475 * t25209 - 0.100e3 / 0.81e2 * t1892 * t25213 - 0.10e2 / 0.9e1 * t25217 * t453 - 0.5000e4 / 0.729e3 * t4017 * t14939 * t2699 * t25222 - t449 * t442 * t25137 * t147 - 0.10000e5 / 0.729e3 * t449 * t25228 * t25222 - 0.5000e4 / 0.243e3 * t1263 * t25232 * t25222 - 0.250e3 / 0.243e3 * t4020 * t25236 - 0.20e2 / 0.9e1 * t449 * t1239 * t7961 * t453 - 0.500e3 / 0.81e2 * t3994 * t25236 - 0.10e2 / 0.9e1 * t8056 * t1259;
20031   t25260 = t25144 * t36 * t1254;
20032   t25272 = t4017 * t4019 * t2695;
20033   t25279 = -0.50e2 / 0.27e2 * t449 * t8062 * t1255 - 0.50e2 / 0.27e2 * t1263 * t4004 * t2695 * t1255 - 0.2000e4 / 0.81e2 * t18489 * t25209 - 0.1000e4 / 0.243e3 * t18457 * t25209 - 0.100e3 / 0.81e2 * t1252 * t25260 - 0.1250e4 / 0.2187e4 * t14957 * t14959 * t2699 * t25222 - 0.500e3 / 0.81e2 * t4005 * t25236 - 0.50e2 / 0.81e2 * t1902 * t25213 - 0.25e2 / 0.81e2 * t25272 * t1255 - 0.50e2 / 0.81e2 * t1266 * t25260 - 0.5e1 / 0.9e1 * t8063 * t1259;
20034   t25281 = my_piecewise3(t139, t1247 * t145 * t2730 + t1247 * t145 * t2732 + t1249 * t145 * t2730 + t1249 * t145 * t2732 + 0.2e1 * t145 * t447 * t8036 + t145 * t25188 + 0.2e1 * t145 * t25197 + 0.4e1 * t1888 * t1889 + 0.2e1 * t5604 * t729, t25247 + t25279);
20035   t25292 = -0.2e1 * t330 * t719 * t5639 + 0.4e1 * t1030 * t2716 * t1226 - 0.4e1 * t1030 * t7997 * t435 - 0.2e1 * t330 * t435 * t8071 + 0.8e1 * t1030 * t8007 * t435 + 0.8e1 * t1030 * t8004 * t435 - 0.4e1 * t1030 * t24046 * t150 + 0.8e1 * t1030 * t1869 * t1866 - 0.12e2 * t3619 * t2716 * t1031 + 0.1174e1 * t25281 + 0.4e1 * t1030 * t7999 * t435 + 0.2e1 * t1030 * t1031 * t2745 + 0.2e1 * t1030 * t2594 * t1270;
20036   t25330 = t41 * t19;
20037   t25342 = t1863 * t1863;
20038   t25354 = t14888 * t2335;
20039   t25357 = t7962 * t124;
20040   t25360 = t18458 * t128;
20041   t25369 = t1218 * t7961;
20042   t25380 = t128 * t5527;
20043   t25384 = -t56 * t25137 * t128 / 0.100e3 + 0.25e2 / 0.4374e4 * t14846 * t8045 * t25354 - t25357 * t2336 / 0.30e2 + 0.5e1 / 0.486e3 * t7990 * t25360 + 0.10e2 / 0.243e3 * t5556 * t7972 * t7968 - 0.20e2 / 0.81e2 * t5542 * t7977 * t7968 + t25369 * t2336 / 0.90e2 - 0.125e3 / 0.2187e4 * t2700 * t18583 * t25354 + 0.125e3 / 0.1458e4 * t2700 * t5534 * t14827 + 0.5e1 / 0.162e3 * t2700 * t25360 + t1859 * t68 * t25380 / 0.162e3;
20044   t25388 = t2696 * t126;
20045   t25405 = t3949 * t2695;
20046   t25417 = t2696 * t1207 * t1220 / 0.108e3 - t25388 * t6844 / 0.54e2 - t56 * t25144 * t36 * t1211 / 0.54e2 + t428 * t25137 * t128 / 0.100e3 + t7984 * t6839 / 0.180e3 - t7965 * t6839 / 0.60e2 + 0.10e2 / 0.81e2 * t5542 * t1852 * t1847 + t25405 * t6844 / 0.324e3 + t1218 * t25144 * t1220 / 0.162e3 - t1851 * t1210 * t25380 / 0.54e2 - 0.5e1 / 0.81e2 * t7976 * t18560 * t128;
20047   t25429 = -0.4e1 * t1030 * t720 * t5562 - 0.2e1 * t1030 * t2714 * t1226 - t138 * t25281 - 0.4e1 * t330 * t1866 * t1906 + 0.24e2 * t17451 * t5158 + 0.6e1 * t3619 * t2595 * t1226 - 0.24e2 * t14187 * t2595 * t1031 - t330 * t1226 * t2745 - 0.2e1 * t330 * t7996 * t456 - 0.12e2 * t3619 * t7629 * t435 - 0.2e1 * t330 * t5562 * t734 + t330 * (0.19e2 / 0.162e3 * t37 * t5259 * t52 - 0.41e2 / 0.32e2 * t346 * t1048 * sigma[0] * t52 + 0.1323e4 / 0.3200e4 * t1054 * t1059 * t25330 * t1061 - 0.78003e5 / 0.2048000e7 * t7644 * t5183 + 0.59049e5 / 0.10240000e8 * t14238 * t1055 / t3654 / t25 * t52 + 0.4e1 * t25342 + 0.4e1 * t716 * t5559 + 0.2e1 * t1223 * t2710 + 0.4e1 * t432 * t7993 + 0.2e1 * t131 * (t25384 + t25417)) * t150 - t330 * t2713 * t1270 + 0.6e1 * t3619 * t2714 * t1031;
20048   t25435 = 0.16493000000000000000e1 * t23995 - 0.65972000000000000000e1 * t5666 * t5677 - 0.65972000000000000000e1 * t24000 * t1004 + t24005 + 0.12369750000000000000e1 * t1279 * t7590 - 0.38964712500000000000e3 * t471 * t14051 * t1042 * t13794 - 0.12988237500000000000e2 * t471 * t1286 * t2755 * t1036 * t166 - 0.27831937500000000000e1 * t24017 - 0.22265550000000000000e3 * t1001 * t24019 * t24020 * t316 - t24026 / 0.4e1 - 0.3e1 / 0.8e1 * t8 * t18 * (t25292 + t25429) * t167;
20049   t25445 = t7533 * t7534;
20050   t25449 = t3549 * t7573;
20051   t25486 = t469 * t18 * t8074;
20052   t25489 = t14122 * t2767;
20053   t25490 = t26 * t166;
20054   t25495 = t7571 * t19;
20055   t25503 = t3593 * t7614;
20056   t25509 = t14105 * t7610;
20057   t25513 = 0.46509680280278941972e0 * t1297 * t13813 * t7572 - 0.12369750000000000000e1 * t4117 * t7614 - 0.61848750000000000000e0 * t1001 * t475 * t2761 * t4120 - 0.49479000000000000000e1 * t25486 * t480 + 0.62012907040371922630e0 * t4059 * t25489 * t25490 * t316 + 0.80541612095716256869e2 * t4059 * t25495 * t4063 - 0.20616250000000000000e0 * t3585 * t475 * t2761 * t3586 - 0.41232500000000000000e0 * t25503 + 0.14843700000000000000e2 * t1001 * t1286 * t7595 * t1002 + 0.10067701511964532109e2 * t25509 + 0.57725500000000000000e1 * t1915 * t5149;
20058   t25515 = t5123 * t1935;
20059   t25518 = 0.41232500000000000000e0 * t18655 * t745;
20060   t25520 = 0.10308125000000000000e0 * t4068 * t2763;
20061   t25521 = t1025 * t7597;
20062   t25524 = 0.92773125000000000000e0 * t4068 * t2758;
20063   t25525 = t1025 * t7590;
20064   t25529 = t3549 * t7582;
20065   t25534 = t3549 * t7555;
20066   t25537 = t153 * t11239;
20067   t25542 = t3549 * t7577;
20068   t25548 = t5086 * t7550;
20069   t25562 = 0.25169253779911330271e1 * t13966 * t2770;
20070   t25568 = t5086 * t7561;
20071   t25574 = 0.24647459318104087313e3 * t1297 * t25537 * t27 * t13794 + 0.20135403023929064217e2 * t25542 - 0.10067701511964532108e2 * t1297 * t2768 * t1299 * t1301 + 0.14843700000000000000e2 * t25548 + 0.30203104535893596326e2 * t14108 * t7610 + 0.60406209071787192652e2 * t1297 * t7580 * t26 * t1301 + 0.11326164200960098622e2 * t1297 * t1273 * t2767 * t158 * t1301 - t25562 + 0.52880681250000000000e3 * t1926 * t3565 * t742 * t5096 * t166 - 0.55663875000000000000e2 * t25568 + 0.60406209071787192651e2 * t1297 * t7553 * t1299 * t1301;
20072   t25580 = 0.12369750000000000000e1 * t7591 - t23898 + 0.11132775000000000000e2 * t7598 - t23900 + t23901 - 0.49479000000000000000e1 * t7604 - 0.92773125000000000000e0 * t7606 + 0.30203104535893596326e2 * t7611 - 0.12369750000000000000e1 * t7615 + 0.49479000000000000000e1 * t7617 - 0.11132775000000000000e2 * t7621 + t10 * (t25574 - 0.40270806047858128434e2 * t25534 + 0.75507761339733990814e1 * t25529 + t25524 + 0.41232500000000000000e0 * t25525 + t25520 + 0.37109250000000000000e1 * t25521 - 0.16493000000000000000e1 * t25515 - t25518 + t25513 + 0.15503226760092980657e0 * t25449 + t25435 + t23964 - 0.16493000000000000000e1 * t23967 + 0.80541612095716256868e2 * t1297 * t2748 * t742 * t1299 * t1301 + 0.54261293660325432299e0 * t1297 * t3573 * t2767 * t1299 * t166 + 0.44531100000000000000e2 * t1926 * t1909 * t1284 * t19 * t1929 - 0.12081241814357438530e3 * t1297 * t1909 * t1939 * t26 * t1301 - 0.14431375000000000000e1 * t471 * t475 * t23974 * t166 - 0.90849806046929250000e2 * t471 * t23974 * t1284 * t13794 + 0.50338507559822660543e1 * t14100 * t7609 * t14101 - 0.12113307472923900000e3 * t13996 * t25445 * t13999 - 0.16699162500000000000e3 * t1926 * t13808 * t7560 + 0.44531100000000000000e3 * t1926 * t17372 * t5098 - 0.12402581408074384526e1 * t1297 * t17377 * t5103 - 0.11132775000000000000e3 * t1926 * t7549 * t5112 - t310 * t7567 * t1011 / 0.2e1 + 0.24739500000000000000e1 * t5666 * t5651 - 0.16108322419143251374e3 * t17359 * t5142 + 0.59374800000000000000e2 * t5666 * t5136 + 0.82465000000000000000e0 * t18699 * t5681 + 0.57725500000000000000e1 * t7541 * t1293 - 0.29687400000000000000e2 * t7541 * t1288 + 0.49479000000000000000e1 * t18783 * t1919) - 0.3e1 / 0.4e1 * t8077;
20073   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20074     v4rho2sigma2[0] = t23896 + t25580;
20075 
20076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20077     v4rho2sigma2[1] = 0.0e0;
20078 
20079   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20080     v4rho2sigma2[2] = 0.0e0;
20081 
20082   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20083     v4rho2sigma2[3] = 0.0e0;
20084 
20085   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20086     v4rho2sigma2[4] = 0.0e0;
20087 
20088   t25581 = t8087 / 0.4e1;
20089   t25583 = 0.12369750000000000000e1 * t8091;
20090   t25585 = 0.27831937500000000000e1 * t8097;
20091   t25587 = 0.30924375000000000000e0 * t8103;
20092   t25589 = 0.75507761339733990814e1 * t8110;
20093   t25593 = t15658 * t8107;
20094   t25598 = 0.41232500000000000000e0 * t19236 * t840;
20095   t25604 = t8 * t1323 * t2929 / 0.12e2;
20096   t25608 = t322 * t2928;
20097   t25610 = t484 * t25608 * t487;
20098   t25612 = t19195 * t1955;
20099   t25619 = 0.92773125000000000000e0 * t4225 * t2938;
20100   t25625 = 0.10308125000000000000e0 * t4225 * t2943;
20101   t25630 = t4254 * t8094;
20102   t25636 = 0.25169253779911330271e1 * t15559 * t2950;
20103   t25641 = t4254 * t8100;
20104   t25645 = 0.50338507559822660543e1 * t15653 * t8106 * t15654 + 0.10067701511964532109e2 * t25593 + 0.24739500000000000000e1 * t5796 * t5718 - t25598 - t484 * t8082 * t1319 / 0.2e1 + t25604 - t1308 * t8082 * t1310 / 0.6e1 - t25610 / 0.3e1 + 0.16493000000000000000e1 * t25612 - 0.55663875000000000000e1 * t1376 * t1675 * t2936 * t4286 + t25619 - 0.61848750000000000000e0 * t1376 * t644 * t2941 * t4286 + t25625 - 0.18554625000000000000e1 * t4246 * t1675 * t2936 * t4247 - 0.37109250000000000000e1 * t25630 + 0.15101552267946798163e2 * t4414 * t8106 * t15671 - t25636 - 0.20616250000000000000e0 * t4246 * t644 * t2941 * t4247 - 0.41232500000000000000e0 * t25641 + 0.82465000000000000000e0 * t19191 * t5712;
20105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20106     v4rho2sigma2[5] = -t8084 - t25581 + 0.49479000000000000000e1 * t8089 + t25583 - 0.11132775000000000000e2 * t8095 - t25585 - 0.12369750000000000000e1 * t8101 - t25587 + 0.30203104535893596326e2 * t8108 + t25589 + t10 * t25645;
20107 
20108   t25647 = -t7539 - t7543 + t7545 - t7547 + t7552 - t7557 - t7563 - t23891 - t7570 + t7575 + t7579 + t7584 + t23895 + t8129 - t8116;
20109   t25679 = t3593 * t8120;
20110   t25685 = -0.15141634341154875000e2 * t23908 - 0.20616250000000000000e0 * t4278 * t156 * t1939 * t5745 - 0.18554625000000000000e1 * t15097 * t24 * t2755 * t29 * t166 * t4281 - 0.80541612095716256868e2 * t17359 * t5762 + 0.29687400000000000000e2 * t5666 * t5755 - t310 * t23928 * t499 / 0.2e1 - t23926 / 0.6e1 - t986 * t7567 * t1329 / 0.6e1 - t310 * t1345 * t2748 * t1347 / 0.2e1 - 0.18554625000000000000e1 * t23931 - 0.61848750000000000000e0 * t4238 * t475 * t2761 * t4239 - 0.18554625000000000000e1 * t25679 + 0.74218500000000000000e1 * t1001 * t1286 * t7595 * t1339;
20111   t25719 = t3593 * t8124;
20112   t25721 = -0.55663875000000000000e1 * t4238 * t1286 * t2756 * t4239 + 0.82465000000000000000e0 * t1001 * t475 * t7588 * t1339 + 0.50338507559822660543e1 * t14100 * t7609 * t15206 + 0.61848750000000000000e0 * t23952 - 0.15462187500000000000e0 * t23954 + 0.82465000000000000000e0 * t19106 * t5746 - 0.32986000000000000000e1 * t5666 * t5759 + 0.24739500000000000000e1 * t19040 * t5766 - 0.82465000000000000000e0 * t23967 + 0.15101552267946798163e2 * t14108 * t8127 + 0.40270806047858128434e2 * t4059 * t25495 * t4228 - 0.11132775000000000000e3 * t1001 * t24019 * t24020 * t498 + 0.31006453520185961315e0 * t4059 * t25489 * t25490 * t498 - 0.20616250000000000000e0 * t25719;
20113   t25732 = t14105 * t8127;
20114   t25741 = t18703 * t1966;
20115   t25745 = -0.32986000000000000000e1 * t24000 * t1341 + 0.82465000000000000000e0 * t23995 - 0.60566537364619500001e2 * t13996 * t25445 * t15249 + t24005 + 0.15101552267946798163e2 * t15316 * t7609 * t15317 + 0.50338507559822660543e1 * t25732 - 0.13915968750000000000e1 * t24017 - t24026 / 0.8e1 - 0.55663875000000000000e1 * t4117 * t8120 + 0.77516133800464903287e-1 * t25449 + 0.24739500000000000000e1 * t18783 * t1966 + 0.82465000000000000000e0 * t25741 - 0.20616250000000000000e0 * t25503 + 0.50338507559822660543e1 * t25509;
20116   t25756 = t310 * t23924 * t499;
20117   t25759 = -0.82465000000000000000e0 * t25515 - t25518 + t25520 + 0.18554625000000000000e1 * t25521 + t25524 + 0.20616250000000000000e0 * t25525 - 0.61848750000000000000e0 * t4117 * t8124 + 0.37753880669866995407e1 * t25529 - 0.20135403023929064217e2 * t25534 + 0.10067701511964532108e2 * t25542 + 0.74218500000000000000e1 * t25548 - t25756 / 0.6e1 - t25562 - 0.27831937500000000000e2 * t25568;
20118   t25763 = t7592 - t23898 + t7599 - t23900 + t23901 - t7605 - t7607 + t7612 + t10 * (t25685 + t25721 + t25745 + t25759) - t7616 + t7618 - t7622 + t8118 - t8122 - t8126 - t8078;
20119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20120     v4rho2sigma2[6] = t25647 + t25763;
20121 
20122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20123     v4rho2sigma2[7] = 0.0e0;
20124 
20125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20126     v4rho2sigma2[8] = 0.0e0;
20127 
20128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20129     v4rho2sigma2[9] = 0.0e0;
20130 
20131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20132     v4rho2sigma2[10] = 0.0e0;
20133 
20134   t25764 = -t8136 - t8142 + t8147 + t8151 + t8156 - t8164 + t25583 - t25585 - t25587 + t8109 - t25581 - t8167 - t8171 - t8176 + t8178;
20135   t25765 = t4411 * t2938;
20136   t25772 = t484 * t25608 * t504;
20137   t25786 = t16011 * t837;
20138   t25787 = t8137 * t301;
20139   t25792 = t14122 * t2947;
20140   t25793 = t177 * t301;
20141   t25798 = t17 * t8660;
20142   t25803 = t1383 * t8201;
20143   t25808 = t5800 * t2204;
20144   t25810 = -0.13915968750000000000e1 * t25765 + t484 * t1345 * t2928 * t1362 / 0.2e1 - t25772 / 0.6e1 + 0.82465000000000000000e0 * t19404 * t5806 - 0.20616250000000000000e0 * t4357 * t156 * t2208 * t5805 - 0.18554625000000000000e1 * t16053 * t24 * t2935 * t180 * t301 * t4360 - 0.11132775000000000000e3 * t1376 * t25786 * t25787 * t486 + 0.31006453520185961315e0 * t4414 * t25792 * t25793 * t486 - t484 * t25798 * t487 / 0.2e1 - t25610 / 0.6e1 + 0.20616250000000000000e0 * t25803 - 0.15101552267946798163e2 * t16018 * t8106 * t16019 - 0.82465000000000000000e0 * t25808;
20145   t25813 = t8143 * t19;
20146   t25817 = t5826 * t8196;
20147   t25819 = t8158 * t8159;
20148   t25823 = t4352 * t8134;
20149   t25825 = t5826 * t8140;
20150   t25827 = t4352 * t8145;
20151   t25829 = t4254 * t8169;
20152   t25843 = t8 * t491 * t8661;
20153   t25845 = 0.15101552267946798163e2 * t16036 * t8107 + 0.40270806047858128435e2 * t4414 * t25813 * t4418 + 0.74218500000000000000e1 * t25817 - 0.60566537364619500000e2 * t16083 * t25819 * t16086 - 0.20135403023929064217e2 * t25823 - 0.27831937500000000000e2 * t25825 + 0.77516133800464903287e-1 * t25827 - 0.18554625000000000000e1 * t25829 + 0.55663875000000000000e1 * t4469 * t1675 * t2936 * t4470 + 0.74218500000000000000e1 * t1376 * t1675 * t8204 * t1377 + t25619 + t25625 - t1308 * t8082 * t1354 / 0.6e1 - t25843 / 0.8e1;
20154   t25864 = t4352 * t8149;
20155   t25866 = t4352 * t8154;
20156   t25868 = t4411 * t2943;
20157   t25870 = t15658 * t8181;
20158   t25873 = t469 * t491 * t2928;
20159   t25874 = t25873 * t649;
20160   t25876 = t19195 * t2190;
20161   t25878 = t4254 * t8174;
20162   t25880 = 0.61848750000000000000e0 * t4469 * t644 * t2941 * t4470 - 0.24739500000000000000e1 * t19520 * t5813 + 0.82465000000000000000e0 * t1376 * t644 * t8199 * t1377 - 0.32986000000000000000e1 * t5796 * t5830 - 0.61848750000000000000e0 * t4476 * t8100 + 0.50338507559822660543e1 * t15653 * t8106 * t15977 + 0.10067701511964532109e2 * t25864 + 0.37753880669866995407e1 * t25866 - t25636 - 0.15462187500000000000e0 * t25868 + 0.50338507559822660543e1 * t25870 - 0.82465000000000000000e0 * t25874 + 0.82465000000000000000e0 * t25876 - 0.20616250000000000000e0 * t25878;
20163   t25884 = t469 * t1374 * t2928;
20164   t25890 = t5826 * t8162;
20165   t25895 = t19474 * t840;
20166   t25899 = t1383 * t8206;
20167   t25903 = -0.20616250000000000000e0 * t25641 - 0.18554625000000000000e1 * t25630 - 0.32986000000000000000e1 * t25884 * t1379 + 0.82465000000000000000e0 * t25612 + 0.24739500000000000000e1 * t19514 * t1955 - 0.15141634341154875000e2 * t25890 - t25598 - 0.55663875000000000000e1 * t4476 * t8094 + t25604 + 0.50338507559822660543e1 * t25593 + 0.61848750000000000000e0 * t25895 - 0.80541612095716256868e2 * t19561 * t5837 + 0.18554625000000000000e1 * t25899 + 0.29687400000000000000e2 * t5796 * t5823;
20168   t25907 = t8090 - t8180 + t8183 - t8187 + t8189 - t8191 - t8193 + t25589 + t8198 - t8085 + t8203 + t8208 - t8664 - t8096 - t8102 + t10 * (t25810 + t25845 + t25880 + t25903);
20169   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20170     v4rho2sigma2[11] = t25764 + t25907;
20171 
20172   t25949 = 0.24739500000000000000e1 * t5666 * t5859 - 0.41232500000000000000e0 * t25719 - t986 * t7567 * t1391 / 0.6e1 + t24005 + 0.15101552267946798163e2 * t4059 * t7609 * t15649 - t310 * t7567 * t1397 / 0.2e1 - 0.37109250000000000000e1 * t25679 - 0.18554625000000000000e1 * t3585 * t1286 * t2756 * t4479 - 0.61848750000000000000e0 * t1001 * t475 * t2761 * t4484 + 0.50338507559822660543e1 * t14100 * t7609 * t15645 - 0.55663875000000000000e1 * t1001 * t1286 * t2756 * t4484 + 0.10067701511964532109e2 * t25732 - t25518 + t25520 + t25524 + 0.16493000000000000000e1 * t25741 + 0.82465000000000000000e0 * t18699 * t5854 - 0.20616250000000000000e0 * t3585 * t475 * t2761 * t4479 - t25562 - t25756 / 0.3e1;
20173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20174     v4rho2sigma2[12] = -t8115 - t23891 + 0.49479000000000000000e1 * t8117 + t23901 - 0.11132775000000000000e2 * t8121 - t23898 - 0.12369750000000000000e1 * t8125 - t23900 + 0.30203104535893596326e2 * t8128 + t23895 + t10 * t25949;
20175 
20176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20177     v4rho2sigma2[13] = 0.0e0;
20178 
20179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20180     v4rho2sigma2[14] = 0.0e0;
20181 
20182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20183     v4rho2sigma2[15] = 0.0e0;
20184 
20185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20186     v4rho2sigma2[16] = 0.0e0;
20187 
20188   t25973 = t469 * t175 * t8660;
20189   t26016 = -0.12369750000000000000e1 * t4476 * t8174 - 0.61848750000000000000e0 * t1376 * t644 * t2941 * t4546 + 0.49479000000000000000e1 * t19514 * t2190 - 0.27831937500000000000e1 * t25765 - t25772 / 0.3e1 + 0.11132775000000000000e2 * t1668 * t8206 + 0.80541612095716256869e2 * t4414 * t25813 * t5028 - 0.49479000000000000000e1 * t25973 * t649 + 0.24739500000000000000e1 * t5796 * t6441 - 0.65972000000000000000e1 * t25884 * t1411 + 0.16493000000000000000e1 * t1376 * t644 * t8199 * t1409 - 0.65972000000000000000e1 * t5796 * t6431 + 0.82465000000000000000e0 * t19191 * t6435 - 0.20616250000000000000e0 * t4246 * t644 * t2941 * t4539 + 0.24226614945847800000e3 * t2195 * t832 * t2935 * t6457 - 0.16655797775270362500e3 * t2195 * t8158 * t6457 - 0.90849806046929250000e2 * t2195 * t634 * t8157 * t8161 - 0.12988237500000000000e2 * t640 * t1675 * t2935 * t1429 * t301 - 0.22265550000000000000e3 * t1376 * t25786 * t25787 * t503 + 0.62012907040371922630e0 * t4414 * t25792 * t25793 * t503;
20190   t26047 = t2901 * t345;
20191   t26055 = t2118 * t2118;
20192   t26061 = t2899 * t1630;
20193   t26082 = t2035 * t2035;
20194   t26101 = -t4631 * t2812 / 0.2e1 - t1477 * t8296 - t68 * t8245 * t1506 / 0.17496e5 + 0.3e1 * t19858 * t2013 + 0.76e2 / 0.19683e5 * t68 * t1435 * t231 + 0.3e1 / 0.2e1 * t5977 * t5993 + 0.3e1 / 0.2e1 * t1482 * t26082 + 0.3e1 * t5977 * t5990 + 0.3e1 / 0.4e1 * t1482 * t2812 * t1506 + 0.3e1 / 0.2e1 * t1482 * t8296 * t563 - 0.15e2 / 0.8e1 * t4642 * t2799 * t1506 + 0.3e1 * t4634 * t8258 - 0.15e2 / 0.8e1 * t4642 * t2812 * t1483;
20195   t26112 = t188 * t1481;
20196   t26116 = t518 * t551;
20197   t26143 = t68 * t1435;
20198   t26153 = t1450 * t184 * t24;
20199   t26160 = t6029 * sigma[2];
20200   t26163 = -0.5e1 / 0.9e1 * t19901 * t749 - 0.10e2 / 0.9e1 * t19904 * t749 - 0.1000e4 / 0.729e3 * t19873 * t6030 - 0.5e1 / 0.9e1 * t19915 * t749 + 0.25e2 / 0.432e3 * t6018 * t2778 * t1493 + 0.125e3 / 0.243e3 * t19881 * t526 * t554 * sigma[2] + 0.475e3 / 0.486e3 * t1498 * t26143 + t5996 * t2807 / 0.4374e4 + 0.20e2 / 0.19683e5 * t5999 * t8283 + 0.4e1 * t3122 * t6013 + 0.3125e4 / 0.26244e5 * t16452 * t26153 + 0.152e3 / 0.19683e5 * t553 * t26143 + 0.25e2 / 0.432e3 * t16462 * t2807 - 0.5375e4 / 0.2916e4 * t4669 * t26160;
20201   t26168 = t4655 * t345;
20202   t26187 = t2802 * t1497;
20203   t26188 = t26187 * t36;
20204   t26191 = t2022 * t2022;
20205   t26198 = -0.50e2 / 0.81e2 * t19908 * t2004 - 0.50e2 / 0.81e2 * t19912 * t2004 + 0.50e2 / 0.177147e6 * t26168 * t26153 + 0.80e2 / 0.27e2 * t9370 * t2022 * t514 + 0.25e2 / 0.9e1 * t6005 * t5971 - 0.220e3 / 0.81e2 * t8269 * t1458 + 0.80e2 / 0.27e2 * t6000 * t1977 + 0.80e2 / 0.27e2 * t6008 * t1977 - 0.440e3 / 0.81e2 * t2019 * t5941 - 0.50e2 / 0.81e2 * t6018 * t2029 * t554 + 0.100e3 / 0.243e3 * t26188 * t1501 + 0.4e1 * t26191 * t227 - 0.16e2 / 0.6561e4 * t2016 * t8286 - 0.430e3 / 0.59049e5 * t1489 * t26160;
20206   t26205 = 0.3e1 / 0.2e1 * t4634 * t8263 - 0.15e2 / 0.4e1 * t16414 * t8255 + 0.3e1 / 0.2e1 * t1482 * t776 * t6039 + 0.105e3 / 0.16e2 * t16424 * t2799 * t1483 + t68 * t26112 * t1483 / 0.11664e5 + 0.4e1 / 0.6561e4 * t68 * t26116 * t563 - 0.15e2 / 0.4e1 * t19861 * t5987 - 0.15e2 / 0.2e1 * t4642 * t2013 * t2035 - t19966 * t776 - 0.2e1 * t5975 * t2035 - t552 * (t26163 + t26198) / 0.2e1 - t2008 * t6039 + 0.3e1 / 0.4e1 * t16409 * t2799;
20207   t26206 = t26101 + t26205;
20208   t26220 = t2065 * t20047;
20209   t26225 = t2106 * t578;
20210   t26229 = t9549 * t8464;
20211   t26232 = t2042 * t245;
20212   t26233 = t2092 * t6178;
20213   t26239 = t2077 * t578;
20214   t26240 = t26239 * t2838;
20215   t26250 = t8534 * t6217;
20216   t26257 = t2044 * t6042;
20217   t26263 = t2854 * t1542;
20218   t26270 = t8372 * t4780;
20219   t26273 = 0.1645512963945267200e1 * t575 * t26220 + 0.27629889249421717102e0 * t6090 * t6283 + 0.63050476377912629314e0 * t6238 * t3153 * t26225 - 0.85008516127783659766e0 * t6222 * t26229 - 0.11986928580130742102e1 * t26232 * t26233 + 0.63050476377912629314e0 * t6238 * t8425 * t8515 - 0.85008516127783659766e0 * t6222 * t26240 + 0.59934642900653710508e0 * t8511 * t2061 * t20750 + 0.952625802678108160e0 * t6216 * t26229 + 0.59934642900653710508e0 * t6194 * t6128 + 0.476312901339054080e0 * t6216 * t26250 + 0.650049912832e0 * t245 * t1568 * t8375 * t587 - 0.1844001259520e1 * t2043 * t26257 + 0.14983660725163427627e0 * t4823 * t8393 * t4780 - 0.19834166657058243279e0 * t16903 * t26263 * t4786 + 0.26741638969413672554e0 * t4823 * t26263 * t4756 + 0.14683899485061986386e1 * t575 * t26270;
20220   t26274 = t16642 * t2833;
20221   t26278 = t26274 * t4756;
20222   t26282 = t1555 * t8363 * t1529;
20223   t26285 = t8360 * t4780;
20224   t26288 = t4761 * t2846;
20225   t26292 = t26288 * t4756;
20226   t26295 = t1542 * t8363;
20227   t26302 = t4699 * t2846;
20228   t26309 = t26295 * t1529;
20229   t26312 = t8367 * t4780;
20230   t26315 = t26302 * t4756;
20231   t26321 = t8336 * t238;
20232   t26324 = t2077 * t587;
20233   t26332 = -0.13606156761889987933e2 * t1540 * t26274 * t4786 + 0.26206649088979828343e1 * t575 * t26278 - 0.1844001259520e1 * t575 * t26282 - 0.922000629760e0 * t575 * t26285 + 0.36614111499190467036e1 * t1540 * t26288 * t4786 - 0.4936538891835801600e1 * t575 * t26292 - 0.12204703833063489012e1 * t1540 * t26295 * t2066 - 0.61023519165317445059e0 * t1540 * t8367 * t4844 + 0.18968792869915364414e1 * t4707 * t26302 * t6256 - 0.32672968537417605163e1 * t1540 * t26302 * t4786 + 0.1645512963945267200e1 * t575 * t26309 + 0.822756481972633600e0 * t575 * t26312 + 0.14683899485061986386e1 * t575 * t26315 - 0.21252129031945914941e0 * t1549 * t2834 * t4853 - 0.11064007557120e2 * t26321 * t6057 + 0.63050476377912629316e0 * t6238 * t3153 * t26324 + 0.85008516127783659766e0 * t8524 * t4757 + 0.56263723100594113894e0 * t16740 * t8507;
20234   t26337 = t1528 * t6232 * t566;
20235   t26342 = t8350 * t6089;
20236   t26353 = t8345 * t6089;
20237   t26368 = t2868 * t580;
20238   t26374 = t1528 * t1529 * t2038;
20239   t26377 = 0.15171639890357805325e1 * t6242 * t6113 - 0.17001703225556731953e1 * t6116 * t26337 - 0.21958039749871030452e0 * t2055 * t20552 + 0.90330597678095682346e-1 * t26342 * t6092 - 0.17001703225556731953e1 * t20172 * t8308 - 0.21958039749871030452e0 * t6242 * t6102 - 0.17001703225556731953e1 * t6242 * t6106 - 0.10979019874935515226e0 * t8527 * t4850 + 0.19594476351194912734e0 * t26353 * t6092 - 0.85008516127783659764e0 * t6116 * t20535 - 0.11756685810716947640e1 * t20183 * t8315 - 0.10979019874935515226e0 * t2055 * t20187 + 0.69074723123554292755e-1 * t4820 * t8383 - 0.30124497567627698084e1 * t6225 * t20298 + 0.75858199451789026627e0 * t2055 * t20164 - 0.10979019874935515226e0 * t1527 * t26368 + 0.25502554838335097930e1 * t8499 * t6118 - 0.17001703225556731953e1 * t6116 * t26374;
20240   t26380 = t8339 * t574;
20241   t26385 = t6091 * t2079;
20242   t26396 = t2833 * t578;
20243   t26397 = t26396 * t1550;
20244   t26405 = t8357 * t4756;
20245   t26411 = t6282 * t578;
20246   t26412 = t2061 * t26411;
20247   t26425 = 0.21958039749871030452e0 * t8524 * t4850 - 0.85008516127783659765e0 * t26380 * t6118 - 0.17001703225556731953e1 * t2055 * t20195 + 0.39188952702389825468e0 * t6090 * t26385 - 0.11252744620118822779e1 * t6225 * t20285 + 0.15171639890357805325e1 * t2055 * t20303 + 0.39188952702389825468e0 * t20079 * t8315 - 0.11252744620118822779e1 * t20367 * t6110 - 0.75858199451789026628e0 * t20358 * t26397 - 0.67675321900558938528e0 * t574 * t8447 * t1551 - 0.29967321450326855254e0 * t8451 * t4719 - 0.11064007557120e2 * t575 * t26405 - 0.29967321450326855254e0 * t4823 * t2842 * t4824 - 0.11986928580130742102e1 * t20240 * t26412 - 0.79336666628232973116e0 * t20249 * t3153 * t26411 + 0.10696655587765469022e1 * t20370 * t26412 - 0.11756685810716947640e1 * t8336 * t574 * t6118 + 0.39188952702389825468e0 * t20041 * t26374;
20248   t26431 = t4848 * t6232 * t792;
20249   t26435 = t4848 * t2061 * t2106;
20250   t26439 = t6221 * t8506 * t587;
20251   t26442 = t2061 * t2077;
20252   t26443 = t4785 * t26442;
20253   t26446 = t26396 * t242;
20254   t26447 = t9579 * t26446;
20255   t26450 = t2855 * t580;
20256   t26453 = t8534 * t578;
20257   t26454 = t4755 * t26453;
20258   t26458 = t4785 * t11338 * t578;
20259   t26467 = t1534 * t2038 * t587;
20260   t26470 = t16623 * t2833;
20261   t26471 = t26470 * t4756;
20262   t26480 = t8506 * t6217;
20263   t26485 = -0.50613316194190507388e-1 * t8499 * t4850 - 0.21958039749871030452e0 * t1527 * t26431 - 0.21958039749871030452e0 * t1527 * t26435 + 0.14533144731775861996e0 * t4784 * t26439 + 0.15171639890357805326e1 * t1527 * t26443 + 0.13538564572559691160e1 * t1527 * t26447 + 0.13814944624710858551e0 * t1527 * t26450 - 0.85008516127783659765e0 * t1527 * t26454 - 0.56263723100594113894e0 * t4784 * t26458 - 0.2936020636696313856e1 * t9700 * t6282 * t2106 - 0.922000629760e0 * t8487 * t4728 - 0.21958039749871030452e0 * t6056 * t26467 - 0.17620679382074383663e2 * t575 * t26471 + 0.2766001889280e1 * t8439 * t4728 + 0.952625802678108160e0 * t6216 * t26240 - 0.19594476351194912734e0 * t8499 * t4757 + 0.16879116930178234169e1 * t20353 * t26480 - 0.1428938704017162240e1 * t6222 * t26397;
20264   t26486 = t2061 * t26324;
20265   t26491 = t2073 * t20047;
20266   t26494 = t2834 * t4780;
20267   t26506 = t245 * t249 * t2038;
20268   t26512 = t2867 * t1542;
20269   t26520 = t4848 * t8534 * t587;
20270   t26523 = t8506 * t578;
20271   t26524 = t9553 * t26523;
20272   t26528 = t4785 * t3153 * t2077;
20273   t26532 = t9579 * t12091 * t578;
20274   t26535 = t9579 * t26523;
20275   t26538 = t4785 * t26453;
20276   t26541 = t8530 * t587;
20277   t26542 = t6221 * t26541;
20278   t26545 = 0.952625802678108160e0 * t6216 * t26486 - 0.18915142913373788795e1 * t20383 * t26480 - 0.1844001259520e1 * t575 * t26491 + 0.2766001889280e1 * t575 * t26494 + 0.238156450669527040e0 * t1549 * t2842 * t4853 - 0.50613316194190507388e-1 * t8436 * t589 + 0.14983660725163427627e0 * t4823 * t2847 * t4824 + 0.39188952702389825468e0 * t20668 * t26506 - 0.119078225334763520e0 * t1549 * t8379 * t4780 + 0.15762619094478157328e0 * t4838 * t26512 * t4786 - 0.21252129031945914941e0 * t1549 * t26512 * t4756 - 0.10979019874935515226e0 * t1527 * t26520 + 0.33758233860356468337e1 * t4784 * t26524 - 0.11252744620118822779e1 * t4784 * t26528 + 0.17489238971848963748e1 * t16869 * t26532 - 0.30124497567627698084e1 * t4784 * t26535 + 0.75858199451789026628e0 * t1527 * t26538 - 0.19594476351194912734e0 * t1527 * t26542;
20279   t26547 = t6215 * t26541;
20280   t26550 = t4785 * t26446;
20281   t26553 = t4755 * t26442;
20282   t26556 = t9553 * t26446;
20283   t26581 = t8372 * t4756;
20284   t26587 = t8357 * t4780;
20285   t26593 = 0.21958039749871030452e0 * t1527 * t26547 + 0.25502554838335097930e1 * t1527 * t26550 - 0.17001703225556731953e1 * t1527 * t26553 - 0.45514919671073415978e1 * t1527 * t26556 - 0.85008516127783659764e0 * t2055 * t20198 + 0.33758233860356468336e1 * t6225 * t20276 - 0.45514919671073415976e1 * t2055 * t20279 + 0.19594476351194912734e0 * t20083 * t8315 + 0.90330597678095682346e-1 * t20153 * t8315 - 0.56263723100594113893e0 * t6225 * t20289 + 0.17489238971848963747e1 * t20203 * t20295 - 0.476312901339054080e0 * t6060 * t6086 - 0.238156450669527040e0 * t1549 * t8364 * t1550 - 0.21968466899514280222e2 * t1540 * t8372 * t4786 + 0.29619233351014809600e2 * t575 * t26581 - 0.119078225334763520e0 * t1549 * t2847 * t4853 - 0.4936538891835801600e1 * t575 * t26587 + 0.39207562244901126197e2 * t1540 * t26470 * t4786;
20286   t26594 = t1545 * t6160;
20287   t26610 = t16764 * t1543;
20288   t26623 = t242 * t6172;
20289   t26633 = t2826 * t1539;
20290   t26645 = -0.12204703833063489012e1 * t1540 * t2065 * t26594 + 0.36614111499190467036e1 * t1540 * t8357 * t4844 - 0.22762551443898437297e2 * t4707 * t26470 * t6256 - 0.238156450669527040e0 * t1549 * t6161 * t2838 + 0.18968792869915364414e1 * t4707 * t8372 * t16584 - 0.92817332546461565657e1 * t16763 * t26274 * t26610 + 0.20312390406477209506e2 * t4707 * t26274 * t6256 - 0.32672968537417605163e1 * t1540 * t8372 * t4844 - 0.476312901339054080e0 * t1549 * t2078 * t8464 - 0.238156450669527040e0 * t1549 * t785 * t26623 + 0.85008516127783659764e0 * t6242 * t6233 + 0.42504258063891829882e0 * t2055 * t20048 + 0.97972381755974563669e-1 * t8499 * t4781 - 0.12968797032847508210e0 * t26633 * t4787 + 0.17485326916752292327e0 * t8499 * t4790 + 0.42504258063891829882e0 * t20115 * t2062 + 0.29967321450326855254e0 * t574 * t8483 * t1551 - 0.10979019874935515226e0 * t8496 * t589;
20291   t26649 = t1514 * t8299;
20292   t26657 = t8367 * t4756;
20293   t26674 = t1534 * t2106 * t566;
20294   t26685 = t2854 * t587;
20295   t26686 = t16790 * t26685;
20296   t26689 = t792 * t2106;
20297   t26690 = t4718 * t26689;
20298   t26695 = -0.1844001259520e1 * t26649 * t238 * t2045 - 0.29967321450326855254e0 * t4823 * t2854 * t1555 * t4756 + 0.2766001889280e1 * t575 * t26657 + 0.59934642900653710508e0 * t2058 * t20751 + 0.29967321450326855254e0 * t2058 * t20665 - 0.10979019874935515226e0 * t6081 * t794 + 0.59934642900653710508e0 * t6060 * t6283 + 0.15762619094478157329e0 * t4838 * t2834 * t16706 - 0.21958039749871030452e0 * t6076 * t794 + 0.952625802678108160e0 * t2043 * t26674 - 0.21958039749871030452e0 * t2052 * t2108 - 0.50613316194190507389e-1 * t6070 * t794 + 0.476312901339054080e0 * t2043 * t20312 + 0.952625802678108160e0 * t6124 * t8476 - 0.67675321900558938528e0 * t1533 * t26686 + 0.59934642900653710508e0 * t1533 * t26690 - 0.67675321900558938528e0 * t2058 * t20477;
20299   t26697 = t1534 * t792 * t1515;
20300   t26709 = t2061 * t26239;
20301   t26712 = t3153 * t26239;
20302   t26727 = t2867 * t587;
20303   t26728 = t4718 * t26727;
20304   t26731 = t8342 * t238;
20305   t26737 = t4735 * t2815;
20306   t26744 = -0.1428938704017162240e1 * t6056 * t26697 + 0.65874119249613091356e0 * t6288 * t794 - 0.19834166657058243280e0 * t16903 * t2834 * t16904 - 0.75858199451789026628e0 * t4752 * t8538 - 0.85008516127783659765e0 * t6222 * t26486 - 0.19746155567343206400e2 * t9554 * t26709 - 0.13069187414967042065e2 * t9585 * t26712 + 0.58735597940247945544e1 * t9593 * t26709 - 0.238156450669527040e0 * t2058 * t20253 + 0.14645644599676186814e2 * t9575 * t26712 + 0.85008516127783659766e0 * t4752 * t8531 - 0.42504258063891829882e0 * t4752 * t8535 - 0.119078225334763520e0 * t8386 * t4715 + 0.29967321450326855254e0 * t1533 * t26728 - 0.238156450669527040e0 * t26731 * t1535 + 0.650049912832e0 * t245 * t2092 * t6172 + 0.97972381755974563669e-1 * t26737 * t1515 * t250 + 0.21252129031945914941e0 * t8345 * t1509 * t250;
20307   t26748 = -t577 * t26206 * t242;
20308   t26751 = t2077 * t2077;
20309   t26752 = t1542 * t26751;
20310   t26753 = t26752 * t242;
20311   t26758 = t781 * t1549;
20312   t26763 = t6089 * t1538;
20313   t26764 = t2051 * t26763;
20314   t26769 = t2838 * t587;
20315   t26770 = t785 * t26769;
20316   t26773 = t2838 * t578;
20317   t26774 = t2073 * t26773;
20318   t26777 = t11334 * t578;
20319   t26778 = t2065 * t26777;
20320   t26781 = t2065 * t26773;
20321   t26785 = t1555 * t26751 * t242;
20322   t26788 = t1523 * t8299;
20323   t26804 = 0.461000314880e0 * t575 * t26748 + 0.1645512963945267200e1 * t575 * t26753 - 0.238156450669527040e0 * t20054 * t2085 - 0.39188952702389825468e0 * t26758 * t20680 - 0.78377905404779650936e0 * t20225 * t6106 - 0.51875188131390032840e0 * t26764 * t6110 + 0.69941307667009169309e0 * t20225 * t6113 + 0.27629889249421717102e0 * t20228 * t26770 + 0.43916079499742060904e0 * t20671 * t26774 + 0.29066289463551723990e0 * t20675 * t26778 - 0.39188952702389825468e0 * t20671 * t26781 - 0.1844001259520e1 * t575 * t26785 + 0.42504258063891829882e0 * t26788 * t566 * t250 - 0.12204703833063489012e1 * t1540 * t26752 * t1545 - 0.734005159174078464e0 * t245 * t8447 * t1582 + 0.476312901339054080e0 * t8487 * t6179 + 0.65874119249613091357e0 * t8491 * t589 - 0.51005109676670195860e1 * t20428 * t26506;
20324   t26811 = t8363 * t242;
20325   t26812 = t1528 * t26811;
20326   t26827 = t2044 * t566 * t2038;
20327   t26840 = t2106 * t2106;
20328   t26844 = t2823 * t1539;
20329   t26849 = t792 * t1543;
20330   t26850 = t3153 * t26849;
20331   t26853 = -0.42504258063891829883e0 * t4774 * t8531 - 0.19594476351194912734e0 * t4777 * t8531 + 0.21252129031945914941e0 * t4774 * t8535 + 0.42504258063891829882e0 * t1527 * t26812 + 0.21252129031945914941e0 * t8527 * t4781 + 0.14983660725163427627e0 * t4863 * t8383 - 0.12751277419167548965e1 * t8336 * t1509 * t250 - 0.1428938704017162240e1 * t8439 * t6179 + 0.952625802678108160e0 * t2043 * t26467 + 0.11064007557120e2 * t6056 * t26827 + 0.42504258063891829882e0 * t6056 * t26257 + 0.238156450669527040e0 * t8451 * t4715 + 0.76507664515005293790e1 * t8350 * t1515 * t250 + 0.26741638969413672554e0 * t4823 * t2834 * t4824 + 0.650049912832e0 * t245 * t1568 * t26840 - 0.28131861550297056947e0 * t26844 * t4787 + 0.37929099725894513314e0 * t8527 * t4790 + 0.16879116930178234168e1 * t20353 * t26850;
20332   t26856 = t20162 * t2838;
20333   t26859 = t20354 * t2838;
20334   t26864 = t2820 * t1539;
20335   t26869 = t8342 * t574;
20336   t26878 = t792 * t1560;
20337   t26892 = t16634 * t2819;
20338   t26902 = -0.42504258063891829883e0 * t6222 * t26856 - 0.75858199451789026629e0 * t20358 * t26859 - 0.42504258063891829883e0 * t8524 * t4781 + 0.56263723100594113894e0 * t26864 * t4787 - 0.75858199451789026629e0 * t8524 * t4790 + 0.42504258063891829882e0 * t26869 * t1530 + 0.476312901339054080e0 * t6216 * t26856 - 0.18915142913373788794e1 * t20383 * t26850 + 0.25502554838335097930e1 * t20390 * t26859 + 0.31525238188956314657e0 * t6238 * t3153 * t26878 - 0.97994301469412365794e0 * t20746 * t12965 * t26849 - 0.28131861550297056947e0 * t16728 * t8507 - 0.12968797032847508210e0 * t16721 * t8507 + 0.29967321450326855254e0 * t8511 * t2061 * t20064 - 0.11756685810716947640e1 * t26892 * t1515 * t250 - 0.54895099374677576129e-1 * t8439 * t4715 - 0.54895099374677576130e-1 * t4820 * t8433 + 0.11064007557120e2 * t9548 * t26709;
20339   t26903 = t781 * t4823;
20340   t26908 = t4741 * t2815;
20341   t26923 = t2096 * t2038;
20342   t26941 = 0.42833280e2 * t2065 * t20194 + 0.22738942463240192000e2 * t6069 * t26923 + 0.22738942463240192000e2 * t6169 * t20194 - 0.76445411481600e2 * t6155 * t20194 + 0.5684735615810048000e1 * t8350 * t4795 + 0.10708320e2 * t8345 * t6131 - 0.7138880e1 * t26649 * t2096 + 0.10708320e2 * t2826 * t4795 + 0.114668117222400e3 * t26581 + 0.6370450956800e1 * t26220 + 0.3185225478400e1 * t26312;
20343   t26942 = t2038 * t2038;
20344   t26943 = t1523 * t26942;
20345   t26947 = t1514 * t26942;
20346   t26951 = t247 * t6042;
20347   t26961 = t16605 * t2819;
20348   t26966 = 0.6370450956800e1 * t26943 * t247 + 0.5684735615810048000e1 * t26270 - 0.7138880e1 * t26947 * t247 + 0.1784720e1 * t26748 - 0.7138880e1 * t2042 * t26951 + 0.5684735615810048000e1 * t26315 - 0.76445411481600e2 * t6136 * t26923 + 0.6370450956800e1 * t2051 * t26951 - 0.19111352870400e2 * t8336 * t4795 + 0.10145661348248508867e2 * t26961 * t6131 - 0.68216827389720576000e2 * t26892 * t6131;
20349   t26968 = t569 * t26206;
20350   t26985 = 0.1784720e1 * t26968 * t247 + 0.10145661348248508867e2 * t26278 - 0.19111352870400e2 * t26587 + 0.42833280e2 * t2051 * t26923 - 0.68216827389720576000e2 * t26471 - 0.42833280e2 * t26405 + 0.3185225478400e1 * t8345 * t4795 - 0.19111352870400e2 * t26292 + 0.6370450956800e1 * t26753 + 0.5684735615810048000e1 * t26737 * t6131 - 0.42833280e2 * t8336 * t6131;
20351   t27001 = 0.10708320e2 * t26494 - 0.7138880e1 * t26282 + 0.114668117222400e3 * t8350 * t6131 + 0.6370450956800e1 * t26309 + 0.10708320e2 * t26657 - 0.7138880e1 * t26491 - 0.3569440e1 * t8339 * t4795 - 0.19111352870400e2 * t26908 * t6131 + 0.6370450956800e1 * t26788 * t2096 - 0.3569440e1 * t26285 - 0.7138880e1 * t26785;
20352   t27013 = t785 * t20684;
20353   t27016 = t2042 * t575;
20354   t27018 = t242 * t566 * t578;
20355   t27019 = t2073 * t27018;
20356   t27022 = t2042 * t1540;
20357   t27024 = t1545 * t566 * t578;
20358   t27025 = t2065 * t27024;
20359   t27028 = t2065 * t27018;
20360   t27035 = t781 * t4838;
20361   t27040 = 0.27629889249421717102e0 * t26903 * t20229 - 0.10122663238838101478e0 * t20225 * t6095 - 0.12751277419167548965e1 * t26908 * t1515 * t250 + 0.97972381755974563669e-1 * t4777 * t8535 + 0.37929099725894513314e0 * t4774 * t8538 + 0.17485326916752292327e0 * t4777 * t8538 + 0.2766001889280e1 * t8345 * t238 * t6057 - 0.258304e0 * t245 * t583 * (t26941 + t26966 + t26985 + t27001) + 0.14983660725163427627e0 * t8386 * t4719 - 0.734005159174078464e0 * t245 * t4688 * t2867 * t1569 + 0.43916079499742060904e0 * t20683 * t27013 + 0.34003406451113463906e1 * t27016 * t27019 + 0.22505489240237645558e1 * t27022 * t27025 - 0.30343279780715610650e1 * t27016 * t27028 + 0.43916079499742060904e0 * t26758 * t20672 - 0.10122663238838101478e0 * t20225 * t6102 + 0.29066289463551723990e0 * t27035 * t20677 + 0.461000314880e0 * t26968 * t250;
20362   t27044 = t8475 * t580;
20363   t27055 = t1534 * t8375;
20364   t27079 = t574 * t4688 * t577;
20365   t27091 = 0.42504258063891829882e0 * t26943 * t250 + 0.43916079499742060904e0 * t20683 * t27044 + 0.238156450669527040e0 * t4770 * t8433 + 0.97972381755974563669e-1 * t8350 * t1509 * t250 + 0.45165298839047841173e-1 * t26961 * t1515 * t250 - 0.238156450669527040e0 * t1533 * t27055 + 0.238156450669527040e0 * t1549 * t2867 * t1555 * t4756 + 0.325024956416e0 * t245 * t8483 * t1582 - 0.29967321450326855254e0 * t4770 * t8383 + 0.69074723123554292753e-1 * t8439 * t4719 + 0.31525238188956314657e0 * t6238 * t11338 * t6217 - 0.42504258063891829882e0 * t6222 * t26250 + 0.25502554838335097930e1 * t20390 * t26397 - 0.42504258063891829882e0 * t8527 * t4757 - 0.67675321900558938528e0 * t27079 * t2061 * t20476 - 0.1428938704017162240e1 * t6222 * t26859 + 0.75875171479661457657e1 * t9580 * t12965 * t26239 - 0.97994301469412365794e0 * t20746 * t12091 * t6217;
20366   t27104 = t1528 * t2061 * t1515;
20367   t27135 = 0.59934642900653710508e0 * t8511 * t6232 * t6282 - 0.1844001259520e1 * t26947 * t250 - 0.119078225334763520e0 * t4863 * t8433 - 0.238156450669527040e0 * t1549 * t8375 * t577 * t1529 + 0.25502554838335097929e1 * t20041 * t27104 + 0.13814944624710858551e0 * t2055 * t20022 + 0.21958039749871030452e0 * t4752 * t8325 + 0.13538564572559691160e1 * t2055 * t20169 - 0.21958039749871030452e0 * t6242 * t6095 - 0.21958039749871030452e0 * t2055 * t20018 - 0.10979019874935515226e0 * t2055 * t20101 + 0.14533144731775861995e0 * t6225 * t20104 - 0.19594476351194912734e0 * t2055 * t20107 - 0.10979019874935515226e0 * t4774 * t8325 - 0.50613316194190507389e-1 * t4777 * t8325 + 0.21958039749871030452e0 * t2055 * t20098 + 0.25502554838335097929e1 * t2055 * t20026 + 0.23916119461575365556e1 * t245 * t16771 * t2854 * t1569;
20368   t27140 = my_piecewise3(t235, 0, t26273 + t26332 + t26377 + t26425 + t26485 + t26545 + t26593 + t26645 + t26695 + t26744 + t26804 + t26853 + t26902 + t27040 + t27091 + t27135);
20369   t27141 = my_piecewise3(t234, 0, t27140);
20370   t27143 = t1509 * t2873 + t1588 * t2815 + 0.4e1 * t2038 * t2112 + t233 * t27141 + t252 * t26206 + 0.2e1 * t566 * t8545 + 0.2e1 * t593 * t8299 + 0.2e1 * t6042 * t798 + 0.2e1 * t6295 * t779;
20371   t27158 = t8598 * t618;
20372   t27179 = -0.10000e5 / 0.729e3 * t26047 * t1654 * t1598 * t24 - 0.1000e4 / 0.243e3 * t2150 * t2151 * t6301 - 0.1000e4 / 0.243e3 * t278 * t1631 * t26055 - 0.100e3 / 0.81e2 * t2147 * t6375 - 0.50e2 / 0.27e2 * t26061 * t7443 - 0.100e3 / 0.81e2 * params->c1 * t26055 * t1627 - 0.10e2 / 0.9e1 * t8600 * t7446 - 0.5e1 / 0.9e1 * t961 * t962 * t27143 - 0.500e3 / 0.81e2 * t2150 * t8648 * t1598 - 0.50000e5 / 0.6561e4 * t20784 * t2879 * t1598 * t68 - 0.2500e4 / 0.729e3 * t6363 * t2879 * t1594 * t24 - 0.20e2 / 0.9e1 * t27158 * t2551 - 0.2000e4 / 0.81e2 * t19849 * t6369 - params->c1 * t27143 * t279 - 0.50e2 / 0.81e2 * t617 * t2557 * t2875 * t1594 - 0.500e3 / 0.81e2 * t2901 * t1631 * t1594 - 0.10000e5 / 0.729e3 * t6363 * t9874 * t9864 - 0.100e3 / 0.81e2 * t617 * t2557 * t8547 * t599;
20373   t27188 = t2158 * t2158;
20374   t27200 = t8631 * t4947;
20375   t27203 = t8558 * t8635;
20376   t27207 = t1263 * t1654 * t8547;
20377   t27220 = t4017 * t4965 * t2875;
20378   t27224 = t26055 * t36 * t1645;
20379   t27229 = t24 * t285;
20380   t27230 = t6308 * t27229;
20381   t27239 = -0.250e3 / 0.243e3 * t4966 * t27200 - 0.1000e4 / 0.243e3 * t20843 * t27203 - 0.10e2 / 0.9e1 * t27207 * t628 - 0.500e3 / 0.81e2 * t4942 * t27200 - 0.50e2 / 0.27e2 * t449 * t8648 * t1646 - 0.50e2 / 0.27e2 * t1263 * t4952 * t2875 * t1646 - 0.25e2 / 0.81e2 * t27220 * t1646 - 0.50e2 / 0.81e2 * t1655 * t27224 - 0.1250e4 / 0.2187e4 * t14957 * t17089 * t2879 * t27230 - 0.500e3 / 0.81e2 * t4953 * t27200 - 0.5000e4 / 0.729e3 * t4017 * t17071 * t2879 * t27230;
20382   t27247 = t68 * t285 * t6301;
20383   t27258 = t4952 * t2879;
20384   t27262 = t4965 * t2879;
20385   t27271 = -0.20e2 / 0.9e1 * t449 * t1630 * t8547 * t628 - 0.10e2 / 0.9e1 * t8642 * t1650 - 0.100e3 / 0.81e2 * t2163 * t27247 - 0.50e2 / 0.81e2 * t2173 * t27247 - 0.5e1 / 0.9e1 * t8649 * t1650 - 0.2000e4 / 0.81e2 * t20886 * t27203 - 0.100e3 / 0.81e2 * t1643 * t27224 - 0.10000e5 / 0.729e3 * t449 * t27258 * t27230 - 0.5000e4 / 0.243e3 * t1263 * t27262 * t27230 - t449 * t618 * t27143 * t285 - 0.2000e4 / 0.81e2 * t20854 * t27203;
20386   t27273 = my_piecewise3(t277, t1638 * t283 * t2910 + t1638 * t283 * t2912 + t1640 * t283 * t2910 + t1640 * t283 * t2912 + 0.2e1 * t283 * t623 * t8622 + 0.4e1 * t2159 * t2160 + t27179 * t283 + 0.2e1 * t27188 * t283 + 0.2e1 * t6378 * t824, t27239 + t27271);
20387   t27289 = -0.2e1 * t1423 * t1617 * t2894 + 0.8e1 * t1423 * t2137 * t2140 + 0.4e1 * t1423 * t611 * t8585 + 0.8e1 * t1423 * t611 * t8593 - 0.24e2 * t1424 * t16323 * t2775 - 0.12e2 * t1424 * t2896 * t4566 + 0.6e1 * t1617 * t2775 * t4566 - t1659 * t2893 * t510 - 0.12e2 * t4566 * t611 * t8215 - 0.2e1 * t510 * t631 * t8582 - 0.2e1 * t510 * t6413 * t814 + 0.24e2 * t19843 * t5932 - t27273 * t276;
20388   t27301 = t184 * t19;
20389   t27313 = t2134 * t2134;
20390   t27321 = t266 * t6301;
20391   t27329 = t17020 * t2527;
20392   t27337 = t1609 * t8547;
20393   t27348 = t4897 * t2875;
20394   t27354 = t2130 * t68 * t27321 / 0.162e3 + 0.125e3 / 0.1458e4 * t2880 * t6308 * t16960 - 0.125e3 / 0.2187e4 * t2880 * t20963 * t27329 - t8551 * t7398 / 0.60e2 + 0.10e2 / 0.243e3 * t6330 * t8558 * t8554 + t27337 * t2528 / 0.90e2 + t8570 * t7398 / 0.180e3 + t2876 * t1598 * t1611 / 0.108e3 - 0.5e1 / 0.81e2 * t8562 * t20920 * t266 + t27348 * t7403 / 0.324e3 + t1609 * t26055 * t1611 / 0.162e3;
20395   t27358 = t8548 * t262;
20396   t27364 = t2876 * t264;
20397   t27377 = t20844 * t266;
20398   t27388 = t604 * t27143 * t266 / 0.100e3 - t27358 * t2528 / 0.30e2 + 0.10e2 / 0.81e2 * t6316 * t2123 * t2118 - t27364 * t7403 / 0.54e2 - t56 * t26055 * t36 * t1602 / 0.54e2 + 0.25e2 / 0.4374e4 * t16979 * t8631 * t27329 - t2122 * t1601 * t27321 / 0.54e2 + 0.5e1 / 0.162e3 * t2880 * t27377 - t56 * t27143 * t266 / 0.100e3 + 0.5e1 / 0.486e3 * t8576 * t27377 - 0.20e2 / 0.81e2 * t6316 * t8563 * t8554;
20399   t27425 = t2137 * t2137;
20400   t27429 = -0.4e1 * t510 * t2137 * t2177 + t510 * (0.19e2 / 0.162e3 * t37 * t6033 * t194 - 0.41e2 / 0.32e2 * t346 * t1441 * sigma[2] * t194 + 0.1323e4 / 0.3200e4 * t1054 * t1450 * t27301 * t1452 - 0.78003e5 / 0.2048000e7 * t8230 * t5957 + 0.59049e5 / 0.10240000e8 * t14238 * t1446 / t4602 / t176 * t194 + 0.4e1 * t27313 + 0.4e1 * t811 * t6333 + 0.2e1 * t1614 * t2890 + 0.4e1 * t608 * t8579 + 0.2e1 * t269 * (t27354 + t27388)) * t288 - 0.4e1 * t1423 * t8583 * t611 + 0.2e1 * t1423 * t1424 * t2925 + 0.6e1 * t4566 * t2894 * t1424 + 0.1174e1 * t27273 + 0.2e1 * t1423 * t2774 * t1659 - 0.2e1 * t510 * t611 * t8657 - 0.4e1 * t1423 * t815 * t6336 - 0.2e1 * t510 * t6336 * t829 - t510 * t1617 * t2925 + 0.8e1 * t1423 * t8590 * t611 + 0.4e1 * t1423 * t2896 * t1617 - 0.4e1 * t1423 * t27425 * t288;
20401   t27473 = 0.54261293660325432299e0 * t1686 * t4529 * t2947 * t1688 * t301 - 0.11132775000000000000e3 * t2195 * t8195 * t5877 + 0.60406209071787192651e2 * t1686 * t8132 * t1688 * t1690 - 0.37109250000000000000e1 * t25829 + t25619 + t25625 - 0.16699162500000000000e3 * t2195 * t16294 * t8139 + 0.46509680280278941972e0 * t1686 * t17159 * t8144 + 0.60406209071787192652e2 * t1686 * t8152 * t177 * t1690 + 0.11326164200960098622e2 * t1686 * t1662 * t2947 * t293 * t1690 - 0.12113307472923900000e3 * t16083 * t25819 * t17309;
20402   t27476 = t291 * t11570;
20403   t27531 = 0.20135403023929064217e2 * t25864 + 0.75507761339733990814e1 * t25866 + 0.18554625000000000000e1 * t21045 * t840 - 0.29687400000000000000e2 * t8185 * t1677 - t484 * t8082 * t1415 / 0.2e1 - t1308 * t8082 * t1402 / 0.6e1 - t25636 - 0.30924375000000000000e0 * t25868 + 0.10067701511964532109e2 * t25870 - 0.16493000000000000000e1 * t25874 + 0.16493000000000000000e1 * t25876;
20404   t27537 = t2208 * t210;
20405   t27579 = 0.30203104535893596326e2 * t16036 * t8181 - 0.38964712500000000000e3 * t640 * t17216 * t1435 * t16289 + t25604 - 0.46386562500000000000e0 * t5022 * t2943 - 0.90849806046929250000e2 * t640 * t27537 * t1673 * t16289 + 0.15101552267946798163e2 * t4414 * t8106 * t17132 - 0.41747906250000000000e1 * t5022 * t2938 + 0.12369750000000000000e1 * t25895 + 0.37109250000000000000e1 * t25899 - 0.11132775000000000000e2 * t4476 * t8169 - 0.55663875000000000000e1 * t1376 * t1675 * t2936 * t4546;
20406   t27585 = -0.12081241814357438530e3 * t8135 - 0.16699162500000000000e3 * t8141 + 0.46509680280278941972e0 * t8146 + 0.60406209071787192652e2 * t8150 + 0.22652328401920197244e2 * t8155 - 0.90849806046929250000e2 * t8163 + t10 * (t27531 + t27473 + t27579 + t26016 - 0.30283268682309750000e2 * t25890 - 0.41232500000000000000e0 * t25878 - t25843 / 0.4e1 + 0.15503226760092980657e0 * t25827 - 0.40270806047858128434e2 * t25823 - 0.55663875000000000000e2 * t25825 + 0.14843700000000000000e2 * t25817 - 0.16493000000000000000e1 * t25808 + 0.41232500000000000000e0 * t25803 - t25598 - 0.3e1 / 0.8e1 * t8 * t175 * (t27289 + t27429) * t302 + 0.24647459318104087313e3 * t1686 * t27476 * t178 * t16289 - 0.10067701511964532108e2 * t1686 * t2948 * t1688 * t1690 - 0.14431375000000000000e1 * t640 * t644 * t27537 * t301 + 0.14843700000000000000e2 * t1376 * t1675 * t8204 * t1409 - 0.18554625000000000000e1 * t4246 * t1675 * t2936 * t4539 + 0.80541612095716256868e2 * t1686 * t2928 * t837 * t1688 * t1690 + 0.52880681250000000000e3 * t2195 * t4521 * t837 * t5891 * t301 + 0.44531100000000000000e2 * t2195 * t2180 * t1673 * t19 * t2198 - 0.12081241814357438530e3 * t1686 * t2180 * t2208 * t177 * t1690 + 0.12369750000000000000e1 * t1668 * t8201 - 0.16108322419143251374e3 * t19561 * t5911 - 0.49479000000000000000e1 * t5919 * t2204 + 0.57725500000000000000e1 * t2186 * t6451 + 0.57725500000000000000e1 * t8185 * t1682 + 0.59374800000000000000e2 * t5796 * t5926 - t484 * t25798 * t504 + 0.44531100000000000000e3 * t2195 * t19674 * t5893 - 0.12402581408074384526e1 * t1686 * t19679 * t5898 + 0.50338507559822660543e1 * t15653 * t8106 * t17128) + t25583 - t25585 - t25587 - t25581 - t8166 - 0.11132775000000000000e2 * t8170;
20407   t27598 = -0.12369750000000000000e1 * t8175 + 0.49479000000000000000e1 * t8177 - 0.49479000000000000000e1 * t8179 + 0.30203104535893596326e2 * t8182 - 0.49479000000000000000e1 * t8186 + 0.37109250000000000000e1 * t8188 - 0.83495812500000000000e1 * t8190 - 0.92773125000000000000e0 * t8192 + t25589 + 0.44531100000000000000e2 * t8197 + 0.12369750000000000000e1 * t8202 + 0.11132775000000000000e2 * t8207 - 0.3e1 / 0.4e1 * t8663;
20408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20409     v4rho2sigma2[17] = t27585 + t27598;
20410 
20411   t27600 = t2399 * t847 * t9283;
20412   t27608 = t22502 * t3101 / 0.6e1;
20413   t27609 = t7016 * t9285;
20414   t27610 = t22370 * t1919;
20415   t27617 = t2399 * t309 * t3099;
20416   t27635 = t3068 * t1239;
20417   t27638 = t893 * t1265;
20418   t27667 = t681 * t36;
20419   t27676 = t5203 * t6579;
20420   t27701 = 0.25e2 / 0.81e2 * t21192 * t27667 * t1110 - 0.25e2 / 0.108e3 * t21192 * t68 * t338 * t387 * sigma[0] + 0.10e2 / 0.9e1 * t27676 * t6582 + 0.10e2 / 0.9e1 * t21180 * t8713 + 0.10e2 / 0.9e1 * t21184 * t8713 + 0.10e2 / 0.9e1 * t21188 * t8713 + 0.10e2 / 0.9e1 * t6580 * t1764 * t19 * t355 + 0.3e1 / 0.2e1 * t21295 * t2967 + 0.3e1 * t21298 * t2967 + 0.3e1 * t6543 * t8763 + 0.3e1 * t6543 * t8782 + 0.3e1 / 0.2e1 * t21303 * t2967 + 0.3e1 * t6546 * t8763;
20421   t27704 = t1091 * t1751;
20422   t27707 = t3686 * t676;
20423   t27710 = t3694 * t676;
20424   t27713 = t1086 * t8717;
20425   t27717 = t376 * t1751 * t382;
20426   t27722 = t676 * t1106;
20427   t27723 = t376 * t27722;
20428   t27726 = t3686 * t1098;
20429   t27729 = t1091 * t5225;
20430   t27742 = 0.3e1 * t6546 * t8782 + 0.3e1 * t27704 * t2245 + 0.3e1 * t27707 * t2245 - 0.15e2 / 0.4e1 * t27710 * t6555 - 0.20e2 / 0.27e2 * t27713 * t2252 - 0.20e2 / 0.27e2 * t27717 * t2252 - 0.20e2 / 0.27e2 * t8718 * t6532 - 0.50e2 / 0.243e3 * t27723 * t6537 - 0.5e1 / 0.12e2 * t27726 * t8723 - 0.5e1 / 0.12e2 * t27729 * t8723 - 0.5e1 / 0.12e2 * t8721 * t6531 * t8722 - 0.5e1 / 0.24e2 * t8721 * t2251 * t664 * t1115 - 0.25e2 / 0.36e2 * t6535 * t6536 * t5260;
20431   t27766 = t3694 * t1098;
20432   t27772 = t25330 * t23;
20433   t27776 = t17523 * t85;
20434   t27779 = t3694 * t377;
20435   t27784 = 0.25e2 / 0.162e3 * t21265 * t8726 + 0.25e2 / 0.162e3 * t21244 * t8726 + 0.25e2 / 0.162e3 * t6535 * t21251 * t1759 + 0.3e1 * t8785 * t6550 + 0.3e1 / 0.2e1 * t8785 * t6540 + 0.3e1 / 0.2e1 * t2243 * t21218 * t681 + 0.10e2 / 0.9e1 * t8721 * t2251 * t1725 * t387 + 0.110e3 / 0.81e2 * t8729 * t6585 + 0.110e3 / 0.81e2 * t8718 * t6585 + 0.25e2 / 0.48e2 * t27766 * t2251 * t664 * t1092 + 0.25e2 / 0.104976e6 * t6535 * t345 * t1718 * t27772 - 0.15e2 / 0.4e1 * t27776 * t6555 + 0.5e1 / 0.6912e4 * t27779 * t68 * t77 * t1092;
20436   t27788 = t5201 * t1098;
20437   t27791 = t1737 * t5225;
20438   t27796 = t1737 * t3707;
20439   t27822 = 0.110e3 / 0.81e2 * t2250 * t2251 * t5111 - 0.20e2 / 0.27e2 * t27788 * t2252 - 0.20e2 / 0.27e2 * t27791 * t2252 - 0.20e2 / 0.27e2 * t8729 * t6532 - 0.50e2 / 0.243e3 * t27796 * t6537 - 0.20e2 / 0.27e2 * t2250 * t6531 * t1725 + 0.250e3 / 0.729e3 * t21326 * t21327 * t5172 + 0.3e1 / 0.2e1 * t6573 * t5216 + 0.3e1 / 0.2e1 * t21197 * t1742 + 0.13e2 / 0.2916e4 * t2976 * t2977 * t1758 + 0.105e3 / 0.8e1 * t21210 * t2244 * t5213 - 0.13e2 / 0.7776e4 * t8740 * t8750 - 0.13e2 / 0.7776e4 * t8743 * t8750 - 0.185e3 / 0.34992e5 * t2976 * t8746 * t7638;
20440   t27851 = t3683 * t85;
20441   t27854 = t1086 * t378;
20442   t27861 = -0.25e2 / 0.9e1 * t21172 * t1742 * t19 * t355 - t8777 * t68 * t77 * t1115 / 0.3456e4 - 0.20e2 / 0.27e2 * t6525 * t8767 - 0.20e2 / 0.27e2 * t6528 * t8767 + t68 * t8732 * t1115 / 0.10368e5 - t376 * t5239 * t89 * t857 - 0.2e1 * t376 * t8794 * t2255 - t376 * t2970 * t6565 - 0.15e2 / 0.4e1 * t6554 * t2244 * t5219 + t27851 * t2979 / 0.5184e4 + t27854 * t2979 / 0.2592e4 + 0.5e1 / 0.5832e4 * t8740 * t8747 - 0.15e2 / 0.2e1 * t21204 * t8737;
20443   t27870 = t376 * t1102;
20444   t27878 = t77 * t1090;
20445   t27889 = -0.15e2 / 0.2e1 * t6554 * t6549 * t1742 - 0.15e2 / 0.2e1 * t6554 * t2244 * t5216 - 0.15e2 / 0.2e1 * t21215 * t8737 + t27870 * t2979 / 0.5184e4 + 0.5e1 / 0.5832e4 * t8743 * t8747 - 0.15e2 / 0.8e1 * t21229 * t5213 - 0.13e2 / 0.2916e4 * t7657 - t68 * t27878 * t1092 / 0.6912e4 - t3683 * t2971 - 0.2e1 * t1086 * t8795 - 0.2e1 * t1086 * t8797 - t1737 * t6566 - t17530 * t858;
20446   t27902 = t1091 * t8717 * t857;
20447   t27915 = t3686 * t377;
20448   t27918 = t1091 * t1745;
20449   t27921 = sigma[0] * t387;
20450   t27926 = -0.2e1 * t5201 * t2248 - 0.2e1 * t5201 * t2256 + 0.3e1 * t2243 * t6549 * t1764 + 0.3e1 / 0.2e1 * t2243 * t2244 * t5265 + 0.10e2 / 0.9e1 * t27902 * t6582 - 0.55e2 / 0.27e2 * t6580 * t8712 * t1067 + 0.5e1 / 0.36e2 * t21268 * t2973 + 0.5e1 / 0.18e2 * t6528 * t8774 + 0.5e1 / 0.36e2 * t2250 * t21247 * t664 - t27915 * t8779 / 0.1728e4 - t27918 * t8779 / 0.1728e4 - 0.5e1 / 0.3888e4 * t8721 * t10959 * t27921 - t6521 * t1764;
20451   t27934 = t17519 * t85;
20452   t27937 = t5203 * t378;
20453   t27957 = -t2239 * t5265 / 0.2e1 + 0.3e1 / 0.4e1 * t6573 * t5219 - t1737 * t6558 - 0.2e1 * t1737 * t6560 + 0.3e1 * t27934 * t2245 + 0.3e1 * t27937 * t2245 + 0.3e1 * t8755 * t6550 + 0.3e1 / 0.2e1 * t8755 * t6540 - t21222 * t681 / 0.2e1 + 0.13e2 / 0.5184e4 * t8777 * t68 * t45 * t387 + 0.5e1 / 0.36e2 * t21255 * t2973 + 0.5e1 / 0.18e2 * t21260 * t2973 + 0.5e1 / 0.18e2 * t6525 * t8774 - 0.13e2 / 0.15552e5 * t7661;
20454   t27960 = t27701 + t27742 + t27784 + t27822 + t27861 + t27889 + t27926 + t27957;
20455   t28002 = -0.75858199451789026628e0 * t3837 * t8917 + 0.12751277419167548965e1 * t1784 * t21539 - 0.10979019874935515226e0 * t2273 * t17856 - 0.54895099374677576129e-1 * t2273 * t17860 - 0.85008516127783659764e0 * t6696 * t5299 - 0.85008516127783659764e0 * t2273 * t17716 - 0.42504258063891829882e0 * t2273 * t17707 + 0.16879116930178234168e1 * t6689 * t18238 - 0.22757459835536707989e1 * t2273 * t17712 + 0.19594476351194912734e0 * t21419 * t7767 + 0.97972381755974563669e-1 * t21642 * t7767 + 0.19594476351194912734e0 * t6720 * t24335 + 0.45165298839047841173e-1 * t21645 * t7767;
20456   t28022 = t3856 * t6741 * t697;
20457   t28026 = t3856 * t2279 * t1835;
20458   t28033 = -0.56263723100594113894e0 * t21707 * t5303 - 0.56263723100594113894e0 * t6689 * t17738 - 0.28131861550297056947e0 * t6689 * t17844 + 0.69074723123554292753e-1 * t1784 * t21536 - 0.10979019874935515226e0 * t1784 * t21770 - 0.54895099374677576129e-1 * t1784 * t21774 - 0.85008516127783659764e0 * t5508 * t6653 - 0.85008516127783659764e0 * t1784 * t21464 - 0.42504258063891829882e0 * t1784 * t21467 - 0.10979019874935515226e0 * t1136 * t28022 - 0.10979019874935515226e0 * t1136 * t28026 - 0.10979019874935515226e0 * t5508 * t6668 + 0.19594476351194912734e0 * t18181 * t8929;
20459   t28037 = t5319 * t2296;
20460   t28060 = t1177 * t9087;
20461   t28064 = 0.97972381755974563669e-1 * t17867 * t8929 + 0.19594476351194912734e0 * t5318 * t28037 + 0.45165298839047841173e-1 * t17871 * t8929 - 0.56263723100594113894e0 * t17996 * t6658 - 0.56263723100594113894e0 * t5399 * t21488 - 0.28131861550297056947e0 * t5399 * t21492 + 0.87446194859244818739e0 * t18003 * t21471 - 0.15062248783813849042e1 * t5399 * t21410 + 0.75858199451789026628e0 * t5508 * t6661 + 0.75858199451789026628e0 * t1784 * t21532 + 0.37929099725894513314e0 * t1784 * t21356 + 0.67692822862798455802e0 * t1784 * t21361 + 0.650049912832e0 * t107 * t28060 * t411;
20462   t28065 = t9003 * t100;
20463   t28070 = t862 * t3771;
20464   t28075 = t8812 * t397;
20465   t28076 = t2269 * t28075;
20466   t28080 = t6615 * t9109 * t100;
20467   t28083 = t2269 * t399;
20468   t28093 = t2323 * t691;
20469   t28096 = t874 * t1808;
20470   t28101 = -0.238156450669527040e0 * t28065 * t1144 + 0.21958039749871030452e0 * t21590 * t25025 + 0.13814944624710858551e0 * t28070 * t18382 - 0.50613316194190507388e-1 * t21587 * t5309 - 0.50613316194190507388e-1 * t28076 * t3858 + 0.90330597678095682346e-1 * t28080 * t5320 + 0.25502554838335097930e1 * t28083 * t9109 * t404 - 0.42504258063891829882e0 * t5312 * t21440 - 0.58783429053584738202e0 * t18184 * t8929 - 0.54895099374677576130e-1 * t3827 * t8922 - 0.10979019874935515226e0 * t1136 * t28093 - 0.10979019874935515226e0 * t1136 * t28096 - 0.25306658097095253694e-1 * t3830 * t8922;
20471   t28106 = t2279 * t24389;
20472   t28114 = t8845 * t402;
20473   t28115 = t2279 * t28114;
20474   t28118 = t6656 * t28114;
20475   t28125 = t2283 * t3001 * t411;
20476   t28128 = t394 * t1149;
20477   t28129 = t6623 * t5302;
20478   t28141 = -0.119078225334763520e0 * t1787 * t21508 - 0.59934642900653710508e0 * t17987 * t28106 - 0.39668333314116486557e0 * t18098 * t6656 * t24389 + 0.53483277938827345108e0 * t18102 * t28106 - 0.1428938704017162240e1 * t5394 * t28115 - 0.18915142913373788795e1 * t18106 * t28118 - 0.97994301469412365794e0 * t18264 * t8900 * t28114 + 0.14533144731775861996e0 * t18014 * t28125 + 0.33758233860356468337e1 * t28128 * t28129 + 0.85008516127783659766e0 * t6725 * t8808 * t1166 - 0.28131861550297056947e0 * t14676 * t8937 - 0.12968797032847508210e0 * t14679 * t8937 - 0.54895099374677576130e-1 * t3827 * t8941;
20479   t28153 = t6602 * t18377;
20480   t28167 = t6741 * t689;
20481   t28168 = t3840 * t28167;
20482   t28171 = t2279 * t1806;
20483   t28172 = t3840 * t28171;
20484   t28175 = t3862 * t28171;
20485   t28178 = -0.25306658097095253694e-1 * t3830 * t8941 - 0.42504258063891829883e0 * t3827 * t8947 - 0.19594476351194912734e0 * t3830 * t8947 + 0.56263723100594113894e0 * t14540 * t8937 + 0.21958039749871030452e0 * t21590 * t8988 * t404 - 0.11756685810716947640e1 * t28153 * t8809 - 0.42504258063891829883e0 * t6725 * t8808 * t1171 + 0.56263723100594113894e0 * t21787 * t8808 * t1155 - 0.75858199451789026629e0 * t6725 * t8808 * t1174 - 0.67675321900558938528e0 * t21929 * t18382 - 0.85008516127783659766e0 * t1136 * t28168 - 0.85008516127783659766e0 * t1136 * t28172 + 0.75858199451789026628e0 * t1136 * t28175;
20486   t28180 = t3011 * t402;
20487   t28181 = t28180 * t104;
20488   t28182 = t3862 * t28181;
20489   t28185 = t3862 * t28167;
20490   t28189 = t3862 * t10101 * t689;
20491   t28193 = t3862 * t6656 * t1806;
20492   t28198 = t2290 * t5294;
20493   t28201 = t394 * t399;
20494   t28206 = t2989 * t1148;
20495   t28217 = 0.75858199451789026628e0 * t1136 * t28182 + 0.75858199451789026628e0 * t1136 * t28185 - 0.56263723100594113894e0 * t3861 * t28189 - 0.56263723100594113894e0 * t3861 * t28193 - 0.97972381755974563671e-1 * t1784 * t21524 + 0.21958039749871030452e0 * t18010 * t28198 + 0.25502554838335097930e1 * t28201 * t9074 - 0.54895099374677576130e-1 * t3750 * t8953 - 0.28131861550297056947e0 * t28206 * t3864 + 0.37929099725894513314e0 * t8859 * t3867 + 0.21252129031945914941e0 * t21833 * t1791 + 0.42504258063891829882e0 * t6696 * t5499 + 0.21252129031945914941e0 * t2273 * t18134;
20496   t28218 = t393 * t27960;
20497   t28223 = t9042 * t398;
20498   t28236 = t2269 * t24855;
20499   t28243 = t2262 * t399;
20500   t28246 = t2262 * t1149;
20501   t28249 = 0.461000314880e0 * t28218 * t112 - 0.85008516127783659766e0 * t6725 * t24433 - 0.85008516127783659765e0 * t28223 * t5314 + 0.37929099725894513314e0 * t3827 * t8917 + 0.17485326916752292327e0 * t3830 * t8917 - 0.54895099374677576130e-1 * t1784 * t21518 + 0.72665723658879309976e-1 * t5399 * t21521 - 0.39188952702389825468e0 * t21587 * t5299 - 0.25937594065695016420e0 * t28236 * t5303 + 0.34970653833504584654e0 * t21587 * t5306 + 0.21958039749871030452e0 * t21590 * t24850 + 0.17001703225556731953e1 * t28243 * t24966 + 0.11252744620118822779e1 * t28246 * t24972;
20502   t28255 = t862 * t1158;
20503   t28280 = -0.15171639890357805326e1 * t28243 * t24975 + 0.21958039749871030452e0 * t28255 * t18011 - 0.50613316194190507388e-1 * t21587 * t5295 + 0.87446194859244818739e0 * t21710 * t17848 - 0.15062248783813849042e1 * t6689 * t17852 + 0.75858199451789026628e0 * t6696 * t5306 + 0.75858199451789026628e0 * t2273 * t17723 + 0.37929099725894513314e0 * t2273 * t18215 + 0.67692822862798455802e0 * t2273 * t17883 - 0.54895099374677576130e-1 * t2273 * t17877 + 0.72665723658879309976e-1 * t6689 * t17888 - 0.97972381755974563671e-1 * t2273 * t17874 - 0.85008516127783659764e0 * t17804 * t8913;
20504   t28282 = t3856 * t8866 * t411;
20505   t28285 = t3840 * t28181;
20506   t28310 = -0.10979019874935515226e0 * t1136 * t28282 - 0.85008516127783659765e0 * t1136 * t28285 - 0.10979019874935515226e0 * t1784 * t21515 + 0.97972381755974563669e-1 * t8813 * t17822 - 0.12968797032847508210e0 * t8813 * t17826 + 0.17485326916752292327e0 * t8813 * t17829 - 0.85008516127783659764e0 * t21779 * t7760 - 0.85008516127783659764e0 * t6725 * t24445 - 0.42504258063891829882e0 * t6725 * t17728 - 0.58783429053584738202e0 * t21478 * t7767 - 0.10979019874935515226e0 * t6696 * t5295 - 0.19594476351194912734e0 * t8813 * t17891 + 0.12751277419167548965e1 * t21416 * t24439;
20507   t28315 = t1137 * t2279 * t1124;
20508   t28345 = 0.10979019874935515226e0 * t2273 * t17700 + 0.12751277419167548965e1 * t17743 * t28315 + 0.16879116930178234168e1 * t5399 * t21457 - 0.22757459835536707989e1 * t1784 * t21792 - 0.10979019874935515226e0 * t2270 * t1837 - 0.25502554838335097930e1 * t6602 * t1767 * t9122 + 0.476312901339054080e0 * t2263 * t24800 + 0.238156450669527040e0 * t2263 * t1143 * t684 * t1191 + 0.31525238188956314656e0 * t8886 * t5410 - 0.42504258063891829882e0 * t8883 * t5413 + 0.31525238188956314658e0 * t5504 * t10101 * t8845 + 0.13814944624710858551e0 * t6720 * t5495 + 0.65874119249613091357e0 * t6602 * t8812 * t5514;
20509   t28346 = t2269 * t107;
20510   t28347 = t407 * t684;
20511   t28359 = t6656 * t18031;
20512   t28364 = t6620 * t5498;
20513   t28367 = t21663 * t1790;
20514   t28379 = t8965 * t3833;
20515   t28384 = -0.1428938704017162240e1 * t28346 * t28347 * t5513 - 0.119078225334763520e0 * t2276 * t18055 + 0.21252129031945914941e0 * t1784 * t21906 + 0.15762619094478157329e0 * t5504 * t6656 * t689 * t1191 + 0.36614111499190467036e1 * t8850 * t28359 - 0.119078225334763520e0 * t9017 * t3747 - 0.1844001259520e1 * t399 * t28364 - 0.922000629760e0 * t399 * t28367 - 0.61023519165317445059e0 * t1149 * t2283 * t24659 - 0.119078225334763520e0 * t1158 * t6629 * t2658 - 0.238156450669527040e0 * t1158 * t2295 * t7831 - 0.922000629760e0 * t399 * t28379 - 0.29967321450326855254e0 * t3783 * t9028;
20516   t28387 = t1132 * t8800;
20517   t28393 = t6741 * t8845;
20518   t28396 = t6741 * t8851;
20519   t28407 = t1151 * t8828;
20520   t28408 = t28407 * t1138;
20521   t28412 = t3862 * t12612 * t402;
20522   t28417 = t6610 * t8812;
20523   t28426 = 0.42504258063891829882e0 * t28387 * t390 * t112 + 0.29967321450326855254e0 * t21839 * t1818 + 0.476312901339054080e0 * t5388 * t28393 + 0.5532003778560e1 * t8893 * t28396 + 0.238156450669527040e0 * t3783 * t8953 - 0.119078225334763520e0 * t1158 * t866 * t24888 + 0.21252129031945914941e0 * t21875 * t684 * t112 + 0.1645512963945267200e1 * t399 * t28408 - 0.56263723100594113894e0 * t3861 * t28412 - 0.85008516127783659766e0 * t21779 * t8809 + 0.19594476351194912734e0 * t28417 * t5320 + 0.325024956416e0 * t107 * t2309 * t5472 + 0.650049912832e0 * t107 * t6735 * t1835;
20524   t28427 = t2294 * t689;
20525   t28428 = t28427 * t1795;
20526   t28433 = t865 * t1806;
20527   t28434 = t28433 * t1159;
20528   t28437 = t28433 * t1138;
20529   t28440 = t28433 * t1795;
20530   t28448 = t2290 * t18133;
20531   t28461 = -0.65345937074835210326e1 * t8904 * t28428 + 0.29367798970123972772e1 * t8877 * t28396 - 0.42504258063891829882e0 * t5394 * t28434 - 0.9873077783671603200e1 * t8896 * t28437 - 0.65345937074835210326e1 * t8904 * t28440 + 0.476312901339054080e0 * t6794 * t7939 - 0.238156450669527040e0 * t1158 * t6754 * t5498 - 0.922000629760e0 * t399 * t28448 + 0.14983660725163427627e0 * t2276 * t18200 + 0.238156450669527040e0 * t2263 * t18072 + 0.32937059624806545678e0 * t6791 * t699 - 0.54895099374677576129e-1 * t2992 * t1193 - 0.54895099374677576130e-1 * t6806 * t699;
20532   t28465 = t21650 * t1790;
20533   t28468 = t3757 * t3011;
20534   t28475 = t873 * t1835;
20535   t28479 = t862 * t3793;
20536   t28494 = t8866 * t5389;
20537   t28499 = -0.25306658097095253694e-1 * t6803 * t699 + 0.822756481972633600e0 * t399 * t28465 + 0.18968792869915364414e1 * t3755 * t28468 * t5355 + 0.21252129031945914941e0 * t8999 * t1118 * t112 - 0.1468010318348156928e1 * t9046 * t28475 * t411 + 0.14533144731775861995e0 * t28479 * t18016 - 0.19594476351194912734e0 * t28255 * t18019 + 0.42504258063891829882e0 * t6610 * t1767 * t112 - 0.119078225334763520e0 * t1158 * t21616 * t1790 - 0.54895099374677576130e-1 * t5431 * t875 - 0.25306658097095253694e-1 * t5375 * t875 + 0.476312901339054080e0 * t5388 * t28494 + 0.73228222998380934072e1 * t8850 * t28428;
20538   t28503 = t3037 * t1151;
20539   t28510 = t2322 * t697;
20540   t28520 = t8870 * t3786;
20541   t28526 = t6648 * t5494;
20542   t28531 = t2262 * t107;
20543   t28534 = t2283 * t18133;
20544   t28537 = -0.119078225334763520e0 * t1158 * t9096 * t3833 + 0.15762619094478157328e0 * t3793 * t28503 * t3863 - 0.21252129031945914941e0 * t1158 * t28503 * t3841 - 0.1468010318348156928e1 * t9046 * t28510 * t411 - 0.10979019874935515226e0 * t6797 * t699 + 0.21252129031945914941e0 * t3827 * t8867 + 0.97972381755974563669e-1 * t3830 * t8867 - 0.21252129031945914941e0 * t5394 * t28520 + 0.14983660725163427627e0 * t6717 * t5489 - 0.67675321900558938528e0 * t394 * t107 * t28526 - 0.119078225334763520e0 * t17971 * t2302 - 0.59934642900653710508e0 * t28531 * t24304 + 0.822756481972633600e0 * t399 * t28534;
20545   t28542 = t10254 * t7831;
20546   t28548 = t6741 * t7784;
20547   t28556 = t21359 * t2658;
20548   t28565 = t6656 * t24297;
20549   t28568 = t21354 * t2658;
20550   t28578 = -0.42504258063891829882e0 * t5394 * t28542 + 0.29967321450326855254e0 * t7822 * t6741 * t5494 + 0.476312901339054080e0 * t5388 * t28548 + 0.31525238188956314656e0 * t5504 * t10101 * t7784 - 0.42504258063891829882e0 * t5394 * t28548 + 0.12751277419167548965e1 * t18277 * t28556 + 0.15762619094478157328e0 * t5504 * t6656 * t25007 - 0.48997150734706182895e0 * t18264 * t8900 * t24297 + 0.84395584650891170840e0 * t18077 * t28565 - 0.21252129031945914941e0 * t5394 * t28568 - 0.37929099725894513314e0 * t18063 * t28556 + 0.14983660725163427627e0 * t7822 * t2279 * t18199 + 0.238156450669527040e0 * t5388 * t28568;
20551   t28587 = t8870 * t3772;
20552   t28590 = t111 * t14420;
20553   t28591 = t398 * t28590;
20554   t28592 = t8870 * t3841;
20555   t28604 = t8974 * t3833;
20556   t28622 = t3874 * t2982;
20557   t28629 = 0.21416640e2 * t2283 * t17715 + 0.3185225478400e1 * t28604 + 0.3185225478400e1 * t21875 * t3027 - 0.19111352870400e2 * t6623 * t17706 - 0.3569440e1 * t2262 * t24749 + 0.6370450956800e1 * t28387 * t1825 - 0.42833280e2 * t6623 * t17711 + 0.10708320e2 * t8999 * t5445 - 0.38222705740800e2 * t6623 * t17715 + 0.3185225478400e1 * t2269 * t24749 - 0.19111352870400e2 * t28622 * t5445 - 0.68216827389720576000e2 * t21375 * t17711 - 0.7138880e1 * t6599 * t7889;
20558   t28632 = t1123 * t8800;
20559   t28637 = t6632 * t5498;
20560   t28639 = t3879 * t2982;
20561   t28645 = t684 * t1118;
20562   t28646 = t28645 * t109;
20563   t28651 = t3741 * t3011;
20564   t28652 = t28651 * t3841;
20565   t28656 = t684 * t1124;
20566   t28657 = t28656 * t109;
20567   t28662 = 0.11369471231620096000e2 * t6615 * t24676 - 0.7138880e1 * t28632 * t1825 + 0.3185225478400e1 * t8999 * t3897 + 0.6370450956800e1 * t28637 + 0.5684735615810048000e1 * t28639 * t5445 - 0.7138880e1 * t28364 + 0.114668117222400e3 * t6637 * t17711 + 0.5684735615810048000e1 * t6615 * t28646 + 0.10708320e2 * t2283 * t17706 - 0.19111352870400e2 * t28652 - 0.3569440e1 * t28379 + 0.3185225478400e1 * t28534 + 0.10145661348248508867e2 * t21871 * t28657 + 0.11369471231620096000e2 * t6637 * t17715;
20568   t28668 = t1164 * t8828;
20569   t28669 = t28668 * t1138;
20570   t28671 = t28468 * t3841;
20571   t28685 = t8974 * t3841;
20572   t28689 = 0.11369471231620096000e2 * t21368 * t5298 - 0.38222705740800e2 * t21857 * t5298 - 0.7138880e1 * t28669 + 0.5684735615810048000e1 * t28671 + 0.6370450956800e1 * t28408 - 0.3569440e1 * t9042 * t3897 - 0.3569440e1 * t21572 * t3027 + 0.21416640e2 * t6632 * t5298 + 0.11369471231620096000e2 * t21866 * t9053 + 0.3185225478400e1 * t28465 - 0.42833280e2 * t6602 * t28657 + 0.10708320e2 * t28685 + 0.21416640e2 * t6610 * t9053;
20573   t28699 = -t401 * t27960 * t104;
20574   t28718 = 0.114668117222400e3 * t6615 * t28657 + 0.10708320e2 * t2269 * t28646 + 0.21416640e2 * t2269 * t24676 - 0.3569440e1 * t28448 + 0.1784720e1 * t28699 + 0.6370450956800e1 * t6610 * t7889 - 0.19111352870400e2 * t6602 * t28646 - 0.38222705740800e2 * t22028 * t9053 + 0.1784720e1 * t28218 * t109 - 0.68216827389720576000e2 * t21815 * t28657 - 0.38222705740800e2 * t6602 * t24676 - 0.3569440e1 * t28367 + 0.5684735615810048000e1 * t6637 * t17706 + 0.10145661348248508867e2 * t21384 * t17711;
20575   t28724 = t8999 * t100;
20576   t28729 = t8870 * t3833;
20577   t28732 = 0.476312901339054080e0 * t5388 * t28434 + 0.5532003778560e1 * t8893 * t28437 + 0.73228222998380934072e1 * t8850 * t28440 - 0.714469352008581120e0 * t8883 * t5367 + 0.26741638969413672554e0 * t18102 * t28587 - 0.17620679382074383663e2 * t28591 * t28592 - 0.33837660950279469264e0 * t21929 * t5329 - 0.42504258063891829882e0 * t3837 * t8867 - 0.734005159174078464e0 * t9046 * t9027 * t1191 - 0.258304e0 * t107 * t407 * (t28629 + t28662 + t28689 + t28718) + 0.2766001889280e1 * t28724 * t5442 - 0.1844001259520e1 * t399 * t28669 + 0.14683899485061986386e1 * t8877 * t28729;
20578   t28734 = t111 * t14379;
20579   t28735 = t1148 * t28734;
20580   t28736 = t8870 * t3863;
20581   t28739 = t398 * t28734;
20582   t28767 = -0.13606156761889987933e2 * t28735 * t28736 + 0.26206649088979828343e1 * t28739 * t28592 + 0.14983660725163427627e0 * t6717 * t5406 - 0.59934642900653710508e0 * t6717 * t18011 - 0.39668333314116486557e0 * t21924 * t18016 + 0.53483277938827345108e0 * t6717 * t18019 + 0.25502554838335097930e1 * t18277 * t28115 + 0.16879116930178234169e1 * t18077 * t28118 - 0.75858199451789026628e0 * t18063 * t28115 - 0.238156450669527040e0 * t6800 * t5434 + 0.29967321450326855254e0 * t6717 * t5486 - 0.29967321450326855254e0 * t2263 * t3802 * t684 * t1178 - 0.25502554838335097930e1 * t22028 * t684 * t9122;
20583   t28786 = t28632 * t100;
20584   t28799 = 0.19594476351194912734e0 * t21866 * t684 * t9122 + 0.5532003778560e1 * t6728 * t24899 + 0.476312901339054080e0 * t2263 * t24947 - 0.12204703833063489012e1 * t1149 * t28407 * t1795 - 0.61023519165317445059e0 * t1149 * t8974 * t3888 + 0.97972381755974563669e-1 * t9121 * t17866 * t1773 - 0.10979019874935515226e0 * t8969 * t413 - 0.1844001259520e1 * t28786 * t1774 + 0.29967321450326855254e0 * t2276 * t17924 + 0.29967321450326855254e0 * t6800 * t5495 - 0.4936538891835801600e1 * t399 * t28652 - 0.42504258063891829882e0 * t5394 * t28494 - 0.42504258063891829882e0 * t5394 * t28393;
20585   t28819 = t3754 * t28590;
20586   t28820 = t8900 * t17710;
20587   t28823 = t398 * t9100;
20588   t28826 = t9087 * t401;
20589   t28833 = t3037 * t411;
20590   t28834 = t3802 * t28833;
20591   t28839 = -0.9873077783671603200e1 * t8896 * t28396 - 0.42504258063891829882e0 * t8859 * t3842 - 0.19834166657058243280e0 * t18098 * t6656 * t689 * t1178 - 0.33837660950279469264e0 * t24603 * t2279 * t18287 - 0.714469352008581120e0 * t5394 * t28556 - 0.29967321450326855254e0 * t17987 * t28587 - 0.11064007557120e2 * t8896 * t28592 - 0.22762551443898437297e2 * t28819 * t28820 + 0.29967321450326855254e0 * t28823 * t1160 - 0.238156450669527040e0 * t1158 * t28826 * t1138 - 0.119078225334763520e0 * t1158 * t2305 * t18133 + 0.29967321450326855254e0 * t1142 * t28834 + 0.5532003778560e1 * t21741 * t9110;
20592   t28844 = t107 * t14477;
20593   t28852 = t2309 * t5513;
20594   t28855 = t3814 * t3037;
20595   t28871 = t1143 * t873 * t1124;
20596   t28874 = 0.76507664515005293790e1 * t6803 * t8993 + 0.476312901339054080e0 * t6794 * t8989 + 0.23916119461575365556e1 * t28844 * t9027 * t1178 - 0.19834166657058243279e0 * t21924 * t5285 + 0.26741638969413672554e0 * t6717 * t5288 - 0.59934642900653710508e0 * t24303 * t28852 - 0.734005159174078464e0 * t107 * t28855 * t1178 + 0.14983660725163427627e0 * t9017 * t3803 + 0.325024956416e0 * t107 * t21688 * t697 - 0.922000629760e0 * t2263 * t24261 + 0.13814944624710858551e0 * t5318 * t6751 + 0.29967321450326855254e0 * t21839 * t1799 - 0.714469352008581120e0 * t5441 * t28871;
20597   t28890 = t2305 * t5294;
20598   t28893 = t6701 * t5298;
20599   t28896 = t6708 * t5302;
20600   t28899 = t6708 * t5298;
20601   t28904 = t6637 * t12616 * t402;
20602   t28907 = t866 * t24393;
20603   t28910 = -0.33837660950279469264e0 * t1787 * t21880 - 0.94575714566868943969e0 * t18106 * t28565 + 0.29367798970123972772e1 * t8877 * t28437 - 0.119078225334763520e0 * t21764 * t1814 - 0.1844001259520e1 * t6794 * t7944 - 0.922000629760e0 * t21573 * t2986 - 0.50613316194190507388e-1 * t18378 * t6664 + 0.13814944624710858551e0 * t18381 * t28890 + 0.21958039749871030452e0 * t18010 * t28893 + 0.14533144731775861995e0 * t18014 * t28896 - 0.19594476351194912734e0 * t18010 * t28899 + 0.17489238971848963748e1 * t394 * t3755 * t28904 + 0.13814944624710858551e0 * t18381 * t28907;
20604   t28911 = t2290 * t25021;
20605   t28914 = t2283 * t25031;
20606   t28917 = t2283 * t25021;
20607   t28922 = t398 * t2323;
20608   t28936 = t3802 * t28510;
20609   t28939 = t3802 * t28475;
20610   t28942 = t9003 * t398;
20611   t28945 = 0.21958039749871030452e0 * t18010 * t28911 + 0.14533144731775861995e0 * t18014 * t28914 - 0.19594476351194912734e0 * t18010 * t28917 + 0.476312901339054080e0 * t5336 * t9007 + 0.476312901339054080e0 * t28922 * t1803 + 0.31525238188956314656e0 * t1148 * t2323 * t1796 - 0.42504258063891829882e0 * t28922 * t1811 + 0.29967321450326855254e0 * t6717 * t5362 + 0.476312901339054080e0 * t8883 * t5348 + 0.21252129031945914941e0 * t8859 * t3834 + 0.29967321450326855254e0 * t1142 * t28936 + 0.29967321450326855254e0 * t1142 * t28939 + 0.42504258063891829882e0 * t28942 * t1139;
20612   t28949 = t6615 * t9109;
20613   t28964 = t3754 * t874;
20614   t28976 = t2294 * t3759;
20615   t28983 = -0.50613316194190507388e-1 * t28949 * t413 + 0.31525238188956314657e0 * t5504 * t12612 * t5389 - 0.922000629760e0 * t9043 * t3768 + 0.461000314880e0 * t399 * t28699 + 0.31525238188956314656e0 * t5504 * t6656 * t24549 + 0.15762619094478157328e0 * t8886 * t5351 - 0.48997150734706182895e0 * t28964 * t5356 + 0.84395584650891170840e0 * t8886 * t5359 - 0.21252129031945914941e0 * t8883 * t5416 + 0.29967321450326855254e0 * t7822 * t2279 * t17923 + 0.476312901339054080e0 * t5388 * t28542 + 0.37937585739830728828e1 * t8899 * t28976 * t8851 + 0.31525238188956314658e0 * t5504 * t6656 * t24310;
20616   t29008 = t8828 * t104;
20617   t29009 = t1137 * t29008;
20618   t29015 = t6637 * t5302;
20619   t29020 = 0.37937585739830728828e1 * t8899 * t8900 * t18109 - 0.238156450669527040e0 * t1158 * t8829 * t1159 - 0.119078225334763520e0 * t1158 * t3012 * t3786 - 0.12751277419167548965e1 * t21890 * t8993 + 0.14983660725163427627e0 * t3771 * t3012 * t3772 + 0.2766001889280e1 * t399 * t28685 - 0.61023519165317445059e0 * t1149 * t21650 * t3001 + 0.14983660725163427627e0 * t3819 * t9028 + 0.2766001889280e1 * t6728 * t1773 * t28645 + 0.42504258063891829882e0 * t1136 * t29009 + 0.21252129031945914941e0 * t2269 * t5268 * t112 - 0.30124497567627698084e1 * t28128 * t29015 + 0.13538564572559691160e1 * t28201 * t9085;
20620   t29022 = t2305 * t24965;
20621   t29037 = t2283 * t24971;
20622   t29040 = t2283 * t24965;
20623   t29043 = t9027 * t404;
20624   t29046 = t2283 * t5294;
20625   t29051 = t1143 * t9087;
20626   t29054 = 0.21958039749871030452e0 * t18251 * t29022 + 0.13814944624710858551e0 * t25028 * t21579 + 0.14533144731775861995e0 * t24219 * t21697 - 0.19594476351194912734e0 * t24214 * t21700 - 0.39188952702389825468e0 * t18378 * t6653 - 0.25937594065695016420e0 * t24856 * t6658 + 0.34970653833504584654e0 * t18378 * t6661 + 0.11252744620118822779e1 * t24969 * t29037 - 0.15171639890357805326e1 * t24964 * t29040 + 0.13814944624710858551e0 * t18381 * t29043 - 0.19594476351194912734e0 * t18010 * t29046 - 0.45514919671073415978e1 * t28201 * t9077 - 0.238156450669527040e0 * t1142 * t29051;
20627   t29071 = t1148 * t28590;
20628   t29077 = t14376 * t28734;
20629   t29078 = t865 * t14382;
20630   t29082 = t3754 * t28734;
20631   t29087 = 0.238156450669527040e0 * t5388 * t28520 + 0.2766001889280e1 * t8893 * t28729 - 0.21968466899514280222e2 * t8904 * t28736 + 0.29619233351014809600e2 * t8877 * t28592 + 0.238156450669527040e0 * t8883 * t5419 - 0.94575714566868943969e0 * t8886 * t5476 + 0.12751277419167548965e1 * t8883 * t5423 - 0.4936538891835801600e1 * t8896 * t28729 + 0.39207562244901126197e2 * t29071 * t28736 + 0.18968792869915364414e1 * t8899 * t8900 * t18031 - 0.92817332546461565657e1 * t29077 * t29078 * t17710 + 0.20312390406477209506e2 * t29082 * t28820 - 0.32672968537417605163e1 * t8904 * t28359;
20632   t29112 = t17870 * t1773;
20633   t29121 = -0.37929099725894513314e0 * t8883 * t5470 + 0.97972381755974563669e-1 * t28639 * t1124 * t112 - 0.714469352008581120e0 * t6728 * t24782 + 0.238156450669527040e0 * t1772 * t21349 + 0.32937059624806545678e0 * t5340 * t875 + 0.36614111499190467036e1 * t1149 * t28651 * t3863 - 0.33837660950279469264e0 * t2276 * t18288 + 0.69074723123554292753e-1 * t2992 * t1180 - 0.11064007557120e2 * t21746 * t1773 * t28656 - 0.11756685810716947640e1 * t21815 * t684 * t29112 - 0.10979019874935515226e0 * t1781 * t2324 + 0.69074723123554292753e-1 * t2273 * t17837 + 0.12751277419167548965e1 * t2273 * t17840;
20634   t29127 = t3037 * t1164;
20635   t29137 = t866 * t24849;
20636   t29140 = t2290 * t24965;
20637   t29156 = -0.29967321450326855254e0 * t6717 * t5326 - 0.32672968537417605163e1 * t1149 * t28468 * t3863 + 0.238156450669527040e0 * t1158 * t29127 * t3841 + 0.325024956416e0 * t107 * t9100 * t1191 + 0.45165298839047841173e-1 * t21871 * t684 * t29112 + 0.21958039749871030452e0 * t18251 * t29137 + 0.17001703225556731953e1 * t24964 * t29140 + 0.21958039749871030452e0 * t24214 * t21694 - 0.50613316194190507388e-1 * t18378 * t6668 - 0.12204703833063489012e1 * t1149 * t6632 * t7930 + 0.69074723123554292755e-1 * t3750 * t9028 - 0.238156450669527040e0 * t5291 * t6671 - 0.119078225334763520e0 * t3819 * t8953;
20638   t29160 = t8999 * t5317;
20639   t29168 = t2269 * t1767 * t100;
20640   t29171 = t3038 * t404;
20641   t29189 = -0.10979019874935515226e0 * t8859 * t3858 + 0.19594476351194912734e0 * t29160 * t5320 - 0.10979019874935515226e0 * t6696 * t5309 - 0.10979019874935515226e0 * t2273 * t17693 + 0.19594476351194912734e0 * t29168 * t5320 - 0.10979019874935515226e0 * t1136 * t29171 - 0.10979019874935515226e0 * t5508 * t6664 + 0.21252129031945914941e0 * t18187 * t2280 + 0.42504258063891829882e0 * t5508 * t6742 + 0.1645512963945267200e1 * t399 * t28637 + 0.822756481972633600e0 * t399 * t28604 + 0.14683899485061986386e1 * t399 * t28671 + 0.19594476351194912734e0 * t6615 * t1767 * t9122;
20642   t29203 = t1143 * t2322 * t390;
20643   t29212 = t1137 * t6741 * t390;
20644   t29223 = 0.476312901339054080e0 * t9043 * t5514 - 0.10979019874935515226e0 * t9000 * t413 - 0.10979019874935515226e0 * t9050 * t413 + 0.29967321450326855254e0 * t1787 * t21676 + 0.29967321450326855254e0 * t5291 * t6751 - 0.10979019874935515226e0 * t5344 * t875 + 0.476312901339054080e0 * t1772 * t29203 + 0.14983660725163427627e0 * t1787 * t21672 - 0.12751277419167548965e1 * t28622 * t1124 * t112 - 0.85008516127783659764e0 * t5312 * t29212 + 0.10979019874935515226e0 * t1784 * t21406 + 0.10979019874935515226e0 * t3837 * t8922 + 0.10979019874935515226e0 * t3837 * t8941 + 0.85008516127783659766e0 * t3837 * t8947;
20645   t29229 = my_piecewise3(t97, 0, t28839 + t28767 + t28461 + t28578 + t28732 + t29189 + t29054 + t28983 + t28499 + t29020 + t28945 + t28537 + t29121 + t28874 + t29223 + t29156 + t28249 + t28280 + t28384 + t28799 + t28310 + t28217 + t28910 + t29087 + t28345 + t28178 + t28141 + t28101 + t28064 + t28033 + t28002 + t28426);
20646   t29230 = my_piecewise3(t96, 0, t29229);
20647   t29232 = -t1118 * t3043 - t114 * t27960 - t1197 * t2982 - 0.2e1 * t1767 * t2328 - 0.2e1 * t1841 * t2258 - t29230 * t95 - 0.2e1 * t390 * t9130 - 0.2e1 * t417 * t8800 - t5268 * t879 - t5521 * t860 - t6589 * t703 - t6827 * t684;
20648   t29239 = -0.5e1 / 0.9e1 * t21147 * t3070 + 0.10e2 / 0.9e1 * t9212 * t2370 + 0.5e1 / 0.9e1 * t3073 * t6910 - 0.50e2 / 0.81e2 * t27635 * t6884 - 0.500e3 / 0.81e2 * t27638 * t5614 * t1207 - 0.5e1 / 0.9e1 * t9199 * t6887 + 0.10000e5 / 0.729e3 * t18414 * t3076 * t14888 * t23 + 0.10e2 / 0.9e1 * t2362 * t9237 - 0.5e1 / 0.9e1 * t2358 * t5626 * t23 - 0.10e2 / 0.9e1 * t6880 * t9209 + 0.5e1 / 0.9e1 * t5578 * t19 * t897 + 0.500e3 / 0.27e2 * t17472 * t6899 + 0.100e3 / 0.81e2 * t441 * t2365 * t9132 * t423 + 0.500e3 / 0.81e2 * t1879 * t9268 * t1207 + 0.5e1 / 0.9e1 * t895 * t896 * t29232 + params->c1 * t29232 * t141;
20649   t29244 = t9197 * t442;
20650   t29276 = t1847 * t36;
20651   t29287 = t2365 * t3045;
20652   t29290 = 0.50e2 / 0.81e2 * t441 * t2365 * t3045 * t1203 - 0.10e2 / 0.9e1 * t29244 * t2359 + 0.1000e4 / 0.81e2 * t1879 * t2385 * t1847 * t423 + 0.50e2 / 0.81e2 * t441 * t2365 * t6829 * t709 + 0.500e3 / 0.81e2 * t1879 * t2385 * t709 * t1203 + 0.200e3 / 0.81e2 * t5581 * t2367 + 0.100e3 / 0.81e2 * t441 * t2365 * t2330 * t1847 + 0.5e1 / 0.9e1 * t6890 * t3080 + 0.50e2 / 0.81e2 * t441 * t2365 * t881 * t5527 - 0.50e2 / 0.81e2 * t6883 * t9204 * t21141 - 0.100e3 / 0.81e2 * t22070 * t9206 - 0.100e3 / 0.81e2 * t6883 * t29276 * t9205 + 0.1000e4 / 0.81e2 * t1879 * t6939 * t9219 + 0.100e3 / 0.81e2 * t1876 * t6907 + 0.200e3 / 0.81e2 * t1876 * t6903 + 0.100e3 / 0.81e2 * t6893 * t29287;
20653   t29313 = (t29239 + t29290) * t145 + 0.2e1 * t9240 * t447 * t145 + t3083 * t1247 * t145 + t3083 * t1249 * t145 + t6913 * t728 * t145 + 0.2e1 * t2373 * t1887 * t145 + 0.2e1 * t9244 * t448 + t900 * t5604 * t145 + 0.2e1 * t9246 * t448 + t3085 * t1248 + t3085 * t1250;
20654   t29317 = t4017 * t4019 * t3045;
20655   t29336 = t4017 * t14939 * t881;
20656   t29339 = t449 * t6930;
20657   t29342 = t1263 * t6945;
20658   t29347 = 0.5e1 / 0.9e1 * t2386 * t5627 + 0.25e2 / 0.81e2 * t29317 * t1255 + 0.5e1 / 0.9e1 * t22117 * t731 + 0.5e1 / 0.9e1 * t9269 * t1259 + t449 * t442 * t29232 * t147 + 0.50e2 / 0.81e2 * t22134 * t9252 + 0.100e3 / 0.27e2 * t22113 * t9252 + 0.10e2 / 0.9e1 * t9262 * t1259 + 0.10e2 / 0.9e1 * t2379 * t5627 + 0.1000e4 / 0.81e2 * t29336 * t5616 + 0.2000e4 / 0.81e2 * t29339 * t5616 + 0.1000e4 / 0.27e2 * t29342 * t5616 + 0.10e2 / 0.9e1 * t22121 * t731;
20659   t29349 = t14957 * t14959 * t881;
20660   t29353 = t1263 * t1265 * t9132;
20661   t29360 = t449 * t9268;
20662   t29365 = t1203 * t36 * t1254 * t709;
20663   t29369 = t21140 * t1254 * t1847;
20664   t29383 = t1263 * t4004 * t3045;
20665   t29387 = t449 * t1239 * t9132;
20666   t29390 = 0.250e3 / 0.243e3 * t29349 * t5616 + 0.10e2 / 0.9e1 * t29353 * t453 + 0.20e2 / 0.9e1 * t6927 * t1898 + 0.10e2 / 0.9e1 * t6940 * t1898 + 0.50e2 / 0.27e2 * t29360 * t1255 + 0.50e2 / 0.27e2 * t6931 * t29365 + 0.100e3 / 0.27e2 * t6931 * t29369 + 0.100e3 / 0.27e2 * t22130 * t9252 + 0.100e3 / 0.27e2 * t6923 * t29369 + 0.50e2 / 0.27e2 * t6923 * t29365 + 0.50e2 / 0.81e2 * t6946 * t29369 + 0.25e2 / 0.81e2 * t6946 * t29365 + 0.50e2 / 0.27e2 * t29383 * t1255 + 0.20e2 / 0.9e1 * t29387 * t453;
20667   t29392 = my_piecewise3(t139, t29313, t29347 + t29390);
20668   t29422 = t2345 * t734;
20669   t29426 = t9166 * t150;
20670   t29430 = -t330 * t719 * t6950 - 0.2e1 * t330 * t6859 * t734 + 0.1174e1 * t29392 - 0.6e1 * t3619 * t3065 * t1031 - 0.2e1 * t330 * t435 * t9279 - 0.2e1 * t330 * t6510 * t734 - 0.4e1 * t330 * t2230 * t1906 - 0.2e1 * t330 * t2957 * t1270 + 0.12e2 * t6492 * t8703 * t1031 - 0.2e1 * t330 * t3058 * t1270 - 0.2e1 * t330 * t888 * t5639 - 0.8e1 * t6496 * t8680 + 0.8e1 * t6496 * t9175 + 0.8e1 * t2225 * t29422 * t435 - 0.8e1 * t2225 * t29426 * t435;
20671   t29442 = t3057 * t456;
20672   t29460 = t1030 * t1863;
20673   t29479 = -0.48e2 * t1031 * t22243 * t2226 * t719 + 0.12e2 * t1226 * t2226 * t6492 * t719 + 0.24e2 * t1866 * t2226 * t435 * t6492 + 0.2e1 * t1030 * t1031 * t3096 + 0.4e1 * t1030 * t435 * t9192 - 0.4e1 * t1226 * t2225 * t8703 - 0.8e1 * t1866 * t2225 * t6499 + 0.8e1 * t1866 * t2225 * t6503 + 0.8e1 * t2225 * t29442 * t435 - 0.4e1 * t330 * t456 * t8692 - 0.4e1 * t330 * t456 * t8707 - 0.4e1 * t330 * t456 * t9167 - 0.24e2 * t6492 * t6503 * t8674 - 0.8e1 * t2227 * t29460 - 0.4e1 * t6507 * t8689;
20674   t29520 = -0.8e1 * t6496 * t8686 - 0.4e1 * t2225 * t22259 * t719 - 0.4e1 * t22223 * t2954 - 0.4e1 * t330 * t6514 * t734 + 0.8e1 * t6496 * t8683 + 0.4e1 * t2225 * t9174 * t1226 - 0.8e1 * t8689 * t6500 + 0.24e2 * t6492 * t6499 * t8674 - t138 * t29392 - 0.4e1 * t330 * t2346 * t1906 + 0.24e2 * t22232 * t8675 - 0.4e1 * t330 * t8696 * t456 + 0.2e1 * t330 * t716 * t6858 * t150 - 0.4e1 * t2225 * t2226 * t5562 + 0.4e1 * t1030 * t9190 * t435;
20675   t29521 = t3619 * t716;
20676   t29541 = t3046 * t126;
20677   t29550 = t1218 * t9132;
20678   t29561 = -t9163 * t5553 / 0.324e3 + t9150 * t5553 / 0.54e2 + t882 * t126 * t1847 * t1860 / 0.27e2 - t3949 * t9223 * t1860 / 0.162e3 + t2331 * t9149 * t1860 / 0.27e2 - t882 * t1203 * t9143 / 0.108e3 + t29541 * t6844 / 0.54e2 - t3046 * t1207 * t1220 / 0.108e3 - t3949 * t9227 * t1860 / 0.162e3 - t29550 * t2336 / 0.90e2 - t428 * t29232 * t128 / 0.100e3 - t2331 * t423 * t9143 / 0.54e2 + t6833 * t9146 / 0.30e2;
20679   t29571 = t9133 * t124;
20680   t29577 = t5614 * t1207 * t128;
20681   t29580 = t3949 * t3045;
20682   t29583 = t5626 * t2335;
20683   t29597 = t56 * t29232 * t128 / 0.100e3 - t9156 * t6839 / 0.180e3 - t9141 * t7987 / 0.54e2 - t22210 * t3049 / 0.180e3 + t29571 * t2336 / 0.30e2 - t6850 * t9146 / 0.90e2 - 0.5e1 / 0.486e3 * t22170 * t29577 - t29580 * t6844 / 0.324e3 - t2342 * t29583 / 0.180e3 + t22189 * t3049 / 0.60e2 + t9136 * t6839 / 0.60e2 + 0.25e2 / 0.243e3 * t2342 * t29577 + t2334 * t29583 / 0.60e2 - 0.25e2 / 0.162e3 * t6836 * t5614 * t3347;
20684   t29615 = t887 * t1906;
20685   t29646 = 0.12e2 * t29521 * t6493 + 0.2e1 * t330 * t131 * (t29561 + t29597) * t150 - t330 * t1226 * t3096 + 0.8e1 * t2225 * t22280 * t719 + 0.2e1 * t1030 * t3065 * t1226 + 0.2e1 * t330 * t5559 * t887 * t150 + 0.8e1 * t2225 * t29615 * t435 - 0.8e1 * t6496 * t8704 - t330 * t5562 * t905 + 0.4e1 * t330 * t432 * t9166 * t150 + 0.4e1 * t330 * t1863 * t2345 * t150 - 0.12e2 * t6492 * t9174 * t1031 + 0.4e1 * t2225 * t22251 * t719 - 0.2e1 * t330 * t1866 * t2390 + 0.2e1 * t330 * t1223 * t3057 * t150 + 0.8e1 * t8689 * t6504;
20686   t29653 = t6991 * t8671;
20687   t29673 = -0.49479000000000000000e1 * t27600 * t480 + 0.12113307472923900000e3 * t9298 * t908 * t2755 * t5672 - t27608 - t27609 + 0.32986000000000000000e1 * t27610 + 0.24739500000000000000e1 * t22324 * t1919 + 0.12369750000000000000e1 * t6486 * t5651 - 0.65972000000000000000e1 * t27617 * t1004 + 0.41232500000000000000e0 * t22320 * t5681 - 0.32986000000000000000e1 * t6486 * t5677 - 0.3e1 / 0.8e1 * t846 * t847 * (t29430 + t29479 + t29520 + t29646) * t167 - 0.4e1 / 0.3e1 * t29653 - t2220 * t8670 * t1011 / 0.2e1 - 0.60406209071787192650e2 * t6967 * t2393 * t1939 * t26 * t1301 + 0.22265550000000000000e3 * t9298 * t21111 * t5098 - 0.62012907040371922630e0 * t6967 * t21116 * t5103 + 0.30203104535893596326e2 * t6967 * t9306 * t1299 * t1301;
20688   t29687 = t1926 * t9301;
20689   t29689 = t1297 * t9308;
20690   t29691 = t984 * t3099;
20691   t29701 = t21102 * t745;
20692   t29703 = t7024 * t9288;
20693   t29704 = t29703 * t480;
20694   t29706 = t15 * t9283;
20695   t29716 = 0.41232500000000000000e0 * t22364 * t745;
20696   t29717 = t6475 * t1935;
20697   t29721 = 0.22265550000000000000e2 * t9298 * t2393 * t1284 * t19 * t1929 - 0.55663875000000000000e2 * t9298 * t9300 * t5112 + 0.80541612095716256868e2 * t6967 * t3099 * t742 * t1299 * t1301 + 0.29687400000000000000e2 * t29687 - 0.80541612095716256867e2 * t29689 - t2220 * t29691 * t988 / 0.6e1 - 0.80541612095716256867e2 * t22348 * t5142 + 0.92773125000000000000e0 * t22352 * t745 - 0.29687400000000000000e2 * t9289 * t1288 + 0.24739500000000000000e1 * t29701 - 0.65972000000000000000e1 * t29704 - t2220 * t29706 * t317 + 0.28862750000000000000e1 * t2401 * t5149 - 0.24739500000000000000e1 * t6959 * t1935 + 0.29687400000000000000e2 * t6486 * t5136 + t29716 - 0.32986000000000000000e1 * t29717 + 0.57725500000000000000e1 * t9289 * t1293;
20698   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20699     v4rho2sigmalapl[0] = t29673 + t29721;
20700 
20701   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20702     v4rho2sigmalapl[1] = 0.0e0;
20703 
20704   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20705     v4rho2sigmalapl[2] = 0.0e0;
20706 
20707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20708     v4rho2sigmalapl[3] = 0.0e0;
20709 
20710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20711     v4rho2sigmalapl[4] = 0.0e0;
20712 
20713   t29723 = t22502 * t3253 / 0.6e1;
20714   t29724 = t6991 * t9314;
20715   t29726 = t1306 * t3251;
20716   t29734 = 0.41232500000000000000e0 * t22481 * t840;
20717   t29735 = t22484 * t1955;
20718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20719     v4rho2sigmalapl[5] = -t29723 - 0.4e1 / 0.3e1 * t29724 - t2220 * t29726 * t1310 / 0.6e1 - t2220 * t9313 * t1319 / 0.2e1 + t29734 + 0.32986000000000000000e1 * t29735 + 0.41232500000000000000e0 * t22523 * t5712 + 0.12369750000000000000e1 * t7029 * t5718;
20720 
20721   t29744 = t6991 * t9321;
20722   t29758 = -t27608 - 0.2e1 / 0.3e1 * t29653 - t27609 / 0.2e1 - 0.32986000000000000000e1 * t29704 - 0.2e1 / 0.3e1 * t29744 - t2220 * t29691 * t1329 / 0.6e1 - t2220 * t29706 * t499 / 0.2e1 - 0.32986000000000000000e1 * t27617 * t1341 - t7003 * t8670 * t1347 / 0.2e1 + t29716 + 0.16493000000000000000e1 * t27610;
20723   t29763 = t22370 * t1966;
20724   t29777 = 0.12369750000000000000e1 * t29701 + 0.14843700000000000000e2 * t29687 - 0.16493000000000000000e1 * t29717 - 0.40270806047858128434e2 * t29689 + 0.16493000000000000000e1 * t29763 + 0.41232500000000000000e0 * t22434 * t5746 + 0.12369750000000000000e1 * t22324 * t1966 + 0.14843700000000000000e2 * t6486 * t5755 - 0.16493000000000000000e1 * t6486 * t5759 - 0.40270806047858128434e2 * t22348 * t5762 + 0.12369750000000000000e1 * t22457 * t5766;
20725   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20726     v4rho2sigmalapl[6] = t29758 + t29777;
20727 
20728   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20729     v4rho2sigmalapl[7] = 0.0e0;
20730 
20731   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20732     v4rho2sigmalapl[8] = 0.0e0;
20733 
20734   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20735     v4rho2sigmalapl[9] = 0.0e0;
20736 
20737   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20738     v4rho2sigmalapl[10] = 0.0e0;
20739 
20740   t29779 = t6991 * t9326;
20741   t29787 = t7016 * t9940;
20742   t29789 = t173 * t9938;
20743   t29793 = t7024 * t9943;
20744   t29794 = t29793 * t649;
20745   t29797 = t2399 * t483 * t3251;
20746   t29801 = -t29723 - 0.2e1 / 0.3e1 * t29724 - 0.2e1 / 0.3e1 * t29779 - t2220 * t29726 * t1354 / 0.6e1 + t7003 * t9313 * t1362 / 0.2e1 - t29787 / 0.2e1 - t2220 * t29789 * t487 / 0.2e1 - 0.32986000000000000000e1 * t29794 - 0.32986000000000000000e1 * t29797 * t1379 + t29734 + 0.16493000000000000000e1 * t29735;
20747   t29802 = t22484 * t2190;
20748   t29808 = t22615 * t840;
20749   t29812 = t2195 * t9954;
20750   t29816 = t7025 * t2204;
20751   t29820 = t1686 * t9961;
20752   t29824 = 0.16493000000000000000e1 * t29802 + 0.41232500000000000000e0 * t22559 * t5806 - 0.12369750000000000000e1 * t22589 * t5813 + 0.12369750000000000000e1 * t29808 + 0.12369750000000000000e1 * t22593 * t1955 + 0.14843700000000000000e2 * t29812 + 0.14843700000000000000e2 * t7029 * t5823 - 0.16493000000000000000e1 * t29816 - 0.16493000000000000000e1 * t7029 * t5830 - 0.40270806047858128433e2 * t29820 - 0.40270806047858128433e2 * t22608 * t5837;
20753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20754     v4rho2sigmalapl[11] = t29801 + t29824;
20755 
20756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20757     v4rho2sigmalapl[12] = -t27608 - 0.4e1 / 0.3e1 * t29744 - t2220 * t29691 * t1391 / 0.6e1 - t2220 * t8670 * t1397 / 0.2e1 + t29716 + 0.32986000000000000000e1 * t29763 + 0.41232500000000000000e0 * t22320 * t5854 + 0.12369750000000000000e1 * t6486 * t5859;
20758 
20759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20760     v4rho2sigmalapl[13] = 0.0e0;
20761 
20762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20763     v4rho2sigmalapl[14] = 0.0e0;
20764 
20765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20766     v4rho2sigmalapl[15] = 0.0e0;
20767 
20768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20769     v4rho2sigmalapl[16] = 0.0e0;
20770 
20771   t29878 = -0.4e1 / 0.3e1 * t29779 + 0.12113307472923900000e3 * t9951 * t974 * t2935 * t6457 - t29723 - t2220 * t29789 * t504 + 0.29687400000000000000e2 * t29812 - 0.80541612095716256867e2 * t29820 + 0.22265550000000000000e3 * t9951 * t23869 * t5893 - 0.62012907040371922630e0 * t7526 * t23874 * t5898 + 0.30203104535893596326e2 * t7526 * t9959 * t1688 * t1690 + 0.22265550000000000000e2 * t9951 * t2585 * t1673 * t19 * t2198 - 0.60406209071787192650e2 * t7526 * t2585 * t2208 * t177 * t1690 + 0.32986000000000000000e1 * t29802 - 0.65972000000000000000e1 * t29794 + 0.80541612095716256868e2 * t7526 * t3251 * t837 * t1688 * t1690 - 0.32986000000000000000e1 * t29816 - 0.24739500000000000000e1 * t7518 * t2204 + 0.28862750000000000000e1 * t2591 * t6451;
20772   t29903 = t2399 * t913 * t9938;
20773   t29933 = t4566 * t811;
20774   t29964 = t3220 * t1630;
20775   t29994 = t4634 * t771;
20776   t29997 = t1482 * t2022;
20777   t30004 = -0.2e1 * t1477 * t9437 - t552 * t6013 * t227 * t923 - 0.2e1 * t552 * t9434 * t2447 - 0.13e2 / 0.2916e4 * t8243 + 0.3e1 * t9439 * t7122 + 0.3e1 / 0.2e1 * t9439 * t7125 + 0.3e1 * t7115 * t9404 + 0.3e1 / 0.2e1 * t22774 * t3119 + 0.3e1 * t7118 * t9401 + 0.3e1 * t29994 * t2437 + 0.3e1 * t29997 * t2437 + 0.3e1 * t7118 * t9404 - 0.2e1 * t5975 * t2448;
20778   t30014 = t4642 * t771;
20779   t30030 = t4634 * t553;
20780   t30033 = t1482 * t2016;
20781   t30036 = sigma[2] * t563;
20782   t30040 = -t2008 * t7099 - 0.2e1 * t2008 * t7101 + 0.3e1 * t2435 * t7121 * t2035 + 0.3e1 / 0.2e1 * t2435 * t2436 * t6039 - 0.15e2 / 0.4e1 * t30014 * t7096 + 0.5e1 / 0.18e2 * t7080 * t9446 + 0.5e1 / 0.36e2 * t22721 * t3125 + 0.5e1 / 0.18e2 * t7083 * t9446 + 0.5e1 / 0.36e2 * t2442 * t22800 * t759 - t9449 * t68 * t215 * t1506 / 0.3456e4 - t30030 * t9451 / 0.1728e4 - t30033 * t9451 / 0.1728e4 - 0.5e1 / 0.3888e4 * t9374 * t11290 * t30036;
20783   t30058 = t19858 * t223;
20784   t30061 = t5977 * t554;
20785   t30074 = -0.20e2 / 0.27e2 * t7080 * t9391 - 0.20e2 / 0.27e2 * t7083 * t9391 - 0.20e2 / 0.27e2 * t2442 * t7086 * t1996 + 0.250e3 / 0.729e3 * t22741 * t22742 * t5946 + 0.5e1 / 0.36e2 * t22786 * t3125 + 0.3e1 * t9407 * t7122 + 0.3e1 / 0.2e1 * t9407 * t7125 + 0.3e1 * t30058 * t2437 + 0.3e1 * t30061 * t2437 - 0.15e2 / 0.2e1 * t22730 * t9425 - 0.15e2 / 0.2e1 * t7095 * t7121 * t2013 - 0.13e2 / 0.7776e4 * t9418 * t9428 - 0.185e3 / 0.34992e5 * t3128 * t9421 * t8224;
20786   t30083 = t4642 * t553;
20787   t30104 = t1482 * t5999;
20788   t30116 = 0.105e3 / 0.8e1 * t22760 * t2436 * t5987 + 0.110e3 / 0.81e2 * t2442 * t2443 * t5876 + 0.5e1 / 0.18e2 * t22789 * t3125 + 0.5e1 / 0.6912e4 * t30083 * t68 * t215 * t1483 + 0.13e2 / 0.5184e4 * t9449 * t68 * t188 * t563 - 0.25e2 / 0.9e1 * t22685 * t2013 * t19 * t531 + 0.3e1 / 0.2e1 * t2435 * t22779 * t776 - t22690 * t776 / 0.2e1 - t7143 * t2035 - t2431 * t6039 / 0.2e1 - 0.5e1 / 0.12e2 * t30104 * t9376 - 0.5e1 / 0.12e2 * t9374 * t7086 * t9375 - 0.15e2 / 0.2e1 * t7095 * t2436 * t5990 - 0.15e2 / 0.4e1 * t7095 * t2436 * t5993;
20789   t30119 = t4631 * t223;
20790   t30122 = t1477 * t554;
20791   t30127 = t552 * t1493;
20792   t30152 = t30119 * t3131 / 0.5184e4 + t30122 * t3131 / 0.2592e4 + 0.5e1 / 0.5832e4 * t9415 * t9422 + t30127 * t3131 / 0.5184e4 + 0.5e1 / 0.5832e4 * t9418 * t9422 + 0.3e1 / 0.2e1 * t22702 * t3119 + 0.3e1 * t22705 * t3119 + 0.3e1 * t7115 * t9401 - 0.5e1 / 0.24e2 * t9374 * t2443 * t759 * t1506 - 0.25e2 / 0.36e2 * t7090 * t7091 * t6034 + 0.25e2 / 0.162e3 * t22710 * t9379 + 0.25e2 / 0.162e3 * t22797 * t9379 + 0.25e2 / 0.162e3 * t7090 * t22804 * t2030;
20793   t30164 = t19861 * t223;
20794   t30167 = t1477 * t9370;
20795   t30171 = t552 * t2022 * t558;
20796   t30176 = t771 * t1497;
20797   t30177 = t552 * t30176;
20798   t30180 = t4634 * t1489;
20799   t30184 = t27301 * t23;
20800   t30188 = t5975 * t1489;
20801   t30191 = 0.110e3 / 0.81e2 * t9367 * t7137 + 0.3e1 / 0.4e1 * t7128 * t5993 - 0.15e2 / 0.2e1 * t22727 * t9425 + 0.13e2 / 0.2916e4 * t3128 * t3129 * t2029 - 0.13e2 / 0.7776e4 * t9415 * t9428 - 0.15e2 / 0.4e1 * t30164 * t7096 - 0.20e2 / 0.27e2 * t30167 * t2444 - 0.20e2 / 0.27e2 * t30171 * t2444 - 0.20e2 / 0.27e2 * t9371 * t7087 - 0.50e2 / 0.243e3 * t30177 * t7092 - 0.5e1 / 0.12e2 * t30180 * t9376 + 0.25e2 / 0.104976e6 * t7090 * t345 * t1989 * t30184 - 0.20e2 / 0.27e2 * t30188 * t2444;
20802   t30193 = t2008 * t5999;
20803   t30198 = t2008 * t4655;
20804   t30201 = t776 * t36;
20805   t30210 = t1482 * t9370 * t923;
20806   t30213 = t5977 * t7131;
20807   t30231 = -0.20e2 / 0.27e2 * t30193 * t2444 - 0.20e2 / 0.27e2 * t9367 * t7087 - 0.50e2 / 0.243e3 * t30198 * t7092 + 0.25e2 / 0.81e2 * t22680 * t30201 * t1501 + 0.10e2 / 0.9e1 * t7132 * t2035 * t19 * t531 + 0.10e2 / 0.9e1 * t30210 * t7134 + 0.10e2 / 0.9e1 * t30213 * t7134 - 0.25e2 / 0.108e3 * t22680 * t68 * t518 * t563 * sigma[2] + 0.10e2 / 0.9e1 * t22695 * t9386 + 0.10e2 / 0.9e1 * t22699 * t9386 + 0.10e2 / 0.9e1 * t22676 * t9386 - 0.55e2 / 0.27e2 * t7132 * t9385 * t1458 - t2008 * t7107;
20808   t30244 = t4642 * t1489;
20809   t30261 = t215 * t1481;
20810   t30265 = -t4631 * t3123 - 0.2e1 * t1477 * t9435 - 0.13e2 / 0.15552e5 * t8247 + t68 * t9394 * t1506 / 0.10368e5 - t19966 * t924 - 0.2e1 * t5975 * t2440 + 0.110e3 / 0.81e2 * t9371 * t7137 + 0.25e2 / 0.48e2 * t30244 * t2443 * t759 * t1483 + 0.10e2 / 0.9e1 * t9374 * t2443 * t1996 * t563 + 0.3e1 / 0.2e1 * t22748 * t2013 + 0.3e1 / 0.2e1 * t7128 * t5990 - t552 * t3122 * t7106 - 0.15e2 / 0.8e1 * t22751 * t5987 - t68 * t30261 * t1483 / 0.6912e4;
20811   t30268 = t30004 + t30040 + t30074 + t30116 + t30152 + t30191 + t30231 + t30265;
20812   t30302 = t779 * t1509;
20813   t30303 = t30302 * t247;
20814   t30306 = t1514 * t9455;
20815   t30311 = t779 * t1515;
20816   t30312 = t30311 * t247;
20817   t30315 = t4761 * t3163;
20818   t30316 = t30315 * t4756;
20819   t30320 = t2482 * t20047;
20820   t30322 = t9643 * t4756;
20821   t30334 = 0.5684735615810048000e1 * t7174 * t30303 - 0.7138880e1 * t30306 * t2096 - 0.19111352870400e2 * t7161 * t30303 + 0.10145661348248508867e2 * t22931 * t30312 - 0.19111352870400e2 * t30316 + 0.21416640e2 * t7169 * t9606 - 0.3569440e1 * t30320 + 0.10708320e2 * t30322 + 0.11369471231620096000e2 * t7174 * t26923 + 0.21416640e2 * t2461 * t26923 + 0.10708320e2 * t9621 * t6131 + 0.11369471231620096000e2 * t22918 * t9606 + 0.3185225478400e1 * t9621 * t4795;
20822   t30335 = t4699 * t3163;
20823   t30336 = t30335 * t4756;
20824   t30344 = t1555 * t9639;
20825   t30345 = t30344 * t1529;
20826   t30353 = -t577 * t30268 * t242;
20827   t30359 = t569 * t30268;
20828   t30368 = 0.5684735615810048000e1 * t30336 + 0.5684735615810048000e1 * t7196 * t20163 + 0.11369471231620096000e2 * t7196 * t20194 + 0.10145661348248508867e2 * t22899 * t20025 - 0.7138880e1 * t30345 - 0.3569440e1 * t2454 * t26951 + 0.21416640e2 * t2475 * t20194 + 0.1784720e1 * t30353 + 0.114668117222400e3 * t7174 * t30312 + 0.11369471231620096000e2 * t22902 * t6105 + 0.1784720e1 * t30359 * t247 + 0.3185225478400e1 * t2461 * t26951 + 0.10708320e2 * t2461 * t30303 - 0.38222705740800e2 * t7182 * t20194;
20829   t30370 = t22921 * t2061;
20830   t30372 = t1523 * t9455;
20831   t30383 = t7179 * t6232;
20832   t30389 = t2475 * t20047;
20833   t30391 = t9466 * t4780;
20834   t30397 = 0.3185225478400e1 * t30370 + 0.6370450956800e1 * t30372 * t2096 - 0.42833280e2 * t7182 * t20025 - 0.68216827389720576000e2 * t22941 * t20025 - 0.38222705740800e2 * t7161 * t26923 - 0.19111352870400e2 * t7182 * t20163 - 0.7138880e1 * t30383 - 0.38222705740800e2 * t22926 * t6105 - 0.68216827389720576000e2 * t22948 * t30312 + 0.3185225478400e1 * t30389 - 0.3569440e1 * t30391 - 0.3569440e1 * t22966 * t3179 - 0.7138880e1 * t7158 * t8333;
20835   t30404 = t4741 * t3134;
20836   t30411 = t7191 * t6232;
20837   t30413 = t9643 * t4780;
20838   t30415 = t22907 * t2061;
20839   t30417 = t1542 * t9639;
20840   t30418 = t30417 * t1529;
20841   t30426 = t4735 * t3134;
20842   t30429 = 0.21416640e2 * t7191 * t6105 - 0.42833280e2 * t7161 * t30312 + 0.10708320e2 * t2475 * t20163 - 0.19111352870400e2 * t30404 * t6131 + 0.6370450956800e1 * t7169 * t8333 + 0.114668117222400e3 * t7196 * t20025 + 0.6370450956800e1 * t30411 + 0.3185225478400e1 * t30413 - 0.3569440e1 * t30415 + 0.6370450956800e1 * t30418 - 0.3569440e1 * t9615 * t4795 - 0.38222705740800e2 * t22889 * t9606 + 0.3185225478400e1 * t22963 * t3179 + 0.5684735615810048000e1 * t30426 * t6131;
20843   t30435 = t2497 * t6101;
20844   t30438 = t7313 * t6105;
20845   t30441 = t7328 * t6109;
20846   t30444 = 0.85008516127783659766e0 * t4752 * t9521 - 0.75858199451789026628e0 * t4752 * t9524 - 0.22757459835536707989e1 * t2055 * t23137 + 0.56263723100594113894e0 * t16740 * t9513 + 0.10979019874935515226e0 * t4752 * t9517 - 0.59934642900653710508e0 * t7296 * t20672 - 0.39668333314116486557e0 * t23352 * t20677 + 0.53483277938827345108e0 * t7296 * t20680 - 0.10979019874935515226e0 * t2465 * t20018 - 0.258304e0 * t245 * t583 * (t30334 + t30368 + t30397 + t30429) + 0.13814944624710858551e0 * t20228 * t30435 + 0.21958039749871030452e0 * t20671 * t30438 + 0.14533144731775861995e0 * t20675 * t30441;
20847   t30449 = t12193 * t20676;
20848   t30452 = t9701 * t580;
20849   t30455 = t2475 * t27018;
20850   t30463 = t2475 * t3153 * t587;
20851   t30466 = t570 * t1540;
20852   t30467 = t7182 * t6109;
20853   t30472 = t7196 * t12965 * t578;
20854   t30475 = t7196 * t6109;
20855   t30482 = 0.75858199451789026628e0 * t2465 * t20303 + 0.37929099725894513314e0 * t2465 * t20164 + 0.16879116930178234168e1 * t20353 * t30449 + 0.13814944624710858551e0 * t20228 * t30452 - 0.15171639890357805326e1 * t27016 * t30455 - 0.19594476351194912734e0 * t26758 * t23415 + 0.34970653833504584654e0 * t20225 * t7227 + 0.14533144731775861996e0 * t20675 * t30463 + 0.33758233860356468337e1 * t30466 * t30467 + 0.17489238971848963748e1 * t570 * t4707 * t30472 - 0.30124497567627698084e1 * t30466 * t30475 - 0.50613316194190507388e-1 * t23418 * t6095 + 0.21958039749871030452e0 * t23462 * t27044;
20856   t30484 = t928 * t4823;
20857   t30487 = t9474 * t573;
20858   t30488 = t2461 * t30487;
20859   t30491 = t1534 * t9652;
20860   t30494 = t7268 * t784;
20861   t30495 = t4755 * t30494;
20862   t30498 = t2471 * t2077;
20863   t30499 = t4755 * t30498;
20864   t30503 = t4785 * t10617 * t784;
20865   t30510 = t9540 * t26769;
20866   t30513 = t9544 * t578;
20867   t30514 = t2471 * t30513;
20868   t30517 = t939 * t2106;
20869   t30525 = 0.13814944624710858551e0 * t30484 * t20229 - 0.50613316194190507388e-1 * t30488 * t4850 - 0.238156450669527040e0 * t1533 * t30491 - 0.85008516127783659766e0 * t1527 * t30495 - 0.85008516127783659766e0 * t1527 * t30499 - 0.56263723100594113894e0 * t4784 * t30503 + 0.69074723123554292753e-1 * t2465 * t20022 + 0.12751277419167548965e1 * t2465 * t20026 + 0.53483277938827345108e0 * t20370 * t30510 - 0.1428938704017162240e1 * t6222 * t30514 - 0.1468010318348156928e1 * t9700 * t30517 * t587 - 0.119078225334763520e0 * t4863 * t9777 + 0.69074723123554292753e-1 * t2055 * t23519;
20870   t30528 = t932 * t20684;
20871   t30531 = t2482 * t27018;
20872   t30534 = t932 * t26769;
20873   t30537 = t2482 * t26773;
20874   t30540 = t2475 * t26777;
20875   t30543 = t2475 * t26773;
20876   t30546 = t2482 * t6101;
20877   t30549 = t570 * t575;
20878   t30554 = t2475 * t6101;
20879   t30558 = t4785 * t12930 * t578;
20880   t30563 = 0.12751277419167548965e1 * t2055 * t23045 + 0.21958039749871030452e0 * t20683 * t30528 + 0.17001703225556731953e1 * t27016 * t30531 + 0.13814944624710858551e0 * t20228 * t30534 + 0.21958039749871030452e0 * t20671 * t30537 + 0.14533144731775861995e0 * t20675 * t30540 - 0.19594476351194912734e0 * t20671 * t30543 + 0.21958039749871030452e0 * t20671 * t30546 + 0.25502554838335097930e1 * t30549 * t9630 - 0.45514919671073415978e1 * t30549 * t9634 - 0.19594476351194912734e0 * t20671 * t30554 - 0.56263723100594113894e0 * t4784 * t30558 - 0.12968797032847508210e0 * t16721 * t9513;
20881   t30574 = t2515 * t786;
20882   t30579 = t3163 * t578;
20883   t30580 = t30579 * t242;
20884   t30581 = t4785 * t30580;
20885   t30584 = t4785 * t30494;
20886   t30587 = t4785 * t30498;
20887   t30594 = t6091 * t2488;
20888   t30599 = -0.54895099374677576130e-1 * t4774 * t9517 - 0.25306658097095253694e-1 * t4777 * t9517 - 0.42504258063891829883e0 * t4774 * t9521 - 0.19594476351194912734e0 * t4777 * t9521 - 0.10979019874935515226e0 * t1527 * t30574 - 0.10979019874935515226e0 * t7282 * t6095 + 0.75858199451789026628e0 * t1527 * t30581 + 0.75858199451789026628e0 * t1527 * t30584 + 0.75858199451789026628e0 * t1527 * t30587 + 0.17485326916752292327e0 * t4777 * t9524 + 0.97972381755974563669e-1 * t20083 * t9501 + 0.19594476351194912734e0 * t6090 * t30594 - 0.54895099374677576129e-1 * t2055 * t23032;
20889   t30612 = t9618 * t238;
20890   t30615 = t7328 * t6105;
20891   t30620 = t2461 * t26763;
20892   t30625 = t9771 * t580;
20893   t30630 = -0.85008516127783659764e0 * t6242 * t7213 - 0.85008516127783659764e0 * t2055 * t23021 - 0.42504258063891829882e0 * t2055 * t23035 + 0.16879116930178234168e1 * t6225 * t22992 + 0.19594476351194912734e0 * t20079 * t9501 + 0.461000314880e0 * t30359 * t250 - 0.238156450669527040e0 * t30612 * t1535 - 0.19594476351194912734e0 * t20671 * t30615 - 0.39188952702389825468e0 * t23418 * t6106 - 0.25937594065695016420e0 * t30620 * t6110 + 0.34970653833504584654e0 * t23418 * t6113 + 0.21958039749871030452e0 * t20683 * t30625 - 0.238156450669527040e0 * t6060 * t7246;
20894   t30649 = t4848 * t9557 * t587;
20895   t30652 = t4755 * t30580;
20896   t30662 = 0.14983660725163427627e0 * t9691 * t4719 - 0.54895099374677576130e-1 * t2055 * t23130 + 0.72665723658879309976e-1 * t6225 * t23387 - 0.97972381755974563671e-1 * t2055 * t23042 - 0.54895099374677576130e-1 * t4774 * t9658 - 0.25306658097095253694e-1 * t4777 * t9658 - 0.18915142913373788795e1 * t20383 * t30449 + 0.25502554838335097929e1 * t20390 * t30514 - 0.10979019874935515226e0 * t1527 * t30649 - 0.85008516127783659765e0 * t1527 * t30652 - 0.39668333314116486557e0 * t20249 * t7222 * t26411 - 0.56263723100594113894e0 * t6225 * t23025 - 0.28131861550297056947e0 * t6225 * t22877;
20897   t30681 = t1528 * t2471 * t1509;
20898   t30694 = 0.87446194859244818739e0 * t20203 * t22881 - 0.85008516127783659766e0 * t23203 * t9507 - 0.85008516127783659766e0 * t7216 * t26374 - 0.42504258063891829883e0 * t7216 * t9506 * t1562 + 0.56263723100594113894e0 * t23124 * t9506 * t1546 - 0.75858199451789026629e0 * t7216 * t9506 * t1565 - 0.75858199451789026628e0 * t20358 * t30514 - 0.42504258063891829882e0 * t6116 * t30681 - 0.58783429053584738202e0 * t20183 * t9501 - 0.10979019874935515226e0 * t6242 * t7209 - 0.10979019874935515226e0 * t2055 * t23017 + 0.67692822862798455802e0 * t2465 * t20169 - 0.54895099374677576130e-1 * t2465 * t20101;
20899   t30705 = t1528 * t7268 * t566;
20900   t30726 = 0.72665723658879309976e-1 * t7287 * t20104 - 0.97972381755974563671e-1 * t2465 * t20107 - 0.85008516127783659764e0 * t20172 * t9494 - 0.85008516127783659764e0 * t6116 * t30705 + 0.45165298839047841173e-1 * t20153 * t9501 - 0.56263723100594113894e0 * t20367 * t7224 - 0.10979019874935515226e0 * t9663 * t4850 - 0.1844001259520e1 * t7346 * t8444 - 0.42504258063891829882e0 * t2465 * t20198 + 0.16879116930178234168e1 * t7287 * t20276 - 0.22757459835536707989e1 * t2465 * t20279 + 0.19594476351194912734e0 * t23465 * t8315 + 0.97972381755974563669e-1 * t23468 * t8315;
20901   t30744 = t4785 * t7222 * t2077;
20902   t30748 = t4848 * t7268 * t792;
20903   t30752 = t4848 * t2471 * t2106;
20904   t30755 = t940 * t2079;
20905   t30760 = 0.19594476351194912734e0 * t7203 * t26385 + 0.45165298839047841173e-1 * t23285 * t8315 - 0.56263723100594113894e0 * t23302 * t6110 - 0.56263723100594113894e0 * t7287 * t20285 - 0.28131861550297056947e0 * t7287 * t20289 + 0.87446194859244818739e0 * t23095 * t20295 - 0.15062248783813849042e1 * t7287 * t20298 + 0.75858199451789026628e0 * t7282 * t6113 - 0.56263723100594113894e0 * t4784 * t30744 - 0.10979019874935515226e0 * t1527 * t30748 - 0.10979019874935515226e0 * t1527 * t30752 - 0.10979019874935515226e0 * t1527 * t30755 + 0.10979019874935515226e0 * t2465 * t20098;
20906   t30763 = t1528 * t2471 * t1515;
20907   t30769 = t3190 * t580;
20908   t30784 = t9621 * t6089;
20909   t30787 = t7169 * t9474;
20910   t30791 = t2461 * t2038 * t238;
20911   t30796 = 0.12751277419167548965e1 * t20041 * t30763 + 0.85008516127783659766e0 * t7216 * t9506 * t1557 - 0.10979019874935515226e0 * t1527 * t30769 - 0.58783429053584738202e0 * t23121 * t8315 - 0.10979019874935515226e0 * t7282 * t6102 - 0.10979019874935515226e0 * t2465 * t20552 - 0.54895099374677576129e-1 * t2465 * t20187 - 0.85008516127783659764e0 * t7282 * t6106 - 0.85008516127783659764e0 * t2465 * t20195 + 0.19594476351194912734e0 * t30784 * t6092 + 0.19594476351194912734e0 * t30787 * t6092 + 0.19594476351194912734e0 * t30791 * t6092 + 0.10979019874935515226e0 * t2055 * t23011;
20912   t30815 = t1568 * t9652;
20913   t30819 = t9639 * t242;
20914   t30820 = t1528 * t30819;
20915   t30827 = 0.10979019874935515226e0 * t4752 * t9658 + 0.97972381755974563669e-1 * t9475 * t20086 - 0.12968797032847508210e0 * t9475 * t20090 + 0.17485326916752292327e0 * t9475 * t20093 - 0.85008516127783659764e0 * t23203 * t8308 - 0.85008516127783659764e0 * t7216 * t26337 - 0.42504258063891829882e0 * t7216 * t20535 + 0.69074723123554292755e-1 * t4820 * t9759 - 0.922000629760e0 * t22995 * t3138 + 0.650049912832e0 * t245 * t30815 * t587 + 0.42504258063891829882e0 * t1527 * t30820 + 0.13814944624710858551e0 * t6090 * t7337 - 0.42504258063891829882e0 * t9532 * t6165;
20916   t30846 = t9652 * t577;
20917   t30861 = 0.31525238188956314657e0 * t6238 * t12930 * t6217 + 0.76507664515005293790e1 * t7358 * t9729 + 0.21252129031945914941e0 * t22963 * t779 * t250 + 0.32937059624806545678e0 * t7340 * t794 - 0.714469352008581120e0 * t7365 * t26697 - 0.10979019874935515226e0 * t9672 * t589 - 0.10979019874935515226e0 * t9669 * t589 - 0.238156450669527040e0 * t1549 * t30846 * t1529 - 0.922000629760e0 * t575 * t30320 + 0.822756481972633600e0 * t575 * t30413 - 0.61023519165317445059e0 * t1540 * t9643 * t4844 - 0.922000629760e0 * t575 * t30391 - 0.119078225334763520e0 * t20054 * t2494;
20918   t30862 = t931 * t2077;
20919   t30863 = t30862 * t1529;
20920   t30866 = t2501 * t6178;
20921   t30874 = t7222 * t26239;
20922   t30877 = t12193 * t4824;
20923   t30896 = 0.29367798970123972772e1 * t9593 * t30863 - 0.59934642900653710508e0 * t26232 * t30866 + 0.29967321450326855254e0 * t23173 * t2070 + 0.37937585739830728828e1 * t9580 * t9581 * t26239 - 0.65345937074835210326e1 * t9585 * t30874 + 0.26741638969413672554e0 * t20370 * t30877 + 0.18968792869915364414e1 * t4707 * t30335 * t6256 - 0.32672968537417605163e1 * t1540 * t30335 * t4786 - 0.29967321450326855254e0 * t4770 * t9759 + 0.476312901339054080e0 * t9666 * t6179 + 0.37929099725894513314e0 * t4774 * t9524 + 0.75858199451789026628e0 * t6242 * t7227 + 0.75858199451789026628e0 * t2055 * t23028;
20924   t30910 = t245 * t16771;
20925   t30927 = 0.37929099725894513314e0 * t2055 * t22862 - 0.15062248783813849042e1 * t6225 * t22886 + 0.67692822862798455802e0 * t2055 * t22867 - 0.28131861550297056947e0 * t16728 * t9513 - 0.54895099374677576129e-1 * t3144 * t1584 - 0.10979019874935515226e0 * t9688 * t589 + 0.23916119461575365556e1 * t30910 * t9701 * t1569 + 0.325024956416e0 * t245 * t9755 * t1582 - 0.10979019874935515226e0 * t2055 * t23246 - 0.67675321900558938528e0 * t23193 * t20229 - 0.10979019874935515226e0 * t6242 * t7219 - 0.10979019874935515226e0 * t2052 * t2516 - 0.25306658097095253694e-1 * t6070 * t941;
20926   t30950 = t574 * t2515;
20927   t30953 = t7268 * t9544;
20928   t30956 = t7268 * t9549;
20929   t30959 = t10617 * t9549;
20930   t30962 = -0.54895099374677576130e-1 * t4820 * t9777 + 0.238156450669527040e0 * t4770 * t9777 + 0.97972381755974563669e-1 * t30426 * t1515 * t250 + 0.476312901339054080e0 * t2455 * t26467 + 0.238156450669527040e0 * t2455 * t1534 * t779 * t1582 - 0.4936538891835801600e1 * t575 * t30316 + 0.29967321450326855254e0 * t7296 * t6263 + 0.476312901339054080e0 * t9532 * t6153 + 0.31525238188956314656e0 * t1539 * t2515 * t2067 - 0.42504258063891829882e0 * t30950 * t2082 + 0.476312901339054080e0 * t6216 * t30953 + 0.5532003778560e1 * t9548 * t30956 + 0.73228222998380934072e1 * t9575 * t30959;
20931   t30975 = t2514 * t792;
20932   t30988 = t20152 * t2044;
20933   t30994 = t574 * t9755;
20934   t30999 = -0.9873077783671603200e1 * t9554 * t30956 + 0.476312901339054080e0 * t30950 * t2074 - 0.119078225334763520e0 * t2468 * t20253 - 0.119078225334763520e0 * t9691 * t4715 - 0.1468010318348156928e1 * t9700 * t30975 * t587 - 0.25937594065695016420e0 * t26764 * t7224 - 0.10979019874935515226e0 * t2462 * t2108 - 0.25306658097095253694e-1 * t7358 * t794 + 0.476312901339054080e0 * t7346 * t8476 + 0.45165298839047841173e-1 * t22931 * t779 * t30988 + 0.325024956416e0 * t245 * t23406 * t792 + 0.29967321450326855254e0 * t30994 * t1551 + 0.21958039749871030452e0 * t23462 * t27013;
20935   t31000 = t2454 * t575;
20936   t31003 = t2454 * t1540;
20937   t31008 = t928 * t1549;
20938   t31013 = t928 * t4838;
20939   t31030 = 0.17001703225556731953e1 * t31000 * t27019 + 0.11252744620118822779e1 * t31003 * t27025 - 0.15171639890357805326e1 * t31000 * t27028 + 0.21958039749871030452e0 * t31008 * t20672 - 0.50613316194190507388e-1 * t23418 * t6102 + 0.14533144731775861995e0 * t31013 * t20677 - 0.19594476351194912734e0 * t31008 * t20680 - 0.19594476351194912734e0 * t9475 * t20531 + 0.12751277419167548965e1 * t23206 * t27104 + 0.461000314880e0 * t575 * t30353 + 0.14983660725163427627e0 * t7296 * t6203 - 0.37929099725894513314e0 * t9532 * t6170 + 0.29967321450326855254e0 * t23173 * t2089;
20940   t31046 = t4706 * t940;
20941   t31051 = t12193 * t4780;
20942   t31054 = t249 * t16642;
20943   t31055 = t1539 * t31054;
20944   t31056 = t12193 * t4786;
20945   t31059 = t574 * t31054;
20946   t31060 = t12193 * t4756;
20947   t31065 = 0.14983660725163427627e0 * t7296 * t6270 - 0.19834166657058243279e0 * t23352 * t6274 + 0.26741638969413672554e0 * t7296 * t6277 + 0.238156450669527040e0 * t9532 * t6158 - 0.94575714566868943969e0 * t9603 * t6184 + 0.12751277419167548965e1 * t9532 * t6156 + 0.15762619094478157328e0 * t9603 * t6212 - 0.48997150734706182895e0 * t31046 * t6257 + 0.84395584650891170840e0 * t9603 * t6260 + 0.14683899485061986386e1 * t9593 * t31051 - 0.13606156761889987933e2 * t31055 * t31056 + 0.26206649088979828343e1 * t31059 * t31060 + 0.2766001889280e1 * t9548 * t31051;
20948   t31078 = t7222 * t26849;
20949   t31081 = t22860 * t2838;
20950   t31084 = t22865 * t2838;
20951   t31089 = t249 * t16623;
20952   t31090 = t1539 * t31089;
20953   t31097 = t784 * t1582;
20954   t31098 = t2471 * t31097;
20955   t31101 = -0.21968466899514280222e2 * t9585 * t31056 + 0.29619233351014809600e2 * t9593 * t31060 - 0.4936538891835801600e1 * t9554 * t31051 + 0.15762619094478157328e0 * t6238 * t7222 * t26878 - 0.48997150734706182895e0 * t20746 * t9581 * t26849 + 0.84395584650891170840e0 * t20353 * t31078 - 0.21252129031945914941e0 * t6222 * t31081 - 0.37929099725894513314e0 * t20358 * t31084 - 0.21252129031945914941e0 * t9532 * t6167 + 0.39207562244901126197e2 * t31090 * t31056 + 0.21252129031945914941e0 * t4774 * t9558 + 0.97972381755974563669e-1 * t4777 * t9558 + 0.238156450669527040e0 * t6216 * t31098;
20956   t31126 = t3189 * t1542;
20957   t31136 = 0.21252129031945914941e0 * t2465 * t20048 - 0.21252129031945914941e0 * t6222 * t31098 + 0.21252129031945914941e0 * t23297 * t2062 + 0.42504258063891829882e0 * t7282 * t6233 + 0.15762619094478157329e0 * t6238 * t7222 * t31097 + 0.21252129031945914941e0 * t20115 * t2472 + 0.42504258063891829882e0 * t6242 * t7269 - 0.25502554838335097929e1 * t22889 * t566 * t9729 - 0.12751277419167548965e1 * t23334 * t9729 - 0.25502554838335097929e1 * t9728 * t26506 - 0.21252129031945914941e0 * t1549 * t31126 * t4756 - 0.238156450669527040e0 * t1549 * t2487 * t8464 + 0.15762619094478157328e0 * t4838 * t31126 * t4786;
20958   t31142 = t2486 * t4708;
20959   t31153 = t2454 * t245;
20960   t31159 = t9557 * t6217;
20961   t31168 = t3141 * t1539;
20962   t31171 = -0.9873077783671603200e1 * t9554 * t30863 + 0.31525238188956314658e0 * t6238 * t10617 * t9544 + 0.37937585739830728828e1 * t9580 * t31142 * t9549 - 0.65345937074835210326e1 * t9585 * t30959 + 0.31525238188956314658e0 * t6238 * t7222 * t26324 + 0.13814944624710858551e0 * t7203 * t6283 - 0.59934642900653710508e0 * t31153 * t26233 + 0.325024956416e0 * t245 * t2501 * t6172 + 0.476312901339054080e0 * t6216 * t31159 + 0.29367798970123972772e1 * t9593 * t30956 - 0.42504258063891829882e0 * t6222 * t30953 + 0.21252129031945914941e0 * t9663 * t4781 - 0.28131861550297056947e0 * t31168 * t4787;
20963   t31187 = t9618 * t574;
20964   t31191 = t7230 * t6282;
20965   t31197 = t9540 * t8464;
20966   t31207 = 0.37929099725894513314e0 * t9663 * t4790 + 0.2766001889280e1 * t7365 * t2044 * t30302 + 0.476312901339054080e0 * t7346 * t9737 - 0.12204703833063489012e1 * t1540 * t7191 * t8425 + 0.5532003778560e1 * t23477 * t9733 + 0.5532003778560e1 * t7365 * t26827 + 0.42504258063891829882e0 * t31187 * t1530 - 0.67675321900558938528e0 * t570 * t245 * t31191 - 0.119078225334763520e0 * t1549 * t932 * t26623 - 0.42504258063891829882e0 * t6222 * t31197 + 0.73228222998380934072e1 * t9575 * t30874 + 0.650049912832e0 * t245 * t7260 * t2106 - 0.1844001259520e1 * t575 * t30345;
20967   t31211 = t7161 * t9474;
20968   t31214 = t7174 * t9732;
20969   t31217 = t30862 * t1550;
20970   t31234 = t3189 * t587;
20971   t31235 = t4718 * t31234;
20972   t31246 = -0.238156450669527040e0 * t1549 * t9640 * t1550 + 0.65874119249613091357e0 * t31211 * t6179 - 0.50613316194190507388e-1 * t31214 * t589 - 0.42504258063891829882e0 * t6222 * t31217 - 0.61023519165317445059e0 * t1540 * t2475 * t26594 - 0.119078225334763520e0 * t1549 * t7188 * t2838 + 0.822756481972633600e0 * t575 * t30370 - 0.119078225334763520e0 * t1549 * t2497 * t20047 - 0.238156450669527040e0 * t1549 * t7299 * t6232 + 0.29967321450326855254e0 * t1533 * t31235 + 0.69074723123554292753e-1 * t3144 * t1571 - 0.11756685810716947640e1 * t22948 * t779 * t30988 + 0.29967321450326855254e0 * t8511 * t2471 * t20750;
20973   t31266 = t30306 * t238;
20974   t31271 = t9615 * t574;
20975   t31282 = 0.476312901339054080e0 * t6216 * t31197 + 0.31525238188956314656e0 * t9603 * t6206 + 0.21252129031945914941e0 * t2461 * t6042 * t250 + 0.822756481972633600e0 * t575 * t30389 + 0.14683899485061986386e1 * t575 * t30336 - 0.734005159174078464e0 * t9700 * t9701 * t1582 - 0.119078225334763520e0 * t2058 * t23051 - 0.1844001259520e1 * t31266 * t2045 - 0.59934642900653710508e0 * t20240 * t30510 - 0.85008516127783659765e0 * t31271 * t6118 - 0.97994301469412365794e0 * t20746 * t9581 * t30513 - 0.119078225334763520e0 * t1549 * t23113 * t2061 + 0.13538564572559691160e1 * t30549 * t9650;
20976   t31290 = t1534 * t2514 * t566;
20977   t31309 = t7222 * t20162;
20978   t31312 = 0.13814944624710858551e0 * t26903 * t23331 - 0.50613316194190507388e-1 * t20225 * t7219 + 0.1645512963945267200e1 * t575 * t30411 + 0.476312901339054080e0 * t2043 * t31290 + 0.238156450669527040e0 * t2043 * t23092 + 0.29967321450326855254e0 * t2058 * t23525 + 0.476312901339054080e0 * t6124 * t9772 - 0.54895099374677576130e-1 * t6081 * t941 + 0.32937059624806545678e0 * t6288 * t941 + 0.29967321450326855254e0 * t6060 * t7337 + 0.14983660725163427627e0 * t2058 * t23358 - 0.10979019874935515226e0 * t6076 * t941 + 0.36614111499190467036e1 * t9575 * t31309;
20979   t31314 = t4706 * t31089;
20980   t31315 = t9581 * t20354;
20981   t31320 = t2475 * t27024;
20982   t31339 = t4718 * t30517;
20983   t31347 = -0.22762551443898437297e2 * t31314 * t31315 + 0.21252129031945914941e0 * t2055 * t23445 + 0.11252744620118822779e1 * t27022 * t31320 + 0.21958039749871030452e0 * t26758 * t23457 - 0.50613316194190507388e-1 * t20225 * t7209 + 0.29967321450326855254e0 * t7296 * t6128 - 0.61023519165317445059e0 * t1540 * t22921 * t3153 + 0.238156450669527040e0 * t6216 * t31081 - 0.42504258063891829882e0 * t6222 * t31159 + 0.14983660725163427627e0 * t4823 * t3164 * t4824 + 0.29967321450326855254e0 * t1533 * t31339 + 0.29967321450326855254e0 * t2468 * t20751 + 0.18968792869915364414e1 * t9580 * t9581 * t20162;
20984   t31348 = t16762 * t31054;
20985   t31349 = t931 * t16764;
20986   t31353 = t4706 * t31054;
20987   t31364 = t7268 * t8515;
20988   t31384 = -0.92817332546461565657e1 * t31348 * t31349 * t20354 + 0.20312390406477209506e2 * t31353 * t31315 - 0.32672968537417605163e1 * t9585 * t31309 + 0.14983660725163427627e0 * t8511 * t2471 * t20064 + 0.29967321450326855254e0 * t8511 * t7268 * t6282 + 0.476312901339054080e0 * t6216 * t31364 + 0.31525238188956314656e0 * t6238 * t10617 * t8515 - 0.42504258063891829882e0 * t6222 * t31364 - 0.922000629760e0 * t575 * t30415 - 0.12751277419167548965e1 * t30404 * t1515 * t250 - 0.238156450669527040e0 * t7343 * t6086 - 0.33837660950279469264e0 * t2468 * t20477 + 0.19594476351194912734e0 * t22918 * t779 * t9722;
20989   t31407 = t7174 * t9732 * t238;
20990   t31410 = t7161 * t20224;
20991   t31413 = t2461 * t575;
20992   t31420 = t4718 * t30975;
20993   t31423 = 0.19594476351194912734e0 * t7174 * t2038 * t9722 + 0.97972381755974563669e-1 * t9721 * t20429 + 0.14983660725163427627e0 * t2468 * t20665 + 0.2766001889280e1 * t575 * t30322 + 0.42504258063891829882e0 * t30372 * t566 * t250 + 0.14533144731775861995e0 * t27035 * t23454 - 0.39188952702389825468e0 * t20225 * t7213 + 0.21252129031945914941e0 * t9621 * t1509 * t250 + 0.90330597678095682346e-1 * t31407 * t6092 - 0.11756685810716947640e1 * t31410 * t9507 + 0.25502554838335097930e1 * t31413 * t9732 * t580 + 0.21958039749871030452e0 * t23462 * t9736 * t580 + 0.29967321450326855254e0 * t1533 * t31420;
20994   t31424 = t2461 * t245;
20995   t31425 = t583 * t779;
20996   t31452 = t3189 * t1555;
20997   t31463 = -0.1428938704017162240e1 * t31424 * t31425 * t6178 + 0.31525238188956314656e0 * t6238 * t7222 * t26225 + 0.476312901339054080e0 * t6216 * t31217 + 0.5532003778560e1 * t9548 * t30863 - 0.922000629760e0 * t9666 * t4728 - 0.714469352008581120e0 * t6222 * t31084 - 0.42504258063891829882e0 * t9663 * t4757 - 0.33837660950279469264e0 * t27079 * t2471 * t20476 - 0.19834166657058243280e0 * t20249 * t7222 * t784 * t1569 + 0.36614111499190467036e1 * t1540 * t30315 * t4786 + 0.238156450669527040e0 * t1549 * t31452 * t4756 - 0.11064007557120e2 * t22983 * t2044 * t30311 - 0.29967321450326855254e0 * t2455 * t4718 * t779 * t1569;
20998   t31476 = t1534 * t939 * t1515;
20999   t31483 = t4688 * t3189;
21000   t31491 = t9621 * t238;
21001   t31498 = -0.119078225334763520e0 * t1549 * t3164 * t4853 + 0.1645512963945267200e1 * t575 * t30418 - 0.12204703833063489012e1 * t1540 * t30417 * t2066 - 0.1844001259520e1 * t575 * t30383 - 0.714469352008581120e0 * t6056 * t31476 - 0.33837660950279469264e0 * t2058 * t23531 - 0.119078225334763520e0 * t23483 * t2085 - 0.734005159174078464e0 * t245 * t31483 * t1569 - 0.33837660950279469264e0 * t23193 * t6187 - 0.714469352008581120e0 * t9532 * t6150 + 0.2766001889280e1 * t31491 * t6057 + 0.476312901339054080e0 * t2455 * t26674 + 0.238156450669527040e0 * t2455 * t20312;
21002   t31501 = t574 * t31089;
21003   t31530 = 0.29967321450326855254e0 * t7343 * t6283 - 0.17620679382074383663e2 * t31501 * t31060 - 0.11064007557120e2 * t9554 * t31060 - 0.42504258063891829882e0 * t4752 * t9558 - 0.29967321450326855254e0 * t7296 * t6191 - 0.94575714566868943969e0 * t20383 * t31078 + 0.12751277419167548965e1 * t20390 * t31084 - 0.29967321450326855254e0 * t20240 * t30877 + 0.14983660725163427627e0 * t4863 * t9759 - 0.10979019874935515226e0 * t7237 * t794 - 0.54895099374677576130e-1 * t7355 * t794 + 0.42504258063891829882e0 * t7169 * t2038 * t250 - 0.119078225334763520e0 * t1549 * t9470 * t4780 - 0.922000629760e0 * t2455 * t26257;
21004   t31536 = my_piecewise3(t235, 0, t30999 + t30927 + t30563 + t31136 + t31423 + t30630 + t31312 + t30525 + t31030 + t31101 + t31530 + t30662 + t31207 + t30796 + t30827 + t31282 + t30482 + t30962 + t30694 + t31347 + t30726 + t30444 + t30861 + t31065 + t31246 + t31384 + t30599 + t30760 + t31463 + t31171 + t30896 + t31498);
21005   t31537 = my_piecewise3(t234, 0, t31536);
21006   t31539 = t1509 * t3195 + t1588 * t3134 + 0.2e1 * t2038 * t2520 + 0.2e1 * t2112 * t2450 + t233 * t31537 + t252 * t30268 + 0.2e1 * t566 * t9785 + 0.2e1 * t593 * t9455 + t6042 * t945 + t6295 * t926 + t7148 * t798 + t7386 * t779;
21007   t31542 = t9852 * t618;
21008   t31545 = t2557 * t3197;
21009   t31551 = t2118 * t36;
21010   t31561 = 0.10000e5 / 0.729e3 * t20784 * t3228 * t17020 * t23 + 0.1000e4 / 0.81e2 * t2150 * t7498 * t9874 + 0.5e1 / 0.9e1 * t3225 * t7469 + 0.10e2 / 0.9e1 * t9867 * t2562 + 0.100e3 / 0.81e2 * t617 * t2557 * t9787 * t599 - 0.50e2 / 0.81e2 * t29964 * t7443 - 0.50e2 / 0.81e2 * t7442 * t9859 * t22660 - 0.5e1 / 0.9e1 * t23553 * t3222 - 0.5e1 / 0.9e1 * t2550 * t6400 * t23 - params->c1 * t31539 * t279 - 0.10e2 / 0.9e1 * t31542 * t2551 + 0.100e3 / 0.81e2 * t7452 * t31545 + 0.500e3 / 0.81e2 * t2150 * t9923 * t1598 - 0.100e3 / 0.81e2 * t7442 * t31551 * t9860 - 0.100e3 / 0.81e2 * t22648 * t9861 + 0.500e3 / 0.81e2 * t2150 * t2577 * t804 * t1594;
21011   t31566 = t959 * t1654;
21012   t31582 = -t31539;
21013   t31609 = -0.5e1 / 0.9e1 * t9854 * t7446 - 0.10e2 / 0.9e1 * t7439 * t9864 - 0.500e3 / 0.81e2 * t31566 * t6388 * t1598 + 0.5e1 / 0.9e1 * t7449 * t3232 + 0.10e2 / 0.9e1 * t2554 * t9892 + 0.200e3 / 0.81e2 * t6355 * t2559 + 0.100e3 / 0.81e2 * t2147 * t7466 + 0.1000e4 / 0.81e2 * t2150 * t2577 * t2118 * t599 + 0.5e1 / 0.9e1 * t961 * t962 * t31582 + 0.200e3 / 0.81e2 * t2147 * t7462 + 0.500e3 / 0.27e2 * t19849 * t7458 + 0.50e2 / 0.81e2 * t617 * t2557 * t7388 * t804 + 0.5e1 / 0.9e1 * t6352 * t19 * t963 + 0.50e2 / 0.81e2 * t617 * t2557 * t3197 * t1594 + 0.50e2 / 0.81e2 * t617 * t2557 * t947 * t6301 + 0.100e3 / 0.81e2 * t617 * t2557 * t2522 * t2118;
21014   t31632 = (t31561 + t31609) * t283 + 0.2e1 * t9895 * t623 * t283 + t3235 * t1638 * t283 + t3235 * t1640 * t283 + t7472 * t823 * t283 + 0.2e1 * t2565 * t2158 * t283 + 0.2e1 * t9899 * t624 + t966 * t6378 * t283 + 0.2e1 * t9901 * t624 + t3237 * t1639 + t3237 * t1641;
21015   t31640 = t449 * t7489;
21016   t31643 = t1263 * t7504;
21017   t31653 = t4017 * t17071 * t947;
21018   t31657 = t9859 * t22660 * t285;
21019   t31661 = t31551 * t9860 * t285;
21020   t31668 = t449 * t618 * t31582 * t285 + 0.100e3 / 0.27e2 * t23635 * t9907 + 0.5e1 / 0.9e1 * t9924 * t1650 + 0.2000e4 / 0.81e2 * t31640 * t6390 + 0.1000e4 / 0.27e2 * t31643 * t6390 + 0.10e2 / 0.9e1 * t23627 * t826 + 0.50e2 / 0.81e2 * t23648 * t9907 + 0.10e2 / 0.9e1 * t2571 * t6401 + 0.1000e4 / 0.81e2 * t31653 * t6390 + 0.25e2 / 0.81e2 * t7505 * t31657 + 0.50e2 / 0.81e2 * t7505 * t31661 + 0.100e3 / 0.27e2 * t23640 * t9907 + 0.100e3 / 0.27e2 * t7482 * t31661;
21021   t31672 = t449 * t1630 * t9787;
21022   t31680 = t14957 * t17089 * t947;
21023   t31684 = t1263 * t1654 * t9787;
21024   t31688 = t4017 * t4965 * t3197;
21025   t31697 = t449 * t9923;
21026   t31701 = t1263 * t4952 * t3197;
21027   t31708 = 0.50e2 / 0.27e2 * t7482 * t31657 + 0.20e2 / 0.9e1 * t31672 * t628 + 0.10e2 / 0.9e1 * t7499 * t2169 + 0.5e1 / 0.9e1 * t2578 * t6401 + 0.250e3 / 0.243e3 * t31680 * t6390 + 0.10e2 / 0.9e1 * t31684 * t628 + 0.25e2 / 0.81e2 * t31688 * t1646 + 0.5e1 / 0.9e1 * t23652 * t826 + 0.10e2 / 0.9e1 * t9917 * t1650 + 0.20e2 / 0.9e1 * t7486 * t2169 + 0.50e2 / 0.27e2 * t31697 * t1646 + 0.50e2 / 0.27e2 * t31701 * t1646 + 0.50e2 / 0.27e2 * t7490 * t31657 + 0.100e3 / 0.27e2 * t7490 * t31661;
21028   t31710 = my_piecewise3(t277, t31632, t31668 + t31708);
21029   t31718 = -0.4e1 * t510 * t2422 * t2177 + 0.2e1 * t510 * t811 * t7417 * t288 - 0.4e1 * t510 * t9822 * t631 + 0.2e1 * t1423 * t1424 * t3248 - 0.2e1 * t510 * t954 * t6413 + 0.12e2 * t7051 * t2418 * t814 * t1617 + 0.12e2 * t29933 * t7052 - 0.8e1 * t9344 * t7059 - t510 * t6336 * t971 - 0.6e1 * t4566 * t3217 * t1424 + 0.4e1 * t1423 * t9847 * t611 - 0.2e1 * t510 * t7069 * t829 + 0.1174e1 * t31710 - 0.24e2 * t7051 * t7062 * t9329 - 0.4e1 * t510 * t9362 * t631;
21030   t31742 = t3209 * t631;
21031   t31762 = 0.2e1 * t1614 * t288 * t3209 * t510 + 0.4e1 * t1423 * t611 * t9845 + 0.12e2 * t1424 * t7051 * t9358 - 0.12e2 * t1424 * t7051 * t9829 - 0.2e1 * t1659 * t3109 * t510 + 0.8e1 * t2137 * t2417 * t7062 - 0.4e1 * t23678 * t2417 * t814 + 0.8e1 * t23689 * t2417 * t814 + 0.4e1 * t23796 * t2417 * t814 + 0.8e1 * t2417 * t31742 * t611 - 0.4e1 * t510 * t631 * t9351 - 0.8e1 * t7055 * t9335 - 0.8e1 * t7055 * t9341 + 0.8e1 * t7063 * t9344 - 0.4e1 * t7066 * t9344;
21032   t31767 = t9821 * t288;
21033   t31777 = t4897 * t3197;
21034   t31785 = t6388 * t1598 * t266;
21035   t31796 = t9788 * t262;
21036   t31799 = t1609 * t9787;
21037   t31810 = t56 * t31582 * t266 / 0.100e3 - t31777 * t7403 / 0.324e3 + t23735 * t3201 / 0.60e2 - t7409 * t9801 / 0.90e2 - 0.5e1 / 0.486e3 * t23705 * t31785 - t4897 * t9878 * t2131 / 0.162e3 - t604 * t31582 * t266 / 0.100e3 + t9791 * t7398 / 0.60e2 + t31796 * t2528 / 0.30e2 - t31799 * t2528 / 0.90e2 - t948 * t1594 * t9798 / 0.108e3 + t2523 * t9804 * t2131 / 0.27e2 - t9811 * t7398 / 0.180e3;
21038   t31818 = t6400 * t2527;
21039   t31837 = t3198 * t264;
21040   t31847 = -0.25e2 / 0.162e3 * t7395 * t6388 * t3489 + 0.25e2 / 0.243e3 * t2534 * t31785 + t7392 * t9801 / 0.30e2 + t2526 * t31818 / 0.60e2 - t23702 * t3201 / 0.180e3 - t3198 * t1598 * t1611 / 0.108e3 - t2523 * t599 * t9798 / 0.54e2 + t9805 * t6327 / 0.54e2 + t948 * t264 * t2118 * t2131 / 0.27e2 - t2534 * t31818 / 0.180e3 + t31837 * t7403 / 0.54e2 - t9796 * t8573 / 0.54e2 - t4897 * t9882 * t2131 / 0.162e3 - t9818 * t6327 / 0.324e3;
21041   t31854 = t2537 * t829;
21042   t31887 = -0.4e1 * t510 * t7073 * t829 - 0.8e1 * t2417 * t31767 * t611 - 0.4e1 * t510 * t2538 * t2177 + 0.2e1 * t510 * t269 * (t31810 + t31847) * t288 - t276 * t31710 + 0.8e1 * t2417 * t31854 * t611 + 0.4e1 * t2417 * t9829 * t1617 - 0.48e2 * t23802 * t2418 * t814 * t1424 - t510 * t1617 * t3248 + 0.4e1 * t510 * t608 * t9821 * t288 - 0.8e1 * t2417 * t7058 * t2137 + 0.2e1 * t1423 * t3217 * t1617 + 0.4e1 * t510 * t2134 * t2537 * t288 + 0.2e1 * t510 * t6333 * t953 * t288 - t510 * t814 * t7509;
21043   t31900 = t1423 * t2134;
21044   t31927 = t953 * t2177;
21045   t31933 = 0.24e2 * t2137 * t2418 * t611 * t7051 - 0.4e1 * t1617 * t2417 * t9358 - 0.2e1 * t1659 * t3210 * t510 - 0.2e1 * t2137 * t2582 * t510 - 0.4e1 * t2417 * t2418 * t6336 + 0.8e1 * t2417 * t31927 * t611 - 0.2e1 * t510 * t611 * t9934 - 0.4e1 * t510 * t631 * t9347 - 0.2e1 * t510 * t7418 * t829 + 0.24e2 * t7051 * t7058 * t9329 - 0.4e1 * t23660 * t3106 + 0.24e2 * t23667 * t9330 - 0.8e1 * t2419 * t31900 + 0.8e1 * t7055 * t9338 - 0.8e1 * t7055 * t9359 + 0.8e1 * t7055 * t9830;
21046   t31940 = 0.57725500000000000000e1 * t9944 * t1682 + 0.24739500000000000000e1 * t22593 * t2190 - 0.65972000000000000000e1 * t29797 * t1411 + 0.12369750000000000000e1 * t7029 * t6441 - 0.32986000000000000000e1 * t7029 * t6431 + 0.41232500000000000000e0 * t22523 * t6435 - 0.55663875000000000000e2 * t9951 * t9953 * t5877 + 0.29687400000000000000e2 * t7029 * t5926 - 0.80541612095716256867e2 * t22608 * t5911 + 0.92773125000000000000e0 * t23816 * t840 - 0.29687400000000000000e2 * t9944 * t1677 - 0.49479000000000000000e1 * t29903 * t649 + 0.24739500000000000000e1 * t29808 - t2220 * t29726 * t1402 / 0.6e1 - t2220 * t9313 * t1415 / 0.2e1 + t29734 - 0.3e1 / 0.8e1 * t846 * t913 * (t31718 + t31762 + t31887 + t31933) * t302 - t29787;
21047   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21048     v4rho2sigmalapl[17] = t29878 + t31940;
21049 
21050   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21051     v4rho2sigmatau[0] = 0.0e0;
21052 
21053   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21054     v4rho2sigmatau[1] = 0.0e0;
21055 
21056   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21057     v4rho2sigmatau[2] = 0.0e0;
21058 
21059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21060     v4rho2sigmatau[3] = 0.0e0;
21061 
21062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21063     v4rho2sigmatau[4] = 0.0e0;
21064 
21065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21066     v4rho2sigmatau[5] = 0.0e0;
21067 
21068   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21069     v4rho2sigmatau[6] = 0.0e0;
21070 
21071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21072     v4rho2sigmatau[7] = 0.0e0;
21073 
21074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21075     v4rho2sigmatau[8] = 0.0e0;
21076 
21077   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21078     v4rho2sigmatau[9] = 0.0e0;
21079 
21080   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21081     v4rho2sigmatau[10] = 0.0e0;
21082 
21083   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21084     v4rho2sigmatau[11] = 0.0e0;
21085 
21086   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21087     v4rho2sigmatau[12] = 0.0e0;
21088 
21089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21090     v4rho2sigmatau[13] = 0.0e0;
21091 
21092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21093     v4rho2sigmatau[14] = 0.0e0;
21094 
21095   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21096     v4rho2sigmatau[15] = 0.0e0;
21097 
21098   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21099     v4rho2sigmatau[16] = 0.0e0;
21100 
21101   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21102     v4rho2sigmatau[17] = 0.0e0;
21103 
21104   t31942 = t22502 * t3397 / 0.6e1;
21105   t31943 = t6991 * t9967;
21106   t31945 = t7016 * t10430;
21107   t31946 = t7024 * t10433;
21108   t31947 = t31946 * t480;
21109   t31949 = t984 * t3395;
21110   t31953 = t15 * t10428;
21111   t31957 = t2399 * t309 * t3395;
21112   t31963 = t2345 * t905;
21113   t31971 = t9988 * t435;
21114   t31976 = t10369 * t3345;
21115   t32003 = t10355 * t442;
21116   t32006 = t3365 * t1239;
21117   t32012 = 0.10e2 / 0.9e1 * t2362 * t10384 - 0.100e3 / 0.27e2 * t6893 * t31976 + 0.20e2 / 0.9e1 * t6883 * t6906 * t24 + 0.50e2 / 0.81e2 * t441 * t2365 * t3341 * t1203 + 0.100e3 / 0.27e2 * t27638 * t881 * t1207 * t68 + 0.40e2 / 0.9e1 * t6883 * t6902 * t24 - 0.40e2 / 0.9e1 * t2362 * t10375 + 0.40e2 / 0.9e1 * t22070 * t10362 - 0.5e1 / 0.9e1 * t10357 * t6887 - 0.50e2 / 0.27e2 * t441 * t10369 * t3345 * t1203 - 0.10e2 / 0.9e1 * t32003 * t2359 - 0.50e2 / 0.81e2 * t32006 * t6884 + 0.500e3 / 0.81e2 * t1879 * t10414 * t1207;
21118   t32024 = t2330 * t2330;
21119   t32032 = t2365 * t3341;
21120   t32045 = t6521 * t1098;
21121   t32048 = t2239 * t5225;
21122   t32053 = t72 * t1090;
21123   t32064 = t21197 * t85;
21124   t32067 = t6573 * t378;
21125   t32074 = t14277 * t86;
21126   t32077 = -0.4e1 * t2239 * t6560 - 0.2e1 * t2239 * t6566 + 0.3e1 * t14272 * t3272 - 0.4e1 * t1086 * t10041 + 0.3e1 * t3686 * t10038 - 0.40e2 / 0.27e2 * t32045 * t2252 - 0.40e2 / 0.27e2 * t32048 * t2252 - 0.40e2 / 0.27e2 * t10011 * t6532 + t68 * t32053 * t1092 / 0.3888e4 + 0.65e2 / 0.13122e5 * t2616 + 0.6e1 * t2243 * t10019 * t1102 + 0.6e1 * t10032 * t10033 * t6565 + 0.6e1 * t32064 * t2245 + 0.6e1 * t32067 * t2245 + 0.6e1 * t10006 * t6550 + 0.3e1 * t10006 * t6540 - 0.15e2 * t32074 * t10020;
21127   t32087 = t345 * t2608;
21128   t32093 = t2239 * t3707;
21129   t32096 = t3686 * t3721;
21130   t32099 = t1091 * t14333;
21131   t32100 = t3271 * t36;
21132   t32104 = t1091 * t10044;
21133   t32108 = t376 * t857 * t382;
21134   t32125 = 0.12e2 * t6543 * t10023 + 0.12e2 * t3686 * t86 * t10034 - 0.15e2 / 0.2e1 * t10018 * t10019 * t1115 + 0.5e1 / 0.4374e4 * t8734 - 0.25e2 / 0.59049e5 * t6535 * t32087 * t27772 + 0.220e3 / 0.81e2 * t10011 * t6585 - 0.100e3 / 0.243e3 * t32093 * t6537 + 0.40e2 / 0.9e1 * t32096 * t10029 + 0.500e3 / 0.243e3 * t32099 * t32100 * t1110 + 0.10e2 / 0.9e1 * t32104 * t6582 - 0.40e2 / 0.27e2 * t32108 * t6532 - 0.220e3 / 0.27e2 * t10027 * t10028 * t1067 - t68 * t10000 * t1115 / 0.5832e4 - 0.2e1 * t21222 * t858 - t27851 * t3278 / 0.2916e4 - t27854 * t3278 / 0.1458e4 - 0.10e2 / 0.6561e4 * t8740 * t10057;
21135   t32149 = t345 * t3566;
21136   t32156 = t376 * t10019;
21137   t32167 = t1091 * t857;
21138   t32170 = t21229 * t85;
21139   t32175 = -t27870 * t3278 / 0.2916e4 - 0.10e2 / 0.6561e4 * t8743 * t10057 - 0.30e2 * t6554 * t10019 * t387 * t378 - 0.30e2 * t10018 * t10033 * t387 * t2255 + 0.24e2 * t2243 * t10033 * t378 * t2255 + t27918 * t10051 / 0.972e3 + t8777 * t68 * t72 * t1115 / 0.1944e4 + 0.5e1 / 0.2187e4 * t8721 * t32149 * t27921 - 0.20e2 / 0.27e2 * t1086 * t10044 * t334 - 0.50e2 / 0.243e3 * t32156 * t1082 + t27915 * t10051 / 0.972e3 - 0.5e1 / 0.3888e4 * t27779 * t68 * t72 * t1092 + 0.110e3 / 0.81e2 * t10045 * t1038 + 0.6e1 * t32167 * t6550 - 0.15e2 / 0.2e1 * t32170 * t6555 + 0.5e1 / 0.2187e4 * t8741 + 0.5e1 / 0.2187e4 * t8744;
21140   t32184 = t2255 * t2255;
21141   t32188 = t14287 * t86;
21142   t32201 = t3694 * t3721 * t3271;
21143   t32205 = t1091 * t14313 * t3271;
21144   t32223 = t6573 * t6579;
21145   t32226 = 0.155e3 / 0.19683e5 * t8748 - 0.65e2 / 0.13122e5 * t8751 - 0.4e1 * t6521 * t2248 - 0.4e1 * t6521 * t2256 - 0.2e1 * t2239 * t6558 + 0.6e1 * t1091 * t1107 * t32184 + 0.105e3 / 0.4e1 * t32188 * t10019 * t1092 - 0.2e1 * t376 * t32184 * t89 - 0.5e1 / 0.1458e4 * t8780 - t3683 * t3275 - 0.15e2 / 0.4e1 * t3694 * t3275 * t1092 - 0.100e3 / 0.9e1 * t32201 * t6582 + 0.80e2 / 0.9e1 * t32205 * t378 * t19 * t355 + 0.80e2 / 0.9e1 * t1091 * t3721 * t857 * t6532 + 0.6e1 * t1091 * t14309 * t3271 + 0.3e1 / 0.2e1 * t1091 * t3275 * t1115 - 0.2e1 * t376 * t2244 * t6565 + 0.20e2 / 0.9e1 * t32223 * t6582;
21146   t32228 = t32077 + t32125 + t32175 + t32226;
21147   t32242 = t393 * t32228;
21148   t32245 = t10242 * t411;
21149   t32246 = t5393 * t32245;
21150   t32249 = t2279 * t2294;
21151   t32250 = t3862 * t32249;
21152   t32254 = t5393 * t10258 * t411;
21153   t32259 = t10183 * t104;
21154   t32260 = t1137 * t32259;
21155   t32263 = t10242 * t5389;
21156   t32266 = t411 * t2294;
21157   t32267 = t2279 * t32266;
21158   t32270 = t10258 * t5389;
21159   t32275 = t2279 * t21898;
21160   t32283 = t3741 * t3312;
21161   t32287 = t32283 * t3841;
21162   t32294 = 0.461000314880e0 * t32242 * t112 - 0.19594476351194912734e0 * t1136 * t32246 + 0.15171639890357805326e1 * t1136 * t32250 + 0.14533144731775861996e0 * t3861 * t32254 + 0.39188952702389825468e0 * t21419 * t8929 + 0.42504258063891829882e0 * t1136 * t32260 - 0.1428938704017162240e1 * t5394 * t32263 + 0.952625802678108160e0 * t5388 * t32267 - 0.18915142913373788795e1 * t18106 * t32270 + 0.25502554838335097929e1 * t18277 * t32263 + 0.11064007557120e2 * t8893 * t32275 - 0.61023519165317445059e0 * t1149 * t10077 * t3888 + 0.29967321450326855254e0 * t2276 * t21672 + 0.36614111499190467036e1 * t1149 * t32283 * t3863 - 0.4936538891835801600e1 * t399 * t32287 - 0.1428938704017162240e1 * t10155 * t5514 - 0.10979019874935515226e0 * t3827 * t10115;
21163   t32297 = t6615 * t390;
21164   t32299 = t107 * t111 * t2258;
21165   t32302 = t10145 * t100;
21166   t32324 = t1773 * t390 * t2258;
21167   t32327 = t3321 * t404;
21168   t32330 = t10238 * t402;
21169   t32331 = t3840 * t32330;
21170   t32335 = t3862 * t13358 * t402;
21171   t32338 = t3862 * t32330;
21172   t32341 = t3334 * t404;
21173   t32344 = -0.50613316194190507389e-1 * t3830 * t10115 + 0.39188952702389825468e0 * t32297 * t32299 + 0.65874119249613091357e0 * t32302 * t5514 + 0.19594476351194912734e0 * t21642 * t8929 + 0.39188952702389825468e0 * t6720 * t28037 + 0.90330597678095682346e-1 * t21645 * t8929 - 0.11252744620118822779e1 * t21707 * t6658 - 0.11252744620118822779e1 * t6689 * t21488 - 0.56263723100594113893e0 * t6689 * t21492 + 0.17489238971848963747e1 * t21710 * t21471 - 0.30124497567627698084e1 * t6689 * t21410 + 0.952625802678108160e0 * t2263 * t29203 + 0.11064007557120e2 * t6728 * t32324 + 0.13814944624710858551e0 * t1136 * t32327 - 0.85008516127783659765e0 * t1136 * t32331 - 0.56263723100594113894e0 * t3861 * t32335 + 0.75858199451789026628e0 * t1136 * t32338 - 0.10979019874935515226e0 * t1136 * t32341;
21174   t32346 = t3299 * t402;
21175   t32347 = t32346 * t104;
21176   t32348 = t8876 * t32347;
21177   t32352 = t3856 * t2279 * t2322;
21178   t32356 = t3856 * t6741 * t873;
21179   t32364 = t10097 * t3841;
21180   t32369 = t3879 * t3281;
21181   t32374 = t2283 * t13354 * t402;
21182   t32377 = t1138 * t873;
21183   t32378 = t2283 * t32377;
21184   t32391 = t873 * t1169;
21185   t32392 = t2279 * t32391;
21186   t32401 = 0.13538564572559691160e1 * t1136 * t32348 - 0.21958039749871030452e0 * t1136 * t32352 - 0.21958039749871030452e0 * t1136 * t32356 - 0.119078225334763520e0 * t3819 * t10280 - 0.29967321450326855254e0 * t3771 * t3308 * t3772 - 0.11064007557120e2 * t399 * t32364 - 0.21958039749871030452e0 * t2273 * t21515 + 0.97972381755974563669e-1 * t32369 * t1124 * t112 + 0.29066289463551723990e0 * t18014 * t32374 - 0.39188952702389825468e0 * t18010 * t32378 + 0.21252129031945914941e0 * t10217 * t1118 * t112 - 0.28131861550297056947e0 * t14676 * t10259 - 0.12968797032847508210e0 * t14679 * t10259 + 0.29967321450326855254e0 * t7822 * t2279 * t21671 + 0.476312901339054080e0 * t5388 * t32392 + 0.85008516127783659764e0 * t6696 * t6742 + 0.42504258063891829882e0 * t2273 * t21906 - 0.42504258063891829883e0 * t10269 * t3834;
21187   t32402 = t3286 * t1148;
21188   t32411 = t1151 * t10183;
21189   t32415 = t10238 * t5389;
21190   t32430 = t873 * t1152;
21191   t32431 = t2279 * t32430;
21192   t32434 = t6656 * t32430;
21193   t32441 = t10180 * t398;
21194   t32444 = t3333 * t1151;
21195   t32448 = t2283 * t21905;
21196   t32451 = 0.56263723100594113894e0 * t32402 * t3864 - 0.75858199451789026629e0 * t10269 * t3867 + 0.21252129031945914941e0 * t10272 * t3834 - 0.10979019874935515226e0 * t6806 * t875 - 0.12204703833063489012e1 * t1149 * t32411 * t1795 + 0.476312901339054080e0 * t5388 * t32415 + 0.31525238188956314657e0 * t5504 * t13358 * t5389 - 0.42504258063891829882e0 * t5394 * t32415 - 0.42504258063891829882e0 * t10272 * t3842 - 0.19594476351194912734e0 * t10275 * t3842 - 0.67675321900558938528e0 * t24603 * t2279 * t21879 - 0.1428938704017162240e1 * t5394 * t32431 - 0.18915142913373788794e1 * t18106 * t32434 + 0.25502554838335097930e1 * t18277 * t32431 + 0.56263723100594113894e0 * t14540 * t10259 + 0.42504258063891829882e0 * t32441 * t1139 - 0.21252129031945914941e0 * t1158 * t32444 * t3841 + 0.1645512963945267200e1 * t399 * t32448;
21197   t32460 = t10105 * t3833;
21198   t32466 = t3320 * t1164;
21199   t32470 = t10077 * t3841;
21200   t32474 = t1143 * t2258 * t411;
21201   t32488 = t14379 * t3299;
21202   t32507 = -0.119078225334763520e0 * t1158 * t10293 * t3833 + 0.15762619094478157328e0 * t3793 * t32444 * t3863 + 0.14683899485061986386e1 * t399 * t32460 - 0.476312901339054080e0 * t1158 * t2295 * t10073 - 0.29967321450326855254e0 * t3771 * t32466 * t3841 + 0.2766001889280e1 * t399 * t32470 + 0.952625802678108160e0 * t2263 * t32474 - 0.11986928580130742102e1 * t28531 * t28852 + 0.27629889249421717102e0 * t6720 * t6751 + 0.63050476377912629316e0 * t5504 * t6656 * t32266 - 0.476312901339054080e0 * t6800 * t6671 + 0.59934642900653710508e0 * t6800 * t6751 + 0.20312390406477209506e2 * t3755 * t32488 * t5355 - 0.12204703833063489012e1 * t1149 * t2283 * t1154 * t6628 - 0.21958039749871030452e0 * t2270 * t2324 + 0.18968792869915364414e1 * t3755 * t10105 * t14606 - 0.92817332546461565657e1 * t14377 * t32488 * t24668 - 0.21968466899514280222e2 * t1149 * t10105 * t3863;
21203   t32508 = t10105 * t3841;
21204   t32529 = t398 * t10158;
21205   t32536 = t10254 * t10073;
21206   t32542 = t21898 * t3304;
21207   t32552 = 0.29619233351014809600e2 * t399 * t32508 + 0.43916079499742060904e0 * t21590 * t29137 + 0.34003406451113463906e1 * t28243 * t29140 + 0.22505489240237645558e1 * t28246 * t29037 - 0.30343279780715610650e1 * t28243 * t29040 + 0.43916079499742060904e0 * t28255 * t21694 - 0.10122663238838101478e0 * t21587 * t6668 + 0.29066289463551723990e0 * t28479 * t21697 - 0.39188952702389825468e0 * t28255 * t21700 + 0.25502554838335097929e1 * t21416 * t28315 + 0.29967321450326855254e0 * t32529 * t1160 + 0.63050476377912629314e0 * t5504 * t6656 * t2322 * t402 - 0.85008516127783659766e0 * t5394 * t32536 + 0.63050476377912629314e0 * t5504 * t10101 * t10250 - 0.85008516127783659766e0 * t5394 * t32542 + 0.59934642900653710508e0 * t7822 * t2279 * t21675 + 0.952625802678108160e0 * t5388 * t32536 - 0.75858199451789026628e0 * t18063 * t32263;
21208   t32564 = t3299 * t3759;
21209   t32568 = t6656 * t21898;
21210   t32571 = t10217 * t100;
21211   t32579 = t1164 * t10183;
21212   t32580 = t32579 * t1138;
21213   t32583 = t2290 * t21905;
21214   t32589 = t1137 * t1138 * t2258;
21215   t32594 = t10145 * t5317;
21216   t32599 = t3304 * t411;
21217   t32600 = t866 * t32599;
21218   t32603 = t2290 * t32377;
21219   t32606 = 0.58735597940247945544e1 * t8877 * t32275 + 0.75875171479661457657e1 * t8899 * t8900 * t21898 + 0.59934642900653710508e0 * t7822 * t6741 * t6750 + 0.952625802678108160e0 * t5388 * t32542 - 0.97994301469412365794e0 * t18264 * t32564 * t5389 - 0.13069187414967042065e2 * t8904 * t32568 + 0.2766001889280e1 * t32571 * t5442 - 0.10979019874935515226e0 * t10288 * t413 - 0.238156450669527040e0 * t1158 * t10184 * t1159 - 0.1844001259520e1 * t399 * t32580 - 0.1844001259520e1 * t399 * t32583 + 0.25502554838335097930e1 * t10275 * t5314 - 0.17001703225556731953e1 * t6725 * t32589 + 0.21958039749871030452e0 * t10269 * t3858 - 0.11756685810716947640e1 * t32594 * t5320 + 0.43916079499742060904e0 * t21590 * t29022 + 0.27629889249421717102e0 * t18381 * t32600 + 0.43916079499742060904e0 * t18010 * t32603;
21220   t32615 = t5387 * t32245;
21221   t32618 = t3862 * t32347;
21222   t32636 = t6750 * t402;
21223   t32637 = t2279 * t32636;
21224   t32648 = t3856 * t10238 * t411;
21225   t32651 = -0.51875188131390032840e0 * t28236 * t6658 + 0.69941307667009169309e0 * t21587 * t6661 + 0.14645644599676186814e2 * t8850 * t32568 - 0.19746155567343206400e2 * t8896 * t32275 + 0.21958039749871030452e0 * t1136 * t32615 + 0.25502554838335097930e1 * t1136 * t32618 - 0.1428938704017162240e1 * t6728 * t28871 - 0.17001703225556731953e1 * t6725 * t29212 - 0.85008516127783659764e0 * t6725 * t21440 + 0.14983660725163427627e0 * t3771 * t3313 * t3772 - 0.11756685810716947640e1 * t21478 * t8929 - 0.21958039749871030452e0 * t6696 * t6668 - 0.21958039749871030452e0 * t2273 * t21770 - 0.11986928580130742102e1 * t17987 * t32637 - 0.79336666628232973116e0 * t18098 * t6656 * t32636 + 0.10696655587765469022e1 * t18102 * t32637 + 0.238156450669527040e0 * t10149 * t3747 - 0.10979019874935515226e0 * t1136 * t32648;
21226   t32655 = t10258 * t402;
21227   t32656 = t8849 * t32655;
21228   t32663 = t32411 * t1138;
21229   t32669 = t14420 * t3299;
21230   t32673 = t3320 * t411;
21231   t32674 = t14496 * t32673;
21232   t32677 = t398 * t10162;
21233   t32682 = t3333 * t411;
21234   t32683 = t3802 * t32682;
21235   t32686 = t10232 * t401;
21236   t32692 = t3333 * t1164;
21237   t32696 = t3289 * t1148;
21238   t32703 = t3292 * t1148;
21239   t32706 = 0.33758233860356468337e1 * t3861 * t32656 + 0.13814944624710858551e0 * t2273 * t21536 + 0.25502554838335097929e1 * t2273 * t21539 + 0.1645512963945267200e1 * t399 * t32663 + 0.36614111499190467036e1 * t1149 * t10097 * t3888 - 0.22762551443898437297e2 * t3755 * t32669 * t5355 - 0.67675321900558938528e0 * t1142 * t32674 - 0.67675321900558938528e0 * t32677 * t1160 + 0.59934642900653710508e0 * t6717 * t6755 + 0.29967321450326855254e0 * t1142 * t32683 - 0.238156450669527040e0 * t1158 * t32686 * t1138 + 0.476312901339054080e0 * t10189 * t5514 + 0.238156450669527040e0 * t1158 * t32692 * t3841 - 0.28131861550297056947e0 * t32696 * t3864 + 0.37929099725894513314e0 * t10272 * t3867 + 0.97972381755974563669e-1 * t10275 * t3834 - 0.12968797032847508210e0 * t32703 * t3864;
21240   t32713 = t14528 * t3285;
21241   t32717 = t10097 * t3833;
21242   t32723 = t32669 * t3841;
21243   t32726 = t3757 * t3312;
21244   t32733 = t10077 * t3833;
21245   t32739 = t32488 * t3841;
21246   t32749 = t1143 * t10232;
21247   t32752 = t3320 * t1151;
21248   t32759 = 0.17485326916752292327e0 * t10275 * t3867 + 0.42504258063891829882e0 * t21833 * t2280 + 0.85008516127783659766e0 * t10269 * t3842 + 0.45165298839047841173e-1 * t32713 * t1124 * t112 - 0.4936538891835801600e1 * t399 * t32717 + 0.39207562244901126197e2 * t1149 * t32669 * t3863 - 0.17620679382074383663e2 * t399 * t32723 + 0.18968792869915364414e1 * t3755 * t32726 * t5355 - 0.32672968537417605163e1 * t1149 * t32726 * t3863 + 0.822756481972633600e0 * t399 * t32733 - 0.13606156761889987933e2 * t1149 * t32488 * t3863 + 0.26206649088979828343e1 * t399 * t32739 + 0.14983660725163427627e0 * t3771 * t10122 * t3833 - 0.51005109676670195860e1 * t21746 * t32324 - 0.21958039749871030452e0 * t6728 * t32474 - 0.238156450669527040e0 * t1142 * t32749 - 0.19834166657058243279e0 * t14518 * t32752 * t3863 + 0.26741638969413672554e0 * t3771 * t32752 * t3841;
21249   t32761 = t10126 * t3833;
21250   t32788 = t3840 * t32249;
21251   t32791 = t8849 * t32347;
21252   t32795 = t3862 * t6656 * t2294;
21253   t32799 = t8876 * t32564 * t402;
21254   t32802 = t8876 * t32655;
21255   t32808 = -0.922000629760e0 * t399 * t32761 + 0.21252129031945914941e0 * t3827 * t10239 + 0.97972381755974563669e-1 * t3830 * t10239 + 0.37929099725894513314e0 * t3827 * t10243 + 0.17485326916752292327e0 * t3830 * t10243 - 0.42504258063891829883e0 * t3827 * t10246 - 0.19594476351194912734e0 * t3830 * t10246 + 0.31525238188956314657e0 * t5504 * t6656 * t32391 - 0.97994301469412365794e0 * t18264 * t8900 * t32430 + 0.16879116930178234168e1 * t18077 * t32434 - 0.42504258063891829883e0 * t5394 * t32392 - 0.75858199451789026629e0 * t18063 * t32431 - 0.17001703225556731953e1 * t1136 * t32788 - 0.45514919671073415978e1 * t1136 * t32791 - 0.11252744620118822779e1 * t3861 * t32795 + 0.17489238971848963748e1 * t14682 * t32799 - 0.30124497567627698084e1 * t3861 * t32802 + 0.97972381755974563669e-1 * t10200 * t1118 * t112;
21256   t32817 = -t401 * t32228 * t104;
21257   t32819 = t2294 * t2294;
21258   t32820 = t1151 * t32819;
21259   t32821 = t32820 * t104;
21260   t32825 = t2258 * t2258;
21261   t32826 = t1132 * t32825;
21262   t32830 = t1164 * t32819 * t104;
21263   t32832 = t1132 * t10062;
21264   t32838 = t32726 * t3841;
21265   t32843 = 0.1784720e1 * t32817 + 0.6370450956800e1 * t32821 + 0.1784720e1 * t32242 * t109 + 0.6370450956800e1 * t32826 * t109 - 0.7138880e1 * t32830 + 0.6370450956800e1 * t32832 * t1825 - 0.19111352870400e2 * t32717 + 0.42833280e2 * t2283 * t21463 + 0.5684735615810048000e1 * t32838 + 0.6370450956800e1 * t32663 - 0.76445411481600e2 * t6623 * t21463;
21266   t32844 = t3874 * t3281;
21267   t32851 = t109 * t6589;
21268   t32854 = t3300 * t3833;
21269   t32864 = t14573 * t3285;
21270   t32867 = -0.19111352870400e2 * t32844 * t5445 - 0.7138880e1 * t32580 - 0.7138880e1 * t32583 + 0.5684735615810048000e1 * t32369 * t5445 + 0.6370450956800e1 * t2269 * t32851 + 0.10708320e2 * t32854 - 0.7138880e1 * t2262 * t32851 + 0.114668117222400e3 * t10200 * t5445 - 0.3569440e1 * t10188 * t3897 + 0.22738942463240192000e2 * t6637 * t21463 - 0.68216827389720576000e2 * t32864 * t5445;
21271   t32870 = t1825 * t2258;
21272   t32883 = t1123 * t10062;
21273   t32888 = -0.68216827389720576000e2 * t32723 + 0.22738942463240192000e2 * t6615 * t32870 - 0.42833280e2 * t32364 + 0.3185225478400e1 * t32733 + 0.10708320e2 * t3292 * t3897 + 0.10145661348248508867e2 * t32739 + 0.5684735615810048000e1 * t32460 + 0.5684735615810048000e1 * t10200 * t3897 + 0.3185225478400e1 * t10217 * t3897 - 0.7138880e1 * t32883 * t1825 + 0.42833280e2 * t2269 * t32870;
21274   t32895 = t1123 * t32825;
21275   t32907 = -0.19111352870400e2 * t10145 * t3897 + 0.10708320e2 * t10217 * t5445 - 0.76445411481600e2 * t6602 * t32870 - 0.7138880e1 * t32895 * t109 - 0.42833280e2 * t10145 * t5445 + 0.10145661348248508867e2 * t32713 * t5445 - 0.19111352870400e2 * t32287 + 0.10708320e2 * t32470 - 0.3569440e1 * t32761 + 0.6370450956800e1 * t32448 + 0.114668117222400e3 * t32508;
21276   t32919 = t1773 * t6589;
21277   t32928 = t32883 * t100;
21278   t32937 = t2322 * t2322;
21279   t32946 = -0.29967321450326855254e0 * t10149 * t3803 + 0.15171639890357805325e1 * t2273 * t21532 + 0.75858199451789026627e0 * t2273 * t21356 - 0.258304e0 * t107 * t407 * (t32843 + t32867 + t32888 + t32907) - 0.1844001259520e1 * t32895 * t112 + 0.14983660725163427627e0 * t3819 * t10192 + 0.14983660725163427627e0 * t10285 * t3803 - 0.1844001259520e1 * t2263 * t32919 - 0.238156450669527040e0 * t21764 * t2302 + 0.42504258063891829882e0 * t6728 * t32919 - 0.54895099374677576129e-1 * t10155 * t3747 - 0.1844001259520e1 * t32928 * t1774 + 0.27629889249421717102e0 * t28070 * t21579 - 0.10122663238838101478e0 * t21587 * t6664 - 0.78377905404779650936e0 * t21587 * t6653 + 0.650049912832e0 * t107 * t1177 * t32937 - 0.238156450669527040e0 * t2276 * t21508 - 0.12751277419167548965e1 * t10145 * t1118 * t112;
21280   t32949 = t10180 * t100;
21281   t32976 = t1177 * t10232;
21282   t32994 = -0.238156450669527040e0 * t32949 * t1144 + 0.238156450669527040e0 * t1158 * t3308 * t3786 + 0.952625802678108160e0 * t6794 * t9007 + 0.2766001889280e1 * t399 * t32854 - 0.119078225334763520e0 * t10285 * t3747 + 0.461000314880e0 * t399 * t32817 + 0.42504258063891829882e0 * t32832 * t390 * t112 - 0.1844001259520e1 * t399 * t32830 + 0.21958039749871030452e0 * t2273 * t21406 + 0.21958039749871030452e0 * t3837 * t10115 - 0.29967321450326855254e0 * t3783 * t10192 + 0.69074723123554292755e-1 * t3750 * t10192 + 0.650049912832e0 * t107 * t32976 * t411 - 0.21252129031945914941e0 * t1158 * t3300 * t3786 + 0.26741638969413672554e0 * t3771 * t3300 * t3772 - 0.21958039749871030452e0 * t6797 * t875 - 0.119078225334763520e0 * t1158 * t3313 * t3786 + 0.650049912832e0 * t107 * t2309 * t6640;
21283   t32995 = t3814 * t3333;
21284   t33022 = t10200 * t5317;
21285   t33035 = -0.734005159174078464e0 * t107 * t32995 * t1178 + 0.76507664515005293790e1 * t10200 * t1124 * t112 + 0.2766001889280e1 * t10155 * t3768 + 0.15171639890357805325e1 * t6696 * t6661 - 0.10979019874935515226e0 * t2273 * t21774 - 0.17001703225556731953e1 * t6696 * t6653 - 0.17001703225556731953e1 * t2273 * t21464 - 0.85008516127783659764e0 * t2273 * t21467 + 0.33758233860356468336e1 * t6689 * t21457 - 0.45514919671073415976e1 * t2273 * t21792 + 0.39188952702389825468e0 * t21416 * t32589 - 0.50613316194190507388e-1 * t10275 * t3858 + 0.90330597678095682346e-1 * t33022 * t5320 - 0.17001703225556731953e1 * t21779 * t8913 + 0.42504258063891829882e0 * t32826 * t112 + 0.13538564572559691160e1 * t2273 * t21361 - 0.10979019874935515226e0 * t2273 * t21518 + 0.14533144731775861995e0 * t6689 * t21521;
21286   t33053 = t14477 * t3320;
21287   t33059 = t873 * t2322;
21288   t33060 = t3802 * t33059;
21289   t33067 = t10217 * t5317;
21290   t33072 = t10188 * t398;
21291   t33084 = -0.19594476351194912734e0 * t2273 * t21524 - 0.12751277419167548965e1 * t32844 * t1124 * t112 - 0.238156450669527040e0 * t1158 * t866 * t104 * t6640 + 0.15762619094478157329e0 * t3793 * t3300 * t14786 + 0.14683899485061986386e1 * t399 * t32838 + 0.1645512963945267200e1 * t399 * t32821 + 0.23916119461575365556e1 * t107 * t33053 * t1178 + 0.59934642900653710508e0 * t2276 * t21676 + 0.59934642900653710508e0 * t1142 * t33060 + 0.476312901339054080e0 * t2263 * t21349 - 0.10979019874935515226e0 * t10272 * t3858 + 0.19594476351194912734e0 * t33067 * t5320 - 0.21958039749871030452e0 * t6696 * t6664 - 0.85008516127783659765e0 * t33072 * t5314 + 0.69074723123554292753e-1 * t10155 * t3803 - 0.11064007557120e2 * t32302 * t5442 + 0.238156450669527040e0 * t3783 * t10280 - 0.11756685810716947640e1 * t32864 * t1124 * t112;
21292   t33128 = -0.85008516127783659765e0 * t5394 * t32267 + 0.16879116930178234168e1 * t18077 * t32270 + 0.65874119249613091356e0 * t6791 * t875 - 0.19834166657058243280e0 * t14518 * t3300 * t14519 - 0.922000629760e0 * t10189 * t3768 - 0.12204703833063489012e1 * t1149 * t32820 * t1154 - 0.50613316194190507388e-1 * t10201 * t413 - 0.50613316194190507389e-1 * t6803 * t875 - 0.32672968537417605163e1 * t1149 * t10105 * t3888 - 0.238156450669527040e0 * t1158 * t6629 * t3304 - 0.42504258063891829882e0 * t3837 * t10239 - 0.67675321900558938528e0 * t2276 * t21880 - 0.54895099374677576130e-1 * t3750 * t10280 - 0.75858199451789026628e0 * t3837 * t10243 + 0.85008516127783659766e0 * t3837 * t10246 - 0.734005159174078464e0 * t107 * t10162 * t1191 + 0.325024956416e0 * t107 * t10158 * t1191 - 0.2936020636696313856e1 * t9046 * t6750 * t2322;
21293   t33133 = my_piecewise3(t97, 0, t32294 + t32344 + t32401 + t32451 + t32507 + t32552 + t32606 + t32651 + t32706 + t32759 + t32808 + t32946 + t32994 + t33035 + t33084 + t33128);
21294   t33134 = my_piecewise3(t96, 0, t33133);
21295   t33136 = -0.2e1 * t10062 * t417 - 0.2e1 * t10301 * t390 - t1118 * t3339 - t114 * t32228 - t1197 * t3281 - 0.4e1 * t2258 * t2328 - t33134 * t95 - 0.2e1 * t6589 * t879 - 0.2e1 * t6827 * t860;
21296   t33140 = t140 * t68;
21297   t33153 = 0.4e1 * t2356 * t2382 + 0.2e1 * t893 * t6936 - 0.2000e4 / 0.81e2 * t1879 * t10403 * t1207 - 0.20e2 / 0.9e1 * t895 * t3369 * t881 * t6829 - 0.20e2 / 0.9e1 * t895 * t3369 * t32024 + 0.2e1 * t6878 * t902 + 0.5e1 / 0.9e1 * t6890 * t3373 + 0.100e3 / 0.81e2 * t6893 * t32032 + 0.5e1 / 0.9e1 * t895 * t896 * t33136 - 0.200e3 / 0.27e2 * t33140 * t2385 * t6902 - 0.10e2 / 0.9e1 * t6890 * t3370 + params->c1 * t33136 * t141 + 0.100e3 / 0.81e2 * t441 * t2365 * t10303 * t423;
21298   t33163 = t2373 * t2373;
21299   t33176 = t451 * t452 * t2330;
21300   t33179 = t449 * t10414;
21301   t33183 = t1263 * t4004 * t3341;
21302   t33189 = t1263 * t1265 * t10303;
21303   t33202 = t449 * t10403;
21304   t33205 = t1263 * t10420;
21305   t33210 = -0.40e2 / 0.3e1 * t6931 * t33176 + 0.50e2 / 0.27e2 * t33179 * t1255 + 0.50e2 / 0.27e2 * t33183 * t1255 + 0.10e2 / 0.9e1 * t10408 * t1259 + 0.10e2 / 0.9e1 * t33189 * t453 - 0.4e1 * t449 * t1239 * t32024 * t147 - 0.2e1 * t1263 * t1265 * t32024 * t147 - 0.20e2 / 0.9e1 * t6946 * t33176 - 0.200e3 / 0.27e2 * t33202 * t1255 - 0.100e3 / 0.9e1 * t33205 * t1255 - 0.10e2 / 0.3e1 * t10396 * t1259;
21306   t33211 = t10399 * t6829;
21307   t33217 = t4017 * t14939 * t3345;
21308   t33227 = t14957 * t14959 * t3345;
21309   t33233 = t4017 * t4019 * t3341;
21310   t33240 = t449 * t1239 * t10303;
21311   t33243 = -0.4e1 * t1252 * t33211 - 0.10e2 / 0.3e1 * t10404 * t1259 - 0.100e3 / 0.27e2 * t33217 * t1255 - 0.2e1 * t1266 * t33211 - 0.40e2 / 0.3e1 * t6923 * t33176 - 0.5e1 / 0.9e1 * t10421 * t1259 - 0.25e2 / 0.81e2 * t33227 * t1255 + 0.5e1 / 0.9e1 * t10415 * t1259 + 0.25e2 / 0.81e2 * t33233 * t1255 + t449 * t442 * t33136 * t147 + 0.20e2 / 0.9e1 * t33240 * t453;
21312   t33245 = my_piecewise3(t139, (t32012 + t33153) * t145 + 0.2e1 * t10387 * t447 * t145 + t3376 * t1247 * t145 + t3376 * t1249 * t145 + 0.2e1 * t33163 * t145 + 0.4e1 * t2375 * t2374 + 0.2e1 * t901 * t6913 + t3378 * t1247 * t145 + t3378 * t1249 * t145, t33210 + t33243);
21313   t33249 = t3263 * t1226;
21314   t33255 = t6503 * t2345;
21315   t33268 = t2345 * t2345;
21316   t33273 = 0.16e2 * t2225 * t31963 * t435 + 0.96e2 * t9970 * t2226 * t435 * t2345 + 0.8e1 * t1030 * t31971 + 0.1174e1 * t33245 - 0.48e2 * t9970 * t31971 - 0.4e1 * t1030 * t33249 - 0.4e1 * t330 * t9995 * t456 + 0.32e2 * t9977 * t33255 + 0.96e2 * t6492 * t3263 * t435 * t432 - 0.8e1 * t330 * t6514 * t905 + 0.12e2 * t6492 * t9991 * t1031 - 0.16e2 * t1030 * t132 * t33268 * t150;
21317   t33277 = t14187 * t132;
21318   t33278 = t3263 * t1031;
21319   t33281 = t2226 * t6858;
21320   t33284 = t1030 * t887;
21321   t33309 = -0.16e2 * t1030 * t1065 * t150 * t3258 + 0.2e1 * t1030 * t1031 * t3392 - 0.16e2 * t1223 * t2225 * t3263 - 0.2e1 * t1270 * t330 * t3357 + 0.4e1 * t150 * t330 * t33268 - 0.64e2 * t2225 * t2226 * t6514 - 0.4e1 * t330 * t6859 * t905 - t138 * t33245 + 0.4e1 * t330 * t33281 + 0.24e2 * t33249 * t9970 - 0.96e2 * t33277 * t33278 - 0.16e2 * t33284 * t6500;
21322   t33331 = t3356 * t456;
21323   t33346 = 0.2e1 * t1223 * t150 * t330 * t3356 + 0.8e1 * t1030 * t1270 * t3259 - 0.4e1 * t10332 * t330 * t456 - 0.2e1 * t10425 * t330 * t435 - 0.4e1 * t1226 * t2225 * t9991 - 0.2e1 * t1270 * t3258 * t330 + 0.8e1 * t2225 * t33331 * t435 + 0.32e2 * t2225 * t432 * t9988 - 0.4e1 * t330 * t6950 * t888 - 0.8e1 * t330 * t33255 - 0.16e2 * t33281 * t9977 - 0.8e1 * t6496 * t9992;
21324   t33351 = t3346 * t1217;
21325   t33354 = t3342 * t126;
21326   t33360 = t68 * t3347;
21327   t33363 = t14846 * t3345;
21328   t33369 = t3949 * t3341;
21329   t33375 = t24 * t2339;
21330   t33378 = t1218 * t10303;
21331   t33383 = -0.5e1 / 0.162e3 * t33351 * t6844 + t33354 * t6844 / 0.54e2 - t10316 * t6839 / 0.30e2 + 0.5e1 / 0.108e3 * t3346 * t1207 * t33360 + t33363 * t6844 / 0.324e3 + t1218 * t884 * t6829 / 0.50e2 - t33369 * t6844 / 0.324e3 - 0.3e1 / 0.50e2 * t56 * t32024 * t3347 + t9141 * t33375 / 0.15e2 - t33378 * t2336 / 0.90e2 - t10322 * t6839 / 0.180e3;
21332   t33384 = t3949 * t2366;
21333   t33401 = t10304 * t124;
21334   t33404 = t882 * t7977;
21335   t33415 = t33384 * t33375 / 0.45e2 + t10328 * t6839 / 0.180e3 - t3342 * t1207 * t1220 / 0.108e3 - 0.3e1 / 0.50e2 * t882 * t3347 * t6829 - t428 * t33136 * t128 / 0.100e3 + t1218 * t32024 * t128 / 0.50e2 + t33401 * t2336 / 0.30e2 - 0.2e1 / 0.15e2 * t33404 * t33375 + t10307 * t6839 / 0.60e2 + t56 * t33136 * t128 / 0.100e3 + t3346 * t1203 * t425 / 0.60e2;
21336   t33421 = t887 * t2390;
21337   t33431 = t10331 * t150;
21338   t33450 = 0.16e2 * t6496 * t10340 - t330 * t1226 * t3392 + 0.2e1 * t330 * t131 * (t33383 + t33415) * t150 + 0.16e2 * t2225 * t33421 * t435 + 0.12e2 * t3619 * t33278 + 0.4e1 * t330 * t432 * t10331 * t150 - 0.8e1 * t2225 * t33431 * t435 - 0.8e1 * t330 * t2346 * t2390 - 0.24e2 * t6492 * t10339 * t1031 - 0.8e1 * t330 * t2230 * t2390 + 0.8e1 * t2225 * t10339 * t1226 - 0.4e1 * t330 * t6510 * t905;
21339   t33458 = t2399 * t847 * t10428;
21340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21341     v4rho2lapl2[0] = -t31942 - 0.4e1 / 0.3e1 * t31943 - t31945 - 0.65972000000000000000e1 * t31947 - t2220 * t31949 * t988 / 0.6e1 - t2220 * t31953 * t317 - 0.65972000000000000000e1 * t31957 * t1004 - t2220 * t9966 * t1011 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t847 * (t33273 + t33309 + t33346 + t33450) * t167 - 0.49479000000000000000e1 * t33458 * t480 - 0.29687400000000000000e2 * t10434 * t1288 + 0.57725500000000000000e1 * t10434 * t1293 + 0.80541612095716256868e2 * t6967 * t3395 * t742 * t1299 * t1301;
21342 
21343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21344     v4rho2lapl2[1] = 0.0e0;
21345 
21346   t33471 = t22502 * t3539 / 0.6e1;
21347   t33472 = t6991 * t10439;
21348   t33474 = t1306 * t3537;
21349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21350     v4rho2lapl2[2] = -t33471 - 0.4e1 / 0.3e1 * t33472 - t2220 * t33474 * t1310 / 0.6e1 - t2220 * t10438 * t1319 / 0.2e1;
21351 
21352   t33484 = t6991 * t10442;
21353   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21354     v4rho2lapl2[3] = -t31942 - 0.2e1 / 0.3e1 * t31943 - t31945 / 0.2e1 - 0.32986000000000000000e1 * t31947 - 0.2e1 / 0.3e1 * t33484 - t2220 * t31949 * t1329 / 0.6e1 - t2220 * t31953 * t499 / 0.2e1 - 0.32986000000000000000e1 * t31957 * t1341 - t7003 * t9966 * t1347 / 0.2e1;
21355 
21356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21357     v4rho2lapl2[4] = 0.0e0;
21358 
21359   t33498 = t6991 * t10446;
21360   t33506 = t7016 * t10908;
21361   t33508 = t173 * t10906;
21362   t33512 = t7024 * t10911;
21363   t33513 = t33512 * t649;
21364   t33516 = t2399 * t483 * t3537;
21365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21366     v4rho2lapl2[5] = -t33471 - 0.2e1 / 0.3e1 * t33472 - 0.2e1 / 0.3e1 * t33498 - t2220 * t33474 * t1354 / 0.6e1 + t7003 * t10438 * t1362 / 0.2e1 - t33506 / 0.2e1 - t2220 * t33508 * t487 / 0.2e1 - 0.32986000000000000000e1 * t33513 - 0.32986000000000000000e1 * t33516 * t1379;
21367 
21368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21369     v4rho2lapl2[6] = -t31942 - 0.4e1 / 0.3e1 * t33484 - t2220 * t31949 * t1391 / 0.6e1 - t2220 * t9966 * t1397 / 0.2e1;
21370 
21371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21372     v4rho2lapl2[7] = 0.0e0;
21373 
21374   t33541 = t3405 * t1617;
21375   t33551 = t7062 * t2537;
21376   t33554 = t1609 * t10781;
21377   t33558 = t68 * t3489;
21378   t33561 = t24 * t2531;
21379   t33564 = t3484 * t264;
21380   t33570 = t4897 * t2558;
21381   t33573 = t3488 * t1608;
21382   t33576 = t2522 * t2522;
21383   t33587 = -t33554 * t2528 / 0.90e2 + 0.5e1 / 0.108e3 * t3488 * t1598 * t33558 + t9796 * t33561 / 0.15e2 + t33564 * t7403 / 0.54e2 + t1609 * t950 * t7388 / 0.50e2 + t33570 * t33561 / 0.45e2 - 0.5e1 / 0.162e3 * t33573 * t7403 - 0.3e1 / 0.50e2 * t56 * t33576 * t3489 + t10785 * t7398 / 0.60e2 + t3488 * t1594 * t601 / 0.60e2 - t10794 * t7398 / 0.30e2;
21384   t33588 = t948 * t8563;
21385   t33604 = t22751 * t223;
21386   t33607 = t16414 * t224;
21387   t33642 = 0.65e2 / 0.13122e5 * t2796 + 0.110e3 / 0.81e2 * t10524 * t1431 - 0.5e1 / 0.3888e4 * t30083 * t68 * t210 * t1483 - 0.15e2 / 0.2e1 * t33604 * t7096 - 0.15e2 * t33607 * t10499 + 0.12e2 * t7115 * t10502 + 0.12e2 * t4634 * t224 * t10513 - 0.15e2 / 0.2e1 * t10497 * t10498 * t1506 - 0.2e1 * t552 * t2436 * t7106 + 0.6e1 * t1482 * t16462 * t3413 - t30119 * t3420 / 0.2916e4 - t30122 * t3420 / 0.1458e4 - 0.10e2 / 0.6561e4 * t9415 * t10536 - t30127 * t3420 / 0.2916e4 - 0.10e2 / 0.6561e4 * t9418 * t10536 - 0.30e2 * t7095 * t10498 * t563 * t554 - 0.30e2 * t10497 * t10512 * t563 * t2447;
21388   t33647 = t2447 * t2447;
21389   t33655 = t210 * t1481;
21390   t33679 = t22748 * t223;
21391   t33682 = t7128 * t554;
21392   t33687 = 0.24e2 * t2435 * t10512 * t554 * t2447 + 0.6e1 * t1482 * t1498 * t33647 + 0.3e1 * t4634 * t10517 - 0.4e1 * t1477 * t10520 + t68 * t33655 * t1483 / 0.3888e4 - 0.2e1 * t2431 * t7107 + 0.3e1 * t16409 * t3414 - 0.4e1 * t7143 * t2448 - 0.2e1 * t2431 * t7099 - 0.4e1 * t2431 * t7101 + 0.6e1 * t2435 * t10498 * t1493 + 0.6e1 * t10511 * t10512 * t7106 + 0.5e1 / 0.4374e4 * t9396 - 0.15e2 / 0.4e1 * t4642 * t3417 * t1483 + 0.6e1 * t33679 * t2437 + 0.6e1 * t33682 * t2437 + 0.6e1 * t10485 * t7122;
21393   t33702 = t1482 * t923;
21394   t33705 = t552 * t10498;
21395   t33716 = t345 * t4522;
21396   t33723 = t2431 * t4655;
21397   t33726 = t4634 * t4669;
21398   t33729 = 0.3e1 * t10485 * t7125 - 0.2e1 * t552 * t33647 * t227 - t4631 * t3417 + 0.3e1 / 0.2e1 * t1482 * t3417 * t1506 + 0.5e1 / 0.2187e4 * t9416 + 0.5e1 / 0.2187e4 * t9419 + 0.155e3 / 0.19683e5 * t9423 - 0.65e2 / 0.13122e5 * t9429 + 0.6e1 * t33702 * t7122 - 0.50e2 / 0.243e3 * t33705 * t1473 + t30030 * t10530 / 0.972e3 + t30033 * t10530 / 0.972e3 + t9449 * t68 * t210 * t1506 / 0.1944e4 + 0.5e1 / 0.2187e4 * t9374 * t33716 * t30036 - 0.20e2 / 0.27e2 * t1477 * t10523 * t514 - 0.100e3 / 0.243e3 * t33723 * t7092 + 0.40e2 / 0.9e1 * t33726 * t10508;
21399   t33730 = t1482 * t16451;
21400   t33731 = t3413 * t36;
21401   t33735 = t1482 * t10523;
21402   t33739 = t552 * t923 * t558;
21403   t33745 = t345 * t2788;
21404   t33749 = t7143 * t1489;
21405   t33752 = t2431 * t5999;
21406   t33759 = t7128 * t7131;
21407   t33763 = t4642 * t4669 * t3413;
21408   t33767 = t1482 * t16466 * t3413;
21409   t33776 = t16424 * t224;
21410   t33788 = 0.500e3 / 0.243e3 * t33730 * t33731 * t1501 + 0.10e2 / 0.9e1 * t33735 * t7134 - 0.40e2 / 0.27e2 * t33739 * t7087 - 0.220e3 / 0.27e2 * t10506 * t10507 * t1458 - 0.25e2 / 0.59049e5 * t7090 * t33745 * t30184 - 0.40e2 / 0.27e2 * t33749 * t2444 - 0.40e2 / 0.27e2 * t33752 * t2444 - 0.40e2 / 0.27e2 * t10490 * t7087 + 0.220e3 / 0.81e2 * t10490 * t7137 + 0.20e2 / 0.9e1 * t33759 * t7134 - 0.100e3 / 0.9e1 * t33763 * t7134 + 0.80e2 / 0.9e1 * t33767 * t554 * t19 * t531 + 0.80e2 / 0.9e1 * t1482 * t4669 * t923 * t7087 + 0.105e3 / 0.4e1 * t33776 * t10498 * t1483 - t68 * t10479 * t1506 / 0.5832e4 - 0.2e1 * t22690 * t924 - 0.4e1 * t7143 * t2440 - 0.5e1 / 0.1458e4 * t9452;
21411   t33790 = t33642 + t33687 + t33729 + t33788;
21412   t33817 = t2486 * t578;
21413   t33821 = t10561 * t6217;
21414   t33824 = t587 * t2486;
21415   t33825 = t2471 * t33824;
21416   t33828 = t10585 * t6217;
21417   t33833 = t2471 * t33817;
21418   t33838 = t574 * t10752;
21419   t33841 = t574 * t10646;
21420   t33848 = -0.42504258063891829882e0 * t4752 * t10566 - 0.476312901339054080e0 * t7343 * t7246 + 0.325024956416e0 * t245 * t10752 * t1582 + 0.27629889249421717102e0 * t7203 * t7337 - 0.28131861550297056947e0 * t16728 * t10586 - 0.12968797032847508210e0 * t16721 * t10586 + 0.75875171479661457657e1 * t9580 * t9581 * t33817 + 0.25502554838335097929e1 * t20390 * t33821 - 0.85008516127783659765e0 * t6222 * t33825 + 0.16879116930178234168e1 * t20353 * t33828 - 0.75858199451789026628e0 * t20358 * t33821 - 0.19746155567343206400e2 * t9554 * t33833 + 0.59934642900653710508e0 * t7296 * t7300 + 0.29967321450326855254e0 * t33838 * t1551 - 0.67675321900558938528e0 * t33841 * t1551 + 0.42504258063891829882e0 * t2465 * t23445 + 0.37929099725894513314e0 * t10575 * t4790;
21421   t33852 = t3441 * t4708;
21422   t33856 = t10730 * t238;
21423   t33859 = t16634 * t3427;
21424   t33870 = t1534 * t10748;
21425   t33879 = t2450 * t2450;
21426   t33880 = t1514 * t33879;
21427   t33891 = t2044 * t7148;
21428   t33896 = t4688 * t3475;
21429   t33900 = 0.63050476377912629316e0 * t6238 * t7222 * t33824 - 0.97994301469412365794e0 * t20746 * t33852 * t6217 - 0.238156450669527040e0 * t33856 * t1535 - 0.11756685810716947640e1 * t33859 * t1515 * t250 + 0.238156450669527040e0 * t10700 * t4715 - 0.75858199451789026628e0 * t4752 * t10569 - 0.67675321900558938528e0 * t27079 * t2471 * t23530 - 0.238156450669527040e0 * t1533 * t33870 + 0.97972381755974563669e-1 * t4777 * t10566 + 0.37929099725894513314e0 * t4774 * t10569 + 0.17485326916752292327e0 * t4777 * t10569 - 0.1844001259520e1 * t33880 * t250 - 0.734005159174078464e0 * t245 * t10646 * t1582 - 0.12751277419167548965e1 * t10691 * t1509 * t250 - 0.922000629760e0 * t10696 * t4728 - 0.1844001259520e1 * t2455 * t33891 - 0.238156450669527040e0 * t23483 * t2494 - 0.734005159174078464e0 * t245 * t33896 * t1569;
21430   t33902 = t939 * t1543;
21431   t33903 = t2471 * t33902;
21432   t33913 = t7222 * t33817;
21433   t33932 = t3434 * t1539;
21434   t33941 = t10565 * t6217;
21435   t33944 = -0.1428938704017162240e1 * t6222 * t33903 + 0.85008516127783659766e0 * t4752 * t10562 - 0.19594476351194912734e0 * t10578 * t4757 + 0.21252129031945914941e0 * t10653 * t1509 * t250 + 0.14645644599676186814e2 * t9575 * t33913 + 0.85008516127783659766e0 * t10572 * t4757 - 0.42504258063891829882e0 * t10575 * t4757 - 0.119078225334763520e0 * t4863 * t10759 + 0.42504258063891829882e0 * t7365 * t33891 + 0.14983660725163427627e0 * t10650 * t4719 - 0.238156450669527040e0 * t2468 * t23051 + 0.56263723100594113894e0 * t16740 * t10586 + 0.97972381755974563669e-1 * t10578 * t4781 - 0.12968797032847508210e0 * t33932 * t4787 + 0.17485326916752292327e0 * t10578 * t4790 + 0.42504258063891829882e0 * t23297 * t2472 + 0.85008516127783659764e0 * t7282 * t7269 + 0.476312901339054080e0 * t6216 * t33941;
21436   t33971 = t16605 * t3427;
21437   t33978 = t10664 * t4756;
21438   t33981 = t10642 * t4756;
21439   t33987 = t1523 * t33879;
21440   t33990 = 0.31525238188956314657e0 * t6238 * t13559 * t6217 - 0.42504258063891829882e0 * t6222 * t33941 - 0.18915142913373788795e1 * t20383 * t33828 + 0.11064007557120e2 * t9548 * t33833 - 0.1428938704017162240e1 * t6222 * t33821 + 0.952625802678108160e0 * t6216 * t33825 + 0.69074723123554292755e-1 * t4820 * t10756 - 0.39188952702389825468e0 * t31008 * t23415 - 0.78377905404779650936e0 * t23418 * t7213 - 0.51875188131390032840e0 * t30620 * t7224 + 0.69941307667009169309e0 * t23418 * t7227 + 0.97972381755974563669e-1 * t10737 * t1509 * t250 + 0.45165298839047841173e-1 * t33971 * t1515 * t250 - 0.29967321450326855254e0 * t4823 * t3450 * t4824 + 0.2766001889280e1 * t575 * t33978 - 0.11064007557120e2 * t575 * t33981 + 0.14983660725163427627e0 * t4823 * t3455 * t4824 + 0.42504258063891829882e0 * t33987 * t250;
21441   t33993 = t3462 * t1542;
21442   t34005 = t16642 * t3441;
21443   t34021 = t1528 * t1529 * t2450;
21444   t34029 = t10695 * t574;
21445   t34034 = t10621 * t4780;
21446   t34037 = t3462 * t587;
21447   t34038 = t16790 * t34037;
21448   t34041 = t939 * t2514;
21449   t34042 = t4718 * t34041;
21450   t34045 = t2514 * t2514;
21451   t34049 = -0.19834166657058243279e0 * t16903 * t33993 * t4786 + 0.26741638969413672554e0 * t4823 * t33993 * t4756 + 0.59934642900653710508e0 * t7343 * t7337 - 0.238156450669527040e0 * t1549 * t7188 * t3446 - 0.92817332546461565657e1 * t16763 * t34005 * t26610 + 0.20312390406477209506e2 * t4707 * t34005 * t6256 - 0.32672968537417605163e1 * t1540 * t10621 * t4844 + 0.18968792869915364414e1 * t4707 * t10621 * t16584 - 0.10979019874935515226e0 * t10654 * t589 - 0.17001703225556731953e1 * t7216 * t34021 + 0.21958039749871030452e0 * t10572 * t4850 - 0.11756685810716947640e1 * t10691 * t6089 * t6092 - 0.85008516127783659765e0 * t34029 * t6118 - 0.10979019874935515226e0 * t10575 * t4850 + 0.14683899485061986386e1 * t575 * t34034 - 0.67675321900558938528e0 * t1533 * t34038 + 0.59934642900653710508e0 * t1533 * t34042 + 0.650049912832e0 * t245 * t1568 * t34045;
21452   t34051 = t1534 * t2450 * t587;
21453   t34055 = t2044 * t566 * t2450;
21454   t34072 = t2475 * t13555 * t578;
21455   t34075 = t1529 * t939;
21456   t34076 = t2475 * t34075;
21457   t34081 = -t577 * t33790 * t242;
21458   t34084 = t2486 * t2486;
21459   t34085 = t1542 * t34084;
21460   t34086 = t34085 * t242;
21461   t34101 = 0.952625802678108160e0 * t2455 * t34051 + 0.11064007557120e2 * t7365 * t34055 - 0.1428938704017162240e1 * t10601 * t6179 - 0.51005109676670195860e1 * t22983 * t34055 - 0.1428938704017162240e1 * t7365 * t31476 + 0.2766001889280e1 * t10601 * t4728 + 0.76507664515005293790e1 * t10737 * t1515 * t250 - 0.11986928580130742102e1 * t31153 * t30866 + 0.29066289463551723990e0 * t20675 * t34072 - 0.39188952702389825468e0 * t20671 * t34076 + 0.461000314880e0 * t575 * t34081 + 0.1645512963945267200e1 * t575 * t34086 - 0.29967321450326855254e0 * t4770 * t10756 + 0.476312901339054080e0 * t2455 * t23092 + 0.65874119249613091356e0 * t7340 * t941 - 0.17001703225556731953e1 * t23203 * t9494 - 0.17001703225556731953e1 * t7216 * t30705 - 0.85008516127783659764e0 * t7216 * t30681;
21462   t34118 = t10585 * t578;
21463   t34119 = t9553 * t34118;
21464   t34122 = t3441 * t578;
21465   t34123 = t34122 * t242;
21466   t34124 = t9553 * t34123;
21467   t34128 = t4848 * t10565 * t587;
21468   t34131 = t10565 * t578;
21469   t34132 = t4755 * t34131;
21470   t34135 = t569 * t33790;
21471   t34138 = t4741 * t3423;
21472   t34142 = t9579 * t34123;
21473   t34149 = t3446 * t587;
21474   t34150 = t932 * t34149;
21475   t34153 = t2482 * t34075;
21476   t34156 = 0.21958039749871030452e0 * t2465 * t23011 - 0.85008516127783659764e0 * t2465 * t23035 + 0.33758233860356468336e1 * t7287 * t22992 - 0.45514919671073415976e1 * t2465 * t23137 + 0.39188952702389825468e0 * t23465 * t9501 + 0.19594476351194912734e0 * t23468 * t9501 - 0.12204703833063489012e1 * t1540 * t34085 * t1545 + 0.33758233860356468337e1 * t4784 * t34119 - 0.45514919671073415978e1 * t1527 * t34124 - 0.10979019874935515226e0 * t1527 * t34128 - 0.85008516127783659765e0 * t1527 * t34132 + 0.461000314880e0 * t34135 * t250 - 0.12751277419167548965e1 * t34138 * t1515 * t250 + 0.13538564572559691160e1 * t1527 * t34142 + 0.25502554838335097930e1 * t10578 * t6118 - 0.10122663238838101478e0 * t23418 * t7219 + 0.27629889249421717102e0 * t20228 * t34150 + 0.43916079499742060904e0 * t20671 * t34153;
21477   t34163 = t10561 * t587;
21478   t34164 = t6215 * t34163;
21479   t34167 = t4785 * t34123;
21480   t34170 = t2471 * t2486;
21481   t34171 = t4755 * t34170;
21482   t34174 = t10653 * t6089;
21483   t34177 = t2482 * t23444;
21484   t34186 = t7336 * t578;
21485   t34187 = t2471 * t34186;
21486   t34202 = t10737 * t6089;
21487   t34205 = 0.14983660725163427627e0 * t4863 * t10756 - 0.21958039749871030452e0 * t7237 * t941 + 0.476312901339054080e0 * t10696 * t6179 + 0.21958039749871030452e0 * t1527 * t34164 + 0.25502554838335097930e1 * t1527 * t34167 - 0.17001703225556731953e1 * t1527 * t34171 + 0.19594476351194912734e0 * t34174 * t6092 - 0.1844001259520e1 * t575 * t34177 - 0.29967321450326855254e0 * t10700 * t4719 + 0.14533144731775861995e0 * t7287 * t23387 - 0.19594476351194912734e0 * t2465 * t23042 - 0.11986928580130742102e1 * t20240 * t34187 - 0.79336666628232973116e0 * t20249 * t7222 * t34186 - 0.2936020636696313856e1 * t9700 * t7336 * t2514 + 0.59934642900653710508e0 * t2468 * t23525 + 0.952625802678108160e0 * t2455 * t31290 + 0.21958039749871030452e0 * t4752 * t10770 + 0.90330597678095682346e-1 * t34202 * t6092;
21488   t34212 = t1555 * t34084 * t242;
21489   t34223 = t10612 * t242;
21490   t34224 = t1528 * t34223;
21491   t34230 = t10660 * t4780;
21492   t34233 = t4761 * t3454;
21493   t34237 = t34233 * t4756;
21494   t34257 = t4735 * t3423;
21495   t34260 = t1555 * t10612;
21496   t34261 = t34260 * t1529;
21497   t34267 = t1514 * t10541;
21498   t34272 = 0.5684735615810048000e1 * t10737 * t4795 + 0.1784720e1 * t34081 - 0.68216827389720576000e2 * t33859 * t6131 - 0.19111352870400e2 * t34237 + 0.10708320e2 * t3434 * t4795 + 0.5684735615810048000e1 * t34257 * t6131 - 0.7138880e1 * t34261 - 0.19111352870400e2 * t34138 * t6131 + 0.114668117222400e3 * t10737 * t6131 - 0.7138880e1 * t34267 * t2096 + 0.3185225478400e1 * t10653 * t4795;
21499   t34287 = t247 * t7148;
21500   t34294 = -0.42833280e2 * t10691 * t6131 + 0.10708320e2 * t33978 + 0.6370450956800e1 * t33987 * t247 + 0.10145661348248508867e2 * t33971 * t6131 - 0.3569440e1 * t10695 * t4795 + 0.6370450956800e1 * t34086 - 0.19111352870400e2 * t10691 * t4795 + 0.1784720e1 * t34135 * t247 + 0.6370450956800e1 * t2461 * t34287 - 0.76445411481600e2 * t7182 * t23020 - 0.7138880e1 * t2454 * t34287;
21501   t34298 = t1523 * t10541;
21502   t34301 = t1542 * t10612;
21503   t34302 = t34301 * t1529;
21504   t34305 = t10664 * t4780;
21505   t34309 = t4699 * t3454;
21506   t34310 = t34309 * t4756;
21507   t34314 = t2475 * t23444;
21508   t34318 = -0.42833280e2 * t33981 - 0.3569440e1 * t34230 + 0.6370450956800e1 * t34298 * t2096 + 0.6370450956800e1 * t34302 + 0.5684735615810048000e1 * t34034 + 0.3185225478400e1 * t34305 + 0.10708320e2 * t10653 * t6131 + 0.5684735615810048000e1 * t34310 + 0.42833280e2 * t2475 * t23020 + 0.6370450956800e1 * t34314 - 0.7138880e1 * t33880 * t247;
21509   t34321 = t2096 * t2450;
21510   t34326 = t10642 * t4780;
21511   t34328 = t16623 * t3441;
21512   t34329 = t34328 * t4756;
21513   t34331 = t34005 * t4756;
21514   t34336 = t3442 * t4780;
21515   t34338 = t10621 * t4756;
21516   t34341 = 0.22738942463240192000e2 * t7196 * t23020 + 0.22738942463240192000e2 * t7174 * t34321 - 0.76445411481600e2 * t7161 * t34321 - 0.19111352870400e2 * t34326 - 0.68216827389720576000e2 * t34329 + 0.10145661348248508867e2 * t34331 - 0.7138880e1 * t34177 + 0.42833280e2 * t2461 * t34321 + 0.10708320e2 * t34336 + 0.114668117222400e3 * t34338 - 0.7138880e1 * t34212;
21517   t34349 = t3475 * t587;
21518   t34350 = t4718 * t34349;
21519   t34353 = -0.50613316194190507389e-1 * t4777 * t10770 - 0.1844001259520e1 * t575 * t34212 - 0.75858199451789026629e0 * t20358 * t33903 - 0.42504258063891829883e0 * t4774 * t10562 - 0.19594476351194912734e0 * t4777 * t10562 + 0.21252129031945914941e0 * t4774 * t10566 + 0.42504258063891829882e0 * t1527 * t34224 + 0.15762619094478157329e0 * t4838 * t3442 * t16706 - 0.922000629760e0 * t575 * t34230 + 0.36614111499190467036e1 * t1540 * t34233 * t4786 - 0.4936538891835801600e1 * t575 * t34237 - 0.21968466899514280222e2 * t1540 * t10621 * t4786 - 0.238156450669527040e0 * t1549 * t932 * t242 * t7199 - 0.119078225334763520e0 * t10650 * t4715 - 0.258304e0 * t245 * t583 * (t34272 + t34294 + t34318 + t34341) + 0.29066289463551723990e0 * t31013 * t23454 + 0.29967321450326855254e0 * t1533 * t34350;
21520   t34355 = t4848 * t7268 * t939;
21521   t34376 = t3475 * t1542;
21522   t34390 = t10653 * t238;
21523   t34399 = -0.21958039749871030452e0 * t1527 * t34355 + 0.69074723123554292753e-1 * t10601 * t4719 + 0.14683899485061986386e1 * t575 * t34310 - 0.32672968537417605163e1 * t1540 * t34309 * t4786 + 0.822756481972633600e0 * t575 * t34305 - 0.61023519165317445059e0 * t1540 * t10664 * t4844 + 0.18968792869915364414e1 * t4707 * t34309 * t6256 - 0.119078225334763520e0 * t1549 * t10671 * t4780 + 0.15762619094478157328e0 * t4838 * t34376 * t4786 + 0.39188952702389825468e0 * t7203 * t30594 + 0.90330597678095682346e-1 * t23285 * t9501 - 0.11252744620118822779e1 * t23302 * t7224 - 0.11252744620118822779e1 * t7287 * t23025 - 0.56263723100594113893e0 * t7287 * t22877 + 0.2766001889280e1 * t34390 * t6057 - 0.17001703225556731953e1 * t7282 * t7213 - 0.17001703225556731953e1 * t2465 * t23021 - 0.11756685810716947640e1 * t23121 * t9501;
21524   t34407 = t3476 * t580;
21525   t34410 = t3463 * t580;
21526   t34414 = t6221 * t10585 * t587;
21527   t34418 = t4785 * t7222 * t2486;
21528   t34422 = t9579 * t33852 * t578;
21529   t34426 = t4848 * t2471 * t2514;
21530   t34431 = t10748 * t577;
21531   t34451 = -0.21958039749871030452e0 * t7282 * t7209 - 0.21958039749871030452e0 * t2465 * t23017 - 0.10979019874935515226e0 * t2465 * t23032 - 0.10979019874935515226e0 * t1527 * t34407 + 0.13814944624710858551e0 * t1527 * t34410 + 0.14533144731775861996e0 * t4784 * t34414 - 0.11252744620118822779e1 * t4784 * t34418 + 0.17489238971848963748e1 * t16869 * t34422 - 0.21958039749871030452e0 * t1527 * t34426 - 0.54895099374677576130e-1 * t4820 * t10759 - 0.238156450669527040e0 * t1549 * t34431 * t1529 - 0.21252129031945914941e0 * t1549 * t34376 * t4756 + 0.39188952702389825468e0 * t23206 * t34021 - 0.50613316194190507388e-1 * t10578 * t4850 - 0.17620679382074383663e2 * t575 * t34329 + 0.29619233351014809600e2 * t575 * t34338 + 0.1645512963945267200e1 * t575 * t34302 - 0.12204703833063489012e1 * t1540 * t34301 * t2066;
21532   t34465 = t16771 * t3462;
21533   t34471 = t3428 * t1539;
21534   t34476 = t10730 * t574;
21535   t34481 = t3431 * t1539;
21536   t34485 = t4785 * t13559 * t578;
21537   t34488 = t4785 * t34131;
21538   t34491 = t6221 * t34163;
21539   t34494 = t4785 * t34170;
21540   t34499 = 0.15171639890357805325e1 * t2465 * t23028 + 0.25502554838335097929e1 * t2465 * t23045 + 0.42504258063891829882e0 * t34298 * t566 * t250 + 0.17489238971848963747e1 * t23095 * t22881 - 0.30124497567627698084e1 * t7287 * t22886 + 0.15171639890357805325e1 * t7282 * t7227 + 0.23916119461575365556e1 * t245 * t34465 * t1569 - 0.42504258063891829883e0 * t10572 * t4781 + 0.56263723100594113894e0 * t34471 * t4787 - 0.75858199451789026629e0 * t10572 * t4790 + 0.42504258063891829882e0 * t34476 * t1530 + 0.21252129031945914941e0 * t10575 * t4781 - 0.28131861550297056947e0 * t34481 * t4787 - 0.56263723100594113894e0 * t4784 * t34485 + 0.75858199451789026628e0 * t1527 * t34488 - 0.19594476351194912734e0 * t1527 * t34491 + 0.15171639890357805326e1 * t1527 * t34494 + 0.75858199451789026627e0 * t2465 * t22862;
21541   t34504 = t10691 * t238;
21542   t34513 = t34267 * t238;
21543   t34528 = t1568 * t10748;
21544   t34542 = 0.13538564572559691160e1 * t2465 * t22867 - 0.11064007557120e2 * t34504 * t6057 - 0.21958039749871030452e0 * t7282 * t7219 - 0.21958039749871030452e0 * t2465 * t23246 - 0.10979019874935515226e0 * t2465 * t23130 - 0.1844001259520e1 * t34513 * t2045 + 0.43916079499742060904e0 * t23462 * t30528 + 0.34003406451113463906e1 * t31000 * t30531 + 0.22505489240237645558e1 * t31003 * t31320 - 0.30343279780715610650e1 * t31000 * t30455 + 0.43916079499742060904e0 * t31008 * t23457 - 0.10122663238838101478e0 * t23418 * t7209 + 0.650049912832e0 * t245 * t34528 * t587 + 0.10696655587765469022e1 * t20370 * t34187 + 0.25502554838335097929e1 * t23206 * t30763 + 0.13814944624710858551e0 * t2465 * t23519 - 0.10979019874935515226e0 * t4774 * t10770 - 0.50613316194190507389e-1 * t7358 * t941;
21545   t34550 = t3475 * t1555;
21546   t34554 = t3462 * t1555;
21547   t34577 = t9579 * t34118;
21548   t34594 = -0.10979019874935515226e0 * t7355 * t941 + 0.29967321450326855254e0 * t2468 * t23358 - 0.476312901339054080e0 * t1549 * t2487 * t10703 + 0.238156450669527040e0 * t1549 * t34550 * t4756 - 0.29967321450326855254e0 * t4823 * t34554 * t4756 + 0.26741638969413672554e0 * t4823 * t3442 * t4824 - 0.67675321900558938528e0 * t2468 * t23531 + 0.1645512963945267200e1 * t575 * t34314 - 0.21252129031945914941e0 * t1549 * t3442 * t4853 + 0.14983660725163427627e0 * t4823 * t10675 * t4780 + 0.43916079499742060904e0 * t23462 * t30625 + 0.27629889249421717102e0 * t30484 * t23331 - 0.54895099374677576129e-1 * t10601 * t4715 - 0.30124497567627698084e1 * t4784 * t34577 + 0.97972381755974563669e-1 * t34257 * t1515 * t250 + 0.63050476377912629314e0 * t6238 * t10617 * t10552 + 0.63050476377912629314e0 * t6238 * t7222 * t2514 * t578 + 0.31525238188956314657e0 * t6238 * t7222 * t939 * t1560;
21549   t34599 = t7222 * t33902;
21550   t34602 = t33817 * t3446;
21551   t34605 = t22860 * t3446;
21552   t34608 = t9540 * t10703;
21553   t34643 = -0.97994301469412365794e0 * t20746 * t9581 * t33902 + 0.16879116930178234168e1 * t20353 * t34599 - 0.85008516127783659766e0 * t6222 * t34602 - 0.42504258063891829883e0 * t6222 * t34605 - 0.85008516127783659766e0 * t6222 * t34608 + 0.59934642900653710508e0 * t8511 * t2471 * t23524 + 0.29967321450326855254e0 * t8511 * t2471 * t23357 + 0.952625802678108160e0 * t6216 * t34602 + 0.952625802678108160e0 * t6216 * t34608 + 0.476312901339054080e0 * t6216 * t34605 - 0.18915142913373788794e1 * t20383 * t34599 + 0.25502554838335097930e1 * t20390 * t33903 + 0.59934642900653710508e0 * t8511 * t7268 * t7336 - 0.13069187414967042065e2 * t9585 * t33913 + 0.58735597940247945544e1 * t9593 * t33833 - 0.119078225334763520e0 * t1549 * t3455 * t4853 + 0.39207562244901126197e2 * t1540 * t34328 * t4786 - 0.13606156761889987933e2 * t1540 * t34005 * t4786;
21554   t34674 = t7174 * t566;
21555   t34676 = t245 * t249 * t2450;
21556   t34691 = 0.26206649088979828343e1 * t575 * t34331 - 0.4936538891835801600e1 * t575 * t34326 - 0.12204703833063489012e1 * t1540 * t2475 * t1545 * t7187 + 0.238156450669527040e0 * t1549 * t3450 * t4853 + 0.2766001889280e1 * t575 * t34336 - 0.19834166657058243280e0 * t16903 * t3442 * t16904 + 0.36614111499190467036e1 * t1540 * t10642 * t4844 - 0.22762551443898437297e2 * t4707 * t34328 * t6256 - 0.21958039749871030452e0 * t2462 * t2516 + 0.65874119249613091357e0 * t34504 * t6179 - 0.21958039749871030452e0 * t7365 * t34051 - 0.50613316194190507388e-1 * t10766 * t589 + 0.39188952702389825468e0 * t34674 * t34676 + 0.952625802678108160e0 * t7346 * t9772 - 0.238156450669527040e0 * t1549 * t10613 * t1550 - 0.1844001259520e1 * t575 * t34261 + 0.238156450669527040e0 * t4770 * t10759 + 0.650049912832e0 * t245 * t2501 * t7199;
21557   t34696 = my_piecewise3(t235, 0, t33848 + t33900 + t33944 + t33990 + t34049 + t34101 + t34156 + t34205 + t34353 + t34399 + t34451 + t34499 + t34542 + t34594 + t34643 + t34691);
21558   t34697 = my_piecewise3(t234, 0, t34696);
21559   t34699 = -0.2e1 * t10541 * t593 - 0.2e1 * t10779 * t566 - t1509 * t3481 - t1588 * t3423 - t233 * t34697 - 0.4e1 * t2450 * t2520 - t252 * t33790 - 0.2e1 * t7148 * t945 - 0.2e1 * t7386 * t926;
21560   t34708 = t16979 * t3487;
21561   t34714 = t4897 * t3483;
21562   t34717 = t10782 * t262;
21563   t34722 = -0.2e1 / 0.15e2 * t33588 * t33561 - t3484 * t1598 * t1611 / 0.108e3 + t1609 * t33576 * t266 / 0.50e2 + t56 * t34699 * t266 / 0.100e3 - t604 * t34699 * t266 / 0.100e3 + t10806 * t7398 / 0.180e3 + t34708 * t7403 / 0.324e3 - 0.3e1 / 0.50e2 * t948 * t3489 * t7388 - t34714 * t7403 / 0.324e3 + t34717 * t2528 / 0.30e2 - t10800 * t7398 / 0.180e3;
21564   t34745 = t10833 * t618;
21565   t34760 = t3507 * t1630;
21566   t34767 = t10847 * t3487;
21567   t34780 = 0.2e1 * t959 * t7495 - 0.10e2 / 0.9e1 * t34745 * t2551 + params->c1 * t34699 * t279 + 0.40e2 / 0.9e1 * t7442 * t7461 * t24 + 0.40e2 / 0.9e1 * t22648 * t10840 + 0.100e3 / 0.27e2 * t31566 * t947 * t1598 * t68 - 0.50e2 / 0.81e2 * t34760 * t7443 + 0.50e2 / 0.81e2 * t617 * t2557 * t3483 * t1594 - 0.100e3 / 0.27e2 * t7452 * t34767 - 0.2000e4 / 0.81e2 * t2150 * t10881 * t1598 + 0.5e1 / 0.9e1 * t7449 * t3515 + 0.10e2 / 0.9e1 * t2554 * t10862 - 0.20e2 / 0.9e1 * t961 * t3511 * t33576;
21568   t34788 = t2557 * t3483;
21569   t34813 = t278 * t68;
21570   t34819 = 0.2e1 * t7437 * t968 + 0.20e2 / 0.9e1 * t7442 * t7465 * t24 - 0.5e1 / 0.9e1 * t10835 * t7446 + 0.100e3 / 0.81e2 * t7452 * t34788 - 0.20e2 / 0.9e1 * t961 * t3511 * t947 * t7388 - 0.50e2 / 0.27e2 * t617 * t10847 * t3487 * t1594 - 0.40e2 / 0.9e1 * t2554 * t10853 + 0.100e3 / 0.81e2 * t617 * t2557 * t10781 * t599 + 0.500e3 / 0.81e2 * t2150 * t10892 * t1598 + 0.5e1 / 0.9e1 * t961 * t962 * t34699 + 0.4e1 * t2548 * t2574 - 0.200e3 / 0.27e2 * t34813 * t2577 * t7461 - 0.10e2 / 0.9e1 * t7449 * t3512;
21571   t34829 = t2565 * t2565;
21572   t34845 = t4017 * t4965 * t3483;
21573   t34848 = t627 * t2522;
21574   t34849 = t626 * t34848;
21575   t34855 = t1263 * t1654 * t10781;
21576   t34858 = t10877 * t7388;
21577   t34866 = t4017 * t17071 * t3487;
21578   t34872 = t14957 * t17089 * t3487;
21579   t34875 = t449 * t618 * t34699 * t285 + 0.25e2 / 0.81e2 * t34845 * t1646 - 0.20e2 / 0.9e1 * t7505 * t34849 + 0.5e1 / 0.9e1 * t10893 * t1650 + 0.10e2 / 0.9e1 * t34855 * t628 - 0.2e1 * t1655 * t34858 - 0.40e2 / 0.3e1 * t7482 * t34849 + 0.10e2 / 0.9e1 * t10886 * t1650 - 0.100e3 / 0.27e2 * t34866 * t1646 - 0.5e1 / 0.9e1 * t10899 * t1650 - 0.25e2 / 0.81e2 * t34872 * t1646;
21580   t34878 = t449 * t10892;
21581   t34882 = t1263 * t4952 * t3483;
21582   t34891 = t449 * t10881;
21583   t34894 = t1263 * t10898;
21584   t34904 = t449 * t1630 * t10781;
21585   t34909 = -0.4e1 * t1643 * t34858 + 0.50e2 / 0.27e2 * t34878 * t1646 + 0.50e2 / 0.27e2 * t34882 * t1646 - 0.40e2 / 0.3e1 * t7490 * t34849 - 0.4e1 * t449 * t1630 * t33576 * t285 - 0.200e3 / 0.27e2 * t34891 * t1646 - 0.100e3 / 0.9e1 * t34894 * t1646 - 0.10e2 / 0.3e1 * t10874 * t1650 - 0.2e1 * t1263 * t1654 * t33576 * t285 + 0.20e2 / 0.9e1 * t34904 * t628 - 0.10e2 / 0.3e1 * t10882 * t1650;
21586   t34911 = my_piecewise3(t277, (t34780 + t34819) * t283 + 0.2e1 * t10865 * t623 * t283 + t3518 * t1638 * t283 + t3518 * t1640 * t283 + 0.2e1 * t34829 * t283 + 0.4e1 * t2567 * t2566 + 0.2e1 * t967 * t7472 + t3520 * t1638 * t283 + t3520 * t1640 * t283, t34875 + t34909);
21587   t34913 = -0.4e1 * t510 * t10474 * t631 - 0.4e1 * t1423 * t33541 - 0.2e1 * t510 * t3400 * t1659 - 0.16e2 * t1423 * t1456 * t3400 * t288 - 0.8e1 * t510 * t33551 + 0.2e1 * t510 * t269 * (t33587 + t34722) * t288 - 0.16e2 * t2417 * t3405 * t1614 - 0.4e1 * t510 * t7418 * t971 - 0.4e1 * t510 * t7069 * t971 - 0.2e1 * t510 * t3499 * t1659 - 0.8e1 * t510 * t2538 * t2582 + 0.1174e1 * t34911;
21588   t34914 = t3405 * t1424;
21589   t34919 = t2537 * t971;
21590   t34928 = t16323 * t270;
21591   t34935 = t2537 * t2537;
21592   t34939 = t10467 * t611;
21593   t34949 = 0.4e1 * t10809 * t288 * t510 * t608 - 0.64e2 * t2417 * t2418 * t7073 + 0.16e2 * t2417 * t34919 * t611 - 0.8e1 * t2422 * t2582 * t510 + 0.4e1 * t288 * t34935 * t510 - 0.4e1 * t510 * t7509 * t954 + 0.24e2 * t10449 * t33541 - 0.48e2 * t10449 * t34939 - 0.8e1 * t10471 * t7055 - t276 * t34911 - 0.96e2 * t34914 * t34928 + 0.12e2 * t34914 * t4566;
21594   t34953 = t1423 * t953;
21595   t34962 = t3498 * t631;
21596   t34987 = t10809 * t288;
21597   t34991 = 0.96e2 * t10449 * t2418 * t2537 * t611 - 0.16e2 * t1423 * t270 * t288 * t34935 + 0.2e1 * t1614 * t288 * t3498 * t510 + 0.96e2 * t3405 * t608 * t611 * t7051 + 0.12e2 * t10470 * t1424 * t7051 - 0.24e2 * t10817 * t1424 * t7051 - t1617 * t3534 * t510 + 0.8e1 * t2417 * t34962 * t611 - 0.8e1 * t2417 * t34987 * t611 - 0.8e1 * t510 * t7073 * t971 + 0.32e2 * t10456 * t33551 - 0.16e2 * t34953 * t7059;
21598   t35002 = t2418 * t7417;
21599   t35007 = t953 * t2582;
21600   t35026 = 0.32e2 * t10467 * t2417 * t608 - 0.4e1 * t10470 * t1617 * t2417 - 0.4e1 * t10810 * t510 * t631 + 0.8e1 * t10817 * t1617 * t2417 - 0.2e1 * t10903 * t510 * t611 + 0.2e1 * t1423 * t1424 * t3534 + 0.8e1 * t1423 * t1659 * t3401 + 0.16e2 * t2417 * t35007 * t611 - 0.16e2 * t10456 * t35002 + 0.16e2 * t10818 * t7055 + 0.8e1 * t1423 * t34939 + 0.4e1 * t35002 * t510;
21601   t35034 = t2399 * t913 * t10906;
21602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21603     v4rho2lapl2[8] = -t33471 - 0.4e1 / 0.3e1 * t33498 - t33506 - 0.65972000000000000000e1 * t33513 - t2220 * t33474 * t1402 / 0.6e1 - t2220 * t33508 * t504 - 0.65972000000000000000e1 * t33516 * t1411 - t2220 * t10438 * t1415 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t913 * (t34913 + t34949 + t34991 + t35026) * t302 - 0.49479000000000000000e1 * t35034 * t649 - 0.29687400000000000000e2 * t10912 * t1677 + 0.57725500000000000000e1 * t10912 * t1682 + 0.80541612095716256868e2 * t7526 * t3537 * t837 * t1688 * t1690;
21604 
21605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21606     v4rho2lapltau[0] = 0.0e0;
21607 
21608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21609     v4rho2lapltau[1] = 0.0e0;
21610 
21611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21612     v4rho2lapltau[2] = 0.0e0;
21613 
21614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21615     v4rho2lapltau[3] = 0.0e0;
21616 
21617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21618     v4rho2lapltau[4] = 0.0e0;
21619 
21620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21621     v4rho2lapltau[5] = 0.0e0;
21622 
21623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21624     v4rho2lapltau[6] = 0.0e0;
21625 
21626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21627     v4rho2lapltau[7] = 0.0e0;
21628 
21629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21630     v4rho2lapltau[8] = 0.0e0;
21631 
21632   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21633     v4rho2lapltau[9] = 0.0e0;
21634 
21635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21636     v4rho2lapltau[10] = 0.0e0;
21637 
21638   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
21639     v4rho2lapltau[11] = 0.0e0;
21640 
21641   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21642     v4rho2tau2[0] = 0.0e0;
21643 
21644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21645     v4rho2tau2[1] = 0.0e0;
21646 
21647   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21648     v4rho2tau2[2] = 0.0e0;
21649 
21650   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21651     v4rho2tau2[3] = 0.0e0;
21652 
21653   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21654     v4rho2tau2[4] = 0.0e0;
21655 
21656   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21657     v4rho2tau2[5] = 0.0e0;
21658 
21659   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21660     v4rho2tau2[6] = 0.0e0;
21661 
21662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21663     v4rho2tau2[7] = 0.0e0;
21664 
21665   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21666     v4rho2tau2[8] = 0.0e0;
21667 
21668   t35054 = 0.56781128779330781250e1 * t4040 * t992 * t11241;
21669   t35055 = t14115 * t1939;
21670   t35056 = t3559 * t166;
21671   t35063 = t11224 * t19;
21672   t35112 = -0.2e1 * t1030 * t11137 * t435 + 0.12e2 * t1030 * t1866 * t2716 - 0.6e1 * t1030 * t1867 * t2713 + 0.6e1 * t1030 * t1869 * t2713 + 0.6e1 * t1030 * t1906 * t2594 - 0.6e1 * t1030 * t720 * t7996 - 0.6e1 * t10915 * t3619 * t456 - 0.24e2 * t10916 * t14187 * t435 - 0.18e2 * t10922 * t3619 * t435 + 0.18e2 * t1866 * t2595 * t3619 + 0.18e2 * t17451 * t7632;
21673   t35138 = t1090 * t681 * t387;
21674   t35204 = t1719 * t48;
21675   t35216 = t8794 * t2627 / 0.1458e4 + 0.10e2 / 0.6561e4 * t8717 * t7697 - 0.8e1 / 0.2187e4 * t2970 * t7700 - 0.5e1 / 0.3e1 * t8717 * t19 * t664 * t1751 - 0.25e2 / 0.54e2 * t24155 * t1759 + 0.20e2 / 0.9e1 * t7682 * t1706 + 0.25e2 / 0.144e3 * t17546 * t2627 + 0.125e3 / 0.162e3 * t17585 * t7697 + 0.25e2 / 0.144e3 * t17549 * t2627 - 0.25e2 / 0.27e2 * t5231 * t7700 - 0.5e1 / 0.8748e4 * t5225 * t10959 - 0.25e2 / 0.78732e5 * t24183 * t35204 + 0.10e2 / 0.2187e4 * t1098 * t7696 - 0.125e3 / 0.1296e4 * t14313 * t10959 * t378 - 0.3125e4 / 0.69984e5 * t14334 * t35204 + 0.125e3 / 0.324e3 * t3721 * t7696;
21676   t35219 = 0.2e1 / 0.2187e4 * t68 * t24118 * t681 + t2627 * t35138 / 0.3888e4 - t68 * t7659 * t1764 / 0.5832e4 + 0.9e1 / 0.4e1 * t17519 * t2619 - 0.45e2 / 0.8e1 * t17523 * t7669 + 0.9e1 / 0.2e1 * t5203 * t7672 - 0.3e1 / 0.2e1 * t5201 * t2632 + 0.9e1 / 0.4e1 * t5203 * t7677 - 0.3e1 / 0.2e1 * t1737 * t7710 - 0.15e2 / 0.8e1 * t14277 * t10947 + 0.105e3 / 0.16e2 * t14287 * t10947 * t387 - 0.45e2 / 0.8e1 * t3694 * t2619 * t1764 + 0.9e1 / 0.4e1 * t3686 * t10950 - 0.45e2 / 0.8e1 * t3694 * t10950 * t387 + 0.9e1 / 0.4e1 * t1091 * t1764 * t2632 + 0.9e1 / 0.4e1 * t1091 * t681 * t7710 - t1086 * t10964 / 0.2e1 + 0.3e1 / 0.4e1 * t1091 * t10964 * t387 - t376 * t35216 / 0.2e1;
21677   t35235 = t1137 * t1790 * t1767;
21678   t35249 = t1137 * t7806 * t390;
21679   t35253 = t7821 * t1790 * t2674;
21680   t35256 = t7793 * t697;
21681   t35257 = t5387 * t35256;
21682   t35266 = -0.2202015477522235392e1 * t107 * t7725 * t1835 + 0.58783429053584738202e0 * t17743 * t35235 - 0.75919974291285761083e-1 * t7803 * t5295 - 0.58783429053584738202e0 * t7803 * t5299 + 0.13549589651714352352e0 * t24421 * t7767 - 0.38906391098542524630e0 * t24906 * t5303 + 0.52455980750256876982e0 * t7803 * t5306 - 0.12751277419167548965e1 * t5312 * t35249 + 0.20722416937066287827e0 * t1136 * t35253 + 0.32937059624806545678e0 * t1136 * t35257 + 0.38253832257502646895e1 * t7803 * t7760 - 0.25502554838335097930e1 * t5312 * t35235 + 0.32937059624806545679e0 * t7797 * t5295;
21683   t35269 = t1143 * t11089;
21684   t35272 = t10984 * t100;
21685   t35275 = t109 * t7713;
21686   t35278 = t14379 * t10976;
21687   t35279 = t35278 * t1138;
21688   t35285 = t7857 * t5498;
21689   t35291 = t7840 * t5498;
21690   t35293 = t24224 * t1790;
21691   t35295 = t5347 * t7806;
21692   t35299 = t14528 * t10983;
21693   t35302 = t11069 * t390;
21694   t35309 = t1802 * t24487;
21695   t35311 = t14420 * t10976;
21696   t35312 = t35311 * t1138;
21697   t35314 = -0.10708320e2 * t1771 * t35275 + 0.10145661348248508867e2 * t35279 + 0.114668117222400e3 * t10984 * t1825 - 0.57334058611200e2 * t5422 * t24352 + 0.17054206847430144000e2 * t35285 - 0.57334058611200e2 * t7741 * t7889 + 0.32124960e2 * t2646 * t7889 - 0.57334058611200e2 * t35291 + 0.9555676435200e1 * t35293 - 0.10708320e2 * t35295 + 0.9555676435200e1 * t24293 * t3027 + 0.10145661348248508867e2 * t35299 * t1825 + 0.32124960e2 * t1780 * t35302 + 0.17054206847430144000e2 * t24703 * t9053 + 0.9555676435200e1 * t7753 * t7889 - 0.10708320e2 * t35309 - 0.68216827389720576000e2 * t35312;
21698   t35315 = t10977 * t1138;
21699   t35319 = t7909 * t5498;
21700   t35321 = t1132 * t10967;
21701   t35324 = t11048 * t1138;
21702   t35326 = t1151 * t11083;
21703   t35327 = t35326 * t1138;
21704   t35335 = t1123 * t10967;
21705   t35338 = t2654 * t5498;
21706   t35340 = t14573 * t10983;
21707   t35343 = t393 * t35219;
21708   t35347 = t1164 * t11083 * t1138;
21709   t35355 = -t401 * t35219 * t104;
21710   t35357 = 0.114668117222400e3 * t35315 + 0.17054206847430144000e2 * t24699 * t5298 + 0.9555676435200e1 * t35319 + 0.3185225478400e1 * t35321 * t1825 - 0.42833280e2 * t35324 + 0.3185225478400e1 * t35327 - 0.57334058611200e2 * t5339 * t35302 + 0.17054206847430144000e2 * t7745 * t7889 - 0.42833280e2 * t11052 * t1825 - 0.3569440e1 * t35335 * t1825 + 0.32124960e2 * t35338 - 0.68216827389720576000e2 * t35340 * t1825 + 0.1784720e1 * t35343 * t109 - 0.3569440e1 * t35347 - 0.10708320e2 * t5335 * t11069 + 0.32124960e2 * t1794 * t24352 + 0.1784720e1 * t35355;
21711   t35366 = t5319 * t2671;
21712   t35375 = t5319 * t2668;
21713   t35386 = -0.357234676004290560e0 * t24961 * t1814 - 0.119078225334763520e0 * t1142 * t35269 - 0.25306658097095253694e-1 * t35272 * t1144 - 0.258304e0 * t107 * t407 * (t35314 + t35357) - 0.29391714526792369101e0 * t1784 * t24382 + 0.22757459835536707988e1 * t1784 * t24386 + 0.52455980750256876981e0 * t5318 * t35366 + 0.20307846858839536740e1 * t1784 * t24537 - 0.16468529812403272839e0 * t1784 * t24349 - 0.12751277419167548965e1 * t1784 * t24353 + 0.29391714526792369101e0 * t5318 * t35375 - 0.84395584650891170840e0 * t5399 * t24375 + 0.11378729917768353994e1 * t1784 * t24378 + 0.23916119461575365556e1 * t107 * t14477 * t11055 * t411;
21714   t35394 = t3862 * t7817 * t390;
21715   t35401 = t17825 * t2655;
21716   t35408 = t7793 * t390;
21717   t35409 = t3862 * t35408;
21718   t35422 = 0.461000314880e0 * t35343 * t112 + 0.975074869248e0 * t107 * t5280 * t2687 + 0.16879116930178234168e1 * t17812 * t35394 + 0.21799717097663792993e0 * t5399 * t24241 - 0.16879116930178234168e1 * t5399 * t24525 - 0.38906391098542524630e0 * t5318 * t35401 + 0.26233858457773445621e1 * t18003 * t24529 - 0.45186746351441547126e1 * t5399 * t24356 - 0.22757459835536707988e1 * t5312 * t35409 - 0.12751277419167548965e1 * t7800 * t5299 + 0.29391714526792369101e0 * t24429 * t7767 - 0.84395584650891170840e0 * t24982 * t5303 + 0.11378729917768353994e1 * t7800 * t5306 - 0.75919974291285761083e-1 * t7803 * t5309;
21719   t35423 = t2666 * t689;
21720   t35424 = t35423 * t104;
21721   t35425 = t3862 * t35424;
21722   t35429 = t3856 * t7806 * t697;
21723   t35438 = t3840 * t35408;
21724   t35446 = t5393 * t7817 * t697;
21725   t35450 = t3862 * t3001 * t2666;
21726   t35461 = 0.11378729917768353994e1 * t1136 * t35425 - 0.16468529812403272839e0 * t1136 * t35429 - 0.32937059624806545678e0 * t5508 * t7851 - 0.32937059624806545678e0 * t1784 * t24360 - 0.32937059624806545678e0 * t1784 * t24237 + 0.25502554838335097930e1 * t5312 * t35438 + 0.32937059624806545679e0 * t1784 * t24540 + 0.20722416937066287827e0 * t1784 * t24324 + 0.21799717097663792993e0 * t3861 * t35446 - 0.84395584650891170843e0 * t3861 * t35450 + 0.25502554838335097930e1 * t7797 * t5299 - 0.17635028716075421460e1 * t24365 * t7767 + 0.16879116930178234168e1 * t25060 * t5303 - 0.22757459835536707989e1 * t7797 * t5306;
21727   t35472 = t5319 * t2663;
21728   t35483 = t7753 * t8812;
21729   t35486 = t111 * t2635;
21730   t35487 = t35486 * t404;
21731   t35493 = t3856 * t1790 * t2687;
21732   t35496 = t5393 * t35256;
21733   t35499 = -0.12751277419167548965e1 * t24368 * t7760 - 0.16468529812403272839e0 * t7800 * t5295 + 0.38253832257502646895e1 * t1784 * t24543 - 0.25502554838335097930e1 * t1784 * t24546 - 0.58783429053584738203e0 * t5318 * t35472 + 0.50637350790534702504e1 * t5399 * t24245 - 0.68272379506610123965e1 * t1784 * t24345 - 0.16468529812403272839e0 * t1784 * t24397 - 0.16468529812403272839e0 * t7800 * t5309 + 0.29391714526792369101e0 * t35483 * t5320 - 0.12751277419167548965e1 * t5312 * t35487 + 0.32937059624806545678e0 * t7797 * t5309 - 0.16468529812403272839e0 * t1136 * t35493 - 0.29391714526792369101e0 * t1136 * t35496;
21734   t35500 = t3840 * t35424;
21735   t35506 = t1154 * t1835;
21736   t35517 = t11052 * t100;
21737   t35520 = t11083 * t104;
21738   t35521 = t1137 * t35520;
21739   t35530 = t1143 * t697 * t1767;
21740   t35535 = t2666 * t402;
21741   t35536 = t3001 * t35535;
21742   t35539 = t8851 * t7806;
21743   t35542 = -0.12751277419167548965e1 * t1136 * t35500 - 0.38253832257502646894e1 * t24754 * t684 * t9122 + 0.47287857283434471986e0 * t3793 * t2654 * t35506 - 0.94575714566868943973e0 * t3793 * t11048 * t3794 - 0.2766001889280e1 * t5336 * t10987 + 0.8298005667840e1 * t7729 * t7944 - 0.11064007557120e2 * t35517 * t1774 + 0.21252129031945914941e0 * t1136 * t35521 + 0.45165298839047841173e-1 * t35299 * t390 * t112 - 0.16468529812403272839e0 * t1781 * t2689 - 0.32937059624806545678e0 * t5441 * t35530 + 0.20722416937066287826e0 * t7729 * t5495 + 0.10984233449757140111e2 * t8850 * t35536 - 0.14809616675507404800e2 * t8896 * t35539;
21744   t35551 = t697 * t2687;
21745   t35573 = t3802 * t35551;
21746   t35582 = 0.29391714526792369101e0 * t7745 * t100 * t7944 - 0.357234676004290560e0 * t5291 * t7781 + 0.44950982175490282881e0 * t5291 * t7778 - 0.2202015477522235392e1 * t9046 * t35551 * t411 + 0.21252129031945914941e0 * t35321 * t390 * t112 + 0.12751277419167548965e1 * t1158 * t11048 * t1159 + 0.29619233351014809600e2 * t399 * t35315 - 0.14809616675507404800e2 * t399 * t35291 + 0.39207562244901126197e2 * t1149 * t35311 * t1795 - 0.17620679382074383663e2 * t399 * t35312 - 0.119078225334763520e0 * t1158 * t11084 * t1159 + 0.44950982175490282881e0 * t1142 * t35573 - 0.13606156761889987933e2 * t1149 * t35278 * t1795 - 0.357234676004290560e0 * t1158 * t1807 * t11027;
21747   t35584 = t1143 * t2687 * t390;
21748   t35596 = t11004 * t100;
21749   t35599 = t1154 * t7770;
21750   t35608 = t7793 * t5494;
21751   t35611 = t7793 * t7784;
21752   t35614 = t697 * t1806;
21753   t35615 = t1790 * t35614;
21754   t35623 = 0.714469352008581120e0 * t1772 * t35584 + 0.8298005667840e1 * t399 * t35338 - 0.21968466899514280222e2 * t1149 * t10977 * t1795 + 0.98811178874419637034e0 * t7742 * t699 + 0.714469352008581120e0 * t7738 * t5434 - 0.119078225334763520e0 * t35596 * t1144 - 0.18307055749595233518e1 * t1149 * t1794 * t35599 + 0.26206649088979828343e1 * t399 * t35279 + 0.44950982175490282881e0 * t3771 * t1807 * t11019 - 0.89901964350980565762e0 * t17987 * t35608 - 0.2143408056025743360e1 * t5394 * t35611 + 0.1428938704017162240e1 * t5388 * t35615 + 0.63756387095837744823e0 * t24293 * t684 * t112 + 0.461000314880e0 * t399 * t35355;
21755   t35637 = t1773 * t7713;
21756   t35660 = 0.63756387095837744823e0 * t7753 * t1767 * t112 + 0.822756481972633600e0 * t399 * t35327 - 0.16468529812403272839e0 * t11059 * t413 + 0.29391714526792369101e0 * t24703 * t684 * t9122 - 0.2766001889280e1 * t1772 * t35637 + 0.714469352008581120e0 * t1158 * t2662 * t7831 - 0.10151298285083840779e1 * t1787 * t24790 + 0.89901964350980565762e0 * t1787 * t24796 + 0.20722416937066287827e0 * t1781 * t2676 + 0.44950982175490282881e0 * t7735 * t5495 - 0.16468529812403272839e0 * t7754 * t699 - 0.11756685810716947640e1 * t35340 * t100 * t1774 - 0.38253832257502646895e1 * t24410 * t7944 - 0.12751277419167548965e1 * t7797 * t5499;
21757   t35663 = t104 * t7914;
21758   t35670 = t1177 * t11089;
21759   t35681 = t3802 * t2674 * t390;
21760   t35691 = t10976 * t104;
21761   t35692 = t3862 * t35691;
21762   t35695 = t2666 * t411;
21763   t35696 = t1790 * t35695;
21764   t35701 = 0.63756387095837744823e0 * t24290 * t1791 - 0.357234676004290560e0 * t1158 * t690 * t35663 - 0.357234676004290560e0 * t1158 * t7771 * t2658 + 0.325024956416e0 * t107 * t35670 * t411 - 0.357234676004290560e0 * t1787 * t24593 - 0.2766001889280e1 * t399 * t35295 - 0.2766001889280e1 * t399 * t35309 - 0.89901964350980565762e0 * t1772 * t35681 - 0.714469352008581120e0 * t1158 * t11044 * t1159 - 0.11064007557120e2 * t399 * t35324 - 0.11378729917768353994e1 * t18063 * t35611 + 0.12751277419167548965e1 * t1136 * t35692 + 0.714469352008581120e0 * t5388 * t35696 - 0.12751277419167548965e1 * t5394 * t35615;
21765   t35703 = t7817 * t7784;
21766   t35711 = t8851 * t11019;
21767   t35721 = t8849 * t35691;
21768   t35724 = t11064 * t100;
21769   t35735 = t3759 * t1806;
21770   t35739 = t14382 * t402;
21771   t35743 = 0.25318675395267351253e1 * t18077 * t35703 + 0.44950982175490282881e0 * t1787 * t24497 + 0.10984233449757140111e2 * t1149 * t7840 * t7930 + 0.80224916908241017663e0 * t18102 * t35711 - 0.357234676004290560e0 * t7735 * t5434 + 0.2468269445917900800e1 * t399 * t35293 - 0.63756387095837744824e0 * t1158 * t2654 * t7831 - 0.22757459835536707989e1 * t1136 * t35721 - 0.714469352008581120e0 * t35724 * t1144 - 0.16468529812403272839e0 * t7729 * t5434 - 0.48997150734706182896e0 * t14399 * t10977 * t14400 - 0.22762551443898437297e2 * t3755 * t35311 * t7934 + 0.56906378609746093242e1 * t3755 * t7857 * t35735 - 0.92817332546461565657e1 * t14377 * t35278 * t35739;
21772   t35753 = t2658 * t390;
21773   t35754 = t690 * t35753;
21774   t35777 = t1773 * t2635 * t390;
21775   t35780 = 0.20312390406477209506e2 * t3755 * t35278 * t7934 + 0.84395584650891170840e0 * t3793 * t10977 * t3794 - 0.98018905612252815489e1 * t1149 * t7857 * t7930 + 0.65874119249613091356e0 * t18251 * t35754 + 0.41444833874132575653e0 * t25028 * t25018 + 0.65874119249613091356e0 * t24214 * t25022 - 0.15183994858257152217e0 * t18378 * t7851 + 0.43599434195327585986e0 * t24219 * t25032 - 0.58783429053584738202e0 * t24214 * t25035 - 0.18307055749595233518e1 * t1149 * t5409 * t11009 - 0.2143408056025743360e1 * t7729 * t7939 + 0.1428938704017162240e1 * t1772 * t35530 - 0.89901964350980565762e0 * t7738 * t5495 + 0.8298005667840e1 * t5441 * t35777;
21776   t35784 = t1143 * t2635 * t411;
21777   t35799 = t11089 * t401;
21778   t35808 = t2674 * t402;
21779   t35814 = t14496 * t11055;
21780   t35820 = t11055 * t401;
21781   t35824 = 0.714469352008581120e0 * t1772 * t35784 + 0.2468269445917900800e1 * t399 * t35319 - 0.37929099725894513314e0 * t1158 * t10977 * t1159 + 0.44051698455185959158e1 * t399 * t35285 + 0.32937059624806545679e0 * t35517 * t1144 + 0.76507664515005293790e1 * t10984 * t390 * t112 - 0.119078225334763520e0 * t1158 * t35799 * t1138 + 0.714469352008581120e0 * t7722 * t7939 + 0.89901964350980565762e0 * t7822 * t1790 * t24795 - 0.59502499971174729837e0 * t18098 * t3001 * t35808 - 0.75919974291285761083e-1 * t7746 * t699 - 0.33837660950279469264e0 * t1142 * t35814 - 0.922000629760e0 * t35335 * t100 * t1774 - 0.33837660950279469264e0 * t14462 * t35820 * t1138;
21782   t35842 = t7806 * t7784;
21783   t35845 = t11004 * t398;
21784   t35856 = t10976 * t1154;
21785   t35857 = t8849 * t35856;
21786   t35863 = -0.922000629760e0 * t399 * t35347 + 0.63756387095837744823e0 * t7800 * t5499 + 0.29391714526792369101e0 * t7803 * t5499 - 0.357234676004290560e0 * t1158 * t2667 * t7831 + 0.56906378609746093244e1 * t8899 * t12616 * t35535 - 0.98018905612252815491e1 * t8904 * t35536 + 0.44950982175490282881e0 * t7822 * t7806 * t5494 + 0.714469352008581120e0 * t5388 * t35842 + 0.21252129031945914941e0 * t35845 * t1139 - 0.28372714370060683191e1 * t18106 * t35703 + 0.94575714566868943972e0 * t5504 * t3001 * t35614 - 0.14699145220411854869e1 * t18264 * t11782 * t7784 + 0.16879116930178234169e1 * t3861 * t35857 + 0.47287857283434471986e0 * t5504 * t3001 * t35695;
21787   t35873 = t10984 * t398;
21788   t35876 = t11052 * t398;
21789   t35879 = t11064 * t398;
21790   t35882 = t10976 * t3759;
21791   t35883 = t8876 * t35882;
21792   t35892 = t8876 * t35856;
21793   t35898 = t2687 * t402;
21794   t35899 = t1790 * t35898;
21795   t35905 = -0.63756387095837744824e0 * t5394 * t35842 - 0.12751277419167548965e1 * t5508 * t7794 - 0.84395584650891170840e0 * t17996 * t7818 + 0.11378729917768353994e1 * t5508 * t7810 + 0.45165298839047841173e-1 * t35873 * t1139 - 0.58783429053584738203e0 * t35876 * t1139 + 0.12751277419167548965e1 * t35879 * t1139 + 0.87446194859244818738e0 * t14682 * t35883 + 0.47287857283434471985e0 * t5504 * t11009 * t7784 - 0.59502499971174729838e0 * t18098 * t7817 * t5494 - 0.15062248783813849042e1 * t3861 * t35892 + 0.44950982175490282881e0 * t7822 * t1790 * t24496 + 0.714469352008581120e0 * t5388 * t35899 + 0.47287857283434471985e0 * t5504 * t3001 * t35898;
21796   t35925 = t8876 * t35691;
21797   t35938 = -0.63756387095837744824e0 * t5394 * t35899 + 0.80224916908241017663e0 * t18102 * t35608 + 0.38253832257502646895e1 * t18277 * t35611 + 0.63756387095837744823e0 * t5508 * t7807 + 0.63756387095837744823e0 * t1784 * t24488 - 0.63756387095837744824e0 * t5394 * t35696 + 0.44950982175490282881e0 * t5382 * t7948 + 0.975074869248e0 * t107 * t1821 * t7914 + 0.44051698455185959158e1 * t8877 * t35539 + 0.67692822862798455803e0 * t1136 * t35925 - 0.10151298285083840779e1 * t24603 * t1790 * t24789 - 0.89901964350980565762e0 * t17987 * t35711 + 0.8298005667840e1 * t8893 * t35539 - 0.61023519165317445059e0 * t1149 * t35326 * t1795;
21798   t35943 = my_piecewise3(t97, 0, t35266 + t35386 + t35422 + t35461 + t35499 + t35542 + t35582 + t35623 + t35660 + t35701 + t35743 + t35780 + t35824 + t35863 + t35905 + t35938);
21799   t35944 = my_piecewise3(t96, 0, t35943);
21800   t35946 = t10967 * t417 + t11110 * t390 + t114 * t35219 + 0.3e1 * t1767 * t2693 + 0.3e1 * t1841 * t2635 + t35944 * t95 + 0.3e1 * t684 * t7959 + 0.3e1 * t703 * t7713;
21801   t35950 = t11113 * t124;
21802   t35963 = t3936 * t1847;
21803   t35978 = t1218 * t11112;
21804   t35993 = -t56 * t35946 * t128 / 0.100e3 - t35950 * t2336 / 0.60e2 - t25357 * t3049 / 0.20e2 + t2696 * t423 * t9143 / 0.36e2 - t7965 * t9146 / 0.20e2 - t2696 * t9149 * t1860 / 0.18e2 + 0.5e1 / 0.54e2 * t2700 * t35963 + 0.125e3 / 0.1458e4 * t11119 * t22176 * t2336 - 0.5e1 / 0.27e2 * t7976 * t13418 * t1847 - 0.125e3 / 0.2187e4 * t11119 * t18583 * t2336 + t428 * t35946 * t128 / 0.100e3 + t35978 * t2336 / 0.180e3 + t25369 * t3049 / 0.60e2 + t7984 * t9146 / 0.60e2 + t3949 * t11161 * t1860 / 0.108e3 + 0.5e1 / 0.162e3 * t7990 * t35963 + 0.25e2 / 0.4374e4 * t14846 * t11129 * t2336;
21805   t36023 = t11145 * t442;
21806   t36077 = -params->c1 * t35946 * t141 - 0.10e2 / 0.9e1 * t36023 * t2359 - 0.10e2 / 0.3e1 * t25170 * t3070 - 0.350e3 / 0.81e2 * t25156 * t9206 - 0.10e2 / 0.3e1 * t8014 * t9209 - 0.500e3 / 0.27e2 * t2721 * t1240 * t1847 - 0.10000e5 / 0.729e3 * t11149 * t345 * t1265 * t423 * t24 - 0.50000e5 / 0.6561e4 * t18414 * t11118 * t36 * t9205 - 0.2500e4 / 0.243e3 * t5589 * t2699 * t19 * t23 * t1847 - 0.100e3 / 0.81e2 * t438 * t1240 * t11158 - 0.500e3 / 0.27e2 * t1879 * t1901 * t8029 - 0.100e3 / 0.81e2 * t11156 * t29276 * t11157 - 0.100e3 / 0.81e2 * t11156 * t9204 * t22 * t7961 - 0.50e2 / 0.81e2 * t441 * t2365 * t7961 * t709 - 0.50e2 / 0.81e2 * t441 * t2365 * t2695 * t1847 - 0.50e2 / 0.81e2 * t441 * t2365 * t11112 * t423 - 0.5e1 / 0.9e1 * t895 * t896 * t35946;
21807   t36096 = t14917 * t2359;
21808   t36099 = t8045 * t8049;
21809   t36107 = t68 * t11179 * t423;
21810   t36132 = t1263 * t1265 * t11112;
21811   t36147 = -0.10000e5 / 0.729e3 * t449 * t4004 * t11118 * t36096 - 0.500e3 / 0.27e2 * t3994 * t36099 - 0.5000e4 / 0.243e3 * t1263 * t4019 * t11118 * t36096 - 0.50e2 / 0.9e1 * t18489 * t36107 - 0.10e2 / 0.3e1 * t5619 * t11180 - 0.50e2 / 0.9e1 * t18475 * t36107 - 0.10e2 / 0.3e1 * t1892 * t24 * t147 * t7961 - 0.500e3 / 0.27e2 * t4005 * t36099 - 0.5000e4 / 0.729e3 * t4017 * t14939 * t11118 * t36096 - 0.10e2 / 0.9e1 * t449 * t1239 * t11112 * t453 - t449 * t442 * t35946 * t147 - 0.5e1 / 0.9e1 * t36132 * t453 - 0.5e1 / 0.3e1 * t25217 * t731 - 0.5e1 / 0.3e1 * t8063 * t1898 - 0.25e2 / 0.27e2 * t25272 * t9252 - 0.250e3 / 0.81e2 * t4020 * t36099 - 0.1250e4 / 0.2187e4 * t14957 * t14959 * t11118 * t36096;
21812   t36148 = my_piecewise3(t139, t11168 * t145 * t447 + t11173 * t145 * t447 + 0.3e1 * t145 * t1887 * t2730 + 0.3e1 * t145 * t728 * t8036 + 0.3e1 * t11170 * t448 + t145 * t36077 + 0.3e1 * t1887 * t2733, t36147);
21813   t36151 = t330 * (0.27e2 / 0.160e3 * t346 * t350 * t52 - 0.243e3 / 0.2560e4 * t1054 * t1718 * t24 * sigma[0] * t52 + 0.24057e5 / 0.2048000e7 * t10931 * t7649 - 0.177147e6 / 0.81920000e8 * t14238 * t347 / t14228 * t52 + 0.6e1 * t1863 * t2710 + 0.6e1 * t716 * t7993 + 0.2e1 * t432 * t11133 + 0.2e1 * t131 * t35993) * t150 - t330 * t11136 * t456 + 0.6e1 * t1030 * t11139 * t435 - 0.3e1 * t330 * t7996 * t734 - 0.3e1 * t330 * t2713 * t1906 + 0.6e1 * t1030 * t11142 * t435 - 0.3e1 * t330 * t1866 * t2745 - 0.3e1 * t330 * t719 * t8071 - t330 * t435 * t11193 - t138 * t36148 + 0.1174e1 * t36148;
21814   t36158 = 0.23193281250000000000e0 * t1025 * t11231;
21815   t36159 = 0.83495812500000000000e1 * t1001 * t1286 * t11217 * t1002 - 0.16699162500000000000e2 * t5666 * t7620 + t35054 + 0.41747906250000000000e2 * t1001 * t35055 * t35056 * t316 + 0.69579843750000000000e0 * t1279 * t11231 - 0.45304656803840394488e2 * t4059 * t35063 * t4063 + 0.17034338633799234375e2 * t4040 * t996 * t11241 - 0.13627470907039387500e3 * t1926 * t737 * t7532 * t7536 + 0.17034338633799234375e3 * t1926 * t25537 * t7536 + 0.22712451511732312500e2 * t13996 * t25537 * t13999 - 0.3e1 / 0.8e1 * t8 * t18 * (t35112 + t36151) * t167 + t36158;
21816   t36161 = 0.20873953125000000000e1 * t1025 * t11219;
21817   t36175 = 0.46386562500000000000e0 * t5123 * t2763;
21818   t36177 = 0.11326164200960098622e2 * t3549 * t11236;
21819   t36203 = t36161 + 0.27831937500000000000e1 * t25486 * t745 - 0.12524371875000000000e2 * t5129 * t2758 + 0.45304656803840394488e2 * t17359 * t7610 + 0.34068677267598468750e2 * t471 * t2767 * t1284 * t166 * t156 * t477 - t36175 - t36177 + 0.33978492602880295866e2 * t1297 * t1909 * t2767 * t158 * t1301 + 0.31310929687500000000e2 * t1926 * t13808 * t11213 - 0.75578230455453280704e0 * t1297 * t3573 * t11223 * t26 * t166 - 0.87205650525523016199e-1 * t1297 * t13813 * t11225 - 0.67956985205760591732e2 * t1297 * t11234 * t26 * t1301 - 0.33978492602880295866e2 * t1297 * t459 * t11223 * t158 * t1301;
21820   t36205 = 0.1e1 / t1055;
21821   t36212 = 0.29068550175174338733e-1 * t3549 * t11226;
21822   t36235 = t469 * t18 * t11196;
21823   t36240 = t14122 * t11223;
21824   t36241 = t158 * t166;
21825   t36248 = t8 * t323 * t11197 / 0.8e1;
21826   t36249 = t17 * t11196;
21827   t36253 = -0.92427972442890327423e2 * t1297 * t153 * t36205 * t63 * t13794 - t36212 - 0.13915968750000000000e1 * t5129 * t2763 - 0.83495812500000000000e1 * t471 * t1286 * t7532 * t332 * t166 - 0.18554625000000000000e1 * t5666 * t7614 + 0.92773125000000000000e0 * t1001 * t475 * t11229 * t1002 + 0.37109250000000000000e1 * t24000 * t1919 + 0.14611767187500000000e3 * t471 * t14051 * t2755 * t338 * t166 * t156 - 0.24739500000000000000e1 * t36235 * t480 + 0.62621859375000000000e1 * t1279 * t11219 - 0.11627420070069735493e0 * t4059 * t36240 * t36241 * t316 - t36248 - t310 * t36249 * t317 / 0.2e1;
21828   t36257 = 0.92773125000000000000e0 * t23966 * t745;
21829   t36259 = 0.41747906250000000000e1 * t5123 * t2758;
21830   t36270 = 0.11326164200960098622e2 * t3549 * t11209;
21831   t36272 = 0.10436976562500000000e2 * t5086 * t11214;
21832   t36293 = -0.37109250000000000000e1 * t7541 * t1935 + t36257 - t36259 + 0.16699162500000000000e2 * t1915 * t7597 - 0.92773125000000000000e0 * t471 * t475 * t2767 * t477 * t166 + 0.18554625000000000000e1 * t1915 * t7590 + t36270 + t36272 + 0.33398325000000000000e2 * t1926 * t2748 * t1284 * t19 * t1929 - 0.90609313607680788976e2 * t1297 * t2748 * t1939 * t26 * t1301 - 0.25048743750000000000e3 * t1926 * t17372 * t7560 + 0.69764520420418412959e0 * t1297 * t17377 * t7572 + 0.90609313607680788976e2 * t1297 * t11207 * t26 * t1301;
21833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21834     v4rhosigma3[0] = -t11200 + t11202 - t11204 - t11206 + t11211 + t11216 + t11221 - t11228 + t11233 - t11238 + t11244 + t10 * (t36159 + t36203 + t36253 + t36293);
21835 
21836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21837     v4rhosigma3[1] = 0.0e0;
21838 
21839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21840     v4rhosigma3[2] = 0.0e0;
21841 
21842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21843     v4rhosigma3[3] = 0.0e0;
21844 
21845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21846     v4rhosigma3[4] = 0.0e0;
21847 
21848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21849     v4rhosigma3[5] = 0.0e0;
21850 
21851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21852     v4rhosigma3[6] = 0.0e0;
21853 
21854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21855     v4rhosigma3[7] = 0.0e0;
21856 
21857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21858     v4rhosigma3[8] = 0.0e0;
21859 
21860   t36297 = t17 * t11527;
21861   t36303 = t8 * t491 * t11528 / 0.8e1;
21862   t36307 = 0.92773125000000000000e0 * t25873 * t840;
21863   t36311 = 0.41747906250000000000e1 * t5800 * t2938;
21864   t36315 = 0.46386562500000000000e0 * t5800 * t2943;
21865   t36319 = 0.11326164200960098622e2 * t4352 * t11540;
21866   t36320 = t16011 * t2208;
21867   t36321 = t4515 * t301;
21868   t36326 = -t484 * t36297 * t487 / 0.2e1 - t36303 + 0.37109250000000000000e1 * t25884 * t1955 + t36307 - 0.16699162500000000000e2 * t5796 * t8094 - t36311 - 0.18554625000000000000e1 * t5796 * t8100 - t36315 + 0.45304656803840394488e2 * t19561 * t8107 + t36319 + 0.41747906250000000000e2 * t1376 * t36320 * t36321 * t486;
21869   t36328 = 0.10436976562500000000e2 * t5826 * t11545;
21870   t36334 = 0.20873953125000000000e1 * t1383 * t11550;
21871   t36335 = t14122 * t11554;
21872   t36336 = t293 * t301;
21873   t36342 = 0.29068550175174338733e-1 * t4352 * t11557;
21874   t36348 = 0.23193281250000000000e0 * t1383 * t11562;
21875   t36349 = t11555 * t19;
21876   t36354 = 0.11326164200960098622e2 * t4352 * t11567;
21877   t36360 = 0.56781128779330781250e1 * t5041 * t1314 * t11572;
21878   t36361 = t36328 + 0.83495812500000000000e1 * t1376 * t1675 * t11548 * t1377 + t36334 - 0.11627420070069735493e0 * t4414 * t36335 * t36336 * t486 - t36342 + 0.92773125000000000000e0 * t1376 * t644 * t11560 * t1377 + t36348 - 0.45304656803840394488e2 * t4414 * t36349 * t4418 - t36354 + 0.22712451511732312500e2 * t16083 * t27476 * t16086 + t36360;
21879   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21880     v4rhosigma3[9] = -t11531 + t11533 - t11535 - t11537 + t11542 + t11547 + t11552 - t11559 + t11564 - t11569 + t11575 + t10 * (t36326 + t36361);
21881 
21882   t36379 = -t310 * t36249 * t499 / 0.2e1 - t36248 + 0.37109250000000000000e1 * t24000 * t1966 + t36257 - 0.16699162500000000000e2 * t5666 * t8120 - t36259 - 0.18554625000000000000e1 * t5666 * t8124 - t36175 + 0.45304656803840394488e2 * t17359 * t8127 + t36270 + 0.41747906250000000000e2 * t1001 * t35055 * t35056 * t498;
21883   t36398 = t36272 + 0.83495812500000000000e1 * t1001 * t1286 * t11217 * t1339 + t36161 - 0.11627420070069735493e0 * t4059 * t36240 * t36241 * t498 - t36212 + 0.92773125000000000000e0 * t1001 * t475 * t11229 * t1339 + t36158 - 0.45304656803840394488e2 * t4059 * t35063 * t4228 - t36177 + 0.22712451511732312500e2 * t13996 * t25537 * t15249 + t35054;
21884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21885     v4rhosigma3[10] = -t11200 + t11202 - t11204 - t11206 + t11211 + t11216 + t11221 - t11228 + t11233 - t11238 + t11244 + t10 * (t36379 + t36398);
21886 
21887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21888     v4rhosigma3[11] = 0.0e0;
21889 
21890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21891     v4rhosigma3[12] = 0.0e0;
21892 
21893   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21894     v4rhosigma3[13] = 0.0e0;
21895 
21896   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21897     v4rhosigma3[14] = 0.0e0;
21898 
21899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21900     v4rhosigma3[15] = 0.0e0;
21901 
21902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21903     v4rhosigma3[16] = 0.0e0;
21904 
21905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21906     v4rhosigma3[17] = 0.0e0;
21907 
21908   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21909     v4rhosigma3[18] = 0.0e0;
21910 
21911   t36442 = -0.6e1 * t11246 * t4566 * t631 - 0.24e2 * t11247 * t16323 * t611 - 0.18e2 * t11253 * t4566 * t611 - 0.2e1 * t11468 * t1423 * t611 + 0.12e2 * t1423 * t2137 * t2896 - 0.6e1 * t1423 * t2138 * t2893 + 0.6e1 * t1423 * t2140 * t2893 + 0.6e1 * t1423 * t2177 * t2774 - 0.6e1 * t1423 * t815 * t8582 + 0.18e2 * t2137 * t2775 * t4566 + 0.18e2 * t19843 * t8218;
21912   t36468 = t1481 * t776 * t563;
21913   t36534 = t1990 * t190;
21914   t36546 = t9434 * t2807 / 0.1458e4 + 0.10e2 / 0.6561e4 * t9370 * t8283 - 0.8e1 / 0.2187e4 * t3122 * t8286 - 0.5e1 / 0.3e1 * t9370 * t19 * t759 * t2022 - 0.25e2 / 0.54e2 * t26188 * t2030 + 0.20e2 / 0.9e1 * t8268 * t1977 + 0.25e2 / 0.144e3 * t19908 * t2807 + 0.125e3 / 0.162e3 * t19873 * t8283 + 0.25e2 / 0.144e3 * t19912 * t2807 - 0.25e2 / 0.27e2 * t6005 * t8286 - 0.5e1 / 0.8748e4 * t5999 * t11290 - 0.25e2 / 0.78732e5 * t26168 * t36534 + 0.10e2 / 0.2187e4 * t1489 * t8282 - 0.125e3 / 0.1296e4 * t16466 * t11290 * t554 - 0.3125e4 / 0.69984e5 * t16452 * t36534 + 0.125e3 / 0.324e3 * t4669 * t8282;
21915   t36549 = 0.2e1 / 0.2187e4 * t68 * t26116 * t776 + t2807 * t36468 / 0.3888e4 - t68 * t8245 * t2035 / 0.5832e4 + 0.9e1 / 0.4e1 * t19858 * t2799 - 0.45e2 / 0.8e1 * t19861 * t8255 + 0.9e1 / 0.2e1 * t5977 * t8258 - 0.3e1 / 0.2e1 * t5975 * t2812 + 0.9e1 / 0.4e1 * t5977 * t8263 - 0.3e1 / 0.2e1 * t2008 * t8296 - 0.15e2 / 0.8e1 * t16414 * t11278 + 0.105e3 / 0.16e2 * t16424 * t11278 * t563 - 0.45e2 / 0.8e1 * t4642 * t2799 * t2035 + 0.9e1 / 0.4e1 * t4634 * t11281 - 0.45e2 / 0.8e1 * t4642 * t11281 * t563 + 0.9e1 / 0.4e1 * t1482 * t2035 * t2812 + 0.9e1 / 0.4e1 * t1482 * t776 * t8296 - t1477 * t11295 / 0.2e1 + 0.3e1 / 0.4e1 * t1482 * t11295 * t563 - t552 * t36546 / 0.2e1;
21916   t36562 = t1534 * t792 * t2038;
21917   t36568 = t2044 * t2815 * t566;
21918   t36572 = t1534 * t2815 * t587;
21919   t36578 = t16623 * t11358;
21920   t36582 = t4708 * t2077;
21921   t36586 = t16642 * t11358;
21922   t36587 = t16764 * t578;
21923   t36604 = -0.32937059624806545678e0 * t6056 * t36562 + 0.20722416937066287826e0 * t8439 * t6283 + 0.8298005667840e1 * t6056 * t36568 + 0.714469352008581120e0 * t2043 * t36572 - 0.48997150734706182896e0 * t16800 * t11396 * t16801 - 0.22762551443898437297e2 * t4707 * t36578 * t8429 + 0.56906378609746093242e1 * t4707 * t8372 * t36582 - 0.92817332546461565657e1 * t16763 * t36586 * t36587 + 0.20312390406477209506e2 * t4707 * t36586 * t8429 - 0.38253832257502646894e1 * t26908 * t779 * t9722 - 0.75919974291285761083e-1 * t8436 * t794 + 0.714469352008581120e0 * t8487 * t8476 + 0.39207562244901126197e2 * t1540 * t36578 * t2066;
21924   t36613 = t2061 * t2846;
21925   t36614 = t4755 * t36613;
21926   t36617 = t2073 * t26811;
21927   t36627 = t1545 * t2106;
21928   t36632 = t4718 * t2854 * t566;
21929   t36637 = t1545 * t8363;
21930   t36647 = -0.98018905612252815489e1 * t1540 * t8372 * t8425 - 0.13606156761889987933e2 * t1540 * t36586 * t2066 + 0.98811178874419637034e0 * t26321 * t8476 - 0.12751277419167548965e1 * t1527 * t36614 - 0.2766001889280e1 * t575 * t36617 - 0.22757459835536707989e1 * t8524 * t6113 - 0.18307055749595233518e1 * t1540 * t6164 * t11338 + 0.20722416937066287827e0 * t2052 * t2856 + 0.47287857283434471986e0 * t4838 * t2834 * t36627 - 0.89901964350980565762e0 * t2043 * t36632 - 0.10151298285083840779e1 * t2058 * t26686 - 0.18307055749595233518e1 * t1540 * t2065 * t36637 - 0.94575714566868943973e0 * t4838 * t11359 * t4839 + 0.10984233449757140111e2 * t1540 * t8357 * t8425;
21931   t36650 = t1555 * t11370 * t1529;
21932   t36658 = t8372 * t6232;
21933   t36670 = t8336 * t6089;
21934   t36679 = t2838 * t566;
21935   t36680 = t785 * t36679;
21936   t36687 = -0.922000629760e0 * t575 * t36650 - 0.16468529812403272839e0 * t2052 * t2869 - 0.37929099725894513314e0 * t1549 * t11396 * t1550 + 0.44051698455185959158e1 * t575 * t36658 - 0.119078225334763520e0 * t1549 * t11430 * t577 * t1529 + 0.44950982175490282881e0 * t4823 * t2078 * t11311 + 0.25502554838335097930e1 * t8524 * t6106 - 0.17635028716075421460e1 * t36670 * t8315 + 0.16879116930178234168e1 * t26864 * t6110 + 0.43599434195327585986e0 * t27035 * t26778 - 0.58783429053584738202e0 * t26758 * t26781 + 0.65874119249613091356e0 * t20683 * t36680 + 0.41444833874132575653e0 * t26903 * t26770 + 0.65874119249613091356e0 * t26758 * t26774;
21937   t36690 = t11308 * t238;
21938   t36710 = t6221 * t8506 * t792;
21939   t36714 = t4785 * t3153 * t2846;
21940   t36720 = t1528 * t2061 * t2038;
21941   t36725 = -0.15183994858257152217e0 * t20225 * t8325 + 0.32937059624806545679e0 * t36690 * t1535 + 0.714469352008581120e0 * t1549 * t2842 * t8464 + 0.975074869248e0 * t245 * t6050 * t2867 - 0.12751277419167548965e1 * t26380 * t8308 - 0.16468529812403272839e0 * t8527 * t6102 - 0.12751277419167548965e1 * t8527 * t6106 + 0.29391714526792369101e0 * t26353 * t8315 + 0.20722416937066287827e0 * t2055 * t26450 + 0.21799717097663792993e0 * t4784 * t36710 - 0.84395584650891170843e0 * t4784 * t36714 + 0.38253832257502646895e1 * t8499 * t8308 - 0.25502554838335097930e1 * t6116 * t36720 + 0.32937059624806545679e0 * t8524 * t6102;
21942   t36734 = t11359 * t1529;
21943   t36737 = t2834 * t6232;
21944   t36744 = t792 * t2867;
21945   t36745 = t4718 * t36744;
21946   t36748 = t11375 * t577;
21947   t36758 = t11355 * t238;
21948   t36768 = t1514 * t11298;
21949   t36769 = t36768 * t238;
21950   t36772 = -0.63756387095837744824e0 * t1549 * t2834 * t8464 - 0.714469352008581120e0 * t1549 * t11366 * t1550 - 0.11064007557120e2 * t575 * t36734 + 0.8298005667840e1 * t575 * t36737 + 0.23916119461575365556e1 * t245 * t16771 * t11375 * t587 + 0.44950982175490282881e0 * t1533 * t36745 - 0.33837660950279469264e0 * t16821 * t36748 * t1529 - 0.119078225334763520e0 * t1549 * t11371 * t1550 + 0.975074869248e0 * t245 * t2092 * t8375 - 0.25306658097095253694e-1 * t36758 * t1535 + 0.29391714526792369101e0 * t8350 * t238 * t8444 - 0.38253832257502646895e1 * t26321 * t8444 + 0.8298005667840e1 * t8439 * t8444 - 0.922000629760e0 * t36769 * t2045;
21951   t36773 = t1523 * t11298;
21952   t36782 = t2854 * t578;
21953   t36783 = t2061 * t36782;
21954   t36789 = t2846 * t578;
21955   t36790 = t3153 * t36789;
21956   t36796 = t8506 * t8515;
21957   t36799 = t792 * t2077;
21958   t36806 = t11358 * t1545;
21959   t36807 = t9553 * t36806;
21960   t36813 = t36578 * t1529;
21961   t36817 = t1542 * t11370;
21962   t36818 = t36817 * t1529;
21963   t36820 = t26295 * t2061;
21964   t36822 = t11396 * t1529;
21965   t36824 = t16634 * t11307;
21966   t36827 = t36586 * t1529;
21967   t36831 = t8357 * t6232;
21968   t36841 = -t577 * t36549 * t242;
21969   t36843 = t16605 * t11307;
21970   t36847 = 0.17054206847430144000e2 * t36658 + 0.17054206847430144000e2 * t8350 * t8333 - 0.68216827389720576000e2 * t36813 - 0.42833280e2 * t11308 * t2096 + 0.3185225478400e1 * t36818 + 0.9555676435200e1 * t36820 + 0.114668117222400e3 * t36822 - 0.68216827389720576000e2 * t36824 * t2096 + 0.10145661348248508867e2 * t36827 + 0.114668117222400e3 * t11355 * t2096 - 0.57334058611200e2 * t36831 - 0.3569440e1 * t36768 * t2096 + 0.32124960e2 * t2826 * t8333 - 0.57334058611200e2 * t8336 * t8333 + 0.1784720e1 * t36841 + 0.10145661348248508867e2 * t36843 * t2096 - 0.3569440e1 * t36650;
21971   t36850 = t569 * t36549;
21972   t36853 = t8367 * t6232;
21973   t36856 = t6152 * t8534;
21974   t36858 = t11413 * t566;
21975   t36866 = t247 * t8299;
21976   t36882 = 0.9555676435200e1 * t26788 * t3179 + 0.1784720e1 * t36850 * t247 + 0.9555676435200e1 * t36853 - 0.42833280e2 * t36734 - 0.10708320e2 * t36856 + 0.32124960e2 * t2051 * t36858 + 0.32124960e2 * t36737 - 0.10708320e2 * t6123 * t11413 + 0.17054206847430144000e2 * t26737 * t9606 - 0.10708320e2 * t2042 * t36866 + 0.32124960e2 * t2065 * t26453 - 0.57334058611200e2 * t6155 * t26453 + 0.9555676435200e1 * t8345 * t8333 + 0.3185225478400e1 * t36773 * t2096 + 0.17054206847430144000e2 * t26302 * t6105 - 0.57334058611200e2 * t6136 * t36858 - 0.10708320e2 * t36617;
21977   t36891 = 0.21252129031945914941e0 * t36773 * t566 * t250 - 0.357234676004290560e0 * t26731 * t2085 - 0.10151298285083840779e1 * t27079 * t2061 * t26685 - 0.89901964350980565762e0 * t20240 * t36783 + 0.89901964350980565762e0 * t8511 * t2061 * t26689 + 0.10984233449757140111e2 * t9575 * t36790 - 0.59502499971174729838e0 * t20249 * t8506 * t6282 - 0.28372714370060683191e1 * t20383 * t36796 + 0.94575714566868943972e0 * t6238 * t3153 * t36799 - 0.14699145220411854869e1 * t20746 * t12091 * t8515 + 0.16879116930178234169e1 * t4784 * t36807 - 0.258304e0 * t245 * t583 * (t36847 + t36882) + 0.461000314880e0 * t575 * t36841 + 0.63756387095837744823e0 * t26869 * t2062;
21978   t36903 = t8345 * t9474;
21979   t36908 = t249 * t2815;
21980   t36909 = t36908 * t580;
21981   t36918 = t8530 * t566;
21982   t36919 = t4755 * t36918;
21983   t36926 = 0.63756387095837744823e0 * t8527 * t6233 + 0.29391714526792369101e0 * t8499 * t6233 + 0.63756387095837744823e0 * t6242 * t8535 - 0.75919974291285761083e-1 * t8499 * t6095 - 0.16468529812403272839e0 * t8527 * t6095 + 0.29391714526792369101e0 * t36903 * t6092 + 0.32937059624806545678e0 * t8524 * t6095 - 0.12751277419167548965e1 * t6116 * t36909 - 0.32937059624806545678e0 * t6242 * t8325 - 0.32937059624806545678e0 * t2055 * t26431 - 0.32937059624806545678e0 * t2055 * t26435 + 0.25502554838335097930e1 * t6116 * t36919 + 0.32937059624806545679e0 * t2055 * t26547 + 0.38253832257502646895e1 * t2055 * t26550;
21984   t36929 = t6091 * t2843;
21985   t36936 = t4785 * t36613;
21986   t36940 = t4848 * t8534 * t792;
21987   t36943 = t11358 * t242;
21988   t36944 = t9579 * t36943;
21989   t36952 = t8530 * t6282;
21990   t36955 = t8530 * t8515;
21991   t36958 = t2061 * t36799;
21992   t36961 = t11400 * t574;
21993   t36966 = -0.25502554838335097930e1 * t2055 * t26553 - 0.58783429053584738203e0 * t6090 * t36929 + 0.50637350790534702504e1 * t6225 * t26524 - 0.68272379506610123965e1 * t2055 * t26556 + 0.11378729917768353994e1 * t1527 * t36936 - 0.16468529812403272839e0 * t1527 * t36940 + 0.67692822862798455803e0 * t1527 * t36944 - 0.59502499971174729837e0 * t20249 * t3153 * t36782 + 0.80224916908241017663e0 * t20370 * t36783 - 0.89901964350980565762e0 * t20240 * t36952 - 0.2143408056025743360e1 * t6222 * t36955 + 0.1428938704017162240e1 * t6216 * t36958 + 0.21252129031945914941e0 * t36961 * t1530 + 0.44950982175490282881e0 * t6194 * t8380;
21994   t36970 = t11308 * t574;
21995   t36973 = t2867 * t578;
21996   t36974 = t2061 * t36973;
21997   t36982 = t11370 * t242;
21998   t36983 = t1528 * t36982;
21999   t36986 = t2846 * t784;
22000   t36987 = t36986 * t1550;
22001   t36990 = t36986 * t1529;
22002   t36997 = t9553 * t36943;
22003   t37002 = t11342 * t238;
22004   t37011 = -0.58783429053584738203e0 * t36970 * t1530 + 0.714469352008581120e0 * t6216 * t36974 + 0.47287857283434471985e0 * t6238 * t3153 * t36973 - 0.63756387095837744824e0 * t6222 * t36974 + 0.21252129031945914941e0 * t1527 * t36983 - 0.63756387095837744824e0 * t6222 * t36987 - 0.14809616675507404800e2 * t9554 * t36990 - 0.98018905612252815491e1 * t9585 * t36790 - 0.12751277419167548965e1 * t6242 * t8531 - 0.22757459835536707989e1 * t1527 * t36997 - 0.357234676004290560e0 * t6060 * t8433 - 0.714469352008581120e0 * t37002 * t1535 + 0.76507664515005293790e1 * t11355 * t566 * t250 + 0.63756387095837744823e0 * t26788 * t779 * t250;
22005   t37013 = t1534 * t2867 * t566;
22006   t37024 = t242 * t8375;
22007   t37037 = t2044 * t8299;
22008   t37040 = t1534 * t11430;
22009   t37050 = 0.714469352008581120e0 * t2043 * t37013 + 0.44950982175490282881e0 * t2058 * t26728 + 0.89901964350980565762e0 * t2058 * t26690 + 0.325024956416e0 * t245 * t1568 * t11430 * t587 - 0.357234676004290560e0 * t1549 * t785 * t37024 - 0.16468529812403272839e0 * t11391 * t589 + 0.29391714526792369101e0 * t26737 * t779 * t9722 + 0.44950982175490282881e0 * t8386 * t6283 - 0.16468529812403272839e0 * t8496 * t794 - 0.2766001889280e1 * t2043 * t37037 - 0.119078225334763520e0 * t1533 * t37040 + 0.2468269445917900800e1 * t575 * t36820 - 0.21968466899514280222e2 * t1540 * t11396 * t2066 - 0.2766001889280e1 * t575 * t36856;
22010   t37064 = t4785 * t36943;
22011   t37071 = t2846 * t587;
22012   t37078 = t11355 * t574;
22013   t37081 = t11342 * t574;
22014   t37084 = t11358 * t4708;
22015   t37085 = t9579 * t37084;
22016   t37088 = -0.357234676004290560e0 * t8386 * t6086 + 0.80224916908241017663e0 * t20370 * t36952 + 0.38253832257502646895e1 * t20390 * t36955 - 0.12751277419167548965e1 * t6222 * t36958 + 0.25318675395267351253e1 * t20353 * t36796 - 0.11378729917768353994e1 * t20358 * t36955 + 0.12751277419167548965e1 * t1527 * t37064 + 0.714469352008581120e0 * t6216 * t36987 + 0.8298005667840e1 * t9548 * t36990 + 0.47287857283434471986e0 * t6238 * t3153 * t37071 + 0.56906378609746093244e1 * t9580 * t12965 * t36789 + 0.45165298839047841173e-1 * t37078 * t1530 + 0.12751277419167548965e1 * t37081 * t1530 + 0.87446194859244818738e0 * t16869 * t37085;
22017   t37089 = t9579 * t36806;
22018   t37119 = -0.15062248783813849042e1 * t4784 * t37089 + 0.63756387095837744823e0 * t2055 * t26812 - 0.84395584650891170840e0 * t20367 * t8507 + 0.11378729917768353994e1 * t6242 * t8538 - 0.12751277419167548965e1 * t8524 * t6233 + 0.714469352008581120e0 * t8451 * t6086 - 0.84395584650891170840e0 * t6225 * t26458 - 0.16468529812403272839e0 * t8439 * t6086 - 0.2202015477522235392e1 * t245 * t8447 * t2106 - 0.357234676004290560e0 * t2058 * t27055 + 0.461000314880e0 * t36850 * t250 - 0.2766001889280e1 * t6124 * t11382 - 0.11064007557120e2 * t36690 * t2045 - 0.84395584650891170840e0 * t26844 * t6110;
22019   t37137 = t1528 * t8534 * t566;
22020   t37144 = t6091 * t2848;
22021   t37156 = 0.11378729917768353994e1 * t8527 * t6113 + 0.58783429053584738202e0 * t20041 * t36720 - 0.75919974291285761083e-1 * t8499 * t6102 - 0.58783429053584738202e0 * t8499 * t6106 + 0.13549589651714352352e0 * t26342 * t8315 - 0.38906391098542524630e0 * t26633 * t6110 + 0.52455980750256876982e0 * t8499 * t6113 - 0.12751277419167548965e1 * t6116 * t37137 - 0.16468529812403272839e0 * t2055 * t26520 - 0.12751277419167548965e1 * t2055 * t26454 + 0.29391714526792369101e0 * t6090 * t37144 + 0.63756387095837744823e0 * t8345 * t2038 * t250 - 0.357234676004290560e0 * t1549 * t8364 * t2838 - 0.61023519165317445059e0 * t1540 * t36817 * t2066;
22022   t37160 = t8510 * t2061 * t2854;
22023   t37163 = t8530 * t792;
22024   t37164 = t6215 * t37163;
22025   t37183 = t4848 * t2061 * t2867;
22026   t37186 = t6221 * t37163;
22027   t37192 = t4785 * t8506 * t566;
22028   t37195 = 0.822756481972633600e0 * t575 * t36818 + 0.20722416937066287827e0 * t1527 * t37160 + 0.32937059624806545678e0 * t1527 * t37164 - 0.16468529812403272839e0 * t2055 * t26368 + 0.84395584650891170840e0 * t4838 * t11396 * t4839 - 0.2143408056025743360e1 * t8439 * t8476 + 0.1428938704017162240e1 * t2043 * t36562 - 0.89901964350980565762e0 * t8451 * t6283 + 0.26206649088979828343e1 * t575 * t36827 + 0.44950982175490282881e0 * t6060 * t8383 - 0.16468529812403272839e0 * t1527 * t37183 - 0.29391714526792369101e0 * t1527 * t37186 + 0.11378729917768353994e1 * t2055 * t26538 + 0.16879116930178234168e1 * t20072 * t37192;
22029   t37201 = t20089 * t2835;
22030   t37208 = t4785 * t36918;
22031   t37215 = t6091 * t2851;
22032   t37229 = 0.21799717097663792993e0 * t6225 * t26439 - 0.16879116930178234168e1 * t6225 * t26528 - 0.38906391098542524630e0 * t6090 * t37201 + 0.26233858457773445621e1 * t20203 * t26532 - 0.45186746351441547126e1 * t6225 * t26535 - 0.22757459835536707988e1 * t6116 * t37208 - 0.29391714526792369101e0 * t2055 * t26542 + 0.22757459835536707988e1 * t2055 * t26443 + 0.52455980750256876981e0 * t6090 * t37215 + 0.20307846858839536740e1 * t2055 * t26447 + 0.12751277419167548965e1 * t1549 * t11359 * t1550 + 0.29619233351014809600e2 * t575 * t36822 - 0.14809616675507404800e2 * t575 * t36831 - 0.17620679382074383663e2 * t575 * t36813;
22033   t37238 = t8534 * t8515;
22034   t37254 = t16790 * t11375;
22035   t37266 = t11400 * t238;
22036   t37269 = -0.357234676004290560e0 * t1549 * t2078 * t11324 + 0.44051698455185959158e1 * t9593 * t36990 + 0.44950982175490282881e0 * t8511 * t8534 * t6282 + 0.714469352008581120e0 * t6216 * t37238 + 0.47287857283434471985e0 * t6238 * t11338 * t8515 - 0.63756387095837744824e0 * t6222 * t37238 + 0.44950982175490282881e0 * t8511 * t2061 * t26727 - 0.357234676004290560e0 * t1549 * t2847 * t8464 + 0.2468269445917900800e1 * t575 * t36853 - 0.33837660950279469264e0 * t1533 * t37254 - 0.2202015477522235392e1 * t9700 * t36744 * t587 + 0.45165298839047841173e-1 * t36843 * t566 * t250 - 0.11756685810716947640e1 * t36824 * t238 * t2045 - 0.119078225334763520e0 * t37266 * t1535;
22037   t37274 = my_piecewise3(t235, 0, t36604 + t36647 + t36687 + t36725 + t36772 + t36891 + t36926 + t36966 + t37011 + t37050 + t37088 + t37119 + t37156 + t37195 + t37229 + t37269);
22038   t37275 = my_piecewise3(t234, 0, t37274);
22039   t37277 = t11298 * t593 + t11441 * t566 + 0.3e1 * t2038 * t2873 + 0.3e1 * t2112 * t2815 + t233 * t37275 + t252 * t36549 + 0.3e1 * t779 * t8545 + 0.3e1 * t798 * t8299;
22040   t37281 = t11444 * t262;
22041   t37294 = t4884 * t2118;
22042   t37309 = t1609 * t11443;
22043   t37324 = -t56 * t37277 * t266 / 0.100e3 - t37281 * t2528 / 0.60e2 - t27358 * t3201 / 0.20e2 + t2876 * t599 * t9798 / 0.36e2 - t8551 * t9801 / 0.20e2 - t2876 * t9804 * t2131 / 0.18e2 + 0.5e1 / 0.54e2 * t2880 * t37294 + 0.125e3 / 0.1458e4 * t11450 * t23731 * t2528 - 0.5e1 / 0.27e2 * t8562 * t13701 * t2118 - 0.125e3 / 0.2187e4 * t11450 * t20963 * t2528 + t604 * t37277 * t266 / 0.100e3 + t37309 * t2528 / 0.180e3 + t27337 * t3201 / 0.60e2 + t8570 * t9801 / 0.60e2 + t4897 * t11492 * t2131 / 0.108e3 + 0.5e1 / 0.162e3 * t8576 * t37294 + 0.25e2 / 0.4374e4 * t16979 * t11460 * t2528;
22044   t37354 = t11476 * t618;
22045   t37408 = -params->c1 * t37277 * t279 - 0.10e2 / 0.9e1 * t37354 * t2551 - 0.10e2 / 0.3e1 * t27158 * t3222 - 0.350e3 / 0.81e2 * t26061 * t9861 - 0.10e2 / 0.3e1 * t8600 * t9864 - 0.500e3 / 0.27e2 * t2901 * t1631 * t2118 - 0.10000e5 / 0.729e3 * t11480 * t345 * t1654 * t599 * t24 - 0.50000e5 / 0.6561e4 * t20784 * t11449 * t36 * t9860 - 0.2500e4 / 0.243e3 * t6363 * t2879 * t19 * t23 * t2118 - 0.100e3 / 0.81e2 * t614 * t1631 * t11489 - 0.500e3 / 0.27e2 * t2150 * t2172 * t8615 - 0.100e3 / 0.81e2 * t11487 * t31551 * t11488 - 0.100e3 / 0.81e2 * t11487 * t9859 * t22 * t8547 - 0.50e2 / 0.81e2 * t617 * t2557 * t8547 * t804 - 0.50e2 / 0.81e2 * t617 * t2557 * t2875 * t2118 - 0.50e2 / 0.81e2 * t617 * t2557 * t11443 * t599 - 0.5e1 / 0.9e1 * t961 * t962 * t37277;
22046   t37427 = t17049 * t2551;
22047   t37430 = t8631 * t8635;
22048   t37438 = t68 * t11510 * t599;
22049   t37463 = t1263 * t1654 * t11443;
22050   t37478 = -0.10000e5 / 0.729e3 * t449 * t4952 * t11449 * t37427 - 0.500e3 / 0.27e2 * t4942 * t37430 - 0.5000e4 / 0.243e3 * t1263 * t4965 * t11449 * t37427 - 0.50e2 / 0.9e1 * t20854 * t37438 - 0.10e2 / 0.3e1 * t6393 * t11511 - 0.50e2 / 0.9e1 * t20886 * t37438 - 0.10e2 / 0.3e1 * t2163 * t24 * t285 * t8547 - 0.500e3 / 0.27e2 * t4953 * t37430 - 0.5000e4 / 0.729e3 * t4017 * t17071 * t11449 * t37427 - 0.10e2 / 0.9e1 * t449 * t1630 * t11443 * t628 - t449 * t618 * t37277 * t285 - 0.5e1 / 0.9e1 * t37463 * t628 - 0.5e1 / 0.3e1 * t27207 * t826 - 0.5e1 / 0.3e1 * t8649 * t2169 - 0.25e2 / 0.27e2 * t27220 * t9907 - 0.250e3 / 0.81e2 * t4966 * t37430 - 0.1250e4 / 0.2187e4 * t14957 * t17089 * t11449 * t37427;
22051   t37479 = my_piecewise3(t277, t11499 * t283 * t623 + t11504 * t283 * t623 + 0.3e1 * t2158 * t283 * t2910 + 0.3e1 * t283 * t823 * t8622 + 0.3e1 * t11501 * t624 + 0.3e1 * t2158 * t2913 + t283 * t37408, t37478);
22052   t37482 = t510 * (0.27e2 / 0.160e3 * t346 * t526 * t194 - 0.243e3 / 0.2560e4 * t1054 * t1989 * t24 * sigma[2] * t194 + 0.24057e5 / 0.2048000e7 * t11262 * t8235 - 0.177147e6 / 0.81920000e8 * t14238 * t523 / t16369 * t194 + 0.6e1 * t2134 * t2890 + 0.6e1 * t811 * t8579 + 0.2e1 * t608 * t11464 + 0.2e1 * t269 * t37324) * t288 - t510 * t11467 * t631 + 0.6e1 * t1423 * t11470 * t611 - 0.3e1 * t510 * t8582 * t829 - 0.3e1 * t510 * t2893 * t2177 + 0.6e1 * t1423 * t11473 * t611 - 0.3e1 * t510 * t2137 * t2925 - 0.3e1 * t510 * t814 * t8657 - t510 * t611 * t11524 - t276 * t37479 + 0.1174e1 * t37479;
22053   t37496 = -0.16699162500000000000e2 * t5796 * t8169 - 0.18554625000000000000e1 * t5796 * t8174 + t36360 + 0.17034338633799234375e2 * t5041 * t1367 * t11572 - 0.12524371875000000000e2 * t5919 * t2938 - 0.3e1 / 0.8e1 * t8 * t175 * (t36442 + t37482) * t302 - t36315 + t36334 + t36348 - t36303 + 0.34068677267598468750e2 * t640 * t2947 * t1673 * t301 * t156 * t646 + 0.16699162500000000000e2 * t2186 * t8206;
22054   t37500 = t469 * t175 * t11527;
22055   t37527 = 0.1e1 / t1446;
22056   t37549 = 0.27831937500000000000e1 * t25973 * t840 - 0.24739500000000000000e1 * t37500 * t649 + 0.41747906250000000000e2 * t1376 * t36320 * t36321 * t503 + 0.31310929687500000000e2 * t2195 * t16294 * t11544 - 0.75578230455453280704e0 * t1686 * t4529 * t11554 * t177 * t301 - 0.87205650525523016199e-1 * t1686 * t17159 * t11556 - 0.67956985205760591732e2 * t1686 * t11565 * t177 * t1690 - 0.33978492602880295866e2 * t1686 * t634 * t11554 * t293 * t1690 - 0.92427972442890327423e2 * t1686 * t291 * t37527 * t202 * t16289 + 0.33398325000000000000e2 * t2195 * t2928 * t1673 * t19 * t2198 - 0.90609313607680788976e2 * t1686 * t2928 * t2208 * t177 * t1690 - 0.25048743750000000000e3 * t2195 * t19674 * t8139 + 0.69764520420418412959e0 * t1686 * t19679 * t8144;
22057   t37594 = 0.90609313607680788976e2 * t1686 * t11538 * t177 * t1690 + 0.33978492602880295866e2 * t1686 * t2180 * t2947 * t293 * t1690 - 0.13627470907039387500e3 * t2195 * t832 * t8157 * t8161 + 0.17034338633799234375e3 * t2195 * t27476 * t8161 + 0.22712451511732312500e2 * t16083 * t27476 * t17309 + 0.62621859375000000000e1 * t1668 * t11550 - 0.13915968750000000000e1 * t5919 * t2943 - 0.37109250000000000000e1 * t8185 * t2204 + 0.18554625000000000000e1 * t2186 * t8201 + 0.92773125000000000000e0 * t1376 * t644 * t11560 * t1409 + 0.83495812500000000000e1 * t1376 * t1675 * t11548 * t1409 + 0.37109250000000000000e1 * t25884 * t2190 + 0.14611767187500000000e3 * t640 * t17216 * t2935 * t518 * t301 * t156;
22058   t37619 = -0.45304656803840394488e2 * t4414 * t36349 * t5028 + t36307 - t36311 + 0.45304656803840394488e2 * t19561 * t8181 - t484 * t36297 * t504 / 0.2e1 + 0.69579843750000000000e0 * t1668 * t11562 - 0.11627420070069735493e0 * t4414 * t36335 * t36336 * t503 - 0.92773125000000000000e0 * t640 * t644 * t2947 * t646 * t301 - 0.83495812500000000000e1 * t640 * t1675 * t8157 * t512 * t301 - t36354 + t36319 + t36328 - t36342;
22059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22060     v4rhosigma3[19] = -t11531 + t11533 - t11535 - t11537 + t11542 + t11547 + t11552 - t11559 + t11564 - t11569 + t11575 + t10 * (t37496 + t37549 + t37594 + t37619);
22061 
22062   t37624 = t2399 * t847 * t11970;
22063   t37630 = 0.24739500000000000000e1 * t29703 * t745;
22064   t37638 = 0.55663875000000000000e1 * t6475 * t2758;
22065   t37671 = t681 * sigma[0];
22066   t37681 = 0.25e2 / 0.24e2 * t21172 * t8712 * t8722 - 0.25e2 / 0.108e3 * t21192 * t27667 * t1759 + 0.10e2 / 0.9e1 * t27676 * t8713 + 0.10e2 / 0.9e1 * t27902 * t8713 + 0.5e1 / 0.9e1 * t6580 * t2632 * t19 * t355 - 0.25e2 / 0.18e2 * t21172 * t2619 * t19 * t355 - t8777 * t68 * t77 * t1764 / 0.1728e4 - 0.5e1 / 0.3888e4 * t8721 * t10959 * t37671 + 0.5e1 / 0.18e2 * t27713 * t2973 + 0.5e1 / 0.18e2 * t27717 * t2973 + 0.5e1 / 0.18e2 * t8718 * t8774;
22067   t37692 = t1091 * t68;
22068   t37693 = t45 * t89;
22069   t37694 = t857 * t387;
22070   t37698 = t1091 * t2970;
22071   t37701 = t1091 * t3707;
22072   t37715 = t68 * t24102;
22073   t37716 = t377 * t37694;
22074   t37719 = -0.25e2 / 0.864e3 * t21265 * t11630 - 0.25e2 / 0.864e3 * t21244 * t11630 - 0.25e2 / 0.864e3 * t6535 * t21251 * t2598 - 0.125e3 / 0.972e3 * t21326 * t21327 * t7638 + t37692 * t37693 * t37694 / 0.5832e4 - t37698 * t8779 / 0.1728e4 + 0.25e2 / 0.576e3 * t37701 * t6536 * t2598 * t387 - 0.2e1 * t1737 * t8795 - 0.2e1 * t1737 * t8797 + t68 * t8732 * t1764 / 0.5184e4 - 0.2e1 * t5201 * t2971 + t37715 * t37716 / 0.5832e4;
22075   t37721 = t5203 * t377;
22076   t37743 = t1091 * t8717;
22077   t37750 = -t37721 * t8779 / 0.1728e4 + 0.5e1 / 0.18e2 * t27788 * t2973 + 0.5e1 / 0.18e2 * t27791 * t2973 + 0.5e1 / 0.18e2 * t8729 * t8774 - t27915 * t11625 / 0.1728e4 - t27918 * t11625 / 0.1728e4 + 0.10e2 / 0.9e1 * t8721 * t11602 * t1706 + 0.25e2 / 0.162e3 * t27796 * t8726 + 0.5e1 / 0.3456e4 * t27779 * t68 * t11624 * t387 - 0.5e1 / 0.12e2 * t37743 * t8723 - 0.5e1 / 0.12e2 * t27726 * t11603 - 0.5e1 / 0.12e2 * t27729 * t11603;
22078   t37751 = t2255 * t681;
22079   t37762 = t1737 * t8717;
22080   t37765 = t5203 * t1098;
22081   t37774 = t5203 * t676;
22082   t37783 = -0.5e1 / 0.12e2 * t8721 * t37751 * t654 - 0.5e1 / 0.12e2 * t8721 * t857 * t1764 * t654 - 0.25e2 / 0.139968e6 * t6535 * t32087 * t15098 - 0.20e2 / 0.27e2 * t37762 * t2252 - 0.5e1 / 0.12e2 * t37765 * t8723 + 0.25e2 / 0.162e3 * t27723 * t8726 - 0.5e1 / 0.15552e5 * t8740 * t11606 - 0.5e1 / 0.15552e5 * t8743 * t11606 + 0.3e1 * t37774 * t2245 + 0.3e1 / 0.2e1 * t6543 * t11637 + 0.3e1 / 0.2e1 * t6546 * t11637 + 0.3e1 * t8785 * t8782;
22083   t37794 = t5201 * t85;
22084   t37797 = t1737 * t378;
22085   t37812 = 0.3e1 * t8755 * t8782 + 0.3e1 * t27707 * t2967 + 0.3e1 * t27704 * t2967 + 0.3e1 * t8785 * t8763 + t37794 * t2979 / 0.2592e4 + t37797 * t2979 / 0.2592e4 + 0.5e1 / 0.5832e4 * t11647 * t8747 + 0.105e3 / 0.8e1 * t21210 * t2244 * t7669 - 0.15e2 / 0.2e1 * t6554 * t2244 * t7672 - 0.15e2 / 0.4e1 * t6554 * t6549 * t2619 - 0.13e2 / 0.15552e5 * t10941;
22086   t37823 = t376 * t345;
22087   t37825 = t857 * sigma[0];
22088   t37829 = t1086 * t676;
22089   t37832 = t376 * t1751;
22090   t37845 = t375 * t378 * t2244;
22091   t37848 = t11643 * t6549;
22092   t37851 = 0.5e1 / 0.10368e5 * t2243 * t8746 * t3566 * t387 - t1086 * t36 * t11614 / 0.8748e4 - t11613 * t2598 * t6549 / 0.8748e4 - 0.5e1 / 0.19683e5 * t37823 * t350 * t382 * t37825 + t37829 * t2979 / 0.2592e4 + t37832 * t2979 / 0.2592e4 + 0.5e1 / 0.5832e4 * t11617 * t8747 - 0.15e2 / 0.2e1 * t27776 * t8737 - 0.15e2 / 0.2e1 * t27710 * t8737 - 0.15e2 / 0.4e1 * t6554 * t2244 * t7677 - t2627 * t37845 / 0.8748e4 - t2627 * t37848 / 0.8748e4;
22093   t37854 = t1098 * t37825;
22094   t37881 = -0.5e1 / 0.19683e5 * t7696 * t375 * t37854 - 0.13e2 / 0.7776e4 * t11647 * t8750 + 0.4e1 / 0.6561e4 * t7700 * t11644 - 0.13e2 / 0.7776e4 * t11617 * t8750 + 0.4e1 / 0.6561e4 * t11613 * t1758 * t2244 - t12425 * t35138 / 0.3456e4 - 0.15e2 / 0.4e1 * t21215 * t11650 + 0.35e2 / 0.15552e5 * t2976 * t8746 * t659 - 0.15e2 / 0.4e1 * t21204 * t11650 + 0.3e1 / 0.2e1 * t6573 * t7672 + 0.3e1 / 0.4e1 * t6573 * t7677 - 0.15e2 / 0.8e1 * t21229 * t7669;
22095   t37911 = 0.3e1 * t27934 * t2967 + 0.3e1 * t27937 * t2967 + 0.3e1 * t8755 * t8763 + 0.3e1 / 0.4e1 * t21197 * t2619 - t6521 * t2632 / 0.2e1 - t2239 * t7710 / 0.2e1 - 0.20e2 / 0.27e2 * t8729 * t8767 + 0.13e2 / 0.5184e4 * t8777 * t68 * t45 * t681 - 0.20e2 / 0.27e2 * t8718 * t8767 + 0.25e2 / 0.162e3 * t6535 * t6536 * t1758 + 0.3e1 / 0.2e1 * t2243 * t6549 * t2632 + 0.3e1 / 0.2e1 * t2243 * t2244 * t7710;
22096   t37914 = t37681 + t37719 + t37750 + t37783 + t37812 + t37851 + t37881 + t37911;
22097   t37939 = t3856 * t8866 * t697;
22098   t37956 = t3011 * t3759;
22099   t37960 = -0.56263723100594113893e0 * t28206 * t5303 + 0.75858199451789026627e0 * t8859 * t5306 - 0.85008516127783659765e0 * t21779 * t11763 - 0.85008516127783659765e0 * t6725 * t35235 - 0.10979019874935515226e0 * t1136 * t37939 - 0.21252129031945914941e0 * t8883 * t7910 - 0.19834166657058243278e0 * t21924 * t7837 + 0.31525238188956314656e0 * t8886 * t7931 - 0.48997150734706182895e0 * t28964 * t7935 + 0.84395584650891170840e0 * t8886 * t7881 + 0.26741638969413672554e0 * t6717 * t7927 - 0.42504258063891829882e0 * t8883 * t7854 + 0.37937585739830728829e1 * t8899 * t37956 * t8851;
22100   t37967 = t2653 * t411;
22101   t37986 = t2290 * t7759;
22102   t37993 = 0.15762619094478157329e0 * t5504 * t6656 * t35695 + 0.18968792869915364414e1 * t8899 * t8900 * t35535 - 0.48997150734706182896e0 * t18264 * t8900 * t37967 + 0.13814944624710858551e0 * t8813 * t5495 - 0.50613316194190507389e-1 * t28949 * t699 + 0.10979019874935515226e0 * t7797 * t6664 - 0.12751277419167548965e1 * t22028 * t2639 * t112 - 0.238156450669527040e0 * t28065 * t1814 + 0.238156450669527040e0 * t8883 * t7878 - 0.54895099374677576130e-1 * t7729 * t6671 + 0.17001703225556731953e1 * t24964 * t37986 + 0.21958039749871030452e0 * t24214 * t28198 - 0.56263723100594113894e0 * t5399 * t28189;
22103   t37996 = t3856 * t2279 * t2687;
22104   t37999 = t8866 * t689;
22105   t38000 = t3840 * t37999;
22106   t38019 = t873 * t2687;
22107   t38028 = -0.54895099374677576130e-1 * t1136 * t37996 - 0.85008516127783659766e0 * t1136 * t38000 - 0.56263723100594113894e0 * t5399 * t28193 + 0.75858199451789026628e0 * t5508 * t8917 + 0.75858199451789026628e0 * t1784 * t28185 + 0.75858199451789026628e0 * t1784 * t28175 + 0.2766001889280e1 * t21741 * t11829 - 0.10979019874935515226e0 * t8859 * t5295 - 0.85008516127783659764e0 * t8859 * t5299 + 0.19594476351194912734e0 * t29160 * t7767 - 0.734005159174078464e0 * t9046 * t38019 * t411 + 0.42504258063891829882e0 * t5508 * t8867 + 0.31525238188956314658e0 * t5504 * t12612 * t8845;
22108   t38029 = t12612 * t8851;
22109   t38051 = t11832 * t411;
22110   t38052 = t2279 * t38051;
22111   t38055 = t11832 * t402;
22112   t38056 = t2279 * t38055;
22113   t38059 = t6656 * t38055;
22114   t38062 = 0.73228222998380934071e1 * t8850 * t38029 - 0.85008516127783659765e0 * t6725 * t8808 * t1808 + 0.19594476351194912734e0 * t28417 * t7767 + 0.19594476351194912734e0 * t29168 * t7767 + 0.19594476351194912734e0 * t8813 * t24335 - 0.10979019874935515226e0 * t6696 * t7851 - 0.10979019874935515226e0 * t2273 * t24360 - 0.10979019874935515226e0 * t2273 * t24237 + 0.85008516127783659764e0 * t6725 * t35438 + 0.238156450669527040e0 * t7738 * t6671 - 0.59934642900653710508e0 * t17987 * t38052 - 0.1428938704017162240e1 * t5394 * t38056 - 0.18915142913373788794e1 * t18106 * t38059;
22115   t38073 = t2639 * t100;
22116   t38074 = t6615 * t38073;
22117   t38081 = t684 * t401;
22118   t38094 = t684 * t1151;
22119   t38101 = 0.25502554838335097930e1 * t18277 * t38056 + 0.53483277938827345108e0 * t18102 * t38052 - 0.54895099374677576130e-1 * t7800 * t6664 - 0.54895099374677576130e-1 * t2273 * t24397 + 0.45165298839047841173e-1 * t38074 * t5320 + 0.34970653833504584655e0 * t28076 * t5306 + 0.21958039749871030452e0 * t21590 * t35754 + 0.25502554838335097930e1 * t28083 * t38081 * t7759 + 0.21958039749871030452e0 * t21590 * t38081 * t5294 + 0.17001703225556731953e1 * t28243 * t684 * t1164 * t5298 - 0.11756685810716947640e1 * t28153 * t11763 + 0.11252744620118822779e1 * t28246 * t38094 * t5302 - 0.15171639890357805326e1 * t28243 * t38094 * t5298;
22120   t38106 = t398 * t3038;
22121   t38128 = t6656 * t2653;
22122   t38129 = t8849 * t38128;
22123   t38134 = 0.14533144731775861995e0 * t24219 * t28914 - 0.19594476351194912734e0 * t24214 * t28917 + 0.476312901339054080e0 * t38106 * t1803 + 0.31525238188956314657e0 * t1148 * t3038 * t1796 - 0.42504258063891829883e0 * t38106 * t1811 + 0.14983660725163427627e0 * t6717 * t7873 + 0.45165298839047841173e-1 * t24421 * t8929 - 0.12968797032847508210e0 * t24906 * t6658 + 0.17485326916752292327e0 * t7803 * t6661 - 0.39668333314116486558e0 * t18098 * t6656 * t38051 - 0.97994301469412365794e0 * t18264 * t8900 * t38055 + 0.16879116930178234169e1 * t3861 * t38129 - 0.85008516127783659764e0 * t28223 * t7760;
22124   t38163 = 0.31525238188956314657e0 * t5504 * t12612 * t7784 + 0.72665723658879309976e-1 * t6689 * t24241 + 0.16879116930178234168e1 * t6689 * t24245 - 0.56263723100594113894e0 * t6689 * t24525 - 0.12968797032847508210e0 * t6720 * t35401 + 0.87446194859244818739e0 * t21710 * t24529 - 0.15062248783813849042e1 * t6689 * t24356 - 0.75858199451789026628e0 * t6725 * t35409 - 0.97972381755974563671e-1 * t2273 * t24382 - 0.22757459835536707989e1 * t2273 * t24345 + 0.75858199451789026628e0 * t2273 * t24386 + 0.17485326916752292327e0 * t6720 * t35366 - 0.25306658097095253694e-1 * t7803 * t6664;
22125   t38173 = t686 * t1149;
22126   t38176 = t2283 * t7759;
22127   t38188 = t865 * t2666;
22128   t38189 = t38188 * t1159;
22129   t38192 = t38188 * t1795;
22130   t38195 = t38188 * t1138;
22131   t38198 = -0.42504258063891829882e0 * t6696 * t7794 + 0.14533144731775861995e0 * t24219 * t28125 - 0.25937594065695016420e0 * t24856 * t8937 + 0.17489238971848963748e1 * t686 * t3755 * t28904 - 0.30124497567627698085e1 * t38173 * t29015 - 0.15171639890357805326e1 * t24964 * t38176 - 0.19594476351194912734e0 * t24214 * t29046 - 0.19594476351194912734e0 * t24214 * t28899 + 0.21958039749871030452e0 * t21590 * t11823 * t404 - 0.50613316194190507389e-1 * t28076 * t5309 - 0.21252129031945914941e0 * t5394 * t38189 - 0.32672968537417605163e1 * t8904 * t38192 + 0.14683899485061986386e1 * t8877 * t38195;
22132   t38202 = t865 * t2653;
22133   t38203 = t38202 * t1159;
22134   t38206 = t8870 * t5498;
22135   t38209 = t38202 * t1795;
22136   t38212 = t38202 * t1138;
22137   t38215 = t2309 * t7938;
22138   t38223 = t38202 * t104;
22139   t38224 = t8849 * t38223;
22140   t38229 = t2305 * t7759;
22141   t38238 = -0.37929099725894513314e0 * t18063 * t38203 + 0.29367798970123972772e1 * t8877 * t38206 - 0.13606156761889987933e2 * t28735 * t38209 + 0.26206649088979828343e1 * t28739 * t38212 - 0.59934642900653710508e0 * t24303 * t38215 + 0.29967321450326855254e0 * t28823 * t1818 - 0.1428938704017162240e1 * t28346 * t28347 * t7938 - 0.22757459835536707989e1 * t1136 * t38224 - 0.10979019874935515226e0 * t5508 * t8922 + 0.21958039749871030452e0 * t18251 * t38229 + 0.13814944624710858551e0 * t25028 * t28890 + 0.21958039749871030452e0 * t24214 * t28893 - 0.50613316194190507389e-1 * t18378 * t8922;
22142   t38245 = t686 * t399;
22143   t38248 = t2290 * t7850;
22144   t38251 = t2283 * t7850;
22145   t38254 = t2305 * t7850;
22146   t38257 = t866 * t35753;
22147   t38270 = 0.14533144731775861995e0 * t24219 * t28896 - 0.50613316194190507389e-1 * t18378 * t8941 + 0.34970653833504584655e0 * t18378 * t8917 + 0.13538564572559691160e1 * t38245 * t9085 + 0.21958039749871030452e0 * t18010 * t38248 - 0.19594476351194912734e0 * t18010 * t38251 + 0.13814944624710858551e0 * t18381 * t38254 + 0.21958039749871030452e0 * t18251 * t38257 + 0.13814944624710858551e0 * t25028 * t28907 + 0.21958039749871030452e0 * t24214 * t28911 + 0.25502554838335097930e1 * t38245 * t9074 - 0.39188952702389825468e0 * t18378 * t8947 + 0.33758233860356468337e1 * t38173 * t28129;
22148   t38275 = t2283 * t3001 * t390;
22149   t38278 = t28427 * t2658;
22150   t38281 = t28433 * t2658;
22151   t38284 = t8870 * t7831;
22152   t38290 = t10254 * t11027;
22153   t38293 = t8866 * t8845;
22154   t38296 = t8866 * t8851;
22155   t38303 = t874 * t2663;
22156   t38307 = t7821 * t2279 * t2674;
22157   t38310 = -0.45514919671073415977e1 * t38245 * t9077 + 0.11252744620118822779e1 * t24969 * t38275 - 0.42504258063891829882e0 * t5394 * t38278 - 0.42504258063891829882e0 * t5394 * t38281 - 0.42504258063891829882e0 * t5394 * t38284 + 0.15762619094478157328e0 * t5504 * t6656 * t35898 - 0.21252129031945914941e0 * t5394 * t38290 + 0.476312901339054080e0 * t5388 * t38293 + 0.5532003778560e1 * t8893 * t38296 - 0.39668333314116486558e0 * t21924 * t25032 + 0.53483277938827345109e0 * t6717 * t25035 + 0.10979019874935515226e0 * t1136 * t38303 + 0.69074723123554292755e-1 * t1136 * t38307;
22158   t38311 = t2279 * t2666;
22159   t38312 = t3840 * t38311;
22160   t38320 = t10254 * t11019;
22161   t38341 = -0.42504258063891829883e0 * t1136 * t38312 + 0.14983660725163427627e0 * t6717 * t7948 - 0.19834166657058243279e0 * t18098 * t6656 * t35808 + 0.26741638969413672554e0 * t18102 * t38320 + 0.476312901339054080e0 * t5388 * t38278 + 0.476312901339054080e0 * t5388 * t38284 + 0.476312901339054080e0 * t5388 * t38281 + 0.67692822862798455802e0 * t2273 * t24537 - 0.42504258063891829882e0 * t24368 * t8913 - 0.54895099374677576129e-1 * t7800 * t6668 - 0.42504258063891829882e0 * t7800 * t6653 + 0.97972381755974563669e-1 * t24429 * t8929 - 0.28131861550297056947e0 * t24982 * t6658;
22162   t38347 = t1137 * t8866 * t390;
22163   t38355 = t28180 * t2658;
22164   t38366 = t3037 * t697;
22165   t38370 = t8999 * t8812;
22166   t38374 = t2269 * t2635 * t100;
22167   t38377 = t3862 * t37999;
22168   t38380 = t3862 * t38311;
22169   t38383 = 0.37929099725894513314e0 * t7800 * t6661 - 0.85008516127783659764e0 * t5312 * t38347 - 0.10979019874935515226e0 * t1784 * t29171 - 0.1468010318348156928e1 * t9046 * t9027 * t1835 - 0.42504258063891829883e0 * t5394 * t38355 + 0.14983660725163427627e0 * t7822 * t2279 * t24496 + 0.238156450669527040e0 * t5388 * t38290 + 0.42504258063891829882e0 * t8999 * t1767 * t112 - 0.1468010318348156928e1 * t9046 * t38366 * t411 + 0.19594476351194912734e0 * t38370 * t5320 + 0.97972381755974563669e-1 * t38374 * t5320 + 0.75858199451789026629e0 * t1136 * t38377 + 0.37929099725894513314e0 * t1136 * t38380;
22170   t38384 = t8876 * t38223;
22171   t38387 = t689 * t1806;
22172   t38388 = t6656 * t38387;
22173   t38416 = 0.67692822862798455803e0 * t1136 * t38384 - 0.65345937074835210326e1 * t8904 * t38388 + 0.29967321450326855254e0 * t7822 * t8866 * t5494 + 0.476312901339054080e0 * t5388 * t38355 - 0.10979019874935515226e0 * t1784 * t28093 + 0.29367798970123972772e1 * t8877 * t38296 + 0.15762619094478157328e0 * t8886 * t7922 + 0.42504258063891829882e0 * t1784 * t29009 + 0.97972381755974563669e-1 * t7803 * t6742 + 0.31525238188956314657e0 * t5504 * t10101 * t11832 + 0.31525238188956314657e0 * t5504 * t6656 * t35614 - 0.28131861550297056947e0 * t21707 * t7818 + 0.37929099725894513314e0 * t6696 * t7810;
22174   t38432 = t5319 * t3013;
22175   t38443 = t1137 * t2279 * t1767;
22176   t38448 = 0.21252129031945914941e0 * t24290 * t2280 + 0.21252129031945914941e0 * t7800 * t6742 - 0.714469352008581120e0 * t5394 * t38203 - 0.11064007557120e2 * t8896 * t38212 + 0.5532003778560e1 * t8893 * t38206 - 0.21968466899514280222e2 * t8904 * t38209 - 0.119078225334763520e0 * t2276 * t24593 + 0.19594476351194912734e0 * t5318 * t38432 - 0.56263723100594113893e0 * t5399 * t28412 + 0.75858199451789026627e0 * t1784 * t28182 - 0.58783429053584738202e0 * t7741 * t398 * t8913 + 0.19594476351194912734e0 * t17743 * t38443 - 0.25306658097095253694e-1 * t7803 * t6668;
22177   t38467 = t6656 * t37967;
22178   t38481 = -0.19594476351194912734e0 * t7803 * t6653 + 0.13814944624710858551e0 * t28070 * t25018 + 0.21958039749871030452e0 * t28255 * t25022 - 0.50613316194190507389e-1 * t21587 * t7851 + 0.14533144731775861995e0 * t28479 * t25032 - 0.67675321900558938528e0 * t21929 * t25018 - 0.59934642900653710508e0 * t6717 * t25022 + 0.31525238188956314657e0 * t5504 * t6656 * t689 * t1835 - 0.94575714566868943973e0 * t18106 * t38467 + 0.14983660725163427627e0 * t6800 * t7778 + 0.325024956416e0 * t107 * t2309 * t7914 + 0.476312901339054080e0 * t2263 * t1143 * t684 * t1835 - 0.10979019874935515226e0 * t8969 * t699;
22179   t38486 = t6602 * t684;
22180   t38505 = t1143 * t11697;
22181   t38508 = t21368 * t7793;
22182   t38512 = t3862 * t12612 * t689;
22183   t38516 = t3862 * t6656 * t2666;
22184   t38520 = t8876 * t8900 * t2653;
22185   t38523 = -0.25502554838335097930e1 * t38486 * t25092 + 0.32937059624806545679e0 * t11738 * t413 - 0.11756685810716947640e1 * t21815 * t2639 * t9122 - 0.238156450669527040e0 * t9017 * t5434 + 0.325024956416e0 * t107 * t6735 * t2687 - 0.37929099725894513314e0 * t8883 * t7858 - 0.42504258063891829883e0 * t5394 * t38293 - 0.9873077783671603200e1 * t8896 * t38296 - 0.119078225334763520e0 * t1142 * t38505 + 0.14683899485061986386e1 * t399 * t38508 - 0.56263723100594113896e0 * t3861 * t38512 - 0.28131861550297056947e0 * t3861 * t38516 + 0.87446194859244818738e0 * t14682 * t38520;
22186   t38524 = t8876 * t38128;
22187   t38530 = t1132 * t11653;
22188   t38534 = t1151 * t11687;
22189   t38535 = t38534 * t1138;
22190   t38562 = -0.15062248783813849042e1 * t3861 * t38524 - 0.734005159174078464e0 * t107 * t21684 * t2674 + 0.21252129031945914941e0 * t38530 * t390 * t112 + 0.822756481972633600e0 * t399 * t38535 - 0.61023519165317445059e0 * t1149 * t38534 * t1795 - 0.21252129031945914941e0 * t1158 * t21565 * t7793 + 0.18968792869915364414e1 * t3755 * t21368 * t11782 - 0.32672968537417605163e1 * t1149 * t21368 * t7817 - 0.238156450669527040e0 * t1158 * t8829 * t2658 - 0.1844001259520e1 * t28786 * t2986 - 0.119078225334763520e0 * t1158 * t2305 * t24487 - 0.119078225334763520e0 * t7735 * t6671 + 0.476312901339054080e0 * t9043 * t8989;
22191   t38564 = t873 * t2674;
22192   t38565 = t14496 * t38564;
22193   t38570 = t2283 * t24487;
22194   t38581 = t11670 * t100;
22195   t38591 = t2269 * t8812 * t1147;
22196   t38596 = t6632 * t7793;
22197   t38599 = -0.33837660950279469264e0 * t1142 * t38565 + 0.76507664515005293790e1 * t11717 * t9122 + 0.822756481972633600e0 * t399 * t38570 - 0.238156450669527040e0 * t1158 * t9096 * t5498 + 0.97972381755974563669e-1 * t21866 * t2639 * t112 - 0.1844001259520e1 * t9043 * t7944 - 0.119078225334763520e0 * t38581 * t1144 - 0.50613316194190507388e-1 * t28076 * t5295 - 0.39188952702389825468e0 * t28076 * t5299 + 0.90330597678095682346e-1 * t28080 * t7767 - 0.25937594065695016420e0 * t38591 * t5303 + 0.29967321450326855254e0 * t5291 * t9028 + 0.2766001889280e1 * t399 * t38596;
22198   t38600 = t1123 * t11653;
22199   t38601 = t38600 * t100;
22200   t38628 = -0.922000629760e0 * t38601 * t1774 - 0.65345937074835210328e1 * t8904 * t38029 - 0.10979019874935515226e0 * t1784 * t28282 - 0.85008516127783659764e0 * t1784 * t28285 + 0.56263723100594113893e0 * t25060 * t6658 - 0.75858199451789026627e0 * t7797 * t6661 - 0.10979019874935515226e0 * t5508 * t8941 - 0.10979019874935515226e0 * t1784 * t28022 - 0.10979019874935515226e0 * t1784 * t28026 - 0.85008516127783659765e0 * t5508 * t8947 - 0.85008516127783659765e0 * t1784 * t28168 - 0.85008516127783659765e0 * t1784 * t28172 - 0.56263723100594113894e0 * t17996 * t8937;
22201   t38647 = t3862 * t38223;
22202   t38660 = 0.29967321450326855254e0 * t1787 * t28936 + 0.14983660725163427627e0 * t3771 * t2295 * t11019 - 0.54895099374677576130e-1 * t2270 * t2689 + 0.29967321450326855254e0 * t1787 * t28939 + 0.238156450669527040e0 * t1158 * t21551 * t7793 + 0.16879116930178234168e1 * t18077 * t38059 - 0.75858199451789026627e0 * t18063 * t38056 + 0.12751277419167548965e1 * t1136 * t38647 - 0.42504258063891829882e0 * t6725 * t35249 - 0.54895099374677576129e-1 * t2273 * t24349 - 0.42504258063891829882e0 * t2273 * t24353 + 0.97972381755974563669e-1 * t6720 * t35375 - 0.28131861550297056947e0 * t6689 * t24375;
22203   t38663 = t6620 * t7806;
22204   t38671 = t11670 * t398;
22205   t38695 = 0.37929099725894513314e0 * t2273 * t24378 - 0.922000629760e0 * t399 * t38663 - 0.10979019874935515226e0 * t9050 * t699 + 0.29967321450326855254e0 * t7822 * t2279 * t24795 + 0.21252129031945914941e0 * t38671 * t1139 + 0.29967321450326855254e0 * t28823 * t1799 + 0.42504258063891829882e0 * t8859 * t5499 - 0.12204703833063489012e1 * t1149 * t28407 * t3001 - 0.61023519165317445059e0 * t1149 * t2283 * t35599 + 0.15762619094478157328e0 * t3793 * t21565 * t7817 - 0.61023519165317445059e0 * t1149 * t6632 * t11009 - 0.25502554838335097930e1 * t28622 * t390 * t8993 + 0.2766001889280e1 * t6728 * t35777;
22206   t38700 = t1177 * t11697;
22207   t38716 = t8965 * t5498;
22208   t38719 = t28407 * t1790;
22209   t38730 = -0.119078225334763520e0 * t1158 * t866 * t35663 + 0.325024956416e0 * t107 * t38700 * t411 + 0.21252129031945914941e0 * t2269 * t7713 * t112 + 0.19594476351194912734e0 * t28639 * t684 * t9122 + 0.238156450669527040e0 * t2263 * t35584 + 0.14983660725163427627e0 * t2276 * t24497 - 0.10979019874935515226e0 * t11723 * t413 - 0.1844001259520e1 * t399 * t38716 + 0.1645512963945267200e1 * t399 * t38719 + 0.5532003778560e1 * t28724 * t9110 - 0.33837660950279469264e0 * t2276 * t24790 + 0.29967321450326855254e0 * t2276 * t24796 + 0.69074723123554292755e-1 * t2270 * t2676;
22210   t38743 = t1143 * t873 * t1767;
22211   t38750 = t3802 * t38366;
22212   t38767 = -0.922000629760e0 * t6794 * t10987 + 0.21252129031945914941e0 * t6610 * t2635 * t112 + 0.476312901339054080e0 * t9043 * t7939 - 0.10979019874935515226e0 * t1781 * t3039 + 0.32937059624806545678e0 * t24410 * t9007 - 0.10979019874935515226e0 * t5441 * t38743 + 0.69074723123554292755e-1 * t7729 * t6751 - 0.25306658097095253694e-1 * t7746 * t875 + 0.29967321450326855254e0 * t1142 * t38750 - 0.11064007557120e2 * t21746 * t1773 * t2639 * t390 - 0.714469352008581120e0 * t6728 * t1143 * t2639 * t411 + 0.5532003778560e1 * t6728 * t1773 * t684 * t1767 + 0.476312901339054080e0 * t6794 * t11824;
22213   t38771 = t8974 * t5498;
22214   t38774 = t6632 * t7806;
22215   t38781 = t107 * t35486;
22216   t38801 = 0.1645512963945267200e1 * t399 * t38771 + 0.822756481972633600e0 * t399 * t38774 - 0.10979019874935515226e0 * t9000 * t699 + 0.238156450669527040e0 * t2263 * t35784 - 0.12751277419167548965e1 * t8992 * t38781 + 0.42504258063891829882e0 * t28387 * t684 * t112 - 0.238156450669527040e0 * t1787 * t29051 - 0.33837660950279469264e0 * t21929 * t7919 - 0.4936538891835801600e1 * t8896 * t38195 + 0.12751277419167548965e1 * t18277 * t38203 + 0.29619233351014809600e2 * t8877 * t38212 - 0.9873077783671603200e1 * t8896 * t38206 + 0.39207562244901126197e2 * t29071 * t38209;
22217   t38811 = t1164 * t11687;
22218   t38812 = t38811 * t1138;
22219   t38828 = t6602 * t38073;
22220   t38835 = -0.17620679382074383663e2 * t28591 * t38212 - 0.119078225334763520e0 * t6800 * t7781 - 0.19594476351194912734e0 * t28255 * t25035 + 0.23916119461575365556e1 * t28844 * t38564 * t411 - 0.922000629760e0 * t399 * t38812 + 0.45165298839047841173e-1 * t21871 * t2639 * t9122 + 0.97972381755974563669e-1 * t6615 * t2635 * t9122 - 0.119078225334763520e0 * t1158 * t11688 * t1159 - 0.119078225334763520e0 * t24961 * t2302 + 0.56263723100594113894e0 * t21787 * t35394 - 0.58783429053584738203e0 * t38828 * t5320 + 0.10979019874935515226e0 * t2273 * t24540 + 0.12751277419167548965e1 * t2273 * t24543;
22221   t38850 = -t401 * t37914 * t104;
22222   t38861 = t111 * t2639;
22223   t38867 = t2290 * t24487;
22224   t38870 = -0.85008516127783659764e0 * t2273 * t24546 - 0.19594476351194912734e0 * t6720 * t35472 - 0.85008516127783659766e0 * t28223 * t8809 - 0.42504258063891829883e0 * t6725 * t35487 + 0.36614111499190467036e1 * t1149 * t21857 * t7817 + 0.461000314880e0 * t399 * t38850 + 0.12751277419167548965e1 * t7803 * t8913 - 0.85008516127783659764e0 * t5312 * t38443 + 0.10979019874935515226e0 * t7797 * t6668 + 0.85008516127783659764e0 * t7797 * t6653 + 0.12751277419167548965e1 * t21416 * t38861 * t404 + 0.69074723123554292755e-1 * t2273 * t24324 - 0.922000629760e0 * t399 * t38867;
22225   t38871 = t11697 * t401;
22226   t38887 = t3038 * t691;
22227   t38890 = t874 * t2668;
22228   t38893 = t874 * t2655;
22229   t38896 = t874 * t2671;
22230   t38903 = -0.119078225334763520e0 * t1158 * t38871 * t1138 + 0.13814944624710858551e0 * t25028 * t29043 - 0.238156450669527040e0 * t5291 * t8953 + 0.21252129031945914941e0 * t6696 * t7807 + 0.21252129031945914941e0 * t2273 * t24488 + 0.29967321450326855254e0 * t9017 * t5495 - 0.922000629760e0 * t2263 * t35637 - 0.10979019874935515226e0 * t1136 * t38887 - 0.54895099374677576130e-1 * t1136 * t38890 + 0.72665723658879309975e-1 * t3861 * t38893 - 0.97972381755974563669e-1 * t1136 * t38896 + 0.19594476351194912734e0 * t9121 * t25092 - 0.25306658097095253694e-1 * t11717 * t413;
22231   t38909 = t1143 * t3037 * t390;
22232   t38938 = t11661 * t390;
22233   t38951 = t28668 * t1790;
22234   t38959 = 0.5684735615810048000e1 * t21866 * t11661 - 0.19111352870400e2 * t6623 * t24352 + 0.21416640e2 * t8999 * t9053 - 0.42833280e2 * t6602 * t38938 - 0.38222705740800e2 * t6623 * t24385 + 0.10145661348248508867e2 * t21384 * t24344 + 0.114668117222400e3 * t6615 * t38938 + 0.21416640e2 * t8974 * t5298 + 0.3185225478400e1 * t2269 * t35275 - 0.7138880e1 * t38951 - 0.42833280e2 * t6623 * t24344 + 0.21416640e2 * t2283 * t24385 + 0.5684735615810048000e1 * t6615 * t35302;
22235   t38972 = t21857 * t7793;
22236   t38978 = t393 * t37914;
22237   t38984 = 0.3185225478400e1 * t38774 + 0.6370450956800e1 * t28387 * t3027 - 0.7138880e1 * t28632 * t3027 + 0.3185225478400e1 * t38530 * t1825 - 0.3569440e1 * t38867 + 0.3185225478400e1 * t38535 + 0.5684735615810048000e1 * t38508 + 0.10145661348248508867e2 * t21871 * t38938 - 0.19111352870400e2 * t38972 + 0.11369471231620096000e2 * t28639 * t9053 + 0.10708320e2 * t2283 * t24352 + 0.1784720e1 * t38978 * t109 - 0.7138880e1 * t38716 - 0.38222705740800e2 * t28651 * t5298;
22238   t39007 = -0.19111352870400e2 * t22028 * t11661 + 0.11369471231620096000e2 * t6637 * t24385 - 0.7138880e1 * t9042 * t7889 + 0.11369471231620096000e2 * t28468 * t5298 + 0.114668117222400e3 * t6637 * t24344 - 0.3569440e1 * t38663 - 0.68216827389720576000e2 * t21375 * t24344 + 0.3185225478400e1 * t38570 + 0.6370450956800e1 * t38719 + 0.1784720e1 * t38850 + 0.5684735615810048000e1 * t6637 * t24352 + 0.6370450956800e1 * t38771 - 0.19111352870400e2 * t6602 * t35302;
22239   t39020 = t3027 * t1767;
22240   t39035 = -0.3569440e1 * t38812 - 0.3569440e1 * t2262 * t35275 + 0.10708320e2 * t38596 + 0.3185225478400e1 * t6610 * t11069 - 0.3569440e1 * t6599 * t11069 + 0.6370450956800e1 * t8999 * t7889 + 0.10708320e2 * t6610 * t11661 + 0.11369471231620096000e2 * t6615 * t39020 - 0.38222705740800e2 * t6602 * t39020 - 0.38222705740800e2 * t28622 * t9053 + 0.10708320e2 * t2269 * t35302 + 0.21416640e2 * t2269 * t39020 - 0.68216827389720576000e2 * t21815 * t38938 - 0.3569440e1 * t38600 * t1825;
22241   t39043 = -0.54895099374677576130e-1 * t7754 * t875 + 0.476312901339054080e0 * t1772 * t38909 + 0.29967321450326855254e0 * t1787 * t28834 - 0.29967321450326855254e0 * t6717 * t7861 - 0.714469352008581120e0 * t8883 * t7864 + 0.476312901339054080e0 * t8883 * t7867 - 0.94575714566868943969e0 * t8886 * t7841 + 0.12751277419167548965e1 * t8883 * t7870 - 0.33837660950279469264e0 * t24603 * t2279 * t24789 - 0.29967321450326855254e0 * t17987 * t38320 - 0.119078225334763520e0 * t1158 * t6754 * t7806 - 0.258304e0 * t107 * t407 * (t38959 + t38984 + t39007 + t39035) - 0.4936538891835801600e1 * t399 * t38972;
22242   t39045 = t2283 * t3001 * t697;
22243   t39052 = t6602 * t5317;
22244   t39079 = 0.14533144731775861995e0 * t18014 * t39045 - 0.59934642900653710508e0 * t28531 * t1177 * t684 * t5494 + 0.65874119249613091356e0 * t39052 * t11824 - 0.67675321900558938528e0 * t686 * t107 * t28526 + 0.13814944624710858551e0 * t5318 * t9028 + 0.238156450669527040e0 * t5388 * t38189 + 0.2766001889280e1 * t8893 * t38195 + 0.36614111499190467036e1 * t8850 * t38192 - 0.12204703833063489012e1 * t1149 * t8974 * t7930 + 0.461000314880e0 * t38978 * t112 - 0.42504258063891829882e0 * t7797 * t6742 + 0.650049912832e0 * t107 * t28060 * t697 - 0.238156450669527040e0 * t1158 * t28826 * t1790;
22245   t39081 = t11687 * t104;
22246   t39082 = t1137 * t39081;
22247   t39095 = t3802 * t38019;
22248   t39110 = 0.21252129031945914941e0 * t1136 * t39082 + 0.29967321450326855254e0 * t21839 * t2659 + 0.29967321450326855254e0 * t6717 * t7828 + 0.29967321450326855254e0 * t6717 * t7832 - 0.1844001259520e1 * t399 * t38951 + 0.476312901339054080e0 * t2263 * t35530 + 0.14983660725163427627e0 * t1142 * t39095 + 0.238156450669527040e0 * t7722 * t9007 + 0.14983660725163427627e0 * t7735 * t6751 - 0.714469352008581120e0 * t7729 * t9007 + 0.476312901339054080e0 * t1772 * t38743 - 0.29967321450326855254e0 * t7738 * t6751 - 0.54895099374677576129e-1 * t11720 * t413;
22249   t39122 = t8900 * t24343;
22250   t39145 = -0.238156450669527040e0 * t1158 * t3012 * t7831 - 0.119078225334763520e0 * t1158 * t2295 * t11027 + 0.650049912832e0 * t107 * t9100 * t1835 + 0.73228222998380934072e1 * t8850 * t38388 - 0.22762551443898437297e2 * t28819 * t39122 + 0.42504258063891829882e0 * t28942 * t1791 + 0.37937585739830728828e1 * t8899 * t8900 * t38387 - 0.92817332546461565657e1 * t29077 * t29078 * t24343 + 0.20312390406477209506e2 * t29082 * t39122 + 0.84395584650891170840e0 * t18077 * t38467 - 0.10979019874935515226e0 * t2992 * t1837 - 0.29967321450326855254e0 * t2263 * t35681 - 0.10979019874935515226e0 * t1784 * t28096 - 0.10979019874935515226e0 * t8859 * t5309;
22251   t39151 = my_piecewise3(t97, 0, t39145 + t39110 + t39079 + t39043 + t38903 + t38870 + t38835 + t38801 + t38767 + t38730 + t38695 + t38660 + t38628 + t38599 + t38562 + t38523 + t38481 + t38448 + t38416 + t38383 + t38341 + t38310 + t38270 + t38238 + t38198 + t38163 + t38134 + t38101 + t38062 + t38028 + t37993 + t37960);
22252   t39152 = my_piecewise3(t96, 0, t39151);
22253   t39154 = -t114 * t37914 - t11653 * t417 - t11863 * t390 - 0.2e1 * t1767 * t3043 - 0.2e1 * t1841 * t2982 - t2258 * t2693 - t2328 * t2635 - t39152 * t95 - 0.2e1 * t684 * t9130 - 0.2e1 * t703 * t8800 - t7713 * t879 - t7959 * t860;
22254   t39167 = t881 * t2699;
22255   t39184 = t2330 * t2695;
22256   t39190 = t881 * t7961;
22257   t39194 = t11912 * t442;
22258   t39197 = 0.100e3 / 0.81e2 * t11921 * t21152 + 0.5e1 / 0.9e1 * t895 * t896 * t39154 + 0.500e3 / 0.27e2 * t24058 * t2385 * t423 + 0.10e2 / 0.9e1 * t9212 * t3080 - 0.50e2 / 0.81e2 * t22070 * t11916 - 0.10e2 / 0.9e1 * t9199 * t9209 + 0.10000e5 / 0.729e3 * t18414 * t39167 * t2359 + 0.50e2 / 0.27e2 * t33140 * t2385 * t8029 - t893 * t8059 + 0.20e2 / 0.9e1 * t25156 * t10362 + 0.100e3 / 0.81e2 * t441 * t2365 * t9132 * t709 + 0.1000e4 / 0.81e2 * t1879 * t9268 * t9219 + 0.10e2 / 0.9e1 * t895 * t3369 * t39184 + 0.5e1 / 0.9e1 * t2362 * t11936 + 0.10e2 / 0.9e1 * t895 * t3369 * t39190 - 0.5e1 / 0.9e1 * t39194 * t2359;
22259   t39239 = 0.50e2 / 0.81e2 * t441 * t2365 * t11865 * t423 + 0.200e3 / 0.81e2 * t1876 * t9234 + 0.10e2 / 0.9e1 * t3073 * t9237 + 0.500e3 / 0.81e2 * t1879 * t6939 * t2699 - t2356 * t2739 + t8012 * t902 - 0.100e3 / 0.81e2 * t27635 * t9206 + t2719 * t2382 + params->c1 * t39154 * t141 - 0.500e3 / 0.81e2 * t27638 * t8045 * t423 - 0.10e2 / 0.9e1 * t29244 * t3070 + 0.200e3 / 0.81e2 * t1876 * t9228 - 0.100e3 / 0.81e2 * t6883 * t9204 * t39 * t1847 + 0.100e3 / 0.81e2 * t441 * t2365 * t3045 * t1847 + 0.1000e4 / 0.81e2 * t1879 * t2385 * t709 * t1847 - 0.10e2 / 0.9e1 * t6883 * t8029 * t24;
22260   t39262 = (t39197 + t39239) * t145 + t11939 * t447 * t145 + 0.2e1 * t9240 * t728 * t145 + 0.2e1 * t3083 * t1887 * t145 + 0.2e1 * t11941 * t448 + t2373 * t2730 * t145 + t900 * t8036 * t145 + t11944 * t448 + t2373 * t2732 * t145 + 0.2e1 * t3085 * t1888 + t11946 * t448;
22261   t39263 = t11179 * t2359;
22262   t39269 = t9250 * t68 * t1847;
22263   t39292 = 0.10e2 / 0.3e1 * t6923 * t39263 + 0.10e2 / 0.3e1 * t6931 * t39263 + 0.100e3 / 0.27e2 * t6923 * t39269 + 0.50e2 / 0.81e2 * t6946 * t39269 + 0.5e1 / 0.9e1 * t6946 * t39263 + 0.100e3 / 0.27e2 * t29383 * t9252 + 0.100e3 / 0.27e2 * t6931 * t39269 + 0.10e2 / 0.9e1 * t29353 * t731 + 0.25e2 / 0.81e2 * t22134 * t2736 + 0.250e3 / 0.243e3 * t29349 * t8046 + 0.50e2 / 0.27e2 * t22130 * t2736 + 0.20e2 / 0.9e1 * t9262 * t1898 + 0.50e2 / 0.27e2 * t22113 * t2736;
22264   t39299 = t10399 * t7961;
22265   t39302 = t2330 * t147;
22266   t39303 = t39302 * t2695;
22267   t39309 = t449 * t1239 * t11865;
22268   t39324 = t1263 * t1265 * t11865;
22269   t39327 = 0.10e2 / 0.9e1 * t9269 * t1898 + 0.1000e4 / 0.81e2 * t29336 * t8046 + 0.100e3 / 0.27e2 * t29360 * t9252 + 0.2e1 * t1252 * t39299 + 0.2e1 * t1252 * t39303 + 0.20e2 / 0.9e1 * t29387 * t731 + 0.10e2 / 0.9e1 * t39309 * t453 + t1266 * t39303 + t449 * t442 * t39154 * t147 + t1266 * t39299 + 0.2000e4 / 0.81e2 * t29339 * t8046 + 0.1000e4 / 0.27e2 * t29342 * t8046 + 0.50e2 / 0.81e2 * t29317 * t9252 + 0.5e1 / 0.9e1 * t39324 * t453;
22270   t39329 = my_piecewise3(t139, t39262, t39292 + t39327);
22271   t39340 = t3949 * t11886;
22272   t39348 = t11866 * t124;
22273   t39357 = t882 * t709;
22274   t39368 = -t1218 * t39190 * t128 / 0.100e3 - t3949 * t11929 * t1860 / 0.162e3 + t3046 * t9149 * t1860 / 0.27e2 - t39340 * t2336 / 0.180e3 - t9163 * t7987 / 0.162e3 - t428 * t39154 * t128 / 0.100e3 + t39348 * t2336 / 0.60e2 + 0.3e1 / 0.100e3 * t2331 * t11875 + 0.3e1 / 0.100e3 * t882 * t124 * t7961 * t128 - t39357 * t7987 / 0.54e2 - t3046 * t423 * t9143 / 0.54e2 + t9136 * t9146 / 0.30e2 - 0.25e2 / 0.162e3 * t11871 * t22176 * t1852;
22275   t39373 = t8045 * t1852;
22276   t39378 = t1218 * t11865;
22277   t39394 = t126 * t2695;
22278   t39395 = t882 * t39394;
22279   t39400 = t24 * t2704;
22280   t39405 = -t29550 * t3049 / 0.90e2 - t9156 * t9146 / 0.90e2 + 0.25e2 / 0.243e3 * t2342 * t39373 + t29571 * t3049 / 0.30e2 - t39378 * t2336 / 0.180e3 - 0.5e1 / 0.486e3 * t22170 * t39373 - t1218 * t39184 * t128 / 0.100e3 - t2331 * t2699 * t1220 / 0.108e3 - t22180 * t11878 / 0.324e3 + t56 * t39154 * t128 / 0.100e3 + t39395 * t2336 / 0.30e2 + t9150 * t7987 / 0.27e2 - t9141 * t39400 / 0.60e2 + t22167 * t11878 / 0.54e2;
22281   t39442 = 0.8e1 * t8689 * t8683 + 0.2e1 * t330 * t2710 * t2345 * t150 + 0.1174e1 * t39329 + 0.2e1 * t330 * t131 * (t39368 + t39405) * t150 + 0.8e1 * t2225 * t9174 * t1866 - 0.4e1 * t330 * t2957 * t1906 - 0.4e1 * t2225 * t6499 * t2713 - 0.2e1 * t330 * t1866 * t3096 + 0.4e1 * t330 * t1863 * t3057 * t150 - 0.8e1 * t8689 * t8686 - 0.4e1 * t330 * t8707 * t734 - 0.8e1 * t8689 * t8704 - 0.2e1 * t330 * t2346 * t2745 - t330 * t2713 * t2390 - 0.8e1 * t2225 * t8703 * t1866;
22282   t39460 = t11892 * t150;
22283   t39482 = t887 * t2745;
22284   t39486 = 0.8e1 * t8689 * t9175 - 0.4e1 * t2225 * t2226 * t7996 - 0.2e1 * t330 * t11591 * t456 + 0.4e1 * t2225 * t6503 * t2713 - 0.2e1 * t330 * t2230 * t2745 + 0.4e1 * t1030 * t3065 * t1866 - 0.4e1 * t2225 * t39460 * t435 - 0.8e1 * t8689 * t8680 - t138 * t39329 + 0.2e1 * t330 * t7993 * t887 * t150 + 0.12e2 * t22232 * t11577 + 0.4e1 * t330 * t716 * t9166 * t150 + 0.8e1 * t2225 * t29615 * t719 - 0.8e1 * t6496 * t11582 + 0.4e1 * t2225 * t39482 * t435;
22285   t39501 = t1030 * t2710;
22286   t39534 = 0.8e1 * t2225 * t29442 * t719 - 0.4e1 * t330 * t11595 * t456 + 0.2e1 * t330 * t432 * t11892 * t150 + 0.4e1 * t1030 * t11908 * t435 - 0.4e1 * t39501 * t2227 - 0.4e1 * t330 * t8692 * t734 - 0.6e1 * t3619 * t11903 * t435 - 0.4e1 * t330 * t3058 * t1906 - 0.2e1 * t330 * t888 * t8071 - 0.2e1 * t330 * t11893 * t456 + 0.12e2 * t6492 * t6499 * t2594 - 0.4e1 * t330 * t8696 * t734 - t330 * t7996 * t905 + 0.24e2 * t6492 * t2226 * t719 * t1866 + 0.24e2 * t6492 * t8703 * t8674;
22287   t39562 = t3057 * t734;
22288   t39581 = -0.48e2 * t22243 * t2226 * t2594 * t435 + 0.12e2 * t2226 * t2713 * t435 * t6492 + 0.2e1 * t1030 * t11906 * t435 + 0.2e1 * t1030 * t2390 * t2594 - t11967 * t330 * t435 + 0.8e1 * t2225 * t29422 * t719 - 0.8e1 * t2225 * t29426 * t719 + 0.8e1 * t2225 * t39562 * t435 - 0.12e2 * t2594 * t6492 * t6503 - 0.2e1 * t330 * t719 * t9279 - 0.4e1 * t330 * t734 * t9167 - 0.24e2 * t6492 * t8674 * t9174 + 0.8e1 * t11585 * t6496 - 0.4e1 * t11588 * t6496 - 0.8e1 * t29460 * t2954 + 0.24e2 * t29521 * t8675;
22289   t39599 = -0.24739500000000000000e1 * t37624 * t480 + 0.18554625000000000000e1 * t27600 * t745 + t37630 + 0.55663875000000000000e1 * t2401 * t7597 + 0.24739500000000000000e1 * t27617 * t1919 - 0.41747906250000000000e1 * t6959 * t2758 - t37638 + 0.15101552267946798163e2 * t22348 * t7610 - 0.3e1 / 0.8e1 * t846 * t847 * (t39442 + t39486 + t39534 + t39581) * t167 - 0.60406209071787192651e2 * t6967 * t3099 * t1939 * t26 * t1301 - 0.83495812500000000000e2 * t9298 * t21111 * t7560 + 0.23254840140139470986e0 * t6967 * t21116 * t7572;
22290   t39610 = 0.61848750000000000000e0 * t6475 * t2763;
22291   t39616 = 0.15101552267946798163e2 * t1297 * t11983;
22292   t39629 = t7016 * t11972 / 0.2e1;
22293   t39632 = t15 * t11970;
22294   t39638 = 0.30203104535893596326e2 * t6967 * t11981 * t26 * t1301 + 0.11326164200960098622e2 * t6967 * t2393 * t2767 * t158 * t1301 - t39610 - 0.45424903023464625000e2 * t9298 * t908 * t7532 * t7536 + t39616 + 0.22265550000000000000e2 * t9298 * t3099 * t1284 * t19 * t1929 - 0.61848750000000000000e0 * t6486 * t7614 - 0.55663875000000000000e1 * t6486 * t7620 + 0.61848750000000000000e0 * t2401 * t7590 - t39629 - 0.46386562500000000000e0 * t6959 * t2763 - t2220 * t39632 * t317 / 0.2e1 - 0.24739500000000000000e1 * t9289 * t1935;
22295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22296     v4rhosigma2lapl[0] = t39599 + t39638;
22297 
22298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22299     v4rhosigma2lapl[1] = 0.0e0;
22300 
22301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22302     v4rhosigma2lapl[2] = 0.0e0;
22303 
22304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22305     v4rhosigma2lapl[3] = 0.0e0;
22306 
22307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22308     v4rhosigma2lapl[4] = 0.0e0;
22309 
22310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22311     v4rhosigma2lapl[5] = 0.0e0;
22312 
22313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22314     v4rhosigma2lapl[6] = 0.0e0;
22315 
22316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22317     v4rhosigma2lapl[7] = 0.0e0;
22318 
22319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22320     v4rhosigma2lapl[8] = 0.0e0;
22321 
22322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22323     v4rhosigma2lapl[9] = 0.0e0;
22324 
22325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22326     v4rhosigma2lapl[10] = 0.0e0;
22327 
22328   t39640 = t7016 * t12382 / 0.2e1;
22329   t39641 = t173 * t12380;
22330   t39646 = 0.24739500000000000000e1 * t29793 * t840;
22331   t39650 = 0.55663875000000000000e1 * t7025 * t2938;
22332   t39654 = 0.61848750000000000000e0 * t7025 * t2943;
22333   t39658 = 0.15101552267946798163e2 * t1686 * t12393;
22334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22335     v4rhosigma2lapl[11] = -t39640 - t2220 * t39641 * t487 / 0.2e1 + t39646 + 0.24739500000000000000e1 * t29797 * t1955 - t39650 - 0.55663875000000000000e1 * t7029 * t8094 - t39654 - 0.61848750000000000000e0 * t7029 * t8100 + t39658 + 0.15101552267946798163e2 * t22608 * t8107;
22336 
22337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22338     v4rhosigma2lapl[12] = -t39629 - t2220 * t39632 * t499 / 0.2e1 + t37630 + 0.24739500000000000000e1 * t27617 * t1966 - t37638 - 0.55663875000000000000e1 * t6486 * t8120 - t39610 - 0.61848750000000000000e0 * t6486 * t8124 + t39616 + 0.15101552267946798163e2 * t22348 * t8127;
22339 
22340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22341     v4rhosigma2lapl[13] = 0.0e0;
22342 
22343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22344     v4rhosigma2lapl[14] = 0.0e0;
22345 
22346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22347     v4rhosigma2lapl[15] = 0.0e0;
22348 
22349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22350     v4rhosigma2lapl[16] = 0.0e0;
22351 
22352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22353     v4rhosigma2lapl[17] = 0.0e0;
22354 
22355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22356     v4rhosigma2lapl[18] = 0.0e0;
22357 
22358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22359     v4rhosigma2lapl[19] = 0.0e0;
22360 
22361   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22362     v4rhosigma2lapl[20] = 0.0e0;
22363 
22364   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22365     v4rhosigma2lapl[21] = 0.0e0;
22366 
22367   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22368     v4rhosigma2lapl[22] = 0.0e0;
22369 
22370   t39673 = t2399 * t913 * t12380;
22371   t39694 = -0.24739500000000000000e1 * t39673 * t649 + 0.15101552267946798163e2 * t22608 * t8181 + 0.18554625000000000000e1 * t29903 * t840 + t39658 - t39650 - 0.41747906250000000000e1 * t7518 * t2938 - 0.46386562500000000000e0 * t7518 * t2943 + 0.61848750000000000000e0 * t2591 * t8201 + 0.55663875000000000000e1 * t2591 * t8206 - 0.24739500000000000000e1 * t9944 * t2204 - 0.61848750000000000000e0 * t7029 * t8174 - 0.55663875000000000000e1 * t7029 * t8169;
22372   t39750 = t953 * t2925;
22373   t39777 = t947 * t8547;
22374   t39795 = t12322 * t618;
22375   t39813 = t5977 * t771;
22376   t39822 = t68 * t9394 * t2035 / 0.5184e4 - 0.2e1 * t5975 * t3123 - 0.2e1 * t2008 * t9435 - 0.2e1 * t2008 * t9437 + 0.3e1 * t9407 * t9404 + 0.3e1 / 0.2e1 * t7115 * t12037 - t12834 * t36468 / 0.3456e4 + 0.3e1 * t39813 * t2437 + 0.3e1 * t29994 * t3119 + 0.3e1 * t29997 * t3119 + 0.3e1 * t9407 * t9401;
22377   t39849 = 0.3e1 * t30058 * t3119 + 0.3e1 * t30061 * t3119 + 0.3e1 * t9439 * t9401 + 0.35e2 / 0.15552e5 * t3128 * t9421 * t754 + 0.3e1 * t9439 * t9404 - 0.5e1 / 0.15552e5 * t9415 * t12040 - 0.5e1 / 0.15552e5 * t9418 * t12040 - 0.15e2 / 0.4e1 * t22727 * t12052 - t7143 * t2812 / 0.2e1 - t2431 * t8296 / 0.2e1 + 0.3e1 / 0.4e1 * t22748 * t2799 + 0.3e1 / 0.2e1 * t2435 * t7121 * t2812;
22378   t39865 = t5977 * t1489;
22379   t39868 = t1482 * t4655;
22380   t39880 = t2447 * t776;
22381   t39884 = 0.3e1 / 0.2e1 * t2435 * t2436 * t8296 - 0.15e2 / 0.8e1 * t22751 * t8255 - 0.15e2 / 0.4e1 * t22730 * t12052 - 0.15e2 / 0.4e1 * t7095 * t7121 * t2799 + 0.3e1 / 0.2e1 * t7118 * t12037 - 0.5e1 / 0.12e2 * t30180 * t12023 - 0.5e1 / 0.12e2 * t39865 * t9376 + 0.25e2 / 0.576e3 * t39868 * t7091 * t2778 * t563 + 0.10e2 / 0.9e1 * t9374 * t12022 * t1977 + 0.3e1 / 0.2e1 * t7128 * t8258 - 0.5e1 / 0.12e2 * t30104 * t12023 - 0.5e1 / 0.12e2 * t9374 * t39880 * t749;
22382   t39889 = t2008 * t9370;
22383   t39897 = t1482 * t3122;
22384   t39908 = t776 * sigma[2];
22385   t39918 = -0.5e1 / 0.12e2 * t9374 * t923 * t2035 * t749 - 0.20e2 / 0.27e2 * t39889 * t2444 - 0.25e2 / 0.139968e6 * t7090 * t33745 * t16054 + 0.25e2 / 0.162e3 * t30198 * t9379 - t39897 * t9451 / 0.1728e4 - t30030 * t12017 / 0.1728e4 - t30033 * t12017 / 0.1728e4 - t9449 * t68 * t215 * t2035 / 0.1728e4 - 0.5e1 / 0.3888e4 * t9374 * t11290 * t39908 + 0.5e1 / 0.18e2 * t30167 * t3125 + 0.5e1 / 0.18e2 * t30171 * t3125 + 0.5e1 / 0.18e2 * t9371 * t9446;
22386   t39921 = t5977 * t553;
22387   t39924 = t1482 * t68;
22388   t39925 = t188 * t227;
22389   t39926 = t923 * t563;
22390   t39956 = -t39921 * t9451 / 0.1728e4 + t39924 * t39925 * t39926 / 0.5832e4 + 0.3e1 / 0.4e1 * t7128 * t8263 + 0.5e1 / 0.9e1 * t7132 * t2812 * t19 * t531 - 0.25e2 / 0.18e2 * t22685 * t2799 * t19 * t531 + 0.25e2 / 0.24e2 * t22685 * t9385 * t9375 - 0.25e2 / 0.108e3 * t22680 * t30201 * t2030 + 0.10e2 / 0.9e1 * t30213 * t9386 + 0.10e2 / 0.9e1 * t30210 * t9386 + 0.25e2 / 0.162e3 * t30177 * t9379 + 0.5e1 / 0.3456e4 * t30083 * t68 * t12016 * t563;
22391   t39957 = t1482 * t9370;
22392   t39988 = -0.5e1 / 0.12e2 * t39957 * t9376 + 0.5e1 / 0.18e2 * t30193 * t3125 + 0.5e1 / 0.18e2 * t9367 * t9446 - 0.20e2 / 0.27e2 * t9367 * t9391 + 0.13e2 / 0.5184e4 * t9449 * t68 * t188 * t776 - 0.20e2 / 0.27e2 * t9371 * t9391 + 0.25e2 / 0.162e3 * t7090 * t7091 * t2029 - 0.15e2 / 0.4e1 * t7095 * t2436 * t8263 + 0.5e1 / 0.10368e5 * t2435 * t9421 * t4522 * t563 - 0.15e2 / 0.2e1 * t30164 * t9425 - 0.15e2 / 0.2e1 * t30014 * t9425 - 0.13e2 / 0.7776e4 * t12049 * t9428;
22393   t39998 = t68 * t26112;
22394   t39999 = t553 * t39926;
22395   t40014 = t552 * t2022;
22396   t40019 = 0.4e1 / 0.6561e4 * t12055 * t2029 * t2436 - 0.13e2 / 0.7776e4 * t12059 * t9428 + 0.4e1 / 0.6561e4 * t8286 * t12046 - 0.13e2 / 0.15552e5 * t11272 + t39998 * t39999 / 0.5832e4 - 0.25e2 / 0.864e3 * t22710 * t12011 - 0.25e2 / 0.864e3 * t22797 * t12011 - 0.25e2 / 0.864e3 * t7090 * t22804 * t2778 - 0.125e3 / 0.972e3 * t22741 * t22742 * t8224 + 0.5e1 / 0.18e2 * t30188 * t3125 + t40014 * t3131 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12059 * t9422;
22397   t40021 = t551 * t554 * t2436;
22398   t40024 = t12045 * t7121;
22399   t40028 = t923 * sigma[2];
22400   t40029 = t1489 * t40028;
22401   t40032 = t5975 * t223;
22402   t40035 = t2008 * t554;
22403   t40052 = t552 * t345;
22404   t40057 = t1477 * t771;
22405   t40060 = -t2807 * t40021 / 0.8748e4 - t2807 * t40024 / 0.8748e4 - 0.5e1 / 0.19683e5 * t8282 * t551 * t40029 + t40032 * t3131 / 0.2592e4 + t40035 * t3131 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12049 * t9422 + 0.105e3 / 0.8e1 * t22760 * t2436 * t8255 - 0.15e2 / 0.2e1 * t7095 * t2436 * t8258 - t1477 * t36 * t12056 / 0.8748e4 - t12055 * t2778 * t7121 / 0.8748e4 - 0.5e1 / 0.19683e5 * t40052 * t526 * t558 * t40028 + t40057 * t3131 / 0.2592e4;
22406   t40063 = t39822 + t39849 + t39884 + t39918 + t39956 + t39988 + t40019 + t40060;
22407   t40098 = t245 * t36908;
22408   t40101 = t7161 * t779;
22409   t40111 = t2819 * t566;
22410   t40115 = -0.10979019874935515226e0 * t9663 * t6095 - 0.922000629760e0 * t7346 * t11382 - 0.238156450669527040e0 * t1549 * t30846 * t2061 + 0.14983660725163427627e0 * t4823 * t2487 * t11311 + 0.650049912832e0 * t245 * t9755 * t2106 - 0.922000629760e0 * t2455 * t37037 + 0.5532003778560e1 * t7365 * t2044 * t779 * t2038 - 0.12751277419167548965e1 * t9728 * t40098 - 0.25502554838335097930e1 * t40101 * t26506 + 0.32937059624806545679e0 * t12152 * t589 - 0.11756685810716947640e1 * t22948 * t2819 * t9722 + 0.5532003778560e1 * t31491 * t9733 - 0.11064007557120e2 * t22983 * t2044 * t40111;
22411   t40122 = t7174 * t2815;
22412   t40132 = t7191 * t8530;
22413   t40137 = t931 * t2846;
22414   t40138 = t40137 * t1529;
22415   t40141 = t931 * t2833;
22416   t40142 = t40141 * t1550;
22417   t40145 = t40141 * t1529;
22418   t40148 = t12193 * t6232;
22419   t40151 = t40141 * t2066;
22420   t40154 = -0.714469352008581120e0 * t7365 * t1534 * t2819 * t587 - 0.54895099374677576129e-1 * t12140 * t589 + 0.97972381755974563669e-1 * t40122 * t9722 + 0.19594476351194912734e0 * t9721 * t26506 + 0.325024956416e0 * t245 * t7260 * t2867 + 0.476312901339054080e0 * t9666 * t9737 + 0.2766001889280e1 * t575 * t40132 + 0.238156450669527040e0 * t8451 * t7246 + 0.14683899485061986386e1 * t9593 * t40138 - 0.37929099725894513314e0 * t20358 * t40142 - 0.17620679382074383663e2 * t31501 * t40145 + 0.29367798970123972772e1 * t9593 * t40148 - 0.13606156761889987933e2 * t31055 * t40151;
22421   t40161 = t9557 * t8515;
22422   t40164 = t12229 * t587;
22423   t40165 = t2471 * t40164;
22424   t40168 = t12229 * t578;
22425   t40169 = t2471 * t40168;
22426   t40180 = t1534 * t939 * t2038;
22427   t40191 = 0.26206649088979828343e1 * t31059 * t40145 + 0.29967321450326855254e0 * t8511 * t9557 * t6282 + 0.476312901339054080e0 * t6216 * t40161 - 0.59934642900653710508e0 * t20240 * t40165 - 0.1428938704017162240e1 * t6222 * t40169 - 0.85008516127783659764e0 * t31271 * t8308 + 0.29967321450326855254e0 * t2058 * t31339 - 0.119078225334763520e0 * t1549 * t2487 * t11324 + 0.476312901339054080e0 * t2043 * t40180 - 0.29967321450326855254e0 * t8451 * t7337 + 0.29967321450326855254e0 * t6060 * t9759 + 0.29967321450326855254e0 * t2058 * t31420 + 0.42504258063891829882e0 * t6242 * t9558;
22428   t40204 = t9621 * t9474;
22429   t40214 = t1528 * t2471 * t2038;
22430   t40221 = -0.28131861550297056947e0 * t23302 * t8507 + 0.37929099725894513314e0 * t7282 * t8538 + 0.21252129031945914941e0 * t26869 * t2472 + 0.21252129031945914941e0 * t7282 * t8535 + 0.21252129031945914941e0 * t2465 * t26812 - 0.42504258063891829882e0 * t8524 * t7269 + 0.19594476351194912734e0 * t40204 * t6092 - 0.10979019874935515226e0 * t6242 * t9658 - 0.56263723100594113893e0 * t6225 * t30558 + 0.75858199451789026627e0 * t2055 * t30581 + 0.19594476351194912734e0 * t20041 * t40214 - 0.25306658097095253694e-1 * t8499 * t7209 - 0.67675321900558938528e0 * t23193 * t26770;
22431   t40237 = t1555 * t12180;
22432   t40238 = t40237 * t1529;
22433   t40241 = t940 * t2848;
22434   t40256 = -0.59934642900653710508e0 * t7296 * t26774 - 0.39668333314116486558e0 * t23352 * t26778 - 0.21252129031945914941e0 * t1549 * t23400 * t8530 + 0.18968792869915364414e1 * t4707 * t22902 * t12091 - 0.32672968537417605163e1 * t1540 * t22902 * t8506 - 0.922000629760e0 * t575 * t40238 - 0.54895099374677576130e-1 * t1527 * t40241 - 0.10979019874935515226e0 * t2055 * t30574 - 0.10979019874935515226e0 * t2055 * t30755 + 0.12751277419167548965e1 * t8499 * t9494 - 0.85008516127783659764e0 * t6116 * t40214 + 0.10979019874935515226e0 * t8524 * t7209 + 0.85008516127783659764e0 * t8524 * t7213;
22435   t40261 = t3190 * t786;
22436   t40284 = t12193 * t26777;
22437   t40287 = -0.58783429053584738202e0 * t36670 * t9501 + 0.56263723100594113893e0 * t26864 * t7224 - 0.10979019874935515226e0 * t1527 * t40261 + 0.21252129031945914941e0 * t8527 * t7269 + 0.42504258063891829882e0 * t30372 * t779 * t250 - 0.56263723100594113894e0 * t7287 * t26528 - 0.12968797032847508210e0 * t7203 * t37201 + 0.87446194859244818739e0 * t23095 * t26532 - 0.15062248783813849042e1 * t7287 * t26535 - 0.1468010318348156928e1 * t9700 * t9701 * t2106 + 0.53483277938827345108e0 * t20370 * t40165 + 0.25502554838335097930e1 * t20390 * t40169 + 0.16879116930178234168e1 * t20353 * t40284;
22438   t40291 = t2471 * t2833;
22439   t40292 = t4785 * t40291;
22440   t40297 = t249 * t2819;
22441   t40306 = t9557 * t784;
22442   t40307 = t4755 * t40306;
22443   t40310 = t2471 * t2846;
22444   t40311 = t4755 * t40310;
22445   t40314 = t9553 * t40291;
22446   t40319 = t2819 * t238;
22447   t40320 = t7161 * t40319;
22448   t40323 = t2482 * t8324;
22449   t40328 = -0.75858199451789026627e0 * t20358 * t40169 + 0.12751277419167548965e1 * t1527 * t40292 - 0.54895099374677576130e-1 * t8527 * t7219 + 0.12751277419167548965e1 * t23206 * t40297 * t580 - 0.119078225334763520e0 * t1549 * t12181 * t1550 - 0.97972381755974563671e-1 * t2465 * t26542 - 0.85008516127783659766e0 * t1527 * t40307 - 0.42504258063891829883e0 * t1527 * t40311 - 0.22757459835536707989e1 * t1527 * t40314 - 0.42504258063891829883e0 * t7216 * t36909 - 0.58783429053584738203e0 * t40320 * t6092 + 0.21958039749871030452e0 * t20671 * t40323 - 0.238156450669527040e0 * t30612 * t2085;
22450   t40330 = t2461 * t9474 * t1538;
22451   t40347 = t779 * t577;
22452   t40351 = t7222 * t2833;
22453   t40352 = t9579 * t40351;
22454   t40361 = -0.25937594065695016420e0 * t40330 * t6110 + 0.34970653833504584655e0 * t30488 * t6113 + 0.21958039749871030452e0 * t23462 * t36680 + 0.13814944624710858551e0 * t30484 * t26770 + 0.21958039749871030452e0 * t31008 * t26774 - 0.50613316194190507389e-1 * t23418 * t8325 + 0.14533144731775861995e0 * t31013 * t26778 - 0.19594476351194912734e0 * t31008 * t26781 + 0.25502554838335097930e1 * t31413 * t40347 * t8307 - 0.15062248783813849042e1 * t4784 * t40352 + 0.19594476351194912734e0 * t30787 * t8315 + 0.19594476351194912734e0 * t30791 * t8315 + 0.19594476351194912734e0 * t9475 * t26385;
22455   t40367 = t4785 * t40306;
22456   t40370 = t4785 * t40310;
22457   t40373 = t9579 * t40291;
22458   t40388 = t9466 * t6232;
22459   t40391 = t1568 * t12187;
22460   t40399 = -0.10979019874935515226e0 * t7282 * t8325 + 0.75858199451789026629e0 * t1527 * t40367 + 0.37929099725894513314e0 * t1527 * t40370 + 0.67692822862798455803e0 * t1527 * t40373 - 0.39668333314116486558e0 * t20249 * t7222 * t40164 - 0.18915142913373788794e1 * t20383 * t40284 - 0.97994301469412365794e0 * t20746 * t9581 * t40168 - 0.54895099374677576130e-1 * t2465 * t26368 + 0.90330597678095682346e-1 * t31407 * t8315 - 0.1844001259520e1 * t575 * t40388 + 0.325024956416e0 * t245 * t40391 * t587 - 0.75858199451789026628e0 * t7216 * t37208 - 0.238156450669527040e0 * t2058 * t30491;
22461   t40401 = t4785 * t12930 * t784;
22462   t40405 = t4785 * t7222 * t2846;
22463   t40409 = t9579 * t9581 * t2833;
22464   t40415 = t2461 * t2815 * t238;
22465   t40418 = t7174 * t40319;
22466   t40428 = t3189 * t792;
22467   t40429 = t4718 * t40428;
22468   t40438 = -0.56263723100594113896e0 * t4784 * t40401 - 0.28131861550297056947e0 * t4784 * t40405 + 0.87446194859244818738e0 * t16869 * t40409 - 0.85008516127783659766e0 * t31271 * t9507 + 0.97972381755974563669e-1 * t40415 * t6092 + 0.45165298839047841173e-1 * t40418 * t6092 + 0.21252129031945914941e0 * t2461 * t8299 * t250 + 0.238156450669527040e0 * t2455 * t37013 + 0.14983660725163427627e0 * t2468 * t26728 + 0.29967321450326855254e0 * t1533 * t40429 - 0.10979019874935515226e0 * t9672 * t794 - 0.10979019874935515226e0 * t9669 * t794 - 0.10979019874935515226e0 * t3144 * t2108;
22469   t40440 = t939 * t2867;
22470   t40441 = t4718 * t40440;
22471   t40455 = t4848 * t9557 * t792;
22472   t40459 = t4848 * t2471 * t2867;
22473   t40467 = t1534 * t3189 * t566;
22474   t40474 = 0.14983660725163427627e0 * t1533 * t40441 - 0.56263723100594113893e0 * t31168 * t6110 + 0.19594476351194912734e0 * t30784 * t8315 + 0.17485326916752292327e0 * t7203 * t37215 + 0.67692822862798455802e0 * t2465 * t26447 - 0.42504258063891829882e0 * t26380 * t9494 - 0.10979019874935515226e0 * t1527 * t40455 - 0.54895099374677576130e-1 * t1527 * t40459 + 0.75858199451789026628e0 * t2465 * t26443 + 0.29967321450326855254e0 * t2058 * t31235 + 0.476312901339054080e0 * t2043 * t40467 + 0.2766001889280e1 * t7365 * t36568 + 0.238156450669527040e0 * t2455 * t36572;
22475   t40475 = t7179 * t8534;
22476   t40478 = t22926 * t8530;
22477   t40484 = t1542 * t12180;
22478   t40505 = t9553 * t40351;
22479   t40508 = -0.922000629760e0 * t575 * t40475 - 0.4936538891835801600e1 * t575 * t40478 - 0.25502554838335097930e1 * t30404 * t779 * t9722 - 0.61023519165317445059e0 * t1540 * t40484 * t2066 - 0.19594476351194912734e0 * t8499 * t7213 + 0.45165298839047841173e-1 * t26342 * t9501 - 0.12968797032847508210e0 * t26633 * t7224 + 0.17485326916752292327e0 * t8499 * t7227 - 0.10979019874935515226e0 * t2055 * t30649 - 0.85008516127783659764e0 * t2055 * t30652 - 0.119078225334763520e0 * t2468 * t27055 + 0.21252129031945914941e0 * t7169 * t2815 * t250 + 0.16879116930178234169e1 * t4784 * t40505;
22480   t40512 = t8510 * t2471 * t2854;
22481   t40518 = t2482 * t26811;
22482   t40525 = t9540 * t11311;
22483   t40528 = t7268 * t12229;
22484   t40531 = t2106 * t784;
22485   t40532 = t2471 * t40531;
22486   t40535 = t7222 * t36789;
22487   t40547 = 0.69074723123554292755e-1 * t1527 * t40512 - 0.734005159174078464e0 * t245 * t23491 * t2854 - 0.922000629760e0 * t575 * t40518 + 0.29967321450326855254e0 * t9691 * t6283 - 0.10979019874935515226e0 * t9688 * t794 + 0.26741638969413672554e0 * t20370 * t40525 + 0.476312901339054080e0 * t6216 * t40528 + 0.476312901339054080e0 * t6216 * t40532 + 0.36614111499190467036e1 * t9575 * t40535 + 0.12751277419167548965e1 * t20390 * t40142 - 0.9873077783671603200e1 * t9554 * t40148 - 0.19834166657058243279e0 * t20249 * t7222 * t36782 - 0.42504258063891829882e0 * t9532 * t8370;
22488   t40565 = t9581 * t26396;
22489   t40568 = t2833 * t587;
22490   t40569 = t7222 * t40568;
22491   t40572 = t784 * t2077;
22492   t40573 = t7222 * t40572;
22493   t40578 = t574 * t3190;
22494   t40581 = -0.37929099725894513314e0 * t9532 * t8373 - 0.67675321900558938528e0 * t781 * t245 * t31191 + 0.13814944624710858551e0 * t6090 * t9759 + 0.29967321450326855254e0 * t30994 * t2070 + 0.29967321450326855254e0 * t30994 * t2089 - 0.48997150734706182895e0 * t31046 * t8430 + 0.84395584650891170840e0 * t9603 * t8458 + 0.26741638969413672554e0 * t7296 * t8407 + 0.20312390406477209506e2 * t31353 * t40565 + 0.84395584650891170840e0 * t20353 * t40569 - 0.65345937074835210326e1 * t9585 * t40573 + 0.13814944624710858551e0 * t9475 * t6283 + 0.476312901339054080e0 * t40578 * t2074;
22495   t40605 = t940 * t2835;
22496   t40617 = 0.18968792869915364414e1 * t9580 * t9581 * t36789 - 0.48997150734706182896e0 * t20746 * t9581 * t40568 + 0.37937585739830728828e1 * t9580 * t9581 * t40572 - 0.92817332546461565657e1 * t31348 * t31349 * t26396 - 0.12204703833063489012e1 * t1540 * t9643 * t8425 - 0.61023519165317445059e0 * t1540 * t7191 * t11338 - 0.10979019874935515226e0 * t2055 * t30769 - 0.25306658097095253694e-1 * t8499 * t7219 + 0.72665723658879309975e-1 * t4784 * t40605 + 0.29967321450326855254e0 * t2468 * t26690 + 0.69074723123554292755e-1 * t2462 * t2856 - 0.22757459835536707989e1 * t2465 * t26556 + 0.15762619094478157328e0 * t4838 * t23400 * t8506;
22497   t40622 = t781 * t575;
22498   t40636 = t1528 * t9557 * t566;
22499   t40649 = 0.14983660725163427627e0 * t8386 * t7337 - 0.54895099374677576130e-1 * t8496 * t941 + 0.13538564572559691160e1 * t40622 * t9650 - 0.54895099374677576129e-1 * t8527 * t7209 - 0.42504258063891829882e0 * t8527 * t7213 + 0.97972381755974563669e-1 * t26353 * t9501 - 0.28131861550297056947e0 * t26844 * t7224 + 0.37929099725894513314e0 * t8527 * t7227 - 0.85008516127783659764e0 * t6116 * t40636 + 0.31525238188956314657e0 * t6238 * t7222 * t36799 + 0.31525238188956314657e0 * t6238 * t7222 * t40531 + 0.476312901339054080e0 * t7346 * t12253 + 0.476312901339054080e0 * t2455 * t36562;
22500   t40689 = 0.476312901339054080e0 * t2455 * t1534 * t779 * t2106 - 0.10979019874935515226e0 * t12211 * t589 + 0.19594476351194912734e0 * t30426 * t779 * t9722 + 0.76507664515005293790e1 * t34674 * t245 * t40297 - 0.61023519165317445059e0 * t1540 * t2475 * t36637 - 0.25306658097095253694e-1 * t12143 * t589 + 0.45165298839047841173e-1 * t22931 * t2819 * t9722 - 0.29967321450326855254e0 * t2455 * t36632 - 0.33837660950279469264e0 * t2468 * t26686 + 0.42504258063891829882e0 * t9621 * t2038 * t250 + 0.42504258063891829882e0 * t2055 * t30820 + 0.36614111499190467036e1 * t1540 * t22926 * t8506 - 0.1428938704017162240e1 * t31424 * t31425 * t8475;
22501   t40697 = t1534 * t12187;
22502   t40711 = t12166 * t574;
22503   t40718 = t1514 * t12062;
22504   t40719 = t40718 * t238;
22505   t40722 = t9540 * t11324;
22506   t40725 = -0.59934642900653710508e0 * t31153 * t1568 * t779 * t6282 + 0.65874119249613091356e0 * t7161 * t6089 * t12253 - 0.119078225334763520e0 * t1533 * t40697 - 0.54895099374677576130e-1 * t8439 * t7246 - 0.33837660950279469264e0 * t23193 * t8394 + 0.29967321450326855254e0 * t23173 * t2839 + 0.29967321450326855254e0 * t7296 * t8461 - 0.1468010318348156928e1 * t9700 * t40428 * t587 + 0.21252129031945914941e0 * t40711 * t1530 + 0.75858199451789026627e0 * t9663 * t6113 - 0.119078225334763520e0 * t7343 * t8433 - 0.922000629760e0 * t40719 * t2045 - 0.21252129031945914941e0 * t6222 * t40722;
22507   t40727 = t9557 * t9544;
22508   t40730 = t9557 * t9549;
22509   t40733 = t12930 * t9549;
22510   t40736 = t2471 * t37071;
22511   t40743 = t2471 * t36799;
22512   t40751 = t2475 * t8324;
22513   t40760 = 0.476312901339054080e0 * t6216 * t40727 + 0.5532003778560e1 * t9548 * t40730 + 0.73228222998380934071e1 * t9575 * t40733 + 0.238156450669527040e0 * t6216 * t40736 + 0.2766001889280e1 * t9548 * t40138 + 0.42504258063891829882e0 * t9663 * t6233 + 0.476312901339054080e0 * t6216 * t40743 + 0.42504258063891829882e0 * t31187 * t2062 + 0.21958039749871030452e0 * t23462 * t12252 * t580 - 0.19594476351194912734e0 * t20671 * t40751 - 0.238156450669527040e0 * t9691 * t6086 - 0.238156450669527040e0 * t6060 * t9777 + 0.75858199451789026628e0 * t2055 * t30584;
22514   t40788 = 0.75858199451789026628e0 * t2055 * t30587 - 0.42504258063891829882e0 * t7216 * t37137 + 0.10979019874935515226e0 * t2465 * t26547 + 0.12751277419167548965e1 * t2465 * t26550 - 0.85008516127783659764e0 * t2465 * t26553 - 0.19594476351194912734e0 * t7203 * t36929 - 0.85008516127783659765e0 * t23203 * t12241 - 0.85008516127783659765e0 * t7216 * t36720 - 0.85008516127783659765e0 * t7216 * t9506 * t2079 + 0.29367798970123972772e1 * t9593 * t40730 - 0.21252129031945914941e0 * t6222 * t40736 - 0.4936538891835801600e1 * t9554 * t40138 - 0.32672968537417605163e1 * t9585 * t40535;
22515   t40804 = t6091 * t3165;
22516   t40819 = 0.29967321450326855254e0 * t7296 * t8465 - 0.29967321450326855254e0 * t7296 * t8410 - 0.714469352008581120e0 * t9532 * t8353 - 0.119078225334763520e0 * t8386 * t7246 + 0.238156450669527040e0 * t1549 * t23369 * t8530 - 0.714469352008581120e0 * t8439 * t9772 + 0.19594476351194912734e0 * t6090 * t40804 - 0.42504258063891829882e0 * t6222 * t40528 - 0.42504258063891829882e0 * t6222 * t40743 - 0.42504258063891829882e0 * t6222 * t40532 - 0.714469352008581120e0 * t6222 * t40142 - 0.11064007557120e2 * t9554 * t40145 + 0.5532003778560e1 * t9548 * t40148;
22517   t40824 = t939 * t2854;
22518   t40828 = t3163 * t4708;
22519   t40851 = -0.21968466899514280222e2 * t9585 * t40151 - 0.1844001259520e1 * t31266 * t3138 + 0.23916119461575365556e1 * t30910 * t40824 * t587 + 0.37937585739830728829e1 * t9580 * t40828 * t9549 + 0.15762619094478157329e0 * t6238 * t7222 * t37071 + 0.14983660725163427627e0 * t7343 * t8383 - 0.54895099374677576129e-1 * t2465 * t26520 - 0.42504258063891829882e0 * t2465 * t26454 + 0.97972381755974563669e-1 * t7203 * t37144 - 0.28131861550297056947e0 * t7287 * t26458 + 0.37929099725894513314e0 * t2465 * t26538 + 0.56263723100594113894e0 * t23124 * t37192 + 0.72665723658879309976e-1 * t7287 * t26439;
22520   t40859 = t12180 * t242;
22521   t40860 = t1528 * t40859;
22522   t40872 = t569 * t40063;
22523   t40875 = t2497 * t8307;
22524   t40884 = 0.16879116930178234168e1 * t7287 * t26524 - 0.10979019874935515226e0 * t9663 * t6102 - 0.85008516127783659764e0 * t9663 * t6106 + 0.21252129031945914941e0 * t1527 * t40860 + 0.14983660725163427627e0 * t7296 * t8380 - 0.42504258063891829883e0 * t6222 * t40727 - 0.9873077783671603200e1 * t9554 * t40730 - 0.12751277419167548965e1 * t22889 * t2819 * t250 + 0.461000314880e0 * t40872 * t250 + 0.21958039749871030452e0 * t20683 * t40875 + 0.13814944624710858551e0 * t26903 * t30435 + 0.21958039749871030452e0 * t26758 * t30438 - 0.50613316194190507389e-1 * t20225 * t9658;
22525   t40915 = 0.14533144731775861995e0 * t27035 * t30441 - 0.19594476351194912734e0 * t26758 * t30615 - 0.56263723100594113894e0 * t20367 * t9513 - 0.56263723100594113894e0 * t6225 * t30503 - 0.56263723100594113894e0 * t6225 * t30744 + 0.75858199451789026628e0 * t6242 * t9524 + 0.31525238188956314657e0 * t6238 * t12930 * t8515 - 0.42504258063891829883e0 * t6222 * t40161 + 0.14983660725163427627e0 * t8511 * t2471 * t26727 + 0.238156450669527040e0 * t6216 * t40722 + 0.15762619094478157328e0 * t6238 * t7222 * t36973 + 0.650049912832e0 * t245 * t30815 * t792 - 0.50613316194190507389e-1 * t31214 * t794;
22526   t40921 = t2475 * t26811;
22527   t40924 = t30417 * t2061;
22528   t40931 = -t577 * t40063 * t242;
22529   t40937 = t30344 * t2061;
22530   t40949 = t9643 * t6232;
22531   t40954 = -0.42504258063891829882e0 * t7282 * t8531 + 0.822756481972633600e0 * t575 * t40921 + 0.1645512963945267200e1 * t575 * t40924 + 0.14533144731775861995e0 * t27035 * t30463 + 0.461000314880e0 * t575 * t40931 - 0.12204703833063489012e1 * t1540 * t30417 * t3153 - 0.1844001259520e1 * t575 * t40937 + 0.238156450669527040e0 * t8487 * t9772 + 0.31525238188956314658e0 * t6238 * t12930 * t9544 + 0.29619233351014809600e2 * t9593 * t40145 - 0.65345937074835210328e1 * t9585 * t40733 + 0.1645512963945267200e1 * t575 * t40949 - 0.19594476351194912734e0 * t26758 * t30554;
22532   t40959 = t781 * t1540;
22533   t40965 = t2475 * t3153 * t566;
22534   t40986 = 0.34970653833504584655e0 * t20225 * t9524 - 0.39188952702389825468e0 * t20225 * t9521 + 0.33758233860356468337e1 * t40959 * t30467 - 0.45514919671073415977e1 * t40622 * t9634 + 0.11252744620118822779e1 * t27022 * t40965 - 0.94575714566868943973e0 * t20383 * t40569 + 0.73228222998380934072e1 * t9575 * t40573 - 0.22762551443898437297e2 * t31314 * t40565 + 0.39207562244901126197e2 * t31090 * t40151 - 0.33837660950279469264e0 * t27079 * t2471 * t26685 - 0.29967321450326855254e0 * t20240 * t40525 + 0.29967321450326855254e0 * t8511 * t2471 * t26689 - 0.25306658097095253694e-1 * t8436 * t941;
22535   t40992 = t16790 * t40824;
22536   t40997 = t940 * t2843;
22537   t41002 = t12166 * t238;
22538   t41019 = 0.2766001889280e1 * t23477 * t12264 - 0.119078225334763520e0 * t26731 * t2494 - 0.33837660950279469264e0 * t1533 * t40992 + 0.53483277938827345109e0 * t7296 * t26781 + 0.10979019874935515226e0 * t1527 * t40997 + 0.10979019874935515226e0 * t8524 * t7219 - 0.119078225334763520e0 * t41002 * t1535 - 0.54895099374677576130e-1 * t2462 * t2869 - 0.238156450669527040e0 * t1549 * t9470 * t6232 - 0.50613316194190507389e-1 * t30488 * t6095 - 0.11756685810716947640e1 * t7161 * t30487 * t8308 - 0.50613316194190507388e-1 * t30488 * t6102 - 0.39188952702389825468e0 * t30488 * t6106;
22539   t41025 = t2475 * t3153 * t792;
22540   t41035 = t2475 * t8307;
22541   t41043 = t1523 * t12062;
22542   t41058 = t3179 * t2038;
22543   t41064 = 0.10708320e2 * t7169 * t12157 + 0.6370450956800e1 * t40949 + 0.6370450956800e1 * t30372 * t3179 + 0.3185225478400e1 * t41043 * t2096 - 0.3569440e1 * t40718 * t2096 + 0.3185225478400e1 * t7169 * t11413 + 0.3185225478400e1 * t2461 * t36866 + 0.6370450956800e1 * t9621 * t8333 + 0.10145661348248508867e2 * t22899 * t26446 + 0.11369471231620096000e2 * t7196 * t26442 - 0.38222705740800e2 * t7161 * t41058 + 0.5684735615810048000e1 * t7196 * t26453 + 0.6370450956800e1 * t40924;
22544   t41071 = t7191 * t8534;
22545   t41087 = t22902 * t8530;
22546   t41089 = t40484 * t1529;
22547   t41091 = -0.19111352870400e2 * t7161 * t36858 - 0.38222705740800e2 * t30315 * t6105 + 0.5684735615810048000e1 * t22918 * t12157 + 0.3185225478400e1 * t41071 + 0.10708320e2 * t40132 - 0.68216827389720576000e2 * t22941 * t26446 + 0.11369471231620096000e2 * t30426 * t9606 - 0.38222705740800e2 * t7182 * t26442 + 0.11369471231620096000e2 * t7174 * t41058 - 0.7138880e1 * t40937 + 0.5684735615810048000e1 * t7174 * t36858 - 0.7138880e1 * t9615 * t8333 + 0.5684735615810048000e1 * t41087 + 0.3185225478400e1 * t41089;
22548   t41106 = t40111 * t247;
22549   t41119 = -0.38222705740800e2 * t30404 * t9606 + 0.21416640e2 * t9643 * t6105 + 0.114668117222400e3 * t7196 * t26446 - 0.3569440e1 * t40475 + 0.21416640e2 * t2475 * t26442 - 0.19111352870400e2 * t7182 * t26453 - 0.42833280e2 * t7182 * t26446 + 0.10145661348248508867e2 * t22931 * t41106 - 0.3569440e1 * t7158 * t11413 + 0.21416640e2 * t9621 * t9606 + 0.10708320e2 * t2461 * t36858 + 0.114668117222400e3 * t7174 * t41106 + 0.21416640e2 * t2461 * t41058;
22550   t41142 = -0.42833280e2 * t7161 * t41106 - 0.19111352870400e2 * t40478 - 0.3569440e1 * t40518 - 0.68216827389720576000e2 * t22948 * t41106 - 0.7138880e1 * t30306 * t3179 - 0.3569440e1 * t2454 * t36866 - 0.19111352870400e2 * t22889 * t12157 + 0.3185225478400e1 * t40921 - 0.3569440e1 * t40238 + 0.1784720e1 * t40872 * t247 + 0.1784720e1 * t40931 - 0.7138880e1 * t40388 + 0.10708320e2 * t2475 * t26453 + 0.11369471231620096000e2 * t30335 * t6105;
22551   t41160 = 0.25502554838335097930e1 * t40622 * t9630 - 0.1844001259520e1 * t9666 * t8444 + 0.14533144731775861995e0 * t20675 * t41025 - 0.25937594065695016420e0 * t26764 * t9513 + 0.17489238971848963748e1 * t781 * t4707 * t30472 - 0.30124497567627698085e1 * t40959 * t30475 - 0.15171639890357805326e1 * t27016 * t41035 - 0.258304e0 * t245 * t583 * (t41064 + t41091 + t41119 + t41142) - 0.119078225334763520e0 * t1549 * t7299 * t8534 + 0.822756481972633600e0 * t575 * t41089 + 0.476312901339054080e0 * t9666 * t8476 - 0.119078225334763520e0 * t1549 * t2497 * t26811 - 0.75858199451789026627e0 * t8524 * t7227;
22552   t41181 = t2501 * t8475;
22553   t41192 = -0.10979019874935515226e0 * t6242 * t9517 - 0.10979019874935515226e0 * t2055 * t30748 - 0.10979019874935515226e0 * t2055 * t30752 - 0.85008516127783659765e0 * t6242 * t9521 - 0.85008516127783659765e0 * t2055 * t30495 - 0.85008516127783659765e0 * t2055 * t30499 + 0.476312901339054080e0 * t9532 * t8355 - 0.94575714566868943969e0 * t9603 * t8422 + 0.12751277419167548965e1 * t9532 * t8358 - 0.59934642900653710508e0 * t26232 * t41181 + 0.97972381755974563669e-1 * t8499 * t7269 + 0.31525238188956314657e0 * t6238 * t10617 * t12229 + 0.21252129031945914941e0 * t41043 * t566 * t250;
22554   t41204 = t932 * t36679;
22555   t41217 = t2482 * t8307;
22556   t41222 = -0.238156450669527040e0 * t1549 * t3164 * t8464 - 0.10979019874935515226e0 * t2052 * t3191 + 0.32937059624806545678e0 * t26321 * t9772 - 0.10979019874935515226e0 * t6056 * t40180 + 0.69074723123554292755e-1 * t8439 * t7337 + 0.21958039749871030452e0 * t20683 * t41204 + 0.13814944624710858551e0 * t26903 * t30534 + 0.21958039749871030452e0 * t26758 * t30537 - 0.50613316194190507389e-1 * t20225 * t9517 + 0.14533144731775861995e0 * t27035 * t30540 - 0.19594476351194912734e0 * t26758 * t30543 + 0.17001703225556731953e1 * t27016 * t41217 + 0.21958039749871030452e0 * t26758 * t30546;
22557   t41229 = t12187 * t577;
22558   t41256 = -0.119078225334763520e0 * t1549 * t932 * t37024 + 0.69074723123554292755e-1 * t2465 * t26450 - 0.119078225334763520e0 * t1549 * t41229 * t1529 + 0.31525238188956314657e0 * t1539 * t3190 * t2067 - 0.42504258063891829883e0 * t40578 * t2082 + 0.14983660725163427627e0 * t7296 * t8419 + 0.238156450669527040e0 * t9532 * t8361 + 0.15762619094478157328e0 * t9603 * t8400 - 0.21252129031945914941e0 * t9532 * t8368 - 0.19834166657058243278e0 * t23352 * t8472 + 0.31525238188956314656e0 * t9603 * t8426 - 0.734005159174078464e0 * t9700 * t40440 * t587 + 0.97972381755974563669e-1 * t22918 * t2819 * t250;
22559   t41268 = t2497 * t8324;
22560   t41278 = t779 * t1542;
22561   t41292 = t940 * t2851;
22562   t41295 = 0.325024956416e0 * t245 * t2501 * t8375 - 0.10979019874935515226e0 * t2465 * t26431 - 0.10979019874935515226e0 * t2465 * t26435 + 0.85008516127783659764e0 * t7216 * t36919 + 0.13814944624710858551e0 * t26903 * t30452 + 0.13814944624710858551e0 * t20228 * t41268 + 0.21958039749871030452e0 * t23462 * t40347 * t6101 + 0.17001703225556731953e1 * t31000 * t779 * t1555 * t6105 + 0.11252744620118822779e1 * t31003 * t41278 * t6109 - 0.15171639890357805326e1 * t31000 * t41278 * t6105 - 0.238156450669527040e0 * t1549 * t9640 * t2838 + 0.14683899485061986386e1 * t575 * t41087 + 0.822756481972633600e0 * t575 * t41071 - 0.97972381755974563669e-1 * t1527 * t41292;
22563   t41301 = my_piecewise3(t235, 0, t41295 + t41256 + t41222 + t41192 + t41160 + t41019 + t40986 + t40954 + t40915 + t40884 + t40851 + t40819 + t40788 + t40760 + t40725 + t40689 + t40649 + t40617 + t40581 + t40547 + t40508 + t40474 + t40438 + t40399 + t40361 + t40328 + t40287 + t40256 + t40221 + t40191 + t40154 + t40115);
22564   t41302 = my_piecewise3(t234, 0, t41301);
22565   t41304 = t12062 * t593 + t12273 * t566 + 0.2e1 * t2038 * t3195 + 0.2e1 * t2112 * t3134 + t233 * t41302 + t2450 * t2873 + t252 * t40063 + t2520 * t2815 + 0.2e1 * t779 * t9785 + 0.2e1 * t798 * t9455 + t8299 * t945 + t8545 * t926;
22566   t41310 = -t41304;
22567   t41314 = 0.10e2 / 0.9e1 * t3225 * t9892 - t959 * t8645 + 0.1000e4 / 0.81e2 * t2150 * t9923 * t9874 + 0.100e3 / 0.81e2 * t617 * t2557 * t3197 * t2118 - 0.100e3 / 0.81e2 * t7442 * t9859 * t39 * t2118 + 0.100e3 / 0.81e2 * t617 * t2557 * t9787 * t804 + 0.10e2 / 0.9e1 * t961 * t3511 * t39777 + 0.500e3 / 0.81e2 * t2150 * t7498 * t2879 - 0.10e2 / 0.9e1 * t7442 * t8615 * t24 + 0.1000e4 / 0.81e2 * t2150 * t2577 * t804 * t2118 + 0.20e2 / 0.9e1 * t26061 * t10840 + 0.200e3 / 0.81e2 * t2147 * t9883 - 0.5e1 / 0.9e1 * t39795 * t2551 - params->c1 * t41304 * t279 + 0.500e3 / 0.27e2 * t26047 * t2577 * t599 + 0.5e1 / 0.9e1 * t961 * t962 * t41310;
22568   t41331 = t947 * t2879;
22569   t41335 = t2522 * t2875;
22570   t41352 = -0.500e3 / 0.81e2 * t31566 * t8631 * t599 - 0.100e3 / 0.81e2 * t29964 * t9861 - 0.10e2 / 0.9e1 * t31542 * t3222 - t2548 * t2919 + t8598 * t968 + 0.50e2 / 0.81e2 * t617 * t2557 * t12275 * t599 + t2899 * t2574 - 0.10e2 / 0.9e1 * t9854 * t9864 + 0.10000e5 / 0.729e3 * t20784 * t41331 * t2551 + 0.10e2 / 0.9e1 * t961 * t3511 * t41335 + 0.5e1 / 0.9e1 * t2554 * t12346 + 0.200e3 / 0.81e2 * t2147 * t9889 + 0.100e3 / 0.81e2 * t12331 * t22645 - 0.50e2 / 0.81e2 * t22648 * t12326 + 0.50e2 / 0.27e2 * t34813 * t2577 * t8615 + 0.10e2 / 0.9e1 * t9867 * t3232;
22571   t41375 = (t41314 + t41352) * t283 + t12349 * t623 * t283 + 0.2e1 * t9895 * t823 * t283 + 0.2e1 * t3235 * t2158 * t283 + 0.2e1 * t12351 * t624 + t2565 * t2910 * t283 + t966 * t8622 * t283 + t12354 * t624 + t2565 * t2912 * t283 + 0.2e1 * t3237 * t2159 + t12356 * t624;
22572   t41386 = t2522 * t285;
22573   t41387 = t41386 * t2875;
22574   t41391 = t9905 * t68 * t2118;
22575   t41395 = t1263 * t1654 * t12275;
22576   t41407 = 0.250e3 / 0.243e3 * t31680 * t8632 + 0.10e2 / 0.9e1 * t9924 * t2169 + 0.50e2 / 0.27e2 * t23640 * t2916 + 0.2000e4 / 0.81e2 * t31640 * t8632 + 0.1000e4 / 0.27e2 * t31643 * t8632 + 0.2e1 * t1643 * t41387 + 0.100e3 / 0.27e2 * t7482 * t41391 + 0.5e1 / 0.9e1 * t41395 * t628 + 0.50e2 / 0.27e2 * t23635 * t2916 + 0.1000e4 / 0.81e2 * t31653 * t8632 + 0.20e2 / 0.9e1 * t9917 * t2169 + 0.25e2 / 0.81e2 * t23648 * t2916 + t1655 * t41387;
22577   t41410 = t8615 * t27229;
22578   t41423 = t10877 * t8547;
22579   t41433 = t449 * t1630 * t12275;
22580   t41440 = 0.50e2 / 0.81e2 * t31688 * t9907 + 0.5e1 / 0.9e1 * t7505 * t41410 + 0.50e2 / 0.81e2 * t7505 * t41391 + 0.10e2 / 0.3e1 * t7482 * t41410 + 0.10e2 / 0.3e1 * t7490 * t41410 + 0.100e3 / 0.27e2 * t31697 * t9907 + 0.20e2 / 0.9e1 * t31672 * t826 + 0.2e1 * t1643 * t41423 + 0.100e3 / 0.27e2 * t31701 * t9907 + 0.100e3 / 0.27e2 * t7490 * t41391 + 0.10e2 / 0.9e1 * t31684 * t826 + 0.10e2 / 0.9e1 * t41433 * t628 + t449 * t618 * t41310 * t285 + t1655 * t41423;
22581   t41442 = my_piecewise3(t277, t41375, t41407 + t41440);
22582   t41446 = -0.2e1 * t510 * t814 * t9934 + 0.2e1 * t1423 * t2774 * t2582 + 0.24e2 * t7051 * t2418 * t814 * t2137 + 0.8e1 * t7055 * t11994 - t510 * t8582 * t971 + 0.12e2 * t7051 * t2418 * t2893 * t611 - 0.2e1 * t510 * t12303 * t631 - 0.8e1 * t9344 * t9341 + 0.8e1 * t9344 * t9338 - 0.8e1 * t2417 * t9358 * t2137 + 0.4e1 * t2417 * t39750 * t611 - 0.4e1 * t510 * t3210 * t2177 - 0.8e1 * t7055 * t11991 + 0.1174e1 * t41442 - t510 * t2893 * t2582;
22583   t41470 = t12302 * t288;
22584   t41492 = -0.48e2 * t23802 * t2418 * t2774 * t611 - 0.4e1 * t12004 * t510 * t631 + 0.2e1 * t12316 * t1423 * t611 - 0.4e1 * t2417 * t2418 * t8582 - 0.4e1 * t2417 * t2893 * t7058 + 0.4e1 * t2417 * t2893 * t7062 + 0.8e1 * t2417 * t31854 * t814 + 0.8e1 * t2417 * t31927 * t814 - 0.4e1 * t2417 * t41470 * t611 + 0.12e2 * t2774 * t7051 * t7058 - 0.12e2 * t2774 * t7051 * t7062 - 0.4e1 * t510 * t829 * t9362 - 0.4e1 * t510 * t829 * t9822 + 0.12e2 * t11986 * t23667 - 0.8e1 * t9335 * t9344;
22585   t41521 = t4897 * t12296;
22586   t41532 = t264 * t2875;
22587   t41533 = t948 * t41532;
22588   t41553 = 0.3e1 / 0.100e3 * t2523 * t12285 - t1609 * t39777 * t266 / 0.100e3 - t41521 * t2528 / 0.180e3 - t9818 * t8573 / 0.162e3 - t4897 * t12339 * t2131 / 0.162e3 + t3198 * t9804 * t2131 / 0.27e2 + t41533 * t2528 / 0.30e2 + t9805 * t8573 / 0.27e2 + 0.3e1 / 0.100e3 * t948 * t262 * t8547 * t266 - t604 * t41310 * t266 / 0.100e3 - 0.25e2 / 0.162e3 * t12281 * t23731 * t2123 + t9791 * t9801 / 0.30e2 - t1609 * t41335 * t266 / 0.100e3;
22589   t41556 = t12276 * t262;
22590   t41561 = t24 * t2884;
22591   t41566 = t1609 * t12275;
22592   t41574 = t8631 * t2123;
22593   t41582 = t948 * t804;
22594   t41590 = t31796 * t3201 / 0.30e2 + t41556 * t2528 / 0.60e2 + t23721 * t12288 / 0.54e2 - t9796 * t41561 / 0.60e2 - t31799 * t3201 / 0.90e2 - t41566 * t2528 / 0.180e3 + t56 * t41310 * t266 / 0.100e3 - t9811 * t9801 / 0.90e2 - 0.5e1 / 0.486e3 * t23705 * t41574 - t3198 * t599 * t9798 / 0.54e2 + 0.25e2 / 0.243e3 * t2534 * t41574 - t41582 * t8573 / 0.54e2 - t23716 * t12288 / 0.324e3 - t2523 * t2879 * t1611 / 0.108e3;
22595   t41608 = t3209 * t829;
22596   t41615 = -0.4e1 * t510 * t9347 * t829 - t276 * t41442 - 0.24e2 * t7051 * t9829 * t9329 + 0.8e1 * t2417 * t31742 * t814 + 0.2e1 * t510 * t8579 * t953 * t288 + 0.24e2 * t7051 * t9358 * t9329 + 0.4e1 * t1423 * t12318 * t611 - 0.4e1 * t7055 * t11997 + 0.2e1 * t510 * t269 * (t41553 + t41590) * t288 - 0.2e1 * t510 * t954 * t8657 + 0.2e1 * t510 * t608 * t12302 * t288 - 0.8e1 * t2417 * t31767 * t814 + 0.8e1 * t9344 * t9830 + 0.8e1 * t2417 * t41608 * t611 - 0.6e1 * t4566 * t12313 * t611;
22597   t41648 = t1423 * t2890;
22598   t41663 = 0.2e1 * t510 * t2890 * t2537 * t288 - 0.2e1 * t510 * t2422 * t2925 - 0.4e1 * t510 * t9351 * t829 + 0.4e1 * t510 * t2134 * t3209 * t288 - 0.2e1 * t510 * t2538 * t2925 - 0.8e1 * t9344 * t9359 - 0.2e1 * t510 * t12000 * t631 - 0.2e1 * t510 * t2137 * t3248 - 0.8e1 * t31900 * t3106 - t510 * t611 * t12377 + 0.4e1 * t1423 * t3217 * t2137 - 0.4e1 * t41648 * t2419 - 0.4e1 * t510 * t3109 * t2177 + 0.24e2 * t29933 * t9330 + 0.8e1 * t2417 * t9829 * t2137 + 0.4e1 * t510 * t811 * t9821 * t288;
22599   t41677 = 0.24739500000000000000e1 * t29797 * t2190 + 0.22265550000000000000e2 * t9951 * t3251 * t1673 * t19 * t2198 - 0.60406209071787192651e2 * t7526 * t3251 * t2208 * t177 * t1690 - 0.83495812500000000000e2 * t9951 * t23869 * t8139 + 0.23254840140139470986e0 * t7526 * t23874 * t8144 + 0.30203104535893596326e2 * t7526 * t12391 * t177 * t1690 + 0.11326164200960098622e2 * t7526 * t2585 * t2947 * t293 * t1690 - t39654 - 0.3e1 / 0.8e1 * t846 * t913 * (t41446 + t41492 + t41615 + t41663) * t302 - t2220 * t39641 * t504 / 0.2e1 - t39640 - 0.45424903023464625000e2 * t9951 * t974 * t8157 * t8161 + t39646;
22600   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22601     v4rhosigma2lapl[23] = t39694 + t41677;
22602 
22603   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22604     v4rhosigma2tau[0] = 0.0e0;
22605 
22606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22607     v4rhosigma2tau[1] = 0.0e0;
22608 
22609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22610     v4rhosigma2tau[2] = 0.0e0;
22611 
22612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22613     v4rhosigma2tau[3] = 0.0e0;
22614 
22615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22616     v4rhosigma2tau[4] = 0.0e0;
22617 
22618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22619     v4rhosigma2tau[5] = 0.0e0;
22620 
22621   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22622     v4rhosigma2tau[6] = 0.0e0;
22623 
22624   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22625     v4rhosigma2tau[7] = 0.0e0;
22626 
22627   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22628     v4rhosigma2tau[8] = 0.0e0;
22629 
22630   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22631     v4rhosigma2tau[9] = 0.0e0;
22632 
22633   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22634     v4rhosigma2tau[10] = 0.0e0;
22635 
22636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22637     v4rhosigma2tau[11] = 0.0e0;
22638 
22639   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22640     v4rhosigma2tau[12] = 0.0e0;
22641 
22642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22643     v4rhosigma2tau[13] = 0.0e0;
22644 
22645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22646     v4rhosigma2tau[14] = 0.0e0;
22647 
22648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22649     v4rhosigma2tau[15] = 0.0e0;
22650 
22651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22652     v4rhosigma2tau[16] = 0.0e0;
22653 
22654   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22655     v4rhosigma2tau[17] = 0.0e0;
22656 
22657   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22658     v4rhosigma2tau[18] = 0.0e0;
22659 
22660   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22661     v4rhosigma2tau[19] = 0.0e0;
22662 
22663   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22664     v4rhosigma2tau[20] = 0.0e0;
22665 
22666   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22667     v4rhosigma2tau[21] = 0.0e0;
22668 
22669   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22670     v4rhosigma2tau[22] = 0.0e0;
22671 
22672   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22673     v4rhosigma2tau[23] = 0.0e0;
22674 
22675   t41679 = t7016 * t12800 / 0.2e1;
22676   t41680 = t15 * t12798;
22677   t41688 = t6499 * t3057;
22678   t41694 = t6503 * t3057;
22679   t41697 = t887 * t3096;
22680   t41722 = t2226 * t9166;
22681   t41728 = t9988 * t719;
22682   t41731 = t12737 * t442;
22683   t41767 = t3694 * t1107;
22684   t41783 = 0.1e1 / t27 / t349;
22685   t41784 = t345 * t41783;
22686   t41788 = t2239 * t8717;
22687   t41791 = t6573 * t1098;
22688   t41796 = t5203 * t3721;
22689   t41799 = t3694 * t3721;
22690   t41807 = 0.5e1 / 0.1728e4 * t41767 * t6536 * t2978 * t387 - t37701 * t6536 * t2978 * t378 / 0.432e3 + 0.5e1 / 0.9e1 * t32104 * t8713 - 0.5e1 / 0.3888e4 * t27779 * t68 * t12466 * t387 + 0.25e2 / 0.157464e6 * t6535 * t41784 * t15098 - 0.20e2 / 0.27e2 * t41788 * t2252 - 0.5e1 / 0.12e2 * t41791 * t8723 + 0.25e2 / 0.162e3 * t32093 * t8726 + 0.20e2 / 0.9e1 * t41796 * t10029 + 0.25e2 / 0.12e2 * t41799 * t10028 * t8722 + 0.3e1 * t10006 * t8763 + 0.3e1 * t10006 * t8782;
22691   t41808 = t6573 * t676;
22692   t41811 = t17523 * t86;
22693   t41831 = 0.3e1 * t41808 * t2245 - 0.15e2 / 0.2e1 * t41811 * t10020 + 0.6e1 * t8755 * t10023 + 0.6e1 * t5203 * t86 * t10034 + t13235 * t35138 / 0.3888e4 + 0.3e1 * t32064 * t2967 - 0.13e2 / 0.7776e4 * t11615 + 0.5e1 / 0.4374e4 * t11618 - 0.13e2 / 0.7776e4 * t11645 + 0.5e1 / 0.4374e4 * t11648 + 0.3e1 * t32067 * t2967 + t27915 * t12467 / 0.1944e4;
22694   t41864 = t27918 * t12467 / 0.1944e4 + t8777 * t68 * t72 * t1764 / 0.1944e4 + 0.5e1 / 0.4374e4 * t8721 * t32149 * t37671 + t37698 * t10051 / 0.1944e4 - 0.5e1 / 0.2916e4 * t11626 + 0.10e2 / 0.9e1 * t32223 * t8713 - 0.50e2 / 0.9e1 * t32201 * t8713 + 0.40e2 / 0.9e1 * t32205 * t676 * t19 * t355 - 0.15e2 / 0.4e1 * t3694 * t3271 * t89 * t681 * t387 + 0.3e1 * t32167 * t8763 + 0.5e1 / 0.17496e5 * t8740 * t12472 + 0.5e1 / 0.17496e5 * t8743 * t12472;
22695   t41865 = t1091 * t14313;
22696   t41878 = t3686 * t1107;
22697   t41890 = t1091 * t2244;
22698   t41903 = -0.5e1 / 0.3e1 * t41865 * t10028 * t1755 - 0.5e1 / 0.3e1 * t10027 * t2251 * t664 * t2255 - 0.125e3 / 0.162e3 * t32099 * t32100 * t1759 - 0.5e1 / 0.6e1 * t32096 * t12445 - t41878 * t12449 / 0.864e3 - t12448 * t21251 * t2978 / 0.864e3 - 0.5e1 / 0.972e3 * t10027 * t21327 * t2602 - 0.10e2 / 0.27e2 * t1737 * t10044 * t334 - t41890 * t8779 / 0.1728e4 - 0.5e1 / 0.24e2 * t32104 * t24 * t29 * t387 + 0.5e1 / 0.18e2 * t32108 * t8774 + 0.25e2 / 0.324e3 * t32156 * t1733 + t37721 * t10051 / 0.1944e4;
22699   t41906 = t68 * t27878;
22700   t41915 = t6573 * t377;
22701   t41934 = -t41906 * t37716 / 0.1728e4 + 0.5e1 / 0.18e2 * t32045 * t2973 + 0.5e1 / 0.18e2 * t32048 * t2973 + 0.5e1 / 0.18e2 * t10011 * t8774 - t41915 * t8779 / 0.1728e4 + 0.13e2 / 0.2592e4 * t12448 * t11630 - 0.20e2 / 0.27e2 * t10011 * t8767 + 0.20e2 / 0.9e1 * t10027 * t10028 * t1725 - t68 * t10000 * t1764 / 0.5832e4 - 0.5e1 / 0.6561e4 * t11647 * t10057 - t37829 * t3278 / 0.2916e4 - t37832 * t3278 / 0.2916e4;
22702   t41965 = -0.5e1 / 0.6561e4 * t11617 * t10057 - 0.5e1 / 0.11664e5 * t2243 * t8746 * t5096 * t387 - 0.15e2 / 0.2e1 * t32074 * t12439 - 0.15e2 / 0.2e1 * t10018 * t10019 * t1764 + 0.6e1 * t6543 * t12442 + 0.6e1 * t6546 * t12442 + 0.6e1 * t2243 * t10019 * t1751 + 0.3e1 / 0.2e1 * t1091 * t3275 * t1764 - 0.2e1 * t1737 * t10041 + 0.3e1 / 0.2e1 * t3686 * t12453 - t5201 * t3275 + 0.3e1 * t17519 * t3272 + 0.3e1 / 0.2e1 * t5203 * t10038;
22703   t41974 = t1086 * t857;
22704   t41977 = t376 * t2255;
22705   t41993 = 0.5e1 / 0.8748e4 * t11641 - 0.2e1 * t6521 * t2971 - 0.2e1 * t2239 * t8795 - 0.2e1 * t2239 * t8797 + t41974 * t2979 / 0.2592e4 + t41977 * t2979 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12456 * t8747 + 0.5e1 / 0.36e2 * t1086 * t3271 * t12461 - t37794 * t3278 / 0.2916e4 - t37797 * t3278 / 0.2916e4 + t12425 * t37845 / 0.2592e4 + t12425 * t37848 / 0.2592e4;
22706   t41994 = t10959 * t375;
22707   t41999 = t6521 * t85;
22708   t42002 = t2239 * t378;
22709   t42031 = 0.5e1 / 0.5832e4 * t41994 * t37854 - 0.15e2 / 0.2e1 * t32170 * t8737 + t41999 * t2979 / 0.2592e4 + t42002 * t2979 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12434 * t8747 + 0.105e3 / 0.4e1 * t32188 * t10019 * t1742 - 0.15e2 * t6554 * t10019 * t681 * t378 - 0.15e2 * t10018 * t10033 * t37751 - 0.15e2 * t6554 * t10019 * t676 * t387 + 0.12e2 * t2243 * t10033 * t676 * t2255 - 0.5e1 / 0.2916e4 * t11607 - 0.13e2 / 0.7776e4 * t12434 * t8750 - 0.10e2 / 0.27e2 * t12459 * t12460 * t1725;
22710   t42034 = t41807 + t41831 + t41864 + t41903 + t41934 + t41965 + t41993 + t42031;
22711   t42054 = t3312 * t3759;
22712   t42058 = t13358 * t8851;
22713   t42061 = t3312 * t689;
22714   t42062 = t42061 * t1159;
22715   t42065 = t42061 * t1138;
22716   t42070 = t10242 * t5494;
22717   t42073 = t10242 * t7784;
22718   t42076 = t697 * t2294;
22719   t42077 = t2279 * t42076;
22720   t42082 = t2279 * t3011;
22721   t42083 = t3840 * t42082;
22722   t42086 = t3299 * t689;
22723   t42087 = t42086 * t104;
22724   t42088 = t8849 * t42087;
22725   t42091 = -0.33837660950279469264e0 * t32677 * t1818 + 0.37929099725894513314e0 * t5508 * t10243 + 0.18968792869915364414e1 * t8899 * t42054 * t8851 - 0.32672968537417605163e1 * t8904 * t42058 - 0.21252129031945914941e0 * t5394 * t42062 - 0.4936538891835801600e1 * t8896 * t42065 + 0.14683899485061986386e1 * t8877 * t42065 + 0.26741638969413672554e0 * t18102 * t42070 + 0.12751277419167548965e1 * t18277 * t42073 - 0.42504258063891829882e0 * t5394 * t42077 - 0.42504258063891829883e0 * t5508 * t10246 - 0.85008516127783659766e0 * t1136 * t42083 - 0.22757459835536707989e1 * t1136 * t42088;
22726   t42093 = t3856 * t2279 * t3037;
22727   t42099 = t1137 * t1790 * t2258;
22728   t42124 = -0.10979019874935515226e0 * t1136 * t42093 + 0.37929099725894513314e0 * t10272 * t5306 + 0.19594476351194912734e0 * t21416 * t42099 - 0.25306658097095253694e-1 * t10275 * t5295 - 0.19594476351194912734e0 * t10275 * t5299 + 0.45165298839047841173e-1 * t33022 * t7767 - 0.12968797032847508210e0 * t32703 * t5303 + 0.17485326916752292327e0 * t10275 * t5306 - 0.85008516127783659764e0 * t28223 * t8913 - 0.10979019874935515226e0 * t8859 * t6668 - 0.85008516127783659764e0 * t8859 * t6653 + 0.325024956416e0 * t107 * t32976 * t697 - 0.1428938704017162240e1 * t28346 * t874 * t9109;
22729   t42137 = t3333 * t697;
22730   t42145 = t42061 * t104;
22731   t42146 = t3862 * t42145;
22732   t42149 = t10242 * t697;
22733   t42150 = t5393 * t42149;
22734   t42153 = t3862 * t42082;
22735   t42156 = t8876 * t42087;
22736   t42159 = t3321 * t691;
22737   t42162 = -0.59934642900653710508e0 * t28531 * t2309 * t8988 + 0.65874119249613091356e0 * t39052 * t12597 - 0.59934642900653710508e0 * t28531 * t38215 + 0.21252129031945914941e0 * t10272 * t5499 + 0.97972381755974563669e-1 * t10275 * t5499 - 0.734005159174078464e0 * t9046 * t42137 * t411 - 0.54895099374677576130e-1 * t10272 * t5309 - 0.42504258063891829883e0 * t33072 * t8809 + 0.37929099725894513314e0 * t1136 * t42146 - 0.97972381755974563669e-1 * t1136 * t42150 + 0.75858199451789026629e0 * t1136 * t42153 + 0.67692822862798455803e0 * t1136 * t42156 + 0.69074723123554292755e-1 * t1136 * t42159;
22738   t42172 = t2279 * t28427;
22739   t42175 = t32346 * t1790;
22740   t42181 = t3037 * t402;
22741   t42182 = t2279 * t42181;
22742   t42187 = t3011 * t411;
22743   t42188 = t2279 * t42187;
22744   t42191 = t2279 * t28180;
22745   t42196 = t42086 * t1159;
22746   t42199 = 0.21252129031945914941e0 * t5508 * t10239 + 0.21252129031945914941e0 * t1784 * t32260 + 0.15762619094478157329e0 * t5504 * t13358 * t8845 + 0.36614111499190467036e1 * t8850 * t42058 + 0.5532003778560e1 * t8893 * t42172 + 0.29619233351014809600e2 * t8877 * t42175 + 0.29967321450326855254e0 * t7822 * t2279 * t28833 + 0.476312901339054080e0 * t5388 * t42182 - 0.37929099725894513314e0 * t18063 * t42073 - 0.42504258063891829883e0 * t5394 * t42188 - 0.9873077783671603200e1 * t8896 * t42191 + 0.29367798970123972772e1 * t8877 * t42191 - 0.37929099725894513314e0 * t18063 * t42196;
22747   t42213 = t12497 * t398;
22748   t42219 = t3334 * t691;
22749   t42226 = t12631 * t402;
22750   t42227 = t6656 * t42226;
22751   t42233 = t1137 * t10238 * t390;
22752   t42236 = t5319 * t3309;
22753   t42239 = -0.17620679382074383663e2 * t28591 * t42175 + 0.29367798970123972772e1 * t8877 * t42172 + 0.26206649088979828343e1 * t28739 * t42175 - 0.119078225334763520e0 * t32949 * t1814 - 0.12751277419167548965e1 * t10145 * t1767 * t112 + 0.21252129031945914941e0 * t42213 * t1139 + 0.37937585739830728829e1 * t8899 * t8900 * t28180 - 0.54895099374677576130e-1 * t1136 * t42219 - 0.39668333314116486558e0 * t18098 * t6656 * t12631 * t411 - 0.18915142913373788794e1 * t18106 * t42227 - 0.22757459835536707989e1 * t1784 * t32791 - 0.42504258063891829882e0 * t5312 * t42233 - 0.19594476351194912734e0 * t5318 * t42236;
22754   t42242 = t6656 * t28180;
22755   t42255 = t32564 * t8851;
22756   t42258 = t10258 * t8845;
22757   t42261 = t6656 * t28427;
22758   t42264 = t10258 * t8851;
22759   t42270 = t8866 * t10250;
22760   t42277 = 0.16879116930178234168e1 * t5399 * t32656 - 0.65345937074835210328e1 * t8904 * t42242 - 0.48997150734706182896e0 * t18264 * t32564 * t8845 + 0.37937585739830728828e1 * t8899 * t8900 * t28427 - 0.92817332546461565657e1 * t29077 * t3299 * t14382 * t8851 + 0.20312390406477209506e2 * t29082 * t42255 + 0.84395584650891170840e0 * t18077 * t42258 - 0.65345937074835210326e1 * t8904 * t42261 - 0.13606156761889987933e2 * t28735 * t42264 + 0.29967321450326855254e0 * t7822 * t8866 * t6750 + 0.476312901339054080e0 * t5388 * t42270 - 0.94575714566868943973e0 * t18106 * t42258 - 0.21968466899514280222e2 * t8904 * t42264;
22761   t42307 = 0.73228222998380934072e1 * t8850 * t42261 - 0.22762551443898437297e2 * t28819 * t42255 + 0.39207562244901126197e2 * t29071 * t42264 + 0.42504258063891829882e0 * t8859 * t6742 + 0.42504258063891829882e0 * t6696 * t8867 + 0.42504258063891829882e0 * t2273 * t29009 + 0.476312901339054080e0 * t5388 * t42188 + 0.5532003778560e1 * t8893 * t42191 + 0.12751277419167548965e1 * t18277 * t42196 + 0.31525238188956314658e0 * t5504 * t6656 * t42187 + 0.73228222998380934071e1 * t8850 * t42242 - 0.67675321900558938528e0 * t862 * t107 * t28526 + 0.13814944624710858551e0 * t6720 * t9028;
22762   t42315 = t10258 * t7784;
22763   t42326 = t2290 * t29008;
22764   t42334 = t5319 * t3314;
22765   t42339 = t1773 * t8800;
22766   t42342 = 0.13814944624710858551e0 * t8813 * t6751 - 0.50613316194190507389e-1 * t28949 * t875 - 0.19834166657058243280e0 * t18098 * t10258 * t5494 - 0.94575714566868943973e0 * t18106 * t42315 + 0.31525238188956314658e0 * t5504 * t6656 * t42076 - 0.48997150734706182898e0 * t18264 * t32564 * t7784 + 0.84395584650891170843e0 * t18077 * t42315 - 0.1844001259520e1 * t399 * t42326 + 0.238156450669527040e0 * t1158 * t3308 * t7831 - 0.42504258063891829882e0 * t1784 * t32331 + 0.97972381755974563669e-1 * t5318 * t42334 - 0.28131861550297056947e0 * t5399 * t32335 + 0.42504258063891829882e0 * t6728 * t42339;
22767   t42346 = t10097 * t5498;
22768   t42349 = t3300 * t5498;
22769   t42352 = t6620 * t8866;
22770   t42364 = t3856 * t10238 * t697;
22771   t42367 = t3840 * t42145;
22772   t42370 = t10242 * t390;
22773   t42371 = t3862 * t42370;
22774   t42378 = t5319 * t3317;
22775   t42381 = -0.4936538891835801600e1 * t399 * t42346 + 0.2766001889280e1 * t399 * t42349 - 0.1844001259520e1 * t399 * t42352 - 0.10979019874935515226e0 * t2270 * t3039 - 0.25502554838335097930e1 * t38486 * t32299 - 0.10979019874935515226e0 * t2992 * t2324 - 0.119078225334763520e0 * t5291 * t10280 - 0.54895099374677576130e-1 * t1136 * t42364 - 0.42504258063891829883e0 * t1136 * t42367 - 0.75858199451789026628e0 * t5312 * t42371 - 0.97972381755974563671e-1 * t1784 * t32246 + 0.75858199451789026628e0 * t1784 * t32250 + 0.17485326916752292327e0 * t5318 * t42378;
22776   t42395 = t111 * t2982;
22777   t42396 = t107 * t42395;
22778   t42400 = t1143 * t697 * t2258;
22779   t42406 = t10126 * t5498;
22780   t42411 = t32579 * t1790;
22781   t42416 = -0.15062248783813849042e1 * t5399 * t32802 + 0.67692822862798455802e0 * t1784 * t32348 + 0.12751277419167548965e1 * t10275 * t8809 + 0.97972381755974563669e-1 * t32369 * t684 * t9122 + 0.476312901339054080e0 * t9043 * t9007 + 0.69074723123554292753e-1 * t10155 * t5495 + 0.19594476351194912734e0 * t32297 * t42396 - 0.10979019874935515226e0 * t6728 * t42400 - 0.238156450669527040e0 * t1158 * t8829 * t3304 - 0.922000629760e0 * t399 * t42406 - 0.11064007557120e2 * t32302 * t9110 - 0.922000629760e0 * t399 * t42411 - 0.54895099374677576129e-1 * t1784 * t32648;
22782   t42446 = -0.10979019874935515226e0 * t2273 * t28026 - 0.85008516127783659764e0 * t6696 * t8947 - 0.10979019874935515226e0 * t6696 * t8941 - 0.10979019874935515226e0 * t2273 * t28022 - 0.56263723100594113893e0 * t28206 * t6658 + 0.238156450669527040e0 * t5388 * t42062 + 0.2766001889280e1 * t8893 * t42065 - 0.15171639890357805325e1 * t28243 * t38176 - 0.19594476351194912734e0 * t28255 * t29046 - 0.119078225334763520e0 * t1158 * t10293 * t5498 - 0.56263723100594113893e0 * t6689 * t28412 + 0.75858199451789026627e0 * t2273 * t28182 - 0.119078225334763520e0 * t1158 * t3313 * t7831;
22783   t42447 = t3802 * t42137;
22784   t42458 = t1123 * t12475;
22785   t42459 = t42458 * t100;
22786   t42476 = 0.14983660725163427627e0 * t1142 * t42447 - 0.54895099374677576130e-1 * t1784 * t32341 - 0.54895099374677576130e-1 * t10288 * t699 - 0.54895099374677576129e-1 * t12635 * t413 + 0.238156450669527040e0 * t10149 * t5434 - 0.922000629760e0 * t42459 * t1774 + 0.12751277419167548965e1 * t10275 * t7760 - 0.85008516127783659766e0 * t6725 * t42099 + 0.10979019874935515226e0 * t10269 * t5295 + 0.85008516127783659766e0 * t10269 * t5299 - 0.58783429053584738202e0 * t32594 * t7767 + 0.56263723100594113894e0 * t32402 * t5303 - 0.75858199451789026629e0 * t10269 * t5306;
22787   t42489 = t873 * t3037;
22788   t42490 = t3802 * t42489;
22789   t42494 = t1143 * t2982 * t411;
22790   t42504 = t3320 * t697;
22791   t42511 = t104 * t684;
22792   t42516 = -0.42504258063891829882e0 * t33072 * t7760 - 0.54895099374677576129e-1 * t10272 * t5295 - 0.42504258063891829882e0 * t10272 * t5299 + 0.97972381755974563669e-1 * t33067 * t7767 - 0.28131861550297056947e0 * t32696 * t5303 + 0.29967321450326855254e0 * t1142 * t42490 - 0.10979019874935515226e0 * t6728 * t42494 - 0.10979019874935515226e0 * t8969 * t875 - 0.10979019874935515226e0 * t9050 * t875 + 0.21252129031945914941e0 * t10217 * t1767 * t112 + 0.23916119461575365556e1 * t28844 * t42504 * t411 - 0.1468010318348156928e1 * t9046 * t42489 * t411 + 0.25502554838335097929e1 * t28083 * t866 * t42511 * t390;
22793   t42521 = t42511 * t402;
22794   t42525 = t10077 * t5498;
22795   t42536 = -t401 * t42034 * t104;
22796   t42542 = t1177 * t12524;
22797   t42547 = t3862 * t6656 * t3011;
22798   t42551 = t8876 * t32564 * t689;
22799   t42554 = t10258 * t689;
22800   t42555 = t8876 * t42554;
22801   t42559 = t3856 * t8866 * t873;
22802   t42564 = 0.21958039749871030452e0 * t21590 * t866 * t42511 * t411 + 0.17001703225556731953e1 * t28243 * t2290 * t42521 + 0.822756481972633600e0 * t399 * t42525 - 0.61023519165317445059e0 * t1149 * t32411 * t3001 - 0.61023519165317445059e0 * t1149 * t10077 * t7930 + 0.461000314880e0 * t399 * t42536 - 0.1468010318348156928e1 * t9046 * t9027 * t2322 + 0.325024956416e0 * t107 * t42542 * t411 - 0.56263723100594113896e0 * t3861 * t42547 + 0.87446194859244818738e0 * t14682 * t42551 - 0.15062248783813849042e1 * t3861 * t42555 - 0.10979019874935515226e0 * t1136 * t42559 - 0.85008516127783659764e0 * t2273 * t28285;
22803   t42572 = t10105 * t5498;
22804   t42575 = t17825 * t3301;
22805   t42590 = t1151 * t12514;
22806   t42598 = 0.14983660725163427627e0 * t3771 * t10122 * t5498 - 0.238156450669527040e0 * t1158 * t2295 * t12549 + 0.14683899485061986386e1 * t399 * t42572 - 0.12968797032847508210e0 * t5318 * t42575 - 0.10979019874935515226e0 * t6696 * t8922 - 0.10979019874935515226e0 * t2273 * t28093 - 0.10979019874935515226e0 * t2273 * t28096 - 0.10979019874935515226e0 * t5508 * t10115 - 0.10979019874935515226e0 * t1784 * t32356 - 0.238156450669527040e0 * t28065 * t2302 - 0.61023519165317445059e0 * t1149 * t42590 * t1795 + 0.19594476351194912734e0 * t9121 * t32299 - 0.25306658097095253694e-1 * t12575 * t413;
22807   t42609 = t1164 * t12514;
22808   t42610 = t42609 * t1138;
22809   t42632 = 0.45165298839047841173e-1 * t32713 * t684 * t9122 - 0.12751277419167548965e1 * t32844 * t390 * t8993 + 0.238156450669527040e0 * t10189 * t7939 + 0.14983660725163427627e0 * t10285 * t5495 - 0.922000629760e0 * t399 * t42610 - 0.25306658097095253694e-1 * t10201 * t699 - 0.11756685810716947640e1 * t32864 * t684 * t9122 + 0.18968792869915364414e1 * t3755 * t10105 * t35735 + 0.42504258063891829882e0 * t21741 * t12483 + 0.29967321450326855254e0 * t1787 * t33060 + 0.21958039749871030452e0 * t21590 * t38257 - 0.119078225334763520e0 * t1158 * t12515 * t1159 - 0.10979019874935515226e0 * t9000 * t875;
22810   t42654 = t42590 * t1138;
22811   t42660 = t32411 * t1790;
22812   t42668 = t109 * t8800;
22813   t42671 = t6632 * t8866;
22814   t42674 = -0.3569440e1 * t42458 * t1825 + 0.10708320e2 * t42349 + 0.3185225478400e1 * t10217 * t7889 + 0.3185225478400e1 * t42654 - 0.7138880e1 * t6599 * t12490 - 0.3569440e1 * t10188 * t7889 + 0.3185225478400e1 * t42660 - 0.3569440e1 * t32883 * t3027 + 0.5684735615810048000e1 * t10200 * t7889 + 0.3185225478400e1 * t32832 * t3027 - 0.7138880e1 * t2262 * t42668 + 0.6370450956800e1 * t42671 + 0.3185225478400e1 * t42525;
22815   t42675 = t1132 * t12475;
22816   t42679 = t2283 * t29008;
22817   t42696 = t12490 * t390;
22818   t42702 = 0.3185225478400e1 * t42675 * t1825 - 0.7138880e1 * t42326 + 0.6370450956800e1 * t42679 - 0.38222705740800e2 * t6623 * t28167 - 0.38222705740800e2 * t6623 * t28181 + 0.10708320e2 * t10077 * t5298 - 0.3569440e1 * t42411 + 0.10708320e2 * t10217 * t9053 - 0.68216827389720576000e2 * t32669 * t5298 - 0.19111352870400e2 * t32844 * t9053 - 0.19111352870400e2 * t32283 * t5298 + 0.21416640e2 * t2269 * t42696 + 0.5684735615810048000e1 * t32369 * t9053 - 0.3569440e1 * t42610;
22819   t42704 = t3027 * t2258;
22820   t42730 = 0.21416640e2 * t2269 * t42704 + 0.21416640e2 * t2283 * t28167 + 0.6370450956800e1 * t2269 * t42668 - 0.42833280e2 * t10097 * t5298 - 0.68216827389720576000e2 * t32864 * t9053 - 0.42833280e2 * t10145 * t9053 - 0.38222705740800e2 * t6602 * t42704 + 0.6370450956800e1 * t6610 * t12490 - 0.19111352870400e2 * t42346 + 0.10145661348248508867e2 * t32713 * t9053 + 0.11369471231620096000e2 * t6615 * t42704 + 0.11369471231620096000e2 * t6615 * t42696 - 0.19111352870400e2 * t10145 * t7889;
22821   t42750 = t393 * t42034;
22822   t42756 = 0.114668117222400e3 * t10200 * t9053 - 0.38222705740800e2 * t6602 * t42696 - 0.7138880e1 * t42352 + 0.10708320e2 * t3292 * t7889 + 0.21416640e2 * t2283 * t28181 + 0.114668117222400e3 * t10105 * t5298 + 0.5684735615810048000e1 * t32726 * t5298 + 0.10145661348248508867e2 * t32488 * t5298 + 0.11369471231620096000e2 * t6637 * t28167 + 0.11369471231620096000e2 * t6637 * t28181 + 0.1784720e1 * t42750 * t109 + 0.1784720e1 * t42536 + 0.5684735615810048000e1 * t42572 - 0.3569440e1 * t42406;
22823   t42762 = t12524 * t401;
22824   t42767 = t1143 * t3333 * t390;
22825   t42784 = 0.476312901339054080e0 * t2263 * t38909 + 0.29967321450326855254e0 * t2276 * t28834 - 0.32672968537417605163e1 * t1149 * t10105 * t7930 - 0.119078225334763520e0 * t1158 * t10184 * t2658 - 0.238156450669527040e0 * t9017 * t6671 - 0.258304e0 * t107 * t407 * (t42674 + t42702 + t42730 + t42756) - 0.119078225334763520e0 * t1158 * t42762 * t1138 + 0.238156450669527040e0 * t1772 * t42767 + 0.14983660725163427627e0 * t1787 * t32683 - 0.12204703833063489012e1 * t1149 * t2283 * t1154 * t8828 - 0.12204703833063489012e1 * t1149 * t6632 * t12612 + 0.29967321450326855254e0 * t2276 * t28939 + 0.36614111499190467036e1 * t1149 * t10097 * t7930;
22826   t42792 = t3862 * t13358 * t689;
22827   t42799 = t10145 * t8812;
22828   t42806 = t10200 * t8812;
22829   t42809 = t42395 * t404;
22830   t42812 = t6741 * t12631;
22831   t42815 = t2322 * t689;
22832   t42816 = t2279 * t42815;
22833   t42819 = 0.29967321450326855254e0 * t6800 * t9028 + 0.29967321450326855254e0 * t2276 * t28936 + 0.37929099725894513314e0 * t1784 * t32338 - 0.28131861550297056947e0 * t3861 * t42792 + 0.19594476351194912734e0 * t29160 * t8929 - 0.10979019874935515226e0 * t2273 * t29171 - 0.58783429053584738203e0 * t42799 * t5320 - 0.10979019874935515226e0 * t8859 * t6664 - 0.25306658097095253694e-1 * t10275 * t5309 + 0.45165298839047841173e-1 * t42806 * t5320 + 0.19594476351194912734e0 * t21416 * t42809 + 0.476312901339054080e0 * t5388 * t42812 + 0.476312901339054080e0 * t5388 * t42816;
22834   t42821 = t873 * t1806;
22835   t42822 = t2279 * t42821;
22836   t42827 = t12514 * t104;
22837   t42828 = t1137 * t42827;
22838   t42848 = t398 * t3321;
22839   t42856 = 0.476312901339054080e0 * t5388 * t42822 - 0.119078225334763520e0 * t1787 * t32749 + 0.21252129031945914941e0 * t1136 * t42828 - 0.28131861550297056947e0 * t17996 * t10259 + 0.29967321450326855254e0 * t7822 * t6741 * t9027 + 0.29967321450326855254e0 * t7822 * t2279 * t28510 + 0.29967321450326855254e0 * t7822 * t2279 * t28475 + 0.29967321450326855254e0 * t6717 * t9097 - 0.33837660950279469264e0 * t32677 * t1799 + 0.29967321450326855254e0 * t6717 * t9014 - 0.29967321450326855254e0 * t42848 * t1803 - 0.19834166657058243279e0 * t1148 * t3321 * t1796 + 0.26741638969413672554e0 * t42848 * t1811;
22840   t42857 = t1143 * t12524;
22841   t42861 = t2283 * t13354 * t689;
22842   t42880 = t12497 * t100;
22843   t42886 = t10238 * t7784;
22844   t42889 = -0.119078225334763520e0 * t1142 * t42857 + 0.14533144731775861995e0 * t18014 * t42861 - 0.9873077783671603200e1 * t8896 * t42172 + 0.75858199451789026627e0 * t6696 * t8917 - 0.85008516127783659764e0 * t2273 * t28168 - 0.85008516127783659764e0 * t2273 * t28172 + 0.19594476351194912734e0 * t28417 * t8929 + 0.19594476351194912734e0 * t29168 * t8929 + 0.19594476351194912734e0 * t8813 * t28037 - 0.238156450669527040e0 * t2276 * t29051 - 0.119078225334763520e0 * t42880 * t1144 + 0.14983660725163427627e0 * t7822 * t10238 * t5494 + 0.238156450669527040e0 * t5388 * t42886;
22845   t42926 = 0.15762619094478157328e0 * t5504 * t13358 * t7784 - 0.21252129031945914941e0 * t5394 * t42886 - 0.119078225334763520e0 * t10285 * t5434 - 0.119078225334763520e0 * t1158 * t32686 * t1790 + 0.21252129031945914941e0 * t32832 * t684 * t112 - 0.10979019874935515226e0 * t1784 * t32352 - 0.85008516127783659764e0 * t21779 * t12678 - 0.21252129031945914941e0 * t1158 * t3300 * t7831 + 0.1645512963945267200e1 * t399 * t42671 + 0.822756481972633600e0 * t399 * t42660 + 0.1645512963945267200e1 * t399 * t42679 + 0.11252744620118822779e1 * t28246 * t2283 * t1154 * t684 * t402 - 0.15171639890357805325e1 * t28243 * t2283 * t42521;
22846   t42928 = t866 * t3304 * t697;
22847   t42931 = t3304 * t689;
22848   t42932 = t2290 * t42931;
22849   t42959 = 0.13814944624710858551e0 * t18381 * t42928 + 0.21958039749871030452e0 * t18010 * t42932 - 0.734005159174078464e0 * t107 * t10162 * t1835 + 0.15762619094478157329e0 * t3793 * t3300 * t35506 - 0.714469352008581120e0 * t10155 * t7939 + 0.476312901339054080e0 * t2263 * t42400 - 0.29967321450326855254e0 * t10149 * t5495 + 0.32937059624806545678e0 * t10146 * t699 + 0.476312901339054080e0 * t2263 * t42494 - 0.922000629760e0 * t10189 * t7944 + 0.75858199451789026627e0 * t2273 * t28185 + 0.75858199451789026627e0 * t2273 * t28175 - 0.56263723100594113893e0 * t21707 * t8937;
22850   t42972 = t866 * t3304 * t390;
22851   t42990 = t8870 * t32599;
22852   t42993 = -0.56263723100594113893e0 * t6689 * t28189 - 0.56263723100594113893e0 * t6689 * t28193 - 0.238156450669527040e0 * t1158 * t866 * t104 * t9087 - 0.19594476351194912734e0 * t28255 * t28899 + 0.21958039749871030452e0 * t18251 * t42972 + 0.13814944624710858551e0 * t25028 * t32600 + 0.21958039749871030452e0 * t24214 * t32603 - 0.50613316194190507389e-1 * t18378 * t10115 + 0.14533144731775861995e0 * t24219 * t32374 - 0.19594476351194912734e0 * t24214 * t32378 - 0.97994301469412365794e0 * t18264 * t8900 * t42226 + 0.16879116930178234168e1 * t18077 * t42227 + 0.53483277938827345109e0 * t18102 * t42990;
22853   t42994 = t8870 * t32377;
22854   t42999 = t3840 * t42370;
22855   t43008 = t14496 * t42504;
22856   t43016 = t5393 * t10258 * t697;
22857   t43019 = t8849 * t42554;
22858   t43022 = t5387 * t42149;
22859   t43025 = t3862 * t42087;
22860   t43028 = 0.25502554838335097930e1 * t18277 * t42994 - 0.75858199451789026629e0 * t18063 * t42994 + 0.85008516127783659766e0 * t5312 * t42999 + 0.10979019874935515226e0 * t1784 * t32615 + 0.12751277419167548965e1 * t1784 * t32618 - 0.85008516127783659766e0 * t1784 * t32788 - 0.33837660950279469264e0 * t1142 * t43008 - 0.54895099374677576130e-1 * t1781 * t3335 - 0.1844001259520e1 * t2263 * t42339 + 0.72665723658879309980e-1 * t3861 * t43016 + 0.16879116930178234169e1 * t3861 * t43019 + 0.10979019874935515226e0 * t1136 * t43022 + 0.12751277419167548965e1 * t1136 * t43025;
22861   t43046 = t862 * t399;
22862   t43056 = t2283 * t42931;
22863   t43061 = 0.13814944624710858551e0 * t28070 * t28907 + 0.21958039749871030452e0 * t28255 * t28911 - 0.50613316194190507389e-1 * t21587 * t8941 + 0.14533144731775861995e0 * t28479 * t28914 - 0.19594476351194912734e0 * t28255 * t28917 + 0.17001703225556731953e1 * t28243 * t37986 + 0.21958039749871030452e0 * t28255 * t28198 + 0.25502554838335097929e1 * t43046 * t9074 - 0.39188952702389825468e0 * t21587 * t8947 + 0.650049912832e0 * t107 * t6735 * t3037 + 0.19594476351194912734e0 * t6720 * t38432 - 0.19594476351194912734e0 * t18010 * t43056 + 0.14983660725163427627e0 * t5291 * t10192;
22864   t43071 = t3862 * t10258 * t390;
22865   t43078 = t9027 * t402;
22866   t43079 = t2279 * t43078;
22867   t43088 = t10217 * t8812;
22868   t43096 = 0.29967321450326855254e0 * t9017 * t6751 + 0.32937059624806545679e0 * t12566 * t413 + 0.2766001889280e1 * t32571 * t9110 + 0.238156450669527040e0 * t10189 * t8989 + 0.56263723100594113894e0 * t17812 * t43071 + 0.72665723658879309976e-1 * t5399 * t32254 - 0.56263723100594113894e0 * t5399 * t32795 - 0.59934642900653710508e0 * t17987 * t43079 - 0.85008516127783659764e0 * t6725 * t1137 * t6741 * t684 - 0.85008516127783659764e0 * t6725 * t38443 + 0.97972381755974563669e-1 * t43088 * t5320 + 0.87446194859244818739e0 * t18003 * t32799 - 0.67675321900558938528e0 * t24603 * t2279 * t9047;
22869   t43120 = t862 * t1149;
22870   t43128 = -0.1428938704017162240e1 * t5394 * t42994 - 0.39668333314116486558e0 * t18098 * t6656 * t43078 + 0.53483277938827345109e0 * t18102 * t43079 - 0.59934642900653710508e0 * t17987 * t42990 + 0.10979019874935515226e0 * t10269 * t5309 + 0.69074723123554292755e-1 * t1784 * t32327 - 0.238156450669527040e0 * t1158 * t3012 * t10073 - 0.25937594065695016420e0 * t38591 * t6658 + 0.34970653833504584655e0 * t28076 * t6661 + 0.11252744620118822779e1 * t28246 * t38275 + 0.33758233860356468336e1 * t43120 * t28129 - 0.45514919671073415976e1 * t43046 * t9077 - 0.11756685810716947640e1 * t6602 * t28075 * t8913;
22871   t43159 = -0.50613316194190507388e-1 * t28076 * t6668 - 0.39188952702389825468e0 * t28076 * t6653 + 0.90330597678095682346e-1 * t28080 * t8929 + 0.21958039749871030452e0 * t21590 * t12596 * t404 + 0.13814944624710858551e0 * t28070 * t29043 - 0.50613316194190507389e-1 * t28076 * t6664 + 0.42504258063891829882e0 * t28942 * t2280 - 0.42504258063891829883e0 * t10269 * t5499 + 0.21252129031945914941e0 * t32441 * t1791 - 0.54895099374677576129e-1 * t10155 * t5434 + 0.97972381755974563669e-1 * t10200 * t1767 * t112 + 0.476312901339054080e0 * t2263 * t1143 * t2322 * t684 + 0.476312901339054080e0 * t2263 * t38743;
22872   t43170 = t398 * t3334;
22873   t43193 = 0.476312901339054080e0 * t6794 * t12597 + 0.2766001889280e1 * t10155 * t7944 - 0.238156450669527040e0 * t6800 * t8953 - 0.922000629760e0 * t32928 * t2986 + 0.238156450669527040e0 * t43170 * t1803 - 0.85008516127783659766e0 * t6725 * t42809 + 0.15762619094478157328e0 * t1148 * t3334 * t1796 - 0.21252129031945914941e0 * t43170 * t1811 + 0.31525238188956314657e0 * t5504 * t10101 * t12631 + 0.31525238188956314657e0 * t5504 * t6656 * t42815 + 0.31525238188956314657e0 * t5504 * t6656 * t42821 - 0.42504258063891829883e0 * t5394 * t42812 - 0.42504258063891829883e0 * t5394 * t42822;
22874   t43223 = -0.42504258063891829883e0 * t5394 * t42816 + 0.31525238188956314657e0 * t5504 * t12612 * t10250 - 0.42504258063891829883e0 * t5394 * t42270 + 0.14983660725163427627e0 * t32529 * t1799 + 0.650049912832e0 * t107 * t2309 * t9087 + 0.461000314880e0 * t42750 * t112 + 0.31525238188956314657e0 * t5504 * t6656 * t42181 - 0.42504258063891829883e0 * t5394 * t42182 - 0.29967321450326855254e0 * t17987 * t42070 - 0.714469352008581120e0 * t5394 * t42073 + 0.476312901339054080e0 * t5388 * t42077 - 0.714469352008581120e0 * t5394 * t42196 - 0.11064007557120e2 * t8896 * t42175;
22875   t43253 = 0.14983660725163427627e0 * t32529 * t1818 + 0.21252129031945914941e0 * t42675 * t390 * t112 + 0.14533144731775861995e0 * t28479 * t28125 - 0.25937594065695016420e0 * t28236 * t8937 + 0.17489238971848963747e1 * t862 * t3755 * t28904 - 0.30124497567627698084e1 * t43120 * t29015 + 0.75858199451789026627e0 * t8859 * t6661 - 0.85008516127783659764e0 * t6725 * t38347 - 0.10979019874935515226e0 * t2273 * t28282 + 0.34970653833504584654e0 * t21587 * t8917 + 0.13538564572559691160e1 * t43046 * t9085 + 0.21958039749871030452e0 * t21590 * t38229 + 0.13814944624710858551e0 * t28070 * t28890;
22876   t43265 = t3802 * t3320 * t390;
22877   t43289 = 0.21958039749871030452e0 * t28255 * t28893 - 0.50613316194190507389e-1 * t21587 * t8922 + 0.14533144731775861995e0 * t28479 * t28896 + 0.822756481972633600e0 * t399 * t42654 + 0.69074723123554292755e-1 * t1781 * t3322 - 0.29967321450326855254e0 * t1772 * t43265 - 0.33837660950279469264e0 * t1787 * t32674 - 0.25502554838335097930e1 * t8992 * t42396 + 0.5532003778560e1 * t6728 * t1773 * t684 * t2258 - 0.714469352008581120e0 * t10155 * t8989 + 0.76507664515005293790e1 * t10201 * t8993 + 0.5532003778560e1 * t6728 * t1773 * t2982 * t390 + 0.325024956416e0 * t107 * t10158 * t1835 - 0.1844001259520e1 * t6794 * t12483;
22878   t43295 = my_piecewise3(t97, 0, t42199 + t42162 + t42124 + t42091 + t43128 + t42889 + t42784 + t43289 + t42307 + t43096 + t42993 + t42598 + t42926 + t43028 + t43061 + t42856 + t42516 + t43193 + t43253 + t42277 + t42416 + t42381 + t42564 + t42476 + t42342 + t43223 + t42446 + t42959 + t43159 + t42819 + t42632 + t42239);
22879   t43296 = my_piecewise3(t96, 0, t43295);
22880   t43298 = t10062 * t703 + t10301 * t684 + t114 * t42034 + t12475 * t417 + t12688 * t390 + t1767 * t3339 + t1841 * t3281 + 0.2e1 * t2258 * t3043 + 0.2e1 * t2328 * t2982 + t43296 * t95 + 0.2e1 * t860 * t9130 + 0.2e1 * t879 * t8800;
22881   t43301 = -t43298;
22882   t43305 = -0.5e1 / 0.9e1 * t41731 * t2359 - 0.5e1 / 0.9e1 * t10357 * t9209 - 0.5e1 / 0.9e1 * t32003 * t3070 - 0.10e2 / 0.9e1 * t9212 * t3370 + 0.2e1 * t3068 * t2382 + 0.2e1 * t9197 * t902 + 0.2e1 * t893 * t9265 + 0.5e1 / 0.9e1 * t9212 * t3373 - 0.50e2 / 0.81e2 * t32006 * t9206 + 0.50e2 / 0.81e2 * t441 * t2365 * t12690 * t423 + 0.500e3 / 0.81e2 * t1879 * t10414 * t9219 + 0.20e2 / 0.9e1 * t27635 * t10362 + 0.20e2 / 0.9e1 * t22070 * t12743 + 0.50e2 / 0.81e2 * t441 * t2365 * t10303 * t709 + 0.100e3 / 0.81e2 * t1876 * t10381 - params->c1 * t43298 * t141 + 0.5e1 / 0.9e1 * t895 * t896 * t43301;
22883   t43355 = 0.50e2 / 0.81e2 * t441 * t2365 * t3341 * t1847 - 0.50e2 / 0.27e2 * t441 * t10369 * t3345 * t1847 + 0.100e3 / 0.27e2 * t893 * t2385 * t9206 + 0.20e2 / 0.9e1 * t6883 * t9233 * t24 - 0.100e3 / 0.27e2 * t33140 * t2385 * t9223 - 0.20e2 / 0.9e1 * t3073 * t10375 + 0.20e2 / 0.9e1 * t6883 * t9227 * t24 + 0.20e2 / 0.9e1 * t6883 * t9223 * t24 - 0.100e3 / 0.27e2 * t33140 * t2385 * t9233 + 0.2e1 * t2356 * t3090 + 0.5e1 / 0.9e1 * t2362 * t12764 - 0.100e3 / 0.27e2 * t1876 * t10371 + 0.5e1 / 0.9e1 * t3073 * t10384 - 0.20e2 / 0.9e1 * t895 * t3369 * t881 * t9132 - 0.2000e4 / 0.81e2 * t1879 * t10403 * t9219 - 0.20e2 / 0.9e1 * t2362 * t12755 - 0.20e2 / 0.9e1 * t895 * t3369 * t2330 * t3045;
22884   t43376 = (t43305 + t43355) * t145 + t12767 * t447 * t145 + t10387 * t728 * t145 + t3376 * t1887 * t145 + t12769 * t448 + 0.2e1 * t2374 * t3083 + 0.2e1 * t2375 * t3084 + 0.2e1 * t901 * t9240 + 0.2e1 * t3085 * t2374 + t3378 * t1887 * t145 + t12773 * t448;
22885   t43377 = t10399 * t9132;
22886   t43380 = t147 * t3045;
22887   t43381 = t43380 * t2359;
22888   t43393 = t9250 * t24 * t2330;
22889   t43408 = -0.4e1 * t1252 * t43377 - 0.20e2 / 0.3e1 * t6923 * t43381 - 0.20e2 / 0.3e1 * t6931 * t43381 - 0.200e3 / 0.27e2 * t33202 * t9252 - 0.100e3 / 0.9e1 * t33205 * t9252 - 0.2e1 * t1266 * t43377 - 0.20e2 / 0.3e1 * t6923 * t43393 + 0.10e2 / 0.9e1 * t33240 * t731 - 0.10e2 / 0.3e1 * t10396 * t1898 - 0.10e2 / 0.3e1 * t10404 * t1898 - 0.20e2 / 0.3e1 * t6931 * t43393 - 0.10e2 / 0.9e1 * t6946 * t43393 - 0.25e2 / 0.81e2 * t33227 * t9252;
22890   t43412 = t449 * t1239 * t12690;
22891   t43415 = t39302 * t3045;
22892   t43422 = t1263 * t1265 * t12690;
22893   t43443 = 0.25e2 / 0.81e2 * t33233 * t9252 + 0.10e2 / 0.9e1 * t43412 * t453 - 0.4e1 * t1252 * t43415 + t449 * t442 * t43301 * t147 + 0.5e1 / 0.9e1 * t43422 * t453 + 0.5e1 / 0.9e1 * t33189 * t731 + 0.10e2 / 0.9e1 * t10408 * t1898 - 0.5e1 / 0.9e1 * t10421 * t1898 + 0.5e1 / 0.9e1 * t10415 * t1898 - 0.2e1 * t1266 * t43415 - 0.100e3 / 0.27e2 * t33217 * t9252 + 0.50e2 / 0.27e2 * t33179 * t9252 + 0.50e2 / 0.27e2 * t33183 * t9252 - 0.10e2 / 0.9e1 * t6946 * t43381;
22894   t43445 = my_piecewise3(t139, t43376, t43408 + t43443);
22895   t43447 = 0.2e1 * t330 * t432 * t12714 * t150 + 0.4e1 * t330 * t41688 - 0.2e1 * t330 * t3357 * t1906 + 0.16e2 * t9977 * t41694 + 0.8e1 * t2225 * t41697 * t435 - 0.2e1 * t330 * t3258 * t1906 + 0.8e1 * t2225 * t33421 * t719 - 0.8e1 * t33284 * t8704 - 0.16e2 * t9977 * t41688 - 0.4e1 * t2225 * t9991 * t1866 + 0.16e2 * t2225 * t9988 * t716 - 0.16e2 * t6496 * t12399 - 0.4e1 * t330 * t8707 * t905 - 0.16e2 * t9977 * t41722 - 0.4e1 * t2225 * t33431 * t719 - 0.24e2 * t9970 * t41728 - t138 * t43445;
22896   t43448 = t9174 * t2345;
22897   t43465 = t12412 * t435;
22898   t43468 = t3263 * t1866;
22899   t43500 = 0.16e2 * t9977 * t43448 + 0.2e1 * t1030 * t12734 * t435 + 0.12e2 * t3619 * t3258 * t1703 + 0.8e1 * t2225 * t10339 * t1866 + 0.16e2 * t2225 * t12412 * t432 + 0.8e1 * t8689 * t10340 - 0.24e2 * t9970 * t43465 + 0.24e2 * t9970 * t43468 - 0.2e1 * t330 * t12715 * t456 - 0.24e2 * t6492 * t10339 * t8674 + 0.48e2 * t6492 * t3263 * t716 * t435 + 0.8e1 * t6496 * t12722 - 0.4e1 * t330 * t3058 * t2390 + 0.48e2 * t9970 * t2226 * t3057 * t435 - 0.2e1 * t330 * t12418 * t456 + 0.8e1 * t1030 * t3259 * t1906 - t330 * t1866 * t3392 - 0.4e1 * t330 * t43448;
22900   t43509 = t3057 * t905;
22901   t43546 = t24 * t3052;
22902   t43576 = t14846 * t12750 * t1860 / 0.324e3 - 0.3e1 / 0.50e2 * t882 * t3347 * t9132 - t33404 * t43546 / 0.15e2 + 0.5e1 / 0.108e3 * t3346 * t9204 * t1853 - t9150 * t33375 / 0.15e2 - 0.5e1 / 0.162e3 * t3346 * t1217 * t709 * t1860 - t3949 * t12760 * t1860 / 0.324e3 + t33384 * t43546 / 0.90e2 + t9163 * t33375 / 0.90e2 - t428 * t43301 * t128 / 0.100e3 - 0.3e1 / 0.50e2 * t2331 * t12696 + t56 * t43301 * t128 / 0.100e3 + t3342 * t9149 * t1860 / 0.54e2;
22903   t43584 = t3342 * t423;
22904   t43597 = t1218 * t12690;
22905   t43602 = t12691 * t124;
22906   t43611 = t3346 * t1847 * t425 / 0.60e2 - t10322 * t9146 / 0.180e3 + t10307 * t9146 / 0.60e2 - t43584 * t9143 / 0.108e3 + t9141 * t43546 / 0.30e2 - t33378 * t3049 / 0.180e3 - t10316 * t9146 / 0.30e2 + t10328 * t9146 / 0.180e3 + t39357 * t33375 / 0.30e2 - t43597 * t2336 / 0.180e3 + t33401 * t3049 / 0.60e2 + t43602 * t2336 / 0.60e2 + t1218 * t2339 * t3045 / 0.50e2 + t1218 * t884 * t9132 / 0.50e2;
22907   t43627 = 0.48e2 * t9970 * t2226 * t719 * t2345 - 0.4e1 * t330 * t9167 * t905 + 0.8e1 * t2225 * t43509 * t435 - 0.4e1 * t330 * t8696 * t905 + 0.2e1 * t330 * t716 * t10331 * t150 - 0.96e2 * t33277 * t3263 * t8674 + 0.48e2 * t6492 * t3263 * t719 * t432 + 0.4e1 * t2225 * t33331 * t719 + 0.1174e1 * t43445 - 0.2e1 * t330 * t9995 * t734 + 0.8e1 * t2225 * t31963 * t719 - 0.4e1 * t330 * t2230 * t3096 + 0.2e1 * t330 * t131 * (t43576 + t43611) * t150 - 0.4e1 * t330 * t888 * t9279 + 0.4e1 * t1030 * t41728 + 0.4e1 * t1030 * t43465 + 0.12e2 * t6492 * t9991 * t8674;
22908   t43667 = t3356 * t734;
22909   t43673 = t12714 * t150;
22910   t43677 = -0.32e2 * t2225 * t2226 * t8707 - 0.4e1 * t8689 * t9992 - 0.4e1 * t1030 * t43468 - 0.4e1 * t330 * t2346 * t3096 - 0.2e1 * t330 * t10332 * t734 - t330 * t719 * t10425 - 0.8e1 * t33284 * t8680 - 0.16e2 * t2225 * t3263 * t1863 - 0.4e1 * t330 * t8692 * t905 - 0.4e1 * t6496 * t12415 + 0.2e1 * t330 * t1863 * t3356 * t150 - 0.4e1 * t330 * t2957 * t2390 + 0.4e1 * t330 * t41722 - t330 * t435 * t12795 - 0.32e2 * t2225 * t2226 * t8696 + 0.4e1 * t2225 * t43667 * t435 - 0.4e1 * t330 * t41694 - 0.4e1 * t2225 * t43673 * t435;
22911   t43685 = t2399 * t847 * t12798;
22912   t43689 = 0.12369750000000000000e1 * t31946 * t745;
22913   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22914     v4rhosigmalapl2[0] = -t41679 - t2220 * t41680 * t317 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t847 * (t43447 + t43500 + t43627 + t43677) * t167 - 0.24739500000000000000e1 * t43685 * t480 + t43689 + 0.12369750000000000000e1 * t31957 * t1919 + 0.92773125000000000000e0 * t33458 * t745 + 0.11132775000000000000e2 * t9298 * t3395 * t1284 * t19 * t1929 - 0.12369750000000000000e1 * t10434 * t1935 - 0.30203104535893596325e2 * t6967 * t3395 * t1939 * t26 * t1301;
22915 
22916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22917     v4rhosigmalapl2[1] = 0.0e0;
22918 
22919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22920     v4rhosigmalapl2[2] = 0.0e0;
22921 
22922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22923     v4rhosigmalapl2[3] = 0.0e0;
22924 
22925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22926     v4rhosigmalapl2[4] = 0.0e0;
22927 
22928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22929     v4rhosigmalapl2[5] = 0.0e0;
22930 
22931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22932     v4rhosigmalapl2[6] = 0.0e0;
22933 
22934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22935     v4rhosigmalapl2[7] = 0.0e0;
22936 
22937   t43707 = t7016 * t13209 / 0.2e1;
22938   t43708 = t173 * t13207;
22939   t43713 = 0.12369750000000000000e1 * t33512 * t840;
22940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22941     v4rhosigmalapl2[8] = -t43707 - t2220 * t43708 * t487 / 0.2e1 + t43713 + 0.12369750000000000000e1 * t33516 * t1955;
22942 
22943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22944     v4rhosigmalapl2[9] = -t41679 - t2220 * t41680 * t499 / 0.2e1 + t43689 + 0.12369750000000000000e1 * t31957 * t1966;
22945 
22946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22947     v4rhosigmalapl2[10] = 0.0e0;
22948 
22949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22950     v4rhosigmalapl2[11] = 0.0e0;
22951 
22952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22953     v4rhosigmalapl2[12] = 0.0e0;
22954 
22955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22956     v4rhosigmalapl2[13] = 0.0e0;
22957 
22958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22959     v4rhosigmalapl2[14] = 0.0e0;
22960 
22961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22962     v4rhosigmalapl2[15] = 0.0e0;
22963 
22964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22965     v4rhosigmalapl2[16] = 0.0e0;
22966 
22967   t43724 = t953 * t3248;
22968   t43731 = t3209 * t971;
22969   t43792 = 0.20e2 / 0.9e1 * t29964 * t10840 + 0.20e2 / 0.9e1 * t22648 * t13152 + 0.50e2 / 0.81e2 * t617 * t2557 * t13099 * t599 + 0.5e1 / 0.9e1 * t9867 * t3515 + 0.2e1 * t959 * t9920 + 0.2e1 * t3220 * t2574 - 0.20e2 / 0.9e1 * t3225 * t10853 + 0.20e2 / 0.9e1 * t7442 * t9888 * t24 + 0.50e2 / 0.81e2 * t617 * t2557 * t3483 * t2118 - 0.20e2 / 0.9e1 * t2554 * t13164 - 0.20e2 / 0.9e1 * t961 * t3511 * t2522 * t3197 - 0.2000e4 / 0.81e2 * t2150 * t10881 * t9874 - 0.20e2 / 0.9e1 * t961 * t3511 * t947 * t9787 + 0.500e3 / 0.81e2 * t2150 * t10892 * t9874 + 0.5e1 / 0.9e1 * t3225 * t10862 + 0.5e1 / 0.9e1 * t2554 * t13173 - 0.100e3 / 0.27e2 * t2147 * t10849;
22970   t43810 = t5977 * t4669;
22971   t43825 = t4642 * t1498;
22972   t43832 = t19861 * t224;
22973   t43842 = 0.25e2 / 0.162e3 * t33723 * t9379 + 0.20e2 / 0.9e1 * t43810 * t10508 + 0.5e1 / 0.17496e5 * t9418 * t12881 - 0.15e2 / 0.4e1 * t4642 * t3413 * t227 * t776 * t563 + 0.3e1 * t33702 * t9401 - 0.125e3 / 0.162e3 * t33730 * t33731 * t2030 + 0.5e1 / 0.1728e4 * t43825 * t7091 * t3130 * t563 + 0.5e1 / 0.17496e5 * t9415 * t12881 - 0.15e2 / 0.2e1 * t43832 * t10499 + 0.6e1 * t9439 * t10502 + 0.6e1 * t5977 * t224 * t10513 - 0.15e2 / 0.2e1 * t33607 * t12848;
22974   t43844 = 0.1e1 / t178 / t525;
22975   t43845 = t345 * t43844;
22976   t43849 = t2431 * t9370;
22977   t43852 = t7128 * t1489;
22978   t43861 = t7128 * t771;
22979   t43864 = t4642 * t4669;
22980   t43868 = t1482 * t16466;
22981   t43880 = 0.25e2 / 0.157464e6 * t7090 * t43845 * t16054 - 0.20e2 / 0.27e2 * t43849 * t2444 - 0.5e1 / 0.12e2 * t43852 * t9376 + 0.3e1 * t33682 * t3119 + 0.3e1 * t10485 * t9401 + 0.3e1 * t10485 * t9404 + 0.3e1 * t43861 * t2437 + 0.25e2 / 0.12e2 * t43864 * t10507 * t9375 - 0.5e1 / 0.3e1 * t43868 * t10507 * t2026 - 0.5e1 / 0.3e1 * t10506 * t2443 * t759 * t2447 - t68 * t10479 * t2035 / 0.5832e4 - 0.5e1 / 0.2916e4 * t12018;
22982   t43891 = t7143 * t223;
22983   t43894 = t2431 * t554;
22984   t43917 = 0.3e1 / 0.2e1 * t1482 * t3417 * t2035 - 0.2e1 * t7143 * t3123 - 0.2e1 * t2431 * t9435 - 0.15e2 / 0.2e1 * t33604 * t9425 + t43891 * t3131 / 0.2592e4 + t43894 * t3131 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12843 * t9422 + 0.105e3 / 0.4e1 * t33776 * t10498 * t2013 - 0.15e2 * t7095 * t10498 * t776 * t554 - 0.15e2 * t10497 * t10512 * t39880 - 0.15e2 * t7095 * t10498 * t771 * t563 + 0.12e2 * t2435 * t10512 * t771 * t2447;
22985   t43943 = -0.13e2 / 0.7776e4 * t12843 * t9428 - 0.10e2 / 0.27e2 * t12868 * t12869 * t1996 + 0.5e1 / 0.8748e4 * t12031 - 0.2e1 * t2008 * t10520 - 0.5e1 / 0.2916e4 * t12041 - 0.13e2 / 0.7776e4 * t12057 + 0.5e1 / 0.4374e4 * t12060 - 0.15e2 / 0.2e1 * t10497 * t10498 * t2035 + 0.6e1 * t7115 * t12851 + 0.6e1 * t7118 * t12851 + 0.6e1 * t2435 * t10498 * t2022 + t13518 * t36468 / 0.3888e4 + 0.3e1 * t33679 * t3119;
22986   t43946 = t7128 * t553;
22987   t43951 = t4634 * t1498;
22988   t43963 = t1482 * t2436;
22989   t43978 = -t43946 * t9451 / 0.1728e4 - 0.5e1 / 0.6e1 * t33726 * t12854 - t43951 * t12858 / 0.864e3 - t12857 * t22804 * t3130 / 0.864e3 - 0.5e1 / 0.972e3 * t10506 * t22742 * t2782 - 0.10e2 / 0.27e2 * t2008 * t10523 * t514 - t43963 * t9451 / 0.1728e4 - 0.5e1 / 0.24e2 * t33735 * t24 * t180 * t563 + 0.5e1 / 0.18e2 * t33739 * t9446 + 0.25e2 / 0.324e3 * t33705 * t2004 + t39921 * t10530 / 0.1944e4 + t30030 * t12876 / 0.1944e4;
22990   t43998 = t1477 * t923;
22991   t44001 = t552 * t2447;
22992   t44009 = t30033 * t12876 / 0.1944e4 + t9449 * t68 * t210 * t2035 / 0.1944e4 + 0.5e1 / 0.4374e4 * t9374 * t33716 * t39908 + t39897 * t10530 / 0.1944e4 + 0.20e2 / 0.9e1 * t10506 * t10507 * t1996 + 0.13e2 / 0.2592e4 * t12857 * t12011 - t5975 * t3417 - 0.13e2 / 0.7776e4 * t12047 + 0.5e1 / 0.4374e4 * t12050 + t43998 * t3131 / 0.2592e4 + t44001 * t3131 / 0.2592e4 + 0.5e1 / 0.5832e4 * t12865 * t9422 + 0.5e1 / 0.36e2 * t1477 * t3413 * t12870;
22993   t44031 = t11290 * t551;
22994   t44040 = -t40032 * t3420 / 0.2916e4 - t40035 * t3420 / 0.2916e4 - 0.5e1 / 0.6561e4 * t12049 * t10536 - t40057 * t3420 / 0.2916e4 - t40014 * t3420 / 0.2916e4 - 0.5e1 / 0.6561e4 * t12059 * t10536 - 0.5e1 / 0.11664e5 * t2435 * t9421 * t5891 * t563 + t12834 * t40021 / 0.2592e4 + t12834 * t40024 / 0.2592e4 + 0.5e1 / 0.5832e4 * t44031 * t40029 - t39868 * t7091 * t3130 * t554 / 0.432e3 + 0.5e1 / 0.9e1 * t33735 * t9386;
22995   t44059 = t68 * t30261;
22996   t44072 = -0.5e1 / 0.3888e4 * t30083 * t68 * t12875 * t563 - 0.50e2 / 0.9e1 * t33763 * t9386 + 0.40e2 / 0.9e1 * t33767 * t771 * t19 * t531 + 0.10e2 / 0.9e1 * t33759 * t9386 - 0.2e1 * t2431 * t9437 + 0.3e1 * t19858 * t3414 + 0.3e1 / 0.2e1 * t5977 * t10517 - t44059 * t39999 / 0.1728e4 + 0.5e1 / 0.18e2 * t33749 * t3125 + 0.5e1 / 0.18e2 * t33752 * t3125 + 0.5e1 / 0.18e2 * t10490 * t9446 + 0.3e1 / 0.2e1 * t4634 * t12862 - 0.20e2 / 0.27e2 * t10490 * t9391;
22997   t44075 = t43842 + t43880 + t43917 + t43943 + t43978 + t44009 + t44040 + t44072;
22998   t44097 = t1542 * t13018;
22999   t44098 = t44097 * t1529;
23000   t44106 = t2044 * t3134 * t566;
23001   t44110 = t1534 * t3134 * t587;
23002   t44124 = 0.19594476351194912734e0 * t7203 * t40804 - 0.56263723100594113893e0 * t7287 * t30558 + 0.75858199451789026627e0 * t2465 * t30581 + 0.822756481972633600e0 * t575 * t44098 + 0.238156450669527040e0 * t10696 * t8476 + 0.14983660725163427627e0 * t10650 * t6283 + 0.5532003778560e1 * t7365 * t44106 + 0.476312901339054080e0 * t2455 * t44110 - 0.61023519165317445059e0 * t1540 * t44097 * t2066 - 0.714469352008581120e0 * t10601 * t9737 + 0.76507664515005293790e1 * t10766 * t9729 - 0.54895099374677576130e-1 * t2052 * t3477 - 0.54895099374677576130e-1 * t10654 * t794;
23003   t44135 = t1528 * t2061 * t2450;
23004   t44156 = -0.12751277419167548965e1 * t34138 * t779 * t9722 - 0.32672968537417605163e1 * t1540 * t10621 * t8425 + 0.15762619094478157329e0 * t4838 * t3442 * t36627 + 0.19594476351194912734e0 * t23206 * t44135 - 0.25306658097095253694e-1 * t10578 * t6102 - 0.19594476351194912734e0 * t10578 * t6106 + 0.45165298839047841173e-1 * t34202 * t8315 - 0.12968797032847508210e0 * t33932 * t6110 + 0.17485326916752292327e0 * t10578 * t6113 - 0.85008516127783659764e0 * t31271 * t9494 + 0.13814944624710858551e0 * t26903 * t34150 + 0.21958039749871030452e0 * t26758 * t34153 - 0.50613316194190507389e-1 * t20225 * t10770;
23005   t44164 = t928 * t575;
23006   t44169 = t928 * t1540;
23007   t44187 = 0.14533144731775861995e0 * t27035 * t34072 - 0.19594476351194912734e0 * t26758 * t34076 + 0.21958039749871030452e0 * t31008 * t30546 + 0.25502554838335097929e1 * t44164 * t9630 - 0.39188952702389825468e0 * t23418 * t9521 + 0.33758233860356468336e1 * t44169 * t30467 - 0.45514919671073415976e1 * t44164 * t9634 - 0.50613316194190507388e-1 * t30488 * t7209 - 0.39188952702389825468e0 * t30488 * t7213 - 0.12751277419167548965e1 * t10691 * t2038 * t250 + 0.32937059624806545678e0 * t10692 * t794 - 0.25502554838335097930e1 * t40101 * t34676 + 0.32937059624806545679e0 * t13047 * t589;
23008   t44193 = t13064 * t578;
23009   t44197 = t7222 * t44193;
23010   t44200 = t12193 * t34149;
23011   t44203 = t12193 * t34075;
23012   t44216 = t1534 * t792 * t2450;
23013   t44225 = -0.11756685810716947640e1 * t33859 * t779 * t9722 + 0.2766001889280e1 * t34390 * t9733 - 0.97994301469412365794e0 * t20746 * t9581 * t44193 + 0.16879116930178234168e1 * t20353 * t44197 + 0.53483277938827345109e0 * t20370 * t44200 + 0.25502554838335097930e1 * t20390 * t44203 - 0.238156450669527040e0 * t1549 * t2487 * t12975 - 0.12204703833063489012e1 * t1540 * t2475 * t1545 * t9639 + 0.238156450669527040e0 * t10696 * t9737 - 0.10979019874935515226e0 * t7365 * t44216 + 0.19594476351194912734e0 * t30784 * t9501 - 0.56263723100594113893e0 * t31168 * t7224 + 0.75858199451789026627e0 * t9663 * t7227;
23014   t44245 = t4848 * t2471 * t3189;
23015   t44248 = t10561 * t792;
23016   t44249 = t6215 * t44248;
23017   t44255 = t1528 * t10565 * t566;
23018   t44260 = -0.85008516127783659764e0 * t7216 * t40636 - 0.10979019874935515226e0 * t2465 * t30649 - 0.54895099374677576129e-1 * t10575 * t6102 - 0.42504258063891829882e0 * t10575 * t6106 + 0.97972381755974563669e-1 * t34174 * t8315 - 0.28131861550297056947e0 * t34481 * t6110 + 0.37929099725894513314e0 * t10575 * t6113 + 0.69074723123554292755e-1 * t2055 * t34410 - 0.10979019874935515226e0 * t1527 * t44245 + 0.10979019874935515226e0 * t1527 * t44249 - 0.85008516127783659764e0 * t2465 * t30652 - 0.42504258063891829882e0 * t6116 * t44255 - 0.54895099374677576129e-1 * t2055 * t34128;
23019   t44274 = t3462 * t792;
23020   t44275 = t16790 * t44274;
23021   t44280 = t7191 * t9557;
23022   t44289 = t34301 * t2061;
23023   t44292 = t249 * t3134;
23024   t44293 = t245 * t44292;
23025   t44296 = -0.42504258063891829882e0 * t2055 * t34132 + 0.29967321450326855254e0 * t2468 * t31339 + 0.476312901339054080e0 * t9666 * t9772 + 0.18968792869915364414e1 * t4707 * t10621 * t36582 + 0.476312901339054080e0 * t2455 * t1534 * t2514 * t779 - 0.33837660950279469264e0 * t1533 * t44275 - 0.10979019874935515226e0 * t3144 * t2516 + 0.1645512963945267200e1 * t575 * t44280 - 0.10979019874935515226e0 * t7365 * t44110 - 0.10979019874935515226e0 * t9672 * t941 - 0.10979019874935515226e0 * t9669 * t941 + 0.822756481972633600e0 * t575 * t44289 + 0.19594476351194912734e0 * t34674 * t44293;
23026   t44323 = t4848 * t10565 * t792;
23027   t44326 = t44292 * t580;
23028   t44329 = -0.54895099374677576129e-1 * t12934 * t589 + 0.97972381755974563669e-1 * t34257 * t779 * t9722 - 0.25502554838335097930e1 * t22983 * t44106 - 0.10979019874935515226e0 * t2465 * t30748 - 0.10979019874935515226e0 * t2465 * t30752 - 0.85008516127783659764e0 * t7282 * t9521 - 0.85008516127783659764e0 * t2465 * t30495 + 0.90330597678095682346e-1 * t31407 * t9501 - 0.25937594065695016420e0 * t40330 * t7224 + 0.21958039749871030452e0 * t23462 * t12990 * t580 + 0.13814944624710858551e0 * t30484 * t30452 - 0.54895099374677576130e-1 * t1527 * t44323 + 0.19594476351194912734e0 * t23206 * t44326;
23029   t44330 = t34260 * t2061;
23030   t44352 = t10642 * t6232;
23031   t44358 = t3442 * t6232;
23032   t44365 = -0.922000629760e0 * t575 * t44330 + 0.29967321450326855254e0 * t9691 * t7337 - 0.10979019874935515226e0 * t9688 * t941 - 0.238156450669527040e0 * t1549 * t3164 * t10703 - 0.238156450669527040e0 * t1549 * t9640 * t3446 - 0.119078225334763520e0 * t1549 * t10613 * t2838 + 0.36614111499190467036e1 * t1540 * t10642 * t8425 - 0.12204703833063489012e1 * t1540 * t7191 * t12930 - 0.4936538891835801600e1 * t575 * t44352 + 0.238156450669527040e0 * t1549 * t3450 * t8464 + 0.2766001889280e1 * t575 * t44358 + 0.476312901339054080e0 * t7346 * t12991 + 0.56263723100594113894e0 * t34471 * t6110;
23033   t44401 = -0.75858199451789026629e0 * t10572 * t6113 - 0.42504258063891829882e0 * t34029 * t8308 + 0.67692822862798455802e0 * t2055 * t34142 - 0.39668333314116486558e0 * t20249 * t7222 * t13064 * t587 - 0.18915142913373788794e1 * t20383 * t44197 - 0.119078225334763520e0 * t1549 * t34431 * t2061 - 0.11064007557120e2 * t34504 * t9733 + 0.5532003778560e1 * t7365 * t2044 * t779 * t2450 + 0.14533144731775861995e0 * t31013 * t30463 - 0.25937594065695016420e0 * t30620 * t9513 + 0.17489238971848963747e1 * t928 * t4707 * t30472 - 0.30124497567627698084e1 * t44169 * t30475 - 0.15171639890357805325e1 * t31000 * t41035;
23034   t44420 = t10664 * t6232;
23035   t44433 = -0.19594476351194912734e0 * t31008 * t30554 + 0.34970653833504584654e0 * t23418 * t9524 - 0.85008516127783659764e0 * t7216 * t1528 * t7268 * t779 - 0.85008516127783659764e0 * t7216 * t40214 - 0.10979019874935515226e0 * t2055 * t34355 - 0.10979019874935515226e0 * t2055 * t34426 - 0.10979019874935515226e0 * t9663 * t7209 - 0.10979019874935515226e0 * t2462 * t3191 + 0.822756481972633600e0 * t575 * t44420 - 0.21252129031945914941e0 * t1549 * t3442 * t8464 - 0.61023519165317445059e0 * t1540 * t10664 * t8425 + 0.14983660725163427627e0 * t33838 * t2089 + 0.14983660725163427627e0 * t33838 * t2070;
23036   t44435 = t574 * t3476;
23037   t44441 = t13025 * t577;
23038   t44446 = t1534 * t3475 * t566;
23039   t44451 = t7179 * t9557;
23040   t44460 = t939 * t3189;
23041   t44461 = t4718 * t44460;
23042   t44469 = t2475 * t30819;
23043   t44472 = 0.238156450669527040e0 * t44435 * t2074 + 0.15762619094478157328e0 * t1539 * t3476 * t2067 - 0.119078225334763520e0 * t1549 * t44441 * t1529 + 0.238156450669527040e0 * t2043 * t44446 + 0.14983660725163427627e0 * t2058 * t34350 - 0.1844001259520e1 * t575 * t44451 + 0.29967321450326855254e0 * t7343 * t9759 + 0.29967321450326855254e0 * t2468 * t31420 + 0.29967321450326855254e0 * t2468 * t31235 + 0.29967321450326855254e0 * t1533 * t44461 - 0.25306658097095253694e-1 * t13040 * t589 + 0.45165298839047841173e-1 * t33971 * t779 * t9722 + 0.1645512963945267200e1 * t575 * t44469;
23044   t44479 = t6091 * t3459;
23045   t44492 = t6091 * t3456;
23046   t44499 = t10561 * t566;
23047   t44500 = t4785 * t44499;
23048   t44503 = -0.97972381755974563671e-1 * t2055 * t34491 - 0.22757459835536707989e1 * t2055 * t34124 + 0.75858199451789026628e0 * t2055 * t34494 + 0.17485326916752292327e0 * t6090 * t44479 - 0.15062248783813849042e1 * t6225 * t34577 + 0.21958039749871030452e0 * t31008 * t30438 - 0.50613316194190507389e-1 * t23418 * t9658 + 0.14533144731775861995e0 * t31013 * t30441 - 0.19594476351194912734e0 * t31008 * t30615 + 0.97972381755974563669e-1 * t6090 * t44492 - 0.28131861550297056947e0 * t6225 * t34485 + 0.37929099725894513314e0 * t2055 * t34488 - 0.75858199451789026628e0 * t6116 * t44500;
23049   t44514 = t4755 * t44499;
23050   t44523 = t6091 * t3451;
23051   t44539 = -0.922000629760e0 * t34513 * t3138 - 0.238156450669527040e0 * t1549 * t932 * t242 * t9652 - 0.75858199451789026629e0 * t20358 * t44203 + 0.85008516127783659766e0 * t6116 * t44514 + 0.10979019874935515226e0 * t2055 * t34164 + 0.12751277419167548965e1 * t2055 * t34167 - 0.85008516127783659766e0 * t2055 * t34171 - 0.19594476351194912734e0 * t6090 * t44523 + 0.16879116930178234168e1 * t6225 * t34119 - 0.734005159174078464e0 * t245 * t10646 * t2106 + 0.650049912832e0 * t245 * t2501 * t9652 + 0.650049912832e0 * t245 * t7260 * t3189 - 0.85008516127783659764e0 * t9663 * t7213;
23052   t44556 = t9701 * t578;
23053   t44557 = t2471 * t44556;
23054   t44570 = t4785 * t7222 * t3163;
23055   t44573 = -0.10979019874935515226e0 * t2465 * t30755 + 0.12751277419167548965e1 * t10578 * t9507 - 0.1844001259520e1 * t7346 * t12940 + 0.325024956416e0 * t245 * t10752 * t2106 + 0.14983660725163427627e0 * t6060 * t10756 - 0.119078225334763520e0 * t2058 * t33870 - 0.67675321900558938528e0 * t27079 * t2471 * t9702 - 0.59934642900653710508e0 * t20240 * t44557 - 0.39668333314116486558e0 * t20249 * t7222 * t44556 + 0.53483277938827345109e0 * t20370 * t44557 - 0.59934642900653710508e0 * t20240 * t44200 - 0.1428938704017162240e1 * t6222 * t44203 - 0.56263723100594113896e0 * t4784 * t44570;
23056   t44577 = -t577 * t44075 * t242;
23057   t44581 = t9579 * t33852 * t784;
23058   t44584 = t10585 * t784;
23059   t44585 = t9579 * t44584;
23060   t44588 = t2471 * t3163;
23061   t44589 = t4755 * t44588;
23062   t44592 = t10561 * t784;
23063   t44593 = t4785 * t44592;
23064   t44596 = t10565 * t784;
23065   t44597 = t4755 * t44596;
23066   t44607 = t4718 * t3462 * t566;
23067   t44610 = t3163 * t587;
23068   t44611 = t2471 * t44610;
23069   t44614 = t2471 * t30579;
23070   t44620 = 0.461000314880e0 * t575 * t44577 + 0.87446194859244818738e0 * t16869 * t44581 - 0.15062248783813849042e1 * t4784 * t44585 - 0.85008516127783659766e0 * t1527 * t44589 + 0.12751277419167548965e1 * t1527 * t44593 - 0.42504258063891829883e0 * t1527 * t44597 - 0.922000629760e0 * t10696 * t8444 + 0.29967321450326855254e0 * t2058 * t34042 + 0.69074723123554292755e-1 * t2052 * t3464 - 0.29967321450326855254e0 * t2043 * t44607 + 0.476312901339054080e0 * t6216 * t44611 + 0.5532003778560e1 * t9548 * t44614 - 0.1428938704017162240e1 * t31424 * t940 * t9732;
23071   t44631 = t1534 * t13025;
23072   t44634 = t10565 * t9549;
23073   t44637 = t13559 * t9549;
23074   t44645 = t3454 * t4708;
23075   t44651 = t3454 * t784;
23076   t44652 = t44651 * t1550;
23077   t44655 = t2486 * t784;
23078   t44656 = t44655 * t3446;
23079   t44659 = -0.59934642900653710508e0 * t31153 * t2501 * t9736 - 0.59934642900653710508e0 * t31153 * t41181 - 0.67675321900558938528e0 * t928 * t245 * t31191 + 0.13814944624710858551e0 * t7203 * t9759 - 0.119078225334763520e0 * t1533 * t44631 + 0.2766001889280e1 * t9548 * t44634 + 0.36614111499190467036e1 * t9575 * t44637 - 0.4936538891835801600e1 * t9554 * t44634 + 0.15762619094478157329e0 * t6238 * t13559 * t9544 + 0.18968792869915364414e1 * t9580 * t44645 * t9549 - 0.32672968537417605163e1 * t9585 * t44637 - 0.21252129031945914941e0 * t6222 * t44652 - 0.42504258063891829883e0 * t6222 * t44656;
23080   t44664 = t30862 * t3446;
23081   t44667 = t12193 * t10703;
23082   t44695 = t242 * t779;
23083   t44700 = -0.42504258063891829883e0 * t6222 * t44664 - 0.42504258063891829883e0 * t6222 * t44667 + 0.42504258063891829882e0 * t31187 * t2472 + 0.31525238188956314657e0 * t6238 * t7222 * t939 * t2077 + 0.42504258063891829882e0 * t2465 * t30820 + 0.97972381755974563669e-1 * t10578 * t6233 + 0.42504258063891829882e0 * t7282 * t9558 - 0.28131861550297056947e0 * t20367 * t10586 + 0.29967321450326855254e0 * t8511 * t7268 * t9701 + 0.29967321450326855254e0 * t8511 * t2471 * t30975 + 0.29967321450326855254e0 * t8511 * t2471 * t30517 + 0.42504258063891829882e0 * t9663 * t7269 + 0.25502554838335097929e1 * t31413 * t932 * t44695 * t566;
23084   t44705 = t44695 * t578;
23085   t44710 = t932 * t3446 * t566;
23086   t44719 = t10621 * t6232;
23087   t44722 = t3475 * t792;
23088   t44723 = t4718 * t44722;
23089   t44728 = t574 * t3463;
23090   t44736 = t3441 * t784;
23091   t44737 = t44736 * t1550;
23092   t44740 = t44736 * t1529;
23093   t44743 = 0.21958039749871030452e0 * t23462 * t932 * t44695 * t587 + 0.17001703225556731953e1 * t31000 * t2482 * t44705 + 0.21958039749871030452e0 * t20683 * t44710 + 0.21252129031945914941e0 * t34298 * t779 * t250 - 0.119078225334763520e0 * t1549 * t10671 * t6232 + 0.14683899485061986386e1 * t575 * t44719 + 0.14983660725163427627e0 * t1533 * t44723 - 0.9873077783671603200e1 * t9554 * t44614 - 0.29967321450326855254e0 * t44728 * t2074 - 0.19834166657058243279e0 * t1539 * t3463 * t2067 + 0.26741638969413672554e0 * t44728 * t2082 + 0.12751277419167548965e1 * t20390 * t44737 + 0.29619233351014809600e2 * t9593 * t44740;
23094   t44745 = t12193 * t7268;
23095   t44748 = t44736 * t2066;
23096   t44754 = t10565 * t8515;
23097   t44776 = -0.9873077783671603200e1 * t9554 * t44745 + 0.39207562244901126197e2 * t31090 * t44748 + 0.14983660725163427627e0 * t8511 * t10565 * t6282 + 0.238156450669527040e0 * t6216 * t44754 + 0.15762619094478157328e0 * t6238 * t13559 * t8515 - 0.21252129031945914941e0 * t44435 * t2082 - 0.37929099725894513314e0 * t20358 * t44737 - 0.17620679382074383663e2 * t31501 * t44740 + 0.29367798970123972772e1 * t9593 * t44745 - 0.13606156761889987933e2 * t31055 * t44748 + 0.26206649088979828343e1 * t31059 * t44740 - 0.33837660950279469264e0 * t33841 * t2070 + 0.29967321450326855254e0 * t7296 * t9748;
23098   t44778 = t6221 * t10585 * t792;
23099   t44781 = t9553 * t44584;
23100   t44784 = t4785 * t44596;
23101   t44787 = t6221 * t44248;
23102   t44791 = t4785 * t13559 * t784;
23103   t44794 = t4785 * t44588;
23104   t44800 = t932 * t3446 * t792;
23105   t44803 = t3446 * t784;
23106   t44804 = t2482 * t44803;
23107   t44811 = t569 * t44075;
23108   t44814 = t1568 * t13025;
23109   t44818 = 0.72665723658879309980e-1 * t4784 * t44778 + 0.16879116930178234169e1 * t4784 * t44781 + 0.37929099725894513314e0 * t1527 * t44784 - 0.97972381755974563669e-1 * t1527 * t44787 - 0.28131861550297056947e0 * t4784 * t44791 + 0.75858199451789026629e0 * t1527 * t44794 - 0.29967321450326855254e0 * t10700 * t6283 + 0.13814944624710858551e0 * t20228 * t44800 + 0.21958039749871030452e0 * t20671 * t44804 + 0.29967321450326855254e0 * t7296 * t9471 - 0.33837660950279469264e0 * t33841 * t2089 + 0.461000314880e0 * t44811 * t250 + 0.325024956416e0 * t245 * t44814 * t587;
23110   t44823 = t10561 * t6282;
23111   t44826 = t10561 * t8515;
23112   t44829 = t792 * t2486;
23113   t44830 = t2471 * t44829;
23114   t44833 = t1523 * t12884;
23115   t44841 = t4848 * t9557 * t939;
23116   t44854 = t2044 * t9455;
23117   t44857 = 0.14683899485061986386e1 * t9593 * t44634 + 0.26741638969413672554e0 * t20370 * t44823 + 0.12751277419167548965e1 * t20390 * t44826 - 0.42504258063891829882e0 * t6222 * t44830 + 0.21252129031945914941e0 * t44833 * t566 * t250 + 0.21252129031945914941e0 * t10653 * t2038 * t250 - 0.10979019874935515226e0 * t1527 * t44841 + 0.75858199451789026627e0 * t2465 * t30584 + 0.75858199451789026627e0 * t2465 * t30587 - 0.10979019874935515226e0 * t7282 * t9658 - 0.10979019874935515226e0 * t2465 * t30574 + 0.19594476351194912734e0 * t30791 * t9501 - 0.1844001259520e1 * t2455 * t44854;
23118   t44862 = t10585 * t8515;
23119   t44884 = t10585 * t9544;
23120   t44889 = -0.21252129031945914941e0 * t6222 * t44754 + 0.238156450669527040e0 * t6216 * t44652 + 0.84395584650891170843e0 * t20353 * t44862 - 0.37929099725894513314e0 * t20358 * t44826 - 0.42504258063891829883e0 * t6222 * t44611 - 0.10979019874935515226e0 * t7282 * t9517 - 0.33837660950279469264e0 * t2058 * t34038 - 0.19834166657058243280e0 * t20249 * t10585 * t6282 - 0.94575714566868943973e0 * t20383 * t44862 + 0.31525238188956314658e0 * t6238 * t7222 * t44829 - 0.48997150734706182898e0 * t20746 * t33852 * t8515 - 0.94575714566868943973e0 * t20383 * t44884 - 0.21968466899514280222e2 * t9585 * t44748;
23121   t44891 = t7222 * t44655;
23122   t44894 = t33852 * t9549;
23123   t44900 = t7222 * t30579;
23124   t44929 = 0.73228222998380934072e1 * t9575 * t44891 - 0.22762551443898437297e2 * t31314 * t44894 + 0.31525238188956314658e0 * t6238 * t7222 * t44610 + 0.73228222998380934071e1 * t9575 * t44900 + 0.37937585739830728829e1 * t9580 * t9581 * t30579 - 0.48997150734706182896e0 * t20746 * t33852 * t9544 + 0.37937585739830728828e1 * t9580 * t9581 * t44655 - 0.92817332546461565657e1 * t31348 * t3441 * t16764 * t9549 + 0.20312390406477209506e2 * t31353 * t44894 + 0.21252129031945914941e0 * t2055 * t34224 + 0.31525238188956314657e0 * t6238 * t10617 * t13064 + 0.31525238188956314657e0 * t6238 * t7222 * t2514 * t784 + 0.21252129031945914941e0 * t6242 * t10566;
23125   t44934 = t2475 * t44803;
23126   t44938 = t4785 * t10585 * t566;
23127   t44945 = t20089 * t3443;
23128   t44950 = t2482 * t30819;
23129   t44954 = t2475 * t13555 * t784;
23130   t44961 = t9540 * t12975;
23131   t44964 = -0.42504258063891829883e0 * t6242 * t10562 + 0.37929099725894513314e0 * t6242 * t10569 - 0.19594476351194912734e0 * t20671 * t44934 + 0.56263723100594113894e0 * t20072 * t44938 + 0.72665723658879309976e-1 * t6225 * t34414 - 0.56263723100594113894e0 * t6225 * t34418 - 0.12968797032847508210e0 * t6090 * t44945 + 0.87446194859244818739e0 * t20203 * t34422 - 0.1844001259520e1 * t575 * t44950 + 0.14533144731775861995e0 * t20675 * t44954 + 0.34970653833504584655e0 * t30488 * t7227 + 0.11252744620118822779e1 * t31003 * t40965 - 0.42504258063891829883e0 * t6222 * t44961;
23132   t44996 = -0.29967321450326855254e0 * t20240 * t44823 - 0.714469352008581120e0 * t6222 * t44826 + 0.476312901339054080e0 * t6216 * t44830 - 0.714469352008581120e0 * t6222 * t44737 - 0.11064007557120e2 * t9554 * t44740 + 0.5532003778560e1 * t9548 * t44745 + 0.69074723123554292753e-1 * t10601 * t6283 - 0.25306658097095253694e-1 * t10766 * t794 + 0.19594476351194912734e0 * t9721 * t34676 + 0.14983660725163427627e0 * t4823 * t10675 * t6232 + 0.84395584650891170840e0 * t20353 * t44884 - 0.65345937074835210326e1 * t9585 * t44891 + 0.29967321450326855254e0 * t8511 * t9557 * t7336;
23133   t44997 = t9557 * t10552;
23134   t45015 = t10691 * t574;
23135   t45018 = t13005 * t238;
23136   t45026 = t10653 * t9474;
23137   t45029 = 0.476312901339054080e0 * t6216 * t44997 + 0.31525238188956314657e0 * t6238 * t12930 * t10552 - 0.42504258063891829883e0 * t6222 * t44997 + 0.476312901339054080e0 * t2455 * t40180 + 0.29367798970123972772e1 * t9593 * t44614 + 0.65874119249613091356e0 * t31211 * t9772 + 0.13814944624710858551e0 * t9475 * t7337 - 0.50613316194190507389e-1 * t31214 * t941 - 0.58783429053584738202e0 * t45015 * t8308 - 0.119078225334763520e0 * t45018 * t1535 + 0.23916119461575365556e1 * t30910 * t44274 * t587 - 0.54895099374677576130e-1 * t10575 * t6095 + 0.97972381755974563669e-1 * t45026 * t6092;
23138   t45031 = t3476 * t786;
23139   t45034 = t9579 * t44592;
23140   t45037 = t3463 * t786;
23141   t45040 = t9553 * t44592;
23142   t45045 = t10660 * t6232;
23143   t45064 = -0.54895099374677576130e-1 * t1527 * t45031 + 0.67692822862798455803e0 * t1527 * t45034 + 0.69074723123554292755e-1 * t1527 * t45037 - 0.22757459835536707989e1 * t1527 * t45040 + 0.42504258063891829882e0 * t7365 * t44854 - 0.922000629760e0 * t575 * t45045 - 0.61023519165317445059e0 * t1540 * t34301 * t3153 - 0.714469352008581120e0 * t10601 * t8476 + 0.476312901339054080e0 * t2455 * t44216 + 0.13538564572559691160e1 * t44164 * t9650 + 0.21958039749871030452e0 * t23462 * t40875 + 0.13814944624710858551e0 * t30484 * t30435 - 0.1468010318348156928e1 * t9700 * t44460 * t587;
23144   t45083 = t10691 * t9474;
23145   t45090 = t10737 * t9474;
23146   t45095 = -0.85008516127783659764e0 * t2465 * t30499 + 0.19594476351194912734e0 * t30787 * t9501 - 0.1468010318348156928e1 * t9700 * t9701 * t2514 + 0.2766001889280e1 * t10601 * t8444 + 0.325024956416e0 * t245 * t34528 * t792 + 0.476312901339054080e0 * t2455 * t40467 - 0.119078225334763520e0 * t10650 * t6086 + 0.10979019874935515226e0 * t10572 * t6095 - 0.58783429053584738203e0 * t45083 * t6092 - 0.42504258063891829883e0 * t34029 * t9507 - 0.25306658097095253694e-1 * t10578 * t6095 + 0.45165298839047841173e-1 * t45090 * t6092 - 0.85008516127783659766e0 * t7216 * t44326;
23147   t45098 = t1514 * t12884;
23148   t45099 = t45098 * t238;
23149   t45112 = t13018 * t242;
23150   t45113 = t1528 * t45112;
23151   t45129 = -0.922000629760e0 * t45099 * t2045 - 0.119078225334763520e0 * t6060 * t10759 - 0.65345937074835210328e1 * t9585 * t44900 - 0.50613316194190507389e-1 * t30488 * t7219 + 0.21252129031945914941e0 * t34476 * t2062 + 0.21252129031945914941e0 * t10575 * t6233 + 0.21252129031945914941e0 * t1527 * t45113 + 0.476312901339054080e0 * t6216 * t44656 + 0.476312901339054080e0 * t6216 * t44667 + 0.476312901339054080e0 * t6216 * t44664 - 0.42504258063891829883e0 * t10572 * t6233 + 0.42504258063891829882e0 * t23477 * t12940 + 0.29967321450326855254e0 * t8511 * t2471 * t31234;
23152   t45146 = t1555 * t13018;
23153   t45147 = t45146 * t1529;
23154   t45163 = 0.476312901339054080e0 * t6216 * t44961 + 0.31525238188956314657e0 * t6238 * t7222 * t3189 * t578 - 0.119078225334763520e0 * t1549 * t3455 * t8464 - 0.19594476351194912734e0 * t31008 * t30543 + 0.17001703225556731953e1 * t31000 * t41217 - 0.119078225334763520e0 * t1549 * t13019 * t1550 - 0.922000629760e0 * t575 * t45147 + 0.21958039749871030452e0 * t23462 * t41204 + 0.13814944624710858551e0 * t30484 * t30534 + 0.21958039749871030452e0 * t31008 * t30537 - 0.50613316194190507389e-1 * t23418 * t9517 + 0.14533144731775861995e0 * t31013 * t30540 + 0.97972381755974563669e-1 * t10737 * t2038 * t250;
23155   t45167 = t1545 * t779;
23156   t45189 = t13005 * t574;
23157   t45197 = t247 * t9455;
23158   t45206 = t12998 * t566;
23159   t45209 = t3179 * t2450;
23160   t45221 = 0.3185225478400e1 * t44420 + 0.3185225478400e1 * t10653 * t8333 + 0.6370450956800e1 * t2461 * t45197 + 0.114668117222400e3 * t10737 * t9606 - 0.19111352870400e2 * t34233 * t6105 + 0.5684735615810048000e1 * t34309 * t6105 + 0.21416640e2 * t2461 * t45206 + 0.11369471231620096000e2 * t7174 * t45209 + 0.5684735615810048000e1 * t34257 * t9606 + 0.21416640e2 * t2461 * t45209 + 0.10708320e2 * t10653 * t9606 - 0.68216827389720576000e2 * t34328 * t6105 - 0.7138880e1 * t44950;
23161   t45245 = -0.19111352870400e2 * t34138 * t9606 - 0.38222705740800e2 * t7182 * t30494 + 0.6370450956800e1 * t44469 - 0.19111352870400e2 * t10691 * t8333 + 0.10145661348248508867e2 * t33971 * t9606 + 0.1784720e1 * t44577 - 0.3569440e1 * t34267 * t3179 + 0.10708320e2 * t10664 * t6105 - 0.3569440e1 * t45147 + 0.3185225478400e1 * t34298 * t3179 + 0.3185225478400e1 * t44098 + 0.21416640e2 * t2475 * t30494 - 0.19111352870400e2 * t44352 + 0.10708320e2 * t3434 * t8333;
23162   t45270 = 0.11369471231620096000e2 * t7174 * t45206 + 0.1784720e1 * t44811 * t247 + 0.11369471231620096000e2 * t7196 * t30580 + 0.10145661348248508867e2 * t34005 * t6105 + 0.3185225478400e1 * t44289 + 0.114668117222400e3 * t10621 * t6105 - 0.38222705740800e2 * t7182 * t30580 - 0.42833280e2 * t10642 * t6105 + 0.5684735615810048000e1 * t44719 - 0.7138880e1 * t44451 + 0.21416640e2 * t2475 * t30580 - 0.7138880e1 * t7158 * t12998 - 0.3569440e1 * t45098 * t2096;
23163   t45295 = 0.11369471231620096000e2 * t7196 * t30494 + 0.10708320e2 * t44358 - 0.38222705740800e2 * t7161 * t45209 + 0.5684735615810048000e1 * t10737 * t8333 - 0.3569440e1 * t44330 - 0.42833280e2 * t10691 * t9606 - 0.3569440e1 * t45045 - 0.68216827389720576000e2 * t33859 * t9606 - 0.3569440e1 * t10695 * t8333 + 0.6370450956800e1 * t7169 * t12998 + 0.6370450956800e1 * t44280 - 0.38222705740800e2 * t7161 * t45206 - 0.7138880e1 * t2454 * t45197 + 0.3185225478400e1 * t44833 * t2096;
23164   t45301 = -0.11756685810716947640e1 * t31410 * t12950 + 0.11252744620118822779e1 * t31003 * t2475 * t45167 * t578 - 0.15171639890357805325e1 * t31000 * t2475 * t44705 - 0.238156450669527040e0 * t9691 * t7246 - 0.10979019874935515226e0 * t2465 * t30769 - 0.10979019874935515226e0 * t6242 * t10770 - 0.10979019874935515226e0 * t9663 * t7219 - 0.85008516127783659764e0 * t23203 * t12950 - 0.238156450669527040e0 * t30612 * t2494 - 0.238156450669527040e0 * t2468 * t30491 + 0.21252129031945914941e0 * t45189 * t1530 - 0.54895099374677576129e-1 * t10601 * t6086 - 0.258304e0 * t245 * t583 * (t45221 + t45245 + t45270 + t45295);
23165   t45331 = -0.238156450669527040e0 * t7343 * t9777 + 0.12751277419167548965e1 * t10578 * t8308 - 0.85008516127783659766e0 * t7216 * t44135 + 0.10979019874935515226e0 * t10572 * t6102 + 0.85008516127783659766e0 * t10572 * t6106 + 0.19594476351194912734e0 * t9475 * t30594 - 0.56263723100594113893e0 * t23302 * t9513 - 0.56263723100594113893e0 * t7287 * t30503 - 0.56263723100594113893e0 * t7287 * t30744 + 0.75858199451789026627e0 * t7282 * t9524 - 0.54895099374677576130e-1 * t2055 * t34407 + 0.238156450669527040e0 * t10700 * t6086 - 0.734005159174078464e0 * t9700 * t44722 * t587 - 0.119078225334763520e0 * t33856 * t2085;
23166   t45337 = my_piecewise3(t235, 0, t44124 + t45129 + t45095 + t44620 + t44156 + t45301 + t44776 + t44818 + t44433 + t44659 + t44296 + t44573 + t44700 + t45331 + t44329 + t44964 + t44857 + t44889 + t44539 + t44260 + t44472 + t44929 + t45029 + t45163 + t44365 + t45064 + t44503 + t44743 + t44401 + t44187 + t44996 + t44225);
23167   t45338 = my_piecewise3(t234, 0, t45337);
23168   t45340 = -t10541 * t798 - t10779 * t779 - t12884 * t593 - t13097 * t566 - t2038 * t3481 - t2112 * t3423 - t233 * t45338 - 0.2e1 * t2450 * t3195 - t252 * t44075 - 0.2e1 * t2520 * t3134 - 0.2e1 * t926 * t9785 - 0.2e1 * t945 * t9455;
23169   t45366 = t13146 * t618;
23170   t45372 = -0.10e2 / 0.9e1 * t9867 * t3512 + 0.2e1 * t2548 * t3242 - 0.5e1 / 0.9e1 * t10835 * t9864 - 0.100e3 / 0.27e2 * t34813 * t2577 * t9888 + 0.100e3 / 0.81e2 * t2147 * t10859 + 0.50e2 / 0.81e2 * t617 * t2557 * t10781 * t804 + 0.5e1 / 0.9e1 * t961 * t962 * t45340 - 0.50e2 / 0.81e2 * t34760 * t9861 - 0.50e2 / 0.27e2 * t617 * t10847 * t3487 * t2118 + 0.20e2 / 0.9e1 * t7442 * t9882 * t24 + 0.20e2 / 0.9e1 * t7442 * t9878 * t24 - 0.5e1 / 0.9e1 * t34745 * t3222 + 0.2e1 * t9852 * t968 + 0.100e3 / 0.27e2 * t959 * t2577 * t9861 - 0.100e3 / 0.27e2 * t34813 * t2577 * t9878 - 0.5e1 / 0.9e1 * t45366 * t2551 + params->c1 * t45340 * t279;
23171   t45393 = (t43792 + t45372) * t283 + t13176 * t623 * t283 + t10865 * t823 * t283 + t3518 * t2158 * t283 + t13178 * t624 + 0.2e1 * t2566 * t3235 + 0.2e1 * t2567 * t3236 + 0.2e1 * t967 * t9895 + 0.2e1 * t3237 * t2566 + t3520 * t2158 * t283 + t13182 * t624;
23172   t45396 = t285 * t3197;
23173   t45397 = t45396 * t2551;
23174   t45402 = t825 * t34848;
23175   t45405 = t10877 * t9787;
23176   t45424 = -0.100e3 / 0.27e2 * t34866 * t9907 - 0.20e2 / 0.3e1 * t7482 * t45397 - 0.20e2 / 0.3e1 * t7490 * t45397 - 0.20e2 / 0.3e1 * t7490 * t45402 - 0.2e1 * t1655 * t45405 - 0.10e2 / 0.9e1 * t7505 * t45397 - 0.10e2 / 0.9e1 * t7505 * t45402 - 0.25e2 / 0.81e2 * t34872 * t9907 + 0.25e2 / 0.81e2 * t34845 * t9907 - 0.20e2 / 0.3e1 * t7482 * t45402 - 0.200e3 / 0.27e2 * t34891 * t9907 - 0.100e3 / 0.9e1 * t34894 * t9907 - 0.4e1 * t1643 * t45405;
23177   t45427 = t41386 * t3197;
23178   t45431 = t449 * t1630 * t13099;
23179   t45440 = t1263 * t1654 * t13099;
23180   t45459 = 0.50e2 / 0.27e2 * t34882 * t9907 - 0.4e1 * t1643 * t45427 + 0.10e2 / 0.9e1 * t45431 * t628 + 0.5e1 / 0.9e1 * t10893 * t2169 + t449 * t618 * t45340 * t285 + 0.5e1 / 0.9e1 * t45440 * t628 + 0.5e1 / 0.9e1 * t34855 * t826 - 0.2e1 * t1655 * t45427 - 0.10e2 / 0.3e1 * t10874 * t2169 - 0.10e2 / 0.3e1 * t10882 * t2169 + 0.10e2 / 0.9e1 * t34904 * t826 - 0.5e1 / 0.9e1 * t10899 * t2169 + 0.10e2 / 0.9e1 * t10886 * t2169 + 0.50e2 / 0.27e2 * t34878 * t9907;
23181   t45461 = my_piecewise3(t277, t45393, t45424 + t45459);
23182   t45463 = t3498 * t829;
23183   t45467 = t7062 * t3209;
23184   t45473 = t7058 * t3209;
23185   t45480 = t10467 * t814;
23186   t45487 = 0.8e1 * t2417 * t43724 * t611 - 0.4e1 * t2417 * t10470 * t2137 + 0.8e1 * t2417 * t43731 * t611 + 0.8e1 * t9344 * t10818 - 0.4e1 * t510 * t3109 * t2582 - 0.16e2 * t7055 * t12808 - 0.4e1 * t7055 * t12824 + 0.16e2 * t2417 * t12821 * t608 + 0.1174e1 * t45461 + 0.4e1 * t2417 * t45463 * t611 + 0.16e2 * t10456 * t45467 + 0.8e1 * t2417 * t34919 * t814 - 0.16e2 * t10456 * t45473 + 0.8e1 * t1423 * t3401 * t2177 - t276 * t45461 - 0.24e2 * t10449 * t45480 + 0.48e2 * t7051 * t3405 * t811 * t611;
23187   t45488 = t3405 * t2137;
23188   t45491 = t2418 * t9821;
23189   t45512 = t13123 * t288;
23190   t45530 = t9829 * t2537;
23191   t45540 = -0.4e1 * t1423 * t45488 - 0.16e2 * t10456 * t45491 - t510 * t611 * t13204 - 0.4e1 * t510 * t9822 * t971 + 0.48e2 * t10449 * t2418 * t3209 * t611 + 0.8e1 * t2417 * t10817 * t2137 - 0.4e1 * t510 * t954 * t9934 - 0.4e1 * t510 * t2538 * t3248 - 0.4e1 * t2417 * t45512 * t611 + 0.2e1 * t510 * t608 * t13123 * t288 - 0.2e1 * t510 * t13124 * t631 + 0.4e1 * t1423 * t45480 - 0.2e1 * t510 * t3400 * t2177 - t510 * t2137 * t3534 + 0.16e2 * t10456 * t45530 + 0.4e1 * t510 * t45473 - t510 * t814 * t10903 - 0.4e1 * t510 * t9362 * t971;
23192   t45612 = t24 * t3204;
23193   t45625 = t1609 * t950 * t9787 / 0.50e2 + t56 * t45340 * t266 / 0.100e3 - t604 * t45340 * t266 / 0.100e3 + t1609 * t2531 * t3197 / 0.50e2 + t3484 * t9804 * t2131 / 0.54e2 - 0.5e1 / 0.162e3 * t3488 * t1608 * t804 * t2131 + 0.5e1 / 0.108e3 * t3488 * t9859 * t2124 - t9805 * t33561 / 0.15e2 - t33588 * t45612 / 0.15e2 + t16979 * t13159 * t2131 / 0.324e3 + t10785 * t9801 / 0.60e2 + t3488 * t2118 * t601 / 0.60e2 + t10806 * t9801 / 0.180e3;
23194   t45628 = t3484 * t599;
23195   t45633 = t1609 * t13099;
23196   t45652 = t13100 * t262;
23197   t45659 = -t10794 * t9801 / 0.30e2 - t45628 * t9798 / 0.108e3 - 0.3e1 / 0.50e2 * t2523 * t13105 - t45633 * t2528 / 0.180e3 + t9796 * t45612 / 0.30e2 + t41582 * t33561 / 0.30e2 - t4897 * t13169 * t2131 / 0.324e3 + t33570 * t45612 / 0.90e2 + t9818 * t33561 / 0.90e2 - t10800 * t9801 / 0.180e3 - 0.3e1 / 0.50e2 * t948 * t3489 * t9787 + t45652 * t2528 / 0.60e2 + t34717 * t3201 / 0.60e2 - t33554 * t3201 / 0.180e3;
23198   t45668 = -0.4e1 * t510 * t9351 * t971 - 0.16e2 * t2417 * t3405 * t2134 + 0.2e1 * t510 * t811 * t10809 * t288 - 0.4e1 * t510 * t45530 - 0.32e2 * t2417 * t2418 * t9351 + 0.12e2 * t7051 * t10470 * t9329 - 0.24e2 * t7051 * t10817 * t9329 - 0.4e1 * t510 * t45467 + 0.4e1 * t510 * t45491 - 0.32e2 * t2417 * t2418 * t9362 - 0.96e2 * t34928 * t3405 * t9329 + 0.48e2 * t7051 * t3405 * t814 * t608 + 0.48e2 * t10449 * t2418 * t814 * t2537 + 0.2e1 * t510 * t2134 * t3498 * t288 + 0.8e1 * t2417 * t35007 * t814 + 0.2e1 * t510 * t269 * (t45625 + t45659) * t288 - 0.4e1 * t2417 * t34987 * t814;
23199   t45672 = t12821 * t611;
23200   t45717 = -0.2e1 * t510 * t3499 * t2177 + 0.4e1 * t1423 * t45672 - 0.2e1 * t510 * t12827 * t631 - 0.2e1 * t510 * t10474 * t829 - 0.24e2 * t10449 * t45672 + 0.2e1 * t1423 * t13143 * t611 + 0.24e2 * t10449 * t45488 - 0.4e1 * t510 * t2422 * t3248 - 0.4e1 * t9344 * t10471 - 0.8e1 * t34953 * t9335 - 0.4e1 * t510 * t9347 * t971 + 0.12e2 * t4566 * t3400 * t1974 + 0.4e1 * t2417 * t34962 * t814 - 0.2e1 * t510 * t10810 * t829 + 0.8e1 * t7055 * t13131 - 0.8e1 * t34953 * t9359 - 0.4e1 * t510 * t3210 * t2582 + 0.16e2 * t2417 * t10467 * t811;
23201   t45725 = t2399 * t913 * t13207;
23202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23203     v4rhosigmalapl2[17] = -t43707 - t2220 * t43708 * t504 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t913 * (t45487 + t45540 + t45668 + t45717) * t302 - 0.24739500000000000000e1 * t45725 * t649 + t43713 + 0.12369750000000000000e1 * t33516 * t2190 + 0.92773125000000000000e0 * t35034 * t840 + 0.11132775000000000000e2 * t9951 * t3537 * t1673 * t19 * t2198 - 0.12369750000000000000e1 * t10912 * t2204 - 0.30203104535893596325e2 * t7526 * t3537 * t2208 * t177 * t1690;
23204 
23205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23206     v4rhosigmalapltau[0] = 0.0e0;
23207 
23208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23209     v4rhosigmalapltau[1] = 0.0e0;
23210 
23211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23212     v4rhosigmalapltau[2] = 0.0e0;
23213 
23214   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23215     v4rhosigmalapltau[3] = 0.0e0;
23216 
23217   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23218     v4rhosigmalapltau[4] = 0.0e0;
23219 
23220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23221     v4rhosigmalapltau[5] = 0.0e0;
23222 
23223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23224     v4rhosigmalapltau[6] = 0.0e0;
23225 
23226   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23227     v4rhosigmalapltau[7] = 0.0e0;
23228 
23229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23230     v4rhosigmalapltau[8] = 0.0e0;
23231 
23232   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23233     v4rhosigmalapltau[9] = 0.0e0;
23234 
23235   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23236     v4rhosigmalapltau[10] = 0.0e0;
23237 
23238   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23239     v4rhosigmalapltau[11] = 0.0e0;
23240 
23241   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23242     v4rhosigmalapltau[12] = 0.0e0;
23243 
23244   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23245     v4rhosigmalapltau[13] = 0.0e0;
23246 
23247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23248     v4rhosigmalapltau[14] = 0.0e0;
23249 
23250   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23251     v4rhosigmalapltau[15] = 0.0e0;
23252 
23253   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23254     v4rhosigmalapltau[16] = 0.0e0;
23255 
23256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23257     v4rhosigmalapltau[17] = 0.0e0;
23258 
23259   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23260     v4rhosigmalapltau[18] = 0.0e0;
23261 
23262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23263     v4rhosigmalapltau[19] = 0.0e0;
23264 
23265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23266     v4rhosigmalapltau[20] = 0.0e0;
23267 
23268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23269     v4rhosigmalapltau[21] = 0.0e0;
23270 
23271   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23272     v4rhosigmalapltau[22] = 0.0e0;
23273 
23274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23275     v4rhosigmalapltau[23] = 0.0e0;
23276 
23277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23278     v4rhosigmatau2[0] = 0.0e0;
23279 
23280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23281     v4rhosigmatau2[1] = 0.0e0;
23282 
23283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23284     v4rhosigmatau2[2] = 0.0e0;
23285 
23286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23287     v4rhosigmatau2[3] = 0.0e0;
23288 
23289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23290     v4rhosigmatau2[4] = 0.0e0;
23291 
23292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23293     v4rhosigmatau2[5] = 0.0e0;
23294 
23295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23296     v4rhosigmatau2[6] = 0.0e0;
23297 
23298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23299     v4rhosigmatau2[7] = 0.0e0;
23300 
23301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23302     v4rhosigmatau2[8] = 0.0e0;
23303 
23304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23305     v4rhosigmatau2[9] = 0.0e0;
23306 
23307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23308     v4rhosigmatau2[10] = 0.0e0;
23309 
23310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23311     v4rhosigmatau2[11] = 0.0e0;
23312 
23313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23314     v4rhosigmatau2[12] = 0.0e0;
23315 
23316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23317     v4rhosigmatau2[13] = 0.0e0;
23318 
23319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23320     v4rhosigmatau2[14] = 0.0e0;
23321 
23322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23323     v4rhosigmatau2[15] = 0.0e0;
23324 
23325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23326     v4rhosigmatau2[16] = 0.0e0;
23327 
23328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23329     v4rhosigmatau2[17] = 0.0e0;
23330 
23331   t45744 = t7016 * t13494;
23332   t45746 = t15 * t13492;
23333   t45759 = t3263 * t2345;
23334   t45762 = t3619 * t13214;
23335   t45765 = t3356 * t905;
23336   t45777 = t6499 * t3356;
23337   t45780 = t13215 * t150;
23338   t45781 = t45780 * t432;
23339   t45789 = t10339 * t2345;
23340   t45792 = t2226 * t10331;
23341   t45795 = t14187 * t13214;
23342   t45796 = t45780 * t435;
23343   t45802 = t13232 * t435;
23344   t45809 = -0.6e1 * t330 * t888 * t10425 - 0.48e2 * t3619 * t13216 * t456 - 0.6e1 * t330 * t3357 * t2390 - 0.72e2 * t2225 * t45759 + 0.144e3 * t45762 * t45759 + 0.12e2 * t2225 * t45765 * t435 - t330 * t435 * t13489 - 0.6e1 * t330 * t3258 * t2390 - 0.6e1 * t330 * t10332 * t905 - 0.24e2 * t9977 * t45777 + 0.144e3 * t9970 * t45781 + 0.48e2 * t2225 * t13232 * t432 - 0.12e2 * t33284 * t9992 - 0.12e2 * t330 * t45789 - 0.24e2 * t9977 * t45792 - 0.192e3 * t45795 * t45796 - 0.6e1 * t330 * t2230 * t3392 + 0.12e2 * t1030 * t45802 + 0.2e1 * t330 * t432 * t13431 * t150;
23345   t45810 = t887 * t3392;
23346   t45817 = t6503 * t3356;
23347   t45832 = t68 * t32053;
23348   t45835 = t21229 * t86;
23349   t45843 = t14287 * t13244;
23350   t45844 = t13246 * t13248;
23351   t45867 = t1106 * t13248;
23352   t45874 = t41878 * t13255 / 0.324e3 + t12448 * t21251 * t3277 / 0.324e3 + 0.10e2 / 0.729e3 * t10027 * t21327 * t10056 + t41890 * t10051 / 0.648e3 + t45832 * t37716 / 0.648e3 - 0.45e2 / 0.2e1 * t45835 * t10020 + 0.18e2 * t10006 * t10023 + 0.18e2 * t6573 * t86 * t10034 + 0.105e3 / 0.2e1 * t45843 * t45844 * t387 - 0.45e2 * t10018 * t45844 * t378 - 0.45e2 * t3694 * t13244 * t13246 * t3271 * t2255 - 0.10e2 / 0.9e1 * t2239 * t10044 * t334 + t41915 * t10051 / 0.648e3 + 0.5e1 / 0.1458e4 * t12435 + 0.5e1 / 0.1458e4 * t12457 + 0.5e1 / 0.1458e4 * t12426 + 0.9e1 * t3686 * t13252 - 0.5e1 / 0.486e3 * t12450 - 0.45e2 / 0.2e1 * t6554 * t45867 * t387 + 0.27e2 * t2243 * t10019 * t2255;
23353   t45891 = t3694 * t13244 / t1105 / t381;
23354   t45892 = t13248 * t19;
23355   t45893 = t45892 * t355;
23356   t45906 = t6573 * t3721;
23357   t45919 = t32149 * t375;
23358   t45928 = -0.6e1 * t2239 * t10041 - 0.15e2 * t14277 * t13249 + 0.9e1 * t1091 * t17545 * t13248 + 0.9e1 * t21197 * t3272 + 0.9e1 / 0.2e1 * t6573 * t10038 - 0.3e1 * t6521 * t3275 - 0.50e2 / 0.3e1 * t45891 * t45893 + 0.20e2 / 0.3e1 * t41865 * t45893 - 0.5e1 / 0.648e3 * t41767 * t6536 * t3277 * t387 + t37701 * t6536 * t3277 * t378 / 0.162e3 + 0.20e2 / 0.3e1 * t45906 * t10029 - t41974 * t3278 / 0.972e3 - t41977 * t3278 / 0.972e3 - 0.5e1 / 0.2187e4 * t12456 * t10057 - t13235 * t37845 / 0.972e3 - t13235 * t37848 / 0.972e3 - 0.5e1 / 0.2187e4 * t45919 * t37854 - t41999 * t3278 / 0.972e3 - t42002 * t3278 / 0.972e3 - 0.5e1 / 0.2187e4 * t12434 * t10057;
23359   t45929 = t45874 + t45928;
23360   t45941 = t13328 * t100;
23361   t45946 = -t401 * t45929 * t104;
23362   t45968 = t7821 * t2279 * t3320;
23363   t45971 = t10242 * t873;
23364   t45972 = t5387 * t45971;
23365   t45975 = -0.119078225334763520e0 * t45941 * t1144 + 0.461000314880e0 * t399 * t45946 - 0.15183994858257152217e0 * t21587 * t10115 + 0.43599434195327585986e0 * t28479 * t32374 - 0.58783429053584738202e0 * t28255 * t32378 + 0.44950982175490282881e0 * t6717 * t10294 + 0.63756387095837744823e0 * t6696 * t10239 - 0.16468529812403272839e0 * t2273 * t32341 - 0.75919974291285761083e-1 * t10275 * t6664 - 0.12751277419167548965e1 * t6725 * t42233 + 0.20307846858839536740e1 * t2273 * t32348 + 0.20722416937066287827e0 * t1136 * t45968 + 0.32937059624806545678e0 * t1136 * t45972;
23366   t45976 = t1143 * t13350;
23367   t45979 = t13319 * t100;
23368   t45982 = t13325 * t100;
23369   t45985 = t2279 * t3312;
23370   t45986 = t3840 * t45985;
23371   t46010 = -0.119078225334763520e0 * t1142 * t45976 - 0.714469352008581120e0 * t45979 * t1144 + 0.32937059624806545679e0 * t45982 * t1144 - 0.12751277419167548965e1 * t1136 * t45986 + 0.22757459835536707988e1 * t2273 * t32250 + 0.52455980750256876981e0 * t6720 * t42378 - 0.16468529812403272839e0 * t2273 * t32648 - 0.12751277419167548965e1 * t2273 * t32331 + 0.29391714526792369101e0 * t6720 * t42334 - 0.84395584650891170840e0 * t6689 * t32335 + 0.11378729917768353994e1 * t2273 * t32338 + 0.16879116930178234168e1 * t21787 * t43071 + 0.20722416937066287827e0 * t2273 * t32327 + 0.63756387095837744823e0 * t10217 * t2258 * t112;
23372   t46014 = t3312 * t865;
23373   t46015 = t46014 * t1138;
23374   t46018 = t10242 * t6750;
23375   t46021 = t10242 * t10250;
23376   t46033 = t3856 * t10238 * t873;
23377   t46037 = t5393 * t10258 * t873;
23378   t46041 = t3862 * t6656 * t3312;
23379   t46050 = -0.11064007557120e2 * t45982 * t1774 + 0.44051698455185959158e1 * t8877 * t46015 + 0.80224916908241017663e0 * t18102 * t46018 + 0.38253832257502646895e1 * t18277 * t46021 - 0.32937059624806545678e0 * t2273 * t32352 + 0.25502554838335097930e1 * t6725 * t42999 + 0.32937059624806545679e0 * t2273 * t32615 + 0.38253832257502646895e1 * t2273 * t32618 - 0.16468529812403272839e0 * t1136 * t46033 + 0.21799717097663792993e0 * t3861 * t46037 - 0.84395584650891170843e0 * t3861 * t46041 + 0.21799717097663792993e0 * t6689 * t32254 - 0.16879116930178234168e1 * t6689 * t32795 - 0.38906391098542524630e0 * t6720 * t42575;
23380   t46059 = t3300 * t6741;
23381   t46065 = t1164 * t13344;
23382   t46066 = t46065 * t1138;
23383   t46070 = t13341 * t1138;
23384   t46072 = t10105 * t6741;
23385   t46074 = t1151 * t13344;
23386   t46075 = t46074 * t1138;
23387   t46077 = t10097 * t6741;
23388   t46083 = t32411 * t2279;
23389   t46085 = t1132 * t13260;
23390   t46092 = t6620 * t10238;
23391   t46096 = 0.32124960e2 * t46059 + 0.17054206847430144000e2 * t10200 * t10208 + 0.9555676435200e1 * t10217 * t10208 - 0.3569440e1 * t46066 + 0.114668117222400e3 * t13334 * t1825 - 0.42833280e2 * t46070 + 0.17054206847430144000e2 * t46072 + 0.3185225478400e1 * t46075 - 0.57334058611200e2 * t46077 - 0.57334058611200e2 * t10145 * t10208 + 0.32124960e2 * t3292 * t10208 + 0.9555676435200e1 * t46083 + 0.3185225478400e1 * t46085 * t1825 + 0.9555676435200e1 * t32832 * t13331 - 0.10708320e2 * t6599 * t13322 - 0.10708320e2 * t46092 - 0.57334058611200e2 * t6623 * t32330;
23392   t46101 = t13313 * t1138;
23393   t46103 = t14573 * t13318;
23394   t46106 = t14379 * t13312;
23395   t46107 = t46106 * t1138;
23396   t46109 = t10077 * t6741;
23397   t46111 = t1825 * t3281;
23398   t46114 = t1123 * t13260;
23399   t46119 = t14528 * t13318;
23400   t46122 = t393 * t45929;
23401   t46131 = t14420 * t13312;
23402   t46132 = t46131 * t1138;
23403   t46134 = t2290 * t32259;
23404   t46140 = -0.10708320e2 * t2262 * t109 * t10062 + 0.1784720e1 * t45946 + 0.114668117222400e3 * t46101 - 0.68216827389720576000e2 * t46103 * t1825 + 0.10145661348248508867e2 * t46107 + 0.9555676435200e1 * t46109 - 0.57334058611200e2 * t6602 * t46111 - 0.3569440e1 * t46114 * t1825 - 0.42833280e2 * t13325 * t1825 + 0.10145661348248508867e2 * t46119 * t1825 + 0.1784720e1 * t46122 * t109 + 0.17054206847430144000e2 * t32369 * t860 * t390 * t109 + 0.17054206847430144000e2 * t32726 * t6652 - 0.68216827389720576000e2 * t46132 - 0.10708320e2 * t46134 + 0.32124960e2 * t2269 * t46111 + 0.32124960e2 * t2283 * t32330;
23405   t46150 = t3320 * t402;
23406   t46151 = t2279 * t46150;
23407   t46165 = t13312 * t104;
23408   t46166 = t8849 * t46165;
23409   t46169 = 0.26233858457773445621e1 * t21710 * t32799 - 0.45186746351441547126e1 * t6689 * t32802 - 0.22757459835536707988e1 * t6725 * t42371 - 0.29391714526792369101e0 * t2273 * t32246 - 0.258304e0 * t107 * t407 * (t46096 + t46140) + 0.461000314880e0 * t46122 * t112 - 0.10151298285083840779e1 * t24603 * t2279 * t32673 - 0.89901964350980565762e0 * t17987 * t46151 + 0.8298005667840e1 * t10155 * t10152 + 0.21252129031945914941e0 * t46085 * t390 * t112 + 0.63756387095837744823e0 * t32441 * t2280 + 0.63756387095837744823e0 * t10272 * t6742 + 0.29391714526792369101e0 * t10275 * t6742 - 0.22757459835536707989e1 * t1136 * t46166;
23410   t46172 = t13328 * t398;
23411   t46175 = t13325 * t398;
23412   t46178 = t13319 * t398;
23413   t46189 = t3862 * t45985;
23414   t46192 = t5393 * t45971;
23415   t46201 = t873 * t2294;
23416   t46202 = t2279 * t46201;
23417   t46205 = t8876 * t46165;
23418   t46210 = 0.21252129031945914941e0 * t46172 * t1139 - 0.58783429053584738203e0 * t46175 * t1139 + 0.12751277419167548965e1 * t46178 * t1139 + 0.44950982175490282881e0 * t6800 * t10192 + 0.89901964350980565762e0 * t7822 * t2279 * t33059 - 0.59502499971174729837e0 * t18098 * t6656 * t46150 + 0.11378729917768353994e1 * t1136 * t46189 - 0.29391714526792369101e0 * t1136 * t46192 + 0.80224916908241017663e0 * t18102 * t46151 - 0.89901964350980565762e0 * t17987 * t46018 - 0.2143408056025743360e1 * t5394 * t46021 + 0.1428938704017162240e1 * t5388 * t46202 + 0.67692822862798455803e0 * t1136 * t46205 + 0.63756387095837744823e0 * t2273 * t32260;
23419   t46217 = t10238 * t10250;
23420   t46223 = t10258 * t10250;
23421   t46226 = t13312 * t1154;
23422   t46227 = t8849 * t46226;
23423   t46249 = -0.84395584650891170840e0 * t21707 * t10259 + 0.11378729917768353994e1 * t6696 * t10243 - 0.357234676004290560e0 * t10285 * t6671 + 0.714469352008581120e0 * t5388 * t46217 - 0.14699145220411854869e1 * t18264 * t32564 * t10250 + 0.25318675395267351253e1 * t18077 * t46223 + 0.16879116930178234169e1 * t3861 * t46227 + 0.47287857283434471986e0 * t5504 * t6656 * t3312 * t411 - 0.2766001889280e1 * t399 * t46092 + 0.39207562244901126197e2 * t1149 * t46131 * t1795 + 0.63756387095837744823e0 * t32832 * t860 * t112 - 0.714469352008581120e0 * t1158 * t13337 * t1159 - 0.11064007557120e2 * t399 * t46070 + 0.8298005667840e1 * t399 * t46059;
23424   t46256 = t1143 * t873 * t2258;
23425   t46259 = t13350 * t401;
23426   t46283 = t873 * t3333;
23427   t46284 = t3802 * t46283;
23428   t46296 = -0.16468529812403272839e0 * t2270 * t3335 + 0.98811178874419637034e0 * t32302 * t9007 - 0.32937059624806545678e0 * t6728 * t46256 - 0.119078225334763520e0 * t1158 * t46259 * t1138 - 0.94575714566868943973e0 * t3793 * t13341 * t3794 - 0.21968466899514280222e2 * t1149 * t13313 * t1795 + 0.10984233449757140111e2 * t1149 * t10097 * t10101 - 0.22762551443898437297e2 * t3755 * t46131 * t7934 + 0.8298005667840e1 * t6728 * t1773 * t3281 * t390 + 0.714469352008581120e0 * t2263 * t1143 * t3281 * t411 + 0.44950982175490282881e0 * t1142 * t46284 + 0.714469352008581120e0 * t2263 * t42767 - 0.18307055749595233518e1 * t1149 * t2283 * t1154 * t10183 - 0.18307055749595233518e1 * t1149 * t6632 * t13358;
23429   t46324 = t14477 * t13386;
23430   t46332 = -0.89901964350980565762e0 * t2263 * t43265 - 0.10151298285083840779e1 * t2276 * t32674 + 0.47287857283434471986e0 * t3793 * t3300 * t1154 * t2322 + 0.975074869248e0 * t107 * t2309 * t10232 - 0.2766001889280e1 * t399 * t46134 - 0.63756387095837744824e0 * t1158 * t3300 * t10073 - 0.2766001889280e1 * t2263 * t1773 * t10062 - 0.2766001889280e1 * t6794 * t13390 + 0.89901964350980565762e0 * t2276 * t33060 + 0.20722416937066287827e0 * t2270 * t3322 + 0.44950982175490282881e0 * t2276 * t32683 + 0.23916119461575365556e1 * t107 * t46324 * t411 + 0.44051698455185959158e1 * t399 * t46072 + 0.26206649088979828343e1 * t399 * t46107;
23431   t46338 = t32369 * t860;
23432   t46341 = t3312 * t402;
23433   t46342 = t6656 * t46341;
23434   t46371 = t32844 * t860;
23435   t46374 = -0.16468529812403272839e0 * t13307 * t413 + 0.29391714526792369101e0 * t46338 * t9122 + 0.10984233449757140111e2 * t8850 * t46342 - 0.59502499971174729838e0 * t18098 * t10258 * t6750 - 0.28372714370060683191e1 * t18106 * t46223 + 0.94575714566868943972e0 * t5504 * t6656 * t46201 - 0.12751277419167548965e1 * t10269 * t6742 - 0.357234676004290560e0 * t1158 * t866 * t104 * t10232 + 0.76507664515005293790e1 * t13334 * t390 * t112 - 0.16468529812403272839e0 * t10155 * t6671 - 0.357234676004290560e0 * t1158 * t3313 * t10073 + 0.44950982175490282881e0 * t10285 * t6751 - 0.16468529812403272839e0 * t10288 * t875 - 0.38253832257502646894e1 * t46371 * t9122;
23436   t46383 = t10200 * t100;
23437   t46406 = t111 * t3281;
23438   t46410 = 0.44950982175490282881e0 * t3771 * t2295 * t13287 + 0.29619233351014809600e2 * t399 * t46101 + 0.45165298839047841173e-1 * t46119 * t390 * t112 + 0.29391714526792369101e0 * t46383 * t10152 + 0.65874119249613091356e0 * t21590 * t42972 + 0.41444833874132575653e0 * t28070 * t32600 + 0.65874119249613091356e0 * t28255 * t32603 + 0.56906378609746093244e1 * t8899 * t8900 * t46341 - 0.98018905612252815491e1 * t8904 * t46342 + 0.44950982175490282881e0 * t7822 * t10238 * t6750 + 0.714469352008581120e0 * t10149 * t6671 - 0.357234676004290560e0 * t32949 * t2302 - 0.38253832257502646895e1 * t32302 * t10152 - 0.12751277419167548965e1 * t6725 * t46406 * t404;
23439   t46433 = t1137 * t2279 * t2258;
23440   t46442 = 0.32937059624806545678e0 * t10269 * t6664 - 0.16468529812403272839e0 * t10272 * t6664 + 0.13549589651714352352e0 * t33022 * t8929 - 0.38906391098542524630e0 * t32703 * t6658 + 0.52455980750256876982e0 * t10275 * t6661 - 0.16468529812403272839e0 * t10272 * t6668 - 0.12751277419167548965e1 * t10272 * t6653 + 0.29391714526792369101e0 * t33067 * t8929 - 0.84395584650891170840e0 * t32696 * t6658 + 0.11378729917768353994e1 * t10272 * t6661 + 0.58783429053584738202e0 * t21416 * t46433 - 0.75919974291285761083e-1 * t10275 * t6668 - 0.58783429053584738202e0 * t10275 * t6653 + 0.2468269445917900800e1 * t399 * t46083;
23441   t46469 = t14496 * t13386;
23442   t46472 = t13344 * t104;
23443   t46473 = t1137 * t46472;
23444   t46480 = 0.2468269445917900800e1 * t399 * t46109 - 0.13606156761889987933e2 * t1149 * t46106 * t1795 + 0.20722416937066287826e0 * t10155 * t6751 - 0.75919974291285761083e-1 * t10201 * t875 - 0.48997150734706182896e0 * t14399 * t13313 * t14400 + 0.56906378609746093242e1 * t3755 * t10105 * t28976 - 0.92817332546461565657e1 * t14377 * t46106 * t35739 + 0.20312390406477209506e2 * t3755 * t46106 * t7934 - 0.357234676004290560e0 * t2276 * t32749 - 0.357234676004290560e0 * t1158 * t2295 * t13274 - 0.33837660950279469264e0 * t1142 * t46469 + 0.21252129031945914941e0 * t1136 * t46473 + 0.32937059624806545679e0 * t10269 * t6668 + 0.25502554838335097930e1 * t10269 * t6653;
23445   t46504 = t3856 * t2279 * t3333;
23446   t46514 = -0.17635028716075421460e1 * t32594 * t8929 + 0.16879116930178234168e1 * t32402 * t6658 - 0.22757459835536707989e1 * t10269 * t6661 - 0.12751277419167548965e1 * t33072 * t8913 + 0.38253832257502646895e1 * t10275 * t8913 - 0.25502554838335097930e1 * t6725 * t46433 - 0.25502554838335097930e1 * t2273 * t32788 - 0.58783429053584738203e0 * t6720 * t42236 + 0.50637350790534702504e1 * t6689 * t32656 - 0.68272379506610123965e1 * t2273 * t32791 - 0.16468529812403272839e0 * t1136 * t46504 - 0.32937059624806545678e0 * t6696 * t10115 - 0.32937059624806545678e0 * t2273 * t32356 - 0.61023519165317445059e0 * t1149 * t46074 * t1795;
23447   t46521 = t13386 * t401;
23448   t46540 = t10217 * t860 * t100;
23449   t46554 = 0.822756481972633600e0 * t399 * t46075 - 0.2143408056025743360e1 * t10155 * t9007 + 0.1428938704017162240e1 * t2263 * t46256 - 0.33837660950279469264e0 * t14462 * t46521 * t1138 - 0.357234676004290560e0 * t1158 * t10184 * t3304 - 0.37929099725894513314e0 * t1158 * t13313 * t1159 - 0.17620679382074383663e2 * t399 * t46132 - 0.2202015477522235392e1 * t9046 * t46283 * t411 + 0.975074869248e0 * t107 * t6735 * t3333 + 0.29391714526792369101e0 * t46540 * t5320 - 0.357234676004290560e0 * t6800 * t10280 + 0.714469352008581120e0 * t1158 * t3308 * t10073 + 0.84395584650891170840e0 * t3793 * t13313 * t3794 - 0.98018905612252815489e1 * t1149 * t10105 * t10101;
23450   t46556 = t46114 * t100;
23451   t46559 = t13334 * t100;
23452   t46562 = t1177 * t13350;
23453   t46566 = t46103 * t100;
23454   t46584 = t8876 * t13312 * t3759;
23455   t46587 = t8876 * t46226;
23456   t46590 = t13334 * t398;
23457   t46593 = t10254 * t13274;
23458   t46596 = -0.922000629760e0 * t46556 * t1774 - 0.25306658097095253694e-1 * t46559 * t1144 + 0.325024956416e0 * t107 * t46562 * t411 - 0.11756685810716947640e1 * t46566 * t1774 + 0.12751277419167548965e1 * t1158 * t13341 * t1159 - 0.14809616675507404800e2 * t399 * t46077 - 0.119078225334763520e0 * t1158 * t13345 * t1159 - 0.922000629760e0 * t399 * t46066 - 0.89901964350980565762e0 * t10149 * t6751 + 0.714469352008581120e0 * t10189 * t9007 + 0.87446194859244818738e0 * t14682 * t46584 - 0.15062248783813849042e1 * t3861 * t46587 + 0.45165298839047841173e-1 * t46590 * t1139 - 0.63756387095837744824e0 * t5394 * t46593;
23459   t46599 = t46014 * t1159;
23460   t46624 = t3862 * t46165;
23461   t46632 = -0.12751277419167548965e1 * t6696 * t10246 - 0.63756387095837744824e0 * t5394 * t46599 - 0.14809616675507404800e2 * t8896 * t46015 + 0.44950982175490282881e0 * t7822 * t2279 * t32682 + 0.714469352008581120e0 * t5388 * t46593 + 0.47287857283434471985e0 * t5504 * t13358 * t10250 - 0.63756387095837744824e0 * t5394 * t46217 + 0.8298005667840e1 * t8893 * t46015 + 0.47287857283434471985e0 * t5504 * t6656 * t3333 * t402 - 0.12751277419167548965e1 * t5394 * t46202 - 0.11378729917768353994e1 * t18063 * t46021 + 0.12751277419167548965e1 * t1136 * t46624 + 0.714469352008581120e0 * t5388 * t46599 - 0.2202015477522235392e1 * t107 * t10162 * t2322;
23462   t46637 = my_piecewise3(t97, 0, t45975 + t46010 + t46050 + t46169 + t46210 + t46249 + t46296 + t46332 + t46374 + t46410 + t46442 + t46480 + t46514 + t46554 + t46596 + t46632);
23463   t46638 = my_piecewise3(t96, 0, t46637);
23464   t46640 = 0.3e1 * t10062 * t879 + 0.3e1 * t10301 * t860 + t114 * t45929 + t13260 * t417 + t13404 * t390 + 0.3e1 * t2258 * t3339 + 0.3e1 * t2328 * t3281 + t46638 * t95;
23465   t46643 = t13443 * t442;
23466   t46670 = t39 * t4004;
23467   t46684 = t2330 * t3341;
23468   t46688 = t881 * t10303;
23469   t46698 = -t46640;
23470   t46702 = 0.3e1 * t893 * t10411 + 0.10e2 / 0.3e1 * t2362 * t13452 + 0.200e3 / 0.27e2 * t441 * t46670 * t13414 * t423 + 0.10e2 * t895 * t13451 * t3345 * t2330 - 0.10e2 / 0.3e1 * t2362 * t13455 - 0.50e2 / 0.9e1 * t33140 * t2385 * t10380 - 0.10e2 / 0.3e1 * t895 * t3369 * t46684 - 0.10e2 / 0.3e1 * t895 * t3369 * t46688 + 0.5e1 / 0.9e1 * t2362 * t13458 + 0.50e2 / 0.81e2 * t441 * t2365 * t13406 * t423 + 0.5e1 / 0.9e1 * t895 * t896 * t46698;
23471   t46720 = t449 * t13476;
23472   t46723 = t3345 * t147;
23473   t46724 = t46723 * t2330;
23474   t46727 = t1263 * t13485;
23475   t46730 = t147 * t3341;
23476   t46731 = t46730 * t2359;
23477   t46734 = t39302 * t3341;
23478   t46739 = t10399 * t10303;
23479   t46745 = t4017 * t14939 * t13414;
23480   t46749 = t449 * t1239 * t13406;
23481   t46756 = t1263 * t1265 * t13406;
23482   t46769 = t14957 * t14959 * t13414;
23483   t46772 = 0.40e2 / 0.3e1 * t46720 * t453 + 0.18e2 * t3994 * t46724 + 0.20e2 * t46727 * t453 - 0.10e2 * t6923 * t46731 - 0.6e1 * t1252 * t46734 - 0.10e2 * t6931 * t46731 - 0.6e1 * t1252 * t46739 + 0.18e2 * t4005 * t46724 + 0.20e2 / 0.3e1 * t46745 * t453 + 0.10e2 / 0.9e1 * t46749 * t453 + t449 * t442 * t46698 * t147 + 0.5e1 / 0.9e1 * t46756 * t453 - 0.3e1 * t1266 * t46739 - 0.3e1 * t1266 * t46734 - 0.5e1 / 0.3e1 * t33233 * t2366 * t18448 + 0.3e1 * t4020 * t46724 + 0.5e1 / 0.9e1 * t46769 * t453;
23484   t46773 = my_piecewise3(t139, (-params->c1 * t46640 * t141 - 0.5e1 / 0.9e1 * t46643 * t2359 + 0.3e1 * t10355 * t902 + 0.10e2 / 0.3e1 * t32006 * t10362 + 0.3e1 * t3365 * t2382 - 0.6e1 * t2356 * t3381 - 0.10e2 * t27638 * t10370 * t24 - 0.12e2 * t893 * t2378 * t2330 + 0.3e1 * t2356 * t3385 + 0.10e2 / 0.3e1 * t6883 * t10380 * t24 + t46702) * t145 + t13461 * t447 * t145 + 0.3e1 * t10387 * t900 * t145 + 0.3e1 * t3376 * t2373 * t145 + 0.3e1 * t13463 * t448 + 0.3e1 * t3379 * t2373 + t13466 * t447 * t145, t46772);
23485   t46782 = t13407 * t124;
23486   t46787 = t24 * t884;
23487   t46793 = t3342 * t126 * t881;
23488   t46798 = t13415 * t124;
23489   t46804 = t13415 * t1217;
23490   t46810 = t1218 * t13406;
23491   t46819 = t3949 * t13424;
23492   t46825 = t14846 * t13414;
23493   t46828 = t56 * t46698 * t128 / 0.100e3 + t46782 * t2336 / 0.60e2 - 0.9e1 / 0.100e3 * t10304 * t13411 + t43584 * t46787 / 0.20e2 - 0.9e1 / 0.100e3 * t3342 * t10310 - t46793 * t2336 / 0.10e2 - 0.9e1 / 0.100e3 * t3346 * t2339 - t46798 * t2336 / 0.12e2 + 0.9e1 / 0.50e2 * t3346 * t13418 * t2330 + t46804 * t2336 / 0.18e2 - t428 * t46698 * t128 / 0.100e3 - t46810 * t2336 / 0.180e3 + 0.3e1 / 0.100e3 * t1218 * t46688 * t128 + 0.3e1 / 0.100e3 * t1218 * t46684 * t128 + t46819 * t2336 / 0.60e2 - 0.3e1 / 0.100e3 * t3949 * t3353 * t2330 - t46825 * t2336 / 0.180e3;
23494   t46850 = t13431 * t150;
23495   t46865 = 0.12e2 * t2225 * t45810 * t435 + 0.24e2 * t1030 * t13220 * t456 - 0.6e1 * t330 * t45817 + 0.48e2 * t9977 * t45789 - t138 * t46773 - 0.24e2 * t1030 * t45781 + 0.6e1 * t330 * t45792 + 0.2e1 * t330 * t131 * t46828 * t150 + 0.72e2 * t6492 * t45796 - 0.48e2 * t2225 * t2226 * t9995 + 0.72e2 * t9970 * t2226 * t3356 * t435 - 0.2e1 * t330 * t13432 * t456 + 0.24e2 * t1030 * t3259 * t2390 + 0.24e2 * t9977 * t45817 - 0.4e1 * t2225 * t46850 * t435 - 0.6e1 * t330 * t9995 * t905 + 0.6e1 * t330 * t45777 - 0.72e2 * t9970 * t45802 - 0.6e1 * t330 * t2346 * t3392 + 0.1174e1 * t46773;
23496   t46872 = t2399 * t847 * t13492;
23497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23498     v4rholapl3[0] = -t45744 / 0.2e1 - t2220 * t45746 * t317 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t847 * (t45809 + t46865) * t167 - 0.24739500000000000000e1 * t46872 * t480;
23499 
23500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23501     v4rholapl3[1] = 0.0e0;
23502 
23503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23504     v4rholapl3[2] = 0.0e0;
23505 
23506   t46875 = t7016 * t13777;
23507   t46876 = t173 * t13775;
23508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23509     v4rholapl3[3] = -t2220 * t46876 * t487 / 0.2e1 - t46875 / 0.2e1;
23510 
23511   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23512     v4rholapl3[4] = -t2220 * t45746 * t499 / 0.2e1 - t45744 / 0.2e1;
23513 
23514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23515     v4rholapl3[5] = 0.0e0;
23516 
23517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23518     v4rholapl3[6] = 0.0e0;
23519 
23520   t46887 = t13714 * t288;
23521   t46891 = t7062 * t3498;
23522   t46894 = t10817 * t2537;
23523   t46897 = t2418 * t10809;
23524   t46911 = t7128 * t4669;
23525   t46917 = t4642 * t13527 / t1496 / t557;
23526   t46918 = t13531 * t19;
23527   t46919 = t46918 * t531;
23528   t46947 = t33716 * t551;
23529   t46952 = -0.3e1 * t7143 * t3417 + 0.9e1 * t22748 * t3414 + 0.5e1 / 0.1458e4 * t12866 + 0.5e1 / 0.1458e4 * t12835 + 0.5e1 / 0.1458e4 * t12844 - 0.5e1 / 0.486e3 * t12859 + 0.20e2 / 0.3e1 * t46911 * t10508 - 0.50e2 / 0.3e1 * t46917 * t46919 + 0.20e2 / 0.3e1 * t43868 * t46919 - 0.5e1 / 0.648e3 * t43825 * t7091 * t3419 * t563 + t39868 * t7091 * t3419 * t554 / 0.162e3 + 0.9e1 / 0.2e1 * t7128 * t10517 - 0.6e1 * t2431 * t10520 - 0.15e2 * t16414 * t13532 + 0.9e1 * t4634 * t13535 + 0.9e1 * t1482 * t19907 * t13531 - t13518 * t40021 / 0.972e3 - t13518 * t40024 / 0.972e3 - 0.5e1 / 0.2187e4 * t46947 * t40029 - t43891 * t3420 / 0.972e3;
23530   t46963 = t16424 * t13527;
23531   t46964 = t13529 * t13531;
23532   t46976 = t1497 * t13531;
23533   t46983 = t22751 * t224;
23534   t46991 = t68 * t33655;
23535   t47009 = -t43894 * t3420 / 0.972e3 - 0.5e1 / 0.2187e4 * t12843 * t10536 - t43998 * t3420 / 0.972e3 - t44001 * t3420 / 0.972e3 - 0.5e1 / 0.2187e4 * t12865 * t10536 + 0.105e3 / 0.2e1 * t46963 * t46964 * t563 - 0.45e2 * t10497 * t46964 * t554 - 0.45e2 * t4642 * t13527 * t13529 * t3413 * t2447 - 0.45e2 / 0.2e1 * t7095 * t46976 * t563 + 0.27e2 * t2435 * t10498 * t2447 - 0.45e2 / 0.2e1 * t46983 * t10499 + 0.18e2 * t10485 * t10502 + 0.18e2 * t7128 * t224 * t10513 + t46991 * t39999 / 0.648e3 - 0.10e2 / 0.9e1 * t2431 * t10523 * t514 + t43946 * t10530 / 0.648e3 + t43951 * t13538 / 0.324e3 + t12857 * t22804 * t3419 / 0.324e3 + 0.10e2 / 0.729e3 * t10506 * t22742 * t10535 + t43963 * t10530 / 0.648e3;
23536   t47010 = t46952 + t47009;
23537   t47037 = t4848 * t10565 * t939;
23538   t47041 = t6221 * t10585 * t939;
23539   t47045 = t4785 * t7222 * t3454;
23540   t47054 = -0.75919974291285761083e-1 * t10578 * t7219 + 0.13549589651714352352e0 * t34202 * t9501 - 0.38906391098542524630e0 * t33932 * t7224 + 0.52455980750256876982e0 * t10578 * t7227 - 0.12751277419167548965e1 * t7216 * t44255 - 0.16468529812403272839e0 * t2465 * t34128 - 0.12751277419167548965e1 * t2465 * t34132 - 0.16468529812403272839e0 * t1527 * t47037 + 0.21799717097663792993e0 * t4784 * t47041 - 0.84395584650891170843e0 * t4784 * t47045 + 0.29391714526792369101e0 * t7203 * t44492 - 0.84395584650891170840e0 * t7287 * t34485 + 0.11378729917768353994e1 * t2465 * t34488;
23541   t47076 = t10653 * t926 * t238;
23542   t47086 = 0.16879116930178234168e1 * t23124 * t44938 + 0.21799717097663792993e0 * t7287 * t34414 - 0.16468529812403272839e0 * t2465 * t34407 - 0.29391714526792369101e0 * t2465 * t34491 - 0.68272379506610123965e1 * t2465 * t34124 + 0.22757459835536707988e1 * t2465 * t34494 + 0.52455980750256876981e0 * t7203 * t44479 - 0.45186746351441547126e1 * t7287 * t34577 + 0.20307846858839536740e1 * t2465 * t34142 - 0.16468529812403272839e0 * t10575 * t7219 + 0.29391714526792369101e0 * t47076 * t6092 - 0.22757459835536707988e1 * t7216 * t44500 + 0.975074869248e0 * t245 * t7260 * t3475 - 0.32937059624806545678e0 * t2465 * t34426;
23543   t47088 = t3454 * t931;
23544   t47089 = t47088 * t242;
23545   t47090 = t4785 * t47089;
23546   t47093 = t4755 * t47089;
23547   t47099 = t16634 * t13626;
23548   t47100 = t47099 * t238;
23549   t47109 = t1528 * t2471 * t2450;
23550   t47126 = 0.11378729917768353994e1 * t1527 * t47090 - 0.12751277419167548965e1 * t1527 * t47093 - 0.2202015477522235392e1 * t245 * t10646 * t2514 - 0.11756685810716947640e1 * t47100 * t2045 + 0.63756387095837744823e0 * t10653 * t2450 * t250 + 0.38253832257502646895e1 * t10578 * t9494 - 0.25502554838335097930e1 * t7216 * t47109 + 0.32937059624806545679e0 * t10572 * t7209 + 0.25502554838335097930e1 * t10572 * t7213 + 0.32937059624806545679e0 * t2465 * t34164 + 0.38253832257502646895e1 * t2465 * t34167 - 0.25502554838335097930e1 * t2465 * t34171 + 0.25502554838335097930e1 * t7216 * t44514 - 0.58783429053584738203e0 * t7203 * t44523;
23551   t47136 = t13627 * t238;
23552   t47139 = t7179 * t10565;
23553   t47142 = t2482 * t34223;
23554   t47145 = t16642 * t13601;
23555   t47155 = t16623 * t13601;
23556   t47170 = -0.32937059624806545678e0 * t7282 * t10770 - 0.32937059624806545678e0 * t2465 * t34355 - 0.2766001889280e1 * t2455 * t2044 * t10541 + 0.8298005667840e1 * t10601 * t10716 - 0.11064007557120e2 * t47136 * t2045 - 0.2766001889280e1 * t575 * t47139 - 0.2766001889280e1 * t575 * t47142 - 0.92817332546461565657e1 * t16763 * t47145 * t36587 + 0.20312390406477209506e2 * t4707 * t47145 * t8429 + 0.84395584650891170840e0 * t4838 * t13607 * t4839 + 0.39207562244901126197e2 * t1540 * t47155 * t2066 - 0.18307055749595233518e1 * t1540 * t7191 * t13559 - 0.18307055749595233518e1 * t1540 * t2475 * t1545 * t10612 + 0.47287857283434471986e0 * t6238 * t7222 * t3454 * t587;
23557   t47173 = t13638 * t238;
23558   t47181 = t939 * t3475;
23559   t47185 = t16605 * t13626;
23560   t47191 = t1514 * t13543;
23561   t47192 = t47191 * t238;
23562   t47197 = t47088 * t1550;
23563   t47200 = t47088 * t2066;
23564   t47203 = t47088 * t1529;
23565   t47209 = t1534 * t939 * t2450;
23566   t47215 = -0.119078225334763520e0 * t47173 * t1535 + 0.44950982175490282881e0 * t4823 * t2487 * t13575 - 0.38253832257502646895e1 * t34504 * t10716 - 0.2202015477522235392e1 * t9700 * t47181 * t587 + 0.45165298839047841173e-1 * t47185 * t566 * t250 - 0.357234676004290560e0 * t33856 * t2494 - 0.922000629760e0 * t47192 * t2045 + 0.32937059624806545679e0 * t47136 * t1535 - 0.63756387095837744824e0 * t6222 * t47197 - 0.98018905612252815491e1 * t9585 * t47200 + 0.44051698455185959158e1 * t9593 * t47203 - 0.16468529812403272839e0 * t2462 * t3477 - 0.32937059624806545678e0 * t7365 * t47209 - 0.63756387095837744824e0 * t1549 * t3442 * t10703;
23567   t47220 = t1542 * t13596;
23568   t47244 = t4718 * t47181;
23569   t47250 = t13602 * t1529;
23570   t47253 = t3442 * t7268;
23571   t47256 = -0.89901964350980565762e0 * t2455 * t44607 - 0.10151298285083840779e1 * t2468 * t34038 - 0.61023519165317445059e0 * t1540 * t47220 * t2066 + 0.714469352008581120e0 * t1549 * t3450 * t10703 + 0.44950982175490282881e0 * t10650 * t7337 - 0.357234676004290560e0 * t2468 * t33870 + 0.47287857283434471986e0 * t4838 * t3442 * t1545 * t2514 - 0.94575714566868943973e0 * t4838 * t13602 * t4839 + 0.10984233449757140111e2 * t1540 * t10642 * t10617 - 0.357234676004290560e0 * t1549 * t3455 * t10703 + 0.44950982175490282881e0 * t1533 * t47244 - 0.714469352008581120e0 * t1549 * t13614 * t1550 - 0.11064007557120e2 * t575 * t47250 + 0.8298005667840e1 * t575 * t47253;
23572   t47284 = t13653 * t577;
23573   t47288 = 0.98811178874419637034e0 * t10692 * t941 + 0.65874119249613091356e0 * t23462 * t44710 - 0.58783429053584738202e0 * t10578 * t7213 + 0.32937059624806545678e0 * t10572 * t7219 + 0.50637350790534702504e1 * t7287 * t34119 + 0.11378729917768353994e1 * t10575 * t7227 - 0.17635028716075421460e1 * t45015 * t9494 + 0.58783429053584738202e0 * t23206 * t47109 - 0.75919974291285761083e-1 * t10578 * t7209 - 0.12751277419167548965e1 * t10575 * t7213 + 0.29391714526792369101e0 * t34174 * t9501 - 0.84395584650891170840e0 * t34481 * t7224 + 0.44950982175490282881e0 * t7343 * t10756 - 0.119078225334763520e0 * t1549 * t47284 * t1529;
23574   t47296 = t13607 * t1529;
23575   t47302 = t34301 * t2471;
23576   t47305 = t10664 * t7268;
23577   t47315 = t8510 * t2471 * t3462;
23578   t47318 = t10561 * t939;
23579   t47319 = t6215 * t47318;
23580   t47328 = 0.714469352008581120e0 * t2455 * t44446 + 0.44950982175490282881e0 * t2468 * t34350 - 0.21968466899514280222e2 * t1540 * t13607 * t2066 + 0.29619233351014809600e2 * t575 * t47296 + 0.76507664515005293790e1 * t13644 * t566 * t250 + 0.2468269445917900800e1 * t575 * t47302 + 0.2468269445917900800e1 * t575 * t47305 - 0.357234676004290560e0 * t7343 * t10759 - 0.12751277419167548965e1 * t34029 * t9494 - 0.16468529812403272839e0 * t10575 * t7209 + 0.20722416937066287827e0 * t1527 * t47315 + 0.32937059624806545678e0 * t1527 * t47319 + 0.44950982175490282881e0 * t8511 * t2471 * t34349 + 0.975074869248e0 * t245 * t2501 * t10748;
23581   t47332 = t16771 * t13678;
23582   t47336 = t47220 * t1529;
23583   t47342 = t13678 * t577;
23584   t47350 = t249 * t3423;
23585   t47351 = t245 * t47350;
23586   t47360 = t939 * t2486;
23587   t47361 = t2471 * t47360;
23588   t47364 = t34122 * t3446;
23589   t47367 = t13630 * t574;
23590   t47374 = t13601 * t242;
23591   t47375 = t9553 * t47374;
23592   t47378 = 0.23916119461575365556e1 * t245 * t47332 * t587 + 0.822756481972633600e0 * t575 * t47336 + 0.12751277419167548965e1 * t1549 * t13602 * t1550 - 0.33837660950279469264e0 * t16821 * t47342 * t1529 + 0.714469352008581120e0 * t2455 * t1534 * t3423 * t587 - 0.38253832257502646894e1 * t9728 * t47351 - 0.2143408056025743360e1 * t10601 * t9772 + 0.1428938704017162240e1 * t2455 * t47209 - 0.89901964350980565762e0 * t10700 * t7337 - 0.12751277419167548965e1 * t6222 * t47361 - 0.11378729917768353994e1 * t20358 * t47364 + 0.12751277419167548965e1 * t47367 * t1530 + 0.47287857283434471985e0 * t6238 * t7222 * t3475 * t578 - 0.22757459835536707989e1 * t1527 * t47375;
23593   t47379 = t9540 * t13566;
23594   t47382 = t10561 * t7336;
23595   t47387 = t13596 * t242;
23596   t47388 = t1528 * t47387;
23597   t47391 = t13644 * t238;
23598   t47404 = t10642 * t7268;
23599   t47409 = t569 * t47010;
23600   t47414 = -t577 * t47010 * t242;
23601   t47420 = t13633 * t566;
23602   t47427 = t1555 * t13596;
23603   t47428 = t47427 * t1529;
23604   t47431 = t1523 * t13543;
23605   t47438 = t47145 * t1529;
23606   t47442 = t47155 * t1529;
23607   t47445 = 0.1784720e1 * t47409 * t247 + 0.1784720e1 * t47414 + 0.9555676435200e1 * t34298 * t13641 + 0.9555676435200e1 * t47305 - 0.42833280e2 * t47250 + 0.32124960e2 * t2461 * t47420 - 0.3569440e1 * t47191 * t2096 + 0.10145661348248508867e2 * t47185 * t2096 - 0.3569440e1 * t47428 + 0.114668117222400e3 * t47296 + 0.3185225478400e1 * t47431 * t2096 - 0.68216827389720576000e2 * t47099 * t2096 - 0.42833280e2 * t13627 * t2096 + 0.10145661348248508867e2 * t47438 - 0.57334058611200e2 * t10691 * t10723 - 0.68216827389720576000e2 * t47442 - 0.57334058611200e2 * t47404;
23608   t47452 = t10621 * t7268;
23609   t47478 = 0.17054206847430144000e2 * t34257 * t926 * t566 * t247 + 0.32124960e2 * t2475 * t34131 + 0.17054206847430144000e2 * t47452 + 0.17054206847430144000e2 * t10737 * t10723 - 0.10708320e2 * t47139 - 0.57334058611200e2 * t7182 * t34131 + 0.114668117222400e3 * t13644 * t2096 + 0.32124960e2 * t3434 * t10723 - 0.10708320e2 * t2454 * t247 * t10541 + 0.9555676435200e1 * t47302 + 0.17054206847430144000e2 * t34309 * t7212 + 0.9555676435200e1 * t10653 * t10723 + 0.3185225478400e1 * t47336 - 0.10708320e2 * t7158 * t13633 - 0.57334058611200e2 * t7161 * t47420 + 0.32124960e2 * t47253 - 0.10708320e2 * t47142;
23610   t47483 = t13630 * t238;
23611   t47489 = -0.63756387095837744824e0 * t6222 * t47379 + 0.80224916908241017663e0 * t20370 * t47382 + 0.38253832257502646895e1 * t20390 * t47364 + 0.21252129031945914941e0 * t1527 * t47388 - 0.25306658097095253694e-1 * t47391 * t1535 - 0.357234676004290560e0 * t1549 * t932 * t242 * t10748 + 0.20722416937066287826e0 * t10601 * t7337 - 0.75919974291285761083e-1 * t10766 * t941 + 0.714469352008581120e0 * t10696 * t9772 - 0.14809616675507404800e2 * t575 * t47404 - 0.357234676004290560e0 * t10650 * t7246 - 0.258304e0 * t245 * t583 * (t47445 + t47478) - 0.714469352008581120e0 * t47483 * t1535 - 0.357234676004290560e0 * t1549 * t2487 * t13566;
23612   t47512 = t9579 * t47374;
23613   t47526 = -0.16468529812403272839e0 * t10654 * t941 - 0.119078225334763520e0 * t1549 * t13597 * t1550 - 0.922000629760e0 * t575 * t47428 + 0.89901964350980565762e0 * t2468 * t34042 + 0.20722416937066287827e0 * t2462 * t3464 + 0.8298005667840e1 * t7365 * t2044 * t3423 * t566 - 0.16468529812403272839e0 * t10601 * t7246 + 0.461000314880e0 * t47409 * t250 + 0.461000314880e0 * t575 * t47414 + 0.67692822862798455803e0 * t1527 * t47512 + 0.714469352008581120e0 * t10700 * t7246 - 0.98018905612252815489e1 * t1540 * t10621 * t10617 - 0.357234676004290560e0 * t1549 * t10613 * t3446 + 0.21252129031945914941e0 * t47431 * t566 * t250;
23614   t47527 = t3454 * t578;
23615   t47537 = t16790 * t13678;
23616   t47552 = t1568 * t13653;
23617   t47559 = t6221 * t47318;
23618   t47564 = 0.56906378609746093244e1 * t9580 * t9581 * t47527 + 0.10984233449757140111e2 * t9575 * t47200 - 0.14809616675507404800e2 * t9554 * t47203 - 0.2766001889280e1 * t7346 * t13673 - 0.33837660950279469264e0 * t1533 * t47537 - 0.37929099725894513314e0 * t1549 * t13607 * t1550 - 0.17620679382074383663e2 * t575 * t47442 + 0.44051698455185959158e1 * t575 * t47452 - 0.13606156761889987933e2 * t1540 * t47145 * t2066 + 0.26206649088979828343e1 * t575 * t47438 + 0.325024956416e0 * t245 * t47552 * t587 + 0.63756387095837744823e0 * t34298 * t926 * t250 - 0.29391714526792369101e0 * t1527 * t47559 - 0.16879116930178234168e1 * t7287 * t34418;
23619   t47577 = t4848 * t2471 * t3475;
23620   t47594 = t9540 * t13575;
23621   t47601 = -0.38906391098542524630e0 * t7203 * t44945 + 0.26233858457773445621e1 * t23095 * t34422 + 0.20722416937066287827e0 * t2465 * t34410 - 0.12751277419167548965e1 * t7216 * t47350 * t580 - 0.16468529812403272839e0 * t1527 * t47577 + 0.41444833874132575653e0 * t30484 * t34150 + 0.65874119249613091356e0 * t31008 * t34153 - 0.15183994858257152217e0 * t23418 * t10770 + 0.43599434195327585986e0 * t31013 * t34072 - 0.58783429053584738202e0 * t31008 * t34076 - 0.59502499971174729837e0 * t20249 * t7222 * t3462 * t578 + 0.80224916908241017663e0 * t20370 * t47594 - 0.89901964350980565762e0 * t20240 * t47382 - 0.2143408056025743360e1 * t6222 * t47364;
23622   t47610 = t13644 * t574;
23623   t47633 = 0.63756387095837744823e0 * t34476 * t2472 + 0.63756387095837744823e0 * t10575 * t7269 + 0.29391714526792369101e0 * t10578 * t7269 + 0.63756387095837744823e0 * t7282 * t10566 + 0.45165298839047841173e-1 * t47610 * t1530 + 0.11378729917768353994e1 * t7282 * t10569 - 0.10151298285083840779e1 * t27079 * t2471 * t34037 - 0.89901964350980565762e0 * t20240 * t47594 + 0.89901964350980565762e0 * t8511 * t2471 * t34041 + 0.63756387095837744823e0 * t2465 * t34224 - 0.84395584650891170840e0 * t23302 * t10586 - 0.12751277419167548965e1 * t10572 * t7269 + 0.1428938704017162240e1 * t6216 * t47361 - 0.12751277419167548965e1 * t7282 * t10562;
23624   t47636 = t9579 * t13601 * t4708;
23625   t47639 = t13601 * t1545;
23626   t47640 = t9579 * t47639;
23627   t47643 = t13627 * t574;
23628   t47646 = t13638 * t574;
23629   t47651 = t1534 * t13653;
23630   t47659 = t10585 * t10552;
23631   t47662 = t9553 * t47639;
23632   t47665 = t10737 * t238;
23633   t47676 = 0.87446194859244818738e0 * t16869 * t47636 - 0.15062248783813849042e1 * t4784 * t47640 - 0.58783429053584738203e0 * t47643 * t1530 + 0.21252129031945914941e0 * t47646 * t1530 + 0.8298005667840e1 * t9548 * t47203 - 0.119078225334763520e0 * t1533 * t47651 + 0.714469352008581120e0 * t6216 * t47379 - 0.14699145220411854869e1 * t20746 * t33852 * t10552 + 0.25318675395267351253e1 * t20353 * t47659 + 0.16879116930178234169e1 * t4784 * t47662 + 0.29391714526792369101e0 * t47665 * t10716 - 0.48997150734706182896e0 * t16800 * t13607 * t16801 + 0.56906378609746093242e1 * t4707 * t10621 * t31142 - 0.16468529812403272839e0 * t13623 * t589;
23634   t47677 = t34257 * t926;
23635   t47680 = t47527 * t3446;
23636   t47694 = t4785 * t47374;
23637   t47713 = 0.29391714526792369101e0 * t47677 * t9722 - 0.63756387095837744824e0 * t6222 * t47680 - 0.22762551443898437297e2 * t4707 * t47155 * t8429 + 0.47287857283434471985e0 * t6238 * t13559 * t10552 + 0.44950982175490282881e0 * t8511 * t10565 * t7336 + 0.714469352008581120e0 * t6216 * t47680 + 0.12751277419167548965e1 * t1527 * t47694 + 0.714469352008581120e0 * t6216 * t47197 - 0.59502499971174729838e0 * t20249 * t10585 * t7336 - 0.28372714370060683191e1 * t20383 * t47659 + 0.94575714566868943972e0 * t6238 * t7222 * t47360 + 0.44950982175490282881e0 * t7296 * t10672 - 0.22757459835536707989e1 * t10572 * t7227 + 0.16879116930178234168e1 * t34471 * t7224;
23638   t47718 = my_piecewise3(t235, 0, t47054 + t47086 + t47126 + t47170 + t47215 + t47256 + t47288 + t47328 + t47378 + t47489 + t47526 + t47564 + t47601 + t47633 + t47676 + t47713);
23639   t47719 = my_piecewise3(t234, 0, t47718);
23640   t47721 = 0.3e1 * t10541 * t945 + 0.3e1 * t10779 * t926 + t13543 * t593 + t13687 * t566 + t233 * t47719 + 0.3e1 * t2450 * t3481 + t252 * t47010 + 0.3e1 * t2520 * t3423;
23641   t47724 = t13726 * t618;
23642   t47751 = t39 * t4952;
23643   t47765 = t2522 * t3483;
23644   t47769 = t947 * t10781;
23645   t47779 = -t47721;
23646   t47783 = 0.3e1 * t959 * t10889 + 0.10e2 / 0.3e1 * t2554 * t13735 + 0.200e3 / 0.27e2 * t617 * t47751 * t13697 * t599 + 0.10e2 * t961 * t13734 * t3487 * t2522 - 0.10e2 / 0.3e1 * t2554 * t13738 - 0.50e2 / 0.9e1 * t34813 * t2577 * t10858 - 0.10e2 / 0.3e1 * t961 * t3511 * t47765 - 0.10e2 / 0.3e1 * t961 * t3511 * t47769 + 0.5e1 / 0.9e1 * t2554 * t13741 + 0.50e2 / 0.81e2 * t617 * t2557 * t13689 * t599 + 0.5e1 / 0.9e1 * t961 * t962 * t47779;
23647   t47801 = t449 * t13759;
23648   t47804 = t3487 * t285;
23649   t47805 = t47804 * t2522;
23650   t47808 = t1263 * t13768;
23651   t47811 = t285 * t3483;
23652   t47812 = t47811 * t2551;
23653   t47815 = t41386 * t3483;
23654   t47820 = t10877 * t10781;
23655   t47826 = t4017 * t17071 * t13697;
23656   t47830 = t449 * t1630 * t13689;
23657   t47837 = t1263 * t1654 * t13689;
23658   t47850 = t14957 * t17089 * t13697;
23659   t47853 = 0.40e2 / 0.3e1 * t47801 * t628 + 0.18e2 * t4942 * t47805 + 0.20e2 * t47808 * t628 - 0.10e2 * t7482 * t47812 - 0.6e1 * t1643 * t47815 - 0.10e2 * t7490 * t47812 - 0.6e1 * t1643 * t47820 + 0.18e2 * t4953 * t47805 + 0.20e2 / 0.3e1 * t47826 * t628 + 0.10e2 / 0.9e1 * t47830 * t628 + t449 * t618 * t47779 * t285 + 0.5e1 / 0.9e1 * t47837 * t628 - 0.3e1 * t1655 * t47820 - 0.3e1 * t1655 * t47815 - 0.5e1 / 0.3e1 * t34845 * t2558 * t27229 + 0.3e1 * t4966 * t47805 + 0.5e1 / 0.9e1 * t47850 * t628;
23660   t47854 = my_piecewise3(t277, (-params->c1 * t47721 * t279 - 0.5e1 / 0.9e1 * t47724 * t2551 + 0.3e1 * t10833 * t968 + 0.10e2 / 0.3e1 * t34760 * t10840 + 0.3e1 * t3507 * t2574 - 0.6e1 * t2548 * t3523 - 0.10e2 * t31566 * t10848 * t24 - 0.12e2 * t959 * t2570 * t2522 + 0.3e1 * t2548 * t3527 + 0.10e2 / 0.3e1 * t7442 * t10858 * t24 + t47783) * t283 + t13744 * t623 * t283 + 0.3e1 * t10865 * t966 * t283 + 0.3e1 * t3518 * t2565 * t283 + 0.3e1 * t13746 * t624 + 0.3e1 * t3521 * t2565 + t13749 * t623 * t283, t47853);
23661   t47856 = t13515 * t611;
23662   t47873 = t16323 * t13497;
23663   t47874 = t13498 * t288;
23664   t47875 = t47874 * t611;
23665   t47878 = t47874 * t608;
23666   t47884 = t13690 * t262;
23667   t47889 = t24 * t950;
23668   t47895 = t3484 * t264 * t947;
23669   t47900 = t13698 * t262;
23670   t47906 = t13698 * t1608;
23671   t47912 = t1609 * t13689;
23672   t47921 = t4897 * t13707;
23673   t47927 = t16979 * t13697;
23674   t47930 = t56 * t47779 * t266 / 0.100e3 + t47884 * t2528 / 0.60e2 - 0.9e1 / 0.100e3 * t10782 * t13694 + t45628 * t47889 / 0.20e2 - 0.9e1 / 0.100e3 * t3484 * t10788 - t47895 * t2528 / 0.10e2 - 0.9e1 / 0.100e3 * t3488 * t2531 - t47900 * t2528 / 0.12e2 + 0.9e1 / 0.50e2 * t3488 * t13701 * t2522 + t47906 * t2528 / 0.18e2 - t604 * t47779 * t266 / 0.100e3 - t47912 * t2528 / 0.180e3 + 0.3e1 / 0.100e3 * t1609 * t47769 * t266 + 0.3e1 / 0.100e3 * t1609 * t47765 * t266 + t47921 * t2528 / 0.60e2 - 0.3e1 / 0.100e3 * t4897 * t3495 * t2522 - t47927 * t2528 / 0.180e3;
23675   t47941 = t3498 * t971;
23676   t47945 = -0.4e1 * t2417 * t46887 * t611 + 0.24e2 * t10456 * t46891 - 0.12e2 * t510 * t46894 - 0.24e2 * t10456 * t46897 - 0.6e1 * t510 * t2538 * t3534 - t276 * t47854 - 0.72e2 * t10449 * t47856 - 0.2e1 * t510 * t13715 * t631 + 0.6e1 * t510 * t46897 - t510 * t611 * t13772 + 0.1174e1 * t47854 + 0.48e2 * t2417 * t13515 * t608 - 0.6e1 * t510 * t2422 * t3534 - 0.192e3 * t47873 * t47875 + 0.144e3 * t10449 * t47878 + 0.2e1 * t510 * t269 * t47930 * t288 + 0.72e2 * t7051 * t47875 + 0.2e1 * t510 * t608 * t13714 * t288 + 0.12e2 * t2417 * t47941 * t611;
23677   t47948 = t4566 * t13497;
23678   t47949 = t3405 * t2537;
23679   t47952 = t7058 * t3498;
23680   t47969 = t953 * t3534;
23681   t48002 = 0.12e2 * t1423 * t47856 + 0.144e3 * t47948 * t47949 - 0.24e2 * t10456 * t47952 - 0.6e1 * t510 * t3499 * t2582 - 0.24e2 * t1423 * t47878 + 0.24e2 * t1423 * t13503 * t631 - 0.6e1 * t510 * t3400 * t2582 + 0.24e2 * t1423 * t3401 * t2582 + 0.12e2 * t2417 * t47969 * t611 + 0.48e2 * t10456 * t46894 - 0.6e1 * t510 * t954 * t10903 - 0.6e1 * t510 * t10810 * t971 - 0.72e2 * t2417 * t47949 - 0.48e2 * t4566 * t13499 * t631 - 0.48e2 * t2417 * t2418 * t10474 + 0.72e2 * t10449 * t2418 * t3498 * t611 + 0.6e1 * t510 * t47952 - 0.12e2 * t34953 * t10471 - 0.6e1 * t510 * t46891 - 0.6e1 * t510 * t10474 * t971;
23682   t48009 = t2399 * t913 * t13775;
23683   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23684     v4rholapl3[7] = -t46875 / 0.2e1 - t2220 * t46876 * t504 / 0.2e1 - 0.3e1 / 0.8e1 * t846 * t913 * (t47945 + t48002) * t302 - 0.24739500000000000000e1 * t48009 * t649;
23685 
23686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23687     v4rholapl2tau[0] = 0.0e0;
23688 
23689   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23690     v4rholapl2tau[1] = 0.0e0;
23691 
23692   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23693     v4rholapl2tau[2] = 0.0e0;
23694 
23695   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23696     v4rholapl2tau[3] = 0.0e0;
23697 
23698   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23699     v4rholapl2tau[4] = 0.0e0;
23700 
23701   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23702     v4rholapl2tau[5] = 0.0e0;
23703 
23704   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23705     v4rholapl2tau[6] = 0.0e0;
23706 
23707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23708     v4rholapl2tau[7] = 0.0e0;
23709 
23710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23711     v4rholapl2tau[8] = 0.0e0;
23712 
23713   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23714     v4rholapl2tau[9] = 0.0e0;
23715 
23716   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23717     v4rholapl2tau[10] = 0.0e0;
23718 
23719   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23720     v4rholapl2tau[11] = 0.0e0;
23721 
23722   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23723     v4rholapltau2[0] = 0.0e0;
23724 
23725   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23726     v4rholapltau2[1] = 0.0e0;
23727 
23728   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23729     v4rholapltau2[2] = 0.0e0;
23730 
23731   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23732     v4rholapltau2[3] = 0.0e0;
23733 
23734   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23735     v4rholapltau2[4] = 0.0e0;
23736 
23737   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23738     v4rholapltau2[5] = 0.0e0;
23739 
23740   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23741     v4rholapltau2[6] = 0.0e0;
23742 
23743   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23744     v4rholapltau2[7] = 0.0e0;
23745 
23746   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23747     v4rholapltau2[8] = 0.0e0;
23748 
23749   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23750     v4rholapltau2[9] = 0.0e0;
23751 
23752   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23753     v4rholapltau2[10] = 0.0e0;
23754 
23755   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23756     v4rholapltau2[11] = 0.0e0;
23757 
23758   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23759     v4rhotau3[0] = 0.0e0;
23760 
23761   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23762     v4rhotau3[1] = 0.0e0;
23763 
23764   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23765     v4rhotau3[2] = 0.0e0;
23766 
23767   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23768     v4rhotau3[3] = 0.0e0;
23769 
23770   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23771     v4rhotau3[4] = 0.0e0;
23772 
23773   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23774     v4rhotau3[5] = 0.0e0;
23775 
23776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23777     v4rhotau3[6] = 0.0e0;
23778 
23779   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23780     v4rhotau3[7] = 0.0e0;
23781 
23782   t48062 = 0.1e1 / t157 / t1055;
23783   t48091 = t2594 * t2594;
23784   t48101 = t2713 * t2713;
23785   t48126 = t2710 * t2710;
23786   t48142 = t2619 * t2619;
23787   t48148 = t2632 * t2632;
23788   t48155 = 0.1e1 / t22 / t344;
23789   t48156 = t19 * t48155;
23790   t48171 = t2609 * t23;
23791   t48179 = t68 * t24102 * t2619 / 0.1944e4 - t68 * t7659 * t2632 / 0.2916e4 - 0.15e2 / 0.2e1 * t17523 * t10947 + 0.9e1 * t5203 * t10950 - 0.2e1 * t1737 * t10964 + 0.105e3 / 0.16e2 * t14287 * t48142 - 0.45e2 / 0.4e1 * t3694 * t2619 * t2632 + 0.9e1 / 0.4e1 * t1091 * t48148 + 0.3e1 * t1091 * t681 * t10964 - t376 * (t48156 * t2608 * t89 / 0.2125764e7 - 0.5e1 / 0.2187e4 * t8717 * t10959 + 0.25e2 / 0.72e2 * t24154 * t2627 - 0.125e3 / 0.324e3 * t14313 * t676 * t345 * t659 + 0.25e2 / 0.209952e6 * t3707 * t48156 * t2608 + 0.25e2 / 0.209952e6 * t24183 * t48171 + 0.3125e4 / 0.186624e6 * t14334 * t48171) / 0.2e1;
23792   t48187 = t2635 * t2635;
23793   t48188 = t1132 * t48187;
23794   t48191 = t2687 * t2687;
23795   t48195 = t1123 * t48187;
23796   t48198 = t2666 * t2666;
23797   t48200 = t1164 * t48198 * t104;
23798   t48202 = t1802 * t35520;
23799   t48204 = t1151 * t48198;
23800   t48205 = t48204 * t104;
23801   t48207 = t24699 * t7793;
23802   t48209 = t7840 * t7806;
23803   t48211 = t109 * t10967;
23804   t48220 = t2653 * t2653;
23805   t48221 = t14379 * t48220;
23806   t48222 = t48221 * t104;
23807   t48224 = t2639 * t2639;
23808   t48225 = t3874 * t48224;
23809   t48230 = -0.10708320e2 * t48200 - 0.14277760e2 * t48202 + 0.9555676435200e1 * t48205 + 0.34108413694860288000e2 * t48207 - 0.114668117222400e3 * t48209 - 0.14277760e2 * t1771 * t48211 + 0.9555676435200e1 * t48188 * t109 + 0.34108413694860288000e2 * t24703 * t11661 - 0.114668117222400e3 * t7741 * t11069 + 0.10145661348248508867e2 * t48222 - 0.42833280e2 * t48225 * t109 + 0.64249920e2 * t2646 * t11069;
23810   t48233 = t14528 * t48224;
23811   t48236 = t3879 * t48224;
23812   t48239 = t14573 * t48224;
23813   t48242 = t393 * t48179;
23814   t48246 = t3741 * t48220 * t104;
23815   t48248 = t2654 * t7806;
23816   t48250 = t35326 * t1790;
23817   t48252 = t14420 * t48220;
23818   t48253 = t48252 * t104;
23819   t48257 = -t401 * t48179 * t104;
23820   t48259 = t3757 * t48220;
23821   t48260 = t48259 * t104;
23822   t48264 = -0.10708320e2 * t48195 * t109 + 0.10145661348248508867e2 * t48233 * t109 + 0.114668117222400e3 * t48236 * t109 - 0.68216827389720576000e2 * t48239 * t109 + 0.1784720e1 * t48242 * t109 - 0.42833280e2 * t48246 + 0.64249920e2 * t48248 + 0.12740901913600e2 * t48250 - 0.68216827389720576000e2 * t48253 + 0.1784720e1 * t48257 + 0.114668117222400e3 * t48260 + 0.12740901913600e2 * t35321 * t3027;
23823   t48287 = t35486 * t691;
23824   t48290 = 0.63756387095837744823e0 * t48188 * t112 + 0.975074869248e0 * t107 * t1177 * t48191 - 0.2766001889280e1 * t48195 * t112 - 0.258304e0 * t107 * t407 * (t48230 + t48264) - 0.11064007557120e2 * t48225 * t112 - 0.65874119249613091356e0 * t1784 * t35493 - 0.11756685810716947640e1 * t1784 * t35496 - 0.51005109676670195860e1 * t1784 * t35500 + 0.45514919671073415976e1 * t1784 * t35425 - 0.30367989716514304433e0 * t7803 * t7851 + 0.82889667748265151307e0 * t1784 * t35253 + 0.87198868390655171972e0 * t5399 * t35446 - 0.33758233860356468336e1 * t5399 * t35450 - 0.51005109676670195860e1 * t5312 * t48287;
23825   t48322 = 0.13174823849922618271e1 * t7797 * t7851 - 0.65874119249613091356e0 * t1784 * t35429 - 0.65874119249613091356e0 * t7800 * t7851 + 0.11756685810716947640e1 * t35483 * t7767 + 0.13174823849922618271e1 * t1784 * t35257 - 0.11756685810716947640e1 * t48239 * t112 + 0.461000314880e0 * t399 * t48257 - 0.13606156761889987933e2 * t1149 * t48221 * t1154 - 0.2857877408034324480e1 * t35724 * t1814 + 0.85008516127783659764e0 * t35321 * t684 * t112 - 0.10122663238838101478e0 * t35272 * t1814 - 0.76507664515005293789e1 * t24754 * t2639 * t112 + 0.1428938704017162240e1 * t7738 * t7781 + 0.13174823849922618271e1 * t35517 * t1814;
23826   t48355 = 0.29619233351014809600e2 * t399 * t48260 - 0.714469352008581120e0 * t7735 * t7781 + 0.85008516127783659764e0 * t35845 * t1791 + 0.12751277419167548965e1 * t7800 * t7807 - 0.16879116930178234168e1 * t24982 * t7818 + 0.22757459835536707988e1 * t7800 * t7810 + 0.51005109676670195860e1 * t35879 * t1791 + 0.34978477943697927495e1 * t18003 * t35883 - 0.60248995135255396168e1 * t5399 * t35892 + 0.17980392870196113152e1 * t7822 * t1790 * t35551 + 0.16596011335680e2 * t7729 * t10987 - 0.17620679382074383663e2 * t399 * t48253 - 0.17980392870196113152e1 * t3771 * t2662 * t11019 - 0.24409407666126978024e1 * t1149 * t35326 * t3001;
23827   t48358 = t1154 * t2674;
23828   t48368 = t697 * t2666;
23829   t48369 = t1790 * t48368;
23830   t48393 = 0.3291025927890534400e1 * t399 * t48250 - 0.11900499994234945968e1 * t14518 * t2654 * t48358 - 0.37830285826747577588e1 * t3793 * t11048 * t11037 + 0.89901964350980565762e0 * t3771 * t2667 * t11019 - 0.25502554838335097929e1 * t5394 * t48369 + 0.51005109676670195860e1 * t1784 * t35692 + 0.2857877408034324480e1 * t5388 * t48369 + 0.45165298839047841173e-1 * t48233 * t112 + 0.58783429053584738202e0 * t24703 * t2639 * t112 + 0.51005109676670195860e1 * t1158 * t11048 * t2658 - 0.29619233351014809600e2 * t399 * t48209 - 0.476312901339054080e0 * t1158 * t11084 * t2658 + 0.76507664515005293790e1 * t48236 * t112 + 0.461000314880e0 * t48242 * t112;
23831   t48428 = 0.16044983381648203533e1 * t3771 * t2654 * t11019 - 0.18307055749595233518e1 * t1149 * t48204 * t1154 - 0.21968466899514280222e2 * t1149 * t48259 * t1154 - 0.476312901339054080e0 * t35596 * t1814 - 0.3688002519040e1 * t399 * t48202 + 0.21968466899514280221e2 * t1149 * t7840 * t11009 + 0.17980392870196113152e1 * t1787 * t35573 + 0.88103396910371918316e1 * t399 * t48207 - 0.32937059624806545678e0 * t7729 * t7781 - 0.11064007557120e2 * t399 * t48246 + 0.89901964350980565762e0 * t7735 * t7778 + 0.26206649088979828343e1 * t399 * t48222 + 0.41444833874132575653e0 * t7729 * t7778 + 0.51005109676670195860e1 * t7797 * t7794;
23832   t48436 = t1773 * t10967;
23833   t48463 = 0.27077129145119382320e1 * t1784 * t35925 + 0.39207562244901126197e2 * t1149 * t48252 * t1154 - 0.2766001889280e1 * t399 * t48200 - 0.3688002519040e1 * t1772 * t48436 + 0.18915142913373788794e1 * t5504 * t3001 * t48368 + 0.67516467720712936673e1 * t5399 * t35857 - 0.91029839342146831954e1 * t1784 * t35721 + 0.85008516127783659764e0 * t1784 * t35521 - 0.17980392870196113152e1 * t7738 * t7778 - 0.22762551443898437297e2 * t3755 * t48252 * t3759 - 0.476312901339054080e0 * t1158 * t35799 * t1790 + 0.2857877408034324480e1 * t7722 * t11824 - 0.65874119249613091356e0 * t11059 * t699 + 0.1428938704017162240e1 * t1158 * t2662 * t11027;
23834   t48473 = t1154 * t2687;
23835   t48500 = -0.15171639890357805325e1 * t1158 * t10977 * t2658 - 0.2857877408034324480e1 * t1158 * t11044 * t2658 + 0.16596011335680e2 * t399 * t48248 + 0.94575714566868943971e0 * t3793 * t2654 * t48473 - 0.12751277419167548965e1 * t1158 * t2654 * t11027 - 0.13535064380111787705e1 * t14462 * t35820 * t1790 + 0.1300099825664e1 * t107 * t35670 * t697 - 0.25502554838335097930e1 * t7800 * t7794 - 0.11756685810716947640e1 * t7803 * t7794 + 0.58783429053584738202e0 * t7803 * t7807 + 0.18066119535619136469e0 * t35873 * t1791 - 0.77812782197085049260e0 * t24906 * t7818 + 0.10491196150051375396e1 * t7803 * t7810 - 0.25502554838335097930e1 * t7797 * t7807;
23836   t48510 = t2674 * t2674;
23837   t48518 = t3759 * t697;
23838   t48522 = t3759 * t2666;
23839   t48543 = -0.23513371621433895280e1 * t35876 * t1791 + 0.33758233860356468336e1 * t25060 * t7818 - 0.45514919671073415977e1 * t7797 * t7810 - 0.4404030955044470784e1 * t107 * t7725 * t2687 + 0.23916119461575365556e1 * t107 * t14477 * t48510 + 0.2468269445917900800e1 * t399 * t48205 - 0.476312901339054080e0 * t1787 * t35269 - 0.19598860293882473159e1 * t14399 * t10977 * t48518 + 0.11381275721949218649e2 * t3755 * t7857 * t48522 + 0.33758233860356468337e1 * t3793 * t10977 * t11037 - 0.19603781122450563098e2 * t1149 * t7857 * t11009 - 0.714469352008581120e0 * t1158 * t2667 * t11027 - 0.92817332546461565657e1 * t14377 * t48221 * t14382 + 0.20312390406477209506e2 * t3755 * t48221 * t3759 - 0.13535064380111787705e1 * t1787 * t35814;
23840   t48547 = my_piecewise3(t97, 0, t48290 + t48322 + t48355 + t48393 + t48428 + t48463 + t48500 + t48543);
23841   t48548 = my_piecewise3(t96, 0, t48547);
23842   t48550 = 0.4e1 * t10967 * t703 + 0.4e1 * t11110 * t684 + t114 * t48179 + 0.6e1 * t2635 * t2693 + t48548 * t95;
23843   t48559 = t2695 * t2695;
23844   t48566 = t128 * t36 * t11157;
23845   t48569 = t2699 * t2699;
23846   t48571 = t56 * t48569 * t345;
23847   t48595 = -t56 * t48550 * t128 / 0.100e3 - t35950 * t3049 / 0.15e2 + t2696 * t2699 * t1220 / 0.36e2 - 0.9e1 / 0.100e3 * t56 * t48559 * t3347 - t25388 * t11878 / 0.18e2 + t7976 * t48566 / 0.36e2 + 0.125e3 / 0.1458e4 * t48571 * t14827 - t2700 * t3939 * t48566 / 0.18e2 - 0.125e3 / 0.2187e4 * t48571 * t14831 + t428 * t48550 * t128 / 0.100e3 + t35978 * t3049 / 0.45e2 + 0.3e1 / 0.100e3 * t1218 * t48559 * t128 + t25405 * t11878 / 0.108e3 + t3949 * t8045 * t48566 / 0.108e3 + 0.25e2 / 0.4374e4 * t14846 * t48569 * t14849;
23848   t48627 = t4004 * t48569;
23849   t48631 = t1265 * t2699;
23850   t48654 = -params->c1 * t48550 * t141 - 0.40e2 / 0.9e1 * t36023 * t3070 - 0.350e3 / 0.81e2 * t25156 * t11916 - 0.6e1 * params->c1 * t48559 * t442 - 0.550e3 / 0.81e2 * t24058 * t1239 * t36 * t11157 - 0.10000e5 / 0.729e3 * params->c1 * t48569 * t345 * t14881 - 0.50000e5 / 0.6561e4 * t1879 * t48627 * t68 - 0.1000e4 / 0.27e2 * t1879 * t48631 * t2695 - 0.20e2 / 0.9e1 * t1879 * t1239 * t19 * t38 * t48559 - 0.100e3 / 0.81e2 * t11156 * t9204 * t22 * t11112 - 0.100e3 / 0.81e2 * t441 * t2365 * t11112 * t709 - 0.10e2 / 0.9e1 * t895 * t3369 * t48559 - 0.5e1 / 0.9e1 * t895 * t896 * t48550;
23851   t48659 = t2730 * t2730;
23852   t48665 = t2732 * t2732;
23853   t48671 = t449 * t48631;
23854   t48672 = t60 * t2695;
23855   t48673 = t14917 * t48672;
23856   t48680 = t68 * t11179;
23857   t48687 = t1263 * t25228;
23858   t48718 = -0.10000e5 / 0.729e3 * t449 * t48627 * t14918 - 0.50e2 / 0.9e1 * t48671 * t48673 - 0.5000e4 / 0.243e3 * t1263 * t4019 * t48569 * t14918 - 0.50e2 / 0.9e1 * t48671 * t48680 - 0.6e1 * t449 * t1239 * t48559 * t147 - 0.50e2 / 0.9e1 * t48687 * t48680 - 0.40e2 / 0.9e1 * t1892 * t24 * t147 * t11112 - 0.50e2 / 0.9e1 * t48687 * t48673 - 0.5000e4 / 0.729e3 * t4017 * t14939 * t48569 * t14918 - t449 * t442 * t48550 * t147 - 0.20e2 / 0.9e1 * t36132 * t731 - 0.3e1 * t1263 * t1265 * t48559 * t147 - 0.25e2 / 0.27e2 * t25272 * t2736 - 0.25e2 / 0.27e2 * t4017 * t25232 * t48673 - 0.1250e4 / 0.2187e4 * t14957 * t14959 * t48569 * t14918;
23859   t48719 = my_piecewise3(t139, 0.4e1 * t11168 * t145 * t728 + 0.6e1 * t145 * t2730 * t2732 + t145 * t48654 + 0.3e1 * t145 * t48659 + t145 * t48665, t48718);
23860   t48722 = -0.24e2 * t14187 * t48091 * t150 + 0.36e2 * t3619 * t2595 * t2713 - 0.24e2 * t3619 * t10915 * t734 - 0.6e1 * t1030 * t48101 * t150 + 0.24e2 * t1030 * t2716 * t2713 - 0.8e1 * t1030 * t720 * t11136 + 0.12e2 * t1030 * t2594 * t2745 + t330 * (0.729e3 / 0.51200e5 * t1054 * t2608 * t24 * t52 - 0.6561e4 / 0.2048000e7 * t3651 * sigma[0] * t10935 + 0.531441e6 / 0.655360000e9 * t14238 * t41 / t3654 * t52 + 0.6e1 * t48126 + 0.8e1 * t716 * t11133 + 0.2e1 * t131 * t48595) * t150 - 0.4e1 * t330 * t11136 * t734 - 0.6e1 * t330 * t2713 * t2745 - 0.4e1 * t330 * t719 * t11193 - t138 * t48719 + 0.1174e1 * t48719;
23861   t48727 = 0.68137354535196937499e2 * t4040 * t1696 * t11241 - 0.11498178577814483203e3 * t4040 * t311 * t36205 * t473 * t166 - 0.12775753975349425781e2 * t471 * t11223 * t1284 * t166 * t156 * t159 - 0.93932789062500000000e2 * t1926 * t3565 * t2767 * t3559 * t166 - 0.25048743750000000000e2 * t7541 * t2758 + 0.12524371875000000000e3 * t1926 * t17372 * t11213 - 0.34882260210209206480e0 * t1297 * t17377 * t11225 - 0.13591397041152118347e3 * t1297 * t737 * t11223 * t158 * t1301 + 0.34660489666083872784e2 * t1297 * t153 / t3652 * t28 * t13794 - 0.54794126953125000000e2 * t471 * t14051 * t7532 * t45 * t166 * t156 - 0.17394960937500000000e1 * t471 * t475 * t11223 * t159 * t166 + 0.54503531578451885124e0 * t1297 * t3573 * t48062 * t158 * t166 + 0.12741934726080110950e3 * t1297 * t153 * t48062 * t158 * t1301 + 0.37109250000000000000e1 * t36235 * t745 + 0.67956985205760591732e2 * t1297 * t2748 * t2767 * t158 * t1301 + 0.25048743750000000000e2 * t1915 * t11219 - 0.27831937500000000000e1 * t7541 * t2763 - 0.15655464843750000000e2 * t471 * t1286 * t11239 * t29 * t166 + 0.27831937500000000000e1 * t1915 * t11231 - 0.3e1 / 0.8e1 * t8 * t18 * t48722 * t167;
23862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23863     v4sigma4[0] = t10 * t48727;
23864 
23865   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23866     v4sigma4[1] = 0.0e0;
23867 
23868   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23869     v4sigma4[2] = 0.0e0;
23870 
23871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23872     v4sigma4[3] = 0.0e0;
23873 
23874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23875     v4sigma4[4] = 0.0e0;
23876 
23877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23878     v4sigma4[5] = 0.0e0;
23879 
23880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23881     v4sigma4[6] = 0.0e0;
23882 
23883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23884     v4sigma4[7] = 0.0e0;
23885 
23886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23887     v4sigma4[8] = 0.0e0;
23888 
23889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23890     v4sigma4[9] = 0.0e0;
23891 
23892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23893     v4sigma4[10] = 0.0e0;
23894 
23895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23896     v4sigma4[11] = 0.0e0;
23897 
23898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23899     v4sigma4[12] = 0.0e0;
23900 
23901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23902     v4sigma4[13] = 0.0e0;
23903 
23904   t48766 = 0.1e1 / t292 / t1446;
23905   t48794 = t2774 * t2774;
23906   t48804 = t2893 * t2893;
23907   t48829 = t2890 * t2890;
23908   t48845 = t2799 * t2799;
23909   t48851 = t2812 * t2812;
23910   t48871 = t2789 * t23;
23911   t48879 = t68 * t26112 * t2799 / 0.1944e4 - t68 * t8245 * t2812 / 0.2916e4 - 0.15e2 / 0.2e1 * t19861 * t11278 + 0.9e1 * t5977 * t11281 - 0.2e1 * t2008 * t11295 + 0.105e3 / 0.16e2 * t16424 * t48845 - 0.45e2 / 0.4e1 * t4642 * t2799 * t2812 + 0.9e1 / 0.4e1 * t1482 * t48851 + 0.3e1 * t1482 * t776 * t11295 - t552 * (t48156 * t2788 * t227 / 0.2125764e7 - 0.5e1 / 0.2187e4 * t9370 * t11290 + 0.25e2 / 0.72e2 * t26187 * t2807 - 0.125e3 / 0.324e3 * t16466 * t771 * t345 * t754 + 0.25e2 / 0.209952e6 * t4655 * t48156 * t2788 + 0.25e2 / 0.209952e6 * t26168 * t48871 + 0.3125e4 / 0.186624e6 * t16452 * t48871) / 0.2e1;
23912   t48894 = t2833 * t2833;
23913   t48895 = t16642 * t48894;
23914   t48896 = t48895 * t242;
23915   t48907 = t2846 * t2846;
23916   t48908 = t1542 * t48907;
23917   t48909 = t48908 * t242;
23918   t48912 = t16623 * t48894;
23919   t48917 = t4761 * t48894 * t242;
23920   t48926 = t4699 * t48894;
23921   t48930 = t2819 * t2819;
23922   t48931 = t16634 * t48930;
23923   t48934 = 0.1428938704017162240e1 * t8451 * t8433 + 0.1300099825664e1 * t245 * t2092 * t11430 + 0.13174823849922618271e1 * t36690 * t2085 + 0.26206649088979828343e1 * t575 * t48896 - 0.10122663238838101478e0 * t36758 * t2085 + 0.20312390406477209506e2 * t4707 * t48895 * t4708 - 0.13606156761889987933e2 * t1540 * t48895 * t1545 + 0.2468269445917900800e1 * t575 * t48909 + 0.39207562244901126197e2 * t1540 * t48912 * t1545 - 0.11064007557120e2 * t575 * t48917 - 0.76507664515005293789e1 * t26908 * t2819 * t250 - 0.92817332546461565657e1 * t16763 * t48895 * t16764 - 0.21968466899514280222e2 * t1540 * t48926 * t1545 - 0.11756685810716947640e1 * t48931 * t250;
23924   t48953 = t36817 * t2061;
23925   t48956 = t4708 * t792;
23926   t48960 = t4708 * t2846;
23927   t48964 = t26302 * t8530;
23928   t48970 = t1545 * t2854;
23929   t48977 = -0.32937059624806545678e0 * t8439 * t8433 + 0.41444833874132575653e0 * t8439 * t8383 + 0.17980392870196113152e1 * t2058 * t36745 + 0.1428938704017162240e1 * t1549 * t2842 * t11324 + 0.16044983381648203533e1 * t4823 * t2834 * t11311 + 0.89901964350980565762e0 * t4823 * t2847 * t11311 - 0.24409407666126978024e1 * t1540 * t36817 * t3153 + 0.3291025927890534400e1 * t575 * t48953 - 0.19598860293882473159e1 * t16800 * t11396 * t48956 + 0.11381275721949218649e2 * t4707 * t8372 * t48960 + 0.88103396910371918316e1 * t575 * t48964 + 0.21968466899514280221e2 * t1540 * t8357 * t11338 - 0.11900499994234945968e1 * t16903 * t2834 * t48970 - 0.37830285826747577588e1 * t4838 * t11359 * t11334;
23930   t48982 = t2073 * t36982;
23931   t48985 = t1545 * t2867;
23932   t48996 = t1534 * t792 * t2815;
23933   t49010 = t8357 * t8534;
23934   t49016 = t242 * t11430;
23935   t49023 = -0.476312901339054080e0 * t1549 * t11371 * t2838 - 0.3688002519040e1 * t575 * t48982 + 0.94575714566868943971e0 * t4838 * t2834 * t48985 - 0.12751277419167548965e1 * t1549 * t2834 * t11324 - 0.19603781122450563098e2 * t1540 * t8372 * t11338 - 0.65874119249613091356e0 * t6056 * t48996 + 0.2857877408034324480e1 * t8487 * t12253 - 0.13535064380111787705e1 * t16821 * t36748 * t2061 + 0.33758233860356468337e1 * t4838 * t11396 * t11334 + 0.51005109676670195860e1 * t1549 * t11359 * t2838 - 0.29619233351014809600e2 * t575 * t49010 - 0.714469352008581120e0 * t1549 * t2847 * t11324 - 0.476312901339054080e0 * t1549 * t785 * t49016 - 0.17980392870196113152e1 * t4823 * t2842 * t11311;
23936   t49030 = t2834 * t8534;
23937   t49039 = t36908 * t786;
23938   t49052 = t48912 * t242;
23939   t49055 = t4735 * t48930;
23940   t49058 = -0.15171639890357805325e1 * t1549 * t11396 * t2838 - 0.2857877408034324480e1 * t1549 * t11366 * t2838 + 0.16596011335680e2 * t575 * t49030 + 0.16596011335680e2 * t8439 * t11382 - 0.13535064380111787705e1 * t2058 * t37254 - 0.51005109676670195860e1 * t2055 * t36614 - 0.51005109676670195860e1 * t6116 * t49039 - 0.65874119249613091356e0 * t2055 * t36940 - 0.65874119249613091356e0 * t2055 * t37183 - 0.30367989716514304433e0 * t8499 * t8325 + 0.45514919671073415976e1 * t2055 * t36936 - 0.714469352008581120e0 * t8386 * t8433 - 0.17620679382074383663e2 * t575 * t49052 + 0.76507664515005293790e1 * t49055 * t250;
23941   t49061 = t8534 * t12229;
23942   t49091 = 0.2857877408034324480e1 * t6216 * t49061 + 0.18915142913373788795e1 * t6238 * t11338 * t12229 + 0.85008516127783659764e0 * t2055 * t36983 - 0.25502554838335097930e1 * t6222 * t49061 + 0.85008516127783659764e0 * t36961 * t2062 + 0.34978477943697927495e1 * t20203 * t37085 - 0.60248995135255396168e1 * t6225 * t37089 + 0.51005109676670195860e1 * t37081 * t2062 + 0.27077129145119382320e1 * t2055 * t36944 + 0.33758233860356468336e1 * t26864 * t8507 - 0.45514919671073415977e1 * t8524 * t8538 + 0.12751277419167548965e1 * t8527 * t8535 - 0.16879116930178234168e1 * t26844 * t8507 + 0.22757459835536707988e1 * t8527 * t8538;
23943   t49092 = t16605 * t48930;
23944   t49097 = t1555 * t48907 * t242;
23945   t49104 = -t577 * t48879 * t242;
23946   t49106 = t2815 * t2815;
23947   t49107 = t1514 * t49106;
23948   t49110 = t247 * t11298;
23949   t49113 = t4741 * t48930;
23950   t49120 = -0.114668117222400e3 * t49010 - 0.10708320e2 * t49097 - 0.14277760e2 * t48982 + 0.10145661348248508867e2 * t48896 - 0.68216827389720576000e2 * t49052 + 0.1784720e1 * t49104 - 0.10708320e2 * t49107 * t247 - 0.14277760e2 * t2042 * t49110 - 0.42833280e2 * t49113 * t247 + 0.64249920e2 * t2826 * t11413 + 0.9555676435200e1 * t48909 + 0.12740901913600e2 * t48953;
23951   t49126 = t1523 * t49106;
23952   t49135 = t569 * t48879;
23953   t49142 = t48926 * t242;
23954   t49144 = -0.114668117222400e3 * t8336 * t11413 + 0.34108413694860288000e2 * t48964 + 0.10145661348248508867e2 * t49092 * t247 + 0.9555676435200e1 * t49126 * t247 + 0.34108413694860288000e2 * t26737 * t12157 + 0.12740901913600e2 * t36773 * t3179 - 0.68216827389720576000e2 * t48931 * t247 + 0.1784720e1 * t49135 * t247 + 0.114668117222400e3 * t49055 * t247 - 0.42833280e2 * t48917 + 0.64249920e2 * t49030 + 0.114668117222400e3 * t49142;
23955   t49153 = t2867 * t2867;
23956   t49171 = t2854 * t2854;
23957   t49179 = 0.45165298839047841173e-1 * t49092 * t250 - 0.258304e0 * t245 * t583 * (t49120 + t49144) + 0.29619233351014809600e2 * t575 * t49142 - 0.476312901339054080e0 * t37266 * t2085 + 0.975074869248e0 * t245 * t1568 * t49153 + 0.58783429053584738202e0 * t8499 * t8535 - 0.77812782197085049260e0 * t26633 * t8507 + 0.10491196150051375396e1 * t8499 * t8538 + 0.18066119535619136469e0 * t37078 * t2062 - 0.18307055749595233518e1 * t1540 * t48908 * t1545 - 0.4404030955044470784e1 * t245 * t8447 * t2867 + 0.23916119461575365556e1 * t245 * t16771 * t49171 + 0.82889667748265151307e0 * t2055 * t37160 + 0.13174823849922618271e1 * t2055 * t37164;
23958   t49212 = 0.85008516127783659764e0 * t36773 * t779 * t250 + 0.63756387095837744823e0 * t49126 * t250 - 0.2857877408034324480e1 * t37002 * t2085 - 0.22762551443898437297e2 * t4707 * t48912 * t4708 - 0.23513371621433895281e1 * t36970 * t2062 - 0.25502554838335097930e1 * t8524 * t8535 - 0.91029839342146831954e1 * t2055 * t36997 - 0.25502554838335097930e1 * t8527 * t8531 - 0.11756685810716947640e1 * t8499 * t8531 + 0.67516467720712936673e1 * t6225 * t36807 - 0.2766001889280e1 * t575 * t49097 - 0.17980392870196113152e1 * t8451 * t8383 + 0.58783429053584738202e0 * t26737 * t2819 * t250 + 0.89901964350980565762e0 * t8386 * t8383;
23959   t49244 = -0.65874119249613091356e0 * t8527 * t8325 - 0.2766001889280e1 * t49107 * t250 + 0.461000314880e0 * t49135 * t250 - 0.11064007557120e2 * t49113 * t250 - 0.3688002519040e1 * t36769 * t3138 + 0.51005109676670195860e1 * t8524 * t8531 + 0.461000314880e0 * t575 * t49104 - 0.476312901339054080e0 * t2058 * t37040 + 0.51005109676670195860e1 * t2055 * t37064 + 0.17980392870196113152e1 * t8511 * t2061 * t36744 + 0.11756685810716947640e1 * t36903 * t8315 + 0.13174823849922618271e1 * t8524 * t8325 - 0.33758233860356468336e1 * t6225 * t36714 + 0.87198868390655171972e0 * t6225 * t36710 - 0.11756685810716947640e1 * t2055 * t37186;
23960   t49248 = my_piecewise3(t235, 0, t48934 + t48977 + t49023 + t49058 + t49091 + t49179 + t49212 + t49244);
23961   t49249 = my_piecewise3(t234, 0, t49248);
23962   t49251 = 0.4e1 * t11298 * t798 + 0.4e1 * t11441 * t779 + t233 * t49249 + t252 * t48879 + 0.6e1 * t2815 * t2873;
23963   t49260 = t2875 * t2875;
23964   t49267 = t266 * t36 * t11488;
23965   t49270 = t2879 * t2879;
23966   t49272 = t56 * t49270 * t345;
23967   t49296 = -t56 * t49251 * t266 / 0.100e3 - t37281 * t3201 / 0.15e2 + t2876 * t2879 * t1611 / 0.36e2 - 0.9e1 / 0.100e3 * t56 * t49260 * t3489 - t27364 * t12288 / 0.18e2 + t8562 * t49267 / 0.36e2 + 0.125e3 / 0.1458e4 * t49272 * t16960 - t2880 * t4887 * t49267 / 0.18e2 - 0.125e3 / 0.2187e4 * t49272 * t16964 + t604 * t49251 * t266 / 0.100e3 + t37309 * t3201 / 0.45e2 + 0.3e1 / 0.100e3 * t1609 * t49260 * t266 + t27348 * t12288 / 0.108e3 + t4897 * t8631 * t49267 / 0.108e3 + 0.25e2 / 0.4374e4 * t16979 * t49270 * t16981;
23968   t49328 = t4952 * t49270;
23969   t49332 = t1654 * t2879;
23970   t49355 = -params->c1 * t49251 * t279 - 0.40e2 / 0.9e1 * t37354 * t3222 - 0.350e3 / 0.81e2 * t26061 * t12326 - 0.6e1 * params->c1 * t49260 * t618 - 0.550e3 / 0.81e2 * t26047 * t1630 * t36 * t11488 - 0.10000e5 / 0.729e3 * params->c1 * t49270 * t345 * t17013 - 0.50000e5 / 0.6561e4 * t2150 * t49328 * t68 - 0.1000e4 / 0.27e2 * t2150 * t49332 * t2875 - 0.20e2 / 0.9e1 * t2150 * t1630 * t19 * t38 * t49260 - 0.100e3 / 0.81e2 * t11487 * t9859 * t22 * t11443 - 0.100e3 / 0.81e2 * t617 * t2557 * t11443 * t804 - 0.10e2 / 0.9e1 * t961 * t3511 * t49260 - 0.5e1 / 0.9e1 * t961 * t962 * t49251;
23971   t49360 = t2910 * t2910;
23972   t49366 = t2912 * t2912;
23973   t49372 = t449 * t49332;
23974   t49373 = t60 * t2875;
23975   t49374 = t17049 * t49373;
23976   t49381 = t68 * t11510;
23977   t49388 = t1263 * t27258;
23978   t49419 = -0.10000e5 / 0.729e3 * t449 * t49328 * t17050 - 0.50e2 / 0.9e1 * t49372 * t49374 - 0.5000e4 / 0.243e3 * t1263 * t4965 * t49270 * t17050 - 0.50e2 / 0.9e1 * t49372 * t49381 - 0.6e1 * t449 * t1630 * t49260 * t285 - 0.50e2 / 0.9e1 * t49388 * t49381 - 0.40e2 / 0.9e1 * t2163 * t24 * t285 * t11443 - 0.50e2 / 0.9e1 * t49388 * t49374 - 0.5000e4 / 0.729e3 * t4017 * t17071 * t49270 * t17050 - t449 * t618 * t49251 * t285 - 0.20e2 / 0.9e1 * t37463 * t826 - 0.3e1 * t1263 * t1654 * t49260 * t285 - 0.25e2 / 0.27e2 * t27220 * t2916 - 0.25e2 / 0.27e2 * t4017 * t27262 * t49374 - 0.1250e4 / 0.2187e4 * t14957 * t17089 * t49270 * t17050;
23979   t49420 = my_piecewise3(t277, 0.4e1 * t11499 * t283 * t823 + 0.6e1 * t283 * t2910 * t2912 + t283 * t49355 + 0.3e1 * t283 * t49360 + t283 * t49366, t49419);
23980   t49423 = -0.24e2 * t16323 * t48794 * t288 + 0.36e2 * t4566 * t2775 * t2893 - 0.24e2 * t4566 * t11246 * t829 - 0.6e1 * t1423 * t48804 * t288 + 0.24e2 * t1423 * t2896 * t2893 - 0.8e1 * t1423 * t815 * t11467 + 0.12e2 * t1423 * t2774 * t2925 + t510 * (0.729e3 / 0.51200e5 * t1054 * t2788 * t24 * t194 - 0.6561e4 / 0.2048000e7 * t3651 * sigma[2] * t11266 + 0.531441e6 / 0.655360000e9 * t14238 * t184 / t4602 * t194 + 0.6e1 * t48829 + 0.8e1 * t811 * t11464 + 0.2e1 * t269 * t49296) * t288 - 0.4e1 * t510 * t11467 * t829 - 0.6e1 * t510 * t2893 * t2925 - 0.4e1 * t510 * t814 * t11524 - t276 * t49420 + 0.1174e1 * t49420;
23981   t49441 = -0.93932789062500000000e2 * t2195 * t4521 * t2947 * t4515 * t301 - 0.25048743750000000000e2 * t8185 * t2938 + 0.68137354535196937499e2 * t5041 * t1947 * t11572 - 0.11498178577814483203e3 * t5041 * t485 * t37527 * t642 * t301 + 0.25048743750000000000e2 * t2186 * t11550 - 0.27831937500000000000e1 * t8185 * t2943 + 0.67956985205760591732e2 * t1686 * t2928 * t2947 * t293 * t1690 + 0.12524371875000000000e3 * t2195 * t19674 * t11544 - 0.34882260210209206480e0 * t1686 * t19679 * t11556 - 0.17394960937500000000e1 * t640 * t644 * t11554 * t294 * t301 + 0.37109250000000000000e1 * t37500 * t840 + 0.54503531578451885124e0 * t1686 * t4529 * t48766 * t293 * t301 + 0.12741934726080110950e3 * t1686 * t291 * t48766 * t293 * t1690 + 0.34660489666083872784e2 * t1686 * t291 / t4600 * t179 * t16289 - 0.13591397041152118347e3 * t1686 * t832 * t11554 * t293 * t1690 - 0.54794126953125000000e2 * t640 * t17216 * t8157 * t188 * t301 * t156 - 0.3e1 / 0.8e1 * t8 * t175 * t49423 * t302 + 0.27831937500000000000e1 * t2186 * t11562 - 0.15655464843750000000e2 * t640 * t1675 * t11570 * t180 * t301 - 0.12775753975349425781e2 * t640 * t11554 * t1673 * t301 * t156 * t294;
23982   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23983     v4sigma4[14] = t10 * t49441;
23984 
23985   t49444 = t881 * t11112;
23986   t49472 = t1737 * t676;
23987   t49476 = t375 * t676 * t2244;
23988   t49479 = t3720 * t857;
23989   t49483 = t1106 * t19;
23990   t49484 = t48155 * t41783;
23991   t49501 = t377 * t11602;
23992   t49513 = -0.5e1 / 0.4e1 * t37765 * t11603 - 0.5e1 / 0.4e1 * t37743 * t11603 - 0.5e1 / 0.8e1 * t8721 * t857 * t2632 * t654 + 0.25e2 / 0.192e3 * t37701 * t11602 * t2627 + 0.25e2 / 0.16e2 * t27766 * t857 * t2619 * t654 + 0.5e1 / 0.3456e4 * t2243 * t8746 * t3566 * t681 - t1737 * t36 * t11614 / 0.2916e4 + t49472 * t2979 / 0.864e3 - t2627 * t49476 / 0.2916e4 + 0.125e3 / 0.2592e4 * t2976 * t49479 * t10959 + 0.25e2 / 0.746496e6 * t2976 * t49483 * t49484 - 0.45e2 / 0.4e1 * t6554 * t2244 * t10950 - t68 * t27878 * t2619 / 0.2304e4 + t68 * t8732 * t2632 / 0.3456e4 + 0.5e1 / 0.2304e4 * t27779 * t68 * t77 * t2619 + t37715 * t49501 / 0.1944e4 - 0.25e2 / 0.288e3 * t27796 * t11630 - t37721 * t11625 / 0.576e3 + 0.9e1 / 0.4e1 * t6573 * t10950 + 0.3e1 / 0.2e1 * t2243 * t2244 * t10964;
23993   t49522 = t376 * t19;
23994   t49531 = t11643 * t89;
23995   t49565 = -0.5e1 / 0.5184e4 * t11647 * t11606 - 0.5e1 / 0.5184e4 * t11617 * t11606 + 0.5e1 / 0.17496e5 * t37823 * t659 * t382 * t857 + t49522 * t49484 * t89 / 0.2519424e7 + 0.9e1 * t37774 * t2967 + 0.5e1 / 0.17496e5 * t41994 * t6579 + t48156 * t41783 * t49531 / 0.2519424e7 + 0.105e3 / 0.8e1 * t21210 * t2244 * t10947 + 0.9e1 / 0.2e1 * t8755 * t11637 + 0.9e1 / 0.2e1 * t8785 * t11637 - 0.45e2 / 0.4e1 * t27776 * t11650 - 0.45e2 / 0.4e1 * t27710 * t11650 - t8777 * t68 * t77 * t2632 / 0.1152e4 - 0.25e2 / 0.288e3 * t27723 * t11630 + t37692 * t37693 * t11602 / 0.1944e4 - t37698 * t11625 / 0.576e3 + 0.5e1 / 0.6e1 * t37762 * t2973 + 0.25e2 / 0.373248e6 * t6535 * t41784 * t24 - t2239 * t10964 / 0.2e1 - 0.15e2 / 0.8e1 * t21229 * t10947;
23996   t49566 = t49513 + t49565;
23997   t49592 = t8965 * t7806;
23998   t49595 = t2290 * t35520;
23999   t49615 = 0.56906378609746093243e1 * t3755 * t28468 * t11782 + 0.10984233449757140111e2 * t1149 * t28651 * t7817 - 0.22762551443898437297e2 * t3755 * t21375 * t35882 - 0.18307055749595233518e1 * t1149 * t38534 * t3001 - 0.119078225334763520e0 * t35596 * t2302 - 0.2766001889280e1 * t399 * t49592 - 0.922000629760e0 * t399 * t49595 - 0.18307055749595233518e1 * t1149 * t8974 * t11009 + 0.1428938704017162240e1 * t9043 * t11824 + 0.8298005667840e1 * t6728 * t1773 * t2635 * t684 + 0.714469352008581120e0 * t2263 * t1143 * t2635 * t697 - 0.38253832257502646894e1 * t38486 * t38781 + 0.98811178874419637035e0 * t11738 * t699;
24000   t49616 = t28651 * t7793;
24001   t49622 = t21375 * t35691;
24002   t49642 = t2653 * t697;
24003   t49650 = -0.14809616675507404800e2 * t399 * t49616 + 0.39207562244901126197e2 * t1149 * t21375 * t35856 - 0.17620679382074383663e2 * t399 * t49622 - 0.10151298285083840779e1 * t1787 * t38565 + 0.32937059624806545678e0 * t7797 * t8941 + 0.25502554838335097929e1 * t7797 * t8947 + 0.16879116930178234168e1 * t25060 * t8937 - 0.22757459835536707989e1 * t7797 * t8917 + 0.714469352008581120e0 * t7738 * t8953 + 0.975074869248e0 * t107 * t9100 * t2687 - 0.10151298285083840779e1 * t21929 * t11020 - 0.14699145220411854869e1 * t18264 * t8900 * t49642 + 0.63756387095837744823e0 * t38671 * t1791 - 0.63756387095837744823e0 * t8883 * t11016;
24004   t49682 = 0.29391714526792369101e0 * t38374 * t7767 + 0.58783429053584738202e0 * t38370 * t7767 - 0.16468529812403272839e0 * t2273 * t35493 + 0.13549589651714352352e0 * t38074 * t7767 + 0.21799717097663792993e0 * t6689 * t35446 - 0.38906391098542524630e0 * t8813 * t35401 - 0.22757459835536707989e1 * t6725 * t3862 * t7793 * t684 - 0.29391714526792369101e0 * t2273 * t35496 + 0.52455980750256876982e0 * t8813 * t35366 - 0.12751277419167548965e1 * t24368 * t12678 + 0.11378729917768353994e1 * t1784 * t38380 + 0.20307846858839536740e1 * t1784 * t38384 + 0.26233858457773445622e1 * t18003 * t38520 - 0.45186746351441547127e1 * t5399 * t38524;
24005   t49715 = -0.25502554838335097930e1 * t28223 * t11763 - 0.17635028716075421461e1 * t38828 * t7767 + 0.32937059624806545678e0 * t7797 * t8922 + 0.32937059624806545678e0 * t1784 * t38303 - 0.12751277419167548965e1 * t6725 * t1137 * t7806 * t684 - 0.16468529812403272839e0 * t2273 * t35429 - 0.12751277419167548965e1 * t2273 * t35500 + 0.29391714526792369101e0 * t8813 * t35375 - 0.84395584650891170841e0 * t6689 * t35450 + 0.67692822862798455802e0 * t2273 * t35925 + 0.21252129031945914941e0 * t35845 * t2280 + 0.63756387095837744823e0 * t7800 * t8867 + 0.38253832257502646895e1 * t21416 * t38861 * t691 + 0.25502554838335097929e1 * t6725 * t8808 * t2663;
24006   t49726 = t8974 * t7793;
24007   t49752 = -0.58783429053584738202e0 * t8813 * t35472 + 0.20722416937066287826e0 * t2273 * t35253 + 0.32937059624806545678e0 * t2273 * t35257 + 0.63756387095837744823e0 * t1784 * t39082 + 0.8298005667840e1 * t399 * t49726 - 0.21968466899514280222e2 * t1149 * t6637 * t35856 - 0.75919974291285761083e-1 * t7803 * t8941 - 0.58783429053584738202e0 * t7803 * t8947 - 0.38906391098542524630e0 * t24906 * t8937 + 0.52455980750256876982e0 * t7803 * t8917 - 0.16468529812403272839e0 * t7800 * t8941 - 0.357234676004290560e0 * t1158 * t3012 * t11027 - 0.119078225334763520e0 * t1158 * t866 * t104 * t11089 + 0.21252129031945914941e0 * t2269 * t10967 * t112;
24008   t49785 = -0.32937059624806545678e0 * t1784 * t37939 - 0.25502554838335097930e1 * t1784 * t38000 - 0.12751277419167548965e1 * t7800 * t8947 + 0.29391714526792369101e0 * t35483 * t8929 - 0.84395584650891170841e0 * t24982 * t8937 + 0.11378729917768353994e1 * t7800 * t8917 - 0.357234676004290560e0 * t1158 * t38871 * t1790 - 0.16468529812403272839e0 * t2992 * t2689 + 0.29391714526792369101e0 * t9121 * t38781 - 0.75919974291285761083e-1 * t11717 * t699 - 0.714469352008581120e0 * t35724 * t2302 - 0.89901964350980565762e0 * t2263 * t3802 * t684 * t2674 + 0.20722416937066287826e0 * t2992 * t2676 - 0.94575714566868943969e0 * t3793 * t21555 * t35856;
24009   t49809 = t6637 * t35691;
24010   t49823 = 0.12751277419167548965e1 * t1158 * t21555 * t35691 + 0.44950982175490282881e0 * t3771 * t3012 * t11019 + 0.89901964350980565762e0 * t1787 * t38750 - 0.2143408056025743360e1 * t6728 * t1143 * t2639 * t697 - 0.16468529812403272839e0 * t1784 * t37996 - 0.357234676004290560e0 * t7735 * t8953 + 0.714469352008581120e0 * t2263 * t1143 * t2687 * t684 + 0.44950982175490282881e0 * t2276 * t35573 + 0.29619233351014809600e2 * t399 * t49809 - 0.357234676004290560e0 * t9017 * t7781 - 0.714469352008581120e0 * t1158 * t6708 * t35691 - 0.32937059624806545678e0 * t11723 * t699 - 0.16468529812403272839e0 * t11059 * t875 + 0.44950982175490282881e0 * t6717 * t11028;
24011   t49832 = t2279 * t49642;
24012   t49845 = -t401 * t49566 * t104;
24013   t49851 = t38811 * t1790;
24014   t49857 = t21384 * t35691;
24015   t49860 = 0.47287857283434471984e0 * t8886 * t11010 - 0.58783429053584738202e0 * t35876 * t2280 - 0.12751277419167548965e1 * t7797 * t8867 + 0.12751277419167548965e1 * t35879 * t2280 - 0.2143408056025743360e1 * t5394 * t49832 - 0.89901964350980565762e0 * t6717 * t11023 + 0.12751277419167548965e1 * t2273 * t35692 + 0.16879116930178234168e1 * t6689 * t35857 - 0.22757459835536707989e1 * t2273 * t35721 + 0.461000314880e0 * t399 * t49845 - 0.357234676004290560e0 * t1158 * t11688 * t2658 - 0.2766001889280e1 * t399 * t49851 - 0.13606156761889987933e2 * t1149 * t21384 * t35856 + 0.26206649088979828343e1 * t399 * t49857;
24016   t49882 = t2687 * t689;
24017   t49883 = t2279 * t49882;
24018   t49886 = t6656 * t49642;
24019   t49889 = t3011 * t689;
24020   t49890 = t49889 * t2658;
24021   t49893 = t38188 * t2658;
24022   t49900 = -0.89901964350980565762e0 * t7738 * t9028 - 0.16468529812403272839e0 * t11720 * t699 - 0.68272379506610123966e1 * t1784 * t38224 + 0.63756387095837744823e0 * t38530 * t684 * t112 + 0.56906378609746093242e1 * t8899 * t8900 * t35423 + 0.87446194859244818739e0 * t21710 * t35883 - 0.15062248783813849042e1 * t6689 * t35892 + 0.11378729917768353994e1 * t8859 * t7810 + 0.714469352008581120e0 * t5388 * t49883 - 0.28372714370060683191e1 * t18106 * t49886 - 0.12751277419167548965e1 * t5394 * t49890 - 0.63756387095837744823e0 * t5394 * t49893 - 0.63756387095837744823e0 * t5394 * t49883 + 0.25318675395267351252e1 * t18077 * t49886;
24023   t49936 = -0.11378729917768353994e1 * t18063 * t49832 + 0.11378729917768353994e1 * t2273 * t35425 + 0.16879116930178234168e1 * t21787 * t3862 * t7817 * t684 + 0.975074869248e0 * t107 * t38700 * t697 - 0.2766001889280e1 * t9043 * t10987 - 0.11756685810716947640e1 * t21815 * t10983 * t112 - 0.32937059624806545678e0 * t8859 * t7851 - 0.16879116930178234168e1 * t5399 * t38512 + 0.22757459835536707989e1 * t1784 * t38377 + 0.29391714526792369101e0 * t7803 * t8867 + 0.45165298839047841173e-1 * t35873 * t2280 + 0.94575714566868943972e0 * t5504 * t12612 * t11832 + 0.47287857283434471986e0 * t5504 * t6656 * t48368 + 0.47287857283434471985e0 * t5504 * t6656 * t49882;
24024   t49938 = t38188 * t3001;
24025   t49941 = t38188 * t1790;
24026   t49959 = t2674 * t689;
24027   t49960 = t2279 * t49959;
24028   t49975 = -0.98018905612252815489e1 * t8904 * t49938 + 0.44051698455185959158e1 * t8877 * t49941 - 0.11064007557120e2 * t21746 * t1773 * t10983 + 0.65874119249613091356e0 * t21590 * t38081 * t7850 - 0.15183994858257152217e0 * t28076 * t7851 + 0.44950982175490282881e0 * t9017 * t7778 + 0.63756387095837744823e0 * t8999 * t2635 * t112 + 0.8298005667840e1 * t28724 * t11829 - 0.89901964350980565762e0 * t17987 * t49960 + 0.44950982175490282881e0 * t7822 * t2279 * t35551 - 0.59502499971174729837e0 * t18098 * t6656 * t49959 + 0.80224916908241017662e0 * t18102 * t49960 + 0.1428938704017162240e1 * t5388 * t49890 + 0.63756387095837744823e0 * t8859 * t7807;
24029   t49980 = t3027 * t2635;
24030   t49983 = t393 * t49566;
24031   t49990 = t10983 * t109;
24032   t49993 = t2283 * t35520;
24033   t49997 = t6623 * t35691;
24034   t50009 = t28468 * t7793;
24035   t50014 = 0.32124960e2 * t2269 * t49980 + 0.1784720e1 * t49983 * t109 + 0.17054206847430144000e2 * t6637 * t35424 + 0.9555676435200e1 * t38530 * t3027 + 0.114668117222400e3 * t6615 * t49990 + 0.3185225478400e1 * t49993 - 0.10708320e2 * t9042 * t11069 - 0.42833280e2 * t49997 - 0.42833280e2 * t6602 * t49990 - 0.57334058611200e2 * t28622 * t11661 - 0.57334058611200e2 * t49616 - 0.68216827389720576000e2 * t21815 * t49990 + 0.1784720e1 * t49845 - 0.3569440e1 * t2262 * t48211 + 0.17054206847430144000e2 * t50009 + 0.10145661348248508867e2 * t21871 * t49990 - 0.10708320e2 * t49851;
24036   t50029 = t38534 * t1790;
24037   t50031 = t8974 * t7806;
24038   t50043 = 0.10145661348248508867e2 * t49857 + 0.114668117222400e3 * t49809 + 0.32124960e2 * t49726 - 0.57334058611200e2 * t6623 * t35424 + 0.32124960e2 * t8999 * t11661 + 0.17054206847430144000e2 * t6615 * t49980 - 0.10708320e2 * t49592 + 0.32124960e2 * t2283 * t35424 - 0.57334058611200e2 * t6602 * t49980 + 0.9555676435200e1 * t50029 + 0.9555676435200e1 * t50031 - 0.68216827389720576000e2 * t49622 - 0.10708320e2 * t38600 * t3027 - 0.3569440e1 * t49595 + 0.3185225478400e1 * t2269 * t48211 + 0.17054206847430144000e2 * t28639 * t11661 + 0.9555676435200e1 * t8999 * t11069;
24039   t50073 = 0.21252129031945914941e0 * t2273 * t35521 - 0.84395584650891170840e0 * t28206 * t7818 - 0.258304e0 * t107 * t407 * (t50014 + t50043) + 0.45165298839047841173e-1 * t21871 * t10983 * t112 - 0.33837660950279469264e0 * t2276 * t35814 + 0.76507664515005293790e1 * t6615 * t10983 * t112 - 0.25306658097095253694e-1 * t35272 * t2302 - 0.2766001889280e1 * t38601 * t2986 + 0.325024956416e0 * t107 * t2309 * t11089 - 0.11064007557120e2 * t399 * t49997 + 0.41444833874132575653e0 * t25028 * t38254 - 0.119078225334763520e0 * t2276 * t35269 + 0.32937059624806545678e0 * t35517 * t2302 - 0.922000629760e0 * t2263 * t48436;
24040   t50113 = 0.84395584650891170840e0 * t3793 * t21596 * t35856 - 0.37929099725894513314e0 * t1158 * t21596 * t35691 + 0.29391714526792369101e0 * t28639 * t2639 * t112 + 0.23916119461575365556e1 * t107 * t21819 * t11055 - 0.33837660950279469264e0 * t14462 * t866 * t104 * t11055 - 0.12751277419167548965e1 * t6725 * t48287 - 0.12751277419167548965e1 * t1784 * t38312 - 0.2202015477522235392e1 * t107 * t28855 * t2674 - 0.357234676004290560e0 * t1787 * t38505 - 0.16468529812403272839e0 * t7729 * t8953 - 0.2202015477522235392e1 * t9046 * t9027 * t2687 + 0.43599434195327585985e0 * t24219 * t39045 - 0.38253832257502646895e1 * t28622 * t2639 * t112 + 0.2468269445917900800e1 * t399 * t50031;
24041   t50144 = -0.98018905612252815491e1 * t1149 * t28468 * t7817 + 0.44051698455185959158e1 * t399 * t50009 + 0.822756481972633600e0 * t399 * t49993 - 0.48997150734706182895e0 * t14399 * t21596 * t35882 - 0.16468529812403272839e0 * t7800 * t8922 - 0.32937059624806545678e0 * t1784 * t38887 - 0.16468529812403272839e0 * t1784 * t38890 - 0.75919974291285761083e-1 * t7803 * t8922 + 0.21799717097663792992e0 * t5399 * t38893 - 0.29391714526792369101e0 * t1784 * t38896 + 0.89901964350980565762e0 * t28823 * t2659 + 0.44950982175490282881e0 * t6717 * t11013 - 0.59502499971174729836e0 * t21924 * t11038 + 0.80224916908241017663e0 * t6717 * t11031;
24042   t50182 = 0.714469352008581120e0 * t8883 * t11034 + 0.461000314880e0 * t49983 * t112 - 0.357234676004290560e0 * t1158 * t9096 * t7806 + 0.47287857283434471985e0 * t3793 * t28503 * t7817 - 0.61023519165317445059e0 * t1149 * t2283 * t1154 * t11083 - 0.92817332546461565657e1 * t14377 * t21384 * t14382 * t10976 + 0.20312390406477209506e2 * t3755 * t21384 * t35882 + 0.20722416937066287826e0 * t7729 * t9028 + 0.2468269445917900800e1 * t399 * t50029 + 0.714469352008581120e0 * t1158 * t29127 * t7793 + 0.44950982175490282881e0 * t1787 * t39095 + 0.714469352008581120e0 * t7722 * t12597 + 0.44950982175490282881e0 * t7735 * t9028 - 0.357234676004290560e0 * t38581 * t1814;
24043   t50213 = 0.38253832257502646895e1 * t1784 * t38647 + 0.20722416937066287826e0 * t1784 * t38307 - 0.84395584650891170841e0 * t5399 * t38516 + 0.50637350790534702506e1 * t5399 * t38129 + 0.65874119249613091356e0 * t24214 * t38248 - 0.58783429053584738202e0 * t24214 * t38251 - 0.63756387095837744824e0 * t1158 * t28503 * t7793 - 0.119078225334763520e0 * t1158 * t2305 * t35520 - 0.12751277419167548965e1 * t8859 * t7794 + 0.10984233449757140111e2 * t8850 * t49938 - 0.14809616675507404800e2 * t8896 * t49941 + 0.38253832257502646895e1 * t18277 * t49832 + 0.714469352008581120e0 * t5388 * t49893 + 0.8298005667840e1 * t8893 * t49941;
24044   t50218 = my_piecewise3(t97, 0, t49615 + t49650 + t49682 + t49715 + t49752 + t49785 + t49823 + t49860 + t49900 + t49936 + t49975 + t50073 + t50113 + t50144 + t50182 + t50213);
24045   t50219 = my_piecewise3(t96, 0, t50218);
24046   t50221 = -t10967 * t879 - t11110 * t860 - t114 * t49566 - 0.3e1 * t11653 * t703 - 0.3e1 * t11863 * t684 - 0.3e1 * t2635 * t3043 - 0.3e1 * t2693 * t2982 - t50219 * t95;
24047   t50243 = t3045 * t2695;
24048   t50258 = 0.25e2 / 0.243e3 * t2342 * t11130 - t1218 * t49444 * t128 / 0.100e3 - t39340 * t3049 / 0.60e2 - t428 * t50221 * t128 / 0.100e3 + 0.9e1 / 0.100e3 * t3046 * t11875 - 0.25e2 / 0.162e3 * t882 * t11118 * t22177 - t3046 * t2699 * t1220 / 0.36e2 - 0.5e1 / 0.486e3 * t22170 * t11130 + t39348 * t3049 / 0.20e2 + t39395 * t3049 / 0.10e2 + 0.3e1 / 0.100e3 * t882 * t124 * t11112 * t128 - 0.3e1 / 0.100e3 * t1218 * t50243 * t128 + t56 * t50221 * t128 / 0.100e3 - t29580 * t11878 / 0.108e3 - t39357 * t39400 / 0.20e2 + t29541 * t11878 / 0.18e2 - t39378 * t3049 / 0.60e2;
24049   t50330 = t881 * t11118;
24050   t50337 = 0.500e3 / 0.27e2 * t1879 * t9268 * t2699 + 0.5e1 / 0.3e1 * t3073 * t11936 + 0.100e3 / 0.27e2 * t11921 * t29287 + t11145 * t902 + 0.50e2 / 0.27e2 * t33140 * t2385 * t11161 - 0.50e2 / 0.27e2 * t27635 * t11916 + 0.10e2 / 0.9e1 * t895 * t3369 * t49444 + 0.10e2 / 0.3e1 * t895 * t3369 * t50243 + 0.5e1 / 0.9e1 * t895 * t896 * t50221 + 0.10000e5 / 0.729e3 * t18414 * t50330 * t24 + params->c1 * t50221 * t141;
24051   t50356 = t50243 * t147;
24052   t50360 = t9250 * t24 * t2695;
24053   t50372 = t49444 * t147;
24054   t50384 = t50330 * t14917;
24055   t50395 = 0.3e1 * t1266 * t50356 + 0.10e2 * t6923 * t50360 + t449 * t442 * t50221 * t147 + 0.5e1 / 0.3e1 * t6946 * t50360 + 0.5e1 / 0.3e1 * t39324 * t731 + 0.6e1 * t1252 * t50356 + t1266 * t50372 + 0.10e2 / 0.3e1 * t39309 * t731 + 0.50e2 / 0.9e1 * t29360 * t2736 + 0.2e1 * t1252 * t50372 + 0.25e2 / 0.27e2 * t29317 * t2736 + 0.50e2 / 0.9e1 * t29383 * t2736 + 0.1000e4 / 0.81e2 * t22109 * t50384 + 0.250e3 / 0.243e3 * t22102 * t50384 + 0.10e2 * t6931 * t50360 + 0.2000e4 / 0.81e2 * t22095 * t50384 + 0.1000e4 / 0.27e2 * t22099 * t50384;
24056   t50396 = my_piecewise3(t139, (0.20e2 / 0.3e1 * t25156 * t12743 + 0.50e2 / 0.27e2 * t441 * t2365 * t11865 * t709 + 0.100e3 / 0.27e2 * t5589 * t3076 * t48672 - 0.10e2 / 0.3e1 * t6883 * t730 * t23 * t2695 + 0.500e3 / 0.27e2 * t11149 * t21159 - 0.500e3 / 0.81e2 * t893 * t11152 * t345 - t893 * t11185 - 0.3e1 * t3068 * t2739 - 0.5e1 / 0.3e1 * t39194 * t3070 + 0.3e1 * t2719 * t3090 + t50337) * t145 + 0.3e1 * t11939 * t728 * t145 + 0.3e1 * t3083 * t2730 * t145 + 0.3e1 * t3083 * t2732 * t145 + t900 * t11168 * t145 + 0.3e1 * t11944 * t729 + t900 * t11173 * t145, t50395);
24057   t50418 = 0.2e1 * t330 * t131 * t50258 * t150 - 0.12e2 * t8689 * t11588 - 0.12e2 * t39501 * t2954 - 0.48e2 * t22243 * t2226 * t10915 + 0.24e2 * t8689 * t11585 - 0.6e1 * t3619 * t10915 * t905 - 0.12e2 * t2225 * t39460 * t719 + 0.6e1 * t330 * t716 * t11892 * t150 - t138 * t50396 + 0.36e2 * t6492 * t8703 * t2594 + 0.2e1 * t330 * t11133 * t887 * t150 - 0.3e1 * t330 * t2713 * t3096 + 0.6e1 * t1030 * t2594 * t3096 + 0.36e2 * t29521 * t11577 - t330 * t11136 * t905 - 0.12e2 * t2225 * t8703 * t2713;
24058   t50469 = -0.6e1 * t330 * t11591 * t734 + 0.24e2 * t2225 * t39562 * t719 - 0.36e2 * t6492 * t9174 * t2594 + 0.1174e1 * t50396 + 0.6e1 * t330 * t2710 * t3057 * t150 - 0.3e1 * t330 * t719 * t11967 + 0.6e1 * t1030 * t3065 * t2713 - 0.6e1 * t330 * t11893 * t734 + 0.36e2 * t6492 * t2226 * t719 * t2713 - 0.24e2 * t8689 * t11582 - 0.6e1 * t330 * t2957 * t2745 - 0.12e2 * t330 * t11595 * t734 + 0.12e2 * t2225 * t39482 * t719 - 0.2e1 * t330 * t888 * t11193 + 0.12e2 * t2225 * t9174 * t2713 - 0.6e1 * t330 * t3058 * t2745 - 0.4e1 * t2225 * t2226 * t11136;
24059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24060     v4sigma3lapl[0] = -0.3e1 / 0.8e1 * t846 * t847 * (t50418 + t50469) * t167 + 0.27831937500000000000e1 * t37624 * t745 - 0.12524371875000000000e2 * t9289 * t2758 - 0.13915968750000000000e1 * t9289 * t2763 + 0.33978492602880295866e2 * t6967 * t3099 * t2767 * t158 * t1301 + 0.31310929687500000000e2 * t9298 * t21111 * t11213 + 0.62621859375000000000e1 * t2401 * t11219 - 0.87205650525523016199e-1 * t6967 * t21116 * t11225 + 0.69579843750000000000e0 * t2401 * t11231 - 0.33978492602880295866e2 * t6967 * t908 * t11223 * t158 * t1301 + 0.17034338633799234375e2 * t22373 * t22374 * t11241;
24061 
24062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24063     v4sigma3lapl[1] = 0.0e0;
24064 
24065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24066     v4sigma3lapl[2] = 0.0e0;
24067 
24068   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24069     v4sigma3lapl[3] = 0.0e0;
24070 
24071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24072     v4sigma3lapl[4] = 0.0e0;
24073 
24074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24075     v4sigma3lapl[5] = 0.0e0;
24076 
24077   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24078     v4sigma3lapl[6] = 0.0e0;
24079 
24080   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24081     v4sigma3lapl[7] = 0.0e0;
24082 
24083   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24084     v4sigma3lapl[8] = 0.0e0;
24085 
24086   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24087     v4sigma3lapl[9] = 0.0e0;
24088 
24089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24090     v4sigma3lapl[10] = 0.0e0;
24091 
24092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24093     v4sigma3lapl[11] = 0.0e0;
24094 
24095   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24096     v4sigma3lapl[12] = 0.0e0;
24097 
24098   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24099     v4sigma3lapl[13] = 0.0e0;
24100 
24101   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24102     v4sigma3lapl[14] = 0.0e0;
24103 
24104   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24105     v4sigma3lapl[15] = 0.0e0;
24106 
24107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24108     v4sigma3lapl[16] = 0.0e0;
24109 
24110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24111     v4sigma3lapl[17] = 0.0e0;
24112 
24113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24114     v4sigma3lapl[18] = 0.0e0;
24115 
24116   t50551 = 0.36e2 * t2418 * t2893 * t7051 * t814 + 0.6e1 * t288 * t2890 * t3209 * t510 - 0.6e1 * t11246 * t4566 * t971 - t11467 * t510 * t971 - 0.2e1 * t11524 * t510 * t954 - 0.6e1 * t12000 * t510 * t829 - 0.12e2 * t12004 * t510 * t829 - 0.6e1 * t12303 * t510 * t829 + 0.6e1 * t1423 * t2774 * t3248 + 0.12e2 * t2417 * t2893 * t9829 + 0.24e2 * t2417 * t41608 * t814 - 0.36e2 * t2774 * t7051 * t9829 - 0.3e1 * t2893 * t3248 * t510 - 0.6e1 * t2925 * t3109 * t510 + 0.36e2 * t11986 * t29933 - 0.12e2 * t11997 * t9344;
24117   t50588 = t553 * t12022;
24118   t50616 = -0.5e1 / 0.8e1 * t9374 * t923 * t2812 * t749 - 0.5e1 / 0.4e1 * t39865 * t12023 - 0.5e1 / 0.4e1 * t39957 * t12023 + 0.25e2 / 0.192e3 * t39868 * t7091 * t2778 * t776 + 0.25e2 / 0.16e2 * t30244 * t923 * t2799 * t749 + 0.5e1 / 0.6e1 * t39889 * t3125 - t39921 * t12017 / 0.576e3 - t39897 * t12017 / 0.576e3 - t9449 * t68 * t215 * t2812 / 0.1152e4 + t39998 * t50588 / 0.1944e4 + t39924 * t39925 * t12022 / 0.1944e4 - 0.25e2 / 0.288e3 * t30198 * t12011 - 0.25e2 / 0.288e3 * t30177 * t12011 + 0.25e2 / 0.373248e6 * t7090 * t43845 * t24 + 0.5e1 / 0.2304e4 * t30083 * t68 * t215 * t2799 - 0.45e2 / 0.4e1 * t30164 * t12052 + 0.9e1 / 0.4e1 * t7128 * t11281 - 0.15e2 / 0.8e1 * t22751 * t11278 - 0.5e1 / 0.5184e4 * t12049 * t12040 + 0.105e3 / 0.8e1 * t22760 * t2436 * t11278;
24119   t50629 = t552 * t19;
24120   t50630 = t48155 * t43844;
24121   t50639 = t551 * t771 * t2436;
24122   t50645 = t2008 * t771;
24123   t50651 = t4668 * t923;
24124   t50655 = t1497 * t19;
24125   t50667 = t12045 * t227;
24126   t50678 = -0.45e2 / 0.4e1 * t30014 * t12052 + 0.5e1 / 0.17496e5 * t40052 * t754 * t558 * t923 - 0.5e1 / 0.5184e4 * t12059 * t12040 + 0.9e1 * t39813 * t3119 + 0.9e1 / 0.2e1 * t9439 * t12037 + t50629 * t50630 * t227 / 0.2519424e7 + 0.9e1 / 0.2e1 * t9407 * t12037 - t2431 * t11295 / 0.2e1 - t2807 * t50639 / 0.2916e4 - t2008 * t36 * t12056 / 0.2916e4 + t50645 * t3131 / 0.864e3 - 0.45e2 / 0.4e1 * t7095 * t2436 * t11281 + 0.125e3 / 0.2592e4 * t3128 * t50651 * t11290 + 0.25e2 / 0.746496e6 * t3128 * t50655 * t50630 + 0.5e1 / 0.3456e4 * t2435 * t9421 * t4522 * t776 + 0.3e1 / 0.2e1 * t2435 * t2436 * t11295 + t48156 * t43844 * t50667 / 0.2519424e7 + 0.5e1 / 0.17496e5 * t44031 * t7131 + t68 * t9394 * t2812 / 0.3456e4 - t68 * t30261 * t2799 / 0.2304e4;
24127   t50679 = t50616 + t50678;
24128   t50691 = t569 * t50679;
24129   t50716 = t9643 * t8530;
24130   t50722 = 0.461000314880e0 * t50691 * t250 + 0.975074869248e0 * t245 * t9755 * t2867 - 0.32937059624806545678e0 * t2055 * t40261 - 0.16468529812403272839e0 * t2055 * t40241 - 0.75919974291285761083e-1 * t8499 * t9658 + 0.21799717097663792992e0 * t6225 * t40605 - 0.29391714526792369101e0 * t2055 * t41292 - 0.16468529812403272839e0 * t2465 * t37183 - 0.58783429053584738202e0 * t9475 * t36929 - 0.357234676004290560e0 * t1549 * t41229 * t2061 + 0.98811178874419637035e0 * t12152 * t794 + 0.8298005667840e1 * t575 * t50716 - 0.18307055749595233518e1 * t1540 * t40484 * t3153;
24131   t50723 = t40484 * t2061;
24132   t50739 = t7182 * t36943;
24133   t50742 = t22941 * t36943;
24134   t50756 = 0.2468269445917900800e1 * t575 * t50723 - 0.32937059624806545678e0 * t12211 * t794 - 0.89901964350980565762e0 * t8451 * t9759 - 0.10151298285083840779e1 * t2058 * t40992 + 0.63756387095837744823e0 * t40711 * t2062 - 0.119078225334763520e0 * t37266 * t2494 - 0.714469352008581120e0 * t1549 * t7328 * t36943 - 0.11064007557120e2 * t575 * t50739 - 0.17620679382074383663e2 * t575 * t50742 + 0.16879116930178234168e1 * t7287 * t36807 + 0.21252129031945914941e0 * t2461 * t11298 * t250 - 0.16468529812403272839e0 * t2055 * t40459 - 0.75919974291285761083e-1 * t8499 * t9517 - 0.12751277419167548965e1 * t8527 * t9521;
24135   t50768 = t40237 * t2061;
24136   t50770 = t7196 * t36943;
24137   t50776 = t11307 * t247;
24138   t50783 = t9466 * t8534;
24139   t50785 = t22899 * t36943;
24140   t50791 = t9643 * t8534;
24141   t50797 = t2475 * t36982;
24142   t50799 = 0.17054206847430144000e2 * t7196 * t36613 - 0.10708320e2 * t50768 + 0.114668117222400e3 * t50770 - 0.57334058611200e2 * t7182 * t36613 + 0.1784720e1 * t50691 * t247 + 0.114668117222400e3 * t7174 * t50776 + 0.9555676435200e1 * t50723 - 0.57334058611200e2 * t30404 * t12157 - 0.68216827389720576000e2 * t50742 - 0.10708320e2 * t50783 + 0.10145661348248508867e2 * t50785 + 0.3185225478400e1 * t2461 * t49110 + 0.10145661348248508867e2 * t22931 * t50776 + 0.9555676435200e1 * t50791 - 0.10708320e2 * t40718 * t3179 - 0.42833280e2 * t7161 * t50776 + 0.3185225478400e1 * t50797;
24143   t50800 = t30335 * t8530;
24144   t50802 = t2815 * t779;
24145   t50803 = t50802 * t247;
24146   t50824 = t30315 * t8530;
24147   t50828 = -t577 * t50679 * t242;
24148   t50834 = t2482 * t36982;
24149   t50836 = 0.17054206847430144000e2 * t50800 + 0.17054206847430144000e2 * t7174 * t50803 - 0.68216827389720576000e2 * t22948 * t50776 - 0.3569440e1 * t2454 * t49110 + 0.32124960e2 * t50716 + 0.9555676435200e1 * t9621 * t11413 + 0.32124960e2 * t9621 * t12157 - 0.57334058611200e2 * t7161 * t50803 + 0.9555676435200e1 * t41043 * t3179 + 0.17054206847430144000e2 * t30426 * t12157 + 0.32124960e2 * t2475 * t36613 - 0.42833280e2 * t50739 - 0.57334058611200e2 * t50824 + 0.1784720e1 * t50828 + 0.32124960e2 * t2461 * t50803 - 0.10708320e2 * t9615 * t11413 - 0.3569440e1 * t50834;
24150   t50864 = -0.25502554838335097930e1 * t2055 * t40307 + 0.32937059624806545678e0 * t8524 * t9658 + 0.32937059624806545678e0 * t2055 * t40997 + 0.32937059624806545678e0 * t36690 * t2494 - 0.258304e0 * t245 * t583 * (t50799 + t50836) + 0.56906378609746093242e1 * t9580 * t9581 * t36986 - 0.22757459835536707989e1 * t2465 * t36997 - 0.21968466899514280222e2 * t1540 * t7196 * t36806 + 0.29619233351014809600e2 * t575 * t50770 + 0.714469352008581120e0 * t8487 * t12991 - 0.2143408056025743360e1 * t7365 * t1534 * t2819 * t792 + 0.8298005667840e1 * t7365 * t2044 * t50802 + 0.1428938704017162240e1 * t9666 * t12253 + 0.714469352008581120e0 * t2455 * t48996;
24151   t50878 = t8530 * t779;
24152   t50900 = 0.714469352008581120e0 * t2455 * t1534 * t779 * t2867 - 0.48997150734706182895e0 * t16800 * t23339 * t37084 + 0.84395584650891170840e0 * t4838 * t23339 * t36806 - 0.38253832257502646895e1 * t30404 * t2819 * t250 + 0.25502554838335097929e1 * t7216 * t4755 * t50878 - 0.357234676004290560e0 * t2058 * t40697 - 0.38906391098542524630e0 * t26633 * t9513 + 0.26233858457773445622e1 * t20203 * t40409 - 0.45186746351441547127e1 * t6225 * t40352 + 0.11378729917768353994e1 * t8527 * t9524 + 0.22757459835536707989e1 * t2055 * t40367 + 0.11378729917768353994e1 * t2055 * t40370 - 0.2766001889280e1 * t40719 * t3138 - 0.16468529812403272839e0 * t8527 * t9658;
24153   t50936 = 0.20722416937066287826e0 * t2055 * t40512 + 0.58783429053584738202e0 * t40204 * t8315 - 0.25502554838335097930e1 * t31271 * t12241 + 0.29391714526792369101e0 * t40415 * t8315 + 0.13549589651714352352e0 * t40418 * t8315 + 0.20722416937066287826e0 * t2465 * t37160 - 0.33837660950279469264e0 * t16821 * t932 * t242 * t11375 + 0.29391714526792369101e0 * t30426 * t2819 * t250 - 0.11064007557120e2 * t22983 * t2044 * t11307 + 0.44950982175490282881e0 * t8386 * t9759 + 0.325024956416e0 * t245 * t2501 * t11430 - 0.2766001889280e1 * t575 * t50768 - 0.16468529812403272839e0 * t12140 * t794 + 0.29391714526792369101e0 * t40122 * t9729;
24154   t50948 = t12193 * t11311;
24155   t50951 = t40141 * t2838;
24156   t50961 = t2846 * t792;
24157   t50965 = t784 * t2867;
24158   t50974 = -0.75919974291285761083e-1 * t12143 * t794 - 0.2766001889280e1 * t575 * t50783 - 0.922000629760e0 * t575 * t50834 - 0.11756685810716947640e1 * t22948 * t11307 * t250 + 0.63756387095837744823e0 * t2055 * t40860 + 0.80224916908241017662e0 * t20370 * t50948 + 0.38253832257502646895e1 * t20390 * t50951 + 0.29391714526792369101e0 * t8499 * t9558 + 0.45165298839047841173e-1 * t37078 * t2472 + 0.94575714566868943972e0 * t6238 * t12930 * t12229 + 0.47287857283434471986e0 * t6238 * t7222 * t50961 + 0.47287857283434471985e0 * t6238 * t7222 * t50965 - 0.13606156761889987933e2 * t1540 * t22899 * t36806 + 0.26206649088979828343e1 * t575 * t50785;
24159   t51011 = -0.92817332546461565657e1 * t16763 * t22899 * t16764 * t11358 + 0.20312390406477209506e2 * t4707 * t22899 * t37084 - 0.16468529812403272839e0 * t11391 * t941 - 0.357234676004290560e0 * t1549 * t12181 * t2838 + 0.32937059624806545678e0 * t8524 * t9517 + 0.714469352008581120e0 * t1549 * t31452 * t8530 - 0.94575714566868943969e0 * t4838 * t23321 * t36806 + 0.12751277419167548965e1 * t1549 * t23321 * t36943 + 0.44950982175490282881e0 * t2058 * t40441 + 0.44950982175490282881e0 * t2468 * t36745 + 0.25502554838335097929e1 * t8524 * t9521 + 0.16879116930178234168e1 * t26864 * t9513 - 0.22757459835536707989e1 * t8524 * t9524 + 0.21799717097663792993e0 * t7287 * t36710;
24160   t51041 = 0.32937059624806545678e0 * t2465 * t37164 - 0.12751277419167548965e1 * t2055 * t40311 - 0.58783429053584738202e0 * t8499 * t9521 + 0.50637350790534702506e1 * t6225 * t40505 - 0.68272379506610123966e1 * t2055 * t40314 - 0.84395584650891170841e0 * t26844 * t9513 - 0.16879116930178234169e1 * t6225 * t40401 - 0.84395584650891170841e0 * t6225 * t40405 - 0.38906391098542524630e0 * t9475 * t37201 - 0.22757459835536707989e1 * t7216 * t4785 * t50878 - 0.29391714526792369101e0 * t2465 * t37186 + 0.89901964350980565762e0 * t30994 * t2839 + 0.44950982175490282881e0 * t7296 * t11325 - 0.2766001889280e1 * t9666 * t11382;
24161   t51078 = 0.44950982175490282881e0 * t9691 * t8383 - 0.714469352008581120e0 * t37002 * t2494 - 0.10151298285083840779e1 * t23193 * t11312 + 0.12751277419167548965e1 * t37081 * t2472 - 0.89901964350980565762e0 * t7296 * t11315 - 0.119078225334763520e0 * t1549 * t932 * t49016 + 0.20722416937066287826e0 * t3144 * t2856 + 0.20722416937066287826e0 * t8439 * t9759 + 0.2468269445917900800e1 * t575 * t50791 + 0.47287857283434471985e0 * t4838 * t31126 * t8506 - 0.63756387095837744824e0 * t1549 * t31126 * t8530 - 0.119078225334763520e0 * t1549 * t2497 * t36982 - 0.38253832257502646894e1 * t40101 * t40098 - 0.357234676004290560e0 * t1549 * t9470 * t8534;
24162   t51085 = t2833 * t792;
24163   t51086 = t7222 * t51085;
24164   t51089 = t3163 * t784;
24165   t51090 = t51089 * t2838;
24166   t51117 = 0.29391714526792369101e0 * t36903 * t9501 - 0.59502499971174729837e0 * t20249 * t7222 * t784 * t2854 - 0.28372714370060683191e1 * t20383 * t51086 - 0.12751277419167548965e1 * t6222 * t51090 + 0.89901964350980565762e0 * t2058 * t40429 + 0.10984233449757140111e2 * t1540 * t30315 * t8506 - 0.22762551443898437297e2 * t4707 * t22941 * t37084 + 0.39207562244901126197e2 * t1540 * t22941 * t36806 + 0.44950982175490282881e0 * t4823 * t3164 * t11311 + 0.52455980750256876982e0 * t9475 * t37215 - 0.25306658097095253694e-1 * t36758 * t2494 + 0.67692822862798455802e0 * t2465 * t36944 + 0.21252129031945914941e0 * t36961 * t2472 + 0.63756387095837744823e0 * t8527 * t9558;
24167   t51150 = 0.38253832257502646895e1 * t2055 * t40292 - 0.12751277419167548965e1 * t7216 * t49039 - 0.17635028716075421461e1 * t40320 * t8315 + 0.63756387095837744823e0 * t9621 * t2815 * t250 + 0.65874119249613091356e0 * t26758 * t40323 + 0.43599434195327585985e0 * t27035 * t41025 - 0.16468529812403272839e0 * t3144 * t2869 + 0.461000314880e0 * t575 * t50828 - 0.357234676004290560e0 * t41002 * t2085 - 0.33837660950279469264e0 * t2468 * t37254 - 0.32937059624806545678e0 * t9663 * t8325 + 0.52455980750256876982e0 * t8499 * t9524 + 0.20307846858839536740e1 * t2055 * t40373 - 0.12751277419167548965e1 * t7216 * t1528 * t8534 * t779;
24168   t51184 = -0.16468529812403272839e0 * t2465 * t36940 - 0.12751277419167548965e1 * t2465 * t36614 + 0.29391714526792369101e0 * t9475 * t37144 - 0.84395584650891170841e0 * t7287 * t36714 + 0.11378729917768353994e1 * t2465 * t36936 + 0.16879116930178234168e1 * t23124 * t4785 * t8506 * t779 + 0.63756387095837744823e0 * t41043 * t779 * t250 - 0.922000629760e0 * t2455 * t2044 * t11298 + 0.41444833874132575653e0 * t26903 * t41268 + 0.714469352008581120e0 * t8451 * t9777 - 0.16468529812403272839e0 * t8439 * t9777 - 0.98018905612252815491e1 * t1540 * t30335 * t8506 + 0.44051698455185959158e1 * t575 * t50800 + 0.822756481972633600e0 * t575 * t50797;
24169   t51197 = t1528 * t2471 * t2815;
24170   t51209 = t40137 * t2061;
24171   t51212 = t40137 * t3153;
24172   t51225 = -0.2202015477522235392e1 * t9700 * t40440 * t792 - 0.14809616675507404800e2 * t575 * t50824 - 0.89901964350980565762e0 * t2455 * t4718 * t779 * t2854 - 0.12751277419167548965e1 * t6116 * t51197 - 0.15183994858257152217e0 * t30488 * t8325 - 0.2202015477522235392e1 * t245 * t31483 * t2854 - 0.12751277419167548965e1 * t8524 * t9558 - 0.58783429053584738202e0 * t36970 * t2472 - 0.14809616675507404800e2 * t9554 * t51209 - 0.98018905612252815489e1 * t9585 * t51212 + 0.975074869248e0 * t245 * t40391 * t792 - 0.16468529812403272839e0 * t8527 * t9517 - 0.32937059624806545678e0 * t2055 * t40455 + 0.38253832257502646895e1 * t23206 * t40297 * t786;
24173   t51254 = t2471 * t50965;
24174   t51257 = t2471 * t50961;
24175   t51264 = 0.23916119461575365556e1 * t245 * t22847 * t11375 - 0.18307055749595233518e1 * t1540 * t9643 * t11338 + 0.56906378609746093243e1 * t4707 * t30335 * t12091 - 0.61023519165317445059e0 * t1540 * t2475 * t1545 * t11370 - 0.37929099725894513314e0 * t1549 * t23339 * t36943 - 0.357234676004290560e0 * t1549 * t3164 * t11324 - 0.357234676004290560e0 * t8386 * t9777 - 0.357234676004290560e0 * t9691 * t8433 - 0.119078225334763520e0 * t2468 * t37040 + 0.45165298839047841173e-1 * t22931 * t11307 * t250 + 0.714469352008581120e0 * t6216 * t51254 + 0.714469352008581120e0 * t6216 * t51257 + 0.44950982175490282881e0 * t7296 * t11321 - 0.59502499971174729836e0 * t23352 * t11335;
24176   t51296 = 0.80224916908241017663e0 * t7296 * t11328 + 0.714469352008581120e0 * t9532 * t11331 - 0.63756387095837744823e0 * t6222 * t51257 - 0.63756387095837744823e0 * t6222 * t51254 + 0.25318675395267351252e1 * t20353 * t51086 - 0.11378729917768353994e1 * t20358 * t50951 - 0.2143408056025743360e1 * t6222 * t50951 + 0.8298005667840e1 * t9548 * t51209 + 0.44051698455185959158e1 * t9593 * t51209 + 0.8298005667840e1 * t31491 * t12264 + 0.76507664515005293790e1 * t7174 * t11307 * t250 + 0.12751277419167548965e1 * t2465 * t37064 - 0.14699145220411854869e1 * t20746 * t9581 * t51085 + 0.10984233449757140111e2 * t9575 * t51212;
24177   t51327 = -0.89901964350980565762e0 * t20240 * t50948 + 0.44950982175490282881e0 * t8511 * t2471 * t36744 + 0.1428938704017162240e1 * t6216 * t51090 + 0.63756387095837744823e0 * t9663 * t8535 + 0.21252129031945914941e0 * t2465 * t36983 - 0.84395584650891170840e0 * t31168 * t8507 + 0.87446194859244818739e0 * t23095 * t37085 - 0.15062248783813849042e1 * t7287 * t37089 + 0.11378729917768353994e1 * t9663 * t8538 + 0.47287857283434471984e0 * t9603 * t11339 - 0.63756387095837744823e0 * t9532 * t11318 - 0.12751277419167548965e1 * t9663 * t8531 + 0.65874119249613091356e0 * t23462 * t12252 * t786 - 0.58783429053584738202e0 * t26758 * t40751;
24178   t51332 = my_piecewise3(t235, 0, t50722 + t50756 + t50864 + t50900 + t50936 + t50974 + t51011 + t51041 + t51078 + t51117 + t51150 + t51184 + t51225 + t51264 + t51296 + t51327);
24179   t51333 = my_piecewise3(t234, 0, t51332);
24180   t51335 = -t11298 * t945 - t11441 * t926 - 0.3e1 * t12062 * t798 - 0.3e1 * t12273 * t779 - t233 * t51333 - t252 * t50679 - 0.3e1 * t2815 * t3195 - 0.3e1 * t2873 * t3134;
24181   t51356 = t3197 * t2875;
24182   t51373 = t947 * t11443;
24183   t51379 = t947 * t11449;
24184   t51383 = 0.100e3 / 0.27e2 * t12331 * t31545 - 0.500e3 / 0.81e2 * t959 * t11483 * t345 + params->c1 * t51335 * t279 + 0.10e2 / 0.3e1 * t961 * t3511 * t51356 + 0.50e2 / 0.27e2 * t617 * t2557 * t12275 * t804 + 0.50e2 / 0.27e2 * t34813 * t2577 * t11492 - 0.10e2 / 0.3e1 * t7442 * t825 * t23 * t2875 + 0.20e2 / 0.3e1 * t26061 * t13152 + 0.10e2 / 0.9e1 * t961 * t3511 * t51373 + 0.3e1 * t2899 * t3242 + 0.10000e5 / 0.729e3 * t20784 * t51379 * t24;
24185   t51403 = t9905 * t24 * t2875;
24186   t51413 = t45396 * t2875;
24187   t51420 = t51379 * t17049;
24188   t51425 = t51373 * t285;
24189   t51441 = 0.10e2 * t7482 * t51403 + 0.5e1 / 0.3e1 * t7505 * t51403 + t449 * t618 * t51335 * t285 + 0.50e2 / 0.9e1 * t31701 * t2916 + 0.6e1 * t1643 * t51413 + 0.10e2 * t7490 * t51403 + 0.50e2 / 0.9e1 * t31697 * t2916 + 0.1000e4 / 0.81e2 * t23606 * t51420 + 0.10e2 / 0.3e1 * t41433 * t826 + t1655 * t51425 + 0.3e1 * t1655 * t51413 + 0.2000e4 / 0.81e2 * t23610 * t51420 + 0.1000e4 / 0.27e2 * t23613 * t51420 + 0.25e2 / 0.27e2 * t31688 * t2916 + 0.5e1 / 0.3e1 * t41395 * t826 + 0.2e1 * t1643 * t51425 + 0.250e3 / 0.243e3 * t23623 * t51420;
24190   t51442 = my_piecewise3(t277, (0.100e3 / 0.27e2 * t6363 * t3228 * t49373 + 0.500e3 / 0.27e2 * t11480 * t23573 + 0.5e1 / 0.3e1 * t3225 * t12346 - 0.5e1 / 0.3e1 * t39795 * t3222 - t959 * t11516 + 0.5e1 / 0.9e1 * t961 * t962 * t51335 - 0.50e2 / 0.27e2 * t29964 * t12326 + t11476 * t968 - 0.3e1 * t3220 * t2919 + 0.500e3 / 0.27e2 * t2150 * t9923 * t2879 + t51383) * t283 + 0.3e1 * t12349 * t823 * t283 + 0.3e1 * t3235 * t2910 * t283 + 0.3e1 * t3235 * t2912 * t283 + t966 * t11499 * t283 + 0.3e1 * t12354 * t824 + t966 * t11504 * t283, t51441);
24191   t51504 = -0.25e2 / 0.162e3 * t948 * t11449 * t23732 + 0.9e1 / 0.100e3 * t3198 * t12285 - t41566 * t3201 / 0.60e2 - t31777 * t12288 / 0.108e3 - t3198 * t2879 * t1611 / 0.36e2 - t604 * t51335 * t266 / 0.100e3 + 0.25e2 / 0.243e3 * t2534 * t11461 + t31837 * t12288 / 0.18e2 + t41556 * t3201 / 0.20e2 - t41582 * t41561 / 0.20e2 - t1609 * t51373 * t266 / 0.100e3 + 0.3e1 / 0.100e3 * t948 * t262 * t11443 * t266 - 0.3e1 / 0.100e3 * t1609 * t51356 * t266 - 0.5e1 / 0.486e3 * t23705 * t11461 - t41521 * t3201 / 0.60e2 + t56 * t51335 * t266 / 0.100e3 + t41533 * t3201 / 0.10e2;
24192   t51533 = -t276 * t51442 + 0.12e2 * t2417 * t39750 * t814 + 0.6e1 * t1423 * t3217 * t2893 - 0.48e2 * t23802 * t2418 * t11246 - 0.12e2 * t2417 * t9358 * t2893 - 0.12e2 * t41648 * t3106 + 0.2e1 * t510 * t11464 * t953 * t288 + 0.2e1 * t510 * t269 * t51504 * t288 - 0.4e1 * t2417 * t2418 * t11467 - 0.12e2 * t2417 * t41470 * t814 + 0.6e1 * t510 * t811 * t12302 * t288 - 0.6e1 * t510 * t3210 * t2925 - 0.3e1 * t510 * t814 * t12377 + 0.24e2 * t9344 * t11994 + 0.1174e1 * t51442 + 0.36e2 * t7051 * t9358 * t2774 - 0.24e2 * t9344 * t11991;
24193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24194     v4sigma3lapl[19] = -0.3e1 / 0.8e1 * t846 * t913 * (t50551 + t51533) * t302 + 0.27831937500000000000e1 * t39673 * t840 - 0.12524371875000000000e2 * t9944 * t2938 - 0.13915968750000000000e1 * t9944 * t2943 + 0.33978492602880295866e2 * t7526 * t3251 * t2947 * t293 * t1690 + 0.31310929687500000000e2 * t9951 * t23869 * t11544 + 0.62621859375000000000e1 * t2591 * t11550 - 0.87205650525523016199e-1 * t7526 * t23874 * t11556 + 0.69579843750000000000e0 * t2591 * t11562 - 0.33978492602880295866e2 * t7526 * t974 * t11554 * t293 * t1690 + 0.17034338633799234375e2 * t22373 * t22635 * t11572;
24195 
24196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24197     v4sigma3tau[0] = 0.0e0;
24198 
24199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24200     v4sigma3tau[1] = 0.0e0;
24201 
24202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24203     v4sigma3tau[2] = 0.0e0;
24204 
24205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24206     v4sigma3tau[3] = 0.0e0;
24207 
24208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24209     v4sigma3tau[4] = 0.0e0;
24210 
24211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24212     v4sigma3tau[5] = 0.0e0;
24213 
24214   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24215     v4sigma3tau[6] = 0.0e0;
24216 
24217   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24218     v4sigma3tau[7] = 0.0e0;
24219 
24220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24221     v4sigma3tau[8] = 0.0e0;
24222 
24223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24224     v4sigma3tau[9] = 0.0e0;
24225 
24226   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24227     v4sigma3tau[10] = 0.0e0;
24228 
24229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24230     v4sigma3tau[11] = 0.0e0;
24231 
24232   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24233     v4sigma3tau[12] = 0.0e0;
24234 
24235   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24236     v4sigma3tau[13] = 0.0e0;
24237 
24238   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24239     v4sigma3tau[14] = 0.0e0;
24240 
24241   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24242     v4sigma3tau[15] = 0.0e0;
24243 
24244   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24245     v4sigma3tau[16] = 0.0e0;
24246 
24247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24248     v4sigma3tau[17] = 0.0e0;
24249 
24250   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24251     v4sigma3tau[18] = 0.0e0;
24252 
24253   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24254     v4sigma3tau[19] = 0.0e0;
24255 
24256   t51572 = t2226 * t11892;
24257   t51589 = t3057 * t3057;
24258   t51620 = 0.1e1 / t27 / t348;
24259   t51621 = t48155 * t51620;
24260   t51625 = t1737 * t857;
24261   t51646 = t2239 * t676;
24262   t51650 = t1090 * t86 * t10019;
24263   t51655 = -0.30e2 * t6554 * t10019 * t681 * t676 + 0.5e1 / 0.1296e4 * t10032 * t49479 * t32149 + t10032 * t49483 * t51621 / 0.746496e6 + t51625 * t2979 / 0.1296e4 + 0.5e1 / 0.18e2 * t1737 * t3271 * t12461 - 0.25e2 / 0.864e3 * t12459 * t1106 * t36 * t2598 - t49472 * t3278 / 0.1458e4 - 0.5e1 / 0.5832e4 * t2243 * t8746 * t5096 * t681 + t12425 * t49476 / 0.1296e4 - t2239 * t36 * t11614 / 0.4374e4 + t51646 * t2979 / 0.1296e4 + t2627 * t51650 / 0.2916e4 - 0.5e1 / 0.6e1 * t41791 * t11603;
24264   t51692 = 0.25e2 / 0.6e1 * t41799 * t3271 * t681 * t654 + 0.5e1 / 0.864e3 * t41767 * t11602 * t12425 - 0.10e2 / 0.3e1 * t41865 * t3271 * t676 * t654 - t37701 * t857 * t676 * t12425 / 0.216e3 - 0.5e1 / 0.7776e4 * t45919 * t6579 - 0.307e3 / 0.272097792e9 * t48156 * t51620 * t49531 + 0.6e1 * t41808 * t2967 + 0.3e1 * t10006 * t11637 - 0.5e1 / 0.7776e4 * t12434 * t11606 + 0.105e3 / 0.4e1 * t32188 * t10019 * t2619 - 0.371e3 / 0.544195584e9 * t49522 * t51621 * t89 - 0.5e1 / 0.7776e4 * t12456 * t11606 + 0.5e1 / 0.8748e4 * t11647 * t12472;
24265   t51706 = t375 * t3271 * t89;
24266   t51726 = t5203 * t1107;
24267   t51729 = 0.5e1 / 0.8748e4 * t11617 * t12472 - 0.15e2 / 0.2e1 * t32170 * t11650 - 0.15e2 * t41811 * t12439 + 0.12e2 * t8755 * t12442 - 0.15e2 / 0.2e1 * t10018 * t10019 * t2632 - t2627 * t51706 / 0.8748e4 + t68 * t32053 * t2619 / 0.3888e4 + 0.3e1 / 0.2e1 * t1091 * t3275 * t2632 + 0.3e1 * t5203 * t12453 - t68 * t10000 * t2632 / 0.5832e4 + 0.6e1 * t1091 * t24154 * t3271 - 0.15e2 / 0.4e1 * t3694 * t3275 * t2619 - t51726 * t12449 / 0.432e3;
24268   t51748 = t32100 * t2598;
24269   t51766 = -0.5e1 / 0.3e1 * t41796 * t12445 - 0.25e2 / 0.432e3 * t32093 * t11630 - 0.5e1 / 0.3888e4 * t27779 * t68 * t72 * t2619 + t37698 * t12467 / 0.972e3 + t8777 * t68 * t72 * t2632 / 0.1944e4 - 0.25e2 / 0.419904e6 * t6535 * t345 * t51620 * t24 + t37701 * t51748 / 0.1458e4 + 0.125e3 / 0.432e3 * t32099 * t51748 - t41890 * t11625 / 0.864e3 - 0.5e1 / 0.12e2 * t32104 * t8712 * t664 + t37721 * t12467 / 0.972e3 - t41906 * t49501 / 0.864e3 - t41915 * t11625 / 0.864e3 + 0.5e1 / 0.9e1 * t41788 * t2973;
24270   t51768 = t51655 + t51692 + t51729 + t51766;
24271   t51824 = 0.39188952702389825468e0 * t38370 * t8929 - 0.11252744620118822779e1 * t28206 * t8937 - 0.21958039749871030452e0 * t1784 * t42093 + 0.90330597678095682346e-1 * t42806 * t7767 - 0.17001703225556731953e1 * t28223 * t12678 - 0.21958039749871030452e0 * t8859 * t8941 - 0.17001703225556731953e1 * t8859 * t8947 - 0.29967321450326855254e0 * t10149 * t7778 - 0.476312901339054080e0 * t1158 * t3012 * t12549 - 0.238156450669527040e0 * t1158 * t866 * t104 * t11697 - 0.45514919671073415976e1 * t2273 * t38224 - 0.734005159174078464e0 * t107 * t10162 * t2687 - 0.238156450669527040e0 * t1158 * t42762 * t1790 - 0.32672968537417605163e1 * t1149 * t10105 * t11009 - 0.13606156761889987933e2 * t1149 * t32488 * t7817 - 0.238156450669527040e0 * t1158 * t11688 * t3304 + 0.2766001889280e1 * t32571 * t11829;
24272   t51825 = t3011 * t3011;
24273   t51826 = t1151 * t51825;
24274   t51844 = t9027 * t689;
24275   t51845 = t2279 * t51844;
24276   t51862 = t42590 * t1790;
24277   t51876 = -0.12204703833063489012e1 * t1149 * t51826 * t1154 + 0.14533144731775861995e0 * t6689 * t38893 - 0.19594476351194912734e0 * t2273 * t38896 + 0.238156450669527040e0 * t10149 * t7781 + 0.325024956416e0 * t107 * t10158 * t2687 - 0.476312901339054080e0 * t9017 * t8953 + 0.21252129031945914941e0 * t10217 * t2635 * t112 - 0.11986928580130742102e1 * t17987 * t51845 + 0.14983660725163427627e0 * t10285 * t7778 - 0.12204703833063489012e1 * t1149 * t42590 * t3001 - 0.61023519165317445059e0 * t1149 * t10077 * t11009 + 0.18968792869915364414e1 * t3755 * t32726 * t11782 - 0.32672968537417605163e1 * t1149 * t32726 * t7817 + 0.1645512963945267200e1 * t399 * t51862 - 0.119078225334763520e0 * t1158 * t10293 * t7806 + 0.15762619094478157328e0 * t3793 * t32444 * t7817 - 0.21252129031945914941e0 * t1158 * t32444 * t7793 - 0.10979019874935515226e0 * t2273 * t37996;
24278   t51887 = t32283 * t7793;
24279   t51893 = t51826 * t104;
24280   t51918 = 0.13814944624710858551e0 * t2273 * t38307 + 0.25502554838335097929e1 * t2273 * t38647 - 0.119078225334763520e0 * t7735 * t10280 + 0.36614111499190467036e1 * t1149 * t32283 * t7817 - 0.4936538891835801600e1 * t399 * t51887 - 0.19834166657058243280e0 * t14518 * t3300 * t48358 + 0.1645512963945267200e1 * t399 * t51893 - 0.1844001259520e1 * t42459 * t2986 + 0.69074723123554292755e-1 * t7729 * t10192 + 0.14983660725163427627e0 * t7735 * t10192 + 0.65874119249613091357e0 * t12566 * t699 - 0.67675321900558938528e0 * t1787 * t43008 + 0.59934642900653710508e0 * t1787 * t42490 + 0.476312901339054080e0 * t10189 * t11824 - 0.10979019874935515226e0 * t12635 * t699 - 0.51005109676670195860e1 * t38486 * t42396 - 0.85008516127783659764e0 * t2273 * t38312 + 0.33758233860356468336e1 * t6689 * t38129;
24281   t51940 = t1164 * t51825 * t104;
24282   t51955 = t1790 * t684;
24283   t51959 = t10126 * t7806;
24284   t51966 = -0.11064007557120e2 * t32302 * t11829 + 0.13538564572559691160e1 * t1784 * t42156 + 0.13814944624710858551e0 * t1784 * t42159 - 0.10979019874935515226e0 * t7800 * t10115 - 0.21968466899514280222e2 * t1149 * t10105 * t7817 + 0.43916079499742060904e0 * t21590 * t12596 * t691 + 0.27629889249421717102e0 * t28070 * t38254 - 0.10122663238838101478e0 * t28076 * t8922 + 0.75858199451789026627e0 * t2273 * t38380 - 0.1844001259520e1 * t399 * t51940 + 0.43916079499742060904e0 * t21590 * t866 * t2658 * t684 + 0.43916079499742060904e0 * t28255 * t38248 - 0.10122663238838101478e0 * t28076 * t8941 + 0.29066289463551723990e0 * t28479 * t39045 - 0.39188952702389825468e0 * t28255 * t38251 + 0.34003406451113463906e1 * t28243 * t2290 * t51955 - 0.922000629760e0 * t399 * t51959 + 0.11064007557120e2 * t6728 * t1773 * t684 * t2982;
24285   t51972 = t1143 * t2982 * t697;
24286   t52007 = t8870 * t8866;
24287   t52014 = -0.1428938704017162240e1 * t10155 * t11824 + 0.952625802678108160e0 * t2263 * t51972 - 0.119078225334763520e0 * t1158 * t3313 * t11027 + 0.97972381755974563669e-1 * t32369 * t2639 * t112 + 0.19594476351194912734e0 * t38374 * t8929 + 0.17489238971848963747e1 * t21710 * t38520 - 0.30124497567627698084e1 * t6689 * t38524 + 0.15171639890357805326e1 * t1784 * t42153 - 0.1428938704017162240e1 * t6728 * t1143 * t873 * t2639 - 0.67675321900558938528e0 * t2276 * t38565 - 0.238156450669527040e0 * t42880 * t1814 - 0.12204703833063489012e1 * t1149 * t2283 * t1154 * t11687 - 0.45514919671073415978e1 * t1784 * t42088 - 0.50613316194190507389e-1 * t7803 * t10115 - 0.238156450669527040e0 * t2276 * t38505 + 0.58735597940247945544e1 * t8877 * t52007 - 0.67675321900558938528e0 * t32677 * t2659 + 0.59934642900653710508e0 * t6717 * t11802;
24288   t52055 = 0.21958039749871030452e0 * t1784 * t43022 + 0.25502554838335097930e1 * t1784 * t43025 + 0.75858199451789026628e0 * t1784 * t42146 - 0.19594476351194912734e0 * t1784 * t42150 + 0.33758233860356468337e1 * t5399 * t43019 + 0.90330597678095682346e-1 * t38074 * t8929 - 0.119078225334763520e0 * t10285 * t7781 - 0.85008516127783659764e0 * t6725 * t1137 * t2279 * t2635 + 0.238156450669527040e0 * t7738 * t10280 + 0.42504258063891829882e0 * t42213 * t1791 - 0.75858199451789026628e0 * t7797 * t10243 - 0.238156450669527040e0 * t1787 * t42857 + 0.42504258063891829882e0 * t42675 * t684 * t112 - 0.238156450669527040e0 * t38581 * t2302 + 0.29066289463551723990e0 * t24219 * t42861 - 0.39188952702389825468e0 * t24214 * t43056 - 0.734005159174078464e0 * t107 * t32995 * t2674 - 0.54895099374677576129e-1 * t10155 * t7781;
24289   t52062 = t8866 * t12631;
24290   t52067 = t873 * t2653;
24291   t52071 = t6656 * t52067;
24292   t52078 = t3037 * t689;
24293   t52082 = t873 * t2666;
24294   t52086 = t42609 * t1790;
24295   t52089 = t10097 * t7806;
24296   t52100 = t10097 * t7793;
24297   t52106 = t10077 * t7793;
24298   t52109 = 0.42504258063891829882e0 * t2273 * t39082 + 0.59934642900653710508e0 * t7822 * t8866 * t9027 + 0.952625802678108160e0 * t5388 * t52062 + 0.85008516127783659764e0 * t8859 * t8867 - 0.97994301469412365794e0 * t18264 * t8900 * t52067 + 0.16879116930178234168e1 * t18077 * t52071 + 0.85008516127783659766e0 * t7797 * t10246 - 0.42504258063891829882e0 * t7797 * t10239 + 0.63050476377912629314e0 * t5504 * t6656 * t52078 + 0.31525238188956314657e0 * t5504 * t6656 * t52082 - 0.1844001259520e1 * t399 * t52086 - 0.4936538891835801600e1 * t399 * t52089 - 0.238156450669527040e0 * t1158 * t12515 * t2658 + 0.29967321450326855254e0 * t1787 * t42447 + 0.45165298839047841173e-1 * t32713 * t2639 * t112 - 0.11064007557120e2 * t399 * t52100 + 0.14983660725163427627e0 * t3771 * t3313 * t11019 + 0.2766001889280e1 * t399 * t52106;
24299   t52113 = t32669 * t7793;
24300   t52119 = t2279 * t52082;
24301   t52152 = 0.26741638969413672554e0 * t3771 * t3300 * t11019 - 0.17620679382074383663e2 * t399 * t52113 - 0.11756685810716947640e1 * t32864 * t2639 * t112 + 0.476312901339054080e0 * t5388 * t52119 - 0.12968797032847508210e0 * t24906 * t10259 + 0.29967321450326855254e0 * t7822 * t2279 * t38019 - 0.28131861550297056947e0 * t24982 * t10259 + 0.21958039749871030452e0 * t10269 * t7851 - 0.11756685810716947640e1 * t42799 * t7767 - 0.85008516127783659765e0 * t33072 * t11763 - 0.10979019874935515226e0 * t10272 * t7851 + 0.39188952702389825468e0 * t8813 * t38432 - 0.11252744620118822779e1 * t6689 * t38512 + 0.15171639890357805325e1 * t2273 * t38377 + 0.14533144731775861996e0 * t5399 * t43016 + 0.59934642900653710508e0 * t7822 * t2279 * t38366 + 0.21252129031945914941e0 * t10272 * t7807 - 0.21958039749871030452e0 * t6728 * t51972;
24302   t52158 = t697 * t3011;
24303   t52159 = t2279 * t52158;
24304   t52162 = t2982 * t2982;
24305   t52163 = t1132 * t52162;
24306   t52166 = t1773 * t11653;
24307   t52174 = t2279 * t52078;
24308   t52177 = t2279 * t52067;
24309   t52185 = t10238 * t11832;
24310   t52195 = t1137 * t1790 * t2982;
24311   t52198 = t10242 * t11832;
24312   t52203 = -0.50613316194190507388e-1 * t12575 * t699 + 0.952625802678108160e0 * t5388 * t52159 + 0.42504258063891829882e0 * t52163 * t112 + 0.42504258063891829882e0 * t6728 * t52166 + 0.63050476377912629314e0 * t5504 * t12612 * t12631 - 0.85008516127783659766e0 * t5394 * t52062 + 0.952625802678108160e0 * t5388 * t52174 - 0.1428938704017162240e1 * t5394 * t52177 - 0.67675321900558938528e0 * t24603 * t2279 * t38564 + 0.11064007557120e2 * t8893 * t52007 + 0.476312901339054080e0 * t5388 * t52185 + 0.37929099725894513314e0 * t7800 * t10243 + 0.17485326916752292327e0 * t7803 * t10243 + 0.25502554838335097930e1 * t10275 * t11763 - 0.17001703225556731953e1 * t6725 * t52195 + 0.25502554838335097930e1 * t18277 * t52198 - 0.85008516127783659765e0 * t5394 * t52159;
24313   t52218 = t393 * t51768;
24314   t52239 = t3300 * t7806;
24315   t52242 = t10105 * t7793;
24316   t52245 = t2290 * t39081;
24317   t52248 = -0.75858199451789026628e0 * t18063 * t52198 - 0.19746155567343206400e2 * t8896 * t52007 - 0.28131861550297056947e0 * t32696 * t7818 + 0.37929099725894513314e0 * t10272 * t7810 + 0.97972381755974563669e-1 * t10275 * t7807 - 0.12968797032847508210e0 * t32703 * t7818 + 0.17485326916752292327e0 * t10275 * t7810 + 0.461000314880e0 * t52218 * t112 + 0.42504258063891829882e0 * t38671 * t2280 + 0.56263723100594113894e0 * t25060 * t10259 - 0.2936020636696313856e1 * t9046 * t9027 * t3037 + 0.15171639890357805325e1 * t8859 * t8917 + 0.97972381755974563669e-1 * t10200 * t2635 * t112 - 0.29967321450326855254e0 * t3771 * t32466 * t7793 + 0.238156450669527040e0 * t1158 * t3308 * t11027 + 0.2766001889280e1 * t399 * t52239 + 0.29619233351014809600e2 * t399 * t52242 - 0.1844001259520e1 * t399 * t52245;
24318   t52250 = t32488 * t7793;
24319   t52292 = t3037 * t3037;
24320   t52296 = 0.26206649088979828343e1 * t399 * t52250 + 0.14983660725163427627e0 * t3771 * t10122 * t7806 - 0.19834166657058243279e0 * t14518 * t32752 * t7817 + 0.26741638969413672554e0 * t3771 * t32752 * t7793 + 0.39188952702389825468e0 * t9121 * t42396 - 0.54895099374677576130e-1 * t7729 * t10280 - 0.12751277419167548965e1 * t32844 * t2639 * t112 - 0.10979019874935515226e0 * t1784 * t42364 - 0.85008516127783659765e0 * t1784 * t42367 + 0.27629889249421717102e0 * t25028 * t42928 + 0.43916079499742060904e0 * t24214 * t42932 - 0.78377905404779650936e0 * t28076 * t8947 - 0.51875188131390032840e0 * t38591 * t8937 + 0.69941307667009169309e0 * t28076 * t8917 + 0.22505489240237645558e1 * t28246 * t2283 * t3001 * t684 - 0.30343279780715610650e1 * t28243 * t2283 * t51955 - 0.17001703225556731953e1 * t2273 * t38000 + 0.650049912832e0 * t107 * t1177 * t52292;
24321   t52301 = t1123 * t52162;
24322   t52310 = t2283 * t39081;
24323   t52313 = t10105 * t7806;
24324   t52316 = t10077 * t7806;
24325   t52319 = t32726 * t7793;
24326   t52343 = 0.29967321450326855254e0 * t32529 * t2659 - 0.56263723100594113893e0 * t6689 * t38516 - 0.1844001259520e1 * t52301 * t112 - 0.17001703225556731953e1 * t6725 * t1137 * t8866 * t684 - 0.21958039749871030452e0 * t2273 * t37939 + 0.1645512963945267200e1 * t399 * t52310 + 0.14683899485061986386e1 * t399 * t52313 + 0.822756481972633600e0 * t399 * t52316 + 0.14683899485061986386e1 * t399 * t52319 - 0.21252129031945914941e0 * t1158 * t3300 * t11027 + 0.238156450669527040e0 * t1158 * t32692 * t7793 + 0.23916119461575365556e1 * t107 * t33053 * t2674 + 0.13538564572559691160e1 * t2273 * t38384 - 0.21958039749871030452e0 * t8859 * t8922 - 0.21958039749871030452e0 * t2273 * t38887 - 0.10979019874935515226e0 * t2273 * t38890 - 0.11252744620118822779e1 * t5399 * t42547 + 0.17489238971848963748e1 * t18003 * t42551;
24327   t52365 = -t401 * t51768 * t104;
24328   t52389 = 0.21958039749871030452e0 * t7797 * t10115 + 0.25502554838335097929e1 * t21416 * t1137 * t2279 * t2639 - 0.11756685810716947640e1 * t38828 * t8929 + 0.21958039749871030452e0 * t2273 * t38303 - 0.10979019874935515226e0 * t1784 * t42219 - 0.79336666628232973116e0 * t18098 * t6656 * t51844 + 0.10696655587765469022e1 * t18102 * t51845 + 0.461000314880e0 * t399 * t52365 - 0.29967321450326855254e0 * t3771 * t3308 * t11019 - 0.29967321450326855254e0 * t7738 * t10192 - 0.19594476351194912734e0 * t10275 * t7794 + 0.42504258063891829882e0 * t1784 * t42828 - 0.1428938704017162240e1 * t5394 * t52198 + 0.85008516127783659766e0 * t10269 * t7794 - 0.42504258063891829882e0 * t10272 * t7794 - 0.85008516127783659766e0 * t5394 * t52174 - 0.75858199451789026629e0 * t18063 * t52177 - 0.42504258063891829883e0 * t7800 * t10246;
24329   t52394 = t6656 * t49889;
24330   t52408 = t10258 * t11832;
24331   t52432 = -0.19594476351194912734e0 * t7803 * t10246 + 0.21252129031945914941e0 * t7800 * t10239 + 0.14645644599676186814e2 * t8850 * t52394 - 0.18915142913373788794e1 * t18106 * t52071 + 0.25502554838335097930e1 * t18277 * t52177 - 0.42504258063891829883e0 * t5394 * t52119 + 0.75875171479661457657e1 * t8899 * t8900 * t49889 - 0.13069187414967042065e2 * t8904 * t52394 - 0.18915142913373788795e1 * t18106 * t52408 + 0.63050476377912629316e0 * t5504 * t6656 * t52158 - 0.97994301469412365794e0 * t18264 * t32564 * t11832 + 0.16879116930178234169e1 * t18077 * t52408 + 0.97972381755974563669e-1 * t7803 * t10239 + 0.31525238188956314657e0 * t5504 * t13358 * t11832 - 0.42504258063891829882e0 * t5394 * t52185 - 0.922000629760e0 * t10189 * t10987 - 0.56263723100594113894e0 * t5399 * t42792 - 0.17001703225556731953e1 * t1784 * t42083;
24332   t52446 = t3027 * t2982;
24333   t52457 = 0.42833280e2 * t2283 * t37999 - 0.7138880e1 * t51940 + 0.6370450956800e1 * t52163 * t109 + 0.22738942463240192000e2 * t6637 * t37999 - 0.76445411481600e2 * t6623 * t37999 + 0.22738942463240192000e2 * t6615 * t52446 + 0.1784720e1 * t52365 - 0.7138880e1 * t52301 * t109 + 0.5684735615810048000e1 * t32369 * t11661 + 0.3185225478400e1 * t10217 * t11069 - 0.3569440e1 * t51959;
24334   t52474 = 0.6370450956800e1 * t51893 - 0.76445411481600e2 * t6602 * t52446 + 0.42833280e2 * t2269 * t52446 + 0.6370450956800e1 * t52310 + 0.114668117222400e3 * t10200 * t11661 + 0.10708320e2 * t52239 + 0.114668117222400e3 * t52242 + 0.5684735615810048000e1 * t52319 - 0.3569440e1 * t10188 * t11069 + 0.10708320e2 * t3292 * t11069 + 0.3185225478400e1 * t52316;
24335   t52480 = t109 * t11653;
24336   t52496 = 0.10708320e2 * t10217 * t11661 - 0.7138880e1 * t42458 * t3027 + 0.6370450956800e1 * t2269 * t52480 - 0.42833280e2 * t52100 + 0.1784720e1 * t52218 * t109 - 0.19111352870400e2 * t51887 - 0.19111352870400e2 * t32844 * t11661 - 0.7138880e1 * t52086 - 0.68216827389720576000e2 * t32864 * t11661 + 0.6370450956800e1 * t42675 * t3027 - 0.19111352870400e2 * t10145 * t11069;
24337   t52512 = -0.7138880e1 * t2262 * t52480 + 0.5684735615810048000e1 * t10200 * t11069 + 0.6370450956800e1 * t51862 - 0.7138880e1 * t52245 - 0.42833280e2 * t10145 * t11661 + 0.10145661348248508867e2 * t32713 * t11661 - 0.68216827389720576000e2 * t52113 + 0.10145661348248508867e2 * t52250 + 0.5684735615810048000e1 * t52313 + 0.10708320e2 * t52106 - 0.19111352870400e2 * t52089;
24338   t52559 = 0.650049912832e0 * t107 * t2309 * t11697 - 0.258304e0 * t107 * t407 * (t52457 + t52474 + t52496 + t52512) - 0.21958039749871030452e0 * t2992 * t3039 + 0.952625802678108160e0 * t9043 * t12597 + 0.952625802678108160e0 * t2263 * t1143 * t3037 * t684 + 0.476312901339054080e0 * t2263 * t1143 * t873 * t2635 + 0.65874119249613091356e0 * t11738 * t875 + 0.59934642900653710508e0 * t9017 * t9028 + 0.59934642900653710508e0 * t2276 * t38750 + 0.29967321450326855254e0 * t2276 * t39095 - 0.21958039749871030452e0 * t11723 * t875 - 0.10979019874935515226e0 * t11720 * t875 + 0.650049912832e0 * t107 * t42542 * t697 + 0.2766001889280e1 * t10155 * t10987 - 0.1844001259520e1 * t2263 * t52166 + 0.76507664515005293790e1 * t10200 * t2639 * t112 + 0.18968792869915364414e1 * t3755 * t10105 * t48522 - 0.92817332546461565657e1 * t14377 * t32488 * t14382 * t2653;
24339   t52603 = 0.20312390406477209506e2 * t3755 * t32488 * t11782 - 0.50613316194190507389e-1 * t11717 * t875 + 0.15762619094478157329e0 * t3793 * t3300 * t48473 + 0.36614111499190467036e1 * t1149 * t10097 * t11009 - 0.22762551443898437297e2 * t3755 * t32669 * t11782 + 0.39207562244901126197e2 * t1149 * t32669 * t7817 - 0.42504258063891829883e0 * t10269 * t7807 + 0.56263723100594113894e0 * t32402 * t7818 - 0.75858199451789026629e0 * t10269 * t7810 - 0.12751277419167548965e1 * t10145 * t2635 * t112 - 0.11986928580130742102e1 * t28531 * t2309 * t11823 + 0.27629889249421717102e0 * t8813 * t9028 - 0.21958039749871030452e0 * t1784 * t42559 + 0.19594476351194912734e0 * t43088 * t7767 + 0.39188952702389825468e0 * t21416 * t52195 - 0.50613316194190507388e-1 * t10275 * t7851 - 0.30124497567627698084e1 * t5399 * t42555 + 0.69074723123554292753e-1 * t10155 * t7778;
24340   t52608 = my_piecewise3(t97, 0, t51824 + t51876 + t51918 + t51966 + t52014 + t52055 + t52109 + t52152 + t52203 + t52248 + t52296 + t52343 + t52389 + t52432 + t52559 + t52603);
24341   t52609 = my_piecewise3(t96, 0, t52608);
24342   t52611 = -t114 * t51768 - 0.2e1 * t11653 * t879 - 0.2e1 * t11863 * t860 - 0.2e1 * t12475 * t703 - 0.2e1 * t12688 * t684 - t2635 * t3339 - t2693 * t3281 - 0.4e1 * t2982 * t3043 - t52609 * t95;
24343   t52636 = 0.100e3 / 0.81e2 * t11921 * t32032 - 0.2000e4 / 0.81e2 * t1879 * t10403 * t2699 - 0.200e3 / 0.27e2 * t33140 * t2385 * t11929 + 0.5e1 / 0.9e1 * t895 * t896 * t52611 - 0.2e1 * t2719 * t3381 - t3365 * t2739 + t2719 * t3385 + 0.2e1 * t893 * t11958 + 0.2e1 * t11912 * t902 + 0.4e1 * t893 * t2378 * t2695 + 0.40e2 / 0.9e1 * t6883 * t11929 * t24 + 0.100e3 / 0.27e2 * t27638 * t39167 * t68 + 0.100e3 / 0.81e2 * t441 * t2365 * t12690 * t709;
24344   t52641 = t3341 * t2695;
24345   t52665 = t3345 * t2695;
24346   t52669 = t3045 * t3045;
24347   t52673 = -0.40e2 / 0.9e1 * t3073 * t12755 + 0.40e2 / 0.9e1 * t27635 * t12743 + 0.10e2 / 0.9e1 * t895 * t3369 * t52641 - 0.100e3 / 0.27e2 * t11921 * t31976 + 0.4e1 * t3068 * t3090 + 0.500e3 / 0.81e2 * t1879 * t10414 * t2699 - 0.50e2 / 0.81e2 * t32006 * t11916 + params->c1 * t52611 * t141 - 0.10e2 / 0.9e1 * t41731 * t3070 + 0.10e2 / 0.9e1 * t3073 * t12764 - 0.20e2 / 0.9e1 * t895 * t3369 * t881 * t11865 - 0.10e2 / 0.3e1 * t895 * t13451 * t52665 - 0.20e2 / 0.9e1 * t895 * t3369 * t52669;
24348   t52683 = t3083 * t3083;
24349   t52698 = t9250 * t24 * t3045;
24350   t52703 = t52665 * t147;
24351   t52713 = t52641 * t147;
24352   t52721 = 0.10e2 / 0.9e1 * t43422 * t731 - 0.40e2 / 0.3e1 * t6923 * t52698 - 0.20e2 / 0.9e1 * t6946 * t52698 - t4020 * t52703 - 0.40e2 / 0.3e1 * t6931 * t52698 - 0.2e1 * t1263 * t1265 * t52669 * t147 + 0.25e2 / 0.81e2 * t33233 * t2736 + t1266 * t52713 - 0.6e1 * t4005 * t52703 - 0.100e3 / 0.27e2 * t33217 * t2736 + 0.20e2 / 0.9e1 * t43412 * t731;
24353   t52743 = t10399 * t11865;
24354   t52748 = -0.25e2 / 0.81e2 * t33227 * t2736 - 0.4e1 * t449 * t1239 * t52669 * t147 + 0.50e2 / 0.27e2 * t33179 * t2736 + 0.50e2 / 0.27e2 * t33183 * t2736 - 0.6e1 * t3994 * t52703 - 0.200e3 / 0.27e2 * t33202 * t2736 - 0.100e3 / 0.9e1 * t33205 * t2736 + 0.2e1 * t1252 * t52713 + t449 * t442 * t52611 * t147 - 0.2e1 * t1266 * t52743 - 0.4e1 * t1252 * t52743;
24355   t52750 = my_piecewise3(t139, (t52636 + t52673) * t145 + 0.2e1 * t12767 * t728 * t145 + t3376 * t2730 * t145 + t3376 * t2732 * t145 + 0.2e1 * t52683 * t145 + 0.4e1 * t3085 * t3084 + 0.2e1 * t901 * t11939 + t3378 * t2730 * t145 + t3378 * t2732 * t145, t52721 + t52748);
24356   t52752 = -0.16e2 * t1030 * t132 * t150 * t51589 + 0.4e1 * t12714 * t150 * t330 * t716 + 0.2e1 * t150 * t2710 * t330 * t3356 + 0.8e1 * t10339 * t2225 * t2713 - 0.24e2 * t10339 * t2594 * t6492 + 0.32e2 * t12412 * t2225 * t716 - 0.4e1 * t12715 * t330 * t734 - 0.2e1 * t12795 * t330 * t719 - 0.8e1 * t3058 * t3096 * t330 - t138 * t52750 + 0.4e1 * t330 * t51572 - 0.16e2 * t51572 * t9977;
24357   t52767 = t3263 * t2713;
24358   t52772 = t12412 * t719;
24359   t52775 = t9174 * t3057;
24360   t52780 = t3263 * t2594;
24361   t52786 = -0.4e1 * t11893 * t330 * t905 + 0.16e2 * t2225 * t41697 * t719 + 0.8e1 * t2225 * t43667 * t719 - 0.8e1 * t2225 * t43673 * t719 - 0.2e1 * t2745 * t3258 * t330 - 0.4e1 * t1030 * t52767 + 0.8e1 * t1030 * t52772 - 0.8e1 * t12415 * t8689 + 0.16e2 * t12722 * t8689 - 0.8e1 * t330 * t52775 + 0.12e2 * t3619 * t52780 + 0.24e2 * t52767 * t9970;
24362   t52835 = t9163 * t43546 / 0.45e2 + 0.5e1 / 0.108e3 * t3346 * t2699 * t33360 + t56 * t52611 * t128 / 0.100e3 + t33354 * t11878 / 0.54e2 + t39357 * t43546 / 0.15e2 - 0.3e1 / 0.50e2 * t882 * t3347 * t11865 + t3949 * t52665 * t128 / 0.100e3 + 0.3e1 / 0.100e3 * t3346 * t2704 - t428 * t52611 * t128 / 0.100e3 - t3342 * t2699 * t1220 / 0.108e3 + 0.3e1 / 0.100e3 * t3342 * t11875;
24363   t52863 = -0.3e1 / 0.50e2 * t56 * t52669 * t3347 - 0.2e1 / 0.15e2 * t9150 * t43546 + t1218 * t884 * t11865 / 0.50e2 - 0.5e1 / 0.162e3 * t33351 * t11878 + t1218 * t52669 * t128 / 0.50e2 - 0.3e1 / 0.50e2 * t3346 * t39394 * t128 - t43597 * t3049 / 0.90e2 - t33369 * t11878 / 0.324e3 - t1218 * t52641 * t128 / 0.100e3 + t43602 * t3049 / 0.30e2 + t33363 * t11878 / 0.324e3;
24364   t52880 = 0.8e1 * t1030 * t3259 * t2745 - t330 * t2713 * t3392 - 0.2e1 * t330 * t3357 * t2745 - 0.4e1 * t330 * t11591 * t905 + 0.12e2 * t6492 * t9991 * t2594 - 0.8e1 * t330 * t11595 * t905 - 0.16e2 * t33284 * t11582 + 0.2e1 * t330 * t131 * (t52835 + t52863) * t150 - 0.4e1 * t330 * t888 * t11967 - 0.4e1 * t330 * t12418 * t734 - 0.4e1 * t2225 * t9991 * t2713 - 0.48e2 * t9970 * t52772;
24365   t52916 = -0.96e2 * t33277 * t52780 + 0.96e2 * t6492 * t3263 * t719 * t716 + 0.96e2 * t9970 * t2226 * t719 * t3057 + 0.2e1 * t1030 * t2594 * t3392 - 0.16e2 * t2225 * t3263 * t2710 + 0.4e1 * t330 * t51589 * t150 + 0.1174e1 * t52750 - 0.64e2 * t2225 * t2226 * t11595 + 0.32e2 * t9977 * t52775 - 0.16e2 * t1030 * t2613 * t3258 * t150 - 0.8e1 * t330 * t2957 * t3096 + 0.16e2 * t2225 * t43509 * t719;
24366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24367     v4sigma2lapl2[0] = -0.3e1 / 0.8e1 * t846 * t847 * (t52752 + t52786 + t52880 + t52916) * t167 + 0.18554625000000000000e1 * t43685 * t745 - 0.41747906250000000000e1 * t10434 * t2758 - 0.46386562500000000000e0 * t10434 * t2763 + 0.11326164200960098622e2 * t6967 * t3395 * t2767 * t158 * t1301;
24368 
24369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24370     v4sigma2lapl2[1] = 0.0e0;
24371 
24372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24373     v4sigma2lapl2[2] = 0.0e0;
24374 
24375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24376     v4sigma2lapl2[3] = 0.0e0;
24377 
24378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24379     v4sigma2lapl2[4] = 0.0e0;
24380 
24381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24382     v4sigma2lapl2[5] = 0.0e0;
24383 
24384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24385     v4sigma2lapl2[6] = 0.0e0;
24386 
24387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24388     v4sigma2lapl2[7] = 0.0e0;
24389 
24390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24391     v4sigma2lapl2[8] = 0.0e0;
24392 
24393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24394     v4sigma2lapl2[9] = 0.0e0;
24395 
24396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24397     v4sigma2lapl2[10] = 0.0e0;
24398 
24399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24400     v4sigma2lapl2[11] = 0.0e0;
24401 
24402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24403     v4sigma2lapl2[12] = 0.0e0;
24404 
24405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24406     v4sigma2lapl2[13] = 0.0e0;
24407 
24408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24409     v4sigma2lapl2[14] = 0.0e0;
24410 
24411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24412     v4sigma2lapl2[15] = 0.0e0;
24413 
24414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24415     v4sigma2lapl2[16] = 0.0e0;
24416 
24417   t52957 = t3405 * t2893;
24418   t52995 = t551 * t3413 * t227;
24419   t53002 = t33731 * t2778;
24420   t53014 = -0.5e1 / 0.6e1 * t43852 * t12023 + 0.25e2 / 0.6e1 * t43864 * t3413 * t776 * t749 + 0.5e1 / 0.864e3 * t43825 * t12022 * t12834 - 0.15e2 / 0.2e1 * t33604 * t12052 + 0.105e3 / 0.4e1 * t33776 * t10498 * t2799 - 0.15e2 / 0.2e1 * t10497 * t10498 * t2812 - t2807 * t52995 / 0.8748e4 - t43946 * t12017 / 0.864e3 + 0.5e1 / 0.9e1 * t43849 * t3125 + 0.125e3 / 0.432e3 * t33730 * t53002 - t43963 * t12017 / 0.864e3 - 0.5e1 / 0.12e2 * t33735 * t9385 * t759 - 0.10e2 / 0.3e1 * t43868 * t3413 * t771 * t749;
24421   t53024 = 0.1e1 / t178 / t524;
24422   t53051 = -t39868 * t923 * t771 * t12834 / 0.216e3 + 0.3e1 * t5977 * t12862 - 0.5e1 / 0.7776e4 * t46947 * t7131 - 0.307e3 / 0.272097792e9 * t48156 * t53024 * t50667 + 0.6e1 * t43861 * t3119 + 0.3e1 * t10485 * t12037 - 0.5e1 / 0.7776e4 * t12843 * t12040 - 0.15e2 / 0.4e1 * t4642 * t3417 * t2799 - t68 * t10479 * t2812 / 0.5832e4 - 0.25e2 / 0.864e3 * t12868 * t1497 * t36 * t2778 - t50645 * t3420 / 0.1458e4 + t12834 * t50639 / 0.1296e4 - t2431 * t36 * t12056 / 0.4374e4;
24423   t53053 = t2431 * t771;
24424   t53057 = t1481 * t224 * t10498;
24425   t53071 = t48155 * t53024;
24426   t53075 = t2008 * t923;
24427   t53094 = t53053 * t3131 / 0.1296e4 + t2807 * t53057 / 0.2916e4 - 0.30e2 * t7095 * t10498 * t776 * t771 - 0.5e1 / 0.5832e4 * t2435 * t9421 * t5891 * t776 + 0.5e1 / 0.1296e4 * t10511 * t50651 * t33716 + t10511 * t50655 * t53071 / 0.746496e6 + t53075 * t3131 / 0.1296e4 + 0.5e1 / 0.18e2 * t2008 * t3413 * t12870 + t68 * t33655 * t2799 / 0.3888e4 + 0.3e1 / 0.2e1 * t1482 * t3417 * t2812 - 0.371e3 / 0.544195584e9 * t50629 * t53071 * t227 - 0.5e1 / 0.7776e4 * t12865 * t12040 + 0.5e1 / 0.8748e4 * t12049 * t12881;
24428   t53117 = t5977 * t1498;
24429   t53131 = 0.5e1 / 0.8748e4 * t12059 * t12881 - 0.5e1 / 0.3888e4 * t30083 * t68 * t210 * t2799 + t39921 * t12876 / 0.972e3 + t39897 * t12876 / 0.972e3 + t9449 * t68 * t210 * t2812 / 0.1944e4 - 0.25e2 / 0.419904e6 * t7090 * t345 * t53024 * t24 - 0.25e2 / 0.432e3 * t33723 * t12011 - 0.5e1 / 0.3e1 * t43810 * t12854 - t53117 * t12858 / 0.432e3 + t39868 * t53002 / 0.1458e4 - t44059 * t50588 / 0.864e3 - 0.15e2 * t43832 * t12848 + 0.12e2 * t9439 * t12851 + 0.6e1 * t1482 * t26187 * t3413;
24430   t53133 = t53014 + t53051 + t53094 + t53131;
24431   t53149 = t44292 * t786;
24432   t53167 = t2471 * t51089;
24433   t53180 = t9701 * t784;
24434   t53181 = t2471 * t53180;
24435   t53186 = 0.19594476351194912734e0 * t45026 * t8315 + 0.39188952702389825468e0 * t23206 * t53149 + 0.33758233860356468337e1 * t6225 * t44781 + 0.15171639890357805325e1 * t9663 * t9524 + 0.23916119461575365556e1 * t245 * t34465 * t2854 - 0.39188952702389825468e0 * t31008 * t40751 - 0.78377905404779650936e0 * t30488 * t9521 - 0.51875188131390032840e0 * t40330 * t9513 + 0.69941307667009169309e0 * t30488 * t9524 + 0.11064007557120e2 * t9548 * t53167 - 0.17001703225556731953e1 * t7216 * t53149 + 0.21958039749871030452e0 * t10572 * t8325 - 0.11756685810716947640e1 * t45083 * t8315 - 0.85008516127783659765e0 * t34029 * t12241 - 0.50613316194190507388e-1 * t10578 * t8325 - 0.11986928580130742102e1 * t20240 * t53181 - 0.21958039749871030452e0 * t2055 * t44245;
24436   t53213 = t51089 * t3446;
24437   t53219 = t3189 * t784;
24438   t53220 = t2471 * t53219;
24439   t53231 = 0.90330597678095682346e-1 * t45090 * t8315 - 0.50613316194190507389e-1 * t8499 * t10770 - 0.56263723100594113894e0 * t6225 * t44791 + 0.75858199451789026628e0 * t2055 * t44784 - 0.19594476351194912734e0 * t2055 * t44787 - 0.30124497567627698084e1 * t6225 * t44585 - 0.10979019874935515226e0 * t8527 * t10770 - 0.1844001259520e1 * t45099 * t3138 + 0.25502554838335097930e1 * t2055 * t44593 - 0.12751277419167548965e1 * t34138 * t2819 * t250 - 0.29967321450326855254e0 * t10700 * t8383 + 0.63050476377912629314e0 * t6238 * t12930 * t13064 - 0.85008516127783659766e0 * t6222 * t53213 + 0.59934642900653710508e0 * t8511 * t2471 * t40428 + 0.952625802678108160e0 * t6216 * t53220 + 0.21252129031945914941e0 * t10653 * t2815 * t250 + 0.29967321450326855254e0 * t33838 * t2839 + 0.59934642900653710508e0 * t8511 * t9557 * t9701;
24440   t53235 = t792 * t3163;
24441   t53236 = t2471 * t53235;
24442   t53275 = 0.952625802678108160e0 * t6216 * t53213 - 0.85008516127783659765e0 * t6222 * t53236 + 0.21252129031945914941e0 * t10575 * t8535 - 0.28131861550297056947e0 * t34481 * t8507 + 0.37929099725894513314e0 * t10575 * t8538 + 0.25502554838335097929e1 * t23206 * t1528 * t2471 * t2819 + 0.13814944624710858551e0 * t2465 * t40512 + 0.21958039749871030452e0 * t2465 * t40997 - 0.79336666628232973116e0 * t20249 * t7222 * t53180 - 0.238156450669527040e0 * t45018 * t2085 - 0.11756685810716947640e1 * t33859 * t2819 * t250 + 0.90330597678095682346e-1 * t40418 * t9501 - 0.11252744620118822779e1 * t31168 * t9513 - 0.11252744620118822779e1 * t7287 * t40401 - 0.56263723100594113893e0 * t7287 * t40405 + 0.17489238971848963747e1 * t23095 * t40409 - 0.30124497567627698084e1 * t7287 * t40352 + 0.42504258063891829882e0 * t2465 * t40860;
24443   t53279 = t939 * t2833;
24444   t53280 = t2471 * t53279;
24445   t53309 = t7222 * t51089;
24446   t53312 = t3163 * t3163;
24447   t53314 = t1555 * t53312 * t242;
24448   t53321 = -0.67675321900558938528e0 * t27079 * t2471 * t40824 - 0.1428938704017162240e1 * t6222 * t53280 - 0.21958039749871030452e0 * t2465 * t40261 - 0.17001703225556731953e1 * t2055 * t44589 - 0.10979019874935515226e0 * t2055 * t45031 + 0.13538564572559691160e1 * t2055 * t45034 + 0.13814944624710858551e0 * t2055 * t45037 - 0.45514919671073415978e1 * t2055 * t45040 - 0.11756685810716947640e1 * t40320 * t9501 - 0.21958039749871030452e0 * t9663 * t9517 - 0.21958039749871030452e0 * t2465 * t40455 - 0.734005159174078464e0 * t245 * t33896 * t2854 - 0.54895099374677576129e-1 * t10601 * t8433 - 0.97994301469412365794e0 * t20746 * t33852 * t12229 + 0.14645644599676186814e2 * t9575 * t53309 - 0.1844001259520e1 * t575 * t53314 - 0.85008516127783659764e0 * t7216 * t51197 + 0.14533144731775861995e0 * t7287 * t40605;
24449   t53349 = t44736 * t2838;
24450   t53364 = -0.19594476351194912734e0 * t2465 * t41292 + 0.25502554838335097930e1 * t10578 * t12241 + 0.42504258063891829882e0 * t40711 * t2472 - 0.11986928580130742102e1 * t31153 * t2501 * t12252 + 0.42504258063891829882e0 * t44833 * t779 * t250 + 0.14983660725163427627e0 * t10650 * t8383 + 0.97972381755974563669e-1 * t34257 * t2819 * t250 - 0.11252744620118822779e1 * t6225 * t44570 + 0.17489238971848963748e1 * t20203 * t44581 + 0.25502554838335097929e1 * t2465 * t40292 - 0.922000629760e0 * t10696 * t11382 + 0.25502554838335097929e1 * t20390 * t53349 - 0.19746155567343206400e2 * t9554 * t53167 + 0.10696655587765469022e1 * t20370 * t53181 - 0.10979019874935515226e0 * t10575 * t8325 + 0.42504258063891829882e0 * t45189 * t2062 + 0.85008516127783659766e0 * t8524 * t10562 - 0.19594476351194912734e0 * t10578 * t8531;
24451   t53374 = t40137 * t3446;
24452   t53389 = t10565 * t12229;
24453   t53405 = 0.63050476377912629314e0 * t6238 * t7222 * t53219 - 0.85008516127783659766e0 * t6222 * t53220 - 0.1428938704017162240e1 * t6222 * t53349 + 0.952625802678108160e0 * t6216 * t53236 - 0.42504258063891829883e0 * t6222 * t53374 - 0.75858199451789026629e0 * t20358 * t53280 - 0.42504258063891829883e0 * t8527 * t10562 - 0.19594476351194912734e0 * t8499 * t10562 + 0.97972381755974563669e-1 * t10578 * t8535 - 0.12968797032847508210e0 * t33932 * t8507 + 0.17485326916752292327e0 * t10578 * t8538 + 0.476312901339054080e0 * t6216 * t53389 + 0.31525238188956314657e0 * t6238 * t13559 * t12229 - 0.42504258063891829882e0 * t6222 * t53389 - 0.75858199451789026628e0 * t20358 * t53349 + 0.85008516127783659764e0 * t9663 * t9558 + 0.238156450669527040e0 * t10700 * t8433 - 0.21958039749871030452e0 * t2055 * t44841;
24454   t53428 = t44097 * t2061;
24455   t53433 = t3134 * t3134;
24456   t53434 = t1523 * t53433;
24457   t53458 = 0.69074723123554292755e-1 * t8439 * t10756 - 0.2936020636696313856e1 * t9700 * t9701 * t3189 - 0.734005159174078464e0 * t245 * t10646 * t2867 + 0.952625802678108160e0 * t2455 * t1534 * t3189 * t779 + 0.476312901339054080e0 * t2455 * t1534 * t939 * t2815 + 0.59934642900653710508e0 * t9691 * t9759 - 0.12204703833063489012e1 * t1540 * t44097 * t3153 + 0.1645512963945267200e1 * t575 * t53428 + 0.476312901339054080e0 * t10696 * t12253 + 0.42504258063891829882e0 * t53434 * t250 - 0.22762551443898437297e2 * t4707 * t34328 * t12091 - 0.12204703833063489012e1 * t1540 * t2475 * t1545 * t12180 - 0.21968466899514280222e2 * t1540 * t10621 * t8506 - 0.238156450669527040e0 * t1549 * t13019 * t2838 + 0.15171639890357805325e1 * t2465 * t40367 - 0.238156450669527040e0 * t2058 * t44631 + 0.39188952702389825468e0 * t9721 * t44293 - 0.67675321900558938528e0 * t2058 * t44275;
24458   t53469 = t10660 * t8534;
24459   t53475 = t34233 * t8530;
24460   t53484 = t10642 * t8534;
24461   t53498 = t2044 * t779 * t3134;
24462   t53504 = t1534 * t3134 * t792;
24463   t53511 = 0.65874119249613091356e0 * t12152 * t941 - 0.19834166657058243280e0 * t16903 * t3442 * t48970 - 0.238156450669527040e0 * t1549 * t44441 * t2061 + 0.29967321450326855254e0 * t2058 * t44723 - 0.922000629760e0 * t575 * t53469 + 0.36614111499190467036e1 * t1540 * t34233 * t8506 - 0.4936538891835801600e1 * t575 * t53475 - 0.19834166657058243279e0 * t16903 * t33993 * t8506 + 0.26741638969413672554e0 * t4823 * t33993 * t8530 - 0.4936538891835801600e1 * t575 * t53484 + 0.39207562244901126197e2 * t1540 * t34328 * t8506 + 0.325024956416e0 * t245 * t10752 * t2867 + 0.59934642900653710508e0 * t2468 * t40429 + 0.29967321450326855254e0 * t2468 * t40441 + 0.11064007557120e2 * t7365 * t53498 - 0.1428938704017162240e1 * t10601 * t12253 + 0.952625802678108160e0 * t2455 * t53504 - 0.238156450669527040e0 * t1549 * t932 * t242 * t12187;
24464   t53543 = t44695 * t784;
24465   t53563 = 0.14983660725163427627e0 * t8386 * t10756 - 0.51005109676670195860e1 * t22983 * t53498 - 0.21958039749871030452e0 * t7365 * t53504 - 0.50613316194190507388e-1 * t13040 * t794 + 0.18968792869915364414e1 * t4707 * t10621 * t48960 - 0.92817332546461565657e1 * t16763 * t34005 * t16764 * t2833 + 0.20312390406477209506e2 * t4707 * t34005 * t12091 - 0.32672968537417605163e1 * t1540 * t10621 * t11338 + 0.26741638969413672554e0 * t4823 * t3442 * t11311 + 0.43916079499742060904e0 * t23462 * t932 * t44695 * t792 + 0.34003406451113463906e1 * t31000 * t2482 * t53543 + 0.22505489240237645558e1 * t31003 * t2475 * t45167 * t784 - 0.30343279780715610650e1 * t31000 * t2475 * t53543 + 0.85008516127783659766e0 * t10572 * t8531 - 0.42504258063891829882e0 * t10575 * t8531 + 0.29967321450326855254e0 * t8511 * t2471 * t40440 + 0.476312901339054080e0 * t6216 * t53374;
24466   t53570 = t7222 * t53279;
24467   t53580 = t1542 * t53312;
24468   t53584 = t2482 * t40859;
24469   t53597 = t34328 * t8530;
24470   t53606 = t34005 * t8530;
24471   t53612 = -0.42504258063891829883e0 * t10572 * t8535 + 0.56263723100594113894e0 * t34471 * t8507 - 0.75858199451789026629e0 * t10572 * t8538 - 0.18915142913373788794e1 * t20383 * t53570 + 0.25502554838335097930e1 * t20390 * t53280 - 0.11064007557120e2 * t34504 * t12264 + 0.650049912832e0 * t245 * t2501 * t12187 - 0.12204703833063489012e1 * t1540 * t53580 * t1545 - 0.1844001259520e1 * t575 * t53584 + 0.952625802678108160e0 * t9666 * t12991 - 0.54895099374677576130e-1 * t8439 * t10759 + 0.14983660725163427627e0 * t4823 * t3455 * t11311 + 0.238156450669527040e0 * t1549 * t34550 * t8530 - 0.17620679382074383663e2 * t575 * t53597 - 0.29967321450326855254e0 * t4823 * t34554 * t8530 - 0.13606156761889987933e2 * t1540 * t34005 * t8506 + 0.26206649088979828343e1 * t575 * t53606 + 0.14983660725163427627e0 * t4823 * t10675 * t8534;
24472   t53623 = t10621 * t8534;
24473   t53634 = t2044 * t12062;
24474   t53643 = t10642 * t8530;
24475   t53646 = t10664 * t8530;
24476   t53655 = t247 * t12062;
24477   t53658 = t3442 * t8534;
24478   t53666 = t10621 * t8530;
24479   t53672 = t3179 * t3134;
24480   t53679 = -0.7138880e1 * t2454 * t53655 + 0.10708320e2 * t53658 + 0.6370450956800e1 * t44833 * t3179 + 0.10708320e2 * t10653 * t12157 + 0.10145661348248508867e2 * t33971 * t12157 + 0.114668117222400e3 * t53666 + 0.3185225478400e1 * t10653 * t11413 + 0.5684735615810048000e1 * t34257 * t12157 + 0.42833280e2 * t2461 * t53672 - 0.76445411481600e2 * t7161 * t53672 - 0.76445411481600e2 * t7182 * t40306;
24481   t53684 = t2475 * t40859;
24482   t53693 = t45146 * t2061;
24483   t53700 = 0.22738942463240192000e2 * t7196 * t40306 + 0.114668117222400e3 * t10737 * t12157 + 0.6370450956800e1 * t53684 - 0.19111352870400e2 * t34138 * t12157 + 0.5684735615810048000e1 * t10737 * t11413 + 0.22738942463240192000e2 * t7174 * t53672 - 0.42833280e2 * t53643 - 0.7138880e1 * t53693 + 0.10708320e2 * t3434 * t11413 + 0.42833280e2 * t2475 * t40306 - 0.68216827389720576000e2 * t53597;
24484   t53707 = -t577 * t53133 * t242;
24485   t53709 = t1514 * t53433;
24486   t53716 = t569 * t53133;
24487   t53721 = t53580 * t242;
24488   t53723 = -0.19111352870400e2 * t53484 + 0.10708320e2 * t53646 - 0.7138880e1 * t53314 + 0.1784720e1 * t53707 - 0.7138880e1 * t53709 * t247 - 0.19111352870400e2 * t53475 - 0.3569440e1 * t53469 + 0.6370450956800e1 * t53434 * t247 + 0.1784720e1 * t53716 * t247 - 0.7138880e1 * t45098 * t3179 + 0.6370450956800e1 * t53721;
24489   t53732 = t34309 * t8530;
24490   t53736 = t10664 * t8534;
24491   t53742 = -0.68216827389720576000e2 * t33859 * t12157 - 0.19111352870400e2 * t10691 * t11413 - 0.42833280e2 * t10691 * t12157 - 0.3569440e1 * t10695 * t11413 + 0.5684735615810048000e1 * t53732 + 0.10145661348248508867e2 * t53606 + 0.5684735615810048000e1 * t53623 + 0.3185225478400e1 * t53736 + 0.6370450956800e1 * t53428 - 0.7138880e1 * t53584 + 0.6370450956800e1 * t2461 * t53655;
24492   t53754 = -0.119078225334763520e0 * t1549 * t10671 * t8534 + 0.15762619094478157328e0 * t4838 * t34376 * t8506 - 0.21252129031945914941e0 * t1549 * t34376 * t8530 + 0.14683899485061986386e1 * t575 * t53623 - 0.476312901339054080e0 * t9691 * t9777 - 0.238156450669527040e0 * t2468 * t40697 + 0.59934642900653710508e0 * t2058 * t44461 + 0.2766001889280e1 * t34390 * t12264 + 0.42504258063891829882e0 * t7365 * t53634 + 0.650049912832e0 * t245 * t44814 * t792 - 0.29967321450326855254e0 * t4823 * t3450 * t11311 - 0.11064007557120e2 * t575 * t53643 + 0.2766001889280e1 * t575 * t53646 - 0.1428938704017162240e1 * t7365 * t1534 * t939 * t2819 - 0.67675321900558938528e0 * t2468 * t40992 - 0.258304e0 * t245 * t583 * (t53679 + t53700 + t53723 + t53742) - 0.17001703225556731953e1 * t31271 * t12950 - 0.17001703225556731953e1 * t7216 * t1528 * t9557 * t779;
24493   t53795 = t10585 * t12229;
24494   t53798 = 0.461000314880e0 * t53716 * t250 + 0.65874119249613091357e0 * t13047 * t794 - 0.238156450669527040e0 * t1549 * t12181 * t3446 - 0.61023519165317445059e0 * t1540 * t10664 * t11338 + 0.18968792869915364414e1 * t4707 * t34309 * t12091 - 0.32672968537417605163e1 * t1540 * t34309 * t8506 - 0.119078225334763520e0 * t1549 * t3455 * t11324 + 0.97972381755974563669e-1 * t10737 * t2815 * t250 + 0.27629889249421717102e0 * t26903 * t44800 + 0.43916079499742060904e0 * t26758 * t44804 + 0.29066289463551723990e0 * t27035 * t44954 - 0.39188952702389825468e0 * t26758 * t44934 - 0.1844001259520e1 * t2455 * t53634 + 0.43916079499742060904e0 * t31008 * t40323 - 0.10122663238838101478e0 * t30488 * t9517 + 0.29066289463551723990e0 * t31013 * t41025 + 0.27629889249421717102e0 * t9475 * t9759 - 0.18915142913373788795e1 * t20383 * t53795;
24495   t53841 = 0.63050476377912629316e0 * t6238 * t7222 * t53235 + 0.1645512963945267200e1 * t575 * t53721 + 0.69074723123554292753e-1 * t10601 * t8383 + 0.75858199451789026627e0 * t2465 * t40370 + 0.13538564572559691160e1 * t2465 * t40373 - 0.10979019874935515226e0 * t2465 * t40241 - 0.29967321450326855254e0 * t8451 * t10756 - 0.1844001259520e1 * t53709 * t250 - 0.21958039749871030452e0 * t3144 * t3191 + 0.822756481972633600e0 * t575 * t53736 + 0.14683899485061986386e1 * t575 * t53732 - 0.21252129031945914941e0 * t1549 * t3442 * t11324 - 0.50613316194190507389e-1 * t12143 * t941 + 0.15762619094478157329e0 * t4838 * t3442 * t48985 + 0.36614111499190467036e1 * t1540 * t10642 * t11338 - 0.21958039749871030452e0 * t12211 * t941 - 0.10979019874935515226e0 * t12140 * t941 + 0.16879116930178234168e1 * t20353 * t53795;
24496   t53845 = t3189 * t3189;
24497   t53884 = 0.45165298839047841173e-1 * t33971 * t2819 * t250 + 0.650049912832e0 * t245 * t1568 * t53845 + 0.461000314880e0 * t575 * t53707 + 0.21958039749871030452e0 * t2055 * t44249 - 0.119078225334763520e0 * t10650 * t8433 - 0.12751277419167548965e1 * t10691 * t2815 * t250 + 0.43916079499742060904e0 * t23462 * t12990 * t786 + 0.27629889249421717102e0 * t30484 * t41268 - 0.10122663238838101478e0 * t30488 * t9658 + 0.238156450669527040e0 * t8451 * t10759 + 0.76507664515005293790e1 * t10737 * t2819 * t250 - 0.10979019874935515226e0 * t2465 * t40459 - 0.17001703225556731953e1 * t9663 * t9521 - 0.17001703225556731953e1 * t2465 * t40307 - 0.85008516127783659764e0 * t2465 * t40311 + 0.33758233860356468336e1 * t7287 * t40505 - 0.45514919671073415976e1 * t2465 * t40314 - 0.21958039749871030452e0 * t9663 * t9658;
24498   t53927 = -0.238156450669527040e0 * t41002 * t2494 + 0.1645512963945267200e1 * t575 * t53684 + 0.2766001889280e1 * t10601 * t11382 - 0.119078225334763520e0 * t8386 * t10759 - 0.1844001259520e1 * t575 * t53693 + 0.238156450669527040e0 * t1549 * t3450 * t11324 + 0.2766001889280e1 * t575 * t53658 - 0.476312901339054080e0 * t1549 * t3164 * t12975 + 0.29619233351014809600e2 * t575 * t53666 - 0.13069187414967042065e2 * t9585 * t53309 + 0.21252129031945914941e0 * t8527 * t10566 - 0.42504258063891829882e0 * t8524 * t10566 - 0.75858199451789026628e0 * t8524 * t10569 + 0.97972381755974563669e-1 * t8499 * t10566 + 0.37929099725894513314e0 * t8527 * t10569 + 0.17485326916752292327e0 * t8499 * t10569 + 0.31525238188956314657e0 * t6238 * t7222 * t939 * t2846 - 0.97994301469412365794e0 * t20746 * t9581 * t53279;
24499   t53965 = 0.16879116930178234168e1 * t20353 * t53570 + 0.42504258063891829882e0 * t2055 * t45113 - 0.28131861550297056947e0 * t26844 * t10586 - 0.12968797032847508210e0 * t26633 * t10586 + 0.75875171479661457657e1 * t9580 * t9581 * t51089 + 0.56263723100594113894e0 * t26864 * t10586 - 0.10979019874935515226e0 * t12934 * t794 + 0.58735597940247945544e1 * t9593 * t53167 - 0.67675321900558938528e0 * t33841 * t2839 + 0.59934642900653710508e0 * t7296 * t12126 - 0.10979019874935515226e0 * t2055 * t44323 - 0.85008516127783659765e0 * t2055 * t44597 + 0.15171639890357805326e1 * t2055 * t44794 + 0.14533144731775861996e0 * t6225 * t44778 + 0.21958039749871030452e0 * t8524 * t10770 + 0.39188952702389825468e0 * t40204 * t9501 + 0.19594476351194912734e0 * t40415 * t9501 + 0.39188952702389825468e0 * t9475 * t40804;
24500   t53970 = my_piecewise3(t235, 0, t53186 + t53231 + t53275 + t53321 + t53364 + t53405 + t53458 + t53511 + t53563 + t53612 + t53754 + t53798 + t53841 + t53884 + t53927 + t53965);
24501   t53971 = my_piecewise3(t234, 0, t53970);
24502   t53973 = -0.2e1 * t12062 * t945 - 0.2e1 * t12273 * t926 - 0.2e1 * t12884 * t798 - 0.2e1 * t13097 * t779 - t233 * t53971 - t252 * t53133 - t2815 * t3481 - t2873 * t3423 - 0.4e1 * t3134 * t3195;
24503   t53977 = t3197 * t3197;
24504   t53984 = t3487 * t2875;
24505   t53994 = -0.2e1 * t2899 * t3523 + 0.4e1 * t3220 * t3242 - 0.50e2 / 0.81e2 * t34760 * t12326 + 0.10e2 / 0.9e1 * t3225 * t13173 + 0.500e3 / 0.81e2 * t2150 * t10892 * t2879 + 0.5e1 / 0.9e1 * t961 * t962 * t53973 - 0.20e2 / 0.9e1 * t961 * t3511 * t53977 - 0.100e3 / 0.27e2 * t12331 * t34767 + t2899 * t3527 - 0.10e2 / 0.3e1 * t961 * t13734 * t53984 - t3507 * t2919 + params->c1 * t53973 * t279 + 0.100e3 / 0.81e2 * t12331 * t34788;
24506   t54028 = t3483 * t2875;
24507   t54032 = -0.2000e4 / 0.81e2 * t2150 * t10881 * t2879 + 0.2e1 * t959 * t12368 + 0.40e2 / 0.9e1 * t7442 * t12339 * t24 + 0.40e2 / 0.9e1 * t29964 * t13152 + 0.100e3 / 0.27e2 * t31566 * t41331 * t68 + 0.4e1 * t959 * t2570 * t2875 + 0.100e3 / 0.81e2 * t617 * t2557 * t13099 * t804 - 0.20e2 / 0.9e1 * t961 * t3511 * t947 * t12275 - 0.40e2 / 0.9e1 * t3225 * t13164 - 0.200e3 / 0.27e2 * t34813 * t2577 * t12339 - 0.10e2 / 0.9e1 * t45366 * t3222 + 0.2e1 * t12322 * t968 + 0.10e2 / 0.9e1 * t961 * t3511 * t54028;
24508   t54042 = t3235 * t3235;
24509   t54055 = t9905 * t24 * t3197;
24510   t54062 = t10877 * t12275;
24511   t54072 = t47811 * t2875;
24512   t54075 = t53984 * t285;
24513   t54081 = -0.40e2 / 0.3e1 * t7482 * t54055 - 0.200e3 / 0.27e2 * t34891 * t2916 - 0.100e3 / 0.9e1 * t34894 * t2916 - 0.4e1 * t1643 * t54062 + t449 * t618 * t53973 * t285 - 0.40e2 / 0.3e1 * t7490 * t54055 - 0.20e2 / 0.9e1 * t7505 * t54055 + 0.2e1 * t1643 * t54072 - t4966 * t54075 - 0.100e3 / 0.27e2 * t34866 * t2916 + 0.20e2 / 0.9e1 * t45431 * t826;
24514   t54107 = 0.50e2 / 0.27e2 * t34878 * t2916 + 0.50e2 / 0.27e2 * t34882 * t2916 + 0.25e2 / 0.81e2 * t34845 * t2916 - 0.2e1 * t1655 * t54062 + 0.10e2 / 0.9e1 * t45440 * t826 + t1655 * t54072 - 0.2e1 * t1263 * t1654 * t53977 * t285 - 0.6e1 * t4953 * t54075 - 0.25e2 / 0.81e2 * t34872 * t2916 - 0.6e1 * t4942 * t54075 - 0.4e1 * t449 * t1630 * t53977 * t285;
24515   t54109 = my_piecewise3(t277, (t53994 + t54032) * t283 + 0.2e1 * t13176 * t823 * t283 + t3518 * t2910 * t283 + t3518 * t2912 * t283 + 0.2e1 * t54042 * t283 + 0.4e1 * t3237 * t3236 + 0.2e1 * t967 * t12349 + t3520 * t2910 * t283 + t3520 * t2912 * t283, t54081 + t54107);
24516   t54111 = t3209 * t3209;
24517   t54116 = -0.2e1 * t510 * t3499 * t2925 - 0.8e1 * t510 * t3109 * t3248 - 0.8e1 * t510 * t3210 * t3248 - 0.2e1 * t510 * t3400 * t2925 + 0.4e1 * t510 * t811 * t13123 * t288 + 0.2e1 * t510 * t2890 * t3498 * t288 - 0.16e2 * t2417 * t3405 * t2890 - 0.4e1 * t1423 * t52957 + 0.16e2 * t2417 * t43731 * t814 - 0.24e2 * t7051 * t10817 * t2774 + 0.1174e1 * t54109 - 0.16e2 * t1423 * t270 * t54111 * t288;
24518   t54128 = t9829 * t3209;
24519   t54136 = t12821 * t814;
24520   t54152 = 0.96e2 * t10449 * t2418 * t3209 * t814 - 0.16e2 * t1423 * t2793 * t288 * t3400 - 0.64e2 * t12004 * t2417 * t2418 + 0.2e1 * t1423 * t2774 * t3534 + 0.8e1 * t1423 * t2925 * t3401 + 0.8e1 * t2417 * t45463 * t814 + 0.4e1 * t288 * t510 * t54111 - t2893 * t3534 * t510 + 0.32e2 * t10456 * t54128 - 0.8e1 * t12824 * t9344 + 0.8e1 * t1423 * t54136 - 0.8e1 * t510 * t54128;
24521   t54156 = t3405 * t2774;
24522   t54159 = t2418 * t12302;
24523   t54185 = 0.12e2 * t10470 * t2774 * t7051 - 0.4e1 * t12000 * t510 * t971 + 0.32e2 * t12821 * t2417 * t811 - 0.2e1 * t13204 * t510 * t814 - 0.8e1 * t2417 * t45512 * t814 + 0.24e2 * t10449 * t52957 - 0.16e2 * t10456 * t54159 - 0.16e2 * t11991 * t34953 + 0.16e2 * t13131 * t9344 - 0.96e2 * t34928 * t54156 + 0.12e2 * t4566 * t54156 + 0.4e1 * t510 * t54159;
24524   t54241 = 0.3e1 / 0.100e3 * t3488 * t2884 + t1609 * t53977 * t266 / 0.50e2 - t1609 * t54028 * t266 / 0.100e3 + 0.3e1 / 0.100e3 * t3484 * t12285 - 0.3e1 / 0.50e2 * t56 * t53977 * t3489 + t1609 * t950 * t12275 / 0.50e2 - 0.3e1 / 0.50e2 * t948 * t3489 * t12275 + t45652 * t3201 / 0.30e2 - 0.2e1 / 0.15e2 * t9805 * t45612 - t3484 * t2879 * t1611 / 0.108e3 - t34714 * t12288 / 0.324e3;
24525   t54269 = 0.5e1 / 0.108e3 * t3488 * t2879 * t33558 - t604 * t53973 * t266 / 0.100e3 - t45633 * t3201 / 0.90e2 + t41582 * t45612 / 0.15e2 + t33564 * t12288 / 0.54e2 - 0.5e1 / 0.162e3 * t33573 * t12288 + t9818 * t45612 / 0.45e2 - 0.3e1 / 0.50e2 * t3488 * t41532 * t266 + t56 * t53973 * t266 / 0.100e3 + t4897 * t53984 * t266 / 0.100e3 + t34708 * t12288 / 0.324e3;
24526   t54279 = 0.16e2 * t2417 * t43724 * t814 - 0.4e1 * t510 * t12303 * t971 - 0.8e1 * t510 * t12004 * t971 + 0.8e1 * t2417 * t10817 * t2893 - 0.4e1 * t510 * t12827 * t829 - t276 * t54109 - 0.48e2 * t10449 * t54136 - 0.4e1 * t510 * t13124 * t829 - 0.4e1 * t510 * t954 * t12377 - 0.4e1 * t2417 * t10470 * t2893 + 0.2e1 * t510 * t269 * (t54241 + t54269) * t288 + 0.96e2 * t7051 * t3405 * t814 * t811;
24527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24528     v4sigma2lapl2[17] = -0.3e1 / 0.8e1 * t846 * t913 * (t54116 + t54152 + t54185 + t54279) * t302 + 0.18554625000000000000e1 * t45725 * t840 - 0.41747906250000000000e1 * t10912 * t2938 - 0.46386562500000000000e0 * t10912 * t2943 + 0.11326164200960098622e2 * t7526 * t3537 * t2947 * t293 * t1690;
24529 
24530   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24531     v4sigma2lapltau[0] = 0.0e0;
24532 
24533   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24534     v4sigma2lapltau[1] = 0.0e0;
24535 
24536   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24537     v4sigma2lapltau[2] = 0.0e0;
24538 
24539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24540     v4sigma2lapltau[3] = 0.0e0;
24541 
24542   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24543     v4sigma2lapltau[4] = 0.0e0;
24544 
24545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24546     v4sigma2lapltau[5] = 0.0e0;
24547 
24548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24549     v4sigma2lapltau[6] = 0.0e0;
24550 
24551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24552     v4sigma2lapltau[7] = 0.0e0;
24553 
24554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24555     v4sigma2lapltau[8] = 0.0e0;
24556 
24557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24558     v4sigma2lapltau[9] = 0.0e0;
24559 
24560   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24561     v4sigma2lapltau[10] = 0.0e0;
24562 
24563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24564     v4sigma2lapltau[11] = 0.0e0;
24565 
24566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24567     v4sigma2lapltau[12] = 0.0e0;
24568 
24569   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24570     v4sigma2lapltau[13] = 0.0e0;
24571 
24572   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24573     v4sigma2lapltau[14] = 0.0e0;
24574 
24575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24576     v4sigma2lapltau[15] = 0.0e0;
24577 
24578   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24579     v4sigma2lapltau[16] = 0.0e0;
24580 
24581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24582     v4sigma2lapltau[17] = 0.0e0;
24583 
24584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24585     v4sigma2lapltau[18] = 0.0e0;
24586 
24587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24588     v4sigma2lapltau[19] = 0.0e0;
24589 
24590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24591     v4sigma2lapltau[20] = 0.0e0;
24592 
24593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24594     v4sigma2lapltau[21] = 0.0e0;
24595 
24596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24597     v4sigma2lapltau[22] = 0.0e0;
24598 
24599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24600     v4sigma2lapltau[23] = 0.0e0;
24601 
24602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24603     v4sigma2tau2[0] = 0.0e0;
24604 
24605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24606     v4sigma2tau2[1] = 0.0e0;
24607 
24608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24609     v4sigma2tau2[2] = 0.0e0;
24610 
24611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24612     v4sigma2tau2[3] = 0.0e0;
24613 
24614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24615     v4sigma2tau2[4] = 0.0e0;
24616 
24617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24618     v4sigma2tau2[5] = 0.0e0;
24619 
24620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24621     v4sigma2tau2[6] = 0.0e0;
24622 
24623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24624     v4sigma2tau2[7] = 0.0e0;
24625 
24626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24627     v4sigma2tau2[8] = 0.0e0;
24628 
24629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24630     v4sigma2tau2[9] = 0.0e0;
24631 
24632   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24633     v4sigma2tau2[10] = 0.0e0;
24634 
24635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24636     v4sigma2tau2[11] = 0.0e0;
24637 
24638   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24639     v4sigma2tau2[12] = 0.0e0;
24640 
24641   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24642     v4sigma2tau2[13] = 0.0e0;
24643 
24644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24645     v4sigma2tau2[14] = 0.0e0;
24646 
24647   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24648     v4sigma2tau2[15] = 0.0e0;
24649 
24650   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24651     v4sigma2tau2[16] = 0.0e0;
24652 
24653   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24654     v4sigma2tau2[17] = 0.0e0;
24655 
24656   t54314 = t6573 * t1107;
24657   t54319 = t45892 * t664;
24658   t54322 = t3694 * t13247;
24659   t54323 = t32100 * t2978;
24660   t54344 = 0.1e1 / t27 / t1040;
24661   t54345 = t48155 * t54344;
24662   t54349 = 0.9e1 / 0.2e1 * t6573 * t12453 - 0.5e1 / 0.648e3 * t41767 * t6536 * t3277 * t681 + t37701 * t6536 * t3277 * t676 / 0.162e3 + t45832 * t49501 / 0.648e3 - 0.5e1 / 0.2e1 * t45906 * t12445 - t54314 * t12449 / 0.288e3 + t41915 * t12467 / 0.648e3 + 0.25e2 / 0.4e1 * t45891 * t54319 + 0.5e1 / 0.576e3 * t54322 * t54323 - 0.5e1 / 0.2e1 * t41865 * t54319 - t37701 * t54323 / 0.192e3 + t51726 * t13255 / 0.324e3 + t41890 * t12467 / 0.648e3 + 0.105e3 / 0.2e1 * t45843 * t45844 * t681 - 0.45e2 * t10018 * t45844 * t676 - 0.45e2 / 0.2e1 * t6554 * t45867 * t681 + t49522 * t54345 * t89 / 0.839808e6;
24663   t54352 = t345 * t5096;
24664   t54371 = t2239 * t857;
24665   t54394 = 0.5e1 / 0.5832e4 * t12456 * t12472 + 0.5e1 / 0.5832e4 * t54352 * t375 * t6579 + t48156 * t54344 * t49531 / 0.419904e6 - 0.5e1 / 0.972e3 * t10032 * t49479 * t54352 - t10032 * t49483 * t54345 / 0.279936e6 - t51625 * t3278 / 0.972e3 - t13235 * t49476 / 0.972e3 - t12425 * t51650 / 0.576e3 + t54371 * t2979 / 0.864e3 + 0.5e1 / 0.12e2 * t2239 * t3271 * t12461 - t51646 * t3278 / 0.972e3 + 0.9e1 * t5203 * t13252 + 0.9e1 * t1091 * t27722 * t13248 - 0.45e2 / 0.2e1 * t45835 * t12439 + 0.18e2 * t10006 * t12442 + t12425 * t51706 / 0.1728e4 + 0.5e1 / 0.5832e4 * t12434 * t12472 - 0.15e2 * t17523 * t13249;
24666   t54395 = t54349 + t54394;
24667   t54420 = t3312 * t697;
24668   t54424 = t6656 * t42061;
24669   t54438 = -0.12751277419167548965e1 * t1784 * t45986 - 0.16468529812403272839e0 * t1784 * t46033 + 0.20722416937066287827e0 * t2273 * t42159 + 0.21799717097663792993e0 * t5399 * t46037 - 0.12751277419167548965e1 * t6725 * t46406 * t691 + 0.21252129031945914941e0 * t46172 * t1791 + 0.47287857283434471986e0 * t5504 * t6656 * t54420 + 0.10984233449757140111e2 * t8850 * t54424 - 0.2766001889280e1 * t9043 * t13390 + 0.325024956416e0 * t107 * t46562 * t697 + 0.44950982175490282881e0 * t6717 * t12531 - 0.15062248783813849042e1 * t5399 * t46587 + 0.45165298839047841173e-1 * t46590 * t1791;
24670   t54441 = t873 * t3011;
24671   t54442 = t2279 * t54441;
24672   t54445 = t42086 * t3304;
24673   t54450 = t2279 * t54420;
24674   t54453 = t2279 * t42061;
24675   t54462 = t10242 * t9027;
24676   t54473 = 0.87446194859244818738e0 * t18003 * t46584 - 0.12751277419167548965e1 * t5394 * t54442 - 0.11378729917768353994e1 * t18063 * t54445 + 0.12751277419167548965e1 * t1784 * t46624 + 0.714469352008581120e0 * t5388 * t54450 + 0.8298005667840e1 * t8893 * t54453 - 0.63756387095837744824e0 * t5394 * t54450 - 0.14809616675507404800e2 * t8896 * t54453 + 0.44051698455185959158e1 * t8877 * t54453 + 0.80224916908241017663e0 * t18102 * t54462 + 0.38253832257502646895e1 * t18277 * t54445 + 0.63756387095837744823e0 * t2273 * t42828 + 0.63756387095837744823e0 * t8859 * t10239 - 0.33837660950279469264e0 * t1787 * t46469;
24677   t54482 = t10258 * t12631;
24678   t54500 = t10238 * t12631;
24679   t54508 = 0.32937059624806545679e0 * t2273 * t43022 - 0.357234676004290560e0 * t9017 * t10280 - 0.14699145220411854869e1 * t18264 * t32564 * t12631 + 0.25318675395267351253e1 * t18077 * t54482 + 0.16879116930178234169e1 * t5399 * t46227 + 0.8298005667840e1 * t10155 * t12483 - 0.16468529812403272839e0 * t10155 * t8953 - 0.357234676004290560e0 * t2276 * t42857 - 0.119078225334763520e0 * t45941 * t1814 - 0.98018905612252815491e1 * t8904 * t54424 + 0.44950982175490282881e0 * t7822 * t10238 * t9027 + 0.714469352008581120e0 * t5388 * t54500 + 0.47287857283434471985e0 * t5504 * t13358 * t12631 - 0.63756387095837744824e0 * t5394 * t54500;
24680   t54512 = t3333 * t689;
24681   t54513 = t2279 * t54512;
24682   t54527 = t1137 * t2279 * t2982;
24683   t54544 = 0.44950982175490282881e0 * t7822 * t2279 * t42137 + 0.714469352008581120e0 * t5388 * t54513 - 0.16468529812403272839e0 * t10272 * t8941 - 0.12751277419167548965e1 * t10272 * t8947 + 0.29391714526792369101e0 * t43088 * t8929 - 0.84395584650891170840e0 * t32696 * t8937 + 0.11378729917768353994e1 * t10272 * t8917 + 0.58783429053584738202e0 * t21416 * t54527 - 0.2202015477522235392e1 * t9046 * t46283 * t697 - 0.357234676004290560e0 * t10285 * t8953 - 0.84395584650891170843e0 * t5399 * t46041 + 0.44950982175490282881e0 * t9017 * t10192 - 0.11064007557120e2 * t45982 * t2986 + 0.63756387095837744823e0 * t10217 * t2982 * t112;
24684   t54563 = t3320 * t689;
24685   t54564 = t2279 * t54563;
24686   t54581 = 0.975074869248e0 * t107 * t9100 * t3333 + 0.38253832257502646895e1 * t10275 * t12678 + 0.29391714526792369101e0 * t46383 * t12483 - 0.11756685810716947640e1 * t46566 * t2986 - 0.84395584650891170840e0 * t28206 * t10259 + 0.11378729917768353994e1 * t8859 * t10243 - 0.10151298285083840779e1 * t24603 * t2279 * t42504 - 0.89901964350980565762e0 * t17987 * t54564 + 0.89901964350980565762e0 * t7822 * t2279 * t42489 - 0.59502499971174729837e0 * t18098 * t6656 * t54563 + 0.80224916908241017663e0 * t18102 * t54564 - 0.89901964350980565762e0 * t17987 * t54462 - 0.2143408056025743360e1 * t5394 * t54445 + 0.1428938704017162240e1 * t5388 * t54442;
24687   t54611 = 0.12751277419167548965e1 * t46178 * t1791 + 0.21252129031945914941e0 * t1784 * t46473 + 0.22757459835536707988e1 * t2273 * t42153 + 0.52455980750256876981e0 * t8813 * t42378 + 0.20307846858839536740e1 * t2273 * t42156 + 0.20722416937066287827e0 * t1784 * t45968 + 0.32937059624806545678e0 * t1784 * t45972 + 0.11378729917768353994e1 * t1784 * t46189 - 0.29391714526792369101e0 * t1784 * t46192 + 0.32937059624806545678e0 * t10269 * t8922 - 0.16468529812403272839e0 * t10272 * t8922 + 0.29391714526792369101e0 * t46540 * t7767 + 0.45165298839047841173e-1 * t46119 * t684 * t112 - 0.58783429053584738203e0 * t46175 * t1791;
24688   t54639 = -t401 * t54395 * t104;
24689   t54647 = -0.12751277419167548965e1 * t10269 * t8867 + 0.63756387095837744823e0 * t42213 * t2280 - 0.84395584650891170840e0 * t6689 * t42792 + 0.11378729917768353994e1 * t2273 * t42146 + 0.16879116930178234168e1 * t21787 * t3862 * t10258 * t684 + 0.21799717097663792993e0 * t6689 * t43016 - 0.25502554838335097930e1 * t6725 * t54527 + 0.32937059624806545679e0 * t10269 * t8941 + 0.25502554838335097930e1 * t10269 * t8947 - 0.17635028716075421460e1 * t42799 * t8929 + 0.16879116930178234168e1 * t32402 * t8937 + 0.461000314880e0 * t399 * t54639 - 0.357234676004290560e0 * t42880 * t2302 - 0.59502499971174729838e0 * t18098 * t10258 * t9027;
24690   t54669 = t393 * t54395;
24691   t54683 = -0.28372714370060683191e1 * t18106 * t54482 + 0.94575714566868943972e0 * t5504 * t6656 * t54441 + 0.63756387095837744823e0 * t42675 * t860 * t112 + 0.56906378609746093244e1 * t8899 * t8900 * t42061 + 0.21252129031945914941e0 * t46085 * t684 * t112 + 0.47287857283434471985e0 * t5504 * t6656 * t54512 - 0.63756387095837744824e0 * t5394 * t54513 - 0.12751277419167548965e1 * t8859 * t10246 + 0.461000314880e0 * t54669 * t112 + 0.23916119461575365556e1 * t107 * t46324 * t697 - 0.22757459835536707989e1 * t10269 * t8917 - 0.12751277419167548965e1 * t33072 * t12678 - 0.16468529812403272839e0 * t1784 * t46504 - 0.32937059624806545678e0 * t8859 * t10115;
24692   t54693 = t10242 * t684;
24693   t54697 = t10097 * t8866;
24694   t54715 = t1143 * t873 * t2982;
24695   t54724 = -0.32937059624806545678e0 * t2273 * t42559 - 0.922000629760e0 * t46556 * t2986 - 0.32937059624806545678e0 * t2273 * t42093 + 0.25502554838335097930e1 * t6725 * t3840 * t54693 - 0.14809616675507404800e2 * t399 * t54697 + 0.8298005667840e1 * t6728 * t1773 * t3281 * t684 + 0.714469352008581120e0 * t2263 * t1143 * t3281 * t697 - 0.38906391098542524630e0 * t32703 * t8937 + 0.89901964350980565762e0 * t2276 * t42490 + 0.98811178874419637034e0 * t32302 * t12597 - 0.32937059624806545678e0 * t6728 * t54715 + 0.20722416937066287826e0 * t10155 * t9028 - 0.75919974291285761083e-1 * t12575 * t875 - 0.16468529812403272839e0 * t2992 * t3335;
24696   t54733 = t42590 * t2279;
24697   t54736 = t10077 * t8866;
24698   t54762 = 0.714469352008581120e0 * t10149 * t8953 - 0.357234676004290560e0 * t1158 * t3313 * t12549 - 0.357234676004290560e0 * t1158 * t3012 * t13274 + 0.2468269445917900800e1 * t399 * t54733 + 0.2468269445917900800e1 * t399 * t54736 - 0.63756387095837744824e0 * t1158 * t3300 * t12549 - 0.89901964350980565762e0 * t2263 * t3802 * t3320 * t684 - 0.10151298285083840779e1 * t2276 * t43008 - 0.38253832257502646895e1 * t32302 * t12483 - 0.16468529812403272839e0 * t2273 * t42219 - 0.75919974291285761083e-1 * t10275 * t8922 - 0.12751277419167548965e1 * t6725 * t1137 * t10238 * t684 - 0.16468529812403272839e0 * t2273 * t42364 - 0.12751277419167548965e1 * t2273 * t42367;
24699   t54790 = t46074 * t1790;
24700   t54797 = 0.29391714526792369101e0 * t8813 * t42334 + 0.714469352008581120e0 * t1158 * t3308 * t12549 + 0.32937059624806545679e0 * t45982 * t1814 + 0.975074869248e0 * t107 * t2309 * t12524 + 0.67692822862798455803e0 * t1784 * t46205 - 0.16468529812403272839e0 * t12635 * t875 - 0.38253832257502646894e1 * t46371 * t8993 - 0.16468529812403272839e0 * t13307 * t699 + 0.29391714526792369101e0 * t46338 * t8993 - 0.119078225334763520e0 * t1158 * t46259 * t1790 + 0.12751277419167548965e1 * t1158 * t13341 * t2658 + 0.822756481972633600e0 * t399 * t54790 - 0.2143408056025743360e1 * t10155 * t12597 + 0.1428938704017162240e1 * t2263 * t54715;
24701   t54801 = t13341 * t1790;
24702   t54804 = t3300 * t8866;
24703   t54807 = t13313 * t1790;
24704   t54810 = t8965 * t10238;
24705   t54838 = -0.714469352008581120e0 * t1158 * t13337 * t2658 - 0.11064007557120e2 * t399 * t54801 + 0.8298005667840e1 * t399 * t54804 + 0.29619233351014809600e2 * t399 * t54807 - 0.2766001889280e1 * t399 * t54810 - 0.357234676004290560e0 * t1158 * t866 * t104 * t12524 + 0.44950982175490282881e0 * t3771 * t3012 * t13287 + 0.63756387095837744823e0 * t10272 * t8867 + 0.29391714526792369101e0 * t10275 * t8867 - 0.22757459835536707989e1 * t1784 * t46166 - 0.357234676004290560e0 * t1158 * t12515 * t3304 + 0.20722416937066287827e0 * t2992 * t3322 + 0.47287857283434471986e0 * t3793 * t3300 * t1154 * t3037 - 0.94575714566868943973e0 * t3793 * t13341 * t11037;
24706   t54861 = t46065 * t1790;
24707   t54879 = -0.21968466899514280222e2 * t1149 * t13313 * t3001 + 0.10984233449757140111e2 * t1149 * t10097 * t12612 - 0.2766001889280e1 * t2263 * t1773 * t12475 + 0.44950982175490282881e0 * t1787 * t46284 + 0.714469352008581120e0 * t2263 * t1143 * t3333 * t684 + 0.44950982175490282881e0 * t2276 * t42447 - 0.119078225334763520e0 * t1158 * t13345 * t2658 - 0.922000629760e0 * t399 * t54861 - 0.61023519165317445059e0 * t1149 * t46074 * t3001 + 0.65874119249613091356e0 * t21590 * t866 * t3304 * t684 + 0.41444833874132575653e0 * t28070 * t42928 + 0.65874119249613091356e0 * t28255 * t42932 - 0.15183994858257152217e0 * t28076 * t10115 + 0.43599434195327585986e0 * t28479 * t42861;
24708   t54895 = t3027 * t3281;
24709   t54922 = t46131 * t1790;
24710   t54926 = -0.57334058611200e2 * t6602 * t54895 + 0.17054206847430144000e2 * t32726 * t8916 + 0.32124960e2 * t2283 * t42145 + 0.17054206847430144000e2 * t32369 * t860 * t684 * t109 + 0.32124960e2 * t2269 * t54895 - 0.10708320e2 * t9042 * t13322 + 0.10145661348248508867e2 * t46119 * t3027 - 0.57334058611200e2 * t10145 * t12490 + 0.114668117222400e3 * t54807 - 0.68216827389720576000e2 * t46103 * t3027 + 0.32124960e2 * t54804 - 0.10708320e2 * t54810 - 0.42833280e2 * t54801 - 0.57334058611200e2 * t54697 + 0.9555676435200e1 * t54736 - 0.68216827389720576000e2 * t54922 + 0.3185225478400e1 * t46085 * t3027;
24711   t54930 = t2290 * t42827;
24712   t54942 = t46106 * t1790;
24713   t54944 = t10105 * t8866;
24714   t54958 = 0.9555676435200e1 * t54733 - 0.42833280e2 * t13325 * t3027 - 0.10708320e2 * t54930 - 0.10708320e2 * t2262 * t109 * t12475 - 0.3569440e1 * t54861 + 0.9555676435200e1 * t10217 * t12490 - 0.57334058611200e2 * t6623 * t42145 + 0.32124960e2 * t3292 * t12490 + 0.10145661348248508867e2 * t54942 + 0.17054206847430144000e2 * t54944 + 0.114668117222400e3 * t13334 * t3027 + 0.17054206847430144000e2 * t10200 * t12490 + 0.3185225478400e1 * t54790 + 0.1784720e1 * t54669 * t109 + 0.9555676435200e1 * t42675 * t13331 - 0.3569440e1 * t46114 * t3027 + 0.1784720e1 * t54639;
24715   t54978 = -0.58783429053584738202e0 * t28255 * t43056 - 0.2202015477522235392e1 * t107 * t10162 * t3037 + 0.38253832257502646895e1 * t2273 * t43025 - 0.25502554838335097930e1 * t2273 * t42083 - 0.58783429053584738203e0 * t8813 * t42236 + 0.50637350790534702504e1 * t6689 * t43019 - 0.68272379506610123965e1 * t2273 * t42088 - 0.258304e0 * t107 * t407 * (t54926 + t54958) + 0.52455980750256876982e0 * t10275 * t8917 - 0.714469352008581120e0 * t45979 * t1814 + 0.76507664515005293790e1 * t13334 * t684 * t112 - 0.2766001889280e1 * t399 * t54930 - 0.48997150734706182896e0 * t14399 * t13313 * t48518 + 0.56906378609746093242e1 * t3755 * t10105 * t37956;
24716   t55016 = -0.92817332546461565657e1 * t14377 * t46106 * t14382 * t689 + 0.20312390406477209506e2 * t3755 * t46106 * t12616 + 0.84395584650891170840e0 * t3793 * t13313 * t11037 - 0.98018905612252815489e1 * t1149 * t10105 * t12612 - 0.13606156761889987933e2 * t1149 * t46106 * t3001 - 0.33837660950279469264e0 * t14462 * t46521 * t1790 - 0.89901964350980565762e0 * t10149 * t9028 + 0.714469352008581120e0 * t10189 * t12597 + 0.44950982175490282881e0 * t10285 * t9028 - 0.37929099725894513314e0 * t1158 * t13313 * t2658 - 0.17620679382074383663e2 * t399 * t54922 + 0.44051698455185959158e1 * t399 * t54944 + 0.26206649088979828343e1 * t399 * t54942 - 0.16879116930178234168e1 * t6689 * t42547;
24717   t55051 = -0.38906391098542524630e0 * t8813 * t42575 + 0.26233858457773445621e1 * t21710 * t42551 - 0.45186746351441547126e1 * t6689 * t42555 - 0.22757459835536707988e1 * t6725 * t3862 * t54693 - 0.29391714526792369101e0 * t2273 * t42150 - 0.75919974291285761083e-1 * t10275 * t8941 - 0.58783429053584738202e0 * t10275 * t8947 + 0.13549589651714352352e0 * t42806 * t8929 - 0.119078225334763520e0 * t1787 * t45976 - 0.22762551443898437297e2 * t3755 * t46131 * t12616 + 0.39207562244901126197e2 * t1149 * t46131 * t3001 - 0.18307055749595233518e1 * t1149 * t8974 * t13358 - 0.18307055749595233518e1 * t1149 * t2283 * t1154 * t12514 - 0.25306658097095253694e-1 * t46559 * t1814;
24718   t55056 = my_piecewise3(t97, 0, t54438 + t54473 + t54508 + t54544 + t54581 + t54611 + t54647 + t54683 + t54724 + t54762 + t54797 + t54838 + t54879 + t54978 + t55016 + t55051);
24719   t55057 = my_piecewise3(t96, 0, t55056);
24720   t55059 = t114 * t54395 + 0.3e1 * t12475 * t879 + 0.3e1 * t12688 * t860 + t13260 * t703 + t13404 * t684 + 0.3e1 * t2982 * t3339 + 0.3e1 * t3043 * t3281 + t55057 * t95;
24721   t55101 = t3045 * t3341;
24722   t55105 = t881 * t12690;
24723   t55115 = -t55059;
24724   t55119 = 0.3e1 * t893 * t12785 + 0.10e2 / 0.3e1 * t3073 * t13452 + 0.200e3 / 0.27e2 * t441 * t46670 * t13414 * t709 + 0.10e2 * t895 * t13451 * t3345 * t3045 - 0.10e2 / 0.3e1 * t3073 * t13455 - 0.50e2 / 0.9e1 * t33140 * t2385 * t12760 - 0.10e2 / 0.3e1 * t895 * t3369 * t55101 - 0.10e2 / 0.3e1 * t895 * t3369 * t55105 + 0.5e1 / 0.9e1 * t3073 * t13458 + 0.50e2 / 0.81e2 * t441 * t2365 * t13406 * t709 + 0.5e1 / 0.9e1 * t895 * t896 * t55115;
24725   t55139 = t46723 * t3045;
24726   t55144 = t46730 * t3070;
24727   t55147 = t43380 * t3341;
24728   t55152 = t10399 * t12690;
24729   t55177 = 0.40e2 / 0.3e1 * t46720 * t731 + 0.18e2 * t3994 * t55139 + 0.20e2 * t46727 * t731 - 0.10e2 * t6923 * t55144 - 0.6e1 * t1252 * t55147 - 0.10e2 * t6931 * t55144 - 0.6e1 * t1252 * t55152 + 0.18e2 * t4005 * t55139 + 0.20e2 / 0.3e1 * t46745 * t731 + 0.10e2 / 0.9e1 * t46749 * t731 + t449 * t442 * t55115 * t147 + 0.5e1 / 0.9e1 * t46756 * t731 - 0.3e1 * t1266 * t55152 - 0.3e1 * t1266 * t55147 - 0.5e1 / 0.3e1 * t33233 * t3076 * t18448 + 0.3e1 * t4020 * t55139 + 0.5e1 / 0.9e1 * t46769 * t731;
24730   t55178 = my_piecewise3(t139, (-params->c1 * t55059 * t141 - 0.5e1 / 0.9e1 * t46643 * t3070 + 0.3e1 * t12737 * t902 + 0.10e2 / 0.3e1 * t32006 * t12743 + 0.3e1 * t3365 * t3090 - 0.6e1 * t3068 * t3381 - 0.10e2 * t27638 * t12750 * t24 - 0.12e2 * t893 * t2378 * t3045 + 0.3e1 * t3068 * t3385 + 0.10e2 / 0.3e1 * t6883 * t12760 * t24 + t55119) * t145 + t13461 * t728 * t145 + 0.3e1 * t12767 * t900 * t145 + 0.3e1 * t3376 * t3083 * t145 + 0.3e1 * t13463 * t729 + 0.3e1 * t3379 * t3083 + t13466 * t728 * t145, t55177);
24731   t55196 = t3263 * t3057;
24732   t55207 = t8703 * t3356;
24733   t55218 = t10339 * t3057;
24734   t55228 = -0.2e1 * t330 * t13432 * t734 + 0.1174e1 * t55178 - 0.6e1 * t330 * t2957 * t3392 - 0.6e1 * t330 * t12715 * t905 + 0.72e2 * t9970 * t2226 * t3356 * t719 - 0.48e2 * t2225 * t2226 * t12418 + 0.48e2 * t2225 * t13232 * t716 + 0.144e3 * t45762 * t55196 - 0.6e1 * t330 * t12418 * t905 - 0.12e2 * t33284 * t12415 + 0.12e2 * t2225 * t45810 * t719 - 0.24e2 * t9977 * t55207 + 0.2e1 * t330 * t716 * t13431 * t150 + 0.6e1 * t330 * t55207 - 0.72e2 * t2225 * t55196 + 0.48e2 * t9977 * t55218 + 0.24e2 * t1030 * t13220 * t734 - t138 * t55178 - 0.6e1 * t330 * t3058 * t3392;
24735   t55229 = t45780 * t719;
24736   t55238 = t13232 * t719;
24737   t55243 = t9174 * t3356;
24738   t55289 = t56 * t55115 * t128 / 0.100e3 + t46782 * t3049 / 0.60e2 - 0.9e1 / 0.100e3 * t12691 * t13411 + t3342 * t709 * t46787 / 0.20e2 - 0.9e1 / 0.100e3 * t3342 * t12696 - t46793 * t3049 / 0.10e2 - 0.9e1 / 0.100e3 * t3346 * t3052 - t46798 * t3049 / 0.12e2 + 0.9e1 / 0.50e2 * t3346 * t13418 * t3045 + t46804 * t3049 / 0.18e2 - t428 * t55115 * t128 / 0.100e3 - t46810 * t3049 / 0.180e3 + 0.3e1 / 0.100e3 * t1218 * t55105 * t128 + 0.3e1 / 0.100e3 * t1218 * t55101 * t128 + t46819 * t3049 / 0.60e2 - 0.3e1 / 0.100e3 * t3949 * t3353 * t3045 - t46825 * t3049 / 0.180e3;
24739   t55303 = t2226 * t12714;
24740   t55309 = t716 * t13215 * t150;
24741   t55326 = 0.2e1 * t131 * t150 * t330 * t55289 + 0.24e2 * t1030 * t3096 * t3259 - 0.6e1 * t12795 * t330 * t888 - 0.48e2 * t13216 * t3619 * t734 - t13489 * t330 * t719 + 0.12e2 * t2225 * t45765 * t719 - 0.4e1 * t2225 * t46850 * t719 - 0.6e1 * t3096 * t3258 * t330 - 0.6e1 * t3096 * t330 * t3357 + 0.12e2 * t1030 * t55238 - 0.24e2 * t1030 * t55309 - 0.12e2 * t330 * t55218 - 0.6e1 * t330 * t55243 + 0.6e1 * t330 * t55303 - 0.192e3 * t45795 * t55229 + 0.72e2 * t55229 * t6492 - 0.72e2 * t55238 * t9970 + 0.24e2 * t55243 * t9977 - 0.24e2 * t55303 * t9977 + 0.144e3 * t55309 * t9970;
24742   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24743     v4sigmalapl3[0] = -0.3e1 / 0.8e1 * t846 * t847 * (t55228 + t55326) * t167 + 0.92773125000000000000e0 * t46872 * t745;
24744 
24745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24746     v4sigmalapl3[1] = 0.0e0;
24747 
24748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24749     v4sigmalapl3[2] = 0.0e0;
24750 
24751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24752     v4sigmalapl3[3] = 0.0e0;
24753 
24754   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24755     v4sigmalapl3[4] = 0.0e0;
24756 
24757   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24758     v4sigmalapl3[5] = 0.0e0;
24759 
24760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24761     v4sigmalapl3[6] = 0.0e0;
24762 
24763   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24764     v4sigmalapl3[7] = 0.0e0;
24765 
24766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24767     v4sigmalapl3[8] = 0.0e0;
24768 
24769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24770     v4sigmalapl3[9] = 0.0e0;
24771 
24772   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24773     v4sigmalapl3[10] = 0.0e0;
24774 
24775   t55337 = t7128 * t1498;
24776   t55349 = 0.1e1 / t178 / t1433;
24777   t55350 = t48155 * t55349;
24778   t55356 = t345 * t5891;
24779   t55387 = -t55337 * t12858 / 0.288e3 + t43946 * t12876 / 0.648e3 - 0.45e2 * t10497 * t46964 * t771 - 0.45e2 / 0.2e1 * t7095 * t46976 * t776 + t50629 * t55350 * t227 / 0.839808e6 + 0.5e1 / 0.5832e4 * t12865 * t12881 + 0.5e1 / 0.5832e4 * t55356 * t551 * t7131 + t48156 * t55349 * t50667 / 0.419904e6 - 0.45e2 / 0.2e1 * t46983 * t12848 + 0.18e2 * t10485 * t12851 - 0.5e1 / 0.648e3 * t43825 * t7091 * t3419 * t776 + t39868 * t7091 * t3419 * t771 / 0.162e3 + t12834 * t52995 / 0.1728e4 + 0.5e1 / 0.5832e4 * t12843 * t12881 + 0.105e3 / 0.2e1 * t46963 * t46964 * t776 - t10511 * t50655 * t55350 / 0.279936e6 - t53075 * t3420 / 0.972e3;
24780   t55388 = t46918 * t759;
24781   t55391 = t4642 * t13530;
24782   t55392 = t33731 * t3130;
24783   t55411 = t2431 * t923;
24784   t55431 = 0.25e2 / 0.4e1 * t46917 * t55388 + 0.5e1 / 0.576e3 * t55391 * t55392 - 0.5e1 / 0.2e1 * t43868 * t55388 - t39868 * t55392 / 0.192e3 + t53117 * t13538 / 0.324e3 + t43963 * t12876 / 0.648e3 + t46991 * t50588 / 0.648e3 - 0.5e1 / 0.2e1 * t46911 * t12854 - t13518 * t50639 / 0.972e3 - t12834 * t53057 / 0.576e3 + t55411 * t3131 / 0.864e3 + 0.5e1 / 0.12e2 * t2431 * t3413 * t12870 - t53053 * t3420 / 0.972e3 - 0.5e1 / 0.972e3 * t10511 * t50651 * t55356 + 0.9e1 / 0.2e1 * t7128 * t12862 - 0.15e2 * t19861 * t13532 + 0.9e1 * t5977 * t13535 + 0.9e1 * t1482 * t30176 * t13531;
24785   t55432 = t55387 + t55431;
24786   t55468 = t10561 * t779;
24787   t55474 = 0.11378729917768353994e1 * t2465 * t44784 + 0.16879116930178234168e1 * t23124 * t4785 * t10585 * t779 + 0.21799717097663792993e0 * t7287 * t44778 + 0.21799717097663792993e0 * t6225 * t47041 - 0.84395584650891170843e0 * t6225 * t47045 - 0.16468529812403272839e0 * t2055 * t47037 + 0.32937059624806545678e0 * t2055 * t47319 - 0.12751277419167548965e1 * t34029 * t12950 - 0.75919974291285761083e-1 * t10578 * t9658 - 0.16468529812403272839e0 * t10575 * t9658 + 0.29391714526792369101e0 * t47076 * t8315 - 0.22757459835536707988e1 * t7216 * t4785 * t55468 + 0.50637350790534702504e1 * t7287 * t44781;
24788   t55487 = t569 * t55432;
24789   t55494 = t12193 * t13575;
24790   t55497 = t10561 * t9701;
24791   t55500 = t10561 * t13064;
24792   t55509 = -0.16468529812403272839e0 * t10575 * t9517 - 0.12751277419167548965e1 * t10575 * t9521 + 0.29391714526792369101e0 * t45026 * t9501 - 0.84395584650891170840e0 * t34481 * t9513 + 0.11378729917768353994e1 * t10575 * t9524 - 0.32937059624806545678e0 * t9663 * t10770 + 0.461000314880e0 * t55487 * t250 - 0.59502499971174729837e0 * t20249 * t7222 * t3462 * t784 + 0.80224916908241017663e0 * t20370 * t55494 - 0.89901964350980565762e0 * t20240 * t55497 - 0.2143408056025743360e1 * t6222 * t55500 + 0.29391714526792369101e0 * t9475 * t44492 - 0.84395584650891170840e0 * t7287 * t44791 + 0.32937059624806545679e0 * t47136 * t2085;
24793   t55536 = t1528 * t2471 * t3134;
24794   t55541 = 0.8298005667840e1 * t10601 * t12940 - 0.16468529812403272839e0 * t2055 * t47577 - 0.29391714526792369101e0 * t2055 * t47559 + 0.20307846858839536740e1 * t2465 * t45034 + 0.20722416937066287827e0 * t2055 * t47315 - 0.38906391098542524630e0 * t9475 * t44945 + 0.26233858457773445621e1 * t23095 * t44581 + 0.38253832257502646895e1 * t10578 * t12950 + 0.29391714526792369101e0 * t47665 * t12940 - 0.11756685810716947640e1 * t47100 * t3138 - 0.32937059624806545678e0 * t2465 * t44841 - 0.17635028716075421460e1 * t45015 * t12950 + 0.58783429053584738202e0 * t23206 * t55536 - 0.75919974291285761083e-1 * t10578 * t9517;
24795   t55573 = -0.58783429053584738202e0 * t10578 * t9521 + 0.13549589651714352352e0 * t45090 * t9501 - 0.38906391098542524630e0 * t33932 * t9513 - 0.25502554838335097930e1 * t7216 * t55536 - 0.714469352008581120e0 * t47483 * t2085 + 0.76507664515005293790e1 * t13644 * t779 * t250 - 0.12751277419167548965e1 * t7216 * t47350 * t786 + 0.32937059624806545678e0 * t10572 * t9658 - 0.16879116930178234168e1 * t7287 * t44570 - 0.11064007557120e2 * t47136 * t3138 + 0.45165298839047841173e-1 * t47185 * t779 * t250 - 0.357234676004290560e0 * t45018 * t2494 + 0.714469352008581120e0 * t10700 * t9777 - 0.29391714526792369101e0 * t2465 * t44787;
24796   t55590 = t10565 * t13064;
24797   t55608 = -0.68272379506610123965e1 * t2465 * t45040 + 0.63756387095837744823e0 * t10653 * t3134 * t250 - 0.16468529812403272839e0 * t10601 * t9777 - 0.12751277419167548965e1 * t2055 * t47093 + 0.11378729917768353994e1 * t2055 * t47090 - 0.2766001889280e1 * t2455 * t2044 * t12884 + 0.714469352008581120e0 * t6216 * t55590 - 0.16468529812403272839e0 * t2465 * t45031 + 0.20722416937066287827e0 * t2465 * t45037 + 0.32937059624806545679e0 * t10572 * t9517 + 0.25502554838335097930e1 * t10572 * t9521 + 0.29391714526792369101e0 * t47677 * t9729 + 0.44950982175490282881e0 * t4823 * t3164 * t13575 - 0.75919974291285761083e-1 * t13040 * t941;
24798   t55620 = t3454 * t792;
24799   t55621 = t2471 * t55620;
24800   t55624 = t2471 * t44651;
24801   t55627 = t7222 * t44651;
24802   t55643 = 0.714469352008581120e0 * t10696 * t12991 + 0.44950982175490282881e0 * t10650 * t9759 - 0.16468529812403272839e0 * t12934 * t941 + 0.714469352008581120e0 * t1549 * t3450 * t12975 + 0.12751277419167548965e1 * t2055 * t47694 + 0.714469352008581120e0 * t6216 * t55621 + 0.8298005667840e1 * t9548 * t55624 + 0.10984233449757140111e2 * t9575 * t55627 - 0.14809616675507404800e2 * t9554 * t55624 - 0.63756387095837744824e0 * t6222 * t55621 + 0.67692822862798455803e0 * t2055 * t47512 - 0.38253832257502646895e1 * t34504 * t12940 + 0.21252129031945914941e0 * t47431 * t779 * t250 - 0.119078225334763520e0 * t47173 * t2085;
24803   t55645 = t9466 * t10565;
24804   t55648 = t2482 * t45112;
24805   t55655 = t44097 * t2471;
24806   t55658 = t10664 * t9557;
24807   t55685 = t47220 * t2061;
24808   t55688 = -0.2766001889280e1 * t575 * t55645 - 0.2766001889280e1 * t575 * t55648 - 0.357234676004290560e0 * t1549 * t932 * t242 * t13025 + 0.2468269445917900800e1 * t575 * t55655 + 0.2468269445917900800e1 * t575 * t55658 + 0.47287857283434471986e0 * t4838 * t3442 * t1545 * t3189 - 0.94575714566868943973e0 * t4838 * t13602 * t11334 + 0.10984233449757140111e2 * t1540 * t10642 * t12930 - 0.22762551443898437297e2 * t4707 * t47155 * t12965 + 0.39207562244901126197e2 * t1540 * t47155 * t3153 - 0.2766001889280e1 * t9666 * t13673 - 0.18307055749595233518e1 * t1540 * t9643 * t13559 - 0.61023519165317445059e0 * t1540 * t47220 * t3153 + 0.822756481972633600e0 * t575 * t55685;
24809   t55692 = t10642 * t9557;
24810   t55702 = t47427 * t2061;
24811   t55711 = t13607 * t2061;
24812   t55725 = 0.12751277419167548965e1 * t1549 * t13602 * t2838 - 0.14809616675507404800e2 * t575 * t55692 - 0.89901964350980565762e0 * t10700 * t9759 + 0.98811178874419637034e0 * t13047 * t941 - 0.119078225334763520e0 * t1549 * t13597 * t2838 - 0.922000629760e0 * t575 * t55702 + 0.20722416937066287827e0 * t3144 * t3464 - 0.119078225334763520e0 * t2058 * t47651 - 0.25306658097095253694e-1 * t47391 * t2085 + 0.29619233351014809600e2 * t575 * t55711 - 0.2202015477522235392e1 * t245 * t10646 * t3189 - 0.922000629760e0 * t47192 * t3138 + 0.975074869248e0 * t245 * t2501 * t13025 + 0.63756387095837744823e0 * t44833 * t926 * t250;
24813   t55735 = t10585 * t13064;
24814   t55761 = t3475 * t784;
24815   t55762 = t2471 * t55761;
24816   t55768 = 0.89901964350980565762e0 * t8511 * t2471 * t44460 - 0.14699145220411854869e1 * t20746 * t33852 * t13064 + 0.25318675395267351253e1 * t20353 * t55735 + 0.16879116930178234169e1 * t6225 * t47662 + 0.63756387095837744823e0 * t9663 * t10566 + 0.89901964350980565762e0 * t2468 * t44461 - 0.357234676004290560e0 * t1549 * t3455 * t12975 - 0.357234676004290560e0 * t1549 * t3164 * t13566 - 0.33837660950279469264e0 * t16821 * t47342 * t2061 + 0.47287857283434471985e0 * t6238 * t13559 * t13064 - 0.63756387095837744824e0 * t6222 * t55590 + 0.44950982175490282881e0 * t8511 * t2471 * t44722 + 0.714469352008581120e0 * t6216 * t55762 + 0.56906378609746093244e1 * t9580 * t9581 * t44651;
24817   t55789 = -t577 * t55432 * t242;
24818   t55814 = 0.44950982175490282881e0 * t8511 * t10565 * t9701 - 0.18307055749595233518e1 * t1540 * t2475 * t1545 * t13018 - 0.357234676004290560e0 * t1549 * t13019 * t3446 - 0.2202015477522235392e1 * t9700 * t47181 * t792 + 0.23916119461575365556e1 * t245 * t47332 * t792 - 0.33837660950279469264e0 * t2058 * t47537 + 0.461000314880e0 * t575 * t55789 + 0.325024956416e0 * t245 * t47552 * t792 + 0.56906378609746093242e1 * t4707 * t10621 * t40828 - 0.92817332546461565657e1 * t16763 * t47145 * t16764 * t784 + 0.20312390406477209506e2 * t4707 * t47145 * t12965 + 0.84395584650891170840e0 * t4838 * t13607 * t11334 - 0.98018905612252815489e1 * t1540 * t10621 * t12930 - 0.48997150734706182896e0 * t16800 * t13607 * t48956;
24819   t55819 = t1534 * t939 * t3134;
24820   t55850 = -0.16468529812403272839e0 * t3144 * t3477 - 0.32937059624806545678e0 * t7365 * t55819 + 0.20722416937066287826e0 * t10601 * t9759 - 0.58783429053584738202e0 * t31008 * t44934 + 0.65874119249613091356e0 * t23462 * t932 * t3446 * t779 + 0.41444833874132575653e0 * t30484 * t44800 + 0.65874119249613091356e0 * t31008 * t44804 - 0.15183994858257152217e0 * t30488 * t10770 + 0.43599434195327585986e0 * t31013 * t44954 + 0.16879116930178234168e1 * t34471 * t9513 - 0.22757459835536707989e1 * t10572 * t9524 + 0.52455980750256876982e0 * t10578 * t9524 - 0.12751277419167548965e1 * t7216 * t1528 * t10565 * t779 - 0.16468529812403272839e0 * t2465 * t44323;
24821   t55883 = -0.12751277419167548965e1 * t2465 * t44597 + 0.8298005667840e1 * t7365 * t2044 * t3423 * t779 + 0.714469352008581120e0 * t2455 * t1534 * t3423 * t792 - 0.38253832257502646894e1 * t40101 * t47351 - 0.2143408056025743360e1 * t10601 * t12991 + 0.1428938704017162240e1 * t2455 * t55819 + 0.44950982175490282881e0 * t7296 * t12892 - 0.357234676004290560e0 * t10650 * t9777 - 0.357234676004290560e0 * t9691 * t10759 - 0.357234676004290560e0 * t2468 * t44631 + 0.38253832257502646895e1 * t2465 * t44593 - 0.25502554838335097930e1 * t2465 * t44589 - 0.58783429053584738203e0 * t9475 * t44523 - 0.32937059624806545678e0 * t2465 * t44245;
24822   t55891 = t3179 * t3423;
24823   t55910 = t47145 * t2061;
24824   t55925 = t10621 * t9557;
24825   t55927 = -0.57334058611200e2 * t7161 * t55891 + 0.17054206847430144000e2 * t34309 * t9520 - 0.57334058611200e2 * t7182 * t44596 + 0.32124960e2 * t2461 * t55891 - 0.57334058611200e2 * t10691 * t12998 - 0.68216827389720576000e2 * t47099 * t3179 + 0.10145661348248508867e2 * t47185 * t3179 + 0.17054206847430144000e2 * t10737 * t12998 + 0.9555676435200e1 * t10653 * t12998 + 0.10145661348248508867e2 * t55910 - 0.10708320e2 * t55645 - 0.10708320e2 * t2454 * t247 * t12884 - 0.3569440e1 * t47191 * t3179 + 0.9555676435200e1 * t44833 * t13641 + 0.17054206847430144000e2 * t34257 * t926 * t779 * t247 + 0.114668117222400e3 * t55711 + 0.17054206847430144000e2 * t55925;
24826   t55928 = t3442 * t9557;
24827   t55940 = t47155 * t2061;
24828   t55942 = t13602 * t2061;
24829   t55955 = 0.32124960e2 * t55928 + 0.32124960e2 * t3434 * t12998 - 0.3569440e1 * t55702 + 0.114668117222400e3 * t13644 * t3179 + 0.3185225478400e1 * t47431 * t3179 - 0.57334058611200e2 * t55692 - 0.10708320e2 * t9615 * t13633 - 0.68216827389720576000e2 * t55940 - 0.42833280e2 * t55942 + 0.3185225478400e1 * t55685 - 0.10708320e2 * t55648 + 0.9555676435200e1 * t55658 - 0.42833280e2 * t13627 * t3179 + 0.1784720e1 * t55789 + 0.9555676435200e1 * t55655 + 0.1784720e1 * t55487 * t247 + 0.32124960e2 * t2475 * t44596;
24830   t55971 = t939 * t3163;
24831   t55987 = 0.25502554838335097930e1 * t7216 * t4755 * t55468 + 0.32937059624806545679e0 * t2465 * t44249 - 0.258304e0 * t245 * t583 * (t55927 + t55955) + 0.21252129031945914941e0 * t47646 * t2062 - 0.98018905612252815491e1 * t9585 * t55627 + 0.44051698455185959158e1 * t9593 * t55624 - 0.59502499971174729838e0 * t20249 * t10585 * t9701 - 0.28372714370060683191e1 * t20383 * t55735 + 0.94575714566868943972e0 * t6238 * t7222 * t55971 + 0.975074869248e0 * t245 * t9755 * t3475 + 0.44950982175490282881e0 * t2058 * t47244 - 0.714469352008581120e0 * t1549 * t13614 * t2838 - 0.11064007557120e2 * t575 * t55942 + 0.8298005667840e1 * t575 * t55928;
24832   t56007 = t2471 * t55971;
24833   t56022 = -0.21968466899514280222e2 * t1540 * t13607 * t3153 - 0.37929099725894513314e0 * t1549 * t13607 * t2838 - 0.17620679382074383663e2 * t575 * t55940 + 0.44051698455185959158e1 * t575 * t55925 - 0.13606156761889987933e2 * t1540 * t47145 * t3153 + 0.26206649088979828343e1 * t575 * t55910 - 0.16468529812403272839e0 * t13623 * t794 - 0.84395584650891170840e0 * t31168 * t10586 + 0.1428938704017162240e1 * t6216 * t56007 + 0.45165298839047841173e-1 * t47610 * t2062 + 0.11378729917768353994e1 * t9663 * t10569 - 0.10151298285083840779e1 * t27079 * t2471 * t44274 - 0.89901964350980565762e0 * t20240 * t55494 - 0.119078225334763520e0 * t1549 * t47284 * t2061;
24834   t56059 = 0.714469352008581120e0 * t2455 * t1534 * t3475 * t779 + 0.44950982175490282881e0 * t2468 * t44723 - 0.63756387095837744824e0 * t1549 * t3442 * t12975 - 0.89901964350980565762e0 * t2455 * t4718 * t3462 * t779 - 0.10151298285083840779e1 * t2468 * t44275 + 0.63756387095837744823e0 * t2465 * t45113 + 0.47287857283434471986e0 * t6238 * t7222 * t55620 + 0.47287857283434471985e0 * t6238 * t7222 * t55761 - 0.63756387095837744824e0 * t6222 * t55762 + 0.80224916908241017663e0 * t20370 * t55497 + 0.38253832257502646895e1 * t20390 * t55500 - 0.12751277419167548965e1 * t6222 * t56007 - 0.11378729917768353994e1 * t20358 * t55500 + 0.63756387095837744823e0 * t45189 * t2472;
24835   t56088 = 0.44950982175490282881e0 * t9691 * t10756 + 0.12751277419167548965e1 * t47367 * t2062 - 0.58783429053584738203e0 * t47643 * t2062 + 0.63756387095837744823e0 * t10575 * t9558 + 0.29391714526792369101e0 * t10578 * t9558 - 0.12751277419167548965e1 * t9663 * t10562 + 0.87446194859244818738e0 * t20203 * t47636 - 0.15062248783813849042e1 * t6225 * t47640 + 0.21252129031945914941e0 * t2055 * t47388 - 0.22757459835536707989e1 * t2055 * t47375 - 0.12751277419167548965e1 * t10572 * t9558 + 0.22757459835536707988e1 * t2465 * t44794 + 0.52455980750256876981e0 * t9475 * t44479 - 0.45186746351441547126e1 * t7287 * t44585;
24836   t56093 = my_piecewise3(t235, 0, t55474 + t55509 + t55541 + t55573 + t55608 + t55643 + t55688 + t55725 + t55768 + t55814 + t55850 + t55883 + t55987 + t56022 + t56059 + t56088);
24837   t56094 = my_piecewise3(t234, 0, t56093);
24838   t56096 = 0.3e1 * t12884 * t945 + 0.3e1 * t13097 * t926 + t13543 * t798 + t13687 * t779 + t233 * t56094 + t252 * t55432 + 0.3e1 * t3134 * t3481 + 0.3e1 * t3195 * t3423;
24839   t56138 = t3197 * t3483;
24840   t56142 = t947 * t13099;
24841   t56152 = -t56096;
24842   t56156 = 0.3e1 * t959 * t13194 + 0.10e2 / 0.3e1 * t3225 * t13735 + 0.200e3 / 0.27e2 * t617 * t47751 * t13697 * t804 + 0.10e2 * t961 * t13734 * t3487 * t3197 - 0.10e2 / 0.3e1 * t3225 * t13738 - 0.50e2 / 0.9e1 * t34813 * t2577 * t13169 - 0.10e2 / 0.3e1 * t961 * t3511 * t56138 - 0.10e2 / 0.3e1 * t961 * t3511 * t56142 + 0.5e1 / 0.9e1 * t3225 * t13741 + 0.50e2 / 0.81e2 * t617 * t2557 * t13689 * t804 + 0.5e1 / 0.9e1 * t961 * t962 * t56152;
24843   t56176 = t47804 * t3197;
24844   t56181 = t47811 * t3222;
24845   t56184 = t45396 * t3483;
24846   t56189 = t10877 * t13099;
24847   t56214 = 0.40e2 / 0.3e1 * t47801 * t826 + 0.18e2 * t4942 * t56176 + 0.20e2 * t47808 * t826 - 0.10e2 * t7482 * t56181 - 0.6e1 * t1643 * t56184 - 0.10e2 * t7490 * t56181 - 0.6e1 * t1643 * t56189 + 0.18e2 * t4953 * t56176 + 0.20e2 / 0.3e1 * t47826 * t826 + 0.10e2 / 0.9e1 * t47830 * t826 + t449 * t618 * t56152 * t285 + 0.5e1 / 0.9e1 * t47837 * t826 - 0.3e1 * t1655 * t56189 - 0.3e1 * t1655 * t56184 - 0.5e1 / 0.3e1 * t34845 * t3228 * t27229 + 0.3e1 * t4966 * t56176 + 0.5e1 / 0.9e1 * t47850 * t826;
24848   t56215 = my_piecewise3(t277, (-params->c1 * t56096 * t279 - 0.5e1 / 0.9e1 * t47724 * t3222 + 0.3e1 * t13146 * t968 + 0.10e2 / 0.3e1 * t34760 * t13152 + 0.3e1 * t3507 * t3242 - 0.6e1 * t3220 * t3523 - 0.10e2 * t31566 * t13159 * t24 - 0.12e2 * t959 * t2570 * t3197 + 0.3e1 * t3220 * t3527 + 0.10e2 / 0.3e1 * t7442 * t13169 * t24 + t56156) * t283 + t13744 * t823 * t283 + 0.3e1 * t13176 * t966 * t283 + 0.3e1 * t3518 * t3235 * t283 + 0.3e1 * t13746 * t824 + 0.3e1 * t3521 * t3235 + t13749 * t823 * t283, t56214);
24849   t56217 = t3405 * t3209;
24850   t56261 = t56 * t56152 * t266 / 0.100e3 + t47884 * t3201 / 0.60e2 - 0.9e1 / 0.100e3 * t13100 * t13694 + t3484 * t804 * t47889 / 0.20e2 - 0.9e1 / 0.100e3 * t3484 * t13105 - t47895 * t3201 / 0.10e2 - 0.9e1 / 0.100e3 * t3488 * t3204 - t47900 * t3201 / 0.12e2 + 0.9e1 / 0.50e2 * t3488 * t13701 * t3197 + t47906 * t3201 / 0.18e2 - t604 * t56152 * t266 / 0.100e3 - t47912 * t3201 / 0.180e3 + 0.3e1 / 0.100e3 * t1609 * t56142 * t266 + 0.3e1 / 0.100e3 * t1609 * t56138 * t266 + t47921 * t3201 / 0.60e2 - 0.3e1 / 0.100e3 * t4897 * t3495 * t3197 - t47927 * t3201 / 0.180e3;
24851   t56268 = t10817 * t3209;
24852   t56280 = t47874 * t814;
24853   t56283 = t13515 * t814;
24854   t56286 = t9829 * t3498;
24855   t56293 = t47874 * t811;
24856   t56299 = t9358 * t3498;
24857   t56304 = -0.6e1 * t510 * t3400 * t3248 - t276 * t56215 - 0.72e2 * t2417 * t56217 + 0.2e1 * t510 * t269 * t56261 * t288 - t510 * t814 * t13772 - 0.12e2 * t510 * t56268 - 0.12e2 * t34953 * t12824 - 0.6e1 * t510 * t12827 * t971 - 0.6e1 * t510 * t13124 * t971 + 0.1174e1 * t56215 + 0.72e2 * t7051 * t56280 - 0.72e2 * t10449 * t56283 - 0.6e1 * t510 * t56286 - 0.192e3 * t47873 * t56280 + 0.144e3 * t47948 * t56217 + 0.144e3 * t10449 * t56293 + 0.12e2 * t2417 * t47969 * t814 - 0.24e2 * t10456 * t56299 + 0.24e2 * t10456 * t56286;
24858   t56355 = t2418 * t13123;
24859   t56362 = -0.6e1 * t510 * t3109 * t3534 - 0.24e2 * t1423 * t56293 + 0.24e2 * t1423 * t13503 * t829 + 0.48e2 * t2417 * t13515 * t811 - 0.6e1 * t510 * t954 * t13204 - 0.6e1 * t510 * t3499 * t3248 - 0.4e1 * t2417 * t46887 * t814 + 0.2e1 * t510 * t811 * t13714 * t288 + 0.72e2 * t10449 * t2418 * t3498 * t814 - 0.48e2 * t2417 * t2418 * t12827 - 0.2e1 * t510 * t13715 * t829 + 0.24e2 * t1423 * t3401 * t3248 + 0.48e2 * t10456 * t56268 - 0.48e2 * t4566 * t13499 * t829 - 0.6e1 * t510 * t3210 * t3534 + 0.12e2 * t1423 * t56283 + 0.12e2 * t2417 * t47941 * t814 - 0.24e2 * t10456 * t56355 + 0.6e1 * t510 * t56299 + 0.6e1 * t510 * t56355;
24860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24861     v4sigmalapl3[11] = -0.3e1 / 0.8e1 * t846 * t913 * (t56304 + t56362) * t302 + 0.92773125000000000000e0 * t48009 * t840;
24862 
24863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24864     v4sigmalapl2tau[0] = 0.0e0;
24865 
24866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24867     v4sigmalapl2tau[1] = 0.0e0;
24868 
24869   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24870     v4sigmalapl2tau[2] = 0.0e0;
24871 
24872   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24873     v4sigmalapl2tau[3] = 0.0e0;
24874 
24875   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24876     v4sigmalapl2tau[4] = 0.0e0;
24877 
24878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24879     v4sigmalapl2tau[5] = 0.0e0;
24880 
24881   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24882     v4sigmalapl2tau[6] = 0.0e0;
24883 
24884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24885     v4sigmalapl2tau[7] = 0.0e0;
24886 
24887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24888     v4sigmalapl2tau[8] = 0.0e0;
24889 
24890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24891     v4sigmalapl2tau[9] = 0.0e0;
24892 
24893   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24894     v4sigmalapl2tau[10] = 0.0e0;
24895 
24896   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24897     v4sigmalapl2tau[11] = 0.0e0;
24898 
24899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24900     v4sigmalapl2tau[12] = 0.0e0;
24901 
24902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24903     v4sigmalapl2tau[13] = 0.0e0;
24904 
24905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24906     v4sigmalapl2tau[14] = 0.0e0;
24907 
24908   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24909     v4sigmalapl2tau[15] = 0.0e0;
24910 
24911   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24912     v4sigmalapl2tau[16] = 0.0e0;
24913 
24914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24915     v4sigmalapl2tau[17] = 0.0e0;
24916 
24917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24918     v4sigmalapltau2[0] = 0.0e0;
24919 
24920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24921     v4sigmalapltau2[1] = 0.0e0;
24922 
24923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24924     v4sigmalapltau2[2] = 0.0e0;
24925 
24926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24927     v4sigmalapltau2[3] = 0.0e0;
24928 
24929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24930     v4sigmalapltau2[4] = 0.0e0;
24931 
24932   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24933     v4sigmalapltau2[5] = 0.0e0;
24934 
24935   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24936     v4sigmalapltau2[6] = 0.0e0;
24937 
24938   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24939     v4sigmalapltau2[7] = 0.0e0;
24940 
24941   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24942     v4sigmalapltau2[8] = 0.0e0;
24943 
24944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24945     v4sigmalapltau2[9] = 0.0e0;
24946 
24947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24948     v4sigmalapltau2[10] = 0.0e0;
24949 
24950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24951     v4sigmalapltau2[11] = 0.0e0;
24952 
24953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24954     v4sigmalapltau2[12] = 0.0e0;
24955 
24956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24957     v4sigmalapltau2[13] = 0.0e0;
24958 
24959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24960     v4sigmalapltau2[14] = 0.0e0;
24961 
24962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24963     v4sigmalapltau2[15] = 0.0e0;
24964 
24965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24966     v4sigmalapltau2[16] = 0.0e0;
24967 
24968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24969     v4sigmalapltau2[17] = 0.0e0;
24970 
24971   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24972     v4sigmatau3[0] = 0.0e0;
24973 
24974   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24975     v4sigmatau3[1] = 0.0e0;
24976 
24977   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24978     v4sigmatau3[2] = 0.0e0;
24979 
24980   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24981     v4sigmatau3[3] = 0.0e0;
24982 
24983   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24984     v4sigmatau3[4] = 0.0e0;
24985 
24986   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24987     v4sigmatau3[5] = 0.0e0;
24988 
24989   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24990     v4sigmatau3[6] = 0.0e0;
24991 
24992   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24993     v4sigmatau3[7] = 0.0e0;
24994 
24995   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24996     v4sigmatau3[8] = 0.0e0;
24997 
24998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24999     v4sigmatau3[9] = 0.0e0;
25000 
25001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25002     v4sigmatau3[10] = 0.0e0;
25003 
25004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25005     v4sigmatau3[11] = 0.0e0;
25006 
25007   t56370 = t132 * t132;
25008   t56371 = t3258 * t3258;
25009   t56379 = t2226 * t13431;
25010   t56384 = t48155 * t14151;
25011   t56388 = t86 * t86;
25012   t56389 = t1105 * t1105;
25013   t56392 = t3271 * t3271;
25014   t56401 = t32100 * t3277;
25015   t56423 = -0.60e2 * t21229 * t13249 - t49522 * t56384 * t89 / 0.472392e6 + 0.105e3 * t14287 * t56388 / t56389 * t56392 + 0.9e1 * t1091 * t56392 * t1106 + t54314 * t13255 / 0.81e2 - 0.5e1 / 0.162e3 * t54322 * t56401 + t37701 * t56401 / 0.54e2 - t48156 * t14151 * t49531 / 0.236196e6 + 0.36e2 * t6573 * t13252 - 0.90e2 * t3694 * t14333 * t56392 - t13235 * t51706 / 0.486e3 + t13235 * t51650 / 0.162e3 - t54371 * t3278 / 0.243e3 + t10032 * t49483 * t56384 / 0.157464e6;
25016   t56431 = t3299 * t3299;
25017   t56432 = t14379 * t56431;
25018   t56464 = t3757 * t56431;
25019   t56465 = t56464 * t104;
25020   t56468 = -0.92817332546461565657e1 * t14377 * t56432 * t14382 + 0.20312390406477209506e2 * t3755 * t56432 * t3759 - 0.25502554838335097930e1 * t10272 * t10246 - 0.11756685810716947640e1 * t10275 * t10246 - 0.91029839342146831954e1 * t2273 * t46166 + 0.51005109676670195860e1 * t46178 * t2280 - 0.476312901339054080e0 * t2276 * t45976 + 0.89901964350980565762e0 * t3771 * t3313 * t13287 - 0.17980392870196113152e1 * t3771 * t3308 * t13287 - 0.10122663238838101478e0 * t46559 * t2302 - 0.32937059624806545678e0 * t10155 * t10280 - 0.3688002519040e1 * t2263 * t1773 * t13260 + 0.58783429053584738202e0 * t46383 * t13390 + 0.29619233351014809600e2 * t399 * t56465;
25021   t56469 = t14420 * t56431;
25022   t56470 = t56469 * t104;
25023   t56497 = t3741 * t56431 * t104;
25024   t56502 = -0.17620679382074383663e2 * t399 * t56470 + 0.41444833874132575653e0 * t10155 * t10192 + 0.51005109676670195860e1 * t10269 * t10246 + 0.85008516127783659764e0 * t46172 * t2280 + 0.12751277419167548965e1 * t10272 * t10239 + 0.85008516127783659764e0 * t2273 * t46473 - 0.25502554838335097930e1 * t10269 * t10239 + 0.33758233860356468336e1 * t32402 * t10259 - 0.45514919671073415977e1 * t10269 * t10243 - 0.21968466899514280222e2 * t1149 * t56464 * t1154 - 0.714469352008581120e0 * t10285 * t10280 + 0.13174823849922618271e1 * t45982 * t2302 - 0.11064007557120e2 * t399 * t56497 + 0.51005109676670195860e1 * t2273 * t46624;
25025   t56516 = t56432 * t104;
25026   t56531 = t10097 * t10238;
25027   t56538 = 0.18915142913373788794e1 * t5504 * t6656 * t873 * t3312 + 0.67516467720712936673e1 * t6689 * t46227 - 0.476312901339054080e0 * t45941 * t2302 + 0.1428938704017162240e1 * t10149 * t10280 + 0.89901964350980565762e0 * t10285 * t10192 + 0.26206649088979828343e1 * t399 * t56516 + 0.58783429053584738202e0 * t10275 * t10239 - 0.16879116930178234168e1 * t32696 * t10259 - 0.77812782197085049260e0 * t32703 * t10259 + 0.22757459835536707988e1 * t10272 * t10243 + 0.10491196150051375396e1 * t10275 * t10243 + 0.27077129145119382320e1 * t2273 * t46205 - 0.29619233351014809600e2 * t399 * t56531 - 0.19598860293882473159e1 * t14399 * t13313 * t3759 * t873;
25028   t56549 = t46074 * t2279;
25029   t56578 = t1143 * t873 * t3281;
25030   t56583 = 0.33758233860356468337e1 * t3793 * t13313 * t13354 + 0.21968466899514280222e2 * t1149 * t10097 * t13358 - 0.24409407666126978024e1 * t1149 * t2283 * t1154 * t13344 + 0.3291025927890534400e1 * t399 * t56549 - 0.12751277419167548965e1 * t1158 * t3300 * t13274 - 0.476312901339054080e0 * t1158 * t866 * t104 * t13350 + 0.11381275721949218649e2 * t3755 * t10105 * t42054 - 0.19603781122450563098e2 * t1149 * t10105 * t13358 - 0.476312901339054080e0 * t1158 * t13345 * t3304 - 0.714469352008581120e0 * t1158 * t3313 * t13274 + 0.17980392870196113152e1 * t2276 * t46284 + 0.94575714566868943971e0 * t3793 * t3300 * t1154 * t3333 + 0.2857877408034324480e1 * t2263 * t56578 - 0.65874119249613091356e0 * t6728 * t56578;
25031   t56586 = t2290 * t46472;
25032   t56589 = t32726 * t10242;
25033   t56598 = t3300 * t10238;
25034   t56624 = -0.3688002519040e1 * t399 * t56586 + 0.88103396910371918316e1 * t399 * t56589 - 0.15171639890357805325e1 * t1158 * t13313 * t3304 - 0.2857877408034324480e1 * t1158 * t13337 * t3304 + 0.16596011335680e2 * t399 * t56598 - 0.11900499994234945968e1 * t14518 * t3300 * t1154 * t3320 - 0.37830285826747577588e1 * t3793 * t13341 * t13354 - 0.13535064380111787705e1 * t14462 * t46521 * t2279 + 0.16596011335680e2 * t10155 * t13390 - 0.13535064380111787705e1 * t2276 * t46469 + 0.17980392870196113152e1 * t7822 * t2279 * t46283 - 0.23513371621433895280e1 * t46175 * t2280 - 0.51005109676670195860e1 * t2273 * t45986 + 0.45514919671073415976e1 * t2273 * t46189;
25035   t56626 = t3312 * t3312;
25036   t56627 = t1151 * t56626;
25037   t56628 = t56627 * t104;
25038   t56633 = -t401 * t56423 * t104;
25039   t56635 = t3285 * t3285;
25040   t56636 = t14528 * t56635;
25041   t56639 = t14573 * t56635;
25042   t56642 = t393 * t56423;
25043   t56645 = t3879 * t56635;
25044   t56653 = t1164 * t56626 * t104;
25045   t56655 = 0.12740901913600e2 * t56549 + 0.9555676435200e1 * t56628 + 0.34108413694860288000e2 * t56589 + 0.1784720e1 * t56633 + 0.10145661348248508867e2 * t56636 * t109 - 0.68216827389720576000e2 * t56639 * t109 + 0.1784720e1 * t56642 * t109 + 0.114668117222400e3 * t56645 * t109 + 0.114668117222400e3 * t56465 - 0.68216827389720576000e2 * t56470 - 0.114668117222400e3 * t10145 * t13322 - 0.10708320e2 * t56653;
25046   t56660 = t3874 * t56635;
25047   t56665 = t3281 * t3281;
25048   t56666 = t1123 * t56665;
25049   t56672 = t1132 * t56665;
25050   t56681 = -0.14277760e2 * t56586 - 0.114668117222400e3 * t56531 + 0.12740901913600e2 * t46085 * t13331 - 0.42833280e2 * t56660 * t109 + 0.64249920e2 * t3292 * t13322 - 0.10708320e2 * t56666 * t109 - 0.14277760e2 * t2262 * t109 * t13260 + 0.9555676435200e1 * t56672 * t109 + 0.34108413694860288000e2 * t32369 * t3285 * t109 - 0.42833280e2 * t56497 + 0.64249920e2 * t56598 + 0.10145661348248508867e2 * t56516;
25051   t56694 = t3320 * t3320;
25052   t56719 = -0.258304e0 * t107 * t407 * (t56655 + t56681) + 0.11756685810716947640e1 * t46540 * t8929 - 0.65874119249613091356e0 * t2273 * t46033 + 0.13174823849922618271e1 * t10269 * t10115 + 0.13174823849922618271e1 * t2273 * t45972 + 0.23916119461575365556e1 * t107 * t14477 * t56694 + 0.85008516127783659764e0 * t46085 * t860 * t112 - 0.13606156761889987933e2 * t1149 * t56432 * t1154 - 0.18307055749595233518e1 * t1149 * t56627 * t1154 - 0.2766001889280e1 * t399 * t56653 + 0.82889667748265151307e0 * t2273 * t45968 - 0.11756685810716947640e1 * t2273 * t46192 - 0.22762551443898437297e2 * t3755 * t56469 * t3759 + 0.39207562244901126197e2 * t1149 * t56469 * t1154;
25053   t56743 = t3333 * t3333;
25054   t56754 = -0.11756685810716947640e1 * t56639 * t112 + 0.461000314880e0 * t56642 * t112 - 0.2857877408034324480e1 * t45979 * t2302 + 0.461000314880e0 * t399 * t56633 - 0.76507664515005293789e1 * t32844 * t3285 * t112 + 0.2468269445917900800e1 * t399 * t56628 - 0.2766001889280e1 * t56666 * t112 + 0.76507664515005293790e1 * t56645 * t112 - 0.4404030955044470784e1 * t107 * t10162 * t3333 + 0.45165298839047841173e-1 * t56636 * t112 + 0.975074869248e0 * t107 * t1177 * t56743 - 0.11064007557120e2 * t56660 * t112 + 0.63756387095837744823e0 * t56672 * t112 + 0.1428938704017162240e1 * t1158 * t3308 * t13274;
25055   t56775 = t10238 * t873 * t865;
25056   t56792 = 0.16044983381648203533e1 * t3771 * t3300 * t13287 + 0.51005109676670195860e1 * t1158 * t13341 * t3304 - 0.33758233860356468336e1 * t6689 * t46041 + 0.87198868390655171972e0 * t6689 * t46037 - 0.51005109676670195860e1 * t6725 * t1137 * t2279 * t3281 + 0.1300099825664e1 * t107 * t2309 * t13350 - 0.17980392870196113152e1 * t10149 * t10192 + 0.2857877408034324480e1 * t5388 * t56775 - 0.25502554838335097930e1 * t5394 * t56775 - 0.65874119249613091356e0 * t2273 * t46504 + 0.34978477943697927495e1 * t21710 * t46584 - 0.60248995135255396168e1 * t6689 * t46587 + 0.18066119535619136469e0 * t46590 * t2280 - 0.65874119249613091356e0 * t10272 * t10115 - 0.30367989716514304433e0 * t10275 * t10115;
25057   t56796 = my_piecewise3(t97, 0, t56468 + t56502 + t56538 + t56583 + t56624 + t56719 + t56754 + t56792);
25058   t56797 = my_piecewise3(t96, 0, t56796);
25059   t56799 = t114 * t56423 + 0.4e1 * t13260 * t879 + 0.4e1 * t13404 * t860 + 0.6e1 * t3281 * t3339 + t56797 * t95;
25060   t56816 = t3345 * t3345;
25061   t56820 = t3345 * t3341;
25062   t56824 = t3341 * t3341;
25063   t56828 = t881 * t13406;
25064   t56832 = -t56799;
25065   t56836 = -params->c1 * t56799 * t141 + 0.4e1 * t13443 * t902 - 0.12e2 * t3365 * t3381 + 0.6e1 * t3365 * t3385 + 0.24e2 * t893 * t13469 - 0.24e2 * t893 * t2378 * t3341 + 0.4e1 * t893 * t13480 - 0.40e2 / 0.3e1 * t895 * t23 * t4004 * t56816 + 0.20e2 * t895 * t13451 * t56820 - 0.10e2 / 0.3e1 * t895 * t3369 * t56824 - 0.40e2 / 0.9e1 * t895 * t3369 * t56828 + 0.5e1 / 0.9e1 * t895 * t896 * t56832;
25066   t56841 = t3376 * t3376;
25067   t56847 = t3378 * t3378;
25068   t56854 = t46723 * t3341;
25069   t56867 = t10399 * t13406;
25070   t56888 = -0.6e1 * t1239 * t147 * t449 * t56824 - 0.3e1 * t1263 * t1265 * t147 * t56824 - 0.36e2 * t1263 * t147 * t4019 * t56816 - 0.12e2 * t147 * t14939 * t4017 * t56816 - t147 * t14957 * t14959 * t56816 - 0.24e2 * t147 * t4004 * t449 * t56816 + t147 * t442 * t449 * t56832 - 0.8e1 * t1252 * t56867 - 0.4e1 * t1266 * t56867 + 0.36e2 * t3994 * t56854 + 0.36e2 * t4005 * t56854 + 0.6e1 * t4020 * t56854;
25071   t56889 = my_piecewise3(t139, 0.4e1 * t13461 * t145 * t900 + 0.6e1 * t145 * t3376 * t3378 + t145 * t56836 + 0.3e1 * t145 * t56841 + t145 * t56847, t56888);
25072   t56891 = t3263 * t3356;
25073   t56908 = t56 * t56816;
25074   t56929 = t56 * t56832 * t128 / 0.100e3 - 0.3e1 / 0.25e2 * t13407 * t13411 - 0.9e1 / 0.50e2 * t3342 * t3353 - 0.9e1 / 0.100e3 * t56 * t56824 * t3347 + 0.9e1 / 0.25e2 * t3342 * t126 * t3345 * t128 + 0.3e1 / 0.20e2 * t56908 * t3347 - t56908 * t1217 * t128 / 0.10e2 - t428 * t56832 * t128 / 0.100e3 + t1218 * t56828 * t128 / 0.25e2 + 0.3e1 / 0.100e3 * t1218 * t56824 * t128 - 0.3e1 / 0.50e2 * t3949 * t56820 * t128 + t14846 * t56816 * t128 / 0.100e3;
25075   t56937 = t3356 * t3356;
25076   t56957 = t10339 * t3356;
25077   t56978 = 0.288e3 * t132 * t150 * t3619 * t56371 - 0.24e2 * t1030 * t150 * t56371 - 0.8e1 * t13432 * t330 * t905 - 0.8e1 * t13489 * t330 * t888 - 0.12e2 * t3258 * t330 * t3392 - 0.12e2 * t330 * t3357 * t3392 - t138 * t56889 - 0.144e3 * t2225 * t56891 - 0.24e2 * t330 * t56957 - 0.32e2 * t56379 * t9977 + 0.96e2 * t56957 * t9977;
25078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25079     v4lapl4[0] = -0.3e1 / 0.8e1 * t846 * t847 * (-0.384e3 * t14187 * t56370 * t56371 * t150 - 0.192e3 * t3619 * t13216 * t905 + 0.8e1 * t330 * t56379 + 0.1174e1 * t56889 + 0.288e3 * t45762 * t56891 + 0.2e1 * t330 * t131 * t56929 * t150 + 0.96e2 * t1030 * t13220 * t905 + 0.6e1 * t330 * t56937 * t150 + 0.48e2 * t1030 * t3259 * t3392 - 0.24e2 * t1030 * t132 * t56937 * t150 + t56978) * t167;
25080 
25081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25082     v4lapl4[1] = 0.0e0;
25083 
25084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25085     v4lapl4[2] = 0.0e0;
25086 
25087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25088     v4lapl4[3] = 0.0e0;
25089 
25090   t56986 = t224 * t224;
25091   t56987 = t1496 * t1496;
25092   t56990 = t3413 * t3413;
25093   t57003 = t48155 * t16348;
25094   t57015 = t33731 * t3419;
25095   t57025 = -0.60e2 * t22751 * t13532 + 0.105e3 * t16424 * t56986 / t56987 * t56990 + 0.9e1 * t1482 * t56990 * t1497 - t13518 * t52995 / 0.486e3 + t13518 * t53057 / 0.162e3 - t55411 * t3420 / 0.243e3 + t10511 * t50655 * t57003 / 0.157464e6 - 0.90e2 * t4642 * t16451 * t56990 - t50629 * t57003 * t227 / 0.472392e6 + t55337 * t13538 / 0.81e2 + t39868 * t57015 / 0.54e2 - 0.5e1 / 0.162e3 * t55391 * t57015 - t48156 * t16348 * t50667 / 0.236196e6 + 0.36e2 * t7128 * t13535;
25096   t57033 = t3427 * t3427;
25097   t57034 = t4741 * t57033;
25098   t57064 = t3454 * t3454;
25099   t57065 = t1542 * t57064;
25100   t57066 = t57065 * t242;
25101   t57069 = -0.11064007557120e2 * t57034 * t250 + 0.58783429053584738202e0 * t10578 * t10566 - 0.77812782197085049260e0 * t33932 * t10586 + 0.18915142913373788794e1 * t6238 * t7222 * t939 * t3454 + 0.67516467720712936673e1 * t7287 * t47662 - 0.476312901339054080e0 * t2468 * t47651 - 0.45514919671073415977e1 * t10572 * t10569 + 0.33758233860356468336e1 * t34471 * t10586 - 0.25502554838335097930e1 * t10575 * t10562 - 0.23513371621433895280e1 * t47643 * t2472 - 0.11756685810716947640e1 * t10578 * t10562 - 0.25502554838335097930e1 * t10572 * t10566 - 0.3688002519040e1 * t2455 * t2044 * t13543 + 0.2468269445917900800e1 * t575 * t57066;
25102   t57070 = t3442 * t10565;
25103   t57073 = t2482 * t47387;
25104   t57089 = t3441 * t3441;
25105   t57090 = t4699 * t57089;
25106   t57094 = t57090 * t242;
25107   t57097 = t47088 * t3446;
25108   t57107 = 0.16596011335680e2 * t575 * t57070 - 0.3688002519040e1 * t575 * t57073 + 0.17980392870196113152e1 * t2468 * t47244 - 0.2857877408034324480e1 * t1549 * t13614 * t3446 - 0.65874119249613091356e0 * t2465 * t47577 - 0.11756685810716947640e1 * t2465 * t47559 - 0.65874119249613091356e0 * t10575 * t10770 - 0.32937059624806545678e0 * t10601 * t10759 - 0.21968466899514280222e2 * t1540 * t57090 * t1545 + 0.29619233351014809600e2 * t575 * t57094 - 0.25502554838335097930e1 * t6222 * t57097 - 0.10122663238838101478e0 * t47391 * t2494 + 0.51005109676670195860e1 * t10572 * t10562 + 0.16044983381648203533e1 * t4823 * t3442 * t13575;
25109   t57116 = t1555 * t57064 * t242;
25110   t57149 = 0.51005109676670195860e1 * t1549 * t13602 * t3446 + 0.89901964350980565762e0 * t4823 * t3455 * t13575 - 0.2766001889280e1 * t575 * t57116 + 0.85008516127783659764e0 * t47431 * t926 * t250 + 0.34978477943697927495e1 * t23095 * t47636 + 0.85008516127783659764e0 * t2465 * t47388 - 0.91029839342146831954e1 * t2465 * t47375 - 0.16879116930178234168e1 * t34481 * t10586 - 0.17980392870196113152e1 * t10700 * t10756 - 0.476312901339054080e0 * t47173 * t2494 + 0.94575714566868943971e0 * t4838 * t3442 * t1545 * t3475 - 0.19598860293882473159e1 * t16800 * t13607 * t4708 * t939 + 0.33758233860356468337e1 * t4838 * t13607 * t13555 - 0.24409407666126978024e1 * t1540 * t2475 * t1545 * t13596;
25111   t57170 = t10642 * t10565;
25112   t57173 = t47220 * t2471;
25113   t57180 = t1534 * t939 * t3423;
25114   t57192 = t34309 * t10561;
25115   t57195 = 0.1428938704017162240e1 * t1549 * t3450 * t13566 - 0.17980392870196113152e1 * t4823 * t3450 * t13575 - 0.11900499994234945968e1 * t16903 * t3442 * t1545 * t3462 - 0.37830285826747577588e1 * t4838 * t13602 * t13555 - 0.476312901339054080e0 * t1549 * t932 * t242 * t13653 + 0.21968466899514280221e2 * t1540 * t10642 * t13559 - 0.29619233351014809600e2 * t575 * t57170 + 0.3291025927890534400e1 * t575 * t57173 - 0.19603781122450563098e2 * t1540 * t34309 * t10585 - 0.65874119249613091356e0 * t7365 * t57180 - 0.13535064380111787705e1 * t16821 * t47342 * t2471 - 0.12751277419167548965e1 * t1549 * t3442 * t13566 - 0.15171639890357805325e1 * t1549 * t13607 * t3446 + 0.88103396910371918316e1 * t575 * t57192;
25116   t57224 = t16642 * t57089;
25117   t57231 = t569 * t57025;
25118   t57234 = 0.11381275721949218649e2 * t4707 * t10621 * t44645 - 0.476312901339054080e0 * t1549 * t13597 * t3446 - 0.714469352008581120e0 * t1549 * t3455 * t13566 + 0.2857877408034324480e1 * t2455 * t57180 + 0.85008516127783659764e0 * t47646 * t2472 + 0.12751277419167548965e1 * t10575 * t10566 + 0.13174823849922618271e1 * t2465 * t47319 - 0.51005109676670195860e1 * t7216 * t47350 * t933 + 0.13174823849922618271e1 * t10572 * t10770 + 0.82889667748265151307e0 * t2465 * t47315 - 0.65874119249613091356e0 * t2465 * t47037 - 0.92817332546461565657e1 * t16763 * t57224 * t16764 + 0.20312390406477209506e2 * t4707 * t57224 * t4708 + 0.461000314880e0 * t57231 * t250;
25119   t57264 = t4735 * t57033;
25120   t57267 = t16634 * t57033;
25121   t57270 = t57224 * t242;
25122   t57274 = t3423 * t3423;
25123   t57275 = t1523 * t57274;
25124   t57283 = t4761 * t57089 * t242;
25125   t57288 = 0.1784720e1 * t57231 * t247 + 0.114668117222400e3 * t57264 * t247 - 0.68216827389720576000e2 * t57267 * t247 + 0.10145661348248508867e2 * t57270 + 0.12740901913600e2 * t47431 * t13641 + 0.9555676435200e1 * t57275 * t247 + 0.34108413694860288000e2 * t34257 * t3427 * t247 + 0.12740901913600e2 * t57173 - 0.42833280e2 * t57283 + 0.64249920e2 * t57070 - 0.10708320e2 * t57116 - 0.14277760e2 * t57073;
25126   t57292 = t16605 * t57033;
25127   t57300 = t16623 * t57089;
25128   t57301 = t57300 * t242;
25129   t57305 = -t577 * t57025 * t242;
25130   t57307 = t1514 * t57274;
25131   t57315 = -0.114668117222400e3 * t57170 + 0.9555676435200e1 * t57066 + 0.34108413694860288000e2 * t57192 + 0.10145661348248508867e2 * t57292 * t247 + 0.114668117222400e3 * t57094 - 0.42833280e2 * t57034 * t247 + 0.64249920e2 * t3434 * t13633 - 0.68216827389720576000e2 * t57301 + 0.1784720e1 * t57305 - 0.10708320e2 * t57307 * t247 - 0.14277760e2 * t2454 * t247 * t13543 - 0.114668117222400e3 * t10691 * t13633;
25132   t57320 = -0.714469352008581120e0 * t10650 * t10759 + 0.18066119535619136469e0 * t47610 * t2472 + 0.22757459835536707988e1 * t10575 * t10569 + 0.10491196150051375396e1 * t10578 * t10569 - 0.60248995135255396168e1 * t7287 * t47640 + 0.17980392870196113152e1 * t7296 * t13567 + 0.51005109676670195860e1 * t2465 * t47694 + 0.2857877408034324480e1 * t6216 * t57097 + 0.27077129145119382320e1 * t2465 * t47512 - 0.51005109676670195860e1 * t2465 * t47093 + 0.1300099825664e1 * t245 * t2501 * t13653 + 0.1428938704017162240e1 * t10700 * t10759 - 0.33758233860356468336e1 * t7287 * t47045 - 0.258304e0 * t245 * t583 * (t57288 + t57315);
25133   t57325 = t3475 * t3475;
25134   t57356 = -0.4404030955044470784e1 * t245 * t10646 * t3475 + 0.975074869248e0 * t245 * t1568 * t57325 - 0.76507664515005293789e1 * t34504 * t13673 - 0.11064007557120e2 * t575 * t57283 + 0.45165298839047841173e-1 * t57292 * t250 + 0.76507664515005293790e1 * t57264 * t250 + 0.45514919671073415976e1 * t2465 * t47090 + 0.87198868390655171972e0 * t7287 * t47041 + 0.11756685810716947640e1 * t47076 * t9501 - 0.30367989716514304434e0 * t10578 * t10770 - 0.18307055749595233518e1 * t1540 * t57065 * t1545 + 0.63756387095837744823e0 * t57275 * t250 - 0.22762551443898437297e2 * t4707 * t57300 * t4708 + 0.39207562244901126197e2 * t1540 * t57300 * t1545;
25135   t57359 = t3462 * t3462;
25136   t57391 = -0.2766001889280e1 * t57307 * t250 + 0.23916119461575365556e1 * t245 * t16771 * t57359 - 0.17620679382074383663e2 * t575 * t57301 - 0.2857877408034324480e1 * t47483 * t2494 + 0.16596011335680e2 * t10601 * t13673 + 0.41444833874132575653e0 * t10601 * t10756 + 0.461000314880e0 * t575 * t57305 + 0.13174823849922618271e1 * t47136 * t2494 + 0.26206649088979828343e1 * t575 * t57270 - 0.13535064380111787705e1 * t2468 * t47537 - 0.13606156761889987933e2 * t1540 * t57224 * t1545 + 0.58783429053584738202e0 * t34257 * t3427 * t250 + 0.89901964350980565762e0 * t10650 * t10756 - 0.11756685810716947640e1 * t57267 * t250 + 0.51005109676670195860e1 * t47367 * t2472;
25137   t57395 = my_piecewise3(t235, 0, t57069 + t57107 + t57149 + t57195 + t57234 + t57320 + t57356 + t57391);
25138   t57396 = my_piecewise3(t234, 0, t57395);
25139   t57398 = -0.4e1 * t13543 * t945 - 0.4e1 * t13687 * t926 - t233 * t57396 - t252 * t57025 - 0.6e1 * t3423 * t3481;
25140   t57406 = t3483 * t3483;
25141   t57414 = t3487 * t3487;
25142   t57415 = t56 * t57414;
25143   t57424 = t13689 * t947;
25144   t57431 = t3483 * t3487;
25145   t57438 = t56 * t57398 * t266 / 0.100e3 - 0.3e1 / 0.25e2 * t13690 * t13694 - 0.9e1 / 0.50e2 * t3484 * t3495 - 0.9e1 / 0.100e3 * t56 * t57406 * t3489 + 0.9e1 / 0.25e2 * t3484 * t264 * t3487 * t266 + 0.3e1 / 0.20e2 * t57415 * t3489 - t57415 * t1608 * t266 / 0.10e2 - t604 * t57398 * t266 / 0.100e3 + t1609 * t57424 * t266 / 0.25e2 + 0.3e1 / 0.100e3 * t1609 * t57406 * t266 - 0.3e1 / 0.50e2 * t4897 * t57431 * t266 + t16979 * t57414 * t266 / 0.100e3;
25146   t57481 = params->c1 * t57398 * t279 + 0.4e1 * t13726 * t968 - 0.12e2 * t3507 * t3523 + 0.6e1 * t3507 * t3527 + 0.24e2 * t959 * t13752 - 0.24e2 * t959 * t2570 * t3483 + 0.4e1 * t959 * t13763 - 0.40e2 / 0.3e1 * t961 * t23 * t4952 * t57414 + 0.20e2 * t961 * t13734 * t57431 - 0.10e2 / 0.3e1 * t961 * t3511 * t57406 - 0.40e2 / 0.9e1 * t961 * t3511 * t57424 + 0.5e1 / 0.9e1 * t961 * t962 * t57398;
25147   t57486 = t3518 * t3518;
25148   t57492 = t3520 * t3520;
25149   t57499 = t47804 * t3483;
25150   t57512 = t10877 * t13689;
25151   t57533 = -0.3e1 * t1263 * t1654 * t285 * t57406 - 0.36e2 * t1263 * t285 * t4965 * t57414 - t14957 * t17089 * t285 * t57414 - 0.6e1 * t1630 * t285 * t449 * t57406 - 0.12e2 * t17071 * t285 * t4017 * t57414 - 0.24e2 * t285 * t449 * t4952 * t57414 + t285 * t449 * t57398 * t618 - 0.8e1 * t1643 * t57512 - 0.4e1 * t1655 * t57512 + 0.36e2 * t4942 * t57499 + 0.36e2 * t4953 * t57499 + 0.6e1 * t4966 * t57499;
25152   t57534 = my_piecewise3(t277, 0.4e1 * t13744 * t283 * t966 + 0.6e1 * t283 * t3518 * t3520 + t283 * t57481 + 0.3e1 * t283 * t57486 + t283 * t57492, t57533);
25153   t57539 = t10817 * t3498;
25154   t57549 = t3405 * t3498;
25155   t57553 = t3400 * t3400;
25156   t57565 = t2418 * t13714;
25157   t57571 = t270 * t270;
25158   t57581 = t3498 * t3498;
25159   t57589 = -0.24e2 * t1423 * t270 * t288 * t57581 - 0.384e3 * t16323 * t288 * t57553 * t57571 + 0.288e3 * t270 * t288 * t4566 * t57553 - 0.192e3 * t13499 * t4566 * t971 + 0.96e2 * t13503 * t1423 * t971 - 0.24e2 * t1423 * t288 * t57553 + 0.6e1 * t288 * t510 * t57581 + 0.96e2 * t10456 * t57539 - 0.32e2 * t10456 * t57565 + 0.288e3 * t47948 * t57549 + 0.8e1 * t510 * t57565;
25160   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25161     v4lapl4[4] = -0.3e1 / 0.8e1 * t846 * t913 * (0.2e1 * t510 * t269 * t57438 * t288 - 0.12e2 * t510 * t3499 * t3534 - 0.8e1 * t510 * t954 * t13772 - t276 * t57534 - 0.8e1 * t510 * t13715 * t971 - 0.24e2 * t510 * t57539 + 0.1174e1 * t57534 - 0.12e2 * t510 * t3400 * t3534 + 0.48e2 * t1423 * t3401 * t3534 - 0.144e3 * t2417 * t57549 + t57589) * t302;
25162 
25163   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25164     v4lapl3tau[0] = 0.0e0;
25165 
25166   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25167     v4lapl3tau[1] = 0.0e0;
25168 
25169   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25170     v4lapl3tau[2] = 0.0e0;
25171 
25172   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25173     v4lapl3tau[3] = 0.0e0;
25174 
25175   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25176     v4lapl3tau[4] = 0.0e0;
25177 
25178   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25179     v4lapl3tau[5] = 0.0e0;
25180 
25181   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25182     v4lapl3tau[6] = 0.0e0;
25183 
25184   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25185     v4lapl3tau[7] = 0.0e0;
25186 
25187   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25188     v4lapl2tau2[0] = 0.0e0;
25189 
25190   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25191     v4lapl2tau2[1] = 0.0e0;
25192 
25193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25194     v4lapl2tau2[2] = 0.0e0;
25195 
25196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25197     v4lapl2tau2[3] = 0.0e0;
25198 
25199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25200     v4lapl2tau2[4] = 0.0e0;
25201 
25202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25203     v4lapl2tau2[5] = 0.0e0;
25204 
25205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25206     v4lapl2tau2[6] = 0.0e0;
25207 
25208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25209     v4lapl2tau2[7] = 0.0e0;
25210 
25211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25212     v4lapl2tau2[8] = 0.0e0;
25213 
25214   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25215     v4lapltau3[0] = 0.0e0;
25216 
25217   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25218     v4lapltau3[1] = 0.0e0;
25219 
25220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25221     v4lapltau3[2] = 0.0e0;
25222 
25223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25224     v4lapltau3[3] = 0.0e0;
25225 
25226   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25227     v4lapltau3[4] = 0.0e0;
25228 
25229   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25230     v4lapltau3[5] = 0.0e0;
25231 
25232   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25233     v4lapltau3[6] = 0.0e0;
25234 
25235   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25236     v4lapltau3[7] = 0.0e0;
25237 
25238   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25239     v4tau4[0] = 0.0e0;
25240 
25241   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25242     v4tau4[1] = 0.0e0;
25243 
25244   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25245     v4tau4[2] = 0.0e0;
25246 
25247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25248     v4tau4[3] = 0.0e0;
25249 
25250   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25251     v4tau4[4] = 0.0e0;
25252 
25253 #ifndef XC_DONT_COMPILE_MXC
25254 
25255   if(order < 5) return;
25256 
25257 
25258 #endif
25259 
25260 #endif
25261 
25262 #endif
25263 
25264 #endif
25265 
25266 #endif
25267 
25268 
25269 }
25270 
25271