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_rscan.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 t39, t40, t45, t46, t50, t51, t52, t55;
28   double t56, t57, t60, t61, t62, t63, t64, t65;
29   double t66, t67, t71, t72, t73, t74, t75, t76;
30   double t77, t78, t79, t82, t83, t84, t85, t86;
31   double t87, t89, t91, t94, t95, t96, t101, t102;
32   double t104, t105, t106, t107, t108, t109, t110, t111;
33   double t112, t113, t114, t117, t118, t119, t120, t121;
34   double t122, t123, t124, t125, t126, t127, t130, t131;
35   double t132, t133, t134, t135, t136, t137, t138, t141;
36   double t142, t143, t144, t145, t146, t148, t150, t151;
37   double t154, t155, t156, t157, t158, t159, t160, t162;
38   double t164, t165, t168, t169, t170, t171, t172, t173;
39   double t175, t177, t178, t184, t186, t187, t190, t191;
40   double t192, t193, t194, t196, t197, t199, t200, t204;
41   double t205, t206, t208;
42 
43 #ifndef XC_DONT_COMPILE_VXC
44   double t212, t213, t214, t215, t217, t218, t219, t220;
45   double t223, t224, t225, t229, t230, t231, t232, t233;
46   double t234, t241, t242, t244, t249, t250, t251, t253;
47   double t254, t255, t258, t259, t261, t262, t263, t266;
48   double t267, t270, t272, t275, t276, t277, t279, t283;
49   double t284, t287, t290, t291, t293, t294, t297, t298;
50   double t301, t302, t303, t306, t307, t310, t313, t317;
51   double t318, t321, t322, t323, t326, t327, t330, t331;
52   double t332, t335, t336, t339, t340, t343, t344, t347;
53   double t348, t349, t352, t353, t356, t357, t358, t363;
54   double t364, t365, t367, t368, t371, t372, t374, t376;
55   double t377, t380, t381, t383, t385, t386, t390, t391;
56   double t392, t395, t398, t399, t400, t401, t403, t404;
57   double t407, t408, t409, t410, t412, t413, t416, t417;
58   double t418, t421, t422, t423, t424, t427, t429, t430;
59   double t434, t437, t438, t442, t443, t444, t445, t446;
60   double t447, t448, t449, t452, t453, t456, t459, t462;
61   double t466, t471, t476, t477, t478, t480, t481, t482;
62   double t483, t484, t485, t486, t488, t489, t492, t495;
63   double t498, t499, t503, t506, t507, t508, t509, t510;
64   double t511, t514, t517, t518, t519, t520, t521, t522;
65   double t523, t524, t525, t528, t531, t532, t533, t534;
66   double t536, t537, t538, t539, t542, t545, t546, t547;
67   double t548, t550, t551, t552, t553, t556, t559, t560;
68   double t561, t562, t564, t565, t566, t567, t570, t573;
69   double t574, t575, t576, t578, t579, t580, t581, t584;
70   double t588, t591, t593, t596, t597, t598, t599, t602;
71   double t605, t606, t607, t608, t610, t611, t613, t614;
72   double t616, t619, t620, t626, t629, t632, t635, t638;
73   double t641, t644, t647, t650, t653, t656, t659, t662;
74   double t666, t669, t671;
75 
76 #ifndef XC_DONT_COMPILE_FXC
77   double t674, t675, t682, t683, t690, t691, t692, t695;
78   double t696, t697, t700, t701, t702, t706, t712, t713;
79   double t714, t715, t718, t719, t722, t726, t727, t729;
80   double t731, t733, t735, t737, t738, t739, t740, t742;
81   double t743, t744, t745, t746, t747, t749, t750, t751;
82   double t752, t758, t759, t760, t762, t763, t765, t766;
83   double t767, t769, t770, t771, t772, t773, t774, t776;
84   double t777, t778, t779, t781, t786, t789, t792, t793;
85   double t795, t798, t801, t803, t806, t807, t808, t810;
86   double t811, t814, t816, t819, t822, t823, t824, t827;
87   double t830, t833, t836, t837, t838, t839, t840, t843;
88   double t844, t845, t846, t849, t850, t851, t852, t853;
89   double t856, t857, t858, t859, t860, t863, t864, t865;
90   double t866, t867, t870, t871, t872, t873, t874, t877;
91   double t878, t882, t883, t887, t888, t892, t893, t898;
92   double t899, t903, t904, t910, t911, t912, t915, t916;
93   double t919, t920, t921, t924, t925, t928, t929, t930;
94   double t933, t934, t937, t938, t939, t942, t944, t945;
95   double t948, t949, t950, t953, t954, t957, t958, t959;
96   double t962, t963, t966, t967, t970, t971, t974, t975;
97   double t978, t979, t982, t983, t987, t988, t991, t992;
98   double t995, t996, t999, t1000, t1003, t1004, t1007, t1008;
99   double t1012, t1013, t1014, t1017, t1022, t1025, t1028, t1031;
100   double t1034, t1039, t1042, t1045, t1048, t1053, t1056, t1060;
101   double t1065, t1068, t1071, t1074, t1079, t1082, t1087, t1090;
102   double t1092, t1095, t1098, t1106, t1109, t1116, t1117, t1118;
103   double t1121, t1122, t1123, t1126, t1127, t1128, t1131, t1132;
104   double t1133, t1136, t1137, t1138, t1141, t1142, t1143, t1148;
105   double t1152, t1160, t1161, t1162, t1163, t1168, t1171, t1172;
106   double t1176, t1180, t1181, t1185, t1190, t1193, t1197, t1198;
107   double t1202, t1205, t1208, t1218, t1219, t1229, t1231, t1232;
108   double t1233, t1234, t1236, t1237, t1238, t1240, t1241, t1242;
109   double t1245, t1246, t1247, t1250, t1251, t1253, t1254, t1255;
110   double t1256, t1257, t1259, t1260, t1261, t1262, t1264, t1265;
111   double t1266, t1268, t1269, t1271, t1272, t1276, t1279, t1282;
112   double t1283, t1286, t1289, t1290, t1292, t1294, t1296, t1299;
113   double t1302, t1305, t1308, t1311, t1328, t1329, t1330, t1333;
114   double t1336, t1337, t1338, t1339, t1342, t1343, t1344, t1345;
115   double t1348, t1351, t1352, t1353, t1354, t1357, t1358, t1359;
116   double t1362, t1365, t1366, t1367, t1368, t1371, t1372, t1373;
117   double t1376, t1379, t1380, t1381, t1382, t1385, t1386, t1387;
118   double t1390, t1391, t1394, t1395, t1397, t1398, t1399, t1400;
119   double t1403, t1404, t1405, t1408, t1411, t1412, t1413, t1414;
120   double t1423, t1435, t1436, t1438, t1441, t1442, t1444, t1447;
121   double t1448, t1450, t1453, t1455, t1458, t1459, t1461, t1464;
122   double t1466, t1469, t1472, t1475, t1476, t1479, t1482, t1483;
123   double t1486, t1487, t1490, t1493, t1496, t1497, t1500, t1503;
124   double t1506, t1507, t1510, t1513, t1516, t1517, t1520, t1523;
125   double t1526, t1527, t1534, t1537, t1538, t1539, t1545, t1548;
126   double t1551, t1553, t1556, t1560, t1561, t1565, t1566, t1569;
127   double t1572, t1573, t1574, t1575, t1577, t1582, t1583, t1584;
128   double t1587, t1591, t1593, t1594, t1595, t1597, t1598, t1599;
129   double t1601, t1602, t1603, t1606, t1607, t1608, t1610, t1612;
130   double t1613, t1614, t1616, t1617, t1619, t1620, t1621, t1623;
131   double t1624, t1626, t1627, t1632, t1635, t1636, t1639, t1640;
132   double t1647, t1652, t1655, t1658, t1659, t1662, t1665, t1668;
133   double t1669, t1672, t1675, t1678, t1679, t1682, t1685, t1688;
134   double t1689, t1692, t1695, t1698, t1699, t1700, t1703, t1706;
135   double t1709, t1710, t1727, t1730, t1733, t1736, t1739, t1742;
136   double t1745, t1766, t1769, t1772, t1775, t1778, t1781, t1784;
137   double t1787, t1788, t1791, t1794, t1803, t1806, t1809, t1812;
138   double t1815, t1818, t1821, t1824, t1831, t1834, t1835, t1843;
139   double t1846, t1848, t1851, t1855, t1856, t1867, t1872, t1874;
140   double t1875, t1876, t1878, t1879, t1880, t1882, t1883, t1884;
141   double t1885, t1886, t1887, t1888, t1889, t1891, t1892, t1893;
142   double t1894, t1895, t1898, t1899, t1902, t1905, t1908, t1911;
143   double t1912, t1914, t1918, t1919, t1922, t1925, t1928, t1931;
144   double t1934, t1937, t1939, t1940, t1942, t1943, t1945, t1946;
145   double t1948, t1949, t1951, t1952, t1954, t1955, t1956, t1959;
146   double t1961, t1962, t1963, t1964, t1965, t1968, t1969, t1970;
147   double t1973, t1975, t1976, t1977, t1978, t1979, t1982, t1983;
148   double t1986, t1988, t1989, t1990, t1991, t1992, t1995, t1996;
149   double t1999, t2001, t2002, t2003, t2004, t2005, t2006, t2009;
150   double t2010, t2013, t2015, t2016, t2017, t2018, t2019, t2021;
151   double t2022, t2023, t2024, t2027, t2028, t2031, t2033, t2034;
152   double t2035, t2036, t2037, t2042, t2043, t2056, t2059, t2061;
153   double t2064, t2065, t2068, t2070, t2071, t2076, t2080, t2081;
154   double t2082, t2084, t2087, t2090, t2094, t2095, t2097, t2098;
155   double t2099, t2101, t2102, t2103, t2105, t2106, t2110, t2113;
156   double t2116, t2117, t2120, t2121, t2128, t2130, t2133, t2136;
157   double t2139, t2142, t2145, t2149, t2150, t2153, t2156, t2159;
158   double t2162, t2165, t2168, t2171, t2174, t2177, t2180, t2183;
159   double t2188, t2190, t2198, t2201, t2203, t2206, t2207, t2210;
160   double t2211, t2215, t2218, t2219, t2220, t2222, t2223, t2224;
161   double t2226, t2227, t2229, t2230, t2233, t2234, t2240, t2243;
162   double t2244, t2251, t2254, t2255, t2258, t2261, t2262, t2265;
163   double t2268, t2269, t2272, t2275, t2276, t2279, t2282, t2283;
164   double t2286, t2287, t2290, t2291, t2297, t2300, t2303, t2306;
165   double t2309, t2312, t2315, t2328, t2331, t2333;
166 
167 #ifndef XC_DONT_COMPILE_KXC
168   double t2342, t2343, t2355, t2356, t2357, t2362, t2363, t2365;
169   double t2368, t2370, t2371, t2375, t2381, t2382, t2386, t2390;
170   double t2395, t2396, t2401, t2402, t2403, t2404, t2407, t2409;
171   double t2416, t2417, t2418, t2419, t2420, t2422, t2423, t2424;
172   double t2426, t2427, t2429, t2430, t2432, t2433, t2435, t2436;
173   double t2439, t2440, t2442, t2443, t2444, t2445, t2446, t2447;
174   double t2449, t2450, t2451, t2452, t2453, t2454, t2456, t2458;
175   double t2460, t2462, t2464, t2466, t2467, t2469, t2470, t2472;
176   double t2473, t2475, t2477, t2478, t2479, t2480, t2482, t2483;
177   double t2484, t2485, t2488, t2489, t2491, t2492, t2493, t2495;
178   double t2496, t2499, t2500, t2501, t2507, t2512, t2513, t2518;
179   double t2522, t2523, t2526, t2529, t2530, t2532, t2533, t2537;
180   double t2544, t2545, t2548, t2550, t2553, t2554, t2555, t2557;
181   double t2559, t2561, t2563, t2564, t2566, t2568, t2569, t2571;
182   double t2573, t2575, t2576, t2577, t2579, t2580, t2582, t2583;
183   double t2584, t2589, t2590, t2593, t2600, t2603, t2607, t2610;
184   double t2619, t2622, t2625, t2628, t2639, t2642, t2645, t2648;
185   double t2651, t2654, t2665, t2668, t2671, t2672, t2673, t2676;
186   double t2678, t2681, t2684, t2685, t2688, t2689, t2692, t2693;
187   double t2696, t2698, t2699, t2702, t2703, t2704, t2707, t2710;
188   double t2713, t2714, t2717, t2720, t2721, t2724, t2725, t2728;
189   double t2731, t2732, t2733, t2736, t2739, t2740, t2743, t2746;
190   double t2747, t2748, t2752, t2753, t2757, t2758, t2762, t2763;
191   double t2767, t2768, t2772, t2773, t2777, t2778, t2794, t2805;
192   double t2806, t2809, t2810, t2813, t2814, t2817, t2818, t2821;
193   double t2822, t2825, t2826, t2827, t2832, t2833, t2836, t2843;
194   double t2844, t2847, t2854, t2855, t2858, t2863, t2865, t2866;
195   double t2869, t2876, t2877, t2880, t2887, t2888, t2891, t2900;
196   double t2905, t2906, t2910, t2911, t2915, t2919, t2920, t2924;
197   double t2925, t2930, t2933, t2934, t2937, t2940, t2943, t2946;
198   double t2949, t2950, t2953, t2957, t2960, t2963, t2966, t2980;
199   double t2983, t2984, t2988, t2991, t2992, t2995, t2997, t3000;
200   double t3001, t3005, t3008, t3009, t3012, t3015, t3018, t3019;
201   double t3022, t3025, t3028, t3031, t3032, t3035, t3036, t3039;
202   double t3040, t3043, t3045, t3046, t3049, t3050, t3053, t3054;
203   double t3059, t3062, t3065, t3068, t3071, t3074, t3079, t3081;
204   double t3084, t3089, t3091, t3094, t3096, t3099, t3101, t3104;
205   double t3106, t3109, t3111, t3114, t3116, t3122, t3137, t3140;
206   double t3141, t3149, t3153, t3156, t3159, t3163, t3166, t3167;
207   double t3171, t3173, t3176, t3177, t3180, t3182, t3183, t3184;
208   double t3187, t3188, t3193, t3194, t3197, t3198, t3201, t3202;
209   double t3205, t3206, t3209, t3210, t3213, t3214, t3217, t3218;
210   double t3219, t3222, t3223, t3226, t3227, t3228, t3231, t3232;
211   double t3235, t3236, t3237, t3238, t3241, t3242, t3245, t3246;
212   double t3247, t3250, t3251, t3254, t3255, t3256, t3259, t3260;
213   double t3263, t3266, t3269, t3272, t3275, t3284, t3293, t3294;
214   double t3297, t3298, t3309, t3311, t3316, t3319, t3320, t3324;
215   double t3334, t3336, t3338, t3342, t3346, t3351, t3355, t3357;
216   double t3358, t3362, t3367, t3374, t3383, t3397, t3410, t3411;
217   double t3412, t3414, t3415, t3418, t3419, t3421, t3423, t3425;
218   double t3426, t3427, t3429, t3430, t3432, t3433, t3434, t3436;
219   double t3437, t3439, t3441, t3442, t3443, t3444, t3445, t3447;
220   double t3448, t3449, t3450, t3452, t3453, t3454, t3455, t3457;
221   double t3458, t3459, t3460, t3461, t3463, t3465, t3466, t3467;
222   double t3469, t3470, t3472, t3473, t3474, t3475, t3477, t3478;
223   double t3480, t3482, t3483, t3485, t3487, t3488, t3490, t3491;
224   double t3492, t3493, t3494, t3496, t3497, t3498, t3500, t3501;
225   double t3502, t3504, t3505, t3507, t3508, t3509, t3511, t3513;
226   double t3514, t3515, t3517, t3518, t3519, t3521, t3522, t3523;
227   double t3525, t3526, t3528, t3529, t3530, t3532, t3533, t3534;
228   double t3542, t3546, t3552, t3553, t3556, t3557, t3561, t3564;
229   double t3567, t3568, t3570, t3573, t3593, t3594, t3597, t3600;
230   double t3605, t3608, t3611, t3618, t3619, t3622, t3625, t3626;
231   double t3629, t3632, t3635, t3636, t3639, t3642, t3649, t3651;
232   double t3654, t3657, t3658, t3661, t3664, t3671, t3674, t3677;
233   double t3678, t3681, t3684, t3691, t3694, t3695, t3698, t3701;
234   double t3704, t3724, t3754, t3756, t3759, t3762, t3765, t3768;
235   double t3771, t3788, t3794, t3795, t3798, t3803, t3804, t3807;
236   double t3812, t3813, t3816, t3822, t3825, t3826, t3829, t3832;
237   double t3835, t3836, t3839, t3844, t3845, t3848, t3849, t3853;
238   double t3857, t3861, t3865, t3869, t3872, t3875, t3882, t3886;
239   double t3889, t3892, t3895, t3898, t3901, t3904, t3907, t3910;
240   double t3913, t3916, t3919, t3922, t3925, t3928, t3929, t3932;
241   double t3935, t3938, t3939, t3944, t3945, t3948, t3949, t3954;
242   double t3955, t3958, t3961, t3964, t3965, t3968, t3971, t3974;
243   double t3977, t3979, t3982, t3985, t3988, t3993, t3994, t3997;
244   double t4000, t4003, t4004, t4009, t4010, t4013, t4016, t4021;
245   double t4022, t4025, t4026, t4029, t4032, t4033, t4038, t4039;
246   double t4042, t4045, t4048, t4049, t4050, t4053, t4056, t4059;
247   double t4060, t4061, t4064, t4065, t4068, t4069, t4070, t4073;
248   double t4076, t4077, t4078, t4081, t4084, t4087, t4088, t4089;
249   double t4092, t4095, t4096, t4097, t4100, t4103, t4106, t4107;
250   double t4118, t4126, t4127, t4128, t4129, t4132, t4133, t4136;
251   double t4137, t4140, t4143, t4144, t4147, t4148, t4151, t4154;
252   double t4155, t4158, t4159, t4162, t4163, t4164, t4167, t4169;
253   double t4170, t4173, t4174, t4177, t4178, t4181, t4182, t4185;
254   double t4188, t4189, t4192, t4193, t4196, t4199, t4200, t4203;
255   double t4204, t4207, t4208, t4211, t4214, t4215, t4218, t4219;
256   double t4224, t4255, t4260, t4261, t4264, t4265, t4268, t4271;
257   double t4280, t4283, t4286, t4288, t4291, t4301, t4302, t4306;
258   double t4310, t4314, t4315, t4317, t4321, t4322, t4324, t4325;
259   double t4329, t4333, t4338, t4339, t4349, t4350, t4353, t4356;
260   double t4357, t4360, t4361, t4364, t4367, t4371, t4378, t4381;
261   double t4382, t4383, t4385, t4386, t4388, t4389, t4391, t4393;
262   double t4395, t4396, t4397, t4399, t4400, t4402, t4403, t4404;
263   double t4406, t4407, t4409, t4411, t4412, t4414, t4415, t4417;
264   double t4419, t4421, t4423, t4424, t4425, t4427, t4428, t4429;
265   double t4431, t4433, t4435, t4437, t4438, t4439, t4441, t4442;
266   double t4443, t4445, t4446, t4448, t4449, t4450, t4452, t4453;
267   double t4454, t4456, t4457, t4458, t4460, t4461, t4463, t4464;
268   double t4465, t4467, t4468, t4469, t4471, t4473, t4474, t4475;
269   double t4477, t4478, t4479, t4481, t4482, t4484, t4485, t4486;
270   double t4500, t4501, t4504, t4508, t4512, t4513, t4557, t4566;
271   double t4569, t4570, t4573, t4576, t4577, t4580, t4583, t4584;
272   double t4587, t4590, t4597, t4600, t4602, t4605, t4627, t4635;
273   double t4638, t4641, t4644, t4647, t4650, t4653, t4656, t4657;
274   double t4660, t4663, t4666, t4669, t4672, t4673, t4676, t4679;
275   double t4682, t4685, t4688, t4691, t4694, t4697, t4700, t4703;
276   double t4706, t4709, t4710, t4713, t4722, t4725, t4728, t4731;
277   double t4734, t4737, t4738, t4743, t4746, t4749, t4752, t4754;
278   double t4757, t4760, t4763, t4766, t4773, t4782, t4785, t4792;
279   double t4795, t4798, t4805, t4808, t4823, t4826, t4829, t4848;
280   double t4849, t4852, t4855, t4858, t4865, t4870, t4877, t4880;
281   double t4885, t4888, t4891, t4895, t4900, t4911, t4916, t4919;
282   double t4926, t4929, t4930, t4933, t4940, t4943, t4946, t4949;
283   double t4952, t4955, t4958, t4961, t4964, t4967, t4970, t4973;
284   double t4976, t4979, t4986, t4989, t4992, t4995, t4998, t5001;
285   double t5004, t5015, t5046, t5075, t5102, t5107, t5110, t5111;
286   double t5116, t5127, t5130, t5132, t5135, t5153, t5156, t5171;
287   double t5172, t5181, t5182, t5184, t5185, t5186, t5188, t5189;
288   double t5190, t5192, t5193, t5194, t5196, t5197, t5198, t5199;
289   double t5200, t5202, t5203, t5204, t5206, t5207, t5208, t5210;
290   double t5211, t5212, t5213, t5214, t5215, t5216, t5217, t5218;
291   double t5219, t5220, t5221, t5222, t5223, t5224, t5225, t5226;
292   double t5228, t5230, t5231, t5233, t5234, t5236, t5237, t5238;
293   double t5239, t5240, t5241, t5242, t5243, t5245, t5246, t5248;
294   double t5249, t5250, t5251, t5252, t5253, t5254, t5256, t5257;
295   double t5258, t5260, t5261, t5262, t5263, t5264, t5265, t5266;
296   double t5271, t5277, t5283, t5284, t5287, t5291, t5294, t5297;
297   double t5298, t5300, t5305, t5308, t5313, t5316, t5319, t5322;
298   double t5325, t5328, t5331, t5334, t5337, t5340, t5344, t5347;
299   double t5350, t5353, t5356, t5359, t5360, t5361, t5362, t5367;
300   double t5368, t5371, t5377, t5378, t5379, t5380, t5381, t5382;
301   double t5383, t5384, t5385, t5386, t5387, t5390, t5393, t5394;
302   double t5397, t5398, t5399, t5400, t5403, t5404, t5407, t5408;
303   double t5411, t5412, t5415, t5418, t5421, t5422, t5423, t5426;
304   double t5429, t5430, t5431, t5432, t5433, t5434, t5435, t5436;
305   double t5437, t5438, t5439, t5440, t5443, t5446, t5449, t5452;
306   double t5455, t5458, t5459, t5462, t5463, t5464, t5467, t5470;
307   double t5473, t5476, t5479, t5482, t5483, t5484, t5487, t5488;
308   double t5489, t5490, t5491, t5492, t5493, t5494, t5495, t5496;
309   double t5497, t5498, t5499, t5502, t5505, t5508, t5511, t5512;
310   double t5513, t5516, t5521, t5525, t5526, t5527, t5532, t5533;
311   double t5536, t5537, t5538, t5539, t5540, t5541, t5544, t5545;
312   double t5546, t5549, t5552, t5553, t5554, t5555, t5556, t5557;
313   double t5558, t5559, t5560, t5561, t5562, t5563, t5564, t5565;
314   double t5566, t5567, t5568, t5569, t5570, t5571, t5572, t5573;
315   double t5574, t5575, t5576, t5577, t5578, t5579, t5582, t5585;
316   double t5588, t5591, t5594, t5598, t5601, t5602, t5605, t5608;
317   double t5611, t5614, t5615, t5618, t5619, t5620, t5621, t5622;
318   double t5623, t5624, t5625, t5626, t5627, t5635, t5639, t5640;
319   double t5641, t5642, t5647, t5648, t5649, t5652, t5653, t5654;
320   double t5657, t5660, t5661, t5670, t5671, t5676, t5677, t5682;
321   double t5683, t5688, t5689, t5690, t5691, t5692, t5693, t5694;
322   double t5695, t5696, t5697, t5698, t5699, t5700, t5702, t5703;
323   double t5705, t5706, t5707, t5712, t5713, t5714, t5715, t5716;
324   double t5718, t5719, t5720, t5721, t5722, t5723, t5724, t5725;
325   double t5726, t5727, t5728, t5729, t5730, t5731, t5732, t5733;
326   double t5734, t5735, t5736, t5737, t5738, t5739, t5740, t5741;
327   double t5742, t5743, t5744, t5745, t5746, t5747, t5748, t5751;
328   double t5752, t5755, t5758, t5759, t5760, t5761, t5762, t5763;
329   double t5768, t5769, t5770, t5773, t5778, t5779, t5780, t5785;
330   double t5786, t5789, t5794, t5795, t5806, t5809, t5811, t5814;
331   double t5818, t5819, t5823, t5827, t5832, t5833, t5834, t5835;
332   double t5838, t5839, t5840, t5848, t5851, t5853, t5858, t5859;
333   double t5864, t5867, t5870, t5873, t5876, t5880, t5887, t5888;
334   double t5891, t5895, t5896, t5897, t5899, t5900, t5901, t5903;
335   double t5905, t5907, t5908, t5910, t5911, t5913, t5914, t5916;
336   double t5917, t5918, t5920, t5921, t5922, t5924, t5925, t5926;
337   double t5927, t5929, t5930, t5932, t5933, t5935, t5936, t5937;
338   double t5939, t5940, t5941, t5943, t5944, t5946, t5947, t5949;
339   double t5950, t5952, t5954, t5955, t5956, t5967, t5974, t5978;
340   double t5985, t5988, t5989, t5996, t5997, t6012, t6014, t6018;
341   double t6019, t6027, t6030, t6033, t6034, t6037, t6040, t6043;
342   double t6046, t6049, t6052, t6055, t6058, t6061, t6064, t6067;
343   double t6070, t6073, t6076, t6079, t6082, t6085, t6088, t6091;
344   double t6094, t6097, t6100, t6103, t6106, t6109, t6112, t6125;
345   double t6141, t6144, t6147, t6150, t6153, t6154, t6169, t6172;
346   double t6175, t6178, t6181, t6184, t6187, t6191, t6201, t6206;
347   double t6209, t6210, t6213, t6220, t6223, t6226, t6233, t6236;
348   double t6239, t6242, t6248, t6249, t6252, t6253, t6256, t6263;
349   double t6266, t6271, t6274, t6277, t6278, t6294, t6315, t6316;
350   double t6318, t6321, t6324, t6327, t6330, t6333, t6336, t6339;
351   double t6342, t6345, t6346, t6351, t6354, t6359, t6362, t6363;
352   double t6374, t6377, t6378, t6380, t6383, t6387, t6388, t6392;
353   double t6396, t6401, t6402, t6408, t6409, t6419, t6422, t6423;
354   double t6426, t6430, t6431, t6433, t6434, t6435, t6437, t6438;
355   double t6440, t6441, t6442, t6444, t6445, t6446, t6448, t6449;
356   double t6450, t6452, t6453, t6455, t6456, t6457, t6458, t6460;
357   double t6461, t6462, t6464, t6465, t6467, t6468, t6470, t6472;
358   double t6474, t6476, t6478, t6479, t6480, t6485, t6495, t6506;
359   double t6507, t6514, t6515, t6529, t6532, t6535, t6538, t6542;
360   double t6545, t6548, t6558, t6560, t6561, t6570, t6593, t6609;
361   double t6610, t6613, t6617, t6620, t6623, t6626, t6629, t6632;
362   double t6635, t6638, t6641, t6644, t6647, t6650, t6651, t6654;
363   double t6657, t6660, t6663, t6666, t6669, t6672, t6673, t6676;
364   double t6679, t6682, t6685, t6687, t6690, t6693, t6696, t6699;
365   double t6702, t6705, t6708, t6711, t6714, t6717, t6720, t6721;
366   double t6724, t6727, t6730, t6733, t6736, t6739, t6742, t6745;
367   double t6748, t6751, t6754, t6757, t6760, t6763, t6766, t6769;
368   double t6770, t6773, t6776, t6779, t6794, t6810, t6811, t6816;
369   double t6817, t6820, t6825, t6826, t6837, t6840, t6842, t6845;
370   double t6849, t6850, t6856, t6866, t6873, t6874, t6875, t6877;
371   double t6878, t6879, t6881, t6882, t6883, t6884, t6885, t6886;
372   double t6888, t6889, t6890, t6891, t6892, t6893, t6895, t6896;
373   double t6897, t6898, t6899, t6900, t6905, t6906, t6915, t6921;
374   double t6924, t6925, t6927, t6930, t6934, t6937, t6940, t6943;
375   double t6946, t6949, t6950, t6953, t6956, t6957, t6960, t6963;
376   double t6964, t6965, t6967, t6968, t6969, t6972, t6975, t6978;
377   double t6979, t6980, t6981, t6982, t6983, t6984, t6985, t6986;
378   double t6987, t6988, t6989, t6990, t6991, t6992, t6993, t6994;
379   double t6995, t6996, t6997, t6998, t6999, t7000, t7001, t7002;
380   double t7003, t7004, t7005, t7006, t7007, t7008, t7009, t7010;
381   double t7011, t7013, t7014, t7015, t7016, t7017, t7019, t7020;
382   double t7021, t7022, t7023, t7024, t7025, t7026, t7029, t7030;
383   double t7033, t7036, t7037, t7038, t7041, t7042, t7043, t7044;
384   double t7045, t7046, t7047, t7048, t7049, t7050, t7051, t7054;
385   double t7057, t7060, t7061, t7064, t7067, t7068, t7071, t7074;
386   double t7077, t7078, t7079, t7080, t7083, t7090, t7106, t7109;
387   double t7111, t7114, t7115, t7123, t7126, t7127, t7128, t7132;
388   double t7136, t7137, t7139, t7140, t7145, t7149, t7152, t7154;
389   double t7157, t7162, t7165, t7168, t7171, t7175, t7182, t7183;
390   double t7185, t7186, t7188, t7189, t7190, t7191, t7192, t7193;
391   double t7195, t7196, t7197, t7198, t7199, t7200, t7202, t7203;
392   double t7204, t7205, t7206, t7207, t7208, t7216, t7220, t7227;
393   double t7230, t7234, t7238, t7239, t7249, t7252, t7254, t7257;
394   double t7258, t7263, t7264, t7267, t7268, t7269, t7270, t7271;
395   double t7272, t7273, t7274, t7275, t7277, t7278, t7279, t7280;
396   double t7281, t7282, t7283, t7286, t7289, t7292, t7296, t7297;
397   double t7298, t7299, t7300, t7301, t7302, t7303, t7304, t7305;
398   double t7306, t7307, t7308, t7309, t7310, t7311, t7314, t7315;
399   double t7318, t7319, t7320, t7323, t7330, t7333, t7334, t7335;
400   double t7340, t7343, t7344, t7345, t7346, t7349, t7350, t7351;
401   double t7352, t7353, t7354, t7355, t7358, t7359, t7360, t7361;
402   double t7362, t7363, t7364, t7367, t7370, t7372, t7375, t7378;
403   double t7381, t7384, t7387, t7388, t7389, t7390, t7391, t7393;
404   double t7394, t7395, t7396, t7397, t7398, t7399, t7400, t7401;
405   double t7402, t7403, t7404, t7405, t7406, t7407, t7410, t7411;
406   double t7412, t7413, t7414, t7415, t7416, t7419, t7420, t7421;
407   double t7422, t7426, t7429, t7434, t7445, t7448, t7450, t7453;
408   double t7454, t7462, t7465, t7468, t7471, t7481, t7484, t7487;
409   double t7491, t7492, t7494, t7495, t7497, t7498, t7499, t7501;
410   double t7502, t7503, t7504, t7505, t7507, t7508, t7509, t7510;
411   double t7515, t7527, t7534, t7538, t7539, t7546, t7558, t7560;
412   double t7561, t7565, t7568, t7571, t7572, t7575, t7578, t7581;
413   double t7590, t7593, t7595, t7600, t7603, t7606, t7609, t7612;
414   double t7615, t7618, t7621, t7625, t7628, t7629, t7632, t7635;
415   double t7638, t7639, t7640, t7641, t7642, t7643, t7644, t7645;
416   double t7648, t7649, t7650, t7651, t7652, t7653, t7654, t7656;
417   double t7657, t7659, t7660, t7661, t7662, t7663, t7664, t7667;
418   double t7668, t7669, t7670, t7671, t7672, t7673, t7674, t7676;
419   double t7677, t7678, t7679, t7680, t7681, t7682, t7683, t7684;
420   double t7685, t7686, t7687, t7691, t7694, t7699, t7710, t7713;
421   double t7715, t7718, t7719, t7722, t7723, t7724, t7728, t7732;
422   double t7740, t7743, t7744, t7745, t7747, t7748, t7749, t7751;
423   double t7752, t7753, t7754, t7756, t7757, t7758, t7760, t7761;
424   double t7762, t7766, t7769, t7770, t7785, t7786, t7796, t7797;
425   double t7798, t7799, t7802, t7803, t7806, t7809, t7810, t7813;
426   double t7816, t7817, t7820, t7821, t7824, t7827, t7828, t7831;
427   double t7832, t7835, t7838, t7843, t7844, t7845, t7846, t7847;
428   double t7848, t7849, t7850, t7852, t7855, t7858, t7861, t7864;
429   double t7867, t7870, t7873, t7876, t7879, t7882, t7885, t7886;
430   double t7890, t7891, t7892, t7893, t7894, t7896, t7897, t7898;
431   double t7899, t7900, t7901, t7902, t7903, t7910, t7926, t7929;
432   double t7931;
433 
434 #ifndef XC_DONT_COMPILE_LXC
435   double t7943, t7947, t7955, t7972, t7976, t7989, t7990, t8000;
436   double t8013, t8016, t8038, t8040, t8047, t8053, t8055, t8057;
437   double t8059, t8062, t8064, t8066, t8068, t8070, t8072, t8074;
438   double t8082, t8083, t8117, t8142, t8154, t8155, t8157, t8159;
439   double t8161, t8163, t8165, t8168, t8170, t8172, t8174, t8176;
440   double t8178, t8179, t8180, t8182, t8183, t8184, t8186, t8187;
441   double t8188, t8190, t8191, t8193, t8194, t8195, t8196, t8198;
442   double t8199, t8200, t8201, t8203, t8204, t8205, t8207, t8209;
443   double t8210, t8213, t8216, t8218, t8223, t8224, t8226, t8230;
444   double t8232, t8234, t8236, t8238, t8240, t8243, t8247, t8249;
445   double t8251, t8254, t8257, t8260, t8262, t8266, t8270, t8272;
446   double t8273, t8275, t8277, t8280, t8283, t8286, t8289, t8293;
447   double t8297, t8301, t8303, t8305, t8308, t8311, t8312, t8315;
448   double t8316, t8317, t8318, t8320, t8321, t8322, t8325, t8326;
449   double t8329, t8334, t8335, t8337, t8338, t8342, t8343, t8345;
450   double t8346, t8349, t8351, t8352, t8355, t8357, t8359, t8362;
451   double t8363, t8365, t8367, t8375, t8381, t8382, t8385, t8402;
452   double t8406, t8437, t8446, t8456, t8462, t8468, t8469, t8475;
453   double t8494, t8501, t8505, t8518, t8525, t8527, t8536, t8540;
454   double t8544, t8555, t8581, t8586, t8591, t8601, t8606, t8611;
455   double t8616, t8621, t8626, t8631, t8647, t8651, t8655, t8659;
456   double t8671, t8672, t8684, t8688, t8695, t8700, t8705, t8708;
457   double t8721, t8724, t8727, t8730, t8733, t8735, t8738, t8762;
458   double t8768, t8777, t8792, t8799, t8806, t8812, t8864, t8867;
459   double t8872, t8879, t8886, t8890, t8896, t8900, t8901, t8903;
460   double t8906, t8910, t8911, t8922, t8941, t8956, t8963, t8966;
461   double t8979, t8990, t9001, t9004, t9008, t9011, t9012, t9015;
462   double t9019, t9020, t9023, t9027, t9028, t9031, t9035, t9036;
463   double t9040, t9058, t9087, t9093, t9114, t9121, t9138, t9152;
464   double t9178, t9181, t9184, t9187, t9190, t9191, t9194, t9197;
465   double t9200, t9203, t9206, t9209, t9215, t9219, t9229, t9232;
466   double t9235, t9246, t9250, t9262, t9269, t9274, t9297, t9306;
467   double t9309, t9315, t9335, t9342, t9372, t9377, t9418, t9432;
468   double t9453, t9505, t9558, t9600, t9612, t9639, t9642, t9661;
469   double t9695, t9738, t9754, t9765, t9778, t9782, t9798, t9799;
470   double t9800, t9801, t9805, t9806, t9809, t9814, t9823, t9826;
471   double t9861, t9865, t9866, t9872, t9888, t9905, t9909, t9913;
472   double t9920, t9927, t9934, t9939, t9991, t9992, t9994, t9997;
473   double t10000, t10001, t10003, t10007, t10009, t10011, t10013, t10015;
474   double t10017, t10019, t10021, t10022, t10025, t10028, t10031, t10034;
475   double t10036, t10039, t10041, t10044, t10047, t10049, t10051, t10053;
476   double t10055, t10057, t10060, t10062, t10064, t10066, t10069, t10072;
477   double t10074, t10076, t10079, t10080, t10082, t10084, t10085, t10087;
478   double t10089, t10091, t10093, t10095, t10097, t10098, t10099, t10101;
479   double t10102, t10103, t10105, t10107, t10109, t10111, t10113, t10115;
480   double t10117, t10119, t10121, t10123, t10125, t10129, t10131, t10133;
481   double t10135, t10137, t10140, t10141, t10143, t10145, t10147, t10149;
482   double t10151, t10153, t10155, t10158, t10161, t10163, t10165, t10166;
483   double t10168, t10169, t10172, t10173, t10175, t10178, t10179, t10181;
484   double t10182, t10183, t10185, t10186, t10188, t10189, t10190, t10191;
485   double t10193, t10194, t10196, t10197, t10199, t10200, t10202, t10203;
486   double t10205, t10206, t10208, t10211, t10212, t10214, t10215, t10218;
487   double t10219, t10221, t10222, t10223, t10224, t10226, t10227, t10229;
488   double t10230, t10231, t10234, t10235, t10237, t10238, t10240, t10241;
489   double t10242, t10244, t10245, t10246, t10250, t10252, t10253, t10255;
490   double t10256, t10257, t10258, t10260, t10261, t10263, t10264, t10266;
491   double t10268, t10269, t10270, t10273, t10274, t10275, t10277, t10278;
492   double t10279, t10280, t10282, t10284, t10285, t10287, t10288, t10290;
493   double t10291, t10293, t10295, t10298, t10305, t10308, t10311, t10315;
494   double t10319, t10323, t10327, t10345, t10349, t10353, t10356, t10395;
495   double t10418, t10429, t10477, t10482, t10487, t10490, t10491, t10495;
496   double t10498, t10499, t10505, t10509, t10512, t10513, t10523, t10526;
497   double t10527, t10549, t10565, t10577, t10580, t10581, t10610, t10662;
498   double t10688, t10700, t10708, t10719, t10726, t10744, t10771, t10774;
499   double t10783, t10835, t10874, t10900, t10903, t10920, t10930, t10933;
500   double t10936, t10940, t10943, t10963, t10964, t10967, t10974, t10980;
501   double t10985, t10986, t11001, t11002, t11014, t11040, t11045, t11050;
502   double t11051, t11084, t11085, t11088, t11089, t11102, t11103, t11106;
503   double t11109, t11117, t11124, t11142, t11157, t11164, t11171, t11178;
504   double t11207, t11228, t11229, t11232, t11240, t11245, t11246, t11261;
505   double t11270, t11292, t11328, t11342, t11346, t11350, t11353, t11356;
506   double t11357, t11377, t11422, t11425, t11435, t11443, t11447, t11453;
507   double t11460, t11464, t11469, t11473, t11509, t11560, t11621, t11640;
508   double t11651, t11689, t11696, t11747, t11800, t11830, t11833, t11834;
509   double t11838, t11841, t11844, t11847, t11848, t11851, t11855, t11858;
510   double t11861, t11862, t11865, t11868, t11869, t11872, t11873, t11876;
511   double t11879, t11882, t11883, t11886, t11887, t11890, t11894, t11898;
512   double t11899, t11902, t11903, t11906, t11910, t11913, t11916, t11920;
513   double t11929, t11932, t11945, t11948, t11958, t11963, t11968, t11969;
514   double t11982, t11985, t11987, t11990, t11993, t11997, t12000, t12004;
515   double t12007, t12020, t12023, t12026, t12029, t12030, t12033, t12037;
516   double t12042, t12045, t12052, t12059, t12062, t12065, t12068, t12070;
517   double t12071, t12075, t12084, t12089, t12092, t12102, t12103, t12108;
518   double t12117, t12149, t12179, t12195, t12203, t12204, t12207, t12209;
519   double t12211, t12213, t12215, t12216, t12218, t12219, t12221, t12222;
520   double t12224, t12225, t12227, t12228, t12230, t12232, t12233, t12235;
521   double t12236, t12237, t12239, t12240, t12242, t12244, t12245, t12247;
522   double t12248, t12251, t12253, t12255, t12257, t12259, t12261, t12263;
523   double t12265, t12267, t12269, t12271, t12274, t12276, t12278, t12280;
524   double t12282, t12284, t12287, t12290, t12293, t12296, t12298, t12300;
525   double t12302, t12304, t12305, t12307, t12309, t12311, t12313, t12315;
526   double t12317, t12319, t12321, t12323, t12325, t12327, t12329, t12331;
527   double t12333, t12335, t12337, t12339, t12342, t12344, t12346, t12348;
528   double t12349, t12351, t12352, t12354, t12355, t12357, t12358, t12360;
529   double t12361, t12363, t12364, t12366, t12368, t12371, t12372, t12374;
530   double t12375, t12376, t12378, t12379, t12382, t12383, t12385, t12386;
531   double t12389, t12390, t12392, t12393, t12395, t12397, t12399, t12400;
532   double t12402, t12404, t12406, t12407, t12409, t12411, t12413, t12414;
533   double t12417, t12419, t12422, t12424, t12426, t12428, t12430, t12433;
534   double t12436, t12438, t12440, t12442, t12443, t12445, t12447, t12449;
535   double t12451, t12454, t12457, t12460, t12463, t12465, t12467, t12470;
536   double t12472, t12475, t12484, t12488, t12492, t12496, t12500, t12522;
537   double t12576, t12627, t12653, t12662, t12700, t12744, t12788, t12825;
538   double t12848, t12857, t12864, t12871, t12878, t12886, t12890, t12905;
539   double t12958, t13007, t13062, t13119, t13177, t13222, t13283, t13348;
540   double t13412, t13459, t13490, t13540, t13572, t13617, t13628, t13673;
541   double t13718, t13762, t13805, t13850, t13897, t13947, t13993, t14027;
542   double t14031, t14035, t14039, t14043, t14047, t14050, t14057, t14060;
543   double t14063, t14066, t14068, t14084, t14096, t14097, t14110, t14125;
544   double t14128, t14137, t14152, t14156, t14178, t14191, t14240, t14252;
545   double t14256, t14264, t14271, t14283, t14293, t14297, t14301, t14305;
546   double t14310, t14311, t14313, t14314, t14315, t14316, t14317, t14318;
547   double t14319, t14320, t14321, t14322, t14323, t14324, t14326, t14327;
548   double t14330, t14331, t14333, t14334, t14336, t14337, t14340, t14341;
549   double t14344, t14345, t14347, t14348, t14349, t14350, t14351, t14353;
550   double t14354, t14356, t14357, t14359, t14360, t14362, t14365, t14366;
551   double t14367, t14368, t14369, t14370, t14371, t14372, t14373, t14374;
552   double t14376, t14378, t14379, t14380, t14382, t14383, t14384, t14386;
553   double t14387, t14388, t14389, t14390, t14392, t14393, t14395, t14396;
554   double t14397, t14398, t14399, t14401, t14402, t14403, t14405, t14406;
555   double t14408, t14410, t14412, t14413, t14415, t14417, t14418, t14420;
556   double t14421, t14422, t14423, t14424, t14425, t14427, t14430, t14432;
557   double t14435, t14438, t14440, t14441, t14442, t14443, t14445, t14446;
558   double t14448, t14449, t14450, t14452, t14456, t14458, t14460, t14461;
559   double t14463, t14465, t14466, t14467, t14468, t14470, t14472, t14473;
560   double t14474, t14476, t14477, t14478, t14479, t14480, t14482, t14484;
561   double t14486, t14489, t14491, t14493, t14495, t14497, t14498, t14500;
562   double t14501, t14503, t14504, t14505, t14507, t14509, t14511, t14512;
563   double t14515, t14517, t14519, t14521, t14523, t14525, t14526, t14528;
564   double t14530, t14532, t14534, t14535, t14537, t14539, t14541, t14543;
565   double t14545, t14547, t14549, t14551, t14553, t14554, t14555, t14556;
566   double t14557, t14558, t14559, t14561, t14562, t14563, t14566, t14573;
567   double t14635, t14636, t14637, t14641, t14646, t14652, t14654, t14662;
568   double t14664, t14665, t14670, t14679, t14681, t14693, t14695, t14703;
569   double t14705, t14710, t14730, t14732, t14744, t14746, t14748, t14749;
570   double t14752, t14758, t14760, t14761, t14765, t14768, t14771, t14773;
571   double t14776, t14783, t14788, t14789, t14800, t14803, t14806, t14818;
572   double t14821, t14829, t14831, t14851, t14852, t14855, t14857, t14860;
573   double t14863, t14865, t14868, t14871, t14872, t14885, t14886, t14898;
574   double t14904, t14910, t14911, t14912, t14924, t14927, t14933, t14948;
575   double t14949, t14952, t14953, t14959, t14960, t14961, t14967, t14971;
576   double t14980, t14982, t14983, t14984, t14993, t14994, t14995, t15004;
577   double t15007, t15011, t15021, t15022, t15026, t15027, t15031, t15032;
578   double t15036, t15037, t15041, t15042, t15043, t15047, t15048, t15049;
579   double t15073, t15076, t15095, t15096, t15097, t15098, t15099, t15101;
580   double t15102, t15113, t15124, t15126, t15136, t15137, t15140, t15142;
581   double t15147, t15148, t15151, t15152, t15153, t15154, t15155, t15156;
582   double t15162, t15163, t15164, t15166, t15168, t15169, t15179, t15180;
583   double t15184, t15198, t15207, t15224, t15225, t15226, t15227, t15228;
584   double t15229, t15230, t15231, t15234, t15236, t15241, t15248, t15250;
585   double t15251, t15255, t15271, t15273, t15275, t15277, t15285, t15286;
586   double t15288, t15291, t15297, t15299, t15301, t15305, t15317, t15319;
587   double t15321, t15323, t15330, t15343, t15347, t15356, t15357, t15360;
588   double t15371, t15372, t15375, t15376, t15399, t15400, t15403, t15407;
589   double t15409, t15411, t15413, t15415, t15417, t15418, t15421, t15431;
590   double t15432, t15433, t15436, t15439, t15445, t15447, t15449, t15451;
591   double t15452, t15453, t15456, t15457, t15462, t15463, t15466, t15467;
592   double t15470, t15471, t15472, t15473, t15474, t15475, t15477, t15481;
593   double t15484, t15486, t15488, t15491, t15494, t15496, t15497, t15501;
594   double t15504, t15512, t15515, t15518, t15521, t15532, t15537, t15546;
595   double t15551, t15553, t15555, t15558, t15560, t15562, t15565, t15568;
596   double t15571, t15574, t15577, t15580, t15583, t15590, t15593, t15596;
597   double t15597, t15599, t15602, t15615, t15616, t15621, t15630, t15631;
598   double t15632, t15633, t15634, t15637, t15640, t15648, t15659, t15665;
599   double t15666, t15667, t15668, t15684, t15737, t15748, t15750, t15752;
600   double t15755, t15758, t15760, t15762, t15765, t15767, t15769, t15772;
601   double t15775, t15777, t15778, t15782, t15784, t15786, t15789, t15792;
602   double t15793, t15828, t15847, t15869, t15871, t15873, t15874, t15881;
603   double t15899, t15902, t15903, t15908, t15909, t15910, t15911, t15912;
604   double t15913, t15914, t15915, t15916, t15917, t15927, t15933, t15939;
605   double t15948, t15949, t15950, t15954, t15959, t15974, t15976, t15977;
606   double t15978, t15979, t15980, t15981, t15982, t15983, t15984, t15985;
607   double t15986, t15987, t15988, t15989, t15990, t15991, t15992, t15993;
608   double t15994, t15995, t16001, t16004, t16009, t16012, t16015, t16022;
609   double t16025, t16028, t16054, t16056, t16065, t16087, t16107, t16154;
610   double t16157, t16159, t16163, t16203, t16253, t16297, t16302, t16316;
611   double t16318, t16320, t16323, t16326, t16329, t16331, t16332, t16334;
612   double t16336, t16338, t16341, t16344, t16346, t16348, t16350, t16352;
613   double t16354, t16356, t16359, t16362, t16365, t16368, t16370, t16372;
614   double t16374, t16376, t16378, t16380, t16382, t16384, t16386, t16388;
615   double t16390, t16392, t16396, t16397, t16401, t16402, t16404, t16407;
616   double t16408, t16410, t16411, t16412, t16414, t16416, t16417, t16419;
617   double t16420, t16423, t16424, t16426, t16427, t16429, t16430, t16432;
618   double t16433, t16434, t16436, t16438, t16440, t16442, t16444, t16446;
619   double t16447, t16448, t16451, t16452, t16454, t16455, t16456, t16458;
620   double t16459, t16462, t16464, t16466, t16468, t16469, t16471, t16472;
621   double t16474, t16475, t16477, t16478, t16480, t16481, t16482, t16484;
622   double t16485, t16487, t16488, t16490, t16491, t16493, t16495, t16497;
623   double t16498, t16500, t16501, t16503, t16504, t16506, t16507, t16509;
624   double t16510, t16512, t16513, t16516, t16517, t16519, t16522, t16533;
625   double t16546, t16558, t16562, t16566, t16574, t16586, t16596, t16599;
626   double t16611, t16621, t16622, t16624, t16625, t16634, t16668, t16685;
627   double t16686, t16710, t16733, t16739, t16740, t16743, t16747, t16752;
628   double t16758, t16780, t16790, t16830, t16869, t16880, t16894, t16929;
629   double t16958, t16972, t16995, t17019, t17040, t17043, t17047, t17049;
630   double t17073, t17103, t17113, t17143, t17168, t17193, t17216, t17228;
631   double t17253, t17271, t17289, t17299, t17321, t17345, t17368, t17392;
632   double t17418, t17456, t17490, t17525, t17559, t17564, t17566, t17571;
633   double t17579, t17582, t17588, t17596, t17598, t17605, t17618, t17643;
634   double t17674, t17700, t17724, t17749, t17755, t17758, t17764, t17769;
635   double t17774, t17779, t17787, t17799, t17809, t17810, t17817, t17819;
636   double t17822, t17825, t17833, t17845, t17852, t17855, t17861, t17863;
637   double t17865, t17878, t17880, t17888, t17908, t17912, t17918, t17938;
638   double t17960, t17968, t17972, t17988, t17989, t17992, t17993, t18004;
639   double t18041, t18045, t18054, t18063, t18108, t18109, t18117, t18135;
640   double t18137, t18139, t18141, t18143, t18146, t18148, t18151, t18154;
641   double t18156, t18158, t18160, t18163, t18166, t18168, t18170, t18172;
642   double t18174, t18177, t18179, t18181, t18183, t18187, t18190, t18193;
643   double t18196, t18199, t18202, t18205, t18224, t18234, t18237, t18240;
644   double t18241, t18243, t18252, t18255, t18257, t18260, t18263, t18274;
645   double t18291, t18294, t18298, t18319, t18324, t18326, t18328, t18330;
646   double t18332, t18358, t18402, t18442, t18450, t18466, t18509, t18557;
647   double t18585, t18587, t18589, t18591, t18593, t18595, t18597, t18599;
648   double t18601, t18603, t18606, t18607, t18609, t18611, t18613, t18645;
649   double t18660, t18662, t18664, t18666, t18669, t18672, t18674, t18676;
650   double t18677, t18699, t18713, t18715, t18717, t18719, t18765, t18806;
651   double t18820, t18822, t18826, t18829, t18831, t18850, t18901, t18947;
652   double t18981, t18986, t19008, t19016, t19024, t19038, t19044, t19050;
653   double t19056, t19059, t19063, t19064, t19067, t19068, t19070, t19071;
654   double t19073, t19078, t19081, t19082, t19084, t19085, t19095, t19108;
655   double t19119, t19121, t19123, t19127, t19139, t19154, t19155, t19189;
656   double t19219, t19225, t19229, t19232, t19252, t19261, t19284, t19288;
657   double t19293, t19325, t19342, t19387, t19412, t19455, t19480, t19482;
658   double t19485, t19487, t19488, t19490, t19491, t19493, t19494, t19496;
659   double t19497, t19499, t19501, t19503, t19505, t19507, t19508, t19509;
660   double t19510, t19512, t19513, t19515, t19516, t19518, t19519, t19520;
661   double t19522, t19523, t19525, t19527, t19528, t19530, t19531, t19533;
662   double t19534, t19537, t19538, t19539, t19542, t19544, t19546, t19549;
663   double t19551, t19553, t19555, t19557, t19559, t19561, t19565, t19568;
664   double t19571, t19574, t19576, t19578, t19581, t19584, t19586, t19588;
665   double t19607, t19611, t19639, t19667, t19669, t19680, t19683, t19694;
666   double t19698, t19700, t19702, t19704, t19706, t19708, t19710, t19712;
667   double t19714, t19715, t19717, t19719, t19721, t19724, t19727, t19730;
668   double t19733, t19736, t19743, t19748, t19773, t19777, t19788, t19790;
669   double t19798, t19801, t19809, t19810, t19833, t19837, t19838, t19849;
670   double t19852, t19855, t19858, t19861, t19865, t19869, t19872, t19883;
671   double t19886, t19889, t19892, t19899, t19916, t19932, t19935, t19937;
672   double t19940, t19964, t19969, t19974, t19983, t20003, t20006, t20010;
673   double t20013, t20016, t20024, t20043, t20048, t20062, t20065, t20068;
674   double t20071, t20074, t20081, t20084, t20087, t20092, t20098, t20101;
675   double t20103, t20105, t20107, t20109, t20111, t20113, t20115, t20117;
676   double t20124, t20127, t20131, t20153, t20155, t20157, t20159, t20162;
677   double t20164, t20166, t20168, t20176, t20178, t20180, t20183, t20185;
678   double t20187, t20190, t20200, t20204, t20207, t20209, t20211, t20213;
679   double t20215, t20217, t20219, t20221, t20224, t20226, t20228, t20230;
680   double t20237, t20240, t20242, t20244, t20246, t20248, t20250, t20252;
681   double t20254, t20256, t20258, t20260, t20262, t20277, t20295, t20304;
682   double t20307, t20312, t20315, t20320, t20328, t20344, t20345, t20348;
683   double t20354, t20400, t20423, t20439, t20443, t20445, t20447, t20449;
684   double t20457, t20461, t20463, t20465, t20468, t20470, t20474, t20478;
685   double t20480, t20482, t20484, t20486, t20488, t20492, t20495, t20498;
686   double t20500, t20504, t20514, t20517, t20520, t20522, t20530, t20533;
687   double t20536, t20538, t20541, t20542, t20563, t20566, t20569, t20572;
688   double t20575, t20579, t20582, t20591, t20600, t20602, t20604, t20608;
689   double t20610, t20612, t20616, t20626, t20637, t20638, t20645, t20647;
690   double t20649, t20651, t20654, t20657, t20660, t20670, t20677, t20679;
691   double t20682, t20685, t20688, t20694, t20697, t20703, t20706, t20713;
692   double t20730, t20733, t20739, t20742, t20747, t20761, t20776, t20778;
693   double t20781, t20784, t20787, t20788, t20795, t20797, t20800, t20802;
694   double t20805, t20808, t20811, t20829, t20832, t20835, t20837, t20839;
695   double t20848, t20851, t20868, t20881, t20884, t20887, t20890, t20899;
696   double t20927, t20936, t20937, t20938, t20942, t20943, t20945, t20946;
697   double t20948, t20962, t20965, t20969, t20971, t20973, t20974, t20978;
698   double t20982, t20988, t20990, t20994, t20996, t20999, t21001, t21003;
699   double t21016, t21024, t21025, t21026, t21028, t21029, t21031, t21034;
700   double t21037, t21040, t21041, t21043, t21044, t21046, t21047, t21049;
701   double t21057, t21059, t21061, t21063, t21065, t21069, t21079, t21080;
702   double t21082, t21084, t21086, t21088, t21090, t21092, t21094, t21096;
703   double t21098, t21100, t21102, t21104, t21106, t21124, t21128, t21134;
704   double t21153, t21156, t21159, t21162, t21165, t21168, t21170, t21172;
705   double t21181, t21183, t21185, t21193, t21195, t21197, t21199, t21201;
706   double t21203, t21205, t21207, t21209, t21211, t21213, t21215, t21217;
707   double t21219, t21221, t21223, t21225, t21226, t21228, t21235, t21238;
708   double t21241, t21256, t21270, t21283, t21301, t21303, t21307, t21310;
709   double t21311, t21319, t21320, t21323, t21328, t21329, t21332, t21340;
710   double t21358, t21360, t21395, t21401, t21405, t21438, t21444, t21481;
711   double t21518, t21549, t21564, t21580, t21610, t21632, t21654, t21657;
712   double t21662, t21665, t21673, t21687, t21691, t21698, t21706, t21721;
713   double t21753, t21759, t21784, t21788, t21799, t21805, t21810, t21813;
714   double t21814, t21816, t21817, t21819, t21820, t21824, t21826, t21827;
715   double t21829, t21830, t21832, t21833, t21835, t21836, t21843, t21845;
716   double t21847, t21848, t21850, t21851, t21853, t21855, t21859, t21860;
717   double t21862, t21864, t21867, t21872, t21873, t21875, t21876, t21878;
718   double t21879, t21882, t21885, t21895, t21897, t21906, t21913, t21924;
719   double t21935, t21943, t21980, t21996, t22010, t22027, t22038, t22050;
720   double t22062, t22073, t22091, t22113, t22139, t22152, t22170, t22180;
721   double t22190, t22223, t22244, t22260, t22277, t22300, t22318, t22323;
722   double t22325, t22331, t22339, t22358, t22368, t22371, t22374, t22379;
723   double t22388, t22395, t22398, t22401, t22415, t22418, t22426, t22436;
724   double t22474, t22513, t22520, t22549, t22571, t22582, t22583, t22592;
725   double t22595, t22598, t22601, t22618, t22621, t22624, t22628, t22631;
726   double t22633, t22637, t22638, t22650, t22652, t22681, t22697, t22721;
727   double t22728, t22730, t22736, t22739, t22742, t22745, t22757, t22760;
728   double t22770, t22777, t22780, t22804, t22807, t22810, t22820, t22823;
729   double t22825, t22828, t22844, t22855, t22857, t22859, t22871, t22889;
730   double t22905, t22919, t22923, t22934, t22961, t22963, t22965, t22967;
731   double t22973, t22990, t23004, t23017, t23020, t23023, t23026, t23029;
732   double t23031, t23034, t23037, t23040, t23042, t23069, t23137, t23206;
733   double t23230, t23233, t23239, t23240, t23243, t23248, t23251, t23256;
734   double t23263, t23264, t23275, t23284, t23292, t23305, t23307, t23321;
735   double t23322, t23324, t23330, t23342, t23355, t23358, t23359, t23362;
736   double t23368, t23374, t23377, t23380, t23383, t23384, t23433, t23460;
737   double t23471, t23484, t23527, t23565, t23575, t23600, t23607, t23609;
738   double t23611, t23613, t23615, t23616, t23617, t23618, t23620, t23621;
739   double t23622, t23626, t23627, t23629, t23631, t23635, t23636, t23638;
740   double t23639, t23641, t23644, t23646, t23654, t23660, t23661, t23683;
741   double t23702, t23703, t23704, t23706, t23708, t23710, t23713, t23716;
742   double t23719, t23722, t23725, t23728, t23731, t23734, t23737, t23740;
743   double t23754, t23758, t23761, t23764, t23776, t23779, t23782, t23799;
744   double t23815, t23825, t23829, t23830, t23832, t23833, t23838, t23841;
745   double t23844, t23847, t23850, t23853, t23859, t23862, t23868, t23870;
746   double t23872, t23876, t23878, t23882, t23883, t23891, t23896, t23897;
747   double t23900, t23901, t23905, t23908, t23910, t23911, t23916, t23920;
748   double t23924, t23928, t23932, t23933, t23937, t23938, t23943, t23948;
749   double t23955, t23962, t23974, t23982, t23995, t24016, t24017, t24020;
750   double t24086, t24088, t24091, t24093, t24094, t24095, t24096, t24097;
751   double t24099, t24100, t24101, t24102, t24103, t24104, t24105, t24110;
752   double t24111, t24112, t24113, t24115, t24116, t24125, t24156, t24177;
753   double t24189, t24190, t24191, t24192, t24195, t24196, t24198, t24201;
754   double t24202, t24203, t24204, t24205, t24206, t24208, t24211, t24212;
755   double t24214, t24216, t24224, t24225, t24230, t24235, t24236, t24237;
756   double t24246, t24258, t24259, t24260, t24262, t24263, t24264, t24265;
757   double t24266, t24267, t24268, t24271, t24273, t24274, t24275, t24276;
758   double t24277, t24278, t24279, t24280, t24281, t24283, t24284, t24285;
759   double t24286, t24287, t24305, t24306, t24307, t24319, t24322, t24325;
760   double t24328, t24333, t24363, t24374, t24379, t24384, t24389, t24394;
761   double t24397, t24404, t24418, t24419, t24451, t24501, t24504, t24506;
762   double t24507, t24510, t24512, t24513, t24515, t24516, t24521, t24531;
763   double t24540, t24547, t24556, t24561, t24570, t24573, t24577, t24580;
764   double t24596, t24599, t24602, t24605, t24607, t24610, t24612, t24617;
765   double t24623, t24626, t24632, t24638, t24641, t24647, t24650, t24652;
766   double t24655, t24658, t24664, t24669, t24675, t24677, t24682, t24685;
767   double t24688, t24690, t24707, t24709, t24711, t24714, t24716, t24717;
768   double t24719, t24721, t24722, t24734, t24739, t24743, t24745, t24754;
769   double t24759, t24764, t24767, t24768, t24771, t24776, t24779, t24788;
770   double t24797, t24808, t24809, t24815, t24818, t24821, t24838, t24840;
771   double t24842, t24851, t24854, t24857, t24858, t24891, t24899, t24944;
772   double t24976, t24982, t24999, t25035, t25054, t25057, t25060, t25072;
773   double t25075, t25096, t25103, t25106, t25111, t25114, t25118, t25141;
774   double t25149, t25166, t25169, t25171, t25175, t25183, t25206, t25210;
775   double t25214, t25219, t25222, t25227, t25230, t25235, t25242, t25247;
776   double t25254, t25255, t25269, t25270, t25305, t25308, t25311, t25321;
777   double t25330, t25348, t25351, t25354, t25418, t25424, t25434, t25435;
778   double t25446, t25451, t25454, t25465, t25466, t25482, t25483, t25486;
779   double t25488, t25492, t25496, t25500, t25501, t25523, t25531, t25547;
780   double t25560, t25566, t25570, t25584, t25585, t25588, t25601, t25605;
781   double t25607, t25609, t25626, t25630, t25635, t25642, t25649, t25667;
782   double t25682, t25683, t25702, t25724, t25750, t25762;
783 #endif
784 
785 #endif
786 
787 #endif
788 
789 #endif
790 
791 #endif
792 
793 
794   mgga_x_rscan_params *params;
795 
796   assert(p->params != NULL);
797   params = (mgga_x_rscan_params * )(p->params);
798 
799   t2 = M_CBRT3;
800   t4 = POW_1_3(0.1e1 / M_PI);
801   t5 = t2 * t4;
802   t6 = M_CBRT4;
803   t7 = t6 * t6;
804   t8 = t5 * t7;
805   t9 = M_CBRT2;
806   t10 = t9 * t9;
807   t11 = POW_1_3(rho[0]);
808   t12 = t10 * t11;
809   t13 = M_CBRT6;
810   t14 = M_PI * M_PI;
811   t15 = POW_1_3(t14);
812   t16 = t15 * t15;
813   t17 = 0.1e1 / t16;
814   t18 = t13 * t17;
815   t19 = sigma[0] * t10;
816   t20 = rho[0] * rho[0];
817   t21 = t11 * t11;
818   t22 = t21 * t20;
819   t23 = 0.1e1 / t22;
820   t24 = t19 * t23;
821   t25 = t18 * t24;
822   t29 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
823   t30 = t13 * t13;
824   t32 = t15 * t14;
825   t33 = 0.1e1 / t32;
826   t34 = t29 * t30 * t33;
827   t35 = sigma[0] * sigma[0];
828   t36 = t35 * t9;
829   t37 = t20 * t20;
830   t38 = t37 * rho[0];
831   t39 = t11 * t38;
832   t40 = 0.1e1 / t39;
833   t45 = exp(-0.27e2 / 0.80e2 * t29 * t13 * t17 * t24);
834   t46 = t40 * t45;
835   t50 = sqrt(0.146e3);
836   t51 = t50 * t13;
837   t52 = t51 * t17;
838   t55 = tau[0] * t10;
839   t56 = t21 * rho[0];
840   t57 = 0.1e1 / t56;
841   t60 = t55 * t57 - t24 / 0.8e1;
842   t61 = 0.0e0 < t60;
843   t62 = my_piecewise3(t61, t60, 0);
844   t63 = t62 * t62;
845   t64 = t63 * t62;
846   t65 = t38 * t64;
847   t66 = t9 * t56;
848   t67 = t30 * t16;
849   t71 = 0.3e1 / 0.40e2 * t66 * t67 + params->taur / 0.2e1;
850   t72 = t71 * t71;
851   t73 = t72 * t71;
852   t74 = 0.1e1 / t73;
853   t75 = t20 * rho[0];
854   t76 = t11 * t75;
855   t77 = t10 * t76;
856   t78 = 0.1e1 / t72;
857   t79 = t63 * t78;
858   t82 = t77 * t79 / 0.16e2 + params->alphar;
859   t83 = 0.1e1 / t82;
860   t84 = t74 * t83;
861   t85 = t65 * t84;
862   t86 = t85 / 0.32e2;
863   t87 = 0.1e1 - t86;
864   t89 = t87 * t87;
865   t91 = exp(-t89 / 0.2e1);
866   t94 = 0.7e1 / 0.12960e5 * t52 * t24 + t50 * t87 * t91 / 0.100e3;
867   t95 = t94 * t94;
868   t96 = params->k1 + 0.5e1 / 0.972e3 * t25 + t34 * t36 * t46 / 0.288e3 + t95;
869   t101 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t96);
870   t102 = t86 <= 0.25e1;
871   t104 = t37 * t37;
872   t105 = t104 * t20;
873   t106 = t63 * t63;
874   t107 = t106 * t63;
875   t108 = t105 * t107;
876   t109 = t72 * t72;
877   t110 = t109 * t72;
878   t111 = 0.1e1 / t110;
879   t112 = t82 * t82;
880   t113 = 0.1e1 / t112;
881   t114 = t111 * t113;
882   t117 = t37 * t75;
883   t118 = t104 * t117;
884   t119 = t106 * t106;
885   t120 = t119 * t62;
886   t121 = t118 * t120;
887   t122 = t109 * t109;
888   t123 = t122 * t71;
889   t124 = 0.1e1 / t123;
890   t125 = t112 * t82;
891   t126 = 0.1e1 / t125;
892   t127 = t124 * t126;
893   t130 = t104 * t104;
894   t131 = t130 * t37;
895   t132 = t119 * t106;
896   t133 = t131 * t132;
897   t134 = t122 * t109;
898   t135 = 0.1e1 / t134;
899   t136 = t112 * t112;
900   t137 = 0.1e1 / t136;
901   t138 = t135 * t137;
902   t141 = t104 * rho[0];
903   t142 = t130 * t141;
904   t143 = t106 * t64;
905   t144 = t119 * t143;
906   t145 = t142 * t144;
907   t146 = t109 * t73;
908   t148 = 0.1e1 / t122 / t146;
909   t150 = 0.1e1 / t136 / t82;
910   t151 = t148 * t150;
911   t154 = t37 * t20;
912   t155 = t104 * t154;
913   t156 = t130 * t155;
914   t157 = t119 * t119;
915   t158 = t157 * t63;
916   t159 = t156 * t158;
917   t160 = t122 * t122;
918   t162 = 0.1e1 / t160 / t72;
919   t164 = 0.1e1 / t136 / t112;
920   t165 = t162 * t164;
921   t168 = t130 * t130;
922   t169 = t168 * t75;
923   t170 = t106 * t62;
924   t171 = t157 * t170;
925   t172 = t169 * t171;
926   t173 = t109 * t71;
927   t175 = 0.1e1 / t160 / t173;
928   t177 = 0.1e1 / t136 / t125;
929   t178 = t175 * t177;
930   t184 = exp(params->c2 / t87);
931   t186 = my_piecewise3(t102, 0.1e1 - 0.20843750000000000000e-1 * t85 - 0.43413623046875000000e-3 * t108 * t114 - 0.20235797151153564453e-4 * t121 * t127 + 0.13840647168064117432e-5 * t133 * t138 - 0.26464403915315866470e-7 * t145 * t151 + 0.21842209760006517172e-9 * t159 * t165 - 0.67479685303987935185e-12 * t172 * t178, -params->d * t184);
932   t187 = 0.1e1 - t186;
933   t190 = t101 * t187 + 0.1174e1 * t186;
934   t191 = sqrt(0.3e1);
935   t192 = 0.1e1 / t15;
936   t193 = t30 * t192;
937   t194 = sqrt(sigma[0]);
938   t196 = t11 * rho[0];
939   t197 = 0.1e1 / t196;
940   t199 = t193 * t194 * t9 * t197;
941   t200 = sqrt(t199);
942   t204 = exp(-0.98958000000000000000e1 * t191 / t200);
943   t205 = 0.1e1 - t204;
944   t206 = t190 * t205;
945   t208 = t8 * t12 * t206;
946   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
947     zk[0] = -0.3e1 / 0.16e2 * t208;
948 
949 #ifndef XC_DONT_COMPILE_VXC
950 
951   if(order < 1) return;
952 
953 
954   t212 = t196 * t2 * t4;
955   t213 = t7 * t10;
956   t214 = params->k1 * params->k1;
957   t215 = t96 * t96;
958   t217 = t214 / t215;
959   t218 = t21 * t75;
960   t219 = 0.1e1 / t218;
961   t220 = t19 * t219;
962   t223 = t11 * t154;
963   t224 = 0.1e1 / t223;
964   t225 = t224 * t45;
965   t229 = t29 * t29;
966   t230 = t14 * t14;
967   t231 = 0.1e1 / t230;
968   t232 = t229 * t231;
969   t233 = t35 * sigma[0];
970   t234 = 0.1e1 / t141;
971   t241 = t37 * t64;
972   t242 = t241 * t84;
973   t244 = t38 * t63;
974   t249 = my_piecewise3(t61, -0.5e1 / 0.3e1 * t55 * t23 + t220 / 0.3e1, 0);
975   t250 = t84 * t249;
976   t251 = t244 * t250;
977   t253 = t21 * t38;
978   t254 = t253 * t64;
979   t255 = 0.1e1 / t109;
980   t258 = t83 * t9 * t67;
981   t259 = t254 * t255 * t258;
982   t261 = t74 * t113;
983   t262 = t11 * t20;
984   t263 = t10 * t262;
985   t266 = t62 * t78;
986   t267 = t266 * t249;
987   t270 = t37 * t63;
988   t272 = t74 * t30 * t16;
989   t275 = 0.5e1 / 0.24e2 * t263 * t79 + t77 * t267 / 0.8e1 - t270 * t272 / 0.32e2;
990   t276 = t261 * t275;
991   t277 = t65 * t276;
992   t279 = -0.5e1 / 0.32e2 * t242 - 0.3e1 / 0.32e2 * t251 + 0.3e1 / 0.256e3 * t259 + t277 / 0.32e2;
993   t283 = t50 * t89;
994   t284 = t279 * t91;
995   t287 = -0.7e1 / 0.4860e4 * t52 * t220 + t50 * t279 * t91 / 0.100e3 - t283 * t284 / 0.100e3;
996   t290 = -0.10e2 / 0.729e3 * t18 * t220 - t34 * t36 * t225 / 0.54e2 + 0.3e1 / 0.80e2 * t232 * t233 * t234 * t45 + 0.2e1 * t94 * t287;
997   t291 = t290 * t187;
998   t293 = t130 * t75;
999   t294 = t293 * t132;
1000   t297 = t130 * t104;
1001   t298 = t297 * t144;
1002   t301 = t104 * t38;
1003   t302 = t130 * t301;
1004   t303 = t302 * t158;
1005   t306 = t168 * t20;
1006   t307 = t306 * t171;
1007   t310 = t141 * t107;
1008   t313 = t155 * t120;
1009   t317 = t135 * t150;
1010   t318 = t317 * t275;
1011   t321 = t119 * t107;
1012   t322 = t142 * t321;
1013   t323 = t151 * t249;
1014   t326 = t148 * t164;
1015   t327 = t326 * t275;
1016   t330 = t157 * t62;
1017   t331 = t156 * t330;
1018   t332 = t165 * t249;
1019   t335 = t162 * t177;
1020   t336 = t335 * t275;
1021   t339 = t105 * t170;
1022   t340 = t114 * t249;
1023   t343 = t111 * t126;
1024   t344 = t343 * t275;
1025   t347 = 0.27681294336128234864e-4 * t294 * t138 - 0.66161009788289666175e-6 * t298 * t151 + 0.65526629280019551516e-8 * t303 * t165 - 0.23617889856395777315e-10 * t307 * t178 - 0.43413623046875000000e-2 * t310 * t114 - 0.30353695726730346680e-3 * t313 * t127 - 0.10421875000000000000e0 * t242 - 0.55362588672256469728e-5 * t133 * t318 - 0.39696605872973799705e-6 * t322 * t323 + 0.13232201957657933235e-6 * t145 * t327 + 0.39315977568011730910e-8 * t331 * t332 - 0.13105325856003910303e-8 * t159 * t336 - 0.26048173828125000000e-2 * t339 * t340 + 0.86827246093750000000e-3 * t108 * t344;
1026   t348 = t118 * t119;
1027   t349 = t127 * t249;
1028   t352 = t124 * t137;
1029   t353 = t352 * t275;
1030   t356 = t119 * t64;
1031   t357 = t131 * t356;
1032   t358 = t138 * t249;
1033   t363 = t21 * t142;
1034   t364 = t363 * t144;
1035   t365 = 0.1e1 / t160;
1036   t367 = t150 * t9;
1037   t368 = t367 * t67;
1038   t371 = t21 * t156;
1039   t372 = t371 * t158;
1040   t374 = 0.1e1 / t160 / t73;
1041   t376 = t164 * t9;
1042   t377 = t376 * t67;
1043   t380 = t21 * t169;
1044   t381 = t380 * t171;
1045   t383 = 0.1e1 / t160 / t110;
1046   t385 = t177 * t9;
1047   t386 = t385 * t67;
1048   t390 = t21 * t105;
1049   t391 = t390 * t107;
1050   t392 = 0.1e1 / t146;
1051   t395 = t113 * t9 * t67;
1052   t398 = t21 * t118;
1053   t399 = t398 * t120;
1054   t400 = t122 * t72;
1055   t401 = 0.1e1 / t400;
1056   t403 = t126 * t9;
1057   t404 = t403 * t67;
1058   t407 = t21 * t131;
1059   t408 = t407 * t132;
1060   t409 = t122 * t173;
1061   t410 = 0.1e1 / t409;
1062   t412 = t137 * t9;
1063   t413 = t412 * t67;
1064   t416 = t157 * t106;
1065   t417 = t169 * t416;
1066   t418 = t178 * t249;
1067   t421 = t136 * t136;
1068   t422 = 0.1e1 / t421;
1069   t423 = t175 * t422;
1070   t424 = t423 * t275;
1071   t427 = -0.18212217436038208008e-3 * t348 * t349 + 0.60707391453460693359e-4 * t121 * t353 + 0.16608776601676940918e-4 * t357 * t358 + 0.20843750000000000000e-1 * t277 - 0.62531250000000000000e-1 * t251 + 0.49620757341217249631e-7 * t364 * t365 * t368 - 0.49144971960014663637e-9 * t372 * t374 * t377 + 0.17713417392296832986e-11 * t381 * t383 * t386 + 0.78164062500000000000e-2 * t259 + 0.32560217285156250000e-3 * t391 * t392 * t395 + 0.22765271795047760010e-4 * t399 * t401 * t404 - 0.20760970752096176148e-5 * t408 * t410 * t413 - 0.14170733913837466389e-10 * t417 * t418 + 0.47235779712791554630e-11 * t172 * t424;
1072   t429 = params->d * params->c2;
1073   t430 = 0.1e1 / t89;
1074   t434 = my_piecewise3(t102, t347 + t427, t429 * t430 * t279 * t184);
1075   t437 = t217 * t291 - t101 * t434 + 0.1174e1 * t434;
1076   t438 = t437 * t205;
1077   t442 = 0.1e1 / rho[0];
1078   t443 = pow(0.3e1, 0.1e1 / 0.6e1);
1079   t444 = t443 * t443;
1080   t445 = t444 * t444;
1081   t446 = t445 * t443;
1082   t447 = t442 * t446;
1083   t448 = t4 * t7;
1084   t449 = t448 * t190;
1085   t452 = 0.1e1 / t200 / t199;
1086   t453 = t452 * t30;
1087   t456 = t453 * t192 * t194 * t204;
1088   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1089     vrho[0] = -t208 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t213 * t438 - 0.24739500000000000000e1 * t447 * t449 * t456;
1090 
1091   t459 = t10 * t23;
1092   t462 = sigma[0] * t9;
1093   t466 = 0.1e1 / t104;
1094   t471 = t17 * t10;
1095   t476 = my_piecewise3(t61, -t459 / 0.8e1, 0);
1096   t477 = t84 * t476;
1097   t478 = t244 * t477;
1098   t480 = t11 * t104;
1099   t481 = t480 * t106;
1100   t482 = 0.1e1 / t173;
1101   t483 = t481 * t482;
1102   t484 = t113 * t10;
1103   t485 = t484 * t476;
1104   t486 = t483 * t485;
1105   t488 = -0.3e1 / 0.32e2 * t478 + t486 / 0.256e3;
1106   t489 = t50 * t488;
1107   t492 = t488 * t91;
1108   t495 = 0.7e1 / 0.12960e5 * t51 * t471 * t23 + t489 * t91 / 0.100e3 - t283 * t492 / 0.100e3;
1109   t498 = 0.5e1 / 0.972e3 * t18 * t459 + t34 * t462 * t46 / 0.144e3 - 0.9e1 / 0.640e3 * t232 * t35 * t466 * t45 + 0.2e1 * t94 * t495;
1110   t499 = t498 * t187;
1111   t503 = t114 * t476;
1112   t506 = t11 * t301;
1113   t507 = t506 * t143;
1114   t508 = 0.1e1 / t122;
1115   t509 = t507 * t508;
1116   t510 = t126 * t10;
1117   t511 = t510 * t476;
1118   t514 = t127 * t476;
1119   t517 = t130 * t20;
1120   t518 = t11 * t517;
1121   t519 = t119 * t63;
1122   t520 = t518 * t519;
1123   t521 = t122 * t73;
1124   t522 = 0.1e1 / t521;
1125   t523 = t520 * t522;
1126   t524 = t137 * t10;
1127   t525 = t524 * t476;
1128   t528 = t138 * t476;
1129   t531 = t130 * t117;
1130   t532 = t11 * t531;
1131   t533 = t119 * t170;
1132   t534 = t532 * t533;
1133   t536 = 0.1e1 / t122 / t110;
1134   t537 = t534 * t536;
1135   t538 = t150 * t10;
1136   t539 = t538 * t476;
1137   t542 = t151 * t476;
1138   t545 = t104 * t37;
1139   t546 = t130 * t545;
1140   t547 = t11 * t546;
1141   t548 = t547 * t157;
1142   t550 = 0.1e1 / t160 / t71;
1143   t551 = t548 * t550;
1144   t552 = t164 * t10;
1145   t553 = t552 * t476;
1146   t556 = t165 * t476;
1147   t559 = t168 * rho[0];
1148   t560 = t11 * t559;
1149   t561 = t157 * t64;
1150   t562 = t560 * t561;
1151   t564 = 0.1e1 / t160 / t109;
1152   t565 = t562 * t564;
1153   t566 = t177 * t10;
1154   t567 = t566 * t476;
1155   t570 = t178 * t476;
1156   t573 = t168 * t154;
1157   t574 = t11 * t573;
1158   t575 = t157 * t107;
1159   t576 = t574 * t575;
1160   t578 = 0.1e1 / t160 / t146;
1161   t579 = t576 * t578;
1162   t580 = t422 * t10;
1163   t581 = t580 * t476;
1164   t584 = -0.62531250000000000000e-1 * t478 + 0.26054687500000000000e-2 * t486 - 0.26048173828125000000e-2 * t339 * t503 + 0.10853405761718750000e-3 * t509 * t511 - 0.18212217436038208008e-3 * t348 * t514 + 0.75884239316825866699e-5 * t523 * t525 + 0.16608776601676940918e-4 * t357 * t528 - 0.69203235840320587160e-6 * t537 * t539 - 0.39696605872973799705e-6 * t322 * t542 + 0.16540252447072416544e-7 * t551 * t553 + 0.39315977568011730910e-8 * t331 * t556 - 0.16381657320004887879e-9 * t565 * t567 - 0.14170733913837466389e-10 * t417 * t570 + 0.59044724640989443287e-12 * t579 * t581;
1165   t588 = my_piecewise3(t102, t584, t429 * t430 * t488 * t184);
1166   t591 = t217 * t499 - t101 * t588 + 0.1174e1 * t588;
1167   t593 = t213 * t591 * t205;
1168   t596 = t446 * t4;
1169   t597 = t7 * t190;
1170   t598 = t596 * t597;
1171   t599 = 0.1e1 / t194;
1172   t602 = t453 * t192 * t599 * t204;
1173   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1174     vsigma[0] = -0.3e1 / 0.16e2 * t212 * t593 + 0.92773125000000000000e0 * t598 * t602;
1175 
1176   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1177     vlapl[0] = 0.0e0;
1178 
1179   t605 = t10 * t57;
1180   t606 = my_piecewise3(t61, t605, 0);
1181   t607 = t84 * t606;
1182   t608 = t244 * t607;
1183   t610 = t484 * t606;
1184   t611 = t483 * t610;
1185   t613 = -0.3e1 / 0.32e2 * t608 + t611 / 0.256e3;
1186   t614 = t50 * t613;
1187   t616 = t613 * t91;
1188   t619 = -t283 * t616 / 0.100e3 + t614 * t91 / 0.100e3;
1189   t620 = t94 * t619;
1190   t626 = t114 * t606;
1191   t629 = t510 * t606;
1192   t632 = t127 * t606;
1193   t635 = t524 * t606;
1194   t638 = t138 * t606;
1195   t641 = t538 * t606;
1196   t644 = t151 * t606;
1197   t647 = t552 * t606;
1198   t650 = t165 * t606;
1199   t653 = t566 * t606;
1200   t656 = t178 * t606;
1201   t659 = t580 * t606;
1202   t662 = -0.62531250000000000000e-1 * t608 + 0.26054687500000000000e-2 * t611 - 0.26048173828125000000e-2 * t339 * t626 + 0.10853405761718750000e-3 * t509 * t629 - 0.18212217436038208008e-3 * t348 * t632 + 0.75884239316825866699e-5 * t523 * t635 + 0.16608776601676940918e-4 * t357 * t638 - 0.69203235840320587160e-6 * t537 * t641 - 0.39696605872973799705e-6 * t322 * t644 + 0.16540252447072416544e-7 * t551 * t647 + 0.39315977568011730910e-8 * t331 * t650 - 0.16381657320004887879e-9 * t565 * t653 - 0.14170733913837466389e-10 * t417 * t656 + 0.59044724640989443287e-12 * t579 * t659;
1203   t666 = my_piecewise3(t102, t662, t429 * t430 * t613 * t184);
1204   t669 = 0.2e1 * t217 * t620 * t187 - t101 * t666 + 0.1174e1 * t666;
1205   t671 = t213 * t669 * t205;
1206   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1207     vtau[0] = -0.3e1 / 0.16e2 * t212 * t671;
1208 
1209 #ifndef XC_DONT_COMPILE_FXC
1210 
1211   if(order < 2) return;
1212 
1213 
1214   t674 = 0.1e1 / t21;
1215   t675 = t10 * t674;
1216   t682 = 0.1e1 / t20;
1217   t683 = t7 * t682;
1218   t690 = t214 / t215 / t96;
1219   t691 = t290 * t290;
1220   t692 = t691 * t187;
1221   t695 = t21 * t37;
1222   t696 = 0.1e1 / t695;
1223   t697 = t19 * t696;
1224   t700 = t11 * t117;
1225   t701 = 0.1e1 / t700;
1226   t702 = t701 * t45;
1227   t706 = 0.1e1 / t105;
1228   t712 = t229 * t29 * t231;
1229   t713 = t35 * t35;
1230   t714 = t21 * t545;
1231   t715 = 0.1e1 / t714;
1232   t718 = t10 * t45;
1233   t719 = t18 * t718;
1234   t722 = t287 * t287;
1235   t726 = t75 * t64;
1236   t727 = t726 * t84;
1237   t729 = t270 * t250;
1238   t731 = t695 * t64;
1239   t733 = t731 * t255 * t258;
1240   t735 = t241 * t276;
1241   t737 = t38 * t62;
1242   t738 = t249 * t249;
1243   t739 = t84 * t738;
1244   t740 = t737 * t739;
1245   t742 = t253 * t63;
1246   t743 = t255 * t83;
1247   t744 = t742 * t743;
1248   t745 = t249 * t9;
1249   t746 = t745 * t67;
1250   t747 = t744 * t746;
1251   t749 = t244 * t74;
1252   t750 = t113 * t249;
1253   t751 = t750 * t275;
1254   t752 = t749 * t751;
1255   t758 = my_piecewise3(t61, 0.40e2 / 0.9e1 * t55 * t219 - 0.11e2 / 0.9e1 * t697, 0);
1256   t759 = t84 * t758;
1257   t760 = t244 * t759;
1258   t762 = t223 * t64;
1259   t763 = t762 * t482;
1260   t765 = t13 * t32;
1261   t766 = t83 * t10 * t765;
1262   t767 = t763 * t766;
1263   t769 = t255 * t113;
1264   t770 = t254 * t769;
1265   t771 = t9 * t30;
1266   t772 = t16 * t275;
1267   t773 = t771 * t772;
1268   t774 = t770 * t773;
1269   t776 = t74 * t126;
1270   t777 = t275 * t275;
1271   t778 = t776 * t777;
1272   t779 = t65 * t778;
1273   t781 = t10 * t196;
1274   t786 = t75 * t63;
1275   t789 = t738 * t78;
1276   t792 = t37 * t62;
1277   t793 = t792 * t74;
1278   t795 = t249 * t30 * t16;
1279   t798 = t266 * t758;
1280   t801 = t695 * t63;
1281   t803 = t765 * t9;
1282   t806 = 0.35e2 / 0.72e2 * t781 * t79 + 0.5e1 / 0.6e1 * t263 * t267 - 0.11e2 / 0.48e2 * t786 * t272 + t77 * t789 / 0.8e1 - t793 * t795 / 0.8e1 + t77 * t798 / 0.8e1 + 0.9e1 / 0.128e3 * t801 * t255 * t803;
1283   t807 = t261 * t806;
1284   t808 = t65 * t807;
1285   t810 = -0.5e1 / 0.8e1 * t727 - 0.15e2 / 0.16e2 * t729 + t733 / 0.8e1 + 0.5e1 / 0.16e2 * t735 - 0.3e1 / 0.16e2 * t740 + 0.9e1 / 0.128e3 * t747 + 0.3e1 / 0.16e2 * t752 - 0.3e1 / 0.32e2 * t760 - 0.9e1 / 0.256e3 * t767 - 0.3e1 / 0.128e3 * t774 - t779 / 0.16e2 + t808 / 0.32e2;
1286   t811 = t50 * t810;
1287   t814 = t279 * t279;
1288   t816 = t87 * t91;
1289   t819 = t810 * t91;
1290   t822 = t89 * t87;
1291   t823 = t50 * t822;
1292   t824 = t814 * t91;
1293   t827 = 0.77e2 / 0.14580e5 * t52 * t697 + t811 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t50 * t814 * t816 - t283 * t819 / 0.100e3 + t823 * t824 / 0.100e3;
1294   t830 = 0.110e3 / 0.2187e4 * t18 * t697 + 0.19e2 / 0.162e3 * t34 * t36 * t702 - 0.43e2 / 0.80e2 * t232 * t233 * t706 * t45 + 0.27e2 / 0.800e3 * t712 * t713 * t715 * t719 + 0.2e1 * t722 + 0.2e1 * t94 * t827;
1295   t833 = t290 * t434;
1296   t836 = t104 * t75;
1297   t837 = t11 * t836;
1298   t838 = t837 * t107;
1299   t839 = t838 * t508;
1300   t840 = t484 * t765;
1301   t843 = t11 * t130;
1302   t844 = t843 * t120;
1303   t845 = t844 * t522;
1304   t846 = t510 * t765;
1305   t849 = t130 * t38;
1306   t850 = t11 * t849;
1307   t851 = t850 * t132;
1308   t852 = t851 * t536;
1309   t853 = t524 * t765;
1310   t856 = t130 * t105;
1311   t857 = t11 * t856;
1312   t858 = t857 * t144;
1313   t859 = t858 * t550;
1314   t860 = t538 * t765;
1315   t863 = t130 * t118;
1316   t864 = t11 * t863;
1317   t865 = t864 * t158;
1318   t866 = t865 * t564;
1319   t867 = t552 * t765;
1320   t870 = t168 * t37;
1321   t871 = t11 * t870;
1322   t872 = t871 * t171;
1323   t873 = t872 * t578;
1324   t874 = t566 * t765;
1325   t877 = t21 * t141;
1326   t878 = t877 * t107;
1327   t882 = t21 * t155;
1328   t883 = t882 * t120;
1329   t887 = t21 * t293;
1330   t888 = t887 * t132;
1331   t892 = t21 * t297;
1332   t893 = t892 * t144;
1333   t898 = t21 * t302;
1334   t899 = t898 * t158;
1335   t903 = t21 * t306;
1336   t904 = t903 * t171;
1337   t910 = t390 * t170;
1338   t911 = t392 * t113;
1339   t912 = t910 * t911;
1340   t915 = t392 * t126;
1341   t916 = t391 * t915;
1342   t919 = t398 * t119;
1343   t920 = t401 * t126;
1344   t921 = t919 * t920;
1345   t924 = t401 * t137;
1346   t925 = t399 * t924;
1347   t928 = t407 * t356;
1348   t929 = t410 * t137;
1349   t930 = t928 * t929;
1350   t933 = t410 * t150;
1351   t934 = t408 * t933;
1352   t937 = t363 * t321;
1353   t938 = t365 * t150;
1354   t939 = t937 * t938;
1355   t942 = -0.29814616322408895940e-7 * t899 * t374 * t377 + 0.12517481623889761977e-9 * t904 * t383 * t386 - 0.23449218750000000000e-1 * t767 + 0.83375000000000000000e-1 * t733 + 0.39072260742187500000e-2 * t912 * t746 - 0.13024086914062500000e-2 * t916 * t773 + 0.40977489231085968018e-3 * t921 * t746 - 0.13659163077028656006e-3 * t925 * t773 - 0.49826329805030822755e-4 * t930 * t746 + 0.16608776601676940918e-4 * t934 * t773 + 0.14886227202365174889e-5 * t939 * t746;
1356   t944 = t365 * t164;
1357   t945 = t364 * t944;
1358   t948 = t371 * t330;
1359   t949 = t374 * t164;
1360   t950 = t948 * t949;
1361   t953 = t374 * t177;
1362   t954 = t372 * t953;
1363   t957 = t380 * t416;
1364   t958 = t383 * t177;
1365   t959 = t957 * t958;
1366   t962 = t383 * t422;
1367   t963 = t381 * t962;
1368   t966 = t124 * t150;
1369   t967 = t966 * t777;
1370   t970 = t111 * t137;
1371   t971 = t970 * t777;
1372   t974 = t118 * t143;
1373   t975 = t127 * t738;
1374   t978 = t135 * t164;
1375   t979 = t978 * t777;
1376   t982 = t142 * t533;
1377   t983 = t151 * t738;
1378   t987 = t148 * t177;
1379   t988 = t987 * t777;
1380   t991 = t105 * t106;
1381   t992 = t114 * t738;
1382   t995 = t156 * t157;
1383   t996 = t165 * t738;
1384   t999 = t162 * t422;
1385   t1000 = t999 * t777;
1386   t1003 = t169 * t561;
1387   t1004 = t178 * t738;
1388   t1007 = t131 * t519;
1389   t1008 = t138 * t738;
1390   t1012 = 0.1e1 / t421 / t82;
1391   t1013 = t175 * t1012;
1392   t1014 = t1013 * t777;
1393   t1017 = t141 * t170;
1394   t1022 = t114 * t758;
1395   t1025 = t343 * t806;
1396   t1028 = -0.79393211745947599410e-6 * t145 * t988 - 0.13024086914062500000e-1 * t991 * t992 + 0.66837161865619942547e-7 * t995 * t996 + 0.91737280992027372121e-8 * t159 * t1000 - 0.28341467827674932778e-9 * t1003 * t1004 + 0.18269654261844635010e-3 * t1007 * t1008 - 0.37788623770233243704e-10 * t172 * t1014 - 0.52096347656250000000e-1 * t1017 * t340 + 0.17365449218750000000e-1 * t310 * t344 - 0.26048173828125000000e-2 * t339 * t1022 + 0.86827246093750000000e-3 * t108 * t1025;
1397   t1031 = t317 * t806;
1398   t1034 = t297 * t321;
1399   t1039 = t151 * t758;
1400   t1042 = t326 * t806;
1401   t1045 = t352 * t806;
1402   t1048 = t293 * t356;
1403   t1053 = t138 * t758;
1404   t1056 = t423 * t806;
1405   t1060 = t155 * t119;
1406   t1065 = t127 * t758;
1407   t1068 = t104 * t107;
1408   t1071 = t335 * t806;
1409   t1074 = t306 * t416;
1410   t1079 = t178 * t758;
1411   t1082 = t302 * t330;
1412   t1087 = t165 * t758;
1413   t1090 = -0.54636652308114624024e-2 * t1060 * t349 + 0.18212217436038208008e-2 * t313 * t353 - 0.18212217436038208008e-3 * t348 * t1065 - 0.39072260742187500000e-1 * t1068 * t114 - 0.13105325856003910303e-8 * t159 * t1071 - 0.99195137396862264724e-9 * t1074 * t418 + 0.33065045798954088240e-9 * t307 * t424 - 0.14170733913837466389e-10 * t417 * t1079 + 0.23589586540807038546e-6 * t1082 * t332 - 0.78631955136023461819e-7 * t303 * t336 + 0.39315977568011730910e-8 * t331 * t1087;
1414   t1092 = t531 * t144;
1415   t1095 = t301 * t120;
1416   t1098 = t517 * t132;
1417   t1106 = t546 * t158;
1418   t1109 = t559 * t171;
1419   t1116 = t322 * t148;
1420   t1117 = t164 * t249;
1421   t1118 = t1117 * t275;
1422   t1121 = t339 * t111;
1423   t1122 = t126 * t249;
1424   t1123 = t1122 * t275;
1425   t1126 = t348 * t124;
1426   t1127 = t137 * t249;
1427   t1128 = t1127 * t275;
1428   t1131 = t331 * t162;
1429   t1132 = t177 * t249;
1430   t1133 = t1132 * t275;
1431   t1136 = t417 * t175;
1432   t1137 = t422 * t249;
1433   t1138 = t1137 * t275;
1434   t1141 = t357 * t135;
1435   t1142 = t150 * t249;
1436   t1143 = t1142 * t275;
1437   t1148 = -0.62531250000000000000e0 * t729 + 0.20843750000000000000e0 * t735 - 0.12506250000000000000e0 * t740 + 0.39696605872973799704e-5 * t1116 * t1118 + 0.10419269531250000000e-1 * t1121 * t1123 + 0.10927330461622924805e-2 * t1126 * t1128 - 0.47179173081614077091e-7 * t1131 * t1133 + 0.19839027479372452945e-9 * t1136 * t1138 - 0.13287021281341552735e-3 * t1141 * t1143 - 0.41687500000000000000e0 * t727 + 0.12506250000000000000e0 * t752;
1438   t1152 = 0.1e1 / t822;
1439   t1160 = params->c2 * params->c2;
1440   t1161 = params->d * t1160;
1441   t1162 = t89 * t89;
1442   t1163 = 0.1e1 / t1162;
1443   t1168 = my_piecewise3(t102, t1028 - 0.41687500000000000000e-1 * t779 + 0.67291115722656250000e-2 * t878 * t392 * t395 + 0.69813500171479797364e-3 * t883 * t401 * t404 - 0.84427947725191116335e-4 * t888 * t410 * t413 + 0.25141183719550073147e-5 * t893 * t365 * t368 - 0.15632812500000000000e-1 * t774 - 0.62531250000000000000e-1 * t760 + 0.46898437500000000000e-1 * t747 + t942 + t1148 + 0.20843750000000000000e-1 * t808 - 0.17094114074707031250e-2 * t839 * t840 - 0.15878642349189519882e-4 * t1092 * t151 - 0.42495174017422485352e-2 * t1095 * t127 + 0.52594459238643646242e-3 * t1098 * t138 + 0.19002722491205669940e-6 * t1106 * t165 - 0.80300825511745642871e-9 * t1109 * t178 + 0.66161009788289666176e-5 * t298 * t327 - 0.39696605872973799705e-6 * t322 * t1039 + 0.13232201957657933235e-6 * t145 * t1042 + 0.60707391453460693359e-4 * t121 * t1045 + 0.66435106406707763673e-3 * t1048 * t358 - 0.22145035468902587892e-3 * t294 * t318 + 0.16608776601676940918e-4 * t357 * t1053 + 0.47235779712791554630e-11 * t172 * t1056 - 0.55362588672256469728e-5 * t133 * t1031 - 0.19848302936486899852e-4 * t1034 * t323 - 0.24798784349215566180e-10 * t963 * t773 - 0.24282956581384277344e-3 * t121 * t967 - 0.26048173828125000000e-2 * t108 * t971 - 0.14569773948830566406e-2 * t974 * t975 + 0.27681294336128234864e-4 * t133 * t979 - 0.55575248222163319587e-5 * t982 * t983 - 0.49620757341217249632e-6 * t945 * t773 - 0.17692189905605278910e-7 * t950 * t746 + 0.58973966352017596364e-8 * t954 * t773 + 0.74396353047646698542e-10 * t959 * t746 - 0.17073953846285820008e-3 * t845 * t846 + 0.20241946483293771744e-4 * t852 * t853 - 0.59544908809460699557e-6 * t859 * t860 + 0.70031585043020895683e-8 * t866 * t867 - 0.29227138697289774427e-10 * t873 * t874 + t1090, -0.2e1 * t429 * t1152 * t814 * t184 - t1161 * t1163 * t814 * t184 + t429 * t430 * t810 * t184);
1444   t1171 = -0.2e1 * t690 * t692 + t217 * t830 * t187 - 0.2e1 * t217 * t833 - t101 * t1168 + 0.1174e1 * t1168;
1445   t1172 = t1171 * t205;
1446   t1176 = t448 * t437;
1447   t1180 = 0.1e1 / t76;
1448   t1181 = t1180 * t446;
1449   t1185 = 0.1e1 / t200 / t25 / 0.6e1;
1450   t1190 = t1185 * t13 * t17 * sigma[0] * t204 * t9;
1451   t1193 = t21 * t2;
1452   t1197 = t17 * t9 * t204;
1453   t1198 = t599 * t13 * t1197;
1454   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1455     v2rho2[0] = -t8 * t675 * t206 / 0.12e2 - t8 * t12 * t438 / 0.2e1 - 0.8246500000000000000e0 * t596 * t683 * t190 * t456 - 0.3e1 / 0.16e2 * t212 * t213 * t1172 - 0.49479000000000000000e1 * t447 * t1176 * t456 - 0.29687400000000000000e2 * t1181 * t449 * t1190 + 0.40270806047858128433e2 * t1193 * t449 * t1198;
1456 
1457   t1202 = t11 * t2 * t4;
1458   t1205 = t499 * t290;
1459   t1208 = t10 * t219;
1460   t1218 = t21 * t836;
1461   t1219 = 0.1e1 / t1218;
1462   t1229 = t270 * t477;
1463   t1231 = t737 * t74;
1464   t1232 = t83 * t476;
1465   t1233 = t1232 * t249;
1466   t1234 = t1231 * t1233;
1467   t1236 = t476 * t9;
1468   t1237 = t1236 * t67;
1469   t1238 = t744 * t1237;
1470   t1240 = t113 * t476;
1471   t1241 = t1240 * t275;
1472   t1242 = t749 * t1241;
1473   t1245 = my_piecewise3(t61, t1208 / 0.3e1, 0);
1474   t1246 = t84 * t1245;
1475   t1247 = t244 * t1246;
1476   t1250 = t700 * t106 * t482;
1477   t1251 = t1250 * t485;
1478   t1253 = t480 * t64;
1479   t1254 = t1253 * t482;
1480   t1255 = t476 * t249;
1481   t1256 = t484 * t1255;
1482   t1257 = t1254 * t1256;
1483   t1259 = t141 * t106;
1484   t1260 = t1259 * t111;
1485   t1261 = t1240 * t67;
1486   t1262 = t1260 * t1261;
1487   t1264 = t476 * t275;
1488   t1265 = t510 * t1264;
1489   t1266 = t483 * t1265;
1490   t1268 = t484 * t1245;
1491   t1269 = t483 * t1268;
1492   t1271 = -0.15e2 / 0.32e2 * t1229 - 0.3e1 / 0.16e2 * t1234 + 0.9e1 / 0.256e3 * t1238 + 0.3e1 / 0.32e2 * t1242 - 0.3e1 / 0.32e2 * t1247 + 0.25e2 / 0.768e3 * t1251 + t1257 / 0.64e2 - 0.5e1 / 0.1024e4 * t1262 - t1266 / 0.128e3 + t1269 / 0.256e3;
1493   t1272 = t50 * t1271;
1494   t1276 = t87 * t279 * t91;
1495   t1279 = t1271 * t91;
1496   t1282 = t488 * t279;
1497   t1283 = t1282 * t91;
1498   t1286 = -0.7e1 / 0.4860e4 * t51 * t471 * t219 + t1272 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t489 * t1276 - t283 * t1279 / 0.100e3 + t823 * t1283 / 0.100e3;
1499   t1289 = -0.10e2 / 0.729e3 * t18 * t1208 - t34 * t462 * t225 / 0.27e2 + 0.3e1 / 0.16e2 * t232 * t35 * t234 * t45 - 0.81e2 / 0.6400e4 * t712 * t233 * t1219 * t719 + 0.2e1 * t287 * t495 + 0.2e1 * t94 * t1286;
1500   t1290 = t1289 * t187;
1501   t1292 = t498 * t434;
1502   t1294 = t290 * t588;
1503   t1296 = t114 * t1245;
1504   t1299 = t127 * t1245;
1505   t1302 = t138 * t1245;
1506   t1305 = t151 * t1245;
1507   t1308 = t165 * t1245;
1508   t1311 = t178 * t1245;
1509   t1328 = t518 * t120;
1510   t1329 = t1328 * t522;
1511   t1330 = t524 * t1255;
1512   t1333 = t538 * t1264;
1513   t1336 = t293 * t519;
1514   t1337 = t1336 * t135;
1515   t1338 = t137 * t476;
1516   t1339 = t1338 * t67;
1517   t1342 = -0.26048173828125000000e-2 * t339 * t1296 - 0.18212217436038208008e-3 * t348 * t1299 + 0.16608776601676940918e-4 * t357 * t1302 - 0.39696605872973799705e-6 * t322 * t1305 + 0.39315977568011730910e-8 * t331 * t1308 - 0.14170733913837466389e-10 * t417 * t1311 - 0.27318326154057312012e-2 * t1060 * t514 + 0.33217553203353881836e-3 * t1048 * t528 - 0.49597568698431132362e-9 * t1074 * t570 - 0.26048173828125000000e-1 * t1017 * t503 - 0.99241514682434499262e-5 * t1034 * t542 + 0.11794793270403519273e-6 * t1082 * t556 - 0.62531250000000000000e-1 * t1247 - 0.31265625000000000000e0 * t1229 + 0.75884239316825866699e-4 * t1329 * t1330 - 0.30353695726730346680e-4 * t523 * t1333 - 0.20868165812127113342e-4 * t1337 * t1339;
1518   t1343 = t532 * t132;
1519   t1344 = t1343 * t536;
1520   t1345 = t538 * t1255;
1521   t1348 = t552 * t1264;
1522   t1351 = t297 * t533;
1523   t1352 = t1351 * t148;
1524   t1353 = t150 * t476;
1525   t1354 = t1353 * t67;
1526   t1357 = t547 * t144;
1527   t1358 = t1357 * t550;
1528   t1359 = t552 * t1255;
1529   t1362 = t566 * t1264;
1530   t1365 = t302 * t157;
1531   t1366 = t1365 * t162;
1532   t1367 = t164 * t476;
1533   t1368 = t1367 * t67;
1534   t1371 = t560 * t158;
1535   t1372 = t1371 * t564;
1536   t1373 = t566 * t1255;
1537   t1376 = t580 * t1264;
1538   t1379 = t306 * t561;
1539   t1380 = t1379 * t175;
1540   t1381 = t177 * t476;
1541   t1382 = t1381 * t67;
1542   t1385 = t574 * t171;
1543   t1386 = t1385 * t578;
1544   t1387 = t580 * t1255;
1545   t1390 = t1012 * t10;
1546   t1391 = t1390 * t1264;
1547   t1394 = t168 * t117;
1548   t1395 = t1394 * t575;
1549   t1397 = 0.1e1 / t160 / t122;
1550   t1398 = t1395 * t1397;
1551   t1399 = t422 * t476;
1552   t1400 = t1399 * t67;
1553   t1403 = t506 * t107;
1554   t1404 = t1403 * t508;
1555   t1405 = t510 * t1255;
1556   t1408 = t524 * t1264;
1557   t1411 = t155 * t143;
1558   t1412 = t1411 * t124;
1559   t1413 = t126 * t476;
1560   t1414 = t1413 * t67;
1561   t1423 = -0.89964206592416763308e-5 * t1344 * t1345 + 0.34601617920160293580e-5 * t537 * t1348 + 0.24221132544112205506e-5 * t1352 * t1354 + 0.26464403915315866470e-6 * t1358 * t1359 - 0.99241514682434499264e-7 * t551 * t1362 - 0.70296072900057770312e-7 * t1366 * t1368 - 0.31125148908009286970e-8 * t1372 * t1373 + 0.11467160124003421515e-8 * t565 * t1376 + 0.81908286600024439395e-9 * t1380 * t1382 + 0.12989839421017677523e-10 * t1386 * t1387 - 0.47235779712791554630e-11 * t579 * t1391 - 0.33950716668568929890e-11 * t1398 * t1400 + 0.75973840332031250000e-3 * t1404 * t1405 - 0.32560217285156250000e-3 * t509 * t1408 - 0.21706811523437500000e-3 * t1412 * t1414 + 0.19536130371093750000e-2 * t912 * t1237 + 0.20488744615542984009e-3 * t921 * t1237 - 0.24913164902515411377e-4 * t930 * t1237;
1562   t1435 = t130 * rho[0];
1563   t1436 = t11 * t1435;
1564   t1438 = t1436 * t519 * t522;
1565   t1441 = t130 * t154;
1566   t1442 = t11 * t1441;
1567   t1444 = t1442 * t533 * t536;
1568   t1447 = t130 * t836;
1569   t1448 = t11 * t1447;
1570   t1450 = t1448 * t157 * t550;
1571   t1453 = t11 * t168;
1572   t1455 = t1453 * t561 * t564;
1573   t1458 = t168 * t38;
1574   t1459 = t11 * t1458;
1575   t1461 = t1459 * t575 * t578;
1576   t1464 = t11 * t545;
1577   t1466 = t1464 * t143 * t508;
1578   t1469 = t1399 * t275;
1579   t1472 = t580 * t1245;
1580   t1475 = t991 * t111;
1581   t1476 = t1240 * t249;
1582   t1479 = t1413 * t275;
1583   t1482 = 0.74431136011825874447e-6 * t939 * t1237 - 0.88460949528026394548e-8 * t950 * t1237 + 0.37198176523823349271e-10 * t959 * t1237 + 0.23449218750000000000e-1 * t1238 + 0.10421875000000000000e-1 * t1257 - 0.32568359375000000000e-2 * t1262 - 0.52109375000000000000e-2 * t1266 + 0.13912110541418075561e-3 * t1438 * t525 - 0.16147421696074803671e-4 * t1444 * t539 + 0.46864048600038513541e-6 * t1450 * t553 - 0.54605524400016292930e-8 * t1455 * t567 + 0.22633811112379286593e-10 * t1461 * t581 + 0.14471207682291666667e-2 * t1466 * t511 + 0.99195137396862264723e-10 * t1136 * t1469 + 0.59044724640989443287e-12 * t579 * t1472 - 0.13024086914062500000e-1 * t1475 * t1476 + 0.52096347656250000000e-2 * t1121 * t1479;
1584   t1483 = t510 * t1245;
1585   t1486 = t974 * t124;
1586   t1487 = t1413 * t249;
1587   t1490 = t1338 * t275;
1588   t1493 = t524 * t1245;
1589   t1496 = t1007 * t135;
1590   t1497 = t1338 * t249;
1591   t1500 = t1353 * t275;
1592   t1503 = t538 * t1245;
1593   t1506 = t982 * t148;
1594   t1507 = t1353 * t249;
1595   t1510 = t1367 * t275;
1596   t1513 = t552 * t1245;
1597   t1516 = t995 * t162;
1598   t1517 = t1367 * t249;
1599   t1520 = t1381 * t275;
1600   t1523 = t566 * t1245;
1601   t1526 = t1003 * t175;
1602   t1527 = t1381 * t249;
1603   t1534 = 0.10853405761718750000e-3 * t509 * t1483 - 0.14569773948830566406e-2 * t1486 * t1487 + 0.54636652308114624024e-3 * t1126 * t1490 + 0.75884239316825866699e-5 * t523 * t1493 + 0.18269654261844635010e-3 * t1496 * t1497 - 0.66435106406707763672e-4 * t1141 * t1500 - 0.69203235840320587160e-6 * t537 * t1503 - 0.55575248222163319587e-5 * t1506 * t1507 + 0.19848302936486899852e-5 * t1116 * t1510 + 0.16540252447072416544e-7 * t551 * t1513 + 0.66837161865619942547e-7 * t1516 * t1517 - 0.23589586540807038546e-7 * t1131 * t1520 - 0.16381657320004887879e-9 * t565 * t1523 - 0.28341467827674932778e-9 * t1526 * t1527 - 0.12506250000000000000e0 * t1234 + 0.62531250000000000000e-1 * t1242 + 0.21712239583333333333e-1 * t1251 + 0.26054687500000000000e-2 * t1269;
1604   t1537 = t429 * t1152;
1605   t1538 = t488 * t184;
1606   t1539 = t1538 * t279;
1607   t1545 = t1161 * t1163;
1608   t1548 = my_piecewise3(t102, t1342 + t1423 + t1482 + t1534, t429 * t430 * t1271 * t184 - 0.2e1 * t1537 * t1539 - t1545 * t1539);
1609   t1551 = -0.2e1 * t690 * t1205 + t217 * t1290 - t217 * t1292 - t217 * t1294 - t101 * t1548 + 0.1174e1 * t1548;
1610   t1553 = t213 * t1551 * t205;
1611   t1556 = t448 * t591;
1612   t1560 = t7 * t437;
1613   t1561 = t596 * t1560;
1614   t1565 = t596 * t597 * t1185;
1615   t1566 = t204 * t9;
1616   t1569 = t18 * t1566 / t262;
1617   t1572 = t194 * sigma[0];
1618   t1573 = 0.1e1 / t1572;
1619   t1574 = t597 * t1573;
1620   t1575 = t5 * t1574;
1621   t1577 = t56 * t13 * t1197;
1622   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1623     v2rhosigma[0] = -t1202 * t593 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t1553 - 0.24739500000000000000e1 * t447 * t1556 * t456 + 0.92773125000000000000e0 * t1561 * t602 + 0.11132775000000000000e2 * t1565 * t1569 - 0.15101552267946798162e2 * t1575 * t1577;
1624 
1625   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1626     v2rholapl[0] = 0.0e0;
1627 
1628   t1582 = t690 * t94;
1629   t1583 = t619 * t187;
1630   t1584 = t1583 * t290;
1631   t1587 = t287 * t619;
1632   t1591 = t270 * t607;
1633   t1593 = t83 * t606;
1634   t1594 = t1593 * t249;
1635   t1595 = t1231 * t1594;
1636   t1597 = t606 * t9;
1637   t1598 = t1597 * t67;
1638   t1599 = t744 * t1598;
1639   t1601 = t113 * t606;
1640   t1602 = t1601 * t275;
1641   t1603 = t749 * t1602;
1642   t1606 = my_piecewise3(t61, -0.5e1 / 0.3e1 * t459, 0);
1643   t1607 = t84 * t1606;
1644   t1608 = t244 * t1607;
1645   t1610 = t1250 * t610;
1646   t1612 = t606 * t249;
1647   t1613 = t484 * t1612;
1648   t1614 = t1254 * t1613;
1649   t1616 = t1601 * t67;
1650   t1617 = t1260 * t1616;
1651   t1619 = t606 * t275;
1652   t1620 = t510 * t1619;
1653   t1621 = t483 * t1620;
1654   t1623 = t484 * t1606;
1655   t1624 = t483 * t1623;
1656   t1626 = -0.15e2 / 0.32e2 * t1591 - 0.3e1 / 0.16e2 * t1595 + 0.9e1 / 0.256e3 * t1599 + 0.3e1 / 0.32e2 * t1603 - 0.3e1 / 0.32e2 * t1608 + 0.25e2 / 0.768e3 * t1610 + t1614 / 0.64e2 - 0.5e1 / 0.1024e4 * t1617 - t1621 / 0.128e3 + t1624 / 0.256e3;
1657   t1627 = t50 * t1626;
1658   t1632 = t1626 * t91;
1659   t1635 = t613 * t279;
1660   t1636 = t1635 * t91;
1661   t1639 = t1627 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t614 * t1276 - t283 * t1632 / 0.100e3 + t823 * t1636 / 0.100e3;
1662   t1640 = t94 * t1639;
1663   t1647 = t290 * t666;
1664   t1652 = t580 * t1612;
1665   t1655 = t1390 * t1619;
1666   t1658 = t422 * t606;
1667   t1659 = t1658 * t67;
1668   t1662 = t510 * t1612;
1669   t1665 = t524 * t1619;
1670   t1668 = t126 * t606;
1671   t1669 = t1668 * t67;
1672   t1672 = t524 * t1612;
1673   t1675 = t538 * t1619;
1674   t1678 = t137 * t606;
1675   t1679 = t1678 * t67;
1676   t1682 = t538 * t1612;
1677   t1685 = t552 * t1619;
1678   t1688 = t150 * t606;
1679   t1689 = t1688 * t67;
1680   t1692 = t552 * t1612;
1681   t1695 = t566 * t1619;
1682   t1698 = 0.10421875000000000000e-1 * t1614 - 0.32568359375000000000e-2 * t1617 - 0.52109375000000000000e-2 * t1621 + 0.12989839421017677523e-10 * t1386 * t1652 - 0.47235779712791554630e-11 * t579 * t1655 - 0.33950716668568929890e-11 * t1398 * t1659 + 0.75973840332031250000e-3 * t1404 * t1662 - 0.32560217285156250000e-3 * t509 * t1665 - 0.21706811523437500000e-3 * t1412 * t1669 + 0.75884239316825866699e-4 * t1329 * t1672 - 0.30353695726730346680e-4 * t523 * t1675 - 0.20868165812127113342e-4 * t1337 * t1679 - 0.89964206592416763308e-5 * t1344 * t1682 + 0.34601617920160293580e-5 * t537 * t1685 + 0.24221132544112205506e-5 * t1352 * t1689 + 0.26464403915315866470e-6 * t1358 * t1692 - 0.99241514682434499264e-7 * t551 * t1695;
1683   t1699 = t164 * t606;
1684   t1700 = t1699 * t67;
1685   t1703 = t566 * t1612;
1686   t1706 = t580 * t1619;
1687   t1709 = t177 * t606;
1688   t1710 = t1709 * t67;
1689   t1727 = t114 * t1606;
1690   t1730 = t127 * t1606;
1691   t1733 = t138 * t1606;
1692   t1736 = t151 * t1606;
1693   t1739 = t165 * t1606;
1694   t1742 = t178 * t1606;
1695   t1745 = -0.70296072900057770312e-7 * t1366 * t1700 - 0.31125148908009286970e-8 * t1372 * t1703 + 0.11467160124003421515e-8 * t565 * t1706 + 0.81908286600024439395e-9 * t1380 * t1710 - 0.31265625000000000000e0 * t1591 - 0.62531250000000000000e-1 * t1608 + 0.33217553203353881836e-3 * t1048 * t638 - 0.99241514682434499262e-5 * t1034 * t644 + 0.11794793270403519273e-6 * t1082 * t650 - 0.26048173828125000000e-1 * t1017 * t626 - 0.27318326154057312012e-2 * t1060 * t632 - 0.49597568698431132362e-9 * t1074 * t656 - 0.26048173828125000000e-2 * t339 * t1727 - 0.18212217436038208008e-3 * t348 * t1730 + 0.16608776601676940918e-4 * t357 * t1733 - 0.39696605872973799705e-6 * t322 * t1736 + 0.39315977568011730910e-8 * t331 * t1739 - 0.14170733913837466389e-10 * t417 * t1742;
1696   t1766 = t510 * t1606;
1697   t1769 = t1668 * t249;
1698   t1772 = t1678 * t275;
1699   t1775 = t524 * t1606;
1700   t1778 = t1678 * t249;
1701   t1781 = t1688 * t275;
1702   t1784 = t538 * t1606;
1703   t1787 = 0.37198176523823349271e-10 * t959 * t1598 + 0.19536130371093750000e-2 * t912 * t1598 + 0.20488744615542984009e-3 * t921 * t1598 - 0.24913164902515411377e-4 * t930 * t1598 + 0.74431136011825874447e-6 * t939 * t1598 - 0.88460949528026394548e-8 * t950 * t1598 + 0.23449218750000000000e-1 * t1599 - 0.16147421696074803671e-4 * t1444 * t641 + 0.46864048600038513541e-6 * t1450 * t647 - 0.54605524400016292930e-8 * t1455 * t653 + 0.10853405761718750000e-3 * t509 * t1766 - 0.14569773948830566406e-2 * t1486 * t1769 + 0.54636652308114624024e-3 * t1126 * t1772 + 0.75884239316825866699e-5 * t523 * t1775 + 0.18269654261844635010e-3 * t1496 * t1778 - 0.66435106406707763672e-4 * t1141 * t1781 - 0.69203235840320587160e-6 * t537 * t1784;
1704   t1788 = t1688 * t249;
1705   t1791 = t1699 * t275;
1706   t1794 = t552 * t1606;
1707   t1803 = t1699 * t249;
1708   t1806 = t1709 * t275;
1709   t1809 = t566 * t1606;
1710   t1812 = t1709 * t249;
1711   t1815 = t1658 * t275;
1712   t1818 = t580 * t1606;
1713   t1821 = t1601 * t249;
1714   t1824 = t1668 * t275;
1715   t1831 = -0.55575248222163319587e-5 * t1506 * t1788 + 0.19848302936486899852e-5 * t1116 * t1791 + 0.16540252447072416544e-7 * t551 * t1794 + 0.22633811112379286593e-10 * t1461 * t659 + 0.14471207682291666667e-2 * t1466 * t629 + 0.13912110541418075561e-3 * t1438 * t635 + 0.66837161865619942547e-7 * t1516 * t1803 - 0.23589586540807038546e-7 * t1131 * t1806 - 0.16381657320004887879e-9 * t565 * t1809 - 0.28341467827674932778e-9 * t1526 * t1812 + 0.99195137396862264723e-10 * t1136 * t1815 + 0.59044724640989443287e-12 * t579 * t1818 - 0.13024086914062500000e-1 * t1475 * t1821 + 0.52096347656250000000e-2 * t1121 * t1824 - 0.12506250000000000000e0 * t1595 + 0.62531250000000000000e-1 * t1603 + 0.21712239583333333333e-1 * t1610 + 0.26054687500000000000e-2 * t1624;
1716   t1834 = t613 * t184;
1717   t1835 = t1834 * t279;
1718   t1843 = my_piecewise3(t102, t1698 + t1745 + t1787 + t1831, t429 * t430 * t1626 * t184 - 0.2e1 * t1537 * t1835 - t1545 * t1835);
1719   t1846 = -0.4e1 * t1582 * t1584 + 0.2e1 * t217 * t1587 * t187 + 0.2e1 * t217 * t1640 * t187 - 0.2e1 * t217 * t620 * t434 - t217 * t1647 - t101 * t1843 + 0.1174e1 * t1843;
1720   t1848 = t213 * t1846 * t205;
1721   t1851 = t448 * t669;
1722   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1723     v2rhotau[0] = -t1202 * t671 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t1848 - 0.24739500000000000000e1 * t447 * t1851 * t456;
1724 
1725   t1855 = t498 * t498;
1726   t1856 = t1855 * t187;
1727   t1867 = 0.1e1 / t390;
1728   t1872 = t495 * t495;
1729   t1874 = t476 * t476;
1730   t1875 = t84 * t1874;
1731   t1876 = t737 * t1875;
1732   t1878 = t113 * t1874;
1733   t1879 = t1878 * t10;
1734   t1880 = t1254 * t1879;
1735   t1882 = my_piecewise3(t61, 0, 0);
1736   t1883 = t84 * t1882;
1737   t1884 = t244 * t1883;
1738   t1885 = 0.3e1 / 0.32e2 * t1884;
1739   t1886 = t1218 * t170;
1740   t1887 = t1886 * t392;
1741   t1888 = t403 * t1874;
1742   t1889 = t1887 * t1888;
1743   t1891 = t484 * t1882;
1744   t1892 = t483 * t1891;
1745   t1893 = t1892 / 0.256e3;
1746   t1894 = -0.3e1 / 0.16e2 * t1876 + 0.7e1 / 0.256e3 * t1880 - t1885 - t1889 / 0.512e3 + t1893;
1747   t1895 = t50 * t1894;
1748   t1898 = t488 * t488;
1749   t1899 = t50 * t1898;
1750   t1902 = t1894 * t91;
1751   t1905 = t1898 * t91;
1752   t1908 = t1895 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t1899 * t816 - t283 * t1902 / 0.100e3 + t823 * t1905 / 0.100e3;
1753   t1911 = t34 * t9 * t40 * t45 / 0.144e3 - 0.9e1 / 0.160e3 * t232 * sigma[0] * t466 * t45 + 0.243e3 / 0.51200e5 * t712 * t35 * t1867 * t719 + 0.2e1 * t1872 + 0.2e1 * t94 * t1908;
1754   t1912 = t1911 * t187;
1755   t1914 = t498 * t588;
1756   t1918 = 0.62531250000000000000e-1 * t1884;
1757   t1919 = t151 * t1874;
1758   t1922 = t165 * t1874;
1759   t1925 = t178 * t1874;
1760   t1928 = t114 * t1874;
1761   t1931 = t127 * t1874;
1762   t1934 = t138 * t1874;
1763   t1937 = t114 * t1882;
1764   t1939 = 0.26048173828125000000e-2 * t339 * t1937;
1765   t1940 = t127 * t1882;
1766   t1942 = 0.18212217436038208008e-3 * t348 * t1940;
1767   t1943 = t138 * t1882;
1768   t1945 = 0.16608776601676940918e-4 * t357 * t1943;
1769   t1946 = t151 * t1882;
1770   t1948 = 0.39696605872973799705e-6 * t322 * t1946;
1771   t1949 = t165 * t1882;
1772   t1951 = 0.39315977568011730910e-8 * t331 * t1949;
1773   t1952 = t178 * t1882;
1774   t1954 = 0.14170733913837466389e-10 * t417 * t1952;
1775   t1955 = t137 * t1874;
1776   t1956 = t1955 * t10;
1777   t1959 = t524 * t1882;
1778   t1961 = 0.75884239316825866699e-5 * t523 * t1959;
1779   t1962 = t21 * t849;
1780   t1963 = t1962 * t356;
1781   t1964 = t1963 * t410;
1782   t1965 = t367 * t1874;
1783   t1968 = -0.12506250000000000000e0 * t1876 - t1918 - 0.55575248222163319587e-5 * t982 * t1919 + 0.66837161865619942547e-7 * t995 * t1922 - 0.28341467827674932778e-9 * t1003 * t1925 - 0.13024086914062500000e-1 * t991 * t1928 - 0.14569773948830566406e-2 * t974 * t1931 + 0.18269654261844635010e-3 * t1007 * t1934 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.14418005470196914673e-3 * t1329 * t1956 + t1961 - 0.75884239316825866699e-5 * t1964 * t1965;
1784   t1969 = t150 * t1874;
1785   t1970 = t1969 * t10;
1786   t1973 = t538 * t1882;
1787   t1975 = 0.69203235840320587160e-6 * t537 * t1973;
1788   t1976 = t21 * t856;
1789   t1977 = t1976 * t321;
1790   t1978 = t1977 * t365;
1791   t1979 = t376 * t1874;
1792   t1982 = t164 * t1874;
1793   t1983 = t1982 * t10;
1794   t1986 = t552 * t1882;
1795   t1988 = 0.16540252447072416544e-7 * t551 * t1986;
1796   t1989 = t21 * t863;
1797   t1990 = t1989 * t330;
1798   t1991 = t1990 * t374;
1799   t1992 = t385 * t1874;
1800   t1995 = t177 * t1874;
1801   t1996 = t1995 * t10;
1802   t1999 = t566 * t1882;
1803   t2001 = 0.16381657320004887879e-9 * t565 * t1999;
1804   t2002 = t21 * t870;
1805   t2003 = t2002 * t416;
1806   t2004 = t2003 * t383;
1807   t2005 = t422 * t9;
1808   t2006 = t2005 * t1874;
1809   t2009 = t422 * t1874;
1810   t2010 = t2009 * t10;
1811   t2013 = t580 * t1882;
1812   t2015 = 0.59044724640989443287e-12 * t579 * t2013;
1813   t2016 = t168 * t141;
1814   t2017 = t21 * t2016;
1815   t2018 = t157 * t143;
1816   t2019 = t2017 * t2018;
1817   t2021 = 0.1e1 / t160 / t123;
1818   t2022 = t2019 * t2021;
1819   t2023 = t1012 * t9;
1820   t2024 = t2023 * t1874;
1821   t2027 = t126 * t1874;
1822   t2028 = t2027 * t10;
1823   t2031 = t510 * t1882;
1824   t2033 = 0.10853405761718750000e-3 * t509 * t2031;
1825   t2034 = t21 * t130;
1826   t2035 = t2034 * t119;
1827   t2036 = t2035 * t401;
1828   t2037 = t412 * t1874;
1829   t2042 = 0.26054687500000000000e-2 * t1892;
1830   t2043 = -0.17300808960080146790e-4 * t1344 * t1970 - t1975 + 0.86504044800400733950e-6 * t1978 * t1979 + 0.51274782585924491286e-6 * t1358 * t1983 + t1988 - 0.24810378670608624816e-7 * t1991 * t1992 - 0.60612132084018085152e-8 * t1372 * t1996 - t2001 + 0.28667900310008553788e-9 * t2004 * t2006 + 0.25389231595625460613e-10 * t1386 * t2010 + t2015 - 0.11808944928197888657e-11 * t2022 * t2024 + 0.14109427490234375000e-2 * t1404 * t2028 + t2033 - 0.81400543212890625000e-4 * t2036 * t2037 + 0.18238281250000000000e-1 * t1880 - 0.13027343750000000000e-2 * t1889 + t2042;
1831   t2056 = my_piecewise3(t102, t1968 + t2043, -0.2e1 * t429 * t1152 * t1898 * t184 - t1161 * t1163 * t1898 * t184 + t429 * t430 * t1894 * t184);
1832   t2059 = -0.2e1 * t690 * t1856 + t217 * t1912 - 0.2e1 * t217 * t1914 - t101 * t2056 + 0.1174e1 * t2056;
1833   t2061 = t213 * t2059 * t205;
1834   t2064 = t7 * t591;
1835   t2065 = t596 * t2064;
1836   t2068 = 0.1e1 / sigma[0];
1837   t2070 = t1566 * t197;
1838   t2071 = t18 * t2068 * t2070;
1839   t2076 = t453 * t192 * t1573 * t204;
1840   t2080 = 0.1e1 / t194 / t35;
1841   t2081 = t597 * t2080;
1842   t2082 = t5 * t2081;
1843   t2084 = t22 * t13 * t1197;
1844   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1845     v2sigma2[0] = -0.3e1 / 0.16e2 * t212 * t2061 + 0.18554625000000000000e1 * t2065 * t602 - 0.41747906250000000000e1 * t1565 * t2071 - 0.46386562500000000000e0 * t598 * t2076 + 0.56630821004800493110e1 * t2082 * t2084;
1846 
1847   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1848     v2sigmalapl[0] = 0.0e0;
1849 
1850   t2087 = t1583 * t498;
1851   t2090 = t495 * t619;
1852   t2094 = t1593 * t476;
1853   t2095 = t1231 * t2094;
1854   t2097 = t10 * t476;
1855   t2098 = t1601 * t2097;
1856   t2099 = t1254 * t2098;
1857   t2101 = t606 * t476;
1858   t2102 = t403 * t2101;
1859   t2103 = t1887 * t2102;
1860   t2105 = -0.3e1 / 0.16e2 * t2095 + 0.7e1 / 0.256e3 * t2099 - t1885 - t2103 / 0.512e3 + t1893;
1861   t2106 = t50 * t2105;
1862   t2110 = t87 * t488 * t91;
1863   t2113 = t2105 * t91;
1864   t2116 = t613 * t488;
1865   t2117 = t2116 * t91;
1866   t2120 = t2106 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t614 * t2110 - t283 * t2113 / 0.100e3 + t823 * t2117 / 0.100e3;
1867   t2121 = t94 * t2120;
1868   t2128 = t498 * t666;
1869   t2130 = t1678 * t476;
1870   t2133 = t1688 * t476;
1871   t2136 = t1699 * t476;
1872   t2139 = t1709 * t476;
1873   t2142 = t1601 * t476;
1874   t2145 = t1668 * t476;
1875   t2149 = -t1918 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.18269654261844635010e-3 * t1496 * t2130 - 0.55575248222163319587e-5 * t1506 * t2133 + 0.66837161865619942547e-7 * t1516 * t2136 - 0.28341467827674932778e-9 * t1526 * t2139 - 0.13024086914062500000e-1 * t1475 * t2142 - 0.14569773948830566406e-2 * t1486 * t2145 - 0.12506250000000000000e0 * t2095 + t1961 - t1975 + t1988;
1876   t2150 = t385 * t2101;
1877   t2153 = t1709 * t2097;
1878   t2156 = t2005 * t2101;
1879   t2159 = t1658 * t2097;
1880   t2162 = t2023 * t2101;
1881   t2165 = t1668 * t2097;
1882   t2168 = t412 * t2101;
1883   t2171 = t1678 * t2097;
1884   t2174 = t367 * t2101;
1885   t2177 = t1688 * t2097;
1886   t2180 = t376 * t2101;
1887   t2183 = t1699 * t2097;
1888   t2188 = -t2001 + t2015 + t2033 + t2042 - 0.24810378670608624816e-7 * t1991 * t2150 - 0.60612132084018085152e-8 * t1372 * t2153 + 0.28667900310008553788e-9 * t2004 * t2156 + 0.25389231595625460613e-10 * t1386 * t2159 - 0.11808944928197888657e-11 * t2022 * t2162 + 0.14109427490234375000e-2 * t1404 * t2165 - 0.81400543212890625000e-4 * t2036 * t2168 + 0.14418005470196914673e-3 * t1329 * t2171 - 0.75884239316825866699e-5 * t1964 * t2174 - 0.17300808960080146790e-4 * t1344 * t2177 + 0.86504044800400733950e-6 * t1978 * t2180 + 0.51274782585924491286e-6 * t1358 * t2183 + 0.18238281250000000000e-1 * t2099 - 0.13027343750000000000e-2 * t2103;
1889   t2190 = t1834 * t488;
1890   t2198 = my_piecewise3(t102, t2149 + t2188, t429 * t430 * t2105 * t184 - 0.2e1 * t1537 * t2190 - t1545 * t2190);
1891   t2201 = -0.4e1 * t1582 * t2087 + 0.2e1 * t217 * t2090 * t187 + 0.2e1 * t217 * t2121 * t187 - 0.2e1 * t217 * t620 * t588 - t217 * t2128 - t101 * t2198 + 0.1174e1 * t2198;
1892   t2203 = t213 * t2201 * t205;
1893   t2206 = t7 * t669;
1894   t2207 = t596 * t2206;
1895   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1896     v2sigmatau[0] = -0.3e1 / 0.16e2 * t212 * t2203 + 0.92773125000000000000e0 * t2207 * t602;
1897 
1898   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1899     v2lapl2[0] = 0.0e0;
1900 
1901   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1902     v2lapltau[0] = 0.0e0;
1903 
1904   t2210 = t619 * t619;
1905   t2211 = t95 * t2210;
1906   t2215 = t2210 * t187;
1907   t2218 = t606 * t606;
1908   t2219 = t84 * t2218;
1909   t2220 = t737 * t2219;
1910   t2222 = t113 * t2218;
1911   t2223 = t2222 * t10;
1912   t2224 = t1254 * t2223;
1913   t2226 = t403 * t2218;
1914   t2227 = t1887 * t2226;
1915   t2229 = -0.3e1 / 0.16e2 * t2220 + 0.7e1 / 0.256e3 * t2224 - t1885 - t2227 / 0.512e3 + t1893;
1916   t2230 = t50 * t2229;
1917   t2233 = t613 * t613;
1918   t2234 = t50 * t2233;
1919   t2240 = t2233 * t91;
1920   t2243 = t2230 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t2234 * t816 - t283 * t2229 * t91 / 0.100e3 + t823 * t2240 / 0.100e3;
1921   t2244 = t94 * t2243;
1922   t2251 = t367 * t2218;
1923   t2254 = t150 * t2218;
1924   t2255 = t2254 * t10;
1925   t2258 = t376 * t2218;
1926   t2261 = t164 * t2218;
1927   t2262 = t2261 * t10;
1928   t2265 = t385 * t2218;
1929   t2268 = t177 * t2218;
1930   t2269 = t2268 * t10;
1931   t2272 = t2005 * t2218;
1932   t2275 = t422 * t2218;
1933   t2276 = t2275 * t10;
1934   t2279 = t2023 * t2218;
1935   t2282 = t126 * t2218;
1936   t2283 = t2282 * t10;
1937   t2286 = -t1918 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 - 0.75884239316825866699e-5 * t1964 * t2251 - 0.17300808960080146790e-4 * t1344 * t2255 + 0.86504044800400733950e-6 * t1978 * t2258 + 0.51274782585924491286e-6 * t1358 * t2262 - 0.24810378670608624816e-7 * t1991 * t2265 - 0.60612132084018085152e-8 * t1372 * t2269 + 0.28667900310008553788e-9 * t2004 * t2272 + 0.25389231595625460613e-10 * t1386 * t2276 - 0.11808944928197888657e-11 * t2022 * t2279 + 0.14109427490234375000e-2 * t1404 * t2283;
1938   t2287 = t412 * t2218;
1939   t2290 = t137 * t2218;
1940   t2291 = t2290 * t10;
1941   t2297 = t178 * t2218;
1942   t2300 = t114 * t2218;
1943   t2303 = t127 * t2218;
1944   t2306 = t138 * t2218;
1945   t2309 = t151 * t2218;
1946   t2312 = t165 * t2218;
1947   t2315 = -0.81400543212890625000e-4 * t2036 * t2287 + 0.14418005470196914673e-3 * t1329 * t2291 + 0.18238281250000000000e-1 * t2224 - 0.13027343750000000000e-2 * t2227 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 - 0.12506250000000000000e0 * t2220 - 0.28341467827674932778e-9 * t1003 * t2297 - 0.13024086914062500000e-1 * t991 * t2300 - 0.14569773948830566406e-2 * t974 * t2303 + 0.18269654261844635010e-3 * t1007 * t2306 - 0.55575248222163319587e-5 * t982 * t2309 + 0.66837161865619942547e-7 * t995 * t2312 + t2042;
1948   t2328 = my_piecewise3(t102, t2286 + t2315, -0.2e1 * t429 * t1152 * t2233 * t184 - t1161 * t1163 * t2233 * t184 + t429 * t430 * t2229 * t184);
1949   t2331 = -0.8e1 * t690 * t2211 * t187 + 0.2e1 * t217 * t2215 + 0.2e1 * t217 * t2244 * t187 - 0.4e1 * t217 * t620 * t666 - t101 * t2328 + 0.1174e1 * t2328;
1950   t2333 = t213 * t2331 * t205;
1951   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1952     v2tau2[0] = -0.3e1 / 0.16e2 * t212 * t2333;
1953 
1954 #ifndef XC_DONT_COMPILE_KXC
1955 
1956   if(order < 3) return;
1957 
1958 
1959   t2342 = 0.1e1 / t75;
1960   t2343 = t7 * t2342;
1961   t2355 = t11 * t37;
1962   t2356 = 0.1e1 / t2355;
1963   t2357 = t7 * t2356;
1964   t2362 = 0.1e1 / t11;
1965   t2363 = t7 * t2362;
1966   t2365 = t5 * t2363 * t190;
1967   t2368 = t215 * t215;
1968   t2370 = t214 / t2368;
1969   t2371 = t691 * t290;
1970   t2375 = t291 * t830;
1971   t2381 = 0.1e1 / t253;
1972   t2382 = t19 * t2381;
1973   t2386 = 0.1e1 / t480 * t45;
1974   t2390 = 0.1e1 / t836;
1975   t2395 = t21 * t301;
1976   t2396 = 0.1e1 / t2395;
1977   t2401 = t229 * t229;
1978   t2402 = t2401 * t231;
1979   t2403 = t713 * sigma[0];
1980   t2404 = 0.1e1 / t843;
1981   t2407 = t30 * t33;
1982   t2409 = t2407 * t9 * t45;
1983   t2416 = t255 * t126;
1984   t2417 = t254 * t2416;
1985   t2418 = t16 * t777;
1986   t2419 = t771 * t2418;
1987   t2420 = t2417 * t2419;
1988   t2422 = t16 * t806;
1989   t2423 = t771 * t2422;
1990   t2424 = t770 * t2423;
1991   t2426 = t801 * t743;
1992   t2427 = t2426 * t746;
1993   t2429 = t731 * t769;
1994   t2430 = t2429 * t773;
1995   t2432 = t253 * t62;
1996   t2433 = t2432 * t743;
1997   t2435 = t738 * t9 * t67;
1998   t2436 = t2433 * t2435;
1999   t2439 = t758 * t9 * t67;
2000   t2440 = t744 * t2439;
2001   t2442 = t223 * t63;
2002   t2443 = t482 * t83;
2003   t2444 = t2442 * t2443;
2004   t2445 = t249 * t10;
2005   t2446 = t2445 * t765;
2006   t2447 = t2444 * t2446;
2007   t2449 = t482 * t113;
2008   t2450 = t762 * t2449;
2009   t2451 = t10 * t13;
2010   t2452 = t32 * t275;
2011   t2453 = t2451 * t2452;
2012   t2454 = t2450 * t2453;
2013   t2456 = t218 * t64;
2014   t2458 = t2456 * t255 * t258;
2015   t2460 = t39 * t64;
2016   t2462 = t2460 * t482 * t766;
2017   t2464 = t65 * t74;
2018   t2466 = t126 * t275 * t806;
2019   t2467 = t2464 * t2466;
2020   t2469 = t270 * t74;
2021   t2470 = t2469 * t751;
2022   t2472 = t1122 * t777;
2023   t2473 = t749 * t2472;
2024   t2475 = t792 * t739;
2025   t2477 = t742 * t769;
2026   t2478 = t67 * t275;
2027   t2479 = t745 * t2478;
2028   t2480 = t2477 * t2479;
2029   t2482 = 0.9e1 / 0.128e3 * t2420 - 0.9e1 / 0.256e3 * t2424 + 0.9e1 / 0.8e1 * t2427 - 0.3e1 / 0.8e1 * t2430 + 0.27e2 / 0.128e3 * t2436 + 0.27e2 / 0.256e3 * t2440 - 0.81e2 / 0.256e3 * t2447 + 0.27e2 / 0.256e3 * t2454 + 0.157e3 / 0.192e3 * t2458 - 0.153e3 / 0.256e3 * t2462 - 0.3e1 / 0.16e2 * t2467 + 0.45e2 / 0.16e2 * t2470 - 0.9e1 / 0.16e2 * t2473 - 0.45e2 / 0.16e2 * t2475 - 0.27e2 / 0.128e3 * t2480;
2030   t2483 = t113 * t738;
2031   t2484 = t2483 * t275;
2032   t2485 = t1231 * t2484;
2033   t2488 = t83 * t249 * t758;
2034   t2489 = t1231 * t2488;
2035   t2491 = t113 * t758;
2036   t2492 = t2491 * t275;
2037   t2493 = t749 * t2492;
2038   t2495 = t750 * t806;
2039   t2496 = t749 * t2495;
2040   t2499 = t777 * t275;
2041   t2500 = t74 * t137 * t2499;
2042   t2501 = t65 * t2500;
2043   t2507 = t20 * t63;
2044   t2512 = t75 * t62;
2045   t2513 = t2512 * t74;
2046   t2518 = t218 * t63;
2047   t2522 = t249 * t78;
2048   t2523 = t2522 * t758;
2049   t2526 = t37 * t738;
2050   t2529 = t695 * t62;
2051   t2530 = t2529 * t255;
2052   t2532 = t32 * t9;
2053   t2533 = t249 * t13 * t2532;
2054   t2537 = t758 * t30 * t16;
2055   t2544 = my_piecewise3(t61, -0.440e3 / 0.27e2 * t55 * t696 + 0.154e3 / 0.27e2 * t2382, 0);
2056   t2545 = t266 * t2544;
2057   t2548 = t39 * t63;
2058   t2550 = t482 * t230 * t10;
2059   t2553 = 0.35e2 / 0.54e2 * t12 * t79 + 0.35e2 / 0.12e2 * t781 * t267 - 0.67e2 / 0.72e2 * t2507 * t272 + 0.5e1 / 0.4e1 * t263 * t789 - 0.11e2 / 0.8e1 * t2513 * t795 + 0.5e1 / 0.4e1 * t263 * t798 + 0.27e2 / 0.32e2 * t2518 * t255 * t803 + 0.3e1 / 0.8e1 * t77 * t2523 - 0.3e1 / 0.16e2 * t2526 * t272 + 0.27e2 / 0.64e2 * t2530 * t2533 - 0.3e1 / 0.16e2 * t793 * t2537 + t77 * t2545 / 0.8e1 - 0.27e2 / 0.128e3 * t2548 * t2550;
2060   t2554 = t261 * t2553;
2061   t2555 = t65 * t2554;
2062   t2557 = t241 * t778;
2063   t2559 = t270 * t759;
2064   t2561 = t241 * t807;
2065   t2563 = t84 * t2544;
2066   t2564 = t244 * t2563;
2067   t2566 = t117 * t64;
2068   t2568 = t111 * t83 * t230;
2069   t2569 = t2566 * t2568;
2070   t2571 = t786 * t250;
2071   t2573 = t726 * t276;
2072   t2575 = t738 * t249;
2073   t2576 = t38 * t2575;
2074   t2577 = t2576 * t84;
2075   t2579 = t20 * t64;
2076   t2580 = t2579 * t84;
2077   t2582 = 0.9e1 / 0.16e2 * t2485 - 0.9e1 / 0.16e2 * t2489 + 0.9e1 / 0.32e2 * t2493 + 0.9e1 / 0.32e2 * t2496 + 0.3e1 / 0.16e2 * t2501 + t2555 / 0.32e2 - 0.15e2 / 0.16e2 * t2557 - 0.45e2 / 0.32e2 * t2559 + 0.15e2 / 0.32e2 * t2561 - 0.3e1 / 0.32e2 * t2564 + 0.135e3 / 0.512e3 * t2569 - 0.45e2 / 0.8e1 * t2571 + 0.15e2 / 0.8e1 * t2573 - 0.3e1 / 0.16e2 * t2577 - 0.15e2 / 0.8e1 * t2580;
2078   t2583 = t2482 + t2582;
2079   t2584 = t50 * t2583;
2080   t2589 = t814 * t279;
2081   t2590 = t50 * t2589;
2082   t2593 = t89 * t91;
2083   t2600 = t810 * t279 * t91;
2084   t2603 = t50 * t1162;
2085   t2607 = -0.539e3 / 0.21870e5 * t52 * t2382 + t2584 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t811 * t1276 - 0.3e1 / 0.100e3 * t2590 * t91 + 0.3e1 / 0.50e2 * t2590 * t2593 - t283 * t2583 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t2600 - t2603 * t2589 * t91 / 0.100e3;
2086   t2610 = -0.1540e4 / 0.6561e4 * t18 * t2382 - 0.209e3 / 0.243e3 * t34 * t36 * t2386 + 0.797e3 / 0.120e3 * t232 * t233 * t2390 * t45 - 0.729e3 / 0.800e3 * t712 * t713 * t2396 * t719 + 0.243e3 / 0.4000e4 * t2402 * t2403 * t2404 * t2409 + 0.6e1 * t287 * t827 + 0.2e1 * t94 * t2607;
2087   t2619 = t168 * t171;
2088   t2622 = t1447 * t158;
2089   t2625 = t545 * t120;
2090   t2628 = t1441 * t144;
2091   t2639 = t127 * t2544;
2092   t2642 = t352 * t2553;
2093   t2645 = t546 * t330;
2094   t2648 = t423 * t2553;
2095   t2651 = t301 * t119;
2096   t2654 = -0.26499272418876062147e-7 * t2619 * t178 + 0.53207622975375875832e-5 * t2622 * t165 - 0.55243726222649230958e-1 * t2625 * t127 - 0.36520877403135895729e-3 * t2628 * t151 - 0.34204900484170205892e-5 * t1106 * t336 + 0.35384379811210557819e-6 * t1082 * t1087 - 0.11794793270403519273e-6 * t303 * t1071 + 0.27318326154057312012e-2 * t313 * t1045 - 0.18212217436038208008e-3 * t348 * t2639 + 0.60707391453460693359e-4 * t121 * t2642 + 0.10261470145251061768e-4 * t2645 * t332 + 0.47235779712791554630e-11 * t172 * t2648 - 0.11473696984704071045e0 * t2651 * t349;
2097   t2665 = t151 * t2544;
2098   t2668 = t178 * t2544;
2099   t2671 = t159 * t162;
2100   t2672 = t422 * t806;
2101   t2673 = t2672 * t275;
2102   t2676 = t172 * t175;
2103   t2678 = t1012 * t806 * t275;
2104   t2681 = t1082 * t162;
2105   t2684 = t164 * t758;
2106   t2685 = t2684 * t249;
2107   t2688 = t177 * t758;
2108   t2689 = t2688 * t275;
2109   t2692 = t177 * t806;
2110   t2693 = t2692 * t249;
2111   t2696 = 0.38245656615680236817e-1 * t1095 * t353 - 0.81954978462171936036e-2 * t1060 * t1065 + 0.23817963523784279823e-3 * t1092 * t327 - 0.29772454404730349778e-4 * t1034 * t1039 + 0.99241514682434499264e-5 * t298 * t1042 - 0.39696605872973799705e-6 * t322 * t2665 - 0.14170733913837466389e-10 * t417 * t2668 + 0.27521184297608211636e-7 * t2671 * t2673 - 0.11336587131069973111e-9 * t2676 * t2678 - 0.42461255773452669382e-5 * t2681 * t1133 + 0.20051148559685982764e-6 * t1516 * t2685 - 0.70768759622421115637e-7 * t1131 * t2689 - 0.70768759622421115636e-7 * t1131 * t2693;
2112   t2698 = t137 * t806;
2113   t2699 = t2698 * t249;
2114   t2702 = t121 * t124;
2115   t2703 = t150 * t806;
2116   t2704 = t2703 * t275;
2117   t2707 = t1074 * t175;
2118   t2710 = t2688 * t249;
2119   t2713 = t422 * t758;
2120   t2714 = t2713 * t275;
2121   t2717 = t2672 * t249;
2122   t2720 = t137 * t758;
2123   t2721 = t2720 * t249;
2124   t2724 = t150 * t758;
2125   t2725 = t2724 * t275;
2126   t2728 = t2703 * t249;
2127   t2731 = t133 * t135;
2128   t2732 = t164 * t806;
2129   t2733 = t2732 * t275;
2130   t2736 = t1060 * t124;
2131   t2739 = t126 * t758;
2132   t2740 = t2739 * t249;
2133   t2743 = t2720 * t275;
2134   t2746 = 0.16390995692434387207e-2 * t1126 * t2699 - 0.72848869744152832032e-3 * t2702 * t2704 + 0.20830978853341075592e-7 * t2707 * t1138 - 0.85024403483024798334e-9 * t1526 * t2710 + 0.29758541219058679417e-9 * t1136 * t2714 + 0.29758541219058679417e-9 * t1136 * t2717 + 0.54808962785533905030e-3 * t1496 * t2721 - 0.19930531922012329102e-3 * t1141 * t2725 - 0.19930531922012329102e-3 * t1141 * t2728 + 0.83043883008384704592e-4 * t2731 * t2733 + 0.49172987077303161622e-1 * t2736 * t1128 - 0.43709321846491699218e-2 * t1486 * t2740 + 0.16390995692434387207e-2 * t1126 * t2743;
2135   t2747 = t21 * t104;
2136   t2748 = t2747 * t107;
2137   t2752 = t11 * t156;
2138   t2753 = t2752 * t158;
2139   t2757 = t11 * t169;
2140   t2758 = t2757 * t171;
2141   t2762 = t11 * t105;
2142   t2763 = t2762 * t107;
2143   t2767 = t11 * t118;
2144   t2768 = t2767 * t120;
2145   t2772 = t11 * t131;
2146   t2773 = t2772 * t132;
2147   t2777 = t11 * t142;
2148   t2778 = t2777 * t144;
2149   t2794 = 0.94352274088541666667e-1 * t2748 * t392 * t395 + 0.64429058239579224028e-6 * t2753 * t564 * t867 - 0.31273038406100058637e-8 * t2758 * t578 * t874 - 0.54701165039062500000e-1 * t2763 * t508 * t840 - 0.80247583077543354036e-2 * t2768 * t522 * t846 + 0.12550006819642138481e-2 * t2773 * t536 * t853 - 0.45849579783284738659e-4 * t2778 * t550 * t860 + 0.82563552892824634909e-6 * t303 * t1000 + 0.60153445679057948292e-5 * t1365 * t996 - 0.29758541219058679417e-7 * t1379 * t1004 - 0.39678054958744905888e-8 * t307 * t1014 - 0.65563982769737548828e-1 * t1411 * t975 - 0.10927330461622924805e-1 * t313 * t967;
2150   t2805 = t363 * t533;
2151   t2806 = t2805 * t938;
2152   t2809 = t365 * t177;
2153   t2810 = t364 * t2809;
2154   t2813 = t390 * t106;
2155   t2814 = t2813 * t911;
2156   t2817 = t392 * t137;
2157   t2818 = t391 * t2817;
2158   t2821 = t398 * t143;
2159   t2822 = t2821 * t920;
2160   t2825 = 0.46898437500000000000e-1 * t2420 - 0.23449218750000000000e-1 * t2424 + 0.75037500000000000000e0 * t2427 - 0.25012500000000000000e0 * t2430 + 0.14069531250000000000e0 * t2436 + 0.70347656250000000000e-1 * t2440 - 0.21104296875000000000e0 * t2447 + 0.70347656250000000000e-1 * t2454 + 0.31261077124966867268e-4 * t2806 * t2435 + 0.44658681607095524668e-5 * t2810 * t2419 + 0.29304195556640625000e-1 * t2814 * t2435 + 0.58608391113281250000e-2 * t2818 * t2419 + 0.49172987077303161621e-2 * t2822 * t2435;
2161   t2826 = t401 * t150;
2162   t2827 = t399 * t2826;
2163   t2832 = t887 * t356;
2164   t2833 = t2832 * t929;
2165   t2836 = t888 * t933;
2166   t2843 = t892 * t321;
2167   t2844 = t2843 * t938;
2168   t2847 = t893 * t944;
2169   t2854 = t877 * t170;
2170   t2855 = t2854 * t911;
2171   t2858 = t878 * t915;
2172   t2863 = 0.81954978462171936036e-3 * t2827 * t2419 - 0.20488744615542984009e-3 * t925 * t2423 - 0.30394061181068801880e-2 * t2833 * t746 + 0.10131353727022933960e-2 * t2836 * t773 - 0.74739494707546234132e-4 * t930 * t2439 + 0.24913164902515411377e-4 * t934 * t2423 + 0.11313532673797532916e-3 * t2844 * t746 - 0.37711775579325109721e-4 * t2847 * t773 + 0.22329340803547762334e-5 * t939 * t2439 - 0.74431136011825874448e-6 * t945 * t2423 + 0.12112400830078125000e0 * t2855 * t746 - 0.40374669433593750000e-1 * t2858 * t773 + 0.58608391113281250000e-2 * t912 * t2439;
2173   t2865 = t898 * t330;
2174   t2866 = t2865 * t949;
2175   t2869 = t899 * t953;
2176   t2876 = t903 * t416;
2177   t2877 = t2876 * t958;
2178   t2880 = t904 * t962;
2179   t2887 = t882 * t119;
2180   t2888 = t2887 * t920;
2181   t2891 = t883 * t924;
2182   t2900 = -0.16099892814100803808e-5 * t2866 * t746 + 0.53666309380336012691e-6 * t2869 * t773 - 0.26538284858407918365e-7 * t950 * t2439 + 0.88460949528026394546e-8 * t954 * t2423 + 0.78860134230505500455e-8 * t2877 * t746 - 0.26286711410168500151e-8 * t2880 * t773 + 0.11159452957147004781e-9 * t959 * t2439 - 0.37198176523823349270e-10 * t963 * t2423 + 0.18849645046299545289e-1 * t2888 * t746 - 0.62832150154331817627e-2 * t2891 * t773 + 0.61466233846628952027e-3 * t921 * t2439 + 0.16608776601676940919e-2 * t294 * t979 + 0.10961792557106781006e-1 * t1336 * t1008;
2183   t2905 = t21 * t517;
2184   t2906 = t2905 * t132;
2185   t2910 = t21 * t531;
2186   t2911 = t2910 * t144;
2187   t2915 = t2395 * t120;
2188   t2919 = t21 * t559;
2189   t2920 = t2919 * t171;
2190   t2924 = t21 * t546;
2191   t2925 = t2924 * t158;
2192   t2930 = t126 * t806 * t249;
2193   t2933 = t108 * t111;
2194   t2934 = t2698 * t275;
2195   t2937 = t1034 * t148;
2196   t2940 = t2724 * t249;
2197   t2943 = t2684 * t275;
2198   t2946 = t2732 * t249;
2199   t2949 = t145 * t148;
2200   t2950 = t2692 * t275;
2201   t2953 = -0.59544908809460699558e-4 * t298 * t988 - 0.41681436166622489690e-3 * t1351 * t983 - 0.24493331938417466482e-2 * t2906 * t410 * t413 + 0.91787374246287196875e-4 * t2911 * t365 * t368 + 0.15020020435443733215e-1 * t2915 * t401 * t404 + 0.64472902992984406108e-8 * t2920 * t383 * t386 - 0.13120615402835914865e-5 * t2925 * t374 * t377 + 0.15628904296875000000e-1 * t1121 * t2930 - 0.78144521484375000000e-2 * t2933 * t2934 + 0.29772454404730349778e-3 * t2937 * t1118 - 0.16672574466648995876e-4 * t1506 * t2940 + 0.59544908809460699556e-5 * t1116 * t2943 + 0.59544908809460699556e-5 * t1116 * t2946 - 0.23817963523784279823e-5 * t2949 * t2950;
2202   t2957 = t1048 * t135;
2203   t2960 = t1017 * t111;
2204   t2963 = t2491 * t249;
2205   t2966 = t2739 * t275;
2206   t2980 = t135 * t177 * t2499;
2207   t2983 = t142 * t132;
2208   t2984 = t151 * t2575;
2209   t2988 = t148 * t422 * t2499;
2210   t2991 = t105 * t64;
2211   t2992 = t114 * t2575;
2212   t2995 = -0.79722127688049316409e-2 * t2957 * t1143 + 0.31257808593750000000e0 * t2960 * t1123 - 0.39072260742187500000e-1 * t1475 * t2963 + 0.15628904296875000000e-1 * t1121 * t2966 - 0.39072260742187500000e0 * t1259 * t992 - 0.78144521484375000000e-1 * t310 * t971 + 0.16863173357466585003e-7 * t1109 * t424 - 0.14879270609529339709e-8 * t1074 * t1079 + 0.49597568698431132360e-9 * t307 * t1056 - 0.16608776601676940918e-3 * t133 * t2980 - 0.72247822688812315463e-4 * t2983 * t2984 + 0.55575248222163319587e-5 * t145 * t2988 - 0.52096347656250000000e-1 * t2991 * t2992;
2213   t2997 = t111 * t150 * t2499;
2214   t3000 = t118 * t107;
2215   t3001 = t127 * t2575;
2216   t3005 = t124 * t164 * t2499;
2217   t3008 = t131 * t120;
2218   t3009 = t138 * t2575;
2219   t3012 = t1142 * t777;
2220   t3015 = t1137 * t777;
2221   t3018 = t177 * t738;
2222   t3019 = t3018 * t275;
2223   t3022 = t1117 * t777;
2224   t3025 = t1132 * t777;
2225   t3028 = t1127 * t777;
2226   t3031 = t137 * t738;
2227   t3032 = t3031 * t275;
2228   t3035 = t422 * t738;
2229   t3036 = t3035 * t275;
2230   t3039 = t150 * t738;
2231   t3040 = t3039 * t275;
2232   t3043 = 0.10419269531250000000e-1 * t108 * t2997 - 0.10198841764181396484e-1 * t3000 * t3001 + 0.12141478290692138672e-2 * t121 * t3005 + 0.18269654261844635010e-2 * t3008 * t3009 - 0.65563982769737548830e-2 * t1126 * t3012 + 0.49538131735694780946e-6 * t1131 * t3015 - 0.12030689135811589658e-5 * t1516 * t3019 + 0.99652659610061645512e-3 * t1141 * t3022 - 0.35726945285676419734e-4 * t1116 * t3025 - 0.46886712890625000000e-1 * t1121 * t3028 + 0.13112796553947509766e-1 * t1486 * t3032 + 0.59517082438117358835e-8 * t1526 * t3036 - 0.21923585114213562012e-2 * t1496 * t3040;
2233   t3045 = t164 * t738;
2234   t3046 = t3045 * t275;
2235   t3049 = t126 * t738;
2236   t3050 = t3049 * t275;
2237   t3053 = t1012 * t777;
2238   t3054 = t3053 * t249;
2239   t3059 = t928 * t933;
2240   t3062 = t937 * t944;
2241   t3065 = t910 * t915;
2242   t3068 = t919 * t924;
2243   t3071 = t948 * t953;
2244   t3074 = t957 * t962;
2245   t3079 = 0.83362872333244979380e-4 * t1506 * t3046 + 0.78144521484375000000e-1 * t1475 * t3050 - 0.23806832975246943534e-8 * t1136 * t3054 + 0.54541145833333333333e0 * t2458 - 0.39863671875000000000e0 * t2462 + 0.59791595766036987306e-3 * t3059 * t2479 - 0.22329340803547762334e-4 * t3062 * t2479 - 0.23443356445312500000e-1 * t3065 * t2479 - 0.36879740307977371216e-2 * t3068 * t2479 + 0.31845941830089502037e-6 * t3071 * t2479 - 0.15623234140005806694e-8 * t3074 * t2479 - 0.12506250000000000000e0 * t2467 + 0.18759375000000000000e1 * t2470;
2246   t3081 = t326 * t2553;
2247   t3084 = t104 * t170;
2248   t3089 = t545 * t107;
2249   t3091 = t124 * t113 * t230;
2250   t3094 = t1435 * t120;
2251   t3096 = t135 * t126 * t230;
2252   t3099 = t1441 * t132;
2253   t3101 = t148 * t137 * t230;
2254   t3104 = t1447 * t144;
2255   t3106 = t162 * t150 * t230;
2256   t3109 = t168 * t158;
2257   t3111 = t175 * t164 * t230;
2258   t3114 = t1458 * t171;
2259   t3116 = t1397 * t177 * t230;
2260   t3122 = -0.37518750000000000000e0 * t2473 + 0.13232201957657933235e-6 * t145 * t3081 - 0.70330069335937500000e0 * t3084 * t340 + 0.23443356445312500000e0 * t1068 * t344 + 0.20512936889648437500e-1 * t3089 * t3091 + 0.28172023846371603013e-2 * t3094 * t3096 - 0.42508087614916920662e-3 * t3099 * t3101 + 0.15183951746412478387e-4 * t3104 * t3106 - 0.21009475512906268705e-6 * t3109 * t3111 + 0.10083362850564972177e-8 * t3114 * t3116 - 0.18759375000000000000e1 * t2475 - 0.14069531250000000000e0 * t2480 + 0.37518750000000000000e0 * t2485;
2261   t3137 = t1435 * t132;
2262   t3140 = -0.37518750000000000000e0 * t2489 + 0.18759375000000000000e0 * t2493 + 0.18759375000000000000e0 * t2496 + 0.12506250000000000000e0 * t2501 + 0.20843750000000000000e-1 * t2555 - 0.62531250000000000000e0 * t2557 - 0.93796875000000000000e0 * t2559 + 0.31265625000000000000e0 * t2561 - 0.62531250000000000000e-1 * t2564 + 0.17586914062500000000e0 * t2569 - 0.37518750000000000000e1 * t2571 + 0.12506250000000000000e1 * t2573 + 0.94670026629558563236e-2 * t3137 * t138;
2263   t3141 = t117 * t107;
2264   t3149 = t114 * t2544;
2265   t3153 = t165 * t2544;
2266   t3156 = t335 * t2553;
2267   t3159 = t559 * t416;
2268   t3163 = t162 * t1012 * t2499;
2269   t3166 = t169 * t158;
2270   t3167 = t178 * t2575;
2271   t3171 = 0.1e1 / t421 / t112;
2272   t3173 = t175 * t3171 * t2499;
2273   t3176 = t156 * t144;
2274   t3177 = t165 * t2575;
2275   t3180 = -0.31257808593750000000e0 * t3141 * t114 - 0.12506250000000000000e0 * t2577 - 0.78144521484375000000e-1 * t1017 * t1022 + 0.26048173828125000000e-1 * t310 * t1025 - 0.26048173828125000000e-2 * t339 * t3149 - 0.12506250000000000000e1 * t2580 + 0.39315977568011730910e-8 * t331 * t3153 - 0.13105325856003910303e-8 * t159 * t3156 - 0.50589520072399755009e-7 * t3159 * t418 - 0.73389824793621897697e-7 * t159 * t3163 - 0.53848788872582372278e-8 * t3166 * t3167 + 0.34009761393209919334e-9 * t172 * t3173 + 0.10693945898499190808e-5 * t3176 * t3177;
2276   t3182 = t857 * t321;
2277   t3183 = t550 * t150;
2278   t3184 = t3182 * t3183;
2279   t3187 = t550 * t164;
2280   t3188 = t858 * t3187;
2281   t3193 = t383 * t1012;
2282   t3194 = t381 * t3193;
2283   t3197 = t371 * t157;
2284   t3198 = t3197 * t949;
2285   t3201 = t374 * t422;
2286   t3202 = t372 * t3201;
2287   t3205 = t380 * t561;
2288   t3206 = t3205 * t958;
2289   t3209 = t407 * t519;
2290   t3210 = t3209 * t929;
2291   t3213 = t410 * t164;
2292   t3214 = t408 * t3213;
2293   t3217 = t837 * t170;
2294   t3218 = t508 * t113;
2295   t3219 = t3217 * t3218;
2296   t3222 = t508 * t126;
2297   t3223 = t838 * t3222;
2298   t3226 = t843 * t119;
2299   t3227 = t522 * t126;
2300   t3228 = t3226 * t3227;
2301   t3231 = t522 * t137;
2302   t3232 = t844 * t3231;
2303   t3235 = -0.26795208964257314801e-4 * t3184 * t2446 + 0.89317363214191049336e-5 * t3188 * t2453 - 0.19536130371093750000e-2 * t916 * t2423 + 0.29758541219058679416e-9 * t3194 * t2419 - 0.45115084259293461220e-6 * t3198 * t2435 - 0.61922664669618476182e-7 * t3202 * t2419 + 0.22318905914294009562e-8 * t3206 * t2435 - 0.82213444178300857545e-3 * t3210 * t2435 - 0.12456582451257705689e-3 * t3214 * t2419 - 0.30769405334472656250e-1 * t3219 * t2446 + 0.10256468444824218750e-1 * t3223 * t2453 - 0.46099675384971714021e-2 * t3228 * t2446 + 0.15366558461657238006e-2 * t3232 * t2453;
2304   t3236 = t850 * t356;
2305   t3237 = t536 * t137;
2306   t3238 = t3236 * t3237;
2307   t3241 = t536 * t150;
2308   t3242 = t851 * t3241;
2309   t3245 = t864 * t330;
2310   t3246 = t564 * t164;
2311   t3247 = t3245 * t3246;
2312   t3250 = t564 * t177;
2313   t3251 = t865 * t3250;
2314   t3254 = t871 * t416;
2315   t3255 = t578 * t177;
2316   t3256 = t3254 * t3255;
2317   t3259 = t578 * t422;
2318   t3260 = t872 * t3259;
2319   t3263 = t138 * t2544;
2320   t3266 = t317 * t2553;
2321   t3269 = t531 * t321;
2322   t3272 = t343 * t2553;
2323   t3275 = t517 * t356;
2324   t3284 = 0.72871007339857578279e-3 * t3238 * t2446 - 0.24290335779952526093e-3 * t3242 * t2453 + 0.37817055923231283670e-6 * t3247 * t2446 - 0.12605685307743761223e-6 * t3251 * t2453 - 0.18413097379292557889e-8 * t3256 * t2446 + 0.61376991264308526296e-9 * t3260 * t2453 + 0.16608776601676940918e-4 * t357 * t3263 - 0.55362588672256469728e-5 * t133 * t3266 - 0.71453890571352839468e-3 * t3269 * t323 + 0.86827246093750000000e-3 * t108 * t3272 + 0.18934005325911712647e-1 * t3275 * t358 - 0.63113351086372375492e-2 * t1098 * t318 + 0.99652659610061645509e-3 * t1048 * t1053 - 0.33217553203353881838e-3 * t294 * t1031;
2325   t3293 = t279 * t184;
2326   t3294 = t3293 * t810;
2327   t3297 = t1162 * t87;
2328   t3298 = 0.1e1 / t3297;
2329   t3309 = params->d * t1160 * params->c2;
2330   t3311 = 0.1e1 / t1162 / t89;
2331   t3316 = my_piecewise3(t102, t2654 + t2696 + t2746 + t2794 + t2825 + t2863 + t2900 + t2953 + t2995 + t3043 + t3079 + t3122 + t3140 + t3180 + t3235 + t3284, 0.6e1 * t1161 * t3298 * t2589 * t184 + 0.6e1 * t429 * t1163 * t2589 * t184 + t429 * t430 * t2583 * t184 + t3309 * t3311 * t2589 * t184 - 0.6e1 * t1537 * t3294 - 0.3e1 * t1545 * t3294);
2332   t3319 = 0.6e1 * t2370 * t2371 * t187 - 0.6e1 * t690 * t2375 + 0.6e1 * t690 * t691 * t434 + t217 * t2610 * t187 - 0.3e1 * t217 * t830 * t434 - 0.3e1 * t217 * t290 * t1168 - t101 * t3316 + 0.1174e1 * t3316;
2333   t3320 = t3319 * t205;
2334   t3324 = t448 * t1171;
2335   t3334 = t2381 * t446;
2336   t3336 = 0.1e1 / t14;
2337   t3338 = 0.1e1 / t37;
2338   t3342 = 0.1e1 / t200 / t3336 / t1572 / t3338 / 0.72e2;
2339   t3346 = t3342 * t3336 * t1572 * t204 * t10;
2340   t3351 = t765 * t599 * t9 * t204;
2341   t3355 = t57 * t446 * t448;
2342   t3357 = t452 * t204;
2343   t3358 = t190 * t10 * t3357;
2344   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2345     v3rho3[0] = t8 * t605 * t206 / 0.18e2 - t8 * t675 * t438 / 0.4e1 + 0.5497666666666666667e0 * t596 * t2343 * t190 * t456 - 0.3e1 / 0.4e1 * t8 * t12 * t1172 - 0.24739500000000000000e1 * t596 * t683 * t437 * t456 + 0.89062200000000000000e2 * t596 * t2357 * t190 * t1190 + 0.40270806047858128433e2 * t2365 * t1198 - 0.3e1 / 0.16e2 * t212 * t213 * t3320 - 0.74218500000000000000e1 * t447 * t3324 * t456 - 0.89062200000000000000e2 * t1181 * t1176 * t1190 + 0.12081241814357438530e3 * t1193 * t1176 * t1198 - 0.59374800000000000000e3 * t3334 * t449 * t3346 + 0.82683876053829230172e0 * t2365 * t3351 - 0.16151076630565200000e3 * t3355 * t3358;
2346 
2347   t3362 = t674 * t2 * t4;
2348   t3367 = t682 * t446;
2349   t3374 = t1290 * t290;
2350   t3383 = t10 * t696;
2351   t3397 = 0.1e1 / t2767;
2352   t3410 = my_piecewise3(t61, -0.11e2 / 0.9e1 * t3383, 0);
2353   t3411 = t484 * t3410;
2354   t3412 = t483 * t3411;
2355   t3414 = t1413 * t777;
2356   t3415 = t749 * t3414;
2357   t3418 = t223 * t106 * t482;
2358   t3419 = t3418 * t485;
2359   t3421 = t793 * t1233;
2360   t3423 = t2469 * t1241;
2361   t3425 = t83 * t1245;
2362   t3426 = t3425 * t249;
2363   t3427 = t1231 * t3426;
2364   t3429 = t1232 * t758;
2365   t3430 = t1231 * t3429;
2366   t3432 = t113 * t1245;
2367   t3433 = t3432 * t275;
2368   t3434 = t749 * t3433;
2369   t3436 = t1240 * t806;
2370   t3437 = t749 * t3436;
2371   t3439 = t1250 * t1268;
2372   t3441 = t482 * t126;
2373   t3442 = t1253 * t3441;
2374   t3443 = t249 * t275;
2375   t3444 = t2097 * t3443;
2376   t3445 = t3442 * t3444;
2377   t3447 = t141 * t64;
2378   t3448 = t3447 * t114;
2379   t3449 = t1255 * t67;
2380   t3450 = t3448 * t3449;
2381   t3452 = t1259 * t343;
2382   t3453 = t476 * t30;
2383   t3454 = t3453 * t772;
2384   t3455 = t3452 * t3454;
2385   t3457 = t877 * t106;
2386   t3458 = t3457 * t911;
2387   t3459 = t476 * t13;
2388   t3460 = t3459 * t2532;
2389   t3461 = t3458 * t3460;
2390   t3463 = t2426 * t1237;
2391   t3465 = t1245 * t9;
2392   t3466 = t3465 * t67;
2393   t3467 = t744 * t3466;
2394   t3469 = t2097 * t765;
2395   t3470 = t2444 * t3469;
2396   t3472 = t3412 / 0.256e3 - 0.3e1 / 0.16e2 * t3415 + 0.275e3 / 0.1152e4 * t3419 - 0.15e2 / 0.8e1 * t3421 + 0.15e2 / 0.16e2 * t3423 - 0.3e1 / 0.8e1 * t3427 - 0.3e1 / 0.16e2 * t3430 + 0.3e1 / 0.16e2 * t3434 + 0.3e1 / 0.32e2 * t3437 + 0.25e2 / 0.384e3 * t3439 - t3445 / 0.16e2 - 0.5e1 / 0.128e3 * t3450 + 0.5e1 / 0.256e3 * t3455 + 0.45e2 / 0.2048e4 * t3461 + 0.3e1 / 0.8e1 * t3463 + 0.9e1 / 0.128e3 * t3467 - 0.27e2 / 0.256e3 * t3470;
2397   t3473 = t771 * t16;
2398   t3474 = t1255 * t3473;
2399   t3475 = t2433 * t3474;
2400   t3477 = t1236 * t2478;
2401   t3478 = t2477 * t3477;
2402   t3480 = t270 * t1246;
2403   t3482 = t84 * t3410;
2404   t3483 = t244 * t3482;
2405   t3485 = t786 * t477;
2406   t3487 = t38 * t738;
2407   t3488 = t3487 * t477;
2408   t3490 = t480 * t63;
2409   t3491 = t3490 * t482;
2410   t3492 = t476 * t738;
2411   t3493 = t484 * t3492;
2412   t3494 = t3491 * t3493;
2413   t3496 = t476 * t777;
2414   t3497 = t524 * t3496;
2415   t3498 = t483 * t3497;
2416   t3500 = t476 * t806;
2417   t3501 = t510 * t3500;
2418   t3502 = t483 * t3501;
2419   t3504 = t1240 * t3443;
2420   t3505 = t1231 * t3504;
2421   t3507 = t700 * t64;
2422   t3508 = t3507 * t482;
2423   t3509 = t3508 * t1256;
2424   t3511 = t1250 * t1265;
2425   t3513 = t104 * t106;
2426   t3514 = t3513 * t111;
2427   t3515 = t3514 * t1261;
2428   t3517 = t1245 * t249;
2429   t3518 = t484 * t3517;
2430   t3519 = t1254 * t3518;
2431   t3521 = t476 * t758;
2432   t3522 = t484 * t3521;
2433   t3523 = t1254 * t3522;
2434   t3525 = t3432 * t67;
2435   t3526 = t1260 * t3525;
2436   t3528 = t1245 * t275;
2437   t3529 = t510 * t3528;
2438   t3530 = t483 * t3529;
2439   t3532 = 0.9e1 / 0.64e2 * t3475 - 0.9e1 / 0.128e3 * t3478 - 0.15e2 / 0.16e2 * t3480 - 0.3e1 / 0.32e2 * t3483 - 0.15e2 / 0.8e1 * t3485 - 0.3e1 / 0.16e2 * t3488 + 0.3e1 / 0.64e2 * t3494 + 0.3e1 / 0.128e3 * t3498 - t3502 / 0.128e3 + 0.3e1 / 0.8e1 * t3505 + 0.25e2 / 0.96e2 * t3509 - 0.25e2 / 0.192e3 * t3511 - 0.65e2 / 0.768e3 * t3515 + t3519 / 0.32e2 + t3523 / 0.64e2 - 0.5e1 / 0.512e3 * t3526 - t3530 / 0.64e2;
2440   t3533 = t3472 + t3532;
2441   t3534 = t50 * t3533;
2442   t3542 = t87 * t810 * t91;
2443   t3546 = t89 * t814 * t91;
2444   t3552 = t1271 * t279;
2445   t3553 = t3552 * t91;
2446   t3556 = t488 * t810;
2447   t3557 = t3556 * t91;
2448   t3561 = t488 * t814 * t91;
2449   t3564 = 0.77e2 / 0.14580e5 * t51 * t471 * t696 + t3534 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t1272 * t1276 - 0.3e1 / 0.100e3 * t489 * t824 - 0.3e1 / 0.100e3 * t489 * t3542 + 0.3e1 / 0.50e2 * t489 * t3546 - t283 * t3533 * t91 / 0.100e3 + t823 * t3553 / 0.50e2 + t823 * t3557 / 0.100e3 - t2603 * t3561 / 0.100e3;
2450   t3567 = 0.110e3 / 0.2187e4 * t18 * t3383 + 0.19e2 / 0.81e2 * t34 * t462 * t702 - 0.167e3 / 0.80e2 * t232 * t35 * t706 * t45 + 0.81e2 / 0.256e3 * t712 * t233 * t715 * t719 - 0.729e3 / 0.32000e5 * t2402 * t713 * t3397 * t2409 + 0.2e1 * t827 * t495 + 0.4e1 * t287 * t1286 + 0.2e1 * t94 * t3564;
2451   t3568 = t3567 * t187;
2452   t3570 = t1289 * t434;
2453   t3573 = t498 * t1168;
2454   t3593 = t126 * t1245;
2455   t3594 = t3593 * t275;
2456   t3597 = t1413 * t806;
2457   t3600 = t510 * t3410;
2458   t3605 = 0.26054687500000000000e-2 * t3412 - 0.12506250000000000000e0 * t3415 + 0.15922309027777777778e0 * t3419 - 0.12506250000000000000e1 * t3421 + 0.62531250000000000000e0 * t3423 - 0.25012500000000000000e0 * t3427 - 0.12506250000000000000e0 * t3430 + 0.12506250000000000000e0 * t3434 + 0.62531250000000000000e-1 * t3437 + 0.43424479166666666666e-1 * t3439 + 0.10419269531250000000e-1 * t1121 * t3594 + 0.52096347656250000000e-2 * t1121 * t3597 + 0.10853405761718750000e-3 * t509 * t3600 - 0.43709321846491699219e-1 * t1412 * t1487;
2459   t3608 = t3593 * t249;
2460   t3611 = t1413 * t758;
2461   t3618 = t150 * t1245;
2462   t3619 = t3618 * t249;
2463   t3622 = t1353 * t758;
2464   t3625 = t164 * t1245;
2465   t3626 = t3625 * t275;
2466   t3629 = t3625 * t249;
2467   t3632 = t1367 * t758;
2468   t3635 = t177 * t1245;
2469   t3636 = t3635 * t275;
2470   t3639 = t1381 * t806;
2471   t3642 = t566 * t3410;
2472   t3649 = 0.16390995692434387207e-1 * t2736 * t1490 - 0.29139547897661132812e-2 * t1486 * t3608 - 0.14569773948830566406e-2 * t1486 * t3611 - 0.27787624111081659794e-3 * t1352 * t1507 + 0.99241514682434499261e-4 * t2937 * t1510 - 0.11115049644432663917e-4 * t1506 * t3619 - 0.55575248222163319587e-5 * t1506 * t3622 + 0.39696605872973799704e-5 * t1116 * t3626 + 0.13367432373123988509e-6 * t1516 * t3629 + 0.66837161865619942547e-7 * t1516 * t3632 - 0.47179173081614077092e-7 * t1131 * t3636 - 0.23589586540807038546e-7 * t1131 * t3639 - 0.16381657320004887879e-9 * t565 * t3642 - 0.19839027479372452945e-7 * t1380 * t1527 + 0.69436596177803585306e-8 * t2707 * t1469;
2473   t3651 = t3635 * t249;
2474   t3654 = t1381 * t758;
2475   t3657 = t422 * t1245;
2476   t3658 = t3657 * t275;
2477   t3661 = t1399 * t806;
2478   t3664 = t580 * t3410;
2479   t3671 = t3432 * t249;
2480   t3674 = t1240 * t758;
2481   t3677 = t137 * t1245;
2482   t3678 = t3677 * t275;
2483   t3681 = t1338 * t806;
2484   t3684 = t524 * t3410;
2485   t3691 = t3677 * t249;
2486   t3694 = -0.56682935655349865556e-9 * t1526 * t3651 - 0.28341467827674932778e-9 * t1526 * t3654 + 0.19839027479372452945e-9 * t1136 * t3658 + 0.99195137396862264723e-10 * t1136 * t3661 + 0.59044724640989443287e-12 * t579 * t3664 - 0.26048173828125000000e0 * t1260 * t1476 + 0.10419269531250000000e0 * t2960 * t1479 - 0.26048173828125000000e-1 * t1475 * t3671 - 0.13024086914062500000e-1 * t1475 * t3674 + 0.10927330461622924805e-2 * t1126 * t3678 + 0.54636652308114624024e-3 * t1126 * t3681 + 0.75884239316825866699e-5 * t523 * t3684 + 0.73078617047378540040e-2 * t1337 * t1497 - 0.26574042562683105468e-2 * t2957 * t1500 + 0.36539308523689270020e-3 * t1496 * t3691;
2487   t3695 = t1338 * t758;
2488   t3698 = t3618 * t275;
2489   t3701 = t1353 * t806;
2490   t3704 = t538 * t3410;
2491   t3724 = 0.18269654261844635010e-3 * t1496 * t3695 - 0.13287021281341552734e-3 * t1141 * t3698 - 0.66435106406707763672e-4 * t1141 * t3701 - 0.69203235840320587160e-6 * t537 * t3704 + 0.34204900484170205892e-5 * t2645 * t556 - 0.38245656615680236817e-1 * t2651 * t514 - 0.23817963523784279823e-3 * t3269 * t542 - 0.23443356445312500000e0 * t3084 * t503 - 0.16863173357466585003e-7 * t3159 * t570 + 0.63113351086372375488e-2 * t3275 * t528 - 0.41687500000000000000e-1 * t3445 - 0.26054687500000000000e-1 * t3450 + 0.13027343750000000000e-1 * t3455 + 0.14655761718750000000e-1 * t3461 + 0.25012500000000000000e0 * t3463;
2492   t3754 = 0.46898437500000000000e-1 * t3467 - 0.70347656250000000000e-1 * t3470 + 0.19536130371093750000e-1 * t2814 * t3474 - 0.78144521484375000000e-2 * t3065 * t3477 + 0.32781991384868774414e-2 * t2822 * t3474 - 0.12293246769325790405e-2 * t3068 * t3477 - 0.54808962785533905030e-3 * t3210 * t3474 + 0.19930531922012329102e-3 * t3059 * t3477 + 0.20840718083311244846e-4 * t2806 * t3474 - 0.74431136011825874446e-5 * t3062 * t3477 - 0.30076722839528974146e-6 * t3198 * t3474 + 0.10615313943363167346e-6 * t3071 * t3477 + 0.14879270609529339708e-8 * t3206 * t3474 - 0.52077447133352688980e-9 * t3074 * t3477 + 0.93796875000000000000e-1 * t3475;
2493   t3756 = t127 * t3410;
2494   t3759 = t138 * t3410;
2495   t3762 = t151 * t3410;
2496   t3765 = t165 * t3410;
2497   t3768 = t178 * t3410;
2498   t3771 = t114 * t3410;
2499   t3788 = -0.46898437500000000000e-1 * t3478 - 0.18212217436038208008e-3 * t348 * t3756 + 0.16608776601676940918e-4 * t357 * t3759 - 0.39696605872973799705e-6 * t322 * t3762 + 0.39315977568011730910e-8 * t331 * t3765 - 0.14170733913837466389e-10 * t417 * t3768 - 0.26048173828125000000e-2 * t339 * t3771 - 0.19848302936486899852e-4 * t1034 * t1305 + 0.23589586540807038546e-6 * t1082 * t1308 - 0.99195137396862264724e-9 * t1074 * t1311 - 0.52096347656250000000e-1 * t1017 * t1296 - 0.54636652308114624024e-2 * t1060 * t1299 + 0.66435106406707763672e-3 * t1048 * t1302 - 0.62531250000000000000e0 * t3480 - 0.62531250000000000000e-1 * t3483;
2500   t3794 = t2991 * t111;
2501   t3795 = t1240 * t738;
2502   t3798 = t1338 * t777;
2503   t3803 = t2983 * t148;
2504   t3804 = t1353 * t738;
2505   t3807 = t1381 * t777;
2506   t3812 = t3176 * t162;
2507   t3813 = t1367 * t738;
2508   t3816 = t1399 * t777;
2509   t3822 = t850 * t533 * t536;
2510   t3825 = t3000 * t124;
2511   t3826 = t1413 * t738;
2512   t3829 = t1353 * t777;
2513   t3832 = -0.12506250000000000000e1 * t3485 - 0.12506250000000000000e0 * t3488 + 0.45267622224758573186e-10 * t1461 * t1472 - 0.52096347656250000000e-1 * t3794 * t3795 - 0.15628904296875000000e-1 * t1121 * t3798 + 0.28942415364583333334e-2 * t1466 * t1483 - 0.72247822688812315463e-4 * t3803 * t3804 - 0.11908981761892139911e-4 * t1116 * t3807 + 0.93728097200077027082e-6 * t1450 * t1513 + 0.10693945898499190808e-5 * t3812 * t3813 + 0.16512710578564926982e-6 * t1131 * t3816 - 0.10921104880003258586e-7 * t1455 * t1523 - 0.36062575121233728199e-3 * t3822 * t539 - 0.10198841764181396484e-1 * t3825 * t3826 - 0.21854660923245849610e-2 * t1126 * t3829;
2514   t3835 = t3008 * t135;
2515   t3836 = t1338 * t738;
2516   t3839 = t1367 * t777;
2517   t3844 = t3166 * t175;
2518   t3845 = t1381 * t738;
2519   t3848 = t1012 * t476;
2520   t3849 = t3848 * t777;
2521   t3853 = t837 * t143 * t508;
2522   t3857 = t857 * t157 * t550;
2523   t3861 = t864 * t561 * t564;
2524   t3865 = t843 * t519 * t522;
2525   t3869 = t871 * t575 * t578;
2526   t3872 = t1367 * t806;
2527   t3875 = t552 * t3410;
2528   t3882 = 0.27824221082836151122e-3 * t1438 * t1493 + 0.18269654261844635010e-2 * t3835 * t3836 + 0.33217553203353881836e-3 * t1141 * t3839 - 0.32294843392149607342e-4 * t1444 * t1503 - 0.53848788872582372278e-8 * t3844 * t3845 - 0.79356109917489811778e-9 * t1136 * t3849 + 0.17847822808159722223e-1 * t3853 * t511 + 0.12809506617343860368e-4 * t3857 * t553 - 0.17655786222671934714e-6 * t3861 * t567 + 0.24114324938457997639e-2 * t3865 * t525 + 0.84499561486216003280e-9 * t3869 * t581 + 0.19848302936486899852e-5 * t1116 * t3872 + 0.16540252447072416544e-7 * t551 * t3875 + 0.40102297119371965528e-5 * t1366 * t1517 - 0.14153751924484223128e-5 * t2681 * t1520;
2529   t3886 = t552 * t3528;
2530   t3889 = t3618 * t67;
2531   t3892 = t566 * t3517;
2532   t3895 = t580 * t3528;
2533   t3898 = t3635 * t67;
2534   t3901 = t1399 * t3443;
2535   t3904 = t580 * t3517;
2536   t3907 = t1390 * t3528;
2537   t3910 = t3657 * t67;
2538   t3913 = t1413 * t3443;
2539   t3916 = t510 * t3517;
2540   t3919 = t524 * t3528;
2541   t3922 = t1367 * t3443;
2542   t3925 = t552 * t3517;
2543   t3928 = 0.69203235840320587160e-5 * t537 * t3886 + 0.48442265088224411012e-5 * t1352 * t3889 - 0.62250297816018573940e-8 * t1372 * t3892 + 0.22934320248006843030e-8 * t565 * t3895 + 0.16381657320004887879e-8 * t1380 * t3898 + 0.39678054958744905890e-8 * t1526 * t3901 + 0.25979678842035355046e-10 * t1386 * t3904 - 0.94471559425583109260e-11 * t579 * t3907 - 0.67901433337137859780e-11 * t1398 * t3910 + 0.52096347656250000000e-1 * t1475 * t3913 + 0.15194768066406250000e-2 * t1404 * t3916 - 0.65120434570312500000e-3 * t509 * t3919 + 0.55575248222163319587e-4 * t1506 * t3922 + 0.52928807830631732940e-6 * t1358 * t3925;
2544   t3929 = t566 * t3528;
2545   t3932 = t3625 * t67;
2546   t3935 = t1381 * t3443;
2547   t3938 = t1453 * t158;
2548   t3939 = t3938 * t564;
2549   t3944 = t559 * t561;
2550   t3945 = t3944 * t175;
2551   t3948 = t1436 * t120;
2552   t3949 = t3948 * t522;
2553   t3954 = t517 * t519;
2554   t3955 = t3954 * t135;
2555   t3958 = t524 * t3521;
2556   t3961 = t538 * t3500;
2557   t3964 = t1442 * t132;
2558   t3965 = t3964 * t536;
2559   t3968 = t3593 * t67;
2560   t3971 = t1338 * t3443;
2561   t3974 = t524 * t3517;
2562   t3977 = -0.19848302936486899853e-6 * t551 * t3929 - 0.14059214580011554062e-6 * t1366 * t3932 - 0.80204594238743931056e-6 * t1516 * t3935 - 0.20750099272006191314e-6 * t3939 * t1373 + 0.76447734160022810101e-7 * t1455 * t1376 + 0.55151579644016455859e-7 * t3945 * t1382 + 0.27824221082836151122e-2 * t3949 * t1330 - 0.11129688433134460449e-2 * t1438 * t1333 - 0.77907819031941223143e-3 * t3955 * t1339 + 0.75884239316825866699e-4 * t1329 * t3958 - 0.30353695726730346680e-4 * t523 * t3961 - 0.41983296409794489544e-3 * t3965 * t1345 - 0.43413623046875000000e-3 * t1412 * t3968 + 0.87418643692983398437e-2 * t1486 * t3971 + 0.15176847863365173340e-3 * t1329 * t3974;
2563   t3979 = t538 * t3528;
2564   t3982 = t3677 * t67;
2565   t3985 = t1353 * t3443;
2566   t3988 = t538 * t3517;
2567   t3993 = t573 * t575;
2568   t3994 = t3993 * t1397;
2569   t3997 = t580 * t3521;
2570   t4000 = t1390 * t3500;
2571   t4003 = t1464 * t107;
2572   t4004 = t4003 * t508;
2573   t4009 = t301 * t143;
2574   t4010 = t4009 * t124;
2575   t4013 = t510 * t3521;
2576   t4016 = t524 * t3500;
2577   t4021 = t531 * t533;
2578   t4022 = t4021 * t148;
2579   t4025 = -0.60707391453460693360e-4 * t523 * t3979 - 0.41736331624254226684e-4 * t1337 * t3982 - 0.14615723409475708008e-2 * t1496 * t3985 - 0.17992841318483352662e-4 * t1344 * t3988 - 0.36214097779806858549e-9 * t1461 * t1391 - 0.26255220890359972448e-9 * t3994 * t1400 + 0.12989839421017677523e-10 * t1386 * t3997 - 0.47235779712791554630e-11 * t579 * t4000 + 0.20259690755208333334e-1 * t4004 * t1405 - 0.86827246093750000001e-2 * t1466 * t1408 - 0.59331951497395833334e-2 * t4010 * t1414 + 0.75973840332031250000e-3 * t1404 * t4013 - 0.32560217285156250000e-3 * t509 * t4016 + 0.16147421696074803671e-3 * t1444 * t1348 + 0.11464669404213110606e-3 * t4022 * t1354;
2580   t4026 = t538 * t3521;
2581   t4029 = t552 * t3500;
2582   t4032 = t1448 * t144;
2583   t4033 = t4032 * t550;
2584   t4038 = t546 * t157;
2585   t4039 = t4038 * t162;
2586   t4042 = t552 * t3521;
2587   t4045 = t566 * t3500;
2588   t4048 = t506 * t170;
2589   t4049 = t4048 * t508;
2590   t4050 = t510 * t3492;
2591   t4053 = t538 * t3496;
2592   t4056 = t1390 * t3496;
2593   t4059 = t574 * t416;
2594   t4060 = t4059 * t578;
2595   t4061 = t580 * t3492;
2596   t4064 = t3171 * t10;
2597   t4065 = t4064 * t3496;
2598   t4068 = t547 * t321;
2599   t4069 = t4068 * t550;
2600   t4070 = t552 * t3492;
2601   t4073 = t580 * t3496;
2602   t4076 = t560 * t330;
2603   t4077 = t4076 * t564;
2604   t4078 = t566 * t3492;
2605   t4081 = -0.89964206592416763308e-5 * t1344 * t4026 + 0.34601617920160293580e-5 * t537 * t4029 + 0.14996495552012324333e-4 * t4033 * t1359 - 0.56236858320046216250e-5 * t1450 * t1362 - 0.40303081796033121645e-5 * t4039 * t1368 + 0.26464403915315866470e-6 * t1358 * t4042 - 0.99241514682434499264e-7 * t551 * t4045 + 0.45584304199218750000e-2 * t4049 * t4050 + 0.13024086914062500000e-2 * t509 * t4053 - 0.91737280992027372120e-8 * t565 * t4056 + 0.27278662784137122798e-9 * t4060 * t4061 + 0.42512201741512399167e-10 * t579 * t4065 + 0.39696605872973799705e-5 * t4069 * t4070 + 0.69469060277704149485e-6 * t551 * t4073 - 0.56025268034416716546e-7 * t4077 * t4078;
2606   t4084 = t552 * t3496;
2607   t4087 = t532 * t356;
2608   t4088 = t4087 * t536;
2609   t4089 = t538 * t3492;
2610   t4092 = t566 * t3496;
2611   t4095 = t518 * t119;
2612   t4096 = t4095 * t522;
2613   t4097 = t524 * t3492;
2614   t4100 = t566 * t3521;
2615   t4103 = t580 * t3500;
2616   t4106 = t1459 * t171;
2617   t4107 = t4106 * t578;
2618   t4118 = 0.15176847863365173340e-3 * t523 * t4084 - 0.10795704791090011597e-3 * t4088 * t4089 - 0.20760970752096176148e-4 * t537 * t4092 + 0.68295815385143280029e-3 * t4096 * t4097 - 0.31125148908009286970e-8 * t1372 * t4100 + 0.11467160124003421515e-8 * t565 * t4103 + 0.99588768894468861010e-9 * t4107 * t1387 + 0.31265625000000000000e-1 * t3494 + 0.15632812500000000000e-1 * t3498 - 0.52109375000000000000e-2 * t3502 + 0.25012500000000000000e0 * t3505 + 0.17369791666666666666e0 * t3509 - 0.86848958333333333333e-1 * t3511 - 0.56451822916666666666e-1 * t3515 + 0.20843750000000000000e-1 * t3519;
2619   t4126 = t21 * t1394;
2620   t4127 = t4126 * t575;
2621   t4128 = t2021 * t422;
2622   t4129 = t4127 * t4128;
2623   t4132 = t508 * t137;
2624   t4133 = t1403 * t4132;
2625   t4136 = t155 * t107;
2626   t4137 = t4136 * t127;
2627   t4140 = t1411 * t352;
2628   t4143 = t882 * t143;
2629   t4144 = t4143 * t920;
2630   t4147 = t306 * t158;
2631   t4148 = t4147 * t178;
2632   t4151 = t1379 * t423;
2633   t4154 = t903 * t561;
2634   t4155 = t4154 * t958;
2635   t4158 = t578 * t1012;
2636   t4159 = t1385 * t4158;
2637   t4162 = t1394 * t171;
2638   t4163 = t1397 * t422;
2639   t4164 = t4162 * t4163;
2640   t4167 = 0.10421875000000000000e-1 * t3523 - 0.65136718750000000000e-2 * t3526 - 0.10421875000000000000e-1 * t3530 - 0.53666309380336012692e-6 * t2866 * t1237 + 0.26286711410168500152e-8 * t2877 * t1237 + 0.61111290003424073802e-10 * t4129 * t3460 - 0.45584304199218750000e-2 * t4133 * t3444 - 0.30389536132812500000e-2 * t4137 * t3449 + 0.13024086914062500000e-2 * t4140 * t3454 + 0.14652097778320312500e-2 * t4144 * t3460 + 0.31125148908009286970e-7 * t4148 * t3449 - 0.11467160124003421515e-7 * t4151 * t3454 - 0.12900555139503849205e-7 * t4155 * t3460 - 0.20783743073628284037e-9 * t4159 * t3444 - 0.14938315334170329152e-9 * t4164 * t3449;
2641   t4169 = t1397 * t1012;
2642   t4170 = t1395 * t4169;
2643   t4173 = t892 * t533;
2644   t4174 = t4173 * t938;
2645   t4177 = t550 * t177;
2646   t4178 = t1357 * t4177;
2647   t4181 = t302 * t144;
2648   t4182 = t4181 * t165;
2649   t4185 = t1365 * t335;
2650   t4188 = t898 * t157;
2651   t4189 = t4188 * t949;
2652   t4192 = t564 * t422;
2653   t4193 = t1371 * t4192;
2654   t4196 = t1336 * t317;
2655   t4199 = t887 * t519;
2656   t4200 = t4199 * t929;
2657   t4203 = t536 * t164;
2658   t4204 = t1343 * t4203;
2659   t4207 = t297 * t132;
2660   t4208 = t4207 * t151;
2661   t4211 = t1351 * t326;
2662   t4214 = t522 * t150;
2663   t4215 = t1328 * t4214;
2664   t4218 = t293 * t120;
2665   t4219 = t4218 * t138;
2666   t4224 = 0.54321146669710287824e-10 * t4170 * t3454 - 0.27248774112126231194e-4 * t4174 * t3460 - 0.31757284698379039764e-5 * t4178 * t3444 - 0.22494743328018486500e-5 * t4182 * t3449 + 0.84355287480069324374e-6 * t4185 * t3454 + 0.94899698415077989921e-6 * t4189 * t3460 + 0.43575208471213001757e-7 * t4193 * t3444 + 0.16694532649701690674e-3 * t4196 * t3454 + 0.18781349230914402008e-3 * t4200 * t3460 + 0.89964206592416763308e-4 * t4204 * t3444 + 0.62974944614691734316e-4 * t4208 * t3449 - 0.24221132544112205506e-4 * t4211 * t3454 - 0.60707391453460693360e-3 * t4215 * t3444 - 0.41736331624254226684e-3 * t4219 * t3449 - 0.17692189905605278910e-7 * t950 * t3466;
2667   t4255 = 0.12605685307743761223e-6 * t3247 * t3469 + 0.74396353047646698542e-10 * t959 * t3466 - 0.61376991264308526297e-9 * t3256 * t3469 + 0.39072260742187500000e-2 * t912 * t3466 - 0.10256468444824218750e-1 * t3219 * t3469 + 0.40977489231085968018e-3 * t921 * t3466 - 0.15366558461657238007e-2 * t3228 * t3469 - 0.49826329805030822754e-4 * t930 * t3466 + 0.24290335779952526093e-3 * t3238 * t3469 + 0.14886227202365174889e-5 * t939 * t3466 - 0.89317363214191049336e-5 * t3184 * t3469 + 0.40374669433593750000e-1 * t2855 * t1237 + 0.62832150154331817628e-2 * t2888 * t1237 - 0.10131353727022933960e-2 * t2833 * t1237 + 0.37711775579325109720e-4 * t2844 * t1237;
2668   t4260 = t429 * t1163;
2669   t4261 = t1538 * t814;
2670   t4264 = t1271 * t184;
2671   t4265 = t4264 * t279;
2672   t4268 = t1161 * t3298;
2673   t4271 = t1538 * t810;
2674   t4280 = t3309 * t3311;
2675   t4283 = my_piecewise3(t102, t3605 + t3649 + t3694 + t3724 + t3754 + t3788 + t3832 + t3882 + t3928 + t3977 + t4025 + t4081 + t4118 + t4167 + t4224 + t4255, t429 * t430 * t3533 * t184 - 0.4e1 * t1537 * t4265 - 0.2e1 * t1537 * t4271 - 0.2e1 * t1545 * t4265 - t1545 * t4271 + 0.6e1 * t4260 * t4261 + 0.6e1 * t4268 * t4261 + t4280 * t4261);
2676   t4286 = 0.6e1 * t2370 * t499 * t691 - 0.4e1 * t690 * t3374 + 0.4e1 * t690 * t1292 * t290 - 0.2e1 * t690 * t499 * t830 + t217 * t3568 - 0.2e1 * t217 * t3570 - t217 * t3573 + 0.2e1 * t690 * t691 * t588 - t217 * t830 * t588 - 0.2e1 * t217 * t290 * t1548 - t101 * t4283 + 0.1174e1 * t4283;
2677   t4288 = t213 * t4286 * t205;
2678   t4291 = t448 * t1551;
2679   t4301 = t7 * t1171;
2680   t4302 = t596 * t4301;
2681   t4306 = t596 * t1560 * t1185;
2682   t4310 = t5 * t1560 * t1573;
2683   t4314 = t596 * t597 * t3342;
2684   t4315 = t3336 * t204;
2685   t4317 = t4315 * t3383 * t194;
2686   t4321 = t5 * t597 * t13;
2687   t4322 = t32 * t1573;
2688   t4324 = t9 * t21 * t204;
2689   t4325 = t4322 * t4324;
2690   t4329 = t18 * t1566 * t1180;
2691   t4333 = t21 * t13 * t1197;
2692   t4338 = t10 * t452 * t204;
2693   t4339 = t2068 * t674 * t4338;
2694   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2695     v3rho2sigma[0] = -t3362 * t593 / 0.12e2 - t1202 * t1553 / 0.2e1 - 0.8246500000000000000e0 * t3367 * t1556 * t456 - 0.3e1 / 0.16e2 * t212 * t4288 - 0.49479000000000000000e1 * t447 * t4291 * t456 - 0.29687400000000000000e2 * t1181 * t1556 * t1190 + 0.40270806047858128433e2 * t1193 * t1556 * t1198 + 0.92773125000000000000e0 * t4302 * t602 + 0.22265550000000000000e2 * t4306 * t1569 - 0.30203104535893596324e2 * t4310 * t1577 + 0.22265550000000000000e3 * t4314 * t4317 - 0.31006453520185961314e0 * t4321 * t4325 - 0.25976475000000000000e2 * t1565 * t4329 - 0.25169253779911330270e2 * t1575 * t4333 + 0.60566537364619499997e2 * t598 * t4339;
2696 
2697   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2698     v3rho2lapl[0] = 0.0e0;
2699 
2700   t4349 = t2370 * t94;
2701   t4350 = t1583 * t691;
2702   t4353 = t690 * t287;
2703   t4356 = t1639 * t187;
2704   t4357 = t4356 * t290;
2705   t4360 = t619 * t434;
2706   t4361 = t4360 * t290;
2707   t4364 = t1583 * t830;
2708   t4367 = t827 * t619;
2709   t4371 = t287 * t1639;
2710   t4378 = t270 * t1607;
2711   t4381 = my_piecewise3(t61, 0.40e2 / 0.9e1 * t1208, 0);
2712   t4382 = t84 * t4381;
2713   t4383 = t244 * t4382;
2714   t4385 = t1612 * t3473;
2715   t4386 = t2433 * t4385;
2716   t4388 = t1597 * t2478;
2717   t4389 = t2477 * t4388;
2718   t4391 = t3487 * t607;
2719   t4393 = t786 * t607;
2720   t4395 = t83 * t1606;
2721   t4396 = t4395 * t249;
2722   t4397 = t1231 * t4396;
2723   t4399 = t1593 * t758;
2724   t4400 = t1231 * t4399;
2725   t4402 = t113 * t1606;
2726   t4403 = t4402 * t275;
2727   t4404 = t749 * t4403;
2728   t4406 = t1601 * t806;
2729   t4407 = t749 * t4406;
2730   t4409 = t1250 * t1623;
2731   t4411 = t484 * t4381;
2732   t4412 = t483 * t4411;
2733   t4414 = t1668 * t777;
2734   t4415 = t749 * t4414;
2735   t4417 = t3418 * t610;
2736   t4419 = t793 * t1594;
2737   t4421 = t2469 * t1602;
2738   t4423 = t606 * t806;
2739   t4424 = t510 * t4423;
2740   t4425 = t483 * t4424;
2741   t4427 = -0.15e2 / 0.16e2 * t4378 - 0.3e1 / 0.32e2 * t4383 + 0.9e1 / 0.64e2 * t4386 - 0.9e1 / 0.128e3 * t4389 - 0.3e1 / 0.16e2 * t4391 - 0.15e2 / 0.8e1 * t4393 - 0.3e1 / 0.8e1 * t4397 - 0.3e1 / 0.16e2 * t4400 + 0.3e1 / 0.16e2 * t4404 + 0.3e1 / 0.32e2 * t4407 + 0.25e2 / 0.384e3 * t4409 + t4412 / 0.256e3 - 0.3e1 / 0.16e2 * t4415 + 0.275e3 / 0.1152e4 * t4417 - 0.15e2 / 0.8e1 * t4419 + 0.15e2 / 0.16e2 * t4421 - t4425 / 0.128e3;
2742   t4428 = t1601 * t3443;
2743   t4429 = t1231 * t4428;
2744   t4431 = t3508 * t1613;
2745   t4433 = t1250 * t1620;
2746   t4435 = t3514 * t1616;
2747   t4437 = t1606 * t249;
2748   t4438 = t484 * t4437;
2749   t4439 = t1254 * t4438;
2750   t4441 = t606 * t758;
2751   t4442 = t484 * t4441;
2752   t4443 = t1254 * t4442;
2753   t4445 = t4402 * t67;
2754   t4446 = t1260 * t4445;
2755   t4448 = t1606 * t275;
2756   t4449 = t510 * t4448;
2757   t4450 = t483 * t4449;
2758   t4452 = t606 * t777;
2759   t4453 = t524 * t4452;
2760   t4454 = t483 * t4453;
2761   t4456 = t606 * t738;
2762   t4457 = t484 * t4456;
2763   t4458 = t3491 * t4457;
2764   t4460 = t1612 * t67;
2765   t4461 = t3448 * t4460;
2766   t4463 = t606 * t30;
2767   t4464 = t4463 * t772;
2768   t4465 = t3452 * t4464;
2769   t4467 = t606 * t13;
2770   t4468 = t4467 * t2532;
2771   t4469 = t3458 * t4468;
2772   t4471 = t2426 * t1598;
2773   t4473 = t1606 * t9;
2774   t4474 = t4473 * t67;
2775   t4475 = t744 * t4474;
2776   t4477 = t606 * t10;
2777   t4478 = t4477 * t765;
2778   t4479 = t2444 * t4478;
2779   t4481 = t4477 * t3443;
2780   t4482 = t3442 * t4481;
2781   t4484 = 0.3e1 / 0.8e1 * t4429 + 0.25e2 / 0.96e2 * t4431 - 0.25e2 / 0.192e3 * t4433 - 0.65e2 / 0.768e3 * t4435 + t4439 / 0.32e2 + t4443 / 0.64e2 - 0.5e1 / 0.512e3 * t4446 - t4450 / 0.64e2 + 0.3e1 / 0.128e3 * t4454 + 0.3e1 / 0.64e2 * t4458 - 0.5e1 / 0.128e3 * t4461 + 0.5e1 / 0.256e3 * t4465 + 0.45e2 / 0.2048e4 * t4469 + 0.3e1 / 0.8e1 * t4471 + 0.9e1 / 0.128e3 * t4475 - 0.27e2 / 0.256e3 * t4479 - t4482 / 0.16e2;
2782   t4485 = t4427 + t4484;
2783   t4486 = t50 * t4485;
2784   t4500 = t1626 * t279;
2785   t4501 = t4500 * t91;
2786   t4504 = t613 * t810;
2787   t4508 = t613 * t814;
2788   t4512 = t4486 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t1627 * t1276 - 0.3e1 / 0.100e3 * t614 * t824 - 0.3e1 / 0.100e3 * t614 * t3542 + 0.3e1 / 0.50e2 * t614 * t3546 - t283 * t4485 * t91 / 0.100e3 + t823 * t4501 / 0.50e2 + t823 * t4504 * t91 / 0.100e3 - t2603 * t4508 * t91 / 0.100e3;
2789   t4513 = t94 * t4512;
2790   t4557 = -0.16863173357466585003e-7 * t3159 * t656 - 0.62531250000000000000e0 * t4378 - 0.62531250000000000000e-1 * t4383 - 0.30076722839528974146e-6 * t3198 * t4385 + 0.10615313943363167346e-6 * t3071 * t4388 + 0.14879270609529339708e-8 * t3206 * t4385 - 0.52077447133352688980e-9 * t3074 * t4388 + 0.19536130371093750000e-1 * t2814 * t4385 - 0.78144521484375000000e-2 * t3065 * t4388 + 0.32781991384868774414e-2 * t2822 * t4385 - 0.12293246769325790405e-2 * t3068 * t4388 - 0.54808962785533905030e-3 * t3210 * t4385 + 0.19930531922012329102e-3 * t3059 * t4388 + 0.20840718083311244846e-4 * t2806 * t4385;
2791   t4566 = t4402 * t249;
2792   t4569 = t126 * t1606;
2793   t4570 = t4569 * t275;
2794   t4573 = t4569 * t249;
2795   t4576 = t137 * t1606;
2796   t4577 = t4576 * t275;
2797   t4580 = t4576 * t249;
2798   t4583 = t150 * t1606;
2799   t4584 = t4583 * t275;
2800   t4587 = t1709 * t806;
2801   t4590 = t566 * t4381;
2802   t4597 = t1709 * t758;
2803   t4600 = -0.74431136011825874446e-5 * t3062 * t4388 - 0.23817963523784279823e-3 * t3269 * t644 + 0.63113351086372375488e-2 * t3275 * t638 + 0.10419269531250000000e0 * t2960 * t1824 - 0.26048173828125000000e-1 * t1475 * t4566 + 0.10419269531250000000e-1 * t1121 * t4570 - 0.29139547897661132812e-2 * t1486 * t4573 + 0.10927330461622924805e-2 * t1126 * t4577 + 0.36539308523689270020e-3 * t1496 * t4580 - 0.13287021281341552734e-3 * t1141 * t4584 - 0.23589586540807038546e-7 * t1131 * t4587 - 0.16381657320004887879e-9 * t565 * t4590 - 0.19839027479372452945e-7 * t1380 * t1812 + 0.69436596177803585306e-8 * t2707 * t1815 - 0.28341467827674932778e-9 * t1526 * t4597;
2804   t4602 = t1658 * t806;
2805   t4605 = t580 * t4381;
2806   t4627 = 0.99195137396862264723e-10 * t1136 * t4602 + 0.59044724640989443287e-12 * t579 * t4605 - 0.26048173828125000000e0 * t1260 * t1821 + 0.93796875000000000000e-1 * t4386 - 0.46898437500000000000e-1 * t4389 - 0.54636652308114624024e-2 * t1060 * t1730 + 0.66435106406707763672e-3 * t1048 * t1733 - 0.19848302936486899852e-4 * t1034 * t1736 - 0.23443356445312500000e0 * t3084 * t626 - 0.52096347656250000000e-1 * t1017 * t1727 - 0.12506250000000000000e0 * t4391 - 0.12506250000000000000e1 * t4393 - 0.25012500000000000000e0 * t4397 - 0.12506250000000000000e0 * t4400 + 0.12506250000000000000e0 * t4404;
2807   t4635 = t580 * t4456;
2808   t4638 = t4064 * t4452;
2809   t4641 = t510 * t4456;
2810   t4644 = t538 * t4437;
2811   t4647 = t552 * t4448;
2812   t4650 = t566 * t4437;
2813   t4653 = t580 * t4448;
2814   t4656 = t177 * t1606;
2815   t4657 = t4656 * t67;
2816   t4660 = 0.62531250000000000000e-1 * t4407 + 0.43424479166666666666e-1 * t4409 + 0.26054687500000000000e-2 * t4412 - 0.12506250000000000000e0 * t4415 + 0.15922309027777777778e0 * t4417 - 0.12506250000000000000e1 * t4419 + 0.62531250000000000000e0 * t4421 + 0.27278662784137122798e-9 * t4060 * t4635 + 0.42512201741512399167e-10 * t579 * t4638 + 0.45584304199218750000e-2 * t4049 * t4641 - 0.17992841318483352662e-4 * t1344 * t4644 + 0.69203235840320587160e-5 * t537 * t4647 - 0.62250297816018573940e-8 * t1372 * t4650 + 0.22934320248006843030e-8 * t565 * t4653 + 0.16381657320004887879e-8 * t1380 * t4657;
2817   t4663 = t1658 * t3443;
2818   t4666 = t580 * t4437;
2819   t4669 = t1390 * t4448;
2820   t4672 = t422 * t1606;
2821   t4673 = t4672 * t67;
2822   t4676 = t1668 * t3443;
2823   t4679 = t1709 * t3443;
2824   t4682 = t1390 * t4452;
2825   t4685 = t552 * t4456;
2826   t4688 = t580 * t4452;
2827   t4691 = t566 * t4456;
2828   t4694 = t538 * t4456;
2829   t4697 = t566 * t4452;
2830   t4700 = t538 * t4452;
2831   t4703 = t524 * t4456;
2832   t4706 = t552 * t4452;
2833   t4709 = 0.39678054958744905890e-8 * t1526 * t4663 + 0.25979678842035355046e-10 * t1386 * t4666 - 0.94471559425583109260e-11 * t579 * t4669 - 0.67901433337137859780e-11 * t1398 * t4673 + 0.52096347656250000000e-1 * t1475 * t4676 - 0.80204594238743931056e-6 * t1516 * t4679 - 0.91737280992027372120e-8 * t565 * t4682 + 0.39696605872973799705e-5 * t4069 * t4685 + 0.69469060277704149485e-6 * t551 * t4688 - 0.56025268034416716546e-7 * t4077 * t4691 - 0.10795704791090011597e-3 * t4088 * t4694 - 0.20760970752096176148e-4 * t537 * t4697 + 0.13024086914062500000e-2 * t509 * t4700 + 0.68295815385143280029e-3 * t4096 * t4703 + 0.15176847863365173340e-3 * t523 * t4706;
2834   t4710 = t510 * t4441;
2835   t4713 = t524 * t4423;
2836   t4722 = t524 * t4441;
2837   t4725 = t4583 * t67;
2838   t4728 = t1699 * t3443;
2839   t4731 = t552 * t4437;
2840   t4734 = t566 * t4448;
2841   t4737 = t164 * t1606;
2842   t4738 = t4737 * t67;
2843   t4743 = t510 * t4437;
2844   t4746 = t524 * t4448;
2845   t4749 = t4569 * t67;
2846   t4752 = 0.75973840332031250000e-3 * t1404 * t4710 - 0.32560217285156250000e-3 * t509 * t4713 + 0.27824221082836151122e-2 * t3949 * t1672 - 0.11129688433134460449e-2 * t1438 * t1675 - 0.77907819031941223143e-3 * t3955 * t1679 + 0.75884239316825866699e-4 * t1329 * t4722 + 0.48442265088224411012e-5 * t1352 * t4725 + 0.55575248222163319587e-4 * t1506 * t4728 + 0.52928807830631732940e-6 * t1358 * t4731 - 0.19848302936486899853e-6 * t551 * t4734 - 0.14059214580011554062e-6 * t1366 * t4738 + 0.99588768894468861010e-9 * t4107 * t1652 + 0.15194768066406250000e-2 * t1404 * t4743 - 0.65120434570312500000e-3 * t509 * t4746 - 0.43413623046875000000e-3 * t1412 * t4749;
2847   t4754 = t1678 * t3443;
2848   t4757 = t524 * t4437;
2849   t4760 = t538 * t4448;
2850   t4763 = t4576 * t67;
2851   t4766 = t1688 * t3443;
2852   t4773 = t538 * t4423;
2853   t4782 = t538 * t4441;
2854   t4785 = t552 * t4423;
2855   t4792 = 0.87418643692983398437e-2 * t1486 * t4754 + 0.15176847863365173340e-3 * t1329 * t4757 - 0.60707391453460693360e-4 * t523 * t4760 - 0.41736331624254226684e-4 * t1337 * t4763 - 0.14615723409475708008e-2 * t1496 * t4766 + 0.34204900484170205892e-5 * t2645 * t650 - 0.38245656615680236817e-1 * t2651 * t632 - 0.30353695726730346680e-4 * t523 * t4773 - 0.41983296409794489544e-3 * t3965 * t1682 + 0.16147421696074803671e-3 * t1444 * t1685 + 0.11464669404213110606e-3 * t4022 * t1689 - 0.89964206592416763308e-5 * t1344 * t4782 + 0.34601617920160293580e-5 * t537 * t4785 + 0.14996495552012324333e-4 * t4033 * t1692 - 0.56236858320046216250e-5 * t1450 * t1695;
2856   t4795 = t552 * t4441;
2857   t4798 = t566 * t4423;
2858   t4805 = t580 * t4441;
2859   t4808 = t1390 * t4423;
2860   t4823 = t566 * t4441;
2861   t4826 = t580 * t4423;
2862   t4829 = -0.40303081796033121645e-5 * t4039 * t1700 + 0.26464403915315866470e-6 * t1358 * t4795 - 0.99241514682434499264e-7 * t551 * t4798 - 0.36214097779806858549e-9 * t1461 * t1655 - 0.26255220890359972448e-9 * t3994 * t1659 + 0.12989839421017677523e-10 * t1386 * t4805 - 0.47235779712791554630e-11 * t579 * t4808 + 0.20259690755208333334e-1 * t4004 * t1662 - 0.86827246093750000001e-2 * t1466 * t1665 - 0.59331951497395833334e-2 * t4010 * t1669 - 0.20750099272006191314e-6 * t3939 * t1703 + 0.76447734160022810101e-7 * t1455 * t1706 + 0.55151579644016455859e-7 * t3945 * t1710 - 0.31125148908009286970e-8 * t1372 * t4823 + 0.11467160124003421515e-8 * t565 * t4826;
2863   t4848 = t1012 * t606;
2864   t4849 = t4848 * t777;
2865   t4852 = -0.52109375000000000000e-2 * t4425 + 0.25012500000000000000e0 * t4429 + 0.17369791666666666666e0 * t4431 - 0.86848958333333333333e-1 * t4433 - 0.56451822916666666666e-1 * t4435 + 0.20843750000000000000e-1 * t4439 + 0.10421875000000000000e-1 * t4443 - 0.65136718750000000000e-2 * t4446 - 0.10421875000000000000e-1 * t4450 + 0.15632812500000000000e-1 * t4454 + 0.31265625000000000000e-1 * t4458 + 0.23589586540807038546e-6 * t1082 * t1739 - 0.99195137396862264724e-9 * t1074 * t1742 - 0.79356109917489811778e-9 * t1136 * t4849;
2866   t4855 = t1601 * t738;
2867   t4858 = t1678 * t777;
2868   t4865 = t1699 * t738;
2869   t4870 = t1709 * t777;
2870   t4877 = t1668 * t738;
2871   t4880 = t1688 * t777;
2872   t4885 = t1678 * t738;
2873   t4888 = t1699 * t777;
2874   t4891 = 0.45267622224758573186e-10 * t1461 * t1818 - 0.52096347656250000000e-1 * t3794 * t4855 - 0.15628904296875000000e-1 * t1121 * t4858 + 0.28942415364583333334e-2 * t1466 * t1766 + 0.40102297119371965528e-5 * t1366 * t1803 + 0.10693945898499190808e-5 * t3812 * t4865 - 0.14153751924484223128e-5 * t2681 * t1806 - 0.11908981761892139911e-4 * t1116 * t4870 + 0.93728097200077027082e-6 * t1450 * t1794 + 0.84499561486216003280e-9 * t3869 * t659 - 0.10198841764181396484e-1 * t3825 * t4877 - 0.21854660923245849610e-2 * t1126 * t4880 + 0.27824221082836151122e-3 * t1438 * t1775 + 0.18269654261844635010e-2 * t3835 * t4885 + 0.33217553203353881836e-3 * t1141 * t4888;
2875   t4895 = t1658 * t777;
2876   t4900 = t1709 * t738;
2877   t4911 = t1688 * t738;
2878   t4916 = t1678 * t806;
2879   t4919 = t524 * t4381;
2880   t4926 = t1678 * t758;
2881   t4929 = -0.32294843392149607342e-4 * t1444 * t1784 + 0.16512710578564926982e-6 * t1131 * t4895 - 0.10921104880003258586e-7 * t1455 * t1809 - 0.53848788872582372278e-8 * t3844 * t4900 + 0.12809506617343860368e-4 * t3857 * t647 - 0.17655786222671934714e-6 * t3861 * t653 + 0.17847822808159722223e-1 * t3853 * t629 + 0.24114324938457997639e-2 * t3865 * t635 - 0.72247822688812315463e-4 * t3803 * t4911 - 0.36062575121233728199e-3 * t3822 * t641 + 0.54636652308114624024e-3 * t1126 * t4916 + 0.75884239316825866699e-5 * t523 * t4919 + 0.73078617047378540040e-2 * t1337 * t1778 - 0.26574042562683105468e-2 * t2957 * t1781 + 0.18269654261844635010e-3 * t1496 * t4926;
2882   t4930 = t1688 * t806;
2883   t4933 = t538 * t4381;
2884   t4940 = t1688 * t758;
2885   t4943 = t4583 * t249;
2886   t4946 = t4737 * t275;
2887   t4949 = t4737 * t249;
2888   t4952 = t4656 * t275;
2889   t4955 = t4656 * t249;
2890   t4958 = t4672 * t275;
2891   t4961 = t1699 * t758;
2892   t4964 = t1699 * t806;
2893   t4967 = t552 * t4381;
2894   t4970 = t1601 * t758;
2895   t4973 = -0.66435106406707763672e-4 * t1141 * t4930 - 0.69203235840320587160e-6 * t537 * t4933 - 0.27787624111081659794e-3 * t1352 * t1788 + 0.99241514682434499261e-4 * t2937 * t1791 - 0.55575248222163319587e-5 * t1506 * t4940 - 0.11115049644432663917e-4 * t1506 * t4943 + 0.39696605872973799704e-5 * t1116 * t4946 + 0.13367432373123988509e-6 * t1516 * t4949 - 0.47179173081614077092e-7 * t1131 * t4952 - 0.56682935655349865556e-9 * t1526 * t4955 + 0.19839027479372452945e-9 * t1136 * t4958 + 0.66837161865619942547e-7 * t1516 * t4961 + 0.19848302936486899852e-5 * t1116 * t4964 + 0.16540252447072416544e-7 * t551 * t4967 - 0.13024086914062500000e-1 * t1475 * t4970;
2896   t4976 = t1668 * t806;
2897   t4979 = t510 * t4381;
2898   t4986 = t1668 * t758;
2899   t4989 = t138 * t4381;
2900   t4992 = t151 * t4381;
2901   t4995 = t165 * t4381;
2902   t4998 = t178 * t4381;
2903   t5001 = t114 * t4381;
2904   t5004 = t127 * t4381;
2905   t5015 = 0.52096347656250000000e-2 * t1121 * t4976 + 0.10853405761718750000e-3 * t509 * t4979 - 0.43709321846491699219e-1 * t1412 * t1769 + 0.16390995692434387207e-1 * t2736 * t1772 - 0.14569773948830566406e-2 * t1486 * t4986 + 0.16608776601676940918e-4 * t357 * t4989 - 0.39696605872973799705e-6 * t322 * t4992 + 0.39315977568011730910e-8 * t331 * t4995 - 0.14170733913837466389e-10 * t417 * t4998 - 0.26048173828125000000e-2 * t339 * t5001 - 0.18212217436038208008e-3 * t348 * t5004 + 0.61111290003424073802e-10 * t4129 * t4468 + 0.39072260742187500000e-2 * t912 * t4474 + 0.40977489231085968018e-3 * t921 * t4474 - 0.49826329805030822754e-4 * t930 * t4474;
2906   t5046 = 0.14886227202365174889e-5 * t939 * t4474 - 0.17692189905605278910e-7 * t950 * t4474 + 0.74396353047646698542e-10 * t959 * t4474 - 0.61376991264308526297e-9 * t3256 * t4478 - 0.10256468444824218750e-1 * t3219 * t4478 - 0.15366558461657238007e-2 * t3228 * t4478 + 0.24290335779952526093e-3 * t3238 * t4478 - 0.89317363214191049336e-5 * t3184 * t4478 + 0.12605685307743761223e-6 * t3247 * t4478 - 0.41736331624254226684e-3 * t4219 * t4460 - 0.20783743073628284037e-9 * t4159 * t4481 - 0.14938315334170329152e-9 * t4164 * t4460 + 0.54321146669710287824e-10 * t4170 * t4464 - 0.45584304199218750000e-2 * t4133 * t4481 - 0.30389536132812500000e-2 * t4137 * t4460;
2907   t5075 = 0.13024086914062500000e-2 * t4140 * t4464 + 0.14652097778320312500e-2 * t4144 * t4468 - 0.60707391453460693360e-3 * t4215 * t4481 - 0.27248774112126231194e-4 * t4174 * t4468 - 0.24221132544112205506e-4 * t4211 * t4464 + 0.16694532649701690674e-3 * t4196 * t4464 + 0.18781349230914402008e-3 * t4200 * t4468 + 0.89964206592416763308e-4 * t4204 * t4481 + 0.62974944614691734316e-4 * t4208 * t4460 + 0.94899698415077989921e-6 * t4189 * t4468 + 0.43575208471213001757e-7 * t4193 * t4481 + 0.31125148908009286970e-7 * t4148 * t4460 - 0.26054687500000000000e-1 * t4461 + 0.13027343750000000000e-1 * t4465 + 0.14655761718750000000e-1 * t4469;
2908   t5102 = 0.25012500000000000000e0 * t4471 + 0.46898437500000000000e-1 * t4475 - 0.70347656250000000000e-1 * t4479 - 0.41687500000000000000e-1 * t4482 + 0.62832150154331817628e-2 * t2888 * t1598 - 0.10131353727022933960e-2 * t2833 * t1598 + 0.37711775579325109720e-4 * t2844 * t1598 - 0.53666309380336012692e-6 * t2866 * t1598 + 0.26286711410168500152e-8 * t2877 * t1598 + 0.40374669433593750000e-1 * t2855 * t1598 - 0.11467160124003421515e-7 * t4151 * t4464 - 0.12900555139503849205e-7 * t4155 * t4468 - 0.31757284698379039764e-5 * t4178 * t4481 - 0.22494743328018486500e-5 * t4182 * t4460 + 0.84355287480069324374e-6 * t4185 * t4464;
2909   t5107 = t1834 * t814;
2910   t5110 = t1626 * t184;
2911   t5111 = t5110 * t279;
2912   t5116 = t1834 * t810;
2913   t5127 = my_piecewise3(t102, t4557 + t4600 + t4627 + t4660 + t4709 + t4752 + t4792 + t4829 + t4852 + t4891 + t4929 + t4973 + t5015 + t5046 + t5075 + t5102, t429 * t430 * t4485 * t184 - 0.4e1 * t1537 * t5111 - 0.2e1 * t1537 * t5116 - 0.2e1 * t1545 * t5111 - t1545 * t5116 + 0.6e1 * t4260 * t5107 + 0.6e1 * t4268 * t5107 + t4280 * t5107);
2914   t5130 = 0.12e2 * t4349 * t4350 - 0.8e1 * t4353 * t1584 - 0.8e1 * t1582 * t4357 + 0.8e1 * t1582 * t4361 - 0.4e1 * t1582 * t4364 + 0.2e1 * t217 * t4367 * t187 + 0.4e1 * t217 * t4371 * t187 - 0.4e1 * t217 * t1587 * t434 + 0.2e1 * t217 * t4513 * t187 - 0.4e1 * t217 * t1640 * t434 - 0.2e1 * t217 * t620 * t1168 + 0.2e1 * t690 * t691 * t666 - t217 * t830 * t666 - 0.2e1 * t217 * t290 * t1843 - t101 * t5127 + 0.1174e1 * t5127;
2915   t5132 = t213 * t5130 * t205;
2916   t5135 = t448 * t1846;
2917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2918     v3rho2tau[0] = -t3362 * t671 / 0.12e2 - t1202 * t1848 / 0.2e1 - 0.8246500000000000000e0 * t3367 * t1851 * t456 - 0.3e1 / 0.16e2 * t212 * t5132 - 0.49479000000000000000e1 * t447 * t5135 * t456 - 0.29687400000000000000e2 * t1181 * t1851 * t1190 + 0.40270806047858128433e2 * t1193 * t1851 * t1198;
2919 
2920   t5153 = t1855 * t434;
2921   t5156 = t1912 * t290;
2922   t5171 = t11 * t155;
2923   t5172 = 0.1e1 / t5171;
2924   t5181 = t1878 * t2445;
2925   t5182 = t3491 * t5181;
2926   t5184 = t10 * t275;
2927   t5185 = t2027 * t5184;
2928   t5186 = t1254 * t5185;
2929   t5188 = t10 * t1245;
2930   t5189 = t1240 * t5188;
2931   t5190 = t1254 * t5189;
2932   t5192 = t3447 * t111;
2933   t5193 = t1878 * t67;
2934   t5194 = t5192 * t5193;
2935   t5196 = t1218 * t106;
2936   t5197 = t5196 * t392;
2937   t5198 = t1874 * t249;
2938   t5199 = t403 * t5198;
2939   t5200 = t5197 * t5199;
2940   t5202 = t1874 * t275;
2941   t5203 = t412 * t5202;
2942   t5204 = t1887 * t5203;
2943   t5206 = t476 * t1245;
2944   t5207 = t403 * t5206;
2945   t5208 = t1887 * t5207;
2946   t5210 = t1882 * t249;
2947   t5211 = t484 * t5210;
2948   t5212 = t1254 * t5211;
2949   t5213 = t5212 / 0.64e2;
2950   t5214 = t1882 * t275;
2951   t5215 = t510 * t5214;
2952   t5216 = t483 * t5215;
2953   t5217 = t5216 / 0.128e3;
2954   t5218 = t113 * t1882;
2955   t5219 = t5218 * t67;
2956   t5220 = t1260 * t5219;
2957   t5221 = 0.5e1 / 0.1024e4 * t5220;
2958   t5222 = t270 * t1883;
2959   t5223 = 0.15e2 / 0.32e2 * t5222;
2960   t5224 = -t1885 + 0.21e2 / 0.256e3 * t5182 - 0.7e1 / 0.128e3 * t5186 + 0.7e1 / 0.128e3 * t5190 - 0.35e2 / 0.1024e4 * t5194 - 0.5e1 / 0.512e3 * t5200 + 0.3e1 / 0.512e3 * t5204 - t5208 / 0.256e3 + t5213 - t5217 - t5221 - t5223;
2961   t5225 = t38 * t249;
2962   t5226 = t5225 * t1875;
2963   t5228 = t792 * t1875;
2964   t5230 = t1878 * t275;
2965   t5231 = t1231 * t5230;
2966   t5233 = t1232 * t1245;
2967   t5234 = t1231 * t5233;
2968   t5236 = t83 * t1882;
2969   t5237 = t5236 * t249;
2970   t5238 = t1231 * t5237;
2971   t5239 = 0.3e1 / 0.16e2 * t5238;
2972   t5240 = t5218 * t275;
2973   t5241 = t749 * t5240;
2974   t5242 = 0.3e1 / 0.32e2 * t5241;
2975   t5243 = t3508 * t1879;
2976   t5245 = t910 * t392;
2977   t5246 = t5245 * t1888;
2978   t5248 = t1250 * t1891;
2979   t5249 = 0.25e2 / 0.768e3 * t5248;
2980   t5250 = t1464 * t170;
2981   t5251 = t5250 * t3222;
2982   t5252 = t10 * t1874;
2983   t5253 = t5252 * t67;
2984   t5254 = t5251 * t5253;
2985   t5256 = t1874 * t9;
2986   t5257 = t5256 * t67;
2987   t5258 = t2433 * t5257;
2988   t5260 = t1882 * t9;
2989   t5261 = t5260 * t67;
2990   t5262 = t744 * t5261;
2991   t5263 = 0.9e1 / 0.256e3 * t5262;
2992   t5264 = -0.3e1 / 0.16e2 * t5226 - 0.15e2 / 0.16e2 * t5228 + 0.3e1 / 0.16e2 * t5231 - 0.3e1 / 0.8e1 * t5234 - t5239 + t5242 + 0.175e3 / 0.768e3 * t5243 - 0.35e2 / 0.1536e4 * t5246 + t5249 + t1893 + 0.7e1 / 0.4096e4 * t5254 + 0.9e1 / 0.128e3 * t5258 + t5263;
2993   t5265 = t5224 + t5264;
2994   t5266 = t50 * t5265;
2995   t5271 = t816 * t1271;
2996   t5277 = t89 * t279 * t91;
2997   t5283 = t1894 * t279;
2998   t5284 = t5283 * t91;
2999   t5287 = t492 * t1271;
3000   t5291 = t1898 * t279 * t91;
3001   t5294 = t5266 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t1895 * t1276 - 0.3e1 / 0.50e2 * t489 * t5271 - 0.3e1 / 0.100e3 * t1899 * t284 + 0.3e1 / 0.50e2 * t1899 * t5277 - t283 * t5265 * t91 / 0.100e3 + t823 * t5284 / 0.100e3 + t823 * t5287 / 0.50e2 - t2603 * t5291 / 0.100e3;
3002   t5297 = -t34 * t9 * t224 * t45 / 0.27e2 + 0.21e2 / 0.40e2 * t232 * t234 * sigma[0] * t45 - 0.81e2 / 0.800e3 * t712 * t35 * t1219 * t719 + 0.2187e4 / 0.256000e6 * t2402 * t233 * t5172 * t2409 + 0.4e1 * t495 * t1286 + 0.2e1 * t287 * t1908 + 0.2e1 * t94 * t5294;
3003   t5298 = t5297 * t187;
3004   t5300 = t1911 * t434;
3005   t5305 = t1289 * t588;
3006   t5308 = t498 * t1548;
3007   t5313 = t2027 * t275;
3008   t5316 = t1240 * t1245;
3009   t5319 = t1955 * t249;
3010   t5322 = t1969 * t275;
3011   t5325 = t1338 * t1245;
3012   t5328 = t1969 * t249;
3013   t5331 = t1982 * t275;
3014   t5334 = t1353 * t1245;
3015   t5337 = t1982 * t249;
3016   t5340 = t1995 * t275;
3017   t5344 = t1367 * t1245;
3018   t5347 = t1995 * t249;
3019   t5350 = t2009 * t275;
3020   t5353 = t1381 * t1245;
3021   t5356 = t1878 * t249;
3022   t5359 = t1048 * t1943;
3023   t5360 = 0.33217553203353881836e-3 * t5359;
3024   t5361 = t1034 * t1946;
3025   t5362 = 0.99241514682434499262e-5 * t5361;
3026   t5367 = t1060 * t1940;
3027   t5368 = 0.27318326154057312012e-2 * t5367;
3028   t5371 = 0.13367432373123988509e-6 * t1516 * t5344 - 0.53848788872582372278e-8 * t3844 * t5347 + 0.19839027479372452945e-8 * t1526 * t5350 - 0.56682935655349865556e-9 * t1526 * t5353 - 0.52096347656250000000e-1 * t3794 * t5356 + t5360 - t5362 - 0.99195137396862264723e-8 * t1379 * t1925 - 0.13024086914062500000e0 * t1259 * t1928 - t5368 - 0.13893812055540829897e-3 * t1351 * t1919;
3029   t5377 = t580 * t5210;
3030   t5378 = t1386 * t5377;
3031   t5379 = 0.12989839421017677523e-10 * t5378;
3032   t5380 = t1390 * t5214;
3033   t5381 = t579 * t5380;
3034   t5382 = 0.47235779712791554630e-11 * t5381;
3035   t5383 = t422 * t1882;
3036   t5384 = t5383 * t67;
3037   t5385 = t1398 * t5384;
3038   t5386 = 0.33950716668568929890e-11 * t5385;
3039   t5387 = t1969 * t5184;
3040   t5390 = t1338 * t5188;
3041   t5393 = t4218 * t135;
3042   t5394 = t1955 * t67;
3043   t5397 = t524 * t5210;
3044   t5398 = t1329 * t5397;
3045   t5399 = 0.75884239316825866699e-4 * t5398;
3046   t5400 = t2009 * t2445;
3047   t5403 = t1012 * t1874;
3048   t5404 = t5403 * t5184;
3049   t5407 = 0.20051148559685982764e-5 * t1365 * t1922 + 0.36539308523689270020e-2 * t1336 * t1934 + t5379 - t5382 - t5386 - 0.57672021880787658692e-3 * t1329 * t5387 + 0.28836010940393829346e-3 * t1329 * t5390 - 0.39649515043041515351e-3 * t5393 * t5394 + t5399 + 0.53317386350813467287e-9 * t4060 * t5400 - 0.20311385276500368490e-9 * t1386 * t5404;
3050   t5408 = t1399 * t5188;
3051   t5411 = t4162 * t1397;
3052   t5412 = t2009 * t67;
3053   t5415 = t412 * t5206;
3054   t5418 = t1955 * t2445;
3055   t5421 = t2034 * t143;
3056   t5422 = t5421 * t401;
3057   t5423 = t412 * t5198;
3058   t5426 = t367 * t5202;
3059   t5429 = t510 * t5210;
3060   t5430 = t1404 * t5429;
3061   t5431 = 0.75973840332031250000e-3 * t5430;
3062   t5432 = t524 * t5214;
3063   t5433 = t509 * t5432;
3064   t5434 = 0.32560217285156250000e-3 * t5433;
3065   t5435 = t126 * t1882;
3066   t5436 = t5435 * t67;
3067   t5437 = t1412 * t5436;
3068   t5438 = 0.21706811523437500000e-3 * t5437;
3069   t5439 = t3171 * t9;
3070   t5440 = t5439 * t5202;
3071   t5443 = 0.50778463191250921226e-10 * t1386 * t5408 - 0.14598808167484639852e-9 * t5411 * t5412 - 0.16280108642578125000e-3 * t2036 * t5415 + 0.12976204923177223206e-2 * t4096 * t5418 - 0.65120434570312500000e-3 * t5422 * t5423 + 0.32560217285156250000e-3 * t2036 * t5426 - t1918 + t5431 - t5434 - t5438 + 0.10628050435378099791e-10 * t2022 * t5440;
3072   t5446 = t2023 * t5206;
3073   t5449 = t2027 * t2445;
3074   t5452 = t1955 * t5184;
3075   t5455 = t1413 * t5188;
3076   t5458 = t4136 * t124;
3077   t5459 = t2027 * t67;
3078   t5462 = t1962 * t519;
3079   t5463 = t5462 * t410;
3080   t5464 = t367 * t5198;
3081   t5467 = t376 * t5202;
3082   t5470 = t367 * t5206;
3083   t5473 = t1969 * t2445;
3084   t5476 = t1982 * t5184;
3085   t5479 = t1353 * t5188;
3086   t5482 = -0.23617889856395777314e-11 * t2022 * t5446 + 0.84656564941406250000e-2 * t4049 * t5449 - 0.42328282470703125000e-2 * t1404 * t5452 + 0.28218854980468750000e-2 * t1404 * t5455 - 0.28218854980468750000e-2 * t5458 * t5459 - 0.83472663248508453369e-4 * t5463 * t5464 + 0.37942119658412933350e-4 * t1964 * t5467 - 0.15176847863365173340e-4 * t1964 * t5470 - 0.20760970752096176148e-3 * t4088 * t5473 + 0.86504044800400733950e-4 * t1344 * t5476 - 0.34601617920160293580e-4 * t1344 * t5479;
3087   t5483 = t4207 * t148;
3088   t5484 = t1969 * t67;
3089   t5487 = t538 * t5210;
3090   t5488 = t1344 * t5487;
3091   t5489 = 0.89964206592416763308e-5 * t5488;
3092   t5490 = t552 * t5214;
3093   t5491 = t537 * t5490;
3094   t5492 = 0.34601617920160293580e-5 * t5491;
3095   t5493 = t150 * t1882;
3096   t5494 = t5493 * t67;
3097   t5495 = t1352 * t5494;
3098   t5496 = 0.24221132544112205506e-5 * t5495;
3099   t5497 = t1976 * t533;
3100   t5498 = t5497 * t365;
3101   t5499 = t376 * t5198;
3102   t5502 = t385 * t5202;
3103   t5505 = t376 * t5206;
3104   t5508 = t1982 * t2445;
3105   t5511 = t2017 * t575;
3106   t5512 = t5511 * t2021;
3107   t5513 = t2023 * t5198;
3108   t5516 = t937 * t365;
3109   t5521 = 0.60552831360280513765e-4 * t5483 * t5484 - t5489 + t5492 + t5496 + 0.12110566272056102753e-4 * t5498 * t5499 - 0.51902426880240440370e-5 * t1978 * t5502 + 0.17300808960080146790e-5 * t1978 * t5505 + 0.76912173878886736929e-5 * t4069 * t5508 - 0.27160573334855143911e-10 * t5512 * t5513 + 0.23067745280106862387e-4 * t5516 * t1979 + 0.14527855066011939198e-4 * t4033 * t1983;
3110   t5525 = t1466 * t2031;
3111   t5526 = 0.14471207682291666667e-2 * t5525;
3112   t5527 = t919 * t401;
3113   t5532 = t1438 * t1959;
3114   t5533 = 0.13912110541418075561e-3 * t5532;
3115   t5536 = t1461 * t2013;
3116   t5537 = 0.22633811112379286593e-10 * t5536;
3117   t5538 = t168 * t104;
3118   t5539 = t21 * t5538;
3119   t5540 = t5539 * t2018;
3120   t5541 = t5540 * t2021;
3121   t5544 = t2002 * t561;
3122   t5545 = t5544 * t383;
3123   t5546 = t2005 * t5198;
3124   t5549 = t2023 * t5202;
3125   t5552 = t538 * t5214;
3126   t5553 = t523 * t5552;
3127   t5554 = 0.30353695726730346680e-4 * t5553;
3128   t5555 = 0.18812569986979166667e-1 * t4004 * t2028 + t5526 - 0.13566757202148437500e-2 * t5527 * t2037 + 0.26433010028694343567e-2 * t3949 * t1956 + t5533 + 0.97325387783230932350e-9 * t4107 * t2010 + t5537 - 0.49203937200824536071e-10 * t5541 * t2024 + 0.57335800620017107576e-8 * t5545 * t5546 - 0.22934320248006843030e-8 * t2004 * t5549 - t5554;
3129   t5556 = t137 * t1882;
3130   t5557 = t5556 * t67;
3131   t5558 = t1337 * t5557;
3132   t5559 = 0.20868165812127113342e-4 * t5558;
3133   t5560 = t566 * t5210;
3134   t5561 = t1372 * t5560;
3135   t5562 = 0.31125148908009286970e-8 * t5561;
3136   t5563 = t580 * t5214;
3137   t5564 = t565 * t5563;
3138   t5565 = 0.11467160124003421515e-8 * t5564;
3139   t5566 = t177 * t1882;
3140   t5567 = t5566 * t67;
3141   t5568 = t1380 * t5567;
3142   t5569 = 0.81908286600024439395e-9 * t5568;
3143   t5570 = t566 * t5214;
3144   t5571 = t551 * t5570;
3145   t5572 = 0.99241514682434499264e-7 * t5571;
3146   t5573 = t164 * t1882;
3147   t5574 = t5573 * t67;
3148   t5575 = t1366 * t5574;
3149   t5576 = 0.70296072900057770312e-7 * t5575;
3150   t5577 = t1989 * t157;
3151   t5578 = t5577 * t374;
3152   t5579 = t385 * t5198;
3153   t5582 = t2005 * t5202;
3154   t5585 = t385 * t5206;
3155   t5588 = t1995 * t2445;
3156   t5591 = t2009 * t5184;
3157   t5594 = -t5559 - t5562 + t5565 + t5569 - t5572 - t5576 - 0.42177643740034662187e-6 * t5578 * t5579 + 0.17367265069426037371e-6 * t1991 * t5582 - 0.49620757341217249632e-7 * t1991 * t5585 - 0.10910183775123255327e-6 * t4077 * t5588 + 0.42428492458812659606e-7 * t1372 * t5591;
3158   t5598 = t1381 * t5188;
3159   t5601 = t4147 * t175;
3160   t5602 = t1995 * t67;
3161   t5605 = t2005 * t5206;
3162   t5608 = t1995 * t5184;
3163   t5611 = t1367 * t5188;
3164   t5614 = t4181 * t162;
3165   t5615 = t1982 * t67;
3166   t5618 = t552 * t5210;
3167   t5619 = t1358 * t5618;
3168   t5620 = 0.26464403915315866470e-6 * t5619;
3169   t5621 = -0.12122426416803617030e-7 * t1372 * t5598 + 0.30306066042009042576e-7 * t5601 * t5602 + 0.57335800620017107576e-9 * t2004 * t5605 - 0.30764869551554694772e-5 * t1358 * t5608 + 0.10254956517184898257e-5 * t1358 * t5611 - 0.21791782599017908797e-5 * t5614 * t5615 + t5620 - t1939 - t1942 + t1945 - t1948;
3170   t5622 = t1017 * t1937;
3171   t5623 = 0.26048173828125000000e-1 * t5622;
3172   t5624 = t1082 * t1949;
3173   t5625 = 0.11794793270403519273e-6 * t5624;
3174   t5626 = t1074 * t1952;
3175   t5627 = 0.49597568698431132362e-9 * t5626;
3176   t5635 = t1951 - t1954 - t5623 + t5625 - t5627 - 0.21854660923245849609e-1 * t1411 * t1931 + 0.54714843750000000000e-1 * t5182 - 0.36476562500000000000e-1 * t5186 + 0.36476562500000000000e-1 * t5190 - 0.22797851562500000000e-1 * t5194 - 0.65136718750000000000e-2 * t5200;
3177   t5639 = 0.10421875000000000000e-1 * t5212;
3178   t5640 = 0.52109375000000000000e-2 * t5216;
3179   t5641 = 0.32568359375000000000e-2 * t5220;
3180   t5642 = 0.31265625000000000000e0 * t5222;
3181   t5647 = 0.12506250000000000000e0 * t5238;
3182   t5648 = 0.39082031250000000000e-2 * t5204 - 0.26054687500000000000e-2 * t5208 + t5639 - t5640 - t5641 - t5642 - 0.12506250000000000000e0 * t5226 - 0.62531250000000000000e0 * t5228 + 0.12506250000000000000e0 * t5231 - 0.25012500000000000000e0 * t5234 - t5647;
3183   t5649 = 0.62531250000000000000e-1 * t5241;
3184   t5652 = 0.21712239583333333333e-1 * t5248;
3185   t5653 = t1436 * t119;
3186   t5654 = t5653 * t3231;
3187   t5657 = t5649 + 0.15198567708333333333e0 * t5243 - 0.15198567708333333333e-1 * t5246 + t5652 + 0.10175067901611328125e-3 * t5654 * t5253 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033;
3188   t5660 = t1459 * t416;
3189   t5661 = t5660 * t3259;
3190   t5670 = t1442 * t356;
3191   t5671 = t5670 * t3241;
3192   t5676 = t1448 * t321;
3193   t5677 = t5676 * t3187;
3194   t5682 = t1453 * t330;
3195   t5683 = t5682 * t3250;
3196   t5688 = t2042 - 0.78836725852523522917e-9 * t5661 * t5253 + 0.74396353047646698542e-9 * t3206 * t5257 + 0.97680651855468750000e-2 * t2814 * t5257 + 0.16390995692434387207e-2 * t2822 * t5257 + 0.12331188888984203339e-4 * t5671 * t5253 - 0.27404481392766952515e-3 * t3210 * t5257 - 0.17300808960080146790e-5 * t5677 * t5253 + 0.10420359041655622423e-4 * t2806 * t5257 + 0.58924649342695483938e-7 * t5683 * t5253 - 0.15038361419764487073e-6 * t3198 * t5257;
3197   t5689 = t912 * t5261;
3198   t5690 = 0.19536130371093750000e-2 * t5689;
3199   t5691 = t921 * t5261;
3200   t5692 = 0.20488744615542984009e-3 * t5691;
3201   t5693 = t930 * t5261;
3202   t5694 = 0.24913164902515411377e-4 * t5693;
3203   t5695 = t939 * t5261;
3204   t5696 = 0.74431136011825874447e-6 * t5695;
3205   t5697 = t950 * t5261;
3206   t5698 = 0.88460949528026394548e-8 * t5697;
3207   t5699 = t959 * t5261;
3208   t5700 = 0.37198176523823349271e-10 * t5699;
3209   t5702 = t11 * t168 * t105;
3210   t5703 = t5702 * t2018;
3211   t5705 = 0.1e1 / t160 / t400;
3212   t5706 = t5705 * t1012;
3213   t5707 = t5703 * t5706;
3214   t5712 = 0.23449218750000000000e-1 * t5262;
3215   t5713 = t5435 * t275;
3216   t5714 = t1121 * t5713;
3217   t5715 = 0.52096347656250000000e-2 * t5714;
3218   t5716 = t5690 + t5692 - t5694 + t5696 - t5698 + t5700 + 0.36902952900618402053e-11 * t5707 * t5253 + 0.11398925781250000000e-2 * t5254 + 0.46898437500000000000e-1 * t5258 + t5712 + t5715;
3219   t5718 = t5435 * t249;
3220   t5719 = t1486 * t5718;
3221   t5720 = 0.14569773948830566406e-2 * t5719;
3222   t5721 = t5556 * t275;
3223   t5722 = t1126 * t5721;
3224   t5723 = 0.54636652308114624024e-3 * t5722;
3225   t5724 = t5556 * t249;
3226   t5725 = t1496 * t5724;
3227   t5726 = 0.18269654261844635010e-3 * t5725;
3228   t5727 = t5493 * t275;
3229   t5728 = t1141 * t5727;
3230   t5729 = 0.66435106406707763672e-4 * t5728;
3231   t5730 = t5493 * t249;
3232   t5731 = t1506 * t5730;
3233   t5732 = 0.55575248222163319587e-5 * t5731;
3234   t5733 = t5573 * t275;
3235   t5734 = t1116 * t5733;
3236   t5735 = 0.19848302936486899852e-5 * t5734;
3237   t5736 = t5573 * t249;
3238   t5737 = t1516 * t5736;
3239   t5738 = 0.66837161865619942547e-7 * t5737;
3240   t5739 = t5566 * t275;
3241   t5740 = t1131 * t5739;
3242   t5741 = 0.23589586540807038546e-7 * t5740;
3243   t5742 = t5566 * t249;
3244   t5743 = t1526 * t5742;
3245   t5744 = 0.28341467827674932778e-9 * t5743;
3246   t5745 = t5383 * t275;
3247   t5746 = t1136 * t5745;
3248   t5747 = 0.99195137396862264723e-10 * t5746;
3249   t5748 = t2027 * t249;
3250   t5751 = -t5720 + t5723 + t5726 - t5729 - t5732 + t5735 + t5738 - t5741 - t5744 + t5747 - 0.10198841764181396484e-1 * t3825 * t5748;
3251   t5752 = t1955 * t275;
3252   t5755 = t1413 * t1245;
3253   t5758 = t5218 * t249;
3254   t5759 = t1475 * t5758;
3255   t5760 = 0.13024086914062500000e-1 * t5759;
3256   t5761 = t1450 * t1986;
3257   t5762 = 0.46864048600038513541e-6 * t5761;
3258   t5763 = t948 * t374;
3259   t5768 = t1455 * t1999;
3260   t5769 = 0.54605524400016292930e-8 * t5768;
3261   t5770 = t957 * t383;
3262   t5773 = t928 * t410;
3263   t5778 = t1444 * t1973;
3264   t5779 = 0.16147421696074803671e-4 * t5778;
3265   t5780 = 0.43709321846491699218e-2 * t1486 * t5752 - 0.29139547897661132812e-2 * t1486 * t5755 - t5760 + t5762 - 0.78566199123593978584e-6 * t5763 * t1992 - 0.20204044028006028384e-6 * t3939 * t1996 - t5769 + 0.10511563447003136389e-7 * t5770 * t2006 - 0.16441585185312271118e-3 * t5773 * t1965 - 0.40368554240187009177e-3 * t3965 * t1970 - t5779;
3266   t5785 = t1898 * t184;
3267   t5786 = t5785 * t279;
3268   t5789 = t1538 * t1271;
3269   t5794 = t1894 * t184;
3270   t5795 = t5794 * t279;
3271   t5806 = my_piecewise3(t102, t5482 + t5688 + t5751 + t5648 + t5371 + 0.36539308523689270020e-3 * t1496 * t5325 + t5521 + t5555 + t5635 + t5621 + t5407 - 0.72247822688812315463e-4 * t3803 * t5328 + 0.27787624111081659794e-4 * t1506 * t5331 - 0.11115049644432663917e-4 * t1506 * t5334 + 0.10693945898499190808e-5 * t3812 * t5337 - 0.40102297119371965528e-6 * t1516 * t5340 + 0.26048173828125000000e-1 * t1475 * t5313 - 0.26048173828125000000e-1 * t1475 * t5316 + 0.18269654261844635010e-2 * t3835 * t5319 - 0.73078617047378540040e-3 * t1496 * t5322 + t5594 + t5780 + t5716 + t5443 + t5657, t429 * t430 * t5265 * t184 - 0.4e1 * t1537 * t5789 - 0.2e1 * t1537 * t5795 - 0.2e1 * t1545 * t5789 - t1545 * t5795 + 0.6e1 * t4260 * t5786 + 0.6e1 * t4268 * t5786 + t4280 * t5786);
3272   t5809 = 0.6e1 * t2370 * t1856 * t290 - 0.4e1 * t690 * t499 * t1289 + 0.2e1 * t690 * t5153 - 0.2e1 * t690 * t5156 + t217 * t5298 - t217 * t5300 + 0.4e1 * t690 * t1914 * t290 - 0.2e1 * t217 * t5305 - 0.2e1 * t217 * t5308 - t217 * t290 * t2056 - t101 * t5806 + 0.1174e1 * t5806;
3273   t5811 = t213 * t5809 * t205;
3274   t5814 = t448 * t2059;
3275   t5818 = t7 * t1551;
3276   t5819 = t596 * t5818;
3277   t5823 = t596 * t2064 * t1185;
3278   t5827 = t5 * t2064 * t1573;
3279   t5832 = t3336 * t599;
3280   t5833 = t204 * t10;
3281   t5834 = t5833 * t219;
3282   t5835 = t5832 * t5834;
3283   t5838 = t32 * t2080;
3284   t5839 = t66 * t204;
3285   t5840 = t5838 * t5839;
3286   t5848 = t5 * t1560 * t2080;
3287   t5851 = 0.1e1 / t35;
3288   t5853 = t5851 * t11 * t4338;
3289   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3290     v3rhosigma2[0] = -t1202 * t2061 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t5811 - 0.24739500000000000000e1 * t447 * t5814 * t456 + 0.18554625000000000000e1 * t5819 * t602 + 0.22265550000000000000e2 * t5823 * t1569 - 0.30203104535893596324e2 * t5827 * t1577 - 0.41747906250000000000e1 * t4306 * t2071 - 0.83495812500000000000e2 * t4314 * t5835 + 0.11627420070069735493e0 * t4321 * t5840 - 0.46386562500000000000e0 * t1561 * t2076 + 0.22652328401920197244e2 * t2082 * t1577 + 0.56630821004800493110e1 * t5848 * t2084 - 0.22712451511732312500e2 * t598 * t5853;
3291 
3292   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3293     v3rhosigmalapl[0] = 0.0e0;
3294 
3295   t5858 = t498 * t290;
3296   t5859 = t1583 * t5858;
3297   t5864 = t4356 * t498;
3298   t5867 = t4360 * t498;
3299   t5870 = t1583 * t1289;
3300   t5873 = t690 * t495;
3301   t5876 = t1286 * t619;
3302   t5880 = t495 * t1639;
3303   t5887 = t2120 * t187;
3304   t5888 = t5887 * t290;
3305   t5891 = t287 * t2120;
3306   t5895 = 0.2e1 * t217 * t5876 * t187 + 0.2e1 * t217 * t5880 * t187 + 0.2e1 * t217 * t5891 * t187 - 0.2e1 * t217 * t2090 * t434 - 0.4e1 * t1582 * t5864 + 0.4e1 * t1582 * t5867 - 0.4e1 * t1582 * t5870 - 0.4e1 * t1582 * t5888 - 0.4e1 * t5873 * t1584 - 0.4e1 * t4353 * t2087 + 0.12e2 * t4349 * t5859;
3307   t5896 = t2101 * t3473;
3308   t5897 = t2433 * t5896;
3309   t5899 = t3453 * t16;
3310   t5900 = t4477 * t5899;
3311   t5901 = t5251 * t5900;
3312   t5903 = t3508 * t2098;
3313   t5905 = t5245 * t2102;
3314   t5907 = t1601 * t1264;
3315   t5908 = t1231 * t5907;
3316   t5910 = t4402 * t2097;
3317   t5911 = t1254 * t5910;
3318   t5913 = t1601 * t5188;
3319   t5914 = t1254 * t5913;
3320   t5916 = t1606 * t476;
3321   t5917 = t403 * t5916;
3322   t5918 = t1887 * t5917;
3323   t5920 = t606 * t1245;
3324   t5921 = t403 * t5920;
3325   t5922 = t1887 * t5921;
3326   t5924 = -t1885 + t5213 - t5217 - t5221 + 0.9e1 / 0.128e3 * t5897 + 0.7e1 / 0.4096e4 * t5901 + 0.175e3 / 0.768e3 * t5903 - 0.35e2 / 0.1536e4 * t5905 + 0.3e1 / 0.16e2 * t5908 + 0.7e1 / 0.256e3 * t5911 + 0.7e1 / 0.256e3 * t5914 - t5918 / 0.512e3 - t5922 / 0.512e3 - t5223;
3327   t5925 = t3490 * t2449;
3328   t5926 = t4477 * t1255;
3329   t5927 = t5925 * t5926;
3330   t5929 = t4477 * t1264;
3331   t5930 = t3442 * t5929;
3332   t5932 = t2101 * t67;
3333   t5933 = t3448 * t5932;
3334   t5935 = t5196 * t915;
3335   t5936 = t1597 * t1255;
3336   t5937 = t5935 * t5936;
3337   t5939 = t1886 * t2817;
3338   t5940 = t1597 * t1264;
3339   t5941 = t5939 * t5940;
3340   t5943 = t5225 * t74;
3341   t5944 = t5943 * t2094;
3342   t5946 = t4395 * t476;
3343   t5947 = t1231 * t5946;
3344   t5949 = t1593 * t1245;
3345   t5950 = t1231 * t5949;
3346   t5952 = t793 * t2094;
3347   t5954 = 0.21e2 / 0.256e3 * t5927 - 0.7e1 / 0.128e3 * t5930 - 0.35e2 / 0.1024e4 * t5933 - 0.5e1 / 0.512e3 * t5937 + 0.3e1 / 0.512e3 * t5941 - 0.3e1 / 0.16e2 * t5944 - 0.3e1 / 0.16e2 * t5947 - 0.3e1 / 0.16e2 * t5950 - 0.15e2 / 0.16e2 * t5952 - t5239 + t5242 + t5249 + t1893 + t5263;
3348   t5955 = t5924 + t5954;
3349   t5956 = t50 * t5955;
3350   t5967 = t614 * t89;
3351   t5974 = t2105 * t279 * t91;
3352   t5978 = t1626 * t488 * t91;
3353   t5985 = t2603 * t613;
3354   t5988 = t5956 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t2106 * t1276 - 0.3e1 / 0.100e3 * t1627 * t2110 - 0.3e1 / 0.100e3 * t614 * t1283 - 0.3e1 / 0.100e3 * t614 * t5271 + 0.3e1 / 0.50e2 * t5967 * t1283 - t283 * t5955 * t91 / 0.100e3 + t823 * t5974 / 0.100e3 + t823 * t5978 / 0.100e3 + t823 * t613 * t1271 * t91 / 0.100e3 - t5985 * t1283 / 0.100e3;
3355   t5989 = t94 * t5988;
3356   t5996 = t619 * t588;
3357   t5997 = t5996 * t290;
3358   t6012 = t1289 * t666;
3359   t6014 = t498 * t1843;
3360   t6018 = t5360 - t5362 - t5368 + t5379 - t5382 - t5386 + t5399 - t1918 + t5431 - t5434 - t5438 - t5489;
3361   t6019 = t5492 + t5496 + t5526 + t5533 + t5537 - t5554 - t5559 - t5562 + t5565 + t5569 - t5572 - t5576;
3362   t6027 = t367 * t5916;
3363   t6030 = t367 * t5920;
3364   t6033 = t5620 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 - 0.78566199123593978584e-6 * t5763 * t2150 - 0.20204044028006028384e-6 * t3939 * t2153 + 0.10511563447003136389e-7 * t5770 * t2156 - 0.75884239316825866699e-5 * t1964 * t6027 - 0.75884239316825866699e-5 * t1964 * t6030;
3365   t6034 = t4583 * t2097;
3366   t6037 = t1688 * t5188;
3367   t6040 = t376 * t5916;
3368   t6043 = t376 * t5920;
3369   t6046 = t4737 * t2097;
3370   t6049 = t1699 * t5188;
3371   t6052 = t1601 * t1255;
3372   t6055 = t1668 * t1264;
3373   t6058 = t1668 * t1255;
3374   t6061 = t1678 * t1264;
3375   t6064 = t385 * t5916;
3376   t6067 = t385 * t5920;
3377   t6070 = t4656 * t2097;
3378   t6073 = -0.17300808960080146790e-4 * t1344 * t6034 - 0.17300808960080146790e-4 * t1344 * t6037 + 0.86504044800400733950e-6 * t1978 * t6040 + 0.86504044800400733950e-6 * t1978 * t6043 + 0.51274782585924491286e-6 * t1358 * t6046 + 0.51274782585924491286e-6 * t1358 * t6049 - 0.52096347656250000000e-1 * t3794 * t6052 + 0.26048173828125000000e-1 * t1475 * t6055 - 0.10198841764181396484e-1 * t3825 * t6058 + 0.43709321846491699218e-2 * t1486 * t6061 - 0.24810378670608624816e-7 * t1991 * t6064 - 0.24810378670608624816e-7 * t1991 * t6067 - 0.60612132084018085152e-8 * t1372 * t6070;
3379   t6076 = t1709 * t5188;
3380   t6079 = t2005 * t5916;
3381   t6082 = t2005 * t5920;
3382   t6085 = t4672 * t2097;
3383   t6088 = t1658 * t5188;
3384   t6091 = t2023 * t5916;
3385   t6094 = t2023 * t5920;
3386   t6097 = t4569 * t2097;
3387   t6100 = t1668 * t5188;
3388   t6103 = t412 * t5916;
3389   t6106 = t412 * t5920;
3390   t6109 = t4576 * t2097;
3391   t6112 = -0.60612132084018085152e-8 * t1372 * t6076 + 0.28667900310008553788e-9 * t2004 * t6079 + 0.28667900310008553788e-9 * t2004 * t6082 + 0.25389231595625460613e-10 * t1386 * t6085 + 0.25389231595625460613e-10 * t1386 * t6088 - 0.11808944928197888657e-11 * t2022 * t6091 - 0.11808944928197888657e-11 * t2022 * t6094 + 0.14109427490234375000e-2 * t1404 * t6097 + 0.14109427490234375000e-2 * t1404 * t6100 - 0.81400543212890625000e-4 * t2036 * t6103 - 0.81400543212890625000e-4 * t2036 * t6106 + 0.14418005470196914673e-3 * t1329 * t6109;
3392   t6125 = -t5623 + t5625 - t5627 + t5639 - t5640 - t5641 + 0.12331188888984203339e-4 * t5671 * t5900 - 0.17300808960080146790e-5 * t5677 * t5900 - 0.27404481392766952515e-3 * t3210 * t5896 + 0.10420359041655622423e-4 * t2806 * t5896 - 0.15038361419764487073e-6 * t3198 * t5896 + 0.74396353047646698542e-9 * t3206 * t5896;
3393   t6141 = t4583 * t476;
3394   t6144 = t1688 * t1245;
3395   t6147 = t4737 * t476;
3396   t6150 = t1699 * t1245;
3397   t6153 = 0.97680651855468750000e-2 * t2814 * t5896 + 0.16390995692434387207e-2 * t2822 * t5896 + 0.58924649342695483938e-7 * t5683 * t5900 - 0.78836725852523522917e-9 * t5661 * t5900 + 0.36902952900618402053e-11 * t5707 * t5900 + 0.10175067901611328125e-3 * t5654 * t5900 + 0.46898437500000000000e-1 * t5897 + 0.11398925781250000000e-2 * t5901 - 0.55575248222163319587e-5 * t1506 * t6141 - 0.55575248222163319587e-5 * t1506 * t6144 + 0.66837161865619942547e-7 * t1516 * t6147 + 0.66837161865619942547e-7 * t1516 * t6150;
3398   t6154 = t4656 * t476;
3399   t6169 = t1709 * t1245;
3400   t6172 = t4402 * t476;
3401   t6175 = t1601 * t1245;
3402   t6178 = t4569 * t476;
3403   t6181 = t1668 * t1245;
3404   t6184 = t4576 * t476;
3405   t6187 = -0.28341467827674932778e-9 * t1526 * t6154 - 0.21854660923245849609e-1 * t1412 * t2145 + 0.36539308523689270020e-2 * t1337 * t2130 - 0.13893812055540829897e-3 * t1352 * t2133 + 0.20051148559685982764e-5 * t1366 * t2136 - 0.99195137396862264723e-8 * t1380 * t2139 - 0.13024086914062500000e0 * t1260 * t2142 - 0.28341467827674932778e-9 * t1526 * t6169 - 0.13024086914062500000e-1 * t1475 * t6172 - 0.13024086914062500000e-1 * t1475 * t6175 - 0.14569773948830566406e-2 * t1486 * t6178 - 0.14569773948830566406e-2 * t1486 * t6181 + 0.18269654261844635010e-3 * t1496 * t6184;
3406   t6191 = t1678 * t1245;
3407   t6201 = t4095 * t3231;
3408   t6206 = t5577 * t953;
3409   t6209 = 0.18269654261844635010e-3 * t1496 * t6191 + 0.15198567708333333333e0 * t5903 - 0.15198567708333333333e-1 * t5905 + 0.12506250000000000000e0 * t5908 + 0.18238281250000000000e-1 * t5911 + 0.18238281250000000000e-1 * t5914 - 0.13027343750000000000e-2 * t5918 - 0.13027343750000000000e-2 * t5922 - t5642 + 0.12976204923177223206e-2 * t6201 * t5926 - 0.57672021880787658692e-3 * t4215 * t5929 - 0.42177643740034662187e-6 * t6206 * t5936;
3410   t6210 = t1990 * t3201;
3411   t6213 = t4076 * t3250;
3412   t6220 = t5497 * t944;
3413   t6223 = t1977 * t2809;
3414   t6226 = t4068 * t3187;
3415   t6233 = t5544 * t962;
3416   t6236 = t2003 * t3193;
3417   t6239 = t4059 * t3259;
3418   t6242 = 0.17367265069426037371e-6 * t6210 * t5940 - 0.10910183775123255327e-6 * t6213 * t5926 + 0.42428492458812659606e-7 * t4193 * t5929 + 0.30306066042009042576e-7 * t4148 * t5932 + 0.12110566272056102753e-4 * t6220 * t5936 - 0.51902426880240440370e-5 * t6223 * t5940 + 0.76912173878886736929e-5 * t6226 * t5926 - 0.30764869551554694772e-5 * t4178 * t5929 - 0.21791782599017908797e-5 * t4182 * t5932 + 0.57335800620017107576e-8 * t6233 * t5936 - 0.22934320248006843030e-8 * t6236 * t5940 + 0.53317386350813467287e-9 * t6239 * t5926;
3419   t6248 = t2021 * t1012;
3420   t6249 = t5511 * t6248;
3421   t6252 = t2021 * t3171;
3422   t6253 = t2019 * t6252;
3423   t6256 = t4048 * t3222;
3424   t6263 = t5421 * t924;
3425   t6266 = t2035 * t2826;
3426   t6271 = t5462 * t933;
3427   t6274 = t1963 * t3213;
3428   t6277 = -0.20311385276500368490e-9 * t4159 * t5929 - 0.14598808167484639852e-9 * t4164 * t5932 - 0.27160573334855143911e-10 * t6249 * t5936 + 0.10628050435378099791e-10 * t6253 * t5940 + 0.84656564941406250000e-2 * t6256 * t5926 - 0.42328282470703125000e-2 * t4133 * t5929 - 0.28218854980468750000e-2 * t4137 * t5932 - 0.65120434570312500000e-3 * t6263 * t5936 + 0.32560217285156250000e-3 * t6266 * t5940 - 0.39649515043041515351e-3 * t4219 * t5932 - 0.83472663248508453369e-4 * t6271 * t5936 + 0.37942119658412933350e-4 * t6274 * t5940;
3429   t6278 = t4087 * t3241;
3430   t6294 = -0.20760970752096176148e-3 * t6278 * t5926 + 0.86504044800400733950e-4 * t4204 * t5929 + 0.60552831360280513765e-4 * t4208 * t5932 + 0.54714843750000000000e-1 * t5927 - 0.36476562500000000000e-1 * t5930 - 0.22797851562500000000e-1 * t5933 - 0.65136718750000000000e-2 * t5937 + 0.39082031250000000000e-2 * t5941 - 0.12506250000000000000e0 * t5944 - 0.12506250000000000000e0 * t5947 - 0.12506250000000000000e0 * t5950 - 0.62531250000000000000e0 * t5952 - t5647;
3431   t6315 = t5649 + t5652 - 0.16441585185312271118e-3 * t5773 * t2174 - 0.40368554240187009177e-3 * t3965 * t2177 + 0.23067745280106862387e-4 * t5516 * t2180 + 0.14527855066011939198e-4 * t4033 * t2183 + 0.97325387783230932350e-9 * t4107 * t2159 - 0.49203937200824536071e-10 * t5541 * t2162 + 0.18812569986979166667e-1 * t4004 * t2165 - 0.13566757202148437500e-2 * t5527 * t2168 + 0.26433010028694343567e-2 * t3949 * t2171 + t1961;
3432   t6316 = -t1975 + t1988 - t2001 + t2015 + t2033 + t2042 + t5690 + t5692 - t5694 + t5696 - t5698 + t5700;
3433   t6318 = t1678 * t5188;
3434   t6321 = t1678 * t1255;
3435   t6324 = t1688 * t1264;
3436   t6327 = t1688 * t1255;
3437   t6330 = t1699 * t1264;
3438   t6333 = t1699 * t1255;
3439   t6336 = t1709 * t1264;
3440   t6339 = t1709 * t1255;
3441   t6342 = t1658 * t1264;
3442   t6345 = t5712 + 0.14418005470196914673e-3 * t1329 * t6318 + 0.18269654261844635010e-2 * t3835 * t6321 - 0.73078617047378540040e-3 * t1496 * t6324 - 0.72247822688812315463e-4 * t3803 * t6327 + 0.27787624111081659794e-4 * t1506 * t6330 + 0.10693945898499190808e-5 * t3812 * t6333 - 0.40102297119371965528e-6 * t1516 * t6336 - 0.53848788872582372278e-8 * t3844 * t6339 + 0.19839027479372452945e-8 * t1526 * t6342 + t5715 - t5720;
3443   t6346 = t5723 + t5726 - t5729 - t5732 + t5735 + t5738 - t5741 - t5744 + t5747 - t5760 + t5762 - t5769 - t5779;
3444   t6351 = t1834 * t1282;
3445   t6354 = t5110 * t488;
3446   t6359 = t1834 * t1271;
3447   t6362 = t2105 * t184;
3448   t6363 = t6362 * t279;
3449   t6374 = my_piecewise3(t102, t6018 + t6019 + t6033 + t6073 + t6112 + t6125 + t6153 + t6187 + t6209 + t6242 + t6277 + t6294 + t6315 + t6316 + t6345 + t6346, t429 * t430 * t5955 * t184 - 0.2e1 * t1537 * t6354 - 0.2e1 * t1537 * t6359 - 0.2e1 * t1537 * t6363 - t1545 * t6354 - t1545 * t6359 - t1545 * t6363 + 0.6e1 * t4260 * t6351 + 0.6e1 * t4268 * t6351 + t4280 * t6351);
3450   t6377 = 0.2e1 * t217 * t5989 * t187 - 0.2e1 * t217 * t2121 * t434 + 0.4e1 * t1582 * t5997 - 0.2e1 * t217 * t1587 * t588 - 0.2e1 * t217 * t1640 * t588 - 0.2e1 * t217 * t620 * t1548 + 0.2e1 * t690 * t2128 * t290 - t217 * t6012 - t217 * t6014 - t217 * t290 * t2198 - t101 * t6374 + 0.1174e1 * t6374;
3451   t6378 = t5895 + t6377;
3452   t6380 = t213 * t6378 * t205;
3453   t6383 = t448 * t2201;
3454   t6387 = t7 * t1846;
3455   t6388 = t596 * t6387;
3456   t6392 = t596 * t2206 * t1185;
3457   t6396 = t5 * t2206 * t1573;
3458   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3459     v3rhosigmatau[0] = -t1202 * t2203 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t6380 - 0.24739500000000000000e1 * t447 * t6383 * t456 + 0.92773125000000000000e0 * t6388 * t602 + 0.11132775000000000000e2 * t6392 * t1569 - 0.15101552267946798162e2 * t6396 * t1577;
3460 
3461   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3462     v3rholapl2[0] = 0.0e0;
3463 
3464   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3465     v3rholapltau[0] = 0.0e0;
3466 
3467   t6401 = t2370 * t95;
3468   t6402 = t2215 * t290;
3469   t6408 = t690 * t95;
3470   t6409 = t1583 * t1639;
3471   t6419 = t2210 * t434;
3472   t6422 = t2243 * t187;
3473   t6423 = t6422 * t290;
3474   t6426 = t287 * t2243;
3475   t6430 = t2282 * t5184;
3476   t6431 = t1254 * t6430;
3477   t6433 = t10 * t1606;
3478   t6434 = t1601 * t6433;
3479   t6435 = t1254 * t6434;
3480   t6437 = t2222 * t67;
3481   t6438 = t5192 * t6437;
3482   t6440 = t2218 * t249;
3483   t6441 = t403 * t6440;
3484   t6442 = t5197 * t6441;
3485   t6444 = t2218 * t275;
3486   t6445 = t412 * t6444;
3487   t6446 = t1887 * t6445;
3488   t6448 = t606 * t1606;
3489   t6449 = t403 * t6448;
3490   t6450 = t1887 * t6449;
3491   t6452 = t2222 * t2445;
3492   t6453 = t3491 * t6452;
3493   t6455 = -0.7e1 / 0.128e3 * t6431 + 0.7e1 / 0.128e3 * t6435 - 0.35e2 / 0.1024e4 * t6438 - 0.5e1 / 0.512e3 * t6442 + 0.3e1 / 0.512e3 * t6446 - t6450 / 0.256e3 + 0.21e2 / 0.256e3 * t6453 - t1885 + t5213 - t5217 - t5221 - t5223;
3494   t6456 = t2218 * t9;
3495   t6457 = t6456 * t67;
3496   t6458 = t2433 * t6457;
3497   t6460 = t10 * t2218;
3498   t6461 = t6460 * t67;
3499   t6462 = t5251 * t6461;
3500   t6464 = t2222 * t275;
3501   t6465 = t1231 * t6464;
3502   t6467 = t1593 * t1606;
3503   t6468 = t1231 * t6467;
3504   t6470 = t5245 * t2226;
3505   t6472 = t3508 * t2223;
3506   t6474 = t5225 * t2219;
3507   t6476 = t792 * t2219;
3508   t6478 = 0.9e1 / 0.128e3 * t6458 + 0.7e1 / 0.4096e4 * t6462 + 0.3e1 / 0.16e2 * t6465 - 0.3e1 / 0.8e1 * t6468 - 0.35e2 / 0.1536e4 * t6470 + 0.175e3 / 0.768e3 * t6472 - t5239 + t5242 + t5249 + t1893 + t5263 - 0.3e1 / 0.16e2 * t6474 - 0.15e2 / 0.16e2 * t6476;
3509   t6479 = t6455 + t6478;
3510   t6480 = t50 * t6479;
3511   t6485 = t816 * t1626;
3512   t6495 = t2229 * t279;
3513   t6506 = t6480 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t2230 * t1276 - 0.3e1 / 0.50e2 * t614 * t6485 - 0.3e1 / 0.100e3 * t2234 * t284 + 0.3e1 / 0.50e2 * t2234 * t5277 - t283 * t6479 * t91 / 0.100e3 + t823 * t6495 * t91 / 0.100e3 + t823 * t616 * t1626 / 0.50e2 - t2603 * t2233 * t279 * t91 / 0.100e3;
3514   t6507 = t94 * t6506;
3515   t6514 = t619 * t666;
3516   t6515 = t6514 * t290;
3517   t6529 = t2282 * t249;
3518   t6532 = t2290 * t275;
3519   t6535 = t1668 * t1606;
3520   t6538 = t2290 * t249;
3521   t6542 = t2254 * t275;
3522   t6545 = t1678 * t1606;
3523   t6548 = t2254 * t249;
3524   t6558 = -0.73078617047378540040e-3 * t1496 * t6542 + 0.36539308523689270020e-3 * t1496 * t6545 - 0.72247822688812315463e-4 * t3803 * t6548 - 0.36476562500000000000e-1 * t6431 + 0.36476562500000000000e-1 * t6435 - 0.22797851562500000000e-1 * t6438 - 0.65136718750000000000e-2 * t6442 + 0.39082031250000000000e-2 * t6446 - 0.26054687500000000000e-2 * t6450 + 0.54714843750000000000e-1 * t6453 + t5399;
3525   t6560 = -t1918 + t5431 - t5434 - t5438 - t5489 + t5492 + t5496 + t5526 + t5533 + t5537 - t5554;
3526   t6561 = -t5559 - t5562 + t5565 + t5569 - t5572 - t5576 + t5620 - t1939 - t1942 + t1945 - t1948;
3527   t6570 = t1951 - t1954 - 0.21854660923245849609e-1 * t1411 * t2303 + 0.36539308523689270020e-2 * t1336 * t2306 - t5623 + t5625 - t5627 + t5639 - t5640 - t5641 - 0.99195137396862264723e-8 * t1379 * t2297;
3528   t6593 = -0.13024086914062500000e0 * t1259 * t2300 - 0.13893812055540829897e-3 * t1351 * t2309 + 0.20051148559685982764e-5 * t1365 * t2312 + 0.58924649342695483938e-7 * t5683 * t6461 - 0.15038361419764487073e-6 * t3198 * t6457 - 0.78836725852523522917e-9 * t5661 * t6461 + 0.74396353047646698542e-9 * t3206 * t6457 + 0.36902952900618402053e-11 * t5707 * t6461 + 0.97680651855468750000e-2 * t2814 * t6457 + 0.10175067901611328125e-3 * t5654 * t6461 + 0.16390995692434387207e-2 * t2822 * t6457;
3529   t6609 = 0.12331188888984203339e-4 * t5671 * t6461 - 0.27404481392766952515e-3 * t3210 * t6457 - t5642 - 0.17300808960080146790e-5 * t5677 * t6461 + 0.10420359041655622423e-4 * t2806 * t6457 + 0.46898437500000000000e-1 * t6458 + 0.11398925781250000000e-2 * t6462 + 0.12506250000000000000e0 * t6465 - 0.25012500000000000000e0 * t6468 - 0.15198567708333333333e-1 * t6470 + 0.15198567708333333333e0 * t6472;
3530   t6610 = t2254 * t2445;
3531   t6613 = -t5647 + t5649 + t5652 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + t2042 - 0.20760970752096176148e-3 * t4088 * t6610;
3532   t6617 = t2261 * t5184;
3533   t6620 = t1688 * t6433;
3534   t6623 = t2254 * t67;
3535   t6626 = t376 * t6440;
3536   t6629 = t385 * t6444;
3537   t6632 = t376 * t6448;
3538   t6635 = t2261 * t67;
3539   t6638 = t385 * t6440;
3540   t6641 = t2005 * t6444;
3541   t6644 = t385 * t6448;
3542   t6647 = t2268 * t2445;
3543   t6650 = 0.86504044800400733950e-4 * t1344 * t6617 - 0.34601617920160293580e-4 * t1344 * t6620 + 0.60552831360280513765e-4 * t5483 * t6623 + 0.12110566272056102753e-4 * t5498 * t6626 - 0.51902426880240440370e-5 * t1978 * t6629 + 0.17300808960080146790e-5 * t1978 * t6632 - 0.21791782599017908797e-5 * t5614 * t6635 - 0.42177643740034662187e-6 * t5578 * t6638 + 0.17367265069426037371e-6 * t1991 * t6641 - 0.49620757341217249632e-7 * t1991 * t6644 - 0.10910183775123255327e-6 * t4077 * t6647;
3544   t6651 = t2275 * t5184;
3545   t6654 = t1709 * t6433;
3546   t6657 = t2268 * t67;
3547   t6660 = t2005 * t6440;
3548   t6663 = t2023 * t6444;
3549   t6666 = t2005 * t6448;
3550   t6669 = t2275 * t2445;
3551   t6672 = t1012 * t2218;
3552   t6673 = t6672 * t5184;
3553   t6676 = t1658 * t6433;
3554   t6679 = t367 * t6440;
3555   t6682 = t376 * t6444;
3556   t6685 = 0.42428492458812659606e-7 * t1372 * t6651 - 0.12122426416803617030e-7 * t1372 * t6654 + 0.30306066042009042576e-7 * t5601 * t6657 + 0.57335800620017107576e-8 * t5545 * t6660 - 0.22934320248006843030e-8 * t2004 * t6663 + 0.57335800620017107576e-9 * t2004 * t6666 + 0.53317386350813467287e-9 * t4060 * t6669 - 0.20311385276500368490e-9 * t1386 * t6673 + 0.50778463191250921226e-10 * t1386 * t6676 - 0.83472663248508453369e-4 * t5463 * t6679 + 0.37942119658412933350e-4 * t1964 * t6682;
3557   t6687 = t367 * t6448;
3558   t6690 = t2275 * t67;
3559   t6693 = t2023 * t6440;
3560   t6696 = t5439 * t6444;
3561   t6699 = t2023 * t6448;
3562   t6702 = t2282 * t2445;
3563   t6705 = t2290 * t5184;
3564   t6708 = t1668 * t6433;
3565   t6711 = t2282 * t67;
3566   t6714 = t412 * t6440;
3567   t6717 = t367 * t6444;
3568   t6720 = -0.15176847863365173340e-4 * t1964 * t6687 - 0.14598808167484639852e-9 * t5411 * t6690 - 0.27160573334855143911e-10 * t5512 * t6693 + 0.10628050435378099791e-10 * t2022 * t6696 - 0.23617889856395777314e-11 * t2022 * t6699 + 0.84656564941406250000e-2 * t4049 * t6702 - 0.42328282470703125000e-2 * t1404 * t6705 + 0.28218854980468750000e-2 * t1404 * t6708 - 0.28218854980468750000e-2 * t5458 * t6711 - 0.65120434570312500000e-3 * t5422 * t6714 + 0.32560217285156250000e-3 * t2036 * t6717;
3569   t6721 = t412 * t6448;
3570   t6724 = t2290 * t2445;
3571   t6727 = t2254 * t5184;
3572   t6730 = t1678 * t6433;
3573   t6733 = t2290 * t67;
3574   t6736 = t2261 * t2445;
3575   t6739 = t2268 * t5184;
3576   t6742 = t1699 * t6433;
3577   t6745 = -0.16280108642578125000e-3 * t2036 * t6721 + 0.12976204923177223206e-2 * t4096 * t6724 - 0.57672021880787658692e-3 * t1329 * t6727 + 0.28836010940393829346e-3 * t1329 * t6730 - 0.39649515043041515351e-3 * t5393 * t6733 + 0.76912173878886736929e-5 * t4069 * t6736 - 0.30764869551554694772e-5 * t1358 * t6739 + 0.10254956517184898257e-5 * t1358 * t6742 + t5690 + t5692 - t5694;
3578   t6748 = t2261 * t275;
3579   t6751 = t1688 * t1606;
3580   t6754 = t2261 * t249;
3581   t6757 = t2268 * t275;
3582   t6760 = t1699 * t1606;
3583   t6763 = t2268 * t249;
3584   t6766 = t2275 * t275;
3585   t6769 = t5696 - t5698 + t5700 + t5712 + 0.27787624111081659794e-4 * t1506 * t6748 - 0.11115049644432663917e-4 * t1506 * t6751 + 0.10693945898499190808e-5 * t3812 * t6754 - 0.40102297119371965528e-6 * t1516 * t6757 + 0.13367432373123988509e-6 * t1516 * t6760 - 0.53848788872582372278e-8 * t3844 * t6763 + 0.19839027479372452945e-8 * t1526 * t6766;
3586   t6770 = t1709 * t1606;
3587   t6773 = t2222 * t249;
3588   t6776 = t2282 * t275;
3589   t6779 = t1601 * t1606;
3590   t6794 = -0.56682935655349865556e-9 * t1526 * t6770 - 0.52096347656250000000e-1 * t3794 * t6773 + 0.26048173828125000000e-1 * t1475 * t6776 - 0.26048173828125000000e-1 * t1475 * t6779 - 0.49203937200824536071e-10 * t5541 * t2279 - 0.12506250000000000000e0 * t6474 - 0.62531250000000000000e0 * t6476 + 0.18812569986979166667e-1 * t4004 * t2283 - 0.13566757202148437500e-2 * t5527 * t2287 + 0.26433010028694343567e-2 * t3949 * t2291 + 0.14527855066011939198e-4 * t4033 * t2262;
3591   t6810 = -0.78566199123593978584e-6 * t5763 * t2265 - 0.20204044028006028384e-6 * t3939 * t2269 + 0.10511563447003136389e-7 * t5770 * t2272 + 0.97325387783230932350e-9 * t4107 * t2276 - 0.16441585185312271118e-3 * t5773 * t2251 - 0.40368554240187009177e-3 * t3965 * t2255 + 0.23067745280106862387e-4 * t5516 * t2258 + t5715 - t5720 + t5723 + t5726;
3592   t6811 = -t5729 - t5732 + t5735 + t5738 - t5741 - t5744 + t5747 - t5760 + t5762 - t5769 - t5779;
3593   t6816 = t2233 * t184;
3594   t6817 = t6816 * t279;
3595   t6820 = t1834 * t1626;
3596   t6825 = t2229 * t184;
3597   t6826 = t6825 * t279;
3598   t6837 = my_piecewise3(t102, -0.10198841764181396484e-1 * t3825 * t6529 + 0.43709321846491699218e-2 * t1486 * t6532 - 0.29139547897661132812e-2 * t1486 * t6535 + t6794 + t6685 + t6570 + t6745 + t6593 - t5382 + t6650 - t5368 + 0.18269654261844635010e-2 * t3835 * t6538 + t6561 + t5379 + t6609 + t6769 + t5360 - t5362 + t6720 + t6810 + t6811 - t5386 + t6558 + t6560 + t6613, t429 * t430 * t6479 * t184 - 0.4e1 * t1537 * t6820 - 0.2e1 * t1537 * t6826 - 0.2e1 * t1545 * t6820 - t1545 * t6826 + 0.6e1 * t4260 * t6817 + 0.6e1 * t4268 * t6817 + t4280 * t6817);
3599   t6840 = 0.24e2 * t6401 * t6402 - 0.16e2 * t1582 * t2215 * t287 - 0.16e2 * t6408 * t6409 + 0.8e1 * t690 * t2211 * t434 - 0.4e1 * t690 * t6402 + 0.4e1 * t217 * t6409 - 0.2e1 * t217 * t6419 - 0.4e1 * t1582 * t6423 + 0.2e1 * t217 * t6426 * t187 + 0.2e1 * t217 * t6507 * t187 - 0.2e1 * t217 * t2244 * t434 + 0.8e1 * t1582 * t6515 - 0.4e1 * t217 * t1587 * t666 - 0.4e1 * t217 * t1640 * t666 - 0.4e1 * t217 * t620 * t1843 - t217 * t290 * t2328 - t101 * t6837 + 0.1174e1 * t6837;
3600   t6842 = t213 * t6840 * t205;
3601   t6845 = t448 * t2331;
3602   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3603     v3rhotau2[0] = -t1202 * t2333 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t6842 - 0.24739500000000000000e1 * t447 * t6845 * t456;
3604 
3605   t6849 = t1855 * t498;
3606   t6850 = t6849 * t187;
3607   t6856 = t1855 * t588;
3608   t6866 = 0.1e1 / t506;
3609   t6873 = t1874 * t476;
3610   t6874 = t38 * t6873;
3611   t6875 = t6874 * t84;
3612   t6877 = t113 * t6873;
3613   t6878 = t6877 * t10;
3614   t6879 = t3491 * t6878;
3615   t6881 = t1232 * t1882;
3616   t6882 = t1231 * t6881;
3617   t6883 = 0.9e1 / 0.16e2 * t6882;
3618   t6884 = t126 * t6873;
3619   t6885 = t6884 * t9;
3620   t6886 = t5197 * t6885;
3621   t6888 = t10 * t1882;
3622   t6889 = t1240 * t6888;
3623   t6890 = t1254 * t6889;
3624   t6891 = 0.21e2 / 0.256e3 * t6890;
3625   t6892 = t352 * t6873;
3626   t6893 = t3000 * t6892;
3627   t6895 = t476 * t1882;
3628   t6896 = t403 * t6895;
3629   t6897 = t1887 * t6896;
3630   t6898 = 0.3e1 / 0.512e3 * t6897;
3631   t6899 = -0.3e1 / 0.16e2 * t6875 + 0.27e2 / 0.256e3 * t6879 - t6883 - 0.3e1 / 0.128e3 * t6886 + t6891 - t1885 + 0.3e1 / 0.2048e4 * t6893 - t6898 + t1893;
3632   t6900 = t50 * t6899;
3633   t6905 = t1898 * t488;
3634   t6906 = t50 * t6905;
3635   t6915 = t1894 * t488 * t91;
3636   t6921 = t6900 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t1895 * t2110 - 0.3e1 / 0.100e3 * t6906 * t91 + 0.3e1 / 0.50e2 * t6906 * t2593 - t283 * t6899 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t6915 - t2603 * t6905 * t91 / 0.100e3;
3637   t6924 = -0.27e2 / 0.320e3 * t232 * t466 * t45 + 0.729e3 / 0.25600e5 * t712 * sigma[0] * t1867 * t719 - 0.6561e4 / 0.2048000e7 * t2402 * t35 * t6866 * t2409 + 0.6e1 * t495 * t1908 + 0.2e1 * t94 * t6921;
3638   t6925 = t6924 * t187;
3639   t6927 = t1911 * t588;
3640   t6930 = t498 * t2056;
3641   t6934 = t165 * t6873;
3642   t6937 = t178 * t6873;
3643   t6940 = t127 * t6873;
3644   t6943 = t335 * t6873;
3645   t6946 = t423 * t6873;
3646   t6949 = t5538 * t171;
3647   t6950 = t4169 * t6873;
3648   t6953 = t114 * t6873;
3649   t6956 = -0.12506250000000000000e0 * t6875 - t1918 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.10693945898499190808e-5 * t3176 * t6934 - 0.53848788872582372278e-8 * t3166 * t6937 - 0.10198841764181396484e-1 * t3000 * t6940 - 0.12975606720060110092e-5 * t3176 * t6943 + 0.43418162673565093428e-7 * t3166 * t6946 - 0.57335800620017107576e-9 * t6949 * t6950 - 0.52096347656250000000e-1 * t2991 * t6953;
3650   t6957 = t138 * t6873;
3651   t6960 = t151 * t6873;
3652   t6963 = t168 * t301;
3653   t6964 = t157 * t119;
3654   t6965 = t6963 * t6964;
3655   t6967 = 0.1e1 / t160 / t521;
3656   t6968 = t6967 * t3171;
3657   t6969 = t6968 * t6873;
3658   t6972 = t317 * t6873;
3659   t6975 = t326 * t6873;
3660   t6978 = t5435 * t2097;
3661   t6979 = t1404 * t6978;
3662   t6980 = 0.42328282470703125000e-2 * t6979;
3663   t6981 = t5556 * t2097;
3664   t6982 = t1329 * t6981;
3665   t6983 = 0.43254016410590744019e-3 * t6982;
3666   t6984 = t5493 * t2097;
3667   t6985 = t1344 * t6984;
3668   t6986 = 0.51902426880240440370e-4 * t6985;
3669   t6987 = t5573 * t2097;
3670   t6988 = t1358 * t6987;
3671   t6989 = 0.15382434775777347386e-5 * t6988;
3672   t6990 = t5566 * t2097;
3673   t6991 = t1372 * t6990;
3674   t6992 = 0.18183639625205425545e-7 * t6991;
3675   t6993 = t5383 * t2097;
3676   t6994 = t1386 * t6993;
3677   t6995 = 0.76167694786876381839e-10 * t6994;
3678   t6996 = t385 * t6895;
3679   t6997 = t1991 * t6996;
3680   t6998 = 0.74431136011825874448e-7 * t6997;
3681   t6999 = t2005 * t6895;
3682   t7000 = t2004 * t6999;
3683   t7001 = 0.86003700930025661364e-9 * t7000;
3684   t7002 = t367 * t6895;
3685   t7003 = t1964 * t7002;
3686   t7004 = 0.22765271795047760010e-4 * t7003;
3687   t7005 = t376 * t6895;
3688   t7006 = t1978 * t7005;
3689   t7007 = 0.25951213440120220185e-5 * t7006;
3690   t7008 = t2023 * t6895;
3691   t7009 = t2022 * t7008;
3692   t7010 = 0.35426834784593665971e-11 * t7009;
3693   t7011 = 0.18269654261844635010e-2 * t3008 * t6957 - 0.72247822688812315463e-4 * t2983 * t6960 + 0.26570126088445249478e-11 * t6965 * t6969 + 0.81400543212890625000e-4 * t3008 * t6972 + 0.94855299146032333374e-5 * t2983 * t6975 + t6980 + t6983 - t6986 + t6989 - t6992 + t6995 - t6998 + t7001 - t7004 + t7007 - t7010;
3694   t7013 = t412 * t6895;
3695   t7014 = t2036 * t7013;
3696   t7015 = 0.24420162963867187500e-3 * t7014;
3697   t7016 = 0.54714843750000000000e-1 * t6890;
3698   t7017 = 0.39082031250000000000e-2 * t6897;
3699   t7019 = t5573 * t476;
3700   t7020 = t1516 * t7019;
3701   t7021 = 0.20051148559685982764e-6 * t7020;
3702   t7022 = t5566 * t476;
3703   t7023 = t1526 * t7022;
3704   t7024 = 0.85024403483024798334e-9 * t7023;
3705   t7025 = t1012 * t6873;
3706   t7026 = t7025 * t9;
3707   t7029 = t137 * t6873;
3708   t7030 = t7029 * t9;
3709   t7033 = t7029 * t10;
3710   t7036 = -t7015 + t7016 - t7017 + 0.97705078125000000000e-3 * t6893 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + t2042 + t7021 - t7024 - 0.77939036526106065137e-10 * t5512 * t7026 - 0.17094114074707031250e-2 * t5422 * t7030 + 0.18439870153988685608e-2 * t4096 * t7033;
3711   t7037 = t150 * t6873;
3712   t7038 = t7037 * t9;
3713   t7041 = t5218 * t476;
3714   t7042 = t1475 * t7041;
3715   t7043 = 0.39072260742187500000e-1 * t7042;
3716   t7044 = t5435 * t476;
3717   t7045 = t1486 * t7044;
3718   t7046 = 0.43709321846491699218e-2 * t7045;
3719   t7047 = t5556 * t476;
3720   t7048 = t1496 * t7047;
3721   t7049 = 0.54808962785533905030e-3 * t7048;
3722   t7050 = t422 * t6873;
3723   t7051 = t7050 * t10;
3724   t7054 = t6884 * t10;
3725   t7057 = t7037 * t10;
3726   t7060 = t164 * t6873;
3727   t7061 = t7060 * t9;
3728   t7064 = t7060 * t10;
3729   t7067 = t177 * t6873;
3730   t7068 = t7067 * t9;
3731   t7071 = t7067 * t10;
3732   t7074 = t7050 * t9;
3733   t7077 = t5493 * t476;
3734   t7078 = t1506 * t7077;
3735   t7079 = 0.16672574466648995876e-4 * t7078;
3736   t7080 = 0.37518750000000000000e0 * t6882;
3737   t7083 = -0.22765271795047760010e-3 * t5463 * t7038 - t7043 - t7046 + t7049 + 0.78116170700029033468e-9 * t4060 * t7051 + 0.11721678222656250000e-1 * t4049 * t7054 - 0.29895797883018493653e-3 * t4088 * t7057 + 0.33736577472156286241e-4 * t5498 * t7061 + 0.11164670401773881167e-4 * t4069 * t7064 - 0.11908981761892139912e-5 * t5578 * t7068 - 0.15922970915044751018e-6 * t4077 * t7071 + 0.16340703176704875660e-7 * t5545 * t7074 - t7079 - t7080 - 0.15632812500000000000e-1 * t6886 + 0.70347656250000000000e-1 * t6879;
3738   t7090 = t1538 * t1894;
3739   t7106 = my_piecewise3(t102, t6956 + t7011 + t7036 + t7083, 0.6e1 * t1161 * t3298 * t6905 * t184 + 0.6e1 * t429 * t1163 * t6905 * t184 + t3309 * t3311 * t6905 * t184 + t429 * t430 * t6899 * t184 - 0.6e1 * t1537 * t7090 - 0.3e1 * t1545 * t7090);
3740   t7109 = 0.6e1 * t2370 * t6850 - 0.6e1 * t690 * t499 * t1911 + 0.6e1 * t690 * t6856 + t217 * t6925 - 0.3e1 * t217 * t6927 - 0.3e1 * t217 * t6930 - t101 * t7106 + 0.1174e1 * t7106;
3741   t7111 = t213 * t7109 * t205;
3742   t7114 = t7 * t2059;
3743   t7115 = t596 * t7114;
3744   t7123 = t5 * t2064 * t2080;
3745   t7126 = t3336 * t1573;
3746   t7127 = t5833 * t23;
3747   t7128 = t7126 * t7127;
3748   t7132 = t18 * t5851 * t2070;
3749   t7136 = 0.1e1 / t194 / t233;
3750   t7137 = t32 * t7136;
3751   t7139 = t9 * t22 * t204;
3752   t7140 = t7137 * t7139;
3753   t7145 = t453 * t192 * t2080 * t204;
3754   t7149 = t5 * t597 * t7136;
3755   t7152 = 0.1e1 / t233;
3756   t7154 = t7152 * t196 * t4338;
3757   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3758     v3sigma3[0] = -0.3e1 / 0.16e2 * t212 * t7111 + 0.27831937500000000000e1 * t7115 * t602 - 0.12524371875000000000e2 * t5823 * t2071 - 0.13915968750000000000e1 * t2065 * t2076 + 0.16989246301440147933e2 * t7123 * t2084 + 0.31310929687500000000e2 * t4314 * t7128 + 0.62621859375000000000e1 * t1565 * t7132 - 0.43602825262761508097e-1 * t4321 * t7140 + 0.69579843750000000000e0 * t598 * t7145 - 0.16989246301440147934e2 * t7149 * t2084 + 0.85171693168996171873e1 * t598 * t7154;
3759 
3760   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3761     v3sigma2lapl[0] = 0.0e0;
3762 
3763   t7157 = t1583 * t1855;
3764   t7162 = t5887 * t498;
3765   t7165 = t5996 * t498;
3766   t7168 = t1583 * t1911;
3767   t7171 = t1908 * t619;
3768   t7175 = t495 * t2120;
3769   t7182 = t38 * t1874;
3770   t7183 = t7182 * t607;
3771   t7185 = t1601 * t5252;
3772   t7186 = t3491 * t7185;
3773   t7188 = 0.3e1 / 0.8e1 * t6882;
3774   t7189 = t1593 * t1882;
3775   t7190 = t1231 * t7189;
3776   t7191 = 0.3e1 / 0.16e2 * t7190;
3777   t7192 = t1668 * t5256;
3778   t7193 = t5197 * t7192;
3779   t7195 = 0.7e1 / 0.128e3 * t6890;
3780   t7196 = t1601 * t6888;
3781   t7197 = t1254 * t7196;
3782   t7198 = 0.7e1 / 0.256e3 * t7197;
3783   t7199 = t1678 * t1874;
3784   t7200 = t3825 * t7199;
3785   t7202 = t6897 / 0.256e3;
3786   t7203 = t606 * t1882;
3787   t7204 = t403 * t7203;
3788   t7205 = t1887 * t7204;
3789   t7206 = t7205 / 0.512e3;
3790   t7207 = -0.3e1 / 0.16e2 * t7183 + 0.27e2 / 0.256e3 * t7186 - t7188 - t7191 - 0.3e1 / 0.128e3 * t7193 + t7195 + t7198 - t1885 + 0.3e1 / 0.2048e4 * t7200 - t7202 - t7206 + t1893;
3791   t7208 = t50 * t7207;
3792   t7216 = t87 * t1894 * t91;
3793   t7220 = t89 * t1898 * t91;
3794   t7227 = t2105 * t488 * t91;
3795   t7230 = t613 * t1894;
3796   t7234 = t613 * t1898;
3797   t7238 = t7208 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t2106 * t2110 - 0.3e1 / 0.100e3 * t614 * t1905 - 0.3e1 / 0.100e3 * t614 * t7216 + 0.3e1 / 0.50e2 * t614 * t7220 - t283 * t7207 * t91 / 0.100e3 + t823 * t7227 / 0.50e2 + t823 * t7230 * t91 / 0.100e3 - t2603 * t7234 * t91 / 0.100e3;
3798   t7239 = t94 * t7238;
3799   t7249 = t1855 * t666;
3800   t7252 = t1911 * t666;
3801   t7254 = t498 * t2198;
3802   t7257 = t606 * t1874;
3803   t7258 = t385 * t7257;
3804   t7263 = 0.18238281250000000000e-1 * t7197;
3805   t7264 = 0.13027343750000000000e-2 * t7205;
3806   t7267 = 0.28218854980468750000e-2 * t6979;
3807   t7268 = 0.28836010940393829346e-3 * t6982;
3808   t7269 = 0.34601617920160293580e-4 * t6985;
3809   t7270 = 0.10254956517184898257e-5 * t6988;
3810   t7271 = 0.12122426416803617030e-7 * t6991;
3811   t7272 = 0.50778463191250921226e-10 * t6994;
3812   t7273 = 0.49620757341217249632e-7 * t6997;
3813   t7274 = 0.57335800620017107576e-9 * t7000;
3814   t7275 = t1951 - t1954 - 0.12506250000000000000e0 * t7183 + t7267 + t7268 - t7269 + t7270 - t7271 + t7272 - t7273 + t7274;
3815   t7277 = 0.15176847863365173340e-4 * t7003;
3816   t7278 = 0.17300808960080146790e-5 * t7006;
3817   t7279 = 0.23617889856395777314e-11 * t7009;
3818   t7280 = 0.16280108642578125000e-3 * t7014;
3819   t7281 = 0.36476562500000000000e-1 * t6890;
3820   t7282 = 0.26054687500000000000e-2 * t6897;
3821   t7283 = t1699 * t1874;
3822   t7286 = t1709 * t1874;
3823   t7289 = t1601 * t1874;
3824   t7292 = t1668 * t1874;
3825   t7296 = t1688 * t1882;
3826   t7297 = t1506 * t7296;
3827   t7298 = 0.55575248222163319587e-5 * t7297;
3828   t7299 = t1699 * t1882;
3829   t7300 = t1516 * t7299;
3830   t7301 = 0.66837161865619942547e-7 * t7300;
3831   t7302 = t1709 * t1882;
3832   t7303 = t1526 * t7302;
3833   t7304 = 0.28341467827674932778e-9 * t7303;
3834   t7305 = t1601 * t1882;
3835   t7306 = t1475 * t7305;
3836   t7307 = 0.13024086914062500000e-1 * t7306;
3837   t7308 = t1668 * t1882;
3838   t7309 = t1486 * t7308;
3839   t7310 = 0.14569773948830566406e-2 * t7309;
3840   t7311 = t1658 * t1874;
3841   t7314 = t6949 * t1397;
3842   t7315 = t4848 * t1874;
3843   t7318 = t6965 * t6967;
3844   t7319 = t3171 * t606;
3845   t7320 = t7319 * t1874;
3846   t7323 = t1688 * t1874;
3847   t7330 = -t7298 + t7301 - t7304 - t7307 - t7310 + 0.43418162673565093428e-7 * t3844 * t7311 - 0.57335800620017107576e-9 * t7314 * t7315 + 0.26570126088445249478e-11 * t7318 * t7320 + 0.81400543212890625000e-4 * t3835 * t7323 + 0.94855299146032333374e-5 * t3803 * t7283 - 0.12975606720060110092e-5 * t3812 * t7286;
3848   t7333 = t1678 * t1882;
3849   t7334 = t1496 * t7333;
3850   t7335 = 0.18269654261844635010e-3 * t7334;
3851   t7340 = 0.12506250000000000000e0 * t7190;
3852   t7343 = t1668 * t6888;
3853   t7344 = t1404 * t7343;
3854   t7345 = 0.14109427490234375000e-2 * t7344;
3855   t7346 = t1678 * t5256;
3856   t7349 = t412 * t7203;
3857   t7350 = t2036 * t7349;
3858   t7351 = 0.81400543212890625000e-4 * t7350;
3859   t7352 = t1678 * t6888;
3860   t7353 = t1329 * t7352;
3861   t7354 = 0.14418005470196914673e-3 * t7353;
3862   t7355 = t1688 * t5256;
3863   t7358 = t367 * t7203;
3864   t7359 = t1964 * t7358;
3865   t7360 = 0.75884239316825866699e-5 * t7359;
3866   t7361 = t1688 * t6888;
3867   t7362 = t1344 * t7361;
3868   t7363 = 0.17300808960080146790e-4 * t7362;
3869   t7364 = t1699 * t5256;
3870   t7367 = t1688 * t5252;
3871   t7370 = t2033 + t2042 + t7345 - 0.17094114074707031250e-2 * t5422 * t7346 - t7351 + t7354 - 0.22765271795047760010e-3 * t5463 * t7355 - t7360 - t7363 + 0.33736577472156286241e-4 * t5498 * t7364 - 0.29895797883018493653e-3 * t4088 * t7367;
3872   t7372 = t1699 * t5252;
3873   t7375 = t1709 * t5252;
3874   t7378 = t1658 * t5252;
3875   t7381 = t1668 * t5252;
3876   t7384 = t1678 * t5252;
3877   t7387 = 0.13367432373123988509e-6 * t7020;
3878   t7388 = 0.56682935655349865556e-9 * t7023;
3879   t7389 = 0.26048173828125000000e-1 * t7042;
3880   t7390 = 0.29139547897661132812e-2 * t7045;
3881   t7391 = 0.36539308523689270020e-3 * t7048;
3882   t7393 = 0.11115049644432663917e-4 * t7078;
3883   t7394 = 0.25012500000000000000e0 * t6882;
3884   t7395 = t376 * t7203;
3885   t7396 = t1978 * t7395;
3886   t7397 = 0.86504044800400733950e-6 * t7396;
3887   t7398 = t1699 * t6888;
3888   t7399 = t1358 * t7398;
3889   t7400 = 0.51274782585924491286e-6 * t7399;
3890   t7401 = t385 * t7203;
3891   t7402 = t1991 * t7401;
3892   t7403 = 0.24810378670608624816e-7 * t7402;
3893   t7404 = t1709 * t6888;
3894   t7405 = t1372 * t7404;
3895   t7406 = 0.60612132084018085152e-8 * t7405;
3896   t7407 = t1658 * t5256;
3897   t7410 = t2005 * t7203;
3898   t7411 = t2004 * t7410;
3899   t7412 = 0.28667900310008553788e-9 * t7411;
3900   t7413 = t1658 * t6888;
3901   t7414 = t1386 * t7413;
3902   t7415 = 0.25389231595625460613e-10 * t7414;
3903   t7416 = t4848 * t5256;
3904   t7419 = t2023 * t7203;
3905   t7420 = t2022 * t7419;
3906   t7421 = 0.11808944928197888657e-11 * t7420;
3907   t7422 = -t7393 - t7394 + t7397 + t7400 - t7403 - t7406 + 0.16340703176704875660e-7 * t5545 * t7407 + t7412 + t7415 - 0.77939036526106065137e-10 * t5512 * t7416 - t7421;
3908   t7426 = t1834 * t1898;
3909   t7429 = t6362 * t488;
3910   t7434 = t1834 * t1894;
3911   t7445 = my_piecewise3(t102, t7330 + t7370 - t1975 + t1961 + t7278 - t7279 - t7280 + t7281 - 0.15632812500000000000e-1 * t7193 - t7277 + t2015 - t2001 + t1988 - t7282 + 0.97705078125000000000e-3 * t7200 + t1945 + t7387 - t7388 - t7389 + t7422 + 0.18269654261844635010e-2 * t3835 * t7199 - 0.72247822688812315463e-4 * t3803 * t7323 - 0.11908981761892139912e-5 * t5578 * t7258 + 0.10693945898499190808e-5 * t3812 * t7283 - 0.53848788872582372278e-8 * t3844 * t7286 - 0.52096347656250000000e-1 * t3794 * t7289 - 0.10198841764181396484e-1 * t3825 * t7292 - t1918 - t7390 + t7391 + 0.70347656250000000000e-1 * t7186 + 0.11164670401773881167e-4 * t4069 * t7372 - 0.15922970915044751018e-6 * t4077 * t7375 + 0.78116170700029033468e-9 * t4060 * t7378 + 0.11721678222656250000e-1 * t4049 * t7381 + 0.18439870153988685608e-2 * t4096 * t7384 + t7275 + t7335 + t7263 - t7264 - t1939 - t1942 - t1948 - t7340, t429 * t430 * t7207 * t184 - 0.4e1 * t1537 * t7429 - 0.2e1 * t1537 * t7434 - 0.2e1 * t1545 * t7429 - t1545 * t7434 + 0.6e1 * t4260 * t7426 + 0.6e1 * t4268 * t7426 + t4280 * t7426);
3912   t7448 = 0.12e2 * t4349 * t7157 - 0.8e1 * t5873 * t2087 - 0.8e1 * t1582 * t7162 + 0.8e1 * t1582 * t7165 - 0.4e1 * t1582 * t7168 + 0.2e1 * t217 * t7171 * t187 + 0.4e1 * t217 * t7175 * t187 - 0.4e1 * t217 * t2090 * t588 + 0.2e1 * t217 * t7239 * t187 - 0.4e1 * t217 * t2121 * t588 - 0.2e1 * t217 * t620 * t2056 + 0.2e1 * t690 * t7249 - t217 * t7252 - 0.2e1 * t217 * t7254 - t101 * t7445 + 0.1174e1 * t7445;
3913   t7450 = t213 * t7448 * t205;
3914   t7453 = t7 * t2201;
3915   t7454 = t596 * t7453;
3916   t7462 = t5 * t2206 * t2080;
3917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3918     v3sigma2tau[0] = -0.3e1 / 0.16e2 * t212 * t7450 + 0.18554625000000000000e1 * t7454 * t602 - 0.41747906250000000000e1 * t6392 * t2071 - 0.46386562500000000000e0 * t2207 * t2076 + 0.56630821004800493110e1 * t7462 * t2084;
3919 
3920   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3921     v3sigmalapl2[0] = 0.0e0;
3922 
3923   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3924     v3sigmalapltau[0] = 0.0e0;
3925 
3926   t7465 = t2215 * t498;
3927   t7468 = t2215 * t495;
3928   t7471 = t1583 * t2120;
3929   t7481 = t2210 * t588;
3930   t7484 = t6422 * t498;
3931   t7487 = t495 * t2243;
3932   t7491 = t38 * t476;
3933   t7492 = t7491 * t2219;
3934   t7494 = t2222 * t2097;
3935   t7495 = t3491 * t7494;
3936   t7497 = 0.3e1 / 0.8e1 * t7190;
3937   t7498 = t2282 * t1236;
3938   t7499 = t5197 * t7498;
3939   t7501 = 0.7e1 / 0.128e3 * t7197;
3940   t7502 = 0.3e1 / 0.16e2 * t6882;
3941   t7503 = 0.7e1 / 0.256e3 * t6890;
3942   t7504 = t2290 * t476;
3943   t7505 = t3825 * t7504;
3944   t7507 = t7205 / 0.256e3;
3945   t7508 = t6897 / 0.512e3;
3946   t7509 = -0.3e1 / 0.16e2 * t7492 + 0.27e2 / 0.256e3 * t7495 - t7497 - 0.3e1 / 0.128e3 * t7499 + t7501 - t7502 + t7503 - t1885 + 0.3e1 / 0.2048e4 * t7505 - t7507 - t7508 + t1893;
3947   t7510 = t50 * t7509;
3948   t7515 = t816 * t2105;
3949   t7527 = t2229 * t488;
3950   t7534 = t2233 * t488;
3951   t7538 = t7510 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t2230 * t2110 - 0.3e1 / 0.50e2 * t614 * t7515 - 0.3e1 / 0.100e3 * t2234 * t492 + 0.3e1 / 0.50e2 * t2234 * t89 * t488 * t91 - t283 * t7509 * t91 / 0.100e3 + t823 * t7527 * t91 / 0.100e3 + t823 * t616 * t2105 / 0.50e2 - t2603 * t7534 * t91 / 0.100e3;
3952   t7539 = t94 * t7538;
3953   t7546 = t6514 * t498;
3954   t7558 = t498 * t2328;
3955   t7560 = 0.36476562500000000000e-1 * t7197;
3956   t7561 = 0.26054687500000000000e-2 * t7205;
3957   t7565 = t6672 * t476;
3958   t7568 = t2268 * t476;
3959   t7571 = t3171 * t2218;
3960   t7572 = t7571 * t476;
3961   t7575 = t2222 * t476;
3962   t7578 = t2254 * t476;
3963   t7581 = t2282 * t476;
3964   t7590 = t2275 * t476;
3965   t7593 = -0.15632812500000000000e-1 * t7499 - 0.57335800620017107576e-9 * t7314 * t7565 - 0.53848788872582372278e-8 * t3844 * t7568 + 0.26570126088445249478e-11 * t7318 * t7572 - 0.52096347656250000000e-1 * t3794 * t7575 + 0.81400543212890625000e-4 * t3835 * t7578 - 0.10198841764181396484e-1 * t3825 * t7581 + 0.18269654261844635010e-2 * t3835 * t7504 - 0.12975606720060110092e-5 * t3812 * t7568 - 0.72247822688812315463e-4 * t3803 * t7578 + 0.43418162673565093428e-7 * t3844 * t7590;
3966   t7595 = t2261 * t476;
3967   t7600 = t6672 * t1236;
3968   t7603 = t2282 * t2097;
3969   t7606 = t2290 * t1236;
3970   t7609 = t2290 * t2097;
3971   t7612 = t2261 * t2097;
3972   t7615 = t2268 * t1236;
3973   t7618 = t2268 * t2097;
3974   t7621 = t2275 * t1236;
3975   t7625 = t2275 * t2097;
3976   t7628 = t2218 * t476;
3977   t7629 = t367 * t7628;
3978   t7632 = t2254 * t2097;
3979   t7635 = t2261 * t1236;
3980   t7638 = 0.14109427490234375000e-2 * t6979;
3981   t7639 = 0.14418005470196914673e-3 * t6982;
3982   t7640 = 0.17300808960080146790e-4 * t6985;
3983   t7641 = 0.51274782585924491286e-6 * t6988;
3984   t7642 = 0.60612132084018085152e-8 * t6991;
3985   t7643 = 0.25389231595625460613e-10 * t6994;
3986   t7644 = 0.24810378670608624816e-7 * t6997;
3987   t7645 = 0.78116170700029033468e-9 * t4060 * t7625 - 0.22765271795047760010e-3 * t5463 * t7629 - 0.29895797883018493653e-3 * t4088 * t7632 + 0.33736577472156286241e-4 * t5498 * t7635 + t7638 + t7639 - t7640 + t7641 - t7642 + t7643 - t7644;
3988   t7648 = 0.28667900310008553788e-9 * t7000;
3989   t7649 = 0.75884239316825866699e-5 * t7003;
3990   t7650 = 0.86504044800400733950e-6 * t7006;
3991   t7651 = 0.11808944928197888657e-11 * t7009;
3992   t7652 = 0.81400543212890625000e-4 * t7014;
3993   t7653 = 0.18238281250000000000e-1 * t6890;
3994   t7654 = 0.13027343750000000000e-2 * t6897;
3995   t7656 = 0.11115049644432663917e-4 * t7297;
3996   t7657 = 0.13367432373123988509e-6 * t7300;
3997   t7659 = 0.56682935655349865556e-9 * t7303;
3998   t7660 = 0.26048173828125000000e-1 * t7306;
3999   t7661 = 0.29139547897661132812e-2 * t7309;
4000   t7662 = 0.36539308523689270020e-3 * t7334;
4001   t7663 = 0.25012500000000000000e0 * t7190;
4002   t7664 = -t7659 - t7660 - t7661 + t7662 - t7663 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033;
4003   t7667 = 0.28218854980468750000e-2 * t7344;
4004   t7668 = 0.16280108642578125000e-3 * t7350;
4005   t7669 = 0.28836010940393829346e-3 * t7353;
4006   t7670 = 0.15176847863365173340e-4 * t7359;
4007   t7671 = 0.34601617920160293580e-4 * t7362;
4008   t7672 = 0.66837161865619942547e-7 * t7020;
4009   t7673 = 0.28341467827674932778e-9 * t7023;
4010   t7674 = 0.13024086914062500000e-1 * t7042;
4011   t7676 = 0.14569773948830566406e-2 * t7045;
4012   t7677 = 0.18269654261844635010e-3 * t7048;
4013   t7678 = 0.55575248222163319587e-5 * t7078;
4014   t7679 = 0.12506250000000000000e0 * t6882;
4015   t7680 = 0.17300808960080146790e-5 * t7396;
4016   t7681 = 0.10254956517184898257e-5 * t7399;
4017   t7682 = 0.49620757341217249632e-7 * t7402;
4018   t7683 = 0.12122426416803617030e-7 * t7405;
4019   t7684 = 0.57335800620017107576e-9 * t7411;
4020   t7685 = 0.50778463191250921226e-10 * t7414;
4021   t7686 = 0.23617889856395777314e-11 * t7420;
4022   t7687 = -t7676 + t7677 - t7678 - t7679 + t7680 + t7681 - t7682 - t7683 + t7684 + t7685 - t7686;
4023   t7691 = t6816 * t488;
4024   t7694 = t1834 * t2105;
4025   t7699 = t6825 * t488;
4026   t7710 = my_piecewise3(t102, 0.10693945898499190808e-5 * t3812 * t7595 + 0.94855299146032333374e-5 * t3803 * t7595 - 0.77939036526106065137e-10 * t5512 * t7600 + 0.11721678222656250000e-1 * t4049 * t7603 - 0.17094114074707031250e-2 * t5422 * t7606 + 0.18439870153988685608e-2 * t4096 * t7609 + 0.11164670401773881167e-4 * t4069 * t7612 - 0.11908981761892139912e-5 * t5578 * t7615 - 0.15922970915044751018e-6 * t4077 * t7618 + 0.16340703176704875660e-7 * t5545 * t7621 - t1954 + t2042 + t7687 - t7674 - t7670 - t7671 + t7672 - t7673 + t7667 - t7668 + t7669 + t7664 - t7656 + t7657 - t7652 + t7653 - t7654 + t1945 - t7649 + t7650 - t7651 + t7648 + t7645 - t1918 + t7593 + t7560 - t7561 - t1939 - t1942 - t1948 + t1951 + 0.97705078125000000000e-3 * t7505 + 0.70347656250000000000e-1 * t7495 - 0.12506250000000000000e0 * t7492, t429 * t430 * t7509 * t184 - 0.4e1 * t1537 * t7694 - 0.2e1 * t1537 * t7699 - 0.2e1 * t1545 * t7694 - t1545 * t7699 + 0.6e1 * t4260 * t7691 + 0.6e1 * t4268 * t7691 + t4280 * t7691);
4027   t7713 = 0.24e2 * t6401 * t7465 - 0.16e2 * t1582 * t7468 - 0.16e2 * t6408 * t7471 + 0.8e1 * t690 * t2211 * t588 - 0.4e1 * t690 * t7465 + 0.4e1 * t217 * t7471 - 0.2e1 * t217 * t7481 - 0.4e1 * t1582 * t7484 + 0.2e1 * t217 * t7487 * t187 + 0.2e1 * t217 * t7539 * t187 - 0.2e1 * t217 * t2244 * t588 + 0.8e1 * t1582 * t7546 - 0.4e1 * t217 * t2090 * t666 - 0.4e1 * t217 * t2121 * t666 - 0.4e1 * t217 * t620 * t2198 - t217 * t7558 - t101 * t7710 + 0.1174e1 * t7710;
4028   t7715 = t213 * t7713 * t205;
4029   t7718 = t7 * t2331;
4030   t7719 = t596 * t7718;
4031   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4032     v3sigmatau2[0] = -0.3e1 / 0.16e2 * t212 * t7715 + 0.92773125000000000000e0 * t7719 * t602;
4033 
4034   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4035     v3lapl3[0] = 0.0e0;
4036 
4037   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4038     v3lapl2tau[0] = 0.0e0;
4039 
4040   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
4041     v3lapltau2[0] = 0.0e0;
4042 
4043   t7722 = t95 * t94;
4044   t7723 = t2210 * t619;
4045   t7724 = t7722 * t7723;
4046   t7728 = t94 * t7723;
4047   t7732 = t1583 * t2243;
4048   t7740 = t2210 * t666;
4049   t7743 = t2218 * t606;
4050   t7744 = t38 * t7743;
4051   t7745 = t7744 * t84;
4052   t7747 = t113 * t7743;
4053   t7748 = t7747 * t10;
4054   t7749 = t3491 * t7748;
4055   t7751 = 0.9e1 / 0.16e2 * t7190;
4056   t7752 = t126 * t7743;
4057   t7753 = t7752 * t9;
4058   t7754 = t5197 * t7753;
4059   t7756 = 0.21e2 / 0.256e3 * t7197;
4060   t7757 = t352 * t7743;
4061   t7758 = t3000 * t7757;
4062   t7760 = 0.3e1 / 0.512e3 * t7205;
4063   t7761 = -0.3e1 / 0.16e2 * t7745 + 0.27e2 / 0.256e3 * t7749 - t7751 - 0.3e1 / 0.128e3 * t7754 + t7756 - t1885 + 0.3e1 / 0.2048e4 * t7758 - t7760 + t1893;
4064   t7762 = t50 * t7761;
4065   t7766 = t87 * t613 * t91;
4066   t7769 = t2233 * t613;
4067   t7770 = t50 * t7769;
4068   t7785 = t7762 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t2230 * t7766 - 0.3e1 / 0.100e3 * t7770 * t91 + 0.3e1 / 0.50e2 * t7770 * t2593 - t283 * t7761 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t2229 * t613 * t91 - t2603 * t7769 * t91 / 0.100e3;
4069   t7786 = t94 * t7785;
4070   t7796 = 0.54714843750000000000e-1 * t7197;
4071   t7797 = 0.39082031250000000000e-2 * t7205;
4072   t7798 = t137 * t7743;
4073   t7799 = t7798 * t10;
4074   t7802 = t177 * t7743;
4075   t7803 = t7802 * t9;
4076   t7806 = t7802 * t10;
4077   t7809 = t422 * t7743;
4078   t7810 = t7809 * t9;
4079   t7813 = t7809 * t10;
4080   t7816 = t1012 * t7743;
4081   t7817 = t7816 * t9;
4082   t7820 = t7796 - t7797 - t1918 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.18439870153988685608e-2 * t4096 * t7799 - 0.11908981761892139912e-5 * t5578 * t7803 - 0.15922970915044751018e-6 * t4077 * t7806 + 0.16340703176704875660e-7 * t5545 * t7810 + 0.78116170700029033468e-9 * t4060 * t7813 - 0.77939036526106065137e-10 * t5512 * t7817;
4083   t7821 = t7752 * t10;
4084   t7824 = t7798 * t9;
4085   t7827 = t150 * t7743;
4086   t7828 = t7827 * t10;
4087   t7831 = t164 * t7743;
4088   t7832 = t7831 * t9;
4089   t7835 = t7831 * t10;
4090   t7838 = t367 * t7743;
4091   t7843 = 0.16672574466648995876e-4 * t7297;
4092   t7844 = 0.20051148559685982764e-6 * t7300;
4093   t7845 = 0.85024403483024798334e-9 * t7303;
4094   t7846 = 0.39072260742187500000e-1 * t7306;
4095   t7847 = 0.43709321846491699218e-2 * t7309;
4096   t7848 = 0.54808962785533905030e-3 * t7334;
4097   t7849 = 0.37518750000000000000e0 * t7190;
4098   t7850 = 0.11721678222656250000e-1 * t4049 * t7821 - 0.17094114074707031250e-2 * t5422 * t7824 - 0.29895797883018493653e-3 * t4088 * t7828 + 0.33736577472156286241e-4 * t5498 * t7832 + 0.11164670401773881167e-4 * t4069 * t7835 - 0.22765271795047760010e-3 * t5463 * t7838 + 0.70347656250000000000e-1 * t7749 - 0.15632812500000000000e-1 * t7754 - t7843 + t7844 - t7845 - t7846 - t7847 + t7848 - t7849 + t1961;
4099   t7852 = t138 * t7743;
4100   t7855 = t151 * t7743;
4101   t7858 = t165 * t7743;
4102   t7861 = t178 * t7743;
4103   t7864 = t114 * t7743;
4104   t7867 = t4169 * t7743;
4105   t7870 = t6968 * t7743;
4106   t7873 = t317 * t7743;
4107   t7876 = t326 * t7743;
4108   t7879 = t335 * t7743;
4109   t7882 = t423 * t7743;
4110   t7885 = -t1975 + t1988 - t2001 + t2015 + t2033 + 0.18269654261844635010e-2 * t3008 * t7852 - 0.72247822688812315463e-4 * t2983 * t7855 + 0.10693945898499190808e-5 * t3176 * t7858 - 0.53848788872582372278e-8 * t3166 * t7861 - 0.52096347656250000000e-1 * t2991 * t7864 - 0.57335800620017107576e-9 * t6949 * t7867 + 0.26570126088445249478e-11 * t6965 * t7870 + 0.81400543212890625000e-4 * t3008 * t7873 + 0.94855299146032333374e-5 * t2983 * t7876 - 0.12975606720060110092e-5 * t3176 * t7879 + 0.43418162673565093428e-7 * t3166 * t7882;
4111   t7886 = t127 * t7743;
4112   t7890 = 0.42328282470703125000e-2 * t7344;
4113   t7891 = 0.24420162963867187500e-3 * t7350;
4114   t7892 = 0.43254016410590744019e-3 * t7353;
4115   t7893 = 0.22765271795047760010e-4 * t7359;
4116   t7894 = 0.51902426880240440370e-4 * t7362;
4117   t7896 = 0.25951213440120220185e-5 * t7396;
4118   t7897 = 0.15382434775777347386e-5 * t7399;
4119   t7898 = 0.74431136011825874448e-7 * t7402;
4120   t7899 = 0.18183639625205425545e-7 * t7405;
4121   t7900 = 0.86003700930025661364e-9 * t7411;
4122   t7901 = 0.76167694786876381839e-10 * t7414;
4123   t7902 = 0.35426834784593665971e-11 * t7420;
4124   t7903 = -0.10198841764181396484e-1 * t3000 * t7886 - 0.12506250000000000000e0 * t7745 + t2042 + t7890 - t7891 + t7892 - t7893 - t7894 + 0.97705078125000000000e-3 * t7758 + t7896 + t7897 - t7898 - t7899 + t7900 + t7901 - t7902;
4125   t7910 = t1834 * t2229;
4126   t7926 = my_piecewise3(t102, t7820 + t7850 + t7885 + t7903, 0.6e1 * t1161 * t3298 * t7769 * t184 + 0.6e1 * t429 * t1163 * t7769 * t184 + t3309 * t3311 * t7769 * t184 + t429 * t430 * t7761 * t184 - 0.6e1 * t1537 * t7910 - 0.3e1 * t1545 * t7910);
4127   t7929 = 0.48e2 * t2370 * t7724 * t187 - 0.24e2 * t690 * t7728 * t187 - 0.24e2 * t6408 * t7732 + 0.24e2 * t690 * t2211 * t666 + 0.6e1 * t217 * t7732 - 0.6e1 * t217 * t7740 + 0.2e1 * t217 * t7786 * t187 - 0.6e1 * t217 * t2244 * t666 - 0.6e1 * t217 * t620 * t2328 - t101 * t7926 + 0.1174e1 * t7926;
4128   t7931 = t213 * t7929 * t205;
4129   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
4130     v3tau3[0] = -0.3e1 / 0.16e2 * t212 * t7931;
4131 
4132 #ifndef XC_DONT_COMPILE_LXC
4133 
4134   if(order < 4) return;
4135 
4136 
4137   t7943 = t5 * t2363 * t437;
4138   t7947 = 0.1e1 / t21 / t154;
4139   t7955 = t5 * t7 * t197 * t190;
4140   t7972 = 0.1e1 / t200 / t2407 / t36 / t40 / 0.72e2;
4141   t7976 = t204 * t30 * t192;
4142   t7989 = t214 / t2368 / t96;
4143   t7990 = t691 * t691;
4144   t8000 = t830 * t830;
4145   t8013 = t19 * t7947;
4146   t8016 = t11 * t141;
4147   t8038 = t230 * t230;
4148   t8040 = t2401 * t29 / t8038;
4149   t8047 = t827 * t827;
4150   t8053 = t726 * t778;
4151   t8055 = t806 * t806;
4152   t8057 = t65 * t776 * t8055;
4153   t8059 = t2512 * t739;
4154   t8062 = t777 * t777;
4155   t8064 = t65 * t74 * t150 * t8062;
4156   t8066 = t758 * t758;
4157   t8068 = t737 * t84 * t8066;
4158   t8070 = t241 * t2500;
4159   t8072 = t786 * t759;
4160   t8074 = t726 * t807;
4161   t8082 = t37 * t249;
4162   t8083 = t8082 * t74;
4163   t8117 = 0.83e2 / 0.16e2 * t22 * t63 * t255 * t803 - 0.11e2 / 0.4e1 * t2513 * t2537 - 0.3e1 / 0.4e1 * t8083 * t2537 + 0.27e2 / 0.32e2 * t695 * t738 * t255 * t803 - 0.27e2 / 0.16e2 * t39 * t62 * t482 * t249 * t230 * t10 - t793 * t2544 * t30 * t16 / 0.4e1 + 0.135e3 / 0.512e3 * t154 * t63 * t111 * t230 * t30 * t16 - 0.67e2 / 0.9e1 * t20 * t62 * t74 * t795 + 0.35e2 / 0.162e3 * t675 * t79 + 0.140e3 / 0.27e2 * t12 * t267 - 0.59e2 / 0.27e2 * rho[0] * t63 * t272;
4164   t8142 = my_piecewise3(t61, 0.6160e4 / 0.81e2 * t55 * t2381 - 0.2618e4 / 0.81e2 * t8013, 0);
4165   t8154 = 0.35e2 / 0.6e1 * t781 * t789 + 0.35e2 / 0.6e1 * t781 * t798 + 0.5e1 * t263 * t2523 - 0.11e2 / 0.4e1 * t75 * t738 * t272 + 0.5e1 / 0.3e1 * t263 * t2545 - 0.117e3 / 0.32e2 * t2355 * t63 * t2550 + 0.3e1 / 0.8e1 * t77 * t8066 * t78 + t77 * t2522 * t2544 / 0.2e1 + t77 * t266 * t8142 / 0.8e1 + 0.27e2 / 0.4e1 * t218 * t62 * t255 * t2533 + 0.27e2 / 0.32e2 * t2530 * t758 * t13 * t2532;
4166   t8155 = t8117 + t8154;
4167   t8157 = t65 * t261 * t8155;
4168   t8159 = t2507 * t250;
4169   t8161 = t2579 * t276;
4170   t8163 = t3487 * t759;
4171   t8165 = t2576 * t276;
4172   t8168 = t244 * t84 * t8142;
4173   t8170 = t270 * t2563;
4174   t8172 = t241 * t2554;
4175   t8174 = -0.15e2 / 0.2e1 * t8053 - 0.3e1 / 0.16e2 * t8057 - 0.45e2 / 0.2e1 * t8059 - 0.3e1 / 0.4e1 * t8064 - 0.9e1 / 0.16e2 * t8068 + 0.15e2 / 0.4e1 * t8070 - 0.45e2 / 0.4e1 * t8072 + 0.15e2 / 0.4e1 * t8074 + t8157 / 0.32e2 - 0.45e2 / 0.2e1 * t8159 + 0.15e2 / 0.2e1 * t8161 - 0.9e1 / 0.8e1 * t8163 + 0.3e1 / 0.4e1 * t8165 - 0.3e1 / 0.32e2 * t8168 - 0.15e2 / 0.8e1 * t8170 + 0.5e1 / 0.8e1 * t8172;
4176   t8176 = t154 * t64 * t2568;
4177   t8178 = t758 * t275;
4178   t8179 = t8178 * t3473;
4179   t8180 = t2477 * t8179;
4180   t8182 = t249 * t806;
4181   t8183 = t8182 * t3473;
4182   t8184 = t2477 * t8183;
4183   t8186 = t275 * t806;
4184   t8187 = t8186 * t3473;
4185   t8188 = t2417 * t8187;
4186   t8190 = t801 * t769;
4187   t8191 = t8190 * t2479;
4188   t8193 = t2442 * t2449;
4189   t8194 = t765 * t275;
4190   t8195 = t2445 * t8194;
4191   t8196 = t8193 * t8195;
4192   t8198 = t2432 * t769;
4193   t8199 = t738 * t275;
4194   t8200 = t8199 * t3473;
4195   t8201 = t8198 * t8200;
4196   t8203 = t249 * t758;
4197   t8204 = t8203 * t3473;
4198   t8205 = t2433 * t8204;
4199   t8207 = t742 * t2416;
4200   t8209 = t745 * t67 * t777;
4201   t8210 = t8207 * t8209;
4202   t8213 = t1231 * t3049 * t777;
4203   t8216 = t749 * t2739 * t777;
4204   t8218 = t21 * t117;
4205   t8223 = t230 * t9 * t67;
4206   t8224 = t8218 * t64 * t392 * t83 * t8223;
4207   t8226 = t793 * t2484;
4208   t8230 = t749 * t113 * t2553 * t249;
4209   t8232 = t126 * t2553;
4210   t8234 = t2464 * t8232 * t275;
4211   t8236 = t2469 * t2492;
4212   t8238 = t2469 * t2495;
4213   t8240 = 0.405e3 / 0.64e2 * t8176 - 0.27e2 / 0.64e2 * t8180 - 0.27e2 / 0.64e2 * t8184 + 0.9e1 / 0.32e2 * t8188 - 0.9e1 / 0.2e1 * t8191 + 0.81e2 / 0.64e2 * t8196 - 0.27e2 / 0.32e2 * t8201 + 0.27e2 / 0.32e2 * t8205 + 0.27e2 / 0.32e2 * t8210 - 0.9e1 / 0.4e1 * t8213 - 0.9e1 / 0.8e1 * t8216 - 0.405e3 / 0.2048e4 * t8224 + 0.45e2 / 0.4e1 * t8226 + 0.3e1 / 0.8e1 * t8230 - t8234 / 0.4e1 + 0.45e2 / 0.8e1 * t8236 + 0.45e2 / 0.8e1 * t8238;
4214   t8243 = t241 * t74 * t2466;
4215   t8247 = t1231 * t83 * t2544 * t249;
4216   t8249 = t113 * t2544;
4217   t8251 = t749 * t8249 * t275;
4218   t8254 = t117 * t63 * t111;
4219   t8257 = t8254 * t83 * t230 * t249;
4220   t8260 = t113 * t230;
4221   t8262 = t2566 * t111 * t8260 * t275;
4222   t8266 = t749 * t137 * t2499 * t249;
4223   t8270 = t2464 * t137 * t777 * t806;
4224   t8272 = t786 * t74;
4225   t8273 = t8272 * t751;
4226   t8275 = t793 * t2488;
4227   t8277 = t2469 * t2472;
4228   t8280 = t1231 * t2483 * t806;
4229   t8283 = t749 * t2491 * t806;
4230   t8286 = rho[0] * t64 * t84;
4231   t8289 = t37 * t2575 * t84;
4232   t8293 = t2355 * t64 * t482 * t766;
4233   t8297 = t253 * t2575 * t255 * t258;
4234   t8301 = t22 * t64 * t255 * t258;
4235   t8303 = -0.15e2 / 0.4e1 * t8243 - 0.3e1 / 0.4e1 * t8247 + 0.3e1 / 0.8e1 * t8251 + 0.405e3 / 0.128e3 * t8257 - 0.135e3 / 0.128e3 * t8262 + 0.9e1 / 0.4e1 * t8266 + 0.9e1 / 0.8e1 * t8270 + 0.45e2 / 0.2e1 * t8273 - 0.45e2 / 0.4e1 * t8275 - 0.45e2 / 0.4e1 * t8277 + 0.9e1 / 0.8e1 * t8280 + 0.9e1 / 0.16e2 * t8283 - 0.15e2 / 0.4e1 * t8286 - 0.15e2 / 0.4e1 * t8289 - 0.361e3 / 0.64e2 * t8293 + 0.9e1 / 0.32e2 * t8297 + 0.533e3 / 0.144e3 * t8301;
4236   t8305 = t1231 * t750 * t8178;
4237   t8308 = t749 * t1122 * t8186;
4238   t8311 = t2451 * t32 * t806;
4239   t8312 = t2450 * t8311;
4240   t8315 = t223 * t62 * t2443;
4241   t8316 = t738 * t10;
4242   t8317 = t8316 * t765;
4243   t8318 = t8315 * t8317;
4244   t8320 = t758 * t10;
4245   t8321 = t8320 * t765;
4246   t8322 = t2444 * t8321;
4247   t8325 = t2553 * t9 * t67;
4248   t8326 = t770 * t8325;
4249   t8329 = t731 * t2416 * t2419;
4250   t8334 = t2499 * t9 * t67;
4251   t8335 = t254 * t255 * t137 * t8334;
4252   t8337 = t2529 * t743;
4253   t8338 = t8337 * t2435;
4254   t8342 = t2451 * t32 * t777;
4255   t8343 = t762 * t3441 * t8342;
4256   t8345 = t2548 * t2443;
4257   t8346 = t8345 * t2446;
4258   t8349 = t2460 * t2449 * t2453;
4259   t8351 = t2518 * t743;
4260   t8352 = t8351 * t746;
4261   t8355 = t2456 * t769 * t773;
4262   t8357 = t2426 * t2439;
4263   t8359 = t2429 * t2423;
4264   t8362 = t2544 * t9 * t67;
4265   t8363 = t744 * t8362;
4266   t8365 = 0.9e1 / 0.4e1 * t8305 - 0.9e1 / 0.4e1 * t8308 + 0.27e2 / 0.128e3 * t8312 - 0.81e2 / 0.64e2 * t8318 - 0.81e2 / 0.128e3 * t8322 - 0.3e1 / 0.64e2 * t8326 + 0.3e1 / 0.2e1 * t8329 - 0.9e1 / 0.32e2 * t8335 + 0.9e1 / 0.2e1 * t8338 - 0.27e2 / 0.64e2 * t8343 - 0.459e3 / 0.64e2 * t8346 + 0.153e3 / 0.64e2 * t8349 + 0.157e3 / 0.16e2 * t8352 - 0.157e3 / 0.48e2 * t8355 + 0.9e1 / 0.4e1 * t8357 - 0.3e1 / 0.4e1 * t8359 + 0.9e1 / 0.64e2 * t8363;
4267   t8367 = t8174 + t8240 + t8303 + t8365;
4268   t8375 = t810 * t810;
4269   t8381 = t814 * t814;
4270   t8382 = t50 * t8381;
4271   t8385 = t822 * t91;
4272   t8402 = t50 * t3297;
4273   t8406 = 0.9163e4 / 0.65610e5 * t52 * t8013 + t50 * t8367 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t2584 * t1276 - 0.9e1 / 0.50e2 * t811 * t824 - 0.9e1 / 0.100e3 * t50 * t8375 * t816 + 0.9e1 / 0.25e2 * t811 * t3546 + 0.3e1 / 0.20e2 * t8382 * t816 - t8382 * t8385 / 0.10e2 - t283 * t8367 * t91 / 0.100e3 + t823 * t2583 * t279 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t823 * t8375 * t91 - 0.3e1 / 0.50e2 * t2603 * t810 * t814 * t91 + t8402 * t8381 * t91 / 0.100e3;
4274   t8437 = t2910 * t321 * t938;
4275   t8446 = t2905 * t356 * t929;
4276   t8456 = t21 * t1435;
4277   t8462 = t21 * t1441;
4278   t8468 = -0.66292471467179077150e0 * t836 * t120 * t127 + 0.14366058203351486475e-3 * t856 * t158 * t165 - 0.84797671740403398870e-6 * t863 * t171 * t178 - 0.14066013867187500000e1 * t3084 * t1022 + 0.46886712890625000000e0 * t1068 * t1025 - 0.10419269531250000000e0 * t1017 * t3149 + 0.55072424547772318124e-2 * t8437 * t746 + 0.50265720123465454103e-1 * t883 * t2826 * t2419 - 0.12566430030866363526e-1 * t2891 * t2423 - 0.11756799330440383911e0 * t8446 * t746 + 0.81954978462171936036e-3 * t921 * t8362 - 0.23077054000854492188e-1 * t714 * t107 * t401 * t113 * t8223 - 0.42258035769557404520e-2 * t8456 * t120 * t410 * t126 * t8223 + 0.79702664277969226241e-3 * t8462 * t132 * t365 * t137 * t8223;
4279   t8469 = t21 * t1447;
4280   t8475 = t21 * t168;
4281   t8494 = t2395 * t119 * t920;
4282   t8501 = t2919 * t416 * t958;
4283   t8505 = t2924 * t330 * t949;
4284   t8518 = t3269 * t148;
4285   t8525 = -0.34163891429428076371e-4 * t8469 * t144 * t374 * t150 * t8223 + 0.55149873221378955351e-6 * t8475 * t158 * t383 * t164 * t8223 - 0.30250088551694916531e-8 * t21 * t1458 * t171 * t2021 * t177 * t8223 - 0.18024024522532479858e0 * t2915 * t924 * t773 - 0.18052412838035633710e-6 * t2920 * t962 * t773 + 0.54072073567597439577e0 * t8494 * t746 + 0.31489476966806195677e-4 * t2925 * t953 * t773 + 0.54157238514106901131e-6 * t8501 * t746 - 0.94468430900418587032e-4 * t8505 * t746 - 0.18357474849257439375e-2 * t2911 * t944 * t773 + 0.39189331101467946372e-1 * t2906 * t933 * t773 - 0.15115449508093297481e-9 * t2676 * t1012 * t2553 * t275 + 0.14290778114270567894e-1 * t8518 * t1118 - 0.16672574466648995876e-2 * t1352 * t2940 + 0.59544908809460699556e-3 * t2937 * t2943;
4286   t8527 = t150 * t2553;
4287   t8536 = t126 * t2544;
4288   t8540 = t137 * t2544;
4289   t8544 = t137 * t2553;
4290   t8555 = t164 * t230;
4291   t8581 = -0.97131826325537109376e-3 * t2702 * t8527 * t275 + 0.98345974154606323243e-1 * t2736 * t2699 - 0.43709321846491699220e-1 * t313 * t124 * t2704 - 0.58279095795322265624e-2 * t1486 * t8536 * t249 + 0.21854660923245849609e-2 * t1126 * t8540 * t275 + 0.21854660923245849609e-2 * t1126 * t8544 * t249 + 0.15628904296875000000e0 * t1475 * t3049 * t806 - 0.47613665950493887068e-8 * t1136 * t3053 * t758 - 0.30367903492824956774e-3 * t3104 * t162 * t8555 * t275 + 0.14449564537762463092e-2 * t3803 * t164 * t2575 * t275 - 0.43348693613287389278e-3 * t3803 * t3039 * t758 + 0.16672574466648995876e-3 * t1506 * t3045 * t806 + 0.33345148933297991752e-3 * t1116 * t422 * t2499 * t249 + 0.33345148933297991752e-4 * t2949 * t422 * t777 * t806 + 0.41677078125000000000e0 * t3794 * t126 * t2575 * t275;
4292   t8586 = t177 * t230;
4293   t8591 = t1458 * t416 * t1397;
4294   t8601 = t545 * t170 * t124;
4295   t8606 = t126 * t230;
4296   t8611 = t1435 * t119 * t135;
4297   t8616 = t137 * t230;
4298   t8621 = t1441 * t356 * t148;
4299   t8626 = t150 * t230;
4300   t8631 = t1447 * t321 * t162;
4301   t8647 = -0.31257808593750000000e0 * t3794 * t2483 * t758 + 0.50422741230975044892e-5 * t3109 * t175 * t8586 * t275 + 0.84700247944745766289e-7 * t8591 * t8586 * t249 - 0.28233415981581922096e-7 * t3114 * t1397 * t422 * t230 * t275 + 0.49231048535156250000e0 * t8601 * t8260 * t249 - 0.16410349511718750000e0 * t3089 * t124 * t8606 * t275 + 0.10141928584693777085e0 * t8611 * t8606 * t249 - 0.33806428615645923614e-1 * t3094 * t135 * t8616 * t275 - 0.20403882055160121918e-1 * t8621 * t8616 * t249 + 0.68012940183867073060e-2 * t3099 * t148 * t8626 * t275 + 0.91103710478474870323e-3 * t8631 * t8626 * t249 - 0.71453890571352839468e-4 * t1116 * t2688 * t777 - 0.93773425781250000000e-1 * t1121 * t2720 * t777 - 0.13112796553947509766e-1 * t1126 * t2724 * t777 + 0.99076263471389561892e-6 * t1131 * t2713 * t777;
4302   t8651 = t168 * t330 * t175;
4303   t8655 = t164 * t2553;
4304   t8659 = t177 * t2553;
4305   t8671 = t142 * t356;
4306   t8672 = t738 * t738;
4307   t8684 = t131 * t119;
4308   t8688 = t2876 * t962;
4309   t8695 = -0.15126822369292513468e-4 * t8651 * t8555 * t249 + 0.79393211745947599408e-5 * t1116 * t8655 * t249 - 0.31757284698379039764e-5 * t2949 * t8659 * t275 - 0.32309273323549423366e-7 * t3844 * t3018 * t758 + 0.19930531922012329102e-2 * t1141 * t2684 * t777 - 0.72247822688812315463e-2 * t4207 * t2984 - 0.86697387226574778556e-3 * t8671 * t151 * t8672 - 0.13287021281341552735e-1 * t294 * t2980 + 0.11626143621173858643e-2 * t133 * t135 * t422 * t8062 + 0.14615723409475708008e0 * t4218 * t3009 + 0.16442688835660171509e-1 * t8684 * t138 * t8672 - 0.22080837584541540128e-6 * t8688 * t2479 - 0.31246468280011613388e-8 * t3074 * t8179 - 0.31246468280011613388e-8 * t3074 * t8183;
4310   t8700 = t2854 * t915;
4311   t8705 = t2865 * t953;
4312   t8708 = t2843 * t944;
4313   t8721 = t937 * t2809;
4314   t8724 = t910 * t2817;
4315   t8727 = t919 * t2826;
4316   t8730 = t948 * t3201;
4317   t8733 = 0.63691883660179004074e-6 * t3071 * t8179 + 0.63691883660179004073e-6 * t3071 * t8183 - 0.96899206640625000000e0 * t8700 * t2479 - 0.46886712890625000000e-1 * t3065 * t8179 + 0.38639742753841929138e-4 * t8705 * t2479 - 0.22627065347595065831e-2 * t8708 * t2479 - 0.44658681607095524668e-4 * t3062 * t8179 - 0.44658681607095524668e-4 * t3062 * t8183 + 0.11958319153207397461e-2 * t3059 * t8179 + 0.11958319153207397461e-2 * t3059 * t8183 + 0.19669194830921264648e-1 * t2822 * t8204 + 0.26795208964257314800e-3 * t8721 * t8209 + 0.14066013867187500000e0 * t8724 * t8209 + 0.29503792246381896973e-1 * t8727 * t8209 - 0.44584318562125302852e-5 * t8730 * t8209;
4318   t8735 = t3245 * t3250;
4319   t8738 = t2887 * t924;
4320   t8762 = t118 * t170;
4321   t8768 = t169 * t330;
4322   t8777 = -0.90760934215755080806e-5 * t8735 * t8195 - 0.22619574055559454346e0 * t8738 * t2479 - 0.73759480615954742432e-2 * t3068 * t8179 - 0.39338389661842529298e0 * t2736 * t3012 + 0.59445758082833737135e-4 * t2681 * t3015 + 0.21923585114213562012e-1 * t1496 * t3045 * t777 - 0.72848869744152832032e-2 * t121 * t124 * t177 * t8062 + 0.72848869744152832033e-1 * t313 * t3005 - 0.52096347656250000000e-1 * t108 * t111 * t164 * t8062 - 0.61193050585088378906e0 * t4136 * t3001 - 0.61193050585088378904e-1 * t8762 * t127 * t8672 - 0.75388304421615321189e-6 * t4147 * t3167 - 0.96927819970648270100e-7 * t8768 * t178 * t8672 + 0.41677078125000000000e0 * t310 * t2997 - 0.80345930286898970604e-2 * t849 * t144 * t151;
4323   t8792 = t156 * t321;
4324   t8799 = 0.1e1 / t421 / t125;
4325   t8806 = t105 * t63;
4326   t8812 = -0.50025000000000000000e1 * t8053 - 0.12506250000000000000e0 * t8057 - 0.15007500000000000000e2 * t8059 - 0.50025000000000000000e0 * t8064 - 0.37518750000000000000e0 * t8068 + 0.25012500000000000000e1 * t8070 - 0.88067789752346277236e-5 * t303 * t3163 + 0.66050842314259707927e-6 * t159 * t162 * t3171 * t8062 + 0.12832735078199028969e-3 * t4181 * t3177 + 0.16040918847748786212e-4 * t8792 * t165 * t8672 + 0.47613665950493887066e-7 * t307 * t3173 - 0.34009761393209919334e-8 * t172 * t175 * t8799 * t8062 - 0.20838539062500000000e1 * t3447 * t2992 - 0.15628904296875000000e0 * t8806 * t114 * t8672 + 0.55575248222163319588e-3 * t298 * t2988;
4327   t8864 = t837 * t106 * t3218;
4328   t8867 = -0.44460198577730655670e-4 * t145 * t148 * t1012 * t8062 - 0.79722127688049316409e-2 * t1141 * t177 * t2499 * t249 - 0.99652659610061645509e-3 * t2731 * t177 * t777 * t806 + 0.43709321846491699220e-1 * t1126 * t164 * t2499 * t249 + 0.72848869744152832032e-2 * t2702 * t164 * t777 * t806 + 0.11903416487623471767e-7 * t1526 * t3035 * t806 - 0.29231446818951416016e-1 * t3835 * t150 * t2575 * t275 + 0.10961792557106781006e-1 * t3835 * t3031 * t758 - 0.43847170228427124024e-2 * t1496 * t3039 * t806 + 0.62515617187500000000e-1 * t2933 * t150 * t777 * t806 + 0.12238610117017675781e0 * t3825 * t137 * t2575 * t275 - 0.61193050585088378905e-1 * t3825 * t3049 * t758 + 0.26225593107895019532e-1 * t1486 * t3031 * t806 - 0.30769405334472656250e0 * t8864 * t8317;
4329   t8872 = t843 * t143 * t3227;
4330   t8879 = t871 * t561 * t3255;
4331   t8886 = t864 * t157 * t3246;
4332   t8890 = t2752 * t330 * t3246;
4333   t8896 = t392 * t150;
4334   t8900 = t398 * t107;
4335   t8901 = t8900 * t920;
4336   t8903 = t2575 * t9 * t67;
4337   t8906 = t401 * t164;
4338   t8910 = t407 * t120;
4339   t8911 = t8910 * t929;
4340   t8922 = -0.61538810668945312500e-1 * t838 * t4132 * t8342 - 0.73759480615954742433e-1 * t8872 * t8317 + 0.17647959430841265712e-5 * t865 * t4192 * t8342 - 0.73652389517170231555e-7 * t8879 * t8317 - 0.98203186022893642073e-8 * t872 * t4158 * t8342 + 0.12857799013898636448e-4 * t8886 * t8317 + 0.46388921932497041301e-4 * t8890 * t2446 - 0.15462973977499013767e-4 * t2753 * t3250 * t2453 - 0.31257808593750000000e-1 * t391 * t8896 * t8334 + 0.45894787938816284179e-1 * t8901 * t8903 - 0.54636652308114624024e-2 * t399 * t8906 * t8334 - 0.10961792557106781006e-1 * t8911 * t8903 + 0.45254130695190131665e-3 * t893 * t2809 * t2419 + 0.12112400830078125000e1 * t3458 * t2435 + 0.24224801660156250000e0 * t878 * t2817 * t2419;
4341   t8941 = t857 * t533 * t3183;
4342   t8956 = t850 * t519 * t3237;
4343   t8963 = t2777 * t321 * t3183;
4344   t8966 = 0.30159432074079272461e0 * t4144 * t2435 - 0.66866934598351364136e-1 * t4200 * t2435 - 0.10131353727022933960e-1 * t888 * t3213 * t2419 + 0.31677891486633092165e-2 * t4174 * t2435 - 0.54739635567942732947e-4 * t4189 * t2435 - 0.75132833132470417768e-5 * t899 * t3201 * t2419 + 0.31544053692202200182e-6 * t4155 * t2435 - 0.75026585099920481443e-3 * t8941 * t8317 - 0.10718083585702925920e-3 * t858 * t4177 * t8342 - 0.80749338867187500000e-1 * t2858 * t2423 + 0.42058738256269600242e-7 * t904 * t3193 * t2419 - 0.12293246769325790405e-1 * t844 * t4214 * t8342 + 0.16031621614768667221e-1 * t8956 * t8317 + 0.24290335779952526093e-2 * t851 * t4203 * t8342 - 0.27509747869970843195e-2 * t8963 * t2446;
4345   t8979 = t2757 * t416 * t3255;
4346   t8990 = t2762 * t170 * t3218;
4347   t9001 = t2767 * t119 * t3227;
4348   t9004 = t410 * t177;
4349   t9008 = 0.91699159566569477320e-3 * t2778 * t3187 * t2453 - 0.53590417928514629602e-4 * t3184 * t8321 + 0.17863472642838209867e-4 * t3188 * t8311 + 0.75634111846462567340e-6 * t3247 * t8321 - 0.25211370615487522446e-6 * t3251 * t8311 - 0.26269352261124049255e-6 * t8979 * t2446 + 0.87564507537080164183e-7 * t2758 * t3259 * t2453 - 0.36826194758585115778e-8 * t3256 * t8321 + 0.12275398252861705259e-8 * t3260 * t8311 - 0.13128279609375000000e1 * t8990 * t2446 + 0.43760932031250000000e0 * t2763 * t3222 * t2453 - 0.61538810668945312500e-1 * t3219 * t8321 + 0.20512936889648437500e-1 * t3223 * t8311 - 0.28889129907915607454e0 * t9001 * t2446 + 0.99652659610061645511e-3 * t408 * t9004 * t8334;
4350   t9011 = t363 * t132;
4351   t9012 = t9011 * t938;
4352   t9015 = t365 * t422;
4353   t9019 = t390 * t64;
4354   t9020 = t9019 * t911;
4355   t9023 = t383 * t3171;
4356   t9027 = t371 * t144;
4357   t9028 = t9027 * t949;
4358   t9031 = t374 * t1012;
4359   t9035 = t380 * t158;
4360   t9036 = t9035 * t958;
4361   t9040 = t2747 * t170 * t911;
4362   t9058 = 0.54185867016609236597e-3 * t9012 * t8903 - 0.41681436166622489691e-4 * t364 * t9015 * t8334 + 0.15628904296875000000e0 * t9020 * t8903 - 0.35710249462870415299e-8 * t381 * t9023 * t8334 - 0.96245513086492717270e-5 * t9028 * t8903 + 0.66050842314259707928e-6 * t372 * t9031 * t8334 + 0.56541228316211490891e-7 * t9036 * t8903 + 0.22644545781250000000e1 * t9040 * t746 - 0.75481819270833333333e0 * t2748 * t915 * t773 + 0.15772026846101100091e-7 * t2877 * t2439 - 0.52573422820337000301e-8 * t2880 * t2423 + 0.14879270609529339708e-9 * t959 * t8362 - 0.49597568698431132360e-10 * t963 * t8325 + 0.37699290092599090577e-1 * t2888 * t2439 - 0.60788122362137603760e-2 * t2833 * t2439;
4363   t9087 = t2772 * t356 * t3237;
4364   t9093 = 0.20262707454045867921e-2 * t2836 * t2423 - 0.99652659610061645509e-4 * t930 * t8362 + 0.33217553203353881836e-4 * t934 * t8325 + 0.22627065347595065831e-3 * t2844 * t2439 - 0.75423551158650219441e-4 * t2847 * t2423 + 0.29772454404730349779e-5 * t939 * t8362 - 0.99241514682434499264e-6 * t945 * t8325 + 0.24224801660156250000e0 * t2855 * t2439 - 0.26048173828125000000e-2 * t916 * t8325 - 0.27318326154057312012e-3 * t925 * t8325 + 0.96297099693052024841e-1 * t2768 * t3231 * t2453 - 0.92199350769943428041e-2 * t3228 * t8321 + 0.30733116923314476013e-2 * t3232 * t8311 + 0.60240032734282264709e-1 * t9087 * t2446 - 0.20080010911427421570e-1 * t2773 * t3241 * t2453;
4365   t9114 = 0.14574201467971515656e-2 * t3238 * t8321 - 0.48580671559905052186e-3 * t3242 * t8311 - 0.75037500000000000000e1 * t8072 + 0.25012500000000000000e1 * t8074 + 0.20843750000000000000e-1 * t8157 - 0.15007500000000000000e2 * t8159 + 0.50025000000000000000e1 * t8161 - 0.75037500000000000000e0 * t8163 + 0.50025000000000000000e0 * t8165 - 0.62531250000000000000e-1 * t8168 - 0.12506250000000000000e1 * t8170 + 0.41687500000000000000e0 * t8172 + 0.42208593750000000000e1 * t8176 + 0.13287021281341552734e-2 * t1048 * t3263 - 0.44290070937805175784e-3 * t294 * t3266;
4366   t9121 = t1435 * t356;
4367   t9138 = t1441 * t321;
4368   t9152 = 0.16608776601676940918e-4 * t357 * t138 * t8142 + 0.47235779712791554630e-11 * t172 * t423 * t8155 + 0.45441612782188110353e0 * t9121 * t358 - 0.15147204260729370118e0 * t3137 * t318 + 0.37868010651823425294e-1 * t3275 * t1053 - 0.12622670217274475098e-1 * t1098 * t1031 - 0.39696605872973799704e-4 * t1034 * t2665 - 0.39696605872973799705e-6 * t322 * t151 * t8142 - 0.14170733913837466389e-10 * t417 * t178 * t8142 - 0.21912526441881537437e-1 * t9138 * t323 + 0.73041754806271791457e-2 * t2628 * t327 - 0.14290778114270567894e-2 * t3269 * t1039 + 0.47635927047568559646e-3 * t1092 * t1042 + 0.60707391453460693359e-4 * t121 * t352 * t8155 + 0.76491313231360473634e-1 * t1095 * t1045;
4369   t9178 = t3217 * t3222;
4370   t9181 = t3226 * t3231;
4371   t9184 = t3254 * t3259;
4372   t9187 = t2821 * t924;
4373   t9190 = -0.10927330461622924805e-1 * t1060 * t2639 + 0.36424434872076416016e-2 * t313 * t2642 - 0.18212217436038208008e-3 * t348 * t127 * t8142 + 0.78144521484375000000e-2 * t912 * t8362 - 0.32199785628201607616e-5 * t2866 * t2439 + 0.10733261876067202538e-5 * t2869 * t2423 - 0.35384379811210557820e-7 * t950 * t8362 + 0.11794793270403519273e-7 * t954 * t8325 - 0.35726945285676419734e-2 * t2937 * t3025 - 0.18754685156250000000e1 * t2960 * t3028 + 0.24615524267578125000e0 * t9178 * t8195 + 0.55319610461966056823e-1 * t9181 * t8195 + 0.51556672662019162089e-7 * t9184 * t8195 - 0.59007584492763793946e-1 * t9187 * t8200;
4374   t9191 = t3205 * t962;
4375   t9194 = t3209 * t933;
4376   t9197 = t2805 * t944;
4377   t9200 = t2813 * t915;
4378   t9203 = t957 * t3193;
4379   t9206 = t3197 * t953;
4380   t9209 = t928 * t3213;
4381   t9215 = t422 * t2553;
4382   t9219 = t2651 * t124;
4383   t9229 = t3159 * t175;
4384   t9232 = t2645 * t162;
4385   t9235 = -0.62492936560023226775e-7 * t9191 * t8200 + 0.13154151068528137207e-1 * t9194 * t8200 - 0.62522154249933734536e-3 * t9197 * t8200 - 0.23443356445312500000e0 * t9200 * t8200 + 0.24997174624009290710e-7 * t9203 * t8209 + 0.10827620222230430692e-4 * t9206 * t8200 - 0.59791595766036987307e-2 * t9209 * t8209 - 0.94358346163228154181e-7 * t1131 * t8659 * t249 + 0.36694912396810948848e-7 * t2671 * t9215 * t275 + 0.13768436381644885254e1 * t9219 * t1128 - 0.26225593107895019532e0 * t1412 * t2740 + 0.98345974154606323243e-1 * t2736 * t2743 - 0.15871221983497962355e-7 * t307 * t175 * t2678 + 0.14165065620271931402e-5 * t9229 * t1138 - 0.24627528348602548242e-3 * t9232 * t1133;
4386   t9246 = t164 * t2544;
4387   t9250 = t177 * t2544;
4388   t9262 = t3182 * t3187;
4389   t9269 = t3236 * t3241;
4390   t9274 = 0.24061378271623179316e-4 * t1366 * t2685 - 0.84922511546905338764e-5 * t2681 * t2689 - 0.84922511546905338764e-5 * t2681 * t2693 + 0.33025421157129853964e-5 * t303 * t162 * t2673 + 0.26734864746247977019e-6 * t1516 * t9246 * t249 - 0.94358346163228154183e-7 * t1131 * t9250 * t275 - 0.11903416487623471767e-6 * t1380 * t2710 + 0.41661957706682151184e-7 * t2707 * t2714 + 0.41661957706682151184e-7 * t2707 * t2717 + 0.89275623657176038249e-8 * t3206 * t8204 + 0.53590417928514629601e-3 * t9262 * t8195 - 0.46886712890625000000e-1 * t3065 * t8183 + 0.23443356445312500000e-1 * t2818 * t8187 - 0.11659361174377212525e-1 * t9269 * t8195 + 0.17863472642838209867e-4 * t2810 * t8187;
4391   t9297 = 0.11721678222656250000e0 * t2814 * t8204 - 0.32885377671320343018e-2 * t3210 * t8204 - 0.49826329805030822755e-3 * t3214 * t8187 + 0.12504430849986746907e-3 * t2806 * t8204 + 0.11903416487623471766e-8 * t3194 * t8187 - 0.18046033703717384488e-5 * t3198 * t8204 - 0.24769065867847390472e-6 * t3202 * t8187 - 0.28139062500000000000e0 * t8180 - 0.28139062500000000000e0 * t8184 + 0.18759375000000000000e0 * t8188 - 0.30015000000000000000e1 * t8191 + 0.84417187500000000000e0 * t8196 - 0.56278125000000000000e0 * t8201 + 0.56278125000000000000e0 * t8205 + 0.56278125000000000000e0 * t8210;
4392   t9306 = t1447 * t330;
4393   t9309 = t168 * t416;
4394   t9315 = t545 * t119;
4395   t9335 = 0.74197962772852974013e-6 * t2619 * t424 - 0.10117904014479951002e-6 * t3159 * t1079 + 0.33726346714933170005e-7 * t1109 * t1056 + 0.38309488542270630600e-3 * t9306 * t332 - 0.22259388831855892204e-5 * t9309 * t418 - 0.13105325856003910303e-8 * t159 * t335 * t8155 - 0.19887741440153723144e1 * t9315 * t349 + 0.66292471467179077149e0 * t2625 * t353 - 0.22947393969408142090e0 * t2651 * t1065 - 0.15726391027204692364e-6 * t303 * t3156 + 0.39315977568011730910e-8 * t331 * t165 * t8142 - 0.12769829514090210200e-3 * t2622 * t336 + 0.20522940290502123536e-4 * t2645 * t1087 - 0.68409800968340411784e-5 * t1106 * t1071 + 0.47179173081614077092e-6 * t1082 * t3153;
4396   t9342 = t3084 * t111;
4397   t9372 = t3275 * t135;
4398   t9377 = 0.20838539062500000000e-1 * t1121 * t8232 * t249 - 0.10419269531250000000e-1 * t2933 * t8544 * t275 + 0.56264055468750000000e1 * t9342 * t1123 - 0.15628904296875000000e1 * t1260 * t2963 + 0.62515617187500000000e0 * t2960 * t2966 + 0.66435106406707763675e-2 * t294 * t135 * t2733 + 0.73078617047378540040e-3 * t1496 * t8540 * t249 + 0.62515617187500000000e0 * t2960 * t2930 - 0.31257808593750000000e0 * t310 * t111 * t2934 - 0.52096347656250000000e-1 * t1475 * t8249 * t249 + 0.20838539062500000000e-1 * t1121 * t8536 * t275 - 0.26574042562683105469e-3 * t1141 * t8527 * t249 + 0.11072517734451293946e-3 * t2731 * t8655 * t275 - 0.30294408521458740236e0 * t9372 * t1143 + 0.43847170228427124024e-1 * t1337 * t2721;
4399   t9418 = -0.15944425537609863281e-1 * t2957 * t2725 - 0.15944425537609863282e-1 * t2957 * t2728 + 0.15791309816268977522e-2 * t856 * t144 * t3106 + 0.13232201957657933235e-6 * t145 * t326 * t8155 + 0.86827246093750000000e-3 * t108 * t343 * t8155 - 0.26051749636003773194e-4 * t863 * t158 * t3111 + 0.14520042504813559936e-6 * t870 * t171 * t3116 + 0.90256922314453125000e0 * t836 * t107 * t3091 + 0.18030095261677825928e0 * t130 * t120 * t3096 - 0.35706793596530213356e-1 * t849 * t132 * t3101 + 0.34730898437500000000e-1 * t310 * t3272 - 0.26048173828125000000e-2 * t339 * t114 * t8142 + 0.13232201957657933235e-4 * t298 * t3081 - 0.70330069335937500000e1 * t3513 * t992 - 0.14066013867187500000e1 * t1068 * t971;
4400   t9432 = t117 * t170;
4401   t9453 = -0.15007500000000000000e1 * t8213 - 0.75037500000000000000e0 * t8216 + 0.41654811717005767823e0 * t3954 * t1008 + 0.63113351086372375492e-1 * t1098 * t979 + 0.66130091597908176480e-9 * t307 * t2648 - 0.19839027479372452945e-8 * t1074 * t2668 - 0.55362588672256469728e-5 * t133 * t317 * t8155 - 0.75018740625000000000e1 * t9432 * t340 + 0.25006246875000000000e1 * t3141 * t344 - 0.13190185546875000000e0 * t8224 - 0.28581556228541135788e-2 * t1092 * t988 - 0.95227331900987774135e-8 * t1136 * t1012 * t275 * t8182 - 0.48122756543246358632e-5 * t1516 * t1132 * t8178 + 0.52451186215790039063e-1 * t1486 * t1127 * t8178 + 0.23806832975246943533e-7 * t1526 * t1137 * t8178;
4402   t9505 = -0.18754685156250000000e0 * t1121 * t1127 * t8186 - 0.26225593107895019532e-1 * t1126 * t1142 * t8186 + 0.19815252694277912378e-5 * t1131 * t1137 * t8186 - 0.10605948110351562500e1 * t8016 * t107 * t508 * t840 - 0.87694340456854248048e-2 * t1496 * t1142 * t8178 + 0.33345148933297991752e-3 * t1506 * t1117 * t8178 + 0.31257808593750000000e0 * t1475 * t1122 * t8178 + 0.26742280461821140544e0 * t714 * t120 * t401 * t404 + 0.28570676418042617043e-2 * t8462 * t144 * t365 * t368 - 0.59921390279479721918e-1 * t8456 * t132 * t410 * t413 + 0.39861063844024658204e-2 * t1141 * t1117 * t8186 - 0.14290778114270567893e-3 * t1116 * t1132 * t8186 + 0.28661936350926383037e-6 * t8475 * t171 * t383 * t386 - 0.49584145990922528008e-4 * t8469 * t158 * t374 * t377;
4403   t9558 = -0.23569644731806114196e0 * t5171 * t120 * t522 * t846 + 0.10521532732204861111e1 * t8218 * t107 * t392 * t395 + 0.38240357948380209971e-4 * t11 * t302 * t158 * t564 * t867 + 0.49399345839896044731e-1 * t11 * t293 * t132 * t536 * t853 - 0.22629711787986597419e-2 * t11 * t297 * t144 * t550 * t860 - 0.21687835897331114393e-6 * t11 * t306 * t171 * t578 * t874 - 0.20007089359978795052e-1 * t4021 * t983 - 0.30596525292544189454e0 * t1095 * t967 - 0.18357915175526513672e1 * t4009 * t975 + 0.31257808593750000000e-1 * t1121 * t2739 * t806 - 0.39861063844024658204e-3 * t1141 * t2724 * t806 + 0.32781991384868774414e-2 * t1126 * t2720 * t806 + 0.11908981761892139911e-4 * t1116 * t2684 * t806 - 0.14153751924484223127e-6 * t1131 * t2688 * t806 + 0.59517082438117358834e-9 * t1136 * t2713 * t806;
4404   t9600 = 0.79722127688049316409e-1 * t2957 * t3022 + 0.78676779323685058595e0 * t1412 * t3032 - 0.10490237243158007813e0 * t1486 * t3039 * t777 + 0.83323915413364302368e-6 * t1380 * t3036 + 0.15077660884323064238e-6 * t3844 * t422 * t2575 * t275 - 0.95227331900987774136e-7 * t1526 * t1012 * t738 * t777 - 0.17538868091370849610e0 * t1337 * t3040 + 0.83362872333244979379e-2 * t1352 * t3046 - 0.10003544679989397526e-2 * t1506 * t3018 * t777 + 0.31257808593750000000e1 * t1260 * t3050 - 0.46886712890625000000e0 * t1475 * t3031 * t777 - 0.33329566165345720948e-6 * t2707 * t3054 + 0.28568199570296332241e-7 * t1136 * t3171 * t2499 * t249 - 0.14436826962973907590e-3 * t1366 * t3019 + 0.16842964790136225521e-4 * t1516 * t3035 * t777;
4405   t9612 = t150 * t2544;
4406   t9639 = 0.47886860677838288248e-4 * t1106 * t1000 - 0.20235808028959902004e-5 * t3944 * t1004 + 0.34888998493853610011e-3 * t4038 * t996 - 0.26981077371946536004e-6 * t1109 * t1014 + 0.39678054958744905889e-9 * t1136 * t9215 * t249 - 0.26574042562683105469e-3 * t1141 * t9612 * t275 + 0.59544908809460699557e-3 * t2937 * t2946 - 0.23817963523784279824e-3 * t298 * t148 * t2950 - 0.22230099288865327835e-4 * t1506 * t9612 * t249 + 0.79393211745947599408e-5 * t1116 * t9246 * t275 - 0.11336587131069973111e-8 * t1526 * t9250 * t249 + 0.39678054958744905889e-9 * t1136 * t422 * t2544 * t275 + 0.75037500000000000000e1 * t8226 + 0.32781991384868774415e-2 * t2827 * t8187 - 0.73759480615954742432e-2 * t3068 * t8183;
4407   t9642 = t2832 * t933;
4408   t9661 = 0.48630497889710083008e-1 * t9642 * t2479 - 0.21880466015625000000e1 * t154 * t107 * t114 + 0.25012500000000000000e0 * t8230 - 0.16675000000000000000e0 * t8234 + 0.37518750000000000000e1 * t8236 + 0.37518750000000000000e1 * t8238 - 0.25012500000000000000e1 * t8243 - 0.50025000000000000000e0 * t8247 + 0.25012500000000000000e0 * t8251 + 0.21104296875000000000e1 * t8257 - 0.70347656250000000000e0 * t8262 + 0.15007500000000000000e1 * t8266 + 0.75037500000000000000e0 * t8270 + 0.15007500000000000000e2 * t8273 - 0.75037500000000000000e1 * t8275;
4409   t9695 = -0.75037500000000000000e1 * t8277 + 0.75037500000000000000e0 * t8280 + 0.37518750000000000000e0 * t8283 + 0.16093904527024955750e0 * t130 * t132 * t138 - 0.25012500000000000000e1 * t8286 - 0.25012500000000000000e1 * t8289 - 0.78144521484375000000e-2 * t108 * t970 * t8055 - 0.23817963523784279823e-5 * t145 * t987 * t8055 + 0.54808962785533905030e-3 * t1007 * t138 * t8066 - 0.39072260742187500000e-1 * t991 * t114 * t8066 - 0.72848869744152832032e-3 * t121 * t966 * t8055 - 0.16672574466648995876e-4 * t982 * t151 * t8066 + 0.83043883008384704592e-4 * t133 * t978 * t8055 - 0.43709321846491699218e-2 * t974 * t127 * t8066 - 0.37622968750000000000e1 * t8293;
4410   t9738 = 0.18759375000000000000e0 * t8297 + 0.24688263888888888889e1 * t8301 + 0.15007500000000000000e1 * t8305 - 0.15007500000000000000e1 * t8308 - 0.11336587131069973111e-9 * t172 * t1013 * t8055 + 0.20051148559685982764e-6 * t995 * t165 * t8066 + 0.27521184297608211636e-7 * t159 * t999 * t8055 - 0.85024403483024798334e-9 * t1003 * t178 * t8066 + 0.20405856835925951600e-8 * t2676 * t3171 * t777 * t806 - 0.25665470156398057938e-4 * t3812 * t177 * t2575 * t275 + 0.64163675390995144846e-5 * t3812 * t3045 * t758 - 0.24061378271623179316e-5 * t1516 * t3018 * t806 - 0.52840673851407766342e-5 * t1131 * t1012 * t2499 * t249 - 0.44033894876173138618e-6 * t2671 * t3053 * t806 + 0.25006246875000000000e0 * t1121 * t150 * t2499 * t249;
4411   t9754 = 0.14069531250000000000e0 * t8312 - 0.84417187500000000000e0 * t8318 - 0.42208593750000000000e0 * t8322 - 0.31265625000000000000e-1 * t8326 + 0.10005000000000000000e1 * t8329 - 0.18759375000000000000e0 * t8335 + 0.30015000000000000000e1 * t8338 - 0.28139062500000000000e0 * t8343 - 0.47836406250000000000e1 * t8346 + 0.15945468750000000000e1 * t8349 + 0.65449375000000000000e1 * t8352 - 0.21816458333333333333e1 * t8355 + 0.15007500000000000000e1 * t8357 - 0.50025000000000000000e0 * t8359 + 0.93796875000000000000e-1 * t8363;
4412   t9765 = t814 * t184 * t810;
4413   t9778 = t3293 * t2583;
4414   t9782 = 0.1e1 / t1162 / t822;
4415   t9798 = t1160 * t1160;
4416   t9799 = params->d * t9798;
4417   t9800 = t1162 * t1162;
4418   t9801 = 0.1e1 / t9800;
4419   t9805 = -0.6e1 * t429 * t1152 * t8375 * t184 - 0.3e1 * t1161 * t1163 * t8375 * t184 - 0.36e2 * t1161 * t3311 * t8381 * t184 - 0.24e2 * t429 * t3298 * t8381 * t184 - 0.12e2 * t3309 * t9782 * t8381 * t184 + t429 * t430 * t8367 * t184 - t9799 * t9801 * t8381 * t184 - 0.8e1 * t1537 * t9778 - 0.4e1 * t1545 * t9778 + 0.36e2 * t4260 * t9765 + 0.36e2 * t4268 * t9765 + 0.6e1 * t4280 * t9765;
4420   t9806 = my_piecewise3(t102, t8695 + t8777 + t9505 + t8966 + t9453 + t9639 + t9190 + t9335 + t8867 + t9297 + t9152 + t9274 + t8647 + t9114 + t9418 + t9093 + t9235 + t9754 + t9695 + t9661 + t8812 + t9377 + t9008 + t9058 + t9558 + t8525 + t8922 + t9738 + t8468 + t9600 + t8733 + t8581, t9805);
4421   t9809 = -0.24e2 * t7989 * t7990 * t187 + 0.36e2 * t2370 * t692 * t830 - 0.24e2 * t2370 * t2371 * t434 - 0.6e1 * t690 * t8000 * t187 + 0.24e2 * t690 * t833 * t830 - 0.8e1 * t690 * t291 * t2610 + 0.12e2 * t690 * t691 * t1168 + t217 * (0.26180e5 / 0.19683e5 * t18 * t8013 + 0.5225e4 / 0.729e3 * t34 * t36 / t8016 * t45 - 0.5929e4 / 0.72e2 * t232 * t233 / t545 * t45 + 0.2949e4 / 0.160e3 * t712 * t713 / t882 * t719 - 0.1053e4 / 0.400e3 * t2402 * t2403 / t1436 * t2409 + 0.6561e4 / 0.10000e5 * t8040 * t713 * t35 / t131 * t45 + 0.6e1 * t8047 + 0.8e1 * t287 * t2607 + 0.2e1 * t94 * t8406) * t187 - 0.4e1 * t217 * t2610 * t434 - 0.6e1 * t217 * t830 * t1168 - 0.4e1 * t217 * t290 * t3316 - t101 * t9806 + 0.1174e1 * t9806;
4422   t9814 = -t8 * t12 * t3320 - t8 * t675 * t1172 / 0.2e1 + 0.2e1 / 0.9e1 * t8 * t605 * t438 + 0.16108322419143251373e3 * t7943 * t1198 + 0.51458160000000000000e4 * t596 * t7 * t7947 * t190 * t3346 - 0.14e-18 * t7955 * t3351 - 0.49479000000000000000e1 * t596 * t683 * t1171 * t456 - 0.21534768840753600000e3 * t596 * t7 * t23 * t3358 - 0.55416480000000000000e4 * t466 * t446 * t449 * t7972 * t3336 * t35 * t7976 - 0.17812440000000000000e3 * t1181 * t3324 * t1190 - 0.98958000000000000000e1 * t447 * t448 * t3319 * t456 - 0.3e1 / 0.16e2 * t212 * t213 * t9809 * t205;
4423   t9823 = t596 * t7 * t3338 * t190;
4424   t9826 = t5 * t597;
4425   t9861 = 0.21990666666666666667e1 * t596 * t2343 * t437 * t456 - 0.22372670026587849130e2 * t7955 * t1198 - 0.91627777777777777788e0 * t9823 * t456 + 0.87635410908814532668e3 * t9826 * t2068 * t30 * t192 * t204 - 0.64604306522260799999e3 * t3355 * t437 * t10 * t3357 + 0.35624880000000000000e3 * t596 * t2357 * t437 * t1190 - 0.37933900000000000000e3 * t596 * t7 * t40 * t190 * t1190 - 0.5e1 / 0.54e2 * t8 * t459 * t206 + 0.24162483628714877060e3 * t1193 * t3324 * t1198 - 0.23749920000000000000e4 * t3334 * t1176 * t3346 + 0.33073550421531692069e1 * t7943 * t3351 - 0.64604306522260800000e3 * t9823 * t1185 * t204 * t193 * t194;
4426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4427     v4rho4[0] = t9814 + t9861;
4428 
4429   t9865 = t2362 * t2;
4430   t9866 = t9865 * t1556;
4431   t9872 = t2342 * t446;
4432   t9888 = t10 * t2381;
4433   t9905 = t596 * t1560 * t3342;
4434   t9909 = t5 * t1560 * t13;
4435   t9913 = t596 * t4301 * t1185;
4436   t9920 = -0.59374800000000000000e3 * t3334 * t1556 * t3346 + 0.82683876053829230172e0 * t9866 * t3351 + 0.12081241814357438530e3 * t1193 * t4291 * t1198 + 0.5497666666666666667e0 * t9872 * t1556 * t456 - 0.16779502519940886847e2 * t1575 * t2362 * t13 * t1197 + 0.86588250000000000000e2 * t1565 * t18 * t1566 * t2356 - 0.77929425000000000000e2 * t4306 * t4329 - 0.75507761339733990810e2 * t4310 * t4333 - 0.15585885000000000000e4 * t4314 * t4315 * t9888 * t194 - 0.51677422533643268850e0 * t4321 * t4322 * t9 * t2362 * t204 + 0.24226614945847799999e3 * t596 * t597 * t599 * t2342 * t1185 * t7976 + 0.66796650000000000000e3 * t9905 * t4317 - 0.93019360560557883943e0 * t9909 * t4325 + 0.33398325000000000000e2 * t9913 * t1569 - 0.45304656803840394486e2 * t5 * t4301 * t1573 * t1577;
4437   t9927 = t57 * t2 * t4;
4438   t9934 = t2356 * t446;
4439   t9939 = t596 * t597 * t7972;
4440   t9991 = t3487 * t74;
4441   t9992 = t9991 * t1241;
4442   t9994 = t2469 * t3414;
4443   t9997 = t749 * t1338 * t2499;
4444   t10000 = t39 * t106 * t482;
4445   t10001 = t10000 * t485;
4446   t10003 = t2469 * t3433;
4447   t10007 = t1231 * t83 * t3410 * t249;
4448   t10009 = t113 * t3410;
4449   t10011 = t749 * t10009 * t275;
4450   t10013 = t2513 * t1233;
4451   t10015 = t8272 * t1241;
4452   t10017 = t793 * t3429;
4453   t10019 = t2469 * t3436;
4454   t10021 = 0.9e1 / 0.16e2 * t9992 - 0.45e2 / 0.16e2 * t9994 + 0.9e1 / 0.16e2 * t9997 + 0.5225e4 / 0.3456e4 * t10001 + 0.45e2 / 0.16e2 * t10003 - 0.9e1 / 0.16e2 * t10007 + 0.9e1 / 0.32e2 * t10011 - 0.45e2 / 0.4e1 * t10013 + 0.45e2 / 0.8e1 * t10015 - 0.45e2 / 0.16e2 * t10017 + 0.45e2 / 0.32e2 * t10019;
4455   t10022 = t5943 * t3429;
4456   t10025 = t1231 * t3425 * t758;
4457   t10028 = t1231 * t1232 * t2544;
4458   t10031 = t749 * t3432 * t806;
4459   t10034 = t749 * t1240 * t2553;
4460   t10036 = t1250 * t3411;
4461   t10039 = my_piecewise3(t61, 0.154e3 / 0.27e2 * t9888, 0);
4462   t10041 = t483 * t484 * t10039;
4463   t10044 = t8254 * t1232 * t230;
4464   t10047 = t749 * t3593 * t777;
4465   t10049 = t3418 * t1268;
4466   t10051 = t793 * t3426;
4467   t10053 = t786 * t1246;
4468   t10055 = -0.9e1 / 0.16e2 * t10022 - 0.9e1 / 0.16e2 * t10025 - 0.3e1 / 0.16e2 * t10028 + 0.9e1 / 0.32e2 * t10031 + 0.3e1 / 0.32e2 * t10034 + 0.25e2 / 0.256e3 * t10036 + t10041 / 0.256e3 + 0.405e3 / 0.512e3 * t10044 - 0.9e1 / 0.16e2 * t10047 + 0.275e3 / 0.384e3 * t10049 - 0.45e2 / 0.8e1 * t10051 - 0.45e2 / 0.8e1 * t10053;
4469   t10057 = t270 * t3482;
4470   t10060 = t244 * t84 * t10039;
4471   t10062 = t3487 * t1246;
4472   t10064 = t2507 * t477;
4473   t10066 = t2526 * t477;
4474   t10069 = t1231 * t1240 * t8182;
4475   t10072 = t749 * t1413 * t8186;
4476   t10074 = t763 * t1256;
4477   t10076 = t3418 * t1265;
4478   t10079 = t117 * t106 * t111;
4479   t10080 = t10079 * t1261;
4480   t10082 = t3508 * t3518;
4481   t10084 = -0.45e2 / 0.32e2 * t10057 - 0.3e1 / 0.32e2 * t10060 - 0.9e1 / 0.16e2 * t10062 - 0.45e2 / 0.8e1 * t10064 - 0.45e2 / 0.16e2 * t10066 + 0.9e1 / 0.16e2 * t10069 - 0.9e1 / 0.16e2 * t10072 + 0.275e3 / 0.96e2 * t10074 - 0.275e3 / 0.192e3 * t10076 - 0.4495e4 / 0.4608e4 * t10080 + 0.25e2 / 0.32e2 * t10082;
4482   t10085 = t3508 * t3522;
4483   t10087 = t1250 * t3529;
4484   t10089 = t3514 * t3525;
4485   t10091 = t793 * t3504;
4486   t10093 = t249 * t777;
4487   t10095 = t1231 * t1413 * t10093;
4488   t10097 = t700 * t63;
4489   t10098 = t10097 * t482;
4490   t10099 = t10098 * t3493;
4491   t10101 = t480 * t62;
4492   t10102 = t10101 * t482;
4493   t10103 = t476 * t2575;
4494   t10105 = t10102 * t484 * t10103;
4495   t10107 = t1250 * t3497;
4496   t10109 = t476 * t2499;
4497   t10111 = t483 * t538 * t10109;
4498   t10113 = t3410 * t249;
4499   t10115 = t1254 * t484 * t10113;
4500   t10117 = t1245 * t758;
4501   t10119 = t1254 * t484 * t10117;
4502   t10121 = t476 * t2544;
4503   t10123 = t1254 * t484 * t10121;
4504   t10125 = 0.25e2 / 0.64e2 * t10085 - 0.25e2 / 0.64e2 * t10087 - 0.65e2 / 0.256e3 * t10089 + 0.45e2 / 0.8e1 * t10091 - 0.9e1 / 0.8e1 * t10095 + 0.75e2 / 0.64e2 * t10099 + 0.3e1 / 0.32e2 * t10105 + 0.75e2 / 0.128e3 * t10107 - 0.3e1 / 0.32e2 * t10111 + 0.3e1 / 0.64e2 * t10115 + 0.3e1 / 0.64e2 * t10119 + t10123 / 0.64e2;
4505   t10129 = t1260 * t10009 * t67;
4506   t10131 = t3410 * t275;
4507   t10133 = t483 * t510 * t10131;
4508   t10135 = t1245 * t738;
4509   t10137 = t3491 * t484 * t10135;
4510   t10140 = t2762 * t106 * t508;
4511   t10141 = t230 * t10;
4512   t10143 = t10140 * t1240 * t10141;
4513   t10145 = t1245 * t777;
4514   t10147 = t483 * t524 * t10145;
4515   t10149 = t1245 * t806;
4516   t10151 = t483 * t510 * t10149;
4517   t10153 = t476 * t2553;
4518   t10155 = t483 * t510 * t10153;
4519   t10158 = t1231 * t3432 * t3443;
4520   t10161 = t1231 * t1240 * t8178;
4521   t10163 = t8345 * t3469;
4522   t10165 = t5188 * t765;
4523   t10166 = t2444 * t10165;
4524   t10168 = -0.15e2 / 0.1024e4 * t10129 - 0.3e1 / 0.128e3 * t10133 + 0.9e1 / 0.64e2 * t10137 - 0.945e3 / 0.8192e4 * t10143 + 0.9e1 / 0.128e3 * t10147 - 0.3e1 / 0.128e3 * t10151 - t10155 / 0.128e3 + 0.9e1 / 0.8e1 * t10158 + 0.9e1 / 0.16e2 * t10161 - 0.459e3 / 0.256e3 * t10163 - 0.81e2 / 0.256e3 * t10166;
4525   t10169 = t2426 * t3466;
4526   t10172 = t3410 * t9 * t67;
4527   t10173 = t744 * t10172;
4528   t10175 = t8351 * t1237;
4529   t10178 = t253 * t738 * t743;
4530   t10179 = t10178 * t1237;
4531   t10181 = t3490 * t3441;
4532   t10182 = t2097 * t8199;
4533   t10183 = t10181 * t10182;
4534   t10185 = t2097 * t8203;
4535   t10186 = t5925 * t10185;
4536   t10188 = t141 * t63;
4537   t10189 = t10188 * t114;
4538   t10190 = t3492 * t67;
4539   t10191 = t10189 * t10190;
4540   t10193 = t5188 * t3443;
4541   t10194 = t3442 * t10193;
4542   t10196 = t2097 * t8178;
4543   t10197 = t3442 * t10196;
4544   t10199 = t2097 * t8182;
4545   t10200 = t3442 * t10199;
4546   t10202 = t3517 * t67;
4547   t10203 = t3448 * t10202;
4548   t10205 = t3521 * t67;
4549   t10206 = t3448 * t10205;
4550   t10208 = 0.9e1 / 0.8e1 * t10169 + 0.27e2 / 0.256e3 * t10173 + 0.157e3 / 0.64e2 * t10175 + 0.27e2 / 0.128e3 * t10179 - 0.9e1 / 0.32e2 * t10183 + 0.9e1 / 0.64e2 * t10186 - 0.45e2 / 0.256e3 * t10191 - 0.3e1 / 0.16e2 * t10194 - 0.3e1 / 0.32e2 * t10197 - 0.3e1 / 0.32e2 * t10200 - 0.15e2 / 0.128e3 * t10203 - 0.15e2 / 0.256e3 * t10206;
4551   t10211 = t1245 * t30 * t772;
4552   t10212 = t3452 * t10211;
4553   t10214 = t3453 * t2422;
4554   t10215 = t3452 * t10214;
4555   t10218 = t1245 * t13 * t2532;
4556   t10219 = t3458 * t10218;
4557   t10221 = t482 * t137;
4558   t10222 = t481 * t10221;
4559   t10223 = t2097 * t8186;
4560   t10224 = t10222 * t10223;
4561   t10226 = t3513 * t343;
4562   t10227 = t10226 * t3454;
4563   t10229 = t1259 * t970;
4564   t10230 = t3453 * t2418;
4565   t10231 = t10229 * t10230;
4566   t10234 = t2747 * t106 * t911;
4567   t10235 = t10234 * t3460;
4568   t10237 = t3507 * t3441;
4569   t10238 = t10237 * t3444;
4570   t10240 = t1253 * t10221;
4571   t10241 = t2097 * t10093;
4572   t10242 = t10240 * t10241;
4573   t10244 = t104 * t64;
4574   t10245 = t10244 * t114;
4575   t10246 = t10245 * t3449;
4576   t10250 = t2432 * t769 * t476 * t2479;
4577   t10252 = t3500 * t3473;
4578   t10253 = t2477 * t10252;
4579   t10255 = 0.15e2 / 0.256e3 * t10212 + 0.15e2 / 0.512e3 * t10215 + 0.135e3 / 0.2048e4 * t10219 + 0.9e1 / 0.128e3 * t10224 + 0.65e2 / 0.128e3 * t10227 - 0.45e2 / 0.512e3 * t10231 + 0.1215e4 / 0.2048e4 * t10235 - 0.25e2 / 0.16e2 * t10238 + 0.9e1 / 0.32e2 * t10242 - 0.65e2 / 0.64e2 * t10246 - 0.27e2 / 0.64e2 * t10250 - 0.27e2 / 0.256e3 * t10253;
4580   t10256 = t765 * t249;
4581   t10257 = t2097 * t10256;
4582   t10258 = t8315 * t10257;
4583   t10260 = t2097 * t8194;
4584   t10261 = t8193 * t10260;
4585   t10263 = t3496 * t3473;
4586   t10264 = t8207 * t10263;
4587   t10266 = t8337 * t3474;
4588   t10268 = t3447 * t343;
4589   t10269 = t1255 * t2478;
4590   t10270 = t10268 * t10269;
4591   t10273 = t877 * t64 * t911;
4592   t10274 = t1255 * t803;
4593   t10275 = t10273 * t10274;
4594   t10277 = t3457 * t915;
4595   t10278 = t2452 * t9;
4596   t10279 = t3459 * t10278;
4597   t10280 = t10277 * t10279;
4598   t10282 = t8190 * t3477;
4599   t10284 = t3517 * t3473;
4600   t10285 = t2433 * t10284;
4601   t10287 = t3521 * t3473;
4602   t10288 = t2433 * t10287;
4603   t10290 = t3528 * t3473;
4604   t10291 = t2477 * t10290;
4605   t10293 = t1250 * t3501;
4606   t10295 = -0.81e2 / 0.128e3 * t10258 + 0.81e2 / 0.256e3 * t10261 + 0.27e2 / 0.128e3 * t10264 + 0.9e1 / 0.4e1 * t10266 + 0.15e2 / 0.64e2 * t10270 + 0.135e3 / 0.512e3 * t10275 - 0.135e3 / 0.1024e4 * t10280 - 0.9e1 / 0.8e1 * t10282 + 0.27e2 / 0.64e2 * t10285 + 0.27e2 / 0.128e3 * t10288 - 0.27e2 / 0.128e3 * t10291 - 0.25e2 / 0.128e3 * t10293;
4607   t10298 = t10021 + t10055 + t10084 + t10125 + t10168 + t10208 + t10255 + t10295;
4608   t10305 = t2603 * t488;
4609   t10308 = t489 * t89;
4610   t10311 = t3533 * t279;
4611   t10315 = t1271 * t810;
4612   t10319 = t1271 * t814;
4613   t10323 = t488 * t2583;
4614   t10327 = t488 * t2589;
4615   t10345 = t2589 * t87 * t91;
4616   t10349 = t87 * t2583 * t91;
4617   t10353 = t822 * t2589 * t91;
4618   t10356 = t50 * t10298 * t91 / 0.100e3 - t283 * t10298 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t10305 * t2600 + 0.9e1 / 0.50e2 * t10308 * t2600 + 0.3e1 / 0.100e3 * t823 * t10311 * t91 + 0.3e1 / 0.100e3 * t823 * t10315 * t91 - 0.3e1 / 0.100e3 * t2603 * t10319 * t91 + t823 * t10323 * t91 / 0.100e3 + t8402 * t10327 * t91 / 0.100e3 - 0.539e3 / 0.21870e5 * t51 * t471 * t2381 - 0.9e1 / 0.100e3 * t3534 * t1276 - 0.9e1 / 0.100e3 * t1272 * t824 - 0.9e1 / 0.100e3 * t1272 * t3542 + 0.9e1 / 0.50e2 * t1272 * t3546 - 0.9e1 / 0.100e3 * t489 * t2600 + 0.3e1 / 0.20e2 * t489 * t10345 - 0.3e1 / 0.100e3 * t489 * t10349 - t489 * t10353 / 0.10e2;
4619   t10395 = 0.96245513086492717269e-4 * t5614 * t3813 + 0.14861439520708434284e-4 * t2681 * t3816 + 0.43413623046875000001e-2 * t1466 * t3600 - 0.45894787938816284179e0 * t5458 * t3826 - 0.98345974154606323243e-1 * t2736 * t3829 - 0.30596525292544189452e-1 * t3825 * t3593 * t738 - 0.89317363214191049335e-3 * t2937 * t3807 - 0.21674346806643694638e-3 * t3803 * t3618 * t738 - 0.35726945285676419733e-4 * t1116 * t3635 * t777 + 0.14059214580011554062e-5 * t1450 * t3875 + 0.37518750000000000000e0 * t9992 - 0.18759375000000000000e1 * t9994 + 0.37518750000000000000e0 * t9997 + 0.10084129050925925926e1 * t10001 + 0.18759375000000000000e1 * t10003 - 0.37518750000000000000e0 * t10007 + 0.18759375000000000000e0 * t10011 - 0.75037500000000000000e1 * t10013 + 0.37518750000000000000e1 * t10015 - 0.18759375000000000000e1 * t10017;
4620   t10418 = t1435 * t519 * t135;
4621   t10429 = 0.47766927083333333333e0 * t10049 - 0.37518750000000000000e1 * t10051 - 0.37518750000000000000e1 * t10053 - 0.13210168462851941586e-5 * t1131 * t3848 * t2499 + 0.72342974815373992917e-1 * t845 * t1330 - 0.28937189926149597168e-1 * t3865 * t1333 - 0.20654846783825369517e-1 * t10418 * t1339 + 0.83472663248508453367e-2 * t3949 * t3974 + 0.41736331624254226683e-2 * t3949 * t3958 - 0.33389065299403381347e-2 * t1438 * t3979 + 0.30389536132812500001e-1 * t4004 * t4013;
4622   t10477 = t168 * t561 * t175;
4623   t10482 = -0.26048173828125000000e-1 * t1466 * t3919 - 0.13024086914062500000e-1 * t1466 * t4016 - 0.17799585449218750000e-1 * t4010 * t3968 + 0.22792152099609375000e-2 * t1404 * t510 * t10117 + 0.75973840332031250000e-3 * t1404 * t510 * t10121 - 0.97680651855468750000e-3 * t509 * t524 * t10149 - 0.32560217285156250000e-3 * t509 * t524 * t10153 + 0.48442265088224411013e-3 * t1444 * t3886 + 0.24221132544112205506e-3 * t1444 * t4029 + 0.34394008212639331819e-3 * t4022 * t3889 - 0.84355287480069324375e-5 * t1450 * t4045 - 0.12090924538809936494e-4 * t4039 * t3932 + 0.79393211745947599410e-6 * t1358 * t552 * t10117 + 0.26464403915315866470e-6 * t1358 * t552 * t10121 - 0.29772454404730349779e-6 * t551 * t566 * t10149 - 0.99241514682434499264e-7 * t551 * t566 * t10153 - 0.10063798146923002787e-4 * t866 * t1373 + 0.37077151067611062899e-5 * t3861 * t1376 + 0.27027914393861397790e-5 * t10477 * t1382 - 0.62250297816018573940e-6 * t3939 * t3892;
4624   t10487 = t5682 * t564;
4625   t10490 = t560 * t157;
4626   t10491 = t10490 * t564;
4627   t10495 = t5660 * t578;
4628   t10498 = t574 * t561;
4629   t10499 = t10498 * t578;
4630   t10505 = t8799 * t10;
4631   t10509 = t5676 * t550;
4632   t10512 = t547 * t533;
4633   t10513 = t10512 * t550;
4634   t10523 = t5670 * t536;
4635   t10526 = t532 * t519;
4636   t10527 = t10526 * t536;
4637   t10549 = 0.83472663248508453368e-2 * t1438 * t4084 - 0.91061087180191040040e-3 * t523 * t566 * t10109 - 0.75569933537630081179e-2 * t10523 * t4089 - 0.11875275270199012757e-2 * t10527 * t538 * t10103 - 0.14532679526467323304e-2 * t1444 * t4092 + 0.59048701236048527062e-4 * t1450 * t4073 - 0.55575248222163319588e-5 * t551 * t1390 * t10109 - 0.12594988922938346863e-2 * t3965 * t3988 + 0.91789575877632568358e-1 * t3825 * t1338 * t8199 - 0.50017723399946987627e-3 * t1506 * t1381 * t10093 - 0.47613665950493887068e-7 * t1526 * t3848 * t10093;
4638   t10565 = t1441 * t533 * t148;
4639   t10577 = t5653 * t522;
4640   t10580 = t518 * t143;
4641   t10581 = t10580 * t522;
4642   t10610 = -0.23443356445312500000e0 * t1475 * t1338 * t10093 + 0.10961792557106781006e-1 * t1496 * t1367 * t10093 - 0.52451186215790039063e-1 * t1486 * t1353 * t10093 + 0.54093862681850592299e-2 * t3822 * t1348 + 0.38990640922121959264e-2 * t10565 * t1354 - 0.62974944614691734316e-3 * t3965 * t4026 - 0.31125148908009286971e-6 * t3939 * t4100 + 0.11467160124003421515e-6 * t1455 * t4103 + 0.14532679526467323304e-3 * t537 * t580 * t10109 + 0.37562698461828804015e-1 * t10577 * t4097 + 0.54636652308114624023e-2 * t10581 * t524 * t10103 - 0.19249102617298543454e-4 * t3812 * t1381 * t8199 + 0.31257808593750000000e0 * t3794 * t1413 * t8199 + 0.11308245663242298179e-6 * t3844 * t1399 * t8199 - 0.21923585114213562012e-1 * t3835 * t1353 * t8199 - 0.16694532649701690674e-2 * t1438 * t3961 - 0.23372345709582366943e-2 * t3955 * t3982 + 0.22765271795047760010e-3 * t1329 * t524 * t10117 + 0.75884239316825866699e-4 * t1329 * t524 * t10121 - 0.91061087180191040040e-4 * t523 * t538 * t10149;
4643   t10662 = -0.18754685156250000000e1 * t9432 * t503 - 0.55648472079639730510e-6 * t9309 * t570 - 0.49719353600384307862e0 * t9315 * t514 - 0.54781316104703843593e-2 * t9138 * t542 + 0.16608776601676940918e-4 * t357 * t138 * t10039 - 0.39696605872973799705e-6 * t322 * t151 * t10039 + 0.39315977568011730910e-8 * t331 * t165 * t10039 - 0.14170733913837466389e-10 * t417 * t178 * t10039 - 0.26048173828125000000e-2 * t339 * t114 * t10039 + 0.29876630668340658303e-8 * t4107 * t3904 + 0.14938315334170329152e-8 * t4107 * t3997;
4644   t10688 = t545 * t143 * t124;
4645   t10700 = t2767 * t143 * t522;
4646   t10708 = t2757 * t561 * t578;
4647   t10719 = t2777 * t533 * t550;
4648   t10726 = -0.10864229333942057565e-8 * t1461 * t3907 - 0.54321146669710287824e-9 * t1461 * t4000 - 0.78765662671079917344e-9 * t3994 * t3910 + 0.38969518263053032569e-10 * t1386 * t580 * t10117 + 0.12989839421017677523e-10 * t1386 * t580 * t10121 - 0.14170733913837466389e-10 * t579 * t1390 * t10149 - 0.47235779712791554630e-11 * t579 * t1390 * t10153 + 0.37480427897135416668e0 * t839 * t1405 - 0.16063040527343750000e0 * t3853 * t1408 - 0.11282718256293402778e0 * t10688 * t1414 + 0.60779072265625000001e-1 * t4004 * t3916 + 0.13675291259765625000e-1 * t4049 * t510 * t10135 + 0.39072260742187500000e-2 * t509 * t538 * t10145 - 0.10989073333740234375e-1 * t10700 * t1413 * t10141 - 0.27521184297608211636e-7 * t565 * t1390 * t10145 + 0.21285915980181351188e-6 * t10708 * t1381 * t10141 + 0.81835988352411368395e-9 * t4060 * t580 * t10135 + 0.12753660522453719750e-9 * t579 * t4064 * t10145 + 0.32698528934551477433e-3 * t10719 * t1353 * t10141 + 0.11908981761892139912e-4 * t4069 * t552 * t10135;
4649   t10744 = t1447 * t157 * t162;
4650   t10771 = t1458 * t575 * t1397;
4651   t10774 = t3492 * t3473;
4652   t10783 = -0.93375446724027860910e-8 * t1372 * t566 * t10117 - 0.31125148908009286970e-8 * t1372 * t566 * t10121 + 0.34401480372010264545e-8 * t565 * t580 * t10149 + 0.11467160124003421515e-8 * t565 * t580 * t10153 + 0.55769710580902562166e-7 * t873 * t1387 - 0.20279894756691840787e-7 * t3869 * t1391 - 0.14835708723794209719e-7 * t10771 * t1400 + 0.34421090954112213134e-1 * t8901 * t10774 + 0.73759480615954742431e-2 * t8727 * t10263 - 0.82213444178300857545e-2 * t8911 * t10774 + 0.80158108073843336106e-2 * t8956 * t10257;
4653   t10835 = -0.29148402935943031311e-2 * t9269 * t10260 - 0.37513292549960240722e-3 * t8941 * t10257 + 0.95773721355676576498e-4 * t9306 * t556 - 0.50589520072399755009e-7 * t3159 * t1311 - 0.29772454404730349778e-4 * t1034 * t3762 + 0.35384379811210557819e-6 * t1082 * t3765 - 0.14879270609529339709e-8 * t1074 * t3768 - 0.78144521484375000000e-1 * t1017 * t3771 - 0.81954978462171936036e-2 * t1060 * t3756 + 0.99652659610061645508e-3 * t1048 * t3759 - 0.18212217436038208008e-3 * t348 * t127 * t10039 - 0.71453890571352839468e-3 * t3269 * t1305 + 0.10261470145251061768e-4 * t2645 * t1308 - 0.11473696984704071045e0 * t2651 * t1299 + 0.18934005325911712647e-1 * t3275 * t1302 - 0.70330069335937500000e0 * t3084 * t1296 + 0.11360403195547027588e0 * t9121 * t528 - 0.31261077124966867268e-3 * t2805 * t944 * t476 * t2479 - 0.31246468280011613388e-7 * t3205 * t962 * t476 * t2479 + 0.54138101111152153464e-5 * t3197 * t953 * t476 * t2479;
4654   t10874 = 0.42405921237158618168e-7 * t9036 * t10774 - 0.56567663368987664579e-3 * t8708 * t3477 + 0.66988022410643287001e-4 * t8721 * t10263 + 0.59791595766036987305e-3 * t3059 * t10290 + 0.29895797883018493653e-3 * t3059 * t10252 + 0.60562004150390625000e0 * t3458 * t3474 - 0.24224801660156250000e0 * t8700 * t3477 - 0.11164670401773881167e-4 * t3062 * t10252 + 0.13397604482128657400e-3 * t9262 * t10260 - 0.27369817783971366473e-4 * t4189 * t3474 + 0.96599356884604822847e-5 * t8705 * t3477;
4655   t10900 = t4126 * t171 * t4128;
4656   t10903 = t4127 * t6248;
4657   t10920 = -0.90230168518586922438e-6 * t3198 * t10284 - 0.45115084259293461219e-6 * t3198 * t10287 + 0.64288995069493182237e-5 * t8886 * t10257 + 0.31845941830089502038e-6 * t3071 * t10290 + 0.15922970915044751019e-6 * t3071 * t10252 - 0.22690233553938770202e-5 * t8735 * t10260 + 0.15772026846101100091e-6 * t4155 * t3474 - 0.55202093961353850319e-7 * t8688 * t3477 + 0.15838945743316546082e-2 * t4174 * t3474 + 0.62522154249933734535e-4 * t2806 * t10284 + 0.31261077124966867269e-4 * t2806 * t10287 + 0.40333451402259888710e-8 * t10900 * t10274 - 0.14666709600821777712e-8 * t10903 * t10279 + 0.22318905914294009562e-8 * t3206 * t10287 - 0.36826194758585115777e-7 * t8879 * t10257 - 0.15623234140005806694e-8 * t3074 * t10290 - 0.78116170700029033470e-9 * t3074 * t10252 + 0.12889168165504790522e-7 * t9184 * t10260 - 0.36879740307977371216e-2 * t3068 * t10290 - 0.18439870153988685608e-2 * t3068 * t10252;
4658   t10930 = t903 * t158 * t958;
4659   t10933 = t4154 * t962;
4660   t10936 = t4136 * t352;
4661   t10940 = t882 * t107 * t920;
4662   t10943 = t4143 * t924;
4663   t10963 = t522 * t164;
4664   t10964 = t520 * t10963;
4665   t10967 = t1336 * t978;
4666   t10974 = 0.29304195556640625000e-1 * t2814 * t10287 - 0.23443356445312500000e-1 * t3065 * t10290 - 0.11721678222656250000e-1 * t3065 * t10252 + 0.15079716037039636230e0 * t4144 * t3474 - 0.56548935138898635864e-1 * t8738 * t3477 + 0.98345974154606323242e-2 * t2822 * t10284 + 0.49172987077303161621e-2 * t2822 * t10287 + 0.45530543590095520020e-3 * t10964 * t10223 - 0.12520899487276268006e-2 * t10967 * t10230 + 0.50083597949105072022e-3 * t4196 * t10211 + 0.25041798974552536011e-3 * t4196 * t10214;
4667   t10980 = t4087 * t4203;
4668   t10985 = t297 * t356;
4669   t10986 = t10985 * t151;
4670   t11001 = t302 * t321;
4671   t11002 = t11001 * t165;
4672   t11014 = 0.56344047692743206024e-3 * t4200 * t10218 + 0.16193557186635017396e-2 * t10980 * t10182 - 0.32387114373270034791e-3 * t6278 * t10185 + 0.11335490030644512177e-2 * t10986 * t10190 + 0.26989261977725028993e-3 * t4204 * t10193 + 0.13494630988862514496e-3 * t4204 * t10196 + 0.13494630988862514496e-3 * t4204 * t10199 + 0.18892483384407520295e-3 * t4208 * t10202 + 0.94462416922037601474e-4 * t4208 * t10205 + 0.11908981761892139912e-4 * t6226 * t10185 - 0.50613172488041594625e-4 * t11002 * t10190 + 0.37518750000000000000e0 * t10069 - 0.37518750000000000000e0 * t10072 + 0.19106770833333333333e1 * t10074 - 0.95533854166666666667e0 * t10076 - 0.65064344618055555555e0 * t10080 + 0.52109374999999999999e0 * t10082 + 0.26054687499999999999e0 * t10085 - 0.26054687500000000000e0 * t10087 - 0.16935546875000000000e0 * t10089;
4673   t11040 = -0.15632812500000000000e-1 * t10133 + 0.93796875000000000000e-1 * t10137 - 0.76942749023437500000e-1 * t10143 + 0.46898437500000000000e-1 * t10147 - 0.15632812500000000000e-1 * t10151 - 0.52109375000000000000e-2 * t10155 + 0.75037500000000000000e0 * t10158 + 0.37518750000000000000e0 * t10161 - 0.38701665418511547614e-7 * t4155 * t10218 + 0.13518018391899359894e0 * t8494 * t1237 + 0.13768106136943079531e-2 * t8437 * t1237;
4674   t11045 = t4048 * t4132;
4675   t11050 = t155 * t170;
4676   t11051 = t11050 * t127;
4677   t11084 = t508 * t150;
4678   t11085 = t507 * t11084;
4679   t11088 = 0.18333387001027222140e-9 * t4129 * t10218 - 0.41025873779296875000e-1 * t11045 * t10182 + 0.13675291259765625000e-1 * t6256 * t10185 - 0.27350582519531250000e-1 * t11051 * t10190 - 0.13675291259765625000e-1 * t4133 * t10193 - 0.68376456298828125000e-2 * t4133 * t10196 - 0.68376456298828125000e-2 * t4133 * t10199 + 0.56611364453125000000e0 * t9040 * t1237 - 0.16099892814100803808e-5 * t2866 * t3466 + 0.11597230483124260325e-4 * t8890 * t3469 + 0.78860134230505500455e-8 * t2877 * t3466 - 0.65673380652810123139e-7 * t8979 * t3469 + 0.11313532673797532916e-3 * t2844 * t3466 + 0.12112400830078125000e0 * t2855 * t3466 + 0.18849645046299545289e-1 * t2888 * t3466 - 0.30394061181068801880e-2 * t2833 * t3466 + 0.61466233846628952027e-3 * t921 * t10172 - 0.91168608398437500000e-2 * t4137 * t10202 - 0.45584304199218750000e-2 * t4137 * t10205 + 0.39072260742187500000e-2 * t11085 * t10223;
4680   t11089 = t1411 * t966;
4681   t11102 = t564 * t1012;
4682   t11103 = t1371 * t11102;
4683   t11106 = t562 * t11102;
4684   t11109 = t1379 * t1013;
4685   t11117 = t422 * t3410;
4686   t11124 = t126 * t3410;
4687   t11142 = -0.17200740186005132272e-7 * t4151 * t10214 + 0.29758541219058679417e-9 * t1136 * t11117 * t275 - 0.39072260742187500000e-1 * t1475 * t10009 * t249 + 0.15628904296875000000e-1 * t1121 * t11124 * t275 - 0.83362872333244979379e-3 * t1352 * t3619 + 0.29772454404730349778e-3 * t2937 * t3626 + 0.12030689135811589658e-4 * t1366 * t3629 - 0.42461255773452669384e-5 * t2681 * t3636 - 0.59517082438117358835e-7 * t1380 * t3651 + 0.31257808593750000000e0 * t2960 * t3594 - 0.13112796553947509766e0 * t1412 * t3608;
4688   t11157 = t137 * t3410;
4689   t11164 = t150 * t3410;
4690   t11171 = t164 * t3410;
4691   t11178 = t177 * t3410;
4692   t11207 = 0.49172987077303161622e-1 * t2736 * t3678 + 0.21923585114213562012e-1 * t1337 * t3691 - 0.79722127688049316405e-2 * t2957 * t3698 - 0.43709321846491699218e-2 * t1486 * t11124 * t249 + 0.16390995692434387207e-2 * t1126 * t11157 * t275 + 0.54808962785533905030e-3 * t1496 * t11157 * t249 - 0.19930531922012329101e-3 * t1141 * t11164 * t275 - 0.16672574466648995876e-4 * t1506 * t11164 * t249 + 0.59544908809460699556e-5 * t1116 * t11171 * t275 + 0.20051148559685982764e-6 * t1516 * t11171 * t249 - 0.70768759622421115638e-7 * t1131 * t11178 * t275 - 0.85024403483024798334e-9 * t1526 * t11178 * t249 - 0.19930531922012329101e-3 * t1141 * t3618 * t806 - 0.66435106406707763672e-4 * t1141 * t1353 * t2553 - 0.69203235840320587160e-6 * t537 * t538 * t10039 + 0.20051148559685982764e-6 * t1516 * t3625 * t758 + 0.66837161865619942547e-7 * t1516 * t1367 * t2544 - 0.70768759622421115638e-7 * t1131 * t3635 * t806 + 0.20830978853341075592e-7 * t2707 * t3658 - 0.78144521484375000000e0 * t1260 * t3671;
4693   t11228 = t536 * t177;
4694   t11229 = t534 * t11228;
4695   t11232 = t1351 * t987;
4696   t11240 = t4095 * t4214;
4697   t11245 = t293 * t119;
4698   t11246 = t11245 * t138;
4699   t11261 = -0.72663397632336616518e-4 * t4211 * t10211 - 0.36331698816168308259e-4 * t4211 * t10214 - 0.81954978462171936036e-2 * t11240 * t10182 + 0.20488744615542984009e-2 * t6201 * t10185 - 0.56344047692743206024e-2 * t11246 * t10190 - 0.18212217436038208008e-2 * t4215 * t10193 - 0.91061087180191040040e-3 * t4215 * t10196 - 0.91061087180191040040e-3 * t4215 * t10199 - 0.12520899487276268005e-2 * t4219 * t10202 - 0.62604497436381340026e-3 * t4219 * t10205 + 0.37817055923231283670e-6 * t3247 * t10165;
4700   t11270 = t1328 * t10963;
4701   t11292 = 0.13072562541363900527e-6 * t4193 * t10193 + 0.65362812706819502636e-7 * t4193 * t10196 + 0.65362812706819502635e-7 * t4193 * t10199 + 0.45530543590095520020e-2 * t11270 * t10241 + 0.15628904296875000000e0 * t2960 * t3597 + 0.16390995692434387207e-2 * t1126 * t3677 * t806 - 0.11959101562500000000e1 * t10163 - 0.21104296875000000000e0 * t10166 + 0.75037500000000000000e0 * t10169 + 0.70347656250000000000e-1 * t10173 + 0.16362343750000000000e1 * t10175 + 0.14069531250000000000e0 * t10179 - 0.18759375000000000000e0 * t10183 + 0.93796875000000000000e-1 * t10186 - 0.11724609375000000000e0 * t10191 - 0.12506250000000000000e0 * t10194 - 0.62531250000000000000e-1 * t10197 - 0.62531250000000000000e-1 * t10200 - 0.78164062500000000000e-1 * t10203 - 0.39082031250000000000e-1 * t10206;
4702   t11328 = -0.11721678222656250000e0 * t2813 * t915 * t476 * t2479 - 0.29503792246381896972e-1 * t2821 * t924 * t476 * t2479 + 0.65770755342640686036e-2 * t3209 * t933 * t476 * t2479 - 0.28139062500000000000e0 * t10250 + 0.40639400262456927449e-3 * t9012 * t10774 - 0.14947898941509246826e-2 * t9209 * t10263 + 0.11721678222656250000e0 * t9020 * t10774 + 0.35165034667968750000e-1 * t8724 * t10263 - 0.70347656250000000000e-1 * t10253 - 0.42208593750000000000e0 * t10258 + 0.21104296875000000000e0 * t10261;
4703   t11342 = t2762 * t143 * t508;
4704   t11346 = t2757 * t575 * t578;
4705   t11350 = t2777 * t157 * t550;
4706   t11353 = t5250 * t508;
4707   t11356 = t506 * t106;
4708   t11357 = t11356 * t508;
4709   t11377 = 0.14069531250000000000e0 * t10264 + 0.15007500000000000000e1 * t10266 + 0.15632812500000000000e0 * t10270 + 0.17586914062500000000e0 * t10275 - 0.87934570312500000000e-1 * t10280 - 0.75037500000000000000e0 * t10282 + 0.28139062500000000000e0 * t10285 + 0.14069531250000000000e0 * t10288 - 0.14069531250000000000e0 * t10291 + 0.20227532515914351853e0 * t11342 * t511 + 0.30701507339991814525e-7 * t11346 * t581 + 0.33731700759005498969e-3 * t11350 * t553 + 0.18233721679687500000e0 * t11353 * t4050 + 0.22792152099609375000e-1 * t11357 * t510 * t10103 - 0.91061087180191040040e-4 * t523 * t538 * t10131 - 0.62604497436381340026e-4 * t1337 * t11157 * t67 + 0.52096347656250000000e-1 * t1466 * t4053 - 0.65120434570312500000e-2 * t509 * t552 * t10109 - 0.91737280992027372121e-6 * t1455 * t4056 + 0.82563552892824634908e-7 * t565 * t4064 * t10109;
4710   t11422 = t2772 * t533 * t536;
4711   t11425 = t8762 * t124;
4712   t11435 = t8768 * t175;
4713   t11443 = t8684 * t135;
4714   t11447 = 0.72663397632336616518e-5 * t1352 * t11164 * t67 - 0.24061378271623179317e-5 * t1516 * t3635 * t3443 + 0.32081837695497572424e-5 * t3812 * t1367 * t8203 + 0.26225593107895019532e-1 * t1486 * t3677 * t3443 - 0.76933493591965286824e-2 * t11422 * t539 - 0.61193050585088378904e-1 * t11425 * t1413 * t2575 + 0.10927330461622924805e-1 * t1126 * t1367 * t2499 + 0.62515617187500000000e-1 * t1121 * t1353 * t2499 - 0.96927819970648270100e-7 * t11435 * t1381 * t2575 + 0.71420498925740830600e-8 * t1136 * t3171 * t476 * t2499 + 0.16442688835660171509e-1 * t11443 * t1338 * t2575;
4715   t11453 = t8671 * t148;
4716   t11460 = t8792 * t162;
4717   t11464 = t8806 * t111;
4718   t11469 = t2752 * t561 * t564;
4719   t11473 = t2767 * t519 * t522;
4720   t11509 = -0.19930531922012329102e-2 * t1141 * t1381 * t2499 - 0.86697387226574778556e-3 * t11453 * t1353 * t2575 + 0.83362872333244979377e-4 * t1116 * t1399 * t2499 + 0.16040918847748786212e-4 * t11460 * t1367 * t2575 - 0.15628904296875000000e0 * t11464 * t1240 * t2575 - 0.55321463497705395437e-5 * t11469 * t567 + 0.39386730732814729477e-1 * t11473 * t525 + 0.99195137396862264723e-10 * t1136 * t1399 * t2553 + 0.59044724640989443287e-12 * t579 * t580 * t10039 - 0.35165034667968750000e1 * t3514 * t1476 + 0.14066013867187500000e1 * t9342 * t1479 - 0.39072260742187500000e0 * t1260 * t3674 + 0.10415489426670537796e-7 * t2707 * t3661 - 0.85024403483024798334e-9 * t1526 * t3635 * t758 - 0.28341467827674932778e-9 * t1526 * t1381 * t2544 + 0.29758541219058679417e-9 * t1136 * t3657 * t806 - 0.23589586540807038546e-7 * t1131 * t1381 * t2553 - 0.16381657320004887879e-9 * t565 * t566 * t10039 - 0.10117904014479951002e-5 * t3945 * t1527 + 0.35412664050679828506e-6 * t9229 * t1469;
4721   t11560 = -0.41681436166622489691e-3 * t1352 * t3622 - 0.13027343750000000000e0 * t10293 - 0.18413097379292557889e-8 * t3256 * t10165 - 0.30769405334472656250e-1 * t3219 * t10165 - 0.46099675384971714021e-2 * t3228 * t10165 + 0.72871007339857578278e-3 * t3238 * t10165 - 0.26795208964257314801e-4 * t3184 * t10165 + 0.15628904296875000000e0 * t1475 * t3593 * t3443 - 0.15628904296875000000e0 * t3794 * t1240 * t8203 + 0.78144521484375000000e-1 * t1475 * t1413 * t8178 - 0.12030689135811589658e-5 * t1516 * t1381 * t8178;
4722   t11621 = -0.12030689135811589658e-5 * t1516 * t1381 * t8182 + 0.49538131735694780946e-6 * t1131 * t1399 * t8186 - 0.93375446724027860910e-8 * t1372 * t566 * t10113 + 0.34401480372010264545e-8 * t565 * t580 * t10131 + 0.24572485980007331818e-8 * t1380 * t11178 * t67 + 0.41661957706682151185e-6 * t1380 * t3901 + 0.11903416487623471767e-7 * t1526 * t3657 * t3443 - 0.16154636661774711684e-7 * t3844 * t1381 * t8203 + 0.59517082438117358835e-8 * t1526 * t1399 * t8178 - 0.87694340456854248047e-1 * t1337 * t3985 + 0.59517082438117358835e-8 * t1526 * t1399 * t8182 - 0.23806832975246943534e-8 * t1136 * t3848 * t8186 + 0.38969518263053032569e-10 * t1386 * t580 * t10113 - 0.14170733913837466389e-10 * t579 * t1390 * t10131 - 0.10185215000570678967e-10 * t1398 * t11117 * t67 + 0.15628904296875000000e1 * t1260 * t3913 + 0.13112796553947509766e-1 * t1486 * t1338 * t8178 + 0.41681436166622489691e-2 * t1352 * t3922 + 0.78144521484375000000e-1 * t1475 * t1413 * t8182 - 0.46886712890625000000e-1 * t1121 * t1338 * t8186;
4723   t11640 = t2752 * t157 * t564;
4724   t11651 = t2772 * t519 * t536;
4725   t11689 = -0.32387114373270034791e-3 * t4088 * t538 * t10135 - 0.62282912256288528444e-4 * t537 * t566 * t10145 + 0.20488744615542984009e-2 * t4096 * t524 * t10135 + 0.16672574466648995876e-3 * t1506 * t3625 * t3443 - 0.21674346806643694639e-3 * t3803 * t1353 * t8203 + 0.83362872333244979381e-4 * t1506 * t1367 * t8178 + 0.83362872333244979380e-4 * t1506 * t1367 * t8182 - 0.35726945285676419733e-4 * t1116 * t1381 * t8186 + 0.79393211745947599410e-6 * t1358 * t552 * t10113 - 0.29772454404730349779e-6 * t551 * t566 * t10131 - 0.21088821870017331093e-6 * t1366 * t11171 * t67;
4726   t11696 = t11 * t5538 * t575 * t5705;
4727   t11747 = -0.72184134814869537952e-4 * t1366 * t3935 - 0.11458366875642013838e-8 * t11696 * t1399 * t10141 + 0.19848302936486899852e-5 * t1116 * t1367 * t2553 + 0.16540252447072416544e-7 * t551 * t552 * t10039 + 0.17444499246926805005e-3 * t4039 * t1517 - 0.61568820871506370606e-4 * t9232 * t1520 - 0.37817055923231283669e-5 * t8651 * t1367 * t230 + 0.21175061986186441572e-7 * t8591 * t1381 * t230 + 0.12307762133789062500e0 * t8601 * t1240 * t230 + 0.25354821461734442712e-1 * t8611 * t1413 * t230 - 0.51009705137900304795e-2 * t8621 * t1338 * t230 + 0.22775927619618717581e-3 * t8631 * t1353 * t230 + 0.25349868445864800984e-8 * t3869 * t1472 + 0.53543468424479166668e-1 * t3853 * t1483 + 0.38428519852031581104e-4 * t3857 * t1513 - 0.52967358668015804142e-6 * t3861 * t1523 - 0.39072260742187500000e-1 * t1475 * t3432 * t758 - 0.13024086914062500000e-1 * t1475 * t1240 * t2544 + 0.15628904296875000000e-1 * t1121 * t3593 * t806 + 0.72342974815373992917e-2 * t3865 * t1493;
4728   t11800 = 0.54808962785533905030e-2 * t3835 * t3677 * t738 + 0.99652659610061645506e-3 * t1141 * t3625 * t777 - 0.48442265088224411013e-4 * t1444 * t3704 + 0.32081837695497572422e-5 * t3812 * t3625 * t738 + 0.60153445679057948292e-5 * t1366 * t3632 - 0.46886712890625000000e-1 * t1121 * t3677 * t777 + 0.49538131735694780946e-6 * t1131 * t3657 * t777 - 0.21230627886726334692e-5 * t2681 * t3639 - 0.16381657320004887879e-7 * t1455 * t3642 - 0.56541228316211490893e-6 * t5601 * t3845 - 0.83323915413364302367e-7 * t2707 * t3849;
4729   t11830 = t3948 * t4214;
4730   t11833 = t517 * t120;
4731   t11834 = t11833 * t138;
4732   t11838 = t2905 * t519 * t929;
4733   t11841 = t3964 * t4203;
4734   t11844 = t1343 * t11228;
4735   t11847 = t531 * t132;
4736   t11848 = t11847 * t151;
4737   t11851 = t4021 * t326;
4738   t11855 = t2924 * t157 * t949;
4739   t11858 = t3938 * t4192;
4740   t11861 = -0.16154636661774711684e-7 * t3844 * t3635 * t738 - 0.54185867016609236598e-2 * t5483 * t3804 - 0.23806832975246943534e-8 * t1136 * t1012 * t1245 * t777 + 0.67901433337137859779e-10 * t1461 * t3664 - 0.15628904296875000000e1 * t5192 * t3795 - 0.46886712890625000000e0 * t2960 * t3798 - 0.15628904296875000000e0 * t3794 * t3432 * t738 + 0.15060008183570566178e-1 * t9087 * t3469 - 0.68774369674927107989e-3 * t8963 * t3469 - 0.32820699023437500000e0 * t8990 * t3469 - 0.72222824769789018632e-1 * t9001 * t3469 - 0.33389065299403381347e-1 * t11830 * t3444 - 0.23372345709582366943e-1 * t11834 * t3449 + 0.10705369061621209144e-1 * t11838 * t3460 + 0.62974944614691734316e-2 * t11841 * t3444 - 0.80967785933175086977e-3 * t11844 * t10241 + 0.44712210676431131364e-2 * t11848 * t3449 - 0.17197004106319665909e-2 * t11851 * t3454 + 0.82562737621117851231e-4 * t11855 * t3460 + 0.43575208471213001758e-5 * t11858 * t3444;
4741   t11862 = t3954 * t317;
4742   t11865 = t4032 * t4177;
4743   t11868 = t550 * t422;
4744   t11869 = t1357 * t11868;
4745   t11872 = t546 * t144;
4746   t11873 = t11872 * t165;
4747   t11876 = t4038 * t335;
4748   t11879 = t4106 * t4158;
4749   t11882 = t578 * t3171;
4750   t11883 = t1385 * t11882;
4751   t11886 = t573 * t171;
4752   t11887 = t11886 * t4163;
4753   t11890 = t3993 * t4169;
4754   t11894 = t2910 * t533 * t938;
4755   t11898 = t559 * t158;
4756   t11899 = t11898 * t178;
4757   t11902 = t306 * t330;
4758   t11903 = t11902 * t178;
4759   t11906 = t3944 * t423;
4760   t11910 = t2919 * t561 * t958;
4761   t11913 = t1403 * t11084;
4762   t11916 = t576 * t11882;
4763   t11920 = t1395 * t1397 * t3171;
4764   t11929 = t4068 * t4177;
4765   t11932 = 0.31436400397089379840e-5 * t11899 * t3449 + 0.84037902051625074819e-6 * t11903 * t10190 - 0.11581831725243455730e-5 * t11906 * t3454 - 0.13158566242293926189e-5 * t11910 * t3460 + 0.27350582519531250000e-1 * t11913 * t10241 + 0.12753660522453719750e-9 * t11916 * t10223 - 0.73333548004108888563e-9 * t11920 * t10230 + 0.16296344000913086347e-9 * t4170 * t10211 + 0.81481720004565431736e-10 * t4170 * t10214 - 0.81746322336378693582e-4 * t4174 * t10218 - 0.71453890571352839469e-4 * t11929 * t10182;
4766   t11945 = t548 * t11868;
4767   t11948 = t1365 * t999;
4768   t11958 = t4076 * t4192;
4769   t11963 = t4059 * t4158;
4770   t11968 = t1394 * t416;
4771   t11969 = t11968 * t4163;
4772   t11982 = t4218 * t317;
4773   t11985 = 0.11765306287227510474e-5 * t11958 * t10182 - 0.16807580410325014964e-6 * t6213 * t10185 - 0.65468790681929094716e-8 * t11963 * t10182 + 0.81835988352411368394e-9 * t6239 * t10185 - 0.47055693302636536828e-8 * t11969 * t10190 - 0.62351229220884852111e-9 * t4159 * t10193 - 0.31175614610442426055e-9 * t4159 * t10196 - 0.31175614610442426056e-9 * t4159 * t10199 - 0.44814946002510987455e-9 * t4164 * t10202 - 0.22407473001255493728e-9 * t4164 * t10205 + 0.50083597949105072022e-2 * t11982 * t10269;
4774   t11987 = t4199 * t933;
4775   t11990 = t4173 * t944;
4776   t11993 = t4181 * t335;
4777   t11997 = t898 * t144 * t949;
4778   t12000 = t4162 * t4169;
4779   t12004 = t892 * t132 * t938;
4780   t12007 = t4147 * t423;
4781   t12020 = t887 * t120 * t929;
4782   t12023 = t4207 * t326;
4783   t12026 = t4188 * t953;
4784   t12029 = t301 * t107;
4785   t12030 = t12029 * t127;
4786   t12033 = t4009 * t352;
4787   t12037 = t2395 * t143 * t920;
4788   t12042 = t21 * t573 * t575 * t4128;
4789   t12045 = t4003 * t4132;
4790   t12052 = 0.13829902615491514206e-1 * t9181 * t10260 + 0.56344047692743206024e-2 * t12020 * t10274 - 0.94462416922037601474e-3 * t12023 * t10269 - 0.17081945714714038185e-4 * t12026 * t10279 - 0.12459709814453125000e0 * t12030 * t3449 + 0.53398756347656250000e-1 * t12033 * t3454 + 0.61538810668945312500e-1 * t12037 * t3460 + 0.71500209304006166347e-8 * t12042 * t3460 - 0.18233721679687500000e0 * t12045 * t3444 - 0.23617107725104646758e-4 * t8505 * t1237 + 0.13539309628526725283e-6 * t8501 * t1237;
4791   t12059 = t10311 * t184;
4792   t12062 = t10315 * t184;
4793   t12065 = t10319 * t184;
4794   t12068 = t10323 * t184;
4795   t12070 = t9799 * t9801;
4796   t12071 = t10327 * t184;
4797   t12075 = t1161 * t3311;
4798   t12084 = t3309 * t9782;
4799   t12089 = t3556 * t3293;
4800   t12092 = t429 * t3298;
4801   t12102 = t429 * t430 * t10298 * t184 - 0.6e1 * t1537 * t12059 - 0.3e1 * t1545 * t12059 - 0.6e1 * t1537 * t12062 - 0.3e1 * t1545 * t12062 + 0.18e2 * t4260 * t12065 + 0.18e2 * t4268 * t12065 + 0.3e1 * t4280 * t12065 - 0.2e1 * t1537 * t12068 - t1545 * t12068 - t12070 * t12071 - 0.36e2 * t12075 * t12071 - 0.12e2 * t12084 * t12071 - 0.24e2 * t12092 * t12071 + 0.18e2 * t4260 * t12089 + 0.18e2 * t4268 * t12089 + 0.3e1 * t4280 * t12089;
4802   t12103 = my_piecewise3(t102, t11932 + 0.93796875000000000000e0 * t10019 - 0.37518750000000000000e0 * t10022 - 0.10003544679989397526e-1 * t4022 * t1507 + 0.35726945285676419735e-2 * t8518 * t1510 + 0.22934320248006843030e-6 * t1455 * t3895 + 0.16545473893204936758e-6 * t3945 * t3898 - 0.56025268034416716547e-5 * t10487 * t4078 + 0.31370462201757691218e-7 * t10495 * t4061 + 0.48889032002739259041e-8 * t1461 * t4065 - 0.93796875000000000000e0 * t10057 + 0.62531250000000000000e-1 * t10034 + 0.65136718749999999999e-1 * t10036 + t10783 - 0.58623046875000000000e-1 * t10231 + t10482 - 0.37518750000000000000e0 * t10047 - 0.67742187499999999998e0 * t10246 + t11088 + t10835 + t11377 - 0.12506250000000000000e0 * t10028 + 0.18759375000000000000e0 * t10031 + 0.62531250000000000000e-1 * t10105 - 0.10421875000000000000e1 * t10238 + t10726 + 0.39082031250000000000e0 * t10107 + 0.19541015625000000000e-1 * t10215 - 0.62531250000000000000e-1 * t10060 - 0.37518750000000000000e0 * t10062 + 0.39570556640625000000e0 * t10235 - 0.16728903215260414717e-3 * t10744 * t1368 + 0.44989486656036972999e-4 * t4033 * t3925 + 0.22494743328018486500e-4 * t4033 * t4042 - 0.16871057496013864875e-4 * t1450 * t3929 - 0.33433467299175682068e-1 * t4200 * t3474 + 0.12157624472427520752e-1 * t9642 * t3477 - 0.14064404297281153997e-1 * t852 * t1345 - 0.74739494707546234131e-4 * t930 * t10172 + 0.33742114992027729750e-3 * t10509 * t4070 + 0.43956293334960937500e-2 * t4144 * t10218 + 0.93375446724027860910e-7 * t4148 * t10202 + 0.46687723362013930455e-7 * t4148 * t10205 - 0.52290250165455602109e-6 * t11103 * t10241 - 0.27521184297608211636e-7 * t11106 * t10223 + 0.13760592148804105818e-6 * t11109 * t10230 - 0.34401480372010264545e-7 * t4151 * t10211 + 0.61485631763250529766e-3 * t859 * t1359 - 0.23057111911218948663e-3 * t3857 * t1362 - 0.36879740307977371216e-1 * t8872 * t10257 - 0.10627021903729230166e-2 * t12004 * t10274 - 0.65362812706819502635e-6 * t12007 * t10269 - 0.15384702667236328125e0 * t8864 * t10257 + 0.61538810668945312500e-1 * t9178 * t10260 - 0.22537619077097282410e-2 * t11987 * t10279 + 0.40873161168189346791e-3 * t11990 * t10279 + 0.40490537990433275700e-4 * t11993 * t10269 + 0.45551855239237435162e-4 * t11997 * t10274 + 0.35851956802008789964e-8 * t12000 * t10269 + 0.63012530136863933875e-8 * t11890 * t3454 - 0.19619117360730886460e-2 * t11894 * t3460 - 0.88573051854072790593e-5 * t11948 * t10230 + 0.25306586244020797312e-5 * t4185 * t10211 + 0.12653293122010398656e-5 * t4185 * t10214 + 0.28469909524523396976e-5 * t4189 * t10218 - 0.33742114992027729750e-5 * t4182 * t10205 + 0.20840718083311244846e-5 * t11945 * t10223 - 0.95271854095137119293e-5 * t4178 * t10193 - 0.47635927047568559646e-5 * t4178 * t10196 - 0.47635927047568559646e-5 * t4178 * t10199 - 0.67484229984055459499e-5 * t4182 * t10202 + t11207 - 0.75736021303646850584e-1 * t9372 * t1500 + 0.10961792557106781006e-1 * t1337 * t3695 - 0.39861063844024658202e-2 * t2957 * t3701 - 0.62282912256288528444e-4 * t11229 * t10223 + 0.21799019289700984956e-3 * t11232 * t10230 - 0.29758541219058679417e-7 * t1380 * t3654 - 0.91789575877632568361e0 * t4010 * t1487 + 0.34421090954112213135e0 * t9219 * t1490 - 0.65563982769737548828e-1 * t1412 * t3611 + 0.22329340803547762334e-5 * t939 * t10172 - 0.26538284858407918365e-7 * t950 * t10172 + 0.11159452957147004781e-9 * t959 * t10172 + 0.58608391113281250000e-2 * t912 * t10172 - 0.29391998326100959778e-1 * t8446 * t1237 + 0.44637811828588019124e-8 * t3206 * t10284 - 0.22329340803547762334e-4 * t3062 * t10290 + 0.62492936560023226776e-8 * t9203 * t10263 - 0.72184134814869537952e-5 * t9028 * t10774 - 0.11146079640531325713e-5 * t8730 * t10263 + 0.93489382838329467773e-2 * t11862 * t3454 - 0.26993691993622183800e-3 * t11865 * t3444 + 0.33345148933297991753e-4 * t11869 * t10241 - 0.19345479262095898389e-3 * t11873 * t3449 + 0.72545547232859618961e-4 * t11876 * t3454 - 0.23901304534672526643e-7 * t11879 * t3444 + 0.28058053149398183450e-8 * t11883 * t10241 - 0.17328445787637581816e-7 * t11887 * t3449 - 0.78144521484375000000e-2 * t11089 * t10230 + 0.39072260742187500000e-2 * t4140 * t10211 + 0.19536130371093750000e-2 * t4140 * t10214 + 0.20827405858502883912e0 * t3955 * t1497 - 0.10818772536370118460e-2 * t3822 * t1503 + 0.14886227202365174889e-3 * t2937 * t3872 + 0.24586493538651580811e-1 * t2736 * t3681 + 0.41736331624254226683e-3 * t1438 * t3684 + 0.10961792557106781006e0 * t5393 * t3836 + 0.19930531922012329101e-1 * t2957 * t3839 + 0.39338389661842529298e0 * t1412 * t3971 - 0.16442688835660171509e-2 * t3210 * t10284 - 0.82213444178300857545e-3 * t3210 * t10287 - 0.73533164295171940468e-6 * t10930 * t10274 + 0.27091165792958083330e-6 * t10933 * t10279 + 0.27350582519531250000e-1 * t10936 * t10269 + 0.30769405334472656250e-1 * t10940 * t10274 - 0.13186888000488281250e-1 * t10943 * t10279 + 0.58608391113281250000e-1 * t2814 * t10284 + 0.31265625000000000000e-1 * t10115 + 0.31265625000000000000e-1 * t10119 + t10549 + 0.18759375000000000000e0 * t10242 + t11014 + 0.37518750000000000000e1 * t10091 + t12052 - 0.37518750000000000000e1 * t10064 - 0.18759375000000000000e1 * t10066 + 0.10421875000000000000e-1 * t10123 + t11509 + 0.52760742187500000000e0 * t10044 + 0.46898437500000000000e-1 * t10224 + 0.33871093750000000000e0 * t10227 + t11261 + t11328 + t10429 + t10974 + t11447 + t11800 + t11689 - 0.75037500000000000000e0 * t10095 + 0.78164062499999999998e0 * t10099 + t11861 + t11292 + t10920 + t11985 + t10874 + t11142 - 0.97705078125000000000e-2 * t10129 + t10395 + t11747 + t10662 + t11040 + 0.26054687500000000000e-2 * t10041 + 0.39082031250000000000e-1 * t10212 - 0.95242955658508418128e-6 * t10491 * t566 * t10103 + 0.54557325568274245596e-8 * t10499 * t580 * t10103 - 0.42512201741512399167e-9 * t579 * t10505 * t10109 + 0.55575248222163319587e-4 * t10513 * t552 * t10103 - 0.30353695726730346680e-4 * t523 * t538 * t10153 + 0.10837173403321847320e-2 * t3803 * t1367 * t8199 + 0.84214823950681127608e-5 * t1516 * t1399 * t10093 - 0.26989261977725028993e-4 * t1344 * t538 * t10117 - 0.89964206592416763308e-5 * t1344 * t538 * t10121 + 0.10380485376048088074e-4 * t537 * t552 * t10149 + 0.34601617920160293580e-5 * t537 * t552 * t10153 + 0.54636652308114624024e-3 * t1126 * t1338 * t2553 + 0.75884239316825866699e-5 * t523 * t524 * t10039 + 0.54808962785533905030e-3 * t1496 * t3677 * t758 + 0.18269654261844635010e-3 * t1496 * t1338 * t2544 + 0.13112796553947509766e-1 * t1486 * t1338 * t8182 - 0.65563982769737548830e-2 * t1126 * t1353 * t8186 + 0.22765271795047760010e-3 * t1329 * t524 * t10113 - 0.43847170228427124023e-2 * t1496 * t3618 * t3443 + 0.54808962785533905030e-2 * t3835 * t1338 * t8203 - 0.21923585114213562012e-2 * t1496 * t1353 * t8178 - 0.21923585114213562012e-2 * t1496 * t1353 * t8182 + 0.99652659610061645508e-3 * t1141 * t1367 * t8186 - 0.26989261977725028993e-4 * t1344 * t538 * t10113 + 0.10380485376048088074e-4 * t537 * t552 * t10131 + 0.52096347656250000000e-2 * t1121 * t1413 * t2553 + 0.10853405761718750000e-3 * t509 * t510 * t10039 - 0.43709321846491699218e-2 * t1486 * t3593 * t758 - 0.14569773948830566406e-2 * t1486 * t1413 * t2544 + 0.22792152099609375000e-2 * t1404 * t510 * t10113 - 0.97680651855468750000e-3 * t509 * t524 * t10131 - 0.65120434570312500000e-3 * t1412 * t11124 * t67 - 0.30596525292544189452e-1 * t3825 * t1413 * t8203 + 0.20840718083311244846e-5 * t551 * t580 * t10145 - 0.13523207024148613564e-4 * t11640 * t1367 * t10141 - 0.16807580410325014964e-6 * t4077 * t566 * t10135 + 0.45530543590095520020e-3 * t523 * t552 * t10145 - 0.18311815500141541958e-2 * t11651 * t1338 * t10141 - 0.16672574466648995876e-4 * t1506 * t3618 * t758 - 0.55575248222163319587e-5 * t1506 * t1353 * t2544 + 0.59544908809460699556e-5 * t1116 * t3625 * t806 - 0.65563982769737548830e-2 * t1126 * t3618 * t777 + t11621 + 0.43967285156250000000e-1 * t10219 + t10610 - 0.62531250000000000000e-1 * t10111 + t11560 - 0.37518750000000000000e0 * t10025, t12102);
4803   t12108 = t2370 * t498;
4804   t12117 = 0.6e1 * t690 * t691 * t1548 - t217 * t2610 * t588 - 0.3e1 * t217 * t1289 * t1168 - t217 * t498 * t3316 - 0.3e1 * t217 * t3567 * t434 + t217 * (-0.1540e4 / 0.6561e4 * t18 * t9888 - 0.418e3 / 0.243e3 * t34 * t462 * t2386 + 0.2809e4 / 0.120e3 * t232 * t35 * t2390 * t45 - 0.18837e5 / 0.3200e4 * t712 * t233 * t2396 * t719 + 0.29403e5 / 0.32000e5 * t2402 * t713 * t2404 * t2409 - 0.19683e5 / 0.80000e5 * t8040 * t2403 / t293 * t45 + 0.2e1 * t2607 * t495 + 0.6e1 * t827 * t1286 + 0.6e1 * t287 * t3564 + 0.2e1 * t94 * t10356) * t187 + 0.1174e1 * t12103 - 0.24e2 * t7989 * t499 * t2371 + 0.18e2 * t12108 * t2375 - 0.3e1 * t217 * t830 * t1548 - 0.3e1 * t217 * t290 * t4283;
4805   t12149 = 0.18e2 * t2370 * t1290 * t691 - 0.6e1 * t690 * t1290 * t830 - 0.18e2 * t2370 * t1292 * t691 + 0.6e1 * t690 * t1292 * t830 + 0.6e1 * t690 * t1294 * t830 - 0.6e1 * t2370 * t2371 * t588 - 0.2e1 * t690 * t499 * t2610 - 0.6e1 * t690 * t3568 * t290 + 0.12e2 * t690 * t3570 * t290 + 0.6e1 * t690 * t3573 * t290 - t101 * t12103;
4806   t12179 = 0.40270806047858128433e2 * t9866 * t1198 - 0.24739500000000000000e1 * t3367 * t4291 * t456 + t9927 * t593 / 0.18e2 - 0.74218500000000000000e1 * t447 * t448 * t4286 * t456 + 0.89062200000000000000e2 * t9934 * t1556 * t1190 + 0.20781180000000000000e4 * t9939 * t4315 / t117 * sigma[0] * t30 * t192 - 0.89062200000000000000e2 * t1181 * t4291 * t1190 - 0.3e1 / 0.16e2 * t212 * t213 * (t12117 + t12149) * t205 - 0.16151076630565200000e3 * t3355 * t591 * t10 * t3357 + 0.92773125000000000000e0 * t596 * t7 * t3319 * t602 - 0.32863279090805449749e3 * t9826 * t5851 * rho[0] * t7976 + 0.18169961209385850000e3 * t598 * t2068 * t10 * t57 * t452 * t204 + 0.18169961209385849999e3 * t1561 * t4339 - t3362 * t1553 / 0.4e1 - 0.3e1 / 0.4e1 * t1202 * t4288;
4807   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4808     v4rho3sigma[0] = t9920 + t12179;
4809 
4810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4811     v4rho3lapl[0] = 0.0e0;
4812 
4813   t12195 = t9865 * t1851;
4814   t12203 = t2432 * t769 * t606;
4815   t12204 = t12203 * t2479;
4816   t12207 = my_piecewise3(t61, -0.440e3 / 0.27e2 * t3383, 0);
4817   t12209 = t244 * t84 * t12207;
4818   t12211 = t3487 * t1607;
4819   t12213 = t270 * t4382;
4820   t12215 = t4477 * t10256;
4821   t12216 = t8315 * t12215;
4822   t12218 = t4477 * t8194;
4823   t12219 = t8193 * t12218;
4824   t12221 = t1612 * t2478;
4825   t12222 = t10268 * t12221;
4826   t12224 = t1612 * t803;
4827   t12225 = t10273 * t12224;
4828   t12227 = t4467 * t10278;
4829   t12228 = t10277 * t12227;
4830   t12230 = t8337 * t4385;
4831   t12232 = t4441 * t3473;
4832   t12233 = t2433 * t12232;
4833   t12235 = -0.27e2 / 0.64e2 * t12204 - 0.3e1 / 0.32e2 * t12209 - 0.9e1 / 0.16e2 * t12211 - 0.45e2 / 0.32e2 * t12213 - 0.81e2 / 0.128e3 * t12216 + 0.81e2 / 0.256e3 * t12219 + 0.15e2 / 0.64e2 * t12222 + 0.135e3 / 0.512e3 * t12225 - 0.135e3 / 0.1024e4 * t12228 + 0.9e1 / 0.4e1 * t12230 + 0.27e2 / 0.128e3 * t12233;
4834   t12236 = t4423 * t3473;
4835   t12237 = t2477 * t12236;
4836   t12239 = t4452 * t3473;
4837   t12240 = t8207 * t12239;
4838   t12242 = t8190 * t4388;
4839   t12244 = t4473 * t795;
4840   t12245 = t2433 * t12244;
4841   t12247 = t4473 * t2478;
4842   t12248 = t2477 * t12247;
4843   t12251 = t1231 * t1668 * t10093;
4844   t12253 = t10098 * t4457;
4845   t12255 = t606 * t2575;
4846   t12257 = t10102 * t484 * t12255;
4847   t12259 = t1250 * t4453;
4848   t12261 = t606 * t2499;
4849   t12263 = t483 * t538 * t12261;
4850   t12265 = t2507 * t607;
4851   t12267 = t2526 * t607;
4852   t12269 = -0.27e2 / 0.256e3 * t12237 + 0.27e2 / 0.128e3 * t12240 - 0.9e1 / 0.8e1 * t12242 + 0.27e2 / 0.64e2 * t12245 - 0.27e2 / 0.128e3 * t12248 - 0.9e1 / 0.8e1 * t12251 + 0.75e2 / 0.64e2 * t12253 + 0.3e1 / 0.32e2 * t12257 + 0.75e2 / 0.128e3 * t12259 - 0.3e1 / 0.32e2 * t12263 - 0.45e2 / 0.8e1 * t12265 - 0.45e2 / 0.16e2 * t12267;
4853   t12271 = t786 * t1607;
4854   t12274 = t10140 * t1601 * t10141;
4855   t12276 = t1606 * t777;
4856   t12278 = t483 * t524 * t12276;
4857   t12280 = t1606 * t738;
4858   t12282 = t3491 * t484 * t12280;
4859   t12284 = t793 * t4428;
4860   t12287 = t1231 * t4402 * t3443;
4861   t12290 = t1231 * t1601 * t8178;
4862   t12293 = t1231 * t1601 * t8182;
4863   t12296 = t749 * t1668 * t8186;
4864   t12298 = t3508 * t4438;
4865   t12300 = t113 * t4381;
4866   t12302 = t1260 * t12300 * t67;
4867   t12304 = -0.45e2 / 0.8e1 * t12271 - 0.945e3 / 0.8192e4 * t12274 + 0.9e1 / 0.128e3 * t12278 + 0.9e1 / 0.64e2 * t12282 + 0.45e2 / 0.8e1 * t12284 + 0.9e1 / 0.8e1 * t12287 + 0.9e1 / 0.16e2 * t12290 + 0.9e1 / 0.16e2 * t12293 - 0.9e1 / 0.16e2 * t12296 + 0.25e2 / 0.32e2 * t12298 - 0.15e2 / 0.1024e4 * t12302;
4868   t12305 = t763 * t1613;
4869   t12307 = t3418 * t1620;
4870   t12309 = t10079 * t1616;
4871   t12311 = t3508 * t4442;
4872   t12313 = t1250 * t4424;
4873   t12315 = t1606 * t806;
4874   t12317 = t483 * t510 * t12315;
4875   t12319 = t606 * t2553;
4876   t12321 = t483 * t510 * t12319;
4877   t12323 = t1250 * t4449;
4878   t12325 = t3514 * t4445;
4879   t12327 = t4381 * t249;
4880   t12329 = t1254 * t484 * t12327;
4881   t12331 = t4381 * t275;
4882   t12333 = t483 * t510 * t12331;
4883   t12335 = t1606 * t758;
4884   t12337 = t1254 * t484 * t12335;
4885   t12339 = 0.275e3 / 0.96e2 * t12305 - 0.275e3 / 0.192e3 * t12307 - 0.4495e4 / 0.4608e4 * t12309 + 0.25e2 / 0.64e2 * t12311 - 0.25e2 / 0.128e3 * t12313 - 0.3e1 / 0.128e3 * t12317 - t12321 / 0.128e3 - 0.25e2 / 0.64e2 * t12323 - 0.65e2 / 0.256e3 * t12325 + 0.3e1 / 0.64e2 * t12329 - 0.3e1 / 0.128e3 * t12333 + 0.3e1 / 0.64e2 * t12337;
4886   t12342 = t606 * t2544;
4887   t12344 = t1254 * t484 * t12342;
4888   t12346 = t8345 * t4478;
4889   t12348 = t6433 * t765;
4890   t12349 = t2444 * t12348;
4891   t12351 = t4477 * t8199;
4892   t12352 = t10181 * t12351;
4893   t12354 = t4477 * t8203;
4894   t12355 = t5925 * t12354;
4895   t12357 = t6433 * t3443;
4896   t12358 = t3442 * t12357;
4897   t12360 = t4477 * t8178;
4898   t12361 = t3442 * t12360;
4899   t12363 = t4477 * t8182;
4900   t12364 = t3442 * t12363;
4901   t12366 = t10178 * t1598;
4902   t12368 = t2426 * t4474;
4903   t12371 = t4381 * t9 * t67;
4904   t12372 = t744 * t12371;
4905   t12374 = t12344 / 0.64e2 - 0.459e3 / 0.256e3 * t12346 - 0.81e2 / 0.256e3 * t12349 - 0.9e1 / 0.32e2 * t12352 + 0.9e1 / 0.64e2 * t12355 - 0.3e1 / 0.16e2 * t12358 - 0.3e1 / 0.32e2 * t12361 - 0.3e1 / 0.32e2 * t12364 + 0.27e2 / 0.128e3 * t12366 + 0.9e1 / 0.8e1 * t12368 + 0.27e2 / 0.256e3 * t12372;
4906   t12375 = t4437 * t67;
4907   t12376 = t3448 * t12375;
4908   t12378 = t4441 * t67;
4909   t12379 = t3448 * t12378;
4910   t12382 = t1606 * t30 * t772;
4911   t12383 = t3452 * t12382;
4912   t12385 = t4463 * t2422;
4913   t12386 = t3452 * t12385;
4914   t12389 = t1606 * t13 * t2532;
4915   t12390 = t3458 * t12389;
4916   t12392 = t4477 * t10093;
4917   t12393 = t10240 * t12392;
4918   t12395 = t10234 * t4468;
4919   t12397 = t8351 * t1598;
4920   t12399 = t4477 * t8186;
4921   t12400 = t10222 * t12399;
4922   t12402 = t10237 * t4481;
4923   t12404 = t10245 * t4460;
4924   t12406 = t4456 * t67;
4925   t12407 = t10189 * t12406;
4926   t12409 = -0.15e2 / 0.128e3 * t12376 - 0.15e2 / 0.256e3 * t12379 + 0.15e2 / 0.256e3 * t12383 + 0.15e2 / 0.512e3 * t12386 + 0.135e3 / 0.2048e4 * t12390 + 0.9e1 / 0.32e2 * t12393 + 0.1215e4 / 0.2048e4 * t12395 + 0.157e3 / 0.64e2 * t12397 + 0.9e1 / 0.128e3 * t12400 - 0.25e2 / 0.16e2 * t12402 - 0.65e2 / 0.64e2 * t12404 - 0.45e2 / 0.256e3 * t12407;
4927   t12411 = t10226 * t4464;
4928   t12413 = t4463 * t2418;
4929   t12414 = t10229 * t12413;
4930   t12417 = t749 * t1601 * t2553;
4931   t12419 = t1250 * t4411;
4932   t12422 = t483 * t484 * t12207;
4933   t12424 = t793 * t4396;
4934   t12426 = t2469 * t4403;
4935   t12428 = t83 * t4381;
4936   t12430 = t1231 * t12428 * t249;
4937   t12433 = t749 * t12300 * t275;
4938   t12436 = t8254 * t1593 * t230;
4939   t12438 = t2513 * t1594;
4940   t12440 = t8272 * t1602;
4941   t12442 = 0.65e2 / 0.128e3 * t12411 - 0.45e2 / 0.512e3 * t12414 + 0.3e1 / 0.32e2 * t12417 + 0.25e2 / 0.256e3 * t12419 + t12422 / 0.256e3 - 0.45e2 / 0.8e1 * t12424 + 0.45e2 / 0.16e2 * t12426 - 0.9e1 / 0.16e2 * t12430 + 0.9e1 / 0.32e2 * t12433 + 0.405e3 / 0.512e3 * t12436 - 0.45e2 / 0.4e1 * t12438 + 0.45e2 / 0.8e1 * t12440;
4942   t12443 = t3418 * t1623;
4943   t12445 = t793 * t4399;
4944   t12447 = t2469 * t4406;
4945   t12449 = t5943 * t4399;
4946   t12451 = t9991 * t1602;
4947   t12454 = t1231 * t4395 * t758;
4948   t12457 = t1231 * t1593 * t2544;
4949   t12460 = t749 * t4402 * t806;
4950   t12463 = t749 * t1678 * t2499;
4951   t12465 = t10000 * t610;
4952   t12467 = t2469 * t4414;
4953   t12470 = t749 * t4569 * t777;
4954   t12472 = 0.275e3 / 0.384e3 * t12443 - 0.45e2 / 0.16e2 * t12445 + 0.45e2 / 0.32e2 * t12447 - 0.9e1 / 0.16e2 * t12449 + 0.9e1 / 0.16e2 * t12451 - 0.9e1 / 0.16e2 * t12454 - 0.3e1 / 0.16e2 * t12457 + 0.9e1 / 0.32e2 * t12460 + 0.9e1 / 0.16e2 * t12463 + 0.5225e4 / 0.3456e4 * t12465 - 0.45e2 / 0.16e2 * t12467 - 0.9e1 / 0.16e2 * t12470;
4955   t12475 = t12235 + t12269 + t12304 + t12339 + t12374 + t12409 + t12442 + t12472;
4956   t12484 = t4485 * t279;
4957   t12488 = t1626 * t810;
4958   t12492 = t1626 * t814;
4959   t12496 = t613 * t2583;
4960   t12500 = t613 * t2589;
4961   t12522 = -t283 * t12475 * t91 / 0.100e3 + t50 * t12475 * t91 / 0.100e3 - t614 * t10353 / 0.10e2 + 0.3e1 / 0.100e3 * t823 * t12484 * t91 + 0.3e1 / 0.100e3 * t823 * t12488 * t91 - 0.3e1 / 0.100e3 * t2603 * t12492 * t91 + t823 * t12496 * t91 / 0.100e3 + t8402 * t12500 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t4486 * t1276 - 0.9e1 / 0.100e3 * t1627 * t824 - 0.9e1 / 0.100e3 * t1627 * t3542 + 0.9e1 / 0.50e2 * t1627 * t3546 - 0.9e1 / 0.100e3 * t614 * t2600 + 0.3e1 / 0.20e2 * t614 * t10345 - 0.3e1 / 0.100e3 * t614 * t10349 - 0.3e1 / 0.100e3 * t5985 * t2600 + 0.9e1 / 0.50e2 * t5967 * t2600;
4962   t12576 = -0.28139062500000000000e0 * t12204 - 0.50589520072399755009e-7 * t3159 * t1742 - 0.18754685156250000000e1 * t9432 * t626 + 0.54636652308114624024e-3 * t1126 * t1678 * t2553 + 0.75884239316825866699e-5 * t523 * t524 * t12207 + 0.20827405858502883912e0 * t3955 * t1778 - 0.75736021303646850584e-1 * t9372 * t1781 + 0.21923585114213562012e-1 * t1337 * t4580 + 0.10961792557106781006e-1 * t1337 * t4926 - 0.79722127688049316405e-2 * t2957 * t4584 - 0.16381657320004887879e-9 * t565 * t566 * t12207 - 0.10117904014479951002e-5 * t3945 * t1812 + 0.35412664050679828506e-6 * t9229 * t1815 - 0.43709321846491699218e-2 * t1486 * t4569 * t758 - 0.14569773948830566406e-2 * t1486 * t1668 * t2544 + 0.16390995692434387207e-2 * t1126 * t4576 * t806 + 0.29758541219058679417e-9 * t1136 * t4672 * t806 + 0.66837161865619942547e-7 * t1516 * t1699 * t2544 - 0.23589586540807038546e-7 * t1131 * t1709 * t2553 + 0.99195137396862264723e-10 * t1136 * t1658 * t2553;
4963   t12627 = -0.29758541219058679417e-7 * t1380 * t4597 + 0.10415489426670537796e-7 * t2707 * t4602 - 0.28341467827674932778e-9 * t1526 * t1709 * t2544 + 0.19930531922012329101e-1 * t2957 * t4888 - 0.19930531922012329102e-2 * t1141 * t1709 * t2499 + 0.14861439520708434284e-4 * t2681 * t4895 - 0.13210168462851941586e-5 * t1131 * t4848 * t2499 - 0.81954978462171936036e-2 * t1060 * t5004 - 0.78144521484375000000e-1 * t1017 * t5001 + 0.35384379811210557819e-6 * t1082 * t4995 - 0.14879270609529339709e-8 * t1074 * t4998;
4964   t12653 = t4456 * t3473;
4965   t12662 = 0.99652659610061645508e-3 * t1048 * t4989 - 0.29772454404730349778e-4 * t1034 * t4992 - 0.49719353600384307862e0 * t9315 * t632 + 0.95773721355676576498e-4 * t9306 * t650 - 0.62531250000000000000e-1 * t12209 - 0.37518750000000000000e0 * t12211 - 0.93796875000000000000e0 * t12213 - 0.54781316104703843593e-2 * t9138 * t644 - 0.42208593750000000000e0 * t12216 + 0.21104296875000000000e0 * t12219 + 0.15632812500000000000e0 * t12222 + 0.17586914062500000000e0 * t12225 - 0.87934570312500000000e-1 * t12228 + 0.15007500000000000000e1 * t12230 + 0.29895797883018493653e-3 * t3059 * t12236 - 0.29148402935943031311e-2 * t9269 * t12218 + 0.42405921237158618168e-7 * t9036 * t12653 + 0.62492936560023226776e-8 * t9203 * t12239 + 0.11721678222656250000e0 * t9020 * t12653 + 0.35165034667968750000e-1 * t8724 * t12239;
4966   t12700 = 0.40639400262456927449e-3 * t9012 * t12653 + 0.66988022410643287001e-4 * t8721 * t12239 + 0.14069531250000000000e0 * t12233 - 0.70347656250000000000e-1 * t12237 + 0.14069531250000000000e0 * t12240 - 0.75037500000000000000e0 * t12242 + 0.28139062500000000000e0 * t12245 - 0.14069531250000000000e0 * t12248 - 0.22329340803547762334e-4 * t3062 * t12247 - 0.11164670401773881167e-4 * t3062 * t12236 + 0.13397604482128657400e-3 * t9262 * t12218;
4967   t12744 = -0.90230168518586922438e-6 * t3198 * t12244 - 0.45115084259293461219e-6 * t3198 * t12232 + 0.64288995069493182237e-5 * t8886 * t12215 + 0.98345974154606323242e-2 * t2822 * t12244 + 0.49172987077303161621e-2 * t2822 * t12232 - 0.36879740307977371216e-1 * t8872 * t12215 - 0.36879740307977371216e-2 * t3068 * t12247 - 0.18439870153988685608e-2 * t3068 * t12236 + 0.13829902615491514206e-1 * t9181 * t12218 - 0.33433467299175682068e-1 * t4200 * t4385 + 0.12157624472427520752e-1 * t9642 * t4388 - 0.16442688835660171509e-2 * t3210 * t12244 - 0.82213444178300857545e-3 * t3210 * t12232 + 0.80158108073843336106e-2 * t8956 * t12215 + 0.59791595766036987305e-3 * t3059 * t12247 - 0.73533164295171940468e-6 * t10930 * t12224 + 0.31845941830089502038e-6 * t3071 * t12247 + 0.15922970915044751019e-6 * t3071 * t12236 - 0.22690233553938770202e-5 * t8735 * t12218 + 0.15772026846101100091e-6 * t4155 * t4385;
4968   t12788 = -0.56567663368987664579e-3 * t8708 * t4388 + 0.62522154249933734535e-4 * t2806 * t12244 + 0.31261077124966867269e-4 * t2806 * t12232 - 0.37513292549960240722e-3 * t8941 * t12215 - 0.10627021903729230166e-2 * t12004 * t12224 + 0.50083597949105072022e-2 * t11982 * t12221 - 0.22537619077097282410e-2 * t11987 * t12227 + 0.40490537990433275700e-4 * t11993 * t12221 + 0.45551855239237435162e-4 * t11997 * t12224 - 0.17081945714714038185e-4 * t12026 * t12227 + 0.58608391113281250000e-1 * t2814 * t12244;
4969   t12825 = 0.29304195556640625000e-1 * t2814 * t12232 - 0.15384702667236328125e0 * t8864 * t12215 - 0.23443356445312500000e-1 * t3065 * t12247 - 0.11721678222656250000e-1 * t3065 * t12236 + 0.61538810668945312500e-1 * t9178 * t12218 - 0.65362812706819502635e-6 * t12007 * t12221 + 0.27091165792958083330e-6 * t10933 * t12227 - 0.13186888000488281250e-1 * t10943 * t12227 + 0.40873161168189346791e-3 * t11990 * t12227 + 0.27350582519531250000e-1 * t10936 * t12221 + 0.30769405334472656250e-1 * t10940 * t12224 + 0.56344047692743206024e-2 * t12020 * t12224 - 0.94462416922037601474e-3 * t12023 * t12221 - 0.75037500000000000000e0 * t12251 + 0.78164062499999999998e0 * t12253 + 0.62531250000000000000e-1 * t12257 + 0.39082031250000000000e0 * t12259 - 0.62531250000000000000e-1 * t12263 + 0.11360403195547027588e0 * t9121 * t638 - 0.37518750000000000000e1 * t12265;
4970   t12848 = 0.52109374999999999999e0 * t12298 - 0.97705078125000000000e-2 * t12302 + 0.19106770833333333333e1 * t12305 - 0.95533854166666666667e0 * t12307 - 0.65064344618055555555e0 * t12309 + 0.26054687499999999999e0 * t12311 - 0.13027343750000000000e0 * t12313 - 0.15632812500000000000e-1 * t12317 - 0.52109375000000000000e-2 * t12321 - 0.26054687499999999999e0 * t12323 - 0.16935546875000000000e0 * t12325;
4971   t12857 = t164 * t4381;
4972   t12864 = t177 * t4381;
4973   t12871 = t422 * t4381;
4974   t12878 = t126 * t4381;
4975   t12886 = t137 * t4381;
4976   t12890 = t150 * t4381;
4977   t12905 = 0.31265625000000000000e-1 * t12329 - 0.15632812500000000000e-1 * t12333 + 0.31265625000000000000e-1 * t12337 + 0.10421875000000000000e-1 * t12344 + 0.59544908809460699556e-5 * t1116 * t12857 * t275 + 0.20051148559685982764e-6 * t1516 * t12857 * t249 - 0.70768759622421115638e-7 * t1131 * t12864 * t275 - 0.85024403483024798334e-9 * t1526 * t12864 * t249 + 0.29758541219058679417e-9 * t1136 * t12871 * t275 - 0.39072260742187500000e-1 * t1475 * t12300 * t249 + 0.15628904296875000000e-1 * t1121 * t12878 * t275 - 0.42461255773452669384e-5 * t2681 * t4952 - 0.21230627886726334692e-5 * t2681 * t4587 + 0.54808962785533905030e-3 * t1496 * t12886 * t249 - 0.19930531922012329101e-3 * t1141 * t12890 * t275 - 0.16672574466648995876e-4 * t1506 * t12890 * t249 + 0.34421090954112213135e0 * t9219 * t1772 - 0.13112796553947509766e0 * t1412 * t4573 - 0.65563982769737548828e-1 * t1412 * t4986 + 0.49172987077303161622e-1 * t2736 * t4577;
4978   t12958 = -0.26989261977725028993e-4 * t1344 * t538 * t12335 - 0.89964206592416763308e-5 * t1344 * t538 * t12342 + 0.10380485376048088074e-4 * t537 * t552 * t12315 + 0.34601617920160293580e-5 * t537 * t552 * t12319 + 0.61485631763250529766e-3 * t859 * t1692 - 0.23057111911218948663e-3 * t3857 * t1695 - 0.16728903215260414717e-3 * t10744 * t1700 + 0.44989486656036972999e-4 * t4033 * t4731 + 0.22494743328018486500e-4 * t4033 * t4795 - 0.62250297816018573940e-6 * t3939 * t4650 - 0.31125148908009286971e-6 * t3939 * t4823;
4979   t13007 = 0.22934320248006843030e-6 * t1455 * t4653 + 0.11467160124003421515e-6 * t1455 * t4826 + 0.16545473893204936758e-6 * t3945 * t4657 - 0.93375446724027860910e-8 * t1372 * t566 * t12335 - 0.31125148908009286970e-8 * t1372 * t566 * t12342 - 0.91061087180191040040e-4 * t523 * t538 * t12315 - 0.30353695726730346680e-4 * t523 * t538 * t12319 - 0.14064404297281153997e-1 * t852 * t1682 + 0.54093862681850592299e-2 * t3822 * t1685 + 0.38990640922121959264e-2 * t10565 * t1689 - 0.12594988922938346863e-2 * t3965 * t4644 - 0.62974944614691734316e-3 * t3965 * t4782 + 0.48442265088224411013e-3 * t1444 * t4647 + 0.24221132544112205506e-3 * t1444 * t4785 + 0.34394008212639331819e-3 * t4022 * t4725 - 0.47235779712791554630e-11 * t579 * t1390 * t12319 + 0.37480427897135416668e0 * t839 * t1662 - 0.16063040527343750000e0 * t3853 * t1665 - 0.11282718256293402778e0 * t10688 * t1669 + 0.34401480372010264545e-8 * t565 * t580 * t12315;
4980   t13062 = -0.14170733913837466389e-10 * t579 * t1390 * t12315 + 0.72342974815373992917e-1 * t845 * t1672 - 0.28937189926149597168e-1 * t3865 * t1675 - 0.20654846783825369517e-1 * t10418 * t1679 + 0.83472663248508453367e-2 * t3949 * t4757 + 0.41736331624254226683e-2 * t3949 * t4722 - 0.33389065299403381347e-2 * t1438 * t4760 - 0.23372345709582366943e-2 * t3955 * t4763 + 0.22765271795047760010e-3 * t1329 * t524 * t12335 + 0.75884239316825866699e-4 * t1329 * t524 * t12342 + 0.72663397632336616518e-5 * t1352 * t12890 * t67;
4981   t13119 = -0.16871057496013864875e-4 * t1450 * t4734 - 0.84355287480069324375e-5 * t1450 * t4798 - 0.12090924538809936494e-4 * t4039 * t4738 - 0.13024086914062500000e-1 * t1466 * t4713 - 0.17799585449218750000e-1 * t4010 * t4749 + 0.22792152099609375000e-2 * t1404 * t510 * t12335 + 0.75973840332031250000e-3 * t1404 * t510 * t12342 - 0.97680651855468750000e-3 * t509 * t524 * t12315 - 0.32560217285156250000e-3 * t509 * t524 * t12319 + 0.10837173403321847320e-2 * t3803 * t1699 * t8199 - 0.21674346806643694639e-3 * t3803 * t1688 * t8203 + 0.16672574466648995876e-3 * t1506 * t4737 * t3443 + 0.83362872333244979381e-4 * t1506 * t1699 * t8178 + 0.83362872333244979380e-4 * t1506 * t1699 * t8182 - 0.35726945285676419733e-4 * t1116 * t1709 * t8186 + 0.79393211745947599410e-6 * t1358 * t552 * t12327 - 0.29772454404730349779e-6 * t551 * t566 * t12331 - 0.21088821870017331093e-6 * t1366 * t12857 * t67 + 0.55769710580902562166e-7 * t873 * t1652 + 0.60779072265625000001e-1 * t4004 * t4743;
4982   t13177 = 0.26225593107895019531e-1 * t1486 * t4576 * t3443 + 0.13112796553947509766e-1 * t1486 * t1678 * t8178 + 0.13112796553947509766e-1 * t1486 * t1678 * t8182 - 0.65563982769737548830e-2 * t1126 * t1688 * t8186 + 0.22765271795047760010e-3 * t1329 * t524 * t12327 + 0.29876630668340658303e-8 * t4107 * t4666 + 0.22792152099609375000e-2 * t1404 * t510 * t12327 - 0.75569933537630081179e-2 * t10523 * t4694 - 0.14532679526467323304e-2 * t1444 * t4697 - 0.10063798146923002787e-4 * t866 * t1703 - 0.56025268034416716547e-5 * t10487 * t4691;
4983   t13222 = 0.37077151067611062899e-5 * t3861 * t1706 - 0.91737280992027372121e-6 * t1455 * t4682 + 0.27027914393861397790e-5 * t10477 * t1710 - 0.14666709600821777712e-8 * t10903 * t12227 + 0.35851956802008789964e-8 * t12000 * t12221 + 0.40333451402259888710e-8 * t10900 * t12224 + 0.33742114992027729750e-3 * t10509 * t4685 + 0.59048701236048527062e-4 * t1450 * t4688 - 0.16694532649701690674e-2 * t1438 * t4773 - 0.20279894756691840787e-7 * t3869 * t1655 + 0.48889032002739259041e-8 * t1461 * t4638 - 0.14835708723794209719e-7 * t10771 * t1659 + 0.14938315334170329152e-8 * t4107 * t4805 + 0.37562698461828804015e-1 * t10577 * t4703 + 0.83472663248508453368e-2 * t1438 * t4706 + 0.18233721679687500000e0 * t11353 * t4641 + 0.52096347656250000000e-1 * t1466 * t4700 + 0.20840718083311244846e-5 * t551 * t580 * t12276 + 0.31370462201757691218e-7 * t10495 * t4635 + 0.13675291259765625000e-1 * t4049 * t510 * t12280;
4984   t13283 = -0.32387114373270034791e-3 * t4088 * t538 * t12280 - 0.62282912256288528444e-4 * t537 * t566 * t12276 + 0.39072260742187500000e-2 * t509 * t538 * t12276 + 0.39338389661842529298e0 * t1412 * t4754 - 0.52451186215790039063e-1 * t1486 * t1688 * t10093 + 0.20488744615542984009e-2 * t4096 * t524 * t12280 + 0.45530543590095520020e-3 * t523 * t552 * t12276 + 0.54808962785533905030e-2 * t3835 * t1678 * t8203 - 0.43847170228427124023e-2 * t1496 * t4583 * t3443 - 0.21923585114213562012e-2 * t1496 * t1688 * t8178 - 0.21923585114213562012e-2 * t1496 * t1688 * t8182;
4985   t13348 = 0.99652659610061645508e-3 * t1141 * t1699 * t8186 - 0.26989261977725028993e-4 * t1344 * t538 * t12327 + 0.10380485376048088074e-4 * t537 * t552 * t12331 + 0.84214823950681127608e-5 * t1516 * t1658 * t10093 + 0.59517082438117358835e-8 * t1526 * t1658 * t8182 - 0.23806832975246943534e-8 * t1136 * t4848 * t8186 - 0.91061087180191040040e-4 * t523 * t538 * t12331 - 0.62604497436381340026e-4 * t1337 * t12886 * t67 - 0.21923585114213562012e-1 * t3835 * t1688 * t8199 + 0.11308245663242298179e-6 * t3844 * t1658 * t8199 - 0.16154636661774711684e-7 * t3844 * t1709 * t8203 + 0.11903416487623471767e-7 * t1526 * t4672 * t3443 + 0.59517082438117358835e-8 * t1526 * t1658 * t8178 + 0.31257808593750000000e0 * t3794 * t1668 * t8199 - 0.15628904296875000000e0 * t3794 * t1601 * t8203 + 0.15628904296875000000e0 * t1475 * t4569 * t3443 + 0.78144521484375000000e-1 * t1475 * t1668 * t8178 + 0.78144521484375000000e-1 * t1475 * t1668 * t8182 - 0.46886712890625000000e-1 * t1121 * t1678 * t8186 - 0.72184134814869537952e-4 * t1366 * t4679;
4986   t13412 = -0.11458366875642013838e-8 * t11696 * t1658 * t10141 - 0.19249102617298543454e-4 * t3812 * t1709 * t8199 + 0.32081837695497572424e-5 * t3812 * t1699 * t8203 - 0.24061378271623179317e-5 * t1516 * t4656 * t3443 - 0.12030689135811589658e-5 * t1516 * t1709 * t8178 - 0.12030689135811589658e-5 * t1516 * t1709 * t8182 + 0.21285915980181351188e-6 * t10708 * t1709 * t10141 - 0.13523207024148613564e-4 * t11640 * t1699 * t10141 - 0.18311815500141541958e-2 * t11651 * t1678 * t10141 + 0.38969518263053032569e-10 * t1386 * t580 * t12327 - 0.14170733913837466389e-10 * t579 * t1390 * t12331;
4987   t13459 = -0.10185215000570678967e-10 * t1398 * t12871 * t67 + 0.54557325568274245596e-8 * t10499 * t580 * t12255 - 0.42512201741512399167e-9 * t579 * t10505 * t12261 + 0.22792152099609375000e-1 * t11357 * t510 * t12255 - 0.65120434570312500000e-2 * t509 * t552 * t12261 + 0.54636652308114624023e-2 * t10581 * t524 * t12255 - 0.91061087180191040040e-3 * t523 * t566 * t12261 + 0.14532679526467323304e-3 * t537 * t580 * t12261 - 0.95242955658508418128e-6 * t10491 * t566 * t12255 - 0.11875275270199012757e-2 * t10527 * t538 * t12255 + 0.82563552892824634908e-7 * t565 * t4064 * t12261 + 0.55575248222163319587e-4 * t10513 * t552 * t12255 - 0.11959101562500000000e1 * t12346 - 0.21104296875000000000e0 * t12349 - 0.18759375000000000000e0 * t12352 + 0.93796875000000000000e-1 * t12355 - 0.12506250000000000000e0 * t12358 - 0.62531250000000000000e-1 * t12361 - 0.62531250000000000000e-1 * t12364 + 0.14069531250000000000e0 * t12366;
4988   t13490 = 0.46898437500000000000e-1 * t12400 - 0.10421875000000000000e1 * t12402 - 0.67742187499999999998e0 * t12404 - 0.11724609375000000000e0 * t12407 + 0.33871093750000000000e0 * t12411 - 0.58623046875000000000e-1 * t12414 - 0.96927819970648270100e-7 * t11435 * t1709 * t2575 - 0.83323915413364302367e-7 * t2707 * t4849 + 0.71420498925740830600e-8 * t1136 * t7319 * t2499 + 0.10961792557106781006e0 * t5393 * t4885 + 0.16442688835660171509e-1 * t11443 * t1678 * t2575;
4989   t13540 = -0.46886712890625000000e0 * t2960 * t4858 + 0.62515617187500000000e-1 * t1121 * t1688 * t2499 + 0.17444499246926805005e-3 * t4039 * t1803 + 0.96245513086492717269e-4 * t5614 * t4865 - 0.56541228316211490893e-6 * t5601 * t4900 + 0.14886227202365174889e-3 * t2937 * t4964 - 0.39072260742187500000e0 * t1260 * t4970 + 0.16040918847748786212e-4 * t11460 * t1699 * t2575 - 0.61568820871506370606e-4 * t9232 * t1806 - 0.15628904296875000000e1 * t5192 * t4855 - 0.15628904296875000000e0 * t11464 * t1601 * t2575 + 0.15628904296875000000e0 * t2960 * t4976 - 0.66435106406707763672e-4 * t1141 * t1688 * t2553 - 0.69203235840320587160e-6 * t537 * t538 * t12207 - 0.10003544679989397526e-1 * t4022 * t1788 + 0.35726945285676419735e-2 * t8518 * t1791 - 0.83362872333244979379e-3 * t1352 * t4943 - 0.41681436166622489691e-3 * t1352 * t4940 + 0.29772454404730349778e-3 * t2937 * t4946 - 0.16672574466648995876e-4 * t1506 * t4583 * t758;
4990   t13572 = -0.37518750000000000000e0 * t12430 + 0.18759375000000000000e0 * t12433 + 0.52760742187500000000e0 * t12436 - 0.75037500000000000000e1 * t12438 + 0.37518750000000000000e1 * t12440 + 0.47766927083333333333e0 * t12443 - 0.18759375000000000000e1 * t12445 + 0.93796875000000000000e0 * t12447 - 0.37518750000000000000e0 * t12449 + 0.37518750000000000000e0 * t12451 - 0.37518750000000000000e0 * t12454;
4991   t13617 = -0.12506250000000000000e0 * t12457 + 0.18759375000000000000e0 * t12460 + 0.37518750000000000000e0 * t12463 + 0.10084129050925925926e1 * t12465 - 0.18759375000000000000e1 * t12467 - 0.37518750000000000000e0 * t12470 - 0.43709321846491699218e-2 * t1486 * t12878 * t249 + 0.16390995692434387207e-2 * t1126 * t12886 * t275 - 0.52967358668015804142e-6 * t3861 * t1809 + 0.53543468424479166668e-1 * t3853 * t1766 + 0.72342974815373992917e-2 * t3865 * t1775 - 0.21674346806643694638e-3 * t3803 * t4583 * t738 - 0.35726945285676419733e-4 * t1116 * t4656 * t777 + 0.14059214580011554062e-5 * t1450 * t4967 + 0.25349868445864800984e-8 * t3869 * t1818 - 0.30596525292544189452e-1 * t3825 * t4569 * t738 - 0.65563982769737548830e-2 * t1126 * t4583 * t777 + 0.41736331624254226683e-3 * t1438 * t4919 + 0.54808962785533905030e-2 * t3835 * t4576 * t738 + 0.99652659610061645506e-3 * t1141 * t4737 * t777;
4992   t13628 = t1012 * t1606;
4993   t13673 = 0.21175061986186441572e-7 * t8591 * t1709 * t230 + 0.12307762133789062500e0 * t8601 * t1601 * t230 + 0.25354821461734442712e-1 * t8611 * t1668 * t230 - 0.51009705137900304795e-2 * t8621 * t1678 * t230 + 0.22775927619618717581e-3 * t8631 * t1688 * t230 - 0.37817055923231283669e-5 * t8651 * t1699 * t230 + 0.33731700759005498969e-3 * t11350 * t647 - 0.80967785933175086977e-3 * t11844 * t12392 - 0.12520899487276268006e-2 * t10967 * t12413 + 0.33345148933297991753e-4 * t11869 * t12392 + 0.13539309628526725283e-6 * t8501 * t1598;
4994   t13718 = 0.56611364453125000000e0 * t9040 * t1598 + 0.13768106136943079531e-2 * t8437 * t1598 - 0.23617107725104646758e-4 * t8505 * t1598 - 0.29391998326100959778e-1 * t8446 * t1598 + 0.13518018391899359894e0 * t8494 * t1598 - 0.11581831725243455730e-5 * t11906 * t4464 - 0.13158566242293926189e-5 * t11910 * t4468 - 0.16807580410325014964e-6 * t6213 * t12354 + 0.65362812706819502636e-7 * t4193 * t12360 + 0.46687723362013930455e-7 * t4148 * t12378 + 0.65362812706819502635e-7 * t4193 * t12363 - 0.27521184297608211636e-7 * t11106 * t12399 + 0.45530543590095520020e-2 * t11270 * t12392 - 0.41025873779296875000e-1 * t11045 * t12351 + 0.27350582519531250000e-1 * t11913 * t12392 - 0.27350582519531250000e-1 * t11051 * t12406 + 0.81835988352411368394e-9 * t6239 * t12354 + 0.13494630988862514496e-3 * t4204 * t12360 + 0.94462416922037601474e-4 * t4208 * t12378 + 0.13494630988862514496e-3 * t4204 * t12363;
4995   t13762 = 0.44712210676431131364e-2 * t11848 * t4460 - 0.17197004106319665909e-2 * t11851 * t4464 - 0.19619117360730886460e-2 * t11894 * t4468 - 0.32387114373270034791e-3 * t6278 * t12354 + 0.43575208471213001758e-5 * t11858 * t4481 + 0.31436400397089379840e-5 * t11899 * t4460 - 0.22407473001255493728e-9 * t4164 * t12378 - 0.31175614610442426056e-9 * t4159 * t12363 + 0.12753660522453719750e-9 * t11916 * t12399 + 0.81481720004565431736e-10 * t4170 * t12385 - 0.18233721679687500000e0 * t12045 * t4481;
4996   t13805 = -0.12459709814453125000e0 * t12030 * t4460 + 0.53398756347656250000e-1 * t12033 * t4464 + 0.82562737621117851231e-4 * t11855 * t4468 + 0.11908981761892139912e-4 * t6226 * t12354 - 0.47635927047568559646e-5 * t4178 * t12360 - 0.33742114992027729750e-5 * t4182 * t12378 - 0.47635927047568559646e-5 * t4178 * t12363 + 0.20840718083311244846e-5 * t11945 * t12399 + 0.12653293122010398656e-5 * t4185 * t12385 - 0.23901304534672526643e-7 * t11879 * t4481 + 0.63012530136863933875e-8 * t11890 * t4464 - 0.17328445787637581816e-7 * t11887 * t4460 + 0.71500209304006166347e-8 * t12042 * t4468 + 0.10705369061621209144e-1 * t11838 * t4468 + 0.20488744615542984009e-2 * t6201 * t12354 - 0.91061087180191040040e-3 * t4215 * t12360 - 0.62604497436381340026e-3 * t4219 * t12378 + 0.18892483384407520295e-3 * t4208 * t12375 - 0.72663397632336616518e-4 * t4211 * t12382 - 0.81746322336378693582e-4 * t4174 * t12389;
4997   t13850 = 0.93489382838329467773e-2 * t11862 * t4464 - 0.31175614610442426055e-9 * t4159 * t12360 - 0.76933493591965286824e-2 * t11422 * t641 + 0.20227532515914351853e0 * t11342 * t629 + 0.39386730732814729477e-1 * t11473 * t635 - 0.54185867016609236598e-2 * t5483 * t4911 - 0.55321463497705395437e-5 * t11469 * t653 - 0.89317363214191049335e-3 * t2937 * t4870 + 0.83362872333244979377e-4 * t1116 * t1658 * t2499 + 0.30701507339991814525e-7 * t11346 * t659 - 0.98345974154606323243e-1 * t2736 * t4880;
4998   t13897 = 0.10927330461622924805e-1 * t1126 * t1699 * t2499 - 0.86697387226574778556e-3 * t11453 * t1688 * t2575 - 0.45894787938816284179e0 * t5458 * t4877 - 0.61193050585088378904e-1 * t11425 * t1668 * t2575 + 0.50083597949105072022e-3 * t4196 * t12382 + 0.56344047692743206024e-3 * t4200 * t12389 + 0.26989261977725028993e-3 * t4204 * t12357 + 0.39072260742187500000e-2 * t4140 * t12382 + 0.43956293334960937500e-2 * t4144 * t12389 - 0.18212217436038208008e-2 * t4215 * t12357 - 0.12520899487276268005e-2 * t4219 * t12375 - 0.67484229984055459499e-5 * t4182 * t12375 + 0.25306586244020797312e-5 * t4185 * t12382 + 0.28469909524523396976e-5 * t4189 * t12389 - 0.13675291259765625000e-1 * t4133 * t12357 - 0.91168608398437500000e-2 * t4137 * t12375 + 0.13072562541363900527e-6 * t4193 * t12357 + 0.93375446724027860910e-7 * t4148 * t12375 - 0.34401480372010264545e-7 * t4151 * t12382 - 0.38701665418511547614e-7 * t4155 * t12389;
4999   t13947 = -0.39696605872973799705e-6 * t322 * t151 * t12207 + 0.39315977568011730910e-8 * t331 * t165 * t12207 + 0.16296344000913086347e-9 * t4170 * t12382 + 0.18333387001027222140e-9 * t4129 * t12389 - 0.71453890571352839469e-4 * t11929 * t12351 - 0.50613172488041594625e-4 * t11002 * t12406 + 0.18849645046299545289e-1 * t2888 * t4474 - 0.72222824769789018632e-1 * t9001 * t4478 - 0.30394061181068801880e-2 * t2833 * t4474 + 0.15060008183570566178e-1 * t9087 * t4478 + 0.11313532673797532916e-3 * t2844 * t4474;
5000   t13993 = 0.11159452957147004781e-9 * t959 * t12371 + 0.58608391113281250000e-2 * t912 * t12371 + 0.61466233846628952027e-3 * t921 * t12371 - 0.52290250165455602109e-6 * t11103 * t12392 - 0.62351229220884852111e-9 * t4159 * t12357 - 0.44814946002510987455e-9 * t4164 * t12375 + 0.11765306287227510474e-5 * t11958 * t12351 + 0.84037902051625074819e-6 * t11903 * t12406 + 0.16193557186635017396e-2 * t10980 * t12351 + 0.13760592148804105818e-6 * t11109 * t12413 + 0.21799019289700984956e-3 * t11232 * t12413;
5001   t14027 = t2805 * t944 * t606;
5002   t14031 = t2821 * t924 * t606;
5003   t14035 = t3209 * t933 * t606;
5004   t14039 = t3205 * t962 * t606;
5005   t14043 = t2813 * t915 * t606;
5006   t14047 = t3197 * t953 * t606;
5007   t14050 = -0.18413097379292557889e-8 * t3256 * t12348 - 0.65468790681929094716e-8 * t11963 * t12351 - 0.47055693302636536828e-8 * t11969 * t12406 - 0.73333548004108888563e-9 * t11920 * t12413 - 0.78144521484375000000e-2 * t11089 * t12413 - 0.31261077124966867268e-3 * t14027 * t2479 - 0.29503792246381896972e-1 * t14031 * t2479 + 0.65770755342640686036e-2 * t14035 * t2479 - 0.31246468280011613388e-7 * t14039 * t2479 - 0.11721678222656250000e0 * t14043 * t2479 + 0.54138101111152153464e-5 * t14047 * t2479;
5008   t14057 = t12484 * t184;
5009   t14060 = t12488 * t184;
5010   t14063 = t12492 * t184;
5011   t14066 = t12496 * t184;
5012   t14068 = t12500 * t184;
5013   t14084 = t4504 * t3293;
5014   t14096 = t429 * t430 * t12475 * t184 - t12070 * t14068 - 0.36e2 * t12075 * t14068 - 0.12e2 * t12084 * t14068 - 0.24e2 * t12092 * t14068 - 0.6e1 * t1537 * t14057 - 0.3e1 * t1545 * t14057 - 0.6e1 * t1537 * t14060 - 0.3e1 * t1545 * t14060 + 0.18e2 * t4260 * t14063 + 0.18e2 * t4268 * t14063 + 0.3e1 * t4280 * t14063 - 0.2e1 * t1537 * t14066 - t1545 * t14066 + 0.18e2 * t4260 * t14084 + 0.18e2 * t4268 * t14084 + 0.3e1 * t4280 * t14084;
5015   t14097 = my_piecewise3(t102, -0.55575248222163319587e-5 * t1506 * t1688 * t2544 + 0.54808962785533905030e-3 * t1496 * t4576 * t758 + 0.18269654261844635010e-3 * t1496 * t1678 * t2544 - 0.19930531922012329101e-3 * t1141 * t4583 * t806 + 0.49538131735694780946e-6 * t1131 * t4672 * t777 - 0.16154636661774711684e-7 * t3844 * t4656 * t738 - 0.23806832975246943534e-8 * t1136 * t13628 * t777 - 0.15628904296875000000e0 * t3794 * t4402 * t738 + 0.59544908809460699556e-5 * t1116 * t4737 * t806 - 0.14170733913837466389e-10 * t417 * t178 * t12207 - 0.26048173828125000000e-2 * t339 * t114 * t12207 - 0.18212217436038208008e-3 * t348 * t127 * t12207 + 0.16608776601676940918e-4 * t357 * t138 * t12207 + 0.59044724640989443287e-12 * t579 * t580 * t12207 + 0.20051148559685982764e-6 * t1516 * t4737 * t758 - 0.70768759622421115638e-7 * t1131 * t4656 * t806 - 0.85024403483024798334e-9 * t1526 * t4656 * t758 - 0.46886712890625000000e-1 * t1121 * t4576 * t777 + 0.32081837695497572422e-5 * t3812 * t4737 * t738 + 0.15628904296875000000e-1 * t1121 * t4569 * t806 + 0.52096347656250000000e-2 * t1121 * t1668 * t2553 + 0.10853405761718750000e-3 * t509 * t510 * t12207 + 0.11467160124003421515e-8 * t565 * t580 * t12319 + 0.79393211745947599410e-6 * t1358 * t552 * t12335 + 0.26464403915315866470e-6 * t1358 * t552 * t12342 - 0.29772454404730349779e-6 * t551 * t566 * t12315 - 0.99241514682434499264e-7 * t551 * t566 * t12319 + 0.38969518263053032569e-10 * t1386 * t580 * t12335 + 0.12989839421017677523e-10 * t1386 * t580 * t12342 + 0.19848302936486899852e-5 * t1116 * t1699 * t2553 + 0.16540252447072416544e-7 * t551 * t552 * t12207 - 0.39072260742187500000e-1 * t1475 * t4402 * t758 - 0.13024086914062500000e-1 * t1475 * t1601 * t2544 - 0.97680651855468750000e-3 * t509 * t524 * t12331 - 0.65120434570312500000e-3 * t1412 * t12878 * t67 + 0.91789575877632568358e-1 * t3825 * t1678 * t8199 - 0.30596525292544189452e-1 * t3825 * t1668 * t8203 - 0.50017723399946987627e-3 * t1506 * t1709 * t10093 + 0.11908981761892139912e-4 * t4069 * t552 * t12280 - 0.16807580410325014964e-6 * t4077 * t566 * t12280 - 0.27521184297608211636e-7 * t565 * t1390 * t12276 - 0.47613665950493887068e-7 * t1526 * t4848 * t10093 + 0.81835988352411368395e-9 * t4060 * t580 * t12280 + 0.10961792557106781006e-1 * t1496 * t1699 * t10093 + 0.49538131735694780946e-6 * t1131 * t1658 * t8186 - 0.93375446724027860910e-8 * t1372 * t566 * t12327 + 0.34401480372010264545e-8 * t565 * t580 * t12331 + 0.24572485980007331818e-8 * t1380 * t12864 * t67 - 0.55575248222163319588e-5 * t551 * t1390 * t12261 + 0.12753660522453719750e-9 * t579 * t4064 * t12276 - 0.23443356445312500000e0 * t1475 * t1678 * t10093 + 0.32698528934551477433e-3 * t10719 * t1688 * t10141 - 0.10989073333740234375e-1 * t10700 * t1668 * t10141 + 0.26054687500000000000e-2 * t12422 - 0.37518750000000000000e1 * t12424 + 0.19541015625000000000e-1 * t12386 + t13718 + t13222 + 0.43967285156250000000e-1 * t12390 + 0.18759375000000000000e0 * t12393 + 0.70347656250000000000e-1 * t12372 + t12744 + t13490 + t13673 + 0.39570556640625000000e0 * t12395 + 0.16362343750000000000e1 * t12397 - 0.78164062500000000000e-1 * t12376 - 0.39082031250000000000e-1 * t12379 + t13459 + 0.18759375000000000000e1 * t12426 + t12627 + t13540 + t13007 + t13993 + t13897 + 0.62531250000000000000e-1 * t12417 + 0.65136718749999999999e-1 * t12419 + t13762 + t13283 + t14050 + t13412 + t13348 + 0.75037500000000000000e0 * t12368 + t12958 + 0.93796875000000000000e-1 * t12282 - 0.37518750000000000000e1 * t12271 + t12905 - 0.76942749023437500000e-1 * t12274 + 0.46898437500000000000e-1 * t12278 - 0.74739494707546234131e-4 * t930 * t12371 + 0.22329340803547762334e-5 * t939 * t12371 - 0.26538284858407918365e-7 * t950 * t12371 - 0.55202093961353850319e-7 * t8688 * t4388 + 0.44637811828588019124e-8 * t3206 * t12244 + 0.22318905914294009562e-8 * t3206 * t12232 - 0.36826194758585115777e-7 * t8879 * t12215 - 0.15623234140005806694e-8 * t3074 * t12247 - 0.78116170700029033470e-9 * t3074 * t12236 + 0.12889168165504790522e-7 * t9184 * t12218 + 0.60562004150390625000e0 * t3458 * t4385 - 0.24224801660156250000e0 * t8700 * t4388 + 0.15838945743316546082e-2 * t4174 * t4385 + 0.41681436166622489691e-2 * t1352 * t4728 + 0.41661957706682151185e-6 * t1380 * t4663 - 0.87694340456854248047e-1 * t1337 * t4766 - 0.26048173828125000000e-1 * t1466 * t4746 + 0.30389536132812500001e-1 * t4004 * t4710 + t13850 + 0.39082031250000000000e-1 * t12383 + t13177 + t12662 + t13805 + t12700 - 0.71453890571352839468e-3 * t3269 * t1736 - 0.70330069335937500000e0 * t3084 * t1727 - 0.56548935138898635864e-1 * t8738 * t4388 + 0.34421090954112213134e-1 * t8901 * t12653 + 0.73759480615954742431e-2 * t8727 * t12239 - 0.82213444178300857545e-2 * t8911 * t12653 - 0.14947898941509246826e-2 * t9209 * t12239 - 0.11146079640531325713e-5 * t8730 * t12239 - 0.27369817783971366472e-4 * t4189 * t4385 - 0.72184134814869537952e-5 * t9028 * t12653 + 0.96599356884604822847e-5 * t8705 * t4388 + 0.15079716037039636230e0 * t4144 * t4385 - 0.35165034667968750000e1 * t3514 * t1821 + 0.14066013867187500000e1 * t9342 * t1824 - 0.78144521484375000000e0 * t1260 * t4566 + 0.31257808593750000000e0 * t2960 * t4570 - 0.59517082438117358835e-7 * t1380 * t4955 + 0.20830978853341075593e-7 * t2707 * t4958 - 0.62282912256288528444e-4 * t11229 * t12399 - 0.36331698816168308259e-4 * t4211 * t12385 - 0.26993691993622183800e-3 * t11865 * t4481 - 0.19345479262095898390e-3 * t11873 * t4460 + 0.72545547232859618961e-4 * t11876 * t4464 - 0.17200740186005132272e-7 * t4151 * t12385 + 0.28058053149398183450e-8 * t11883 * t12392 - 0.30769405334472656250e-1 * t3219 * t12348 - 0.46099675384971714021e-2 * t3228 * t12348 + 0.72871007339857578278e-3 * t3238 * t12348 - 0.26795208964257314801e-4 * t3184 * t12348 + 0.37817055923231283670e-6 * t3247 * t12348 + 0.38428519852031581104e-4 * t3857 * t1794 - 0.48442265088224411013e-4 * t1444 * t4933 - 0.16381657320004887879e-7 * t1455 * t4590 + 0.67901433337137859779e-10 * t1461 * t4605 - 0.10818772536370118460e-2 * t3822 * t1784 - 0.91061087180191040040e-3 * t4215 * t12363 + 0.45530543590095520020e-3 * t10964 * t12399 + 0.25041798974552536011e-3 * t4196 * t12385 + 0.62974944614691734316e-2 * t11841 * t4481 + 0.15628904296875000000e1 * t1260 * t4676 - 0.39861063844024658202e-2 * t2957 * t4930 - 0.68774369674927107989e-3 * t8963 * t4478 - 0.16099892814100803808e-5 * t2866 * t4474 + 0.11597230483124260325e-4 * t8890 * t4478 - 0.10864229333942057565e-8 * t1461 * t4669 - 0.54321146669710287824e-9 * t1461 * t4808 + 0.43413623046875000001e-2 * t1466 * t4979 + 0.12030689135811589658e-4 * t1366 * t4949 + 0.60153445679057948292e-5 * t1366 * t4961 - 0.91789575877632568361e0 * t4010 * t1769 + 0.24586493538651580811e-1 * t2736 * t4916 - 0.55648472079639730510e-6 * t9309 * t656 + 0.10261470145251061768e-4 * t2645 * t1739 - 0.11473696984704071045e0 * t2651 * t1730 - 0.33389065299403381347e-1 * t11830 * t4481 - 0.23372345709582366943e-1 * t11834 * t4460 - 0.88573051854072790593e-5 * t11948 * t12413 + 0.11335490030644512177e-2 * t10986 * t12406 - 0.81954978462171936036e-2 * t11240 * t12351 - 0.56344047692743206024e-2 * t11246 * t12406 - 0.78765662671079917344e-9 * t3994 * t4673 + 0.78860134230505500455e-8 * t2877 * t4474 - 0.65673380652810123139e-7 * t8979 * t4478 + 0.12112400830078125000e0 * t2855 * t4474 - 0.32820699023437500000e0 * t8990 * t4478 - 0.18759375000000000000e1 * t12267 + 0.37518750000000000000e0 * t12290 + t13617 + 0.37518750000000000000e1 * t12284 + 0.75037500000000000000e0 * t12287 + t13062 + t12848 + t12788 + t13947 - 0.95271854095137119293e-5 * t4178 * t12357 + 0.61538810668945312500e-1 * t12037 * t4468 + 0.13675291259765625000e-1 * t6256 * t12354 - 0.68376456298828125000e-2 * t4133 * t12360 - 0.45584304199218750000e-2 * t4137 * t12378 - 0.68376456298828125000e-2 * t4133 * t12363 + 0.39072260742187500000e-2 * t11085 * t12399 + 0.19536130371093750000e-2 * t4140 * t12385 + 0.18934005325911712647e-1 * t3275 * t1733 + t12825 + 0.37518750000000000000e0 * t12293 - 0.37518750000000000000e0 * t12296 + t13119 + t12576 + t13572, t14096);
5016   t14110 = t690 * t827;
5017   t14125 = t2370 * t287;
5018   t14128 = t4512 * t187;
5019   t14137 = 0.36e2 * t4349 * t1583 * t290 * t830 + 0.2e1 * t217 * t94 * t12522 * t187 + 0.1174e1 * t14097 + 0.6e1 * t217 * t287 * t4512 * t187 + 0.6e1 * t217 * t827 * t1639 * t187 - t101 * t14097 - 0.24e2 * t4353 * t4357 - 0.12e2 * t14110 * t1584 - 0.36e2 * t4349 * t4360 * t691 + 0.6e1 * t690 * t691 * t1843 - 0.3e1 * t217 * t290 * t5127 + 0.36e2 * t4349 * t4356 * t691 + 0.36e2 * t14125 * t4350 - 0.12e2 * t1582 * t14128 * t290 - t217 * t2610 * t666 - 0.6e1 * t217 * t1640 * t1168;
5020   t14152 = t619 * t1168;
5021   t14156 = t1639 * t434;
5022   t14178 = t7989 * t94;
5023   t14191 = -0.6e1 * t217 * t4513 * t434 - 0.3e1 * t217 * t830 * t1843 + 0.24e2 * t4353 * t4361 + 0.2e1 * t217 * t2607 * t619 * t187 - 0.12e2 * t4353 * t4364 + 0.12e2 * t1582 * t14152 * t290 + 0.24e2 * t1582 * t14156 * t290 - 0.6e1 * t2370 * t2371 * t666 - 0.12e2 * t1582 * t4356 * t830 + 0.12e2 * t1582 * t4360 * t830 - 0.4e1 * t1582 * t1583 * t2610 - 0.2e1 * t217 * t620 * t3316 + 0.6e1 * t690 * t1647 * t830 - 0.48e2 * t14178 * t1583 * t2371 - 0.6e1 * t217 * t1587 * t1168 - 0.12e2 * t217 * t4371 * t434 - 0.6e1 * t217 * t4367 * t434;
5024   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5025     v4rho3tau[0] = t9927 * t671 / 0.18e2 - t3362 * t1848 / 0.4e1 + 0.5497666666666666667e0 * t9872 * t1851 * t456 - 0.3e1 / 0.4e1 * t1202 * t5132 - 0.24739500000000000000e1 * t3367 * t5135 * t456 + 0.89062200000000000000e2 * t9934 * t1851 * t1190 + 0.40270806047858128433e2 * t12195 * t1198 - 0.3e1 / 0.16e2 * t212 * t213 * (t14137 + t14191) * t205 - 0.74218500000000000000e1 * t447 * t448 * t5130 * t456 - 0.89062200000000000000e2 * t1181 * t5135 * t1190 + 0.12081241814357438530e3 * t1193 * t5135 * t1198 - 0.59374800000000000000e3 * t3334 * t1851 * t3346 + 0.82683876053829230172e0 * t12195 * t3351 - 0.16151076630565200000e3 * t3355 * t669 * t10 * t3357;
5026 
5027   t14240 = t1286 * t1286;
5028   t14252 = t5265 * t279;
5029   t14256 = t1894 * t810;
5030   t14264 = t1271 * t1271;
5031   t14271 = t1898 * t810;
5032   t14283 = -t10305 * t3553 / 0.25e2 + 0.6e1 / 0.25e2 * t10308 * t3553 + t823 * t14252 * t91 / 0.50e2 + t823 * t14256 * t91 / 0.100e3 - t2603 * t1894 * t814 * t91 / 0.100e3 + t823 * t14264 * t91 / 0.50e2 + t823 * t492 * t3533 / 0.50e2 - t2603 * t14271 * t91 / 0.100e3 + t8402 * t1898 * t814 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t5266 * t1276 - 0.3e1 / 0.100e3 * t1895 * t824;
5033   t14293 = t816 * t3533;
5034   t14297 = t814 * t87 * t91;
5035   t14301 = t89 * t810 * t91;
5036   t14305 = t822 * t814 * t91;
5037   t14310 = t1236 * t3528;
5038   t14311 = t5939 * t14310;
5039   t14313 = t6888 * t3443;
5040   t14314 = t3442 * t14313;
5041   t14315 = t14314 / 0.16e2;
5042   t14316 = t5210 * t67;
5043   t14317 = t3448 * t14316;
5044   t14318 = 0.5e1 / 0.128e3 * t14317;
5045   t14319 = t5214 * t67;
5046   t14320 = t3452 * t14319;
5047   t14321 = 0.5e1 / 0.256e3 * t14320;
5048   t14322 = t5196 * t2817;
5049   t14323 = t5256 * t3443;
5050   t14324 = t14322 * t14323;
5051   t14326 = t1236 * t3517;
5052   t14327 = t5935 * t14326;
5053   t14330 = t1874 * t13 * t2532;
5054   t14331 = t10273 * t14330;
5055   t14333 = t5206 * t67;
5056   t14334 = t3448 * t14333;
5057   t14336 = t5202 * t67;
5058   t14337 = t10268 * t14336;
5059   t14340 = t253 * t249 * t743;
5060   t14341 = t14340 * t5257;
5061   t14344 = t5252 * t765;
5062   t14345 = t8315 * t14344;
5063   t14347 = t6888 * t765;
5064   t14348 = t2444 * t14347;
5065   t14349 = 0.27e2 / 0.256e3 * t14348;
5066   t14350 = t5252 * t3443;
5067   t14351 = t10181 * t14350;
5068   t14353 = t2097 * t3517;
5069   t14354 = t5925 * t14353;
5070   t14356 = t5198 * t67;
5071   t14357 = t10189 * t14356;
5072   t14359 = t2097 * t3528;
5073   t14360 = t3442 * t14359;
5074   t14362 = t9178 * t5253;
5075   t14365 = t1882 * t13 * t2532;
5076   t14366 = t3458 * t14365;
5077   t14367 = 0.45e2 / 0.2048e4 * t14366;
5078   t14368 = t5260 * t2478;
5079   t14369 = t2477 * t14368;
5080   t14370 = 0.9e1 / 0.128e3 * t14369;
5081   t14371 = t1464 * t106;
5082   t14372 = t14371 * t3222;
5083   t14373 = t5252 * t795;
5084   t14374 = t14372 * t14373;
5085   t14376 = -0.27e2 / 0.128e3 * t14345 - t14349 - 0.21e2 / 0.64e2 * t14351 + 0.21e2 / 0.64e2 * t14354 - 0.105e3 / 0.512e3 * t14357 - 0.7e1 / 0.32e2 * t14360 + 0.21e2 / 0.512e3 * t14362 + t14367 - t1885 - t14370 + 0.35e2 / 0.2048e4 * t14374;
5086   t14378 = t5250 * t4132;
5087   t14379 = t5252 * t2478;
5088   t14380 = t14378 * t14379;
5089   t14382 = t67 * t1245;
5090   t14383 = t2097 * t14382;
5091   t14384 = t5251 * t14383;
5092   t14386 = t5260 * t795;
5093   t14387 = t2433 * t14386;
5094   t14388 = 0.9e1 / 0.64e2 * t14387;
5095   t14389 = t5256 * t2478;
5096   t14390 = t8198 * t14389;
5097   t14392 = t1236 * t14382;
5098   t14393 = t2433 * t14392;
5099   t14395 = t5212 / 0.32e2;
5100   t14396 = t5216 / 0.64e2;
5101   t14397 = 0.5e1 / 0.512e3 * t5220;
5102   t14398 = t38 * t758;
5103   t14399 = t14398 * t1875;
5104   t14401 = t3487 * t1883;
5105   t14402 = 0.3e1 / 0.16e2 * t14401;
5106   t14403 = t8082 * t1875;
5107   t14405 = -0.21e2 / 0.2048e4 * t14380 + 0.7e1 / 0.1024e4 * t14384 + t14388 - 0.9e1 / 0.64e2 * t14390 + 0.9e1 / 0.32e2 * t14393 + t14395 - t14396 - t14397 - 0.3e1 / 0.16e2 * t14399 - t14402 - 0.15e2 / 0.8e1 * t14403;
5108   t14406 = t2512 * t1875;
5109   t14408 = t1245 * t1245;
5110   t14410 = t737 * t84 * t14408;
5111   t14412 = t786 * t1883;
5112   t14413 = 0.15e2 / 0.8e1 * t14412;
5113   t14415 = t1231 * t2027 * t777;
5114   t14417 = 0.15e2 / 0.16e2 * t5222;
5115   t14418 = t8337 * t5257;
5116   t14420 = t2426 * t5261;
5117   t14421 = 0.3e1 / 0.8e1 * t14420;
5118   t14422 = 0.3e1 / 0.8e1 * t5238;
5119   t14423 = 0.3e1 / 0.16e2 * t5241;
5120   t14424 = 0.25e2 / 0.384e3 * t5248;
5121   t14425 = t5943 * t5233;
5122   t14427 = -0.15e2 / 0.4e1 * t14406 - 0.3e1 / 0.8e1 * t14410 - t14413 - 0.3e1 / 0.8e1 * t14415 - t14417 + 0.3e1 / 0.4e1 * t14418 + t14421 - t14422 + t14423 + t14424 - 0.3e1 / 0.4e1 * t14425;
5123   t14430 = t793 * t5230;
5124   t14432 = t793 * t5233;
5125   t14435 = t1231 * t1878 * t806;
5126   t14438 = t1231 * t1232 * t3410;
5127   t14440 = t793 * t5237;
5128   t14441 = 0.15e2 / 0.8e1 * t14440;
5129   t14442 = t2469 * t5240;
5130   t14443 = 0.15e2 / 0.16e2 * t14442;
5131   t14445 = t1231 * t5236 * t758;
5132   t14446 = 0.3e1 / 0.16e2 * t14445;
5133   t14448 = t749 * t5218 * t806;
5134   t14449 = 0.3e1 / 0.32e2 * t14448;
5135   t14450 = t5943 * t5230;
5136   t14452 = t763 * t1879;
5137   t14456 = t1254 * t113 * t14408 * t10;
5138   t14458 = 0.15e2 / 0.8e1 * t14430 - 0.15e2 / 0.4e1 * t14432 + 0.3e1 / 0.16e2 * t14435 - 0.3e1 / 0.8e1 * t14438 - t14441 + t14443 - t14446 + t14449 + 0.3e1 / 0.8e1 * t14450 + 0.1925e4 / 0.1152e4 * t14452 + 0.7e1 / 0.128e3 * t14456;
5139   t14460 = t749 * t5435 * t777;
5140   t14461 = 0.3e1 / 0.16e2 * t14460;
5141   t14463 = t1887 * t403 * t14408;
5142   t14465 = t3418 * t1891;
5143   t14466 = 0.275e3 / 0.1152e4 * t14465;
5144   t14467 = t2854 * t392;
5145   t14468 = t14467 * t1888;
5146   t14470 = t1882 * t738;
5147   t14472 = t3491 * t484 * t14470;
5148   t14473 = 0.3e1 / 0.64e2 * t14472;
5149   t14474 = t1882 * t777;
5150   t14476 = t483 * t524 * t14474;
5151   t14477 = 0.3e1 / 0.128e3 * t14476;
5152   t14478 = t1218 * t64;
5153   t14479 = t14478 * t392;
5154   t14480 = t1874 * t738;
5155   t14482 = t14479 * t403 * t14480;
5156   t14484 = t1874 * t777;
5157   t14486 = t1887 * t367 * t14484;
5158   t14489 = t10102 * t1878 * t8316;
5159   t14491 = t10 * t777;
5160   t14493 = t1254 * t1955 * t14491;
5161   t14495 = -t14461 - t14463 / 0.256e3 + t14466 - 0.35e2 / 0.144e3 * t14468 + t14473 + t14477 - 0.5e1 / 0.128e3 * t14482 - 0.3e1 / 0.128e3 * t14486 + 0.21e2 / 0.128e3 * t14489 + 0.21e2 / 0.128e3 * t14493 + t1893;
5162   t14497 = 0.9e1 / 0.128e3 * t5262;
5163   t14498 = t1882 * t806;
5164   t14500 = t483 * t510 * t14498;
5165   t14501 = t14500 / 0.128e3;
5166   t14503 = t1231 * t5218 * t3443;
5167   t14504 = 0.3e1 / 0.8e1 * t14503;
5168   t14505 = t10098 * t5181;
5169   t14507 = t3508 * t5185;
5170   t14509 = t3508 * t5189;
5171   t14511 = t10244 * t111;
5172   t14512 = t14511 * t5193;
5173   t14515 = t3491 * t1878 * t8320;
5174   t14517 = t10 * t806;
5175   t14519 = t1254 * t2027 * t14517;
5176   t14521 = t10 * t3410;
5177   t14523 = t1254 * t1240 * t14521;
5178   t14525 = t301 * t170;
5179   t14526 = t14525 * t124;
5180   t14528 = t14526 * t2027 * t765;
5181   t14530 = t14497 - t14501 + t14504 + 0.175e3 / 0.128e3 * t14505 - 0.175e3 / 0.192e3 * t14507 + 0.175e3 / 0.192e3 * t14509 - 0.455e3 / 0.768e3 * t14512 + 0.21e2 / 0.256e3 * t14515 - 0.7e1 / 0.128e3 * t14519 + 0.7e1 / 0.128e3 * t14523 - 0.21e2 / 0.1024e4 * t14528;
5182   t14532 = t1231 * t1240 * t3528;
5183   t14534 = t2813 * t392;
5184   t14535 = t14534 * t5199;
5185   t14537 = t5245 * t5203;
5186   t14539 = t5245 * t5207;
5187   t14541 = t1874 * t758;
5188   t14543 = t5197 * t403 * t14541;
5189   t14545 = t1874 * t806;
5190   t14547 = t1887 * t412 * t14545;
5191   t14549 = t476 * t3410;
5192   t14551 = t1887 * t403 * t14549;
5193   t14553 = t3508 * t5211;
5194   t14554 = 0.25e2 / 0.96e2 * t14553;
5195   t14555 = t1250 * t5215;
5196   t14556 = 0.25e2 / 0.192e3 * t14555;
5197   t14557 = t3514 * t5219;
5198   t14558 = 0.65e2 / 0.768e3 * t14557;
5199   t14559 = t1882 * t758;
5200   t14561 = t1254 * t484 * t14559;
5201   t14562 = t14561 / 0.64e2;
5202   t14563 = 0.3e1 / 0.4e1 * t14532 - 0.175e3 / 0.768e3 * t14535 + 0.35e2 / 0.256e3 * t14537 - 0.35e2 / 0.384e3 * t14539 - 0.5e1 / 0.512e3 * t14543 + 0.3e1 / 0.512e3 * t14547 - t14551 / 0.256e3 + t14554 - t14556 - t14558 + t14562;
5203   t14566 = 0.3e1 / 0.128e3 * t14311 - t14315 - t14318 + t14321 + 0.15e2 / 0.256e3 * t14324 - 0.5e1 / 0.128e3 * t14327 + 0.315e3 / 0.2048e4 * t14331 - 0.35e2 / 0.256e3 * t14334 + 0.35e2 / 0.256e3 * t14337 + 0.9e1 / 0.64e2 * t14341 + t14376 + t14405 + t14427 + t14458 + t14495 + t14530 + t14563;
5204   t14573 = -0.3e1 / 0.100e3 * t1895 * t3542 + 0.3e1 / 0.50e2 * t1895 * t3546 - 0.3e1 / 0.50e2 * t50 * t14264 * t816 - 0.3e1 / 0.25e2 * t489 * t3553 - 0.3e1 / 0.50e2 * t489 * t14293 + 0.3e1 / 0.20e2 * t1899 * t14297 + 0.3e1 / 0.50e2 * t1899 * t14301 - t1899 * t14305 / 0.10e2 - 0.3e1 / 0.100e3 * t1899 * t819 - t283 * t14566 * t91 / 0.100e3 + t50 * t14566 * t91 / 0.100e3;
5205   t14635 = 0.41687500000000000000e-1 * t14314;
5206   t14636 = 0.26054687500000000000e-1 * t14317;
5207   t14637 = 0.13027343750000000000e-1 * t14320;
5208   t14641 = -0.16672574466648995876e-3 * t1506 * t1995 * t777 + 0.16040918847748786212e-4 * t11460 * t1982 * t738 + 0.52096347656250000000e0 * t1260 * t5313 - 0.78144521484375000000e-1 * t1475 * t1955 * t777 - 0.52096347656250000000e0 * t1260 * t5316 + 0.28071607983560375870e-5 * t1516 * t2009 * t777 - 0.96927819970648270100e-7 * t11435 * t1995 * t738 - 0.15871221983497962356e-7 * t1526 * t5403 * t777 - 0.15628904296875000000e0 * t11464 * t1878 * t738 + 0.16442688835660171509e-1 * t11443 * t1955 * t738 + 0.36539308523689270020e-2 * t1496 * t1982 * t777 - 0.86697387226574778556e-3 * t11453 * t1969 * t738 + 0.15632812500000000000e-1 * t14311 - t14635 - t14636 + t14637 + 0.39082031250000000000e-1 * t14324 - 0.26054687500000000000e-1 * t14327 + 0.10259033203125000000e0 * t14331;
5209   t14646 = 0.70347656250000000000e-1 * t14348;
5210   t14652 = 0.24290335779952526093e-3 * t3238 * t14347;
5211   t14654 = 0.89317363214191049336e-5 * t3184 * t14347;
5212   t14662 = 0.14655761718750000000e-1 * t14366;
5213   t14664 = 0.94899698415077989921e-6 * t4189 * t14365;
5214   t14665 = t5577 * t3201;
5215   t14670 = -0.91191406250000000000e-1 * t14334 + 0.91191406250000000000e-1 * t14337 + 0.93796875000000000000e-1 * t14341 - 0.14069531250000000000e0 * t14345 - t14646 - 0.21885937500000000000e0 * t14351 + 0.21885937500000000000e0 * t14354 - 0.13678710937500000000e0 * t14357 - 0.14590625000000000000e0 * t14360 + t14652 - t14654 - 0.12275398252861705259e-7 * t8879 * t14344 - 0.51282342224121093750e-1 * t8864 * t14344 - 0.12293246769325790405e-1 * t8872 * t14344 + 0.27357421874999999999e-1 * t14362 + t14662 + t14664 + 0.59048701236048527062e-5 * t14665 * t14323 + 0.30764869551554694772e-4 * t6226 * t14353;
5216   t14679 = 0.31757284698379039764e-5 * t4178 * t14313;
5217   t14681 = 0.22494743328018486500e-5 * t4182 * t14316;
5218   t14693 = 0.12605685307743761223e-6 * t3247 * t14347;
5219   t14695 = 0.61376991264308526297e-9 * t3256 * t14347;
5220   t14703 = 0.10256468444824218750e-1 * t3219 * t14347;
5221   t14705 = 0.15366558461657238007e-2 * t3228 * t14347;
5222   t14710 = -0.87167130396071635186e-5 * t4182 * t14333 - 0.65375347797053726391e-4 * t11002 * t14356 + 0.29418906508674176876e-4 * t11997 * t14330 - t14679 - t14681 + 0.22934320248006843030e-7 * t6233 * t14326 - 0.91737280992027372121e-8 * t6236 * t14310 - 0.92294608654664084315e-4 * t11929 * t14350 - 0.12305947820621877909e-4 * t4178 * t14359 + 0.26150139118821490556e-4 * t11993 * t14336 + t14693 - t14695 + 0.26719369357947778702e-2 * t8956 * t14344 - 0.12504430849986746908e-3 * t8941 * t14344 + 0.21429665023164394079e-5 * t8886 * t14344 - t14703 - t14705 + 0.54257231111530494691e-3 * t9269 * t5253 - 0.11144489099725227356e-1 * t4200 * t5257;
5223   t14730 = 0.43575208471213001757e-7 * t4193 * t14313;
5224   t14732 = 0.31125148908009286970e-7 * t4148 * t14316;
5225   t14744 = 0.84355287480069324374e-6 * t4185 * t14319;
5226   t14746 = 0.41736331624254226684e-3 * t4219 * t14316;
5227   t14748 = 0.18781349230914402008e-3 * t4200 * t14365;
5228   t14749 = -0.93424368384432792667e-4 * t9262 * t5253 - 0.58339177130867406959e-7 * t9184 * t5253 + 0.52573422820337000303e-7 * t4155 * t5257 + 0.20187334716796875000e0 * t3458 * t5257 + 0.50265720123465454101e-1 * t4144 * t5257 + 0.16971396983525063842e-6 * t4193 * t14359 - 0.42428492458812659606e-6 * t12007 * t14336 + 0.12122426416803617030e-6 * t4148 * t14333 - 0.47732054016164242057e-6 * t10930 * t14330 + t14730 + t14732 - 0.16871057496013864875e-5 * t6206 * t14326 + 0.69469060277704149484e-6 * t6210 * t14310 + 0.15274257285172557458e-5 * t11958 * t14350 - 0.43640735100493021308e-6 * t6213 * t14353 + 0.10910183775123255327e-5 * t11903 * t14356 + t14744 - t14746 + t14748;
5229   t14752 = t5462 * t3213;
5230   t14758 = 0.11467160124003421515e-7 * t4151 * t14319;
5231   t14760 = 0.12900555139503849205e-7 * t4155 * t14365;
5232   t14761 = t5544 * t3193;
5233   t14765 = 0.60707391453460693360e-3 * t4215 * t14313;
5234   t14768 = 0.12989839421017677523e-10 * t1386 * t580 * t14559;
5235   t14771 = 0.47235779712791554630e-11 * t579 * t1390 * t14498;
5236   t14773 = 0.27824221082836151122e-2 * t3949 * t5397;
5237   t14776 = 0.75884239316825866699e-4 * t1329 * t524 * t14559;
5238   t14783 = t11886 * t1397;
5239   t14788 = 0.99241514682434499264e-7 * t551 * t566 * t14498;
5240   t14789 = t3197 * t374;
5241   t14800 = 0.83472663248508453369e-3 * t14752 * t14323 - 0.33389065299403381348e-3 * t6271 * t14326 - t14758 - t14760 - 0.91737280992027372121e-7 * t14761 * t14323 - t14765 + t14768 - t14771 + t14773 + t14776 + 0.40876662868956991587e-7 * t10495 * t5400 - 0.15572062045316949176e-7 * t4107 * t5404 + 0.38930155113292372940e-8 * t4107 * t5408 - 0.11289744982854788152e-7 * t14783 * t5412 - t14788 - 0.26712507702021952718e-4 * t14789 * t5579 + 0.10999267877303157002e-4 * t5763 * t5582 + 0.57335800620017107576e-9 * t2004 * t2005 * t14549 - 0.30764869551554694772e-5 * t1358 * t1995 * t14517;
5242   t14803 = 0.80204594238743931056e-6 * t1516 * t5566 * t3443;
5243   t14806 = 0.39678054958744905890e-8 * t1526 * t5383 * t3443;
5244   t14818 = 0.52096347656250000000e-1 * t1475 * t5435 * t3443;
5245   t14821 = 0.87418643692983398437e-2 * t1486 * t5556 * t3443;
5246   t14829 = 0.20750099272006191314e-6 * t3939 * t5560;
5247   t14831 = 0.76447734160022810101e-7 * t1455 * t5563;
5248   t14851 = 0.14996495552012324333e-4 * t4033 * t5618;
5249   t14852 = -t14803 + t14806 + 0.61193050585088378905e-1 * t3825 * t1955 * t3443 - 0.40795367056725585936e-1 * t3825 * t1413 * t3517 + 0.17483728738596679687e-1 * t1486 * t1338 * t3528 + t14818 + t14821 + 0.42428492458812659606e-7 * t1372 * t2009 * t14517 - 0.12122426416803617030e-7 * t1372 * t1381 * t14521 - t14829 + t14831 - 0.31426479649437591434e-5 * t5763 * t5585 - 0.42177643740034662187e-6 * t5578 * t385 * t14541 + 0.17367265069426037371e-6 * t1991 * t2005 * t14545 - 0.49620757341217249632e-7 * t1991 * t385 * t14549 - 0.72734558500821702181e-5 * t10487 * t5588 + 0.28285661639208439738e-5 * t3939 * t5591 + 0.10254956517184898257e-5 * t1358 * t1367 * t14521 + t14851;
5250   t14855 = 0.56236858320046216250e-5 * t1450 * t5570;
5251   t14857 = 0.40303081796033121645e-5 * t4039 * t5574;
5252   t14860 = 0.26464403915315866470e-6 * t1358 * t552 * t14559;
5253   t14863 = 0.34601617920160293580e-5 * t537 * t552 * t14498;
5254   t14865 = 0.55151579644016455859e-7 * t3945 * t5567;
5255   t14868 = 0.31125148908009286970e-8 * t1372 * t566 * t14559;
5256   t14871 = 0.11467160124003421515e-8 * t565 * t580 * t14498;
5257   t14872 = t3205 * t383;
5258   t14885 = 0.30353695726730346680e-4 * t523 * t538 * t14498;
5259   t14886 = t3209 * t410;
5260   t14898 = t11898 * t175;
5261   t14904 = -t14855 - t14857 + t14860 + t14863 + t14865 - t14868 + t14871 + 0.42046253788012545556e-6 * t14872 * t5546 - 0.16818501515205018222e-6 * t5770 * t5549 + 0.57335800620017107576e-8 * t5545 * t2005 * t14541 - 0.22934320248006843030e-8 * t2004 * t2023 * t14545 - t14885 - 0.36171487407686996460e-2 * t14886 * t5464 + 0.16441585185312271118e-2 * t5773 * t5467 - 0.65766340741249084473e-3 * t5773 * t5470 - 0.83472663248508453369e-4 * t5463 * t367 * t14541 - 0.80816176112024113535e-6 * t3939 * t5598 + 0.20406084468286088668e-5 * t14898 * t5602 - 0.10910183775123255327e-6 * t4077 * t1995 * t8320;
5262   t14910 = 0.68295815385143280029e-3 * t4096 * t524 * t14470;
5263   t14911 = t2034 * t107;
5264   t14912 = t14911 * t401;
5265   t14924 = 0.45584304199218750000e-2 * t4049 * t510 * t14470;
5266   t14927 = 0.13024086914062500000e-2 * t509 * t538 * t14474;
5267   t14933 = t8799 * t9;
5268   t14948 = t5539 * t575;
5269   t14949 = t14948 * t2021;
5270   t14952 = t2017 * t171;
5271   t14953 = t14952 * t2021;
5272   t14959 = 0.20760970752096176148e-4 * t537 * t566 * t14474;
5273   t14960 = t1976 * t132;
5274   t14961 = t14960 * t365;
5275   t14967 = 0.10795704791090011597e-3 * t4088 * t538 * t14470;
5276   t14971 = 0.28836010940393829346e-2 * t1329 * t1982 * t14491 + t14910 - 0.45584304199218750000e-2 * t14912 * t412 * t14480 - 0.16280108642578125000e-2 * t2036 * t376 * t14484 + 0.10380963938541778565e-1 * t10581 * t1955 * t8316 + t14924 + t14927 + 0.16931312988281250000e-1 * t1404 * t1969 * t14491 + 0.88567086961484164927e-9 * t5541 * t5440 - 0.10628050435378099791e-9 * t2022 * t14933 * t14484 - 0.19681574880329814428e-9 * t5541 * t5446 + 0.42328282470703125000e-1 * t11357 * t2027 * t8316 + 0.36331698816168308259e-4 * t1978 * t2005 * t14484 + 0.10767704343044143170e-3 * t10513 * t1982 * t8316 - 0.22633811112379286592e-8 * t14949 * t5513 - 0.59753261336681316604e-9 * t14953 * t2023 * t14480 - t14959 + 0.15743736153672933579e-3 * t14961 * t376 * t14480 - t14967 - 0.22837067827305793763e-2 * t10527 * t1969 * t8316;
5277   t14980 = 0.15176847863365173340e-3 * t523 * t552 * t14474;
5278   t14982 = 0.77907819031941223143e-3 * t3955 * t5557;
5279   t14983 = t1962 * t120;
5280   t14984 = t14983 * t410;
5281   t14993 = 0.91737280992027372120e-8 * t565 * t1390 * t14474;
5282   t14994 = t2002 * t158;
5283   t14995 = t14994 * t383;
5284   t15004 = 0.27278662784137122798e-9 * t4060 * t580 * t14470;
5285   t15007 = 0.42512201741512399167e-10 * t579 * t4064 * t14474;
5286   t15011 = t3171 * t1874;
5287   t15021 = t573 * t416;
5288   t15022 = t15021 * t1397;
5289   t15026 = t531 * t356;
5290   t15027 = t15026 * t148;
5291   t15031 = t546 * t321;
5292   t15032 = t15031 * t162;
5293   t15036 = t559 * t330;
5294   t15037 = t15036 * t175;
5295   t15041 = t168 * t836;
5296   t15042 = t15041 * t2018;
5297   t15043 = t15042 * t6967;
5298   t15047 = -0.51902426880240440370e-3 * t1344 * t1995 * t14491 + t14980 - t14982 - 0.83472663248508453369e-3 * t14984 * t367 * t14480 - 0.22765271795047760010e-3 * t1964 * t385 * t14484 - t14993 + 0.10893802117803250439e-6 * t14995 * t2005 * t14480 - 0.20838539062500000000e0 * t3794 * t1240 * t3517 + t15004 + t15007 + 0.10663477270162693457e-7 * t10499 * t2009 * t8316 + 0.18280246748850331641e-8 * t1386 * t15011 * t14491 - 0.28899129075524926185e-3 * t3803 * t1353 * t3517 + 0.11115049644432663917e-3 * t1506 * t1367 * t3528 + 0.27198670419120615406e-7 * t15022 * t2009 * t765 - 0.25895496666866827012e-3 * t15027 * t1969 * t765 + 0.44117062848204374314e-4 * t15032 * t1982 * t765 - 0.17677394802808645181e-5 * t15037 * t1995 * t765 - 0.14392151631241176801e-9 * t15043 * t5403 * t765;
5299   t15048 = t517 * t119;
5300   t15049 = t15048 * t135;
5301   t15073 = 0.14615723409475708008e-2 * t1496 * t5493 * t3443;
5302   t15076 = 0.55575248222163319587e-4 * t1506 * t5573 * t3443;
5303   t15095 = 0.66435106406707763672e-3 * t5359;
5304   t15096 = 0.19848302936486899852e-4 * t5361;
5305   t15097 = 0.54636652308114624024e-2 * t5367;
5306   t15098 = 0.25979678842035355046e-10 * t5378;
5307   t15099 = -0.16788862037658691406e-2 * t15049 * t1955 * t765 + 0.20838539062500000000e0 * t3794 * t2027 * t3443 + 0.10419269531250000000e0 * t1475 * t1413 * t3528 - 0.14615723409475708008e-1 * t3835 * t1969 * t3443 + 0.73078617047378540040e-2 * t3835 * t1338 * t3517 - 0.29231446818951416016e-2 * t1496 * t1353 * t3528 + 0.72247822688812315464e-3 * t3803 * t1982 * t3443 - t15073 + t15076 - 0.12832735078199028969e-4 * t3812 * t1995 * t3443 + 0.42775783593996763230e-5 * t3812 * t1367 * t3517 - 0.16040918847748786211e-5 * t1516 * t1381 * t3528 + 0.75388304421615321191e-7 * t3844 * t2009 * t3443 - 0.21539515549032948912e-7 * t3844 * t1381 * t3517 + 0.79356109917489811779e-8 * t1526 * t1399 * t3528 + t15095 - t15096 - t15097 + t15098;
5308   t15101 = 0.94471559425583109260e-11 * t5381;
5309   t15102 = 0.67901433337137859780e-11 * t5385;
5310   t15113 = 0.24114324938457997639e-2 * t3865 * t1959;
5311   t15124 = 0.17847822808159722223e-1 * t3853 * t2031;
5312   t15126 = t4126 * t2018 * t2021;
5313   t15136 = 0.84499561486216003280e-9 * t3869 * t2013;
5314   t15137 = t2887 * t401;
5315   t15140 = 0.15176847863365173340e-3 * t5398;
5316   t15142 = 0.23817963523784279823e-3 * t3269 * t1946;
5317   t15147 = 0.23443356445312500000e0 * t3084 * t1937;
5318   t15148 = -t15101 - t15102 - 0.16280108642578125000e-3 * t2036 * t412 * t14408 + 0.45817217383070195516e-1 * t845 * t1956 + 0.28836010940393829346e-3 * t1329 * t137 * t14408 * t10 + t15113 - 0.23617889856395777314e-11 * t2022 * t2023 * t14408 + 0.23202169650607638889e0 * t839 * t2028 + 0.28218854980468750000e-2 * t1404 * t126 * t14408 * t10 + t15124 - 0.20009601128335311336e-8 * t15126 * t2024 + 0.36334811439072881411e-7 * t873 * t2010 + 0.50778463191250921226e-10 * t1386 * t422 * t14408 * t10 + t15136 - 0.21254586283365885417e-1 * t15137 * t2037 + t15140 - t15142 - 0.29139547897661132812e-2 * t974 * t127 * t14408 - t15147;
5319   t15151 = 0.15194768066406250000e-2 * t5430;
5320   t15152 = 0.65120434570312500000e-3 * t5433;
5321   t15153 = 0.43413623046875000000e-3 * t5437;
5322   t15154 = 0.17992841318483352662e-4 * t5488;
5323   t15155 = 0.69203235840320587160e-5 * t5491;
5324   t15156 = 0.48442265088224411012e-5 * t5495;
5325   t15162 = 0.28942415364583333334e-2 * t5525;
5326   t15163 = 0.27824221082836151122e-3 * t5532;
5327   t15164 = 0.45267622224758573186e-10 * t5536;
5328   t15166 = 0.24221132544112205506e-4 * t4211 * t14319;
5329   t15168 = 0.27248774112126231194e-4 * t4174 * t14365;
5330   t15169 = t5497 * t2809;
5331   t15179 = 0.89964206592416763308e-4 * t4204 * t14313;
5332   t15180 = -t1918 - 0.30596525292544189453e0 * t4009 * t1931 + t15151 - t15152 - t15153 - t15154 + t15155 + t15156 - 0.26048173828125000000e-1 * t991 * t114 * t14408 + 0.69424686195009613038e-1 * t3954 * t1934 + t15162 + t15163 + t15164 - t15166 - t15168 - 0.14532679526467323304e-3 * t15169 * t14323 + 0.48442265088224411012e-4 * t6220 * t14326 + 0.24221132544112205506e-3 * t4208 * t14333 - 0.68121935280315577986e-3 * t12004 * t14330 + t15179;
5333   t15184 = 0.62974944614691734316e-4 * t4208 * t14316;
5334   t15198 = 0.16694532649701690674e-3 * t4196 * t14319;
5335   t15207 = t5511 * t6252;
5336   t15224 = t15184 + 0.15176847863365173340e-3 * t6274 * t14310 + 0.20760970752096176148e-2 * t10980 * t14350 - 0.83043883008384704592e-3 * t6278 * t14353 + 0.14532679526467323304e-2 * t10986 * t14356 + 0.34601617920160293580e-3 * t4204 * t14359 - 0.60552831360280513764e-3 * t12023 * t14336 + t15198 - 0.20760970752096176148e-4 * t6223 * t14310 - 0.50793938964843750000e-1 * t11045 * t14350 + 0.33862625976562500000e-1 * t6256 * t14353 - 0.11287541992187500000e-1 * t4137 * t14333 + 0.48889032002739259039e-9 * t15207 * t14323 - 0.10864229333942057564e-9 * t6249 * t14326 + 0.42512201741512399165e-10 * t6253 * t14310 + 0.13367432373123988509e-6 * t995 * t165 * t14408 - 0.33726346714933170006e-6 * t3944 * t1925 - 0.11115049644432663917e-4 * t982 * t151 * t14408 + 0.58148330823089350016e-4 * t4038 * t1922;
5337   t15225 = 0.60707391453460693360e-4 * t5553;
5338   t15226 = 0.41736331624254226684e-4 * t5558;
5339   t15227 = 0.62250297816018573940e-8 * t5561;
5340   t15228 = 0.22934320248006843030e-8 * t5564;
5341   t15229 = 0.16381657320004887879e-8 * t5568;
5342   t15230 = 0.19848302936486899853e-6 * t5571;
5343   t15231 = 0.14059214580011554062e-6 * t5575;
5344   t15234 = 0.52928807830631732940e-6 * t5619;
5345   t15236 = 0.63113351086372375488e-2 * t3275 * t1943;
5346   t15241 = 0.38245656615680236817e-1 * t2651 * t1940;
5347   t15248 = 0.16863173357466585003e-7 * t3159 * t1952;
5348   t15250 = 0.34204900484170205892e-5 * t2645 * t1949;
5349   t15251 = -t15225 - t15226 - t15227 + t15228 + t15229 - t15230 - t15231 - 0.33345148933297991753e-2 * t4021 * t1919 + t15234 + t15236 + 0.36539308523689270020e-3 * t1007 * t138 * t14408 - t15241 - 0.56682935655349865556e-9 * t1003 * t178 * t14408 - 0.11721678222656250000e1 * t3513 * t1928 - t15248 + t15250 - t1939 - t1942 + t1945;
5350   t15255 = t5421 * t2826;
5351   t15271 = 0.45584304199218750000e-2 * t4133 * t14313;
5352   t15273 = 0.30389536132812500000e-2 * t4137 * t14316;
5353   t15275 = 0.13024086914062500000e-2 * t4140 * t14319;
5354   t15277 = 0.14652097778320312500e-2 * t4144 * t14365;
5355   t15285 = 0.53666309380336012692e-6 * t2866 * t5261;
5356   t15286 = -t1948 + t1951 - t1954 + 0.35684563538737363816e-2 * t12020 * t14330 + 0.52096347656250000000e-2 * t15255 * t14323 - 0.26048173828125000000e-2 * t6263 * t14326 + 0.13024086914062500000e-2 * t6266 * t14310 - 0.10380963938541778565e-1 * t11240 * t14350 + 0.51904819692708892823e-2 * t6201 * t14353 - 0.71369127077474727632e-2 * t11246 * t14356 + 0.19047727111816406250e-1 * t10940 * t14330 - t15271 - t15273 + t15275 + t15277 - 0.33862625976562500000e-1 * t11051 * t14356 - 0.16931312988281250000e-1 * t4133 * t14359 + 0.16931312988281250000e-1 * t10936 * t14336 - t15285;
5357   t15288 = 0.26286711410168500152e-8 * t2877 * t5261;
5358   t15291 = t11 * t2016 * t2018 * t5706;
5359   t15297 = 0.62832150154331817628e-2 * t2888 * t5261;
5360   t15299 = 0.10131353727022933960e-2 * t2833 * t5261;
5361   t15301 = 0.37711775579325109720e-4 * t2844 * t5261;
5362   t15305 = 0.40374669433593750000e-1 * t2855 * t5261;
5363   t15317 = 0.20783743073628284037e-9 * t4159 * t14313;
5364   t15319 = 0.14938315334170329152e-9 * t4164 * t14316;
5365   t15321 = 0.54321146669710287824e-10 * t4170 * t14319;
5366   t15323 = 0.61111290003424073802e-10 * t4129 * t14365;
5367   t15330 = t15288 + 0.30998480436519457724e-9 * t15291 * t5253 + 0.34595230865478515625e-2 * t9181 * t5253 + t15297 - t15299 + t15301 - 0.91232725946571221576e-5 * t4189 * t5257 + t15305 + 0.52796485811055153609e-3 * t4174 * t5257 + 0.37711775579325109721e-5 * t8735 * t5253 - 0.23068808752315063476e-2 * t4215 * t14359 + 0.31719612034433212280e-2 * t11982 * t14336 - 0.15859806017216606140e-2 * t4219 * t14333 - t15317 - t15319 + t15321 + t15323 - 0.85307818161301547659e-8 * t11963 * t14350 + 0.21326954540325386914e-8 * t6239 * t14353 - 0.61314994303435487379e-8 * t11969 * t14356;
5368   t15343 = 0.46898437500000000000e-1 * t14369;
5369   t15347 = t5256 * t795;
5370   t15356 = t1442 * t519;
5371   t15357 = t15356 * t3241;
5372   t15360 = t5670 * t4203;
5373   t15371 = t1459 * t561;
5374   t15372 = t15371 * t3259;
5375   t15375 = -0.81245541106001473961e-9 * t4159 * t14359 + 0.23358093067975423764e-8 * t12000 * t14336 - 0.58395232669938559409e-9 * t4164 * t14333 + 0.26277854701472351734e-8 * t10900 * t14330 - t15343 + 0.11398925781250000000e-1 * t14374 - 0.68393554687500000000e-2 * t14380 + 0.45595703125000000000e-2 * t14384 + 0.78144521484375000000e-1 * t9020 * t15347 - 0.39072260742187500000e-1 * t9200 * t14389 + 0.39072260742187500000e-1 * t2814 * t14392 + 0.65563982769737548828e-2 * t2822 * t14392 + 0.27128615555765247345e-3 * t15357 * t14373 - 0.12331188888984203339e-3 * t15360 * t14379 + 0.49324755555936813356e-4 * t5671 * t14383 - 0.54808962785533905030e-2 * t8911 * t15347 + 0.21923585114213562012e-2 * t9194 * t14389 - 0.10961792557106781006e-2 * t3210 * t14392 - 0.31534690341009409166e-7 * t15372 * t14373;
5376   t15376 = t5660 * t4158;
5377   t15399 = t1453 * t157;
5378   t15400 = t15399 * t3250;
5379   t15403 = t5682 * t4192;
5380   t15407 = 0.78144521484375000000e-2 * t3065 * t14368;
5381   t15409 = 0.32781991384868774414e-2 * t2822 * t14386;
5382   t15411 = 0.12293246769325790405e-2 * t3068 * t14368;
5383   t15413 = 0.54808962785533905030e-3 * t3210 * t14386;
5384   t15415 = 0.19930531922012329102e-3 * t3059 * t14368;
5385   t15417 = 0.20840718083311244846e-4 * t2806 * t14386;
5386   t15418 = 0.12613876136403763667e-7 * t15376 * t14379 - 0.31534690341009409166e-8 * t5661 * t14383 + 0.28270614158105745446e-7 * t9036 * t15347 - 0.10415489426670537796e-7 * t9191 * t14389 + 0.29758541219058679416e-8 * t3206 * t14392 + 0.22947393969408142089e-1 * t8901 * t15347 - 0.98345974154606323241e-2 * t9187 * t14389 - 0.69203235840320587160e-5 * t5677 * t14383 + 0.27092933508304618299e-3 * t9012 * t15347 - 0.10420359041655622423e-3 * t9197 * t14389 + 0.41681436166622489690e-4 * t2806 * t14392 + 0.20034380776516464538e-5 * t15400 * t14373 - 0.82494509079773677513e-6 * t15403 * t14379 - t15407 + t15409 - t15411 - t15413 + t15415 + t15417;
5387   t15421 = 0.74431136011825874446e-5 * t3062 * t14368;
5388   t15431 = 0.19536130371093750000e-1 * t2814 * t14386;
5389   t15432 = t1448 * t533;
5390   t15433 = t15432 * t3187;
5391   t15436 = t5676 * t4177;
5392   t15439 = t5653 * t4214;
5393   t15445 = 0.30076722839528974146e-6 * t3198 * t14386;
5394   t15447 = 0.10615313943363167346e-6 * t3071 * t14368;
5395   t15449 = 0.14879270609529339708e-8 * t3206 * t14386;
5396   t15451 = 0.52077447133352688980e-9 * t3074 * t14368;
5397   t15452 = t5702 * t575;
5398   t15453 = t15452 * t5706;
5399   t15456 = t5705 * t3171;
5400   t15457 = t5703 * t15456;
5401   t15462 = t1436 * t143;
5402   t15463 = t15462 * t3231;
5403   t15466 = 0.93796875000000000000e-1 * t14387;
5404   t15467 = -t15421 + 0.23569859737078193576e-6 * t5683 * t14383 - 0.48122756543246358635e-5 * t9028 * t15347 + 0.18046033703717384488e-5 * t9206 * t14389 - 0.60153445679057948291e-6 * t3198 * t14392 + t15431 - 0.48442265088224411012e-4 * t15433 * t14373 + 0.20760970752096176148e-4 * t15436 * t14379 - 0.81400543212890625000e-3 * t15439 * t14379 + 0.40700271606445312500e-3 * t5654 * t14383 - t15445 + t15447 + t15449 - t15451 + 0.16975358334284464944e-9 * t15453 * t14373 - 0.66425315221113123695e-10 * t15457 * t14379 + 0.14761181160247360821e-10 * t5707 * t14383 + 0.16280108642578125000e-2 * t15463 * t14373 + t15466;
5405   t15470 = 0.52096347656250000000e-1 * t5622;
5406   t15471 = 0.23589586540807038546e-6 * t5624;
5407   t15472 = 0.99195137396862264724e-9 * t5626;
5408   t15473 = 0.20843750000000000000e-1 * t5212;
5409   t15474 = 0.10421875000000000000e-1 * t5216;
5410   t15475 = 0.65136718750000000000e-2 * t5220;
5411   t15477 = 0.12506250000000000000e0 * t14401;
5412   t15481 = 0.12506250000000000000e1 * t14412;
5413   t15484 = 0.19848302936486899852e-5 * t1116 * t5573 * t806;
5414   t15486 = 0.40102297119371965528e-5 * t1366 * t5736;
5415   t15488 = 0.14153751924484223128e-5 * t2681 * t5739;
5416   t15491 = 0.66837161865619942547e-7 * t1516 * t5573 * t758;
5417   t15494 = 0.66435106406707763672e-4 * t1141 * t5493 * t806;
5418   t15496 = 0.27787624111081659794e-3 * t1352 * t5730;
5419   t15497 = -0.93796875000000000000e-1 * t14390 + 0.18759375000000000000e0 * t14393 - t15470 + t15471 - t15472 + t15473 - t15474 - t15475 - 0.12506250000000000000e0 * t14399 - t15477 - 0.12506250000000000000e1 * t14403 - 0.25012500000000000000e1 * t14406 - 0.25012500000000000000e0 * t14410 - t15481 + t15484 + t15486 - t15488 + t15491 - t15494 - t15496;
5420   t15501 = 0.99241514682434499261e-4 * t2937 * t5733;
5421   t15504 = 0.55575248222163319587e-5 * t1506 * t5493 * t758;
5422   t15512 = 0.26048173828125000000e0 * t1260 * t5758;
5423   t15515 = 0.13024086914062500000e-1 * t1475 * t5218 * t758;
5424   t15518 = 0.18269654261844635010e-3 * t1496 * t5556 * t758;
5425   t15521 = 0.99195137396862264723e-10 * t1136 * t5383 * t806;
5426   t15532 = 0.62531250000000000000e0 * t5222;
5427   t15537 = t11847 * t148;
5428   t15546 = t15501 - t15504 + 0.43709321846491699218e-2 * t1486 * t1955 * t806 - 0.29139547897661132812e-2 * t1486 * t1413 * t3410 - t15512 - t15515 + t15518 + t15521 - 0.30596525292544189452e0 * t5458 * t5748 + 0.13112796553947509765e0 * t1412 * t5752 - 0.87418643692983398436e-1 * t1412 * t5755 - 0.10198841764181396484e-1 * t3825 * t2027 * t758 - 0.25012500000000000000e0 * t14415 - t15532 + 0.40368554240187009176e-2 * t3965 * t5476 - 0.16147421696074803671e-2 * t3965 * t5479 + 0.28661673510532776516e-2 * t15537 * t5484 - 0.20760970752096176148e-3 * t4088 * t1969 * t8320 + 0.86504044800400733950e-4 * t1344 * t1982 * t14517;
5429   t15551 = 0.41983296409794489544e-3 * t3965 * t5487;
5430   t15553 = 0.16147421696074803671e-3 * t1444 * t5490;
5431   t15555 = 0.11464669404213110606e-3 * t4022 * t5494;
5432   t15558 = 0.89964206592416763308e-5 * t1344 * t538 * t14559;
5433   t15560 = 0.25012500000000000000e0 * t14420;
5434   t15562 = 0.10419269531250000000e0 * t2960 * t5713;
5435   t15565 = 0.15628904296875000000e-1 * t1121 * t5556 * t777;
5436   t15568 = 0.10198841764181396484e-1 * t3825 * t5435 * t738;
5437   t15571 = 0.21854660923245849610e-2 * t1126 * t5493 * t777;
5438   t15574 = 0.18269654261844635010e-2 * t3835 * t5556 * t738;
5439   t15577 = 0.33217553203353881836e-3 * t1141 * t5573 * t777;
5440   t15580 = 0.72247822688812315463e-4 * t3803 * t5493 * t738;
5441   t15583 = 0.11908981761892139911e-4 * t1116 * t5566 * t777;
5442   t15590 = 0.10693945898499190808e-5 * t3812 * t5573 * t738;
5443   t15593 = 0.16512710578564926982e-6 * t1131 * t5383 * t777;
5444   t15596 = 0.53848788872582372278e-8 * t3844 * t5566 * t738;
5445   t15597 = -0.34601617920160293580e-4 * t1344 * t1353 * t14521 - t15551 + t15553 + t15555 - t15558 + 0.50025000000000000000e0 * t14418 + t15560 + t15562 - t15565 - t15568 - t15571 + t15574 + t15577 - t15580 - t15583 + 0.10254956517184898257e-5 * t1358 * t164 * t14408 * t10 + t15590 + t15593 - t15596;
5446   t15599 = t1012 * t1882;
5447   t15602 = 0.79356109917489811778e-9 * t1136 * t15599 * t777;
5448   t15615 = 0.12809506617343860368e-4 * t3857 * t1986;
5449   t15616 = t2865 * t374;
5450   t15621 = 0.52096347656250000000e-1 * t3794 * t5218 * t738;
5451   t15630 = 0.17655786222671934714e-6 * t3861 * t1999;
5452   t15631 = 0.25012500000000000000e0 * t5238;
5453   t15632 = 0.12506250000000000000e0 * t5241;
5454   t15633 = 0.43424479166666666666e-1 * t5248;
5455   t15634 = t2832 * t410;
5456   t15637 = t2876 * t383;
5457   t15640 = t2843 * t365;
5458   t15648 = -t15602 - 0.61193050585088378904e-1 * t11425 * t2027 * t738 - 0.17483728738596679687e-1 * t1486 * t1969 * t777 - 0.49620757341217249632e-7 * t1991 * t385 * t14408 - 0.65326409023886158442e-5 * t866 * t1996 + t15615 - 0.24093634397902153432e-4 * t15616 * t1992 - t15621 + 0.57335800620017107576e-9 * t2004 * t2005 * t14408 - 0.12122426416803617030e-7 * t1372 * t177 * t14408 * t10 - t15630 - t15631 + t15632 + t15633 - 0.33979276049645360311e-2 * t15634 * t1965 + 0.37491242960977853121e-6 * t15637 * t2006 + 0.59207212885607613460e-3 * t15640 * t1979 + 0.17300808960080146790e-5 * t1978 * t376 * t14408 + 0.39709470513765967141e-3 * t859 * t1983;
5459   t15659 = 0.36062575121233728199e-3 * t3822 * t1973;
5460   t15665 = 0.12506250000000000000e1 * t14440;
5461   t15666 = 0.62531250000000000000e0 * t14442;
5462   t15667 = 0.12506250000000000000e0 * t14445;
5463   t15668 = 0.62531250000000000000e-1 * t14448;
5464   t15684 = -0.15176847863365173340e-4 * t1964 * t367 * t14408 - 0.90156437803084320495e-2 * t852 * t1970 - 0.34601617920160293580e-4 * t1344 * t150 * t14408 * t10 - t15659 - 0.50025000000000000000e0 * t14425 + 0.12506250000000000000e1 * t14430 - 0.25012500000000000000e1 * t14432 + 0.12506250000000000000e0 * t14435 - 0.25012500000000000000e0 * t14438 - t15665 + t15666 - t15667 + t15668 + 0.25012500000000000000e0 * t14450 + 0.13887319235560717061e-6 * t1380 * t5350 - 0.39678054958744905890e-7 * t1380 * t5353 + 0.26048173828125000000e-1 * t1475 * t2027 * t806 - 0.26048173828125000000e-1 * t1475 * t1240 * t3410 + 0.73078617047378540040e-1 * t5393 * t5319 - 0.29231446818951416016e-1 * t1337 * t5322;
5465   t15737 = 0.14615723409475708008e-1 * t1337 * t5325 + 0.18269654261844635010e-2 * t3835 * t1955 * t758 - 0.73078617047378540040e-3 * t1496 * t1969 * t806 + 0.36539308523689270020e-3 * t1496 * t1338 * t3410 - 0.36123911344406157732e-2 * t5483 * t5328 + 0.13893812055540829897e-2 * t1352 * t5331 - 0.55575248222163319586e-3 * t1352 * t5334 - 0.72247822688812315463e-4 * t3803 * t1969 * t758 + 0.27787624111081659794e-4 * t1506 * t1982 * t806 - 0.11115049644432663917e-4 * t1506 * t1353 * t3410 + 0.64163675390995144846e-4 * t5614 * t5337 - 0.24061378271623179316e-4 * t1366 * t5340 + 0.80204594238743931055e-5 * t1366 * t5344 + 0.10693945898499190808e-5 * t3812 * t1982 * t758 - 0.40102297119371965528e-6 * t1516 * t1995 * t806 + 0.13367432373123988509e-6 * t1516 * t1367 * t3410 - 0.37694152210807660594e-6 * t5601 * t5347 - 0.53848788872582372278e-8 * t3844 * t1995 * t758 + 0.19839027479372452945e-8 * t1526 * t2009 * t806;
5466   t15748 = 0.52096347656250000000e-2 * t1121 * t5435 * t806;
5467   t15750 = 0.43709321846491699219e-1 * t1412 * t5718;
5468   t15752 = 0.16390995692434387207e-1 * t2736 * t5721;
5469   t15755 = 0.14569773948830566406e-2 * t1486 * t5435 * t758;
5470   t15758 = 0.54636652308114624024e-3 * t1126 * t5556 * t806;
5471   t15760 = 0.73078617047378540040e-2 * t1337 * t5724;
5472   t15762 = 0.26574042562683105468e-2 * t2957 * t5727;
5473   t15765 = 0.23589586540807038546e-7 * t1131 * t5566 * t806;
5474   t15767 = 0.19839027479372452945e-7 * t1380 * t5742;
5475   t15769 = 0.69436596177803585306e-8 * t2707 * t5745;
5476   t15772 = 0.28341467827674932778e-9 * t1526 * t5566 * t758;
5477   t15775 = 0.12506250000000000000e0 * t14460;
5478   t15777 = 0.15922309027777777778e0 * t14465;
5479   t15778 = -0.56682935655349865556e-9 * t1526 * t1381 * t3410 - 0.10419269531250000000e1 * t5192 * t5356 - 0.52096347656250000000e-1 * t3794 * t1878 * t758 + t15748 - t15750 + t15752 - t15755 + t15758 + t15760 - t15762 - t15765 - t15767 + t15769 - t15772 + 0.11145616319444444444e1 * t14452 + 0.36476562500000000000e-1 * t14456 - t15775 - 0.26054687500000000000e-2 * t14463 + t15777;
5480   t15782 = 0.20259690755208333334e-1 * t4004 * t5429;
5481   t15784 = 0.86827246093750000001e-2 * t1466 * t5432;
5482   t15786 = 0.59331951497395833334e-2 * t4010 * t5436;
5483   t15789 = 0.75973840332031250000e-3 * t1404 * t510 * t14559;
5484   t15792 = 0.32560217285156250000e-3 * t509 * t524 * t14498;
5485   t15793 = t2805 * t365;
5486   t15828 = -0.16211805555555555555e0 * t14468 + t15782 - t15784 - t15786 + t15789 - t15792 + 0.64589686784299214683e-3 * t15793 * t5499 - 0.27681294336128234864e-3 * t5516 * t5502 + 0.92270981120427449547e-4 * t5516 * t5505 + 0.12110566272056102753e-4 * t5498 * t376 * t14541 - 0.51902426880240440370e-5 * t1978 * t385 * t14545 + 0.17300808960080146790e-5 * t1978 * t376 * t14549 + 0.43583565198035817594e-3 * t10509 * t5508 + 0.76912173878886736929e-5 * t4069 * t1982 * t8320 - 0.27160573334855143911e-10 * t5512 * t2023 * t14541 + 0.37942119658412933350e-4 * t1964 * t376 * t14545 - 0.15176847863365173340e-4 * t1964 * t367 * t14549 - 0.96884530176448822024e-2 * t10523 * t5473 + 0.12976204923177223206e-2 * t4096 * t1955 * t8320;
5487   t15847 = t12029 * t124;
5488   t15869 = 0.99588768894468861010e-9 * t4107 * t5377;
5489   t15871 = 0.36214097779806858549e-9 * t1461 * t5380;
5490   t15873 = 0.26255220890359972448e-9 * t3994 * t5384;
5491   t15874 = t2821 * t401;
5492   t15881 = -0.57672021880787658692e-3 * t1329 * t1969 * t14517 + 0.28836010940393829346e-3 * t1329 * t1338 * t14521 + 0.10628050435378099791e-10 * t2022 * t5439 * t14545 - 0.23617889856395777314e-11 * t2022 * t2023 * t14549 + 0.22575083984375000000e0 * t11353 * t5449 - 0.11287541992187500000e0 * t4004 * t5452 + 0.75250279947916666667e-1 * t4004 * t5455 - 0.77131536946614583334e-1 * t15847 * t5459 + 0.84656564941406250000e-2 * t4049 * t2027 * t8320 - 0.42328282470703125000e-2 * t1404 * t1955 * t14517 + 0.28218854980468750000e-2 * t1404 * t1413 * t14521 + 0.53317386350813467287e-9 * t4060 * t2009 * t8320 - 0.20311385276500368490e-9 * t1386 * t5403 * t14517 + 0.50778463191250921226e-10 * t1386 * t1399 * t14521 + t15869 - t15871 - t15873 - 0.21706811523437500000e-1 * t15874 * t5423 + 0.10853405761718750000e-1 * t5527 * t5426 - 0.54267028808593750000e-2 * t5527 * t5415;
5493   t15899 = t11833 * t135;
5494   t15902 = 0.31265625000000000000e-1 * t14472;
5495   t15903 = 0.15632812500000000000e-1 * t14476;
5496   t15908 = -0.65120434570312500000e-3 * t5422 * t412 * t14541 + 0.32560217285156250000e-3 * t2036 * t367 * t14545 - 0.16280108642578125000e-3 * t2036 * t412 * t14549 + 0.47579418051649818421e-1 * t10577 * t5418 - 0.21146408022955474854e-1 * t3949 * t5387 + 0.10573204011477737427e-1 * t3949 * t5390 - 0.14802485616068832398e-1 * t15899 * t5394 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + t15902 + t15903 - 0.26054687500000000000e-1 * t14482 - 0.15632812500000000000e-1 * t14486 + 0.10942968750000000000e0 * t14489 + 0.10942968750000000000e0 * t14493;
5497   t15909 = 0.39072260742187500000e-2 * t5689;
5498   t15910 = 0.40977489231085968018e-3 * t5691;
5499   t15911 = 0.49826329805030822754e-4 * t5693;
5500   t15912 = 0.14886227202365174889e-5 * t5695;
5501   t15913 = 0.17692189905605278910e-7 * t5697;
5502   t15914 = 0.74396353047646698542e-10 * t5699;
5503   t15915 = 0.46898437500000000000e-1 * t5262;
5504   t15916 = 0.52109375000000000000e-2 * t14500;
5505   t15917 = 0.25012500000000000000e0 * t14503;
5506   t15927 = t2042 + t15909 + t15910 - t15911 + t15912 - t15913 + t15914 + t15915 - t15916 + t15917 + 0.91191406249999999999e0 * t14505 - 0.60794270833333333333e0 * t14507 + 0.60794270833333333333e0 * t14509 - 0.39516276041666666666e0 * t14512 + 0.54714843750000000000e-1 * t14515 - 0.36476562500000000000e-1 * t14519 + 0.36476562500000000000e-1 * t14523 - 0.13678710937500000000e-1 * t14528 + 0.50025000000000000000e0 * t14532;
5507   t15933 = 0.11129688433134460449e-2 * t1438 * t5552;
5508   t15939 = 0.56025268034416716546e-7 * t4077 * t566 * t14470;
5509   t15948 = 0.69469060277704149485e-6 * t551 * t580 * t14474;
5510   t15949 = t1989 * t144;
5511   t15950 = t15949 * t374;
5512   t15954 = t11872 * t162;
5513   t15959 = 0.39696605872973799705e-5 * t4069 * t552 * t14470;
5514   t15974 = 0.20640888223206158727e-7 * t2004 * t5439 * t14484 - t15933 - 0.33942793967050127685e-6 * t1372 * t5403 * t14491 - t15939 - 0.13893812055540829897e-5 * t1991 * t2023 * t14484 - 0.18547312417709534056e-5 * t10491 * t1995 * t8316 + t15948 - 0.67484229984055459499e-5 * t15950 * t385 * t14480 - 0.12493955356770267710e-3 * t15954 * t5615 + t15959 + 0.42046253788012545556e-7 * t5770 * t5605 - 0.17433426079214327038e-3 * t4033 * t5608 + 0.21535408686088286340e-4 * t1358 * t2009 * t14491 + 0.58111420264047756791e-4 * t4033 * t5611 - 0.15198567708333333333e0 * t14535 + 0.91191406249999999999e-1 * t14537 - 0.60794270833333333333e-1 * t14539 - 0.65136718750000000000e-2 * t14543 + 0.39082031250000000000e-2 * t14547;
5515   t15976 = 0.17369791666666666666e0 * t14553;
5516   t15977 = 0.86848958333333333333e-1 * t14555;
5517   t15978 = 0.56451822916666666666e-1 * t14557;
5518   t15979 = 0.10421875000000000000e-1 * t14561;
5519   t15980 = 0.10419269531250000000e-1 * t5714;
5520   t15981 = 0.29139547897661132812e-2 * t5719;
5521   t15982 = 0.10927330461622924805e-2 * t5722;
5522   t15983 = 0.36539308523689270020e-3 * t5725;
5523   t15984 = 0.13287021281341552734e-3 * t5728;
5524   t15985 = 0.11115049644432663917e-4 * t5731;
5525   t15986 = 0.39696605872973799704e-5 * t5734;
5526   t15987 = 0.13367432373123988509e-6 * t5737;
5527   t15988 = 0.47179173081614077092e-7 * t5740;
5528   t15989 = 0.56682935655349865556e-9 * t5743;
5529   t15990 = 0.19839027479372452945e-9 * t5746;
5530   t15991 = 0.26048173828125000000e-1 * t5759;
5531   t15992 = 0.93728097200077027082e-6 * t5761;
5532   t15993 = 0.10921104880003258586e-7 * t5768;
5533   t15994 = 0.32294843392149607342e-4 * t5778;
5534   t15995 = -0.26054687500000000000e-2 * t14551 + t15976 - t15977 - t15978 + t15979 + t15980 - t15981 + t15982 + t15983 - t15984 - t15985 + t15986 + t15987 - t15988 - t15989 + t15990 - t15991 + t15992 - t15993 - t15994;
5535   t16001 = t5785 * t814;
5536   t16004 = t1538 * t3552;
5537   t16009 = t5794 * t814;
5538   t16012 = t14252 * t184;
5539   t16015 = t14256 * t184;
5540   t16022 = t1538 * t3533;
5541   t16025 = t14271 * t184;
5542   t16028 = -0.2e1 * t1161 * t1163 * t14264 * t184 - t12070 * t16001 - 0.24e2 * t12092 * t16001 - 0.2e1 * t1545 * t16012 - t1545 * t16015 - 0.2e1 * t1545 * t16022 + 0.24e2 * t4260 * t16004 + 0.24e2 * t4268 * t16004 + 0.6e1 * t4260 * t16009 + t4280 * t16009 + t4280 * t16025;
5543   t16054 = -0.4e1 * t429 * t1152 * t14264 * t184 + t429 * t430 * t14566 * t184 - 0.36e2 * t12075 * t16001 - 0.12e2 * t12084 * t16001 - 0.4e1 * t1537 * t16012 - 0.2e1 * t1537 * t16015 - 0.4e1 * t1537 * t16022 + 0.4e1 * t4280 * t16004 + 0.6e1 * t4268 * t16009 + 0.6e1 * t4260 * t16025 + 0.6e1 * t4268 * t16025;
5544   t16056 = my_piecewise3(t102, t15418 + t15597 + t15908 + t15995 + t15148 + t14710 + t15546 + t15330 + t15881 + t15778 + t15180 + t15497 + t15224 + t15286 + t15375 + t15737 + t14971 + t14852 + t15828 + t14749 + t15648 + t15927 + t14800 + t15467 + t14641 + t15974 + t15099 + t15684 + t15251 + t14670 + t14904 + t15047, t16028 + t16054);
5545   t16065 = 0.2e1 * t690 * t1855 * t1168 + t217 * (0.19e2 / 0.81e2 * t34 * t9 * t701 * t45 - 0.41e2 / 0.8e1 * t232 * t706 * sigma[0] * t45 + 0.1323e4 / 0.800e3 * t712 * t715 * t35 * t719 - 0.78003e5 / 0.256000e6 * t2402 * t233 * t3397 * t2409 + 0.59049e5 / 0.640000e6 * t8040 * t713 / t517 * t45 + 0.4e1 * t14240 + 0.4e1 * t495 * t3564 + 0.2e1 * t827 * t1908 + 0.4e1 * t287 * t5294 + 0.2e1 * t94 * (t14283 + t14573)) * t187 + 0.2e1 * t690 * t691 * t2056 - 0.2e1 * t217 * t290 * t5806 + 0.24e2 * t12108 * t3374 - 0.2e1 * t690 * t1912 * t830 - 0.12e2 * t2370 * t1914 * t691 + 0.8e1 * t690 * t1292 * t1289 - 0.4e1 * t690 * t499 * t3567 - t101 * t16056 - 0.2e1 * t217 * t3567 * t588 - 0.24e2 * t7989 * t1856 * t691 + 0.1174e1 * t16056;
5546   t16087 = t1289 * t1289;
5547   t16107 = -t217 * t1911 * t1168 - 0.4e1 * t217 * t1289 * t1548 - 0.4e1 * t690 * t16087 * t187 + 0.6e1 * t2370 * t1856 * t830 + 0.6e1 * t2370 * t1912 * t691 + 0.4e1 * t690 * t1914 * t830 - t217 * t830 * t2056 - 0.2e1 * t217 * t498 * t4283 - 0.2e1 * t217 * t5297 * t434 - 0.12e2 * t2370 * t5153 * t290 - 0.4e1 * t690 * t5298 * t290 + 0.4e1 * t690 * t5300 * t290 + 0.8e1 * t690 * t5305 * t290 + 0.8e1 * t690 * t5308 * t290;
5548   t16154 = t596 * t2064 * t3342;
5549   t16157 = -0.3e1 / 0.16e2 * t212 * t213 * (t16065 + t16107) * t205 + 0.12323729659052043656e3 * t9826 * t7152 * t20 * t7976 - 0.45424903023464625000e2 * t1561 * t5853 - 0.46386562500000000000e0 * t4302 * t2076 - 0.14384552624097131250e3 * t598 * t5851 * t10 * t674 * t452 * t204 - t3362 * t2061 / 0.12e2 - 0.60406209071787192648e2 * t5 * t5818 * t1573 * t1577 - 0.16699162500000000000e3 * t9905 * t5835 + 0.23254840140139470986e0 * t9909 * t5840 - 0.77929425000000000000e3 * t9939 * t4315 / t154 * t30 * t192 + 0.58137100350348677464e0 * t4321 * t5838 * t4324 + 0.40270806047858128433e2 * t1193 * t5814 * t1198 - 0.49479000000000000000e1 * t447 * t448 * t5809 * t456 + 0.44531100000000000000e3 * t16154 * t4317;
5550   t16159 = t5 * t2064 * t13;
5551   t16163 = t596 * t5818 * t1185;
5552   t16203 = -0.62012907040371922629e0 * t16159 * t4325 + 0.44531100000000000000e2 * t16163 * t1569 - 0.29687400000000000000e2 * t1181 * t5814 * t1190 - 0.41747906250000000000e1 * t9913 * t2071 + 0.18554625000000000000e1 * t596 * t7 * t4286 * t602 - t1202 * t5811 / 0.2e1 + 0.37753880669866995407e2 * t2082 * t4333 - 0.50338507559822660540e2 * t5827 * t4333 + 0.30615131250000000000e3 * t4314 * t5832 * t5833 * t696 - 0.51952950000000000000e2 * t5823 * t4329 - 0.8246500000000000000e0 * t3367 * t5814 * t456 - 0.90849806046929250000e2 * t596 * t1574 * t682 * t1185 * t7976 + 0.45304656803840394488e2 * t5848 * t1577 + 0.56630821004800493110e1 * t5 * t4301 * t2080 * t2084 + 0.12113307472923899999e3 * t2065 * t4339;
5553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5554     v4rho2sigma2[0] = t16157 + t16203;
5555 
5556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5557     v4rho2sigmalapl[0] = 0.0e0;
5558 
5559   t16253 = 0.24e2 * t4349 * t1583 * t1289 * t290 + 0.12e2 * t4349 * t1583 * t498 * t830 + 0.2e1 * t217 * t3564 * t619 * t187 + 0.8e1 * t1582 * t14156 * t498 + 0.4e1 * t1582 * t5996 * t830 + 0.2e1 * t690 * t2128 * t830 - t217 * t3567 * t666 - 0.2e1 * t217 * t620 * t4283 - 0.4e1 * t217 * t5876 * t434 - t217 * t498 * t5127 - 0.24e2 * t4349 * t4360 * t5858 - 0.4e1 * t14110 * t2087 - 0.8e1 * t4353 * t5864 + 0.8e1 * t4353 * t5867 - 0.8e1 * t4353 * t5870;
5560   t16297 = t614 * t822;
5561   t16302 = t8402 * t613;
5562   t16316 = t14398 * t74 * t2094;
5563   t16318 = t5943 * t5946;
5564   t16320 = t5943 * t5949;
5565   t16323 = t1231 * t12428 * t476;
5566   t16326 = t1231 * t4395 * t1245;
5567   t16329 = t1231 * t1593 * t3410;
5568   t16331 = -t14315 - t14318 + t14321 - t14349 + t14367 - t1885 - 0.3e1 / 0.16e2 * t16316 - 0.3e1 / 0.8e1 * t16318 - 0.3e1 / 0.8e1 * t16320 - 0.3e1 / 0.16e2 * t16323 - 0.3e1 / 0.8e1 * t16326 - 0.3e1 / 0.16e2 * t16329;
5569   t16332 = t2513 * t2094;
5570   t16334 = t8083 * t2094;
5571   t16336 = t793 * t5946;
5572   t16338 = t793 * t5949;
5573   t16341 = t1231 * t4402 * t1264;
5574   t16344 = t1231 * t1601 * t3528;
5575   t16346 = t3508 * t5910;
5576   t16348 = t3508 * t5913;
5577   t16350 = t5245 * t5917;
5578   t16352 = t5245 * t5921;
5579   t16354 = t793 * t5907;
5580   t16356 = -t14370 + t14388 - 0.15e2 / 0.4e1 * t16332 - 0.15e2 / 0.8e1 * t16334 - 0.15e2 / 0.8e1 * t16336 - 0.15e2 / 0.8e1 * t16338 + 0.3e1 / 0.8e1 * t16341 + 0.3e1 / 0.8e1 * t16344 + 0.175e3 / 0.384e3 * t16346 + 0.175e3 / 0.384e3 * t16348 - 0.35e2 / 0.768e3 * t16350 - 0.35e2 / 0.768e3 * t16352 + 0.15e2 / 0.8e1 * t16354;
5581   t16359 = t1231 * t1601 * t3500;
5582   t16362 = t1254 * t12300 * t2097;
5583   t16365 = t1254 * t4402 * t5188;
5584   t16368 = t1254 * t1601 * t14521;
5585   t16370 = t4381 * t476;
5586   t16372 = t1887 * t403 * t16370;
5587   t16374 = t1606 * t1245;
5588   t16376 = t1887 * t403 * t16374;
5589   t16378 = t606 * t3410;
5590   t16380 = t1887 * t403 * t16378;
5591   t16382 = t5943 * t5907;
5592   t16384 = 0.3e1 / 0.16e2 * t16359 + 0.7e1 / 0.256e3 * t16362 + 0.7e1 / 0.128e3 * t16365 + 0.7e1 / 0.256e3 * t16368 - t16372 / 0.512e3 - t16376 / 0.256e3 - t16380 / 0.512e3 + 0.3e1 / 0.8e1 * t16382 + t14395 - t14396 - t14397 - t14402 - t14413;
5593   t16386 = t1231 * t1668 * t3496;
5594   t16388 = t14467 * t2102;
5595   t16390 = t763 * t2098;
5596   t16392 = t12203 * t3477;
5597   t16396 = t2101 * t795;
5598   t16397 = t14371 * t3222 * t10 * t16396;
5599   t16401 = t2101 * t2478;
5600   t16402 = t5250 * t4132 * t10 * t16401;
5601   t16404 = -t14417 - 0.3e1 / 0.8e1 * t16386 - 0.35e2 / 0.144e3 * t16388 + 0.1925e4 / 0.1152e4 * t16390 + t14421 - t14422 + t14423 + t14424 - 0.9e1 / 0.64e2 * t16392 + 0.35e2 / 0.2048e4 * t16397 - 0.21e2 / 0.2048e4 * t16402 - t14441 + t14443;
5602   t16407 = t2101 * t803;
5603   t16408 = t10273 * t16407;
5604   t16410 = t1255 * t275;
5605   t16411 = t1597 * t16410;
5606   t16412 = t14322 * t16411;
5607   t16414 = t14340 * t5896;
5608   t16416 = t5916 * t3473;
5609   t16417 = t2433 * t16416;
5610   t16419 = t5920 * t3473;
5611   t16420 = t2433 * t16419;
5612   t16423 = t2101 * t2451 * t32;
5613   t16424 = t8315 * t16423;
5614   t16426 = t6433 * t5899;
5615   t16427 = t5251 * t16426;
5616   t16429 = t4477 * t14382;
5617   t16430 = t5251 * t16429;
5618   t16432 = -t14446 + t14449 - t14461 + t14466 + 0.315e3 / 0.2048e4 * t16408 + 0.15e2 / 0.256e3 * t16412 + 0.9e1 / 0.64e2 * t16414 + 0.9e1 / 0.64e2 * t16417 + 0.9e1 / 0.64e2 * t16420 - 0.27e2 / 0.128e3 * t16424 + 0.7e1 / 0.2048e4 * t16427 + 0.7e1 / 0.2048e4 * t16430;
5619   t16433 = t4477 * t16410;
5620   t16434 = t10181 * t16433;
5621   t16436 = t10189 * t16396;
5622   t16438 = t10268 * t16401;
5623   t16440 = t8337 * t5896;
5624   t16442 = t9178 * t5900;
5625   t16444 = -0.21e2 / 0.64e2 * t16434 - 0.105e3 / 0.512e3 * t16436 + 0.35e2 / 0.256e3 * t16438 + 0.3e1 / 0.4e1 * t16440 + 0.21e2 / 0.512e3 * t16442 + t14473 + t14477 + t1893 + t14497 - t14501 + t14504 + t14554 - t14556;
5626   t16446 = t14478 * t915;
5627   t16447 = t1597 * t3492;
5628   t16448 = t16446 * t16447;
5629   t16451 = t1597 * t3496;
5630   t16452 = t1886 * t8896 * t16451;
5631   t16454 = t10101 * t2449;
5632   t16455 = t4477 * t3492;
5633   t16456 = t16454 * t16455;
5634   t16458 = t4477 * t3496;
5635   t16459 = t10240 * t16458;
5636   t16462 = t10097 * t2449 * t5926;
5637   t16464 = t10237 * t5929;
5638   t16466 = t10245 * t5932;
5639   t16468 = t6433 * t1255;
5640   t16469 = t5925 * t16468;
5641   t16471 = t4477 * t3517;
5642   t16472 = t5925 * t16471;
5643   t16474 = t4477 * t3521;
5644   t16475 = t5925 * t16474;
5645   t16477 = t6433 * t1264;
5646   t16478 = t3442 * t16477;
5647   t16480 = -t14558 + t14562 - 0.5e1 / 0.128e3 * t16448 - 0.3e1 / 0.128e3 * t16452 + 0.21e2 / 0.128e3 * t16456 + 0.21e2 / 0.128e3 * t16459 + 0.175e3 / 0.128e3 * t16462 - 0.175e3 / 0.192e3 * t16464 - 0.455e3 / 0.768e3 * t16466 + 0.21e2 / 0.128e3 * t16469 + 0.21e2 / 0.128e3 * t16472 + 0.21e2 / 0.256e3 * t16475 - 0.7e1 / 0.64e2 * t16478;
5648   t16481 = t4477 * t3528;
5649   t16482 = t3442 * t16481;
5650   t16484 = t4477 * t3500;
5651   t16485 = t3442 * t16484;
5652   t16487 = t5916 * t67;
5653   t16488 = t3448 * t16487;
5654   t16490 = t5920 * t67;
5655   t16491 = t3448 * t16490;
5656   t16493 = t9200 * t5936;
5657   t16495 = t8724 * t5940;
5658   t16497 = t4473 * t1255;
5659   t16498 = t5935 * t16497;
5660   t16500 = t1597 * t3517;
5661   t16501 = t5935 * t16500;
5662   t16503 = t1597 * t3521;
5663   t16504 = t5935 * t16503;
5664   t16506 = t4473 * t1264;
5665   t16507 = t5939 * t16506;
5666   t16509 = t1597 * t3528;
5667   t16510 = t5939 * t16509;
5668   t16512 = t1597 * t3500;
5669   t16513 = t5939 * t16512;
5670   t16516 = t2101 * t765;
5671   t16517 = t14525 * t127 * t16516;
5672   t16519 = -0.7e1 / 0.64e2 * t16482 - 0.7e1 / 0.128e3 * t16485 - 0.35e2 / 0.512e3 * t16488 - 0.35e2 / 0.512e3 * t16491 - 0.175e3 / 0.768e3 * t16493 + 0.35e2 / 0.256e3 * t16495 - 0.5e1 / 0.256e3 * t16498 - 0.5e1 / 0.256e3 * t16501 - 0.5e1 / 0.512e3 * t16504 + 0.3e1 / 0.256e3 * t16507 + 0.3e1 / 0.256e3 * t16510 + 0.3e1 / 0.512e3 * t16513 - 0.21e2 / 0.1024e4 * t16517;
5673   t16522 = t16331 + t16356 + t16384 + t16404 + t16432 + t16444 + t16480 + t16519;
5674   t16533 = -t2603 * t1626 * t1283 / 0.50e2 + 0.3e1 / 0.50e2 * t5967 * t3557 - t16297 * t3561 / 0.10e2 + 0.3e1 / 0.25e2 * t5967 * t3553 + t16302 * t3561 / 0.100e3 + 0.3e1 / 0.25e2 * t1627 * t89 * t1283 + 0.3e1 / 0.20e2 * t614 * t814 * t2110 - t5985 * t3553 / 0.50e2 - t5985 * t3557 / 0.100e3 + t50 * t16522 * t91 / 0.100e3 - t283 * t16522 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t614 * t3553 - 0.3e1 / 0.100e3 * t614 * t3557;
5675   t16546 = t613 * t3533;
5676   t16558 = t2105 * t814;
5677   t16562 = t2105 * t810;
5678   t16566 = t5955 * t279;
5679   t16574 = -0.3e1 / 0.50e2 * t1627 * t5271 - 0.3e1 / 0.50e2 * t1627 * t1283 - 0.3e1 / 0.100e3 * t4486 * t2110 + 0.3e1 / 0.50e2 * t2106 * t3546 - 0.3e1 / 0.100e3 * t2106 * t3542 - 0.3e1 / 0.50e2 * t5956 * t1276 + t823 * t16546 * t91 / 0.100e3 + t823 * t1626 * t1271 * t91 / 0.50e2 + t823 * t4485 * t488 * t91 / 0.100e3 - t2603 * t16558 * t91 / 0.100e3 + t823 * t16562 * t91 / 0.100e3 + t823 * t16566 * t91 / 0.50e2 - 0.3e1 / 0.100e3 * t614 * t14293 - 0.3e1 / 0.100e3 * t2106 * t824;
5680   t16586 = -0.8e1 * t1582 * t4356 * t1289 - 0.4e1 * t217 * t5880 * t434 - 0.4e1 * t217 * t5891 * t434 - 0.2e1 * t217 * t4513 * t588 - 0.4e1 * t1582 * t14128 * t498 + 0.2e1 * t217 * t827 * t2120 * t187 - 0.2e1 * t217 * t2090 * t1168 + 0.4e1 * t217 * t287 * t5988 * t187 - 0.4e1 * t217 * t1640 * t1548 + 0.8e1 * t1582 * t4360 * t1289 + 0.4e1 * t1582 * t14152 * t498 - 0.4e1 * t1582 * t1583 * t3567 + 0.2e1 * t217 * t94 * (t16533 + t16574) * t187 - 0.2e1 * t217 * t290 * t6374 - 0.2e1 * t217 * t4367 * t588;
5681   t16596 = t690 * t1286;
5682   t16599 = t5988 * t187;
5683   t16611 = t2120 * t434;
5684   t16621 = -t14635 - t14636 + t14637 - t14646 + t14652 - t14654 + t14662 + t14664 - t14679 - t14681 + t14693;
5685   t16622 = -t14695 - t14703 - t14705 + t14730 + t14732 + t14744 - t14746 + t14748 - t14758 - t14760 - t14765;
5686   t16624 = t14768 - t14771 + t14773 + t14776 - t14788 - t14803 + t14806 + t14818 + t14821 - t14829 + t14831;
5687   t16625 = t14851 - t14855 - t14857 + t14860 + t14863 + t14865 - t14868 + t14871 - t14885 + t14910 + t14924 + t14927;
5688   t16634 = -t14959 - t14967 + t14980 - t14982 - t14993 + t15004 + t15007 - t15073 + t15076 - 0.55575248222163319587e-5 * t1506 * t1688 * t3410 + 0.66837161865619942547e-7 * t1516 * t12857 * t476;
5689   t16668 = 0.13367432373123988509e-6 * t1516 * t4737 * t1245 - 0.14569773948830566406e-2 * t1486 * t12878 * t476 - 0.29139547897661132812e-2 * t1486 * t4569 * t1245 - 0.14569773948830566406e-2 * t1486 * t1668 * t3410 + 0.18269654261844635010e-3 * t1496 * t12886 * t476 + 0.36539308523689270020e-3 * t1496 * t4576 * t1245 + 0.18269654261844635010e-3 * t1496 * t1678 * t3410 - 0.55575248222163319587e-5 * t1506 * t12890 * t476 - 0.11115049644432663917e-4 * t1506 * t4583 * t1245 + 0.66837161865619942547e-7 * t1516 * t1699 * t3410 - 0.28341467827674932778e-9 * t1526 * t12864 * t476;
5690   t16685 = -0.56682935655349865556e-9 * t1526 * t4656 * t1245 - 0.28341467827674932778e-9 * t1526 * t1709 * t3410 - 0.13024086914062500000e-1 * t1475 * t12300 * t476 - 0.26048173828125000000e-1 * t1475 * t4402 * t1245 - 0.13024086914062500000e-1 * t1475 * t1601 * t3410 + t15095 - t15096 - t15097 + t15098 - t15101 - t15102;
5691   t16686 = t15113 + t15124 + t15136 + t15140 - t15142 - t15147 - t1918 + t15151 - t15152 - t15153 - t15154 + t15155;
5692   t16710 = t15156 + 0.10910183775123255327e-5 * t11903 * t16396 - 0.42428492458812659606e-6 * t12007 * t16401 - 0.47732054016164242057e-6 * t10930 * t16407 + 0.59048701236048527062e-5 * t14665 * t16411 + 0.24662377777968406678e-4 * t5671 * t16426 + 0.24662377777968406678e-4 * t5671 * t16429 - 0.34601617920160293580e-5 * t5677 * t16426 - 0.34601617920160293580e-5 * t5677 * t16429 + 0.26719369357947778702e-2 * t8956 * t16423 - 0.12504430849986746908e-3 * t8941 * t16423;
5693   t16733 = -0.10380963938541778565e-1 * t11240 * t16433 + 0.14879270609529339708e-8 * t3206 * t16419 + 0.19536130371093750000e-1 * t2814 * t16416 + 0.19536130371093750000e-1 * t2814 * t16419 + 0.32781991384868774414e-2 * t2822 * t16416 + 0.32781991384868774414e-2 * t2822 * t16419 - 0.54808962785533905030e-3 * t3210 * t16416 - 0.50793938964843750000e-1 * t11045 * t16433 - 0.33862625976562500000e-1 * t11051 * t16396 + 0.16931312988281250000e-1 * t10936 * t16401 + 0.19047727111816406250e-1 * t10940 * t16407;
5694   t16739 = 0.34595230865478515625e-2 * t9181 * t5900 + 0.52096347656250000000e-2 * t15255 * t16411 + t15162 + t15163 + t15164 - t15166 - t15168 + t15179 + t15184 + t15198 - t15225;
5695   t16740 = -t15226 - t15227 + t15228 + t15229 - t15230 - t15231 + t15234 + t15236 - t15241 - t15248 + t15250 - t1939;
5696   t16743 = -t1942 + t1945 - t1948 + t1951 - t1954 - t15271 - t15273 + t15275 + t15277 - t15285 + t15288;
5697   t16747 = t15297 - t15299 + t15301 + t15305 - t15317 - t15319 + t15321 + t15323 - 0.12506250000000000000e0 * t16316 - 0.25012500000000000000e0 * t16318 - 0.25012500000000000000e0 * t16320;
5698   t16752 = -0.12506250000000000000e0 * t16323 - 0.25012500000000000000e0 * t16326 - 0.12506250000000000000e0 * t16329 - t15343 - t15407 + t15409 - t15411 - t15413 + t15415 + t15417 - t15421;
5699   t16758 = t15431 - t15445 + t15447 + t15449 - t15451 + t15466 + 0.21387891796998381616e-5 * t3812 * t4737 * t1255 - t15470 + t15471 - t15472 - 0.25012500000000000000e1 * t16332 - 0.12506250000000000000e1 * t16334;
5700   t16780 = -0.12506250000000000000e1 * t16336 - 0.12506250000000000000e1 * t16338 + 0.25012500000000000000e0 * t16341 + 0.25012500000000000000e0 * t16344 + 0.30397135416666666666e0 * t16346 + 0.30397135416666666666e0 * t16348 + 0.28071607983560375870e-5 * t1516 * t1658 * t3496 - 0.96927819970648270100e-7 * t11435 * t1709 * t3492 - 0.15871221983497962356e-7 * t1526 * t4848 * t3496 - 0.30397135416666666666e-1 * t16350 - 0.30397135416666666666e-1 * t16352;
5701   t16790 = 0.12506250000000000000e1 * t16354 + 0.12506250000000000000e0 * t16359 + 0.18238281250000000000e-1 * t16362 + 0.36476562500000000000e-1 * t16365 + 0.18238281250000000000e-1 * t16368 - 0.13027343750000000000e-2 * t16372 - 0.26054687500000000000e-2 * t16376 - 0.13027343750000000000e-2 * t16380 + 0.25012500000000000000e0 * t16382 + t15473 - t15474;
5702   t16830 = -t15475 + 0.12613876136403763667e-7 * t5660 * t4158 * t10 * t16401 + 0.16975358334284464944e-9 * t15452 * t5706 * t10 * t16396 - 0.66425315221113123695e-10 * t5703 * t15456 * t10 * t16401 + 0.16280108642578125000e-2 * t15462 * t3231 * t10 * t16396 - 0.12331188888984203339e-3 * t5670 * t4203 * t10 * t16401 - 0.48442265088224411012e-4 * t15432 * t3187 * t10 * t16396 + 0.20760970752096176148e-4 * t5676 * t4177 * t10 * t16401 - 0.31534690341009409166e-7 * t15371 * t3259 * t10 * t16396 + 0.78144521484375000000e-1 * t9019 * t911 * t606 * t3474 - 0.39072260742187500000e-1 * t14043 * t3477;
5703   t16869 = 0.22947393969408142089e-1 * t8900 * t920 * t606 * t3474 - 0.98345974154606323241e-2 * t14031 * t3477 + 0.20034380776516464538e-5 * t15399 * t3250 * t10 * t16396 - 0.82494509079773677513e-6 * t5682 * t4192 * t10 * t16401 + 0.21923585114213562012e-2 * t14035 * t3477 + 0.27092933508304618299e-3 * t9011 * t938 * t606 * t3474 - 0.10420359041655622423e-3 * t14027 * t3477 - 0.48122756543246358635e-5 * t9027 * t949 * t606 * t3474 + 0.18046033703717384488e-5 * t14047 * t3477 + 0.28270614158105745446e-7 * t9035 * t958 * t606 * t3474 - 0.10415489426670537796e-7 * t14039 * t3477 - 0.81400543212890625000e-3 * t5653 * t4214 * t10 * t16401;
5704   t16880 = -0.54808962785533905030e-2 * t8910 * t929 * t606 * t3474 - t15477 - t15481 + 0.27128615555765247345e-3 * t15356 * t3241 * t10 * t16396 + t15484 + t15486 - t15488 + t15491 - t15494 - t15496 + t15501;
5705   t16894 = -t15504 - t15512 - t15515 + t15518 + t15521 - t15532 - 0.40102297119371965528e-6 * t1516 * t1709 * t3500 - 0.37694152210807660594e-6 * t5601 * t6339 + 0.13887319235560717061e-6 * t1380 * t6342 - 0.53848788872582372278e-8 * t3844 * t1709 * t3521 - 0.11808944928197888657e-11 * t2022 * t2023 * t16370;
5706   t16929 = -0.23617889856395777314e-11 * t2022 * t2023 * t16374 - 0.11808944928197888657e-11 * t2022 * t2023 * t16378 + 0.14109427490234375000e-2 * t1404 * t12878 * t2097 + 0.28218854980468750000e-2 * t1404 * t4569 * t5188 + 0.14109427490234375000e-2 * t1404 * t1668 * t14521 - 0.81400543212890625000e-4 * t2036 * t412 * t16370 - 0.16280108642578125000e-3 * t2036 * t412 * t16374 - 0.81400543212890625000e-4 * t2036 * t412 * t16378 + 0.14418005470196914673e-3 * t1329 * t12886 * t2097 + 0.28836010940393829346e-3 * t1329 * t4576 * t5188 + 0.14418005470196914673e-3 * t1329 * t1678 * t14521;
5707   t16958 = 0.73078617047378540040e-1 * t5393 * t6321 - 0.29231446818951416016e-1 * t1337 * t6324 - 0.73078617047378540040e-3 * t1496 * t1688 * t3500 - 0.36123911344406157732e-2 * t5483 * t6327 + 0.13893812055540829897e-2 * t1352 * t6330 - 0.72247822688812315463e-4 * t3803 * t1688 * t3521 + 0.27787624111081659794e-4 * t1506 * t1699 * t3500 + 0.64163675390995144846e-4 * t5614 * t6333 - 0.24061378271623179316e-4 * t1366 * t6336 + 0.10693945898499190808e-5 * t3812 * t1699 * t3521 + 0.19839027479372452945e-8 * t1526 * t1658 * t3500 - 0.25012500000000000000e0 * t16386;
5708   t16972 = -0.16211805555555555555e0 * t16388 + 0.11145616319444444444e1 * t16390 - t15551 + t15553 + t15555 - t15558 + t15560 - 0.19839027479372452945e-7 * t1380 * t6169 - 0.26048173828125000000e0 * t1260 * t6172 - 0.26048173828125000000e0 * t1260 * t6175 - 0.43709321846491699218e-1 * t1412 * t6178;
5709   t16995 = -0.43709321846491699218e-1 * t1412 * t6181 + 0.73078617047378540040e-2 * t1337 * t6184 + 0.73078617047378540040e-2 * t1337 * t6191 - 0.27787624111081659794e-3 * t1352 * t6141 - 0.27787624111081659794e-3 * t1352 * t6144 + 0.40102297119371965528e-5 * t1366 * t6147 + 0.31719612034433212280e-2 * t11982 * t16401 + 0.35684563538737363816e-2 * t12020 * t16407 + 0.54257231111530494691e-3 * t9269 * t5900 + 0.83472663248508453369e-3 * t14752 * t16411 - 0.92294608654664084315e-4 * t11929 * t16433;
5710   t17019 = -0.65375347797053726391e-4 * t11002 * t16396 + 0.26150139118821490556e-4 * t11993 * t16401 + 0.20760970752096176148e-2 * t10980 * t16433 + 0.14532679526467323304e-2 * t10986 * t16396 - 0.60552831360280513764e-3 * t12023 * t16401 - 0.68121935280315577986e-3 * t12004 * t16407 - 0.93424368384432792667e-4 * t9262 * t5900 - 0.71369127077474727632e-2 * t11246 * t16396 + 0.29418906508674176876e-4 * t11997 * t16407 - 0.91737280992027372121e-7 * t14761 * t16411 - 0.85307818161301547659e-8 * t11963 * t16433;
5711   t17040 = -0.61314994303435487379e-8 * t11969 * t16396 - 0.14532679526467323304e-3 * t15169 * t16411 - 0.30596525292544189453e0 * t4010 * t2145 + 0.40102297119371965528e-5 * t1366 * t6150 - 0.19839027479372452945e-7 * t1380 * t6154 - 0.33345148933297991753e-2 * t4022 * t2133 + 0.58148330823089350016e-4 * t4039 * t2136 - 0.33726346714933170006e-6 * t3945 * t2139 + 0.69424686195009613038e-1 * t3955 * t2130 - 0.11721678222656250000e1 * t3514 * t2142 + t15562 - t15565;
5712   t17043 = -t15568 - t15571 + t15574 + t15577 - t15580 - t15583 + t15590 + t15593 - t15596 - t15602 + t15615;
5713   t17047 = -t15621 - t15630 - t15631 + t15632 + t15633 - 0.93796875000000000000e-1 * t16392 + 0.11398925781250000000e-1 * t16397 - 0.68393554687500000000e-2 * t16402 - t15659 - t15665 + t15666;
5714   t17049 = -t15667 + t15668 + t15748 - t15750 + t15752 - t15755 + t15758 + t15760 - t15762 - t15765 - t15767;
5715   t17073 = t15769 - t15772 - t15775 + t15777 + 0.10254956517184898257e-5 * t1358 * t4737 * t5188 + 0.51274782585924491286e-6 * t1358 * t1699 * t14521 - 0.52096347656250000000e-1 * t3794 * t1601 * t3521 + 0.26048173828125000000e-1 * t1475 * t1668 * t3500 - 0.30596525292544189452e0 * t5458 * t6058 - 0.80204594238743931056e-6 * t1516 * t4656 * t1264 + 0.21387891796998381616e-5 * t3812 * t1699 * t3517 - 0.80204594238743931056e-6 * t1516 * t1709 * t3528;
5716   t17103 = -0.10769757774516474456e-7 * t3844 * t4656 * t1255 + 0.39678054958744905890e-8 * t1526 * t4672 * t1264 - 0.15713239824718795717e-5 * t5763 * t6064 - 0.15713239824718795717e-5 * t5763 * t6067 - 0.40408088056012056768e-6 * t3939 * t6070 - 0.40408088056012056768e-6 * t3939 * t6076 + 0.21023126894006272778e-7 * t5770 * t6079 + 0.21023126894006272778e-7 * t5770 * t6082 - 0.33979276049645360311e-2 * t15634 * t2174 - 0.90156437803084320495e-2 * t852 * t2177 + 0.59207212885607613460e-3 * t15640 * t2180;
5717   t17113 = t15782 - t15784 - t15786 + t15789 - t15792 + t15869 - t15871 - t15873 + 0.16442688835660171509e-1 * t11443 * t1678 * t3492 + 0.36539308523689270020e-2 * t1496 * t1699 * t3496 - 0.86697387226574778556e-3 * t11453 * t1688 * t3492;
5718   t17143 = -0.16672574466648995876e-3 * t1506 * t1709 * t3496 + 0.16040918847748786212e-4 * t11460 * t1699 * t3492 - 0.61193050585088378904e-1 * t11425 * t1668 * t3492 - 0.17483728738596679687e-1 * t1486 * t1688 * t3496 - 0.10419269531250000000e1 * t5192 * t6052 - 0.15628904296875000000e0 * t11464 * t1601 * t3492 + 0.52096347656250000000e0 * t1260 * t6055 - 0.78144521484375000000e-1 * t1475 * t1678 * t3496 + 0.37491242960977853121e-6 * t15637 * t2156 - 0.24093634397902153432e-4 * t15616 * t2150 - 0.65326409023886158442e-5 * t866 * t2153;
5719   t17168 = 0.84656564941406250000e-2 * t6256 * t16474 - 0.84656564941406250000e-2 * t4133 * t16477 - 0.84656564941406250000e-2 * t4133 * t16481 - 0.42328282470703125000e-2 * t4133 * t16484 - 0.56437709960937500000e-2 * t4137 * t16487 - 0.56437709960937500000e-2 * t4137 * t16490 - 0.21706811523437500000e-1 * t9187 * t5936 + 0.10853405761718750000e-1 * t8727 * t5940 - 0.13024086914062500000e-2 * t6263 * t16497 - 0.13024086914062500000e-2 * t6263 * t16500 - 0.65120434570312500000e-3 * t6263 * t16503 + 0.65120434570312500000e-3 * t6266 * t16506;
5720   t17193 = 0.65120434570312500000e-3 * t6266 * t16509 + 0.32560217285156250000e-3 * t6266 * t16512 + 0.47579418051649818421e-1 * t5654 * t5926 + 0.46135490560213724774e-4 * t5516 * t6043 + 0.29055710132023878396e-4 * t4033 * t6046 + 0.29055710132023878396e-4 * t4033 * t6049 + 0.19465077556646186470e-8 * t4107 * t6085 + 0.19465077556646186470e-8 * t4107 * t6088 - 0.98407874401649072142e-10 * t5541 * t6091 - 0.98407874401649072142e-10 * t5541 * t6094 + 0.37625139973958333334e-1 * t4004 * t6097;
5721   t17216 = 0.37625139973958333334e-1 * t4004 * t6100 + 0.39709470513765967141e-3 * t859 * t2183 + 0.36334811439072881411e-7 * t873 * t2159 - 0.20009601128335311336e-8 * t15126 * t2162 + 0.23202169650607638889e0 * t839 * t2165 - 0.21254586283365885417e-1 * t15137 * t2168 + 0.45817217383070195516e-1 * t845 * t2171 - 0.32883170370624542236e-3 * t5773 * t6027 - 0.32883170370624542236e-3 * t5773 * t6030 - 0.80737108480374018354e-3 * t3965 * t6034 - 0.80737108480374018354e-3 * t3965 * t6037;
5722   t17228 = 0.46135490560213724774e-4 * t5516 * t6040 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + 0.15274257285172557458e-5 * t11958 * t16433 + 0.21429665023164394079e-5 * t8886 * t16423 - 0.12275398252861705259e-7 * t8879 * t16423 - 0.51282342224121093750e-1 * t8864 * t16423;
5723   t17253 = -0.12293246769325790405e-1 * t8872 * t16423 + 0.11784929868539096788e-6 * t5683 * t16426 + 0.11784929868539096788e-6 * t5683 * t16429 - 0.15767345170504704583e-8 * t5661 * t16426 - 0.15767345170504704583e-8 * t5661 * t16429 + 0.73805905801236804106e-11 * t5707 * t16426 + 0.73805905801236804106e-11 * t5707 * t16429 + 0.20350135803222656250e-3 * t5654 * t16426 + 0.20350135803222656250e-3 * t5654 * t16429 - 0.54808962785533905030e-3 * t3210 * t16419 + 0.20840718083311244846e-4 * t2806 * t16416 + 0.20840718083311244846e-4 * t2806 * t16419;
5724   t17271 = -0.30076722839528974146e-6 * t3198 * t16416 - 0.30076722839528974146e-6 * t3198 * t16419 + 0.14879270609529339708e-8 * t3206 * t16416 + 0.10259033203125000000e0 * t16408 + 0.39082031250000000000e-1 * t16412 + 0.93796875000000000000e-1 * t16414 + 0.93796875000000000000e-1 * t16417 + 0.93796875000000000000e-1 * t16420 - 0.14069531250000000000e0 * t16424 + 0.22797851562500000000e-2 * t16427 + 0.22797851562500000000e-2 * t16430;
5725   t17289 = -0.21885937500000000000e0 * t16434 - 0.13678710937500000000e0 * t16436 + 0.91191406250000000000e-1 * t16438 - 0.91232725946571221576e-5 * t4189 * t5896 + 0.52573422820337000303e-7 * t4155 * t5896 - 0.11144489099725227356e-1 * t4200 * t5896 + 0.48889032002739259039e-9 * t15207 * t16411 + 0.50025000000000000000e0 * t16440 + 0.27357421874999999999e-1 * t16442 + 0.20187334716796875000e0 * t3458 * t5896 + 0.50265720123465454101e-1 * t4144 * t5896;
5726   t17299 = 0.37711775579325109721e-5 * t8735 * t5900 - 0.58339177130867406959e-7 * t9184 * t5900 + 0.52796485811055153609e-3 * t4174 * t5896 + t15902 + t15903 + t2042 + 0.16931312988281250000e-1 * t6256 * t16471 + t15909 + t15910 - t15911 + t15912;
5727   t17321 = -t15913 + t15914 - 0.27160573334855143911e-10 * t6249 * t16503 + 0.21256100870756199582e-10 * t6253 * t16506 + 0.21256100870756199582e-10 * t6253 * t16509 + 0.10628050435378099791e-10 * t6253 * t16512 + 0.22575083984375000000e0 * t5251 * t5926 - 0.11287541992187500000e0 * t12045 * t5929 - 0.77131536946614583334e-1 * t12030 * t5932 + 0.16931312988281250000e-1 * t6256 * t16468 - 0.29197616334969279704e-9 * t4164 * t16490 - 0.22633811112379286592e-8 * t14948 * t6248 * t5936;
5728   t17345 = 0.88567086961484164927e-9 * t5540 * t6252 * t5940 - 0.54321146669710287822e-10 * t6249 * t16497 - 0.54321146669710287822e-10 * t6249 * t16500 + 0.53317386350813467287e-9 * t6239 * t16474 - 0.40622770553000736980e-9 * t4159 * t16477 - 0.40622770553000736980e-9 * t4159 * t16481 - 0.20311385276500368490e-9 * t4159 * t16484 - 0.29197616334969279704e-9 * t4164 * t16487 + t15915 + 0.11467160124003421515e-7 * t6233 * t16497 + 0.11467160124003421515e-7 * t6233 * t16500;
5729   t17368 = 0.57335800620017107576e-8 * t6233 * t16503 - 0.45868640496013686060e-8 * t6236 * t16506 - 0.45868640496013686060e-8 * t6236 * t16509 - 0.22934320248006843030e-8 * t6236 * t16512 + 0.40876662868956991587e-7 * t5661 * t5926 - 0.15572062045316949176e-7 * t11879 * t5929 - 0.11289744982854788152e-7 * t11887 * t5932 + 0.10663477270162693457e-8 * t6239 * t16468 + 0.10663477270162693457e-8 * t6239 * t16471 + 0.12110566272056102753e-3 * t4208 * t16490 + 0.64589686784299214683e-3 * t9197 * t5936;
5730   t17392 = -0.27681294336128234864e-3 * t8721 * t5940 + 0.24221132544112205506e-4 * t6220 * t16497 + 0.24221132544112205506e-4 * t6220 * t16500 + 0.12110566272056102753e-4 * t6220 * t16503 - 0.10380485376048088074e-4 * t6223 * t16506 - 0.10380485376048088074e-4 * t6223 * t16509 - 0.51902426880240440370e-5 * t6223 * t16512 + 0.43583565198035817594e-3 * t5677 * t5926 - 0.17433426079214327038e-3 * t11865 * t5929 - 0.12493955356770267710e-3 * t11873 * t5932 + 0.15382434775777347386e-4 * t6226 * t16468;
5731   t17418 = 0.15382434775777347386e-4 * t6226 * t16471 + 0.76912173878886736929e-5 * t6226 * t16474 - 0.61529739103109389544e-5 * t4178 * t16477 - 0.61529739103109389544e-5 * t4178 * t16481 - 0.30764869551554694772e-5 * t4178 * t16484 - 0.43583565198035817594e-5 * t4182 * t16487 - 0.43583565198035817594e-5 * t4182 * t16490 + 0.23358093067975423764e-8 * t12000 * t16401 + 0.26277854701472351734e-8 * t10900 * t16407 + 0.30998480436519457724e-9 * t15291 * t5900 + 0.18269654261844635010e-2 * t3835 * t1678 * t3521 + 0.13112796553947509765e0 * t1412 * t6061;
5732   t17456 = -0.10198841764181396484e-1 * t3825 * t1668 * t3521 + 0.43709321846491699218e-2 * t1486 * t1678 * t3500 - 0.24810378670608624816e-7 * t1991 * t385 * t16370 - 0.49620757341217249632e-7 * t1991 * t385 * t16374 - 0.24810378670608624816e-7 * t1991 * t385 * t16378 - 0.60612132084018085152e-8 * t1372 * t12864 * t2097 - 0.12122426416803617030e-7 * t1372 * t4656 * t5188 - 0.60612132084018085152e-8 * t1372 * t1709 * t14521 + 0.28667900310008553788e-9 * t2004 * t2005 * t16370 + 0.57335800620017107576e-9 * t2004 * t2005 * t16374 + 0.28667900310008553788e-9 * t2004 * t2005 * t16378;
5733   t17490 = 0.25389231595625460613e-10 * t1386 * t12871 * t2097 + 0.50778463191250921226e-10 * t1386 * t4672 * t5188 + 0.25389231595625460613e-10 * t1386 * t1658 * t14521 - 0.75884239316825866699e-5 * t1964 * t367 * t16370 - 0.15176847863365173340e-4 * t1964 * t367 * t16374 - 0.75884239316825866699e-5 * t1964 * t367 * t16378 - 0.17300808960080146790e-4 * t1344 * t12890 * t2097 - 0.34601617920160293580e-4 * t1344 * t4583 * t5188 - 0.17300808960080146790e-4 * t1344 * t1688 * t14521 + 0.86504044800400733950e-6 * t1978 * t376 * t16370 + 0.17300808960080146790e-5 * t1978 * t376 * t16374;
5734   t17525 = 0.86504044800400733950e-6 * t1978 * t376 * t16378 + 0.51274782585924491286e-6 * t1358 * t12857 * t2097 + 0.36539308523689270020e-2 * t3835 * t4576 * t1255 - 0.14615723409475708008e-2 * t1496 * t4583 * t1264 + 0.36539308523689270020e-2 * t3835 * t1678 * t3517 - 0.14615723409475708008e-2 * t1496 * t1688 * t3528 - 0.14449564537762463093e-3 * t3803 * t4583 * t1255 + 0.55575248222163319588e-4 * t1506 * t4737 * t1264 - 0.14449564537762463093e-3 * t3803 * t1688 * t3517 + 0.55575248222163319588e-4 * t1506 * t1699 * t3528 - 0.20397683528362792968e-1 * t3825 * t4569 * t1255;
5735   t17559 = 0.87418643692983398436e-2 * t1486 * t4576 * t1264 - 0.20397683528362792968e-1 * t3825 * t1668 * t3517 + 0.87418643692983398436e-2 * t1486 * t1678 * t3528 + 0.52866020057388687134e-2 * t3949 * t6109 + 0.52866020057388687134e-2 * t3949 * t6318 - 0.10769757774516474456e-7 * t3844 * t1709 * t3517 + 0.39678054958744905890e-8 * t1526 * t1658 * t3528 - 0.10419269531250000000e0 * t3794 * t4402 * t1255 + 0.52096347656250000000e-1 * t1475 * t4569 * t1264 - 0.10419269531250000000e0 * t3794 * t1601 * t3517 + 0.52096347656250000000e-1 * t1475 * t1668 * t3528 - 0.27133514404296875000e-2 * t5527 * t6103;
5736   t17564 = -0.27133514404296875000e-2 * t5527 * t6106 - t15916 + t15917 - t15933 - t15939 + t15948 + t15959 + t15976 - t15977 - t15978 + t15979;
5737   t17566 = t2101 * t3443;
5738   t17571 = t14994 * t962;
5739   t17579 = t10498 * t3259;
5740   t17582 = t14960 * t944;
5741   t17588 = t10512 * t3187;
5742   t17596 = 0.75388304421615321191e-7 * t3166 * t423 * t17566 + 0.42046253788012545556e-6 * t9191 * t5936 + 0.10893802117803250439e-6 * t17571 * t16447 - 0.16818501515205018222e-6 * t9203 * t5940 + 0.20640888223206158727e-7 * t2003 * t9023 * t16451 + 0.10663477270162693457e-7 * t17579 * t16455 + 0.15743736153672933579e-3 * t17582 * t16447 + 0.36331698816168308259e-4 * t1977 * t9015 * t16451 + 0.10767704343044143170e-3 * t17588 * t16455 + 0.21535408686088286340e-4 * t11869 * t16458 - 0.22765271795047760010e-3 * t1963 * t9004 * t16451;
5743   t17598 = t10526 * t3241;
5744   t17605 = t14983 * t933;
5745   t17618 = -0.22837067827305793763e-2 * t17598 * t16455 - 0.51902426880240440370e-3 * t11844 * t16458 - 0.14802485616068832398e-1 * t11834 * t5932 - 0.83472663248508453369e-3 * t17605 * t16447 - 0.26054687500000000000e-1 * t16448 - 0.15632812500000000000e-1 * t16452 + 0.10942968750000000000e0 * t16456 + 0.10942968750000000000e0 * t16459 - 0.79299030086083030702e-3 * t4219 * t16487 - 0.79299030086083030702e-3 * t4219 * t16490 - 0.36171487407686996460e-2 * t9194 * t5936;
5746   t17643 = 0.16441585185312271118e-2 * t9209 * t5940 - 0.16694532649701690674e-3 * t6271 * t16497 - 0.16694532649701690674e-3 * t6271 * t16500 - 0.83472663248508453369e-4 * t6271 * t16503 + 0.75884239316825866700e-4 * t6274 * t16506 + 0.75884239316825866700e-4 * t6274 * t16509 + 0.37942119658412933350e-4 * t6274 * t16512 - 0.96884530176448822024e-2 * t5671 * t5926 + 0.40368554240187009176e-2 * t11841 * t5929 + 0.28661673510532776516e-2 * t11848 * t5932 - 0.41521941504192352296e-3 * t6278 * t16468 - 0.41521941504192352296e-3 * t6278 * t16471;
5747   t17674 = -0.20760970752096176148e-3 * t6278 * t16474 + 0.17300808960080146790e-3 * t4204 * t16477 + 0.17300808960080146790e-3 * t4204 * t16481 + 0.86504044800400733950e-4 * t4204 * t16484 + 0.12110566272056102753e-3 * t4208 * t16487 - 0.14615723409475708008e-1 * t3008 * t317 * t17566 + 0.72247822688812315464e-3 * t2983 * t326 * t17566 - 0.12832735078199028969e-4 * t3176 * t335 * t17566 + 0.61193050585088378905e-1 * t3000 * t352 * t17566 + 0.20838539062500000000e0 * t2991 * t343 * t17566 + 0.60612132084018085152e-7 * t4148 * t16487;
5748   t17700 = 0.60612132084018085152e-7 * t4148 * t16490 - 0.14392151631241176801e-9 * t15042 * t6967 * t1012 * t16516 - 0.16788862037658691406e-2 * t15048 * t138 * t16516 - 0.26712507702021952718e-4 * t9206 * t5936 + 0.10999267877303157002e-4 * t8730 * t5940 - 0.84355287480069324374e-6 * t6206 * t16497 - 0.84355287480069324374e-6 * t6206 * t16500 - 0.42177643740034662187e-6 * t6206 * t16503 + 0.34734530138852074742e-6 * t6210 * t16506 + 0.34734530138852074742e-6 * t6210 * t16509 + 0.17367265069426037371e-6 * t6210 * t16512;
5749   t17724 = -0.72734558500821702181e-5 * t5683 * t5926 + 0.28285661639208439738e-5 * t11858 * t5929 + 0.20406084468286088668e-5 * t11899 * t5932 - 0.21820367550246510654e-6 * t6213 * t16468 - 0.21820367550246510654e-6 * t6213 * t16471 - 0.10910183775123255327e-6 * t6213 * t16474 + 0.84856984917625319212e-7 * t4193 * t16477 + 0.84856984917625319212e-7 * t4193 * t16481 + 0.42428492458812659606e-7 * t4193 * t16484 - 0.21146408022955474854e-1 * t11830 * t5929 + 0.25952409846354446412e-2 * t6201 * t16468;
5750   t17749 = t15949 * t953;
5751   t17755 = 0.25952409846354446412e-2 * t6201 * t16471 + 0.12976204923177223206e-2 * t6201 * t16474 - 0.11534404376157531738e-2 * t4215 * t16477 - 0.11534404376157531738e-2 * t4215 * t16481 - 0.57672021880787658692e-3 * t4215 * t16484 - 0.25895496666866827012e-3 * t15026 * t151 * t16516 + 0.44117062848204374314e-4 * t15031 * t165 * t16516 - 0.17677394802808645181e-5 * t15036 * t178 * t16516 + 0.27198670419120615406e-7 * t15021 * t4163 * t16516 - 0.33942793967050127685e-6 * t11103 * t16458 - 0.67484229984055459499e-5 * t17749 * t16447 - 0.13893812055540829897e-5 * t1990 * t9031 * t16451;
5752   t17758 = t10490 * t3250;
5753   t17764 = t10580 * t3231;
5754   t17769 = t11356 * t3222;
5755   t17774 = t14911 * t924;
5756   t17779 = t14952 * t6248;
5757   t17787 = -0.18547312417709534056e-5 * t17758 * t16455 - 0.16280108642578125000e-2 * t2035 * t8906 * t16451 + 0.10380963938541778565e-1 * t17764 * t16455 + 0.28836010940393829346e-2 * t11270 * t16458 + 0.42328282470703125000e-1 * t17769 * t16455 + 0.16931312988281250000e-1 * t11913 * t16458 - 0.45584304199218750000e-2 * t17774 * t16447 + 0.18280246748850331641e-8 * t11883 * t16458 - 0.59753261336681316604e-9 * t17779 * t16447 - 0.10628050435378099791e-9 * t2019 * t2021 * t8799 * t16451 + 0.91191406249999999999e0 * t16462;
5758   t17799 = -0.60794270833333333333e0 * t16464 - 0.39516276041666666666e0 * t16466 + 0.10942968750000000000e0 * t16469 + 0.10942968750000000000e0 * t16472 + 0.54714843750000000000e-1 * t16475 - 0.72953125000000000000e-1 * t16478 - 0.72953125000000000000e-1 * t16482 - 0.36476562500000000000e-1 * t16485 - 0.45595703125000000000e-1 * t16488 - 0.45595703125000000000e-1 * t16491 - 0.15198567708333333333e0 * t16493;
5759   t17809 = 0.91191406249999999999e-1 * t16495 - 0.13027343750000000000e-1 * t16498 - 0.13027343750000000000e-1 * t16501 - 0.65136718750000000000e-2 * t16504 + 0.78164062500000000000e-2 * t16507 + 0.78164062500000000000e-2 * t16510 + 0.39082031250000000000e-2 * t16513 - 0.13678710937500000000e-1 * t16517 + t15980 - t15981 + t15982;
5760   t17810 = t15983 - t15984 - t15985 + t15986 + t15987 - t15988 - t15989 + t15990 - t15991 + t15992 - t15993 - t15994;
5761   t17817 = t16546 * t184;
5762   t17819 = t1834 * t3556;
5763   t17822 = t4508 * t1538;
5764   t17825 = t4500 * t1538;
5765   t17833 = t1834 * t3552;
5766   t17845 = -t12070 * t17822 - 0.36e2 * t12075 * t17822 - 0.24e2 * t12092 * t17822 - t1545 * t17817 + 0.6e1 * t4260 * t17819 + 0.6e1 * t4268 * t17819 + t4280 * t17819 + 0.12e2 * t4260 * t17825 + 0.12e2 * t4268 * t17825 + 0.2e1 * t4280 * t17825 + 0.12e2 * t4260 * t17833 + 0.12e2 * t4268 * t17833 + 0.2e1 * t4280 * t17833;
5767   t17852 = t4485 * t184 * t488;
5768   t17855 = t5110 * t1271;
5769   t17861 = t16562 * t184;
5770   t17863 = t16558 * t184;
5771   t17865 = t16566 * t184;
5772   t17878 = t429 * t430 * t16522 * t184 - 0.12e2 * t12084 * t17822 - 0.2e1 * t1537 * t17817 - 0.2e1 * t1537 * t17852 - 0.4e1 * t1537 * t17855 - 0.2e1 * t1537 * t17861 - 0.4e1 * t1537 * t17865 - t1545 * t17852 - 0.2e1 * t1545 * t17855 - t1545 * t17861 - 0.2e1 * t1545 * t17865 + 0.6e1 * t4260 * t17863 + 0.6e1 * t4268 * t17863 + t4280 * t17863;
5773   t17880 = my_piecewise3(t102, t17755 + t17809 + t17810 + t17113 + t16869 + t17618 + t17047 + t17525 + t16995 + t16668 + t17228 + t17418 + t17674 + t17643 + t17368 + t17456 + t17490 + t17787 + t17724 + t17799 + t16894 + t16880 + t17299 + t17193 + t17040 + t17216 + t17049 + t17168 + t17345 + t16830 + t17043 + t17321 + t16752 + t16747 + t16743 + t16739 + t16740 + t16733 + t17559 + t16634 + t16958 + t17392 + t16624 + t16625 + t16622 + t16621 + t17073 + t16686 + t16758 + t17564 + t17143 + t17700 + t17289 + t17253 + t17596 + t16929 + t17271 + t17019 + t16685 + t16710 + t16780 + t16790 + t17103 + t16972, t17845 + t17878);
5774   t17888 = 0.24e2 * t14125 * t5859 + 0.8e1 * t5873 * t4361 - 0.4e1 * t5873 * t4364 - 0.8e1 * t5873 * t4357 - 0.8e1 * t16596 * t1584 - 0.8e1 * t1582 * t16599 * t290 - 0.4e1 * t217 * t4371 * t588 + 0.2e1 * t690 * t691 * t2198 - 0.8e1 * t4353 * t5888 + 0.8e1 * t1582 * t16611 * t290 - 0.4e1 * t217 * t5989 * t434 + 0.24e2 * t4349 * t4356 * t5858 + 0.1174e1 * t17880 - 0.4e1 * t1582 * t5887 * t830 - 0.6e1 * t2370 * t2128 * t691;
5775   t17908 = t619 * t1548;
5776   t17912 = t1639 * t588;
5777   t17918 = t2370 * t495;
5778   t17938 = 0.2e1 * t217 * t495 * t4512 * t187 + 0.4e1 * t217 * t1286 * t1639 * t187 + 0.4e1 * t690 * t6014 * t290 + 0.4e1 * t690 * t6012 * t290 - 0.2e1 * t217 * t1289 * t1843 - t217 * t830 * t2198 + 0.8e1 * t1582 * t17908 * t290 + 0.8e1 * t1582 * t17912 * t290 + 0.8e1 * t4353 * t5997 + 0.12e2 * t17918 * t4350 + 0.12e2 * t4349 * t5887 * t691 - 0.12e2 * t4349 * t5996 * t691 - t101 * t17880 - 0.2e1 * t217 * t2121 * t1168 - 0.48e2 * t14178 * t1583 * t498 * t691 - 0.4e1 * t217 * t1587 * t1548;
5779   t17960 = t596 * t6387 * t1185;
5780   t17968 = t596 * t2206 * t3342;
5781   t17972 = t5 * t2206 * t13;
5782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5783     v4rho2sigmatau[0] = -t3362 * t2203 / 0.12e2 - t1202 * t6380 / 0.2e1 - 0.8246500000000000000e0 * t3367 * t6383 * t456 - 0.3e1 / 0.16e2 * t212 * t213 * (t16253 + t16586 + t17888 + t17938) * t205 - 0.49479000000000000000e1 * t447 * t448 * t6378 * t456 - 0.29687400000000000000e2 * t1181 * t6383 * t1190 + 0.40270806047858128433e2 * t1193 * t6383 * t1198 + 0.92773125000000000000e0 * t596 * t7 * t5130 * t602 + 0.22265550000000000000e2 * t17960 * t1569 - 0.30203104535893596324e2 * t5 * t6387 * t1573 * t1577 + 0.22265550000000000000e3 * t17968 * t4317 - 0.31006453520185961314e0 * t17972 * t4325 - 0.25976475000000000000e2 * t6392 * t4329 - 0.25169253779911330270e2 * t6396 * t4333 + 0.60566537364619499997e2 * t2207 * t4339;
5784 
5785   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5786     v4rho2lapl2[0] = 0.0e0;
5787 
5788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
5789     v4rho2lapltau[0] = 0.0e0;
5790 
5791   t17988 = t7989 * t95;
5792   t17989 = t2215 * t691;
5793   t17992 = -t14635 - t14636 + t14637 - t14646 + t14652 - t14654 + t14662 + t14664 - t14679 - t14681 + t14693 - t14695 - t14703 - t14705 + t14730 + t14732 + t14744 - t14746 + t14748;
5794   t17993 = -t14758 - t14760 - t14765 + t14768 - t14771 + t14773 + t14776 - t14788 - t14803 + t14806 + t14818 + t14821 - t14829 + t14831 + t14851 - t14855 - t14857 + t14860 + t14863;
5795   t18004 = t14865 - t14868 + t14871 - t14885 + t14910 + t14924 + t14927 - t14959 - t14967 + t14980 - t14982 - t14993 + t15004 + t15007 - t15073 + t15076 - 0.12832735078199028969e-4 * t3812 * t2268 * t3443 + 0.42775783593996763230e-5 * t3812 * t1699 * t4437 + 0.61193050585088378905e-1 * t3825 * t2290 * t3443;
5796   t18041 = t2218 * t806;
5797   t18045 = t606 * t4381;
5798   t18054 = -0.40795367056725585936e-1 * t3825 * t1668 * t4437 + 0.17483728738596679687e-1 * t1486 * t1678 * t4448 - 0.14615723409475708008e-1 * t3835 * t2254 * t3443 + 0.79356109917489811779e-8 * t1526 * t1658 * t4448 + 0.20838539062500000000e0 * t3794 * t2282 * t3443 - 0.20838539062500000000e0 * t3794 * t1601 * t4437 + 0.10419269531250000000e0 * t1475 * t1668 * t4448 + 0.73078617047378540040e-2 * t3835 * t1678 * t4437 - 0.29231446818951416016e-2 * t1496 * t1688 * t4448 + 0.72247822688812315464e-3 * t3803 * t2261 * t3443 - 0.28899129075524926185e-3 * t3803 * t1688 * t4437 + 0.11115049644432663917e-3 * t1506 * t1699 * t4448 + t15095 - t15096 - t15097 + 0.10628050435378099791e-10 * t2022 * t5439 * t18041 - 0.23617889856395777314e-11 * t2022 * t2023 * t18045 + 0.22575083984375000000e0 * t11353 * t6702 - 0.16040918847748786211e-5 * t1516 * t1709 * t4448;
5799   t18063 = t2218 * t758;
5800   t18108 = 0.75388304421615321191e-7 * t3844 * t2275 * t3443 - 0.21539515549032948912e-7 * t3844 * t1709 * t4437 - 0.65120434570312500000e-3 * t5422 * t412 * t18063 + 0.32560217285156250000e-3 * t2036 * t367 * t18041 - 0.16280108642578125000e-3 * t2036 * t412 * t18045 + 0.47579418051649818421e-1 * t10577 * t6724 - 0.21146408022955474854e-1 * t3949 * t6727 + 0.10573204011477737427e-1 * t3949 * t6730 - 0.14802485616068832398e-1 * t15899 * t6733 + 0.44117062848204374314e-4 * t15032 * t2261 * t765 - 0.17677394802808645181e-5 * t15037 * t2268 * t765 + 0.27198670419120615406e-7 * t15022 * t2275 * t765 - 0.14392151631241176801e-9 * t15043 * t6672 * t765 - 0.16788862037658691406e-2 * t15049 * t2290 * t765 - 0.25895496666866827012e-3 * t15027 * t2254 * t765 - 0.22633811112379286592e-8 * t14949 * t6693 + 0.88567086961484164927e-9 * t5541 * t6696 - 0.19681574880329814428e-9 * t5541 * t6699 - 0.27160573334855143911e-10 * t5512 * t2023 * t18063;
5801   t18109 = t1606 * t1606;
5802   t18117 = t15098 - t15101 - t15102 + t15113 + t15124 + t15136 + t15140 - t15142 - t15147 - t1918 + t15151 - t15152 - t15153 - t15154 + t15155 + t15156 - 0.29139547897661132812e-2 * t974 * t127 * t18109 + 0.69424686195009613038e-1 * t3954 * t2306 - 0.30596525292544189453e0 * t4009 * t2303;
5803   t18135 = t1254 * t2290 * t14491;
5804   t18137 = t2218 * t738;
5805   t18139 = t14479 * t403 * t18137;
5806   t18141 = t2218 * t777;
5807   t18143 = t1887 * t367 * t18141;
5808   t18146 = t10102 * t2222 * t8316;
5809   t18148 = t14511 * t6437;
5810   t18151 = t1887 * t412 * t18041;
5811   t18154 = t1887 * t403 * t18045;
5812   t18156 = t10098 * t6452;
5813   t18158 = t3508 * t6430;
5814   t18160 = t3508 * t6434;
5815   t18163 = t3491 * t2222 * t8320;
5816   t18166 = t1254 * t2282 * t14517;
5817   t18168 = t10 * t4381;
5818   t18170 = t1254 * t1601 * t18168;
5819   t18172 = 0.13367432373123988509e-6 * t995 * t165 * t18109 - 0.33726346714933170006e-6 * t3944 * t2297 - 0.11115049644432663917e-4 * t982 * t151 * t18109 + 0.58148330823089350016e-4 * t4038 * t2312 + 0.36539308523689270020e-3 * t1007 * t138 * t18109 - 0.33345148933297991753e-2 * t4021 * t2309 + 0.10942968750000000000e0 * t18135 - 0.26054687500000000000e-1 * t18139 - 0.15632812500000000000e-1 * t18143 + 0.10942968750000000000e0 * t18146 - 0.39516276041666666666e0 * t18148 + 0.39082031250000000000e-2 * t18151 - 0.26054687500000000000e-2 * t18154 + 0.91191406249999999999e0 * t18156 - 0.60794270833333333333e0 * t18158 + 0.60794270833333333333e0 * t18160 + 0.54714843750000000000e-1 * t18163 - 0.36476562500000000000e-1 * t18166 + 0.36476562500000000000e-1 * t18170;
5820   t18174 = t1231 * t1601 * t4448;
5821   t18177 = t14526 * t2282 * t765;
5822   t18179 = t14534 * t6441;
5823   t18181 = t5245 * t6445;
5824   t18183 = t1597 * t4448;
5825   t18187 = t2218 * t13 * t2532;
5826   t18190 = t6460 * t3443;
5827   t18193 = t4477 * t4437;
5828   t18196 = t6440 * t67;
5829   t18199 = t4477 * t4448;
5830   t18202 = t6444 * t67;
5831   t18205 = t6448 * t67;
5832   t18224 = 0.50025000000000000000e0 * t18174 - 0.13678710937500000000e-1 * t18177 - 0.15198567708333333333e0 * t18179 + 0.91191406249999999999e-1 * t18181 + 0.69469060277704149484e-6 * t6210 * t18183 + 0.35684563538737363816e-2 * t12020 * t18187 - 0.92294608654664084315e-4 * t11929 * t18190 + 0.30764869551554694772e-4 * t6226 * t18193 - 0.65375347797053726391e-4 * t11002 * t18196 - 0.12305947820621877909e-4 * t4178 * t18199 + 0.26150139118821490556e-4 * t11993 * t18202 - 0.87167130396071635186e-5 * t4182 * t18205 + 0.13024086914062500000e-2 * t6266 * t18183 - 0.10380963938541778565e-1 * t11240 * t18190 + 0.51904819692708892823e-2 * t6201 * t18193 - 0.71369127077474727632e-2 * t11246 * t18196 - 0.23068808752315063476e-2 * t4215 * t18199 + 0.31719612034433212280e-2 * t11982 * t18202 - 0.15859806017216606140e-2 * t4219 * t18205 - 0.16931312988281250000e-1 * t4133 * t18199;
5833   t18234 = t6456 * t3443;
5834   t18237 = t1597 * t4437;
5835   t18240 = 0.16931312988281250000e-1 * t10936 * t18202 - 0.11287541992187500000e-1 * t4137 * t18205 + 0.19047727111816406250e-1 * t10940 * t18187 + 0.52096347656250000000e-2 * t15255 * t18234 - 0.26048173828125000000e-2 * t6263 * t18237 + t15162 + t15163 + t15164 - t15166 - t15168 + t15179 + t15184 + t15198 - t15225 - t15226 - t15227 + t15228 + t15229 - t15230;
5836   t18241 = -t15231 + t15234 + t15236 - t15241 - t15248 + t15250 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 - t15271 - t15273 + t15275 + t15277 - t15285 + t15288 + t15297;
5837   t18243 = -t15299 + t15301 + t15305 - t15317 - t15319 + t15321 + t15323 - t15343 - t15407 + t15409 - t15411 - t15413 + t15415 + t15417 - t15421 + t15431 - t15445 + t15447 + t15449;
5838   t18252 = t5245 * t6449;
5839   t18255 = t5197 * t403 * t18063;
5840   t18257 = t6444 * t3473;
5841   t18260 = t6448 * t3473;
5842   t18263 = t6440 * t3473;
5843   t18274 = -t15451 + t15466 - 0.26048173828125000000e-1 * t991 * t114 * t18109 - 0.56682935655349865556e-9 * t1003 * t178 * t18109 - 0.11721678222656250000e1 * t3513 * t2300 - t15470 + t15471 - t15472 - 0.60794270833333333333e-1 * t18252 - 0.65136718750000000000e-2 * t18255 + t15473 - t15474 - t15475 - 0.98345974154606323241e-2 * t9187 * t18257 + 0.65563982769737548828e-2 * t2822 * t18260 - 0.54808962785533905030e-2 * t8911 * t18263 + 0.21923585114213562012e-2 * t9194 * t18257 - 0.10961792557106781006e-2 * t3210 * t18260 + 0.27092933508304618299e-3 * t9012 * t18263 - 0.10420359041655622423e-3 * t9197 * t18257;
5844   t18291 = t6460 * t795;
5845   t18294 = t6460 * t2478;
5846   t18298 = t4477 * t67 * t1606;
5847   t18319 = 0.41681436166622489690e-4 * t2806 * t18260 - 0.48122756543246358635e-5 * t9028 * t18263 + 0.18046033703717384488e-5 * t9206 * t18257 - 0.60153445679057948291e-6 * t3198 * t18260 + 0.28270614158105745446e-7 * t9036 * t18263 - 0.10415489426670537796e-7 * t9191 * t18257 + 0.29758541219058679416e-8 * t3206 * t18260 + 0.16280108642578125000e-2 * t15463 * t18291 - 0.81400543212890625000e-3 * t15439 * t18294 + 0.40700271606445312500e-3 * t5654 * t18298 + 0.27128615555765247345e-3 * t15357 * t18291 - 0.12331188888984203339e-3 * t15360 * t18294 - 0.31534690341009409166e-7 * t15372 * t18291 + 0.12613876136403763667e-7 * t15376 * t18294 - 0.31534690341009409166e-8 * t5661 * t18298 + 0.16975358334284464944e-9 * t15453 * t18291 - 0.66425315221113123695e-10 * t15457 * t18294 + 0.14761181160247360821e-10 * t5707 * t18298 + 0.20034380776516464538e-5 * t15400 * t18291;
5848   t18324 = t8198 * t18257;
5849   t18326 = t2433 * t18260;
5850   t18328 = t14372 * t18291;
5851   t18330 = t14378 * t18294;
5852   t18332 = t5251 * t18298;
5853   t18358 = -0.82494509079773677513e-6 * t15403 * t18294 + 0.23569859737078193576e-6 * t5683 * t18298 - 0.93796875000000000000e-1 * t18324 + 0.18759375000000000000e0 * t18326 + 0.11398925781250000000e-1 * t18328 - 0.68393554687500000000e-2 * t18330 + 0.45595703125000000000e-2 * t18332 + 0.49324755555936813356e-4 * t5671 * t18298 + 0.83472663248508453369e-3 * t14752 * t18234 - 0.33389065299403381348e-3 * t6271 * t18237 + 0.15176847863365173340e-3 * t6274 * t18183 - 0.93424368384432792667e-4 * t9262 * t6461 - 0.91737280992027372121e-7 * t14761 * t18234 + 0.22934320248006843030e-7 * t6233 * t18237 - 0.91737280992027372121e-8 * t6236 * t18183 - 0.85307818161301547659e-8 * t11963 * t18190 + 0.21326954540325386914e-8 * t6239 * t18193 + 0.15274257285172557458e-5 * t11958 * t18190 - 0.43640735100493021308e-6 * t6213 * t18193;
5854   t18402 = 0.10910183775123255327e-5 * t11903 * t18196 + 0.16971396983525063842e-6 * t4193 * t18199 - 0.42428492458812659606e-6 * t12007 * t18202 + 0.12122426416803617030e-6 * t4148 * t18205 - 0.47732054016164242057e-6 * t10930 * t18187 + 0.29418906508674176876e-4 * t11997 * t18187 + 0.59048701236048527062e-5 * t14665 * t18234 - 0.16871057496013864875e-5 * t6206 * t18237 - t15477 - t15481 + 0.22947393969408142089e-1 * t8901 * t18263 + 0.15743736153672933579e-3 * t14961 * t376 * t18137 + 0.36331698816168308259e-4 * t1978 * t2005 * t18141 - 0.22837067827305793763e-2 * t10527 * t2254 * t8316 - 0.51902426880240440370e-3 * t1344 * t2268 * t14491 + 0.18280246748850331641e-8 * t1386 * t7571 * t14491 - 0.83472663248508453369e-3 * t14984 * t367 * t18137 - 0.22765271795047760010e-3 * t1964 * t385 * t18141 + 0.10893802117803250439e-6 * t14995 * t2005 * t18137;
5855   t18442 = 0.20640888223206158727e-7 * t2004 * t5439 * t18141 + 0.10663477270162693457e-7 * t10499 * t2275 * t8316 - 0.18547312417709534056e-5 * t10491 * t2268 * t8316 - 0.33942793967050127685e-6 * t1372 * t6672 * t14491 - 0.67484229984055459499e-5 * t15950 * t385 * t18137 - 0.13893812055540829897e-5 * t1991 * t2023 * t18141 + 0.10767704343044143170e-3 * t10513 * t2261 * t8316 + 0.21535408686088286340e-4 * t1358 * t2275 * t14491 - 0.16280108642578125000e-2 * t2036 * t376 * t18141 + 0.10380963938541778565e-1 * t10581 * t2290 * t8316 + 0.28836010940393829346e-2 * t1329 * t2261 * t14491 + 0.16931312988281250000e-1 * t1404 * t2254 * t14491 - 0.45584304199218750000e-2 * t14912 * t412 * t18137 + t15484 + t15486 - t15488 + t15491 - t15494 - t15496 + t15501;
5856   t18450 = t9178 * t6461;
5857   t18466 = -t15504 - t15512 - t15515 + t15518 + t15521 - t15532 + 0.12976204923177223206e-2 * t4096 * t2290 * t8320 - t15551 + t15553 + t15555 - t15558 + 0.27357421874999999999e-1 * t18450 + 0.34595230865478515625e-2 * t9181 * t6461 + 0.54257231111530494691e-3 * t9269 * t6461 + 0.30998480436519457724e-9 * t15291 * t6461 + 0.37711775579325109721e-5 * t8735 * t6461 - 0.58339177130867406959e-7 * t9184 * t6461 - 0.14532679526467323304e-3 * t15169 * t18234 + 0.48442265088224411012e-4 * t6220 * t18237;
5858   t18509 = -0.20760970752096176148e-4 * t6223 * t18183 + 0.20760970752096176148e-2 * t10980 * t18190 - 0.83043883008384704592e-3 * t6278 * t18193 + 0.14532679526467323304e-2 * t10986 * t18196 + 0.34601617920160293580e-3 * t4204 * t18199 - 0.60552831360280513764e-3 * t12023 * t18202 + 0.24221132544112205506e-3 * t4208 * t18205 - 0.68121935280315577986e-3 * t12004 * t18187 - 0.81245541106001473961e-9 * t4159 * t18199 - 0.12122426416803617030e-7 * t1372 * t1709 * t18168 + 0.42046253788012545556e-6 * t14872 * t6660 - 0.16818501515205018222e-6 * t5770 * t6663 + 0.42046253788012545556e-7 * t5770 * t6666 + 0.57335800620017107576e-8 * t5545 * t2005 * t18063 - 0.22934320248006843030e-8 * t2004 * t2023 * t18041 + 0.57335800620017107576e-9 * t2004 * t2005 * t18045 + 0.40876662868956991587e-7 * t10495 * t6669 - 0.15572062045316949176e-7 * t4107 * t6673 + 0.38930155113292372940e-8 * t4107 * t6676;
5859   t18557 = -0.15176847863365173340e-4 * t1964 * t367 * t18045 - 0.96884530176448822024e-2 * t10523 * t6610 + 0.40368554240187009176e-2 * t3965 * t6617 - 0.16147421696074803671e-2 * t3965 * t6620 + 0.28661673510532776516e-2 * t15537 * t6623 - 0.20760970752096176148e-3 * t4088 * t2254 * t8320 + 0.86504044800400733950e-4 * t1344 * t2261 * t14517 - 0.49620757341217249632e-7 * t1991 * t385 * t18045 - 0.72734558500821702181e-5 * t10487 * t6647 + 0.28285661639208439738e-5 * t3939 * t6651 - 0.80816176112024113535e-6 * t3939 * t6654 + 0.20406084468286088668e-5 * t14898 * t6657 - 0.10910183775123255327e-6 * t4077 * t2268 * t8320 + 0.42428492458812659606e-7 * t1372 * t2275 * t14517 + 0.50778463191250921226e-10 * t1386 * t1658 * t18168 - 0.36171487407686996460e-2 * t14886 * t6679 + 0.16441585185312271118e-2 * t5773 * t6682 - 0.65766340741249084473e-3 * t5773 * t6687 - 0.83472663248508453369e-4 * t5463 * t367 * t18063;
5860   t18585 = t10273 * t18187;
5861   t18587 = t3442 * t18199;
5862   t18589 = t14322 * t18234;
5863   t18591 = t5935 * t18237;
5864   t18593 = t5939 * t18183;
5865   t18595 = t10181 * t18190;
5866   t18597 = t5925 * t18193;
5867   t18599 = t14340 * t6457;
5868   t18601 = t8337 * t6457;
5869   t18603 = 0.37942119658412933350e-4 * t1964 * t376 * t18041 - 0.34601617920160293580e-4 * t1344 * t1688 * t18168 + 0.64589686784299214683e-3 * t15793 * t6626 - 0.27681294336128234864e-3 * t5516 * t6629 + 0.92270981120427449547e-4 * t5516 * t6632 + 0.12110566272056102753e-4 * t5498 * t376 * t18063 - 0.51902426880240440370e-5 * t1978 * t385 * t18041 + 0.17300808960080146790e-5 * t1978 * t376 * t18045 + 0.53317386350813467287e-9 * t4060 * t2275 * t8320 - 0.20311385276500368490e-9 * t1386 * t6672 * t14517 + t15560 + 0.10259033203125000000e0 * t18585 - 0.14590625000000000000e0 * t18587 + 0.39082031250000000000e-1 * t18589 - 0.26054687500000000000e-1 * t18591 + 0.15632812500000000000e-1 * t18593 - 0.21885937500000000000e0 * t18595 + 0.21885937500000000000e0 * t18597 + 0.93796875000000000000e-1 * t18599 + 0.50025000000000000000e0 * t18601;
5870   t18606 = t6460 * t765;
5871   t18607 = t8315 * t18606;
5872   t18609 = t10189 * t18196;
5873   t18611 = t10268 * t18202;
5874   t18613 = t3448 * t18205;
5875   t18645 = -0.14069531250000000000e0 * t18607 - 0.13678710937500000000e0 * t18609 + 0.91191406250000000000e-1 * t18611 - 0.91191406250000000000e-1 * t18613 - 0.61314994303435487379e-8 * t11969 * t18196 + 0.23358093067975423764e-8 * t12000 * t18202 - 0.58395232669938559409e-9 * t4164 * t18205 + 0.26277854701472351734e-8 * t10900 * t18187 + 0.50265720123465454101e-1 * t4144 * t6457 - 0.11144489099725227356e-1 * t4200 * t6457 + 0.52796485811055153609e-3 * t4174 * t6457 - 0.91232725946571221576e-5 * t4189 * t6457 + 0.52573422820337000303e-7 * t4155 * t6457 + 0.20187334716796875000e0 * t3458 * t6457 + 0.48889032002739259039e-9 * t15207 * t18234 - 0.10864229333942057564e-9 * t6249 * t18237 + 0.42512201741512399165e-10 * t6253 * t18183 - 0.50793938964843750000e-1 * t11045 * t18190 + 0.33862625976562500000e-1 * t6256 * t18193;
5876   t18660 = -0.33862625976562500000e-1 * t11051 * t18196 - 0.12504430849986746908e-3 * t8941 * t18606 + 0.21429665023164394079e-5 * t8886 * t18606 - 0.12275398252861705259e-7 * t8879 * t18606 - 0.51282342224121093750e-1 * t8864 * t18606 - 0.12293246769325790405e-1 * t8872 * t18606 + 0.26719369357947778702e-2 * t8956 * t18606 + t15562 - t15565 - t15568 - t15571 + t15574 + t15577 - t15580 - t15583 + t15590 + t15593 - t15596 - t15602;
5877   t18662 = t5943 * t6467;
5878   t18664 = t793 * t6464;
5879   t18666 = t793 * t6467;
5880   t18669 = t1231 * t2222 * t806;
5881   t18672 = t1231 * t1593 * t4381;
5882   t18674 = t5943 * t6464;
5883   t18676 = t15615 - t15621 - t15630 - 0.50025000000000000000e0 * t18662 + 0.12506250000000000000e1 * t18664 - 0.25012500000000000000e1 * t18666 + 0.12506250000000000000e0 * t18669 - 0.25012500000000000000e0 * t18672 + 0.25012500000000000000e0 * t18674 - t15631 + t15632 + t15633 - t15659 - t15665 + t15666 - t15667 + t15668 + t15748 - t15750;
5884   t18677 = t15752 - t15755 + t15758 + t15760 - t15762 - t15765 - t15767 + t15769 - t15772 - t15775 + t15777 + t15782 - t15784 - t15786 + t15789 - t15792 + t15869 - t15871 - t15873 + t1961;
5885   t18699 = t14398 * t2219;
5886   t18713 = t737 * t84 * t18109;
5887   t18715 = t8082 * t2219;
5888   t18717 = t2512 * t2219;
5889   t18719 = -t1975 + t1988 - t2001 - 0.86697387226574778556e-3 * t11453 * t2254 * t738 - 0.16672574466648995876e-3 * t1506 * t2268 * t777 + 0.16040918847748786212e-4 * t11460 * t2261 * t738 - 0.61193050585088378904e-1 * t11425 * t2282 * t738 - 0.17483728738596679687e-1 * t1486 * t2254 * t777 + 0.16442688835660171509e-1 * t11443 * t2290 * t738 + t2015 + t2033 - 0.12506250000000000000e0 * t18699 - 0.59753261336681316604e-9 * t14953 * t2023 * t18137 - 0.10628050435378099791e-9 * t2022 * t14933 * t18141 + 0.42328282470703125000e-1 * t11357 * t2282 * t8316 - 0.11289744982854788152e-7 * t14783 * t6690 - 0.25012500000000000000e0 * t18713 - 0.12506250000000000000e1 * t18715 - 0.25012500000000000000e1 * t18717;
5890   t18765 = t15902 + t15903 - 0.23617889856395777314e-11 * t2022 * t2023 * t18109 + 0.23202169650607638889e0 * t839 * t2283 + 0.28071607983560375870e-5 * t1516 * t2275 * t777 - 0.96927819970648270100e-7 * t11435 * t2268 * t738 - 0.15871221983497962356e-7 * t1526 * t6672 * t777 - 0.15628904296875000000e0 * t11464 * t2222 * t738 - 0.78144521484375000000e-1 * t1475 * t2290 * t777 + t2042 + 0.36539308523689270020e-2 * t1496 * t2261 * t777 - 0.49620757341217249632e-7 * t1991 * t385 * t18109 + 0.28218854980468750000e-2 * t1404 * t126 * t18109 * t10 - 0.21254586283365885417e-1 * t15137 * t2287 - 0.16280108642578125000e-3 * t2036 * t412 * t18109 + 0.45817217383070195516e-1 * t845 * t2291 - 0.20009601128335311336e-8 * t15126 * t2279 + 0.28836010940393829346e-3 * t1329 * t137 * t18109 * t10 + 0.39709470513765967141e-3 * t859 * t2262;
5891   t18806 = 0.10254956517184898257e-5 * t1358 * t164 * t18109 * t10 - 0.24093634397902153432e-4 * t15616 * t2265 + 0.57335800620017107576e-9 * t2004 * t2005 * t18109 + 0.36334811439072881411e-7 * t873 * t2276 + 0.50778463191250921226e-10 * t1386 * t422 * t18109 * t10 - 0.33979276049645360311e-2 * t15634 * t2251 - 0.15176847863365173340e-4 * t1964 * t367 * t18109 - 0.90156437803084320495e-2 * t852 * t2255 - 0.65326409023886158442e-5 * t866 * t2269 - 0.12122426416803617030e-7 * t1372 * t177 * t18109 * t10 + 0.37491242960977853121e-6 * t15637 * t2272 - 0.34601617920160293580e-4 * t1344 * t150 * t18109 * t10 + 0.59207212885607613460e-3 * t15640 * t2258 + 0.17300808960080146790e-5 * t1978 * t376 * t18109 + t15909 + t15910 - t15911 + t15912 - t15913;
5892   t18820 = t1887 * t403 * t18109;
5893   t18822 = t763 * t2223;
5894   t18826 = t1254 * t113 * t18109 * t10;
5895   t18829 = t1231 * t2282 * t777;
5896   t18831 = t14467 * t2226;
5897   t18850 = t15914 + t15915 + 0.78144521484375000000e-1 * t9020 * t18263 - 0.39072260742187500000e-1 * t9200 * t18257 + 0.39072260742187500000e-1 * t2814 * t18260 - 0.48442265088224411012e-4 * t15433 * t18291 + 0.20760970752096176148e-4 * t15436 * t18294 - 0.69203235840320587160e-5 * t5677 * t18298 - 0.26054687500000000000e-2 * t18820 + 0.11145616319444444444e1 * t18822 + 0.36476562500000000000e-1 * t18826 - 0.25012500000000000000e0 * t18829 - 0.16211805555555555555e0 * t18831 - 0.10198841764181396484e-1 * t3825 * t2282 * t758 + 0.43709321846491699218e-2 * t1486 * t2290 * t806 - 0.29139547897661132812e-2 * t1486 * t1668 * t4381 + 0.73078617047378540040e-1 * t5393 * t6538 - 0.29231446818951416016e-1 * t1337 * t6542 + 0.14615723409475708008e-1 * t1337 * t6545 - 0.24061378271623179316e-4 * t1366 * t6757;
5898   t18901 = 0.80204594238743931055e-5 * t1366 * t6760 + 0.10693945898499190808e-5 * t3812 * t2261 * t758 - 0.40102297119371965528e-6 * t1516 * t2268 * t806 + 0.13367432373123988509e-6 * t1516 * t1699 * t4381 - 0.37694152210807660594e-6 * t5601 * t6763 + 0.13887319235560717061e-6 * t1380 * t6766 - 0.39678054958744905890e-7 * t1380 * t6770 - 0.53848788872582372278e-8 * t3844 * t2268 * t758 + 0.19839027479372452945e-8 * t1526 * t2275 * t806 - 0.30596525292544189452e0 * t5458 * t6529 + 0.13112796553947509765e0 * t1412 * t6532 - 0.87418643692983398436e-1 * t1412 * t6535 + 0.26048173828125000000e-1 * t1475 * t2282 * t806 - 0.26048173828125000000e-1 * t1475 * t1601 * t4381 + 0.18269654261844635010e-2 * t3835 * t2290 * t758 - 0.73078617047378540040e-3 * t1496 * t2254 * t806 + 0.36539308523689270020e-3 * t1496 * t1678 * t4381 - 0.36123911344406157732e-2 * t5483 * t6548 + 0.13893812055540829897e-2 * t1352 * t6748;
5899   t18947 = -0.55575248222163319586e-3 * t1352 * t6751 - 0.72247822688812315463e-4 * t3803 * t2254 * t758 + 0.27787624111081659794e-4 * t1506 * t2261 * t806 - 0.11115049644432663917e-4 * t1506 * t1688 * t4381 + 0.64163675390995144846e-4 * t5614 * t6754 - 0.56682935655349865556e-9 * t1526 * t1709 * t4381 - 0.10419269531250000000e1 * t5192 * t6773 + 0.52096347656250000000e0 * t1260 * t6776 - 0.52096347656250000000e0 * t1260 * t6779 - 0.52096347656250000000e-1 * t3794 * t2222 * t758 - 0.77131536946614583334e-1 * t15847 * t6711 + 0.84656564941406250000e-2 * t4049 * t2282 * t8320 - 0.42328282470703125000e-2 * t1404 * t2290 * t14517 + 0.28218854980468750000e-2 * t1404 * t1668 * t18168 - 0.21706811523437500000e-1 * t15874 * t6714 + 0.10853405761718750000e-1 * t5527 * t6717 - 0.54267028808593750000e-2 * t5527 * t6721 + 0.76912173878886736929e-5 * t4069 * t2261 * t8320 - t15916;
5900   t18981 = t15917 - 0.30764869551554694772e-5 * t1358 * t2268 * t14517 + 0.10254956517184898257e-5 * t1358 * t1699 * t18168 - 0.26712507702021952718e-4 * t14789 * t6638 + 0.10999267877303157002e-4 * t5763 * t6641 - 0.31426479649437591434e-5 * t5763 * t6644 - 0.42177643740034662187e-6 * t5578 * t385 * t18063 + 0.17367265069426037371e-6 * t1991 * t2005 * t18041 - 0.11287541992187500000e0 * t4004 * t6705 + 0.75250279947916666667e-1 * t4004 * t6708 - t15933 - t15939 + t15948 + t15959 - 0.57672021880787658692e-3 * t1329 * t2254 * t14517 + 0.28836010940393829346e-3 * t1329 * t1678 * t18168 + 0.43583565198035817594e-3 * t10509 * t6736 - 0.17433426079214327038e-3 * t4033 * t6739 + t15976;
5901   t18986 = -t15977 - t15978 + t15979 + 0.58111420264047756791e-4 * t4033 * t6742 - 0.12493955356770267710e-3 * t15954 * t6635 + t15980 - t15981 + t15982 + t15983 - t15984 - t15985 + t15986 + t15987 - t15988 - t15989 + t15990 - t15991 + t15992 - t15993 - t15994;
5902   t19008 = -0.455e3 / 0.768e3 * t18148 + 0.3e1 / 0.512e3 * t18151 - t18154 / 0.256e3 + 0.175e3 / 0.128e3 * t18156 - 0.175e3 / 0.192e3 * t18158 + 0.175e3 / 0.192e3 * t18160 + 0.21e2 / 0.256e3 * t18163 - 0.7e1 / 0.128e3 * t18166 + 0.7e1 / 0.128e3 * t18170 + 0.3e1 / 0.4e1 * t18174 - 0.21e2 / 0.1024e4 * t18177;
5903   t19016 = -0.175e3 / 0.768e3 * t18179 + 0.35e2 / 0.256e3 * t18181 - t14370 + t14388 - 0.35e2 / 0.384e3 * t18252 - 0.5e1 / 0.512e3 * t18255 + t14395 - t14396 - t14397 - 0.9e1 / 0.64e2 * t18324 + 0.9e1 / 0.32e2 * t18326;
5904   t19024 = 0.35e2 / 0.2048e4 * t18328 - 0.21e2 / 0.2048e4 * t18330 + 0.7e1 / 0.1024e4 * t18332 - t14402 - t14413 - t14417 + 0.21e2 / 0.512e3 * t18450 + t14421 + 0.315e3 / 0.2048e4 * t18585 - 0.7e1 / 0.32e2 * t18587 + 0.15e2 / 0.256e3 * t18589;
5905   t19038 = -0.5e1 / 0.128e3 * t18591 + 0.3e1 / 0.128e3 * t18593 - 0.21e2 / 0.64e2 * t18595 + 0.21e2 / 0.64e2 * t18597 + 0.9e1 / 0.64e2 * t18599 + 0.3e1 / 0.4e1 * t18601 - 0.27e2 / 0.128e3 * t18607 - 0.105e3 / 0.512e3 * t18609 + 0.35e2 / 0.256e3 * t18611 - 0.35e2 / 0.256e3 * t18613 - 0.3e1 / 0.4e1 * t18662;
5906   t19044 = 0.15e2 / 0.8e1 * t18664 - 0.15e2 / 0.4e1 * t18666 + 0.3e1 / 0.16e2 * t18669 - 0.3e1 / 0.8e1 * t18672 + 0.3e1 / 0.8e1 * t18674 - t14422 + t14423 + t14424 - t14441 + t14443 - t14446;
5907   t19050 = t14449 - t14461 + t14466 - 0.3e1 / 0.16e2 * t18699 - 0.3e1 / 0.8e1 * t18713 - 0.15e2 / 0.8e1 * t18715 - 0.15e2 / 0.4e1 * t18717 + t14473 + t14477 + t1893 + t14497;
5908   t19056 = -t18820 / 0.256e3 + 0.1925e4 / 0.1152e4 * t18822 + 0.7e1 / 0.128e3 * t18826 - 0.3e1 / 0.8e1 * t18829 - 0.35e2 / 0.144e3 * t18831 - t14501 + t14504 + t14554 - t14556 - t14558 + t14562;
5909   t19059 = -t14315 - t14318 + t14321 - t14349 + t14367 - t1885 + 0.21e2 / 0.128e3 * t18135 - 0.5e1 / 0.128e3 * t18139 - 0.3e1 / 0.128e3 * t18143 + 0.21e2 / 0.128e3 * t18146 + t19008 + t19016 + t19024 + t19038 + t19044 + t19050 + t19056;
5910   t19063 = t6479 * t279;
5911   t19064 = t19063 * t184;
5912   t19067 = t2229 * t810;
5913   t19068 = t19067 * t184;
5914   t19070 = t2229 * t814;
5915   t19071 = t19070 * t184;
5916   t19073 = t1626 * t1626;
5917   t19078 = t1834 * t4485;
5918   t19081 = t2233 * t810;
5919   t19082 = t19081 * t184;
5920   t19084 = t2233 * t814;
5921   t19085 = t19084 * t184;
5922   t19095 = -0.4e1 * t429 * t1152 * t19073 * t184 - 0.2e1 * t1161 * t1163 * t19073 * t184 + t429 * t430 * t19059 * t184 - t12070 * t19085 - 0.36e2 * t12075 * t19085 - 0.2e1 * t1545 * t19064 - t1545 * t19068 - 0.2e1 * t1545 * t19078 + t4280 * t19071 + 0.6e1 * t4260 * t19082 + t4280 * t19082;
5923   t19108 = t1635 * t5110;
5924   t19119 = -0.12e2 * t12084 * t19085 - 0.24e2 * t12092 * t19085 - 0.4e1 * t1537 * t19064 - 0.2e1 * t1537 * t19068 - 0.4e1 * t1537 * t19078 + 0.6e1 * t4260 * t19071 + 0.6e1 * t4268 * t19071 + 0.6e1 * t4268 * t19082 + 0.24e2 * t4260 * t19108 + 0.24e2 * t4268 * t19108 + 0.4e1 * t4280 * t19108;
5925   t19121 = my_piecewise3(t102, t18358 + t18466 + t18947 + t18901 + t18274 + t18054 + t18243 + t18319 + t18850 + t18108 + t18986 + t18557 + t18765 + t18645 + t18603 + t18402 + t18660 + t18677 + t18442 + t18806 + t18224 + t18004 + t17993 + t18240 + t18676 + t18981 + t18241 + t18719 + t17992 + t18172 + t18117 + t18509, t19095 + t19119);
5926   t19123 = t619 * t1843;
5927   t19127 = t690 * t619;
5928   t19139 = t1639 * t666;
5929   t19154 = -0.96e2 * t17988 * t17989 + 0.1174e1 * t19121 + 0.16e2 * t1582 * t19123 * t290 - 0.16e2 * t19127 * t4357 + 0.8e1 * t690 * t2211 * t1168 + 0.32e2 * t1582 * t6419 * t287 - 0.16e2 * t1582 * t2215 * t827 + 0.16e2 * t1582 * t19139 * t290 - 0.4e1 * t217 * t4513 * t666 + 0.16e2 * t4353 * t6515 + 0.8e1 * t1582 * t6514 * t830 + 0.12e2 * t4349 * t6422 * t691;
5930   t19155 = t4360 * t1639;
5931   t19189 = -0.3e1 / 0.100e3 * t2234 * t819 - t283 * t19059 * t91 / 0.100e3 + 0.6e1 / 0.25e2 * t5967 * t4501 - t5985 * t4501 / 0.25e2 + t50 * t19059 * t91 / 0.100e3 - t2603 * t19081 * t91 / 0.100e3 + t8402 * t19084 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t6480 * t1276 - 0.3e1 / 0.100e3 * t2230 * t824 - 0.3e1 / 0.100e3 * t2230 * t3542 + 0.3e1 / 0.50e2 * t2230 * t3546;
5932   t19219 = -0.3e1 / 0.50e2 * t50 * t19073 * t816 - 0.3e1 / 0.25e2 * t614 * t4501 - 0.3e1 / 0.50e2 * t614 * t816 * t4485 + 0.3e1 / 0.20e2 * t2234 * t14297 + 0.3e1 / 0.50e2 * t2234 * t14301 - t2234 * t14305 / 0.10e2 + t823 * t19063 * t91 / 0.50e2 + t823 * t19067 * t91 / 0.100e3 - t2603 * t19070 * t91 / 0.100e3 + t823 * t19073 * t91 / 0.50e2 + t823 * t616 * t4485 / 0.50e2;
5933   t19225 = t1639 * t1639;
5934   t19229 = t6419 * t290;
5935   t19232 = t2215 * t830;
5936   t19252 = -0.8e1 * t217 * t19155 + 0.12e2 * t2370 * t17989 - 0.4e1 * t217 * t4367 * t666 + 0.2e1 * t217 * t94 * (t19189 + t19219) * t187 + 0.4e1 * t217 * t19225 * t187 + 0.8e1 * t690 * t19229 - 0.4e1 * t690 * t19232 + 0.4e1 * t217 * t287 * t6506 * t187 - 0.16e2 * t690 * t95 * t19225 * t187 - 0.16e2 * t690 * t722 * t2210 * t187 - 0.2e1 * t217 * t2210 * t1168 + 0.24e2 * t6401 * t19232;
5937   t19261 = t6506 * t187;
5938   t19284 = t2243 * t434;
5939   t19288 = t1583 * t4512;
5940   t19293 = 0.96e2 * t6401 * t1583 * t290 * t1639 + 0.2e1 * t217 * t827 * t2243 * t187 + 0.96e2 * t4349 * t2215 * t290 * t287 - 0.64e2 * t1582 * t1583 * t4371 - 0.8e1 * t1582 * t19261 * t290 + 0.8e1 * t1582 * t19284 * t290 - 0.4e1 * t1582 * t6422 * t830 - 0.4e1 * t217 * t6426 * t434 - 0.24e2 * t4349 * t6514 * t691 + 0.32e2 * t6408 * t19155 + 0.4e1 * t217 * t19288 - 0.8e1 * t4353 * t6423;
5941   t19325 = -0.2e1 * t217 * t2244 * t1168 - 0.8e1 * t217 * t1587 * t1843 - 0.8e1 * t217 * t1640 * t1843 - t217 * t830 * t2328 - 0.2e1 * t217 * t290 * t6837 - 0.4e1 * t217 * t6507 * t434 - 0.8e1 * t217 * t4371 * t666 - 0.4e1 * t217 * t620 * t5127 + 0.2e1 * t690 * t691 * t2328 - t101 * t19121 - 0.48e2 * t6401 * t19229 - 0.16e2 * t6408 * t19288;
5942   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
5943     v4rho2tau2[0] = -t3362 * t2333 / 0.12e2 - t1202 * t6842 / 0.2e1 - 0.8246500000000000000e0 * t3367 * t6845 * t456 - 0.3e1 / 0.16e2 * t212 * t213 * (t19154 + t19252 + t19293 + t19325) * t205 - 0.49479000000000000000e1 * t447 * t448 * t6840 * t456 - 0.29687400000000000000e2 * t1181 * t6845 * t1190 + 0.40270806047858128433e2 * t1193 * t6845 * t1198;
5944 
5945   t19342 = 0.1e1 / t713;
5946   t19387 = -0.46213986221445163711e2 * t9826 * t19342 * t75 * t7976 + 0.85171693168996171873e1 * t1561 * t7154 + 0.96527918924862328128e2 * t598 * t7152 * t10 * t11 * t452 * t204 + 0.27831937500000000000e1 * t596 * t7 * t5809 * t602 + 0.62621859375000000000e1 * t4306 * t7132 - 0.12524371875000000000e2 * t16163 * t2071 + 0.29223534375000000000e3 * t9939 * t3336 * t2068 * t204 / t38 * t30 * t192 + 0.31310929687500000000e2 * t9905 * t7128 - 0.43602825262761508098e0 * t4321 * t7137 * t5839 - 0.43602825262761508097e-1 * t9909 * t7140 + 0.41747906250000000000e2 * t4314 * t7126 * t5834 - 0.24739500000000000000e1 * t447 * t448 * t7109 * t456 - 0.56630821004800493113e2 * t7149 * t1577;
5947   t19412 = t596 * t7114 * t1185;
5948   t19455 = 0.18e2 * t2370 * t1856 * t1289 + 0.12e2 * t690 * t1914 * t1289 - 0.6e1 * t690 * t1290 * t1911 + 0.6e1 * t690 * t1292 * t1911 + 0.6e1 * t690 * t1855 * t1548 - 0.18e2 * t2370 * t6856 * t290 - 0.6e1 * t2370 * t6849 * t434 - 0.24e2 * t7989 * t6850 * t290 - 0.2e1 * t690 * t6925 * t290 - 0.6e1 * t690 * t499 * t5297 + 0.18e2 * t12108 * t5156;
5949   t19480 = t14534 * t6885;
5950   t19482 = t5943 * t6881;
5951   t19485 = t1231 * t3425 * t1882;
5952   t19487 = t7029 * t249;
5953   t19488 = t11425 * t19487;
5954   t19490 = t7037 * t275;
5955   t19491 = t3825 * t19490;
5956   t19493 = t1955 * t1245;
5957   t19494 = t3825 * t19493;
5958   t19496 = -t1885 + t5213 - t5217 - t5221 - t5223 - 0.35e2 / 0.128e3 * t19480 - 0.9e1 / 0.16e2 * t19482 - 0.9e1 / 0.16e2 * t19485 + 0.9e1 / 0.1024e4 * t19488 - 0.3e1 / 0.512e3 * t19491 + 0.9e1 / 0.2048e4 * t19494;
5959   t19497 = t10098 * t6878;
5960   t19499 = t793 * t6881;
5961   t19501 = t4136 * t6892;
5962   t19503 = t7182 * t1246;
5963   t19505 = t6874 * t276;
5964   t19507 = t8900 * t924;
5965   t19508 = t6873 * t9;
5966   t19509 = t19508 * t67;
5967   t19510 = t19507 * t19509;
5968   t19512 = t1236 * t5210;
5969   t19513 = t5935 * t19512;
5970   t19515 = t1236 * t5214;
5971   t19516 = t5939 * t19515;
5972   t19518 = t6873 * t10;
5973   t19519 = t19518 * t67;
5974   t19520 = t14372 * t19519;
5975   t19522 = t2097 * t5210;
5976   t19523 = t5925 * t19522;
5977   t19525 = 0.225e3 / 0.256e3 * t19497 - 0.45e2 / 0.16e2 * t19499 + t6891 - t6898 + 0.45e2 / 0.2048e4 * t19501 - 0.9e1 / 0.16e2 * t19503 + 0.3e1 / 0.16e2 * t19505 - 0.27e2 / 0.16384e5 * t19510 - 0.15e2 / 0.512e3 * t19513 + 0.9e1 / 0.512e3 * t19516 + 0.21e2 / 0.1024e4 * t19520 + 0.63e2 / 0.256e3 * t19523;
5978   t19527 = t2097 * t5214;
5979   t19528 = t3442 * t19527;
5980   t19530 = t6895 * t67;
5981   t19531 = t3448 * t19530;
5982   t19533 = t6895 * t3473;
5983   t19534 = t2433 * t19533;
5984   t19537 = t1882 * t30 * t16;
5985   t19538 = t2097 * t19537;
5986   t19539 = t5251 * t19538;
5987   t19542 = t14479 * t6884 * t745;
5988   t19544 = t9 * t275;
5989   t19546 = t5197 * t7029 * t19544;
5990   t19549 = t5197 * t2027 * t3465;
5991   t19551 = -0.21e2 / 0.128e3 * t19528 - 0.105e3 / 0.1024e4 * t19531 - t5239 + t5242 + t5249 + 0.27e2 / 0.128e3 * t19534 + 0.21e2 / 0.4096e4 * t19539 + t1893 + t5263 - 0.3e1 / 0.32e2 * t19542 + 0.9e1 / 0.128e3 * t19546 - 0.9e1 / 0.128e3 * t19549;
5992   t19553 = t1254 * t3432 * t6888;
5993   t19555 = t1245 * t1882;
5994   t19557 = t1887 * t403 * t19555;
5995   t19559 = t5245 * t6896;
5996   t19561 = t3508 * t6889;
5997   t19565 = t253 * t6873 * t255 * t258;
5998   t19568 = t10102 * t6877 * t2445;
5999   t19571 = t3491 * t6884 * t5184;
6000   t19574 = t3491 * t1878 * t5188;
6001   t19576 = t10188 * t111;
6002   t19578 = t19576 * t6877 * t67;
6003   t19581 = t1231 * t1240 * t5214;
6004   t19584 = t37 * t6873 * t84;
6005   t19586 = 0.21e2 / 0.256e3 * t19553 - 0.3e1 / 0.512e3 * t19557 - 0.35e2 / 0.512e3 * t19559 + 0.175e3 / 0.256e3 * t19561 + 0.9e1 / 0.128e3 * t19565 + 0.27e2 / 0.128e3 * t19568 - 0.27e2 / 0.128e3 * t19571 + 0.81e2 / 0.256e3 * t19574 - 0.135e3 / 0.1024e4 * t19578 + 0.9e1 / 0.16e2 * t19581 - 0.15e2 / 0.16e2 * t19584 - t6883;
6006   t19588 = t19496 + t19525 + t19551 + t19586;
6007   t19607 = t2593 * t1271;
6008   t19611 = t822 * t279 * t91;
6009   t19639 = t50 * t19588 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t6900 * t1276 - 0.9e1 / 0.100e3 * t5266 * t2110 - 0.9e1 / 0.100e3 * t1895 * t1283 - 0.9e1 / 0.100e3 * t1895 * t5271 + 0.9e1 / 0.50e2 * t1895 * t89 * t1283 - 0.9e1 / 0.100e3 * t1899 * t1279 + 0.3e1 / 0.20e2 * t6906 * t1276 + 0.9e1 / 0.50e2 * t1899 * t19607 - t6906 * t19611 / 0.10e2 - t283 * t19588 * t91 / 0.100e3 + t823 * t6899 * t279 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t5265 * t488 * t91 + 0.3e1 / 0.100e3 * t823 * t1894 * t1271 * t91 - 0.3e1 / 0.100e3 * t2603 * t1894 * t1283 - 0.3e1 / 0.100e3 * t2603 * t1905 * t1271 + t8402 * t6905 * t279 * t91 / 0.100e3;
6010   t19667 = t1366 * t7019;
6011   t19669 = t1380 * t7022;
6012   t19680 = t1372 * t5566 * t5188;
6013   t19683 = t1386 * t5383 * t5188;
6014   t19694 = t11968 * t1397;
6015   t19698 = t4004 * t6978;
6016   t19700 = t3949 * t6981;
6017   t19702 = t5770 * t6999;
6018   t19704 = t5773 * t7002;
6019   t19706 = t5516 * t7005;
6020   t19708 = t5541 * t7008;
6021   t19710 = t5527 * t7013;
6022   t19712 = t5763 * t6996;
6023   t19714 = 0.60153445679057948292e-5 * t19667 - 0.29758541219058679417e-7 * t19669 - 0.69756861727043151857e-2 * t10523 * t7057 + 0.89964206592416763309e-3 * t15793 * t7061 + 0.31633232805025996640e-3 * t10509 * t7064 + 0.15628904296875000000e0 * t11353 * t7054 - 0.18183639625205425545e-7 * t19680 + 0.76167694786876381839e-10 * t19683 + 0.15623234140005806694e-7 * t10499 * t7050 * t2445 - 0.62492936560023226774e-8 * t4060 * t7025 * t5184 + 0.23434851210008710040e-8 * t4060 * t2009 * t5188 - 0.44916798152516694244e-8 * t19694 * t7050 * t67 + 0.56437709960937500000e-1 * t19698 + 0.79299030086083030701e-2 * t19700 + 0.31534690341009409167e-7 * t19702 - 0.49324755555936813355e-3 * t19704 + 0.69203235840320587160e-4 * t19706 - 0.14761181160247360821e-9 * t19708 - 0.40700271606445312500e-2 * t19710 - 0.23569859737078193575e-5 * t19712;
6024   t19715 = t3965 * t6984;
6025   t19717 = t4033 * t6987;
6026   t19719 = t3939 * t6990;
6027   t19721 = t4107 * t6993;
6028   t19724 = t1496 * t5493 * t1264;
6029   t19727 = t1404 * t5435 * t5188;
6030   t19730 = t1329 * t5556 * t5188;
6031   t19733 = t1344 * t5493 * t5188;
6032   t19736 = t1358 * t5573 * t5188;
6033   t19743 = t1526 * t5383 * t1264;
6034   t19748 = t3171 * t6873;
6035   t19773 = t11245 * t135;
6036   t19777 = 0.59517082438117358834e-8 * t19743 - 0.17146588035743334330e-8 * t14953 * t7025 * t745 + 0.70145132873495458623e-9 * t5512 * t19748 * t19544 - 0.23381710957831819541e-9 * t5512 * t5403 * t3465 - 0.11965879852294921875e-1 * t14912 * t7029 * t745 + 0.68376456298828125000e-2 * t5422 * t7037 * t19544 - 0.51282342224121093750e-2 * t5422 * t1955 * t3465 + 0.14751896123190948486e-1 * t10581 * t7029 * t2445 - 0.73759480615954742432e-2 * t4096 * t7037 * t5184 + 0.55319610461966056824e-2 * t4096 * t1955 * t5188 - 0.50709642923468885422e-2 * t19773 * t7029 * t67;
6037   t19788 = t1260 * t7041;
6038   t19790 = t1412 * t7044;
6039   t19798 = t1352 * t7077;
6040   t19801 = t1337 * t7047;
6041   t19809 = t5538 * t416;
6042   t19810 = t19809 * t1397;
6043   t19833 = 0.10961792557106781006e-1 * t19801 - 0.34734530138852074742e-6 * t3844 * t7025 * t275 + 0.13025448802069528028e-6 * t3844 * t2009 * t1245 - 0.12040518130203592591e-7 * t19810 * t7025 * t249 + 0.51602220558015396818e-8 * t7314 * t19748 * t275 - 0.17200740186005132273e-8 * t7314 * t5403 * t1245 - 0.15628904296875000000e0 * t11464 * t6877 * t249 + 0.10419269531250000000e0 * t3794 * t6884 * t275 - 0.15628904296875000000e0 * t3794 * t1878 * t1245 + 0.16442688835660171509e-1 * t11443 * t19487 - 0.73078617047378540040e-2 * t3835 * t19490;
6044   t19837 = t6963 * t2018;
6045   t19838 = t19837 * t6967;
6046   t19849 = t7037 * t249;
6047   t19852 = t1982 * t1245;
6048   t19855 = t7067 * t249;
6049   t19858 = t7050 * t275;
6050   t19861 = t1995 * t1245;
6051   t19865 = t1506 * t5493 * t1245;
6052   t19869 = t1516 * t5573 * t1245;
6053   t19872 = t1526 * t5566 * t1245;
6054   t19883 = t7060 * t275;
6055   t19886 = t1969 * t1245;
6056   t19889 = t7060 * t249;
6057   t19892 = t7067 * t275;
6058   t19899 = 0.20051148559685982764e-6 * t19869 - 0.85024403483024798334e-9 * t19872 - 0.61193050585088378904e-1 * t11425 * t6884 * t249 + 0.30596525292544189452e-1 * t3825 * t7029 * t275 - 0.30596525292544189452e-1 * t3825 * t2027 * t1245 - 0.40700271606445312500e-3 * t3835 * t19883 + 0.24420162963867187500e-3 * t3835 * t19886 + 0.11382635897523880005e-3 * t11453 * t19889 - 0.56913179487619400024e-4 * t3803 * t19892 + 0.28456589743809700012e-4 * t3803 * t19852 - 0.19463410080090165138e-4 * t11460 * t19855;
6059   t19916 = t168 * t545 * t6964;
6060   t19932 = t1475 * t5218 * t1245;
6061   t19935 = t1486 * t5435 * t1245;
6062   t19937 = t5399 + 0.36539308523689270020e-1 * t4218 * t6957 + 0.11956556739800362265e-9 * t19916 * t6969 - 0.22934320248006843030e-7 * t4162 * t6950 - 0.52096347656250000000e0 * t3447 * t6953 - 0.38926820160180330276e-4 * t4181 * t6943 + 0.15196356935747782700e-5 * t4147 * t6946 + 0.23713824786508083344e-3 * t4207 * t6975 + 0.29944532101677796163e-7 * t10495 * t7051 - 0.39072260742187500000e-1 * t19932 - 0.43709321846491699218e-2 * t19935;
6063   t19940 = t1496 * t5556 * t1245;
6064   t19964 = t11050 * t124;
6065   t19969 = t2036 * t412 * t19555;
6066   t19974 = -t5489 + t5492 + t5496 - 0.18847076105403830297e-6 * t4147 * t6937 - 0.15298262646272094726e0 * t4136 * t6940 - 0.18061955672203078866e-2 * t4207 * t6960 + 0.32081837695497572424e-4 * t4181 * t6934 + 0.35165034667968750000e-1 * t4049 * t2027 * t5188 - 0.23443356445312500000e-1 * t19964 * t6884 * t67 - 0.24420162963867187500e-3 * t19969 - 0.32885377671320343018e-2 * t10527 * t7037 * t2445;
6067   t19983 = t10985 * t148;
6068   t20003 = t1991 * t385 * t19555;
6069   t20006 = t2004 * t2005 * t19555;
6070   t20010 = t1964 * t367 * t19555;
6071   t20013 = t1978 * t376 * t19555;
6072   t20016 = t2022 * t2023 * t19555;
6073   t20024 = t11001 * t162;
6074   t20043 = -0.22765271795047760010e-4 * t20010 + 0.25951213440120220185e-5 * t20013 - 0.35426834784593665971e-11 * t20016 + 0.58608391113281250000e-1 * t11357 * t6884 * t2445 - 0.35165034667968750000e-1 * t4049 * t7029 * t5184 - 0.47449849207538994960e-4 * t20024 * t7060 * t67 - 0.19054370819027423859e-4 * t15950 * t7067 * t745 + 0.83362872333244979384e-5 * t5578 * t7050 * t19544 - 0.35726945285676419736e-5 * t5578 * t1995 * t3465 - 0.27069050555576076731e-5 * t10491 * t7067 * t2445 + 0.11146079640531325713e-5 * t4077 * t7050 * t5184;
6075   t20048 = t11902 * t175;
6076   t20062 = t3803 * t5493 * t1255;
6077   t20065 = t1506 * t5573 * t1264;
6078   t20068 = t3812 * t5573 * t1255;
6079   t20071 = t1516 * t5566 * t1264;
6080   t20074 = t3844 * t5566 * t1255;
6081   t20081 = t3794 * t5218 * t1255;
6082   t20084 = t1475 * t5435 * t1264;
6083   t20087 = t3825 * t5435 * t1255;
6084   t20092 = -0.68295815385143280030e-3 * t5463 * t1969 * t3465 - 0.15628904296875000000e0 * t20081 + 0.78144521484375000000e-1 * t20084 - 0.30596525292544189453e-1 * t20087 + 0.33494011205321643501e-4 * t4069 * t1982 * t5188 + t5526 + t5533 + t5537 - t5554 - t5559 - t5562;
6085   t20098 = t8910 * t933;
6086   t20101 = t6206 * t19512;
6087   t20103 = t6210 * t19515;
6088   t20105 = -t1954 - t5623 + t5625 - t5627 + t5639 - t5640 - t5641 - t5642 - 0.12210081481933593750e-3 * t20098 * t19509 - 0.12653293122010398656e-5 * t20101 + 0.52101795208278112114e-6 * t20103;
6089   t20107 = t6220 * t19512;
6090   t20109 = t6223 * t19515;
6091   t20111 = t6249 * t19512;
6092   t20113 = t6253 * t19515;
6093   t20115 = t6263 * t19512;
6094   t20117 = t6266 * t19515;
6095   t20124 = t21 * t6963 * t6964 / t160 / t134 * t3171;
6096   t20127 = t9035 * t962;
6097   t20131 = t5539 * t171 * t6248;
6098   t20153 = t6233 * t19512;
6099   t20155 = t6236 * t19515;
6100   t20157 = t6271 * t19512;
6101   t20159 = -0.27404481392766952515e-2 * t8911 * t19509 - 0.67473154944312572482e-4 * t15433 * t19519 + 0.13546466754152309149e-3 * t9012 * t19509 + 0.28283831684493832291e-5 * t15400 * t19519 - 0.24061378271623179318e-5 * t9028 * t19509 - 0.44936933735938408065e-7 * t15372 * t19519 + 0.14135307079052872723e-7 * t9036 * t19509 + 0.24355948914408145355e-9 * t15453 * t19519 + 0.17200740186005132273e-7 * t20153 - 0.68802960744020529091e-8 * t20155 - 0.25041798974552536011e-3 * t20157;
6102   t20162 = t6274 * t19515;
6103   t20164 = t6239 * t19522;
6104   t20166 = t4159 * t19527;
6105   t20168 = t4164 * t19530;
6106   t20176 = t6256 * t19522;
6107   t20178 = t4133 * t19527;
6108   t20180 = t4137 * t19530;
6109   t20183 = t6201 * t19522;
6110   t20185 = t4215 * t19527;
6111   t20187 = t9011 * t944;
6112   t20190 = t9027 * t953;
6113   t20200 = 0.38928614769531669617e-2 * t20183 - 0.17301606564236297608e-2 * t20185 - 0.17785368589881062508e-4 * t20187 * t19509 + 0.29195115120135247707e-5 * t20190 * t19509 - 0.18238281250000000000e0 * t19480 - 0.37518750000000000000e0 * t19482 - 0.37518750000000000000e0 * t19485 + 0.58623046875000000000e-2 * t19488 - 0.39082031250000000000e-2 * t19491 + 0.29311523437500000000e-2 * t19494 + 0.58623046875000000000e0 * t19497;
6114   t20204 = t1486 * t5556 * t1264;
6115   t20207 = t3835 * t5556 * t1255;
6116   t20209 = t4219 * t19530;
6117   t20211 = t6278 * t19522;
6118   t20213 = t4204 * t19527;
6119   t20215 = t4208 * t19530;
6120   t20217 = t6226 * t19522;
6121   t20219 = t4178 * t19527;
6122   t20221 = t4182 * t19530;
6123   t20224 = t6213 * t19522;
6124   t20226 = t4193 * t19527;
6125   t20228 = t4148 * t19530;
6126   t20230 = -0.32730551325369765981e-6 * t20224 + 0.12728547737643797882e-6 * t20226 + 0.90918198126027127725e-7 * t20228 + t6980 + t6983 - t6986 + t6989 - t6992 + t6995 - t6998 + t7001;
6127   t20237 = t3210 * t19533;
6128   t20240 = t5683 * t19538;
6129   t20242 = t5661 * t19538;
6130   t20244 = t5671 * t19538;
6131   t20246 = t5677 * t19538;
6132   t20248 = t5707 * t19538;
6133   t20250 = t5654 * t19538;
6134   t20252 = t2806 * t19533;
6135   t20254 = t3198 * t19533;
6136   t20256 = t3206 * t19533;
6137   t20258 = t2814 * t19533;
6138   t20260 = t2822 * t19533;
6139   t20262 = 0.17677394802808645181e-6 * t20240 - 0.23651017755757056875e-8 * t20242 + 0.36993566666952610016e-4 * t20244 - 0.51902426880240440370e-5 * t20246 + 0.11070885870185520616e-10 * t20248 + 0.30525203704833984375e-3 * t20250 + 0.31261077124966867268e-4 * t20252 - 0.45115084259293461219e-6 * t20254 + 0.22318905914294009563e-8 * t20256 + 0.29304195556640625000e-1 * t20258 + 0.49172987077303161620e-2 * t20260;
6140   t20277 = t5652 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + 0.14069531250000000000e0 * t19534 + 0.34196777343750000000e-2 * t19539 + t2042 + t5690;
6141   t20295 = -0.39082031250000000000e-2 * t19557 - 0.45595703125000000000e-1 * t19559 + 0.45595703125000000000e0 * t19561 + 0.46898437500000000000e-1 * t19565 + 0.14069531250000000000e0 * t19568 - 0.14069531250000000000e0 * t19571 + 0.21104296875000000000e0 * t19574 - 0.87934570312500000000e-1 * t19578 + 0.37518750000000000000e0 * t19581 - 0.62531250000000000000e0 * t19584 + t7021;
6142   t20304 = t6905 * t184 * t279;
6143   t20307 = t5785 * t1271;
6144   t20312 = t1538 * t5283;
6145   t20315 = t4264 * t1894;
6146   t20320 = t1538 * t5265;
6147   t20328 = t6899 * t184 * t279;
6148   t20344 = t429 * t430 * t19588 * t184 - t12070 * t20304 - 0.36e2 * t12075 * t20304 - 0.12e2 * t12084 * t20304 - 0.24e2 * t12092 * t20304 - 0.6e1 * t1537 * t20315 - 0.6e1 * t1537 * t20320 - 0.2e1 * t1537 * t20328 - 0.3e1 * t1545 * t20315 - 0.3e1 * t1545 * t20320 - t1545 * t20328 + 0.18e2 * t4260 * t20307 + 0.18e2 * t4268 * t20307 + 0.3e1 * t4280 * t20307 + 0.18e2 * t4260 * t20312 + 0.18e2 * t4268 * t20312 + 0.3e1 * t4280 * t20312;
6149   t20345 = my_piecewise3(t102, -0.89687393649055480959e-3 * t4088 * t1969 * t5188 + 0.10463529259056472779e-2 * t19983 * t7037 * t67 + 0.43857550713803172113e-3 * t14961 * t7060 * t745 - 0.20241946483293771745e-3 * t5498 * t7067 * t19544 + 0.10120973241646885872e-3 * t5498 * t1982 * t3465 + 0.15630538562483433634e-3 * t10513 * t7060 * t2445 - 0.66988022410643287002e-4 * t4069 * t7067 * t5184 - 0.47768912745134253054e-6 * t4077 * t1995 * t5188 + 0.79614854575223755090e-6 * t20048 * t7067 * t67 + 0.31047336035739263754e-6 * t14995 * t7050 * t745 - 0.13072562541363900528e-6 * t5545 * t7025 * t19544 + 0.49022109530114626980e-7 * t5545 * t2009 * t3465 + 0.11382635897523880005e-2 * t5463 * t7060 * t19544 - 0.22765271795047760010e-2 * t14984 * t7037 * t745 + 0.63768302612268598747e-10 * t19838 * t19748 * t249 + 0.79710378265335748434e-11 * t7318 * t15011 * t1245 + 0.78152692812417168170e-6 * t11435 * t7050 * t249 + 0.14947898941509246826e-2 * t4088 * t7060 * t5184 + 0.21367642593383789062e-2 * t15463 * t19519 + 0.11473696984704071044e-1 * t8901 * t19509 + 0.36993566666952610016e-3 * t15357 * t19519 - 0.89674175548502716988e-11 * t20124 * t19509 - 0.11397267701810837025e-6 * t20127 * t19509 + 0.17200740186005132273e-8 * t20131 * t19509 + 0.39072260742187500000e-1 * t9020 * t19509 - 0.86697387226574778556e-3 * t11453 * t19849 + 0.36123911344406157732e-3 * t3803 * t19883 - 0.21674346806643694639e-3 * t3803 * t19886 + 0.16040918847748786212e-4 * t11460 * t19889 - 0.64163675390995144848e-5 * t3812 * t19892 + 0.16280108642578125000e-2 * t4218 * t6972 + 0.90829247040420770644e-5 * t3812 * t19858 - 0.38926820160180330276e-5 * t3812 * t19861 + 0.73260488891601562500e-3 * t11443 * t19849 + 0.32081837695497572424e-5 * t3812 * t19852 - 0.96927819970648270100e-7 * t11435 * t19855 + 0.37694152210807660595e-7 * t3844 * t19858 - 0.16154636661774711683e-7 * t3844 * t19861 + 0.54808962785533905030e-2 * t3835 * t19493 - 0.28490190124511718750e-1 * t15874 * t7030 + 0.33806428615645923615e-1 * t10577 * t7033 - 0.49324755555936813355e-2 * t14886 * t7038 - 0.37711775579325109721e-4 * t14789 * t7068 - 0.53076569716815836727e-5 * t10487 * t7071 + 0.59915911647917877420e-6 * t14872 * t7074 - 0.32474598552544193807e-8 * t14949 * t7026 + t20277 + t7049 + t20105 + 0.43254016410590744019e-3 * t19730 - 0.51902426880240440370e-4 * t19733 + t20230 + t7016 - t7017 - 0.26570126088445249478e-10 * t7318 * t8799 * t6873 * t275 + t5431 - t7015 + t20043 - 0.16672574466648995876e-4 * t19865 - t7043 - t5572 - 0.82213444178300857545e-3 * t20237 - 0.60612132084018085150e-6 * t19719 + 0.29197616334969279705e-8 * t19721 + t20200 - 0.41681436166622489690e-3 * t19798 + t20159 - t5576 + 0.13678710937500000000e-1 * t19520 - 0.19536130371093750000e-2 * t20115 + 0.97680651855468750000e-3 * t20117 - t5720 + t5723 + 0.15995215905244040186e-8 * t20164 - 0.60934155829501105471e-9 * t20166 + 0.83362872333244979380e-4 * t20065 - t7024 - t7079 - t7080 - 0.21674346806643694639e-3 * t20062 + 0.11382635897523880005e-3 * t20162 + t5649 - 0.10942968750000000000e0 * t19528 - t5382 + t5565 + t5569 + t19714 - t7046 - t5434 + 0.18165849408084154130e-3 * t20215 + 0.23073652163666021079e-4 * t20217 - t5368 + 0.32081837695497572422e-5 * t20068 - 0.12030689135811589658e-5 * t20071 - 0.81481720004565431733e-10 * t20111 + 0.31884151306134299374e-10 * t20113 + 0.11724609375000000000e-1 * t19516 - 0.43796424502453919557e-9 * t20168 - 0.68393554687500000000e-1 * t19531 + t5379 - 0.12698484741210937500e-1 * t20178 - 0.37518750000000000000e0 * t19503 + 0.12506250000000000000e0 * t19505 - t7004 + t7007 + 0.54808962785533905030e-2 * t20207 - 0.11894854512912454605e-2 * t20209 - t7010 + t1945 + t5692 - t5694 + t5696 - 0.39072260742187500000e0 * t19788 - 0.65563982769737548827e-1 * t19790 - 0.62282912256288528444e-3 * t20211 + 0.25951213440120220185e-3 * t20213 + 0.54714843750000000000e-1 * t19553 + 0.46898437500000000000e-1 * t19546 - 0.46898437500000000000e-1 * t19549 - t1918 + t5620 + t5360 - t5362 - t5438 + t20262 - 0.16154636661774711683e-7 * t20074 - 0.62531250000000000000e-1 * t19542 - 0.92294608654664084316e-5 * t20219 - 0.65375347797053726390e-5 * t20221 - 0.18759375000000000000e1 * t19499 + 0.14655761718750000000e-1 * t19501 + 0.25396969482421875000e-1 * t20176 + t19899 + 0.54808962785533905030e-3 * t19940 + t20295 + t19937 - 0.10991821289062500000e-2 * t19510 - 0.19541015625000000000e-1 * t19513 + t5712 + t5715 + t19833 + 0.42328282470703125000e-2 * t19727 - 0.12110566272056102753e-2 * t19715 + 0.43583565198035817594e-4 * t19717 + t19777 - 0.74431136011825874448e-7 * t20003 + 0.86003700930025661364e-9 * t20006 + 0.16414453125000000000e0 * t19523 + 0.36331698816168308259e-4 * t20107 - 0.15570728064072132111e-4 * t20109 - t1939 - t1942 - t5698 + t5700 + t5726 + t6811 + 0.13112796553947509765e-1 * t20204 - t1948 + t1951 - t5647 - t5386 + 0.15382434775777347386e-5 * t19736 - 0.84656564941406250000e-2 * t20180 + t19974 - 0.21923585114213562012e-2 * t19724 + t20092, t20344);
6150   t20348 = t217 * (0.27e2 / 0.40e2 * t232 * t234 * t45 - 0.243e3 / 0.640e3 * t712 * t1219 * t13 * t17 * sigma[0] * t718 + 0.24057e5 / 0.256000e6 * t2402 * t35 * t5172 * t2409 - 0.177147e6 / 0.5120000e7 * t8040 * t233 / t1435 * t45 + 0.6e1 * t1286 * t1908 + 0.6e1 * t495 * t5294 + 0.2e1 * t287 * t6921 + 0.2e1 * t94 * t19639) * t187 - t217 * t6924 * t434 + 0.6e1 * t690 * t6927 * t290 - 0.3e1 * t217 * t5297 * t588 - 0.3e1 * t217 * t1911 * t1548 + 0.6e1 * t690 * t6930 * t290 - 0.3e1 * t217 * t1289 * t2056 - 0.3e1 * t217 * t498 * t5806 - t217 * t290 * t7106 - t101 * t20345 + 0.1174e1 * t20345;
6151   t20354 = -0.16989246301440147934e2 * t5 * t1560 * t7136 * t2084 + 0.34068677267598468749e2 * t596 * t2081 * t442 * t1185 * t7976 + 0.69579843750000000000e0 * t1561 * t7145 - 0.68137354535196937500e2 * t2065 * t5853 - 0.13915968750000000000e1 * t5819 * t2076 - t1202 * t7111 / 0.4e1 + 0.67956985205760591731e2 * t7123 * t1577 + 0.16989246301440147933e2 * t5 * t5818 * t2080 * t2084 + 0.33398325000000000000e2 * t19412 * t1569 - 0.45304656803840394487e2 * t5 * t7114 * t1573 * t1577 - 0.25048743750000000000e3 * t16154 * t5835 + 0.34882260210209206479e0 * t16159 * t5840 - 0.3e1 / 0.16e2 * t212 * t213 * (t19455 + t20348) * t205;
6152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6153     v4rhosigma3[0] = t19387 + t20354;
6154 
6155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6156     v4rhosigma2lapl[0] = 0.0e0;
6157 
6158   t20400 = 0.24e2 * t4349 * t1583 * t498 * t1289 - 0.48e2 * t14178 * t1583 * t1855 * t290 + 0.12e2 * t4349 * t1583 * t1911 * t290 + 0.2e1 * t217 * t5294 * t619 * t187 - 0.2e1 * t217 * t1289 * t2198 + 0.2e1 * t690 * t1855 * t1843 - t217 * t1911 * t1843 - t217 * t290 * t7445 - t217 * t5297 * t666 - 0.6e1 * t2370 * t7249 * t290 + 0.24e2 * t4349 * t5887 * t5858 - 0.24e2 * t4349 * t5996 * t5858 - 0.8e1 * t16596 * t2087 + 0.24e2 * t17918 * t5859 - 0.8e1 * t5873 * t5870;
6159   t20423 = t7263 - t7264 + 0.40102297119371965527e-5 * t19667 - 0.19839027479372452945e-7 * t19669 - 0.12122426416803617030e-7 * t19680 + 0.50778463191250921226e-10 * t19683 + 0.37625139973958333333e-1 * t19698 + 0.52866020057388687134e-2 * t19700 + 0.21023126894006272778e-7 * t19702 - 0.32883170370624542237e-3 * t19704 + 0.46135490560213724773e-4 * t19706 - 0.98407874401649072142e-10 * t19708 - 0.27133514404296875000e-2 * t19710 - 0.15713239824718795717e-5 * t19712 - 0.80737108480374018353e-3 * t19715;
6160   t20439 = 0.29055710132023878395e-4 * t19717 - 0.40408088056012056767e-6 * t19719 + 0.19465077556646186470e-8 * t19721 - 0.14615723409475708008e-2 * t19724 + 0.28218854980468750000e-2 * t19727 + 0.28836010940393829346e-3 * t19730 - 0.34601617920160293580e-4 * t19733 + 0.10254956517184898257e-5 * t19736 + 0.39678054958744905889e-8 * t19743 - 0.26048173828125000000e0 * t19788 - 0.43709321846491699218e-1 * t19790 - 0.27787624111081659792e-3 * t19798 + 0.73078617047378540040e-2 * t19801 - 0.11115049644432663917e-4 * t19865 + 0.13367432373123988509e-6 * t19869;
6161   t20443 = t3812 * t1699 * t5210;
6162   t20445 = t5245 * t7204;
6163   t20447 = t14534 * t7192;
6164   t20449 = t3508 * t7196;
6165   t20457 = t3949 * t7352;
6166   t20461 = t5773 * t7358;
6167   t20463 = t3965 * t7361;
6168   t20465 = -0.56682935655349865556e-9 * t19872 + t5360 - t5362 - t5368 + 0.10693945898499190808e-5 * t20443 - 0.15198567708333333333e-1 * t20445 - 0.18238281250000000000e0 * t20447 + 0.15198567708333333333e0 * t20449 + 0.89964206592416763309e-3 * t15793 * t7364 - 0.69756861727043151857e-2 * t10523 * t7367 + 0.31633232805025996640e-3 * t10509 * t7372 + 0.26433010028694343567e-2 * t20457 - 0.49324755555936813355e-2 * t14886 * t7355 - 0.16441585185312271118e-3 * t20461 - 0.40368554240187009177e-3 * t20463;
6169   t20468 = t5541 * t7419;
6170   t20470 = t4004 * t7343;
6171   t20474 = t5527 * t7349;
6172   t20478 = t5770 * t7410;
6173   t20480 = t4107 * t7413;
6174   t20482 = t4033 * t7398;
6175   t20484 = t5763 * t7401;
6176   t20486 = t3939 * t7404;
6177   t20488 = t5516 * t7395;
6178   t20492 = t10098 * t7185;
6179   t20495 = t1475 * t1668 * t5214;
6180   t20498 = t3825 * t1668 * t5210;
6181   t20500 = -0.32474598552544193807e-8 * t14949 * t7416 - 0.49203937200824536071e-10 * t20468 + 0.18812569986979166667e-1 * t20470 - 0.28490190124511718750e-1 * t15874 * t7346 - 0.13566757202148437500e-2 * t20474 + 0.59915911647917877420e-6 * t14872 * t7407 + 0.10511563447003136389e-7 * t20478 + 0.97325387783230932350e-9 * t20480 + 0.14527855066011939198e-4 * t20482 - 0.78566199123593978584e-6 * t20484 - 0.20204044028006028384e-6 * t20486 + 0.23067745280106862387e-4 * t20488 - 0.37711775579325109721e-4 * t14789 * t7258 + 0.58623046875000000000e0 * t20492 + 0.26048173828125000000e-1 * t20495 - 0.10198841764181396484e-1 * t20498;
6182   t20504 = t1486 * t1678 * t5214;
6183   t20514 = t3803 * t1688 * t5210;
6184   t20517 = t1506 * t1699 * t5214;
6185   t20520 = t3794 * t1601 * t5210;
6186   t20522 = t8799 * t606;
6187   t20530 = t1516 * t1709 * t5214;
6188   t20533 = t3844 * t1709 * t5210;
6189   t20536 = t1526 * t1658 * t5214;
6190   t20538 = t1699 * t5206;
6191   t20541 = 0.43709321846491699218e-2 * t20504 + 0.78152692812417168170e-6 * t11435 * t1658 * t5198 - 0.11908981761892139912e-5 * t5578 * t385 * t1606 * t1874 - 0.72247822688812315463e-4 * t20514 + 0.27787624111081659794e-4 * t20517 - 0.52096347656250000000e-1 * t20520 - 0.26570126088445249478e-10 * t7318 * t20522 * t5202 + 0.53140252176890498956e-11 * t7318 * t7319 * t5206 - 0.40102297119371965528e-6 * t20530 - 0.53848788872582372278e-8 * t20533 + 0.19839027479372452945e-8 * t20536 + t5379 - t5382 - t5386 + 0.18971059829206466675e-4 * t3803 * t20538;
6192   t20542 = t1709 * t5198;
6193   t20563 = t1699 * t5198;
6194   t20566 = t1709 * t5202;
6195   t20569 = t1688 * t5206;
6196   t20572 = t1699 * t5202;
6197   t20575 = t7182 * t1607;
6198   t20579 = -0.19463410080090165138e-4 * t11460 * t20542 - 0.34734530138852074742e-6 * t3844 * t4848 * t5202 + 0.86836325347130186856e-7 * t3844 * t1658 * t5206 - 0.12040518130203592591e-7 * t19810 * t4848 * t5198 + 0.51602220558015396818e-8 * t7314 * t7319 * t5202 - 0.11467160124003421515e-8 * t7314 * t4848 * t5206 + 0.63768302612268598747e-10 * t19838 * t7319 * t5198 + t5399 + 0.11382635897523880005e-3 * t11453 * t20563 - 0.56913179487619400024e-4 * t3803 * t20566 + 0.16280108642578125000e-3 * t3835 * t20569 - 0.40700271606445312500e-3 * t3835 * t20572 - 0.12506250000000000000e0 * t20575 - 0.26048173828125000000e-1 * t19932 - 0.29139547897661132812e-2 * t19935;
6199   t20582 = t1688 * t5198;
6200   t20591 = 0.36539308523689270020e-3 * t19940 - t1918 + t5431 - t5434 - t5438 - t5489 + t5492 + t5496 + 0.73260488891601562500e-3 * t11443 * t20582 - 0.16280108642578125000e-3 * t19969 - 0.49620757341217249632e-7 * t20003 + 0.57335800620017107576e-9 * t20006 - 0.15176847863365173340e-4 * t20010 + 0.17300808960080146790e-5 * t20013 - 0.23617889856395777314e-11 * t20016;
6201   t20600 = t1380 * t7302;
6202   t20602 = t1260 * t7305;
6203   t20604 = t1412 * t7308;
6204   t20608 = t1352 * t7296;
6205   t20610 = t1366 * t7299;
6206   t20612 = t1337 * t7333;
6207   t20616 = -0.14449564537762463092e-3 * t20062 + 0.55575248222163319585e-4 * t20065 + 0.21387891796998381614e-5 * t20068 - 0.80204594238743931054e-6 * t20071 - 0.10769757774516474456e-7 * t20074 - 0.10419269531250000000e0 * t20081 + 0.52096347656250000000e-1 * t20084 - 0.20397683528362792968e-1 * t20087 - 0.99195137396862264723e-8 * t20600 - 0.13024086914062500000e0 * t20602 - 0.21854660923245849609e-1 * t20604 + 0.15196356935747782700e-5 * t5601 * t7311 - 0.13893812055540829897e-3 * t20608 + 0.20051148559685982764e-5 * t20610 + 0.36539308523689270020e-2 * t20612 + 0.16280108642578125000e-2 * t5393 * t7323;
6208   t20626 = t19916 * t6967;
6209   t20637 = t7491 * t74;
6210   t20638 = t20637 * t5949;
6211   t20645 = t3835 * t1678 * t5210;
6212   t20647 = 0.23713824786508083344e-3 * t5483 * t7283 - 0.38926820160180330276e-4 * t5614 * t7286 - 0.22934320248006843030e-7 * t5411 * t7315 + 0.11956556739800362265e-9 * t20626 * t7320 + 0.32081837695497572424e-4 * t5614 * t7283 - 0.18847076105403830297e-6 * t5601 * t7286 + t5526 - 0.52096347656250000000e0 * t5192 * t7289 + t5533 - 0.15298262646272094726e0 * t5458 * t7292 + t5537 - 0.25012500000000000000e0 * t20638 + 0.36539308523689270020e-1 * t5393 * t7199 - 0.18061955672203078866e-2 * t5483 * t7323 + 0.18269654261844635010e-2 * t20645;
6213   t20649 = t1496 * t1688 * t5214;
6214   t20651 = t1658 * t5202;
6215   t20654 = t1709 * t5206;
6216   t20657 = t1688 * t5202;
6217   t20660 = t1678 * t5206;
6218   t20670 = -t5554 - t5559 - 0.73078617047378540040e-3 * t20649 - t5562 + t5565 + t5569 - t5572 - t5576 + 0.90829247040420770644e-5 * t3812 * t20651 - 0.25951213440120220184e-5 * t3812 * t20654 - 0.73078617047378540040e-2 * t3835 * t20657 + 0.36539308523689270020e-2 * t3835 * t20660 - 0.29895797883018493653e-3 * t4088 * t4583 * t5252 - 0.86697387226574778556e-3 * t11453 * t20582 + 0.36123911344406157732e-3 * t3803 * t20572;
6219   t20677 = t1606 * t1882;
6220   t20679 = t1978 * t376 * t20677;
6221   t20682 = t1358 * t4737 * t6888;
6222   t20685 = t1991 * t385 * t20677;
6223   t20688 = t1372 * t4656 * t6888;
6224   t20694 = t2004 * t2005 * t20677;
6225   t20697 = t1386 * t4672 * t6888;
6226   t20703 = t2022 * t2023 * t20677;
6227   t20706 = t1404 * t4569 * t6888;
6228   t20713 = -0.14449564537762463093e-3 * t3803 * t20569 + 0.11164670401773881167e-4 * t4069 * t4737 * t5252 + 0.86504044800400733950e-6 * t20679 + 0.51274782585924491286e-6 * t20682 - 0.24810378670608624816e-7 * t20685 - 0.60612132084018085152e-8 * t20688 + 0.16340703176704875660e-7 * t5545 * t4672 * t5256 + 0.28667900310008553788e-9 * t20694 + 0.25389231595625460613e-10 * t20697 - 0.77939036526106065137e-10 * t5512 * t13628 * t5256 - 0.11808944928197888657e-11 * t20703 + 0.14109427490234375000e-2 * t20706 - 0.17094114074707031250e-2 * t5422 * t4576 * t5256 + t5620 - 0.10769757774516474456e-7 * t3844 * t20654;
6229   t20730 = t2036 * t412 * t20677;
6230   t20733 = t1329 * t4576 * t6888;
6231   t20739 = t1964 * t367 * t20677;
6232   t20742 = t1344 * t4583 * t6888;
6233   t20747 = t1678 * t5198;
6234   t20761 = 0.78116170700029033468e-9 * t4060 * t4672 * t5252 - 0.15628904296875000000e0 * t11464 * t1601 * t5198 + 0.10419269531250000000e0 * t3794 * t1668 * t5202 - 0.10419269531250000000e0 * t3794 * t1601 * t5206 + 0.11721678222656250000e-1 * t4049 * t4569 * t5252 - 0.81400543212890625000e-4 * t20730 + 0.14418005470196914673e-3 * t20733 - 0.22765271795047760010e-3 * t5463 * t4583 * t5256 - 0.75884239316825866699e-5 * t20739 - 0.17300808960080146790e-4 * t20742 + 0.33736577472156286241e-4 * t5498 * t4737 * t5256 + 0.16442688835660171509e-1 * t11443 * t20747 + 0.30596525292544189452e-1 * t3825 * t1678 * t5202 - 0.20397683528362792968e-1 * t3825 * t1668 * t5206 + 0.18439870153988685608e-2 * t4096 * t4576 * t5252 + 0.16040918847748786212e-4 * t11460 * t20563;
6235   t20776 = t1496 * t4576 * t1882;
6236   t20778 = t4576 * t1874;
6237   t20781 = t4583 * t1874;
6238   t20784 = t4737 * t1874;
6239   t20787 = -0.64163675390995144848e-5 * t3812 * t20566 + 0.21387891796998381616e-5 * t3812 * t20538 - 0.15922970915044751018e-6 * t4077 * t4656 * t5252 - 0.96927819970648270100e-7 * t11435 * t20542 + 0.37694152210807660595e-7 * t3844 * t20651 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.18269654261844635010e-3 * t20776 + 0.18269654261844635010e-2 * t3835 * t20778 - 0.72247822688812315463e-4 * t3803 * t20781 + 0.10693945898499190808e-5 * t3812 * t20784;
6240   t20788 = t4656 * t1874;
6241   t20795 = t7182 * t74 * t1602;
6242   t20797 = t5943 * t7189;
6243   t20800 = t1231 * t4395 * t1882;
6244   t20802 = t3825 * t20778;
6245   t20805 = t1526 * t4656 * t1882;
6246   t20808 = t1475 * t4402 * t1882;
6247   t20811 = t1486 * t4569 * t1882;
6248   t20829 = -0.53848788872582372278e-8 * t3844 * t20788 - 0.52096347656250000000e-1 * t3794 * t4402 * t1874 + 0.12506250000000000000e0 * t20795 - 0.12506250000000000000e0 * t20797 - 0.12506250000000000000e0 * t20800 + 0.97705078125000000000e-3 * t20802 - 0.28341467827674932778e-9 * t20805 - 0.13024086914062500000e-1 * t20808 - 0.14569773948830566406e-2 * t20811 + 0.43418162673565093428e-7 * t3844 * t4672 * t1874 - 0.57335800620017107576e-9 * t7314 * t13628 * t1874 + 0.26570126088445249478e-11 * t7318 * t3171 * t1606 * t1874 + 0.81400543212890625000e-4 * t3835 * t20781 + 0.94855299146032333374e-5 * t3803 * t20784 - 0.12975606720060110092e-5 * t3812 * t20788;
6249   t20832 = t1506 * t4583 * t1882;
6250   t20835 = t1516 * t4737 * t1882;
6251   t20837 = t793 * t7189;
6252   t20839 = t5458 * t7199;
6253   t20848 = t37 * t1874 * t607;
6254   t20851 = -0.55575248222163319587e-5 * t20832 + 0.66837161865619942547e-7 * t20835 - 0.62531250000000000000e0 * t20837 + 0.14655761718750000000e-1 * t20839 - 0.10198841764181396484e-1 * t3825 * t4569 * t1874 - 0.61193050585088378904e-1 * t11425 * t1668 * t5198 - t5623 + t5625 - t5627 + t5639 - t5640 - t5641 - 0.62531250000000000000e0 * t20848 - t5642 - 0.84355287480069324374e-6 * t20101;
6255   t20868 = 0.34734530138852074742e-6 * t20103 + 0.24221132544112205506e-4 * t20107 - 0.10380485376048088074e-4 * t20109 - 0.54321146669710287822e-10 * t20111 + 0.21256100870756199583e-10 * t20113 - 0.13024086914062500000e-2 * t20115 + 0.65120434570312500000e-3 * t20117 + 0.11467160124003421515e-7 * t20153 - 0.45868640496013686061e-8 * t20155 - 0.16694532649701690674e-3 * t20157 + 0.75884239316825866700e-4 * t20162 + 0.10663477270162693457e-8 * t20164 - 0.40622770553000736981e-9 * t20166 - 0.29197616334969279705e-9 * t20168 + 0.16931312988281250000e-1 * t20176 - 0.84656564941406250000e-2 * t20178;
6256   t20881 = t7257 * t67;
6257   t20884 = t7257 * t2445;
6258   t20887 = t7257 * t5184;
6259   t20890 = t2101 * t5188;
6260   t20899 = -0.56437709960937500000e-2 * t20180 + 0.25952409846354446411e-2 * t20183 - 0.11534404376157531738e-2 * t20185 - 0.25012500000000000000e0 * t19482 - 0.25012500000000000000e0 * t19485 - 0.12506250000000000000e1 * t19499 + 0.87418643692983398436e-2 * t20204 + 0.36539308523689270020e-2 * t20207 - 0.44916798152516694244e-8 * t11969 * t20881 + 0.58608391113281250000e-1 * t17769 * t20884 - 0.35165034667968750000e-1 * t11045 * t20887 + 0.23443356445312500000e-1 * t6256 * t20890 - 0.23443356445312500000e-1 * t11051 * t20881 + 0.14751896123190948486e-1 * t17764 * t20884 - 0.73759480615954742432e-2 * t11240 * t20887;
6261   t20927 = 0.36879740307977371216e-2 * t6201 * t20890 - 0.50709642923468885422e-2 * t11246 * t20881 - 0.66988022410643287002e-4 * t11929 * t20887 + 0.22329340803547762334e-4 * t6226 * t20890 - 0.47449849207538994960e-4 * t11002 * t20881 - 0.27069050555576076731e-5 * t17758 * t20884 + 0.11146079640531325713e-5 * t11958 * t20887 - 0.31845941830089502036e-6 * t6213 * t20890 + 0.79614854575223755090e-6 * t11903 * t20881 + 0.15623234140005806694e-7 * t17579 * t20884 - 0.62492936560023226774e-8 * t11963 * t20887 + 0.15623234140005806694e-8 * t6239 * t20890 - 0.79299030086083030702e-3 * t20209 - 0.41521941504192352296e-3 * t20211 + 0.17300808960080146790e-3 * t20213;
6262   t20936 = 0.12110566272056102753e-3 * t20215 + 0.15382434775777347386e-4 * t20217 - 0.61529739103109389542e-5 * t20219 - 0.43583565198035817592e-5 * t20221 - 0.21820367550246510654e-6 * t20224 + 0.84856984917625319210e-7 * t20226 + 0.60612132084018085150e-7 * t20228 + t7267 + t7268 - t7269 + t7270 - t7271 + t7272 - t7273 + t7274;
6263   t20937 = t7203 * t3473;
6264   t20938 = t2433 * t20937;
6265   t20942 = t4477 * t1874 * t30 * t16;
6266   t20943 = t14372 * t20942;
6267   t20945 = t7257 * t3473;
6268   t20946 = t19507 * t20945;
6269   t20948 = t2822 * t20937;
6270   t20962 = -t7277 + t7278 - t7279 - t7280 + t7281 - t7282 + 0.46898437500000000000e-1 * t20938 + 0.13678710937500000000e-1 * t20943 - 0.10991821289062500000e-2 * t20946 + 0.16390995692434387207e-2 * t20948 - 0.11397267701810837025e-6 * t20127 * t20945 + 0.17200740186005132273e-8 * t20131 * t20945 - 0.89674175548502716988e-11 * t20124 * t20945 - 0.12210081481933593750e-3 * t20098 * t20945 - 0.17785368589881062508e-4 * t20187 * t20945 + 0.29195115120135247707e-5 * t20190 * t20945;
6271   t20965 = t3210 * t20937;
6272   t20969 = t2806 * t20937;
6273   t20971 = t3198 * t20937;
6274   t20973 = t4477 * t19537;
6275   t20974 = t5251 * t20973;
6276   t20978 = t5654 * t20973;
6277   t20982 = t5671 * t20973;
6278   t20988 = t5677 * t20973;
6279   t20990 = t5683 * t20973;
6280   t20994 = t5661 * t20973;
6281   t20996 = -0.27404481392766952515e-3 * t20965 + 0.28283831684493832291e-5 * t15400 * t20942 + 0.10420359041655622423e-4 * t20969 - 0.15038361419764487073e-6 * t20971 + 0.11398925781250000000e-2 * t20974 + 0.21367642593383789062e-2 * t15463 * t20942 + 0.10175067901611328125e-3 * t20978 + 0.36993566666952610016e-3 * t15357 * t20942 + 0.12331188888984203339e-4 * t20982 - 0.67473154944312572482e-4 * t15433 * t20942 - 0.27404481392766952515e-2 * t8911 * t20945 - 0.17300808960080146790e-5 * t20988 + 0.58924649342695483938e-7 * t20990 - 0.44936933735938408065e-7 * t15372 * t20942 - 0.78836725852523522917e-9 * t20994;
6282   t20999 = t5707 * t20973;
6283   t21001 = t3206 * t20937;
6284   t21003 = t2814 * t20937;
6285   t21016 = 0.24355948914408145355e-9 * t15453 * t20942 + 0.36902952900618402053e-11 * t20999 + 0.74396353047646698542e-9 * t21001 + 0.97680651855468750000e-2 * t21003 - 0.54808962785533905030e-3 * t20237 + 0.11784929868539096788e-6 * t20240 - 0.15767345170504704583e-8 * t20242 + 0.24662377777968406678e-4 * t20244 - 0.34601617920160293580e-5 * t20246 + 0.73805905801236804106e-11 * t20248 + 0.20350135803222656250e-3 * t20250 + 0.20840718083311244844e-4 * t20252 - 0.30076722839528974145e-6 * t20254 + 0.14879270609529339708e-8 * t20256 + 0.19536130371093750000e-1 * t20258;
6286   t21024 = 0.32781991384868774414e-2 * t20260 - 0.13027343750000000000e-1 * t19513 + 0.78164062500000000000e-2 * t19516 + 0.10942968750000000000e0 * t19523 - 0.72953125000000000000e-1 * t19528 - 0.45595703125000000000e-1 * t19531 - t7298 + t7301 - t7304 - t7307 - t7310 + t7335 - t5647 + t5649 + t5652;
6287   t21025 = t4477 * t5214;
6288   t21026 = t4215 * t21025;
6289   t21028 = t7203 * t67;
6290   t21029 = t4219 * t21028;
6291   t21031 = t1597 * t5198;
6292   t21034 = t1597 * t5202;
6293   t21037 = t1597 * t5206;
6294   t21040 = t1597 * t5210;
6295   t21041 = t6271 * t21040;
6296   t21043 = t1597 * t5214;
6297   t21044 = t6274 * t21043;
6298   t21046 = t4477 * t5210;
6299   t21047 = t6278 * t21046;
6300   t21049 = t4204 * t21025;
6301   t21057 = t6249 * t21040;
6302   t21059 = t6253 * t21043;
6303   t21061 = t6256 * t21046;
6304   t21063 = t4133 * t21025;
6305   t21065 = -0.57672021880787658692e-3 * t21026 - 0.39649515043041515351e-3 * t21029 - 0.22765271795047760010e-2 * t17605 * t21031 + 0.11382635897523880005e-2 * t14752 * t21034 - 0.45530543590095520020e-3 * t6271 * t21037 - 0.83472663248508453369e-4 * t21041 + 0.37942119658412933350e-4 * t21044 - 0.20760970752096176148e-3 * t21047 + 0.86504044800400733950e-4 * t21049 - 0.17146588035743334330e-8 * t17779 * t21031 + 0.70145132873495458623e-9 * t15207 * t21034 - 0.15587807305221213027e-9 * t6249 * t21037 - 0.27160573334855143911e-10 * t21057 + 0.10628050435378099791e-10 * t21059 + 0.84656564941406250000e-2 * t21061 - 0.42328282470703125000e-2 * t21063;
6306   t21069 = t4137 * t21028;
6307   t21079 = -0.28218854980468750000e-2 * t21069 - 0.11965879852294921875e-1 * t17774 * t21031 + 0.68376456298828125000e-2 * t15255 * t21034 - 0.34188228149414062500e-2 * t6263 * t21037 - t7340 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + 0.93796875000000000000e-1 * t19534 + 0.22797851562500000000e-2 * t19539 + t2042 + t5690;
6308   t21080 = t5935 * t21040;
6309   t21082 = t5939 * t21043;
6310   t21084 = t16454 * t20884;
6311   t21086 = t10181 * t20887;
6312   t21088 = t5925 * t20890;
6313   t21090 = t10189 * t20881;
6314   t21092 = t16446 * t21031;
6315   t21094 = t14322 * t21034;
6316   t21096 = t5935 * t21037;
6317   t21098 = t5692 - t5694 + t5696 - t5698 + t5700 + t5712 - 0.65136718750000000000e-2 * t21080 + 0.39082031250000000000e-2 * t21082 + 0.14069531250000000000e0 * t21084 - 0.14069531250000000000e0 * t21086 + 0.14069531250000000000e0 * t21088 - 0.87934570312500000000e-1 * t21090 - 0.62531250000000000000e-1 * t21092 + 0.46898437500000000000e-1 * t21094 - 0.31265625000000000000e-1 * t21096;
6318   t21100 = t5925 * t21046;
6319   t21102 = t3442 * t21025;
6320   t21104 = t3448 * t21028;
6321   t21106 = t4208 * t21028;
6322   t21124 = t6201 * t21046;
6323   t21128 = 0.54714843750000000000e-1 * t21100 - 0.36476562500000000000e-1 * t21102 - 0.22797851562500000000e-1 * t21104 + 0.60552831360280513765e-4 * t21106 + 0.43857550713803172113e-3 * t17582 * t21031 - 0.20241946483293771745e-3 * t15169 * t21034 + 0.67473154944312572482e-4 * t6220 * t21037 - 0.32885377671320343018e-2 * t17598 * t20884 + 0.14947898941509246826e-2 * t10980 * t20887 - 0.59791595766036987306e-3 * t6278 * t20890 + 0.10463529259056472779e-2 * t10986 * t20881 + 0.15630538562483433634e-3 * t17588 * t20884 + 0.12976204923177223206e-2 * t21124 + 0.36476562500000000000e-1 * t19553 - 0.26054687500000000000e-2 * t19557;
6324   t21134 = -0.30397135416666666667e-1 * t19559 + 0.30397135416666666667e0 * t19561 + 0.25012500000000000000e0 * t19581 + t7345 - t7351 + t7354 - t7360 - t7363 + t7387 - t7388 - t7389 - t7390 + t7391 - t7393 - t7394 + 0.11473696984704071044e-1 * t8901 * t20945;
6325   t21153 = t3825 * t20660;
6326   t21156 = t1887 * t403 * t20677;
6327   t21159 = t3491 * t4402 * t5252;
6328   t21162 = t1231 * t1601 * t5214;
6329   t21165 = t5197 * t4569 * t5256;
6330   t21168 = t1254 * t4402 * t6888;
6331   t21170 = t11425 * t20747;
6332   t21172 = 0.13546466754152309149e-3 * t9012 * t20945 - 0.24061378271623179318e-5 * t9028 * t20945 + 0.14135307079052872723e-7 * t9036 * t20945 + 0.39072260742187500000e-1 * t9020 * t20945 + 0.33806428615645923615e-1 * t10577 * t7384 - 0.53076569716815836727e-5 * t10487 * t7375 + 0.29944532101677796163e-7 * t10495 * t7378 + 0.15628904296875000000e0 * t11353 * t7381 + 0.19541015625000000000e-2 * t21153 - 0.13027343750000000000e-2 * t21156 + 0.70347656250000000000e-1 * t21159 + 0.12506250000000000000e0 * t21162 - 0.15632812500000000000e-1 * t21165 + 0.18238281250000000000e-1 * t21168 + 0.58623046875000000000e-2 * t21170;
6333   t21181 = t253 * t1874 * t743 * t1598;
6334   t21183 = t6263 * t21040;
6335   t21185 = t6266 * t21043;
6336   t21193 = t6233 * t21040;
6337   t21195 = t6236 * t21043;
6338   t21197 = t6239 * t21046;
6339   t21199 = t4159 * t21025;
6340   t21201 = t4164 * t21028;
6341   t21203 = t6226 * t21046;
6342   t21205 = t4178 * t21025;
6343   t21207 = -0.19054370819027423859e-4 * t17749 * t21031 + 0.83362872333244979384e-5 * t14665 * t21034 - 0.23817963523784279824e-5 * t6206 * t21037 + 0.46898437500000000000e-1 * t21181 - 0.65120434570312500000e-3 * t21183 + 0.32560217285156250000e-3 * t21185 + 0.31047336035739263754e-6 * t17571 * t21031 - 0.13072562541363900528e-6 * t14761 * t21034 + 0.32681406353409751320e-7 * t6233 * t21037 + 0.57335800620017107576e-8 * t21193 - 0.22934320248006843030e-8 * t21195 + 0.53317386350813467287e-9 * t21197 - 0.20311385276500368490e-9 * t21199 - 0.14598808167484639852e-9 * t21201 + 0.76912173878886736929e-5 * t21203 - 0.30764869551554694772e-5 * t21205;
6344   t21209 = t4182 * t21028;
6345   t21211 = t6206 * t21040;
6346   t21213 = t6210 * t21043;
6347   t21215 = t6213 * t21046;
6348   t21217 = t4193 * t21025;
6349   t21219 = t4148 * t21028;
6350   t21221 = t6220 * t21040;
6351   t21223 = t6223 * t21043;
6352   t21225 = -0.21791782599017908797e-5 * t21209 - 0.42177643740034662187e-6 * t21211 + 0.17367265069426037371e-6 * t21213 - 0.10910183775123255327e-6 * t21215 + 0.42428492458812659606e-7 * t21217 + 0.30306066042009042576e-7 * t21219 + 0.12110566272056102753e-4 * t21221 - 0.51902426880240440370e-5 * t21223 + t7397 + t5715 - t5720 + t5723 + t5726 - t5729 - t5732;
6353   t21226 = t3825 * t20657;
6354   t21228 = t5735 + t5738 - t5741 - t5744 + t5747 - t5760 - 0.39082031250000000000e-2 * t21226 + t5762 - t5769 - t5779 + t7400 - t7403 - t7406 + t7412 + t7415 - t7421;
6355   t21235 = t5955 * t184 * t488;
6356   t21238 = t6362 * t1271;
6357   t21241 = t5110 * t1898;
6358   t21256 = t7198 - t7206 - 0.35e2 / 0.1536e4 * t20445 - 0.35e2 / 0.128e3 * t20447 + 0.175e3 / 0.768e3 * t20449 + 0.225e3 / 0.256e3 * t20492 - 0.3e1 / 0.16e2 * t20575 - t1885 - 0.3e1 / 0.8e1 * t20638 + 0.3e1 / 0.16e2 * t20795 - 0.3e1 / 0.16e2 * t20797 - 0.3e1 / 0.16e2 * t20800 + 0.3e1 / 0.2048e4 * t20802 - 0.15e2 / 0.16e2 * t20837 + 0.45e2 / 0.2048e4 * t20839 + t5213 - t5217;
6359   t21270 = -t5221 - 0.15e2 / 0.16e2 * t20848 - t5223 - 0.3e1 / 0.8e1 * t19482 - 0.3e1 / 0.8e1 * t19485 - 0.15e2 / 0.8e1 * t19499 + t7195 - t7202 + 0.9e1 / 0.128e3 * t20938 + 0.21e2 / 0.1024e4 * t20943 - 0.27e2 / 0.16384e5 * t20946 + 0.7e1 / 0.4096e4 * t20974 - 0.5e1 / 0.256e3 * t19513 + 0.3e1 / 0.256e3 * t19516 + 0.21e2 / 0.128e3 * t19523 - 0.7e1 / 0.64e2 * t19528 - 0.35e2 / 0.512e3 * t19531;
6360   t21283 = -t5239 + t5242 + t5249 - t7191 + 0.9e1 / 0.64e2 * t19534 + 0.7e1 / 0.2048e4 * t19539 + t1893 + t5263 - 0.5e1 / 0.512e3 * t21080 + 0.3e1 / 0.512e3 * t21082 + 0.27e2 / 0.128e3 * t21084 - 0.27e2 / 0.128e3 * t21086 + 0.27e2 / 0.128e3 * t21088 - 0.135e3 / 0.1024e4 * t21090 - 0.3e1 / 0.32e2 * t21092 + 0.9e1 / 0.128e3 * t21094 - 0.3e1 / 0.64e2 * t21096;
6361   t21301 = 0.21e2 / 0.256e3 * t21100 - 0.7e1 / 0.128e3 * t21102 - 0.35e2 / 0.1024e4 * t21104 + 0.7e1 / 0.128e3 * t19553 - t19557 / 0.256e3 - 0.35e2 / 0.768e3 * t19559 + 0.175e3 / 0.384e3 * t19561 + 0.3e1 / 0.8e1 * t19581 - t7188 + 0.3e1 / 0.1024e4 * t21153 - t21156 / 0.512e3 + 0.27e2 / 0.256e3 * t21159 + 0.3e1 / 0.16e2 * t21162 - 0.3e1 / 0.128e3 * t21165 + 0.7e1 / 0.256e3 * t21168 + 0.9e1 / 0.1024e4 * t21170 + 0.9e1 / 0.128e3 * t21181 - 0.3e1 / 0.512e3 * t21226;
6362   t21303 = t21256 + t21270 + t21283 + t21301;
6363   t21307 = t5110 * t1894;
6364   t21310 = t613 * t5265;
6365   t21311 = t21310 * t184;
6366   t21319 = t7207 * t184;
6367   t21320 = t21319 * t279;
6368   t21323 = t6362 * t1282;
6369   t21328 = t429 * t430 * t21303 * t184 - 0.4e1 * t1537 * t21235 - 0.4e1 * t1537 * t21238 - 0.2e1 * t1537 * t21307 - 0.2e1 * t1537 * t21311 - 0.2e1 * t1537 * t21320 - 0.2e1 * t1545 * t21238 - t1545 * t21307 - t1545 * t21311 + 0.6e1 * t4260 * t21241 + t4280 * t21241 + 0.12e2 * t4260 * t21323 + 0.12e2 * t4268 * t21323;
6370   t21329 = t7234 * t3293;
6371   t21332 = t1834 * t5283;
6372   t21340 = t1834 * t488 * t1271;
6373   t21358 = -t12070 * t21329 - 0.36e2 * t12075 * t21329 - 0.12e2 * t12084 * t21329 - 0.24e2 * t12092 * t21329 - 0.2e1 * t1545 * t21235 - t1545 * t21320 + 0.6e1 * t4268 * t21241 + 0.2e1 * t4280 * t21323 + 0.6e1 * t4260 * t21332 + 0.6e1 * t4268 * t21332 + t4280 * t21332 + 0.12e2 * t4260 * t21340 + 0.12e2 * t4268 * t21340 + 0.2e1 * t4280 * t21340;
6374   t21360 = my_piecewise3(t102, t21225 + t21228 + t21207 + t21172 + t21134 + t21128 + t21098 + t21079 + t21065 + t21024 + t21016 + t20996 + t20962 + t20936 + t20927 + t20899 + t20868 + t20851 + t20829 + t20787 + t20761 + t20465 + t20647 + t20541 + t20439 + t20616 + t20591 + t20670 + t20423 + t20579 + t20500 + t20713, t21328 + t21358);
6375   t21395 = 0.2e1 * t217 * t1908 * t1639 * t187 + 0.4e1 * t690 * t2128 * t1289 - 0.4e1 * t1582 * t1583 * t5297 + 0.8e1 * t1582 * t17908 * t498 + 0.8e1 * t1582 * t17912 * t498 - 0.2e1 * t217 * t1587 * t2056 - 0.2e1 * t217 * t1640 * t2056 + 0.12e2 * t4349 * t4356 * t1855 - 0.12e2 * t4349 * t4360 * t1855 - 0.2e1 * t217 * t498 * t6374 - 0.2e1 * t217 * t620 * t5806 + 0.2e1 * t690 * t7252 * t290 + 0.4e1 * t690 * t7254 * t290 - t101 * t21360 + 0.8e1 * t4353 * t7165;
6376   t21401 = t2120 * t588;
6377   t21405 = t619 * t2056;
6378   t21438 = t690 * t1908;
6379   t21444 = 0.4e1 * t217 * t1286 * t2120 * t187 + 0.2e1 * t217 * t287 * t7238 * t187 + 0.4e1 * t217 * t495 * t5988 * t187 + 0.8e1 * t1582 * t5996 * t1289 - 0.4e1 * t217 * t2090 * t1548 - 0.4e1 * t217 * t2121 * t1548 - 0.4e1 * t1582 * t4356 * t1911 + 0.4e1 * t1582 * t4360 * t1911 + 0.8e1 * t1582 * t21401 * t290 + 0.4e1 * t1582 * t21405 * t290 - 0.4e1 * t217 * t5989 * t588 + 0.12e2 * t14125 * t7157 - 0.4e1 * t21438 * t1584 - 0.4e1 * t4353 * t7168 - 0.8e1 * t5873 * t5864;
6380   t21481 = -t283 * t21303 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t614 * t5287 - 0.3e1 / 0.50e2 * t2106 * t5271 - 0.3e1 / 0.50e2 * t2106 * t1283 - 0.3e1 / 0.50e2 * t5956 * t2110 - 0.3e1 / 0.100e3 * t7208 * t1276 - t2603 * t1626 * t1898 * t91 / 0.100e3 + t823 * t21310 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t1627 * t1905 + 0.3e1 / 0.50e2 * t1627 * t7220 - 0.3e1 / 0.100e3 * t614 * t87 * t5265 * t91 + t823 * t1626 * t1894 * t91 / 0.100e3 + t823 * t2105 * t1271 * t91 / 0.50e2;
6381   t21518 = t823 * t5955 * t488 * t91 / 0.50e2 - 0.3e1 / 0.100e3 * t614 * t5284 - 0.3e1 / 0.100e3 * t1627 * t7216 + t50 * t21303 * t91 / 0.100e3 + t823 * t7207 * t279 * t91 / 0.100e3 - t16297 * t5291 / 0.10e2 + 0.3e1 / 0.25e2 * t5967 * t5287 + 0.3e1 / 0.25e2 * t2106 * t89 * t1283 + 0.3e1 / 0.20e2 * t614 * t1898 * t1276 + 0.3e1 / 0.50e2 * t5967 * t5284 - t5985 * t5287 / 0.50e2 + t16302 * t5291 / 0.100e3 - t2603 * t2105 * t1283 / 0.50e2 - t5985 * t5284 / 0.100e3;
6382   t21549 = t7238 * t187;
6383   t21564 = 0.2e1 * t217 * t94 * (t21481 + t21518) * t187 - 0.4e1 * t217 * t5880 * t588 - 0.4e1 * t217 * t5876 * t588 - 0.4e1 * t217 * t7175 * t434 + 0.8e1 * t1582 * t16611 * t498 - 0.8e1 * t1582 * t5887 * t1289 - 0.8e1 * t1582 * t16599 * t498 - 0.2e1 * t217 * t7171 * t434 - 0.8e1 * t5873 * t5888 + 0.8e1 * t5873 * t5997 - 0.4e1 * t1582 * t21549 * t290 - 0.8e1 * t4353 * t7162 + 0.8e1 * t5873 * t5867 - 0.4e1 * t217 * t5891 * t588 - 0.2e1 * t217 * t7239 * t434 + 0.1174e1 * t21360;
6384   t21580 = t596 * t7453 * t1185;
6385   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6386     v4rhosigma2tau[0] = -t1202 * t7450 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t213 * (t20400 + t21395 + t21444 + t21564) * t205 - 0.24739500000000000000e1 * t447 * t448 * t7448 * t456 + 0.18554625000000000000e1 * t596 * t7 * t6378 * t602 + 0.22265550000000000000e2 * t21580 * t1569 - 0.30203104535893596324e2 * t5 * t7453 * t1573 * t1577 - 0.41747906250000000000e1 * t17960 * t2071 - 0.83495812500000000000e2 * t17968 * t5835 + 0.11627420070069735493e0 * t17972 * t5840 - 0.46386562500000000000e0 * t6388 * t2076 + 0.22652328401920197244e2 * t7462 * t1577 + 0.56630821004800493110e1 * t5 * t6387 * t2080 * t2084 - 0.22712451511732312500e2 * t2207 * t5853;
6387 
6388   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6389     v4rhosigmalapl2[0] = 0.0e0;
6390 
6391   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6392     v4rhosigmalapltau[0] = 0.0e0;
6393 
6394   t21610 = t7481 * t290;
6395   t21632 = t4356 * t2120;
6396   t21654 = t4360 * t2120;
6397   t21657 = -0.2e1 * t217 * t2210 * t1548 - t217 * t1289 * t2328 + 0.4e1 * t690 * t21610 - t217 * t290 * t7710 - 0.4e1 * t4353 * t7484 + 0.48e2 * t6401 * t1583 * t498 * t1639 - 0.96e2 * t17988 * t2215 * t5858 + 0.48e2 * t4349 * t2215 * t498 * t287 + 0.48e2 * t6401 * t1583 * t2120 * t290 - 0.16e2 * t6408 * t21632 - 0.32e2 * t1582 * t1583 * t5880 - 0.32e2 * t1582 * t1583 * t5891 + 0.48e2 * t4349 * t2215 * t495 * t290 + 0.2e1 * t217 * t495 * t6506 * t187 - 0.24e2 * t6401 * t21610 + 0.16e2 * t1582 * t7481 * t287 + 0.16e2 * t6408 * t21654;
6398   t21662 = t2215 * t1289;
6399   t21665 = t6419 * t498;
6400   t21673 = t1583 * t5988;
6401   t21687 = t2120 * t666;
6402   t21691 = t619 * t2198;
6403   t21698 = t5996 * t1639;
6404   t21706 = -0.16e2 * t1582 * t2215 * t1286 + 0.8e1 * t1582 * t21687 * t290 + 0.8e1 * t1582 * t21691 * t290 + 0.16e2 * t1582 * t6419 * t495 - t217 * t498 * t6837 - 0.4e1 * t217 * t5891 * t666 + 0.2e1 * t690 * t7558 * t290 - 0.8e1 * t19127 * t5864 - 0.8e1 * t19127 * t5888 - 0.4e1 * t217 * t21654 + 0.24e2 * t6401 * t21662 - 0.24e2 * t6401 * t21665 + 0.4e1 * t217 * t21673 - 0.16e2 * t6408 * t21673 - 0.4e1 * t217 * t21698 - 0.16e2 * t4353 * t7468 - 0.4e1 * t5873 * t6423 + 0.8e1 * t5873 * t6515;
6405   t21721 = t2243 * t588;
6406   t21753 = t7538 * t187;
6407   t21759 = -0.4e1 * t217 * t5989 * t666 + 0.2e1 * t217 * t287 * t7538 * t187 - 0.2e1 * t217 * t7487 * t434 + 0.4e1 * t1582 * t19284 * t498 + 0.4e1 * t1582 * t21721 * t290 + 0.8e1 * t1582 * t19139 * t498 + 0.8e1 * t1582 * t19123 * t498 + 0.12e2 * t4349 * t6422 * t5858 - 0.2e1 * t217 * t6507 * t588 - 0.4e1 * t217 * t620 * t6374 - 0.4e1 * t217 * t1640 * t2198 + 0.8e1 * t4353 * t7546 + 0.8e1 * t1582 * t6514 * t1289 + 0.8e1 * t690 * t2211 * t1548 + 0.4e1 * t217 * t21632 - 0.4e1 * t1582 * t21753 * t290 + 0.4e1 * t690 * t21665;
6408   t21784 = t2229 * t1271;
6409   t21788 = t6479 * t488;
6410   t21799 = t37 * t476 * t2219;
6411   t21805 = t38 * t1245 * t2219;
6412   t21810 = t7501 - t7507 - 0.35e2 / 0.768e3 * t20445 + 0.175e3 / 0.384e3 * t20449 - t1885 - 0.15e2 / 0.16e2 * t21799 - 0.3e1 / 0.8e1 * t20797 - 0.3e1 / 0.8e1 * t20800 - 0.15e2 / 0.8e1 * t20837 + t5213 - t5217 - t5221 - 0.3e1 / 0.16e2 * t21805 - t5223 - 0.3e1 / 0.16e2 * t19482 - 0.3e1 / 0.16e2 * t19485 - 0.15e2 / 0.16e2 * t19499;
6413   t21813 = t6456 * t1255;
6414   t21814 = t16446 * t21813;
6415   t21816 = t6456 * t1264;
6416   t21817 = t14322 * t21816;
6417   t21819 = t1597 * t5916;
6418   t21820 = t5935 * t21819;
6419   t21824 = t253 * t476 * t743 * t6457;
6420   t21826 = t6460 * t1255;
6421   t21827 = t16454 * t21826;
6422   t21829 = t6460 * t1264;
6423   t21830 = t10181 * t21829;
6424   t21832 = t4477 * t5916;
6425   t21833 = t5925 * t21832;
6426   t21835 = t7628 * t67;
6427   t21836 = t10189 * t21835;
6428   t21843 = t7503 - t7508 + 0.9e1 / 0.64e2 * t20938 + 0.7e1 / 0.2048e4 * t20974 - 0.3e1 / 0.32e2 * t21814 + 0.9e1 / 0.128e3 * t21817 - 0.3e1 / 0.64e2 * t21820 + 0.9e1 / 0.128e3 * t21824 + 0.27e2 / 0.128e3 * t21827 - 0.27e2 / 0.128e3 * t21830 + 0.27e2 / 0.128e3 * t21833 - 0.135e3 / 0.1024e4 * t21836 - 0.5e1 / 0.512e3 * t19513 + 0.3e1 / 0.512e3 * t19516 + 0.21e2 / 0.256e3 * t19523 - 0.7e1 / 0.128e3 * t19528 - 0.35e2 / 0.1024e4 * t19531;
6429   t21845 = t5458 * t7504;
6430   t21847 = t6460 * t5899;
6431   t21848 = t14372 * t21847;
6432   t21850 = t7628 * t3473;
6433   t21851 = t19507 * t21850;
6434   t21853 = t14534 * t7498;
6435   t21855 = t10098 * t7494;
6436   t21859 = t2290 * t1245;
6437   t21860 = t3825 * t21859;
6438   t21862 = t20637 * t6464;
6439   t21864 = t20637 * t6467;
6440   t21867 = 0.45e2 / 0.2048e4 * t21845 + 0.21e2 / 0.1024e4 * t21848 - 0.27e2 / 0.16384e5 * t21851 - t5239 + t5242 + t5249 - t7497 - 0.35e2 / 0.128e3 * t21853 + 0.225e3 / 0.256e3 * t21855 + 0.9e1 / 0.128e3 * t19534 + 0.7e1 / 0.4096e4 * t19539 + t1893 + t5263 + 0.3e1 / 0.2048e4 * t21860 + 0.3e1 / 0.16e2 * t21862 - 0.3e1 / 0.8e1 * t21864 - 0.5e1 / 0.256e3 * t21080;
6441   t21872 = t2290 * t1255;
6442   t21873 = t11425 * t21872;
6443   t21875 = t2254 * t1264;
6444   t21876 = t3825 * t21875;
6445   t21878 = t1678 * t5916;
6446   t21879 = t3825 * t21878;
6447   t21882 = t3491 * t2222 * t5188;
6448   t21885 = t5197 * t2282 * t3465;
6449   t21895 = 0.3e1 / 0.256e3 * t21082 + 0.21e2 / 0.128e3 * t21100 - 0.7e1 / 0.64e2 * t21102 - 0.35e2 / 0.512e3 * t21104 + 0.9e1 / 0.1024e4 * t21873 - 0.3e1 / 0.512e3 * t21876 + 0.3e1 / 0.1024e4 * t21879 + 0.27e2 / 0.256e3 * t21882 - 0.3e1 / 0.128e3 * t21885 + 0.7e1 / 0.256e3 * t19553 - t19557 / 0.512e3 - 0.35e2 / 0.1536e4 * t19559 + 0.175e3 / 0.768e3 * t19561 + 0.3e1 / 0.16e2 * t19581 - t7502 - t21156 / 0.256e3 + 0.3e1 / 0.8e1 * t21162 + 0.7e1 / 0.128e3 * t21168;
6450   t21897 = t21810 + t21843 + t21867 + t21895;
6451   t21906 = -0.3e1 / 0.100e3 * t2234 * t1279 - 0.3e1 / 0.50e2 * t1627 * t7515 + 0.3e1 / 0.50e2 * t2234 * t19607 - 0.3e1 / 0.50e2 * t614 * t5978 - 0.3e1 / 0.50e2 * t614 * t816 * t5955 - 0.3e1 / 0.50e2 * t614 * t5974 + t823 * t1632 * t2105 / 0.50e2 + t823 * t21784 * t91 / 0.100e3 + t823 * t21788 * t91 / 0.100e3 + t823 * t7509 * t279 * t91 / 0.100e3 + t50 * t21897 * t91 / 0.100e3 + t823 * t616 * t5955 / 0.50e2 - 0.3e1 / 0.100e3 * t2230 * t5271;
6452   t21913 = t2233 * t1271;
6453   t21924 = t2603 * t2229;
6454   t21935 = t2230 * t89;
6455   t21943 = -0.3e1 / 0.100e3 * t2230 * t1283 - 0.3e1 / 0.100e3 * t6480 * t2110 - 0.3e1 / 0.100e3 * t7510 * t1276 - t2603 * t21913 * t91 / 0.100e3 + t8402 * t2233 * t1283 / 0.100e3 - t5985 * t5974 / 0.50e2 - t5985 * t5978 / 0.50e2 - t21924 * t1283 / 0.100e3 + 0.3e1 / 0.25e2 * t5967 * t5978 - t2234 * t822 * t1283 / 0.10e2 + 0.3e1 / 0.20e2 * t2234 * t488 * t1276 + 0.3e1 / 0.50e2 * t21935 * t1283 + 0.3e1 / 0.25e2 * t5967 * t5974 - t283 * t21897 * t91 / 0.100e3;
6456   t21980 = 0.16280108642578125000e-2 * t5393 * t7578 + 0.32081837695497572424e-4 * t5614 * t7595 + 0.23713824786508083344e-3 * t5483 * t7595 - 0.22934320248006843030e-7 * t5411 * t7565 - 0.18847076105403830297e-6 * t5601 * t7568 + 0.11956556739800362265e-9 * t20626 * t7572 - 0.52096347656250000000e0 * t5192 * t7575 + 0.31047336035739263754e-6 * t17571 * t21813 + t7560 - t7561 + 0.20051148559685982764e-5 * t19667 - 0.99195137396862264723e-8 * t19669 - 0.60612132084018085152e-8 * t19680 + 0.25389231595625460613e-10 * t19683 + 0.18812569986979166667e-1 * t19698;
6457   t21996 = 0.26433010028694343567e-2 * t19700 + 0.10511563447003136389e-7 * t19702 - 0.16441585185312271118e-3 * t19704 + 0.23067745280106862387e-4 * t19706 - 0.49203937200824536071e-10 * t19708 - 0.13566757202148437500e-2 * t19710 - 0.78566199123593978584e-6 * t19712 - 0.40368554240187009177e-3 * t19715 + 0.14527855066011939198e-4 * t19717 - 0.20204044028006028384e-6 * t19719 + 0.97325387783230932350e-9 * t19721 - 0.73078617047378540040e-3 * t19724 + 0.14109427490234375000e-2 * t19727 + 0.14418005470196914673e-3 * t19730 - 0.17300808960080146790e-4 * t19733;
6458   t22010 = 0.51274782585924491286e-6 * t19736 + 0.19839027479372452945e-8 * t19743 - 0.13024086914062500000e0 * t19788 - 0.21854660923245849609e-1 * t19790 - 0.13893812055540829897e-3 * t19798 + 0.36539308523689270020e-2 * t19801 - 0.55575248222163319587e-5 * t19865 + 0.66837161865619942547e-7 * t19869 - 0.28341467827674932778e-9 * t19872 + t5360 - t5362 - t5368 + 0.21387891796998381614e-5 * t20443 - 0.30397135416666666667e-1 * t20445 + 0.30397135416666666667e0 * t20449;
6459   t22027 = 0.52866020057388687134e-2 * t20457 - 0.32883170370624542237e-3 * t20461 - 0.80737108480374018353e-3 * t20463 - 0.98407874401649072142e-10 * t20468 + 0.37625139973958333333e-1 * t20470 - 0.27133514404296875000e-2 * t20474 + 0.21023126894006272778e-7 * t20478 + 0.19465077556646186470e-8 * t20480 + 0.29055710132023878395e-4 * t20482 - 0.15713239824718795717e-5 * t20484 - 0.40408088056012056767e-6 * t20486 + 0.46135490560213724773e-4 * t20488 + 0.52096347656250000000e-1 * t20495 - 0.20397683528362792968e-1 * t20498 + 0.87418643692983398436e-2 * t20504 - 0.14449564537762463092e-3 * t20514;
6460   t22038 = 0.55575248222163319585e-4 * t20517 - 0.10419269531250000000e0 * t20520 - 0.80204594238743931054e-6 * t20530 - 0.10769757774516474456e-7 * t20533 + 0.39678054958744905889e-8 * t20536 + t5379 - t5382 - t5386 + t5399 - 0.13024086914062500000e-1 * t19932 - 0.14569773948830566406e-2 * t19935 + 0.18269654261844635010e-3 * t19940 - t1918 + t5431 - t5434;
6461   t22050 = -t5438 - t5489 + t5492 + t5496 - 0.81400543212890625000e-4 * t19969 - 0.24810378670608624816e-7 * t20003 + 0.28667900310008553788e-9 * t20006 - 0.75884239316825866699e-5 * t20010 + 0.86504044800400733950e-6 * t20013 - 0.11808944928197888657e-11 * t20016 - 0.72247822688812315463e-4 * t20062 + 0.27787624111081659794e-4 * t20065 + 0.10693945898499190808e-5 * t20068 - 0.40102297119371965528e-6 * t20071 - 0.53848788872582372278e-8 * t20074;
6462   t22062 = -0.52096347656250000000e-1 * t20081 + 0.26048173828125000000e-1 * t20084 - 0.10198841764181396484e-1 * t20087 - 0.19839027479372452945e-7 * t20600 - 0.26048173828125000000e0 * t20602 - 0.43709321846491699218e-1 * t20604 - 0.27787624111081659792e-3 * t20608 + 0.40102297119371965527e-5 * t20610 + 0.73078617047378540040e-2 * t20612 + t5526 + t5533 + t5537 + 0.36539308523689270020e-2 * t20645 - t5554 - t5559;
6463   t22073 = -0.14615723409475708008e-2 * t20649 - t5562 + t5565 + t5569 - t5572 - t5576 + 0.17300808960080146790e-5 * t20679 + 0.10254956517184898257e-5 * t20682 - 0.49620757341217249632e-7 * t20685 - 0.12122426416803617030e-7 * t20688 + 0.57335800620017107576e-9 * t20694 + 0.50778463191250921226e-10 * t20697 - 0.23617889856395777314e-11 * t20703 + 0.28218854980468750000e-2 * t20706 + t5620 - 0.16280108642578125000e-3 * t20730;
6464   t22091 = 0.28836010940393829346e-3 * t20733 - 0.15176847863365173340e-4 * t20739 - 0.34601617920160293580e-4 * t20742 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 - 0.62531250000000000000e0 * t21799 - 0.20241946483293771745e-3 * t15169 * t21816 + 0.67473154944312572482e-4 * t6220 * t21819 - 0.34188228149414062500e-2 * t6263 * t21819 + 0.14751896123190948486e-1 * t17764 * t21826 - 0.73759480615954742432e-2 * t11240 * t21829;
6465   t22113 = 0.36879740307977371216e-2 * t6201 * t21832 - 0.50709642923468885422e-2 * t11246 * t21835 + 0.15630538562483433634e-3 * t17588 * t21826 - 0.66988022410643287002e-4 * t11929 * t21829 + 0.36539308523689270020e-3 * t20776 - 0.25012500000000000000e0 * t20797 - 0.25012500000000000000e0 * t20800 - 0.56682935655349865556e-9 * t20805 - 0.26048173828125000000e-1 * t20808 - 0.29139547897661132812e-2 * t20811 - 0.11115049644432663917e-4 * t20832 + 0.13367432373123988509e-6 * t20835 - 0.12506250000000000000e1 * t20837 - 0.13072562541363900528e-6 * t14761 * t21816 + 0.32681406353409751320e-7 * t6233 * t21819;
6466   t22139 = 0.15623234140005806694e-7 * t17579 * t21826 - 0.62492936560023226774e-8 * t11963 * t21829 + 0.15623234140005806694e-8 * t6239 * t21832 - 0.44916798152516694244e-8 * t11969 * t21835 - 0.22765271795047760010e-2 * t17605 * t21813 + 0.11382635897523880005e-2 * t14752 * t21816 - 0.45530543590095520020e-3 * t6271 * t21819 - 0.32885377671320343018e-2 * t17598 * t21826 + 0.14947898941509246826e-2 * t10980 * t21829 - 0.59791595766036987306e-3 * t6278 * t21832 + 0.10463529259056472779e-2 * t10986 * t21835 + 0.43857550713803172113e-3 * t17582 * t21813 - t5623 + t5625 - t5627;
6467   t22152 = t5639 - t5640 - t5641 - 0.12506250000000000000e0 * t21805 - t5642 - 0.42177643740034662187e-6 * t20101 + 0.17367265069426037371e-6 * t20103 + 0.12110566272056102753e-4 * t20107 - 0.51902426880240440370e-5 * t20109 - 0.27160573334855143911e-10 * t20111 + 0.10628050435378099791e-10 * t20113 - 0.65120434570312500000e-3 * t20115 + 0.32560217285156250000e-3 * t20117 + 0.57335800620017107576e-8 * t20153 - 0.22934320248006843030e-8 * t20155 - 0.83472663248508453369e-4 * t20157;
6468   t22170 = 0.37942119658412933350e-4 * t20162 + 0.53317386350813467287e-9 * t20164 - 0.20311385276500368490e-9 * t20166 - 0.14598808167484639852e-9 * t20168 + 0.84656564941406250000e-2 * t20176 - 0.42328282470703125000e-2 * t20178 - 0.28218854980468750000e-2 * t20180 + 0.12976204923177223206e-2 * t20183 - 0.57672021880787658692e-3 * t20185 - 0.12506250000000000000e0 * t19482 - 0.12506250000000000000e0 * t19485 - 0.62531250000000000000e0 * t19499 + 0.43709321846491699218e-2 * t20204 + 0.18269654261844635010e-2 * t20207 - 0.39649515043041515351e-3 * t20209;
6469   t22180 = -0.20760970752096176148e-3 * t20211 + 0.86504044800400733950e-4 * t20213 + 0.60552831360280513765e-4 * t20215 + 0.76912173878886736929e-5 * t20217 - 0.30764869551554694772e-5 * t20219 - 0.21791782599017908797e-5 * t20221 - 0.10910183775123255327e-6 * t20224 + 0.42428492458812659606e-7 * t20226 + 0.30306066042009042576e-7 * t20228 + t7638 + t7639 - t7640 + t7641 - t7642 + t7643;
6470   t22190 = -t7644 + t7648 - t7649 + t7650 - t7651 - t7652 + t7653 - t7654 + 0.93796875000000000000e-1 * t20938 + 0.32781991384868774414e-2 * t20948 - 0.54808962785533905030e-3 * t20965 + 0.20840718083311244844e-4 * t20969 - 0.30076722839528974145e-6 * t20971 + 0.22797851562500000000e-2 * t20974 + 0.24355948914408145355e-9 * t15453 * t21847;
6471   t22223 = 0.21367642593383789062e-2 * t15463 * t21847 + 0.28283831684493832291e-5 * t15400 * t21847 - 0.44936933735938408065e-7 * t15372 * t21847 + 0.17200740186005132273e-8 * t20131 * t21850 + 0.14135307079052872723e-7 * t9036 * t21850 - 0.89674175548502716988e-11 * t20124 * t21850 + 0.39072260742187500000e-1 * t9020 * t21850 - 0.12210081481933593750e-3 * t20098 * t21850 + 0.11473696984704071044e-1 * t8901 * t21850 - 0.27404481392766952515e-2 * t8911 * t21850 + 0.29195115120135247707e-5 * t20190 * t21850 + 0.13546466754152309149e-3 * t9012 * t21850 - 0.11397267701810837025e-6 * t20127 * t21850 + 0.36993566666952610016e-3 * t15357 * t21847 - 0.67473154944312572482e-4 * t15433 * t21847 - 0.24061378271623179318e-5 * t9028 * t21850;
6472   t22244 = -0.17785368589881062508e-4 * t20187 * t21850 + 0.20350135803222656250e-3 * t20978 + 0.24662377777968406678e-4 * t20982 - 0.34601617920160293580e-5 * t20988 + 0.11784929868539096788e-6 * t20990 - 0.15767345170504704583e-8 * t20994 + 0.73805905801236804106e-11 * t20999 + 0.14879270609529339708e-8 * t21001 + 0.19536130371093750000e-1 * t21003 - 0.62531250000000000000e-1 * t21814 + 0.46898437500000000000e-1 * t21817 - 0.31265625000000000000e-1 * t21820 + 0.46898437500000000000e-1 * t21824 + 0.14069531250000000000e0 * t21827 - 0.14069531250000000000e0 * t21830;
6473   t22260 = 0.14069531250000000000e0 * t21833 - 0.87934570312500000000e-1 * t21836 - 0.27404481392766952515e-3 * t20237 + 0.58924649342695483938e-7 * t20240 - 0.78836725852523522917e-9 * t20242 + 0.12331188888984203339e-4 * t20244 - 0.17300808960080146790e-5 * t20246 + 0.36902952900618402053e-11 * t20248 + 0.10175067901611328125e-3 * t20250 + 0.10420359041655622423e-4 * t20252 - 0.15038361419764487073e-6 * t20254 + 0.74396353047646698542e-9 * t20256 + 0.97680651855468750000e-2 * t20258 + 0.16390995692434387207e-2 * t20260 - 0.65136718750000000000e-2 * t19513;
6474   t22277 = 0.39082031250000000000e-2 * t19516 + 0.54714843750000000000e-1 * t19523 - 0.36476562500000000000e-1 * t19528 - 0.22797851562500000000e-1 * t19531 + 0.14655761718750000000e-1 * t21845 - 0.15298262646272094726e0 * t5458 * t7581 + 0.36539308523689270020e-1 * t5393 * t7504 - 0.38926820160180330276e-4 * t5614 * t7568 - 0.18061955672203078866e-2 * t5483 * t7578 + 0.15196356935747782700e-5 * t5601 * t7590 - t7656 + t7657 - t7659 - t7660 - t7661;
6475   t22300 = t7662 + 0.13678710937500000000e-1 * t21848 - 0.10991821289062500000e-2 * t21851 - t5647 + t5649 + t5652 - 0.37711775579325109721e-4 * t14789 * t7615 - 0.53076569716815836727e-5 * t10487 * t7618 + 0.59915911647917877420e-6 * t14872 * t7621 - 0.32474598552544193807e-8 * t14949 * t7600 + 0.15628904296875000000e0 * t11353 * t7603 - 0.28490190124511718750e-1 * t15874 * t7606 + 0.29944532101677796163e-7 * t10495 * t7625 - 0.49324755555936813355e-2 * t14886 * t7629 - 0.69756861727043151857e-2 * t10523 * t7632 + 0.89964206592416763309e-3 * t15793 * t7635;
6476   t22318 = 0.33806428615645923615e-1 * t10577 * t7609 + 0.31633232805025996640e-3 * t10509 * t7612 - 0.11534404376157531738e-2 * t21026 - 0.79299030086083030702e-3 * t21029 - 0.16694532649701690674e-3 * t21041 + 0.75884239316825866700e-4 * t21044 - 0.41521941504192352296e-3 * t21047 + 0.17300808960080146790e-3 * t21049 - 0.54321146669710287822e-10 * t21057 + 0.21256100870756199583e-10 * t21059 + 0.16931312988281250000e-1 * t21061 - 0.84656564941406250000e-2 * t21063 - 0.56437709960937500000e-2 * t21069 - t7663 + t1961;
6477   t22323 = -t1975 + t1988 - t2001 + t2015 + t2033 - 0.18238281250000000000e0 * t21853 + 0.58623046875000000000e0 * t21855 + 0.46898437500000000000e-1 * t19534 + 0.11398925781250000000e-2 * t19539 + t2042 + t5690 + t5692 - t5694 + t5696 - t5698;
6478   t22325 = t2254 * t1245;
6479   t22331 = t2261 * t1245;
6480   t22339 = t2268 * t1245;
6481   t22358 = t5700 + t5712 - 0.72247822688812315463e-4 * t3803 * t22325 + 0.43418162673565093428e-7 * t3844 * t2275 * t1245 + 0.10693945898499190808e-5 * t3812 * t22331 + 0.94855299146032333374e-5 * t3803 * t22331 - 0.57335800620017107576e-9 * t7314 * t6672 * t1245 - 0.53848788872582372278e-8 * t3844 * t22339 + 0.26570126088445249478e-11 * t7318 * t7571 * t1245 - 0.52096347656250000000e-1 * t3794 * t2222 * t1245 + 0.81400543212890625000e-4 * t3835 * t22325 - 0.10198841764181396484e-1 * t3825 * t2282 * t1245 + 0.18269654261844635010e-2 * t3835 * t21859 - 0.12975606720060110092e-5 * t3812 * t22339 + 0.97705078125000000000e-3 * t21860;
6482   t22368 = t2261 * t1264;
6483   t22371 = t1709 * t5916;
6484   t22374 = t2254 * t1255;
6485   t22379 = t1688 * t5916;
6486   t22388 = 0.12506250000000000000e0 * t21862 - 0.25012500000000000000e0 * t21864 - 0.13027343750000000000e-1 * t21080 + 0.78164062500000000000e-2 * t21082 + 0.10942968750000000000e0 * t21100 - 0.72953125000000000000e-1 * t21102 - 0.45595703125000000000e-1 * t21104 + 0.12110566272056102753e-3 * t21106 + 0.25952409846354446411e-2 * t21124 - 0.40700271606445312500e-3 * t3835 * t22368 - 0.25951213440120220184e-5 * t3812 * t22371 - 0.86697387226574778556e-3 * t11453 * t22374 + 0.36123911344406157732e-3 * t3803 * t22368 - 0.14449564537762463093e-3 * t3803 * t22379 + 0.78152692812417168170e-6 * t11435 * t2275 * t1255 - 0.34734530138852074742e-6 * t3844 * t6672 * t1264;
6487   t22395 = t2261 * t1255;
6488   t22398 = t2268 * t1264;
6489   t22401 = t1699 * t5916;
6490   t22415 = t2268 * t1255;
6491   t22418 = t2275 * t1264;
6492   t22426 = t8799 * t2218;
6493   t22436 = 0.86836325347130186856e-7 * t3844 * t1658 * t5916 + 0.16040918847748786212e-4 * t11460 * t22395 - 0.64163675390995144848e-5 * t3812 * t22398 + 0.21387891796998381616e-5 * t3812 * t22401 + 0.11382635897523880005e-3 * t11453 * t22395 - 0.12040518130203592591e-7 * t19810 * t6672 * t1255 + 0.51602220558015396818e-8 * t7314 * t7571 * t1264 - 0.11467160124003421515e-8 * t7314 * t4848 * t5916 - 0.96927819970648270100e-7 * t11435 * t22415 + 0.37694152210807660595e-7 * t3844 * t22418 - 0.10769757774516474456e-7 * t3844 * t22371 + 0.63768302612268598747e-10 * t19838 * t7571 * t1255 - 0.26570126088445249478e-10 * t7318 * t22426 * t1264 + 0.53140252176890498956e-11 * t7318 * t7319 * t5916 - 0.15628904296875000000e0 * t11464 * t2222 * t1255;
6494   t22474 = 0.10419269531250000000e0 * t3794 * t2282 * t1264 - 0.10419269531250000000e0 * t3794 * t1601 * t5916 + 0.73260488891601562500e-3 * t11443 * t22374 + 0.58623046875000000000e-2 * t21873 - 0.39082031250000000000e-2 * t21876 + 0.19541015625000000000e-2 * t21879 + 0.70347656250000000000e-1 * t21882 - 0.22765271795047760010e-3 * t5463 * t367 * t2218 * t1245 - 0.29895797883018493653e-3 * t4088 * t2254 * t5188 + 0.33736577472156286241e-4 * t5498 * t2261 * t3465 - 0.77939036526106065137e-10 * t5512 * t6672 * t3465 + 0.11721678222656250000e-1 * t4049 * t2282 * t5188 - 0.17094114074707031250e-2 * t5422 * t2290 * t3465 + 0.18439870153988685608e-2 * t4096 * t2290 * t5188 + 0.11164670401773881167e-4 * t4069 * t2261 * t5188;
6495   t22513 = -0.11908981761892139912e-5 * t5578 * t2268 * t3465 - 0.15922970915044751018e-6 * t4077 * t2268 * t5188 + 0.16340703176704875660e-7 * t5545 * t2275 * t3465 + 0.78116170700029033468e-9 * t4060 * t2275 * t5188 - 0.56913179487619400024e-4 * t3803 * t22398 + 0.18971059829206466675e-4 * t3803 * t22401 + 0.16280108642578125000e-3 * t3835 * t22379 - 0.61193050585088378904e-1 * t11425 * t2282 * t1255 + 0.30596525292544189452e-1 * t3825 * t2290 * t1264 - 0.20397683528362792968e-1 * t3825 * t1668 * t5916 + 0.16442688835660171509e-1 * t11443 * t21872 - 0.73078617047378540040e-2 * t3835 * t21875 + 0.36539308523689270020e-2 * t3835 * t21878 - 0.19463410080090165138e-4 * t11460 * t22415 + 0.90829247040420770644e-5 * t3812 * t22418;
6496   t22520 = -0.15632812500000000000e-1 * t21885 + 0.18238281250000000000e-1 * t19553 - 0.13027343750000000000e-2 * t19557 - 0.15198567708333333333e-1 * t19559 + 0.15198567708333333333e0 * t19561 + 0.12506250000000000000e0 * t19581 + t7667 - t7668 + t7669 - t7670 - t7671 + t7672 - t7673 - t7674 - t7676 + t7677;
6497   t22549 = -t7678 - t7679 + 0.22329340803547762334e-4 * t6226 * t21832 - 0.47449849207538994960e-4 * t11002 * t21835 - 0.19054370819027423859e-4 * t17749 * t21813 + 0.83362872333244979384e-5 * t14665 * t21816 - 0.23817963523784279824e-5 * t6206 * t21819 - 0.27069050555576076731e-5 * t17758 * t21826 + 0.11146079640531325713e-5 * t11958 * t21829 - 0.31845941830089502036e-6 * t6213 * t21832 + 0.79614854575223755090e-6 * t11903 * t21835 - 0.17146588035743334330e-8 * t17779 * t21813 + 0.70145132873495458623e-9 * t15207 * t21816 - 0.15587807305221213027e-9 * t6249 * t21819 + 0.58608391113281250000e-1 * t17769 * t21826;
6498   t22571 = -0.35165034667968750000e-1 * t11045 * t21829 + 0.23443356445312500000e-1 * t6256 * t21832 - 0.23443356445312500000e-1 * t11051 * t21835 - 0.11965879852294921875e-1 * t17774 * t21813 + 0.68376456298828125000e-2 * t15255 * t21816 - 0.26054687500000000000e-2 * t21156 + 0.25012500000000000000e0 * t21162 + 0.36476562500000000000e-1 * t21168 - 0.13024086914062500000e-2 * t21183 + 0.65120434570312500000e-3 * t21185 + 0.11467160124003421515e-7 * t21193 - 0.45868640496013686061e-8 * t21195 + 0.10663477270162693457e-8 * t21197 - 0.40622770553000736981e-9 * t21199 - 0.29197616334969279705e-9 * t21201 + 0.15382434775777347386e-4 * t21203;
6499   t22582 = -0.61529739103109389542e-5 * t21205 - 0.43583565198035817592e-5 * t21209 - 0.84355287480069324374e-6 * t21211 + 0.34734530138852074742e-6 * t21213 - 0.21820367550246510654e-6 * t21215 + 0.84856984917625319210e-7 * t21217 + 0.60612132084018085150e-7 * t21219 + 0.24221132544112205506e-4 * t21221 - 0.10380485376048088074e-4 * t21223 + t7680 + t5715 - t5720 + t5723 + t5726 - t5729;
6500   t22583 = -t5732 + t5735 + t5738 - t5741 - t5744 + t5747 - t5760 + t5762 - t5769 - t5779 + t7681 - t7682 - t7683 + t7684 + t7685 - t7686;
6501   t22592 = t1635 * t6362;
6502   t22595 = t2116 * t5110;
6503   t22598 = t7534 * t3293;
6504   t22601 = t6825 * t1282;
6505   t22618 = t429 * t430 * t21897 * t184 - t12070 * t22598 - 0.36e2 * t12075 * t22598 - 0.12e2 * t12084 * t22598 - 0.24e2 * t12092 * t22598 + 0.12e2 * t4260 * t22592 + 0.12e2 * t4268 * t22592 + 0.2e1 * t4280 * t22592 + 0.12e2 * t4260 * t22595 + 0.12e2 * t4268 * t22595 + 0.6e1 * t4260 * t22601 + 0.6e1 * t4268 * t22601 + t4280 * t22601;
6506   t22621 = t1834 * t5955;
6507   t22624 = t21913 * t184;
6508   t22628 = t5110 * t2105;
6509   t22631 = t21784 * t184;
6510   t22633 = t21788 * t184;
6511   t22637 = t7509 * t184;
6512   t22638 = t22637 * t279;
6513   t22650 = -0.4e1 * t1537 * t22621 - 0.4e1 * t1537 * t22628 - 0.2e1 * t1537 * t22631 - 0.2e1 * t1537 * t22633 - 0.2e1 * t1537 * t22638 - 0.2e1 * t1545 * t22621 - 0.2e1 * t1545 * t22628 - t1545 * t22631 - t1545 * t22633 - t1545 * t22638 + 0.2e1 * t4280 * t22595 + 0.6e1 * t4260 * t22624 + 0.6e1 * t4268 * t22624 + t4280 * t22624;
6514   t22652 = my_piecewise3(t102, t22582 + t22583 + t22571 + t22549 + t22520 + t22513 + t22474 + t22436 + t22388 + t22358 + t22323 + t22318 + t22300 + t22277 + t22260 + t22244 + t22223 + t22190 + t22180 + t22170 + t22152 + t22139 + t22113 + t22091 + t22073 + t22062 + t22050 + t22038 + t22027 + t22010 + t21996 + t21980, t22618 + t22650);
6515   t22681 = -0.4e1 * t690 * t21662 - 0.2e1 * t217 * t6426 * t588 - 0.2e1 * t217 * t7539 * t434 + 0.2e1 * t217 * t94 * (t21906 + t21943) * t187 + 0.2e1 * t217 * t1286 * t2243 * t187 + 0.12e2 * t2370 * t2210 * t1205 - 0.4e1 * t1582 * t6422 * t1289 + 0.1174e1 * t22652 - 0.4e1 * t1582 * t19261 * t498 - 0.24e2 * t4349 * t6514 * t5858 - t101 * t22652 - 0.2e1 * t217 * t2244 * t1548 - 0.4e1 * t217 * t2090 * t1843 - 0.4e1 * t217 * t5880 * t666 - 0.4e1 * t217 * t5876 * t666 - 0.4e1 * t217 * t1587 * t2198 - 0.4e1 * t217 * t2121 * t1843 + 0.16e2 * t6408 * t21698;
6516   t22697 = t596 * t7718 * t1185;
6517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6518     v4rhosigmatau2[0] = -t1202 * t7715 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t213 * (t21657 + t21706 + t21759 + t22681) * t205 - 0.24739500000000000000e1 * t447 * t448 * t7713 * t456 + 0.92773125000000000000e0 * t596 * t7 * t6840 * t602 + 0.11132775000000000000e2 * t22697 * t1569 - 0.15101552267946798162e2 * t5 * t7718 * t1573 * t1577;
6519 
6520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6521     v4rholapl3[0] = 0.0e0;
6522 
6523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6524     v4rholapl2tau[0] = 0.0e0;
6525 
6526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6527     v4rholapltau2[0] = 0.0e0;
6528 
6529   t22721 = t7796 - t7797 + t5360 - t5362 - t5368 + 0.32081837695497572422e-5 * t20443 - 0.45595703125000000000e-1 * t20445 + 0.45595703125000000000e0 * t20449 + 0.79299030086083030701e-2 * t20457 - 0.49324755555936813355e-3 * t20461 - 0.12110566272056102753e-2 * t20463 - 0.14761181160247360821e-9 * t20468 + 0.56437709960937500000e-1 * t20470 - 0.40700271606445312500e-2 * t20474 + 0.31534690341009409167e-7 * t20478 + 0.29197616334969279705e-8 * t20480 + 0.43583565198035817594e-4 * t20482 - 0.23569859737078193575e-5 * t20484 - 0.60612132084018085150e-6 * t20486 + 0.69203235840320587160e-4 * t20488;
6530   t22728 = t10098 * t7748;
6531   t22730 = t14534 * t7753;
6532   t22736 = t7827 * t249;
6533   t22739 = t7831 * t275;
6534   t22742 = t2254 * t1606;
6535   t22745 = t7831 * t249;
6536   t22757 = 0.59517082438117358834e-8 * t20536 + t5379 - t5382 - t5386 + 0.73260488891601562500e-3 * t11443 * t22736 - 0.40700271606445312500e-3 * t3835 * t22739 + 0.24420162963867187500e-3 * t3835 * t22742 + 0.11382635897523880005e-3 * t11453 * t22745 + 0.10419269531250000000e0 * t3794 * t7752 * t275 - 0.15628904296875000000e0 * t3794 * t2222 * t1606 - 0.12040518130203592591e-7 * t19810 * t7816 * t249;
6537   t22760 = t3171 * t7743;
6538   t22770 = t8799 * t7743;
6539   t22777 = t7809 * t275;
6540   t22780 = t2268 * t1606;
6541   t22804 = t7802 * t275;
6542   t22807 = t2261 * t1606;
6543   t22810 = t7802 * t249;
6544   t22820 = t7798 * t249;
6545   t22823 = -0.61193050585088378904e-1 * t11425 * t7752 * t249 + 0.30596525292544189452e-1 * t3825 * t7798 * t275 - 0.30596525292544189452e-1 * t3825 * t2282 * t1606 + 0.16040918847748786212e-4 * t11460 * t22745 - 0.64163675390995144848e-5 * t3812 * t22804 + 0.32081837695497572424e-5 * t3812 * t22807 - 0.96927819970648270100e-7 * t11435 * t22810 + 0.37694152210807660595e-7 * t3844 * t22777 - 0.16154636661774711683e-7 * t3844 * t22780 - 0.15628904296875000000e0 * t11464 * t7747 * t249 + 0.16442688835660171509e-1 * t11443 * t22820;
6546   t22825 = t7827 * t275;
6547   t22828 = t2290 * t1606;
6548   t22844 = t37 * t7743 * t84;
6549   t22855 = t11425 * t22820;
6550   t22857 = t3825 * t22825;
6551   t22859 = t3825 * t22828;
6552   t22871 = 0.15628904296875000000e0 * t11353 * t7821 + 0.33806428615645923615e-1 * t10577 * t7799 - 0.37711775579325109721e-4 * t14789 * t7803 + 0.58623046875000000000e-2 * t22855 - 0.39082031250000000000e-2 * t22857 + 0.29311523437500000000e-2 * t22859 - 0.49324755555936813355e-2 * t14886 * t7838 - 0.28490190124511718750e-1 * t15874 * t7824 - 0.69756861727043151857e-2 * t10523 * t7828 + 0.89964206592416763309e-3 * t15793 * t7832 + 0.31633232805025996640e-3 * t10509 * t7835;
6553   t22889 = t5496 - 0.29758541219058679417e-7 * t20600 - 0.39072260742187500000e0 * t20602 - 0.65563982769737548827e-1 * t20604 - 0.41681436166622489690e-3 * t20608 + 0.60153445679057948292e-5 * t20610 + 0.10961792557106781006e-1 * t20612 + t5526 + t5533 + t5537 + 0.54808962785533905030e-2 * t20645;
6554   t22905 = -0.74431136011825874448e-7 * t20685 - 0.18183639625205425545e-7 * t20688 + 0.86003700930025661364e-9 * t20694 + 0.76167694786876381839e-10 * t20697 - 0.35426834784593665971e-11 * t20703 + 0.42328282470703125000e-2 * t20706 + t5620 - 0.24420162963867187500e-3 * t20730 + 0.43254016410590744019e-3 * t20733 - 0.22765271795047760010e-4 * t20739 - 0.51902426880240440370e-4 * t20742;
6555   t22919 = t7743 * t10 * t67;
6556   t22923 = t7743 * t9 * t67;
6557   t22934 = -0.39072260742187500000e-1 * t20808 - 0.43709321846491699218e-2 * t20811 - 0.16672574466648995876e-4 * t20832 + 0.20051148559685982764e-6 * t20835 - 0.18759375000000000000e1 * t20837 - 0.67473154944312572482e-4 * t15433 * t22919 + 0.13546466754152309149e-3 * t9012 * t22923 + 0.17200740186005132273e-8 * t20131 * t22923 - 0.89674175548502716988e-11 * t20124 * t22923 - 0.12210081481933593750e-3 * t20098 * t22923 - 0.17785368589881062508e-4 * t20187 * t22923;
6558   t22961 = t7744 * t276;
6559   t22963 = t14372 * t22919;
6560   t22965 = t19507 * t22923;
6561   t22967 = -0.24061378271623179318e-5 * t9028 * t22923 - 0.44936933735938408065e-7 * t15372 * t22919 + 0.12506250000000000000e0 * t22961 - t5623 + t5625 - t5627 + t5639 - t5640 - t5641 + 0.13678710937500000000e-1 * t22963 - 0.10991821289062500000e-2 * t22965;
6562   t22973 = t38 * t2218 * t1607;
6563   t22990 = -0.51902426880240440370e-5 * t20988 + 0.17677394802808645181e-6 * t20990 - 0.23651017755757056875e-8 * t20994 + 0.11070885870185520616e-10 * t20999 + 0.22318905914294009563e-8 * t21001 + 0.29304195556640625000e-1 * t21003 - t7843 + t7844 - t7845 - t7846 - t7847;
6564   t23004 = -0.81481720004565431733e-10 * t21057 + 0.31884151306134299374e-10 * t21059 + 0.25396969482421875000e-1 * t21061 - 0.12698484741210937500e-1 * t21063 - 0.84656564941406250000e-2 * t21069 - t7849 + t1961 - t1975 + t1988 - t2001 + t2015;
6565   t23017 = t253 * t7743 * t255 * t258;
6566   t23020 = t10102 * t7747 * t2445;
6567   t23023 = t3491 * t7752 * t5184;
6568   t23026 = t3491 * t2222 * t6433;
6569   t23029 = t19576 * t7747 * t67;
6570   t23031 = 0.11724609375000000000e-1 * t21082 + 0.16414453125000000000e0 * t21100 - 0.10942968750000000000e0 * t21102 - 0.68393554687500000000e-1 * t21104 + 0.18165849408084154130e-3 * t21106 + 0.38928614769531669617e-2 * t21124 + 0.46898437500000000000e-1 * t23017 + 0.14069531250000000000e0 * t23020 - 0.14069531250000000000e0 * t23023 + 0.21104296875000000000e0 * t23026 - 0.87934570312500000000e-1 * t23029;
6571   t23034 = t14479 * t7752 * t745;
6572   t23037 = t5197 * t7798 * t19544;
6573   t23040 = t5197 * t2282 * t4473;
6574   t23042 = t4136 * t7757;
6575   t23069 = 0.16280108642578125000e-2 * t4218 * t7873 + 0.11956556739800362265e-9 * t19916 * t7870 - 0.52096347656250000000e0 * t3447 * t7864 - 0.22934320248006843030e-7 * t4162 * t7867 + 0.32081837695497572424e-4 * t4181 * t7858 - 0.18847076105403830297e-6 * t4147 * t7861 - 0.15298262646272094726e0 * t4136 * t7886 - 0.38926820160180330276e-4 * t4181 * t7879 + 0.15196356935747782700e-5 * t4147 * t7882 - 0.18061955672203078866e-2 * t4207 * t7855 + 0.36539308523689270020e-1 * t4218 * t7852;
6576   t23137 = -0.13072562541363900528e-6 * t5545 * t7816 * t19544 + 0.49022109530114626980e-7 * t5545 * t2275 * t4473 + 0.15623234140005806694e-7 * t10499 * t7809 * t2445 - 0.62492936560023226774e-8 * t4060 * t7816 * t5184 + 0.23434851210008710040e-8 * t4060 * t2275 * t6433 - 0.44916798152516694244e-8 * t19694 * t7809 * t67 - 0.17146588035743334330e-8 * t14953 * t7816 * t745 + 0.70145132873495458623e-9 * t5512 * t22760 * t19544 - 0.23381710957831819541e-9 * t5512 * t6672 * t4473 + 0.58608391113281250000e-1 * t11357 * t7752 * t2445 - 0.35165034667968750000e-1 * t4049 * t7798 * t5184;
6577   t23206 = 0.68376456298828125000e-2 * t5422 * t7827 * t19544 - 0.51282342224121093750e-2 * t5422 * t2290 * t4473 - 0.32885377671320343018e-2 * t10527 * t7827 * t2445 + 0.14947898941509246826e-2 * t4088 * t7831 * t5184 - 0.89687393649055480959e-3 * t4088 * t2254 * t6433 + 0.10463529259056472779e-2 * t19983 * t7827 * t67 + 0.43857550713803172113e-3 * t14961 * t7831 * t745 - 0.20241946483293771745e-3 * t5498 * t7802 * t19544 + 0.10120973241646885872e-3 * t5498 * t2261 * t4473 + 0.15630538562483433634e-3 * t10513 * t7831 * t2445 - 0.66988022410643287002e-4 * t4069 * t7802 * t5184;
6578   t23230 = 0.23073652163666021079e-4 * t21203 - 0.92294608654664084316e-5 * t21205 - 0.65375347797053726390e-5 * t21209 - 0.12653293122010398656e-5 * t21211 + 0.52101795208278112114e-6 * t21213 - 0.32730551325369765981e-6 * t21215 + 0.12728547737643797882e-6 * t21217 + 0.90918198126027127725e-7 * t21219 + 0.36331698816168308259e-4 * t21221 - 0.15570728064072132111e-4 * t21223 + t7896;
6579   t23233 = t5747 - t5760 + t5762 - t5769 - t5779 + t7897 - t7898 - t7899 + t7900 + t7901 - t7902;
6580   t23239 = t7769 * t184;
6581   t23240 = t23239 * t279;
6582   t23243 = t6816 * t1626;
6583   t23248 = t1834 * t6495;
6584   t23251 = t5110 * t2229;
6585   t23256 = t1834 * t6479;
6586   t23263 = t7761 * t184;
6587   t23264 = t23263 * t279;
6588   t23275 = t7756 - t7760 - 0.35e2 / 0.512e3 * t20445 + 0.175e3 / 0.256e3 * t20449 + 0.225e3 / 0.256e3 * t22728 - 0.35e2 / 0.128e3 * t22730 - 0.15e2 / 0.16e2 * t22844 + 0.9e1 / 0.1024e4 * t22855 - 0.3e1 / 0.512e3 * t22857 + 0.9e1 / 0.2048e4 * t22859 - t1885;
6589   t23284 = -0.9e1 / 0.16e2 * t20797 - 0.9e1 / 0.16e2 * t20800 - 0.45e2 / 0.16e2 * t20837 + 0.3e1 / 0.16e2 * t22961 + t5213 - t5217 - t5221 + 0.21e2 / 0.1024e4 * t22963 - 0.27e2 / 0.16384e5 * t22965 - 0.9e1 / 0.16e2 * t22973 - t5223 + 0.27e2 / 0.128e3 * t20938;
6590   t23292 = 0.21e2 / 0.4096e4 * t20974 - t5239 + t5242 + t5249 - t7751 + t1893 + t5263 - 0.15e2 / 0.512e3 * t21080 + 0.9e1 / 0.512e3 * t21082 + 0.63e2 / 0.256e3 * t21100 - 0.21e2 / 0.128e3 * t21102 - 0.105e3 / 0.1024e4 * t21104;
6591   t23305 = 0.9e1 / 0.128e3 * t23017 + 0.27e2 / 0.128e3 * t23020 - 0.27e2 / 0.128e3 * t23023 + 0.81e2 / 0.256e3 * t23026 - 0.135e3 / 0.1024e4 * t23029 - 0.3e1 / 0.32e2 * t23034 + 0.9e1 / 0.128e3 * t23037 - 0.9e1 / 0.128e3 * t23040 + 0.45e2 / 0.2048e4 * t23042 - 0.3e1 / 0.512e3 * t21156 + 0.9e1 / 0.16e2 * t21162 + 0.21e2 / 0.256e3 * t21168;
6592   t23307 = t23275 + t23284 + t23292 + t23305;
6593   t23321 = t429 * t430 * t23307 * t184 - t12070 * t23240 - 0.36e2 * t12075 * t23240 - 0.12e2 * t12084 * t23240 - 0.24e2 * t12092 * t23240 - 0.6e1 * t1537 * t23251 - 0.6e1 * t1537 * t23256 - 0.2e1 * t1537 * t23264 - 0.3e1 * t1545 * t23251 - 0.3e1 * t1545 * t23256 - t1545 * t23264 + 0.18e2 * t4260 * t23243 + 0.18e2 * t4268 * t23243 + 0.3e1 * t4280 * t23243 + 0.18e2 * t4260 * t23248 + 0.18e2 * t4268 * t23248 + 0.3e1 * t4280 * t23248;
6594   t23322 = my_piecewise3(t102, 0.35165034667968750000e-1 * t4049 * t2282 * t6433 + 0.14751896123190948486e-1 * t10581 * t7798 * t2445 - 0.73759480615954742432e-2 * t4096 * t7827 * t5184 + 0.55319610461966056824e-2 * t4096 * t2290 * t6433 - 0.50709642923468885422e-2 * t19773 * t7798 * t67 - 0.23443356445312500000e-1 * t19964 * t7752 * t67 - 0.11965879852294921875e-1 * t14912 * t7798 * t745 + 0.51602220558015396818e-8 * t7314 * t22760 * t275 - 0.17200740186005132273e-8 * t7314 * t6672 * t1606 + 0.63768302612268598747e-10 * t19838 * t22760 * t249 - 0.26570126088445249478e-10 * t7318 * t22770 * t275 + 0.79710378265335748434e-11 * t7318 * t7571 * t1606 + 0.78152692812417168170e-6 * t11435 * t7809 * t249 - 0.34734530138852074742e-6 * t3844 * t7816 * t275 + 0.13025448802069528028e-6 * t3844 * t2275 * t1606 - 0.19054370819027423859e-4 * t15950 * t7802 * t745 + 0.83362872333244979384e-5 * t5578 * t7809 * t19544 - 0.35726945285676419736e-5 * t5578 * t2268 * t4473 + 0.33494011205321643501e-4 * t4069 * t2261 * t6433 - 0.47449849207538994960e-4 * t20024 * t7831 * t67 - 0.27069050555576076731e-5 * t10491 * t7802 * t2445 + 0.11146079640531325713e-5 * t4077 * t7809 * t5184 - 0.47768912745134253054e-6 * t4077 * t2268 * t6433 + 0.79614854575223755090e-6 * t20048 * t7802 * t67 + 0.31047336035739263754e-6 * t14995 * t7809 * t745 + t23233 + t23230 + t23206 + t23137 + t23069 - 0.46898437500000000000e-1 * t23040 + 0.14655761718750000000e-1 * t23042 - 0.62531250000000000000e-1 * t23034 + 0.46898437500000000000e-1 * t23037 + t23031 + t23004 + t22990 - 0.37518750000000000000e0 * t22973 + t22967 + t22934 + t22905 + t22889 + t22871 - 0.62531250000000000000e0 * t22844 + t22823 + t22757 - 0.18238281250000000000e0 * t22730 + 0.58623046875000000000e0 * t22728 + t22721 - 0.60934155829501105471e-9 * t21199 - 0.43796424502453919557e-9 * t21201 - 0.68802960744020529091e-8 * t21195 + 0.15995215905244040186e-8 * t21197 + 0.17200740186005132273e-7 * t21193 + 0.97680651855468750000e-3 * t21185 - 0.19536130371093750000e-2 * t21183 + 0.54714843750000000000e-1 * t21168 + 0.37518750000000000000e0 * t21162 - 0.39082031250000000000e-2 * t21156 - 0.19541015625000000000e-1 * t21080 - 0.62282912256288528444e-3 * t21047 + 0.25951213440120220185e-3 * t21049 - 0.25041798974552536011e-3 * t21041 + 0.11382635897523880005e-3 * t21044 - 0.11894854512912454605e-2 * t21029 - 0.17301606564236297608e-2 * t21026 + 0.36993566666952610016e-4 * t20982 + 0.30525203704833984375e-3 * t20978 - 0.45115084259293461219e-6 * t20971 + 0.34196777343750000000e-2 * t20974 - 0.82213444178300857545e-3 * t20965 + 0.31261077124966867268e-4 * t20969 + 0.49172987077303161620e-2 * t20948 + 0.14069531250000000000e0 * t20938 - 0.85024403483024798334e-9 * t20805 - 0.37518750000000000000e0 * t20800 - 0.37518750000000000000e0 * t20797 + 0.54808962785533905030e-3 * t20776 + 0.23713824786508083344e-3 * t4207 * t7876 + 0.11473696984704071044e-1 * t8901 * t22923 + 0.28283831684493832291e-5 * t15400 * t22919 + 0.14135307079052872723e-7 * t9036 * t22923 + 0.24355948914408145355e-9 * t15453 * t22919 + 0.39072260742187500000e-1 * t9020 * t22923 + 0.21367642593383789062e-2 * t15463 * t22919 - 0.27404481392766952515e-2 * t8911 * t22923 + 0.36993566666952610016e-3 * t15357 * t22919 + 0.29195115120135247707e-5 * t20190 * t22923 - 0.11397267701810837025e-6 * t20127 * t22923 - 0.53076569716815836727e-5 * t10487 * t7806 + 0.59915911647917877420e-6 * t14872 * t7810 + 0.29944532101677796163e-7 * t10495 * t7813 - 0.32474598552544193807e-8 * t14949 * t7817 - 0.73078617047378540040e-2 * t3835 * t22825 + 0.54808962785533905030e-2 * t3835 * t22828 - 0.86697387226574778556e-3 * t11453 * t22736 + 0.36123911344406157732e-3 * t3803 * t22739 - 0.21674346806643694639e-3 * t3803 * t22742 - 0.56913179487619400024e-4 * t3803 * t22804 + 0.28456589743809700012e-4 * t3803 * t22807 - 0.19463410080090165138e-4 * t11460 * t22810 + 0.90829247040420770644e-5 * t3812 * t22777 - 0.38926820160180330276e-5 * t3812 * t22780 + 0.78144521484375000000e-1 * t20495 - 0.30596525292544189453e-1 * t20498 + 0.25951213440120220185e-5 * t20679 - t1954 + t5431 - t5572 + t2042 - t5741 + 0.15382434775777347386e-5 * t20682 - t5576 - t5720 + t5723 - t5559 + t5652 + t5690 + 0.83362872333244979380e-4 * t20517 - 0.15628904296875000000e0 * t20520 + t5649 + t5565 + t5569 - t5434 - t5732 + t2033 + t5492 + t1945 + t5692 - t5694 + t5696 + 0.13112796553947509765e-1 * t20504 - t5554 - t5744 - t5642 - 0.16154636661774711683e-7 * t20533 - t1918 - t5562 - t7894 - t7891 + t7892 - t7893 + t7890 - t5438 - 0.21674346806643694639e-3 * t20514 - 0.21923585114213562012e-2 * t20649 + t5712 + t5715 + t5399 - t5489 - 0.22765271795047760010e-2 * t14984 * t367 * t7743 * t249 + 0.11382635897523880005e-2 * t5463 * t376 * t7743 * t275 - 0.68295815385143280030e-3 * t5463 * t367 * t2218 * t1606 - t1939 - t1942 - t5698 + t5700 + t5726 - t5729 - t1948 + t1951 - 0.12030689135811589658e-5 * t20530 + t7848 - t5647 + t5735 + t5738, t23321);
6595   t23324 = t2215 * t1639;
6596   t23330 = t2243 * t666;
6597   t23342 = t287 * t7723 * t187;
6598   t23355 = t2370 * t7722;
6599   t23358 = t7723 * t187;
6600   t23359 = t23358 * t290;
6601   t23362 = t6514 * t1639;
6602   t23368 = t619 * t2328;
6603   t23374 = t4356 * t2243;
6604   t23377 = t7989 * t7722;
6605   t23380 = t7740 * t290;
6606   t23383 = 0.1174e1 * t23322 - 0.72e2 * t1582 * t23324 - 0.6e1 * t217 * t620 * t6837 + 0.12e2 * t1582 * t23330 * t290 - 0.48e2 * t1582 * t1583 * t6426 + 0.72e2 * t6401 * t1583 * t2243 * t290 - 0.24e2 * t690 * t23342 - 0.48e2 * t2370 * t7724 * t434 + 0.2e1 * t217 * t287 * t7785 * t187 + 0.24e2 * t690 * t7728 * t434 + 0.144e3 * t23355 * t23324 + 0.72e2 * t4349 * t23359 + 0.48e2 * t6408 * t23362 - 0.6e1 * t217 * t1640 * t2328 + 0.12e2 * t1582 * t23368 * t290 + 0.144e3 * t6401 * t23342 - 0.24e2 * t6408 * t23374 - 0.192e3 * t23377 * t23359 + 0.12e2 * t690 * t23380;
6607   t23384 = t4360 * t2243;
6608   t23433 = t50 * t23307 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t7762 * t1276 - 0.9e1 / 0.100e3 * t6480 * t7766 - 0.9e1 / 0.100e3 * t2230 * t1636 - 0.9e1 / 0.100e3 * t2230 * t6485 + 0.9e1 / 0.50e2 * t21935 * t1636 - 0.9e1 / 0.100e3 * t2234 * t1632 + 0.3e1 / 0.20e2 * t7770 * t1276 + 0.9e1 / 0.50e2 * t2234 * t2593 * t1626 - t7770 * t19611 / 0.10e2 - t283 * t23307 * t91 / 0.100e3 + t823 * t7761 * t279 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t6479 * t613 * t91 + 0.3e1 / 0.100e3 * t823 * t2229 * t1626 * t91 - 0.3e1 / 0.100e3 * t21924 * t1636 - 0.3e1 / 0.100e3 * t2603 * t2240 * t1626 + t8402 * t7769 * t279 * t91 / 0.100e3;
6609   t23460 = t7785 * t187;
6610   t23471 = t1583 * t6506;
6611   t23484 = -0.6e1 * t217 * t23384 + 0.2e1 * t217 * t94 * t23433 * t187 - 0.6e1 * t217 * t6426 * t666 - 0.2e1 * t217 * t7786 * t434 - t217 * t290 * t7926 - 0.6e1 * t217 * t2210 * t1843 - 0.6e1 * t217 * t1587 * t2328 - 0.6e1 * t217 * t2244 * t1843 - 0.6e1 * t217 * t6507 * t666 - 0.12e2 * t19127 * t6423 - 0.4e1 * t1582 * t23460 * t290 - 0.12e2 * t217 * t23362 + 0.6e1 * t217 * t23374 + 0.24e2 * t690 * t2211 * t1843 + 0.6e1 * t217 * t23471 + 0.48e2 * t1582 * t7740 * t287 + 0.24e2 * t6408 * t23384 - 0.72e2 * t6401 * t23380 - 0.24e2 * t6408 * t23471 - t101 * t23322;
6612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6613     v4rhotau3[0] = -t1202 * t7931 / 0.4e1 - 0.3e1 / 0.16e2 * t212 * t213 * (t23383 + t23484) * t205 - 0.24739500000000000000e1 * t447 * t448 * t7929 * t456;
6614 
6615   t23527 = 0.1e1 / t194 / t713;
6616   t23565 = t1855 * t1855;
6617   t23575 = t1911 * t1911;
6618   t23600 = t1908 * t1908;
6619   t23607 = t7182 * t1883;
6620   t23609 = t1874 * t1874;
6621   t23611 = t8762 * t352 * t23609;
6622   t23613 = t1882 * t1882;
6623   t23615 = t737 * t84 * t23613;
6624   t23616 = 0.9e1 / 0.16e2 * t23615;
6625   t23617 = t1955 * t1882;
6626   t23618 = t3825 * t23617;
6627   t23620 = t150 * t23609;
6628   t23621 = t23620 * t10;
6629   t23622 = t10581 * t23621;
6630   t23626 = t484 * t62;
6631   t23627 = t480 * t23609 * t482 * t23626;
6632   t23629 = t126 * t23609;
6633   t23631 = t14479 * t23629 * t9;
6634   t23635 = t1254 * t113 * t23613 * t10;
6635   t23636 = 0.21e2 / 0.256e3 * t23635;
6636   t23638 = t1887 * t403 * t23613;
6637   t23639 = 0.3e1 / 0.512e3 * t23638;
6638   t23641 = t3491 * t1878 * t6888;
6639   t23644 = t5197 * t2027 * t5260;
6640   t23646 = -0.3e1 / 0.4e1 * t6882 + 0.7e1 / 0.64e2 * t6890 - t6897 / 0.128e3 - t1885 + t1893 - 0.9e1 / 0.8e1 * t23607 + 0.27e2 / 0.1024e4 * t23611 - t23616 + 0.9e1 / 0.1024e4 * t23618 - 0.3e1 / 0.4096e4 * t23622 + 0.15e2 / 0.64e2 * t23627 - 0.75e2 / 0.512e3 * t23631 + t23636 - t23639 + 0.81e2 / 0.128e3 * t23641 - 0.9e1 / 0.64e2 * t23644;
6641   t23654 = t1894 * t1894;
6642   t23660 = t1898 * t1898;
6643   t23661 = t50 * t23660;
6644   t23683 = t50 * t23646 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t6900 * t2110 - 0.9e1 / 0.50e2 * t1895 * t1905 - 0.9e1 / 0.100e3 * t50 * t23654 * t816 + 0.9e1 / 0.25e2 * t1895 * t7220 + 0.3e1 / 0.20e2 * t23661 * t816 - t23661 * t8385 / 0.10e2 - t283 * t23646 * t91 / 0.100e3 + t823 * t6899 * t488 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t823 * t23654 * t91 - 0.3e1 / 0.50e2 * t2603 * t1894 * t1898 * t91 + t8402 * t23660 * t91 / 0.100e3;
6645   t23702 = 0.54714843750000000000e-1 * t23635;
6646   t23703 = 0.39082031250000000000e-2 * t23638;
6647   t23704 = t1882 * t1874;
6648   t23706 = t5512 * t2023 * t23704;
6649   t23708 = -t1918 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + 0.58623046875000000000e-2 * t23618 - 0.48852539062500000000e-3 * t23622 + 0.15632812500000000000e0 * t23627 - 0.97705078125000000000e-1 * t23631 + t23702 - t23703 - 0.46763421915663639082e-9 * t23706;
6650   t23710 = t5422 * t412 * t23704;
6651   t23713 = t4049 * t2027 * t6888;
6652   t23716 = t5578 * t385 * t23704;
6653   t23719 = t5545 * t2005 * t23704;
6654   t23722 = t5463 * t367 * t23704;
6655   t23725 = t5498 * t376 * t23704;
6656   t23728 = t4096 * t1955 * t6888;
6657   t23731 = t4077 * t1995 * t6888;
6658   t23734 = t4060 * t5383 * t5252;
6659   t23737 = t4088 * t1969 * t6888;
6660   t23740 = t4069 * t1982 * t6888;
6661   t23754 = -0.10256468444824218750e-1 * t23710 + 0.70330069335937500000e-1 * t23713 - 0.71453890571352839471e-5 * t23716 + 0.98044219060229253957e-7 * t23719 - 0.13659163077028656006e-2 * t23722 + 0.20241946483293771744e-3 * t23725 + 0.11063922092393211365e-1 * t23728 - 0.95537825490268506108e-6 * t23731 + 0.46869702420017420080e-8 * t23734 - 0.17937478729811096191e-2 * t23737 + 0.66988022410643287002e-4 * t23740 + 0.16040918847748786212e-4 * t8792 * t165 * t23609 + 0.28655987364552961663e-5 * t8768 * t423 * t23609 - 0.44721924483613343911e-7 * t19809 * t4169 * t23609 - 0.15628904296875000000e0 * t8806 * t114 * t23609;
6662   t23758 = 0.16672574466648995876e-4 * t982 * t151 * t23613;
6663   t23761 = 0.20051148559685982764e-6 * t995 * t165 * t23613;
6664   t23764 = 0.85024403483024798334e-9 * t1003 * t178 * t23613;
6665   t23776 = 0.39072260742187500000e-1 * t991 * t114 * t23613;
6666   t23779 = 0.43709321846491699218e-2 * t974 * t127 * t23613;
6667   t23782 = 0.54808962785533905030e-3 * t1007 * t138 * t23613;
6668   t23799 = -t23758 + t23761 - t23764 - 0.61193050585088378904e-1 * t8762 * t127 * t23609 + 0.16442688835660171509e-1 * t8684 * t138 * t23609 - 0.86697387226574778556e-3 * t8671 * t151 * t23609 - t23776 - t23779 + t23782 - 0.96927819970648270100e-7 * t8768 * t178 * t23609 + 0.23913113479600724531e-9 * t19837 * t6968 * t23609 + 0.24420162963867187500e-2 * t8684 * t317 * t23609 + 0.39839225641333580017e-3 * t8671 * t326 * t23609 - 0.70068276288324594500e-4 * t8792 * t335 * t23609 + 0.56437709960937500000e-2 * t6979;
6669   t23815 = 0.57672021880787658692e-3 * t6982 - 0.69203235840320587160e-4 * t6985 + 0.20509913034369796515e-5 * t6988 - 0.24244852833607234060e-7 * t6991 + 0.10155692638250184245e-9 * t6994 - 0.99241514682434499264e-7 * t6997 + 0.11467160124003421515e-8 * t7000 - 0.30353695726730346680e-4 * t7003 + 0.34601617920160293580e-5 * t7006 - 0.47235779712791554628e-11 * t7009 - 0.32560217285156250000e-3 * t7014 + 0.72953125000000000000e-1 * t6890 - 0.52109375000000000000e-2 * t6897 + 0.42208593750000000000e0 * t23641 - 0.93796875000000000000e-1 * t23644;
6670   t23825 = t1961 - t1975 + t1988 - t2001 + t2015 + t2033 + t2042 + 0.26734864746247977019e-6 * t7020 - 0.11336587131069973111e-8 * t7023 - 0.52096347656250000000e-1 * t7042 - 0.58279095795322265624e-2 * t7045 + 0.73078617047378540040e-3 * t7048 - 0.22230099288865327835e-4 * t7078 - 0.50025000000000000000e0 * t6882;
6671   t23829 = t1995 * t1882;
6672   t23830 = t3844 * t23829;
6673   t23832 = t422 * t23609;
6674   t23833 = t23832 * t10;
6675   t23838 = 0.37518750000000000000e0 * t23615;
6676   t23841 = 0.74431136011825874448e-7 * t1991 * t385 * t23613;
6677   t23844 = 0.86003700930025661364e-9 * t2004 * t2005 * t23613;
6678   t23847 = 0.22765271795047760010e-4 * t1964 * t367 * t23613;
6679   t23850 = 0.25951213440120220185e-5 * t1978 * t376 * t23613;
6680   t23853 = 0.35426834784593665971e-11 * t2022 * t2023 * t23613;
6681   t23859 = 0.24420162963867187500e-3 * t2036 * t412 * t23613;
6682   t23862 = t11 * t15041 * t575 * t5705;
6683   t23868 = t3794 * t1878 * t1882;
6684   t23870 = -0.41205141949036445618e-2 * t14984 * t23620 * t9 - 0.32309273323549423366e-7 * t23830 + 0.20335003166356764268e-7 * t10499 * t23833 - 0.75037500000000000000e0 * t23607 + 0.17586914062500000000e-1 * t23611 - t23838 - t23841 + t23844 - t23847 + t23850 - t23853 + 0.71632478027343750000e-1 * t11357 * t23629 * t10 - t23859 + 0.64502775697519246023e-9 * t23862 * t3171 * t23609 * t10 - 0.31257808593750000000e0 * t23868;
6685   t23872 = t3812 * t23829;
6686   t23876 = t7318 * t3171 * t1882 * t1874;
6687   t23878 = t137 * t23609;
6688   t23882 = t5493 * t1874;
6689   t23883 = t3835 * t23882;
6690   t23891 = t11 * t168 * t130 * t157 * t120 / t160 / t409;
6691   t23896 = t164 * t23609;
6692   t23897 = t23896 * t10;
6693   t23900 = t177 * t23609;
6694   t23901 = t23900 * t10;
6695   t23905 = t3844 * t5383 * t1874;
6696   t23908 = t7314 * t15599 * t1874;
6697   t23910 = t5573 * t1874;
6698   t23911 = t3803 * t23910;
6699   t23916 = 0.43254016410590744019e-3 * t1329 * t137 * t23613 * t10;
6700   t23920 = 0.51902426880240440370e-4 * t1344 * t150 * t23613 * t10;
6701   t23924 = 0.15382434775777347386e-5 * t1358 * t164 * t23613 * t10;
6702   t23928 = 0.18183639625205425545e-7 * t1372 * t177 * t23613 * t10;
6703   t23932 = 0.76167694786876381839e-10 * t1386 * t422 * t23613 * t10;
6704   t23933 = -0.77853640320360660554e-5 * t23872 + 0.15942075653067149687e-10 * t23876 - 0.20757138519287109375e-1 * t14912 * t23878 * t9 + 0.48840325927734375000e-3 * t23883 - 0.33212657610556561848e-11 * t23891 * t8799 * t23609 * t10 - 0.50875339508056640625e-4 * t10527 * t23897 - 0.71141474359524250030e-5 * t10513 * t23901 + 0.26050897604139056056e-6 * t23905 - 0.34401480372010264546e-8 * t23908 + 0.56913179487619400024e-4 * t23911 + t23916 - t23920 + t23924 - t23928 + t23932;
6705   t23937 = 0.42328282470703125000e-2 * t1404 * t126 * t23613 * t10;
6706   t23938 = t1012 * t23609;
6707   t23943 = t3825 * t2027 * t1882;
6708   t23948 = t3835 * t23617;
6709   t23955 = t3803 * t23882;
6710   t23962 = t3812 * t23910;
6711   t23974 = t23937 - 0.32769822175749141024e-8 * t14953 * t23938 * t9 - 0.61193050585088378905e-1 * t23943 + 0.18576461784758972168e-1 * t10581 * t23878 * t10 + 0.10961792557106781006e-1 * t23948 - 0.42020204802242660523e-2 * t10527 * t23621 + 0.81227298067576289179e-3 * t14961 * t23896 * t9 - 0.43348693613287389278e-3 * t23955 + 0.20146027480534203350e-3 * t10513 * t23897 - 0.35801376421688245609e-4 * t15950 * t23900 * t9 + 0.64163675390995144846e-5 * t23962 - 0.35089509979450469837e-5 * t10491 * t23901 + 0.58912535137067578036e-6 * t14995 * t23832 * t9 + 0.11353655880052596330e-5 * t10491 * t23833 - 0.43418162673565093428e-7 * t10499 * t23938 * t10;
6712   t23982 = t5785 * t1894;
6713   t23995 = t1538 * t6899;
6714   t24016 = -0.6e1 * t429 * t1152 * t23654 * t184 - 0.3e1 * t1161 * t1163 * t23654 * t184 - 0.36e2 * t1161 * t3311 * t23660 * t184 + t429 * t430 * t23646 * t184 - 0.24e2 * t429 * t3298 * t23660 * t184 - 0.12e2 * t3309 * t9782 * t23660 * t184 - t9799 * t9801 * t23660 * t184 - 0.8e1 * t1537 * t23995 - 0.4e1 * t1545 * t23995 + 0.36e2 * t4260 * t23982 + 0.36e2 * t4268 * t23982 + 0.6e1 * t4280 * t23982;
6715   t24017 = my_piecewise3(t102, t23708 + t23754 + t23799 + t23815 + t23825 + t23870 + t23933 + t23974, t24016);
6716   t24020 = -0.24e2 * t7989 * t23565 * t187 + 0.36e2 * t2370 * t1856 * t1911 - 0.24e2 * t2370 * t6849 * t588 - 0.6e1 * t690 * t23575 * t187 + 0.24e2 * t690 * t1914 * t1911 - 0.8e1 * t690 * t499 * t6924 + 0.12e2 * t690 * t1855 * t2056 + t217 * (0.729e3 / 0.12800e5 * t712 * t1867 * t719 - 0.6561e4 / 0.256000e6 * t2402 * sigma[0] * t6866 * t2409 + 0.531441e6 / 0.40960000e8 * t8040 * t35 / t130 * t45 + 0.6e1 * t23600 + 0.8e1 * t495 * t6921 + 0.2e1 * t94 * t23683) * t187 - 0.4e1 * t217 * t6924 * t588 - 0.6e1 * t217 * t1911 * t2056 - 0.4e1 * t217 * t498 * t7106 - t101 * t24017 + 0.1174e1 * t24017;
6717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6718     v4sigma4[0] = -0.10958825390625000000e3 * t9939 * t3336 * t5851 * t204 * t3338 * t30 * t192 + 0.37109250000000000000e1 * t596 * t7 * t7109 * t602 + 0.25048743750000000000e2 * t5823 * t7132 - 0.15655464843750000000e2 * t1565 * t18 * t7152 * t2070 - 0.12775753975349425781e2 * t598 * t7136 * t1185 * t7976 - 0.93932789062500000000e2 * t4314 * t3336 * t2080 * t7127 - 0.25048743750000000000e2 * t19412 * t2071 - 0.17394960937500000000e1 * t598 * t453 * t192 * t7136 * t204 + 0.63709673630400554752e2 * t5 * t597 * t23527 * t2084 + 0.27251765789225942561e0 * t4321 * t32 * t23527 * t7139 + 0.27831937500000000000e1 * t2065 * t7145 - 0.67956985205760591732e2 * t5 * t2064 * t7136 * t2084 - 0.27831937500000000000e1 * t7115 * t2076 + 0.33978492602880295866e2 * t5 * t7114 * t2080 * t2084 + 0.12524371875000000000e3 * t16154 * t7128 - 0.17441130105104603239e0 * t16159 * t7140 + 0.17330244833041936391e2 * t9826 / t2403 * t37 * t7976 + 0.34068677267598468749e2 * t2065 * t7154 - 0.57490892889072416015e2 * t598 * t19342 * t10 * t196 * t452 * t204 - 0.3e1 / 0.16e2 * t212 * t213 * t24020 * t205;
6719 
6720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6721     v4sigma3lapl[0] = 0.0e0;
6722 
6723   t24086 = t10 * t62;
6724   t24088 = t480 * t6873 * t482 * t1601 * t24086;
6725   t24091 = t14479 * t1668 * t19508;
6726   t24093 = t1678 * t6895;
6727   t24094 = t3825 * t24093;
6728   t24095 = 0.9e1 / 0.2048e4 * t24094;
6729   t24096 = t1688 * t19518;
6730   t24097 = t10581 * t24096;
6731   t24099 = t2101 * t6888;
6732   t24100 = t5925 * t24099;
6733   t24101 = 0.81e2 / 0.256e3 * t24100;
6734   t24102 = -t7191 + t7198 - t7206 + 0.15e2 / 0.64e2 * t24088 - 0.75e2 / 0.512e3 * t24091 + t24095 - 0.3e1 / 0.4096e4 * t24097 - t6883 + t6891 - t6898 + t24101;
6735   t24103 = t1597 * t6895;
6736   t24104 = t5935 * t24103;
6737   t24105 = 0.9e1 / 0.128e3 * t24104;
6738   t24110 = t20637 * t7189;
6739   t24111 = 0.9e1 / 0.16e2 * t24110;
6740   t24112 = t1678 * t6873;
6741   t24113 = t11425 * t24112;
6742   t24115 = -t24105 - t1885 + t1893 - 0.9e1 / 0.16e2 * t23607 - t23616 + 0.9e1 / 0.2048e4 * t23618 + t23636 - t23639 + 0.81e2 / 0.256e3 * t23641 - 0.9e1 / 0.128e3 * t23644 - t24111 + 0.27e2 / 0.1024e4 * t24113;
6743   t24116 = t24102 + t24115;
6744   t24125 = -0.3e1 / 0.100e3 * t5985 * t6915 - 0.9e1 / 0.100e3 * t2106 * t1905 - 0.9e1 / 0.100e3 * t2106 * t7216 + 0.9e1 / 0.50e2 * t2106 * t7220 - 0.9e1 / 0.100e3 * t614 * t6915 + 0.3e1 / 0.20e2 * t614 * t6905 * t87 * t91 - 0.3e1 / 0.100e3 * t614 * t87 * t6899 * t91 - t614 * t822 * t6905 * t91 / 0.10e2 + 0.3e1 / 0.100e3 * t823 * t7207 * t488 * t91 + 0.3e1 / 0.100e3 * t823 * t2105 * t1894 * t91 - 0.3e1 / 0.100e3 * t2603 * t2105 * t1898 * t91 + t823 * t613 * t6899 * t91 / 0.100e3 + t8402 * t613 * t6905 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t7208 * t2110 + t50 * t24116 * t91 / 0.100e3 + 0.9e1 / 0.50e2 * t5967 * t6915 - t283 * t24116 * t91 / 0.100e3;
6745   t24156 = -0.6e1 * t2370 * t6849 * t666 - 0.6e1 * t217 * t2121 * t2056 + 0.6e1 * t690 * t2128 * t1911 - 0.2e1 * t217 * t620 * t7106 - 0.12e2 * t217 * t7175 * t588 + 0.2e1 * t217 * t94 * t24125 * t187 - 0.6e1 * t217 * t2090 * t2056 - 0.6e1 * t217 * t7239 * t588 - 0.6e1 * t217 * t7171 * t588 - 0.24e2 * t5873 * t7162 - 0.12e2 * t21438 * t2087 - 0.36e2 * t4349 * t5996 * t1855 - 0.12e2 * t1582 * t21549 * t498 + 0.24e2 * t5873 * t7165 - 0.12e2 * t5873 * t7168 + 0.24e2 * t1582 * t21401 * t498;
6746   t24177 = 0.29311523437500000000e-2 * t24094;
6747   t24189 = t1699 * t6895;
6748   t24190 = t3803 * t24189;
6749   t24191 = 0.28456589743809700012e-4 * t24190;
6750   t24192 = t1709 * t19518;
6751   t24195 = t1709 * t6895;
6752   t24196 = t3812 * t24195;
6753   t24198 = t1658 * t19518;
6754   t24201 = t3835 * t24093;
6755   t24202 = 0.54808962785533905030e-2 * t24201;
6756   t24203 = t1688 * t6895;
6757   t24204 = t3803 * t24203;
6758   t24205 = 0.21674346806643694639e-3 * t24204;
6759   t24206 = t3812 * t24189;
6760   t24208 = t3844 * t24195;
6761   t24211 = t3794 * t1601 * t6895;
6762   t24212 = 0.15628904296875000000e0 * t24211;
6763   t24214 = t3825 * t1668 * t6895;
6764   t24216 = t7263 - t7264 + 0.15632812500000000000e0 * t24088 - 0.97705078125000000000e-1 * t24091 + t24177 - 0.48852539062500000000e-3 * t24097 - 0.35801376421688245609e-4 * t15950 * t385 * t606 * t6873 + 0.71632478027343750000e-1 * t11357 * t1668 * t19518 + 0.18576461784758972168e-1 * t10581 * t1678 * t19518 - t1918 + t24191 - 0.71141474359524250030e-5 * t10513 * t24192 - 0.38926820160180330276e-5 * t24196 + 0.11353655880052596330e-5 * t10491 * t24198 + t24202 - t24205 + 0.32081837695497572424e-5 * t24206 - 0.16154636661774711684e-7 * t24208 - t24212 - 0.30596525292544189452e-1 * t24214;
6765   t24224 = t7314 * t4848 * t6895;
6766   t24225 = 0.17200740186005132273e-8 * t24224;
6767   t24230 = t7318 * t7319 * t6895;
6768   t24235 = t3835 * t24203;
6769   t24236 = 0.24420162963867187500e-3 * t24235;
6770   t24237 = t1699 * t19518;
6771   t24246 = t1945 - t1948 + t1951 - t1954 + 0.29311523437500000000e-2 * t23618 + t23702 - t23703 - 0.23381710957831819541e-9 * t23706 - 0.51282342224121093750e-2 * t23710 + 0.35165034667968750000e-1 * t23713 - 0.35726945285676419735e-5 * t23716;
6772   t24258 = t6271 * t24103;
6773   t24259 = 0.68295815385143280030e-3 * t24258;
6774   t24260 = t6233 * t24103;
6775   t24262 = t6249 * t24103;
6776   t24263 = 0.23381710957831819541e-9 * t24262;
6777   t24264 = t6263 * t24103;
6778   t24265 = 0.51282342224121093750e-2 * t24264;
6779   t24266 = 0.21104296875000000000e0 * t24100;
6780   t24267 = 0.46898437500000000000e-1 * t24104;
6781   t24268 = -t23764 - t23776 - t23779 + t23782 - t24259 + 0.49022109530114626980e-7 * t24260 - t24263 - t24265 + t24266 - t24267 + t6980;
6782   t24271 = t6239 * t24099;
6783   t24273 = t6256 * t24099;
6784   t24274 = 0.35165034667968750000e-1 * t24273;
6785   t24275 = t6201 * t24099;
6786   t24276 = 0.55319610461966056824e-2 * t24275;
6787   t24277 = t6278 * t24099;
6788   t24278 = 0.89687393649055480959e-3 * t24277;
6789   t24279 = t6220 * t24103;
6790   t24280 = 0.10120973241646885872e-3 * t24279;
6791   t24281 = t6206 * t24103;
6792   t24283 = t6226 * t24099;
6793   t24284 = 0.33494011205321643501e-4 * t24283;
6794   t24285 = t6213 * t24099;
6795   t24286 = 0.47768912745134253054e-6 * t24285;
6796   t24287 = -t7015 + t7016 - t7017 + 0.23434851210008710041e-8 * t24271 + t24274 + t24276 - t24278 + t24280 - 0.35726945285676419736e-5 * t24281 + t24284 - t24286;
6797   t24305 = t3844 * t1658 * t6895;
6798   t24306 = 0.13025448802069528028e-6 * t24305;
6799   t24307 = -t1975 + t1988 - t2001 + t2015 + t2033 + t2042 + 0.81227298067576289179e-3 * t14961 * t1699 * t19508 - 0.41205141949036445618e-2 * t14984 * t1688 * t19508 - 0.35089509979450469837e-5 * t10491 * t24192 + 0.20335003166356764268e-7 * t10499 * t24198 + t24306;
6800   t24319 = 0.37518750000000000000e0 * t24110;
6801   t24322 = t1688 * t6873;
6802   t24325 = t1699 * t6873;
6803   t24328 = t1709 * t6873;
6804   t24333 = -t7363 + t7021 - t7024 - t7043 - t7046 + t7049 - t7079 - 0.86697387226574778556e-3 * t11453 * t24322 + 0.16040918847748786212e-4 * t11460 * t24325 - 0.96927819970648270100e-7 * t11435 * t24328 + 0.16442688835660171509e-1 * t11443 * t24112;
6805   t24363 = -0.37518750000000000000e0 * t23607 - t23838 - t23841 + t23844 - t23847 + t23850 - t23853 - t23859 - 0.15628904296875000000e0 * t23868 - 0.38926820160180330277e-5 * t23872 + 0.79710378265335748434e-11 * t23876;
6806   t24374 = -0.30596525292544189452e-1 * t23943 + 0.54808962785533905030e-2 * t23948 - 0.21674346806643694638e-3 * t23955 + 0.32081837695497572422e-5 * t23962 + t7397 + t7400 - t7403 - t7406 + t7412 + t7415 - t7421;
6807   t24379 = t7230 * t1538;
6808   t24384 = t1834 * t6905;
6809   t24389 = t6362 * t1898;
6810   t24394 = t21319 * t488;
6811   t24397 = t6362 * t1894;
6812   t24404 = t1834 * t6899;
6813   t24418 = t429 * t430 * t24116 * t184 - t12070 * t24384 - 0.36e2 * t12075 * t24384 - 0.12e2 * t12084 * t24384 - 0.24e2 * t12092 * t24384 - 0.6e1 * t1537 * t24394 - 0.6e1 * t1537 * t24397 - 0.2e1 * t1537 * t24404 - 0.3e1 * t1545 * t24394 - 0.3e1 * t1545 * t24397 - t1545 * t24404 + 0.18e2 * t4260 * t24379 + 0.18e2 * t4268 * t24379 + 0.3e1 * t4280 * t24379 + 0.18e2 * t4260 * t24389 + 0.18e2 * t4268 * t24389 + 0.3e1 * t4280 * t24389;
6814   t24419 = my_piecewise3(t102, -0.20757138519287109375e-1 * t14912 * t1678 * t19508 + 0.64502775697519246023e-9 * t23862 * t7319 * t19518 - 0.33212657610556561848e-11 * t23891 * t20522 * t19518 - 0.43418162673565093428e-7 * t10499 * t4848 * t19518 + 0.58912535137067578036e-6 * t14995 * t1658 * t19508 + 0.23913113479600724531e-9 * t19838 * t7319 * t6873 - 0.44721924483613343911e-7 * t19810 * t4848 * t6873 - 0.15628904296875000000e0 * t11464 * t1601 * t6873 - 0.61193050585088378904e-1 * t11425 * t1668 * t6873 + 0.28655987364552961663e-5 * t11435 * t1658 * t6873 - 0.32769822175749141024e-8 * t14953 * t4848 * t19508 + t24374 + t24363 + t24333 - t24319 + t24307 + t24287 + t24268 + t24246 + t24236 + 0.79710378265335748434e-11 * t24230 - t24225 + t24216 + 0.17586914062500000000e-1 * t24113 + t23937 + t23932 - t23928 + t23924 + t23916 - t23920 + 0.28456589743809700012e-4 * t23911 + 0.13025448802069528028e-6 * t23905 - 0.17200740186005132273e-8 * t23908 + 0.24420162963867187500e-3 * t23883 - 0.16154636661774711684e-7 * t23830 + t23761 - t23758 + 0.33494011205321643501e-4 * t23740 + 0.23434851210008710040e-8 * t23734 - 0.89687393649055480959e-3 * t23737 - 0.47768912745134253054e-6 * t23731 + 0.10120973241646885872e-3 * t23725 + 0.55319610461966056823e-2 * t23728 + 0.49022109530114626977e-7 * t23719 - 0.68295815385143280030e-3 * t23722 + 0.21104296875000000000e0 * t23641 - 0.46898437500000000000e-1 * t23644 + 0.24420162963867187500e-2 * t11443 * t24322 + 0.39839225641333580017e-3 * t11453 * t24325 - 0.70068276288324594500e-4 * t11460 * t24328 - 0.42020204802242660523e-2 * t10527 * t24096 + 0.20146027480534203350e-3 * t10513 * t24237 - 0.50875339508056640625e-4 * t10527 * t24237 + t7301 - t7304 + t1961 + t7345 - t7307 + t7001 - t7351 + t6995 - t6998 - t7080 + t7354 + t6983 - t7004 + t7007 - t7010 - t7360 - t6986 + t6989 - t7310 - t6992 + t7335 - t1939 - t1942 - t7298 - t7340, t24418);
6815   t24451 = -0.12e2 * t1582 * t5887 * t1911 - 0.48e2 * t14178 * t1583 * t6849 + 0.12e2 * t1582 * t21405 * t498 + 0.12e2 * t1582 * t5996 * t1911 - t217 * t6924 * t666 + 0.6e1 * t217 * t495 * t7238 * t187 + 0.1174e1 * t24419 + 0.6e1 * t217 * t1908 * t2120 * t187 + 0.2e1 * t217 * t6921 * t619 * t187 + 0.36e2 * t4349 * t1583 * t498 * t1911 - 0.3e1 * t217 * t498 * t7445 + 0.6e1 * t690 * t1855 * t2198 - 0.3e1 * t217 * t1911 * t2198 - 0.4e1 * t1582 * t1583 * t6924 + 0.36e2 * t4349 * t5887 * t1855 + 0.36e2 * t17918 * t7157 - t101 * t24419;
6816   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6817     v4sigma3tau[0] = -0.3e1 / 0.16e2 * t212 * t213 * (t24156 + t24451) * t205 + 0.27831937500000000000e1 * t596 * t7 * t7448 * t602 - 0.12524371875000000000e2 * t21580 * t2071 - 0.13915968750000000000e1 * t7454 * t2076 + 0.16989246301440147933e2 * t5 * t7453 * t2080 * t2084 + 0.31310929687500000000e2 * t17968 * t7128 + 0.62621859375000000000e1 * t6392 * t7132 - 0.43602825262761508097e-1 * t17972 * t7140 + 0.69579843750000000000e0 * t2207 * t7145 - 0.16989246301440147934e2 * t5 * t2206 * t7136 * t2084 + 0.85171693168996171873e1 * t2207 * t7154;
6818 
6819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6820     v4sigma2lapl2[0] = 0.0e0;
6821 
6822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6823     v4sigma2lapltau[0] = 0.0e0;
6824 
6825   t24501 = t7318 * t7571 * t1882;
6826   t24504 = t3794 * t2222 * t1882;
6827   t24506 = t2254 * t1882;
6828   t24507 = t3835 * t24506;
6829   t24510 = t3825 * t2282 * t1882;
6830   t24512 = t2290 * t1882;
6831   t24513 = t3835 * t24512;
6832   t24515 = t2268 * t1882;
6833   t24516 = t3812 * t24515;
6834   t24521 = t7560 - t7561 + 0.26570126088445249478e-11 * t24501 - 0.52096347656250000000e-1 * t24504 + 0.81400543212890625000e-4 * t24507 - 0.10198841764181396484e-1 * t24510 + 0.18269654261844635010e-2 * t24513 - 0.12975606720060110092e-5 * t24516 + 0.39082031250000000000e-2 * t24094 - t1918 + 0.37942119658412933350e-4 * t24190 - 0.51902426880240440369e-5 * t24196;
6835   t24531 = 0.73078617047378540040e-2 * t24201 - 0.28899129075524926185e-3 * t24204 + 0.42775783593996763230e-5 * t24206 - 0.21539515549032948912e-7 * t24208 - 0.20838539062500000000e0 * t24211 - 0.40795367056725585936e-1 * t24214 - 0.22934320248006843030e-8 * t24224 + 0.10628050435378099791e-10 * t24230 + 0.32560217285156250000e-3 * t24235 - t1939 - t1942 + t1945;
6836   t24540 = -t1948 + t1951 - t1954 + 0.97705078125000000000e-3 * t23618 + t23702 - t23703 - 0.77939036526106065137e-10 * t23706 - 0.17094114074707031250e-2 * t23710 + 0.11721678222656250000e-1 * t23713 - 0.11908981761892139912e-5 * t23716 + 0.16340703176704875660e-7 * t23719 - 0.22765271795047760010e-3 * t23722;
6837   t24547 = 0.33736577472156286241e-4 * t23725 + 0.18439870153988685608e-2 * t23728 - 0.15922970915044751018e-6 * t23731 + 0.78116170700029033468e-9 * t23734 - 0.29895797883018493653e-3 * t23737 + 0.11164670401773881167e-4 * t23740 - t23758 + t23761 - t23764 - t23776 - t23779 + t23782;
6838   t24556 = -0.91061087180191040040e-3 * t24258 + 0.65362812706819502637e-7 * t24260 - 0.31175614610442426054e-9 * t24262 - 0.68376456298828125000e-2 * t24264 + 0.28139062500000000000e0 * t24100 - 0.62531250000000000000e-1 * t24104 + t7267 + t7268 - t7269 + t7270 - t7271 + t7272;
6839   t24561 = -t7273 + t7274 - t7277 + t7278 - t7279 - t7280 + t7281 - t7282 + 0.31246468280011613387e-8 * t24271 + 0.46886712890625000000e-1 * t24273 + 0.73759480615954742431e-2 * t24275 - 0.11958319153207397461e-2 * t24277;
6840   t24570 = t2261 * t5252;
6841   t24573 = 0.13494630988862514496e-3 * t24279 - 0.47635927047568559647e-5 * t24281 + 0.44658681607095524668e-4 * t24283 - 0.63691883660179004072e-6 * t24285 - t7656 + t7657 - t7659 - t7660 - t7661 + t7662 + 0.71632478027343750000e-1 * t11357 * t2282 * t5252 - 0.50875339508056640625e-4 * t10527 * t24570;
6842   t24577 = t2254 * t5252;
6843   t24580 = t2275 * t5252;
6844   t24596 = t480 * t1874 * t482 * t2222 * t24086;
6845   t24599 = t3491 * t2222 * t6888;
6846   t24602 = t14479 * t2282 * t5256;
6847   t24605 = t5197 * t2282 * t5260;
6848   t24607 = t10581 * t24577;
6849   t24610 = t5512 * t6672 * t5260;
6850   t24612 = 0.18576461784758972168e-1 * t10581 * t2290 * t5252 - 0.42020204802242660523e-2 * t10527 * t24577 + 0.11353655880052596330e-5 * t10491 * t24580 + 0.20146027480534203350e-3 * t10513 * t24570 + 0.64502775697519246023e-9 * t23862 * t7571 * t5252 + 0.20335003166356764268e-7 * t10499 * t24580 - 0.33212657610556561848e-11 * t23891 * t22426 * t5252 + 0.15632812500000000000e0 * t24596 + 0.70347656250000000000e-1 * t24599 - 0.97705078125000000000e-1 * t24602 - 0.15632812500000000000e-1 * t24605 - 0.48852539062500000000e-3 * t24607 - 0.77939036526106065137e-10 * t24610;
6851   t24617 = t4049 * t2282 * t6888;
6852   t24623 = t5422 * t2290 * t5260;
6853   t24626 = t4096 * t2290 * t6888;
6854   t24632 = t4069 * t2261 * t6888;
6855   t24638 = t5578 * t2268 * t5260;
6856   t24641 = t4077 * t2268 * t6888;
6857   t24647 = t5545 * t2275 * t5260;
6858   t24650 = t4060 * t2275 * t6888;
6859   t24652 = 0.11721678222656250000e-1 * t24617 - 0.20757138519287109375e-1 * t14912 * t2290 * t5256 - 0.17094114074707031250e-2 * t24623 + 0.18439870153988685608e-2 * t24626 - 0.41205141949036445618e-2 * t14984 * t2254 * t5256 + 0.11164670401773881167e-4 * t24632 - 0.35801376421688245609e-4 * t15950 * t2268 * t5256 - 0.11908981761892139912e-5 * t24638 - 0.15922970915044751018e-6 * t24641 + 0.58912535137067578036e-6 * t14995 * t2275 * t5256 + 0.16340703176704875660e-7 * t24647 + 0.78116170700029033468e-9 * t24650;
6860   t24655 = t5463 * t367 * t2218 * t1882;
6861   t24658 = t4088 * t2254 * t6888;
6862   t24664 = t5498 * t2261 * t5260;
6863   t24669 = t2268 * t5252;
6864   t24675 = t7314 * t6672 * t1882;
6865   t24677 = t3844 * t24515;
6866   t24682 = t2290 * t1874;
6867   t24685 = t2268 * t1874;
6868   t24688 = -0.22765271795047760010e-3 * t24655 - 0.29895797883018493653e-3 * t24658 + 0.81227298067576289179e-3 * t14961 * t2261 * t5256 + 0.33736577472156286241e-4 * t24664 - 0.43418162673565093428e-7 * t10499 * t6672 * t5252 - 0.35089509979450469837e-5 * t10491 * t24669 - 0.71141474359524250030e-5 * t10513 * t24669 - 0.57335800620017107576e-9 * t24675 - 0.53848788872582372278e-8 * t24677 - 0.61193050585088378904e-1 * t11425 * t2282 * t1874 + 0.16442688835660171509e-1 * t11443 * t24682 - 0.70068276288324594500e-4 * t11460 * t24685;
6869   t24690 = t2254 * t1874;
6870   t24707 = t11425 * t24682;
6871   t24709 = t3825 * t24512;
6872   t24711 = t3803 * t24506;
6873   t24714 = t3844 * t2275 * t1882;
6874   t24716 = t2261 * t1882;
6875   t24717 = t3812 * t24716;
6876   t24719 = t3803 * t24716;
6877   t24721 = -0.86697387226574778556e-3 * t11453 * t24690 + 0.28655987364552961663e-5 * t11435 * t2275 * t1874 - 0.44721924483613343911e-7 * t19810 * t6672 * t1874 - 0.96927819970648270100e-7 * t11435 * t24685 + 0.23913113479600724531e-9 * t19838 * t7571 * t1874 - 0.15628904296875000000e0 * t11464 * t2222 * t1874 + 0.17586914062500000000e-1 * t24707 + 0.97705078125000000000e-3 * t24709 - 0.72247822688812315463e-4 * t24711 + 0.43418162673565093428e-7 * t24714 + 0.10693945898499190808e-5 * t24717 + 0.94855299146032333374e-5 * t24719;
6878   t24722 = t2261 * t1874;
6879   t24734 = 0.16040918847748786212e-4 * t11460 * t24722 + 0.39839225641333580017e-3 * t11453 * t24722 + 0.24420162963867187500e-2 * t11443 * t24690 + 0.70347656250000000000e-1 * t23641 - 0.15632812500000000000e-1 * t23644 - t7663 + t1961 - t1975 + t1988 - t2001 + t2015 + t2033 - 0.32769822175749141024e-8 * t14953 * t6672 * t5256;
6880   t24739 = t2042 + 0.17367265069426037371e-6 * t24305 - 0.50025000000000000000e0 * t24110 + t7667 - t7668 + t7669 - t7670 - t7671 + t7387 - t7388 - t7389 - t7390;
6881   t24743 = t38 * t1882 * t2219;
6882   t24745 = t7391 - t7393 - t7394 - 0.53848788872582372278e-8 * t23830 - 0.12506250000000000000e0 * t23607 - t23838 - 0.12506250000000000000e0 * t24743 - t23841 + t23844 - t23847 + t23850 - t23853;
6883   t24754 = -t23859 - 0.52096347656250000000e-1 * t23868 - 0.12975606720060110092e-5 * t23872 + 0.26570126088445249478e-11 * t23876 + 0.81400543212890625000e-4 * t23883 + 0.43418162673565093428e-7 * t23905 - 0.57335800620017107576e-9 * t23908 + 0.94855299146032333374e-5 * t23911 + t23916 - t23920 + t23924 - t23928;
6884   t24759 = t23932 + t23937 - 0.10198841764181396484e-1 * t23943 + 0.18269654261844635010e-2 * t23948 - 0.72247822688812315463e-4 * t23955 + 0.10693945898499190808e-5 * t23962 + t7680 + t7681 - t7682 - t7683 + t7684 + t7685 - t7686;
6885   t24764 = t6816 * t1894;
6886   t24767 = t2233 * t1898;
6887   t24768 = t24767 * t184;
6888   t24771 = t2105 * t2105;
6889   t24776 = t1834 * t7207;
6890   t24779 = t2116 * t6362;
6891   t24788 = t6825 * t1898;
6892   t24797 = t7501 - t7507 + 0.3e1 / 0.512e3 * t24094 - t1885 + 0.3e1 / 0.2048e4 * t23618 + t23636 - t23639 + 0.27e2 / 0.64e2 * t24100 - 0.3e1 / 0.32e2 * t24104 + t7195 - t7202 + 0.15e2 / 0.64e2 * t24596 + 0.27e2 / 0.256e3 * t24599;
6893   t24808 = -0.75e2 / 0.512e3 * t24602 - 0.3e1 / 0.128e3 * t24605 - 0.3e1 / 0.4096e4 * t24607 + 0.27e2 / 0.1024e4 * t24707 + 0.3e1 / 0.2048e4 * t24709 + 0.27e2 / 0.256e3 * t23641 - 0.3e1 / 0.128e3 * t23644 - t7497 + t1893 - 0.3e1 / 0.4e1 * t24110 - t7188 - 0.3e1 / 0.16e2 * t23607 - t23616 - 0.3e1 / 0.16e2 * t24743;
6894   t24809 = t24797 + t24808;
6895   t24815 = -0.4e1 * t429 * t1152 * t24771 * t184 + t429 * t430 * t24809 * t184 - 0.36e2 * t12075 * t24768 - 0.24e2 * t12092 * t24768 - 0.4e1 * t1537 * t24776 + 0.6e1 * t4260 * t24764 + 0.6e1 * t4268 * t24764 + 0.24e2 * t4260 * t24779 + 0.24e2 * t4268 * t24779 + 0.4e1 * t4280 * t24779 + 0.6e1 * t4260 * t24788;
6896   t24818 = t22637 * t488;
6897   t24821 = t6825 * t1894;
6898   t24838 = -0.2e1 * t1161 * t1163 * t24771 * t184 - t12070 * t24768 - 0.12e2 * t12084 * t24768 - 0.4e1 * t1537 * t24818 - 0.2e1 * t1537 * t24821 - 0.2e1 * t1545 * t24776 - 0.2e1 * t1545 * t24818 - t1545 * t24821 + t4280 * t24764 + 0.6e1 * t4268 * t24788 + t4280 * t24788;
6899   t24840 = my_piecewise3(t102, t24521 + t24531 + t24540 + t24547 + t24556 + t24561 + t24573 + t24612 + t24652 + t24688 + t24721 + t24734 + t24739 + t24745 + t24754 + t24759, t24815 + t24838);
6900   t24842 = t2215 * t1911;
6901   t24851 = t7481 * t498;
6902   t24854 = t5996 * t2120;
6903   t24857 = 0.8e1 * t1582 * t6514 * t1911 - 0.8e1 * t5873 * t7484 + 0.16e2 * t1582 * t21687 * t498 + 0.16e2 * t1582 * t21691 * t498 + 0.16e2 * t5873 * t7546 + 0.2e1 * t217 * t1908 * t2243 * t187 + 0.1174e1 * t24840 + 0.24e2 * t6401 * t24842 + 0.32e2 * t1582 * t7481 * t495 - 0.16e2 * t1582 * t2215 * t1908 - 0.48e2 * t6401 * t24851 + 0.32e2 * t6408 * t24854;
6904   t24858 = t1583 * t7238;
6905   t24891 = -0.16e2 * t690 * t1872 * t2210 * t187 + 0.4e1 * t217 * t495 * t7538 * t187 - 0.8e1 * t1582 * t21753 * t498 + 0.2e1 * t690 * t1855 * t2328 - t217 * t1911 * t2328 - 0.2e1 * t217 * t2210 * t2056 - 0.2e1 * t217 * t498 * t7710 - 0.16e2 * t19127 * t7162 - 0.8e1 * t217 * t24854 + 0.4e1 * t217 * t24858 + 0.8e1 * t690 * t24851 - 0.16e2 * t6408 * t24858;
6906   t24899 = t2215 * t1855;
6907   t24944 = -0.3e1 / 0.100e3 * t2234 * t1902 - t283 * t24809 * t91 / 0.100e3 + t50 * t24809 * t91 / 0.100e3 - t5985 * t7227 / 0.25e2 + 0.6e1 / 0.25e2 * t5967 * t7227 - t2234 * t822 * t1898 * t91 / 0.10e2 + t823 * t7509 * t488 * t91 / 0.50e2 + t823 * t2229 * t1894 * t91 / 0.100e3 - t2603 * t2229 * t1898 * t91 / 0.100e3 + t823 * t24771 * t91 / 0.50e2 + t823 * t616 * t7207 / 0.50e2;
6908   t24976 = -t2603 * t2233 * t1894 * t91 / 0.100e3 + t8402 * t24767 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t7510 * t2110 - 0.3e1 / 0.100e3 * t2230 * t1905 - 0.3e1 / 0.100e3 * t2230 * t7216 + 0.3e1 / 0.50e2 * t2230 * t7220 - 0.3e1 / 0.50e2 * t50 * t24771 * t816 - 0.3e1 / 0.25e2 * t614 * t7227 - 0.3e1 / 0.50e2 * t614 * t816 * t7207 + 0.3e1 / 0.20e2 * t2234 * t1898 * t87 * t91 + 0.3e1 / 0.50e2 * t2234 * t89 * t1894 * t91;
6909   t24982 = t2120 * t2120;
6910   t24999 = 0.8e1 * t1582 * t21721 * t498 - 0.4e1 * t1582 * t6422 * t1911 - 0.96e2 * t17988 * t24899 + 0.12e2 * t4349 * t6422 * t1855 + 0.8e1 * t690 * t2211 * t2056 - 0.4e1 * t690 * t24842 + 0.2e1 * t217 * t94 * (t24944 + t24976) * t187 - 0.16e2 * t690 * t95 * t24982 * t187 - 0.4e1 * t217 * t7487 * t588 - 0.2e1 * t217 * t2244 * t2056 - 0.4e1 * t217 * t7539 * t588 - 0.24e2 * t4349 * t6514 * t1855;
6911   t25035 = 0.96e2 * t6401 * t1583 * t498 * t2120 + 0.96e2 * t4349 * t2215 * t498 * t495 - 0.64e2 * t1582 * t1583 * t7175 + 0.4e1 * t217 * t24982 * t187 - 0.8e1 * t217 * t2090 * t2198 - 0.8e1 * t217 * t2121 * t2198 - 0.4e1 * t217 * t620 * t7445 - 0.4e1 * t217 * t7171 * t666 - 0.8e1 * t217 * t7175 * t666 - 0.4e1 * t217 * t7239 * t666 - t101 * t24840 + 0.12e2 * t2370 * t24899;
6912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6913     v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t212 * t213 * (t24857 + t24891 + t24999 + t25035) * t205 + 0.18554625000000000000e1 * t596 * t7 * t7713 * t602 - 0.41747906250000000000e1 * t22697 * t2071 - 0.46386562500000000000e0 * t7719 * t2076 + 0.56630821004800493110e1 * t5 * t7718 * t2080 * t2084;
6914 
6915   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6916     v4sigmalapl3[0] = 0.0e0;
6917 
6918   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6919     v4sigmalapl2tau[0] = 0.0e0;
6920 
6921   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6922     v4sigmalapltau2[0] = 0.0e0;
6923 
6924   t25054 = t6514 * t2120;
6925   t25057 = t7831 * t476;
6926   t25060 = t7802 * t476;
6927   t25072 = t7798 * t476;
6928   t25075 = t7827 * t476;
6929   t25096 = t7796 - t7797 + 0.39839225641333580017e-3 * t11453 * t25057 - 0.70068276288324594500e-4 * t11460 * t25060 + 0.28655987364552961663e-5 * t11435 * t7809 * t476 - 0.61193050585088378904e-1 * t11425 * t7752 * t476 - 0.44721924483613343911e-7 * t19810 * t7816 * t476 + 0.16442688835660171509e-1 * t11443 * t25072 - 0.86697387226574778556e-3 * t11453 * t25075 + 0.16040918847748786212e-4 * t11460 * t25057 - 0.96927819970648270100e-7 * t11435 * t25060 - 0.15628904296875000000e0 * t11464 * t7747 * t476 + 0.23913113479600724531e-9 * t19838 * t22760 * t476 + 0.24420162963867187500e-2 * t11443 * t25075 + 0.79710378265335748434e-11 * t24501 - 0.15628904296875000000e0 * t24504 + 0.24420162963867187500e-3 * t24507 - 0.30596525292544189452e-1 * t24510 + 0.54808962785533905030e-2 * t24513 - 0.38926820160180330276e-5 * t24516;
6930   t25103 = -t24225 + 0.79710378265335748435e-11 * t24230 + t24236 - t1939 - t1942 + t1945 - t1948 + t1951 - t1954 + t23702 - t23703;
6931   t25106 = t11425 * t25072;
6932   t25111 = t7831 * t2097;
6933   t25114 = t7802 * t2097;
6934   t25118 = t7809 * t2097;
6935   t25141 = t7827 * t2097;
6936   t25149 = 0.11353655880052596330e-5 * t10491 * t25118 - 0.43418162673565093428e-7 * t10499 * t7816 * t2097 + 0.18576461784758972168e-1 * t10581 * t7798 * t2097 - 0.41205141949036445618e-2 * t14984 * t7827 * t1236 - 0.35801376421688245609e-4 * t15950 * t7802 * t1236 + 0.20146027480534203350e-3 * t10513 * t25111 + 0.71632478027343750000e-1 * t11357 * t7752 * t2097 - 0.20757138519287109375e-1 * t14912 * t7798 * t1236 - 0.42020204802242660523e-2 * t10527 * t25141 + 0.81227298067576289179e-3 * t14961 * t7831 * t1236 - 0.35089509979450469837e-5 * t10491 * t25114;
6937   t25166 = t480 * t7743 * t482 * t484 * t62 * t476;
6938   t25169 = t14479 * t7752 * t1236;
6939   t25171 = t10581 * t25141;
6940   t25175 = -t24265 + t24266 - t24267 + t7638 + t7639 - t7640 + t7641 - t7642 + t7643 - t7644 + t7648;
6941   t25183 = t24280 - 0.35726945285676419735e-5 * t24281 + t24284 - t24286 - t7843 + t7844 - t7845 - t7846 - t7847 + t7848 + 0.21104296875000000000e0 * t24599;
6942   t25206 = -0.68295815385143280030e-3 * t24655 - 0.89687393649055480959e-3 * t24658 + 0.10120973241646885872e-3 * t24664 - 0.17200740186005132273e-8 * t24675 - 0.16154636661774711683e-7 * t24677 + 0.29311523437500000000e-2 * t24709 - 0.21674346806643694639e-3 * t24711 + 0.13025448802069528028e-6 * t24714 + 0.32081837695497572424e-5 * t24717 + 0.28456589743809700012e-4 * t24719 - t7849;
6943   t25210 = -t7891 + t7892 - t7893 - t7894 + t7672 - t7673 - t7674 - t7676 + t7677 - t7678 - t7679;
6944   t25214 = t23924 - t23928 + t23932 + t23937 + t7896 + t7897 - t7898 - t7899 + t7900 + t7901 - t7902;
6945   t25219 = t23239 * t488;
6946   t25222 = t6816 * t2105;
6947   t25227 = t1834 * t7527;
6948   t25230 = t6362 * t2229;
6949   t25235 = t1834 * t7509;
6950   t25242 = t23263 * t488;
6951   t25247 = -t7751 + t7756 - t7760 + t24095 - t7502 + t7503 - t7508 + t24101 - t24105 + 0.15e2 / 0.64e2 * t25166 - 0.75e2 / 0.512e3 * t25169;
6952   t25254 = -0.3e1 / 0.4096e4 * t25171 + 0.27e2 / 0.1024e4 * t25106 + 0.81e2 / 0.256e3 * t24599 - 0.9e1 / 0.128e3 * t24605 + 0.9e1 / 0.2048e4 * t24709 - t1885 + t1893 - t23616 - 0.9e1 / 0.16e2 * t24743 + t23636 - t23639 - t24111;
6953   t25255 = t25247 + t25254;
6954   t25269 = t429 * t430 * t25255 * t184 - t12070 * t25219 - 0.36e2 * t12075 * t25219 - 0.12e2 * t12084 * t25219 - 0.24e2 * t12092 * t25219 - 0.6e1 * t1537 * t25230 - 0.6e1 * t1537 * t25235 - 0.2e1 * t1537 * t25242 - 0.3e1 * t1545 * t25230 - 0.3e1 * t1545 * t25235 - t1545 * t25242 + 0.18e2 * t4260 * t25222 + 0.18e2 * t4268 * t25222 + 0.3e1 * t4280 * t25222 + 0.18e2 * t4260 * t25227 + 0.18e2 * t4268 * t25227 + 0.3e1 * t4280 * t25227;
6955   t25270 = my_piecewise3(t102, -0.33212657610556561848e-11 * t23891 * t22770 * t2097 + 0.58912535137067578036e-6 * t14995 * t7809 * t1236 - 0.32769822175749141024e-8 * t14953 * t7816 * t1236 + 0.64502775697519246023e-9 * t23862 * t22760 * t2097 + t25214 + t25210 + t25206 + t25183 - 0.48852539062500000000e-3 * t25171 + t25175 + 0.15632812500000000000e0 * t25166 - 0.97705078125000000000e-1 * t25169 + t25149 + 0.17586914062500000000e-1 * t25106 + t25103 + t25096 - 0.37518750000000000000e0 * t24743 + 0.49022109530114626980e-7 * t24647 + 0.23434851210008710040e-8 * t24650 - 0.47768912745134253054e-6 * t24641 - 0.35726945285676419736e-5 * t24638 + 0.33494011205321643501e-4 * t24632 - 0.51282342224121093750e-2 * t24623 + 0.55319610461966056824e-2 * t24626 + 0.35165034667968750000e-1 * t24617 - 0.23381710957831819541e-9 * t24610 - 0.46898437500000000000e-1 * t24605 - t24319 + t24306 + t24276 - t24278 + 0.23434851210008710040e-8 * t24271 + t24274 - t24263 - t24259 + 0.49022109530114626977e-7 * t24260 - 0.30596525292544189453e-1 * t24214 - 0.16154636661774711683e-7 * t24208 - t24212 - t24205 + 0.32081837695497572422e-5 * t24206 + t24202 - 0.38926820160180330278e-5 * t24196 + t24191 + t24177 + t23916 - t23920 - t23859 - t23853 - t23847 + t23850 + t23844 - t23838 - t23841 - t23779 + t23782 - t23776 + t23761 - t23764 - t23758 + 0.20335003166356764268e-7 * t10499 * t25118 - 0.50875339508056640625e-4 * t10527 * t25111 - 0.71141474359524250030e-5 * t10513 * t25114 - t1975 + t1961 + t2042 + t2015 - t2001 + t1988 + t2033 - t7652 + t7653 - t7654 - t7649 + t7650 - t7651 - t1918 + t7890, t25269);
6956   t25305 = t2215 * t2120;
6957   t25308 = t23358 * t498;
6958   t25311 = t23358 * t495;
6959   t25321 = 0.72e2 * t6401 * t1583 * t2243 * t498 - 0.48e2 * t1582 * t1583 * t7487 + 0.12e2 * t1582 * t23330 * t498 + 0.12e2 * t1582 * t23368 * t498 - 0.4e1 * t1582 * t23460 * t498 - 0.6e1 * t217 * t2090 * t2328 - 0.6e1 * t217 * t2121 * t2328 - t217 * t498 * t7926 - 0.2e1 * t217 * t7786 * t588 - 0.6e1 * t217 * t620 * t7710 - 0.6e1 * t217 * t7487 * t666 - 0.6e1 * t217 * t7539 * t666 - t101 * t25270 - 0.72e2 * t1582 * t25305 - 0.12e2 * t19127 * t7484 - 0.12e2 * t217 * t25054 + 0.144e3 * t23355 * t25305 + 0.72e2 * t4349 * t25308 + 0.144e3 * t6401 * t25311;
6960   t25330 = t5887 * t2243;
6961   t25348 = t7740 * t498;
6962   t25351 = t5996 * t2243;
6963   t25354 = t1583 * t7538;
6964   t25418 = t50 * t25255 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t7762 * t2110 - 0.9e1 / 0.100e3 * t7510 * t7766 - 0.9e1 / 0.100e3 * t2230 * t2117 - 0.9e1 / 0.100e3 * t2230 * t7515 + 0.9e1 / 0.50e2 * t21935 * t2117 - 0.9e1 / 0.100e3 * t2234 * t2113 + 0.3e1 / 0.20e2 * t7770 * t2110 + 0.9e1 / 0.50e2 * t2234 * t2593 * t2105 - t7770 * t822 * t488 * t91 / 0.10e2 - t283 * t25255 * t91 / 0.100e3 + t823 * t7761 * t488 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t823 * t7509 * t613 * t91 + 0.3e1 / 0.100e3 * t823 * t2229 * t2105 * t91 - 0.3e1 / 0.100e3 * t21924 * t2117 - 0.3e1 / 0.100e3 * t2603 * t2240 * t2105 + t8402 * t7769 * t488 * t91 / 0.100e3;
6965   t25424 = -0.24e2 * t690 * t25311 - 0.48e2 * t2370 * t7724 * t588 + 0.24e2 * t690 * t7728 * t588 + 0.6e1 * t217 * t25330 + 0.24e2 * t690 * t2211 * t2198 - 0.6e1 * t217 * t2244 * t2198 - 0.24e2 * t6408 * t25330 - 0.192e3 * t23377 * t25308 + 0.48e2 * t6408 * t25054 + 0.48e2 * t1582 * t7740 * t495 - 0.72e2 * t6401 * t25348 + 0.24e2 * t6408 * t25351 - 0.24e2 * t6408 * t25354 + 0.2e1 * t217 * t495 * t7785 * t187 + 0.12e2 * t690 * t25348 - 0.6e1 * t217 * t25351 + 0.6e1 * t217 * t25354 - 0.6e1 * t217 * t2210 * t2198 + 0.2e1 * t217 * t94 * t25418 * t187 + 0.1174e1 * t25270;
6966   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6967     v4sigmatau3[0] = -0.3e1 / 0.16e2 * t212 * t213 * (t25321 + t25424) * t205 + 0.92773125000000000000e0 * t596 * t7 * t7929 * t602;
6968 
6969   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6970     v4lapl4[0] = 0.0e0;
6971 
6972   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6973     v4lapl3tau[0] = 0.0e0;
6974 
6975   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6976     v4lapl2tau2[0] = 0.0e0;
6977 
6978   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
6979     v4lapltau3[0] = 0.0e0;
6980 
6981   t25434 = t95 * t95;
6982   t25435 = t2210 * t2210;
6983   t25446 = t2243 * t2243;
6984   t25451 = t1583 * t7785;
6985   t25454 = t6514 * t2243;
6986   t25465 = 0.72953125000000000000e-1 * t7197 - 0.52109375000000000000e-2 * t7205 + 0.15942075653067149687e-10 * t24501 - 0.31257808593750000000e0 * t24504 + 0.48840325927734375000e-3 * t24507 - 0.61193050585088378905e-1 * t24510 + 0.10961792557106781006e-1 * t24513 - 0.77853640320360660554e-5 * t24516 - t1918 - t1939 - t1942 + t1945 - t1948 + t1951;
6987   t25466 = t2218 * t2218;
6988   t25482 = t422 * t25466;
6989   t25483 = t25482 * t10;
6990   t25486 = -t1954 - 0.15628904296875000000e0 * t8806 * t114 * t25466 + 0.16442688835660171509e-1 * t8684 * t138 * t25466 - 0.86697387226574778556e-3 * t8671 * t151 * t25466 + 0.28655987364552961663e-5 * t8768 * t423 * t25466 - 0.61193050585088378904e-1 * t8762 * t127 * t25466 + t23702 - t23703 - t23758 + t23761 - t23764 - t23776 - t23779 + t23782 + 0.20335003166356764268e-7 * t10499 * t25483;
6991   t25488 = t1012 * t25466;
6992   t25492 = t126 * t25466;
6993   t25496 = t137 * t25466;
6994   t25500 = t150 * t25466;
6995   t25501 = t25500 * t10;
6996   t25523 = t8762 * t352 * t25466;
6997   t25531 = -0.32769822175749141024e-8 * t14953 * t25488 * t9 + 0.71632478027343750000e-1 * t11357 * t25492 * t10 - 0.20757138519287109375e-1 * t14912 * t25496 * t9 - 0.42020204802242660523e-2 * t10527 * t25501 + 0.23913113479600724531e-9 * t19837 * t6968 * t25466 + 0.24420162963867187500e-2 * t8684 * t317 * t25466 + 0.39839225641333580017e-3 * t8671 * t326 * t25466 - 0.70068276288324594500e-4 * t8792 * t335 * t25466 + 0.16040918847748786212e-4 * t8792 * t165 * t25466 - 0.96927819970648270100e-7 * t8768 * t178 * t25466 + 0.17586914062500000000e-1 * t25523 - 0.44721924483613343911e-7 * t19809 * t4169 * t25466 - 0.22230099288865327835e-4 * t7297 + 0.26734864746247977019e-6 * t7300 - 0.11336587131069973111e-8 * t7303;
6998   t25547 = -0.52096347656250000000e-1 * t7306 - 0.58279095795322265624e-2 * t7309 + 0.73078617047378540040e-3 * t7334 + 0.42208593750000000000e0 * t24599 - 0.93796875000000000000e-1 * t24605 - 0.46763421915663639082e-9 * t24610 + 0.70330069335937500000e-1 * t24617 - 0.10256468444824218750e-1 * t24623 + 0.11063922092393211365e-1 * t24626 + 0.66988022410643287002e-4 * t24632 - 0.71453890571352839471e-5 * t24638 - 0.95537825490268506108e-6 * t24641 + 0.98044219060229253957e-7 * t24647 + 0.46869702420017420080e-8 * t24650 - 0.13659163077028656006e-2 * t24655;
6999   t25560 = -0.17937478729811096192e-2 * t24658 + 0.20241946483293771744e-3 * t24664 - 0.34401480372010264546e-8 * t24675 - 0.32309273323549423366e-7 * t24677 + 0.58623046875000000000e-2 * t24709 - 0.43348693613287389278e-3 * t24711 + 0.26050897604139056056e-6 * t24714 + 0.64163675390995144846e-5 * t24717 + 0.56913179487619400024e-4 * t24719 - 0.50025000000000000000e0 * t7190 + t1961 - t1975 + t1988 - t2001;
7000   t25566 = t164 * t25466;
7001   t25570 = t25566 * t10;
7002   t25584 = t177 * t25466;
7003   t25585 = t25584 * t10;
7004   t25588 = t2015 + t2033 + t2042 + 0.56437709960937500000e-2 * t7344 - 0.32560217285156250000e-3 * t7350 + 0.57672021880787658692e-3 * t7353 - 0.30353695726730346680e-4 * t7359 - 0.69203235840320587160e-4 * t7362 + 0.81227298067576289179e-3 * t14961 * t25566 * t9 + 0.20146027480534203350e-3 * t10513 * t25570 + 0.11353655880052596330e-5 * t10491 * t25483 - 0.43418162673565093428e-7 * t10499 * t25488 * t10 + 0.18576461784758972168e-1 * t10581 * t25496 * t10 - 0.41205141949036445618e-2 * t14984 * t25500 * t9 - 0.35089509979450469837e-5 * t10491 * t25585;
7005   t25601 = t10581 * t25501;
7006   t25605 = t480 * t25466 * t482 * t23626;
7007   t25607 = 0.58912535137067578036e-6 * t14995 * t25482 * t9 - 0.35801376421688245609e-4 * t15950 * t25584 * t9 - t23838 - 0.75037500000000000000e0 * t24743 - t23841 + t23844 - t23847 + t23850 - t23853 - t23859 - 0.50875339508056640625e-4 * t10527 * t25570 - 0.71141474359524250030e-5 * t10513 * t25585 - 0.48852539062500000000e-3 * t25601 + 0.15632812500000000000e0 * t25605 + t23916;
7008   t25609 = t14479 * t25492 * t9;
7009   t25626 = -t23920 + t23924 - t23928 + t23932 + t23937 - 0.97705078125000000000e-1 * t25609 + 0.64502775697519246023e-9 * t23862 * t3171 * t25466 * t10 - 0.33212657610556561848e-11 * t23891 * t8799 * t25466 * t10 + 0.34601617920160293580e-5 * t7396 + 0.20509913034369796515e-5 * t7399 - 0.99241514682434499264e-7 * t7402 - 0.24244852833607234060e-7 * t7405 + 0.11467160124003421515e-8 * t7411 + 0.10155692638250184245e-9 * t7414 - 0.47235779712791554628e-11 * t7420;
7010   t25630 = t2233 * t2233;
7011   t25635 = t6816 * t2229;
7012   t25642 = t2229 * t2229;
7013   t25649 = t1834 * t7761;
7014   t25667 = -0.3e1 / 0.4e1 * t7190 + 0.7e1 / 0.64e2 * t7197 - t7205 / 0.128e3 + 0.27e2 / 0.1024e4 * t25523 + 0.81e2 / 0.128e3 * t24599 - 0.9e1 / 0.64e2 * t24605 + 0.9e1 / 0.1024e4 * t24709 - 0.3e1 / 0.4096e4 * t25601 + 0.15e2 / 0.64e2 * t25605 - 0.75e2 / 0.512e3 * t25609 - t1885 + t1893 - t23616 - 0.9e1 / 0.8e1 * t24743 + t23636 - t23639;
7015   t25682 = -0.6e1 * t429 * t1152 * t25642 * t184 - 0.3e1 * t1161 * t1163 * t25642 * t184 - 0.36e2 * t1161 * t3311 * t25630 * t184 - 0.24e2 * t429 * t3298 * t25630 * t184 - 0.12e2 * t3309 * t9782 * t25630 * t184 - t9799 * t9801 * t25630 * t184 + t429 * t430 * t25667 * t184 - 0.8e1 * t1537 * t25649 - 0.4e1 * t1545 * t25649 + 0.36e2 * t4260 * t25635 + 0.36e2 * t4268 * t25635 + 0.6e1 * t4280 * t25635;
7016   t25683 = my_piecewise3(t102, t25465 + t25486 + t25531 + t25547 + t25560 + t25588 + t25607 + t25626, t25682);
7017   t25702 = t50 * t25630;
7018   t25724 = t50 * t25667 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t7762 * t7766 - 0.9e1 / 0.50e2 * t2230 * t2240 - 0.9e1 / 0.100e3 * t50 * t25642 * t816 + 0.9e1 / 0.25e2 * t2230 * t89 * t2233 * t91 + 0.3e1 / 0.20e2 * t25702 * t816 - t25702 * t8385 / 0.10e2 - t283 * t25667 * t91 / 0.100e3 + t823 * t7761 * t613 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t823 * t25642 * t91 - 0.3e1 / 0.50e2 * t2603 * t2229 * t2233 * t91 + t8402 * t25630 * t91 / 0.100e3;
7019   t25750 = t2215 * t2243;
7020   t25762 = 0.288e3 * t2370 * t95 * t25435 * t187 + 0.6e1 * t217 * t25446 * t187 - 0.12e2 * t217 * t2244 * t2328 - 0.8e1 * t217 * t620 * t7926 - 0.8e1 * t217 * t7786 * t666 + 0.48e2 * t690 * t2211 * t2328 + 0.96e2 * t690 * t7728 * t666 - t101 * t25683 - 0.144e3 * t1582 * t25750 - 0.24e2 * t217 * t25454 + 0.288e3 * t23355 * t25750;
7021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7022     v4tau4[0] = -0.3e1 / 0.16e2 * t212 * t213 * (-0.384e3 * t7989 * t25434 * t25435 * t187 - 0.192e3 * t2370 * t7724 * t666 - 0.24e2 * t690 * t25435 * t187 - 0.24e2 * t690 * t95 * t25446 * t187 - 0.32e2 * t6408 * t25451 + 0.96e2 * t6408 * t25454 + 0.1174e1 * t25683 - 0.12e2 * t217 * t2210 * t2328 + 0.2e1 * t217 * t94 * t25724 * t187 + 0.8e1 * t217 * t25451 + t25762) * t205;
7023 
7024 #ifndef XC_DONT_COMPILE_MXC
7025 
7026   if(order < 5) return;
7027 
7028 
7029 #endif
7030 
7031 #endif
7032 
7033 #endif
7034 
7035 #endif
7036 
7037 #endif
7038 
7039 
7040 }
7041 
7042 
7043 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 *))7044 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 *))
7045 {
7046 
7047 #ifndef XC_DONT_COMPILE_EXC
7048   double t2, t4, t5, t6, t7, t8, t9, t10;
7049   double t11, t12, t13, t14, t15, t16, t17, t18;
7050   double t19, t20, t21, t25, t26, t27, t28, t29;
7051   double t30, t31, t32, t33, t34, t35, t36, t38;
7052   double t39, t42, t46, t47, t50, t51, t54, t55;
7053   double t56, t57, t58, t59, t64, t65, t66, t67;
7054   double t68, t69, t71, t73, t74, t75, t76, t77;
7055   double t79, t81, t84, t85, t86, t91, t92, t94;
7056   double t95, t96, t97, t98, t99, t100, t101, t102;
7057   double t103, t104, t107, t108, t109, t110, t111, t112;
7058   double t113, t114, t115, t116, t117, t120, t121, t122;
7059   double t123, t124, t125, t126, t127, t128, t131, t132;
7060   double t133, t134, t135, t136, t138, t140, t141, t144;
7061   double t145, t146, t147, t148, t149, t150, t152, t154;
7062   double t155, t158, t159, t160, t161, t162, t163, t165;
7063   double t167, t168, t174, t176, t177, t180, t182, t183;
7064   double t184, t185, t186, t187, t189, t190, t194, t195;
7065   double t197;
7066 
7067 #ifndef XC_DONT_COMPILE_VXC
7068   double t201, t202, t203, t205, t206, t207, t208, t211;
7069   double t212, t217, t218, t219, t220, t221, t222, t230;
7070   double t231, t233, t238, t239, t240, t242, t243, t244;
7071   double t245, t247, t248, t250, t251, t255, t256, t259;
7072   double t261, t263, t264, t265, t266, t270, t271, t274;
7073   double t277, t278, t280, t281, t282, t283, t284, t285;
7074   double t288, t289, t291, t292, t293, t294, t297, t298;
7075   double t300, t301, t302, t303, t306, t307, t308, t309;
7076   double t310, t311, t314, t315, t316, t317, t318, t319;
7077   double t320, t324, t325, t326, t327, t328, t329, t330;
7078   double t335, t336, t339, t340, t343, t344, t347, t348;
7079   double t351, t352, t353, t356, t357, t358, t361, t362;
7080   double t363, t366, t367, t370, t371, t372, t375, t376;
7081   double t379, t380, t381, t384, t385, t386, t387, t391;
7082   double t394, t397, t398, t401, t402, t405, t406, t407;
7083   double t410, t411, t414, t416, t417, t421, t424, t425;
7084   double t429, t430, t431, t432, t433, t434, t435, t436;
7085   double t439, t440, t443, t452, t461, t462, t463, t465;
7086   double t466, t467, t468, t469, t470, t472, t473, t476;
7087   double t479, t482, t483, t487, t490, t491, t492, t493;
7088   double t494, t497, t500, t501, t502, t503, t504, t505;
7089   double t506, t507, t510, t513, t514, t515, t516, t518;
7090   double t519, t520, t523, t526, t527, t528, t529, t531;
7091   double t532, t533, t536, t539, t540, t541, t542, t544;
7092   double t545, t546, t549, t552, t553, t554, t555, t557;
7093   double t558, t559, t562, t566, t569, t570, t571, t574;
7094   double t575, t576, t577, t580, t583, t584, t585, t587;
7095   double t588, t590, t591, t593, t596, t597, t603, t606;
7096   double t609, t612, t615, t618, t621, t624, t627, t630;
7097   double t633, t636, t639, t643, t646, t647, t648;
7098 
7099 #ifndef XC_DONT_COMPILE_FXC
7100   double t651, t659, t660, t667, t668, t669, t672, t673;
7101   double t674, t677, t678, t683, t689, t690, t691, t692;
7102   double t693, t695, t696, t699, t704, t705, t707, t710;
7103   double t711, t713, t715, t716, t717, t718, t720, t721;
7104   double t722, t723, t724, t725, t727, t728, t729, t730;
7105   double t736, t737, t738, t740, t741, t743, t744, t746;
7106   double t747, t748, t750, t751, t752, t753, t758, t761;
7107   double t767, t768, t769, t770, t773, t776, t778, t781;
7108   double t782, t783, t784, t785, t788, t790, t793, t796;
7109   double t797, t798, t801, t804, t807, t819, t820, t825;
7110   double t826, t827, t830, t835, t838, t841, t846, t849;
7111   double t852, t857, t859, t862, t865, t866, t867, t868;
7112   double t871, t874, t875, t876, t879, t882, t883, t884;
7113   double t887, t888, t891, t892, t893, t896, t900, t901;
7114   double t902, t905, t906, t907, t910, t915, t918, t921;
7115   double t924, t927, t930, t933, t936, t939, t944, t947;
7116   double t950, t955, t958, t961, t967, t970, t973, t974;
7117   double t975, t976, t977, t978, t981, t982, t983, t984;
7118   double t985, t986, t989, t990, t991, t992, t993, t996;
7119   double t998, t1001, t1003, t1006, t1008, t1011, t1013, t1016;
7120   double t1017, t1018, t1021, t1023, t1024, t1025, t1028, t1029;
7121   double t1030, t1033, t1034, t1035, t1038, t1039, t1040, t1043;
7122   double t1044, t1045, t1046, t1047, t1048, t1051, t1052, t1053;
7123   double t1054, t1055, t1056, t1059, t1060, t1061, t1062, t1063;
7124   double t1064, t1067, t1069, t1072, t1074, t1077, t1078, t1079;
7125   double t1083, t1084, t1087, t1088, t1091, t1092, t1095, t1096;
7126   double t1099, t1100, t1103, t1104, t1107, t1108, t1111, t1112;
7127   double t1115, t1116, t1119, t1120, t1124, t1128, t1136, t1137;
7128   double t1138, t1139, t1144, t1147, t1148, t1152, t1156, t1157;
7129   double t1161, t1162, t1164, t1168, t1170, t1171, t1175, t1178;
7130   double t1191, t1192, t1193, t1195, t1203, t1205, t1206, t1207;
7131   double t1208, t1210, t1211, t1213, t1214, t1215, t1218, t1219;
7132   double t1220, t1222, t1223, t1225, t1226, t1227, t1228, t1230;
7133   double t1231, t1232, t1233, t1235, t1236, t1237, t1238, t1240;
7134   double t1241, t1243, t1244, t1248, t1251, t1254, t1255, t1258;
7135   double t1261, t1262, t1264, t1266, t1270, t1271, t1272, t1277;
7136   double t1278, t1279, t1280, t1285, t1286, t1287, t1288, t1293;
7137   double t1294, t1295, t1296, t1301, t1302, t1303, t1304, t1309;
7138   double t1310, t1312, t1313, t1314, t1315, t1320, t1321, t1322;
7139   double t1327, t1328, t1331, t1334, t1335, t1336, t1339, t1342;
7140   double t1345, t1348, t1351, t1354, t1357, t1360, t1365, t1366;
7141   double t1367, t1372, t1373, t1374, t1379, t1380, t1385, t1388;
7142   double t1390, t1393, t1396, t1403, t1404, t1407, t1408, t1413;
7143   double t1414, t1417, t1418, t1423, t1424, t1425, t1428, t1429;
7144   double t1432, t1437, t1438, t1439, t1440, t1443, t1444, t1447;
7145   double t1452, t1453, t1454, t1457, t1458, t1459, t1462, t1467;
7146   double t1468, t1471, t1472, t1473, t1476, t1477, t1480, t1485;
7147   double t1486, t1493, t1496, t1497, t1498, t1504, t1507, t1510;
7148   double t1511, t1512, t1515, t1519, t1522, t1525, t1528, t1529;
7149   double t1530, t1532, t1537, t1538, t1539, t1542, t1546, t1548;
7150   double t1549, t1550, t1552, t1553, t1555, t1556, t1557, t1560;
7151   double t1561, t1562, t1564, t1566, t1567, t1569, t1570, t1572;
7152   double t1573, t1574, t1576, t1577, t1579, t1580, t1585, t1588;
7153   double t1589, t1592, t1593, t1600, t1616, t1619, t1622, t1625;
7154   double t1628, t1631, t1634, t1637, t1640, t1643, t1644, t1647;
7155   double t1650, t1669, t1670, t1673, t1676, t1677, t1684, t1686;
7156   double t1689, t1690, t1697, t1700, t1701, t1708, t1711, t1712;
7157   double t1719, t1722, t1723, t1730, t1733, t1742, t1745, t1750;
7158   double t1755, t1760, t1765, t1772, t1775, t1776, t1784, t1787;
7159   double t1788, t1789, t1792, t1796, t1797, t1808, t1809, t1811;
7160   double t1814, t1816, t1817, t1818, t1820, t1821, t1823, t1824;
7161   double t1825, t1826, t1827, t1828, t1829, t1830, t1832, t1833;
7162   double t1834, t1835, t1836, t1839, t1840, t1843, t1846, t1849;
7163   double t1852, t1853, t1855, t1858, t1861, t1864, t1867, t1869;
7164   double t1870, t1873, t1875, t1876, t1877, t1878, t1879, t1882;
7165   double t1884, t1885, t1888, t1890, t1891, t1892, t1893, t1894;
7166   double t1897, t1899, t1900, t1903, t1905, t1906, t1907, t1908;
7167   double t1909, t1912, t1914, t1915, t1918, t1919, t1921, t1922;
7168   double t1923, t1924, t1925, t1928, t1930, t1931, t1934, t1936;
7169   double t1937, t1938, t1939, t1940, t1943, t1945, t1946, t1949;
7170   double t1951, t1952, t1953, t1954, t1955, t1957, t1958, t1959;
7171   double t1962, t1965, t1968, t1973, t1975, t1976, t1989, t1992;
7172   double t1993, t1994, t1997, t2001, t2002, t2005, t2010, t2014;
7173   double t2016, t2019, t2022, t2026, t2027, t2029, t2030, t2032;
7174   double t2033, t2034, t2036, t2037, t2041, t2044, t2047, t2048;
7175   double t2051, t2052, t2059, t2061, t2064, t2067, t2068, t2075;
7176   double t2076, t2083, t2090, t2091, t2094, t2097, t2098, t2105;
7177   double t2113, t2115, t2123, t2126, t2127, t2128, t2131, t2134;
7178   double t2135, t2139, t2142, t2143, t2144, t2146, t2147, t2149;
7179   double t2150, t2152, t2153, t2156, t2157, t2163, t2166, t2167;
7180   double t2174, t2177, t2180, t2183, t2186, t2189, t2192, t2195;
7181   double t2198, t2201, t2204, t2207, t2210, t2213, t2216, t2219;
7182   double t2222, t2225, t2226, t2232, t2245, t2248, t2249, t2250;
7183 
7184 #ifndef XC_DONT_COMPILE_KXC
7185   double t2261, t2262, t2275, t2276, t2277, t2282, t2284, t2287;
7186   double t2289, t2290, t2294, t2300, t2301, t2304, t2309, t2314;
7187   double t2317, t2320, t2321, t2322, t2323, t2326, t2327, t2335;
7188   double t2336, t2337, t2338, t2340, t2341, t2342, t2344, t2345;
7189   double t2348, t2349, t2350, t2352, t2354, t2359, t2362, t2368;
7190   double t2369, t2374, t2377, t2380, t2383, t2384, t2385, t2386;
7191   double t2389, t2390, t2397, t2398, t2401, t2402, t2405, t2406;
7192   double t2407, t2408, t2410, t2412, t2414, t2416, t2417, t2419;
7193   double t2421, t2422, t2424, t2425, t2427, t2429, t2430, t2432;
7194   double t2434, t2435, t2437, t2438, t2441, t2442, t2444, t2445;
7195   double t2446, t2448, t2449, t2451, t2452, t2453, t2455, t2456;
7196   double t2458, t2459, t2460, t2462, t2463, t2464, t2466, t2467;
7197   double t2469, t2471, t2472, t2473, t2474, t2475, t2477, t2478;
7198   double t2479, t2481, t2482, t2483, t2484, t2485, t2487, t2488;
7199   double t2489, t2491, t2492, t2493, t2498, t2499, t2502, t2509;
7200   double t2512, t2516, t2519, t2528, t2531, t2534, t2537, t2540;
7201   double t2543, t2549, t2552, t2555, t2558, t2561, t2562, t2565;
7202   double t2568, t2571, t2580, t2583, t2586, t2589, t2592, t2597;
7203   double t2603, t2606, t2609, t2618, t2623, t2626, t2629, t2632;
7204   double t2639, t2642, t2645, t2655, t2657, t2664, t2666, t2669;
7205   double t2672, t2674, t2677, t2679, t2682, t2684, t2687, t2689;
7206   double t2692, t2694, t2697, t2710, t2711, t2716, t2718, t2733;
7207   double t2734, t2738, t2741, t2742, t2746, t2749, t2750, t2754;
7208   double t2757, t2759, t2760, t2764, t2767, t2768, t2771, t2774;
7209   double t2775, t2786, t2789, t2790, t2793, t2794, t2795, t2798;
7210   double t2800, t2803, t2806, t2807, t2810, t2811, t2814, t2817;
7211   double t2818, t2821, t2824, t2825, t2826, t2829, t2830, t2833;
7212   double t2836, t2840, t2841, t2844, t2847, t2848, t2849, t2852;
7213   double t2853, t2856, t2857, t2860, t2861, t2862, t2865, t2867;
7214   double t2870, t2873, t2876, t2877, t2880, t2881, t2884, t2885;
7215   double t2888, t2890, t2893, t2894, t2896, t2899, t2902, t2904;
7216   double t2907, t2909, t2912, t2914, t2917, t2919, t2922, t2925;
7217   double t2928, t2931, t2934, t2935, t2939, t2942, t2945, t2947;
7218   double t2950, t2951, t2954, t2955, t2958, t2960, t2963, t2965;
7219   double t2968, t2970, t2973, t2974, t2977, t2978, t2981, t2984;
7220   double t2985, t2988, t2991, t2994, t2997, t2998, t3010, t3011;
7221   double t3012, t3015, t3016, t3019, t3020, t3023, t3028, t3031;
7222   double t3034, t3035, t3036, t3037, t3040, t3043, t3044, t3045;
7223   double t3048, t3049, t3050, t3053, t3054, t3055, t3058, t3061;
7224   double t3064, t3065, t3066, t3069, t3072, t3075, t3076, t3079;
7225   double t3080, t3085, t3088, t3091, t3092, t3097, t3100, t3103;
7226   double t3104, t3109, t3110, t3111, t3112, t3115, t3118, t3120;
7227   double t3121, t3122, t3125, t3128, t3129, t3130, t3133, t3134;
7228   double t3137, t3140, t3143, t3146, t3147, t3152, t3155, t3158;
7229   double t3159, t3164, t3165, t3168, t3169, t3170, t3173, t3176;
7230   double t3177, t3178, t3181, t3182, t3183, t3186, t3197, t3206;
7231   double t3207, t3210, t3211, t3222, t3224, t3229, t3232, t3233;
7232   double t3237, t3245, t3249, t3250, t3251, t3252, t3256, t3258;
7233   double t3259, t3264, t3265, t3269, t3270, t3275, t3279, t3286;
7234   double t3307, t3310, t3320, t3321, t3322, t3323, t3324, t3327;
7235   double t3328, t3330, t3331, t3332, t3334, t3335, t3337, t3338;
7236   double t3340, t3343, t3344, t3345, t3347, t3349, t3350, t3352;
7237   double t3354, t3355, t3357, t3358, t3359, t3361, t3362, t3364;
7238   double t3366, t3368, t3369, t3370, t3372, t3373, t3375, t3376;
7239   double t3377, t3378, t3380, t3381, t3383, t3384, t3386, t3387;
7240   double t3389, t3390, t3391, t3392, t3394, t3395, t3396, t3398;
7241   double t3399, t3401, t3402, t3404, t3405, t3407, t3409, t3410;
7242   double t3411, t3413, t3414, t3416, t3417, t3419, t3420, t3421;
7243   double t3423, t3424, t3426, t3427, t3429, t3430, t3431, t3432;
7244   double t3434, t3435, t3436, t3444, t3448, t3455, t3458, t3459;
7245   double t3463, t3466, t3469, t3470, t3472, t3475, t3507, t3510;
7246   double t3513, t3524, t3527, t3530, t3533, t3536, t3539, t3542;
7247   double t3545, t3548, t3551, t3553, t3556, t3559, t3562, t3569;
7248   double t3574, t3577, t3586, t3590, t3591, t3598, t3601, t3602;
7249   double t3609, t3612, t3613, t3620, t3623, t3628, t3629, t3632;
7250   double t3635, t3638, t3639, t3642, t3645, t3648, t3659, t3660;
7251   double t3667, t3668, t3671, t3672, t3679, t3682, t3685, t3688;
7252   double t3689, t3696, t3707, t3709, t3712, t3713, t3718, t3721;
7253   double t3722, t3723, t3726, t3729, t3734, t3735, t3736, t3739;
7254   double t3740, t3741, t3744, t3747, t3752, t3753, t3754, t3759;
7255   double t3760, t3763, t3764, t3767, t3768, t3771, t3778, t3783;
7256   double t3784, t3787, t3790, t3793, t3802, t3808, t3809, t3812;
7257   double t3817, t3818, t3827, t3828, t3831, t3834, t3837, t3844;
7258   double t3847, t3848, t3851, t3856, t3857, t3860, t3863, t3866;
7259   double t3878, t3890, t3895, t3898, t3901, t3904, t3909, t3914;
7260   double t3919, t3926, t3935, t3938, t3939, t3942, t3945, t3948;
7261   double t3949, t3952, t3959, t3960, t3967, t3968, t3971, t3978;
7262   double t3979, t3984, t3985, t3988, t3991, t3992, t3993, t3998;
7263   double t3999, t4000, t4005, t4006, t4007, t4012, t4013, t4014;
7264   double t4019, t4020, t4021, t4022, t4027, t4028, t4029, t4036;
7265   double t4044, t4045, t4050, t4051, t4052, t4055, t4056, t4059;
7266   double t4060, t4065, t4066, t4069, t4072, t4073, t4076, t4079;
7267   double t4080, t4083, t4086, t4087, t4092, t4093, t4096, t4099;
7268   double t4100, t4105, t4106, t4109, t4112, t4113, t4118, t4119;
7269   double t4122, t4125, t4130, t4131, t4134, t4135, t4138, t4141;
7270   double t4150, t4153, t4156, t4157, t4158, t4161, t4169, t4172;
7271   double t4177, t4180, t4183, t4186, t4188, t4192, t4195, t4199;
7272   double t4208, t4209, t4212, t4215, t4216, t4219, t4220, t4223;
7273   double t4226, t4230, t4237, t4239, t4241, t4243, t4246, t4247;
7274   double t4248, t4250, t4252, t4253, t4255, t4256, t4258, t4260;
7275   double t4262, t4263, t4264, t4266, t4267, t4269, t4270, t4271;
7276   double t4273, t4274, t4276, t4278, t4280, t4281, t4282, t4284;
7277   double t4285, t4286, t4288, t4289, t4291, t4292, t4294, t4295;
7278   double t4297, t4298, t4300, t4302, t4303, t4305, t4306, t4308;
7279   double t4309, t4311, t4313, t4314, t4316, t4317, t4319, t4320;
7280   double t4322, t4323, t4324, t4326, t4327, t4328, t4330, t4332;
7281   double t4334, t4335, t4336, t4350, t4351, t4354, t4358, t4362;
7282   double t4363, t4388, t4389, t4392, t4395, t4396, t4403, t4406;
7283   double t4407, t4410, t4415, t4418, t4419, t4426, t4433, t4436;
7284   double t4437, t4444, t4447, t4450, t4458, t4465, t4466, t4469;
7285   double t4472, t4479, t4482, t4489, t4496, t4499, t4506, t4511;
7286   double t4514, t4517, t4524, t4527, t4530, t4537, t4540, t4543;
7287   double t4546, t4555, t4558, t4567, t4570, t4571, t4576, t4581;
7288   double t4584, t4603, t4607, t4620, t4627, t4630, t4635, t4640;
7289   double t4647, t4652, t4657, t4662, t4675, t4699, t4707, t4710;
7290   double t4715, t4718, t4727, t4731, t4744, t4753, t4758, t4763;
7291   double t4764, t4785, t4788, t4791, t4794, t4797, t4800, t4803;
7292   double t4806, t4809, t4812, t4815, t4818, t4821, t4832, t4863;
7293   double t4891, t4922, t4927, t4930, t4931, t4936, t4947, t4950;
7294   double t4951, t4952, t4955, t4963, t4974, t4977, t4990, t4991;
7295   double t4994, t5001, t5002, t5003, t5004, t5005, t5006, t5007;
7296   double t5008, t5009, t5010, t5012, t5013, t5014, t5015, t5016;
7297   double t5017, t5018, t5019, t5020, t5021, t5022, t5023, t5025;
7298   double t5026, t5027, t5029, t5030, t5032, t5033, t5034, t5036;
7299   double t5037, t5039, t5040, t5042, t5043, t5045, t5046, t5047;
7300   double t5048, t5050, t5051, t5052, t5054, t5055, t5056, t5057;
7301   double t5058, t5059, t5060, t5062, t5063, t5064, t5065, t5066;
7302   double t5068, t5070, t5072, t5073, t5074, t5076, t5077, t5078;
7303   double t5079, t5080, t5085, t5091, t5097, t5098, t5101, t5105;
7304   double t5108, t5111, t5112, t5114, t5119, t5122, t5127, t5128;
7305   double t5130, t5131, t5142, t5143, t5148, t5149, t5152, t5153;
7306   double t5156, t5157, t5158, t5162, t5163, t5166, t5167, t5170;
7307   double t5171, t5178, t5179, t5180, t5181, t5182, t5185, t5192;
7308   double t5193, t5196, t5197, t5200, t5201, t5202, t5203, t5204;
7309   double t5207, t5208, t5209, t5210, t5211, t5212, t5213, t5214;
7310   double t5217, t5220, t5221, t5222, t5225, t5226, t5227, t5228;
7311   double t5230, t5231, t5233, t5234, t5235, t5236, t5239, t5240;
7312   double t5243, t5244, t5249, t5250, t5251, t5254, t5255, t5256;
7313   double t5257, t5258, t5259, t5262, t5263, t5264, t5265, t5268;
7314   double t5269, t5270, t5271, t5272, t5273, t5276, t5277, t5278;
7315   double t5281, t5282, t5283, t5284, t5285, t5286, t5289, t5290;
7316   double t5291, t5296, t5302, t5303, t5304, t5305, t5306, t5307;
7317   double t5310, t5311, t5314, t5316, t5318, t5321, t5323, t5324;
7318   double t5330, t5331, t5332, t5335, t5336, t5339, t5340, t5341;
7319   double t5342, t5343, t5344, t5345, t5350, t5351, t5352, t5353;
7320   double t5356, t5359, t5362, t5363, t5364, t5365, t5366, t5367;
7321   double t5368, t5370, t5371, t5372, t5375, t5378, t5381, t5382;
7322   double t5383, t5384, t5391, t5392, t5393, t5394, t5395, t5396;
7323   double t5397, t5398, t5399, t5402, t5403, t5406, t5409, t5410;
7324   double t5411, t5412, t5413, t5414, t5415, t5416, t5423, t5424;
7325   double t5425, t5426, t5427, t5428, t5431, t5432, t5439, t5440;
7326   double t5441, t5444, t5447, t5458, t5471, t5472, t5473, t5474;
7327   double t5475, t5476, t5477, t5478, t5479, t5480, t5483, t5484;
7328   double t5487, t5490, t5510, t5511, t5512, t5513, t5514, t5515;
7329   double t5516, t5517, t5518, t5525, t5526, t5527, t5528, t5535;
7330   double t5536, t5537, t5538, t5539, t5540, t5543, t5548, t5549;
7331   double t5552, t5558, t5569, t5572, t5573, t5574, t5577, t5581;
7332   double t5586, t5590, t5593, t5595, t5598, t5600, t5605, t5610;
7333   double t5612, t5617, t5618, t5623, t5626, t5629, t5632, t5635;
7334   double t5639, t5646, t5647, t5650, t5654, t5655, t5656, t5657;
7335   double t5659, t5660, t5662, t5663, t5665, t5666, t5668, t5669;
7336   double t5671, t5672, t5673, t5675, t5676, t5678, t5679, t5681;
7337   double t5682, t5684, t5685, t5687, t5688, t5690, t5691, t5693;
7338   double t5695, t5697, t5699, t5700, t5701, t5703, t5705, t5706;
7339   double t5708, t5709, t5710, t5721, t5727, t5728, t5732, t5739;
7340   double t5742, t5743, t5750, t5751, t5766, t5768, t5772, t5775;
7341   double t5778, t5781, t5788, t5791, t5794, t5797, t5800, t5803;
7342   double t5806, t5817, t5820, t5833, t5859, t5865, t5868, t5875;
7343   double t5887, t5902, t5903, t5906, t5909, t5912, t5921, t5924;
7344   double t5935, t5939, t5942, t5953, t5956, t5967, t5970, t5978;
7345   double t5987, t5990, t6003, t6014, t6020, t6024, t6031, t6032;
7346   double t6039, t6046, t6051, t6054, t6061, t6064, t6069, t6072;
7347   double t6077, t6080, t6081, t6092, t6095, t6096, t6097, t6098;
7348   double t6101, t6105, t6110, t6115, t6116, t6122, t6123, t6133;
7349   double t6136, t6137, t6140, t6144, t6145, t6147, t6148, t6149;
7350   double t6151, t6152, t6153, t6155, t6156, t6158, t6159, t6160;
7351   double t6162, t6163, t6165, t6166, t6167, t6169, t6170, t6172;
7352   double t6174, t6176, t6178, t6180, t6181, t6182, t6184, t6185;
7353   double t6187, t6188, t6190, t6191, t6192, t6197, t6207, t6214;
7354   double t6218, t6219, t6226, t6227, t6241, t6242, t6245, t6246;
7355   double t6249, t6252, t6255, t6256, t6259, t6283, t6286, t6287;
7356   double t6290, t6293, t6298, t6304, t6305, t6310, t6313, t6314;
7357   double t6337, t6353, t6356, t6357, t6360, t6365, t6370, t6373;
7358   double t6374, t6377, t6388, t6400, t6403, t6404, t6409, t6414;
7359   double t6417, t6420, t6431, t6445, t6446, t6449, t6464, t6488;
7360   double t6492, t6497, t6498, t6501, t6506, t6507, t6518, t6521;
7361   double t6522, t6523, t6526, t6530, t6531, t6537, t6546, t6549;
7362   double t6554, t6555, t6556, t6558, t6559, t6561, t6562, t6563;
7363   double t6564, t6565, t6567, t6568, t6569, t6570, t6571, t6573;
7364   double t6574, t6575, t6576, t6577, t6582, t6583, t6592, t6598;
7365   double t6601, t6602, t6604, t6607, t6610, t6613, t6616, t6619;
7366   double t6622, t6625, t6628, t6631, t6634, t6637, t6640, t6643;
7367   double t6646, t6649, t6652, t6655, t6656, t6659, t6660, t6663;
7368   double t6666, t6667, t6668, t6670, t6671, t6672, t6675, t6678;
7369   double t6681, t6684, t6687, t6693, t6694, t6695, t6696, t6697;
7370   double t6698, t6699, t6700, t6701, t6702, t6703, t6704, t6706;
7371   double t6707, t6708, t6709, t6710, t6711, t6712, t6713, t6714;
7372   double t6715, t6716, t6717, t6718, t6719, t6720, t6721, t6722;
7373   double t6723, t6724, t6725, t6726, t6727, t6728, t6729, t6730;
7374   double t6731, t6732, t6733, t6734, t6735, t6736, t6738, t6739;
7375   double t6740, t6741, t6742, t6749, t6765, t6768, t6769, t6770;
7376   double t6773, t6777, t6784, t6786, t6791, t6795, t6796, t6798;
7377   double t6803, t6806, t6809, t6811, t6814, t6819, t6822, t6825;
7378   double t6828, t6832, t6839, t6840, t6842, t6843, t6845, t6846;
7379   double t6847, t6848, t6849, t6850, t6852, t6853, t6854, t6855;
7380   double t6856, t6857, t6859, t6860, t6861, t6862, t6863, t6864;
7381   double t6872, t6876, t6883, t6886, t6890, t6894, t6895, t6905;
7382   double t6908, t6910, t6913, t6914, t6915, t6916, t6917, t6920;
7383   double t6921, t6924, t6925, t6928, t6929, t6930, t6931, t6934;
7384   double t6935, t6939, t6940, t6943, t6944, t6945, t6946, t6949;
7385   double t6950, t6954, t6956, t6958, t6960, t6961, t6962, t6963;
7386   double t6964, t6965, t6966, t6967, t6968, t6969, t6971, t6972;
7387   double t6973, t6974, t6975, t6976, t6977, t6978, t6979, t6980;
7388   double t6981, t6982, t6985, t6988, t6989, t6990, t6991, t6994;
7389   double t6995, t6998, t6999, t7000, t7004, t7005, t7006, t7007;
7390   double t7010, t7011, t7014, t7015, t7018, t7019, t7020, t7021;
7391   double t7022, t7025, t7026, t7030, t7031, t7034, t7035, t7050;
7392   double t7054, t7057, t7062, t7073, t7076, t7077, t7078, t7081;
7393   double t7085, t7092, t7095, t7098, t7108, t7111, t7114, t7118;
7394   double t7119, t7121, t7122, t7124, t7125, t7126, t7128, t7129;
7395   double t7130, t7131, t7132, t7134, t7135, t7136, t7137, t7142;
7396   double t7154, t7165, t7166, t7173, t7185, t7187, t7188, t7189;
7397   double t7190, t7191, t7192, t7193, t7194, t7195, t7196, t7198;
7398   double t7199, t7200, t7201, t7202, t7203, t7204, t7205, t7206;
7399   double t7207, t7208, t7209, t7211, t7212, t7213, t7214, t7215;
7400   double t7216, t7217, t7218, t7223, t7224, t7225, t7226, t7229;
7401   double t7232, t7243, t7254, t7261, t7266, t7284, t7288, t7289;
7402   double t7290, t7291, t7292, t7293, t7294, t7295, t7296, t7297;
7403   double t7298, t7302, t7305, t7310, t7321, t7324, t7325, t7326;
7404   double t7329, t7332, t7333, t7334, t7338, t7342, t7350, t7353;
7405   double t7354, t7355, t7357, t7358, t7360, t7361, t7362, t7364;
7406   double t7365, t7366, t7368, t7369, t7370, t7374, t7377, t7378;
7407   double t7393, t7394, t7404, t7405, t7406, t7407, t7408, t7409;
7408   double t7410, t7411, t7412, t7413, t7414, t7416, t7419, t7422;
7409   double t7425, t7426, t7429, t7432, t7435, t7438, t7441, t7444;
7410   double t7447, t7450, t7453, t7456, t7459, t7462, t7465, t7468;
7411   double t7471, t7474, t7476, t7479, t7482, t7485, t7488, t7494;
7412   double t7495, t7496, t7497, t7498, t7499, t7500, t7501, t7502;
7413   double t7503, t7504, t7505, t7512, t7528, t7531, t7532, t7533;
7414 
7415 #ifndef XC_DONT_COMPILE_LXC
7416   double t7558, t7559, t7569, t7583, t7584, t7587, t7609, t7611;
7417   double t7618, t7625, t7627, t7631, t7635, t7637, t7641, t7643;
7418   double t7644, t7646, t7648, t7651, t7653, t7655, t7657, t7660;
7419   double t7664, t7666, t7668, t7670, t7672, t7675, t7676, t7678;
7420   double t7680, t7682, t7684, t7687, t7689, t7692, t7695, t7698;
7421   double t7701, t7704, t7706, t7708, t7710, t7712, t7714, t7716;
7422   double t7718, t7721, t7723, t7726, t7728, t7730, t7732, t7734;
7423   double t7736, t7738, t7740, t7742, t7744, t7750, t7752, t7788;
7424   double t7805, t7806, t7827, t7828, t7830, t7831, t7835, t7837;
7425   double t7839, t7841, t7843, t7845, t7848, t7850, t7854, t7856;
7426   double t7858, t7860, t7861, t7863, t7865, t7866, t7868, t7870;
7427   double t7871, t7873, t7876, t7878, t7880, t7883, t7885, t7886;
7428   double t7888, t7890, t7892, t7893, t7895, t7896, t7898, t7899;
7429   double t7901, t7902, t7903, t7906, t7907, t7909, t7910, t7912;
7430   double t7914, t7915, t7917, t7918, t7919, t7921, t7923, t7931;
7431   double t7937, t7938, t7941, t7958, t7962, t7980, t8020, t8030;
7432   double t8031, t8032, t8036, t8050, t8054, t8060, t8064, t8065;
7433   double t8074, t8076, t8077, t8078, t8089, t8090, t8091, t8109;
7434   double t8110, t8111, t8123, t8132, t8139, t8140, t8141, t8150;
7435   double t8156, t8160, t8172, t8175, t8179, t8182, t8185, t8189;
7436   double t8192, t8199, t8208, t8211, t8223, t8231, t8235, t8241;
7437   double t8244, t8248, t8262, t8266, t8276, t8293, t8324, t8333;
7438   double t8352, t8359, t8370, t8376, t8392, t8403, t8420, t8440;
7439   double t8441, t8442, t8448, t8460, t8477, t8487, t8501, t8530;
7440   double t8538, t8570, t8576, t8582, t8597, t8600, t8601, t8602;
7441   double t8612, t8615, t8616, t8622, t8633, t8636, t8637, t8642;
7442   double t8645, t8646, t8656, t8659, t8660, t8665, t8668, t8669;
7443   double t8677, t8694, t8705, t8723, t8726, t8727, t8730, t8732;
7444   double t8733, t8736, t8737, t8740, t8741, t8744, t8747, t8750;
7445   double t8751, t8754, t8757, t8760, t8763, t8764, t8767, t8770;
7446   double t8773, t8780, t8781, t8784, t8787, t8790, t8802, t8819;
7447   double t8837, t8839, t8847, t8859, t8871, t8874, t8906, t8923;
7448   double t8932, t8937, t8946, t8955, t8964, t8968, t9013, t9060;
7449   double t9100, t9144, t9188, t9231, t9234, t9237, t9239, t9250;
7450   double t9261, t9292, t9329, t9335, t9346, t9359, t9363, t9379;
7451   double t9380, t9381, t9382, t9386, t9387, t9390, t9396, t9418;
7452   double t9422, t9444, t9455, t9459, t9474, t9476, t9477, t9493;
7453   double t9496, t9503, t9506, t9511, t9516, t9525, t9530, t9533;
7454   double t9552, t9556, t9561, t9572, t9575, t9580, t9583, t9586;
7455   double t9589, t9594, t9597, t9621, t9622, t9629, t9633, t9637;
7456   double t9638, t9641, t9648, t9651, t9654, t9668, t9671, t9675;
7457   double t9676, t9682, t9683, t9689, t9690, t9701, t9711, t9720;
7458   double t9723, t9728, t9734, t9737, t9746, t9753, t9756, t9763;
7459   double t9764, t9767, t9770, t9771, t9778, t9782, t9783, t9790;
7460   double t9793, t9796, t9803, t9804, t9807, t9808, t9813, t9818;
7461   double t9825, t9826, t9829, t9832, t9839, t9842, t9845, t9848;
7462   double t9864, t9865, t9870, t9877, t9882, t9891, t9917, t9952;
7463   double t9957, t9964, t9965, t9968, t9969, t9980, t9981, t9982;
7464   double t9985, t9988, t9989, t9995, t9996, t9997, t10001, t10004;
7465   double t10005, t10006, t10011, t10014, t10015, t10016, t10021, t10026;
7466   double t10027, t10032, t10035, t10040, t10045, t10056, t10061, t10062;
7467   double t10069, t10070, t10071, t10073, t10074, t10076, t10078, t10079;
7468   double t10080, t10082, t10083, t10084, t10086, t10087, t10088, t10090;
7469   double t10092, t10093, t10094, t10095, t10096, t10097, t10099, t10100;
7470   double t10101, t10103, t10104, t10105, t10106, t10108, t10109, t10110;
7471   double t10112, t10113, t10115, t10117, t10119, t10122, t10123, t10125;
7472   double t10128, t10130, t10131, t10132, t10133, t10134, t10136, t10137;
7473   double t10144, t10153, t10154, t10157, t10160, t10168, t10175, t10176;
7474   double t10179, t10184, t10185, t10188, t10191, t10195, t10200, t10201;
7475   double t10204, t10208, t10215, t10220, t10225, t10226, t10229, t10236;
7476   double t10246, t10247, t10250, t10254, t10259, t10261, t10264, t10268;
7477   double t10273, t10274, t10277, t10281, t10284, t10289, t10290, t10293;
7478   double t10297, t10303, t10306, t10313, t10318, t10319, t10322, t10325;
7479   double t10328, t10329, t10332, t10335, t10340, t10341, t10344, t10347;
7480   double t10350, t10351, t10354, t10374, t10379, t10384, t10385, t10388;
7481   double t10393, t10394, t10397, t10398, t10401, t10404, t10410, t10411;
7482   double t10432, t10435, t10440, t10455, t10474, t10476, t10480, t10481;
7483   double t10483, t10484, t10485, t10487, t10488, t10490, t10491, t10492;
7484   double t10494, t10495, t10498, t10501, t10504, t10507, t10508, t10510;
7485   double t10511, t10513, t10514, t10516, t10519, t10521, t10523, t10525;
7486   double t10527, t10528, t10530, t10532, t10533, t10535, t10538, t10540;
7487   double t10541, t10542, t10544, t10546, t10549, t10550, t10553, t10556;
7488   double t10560, t10566, t10573, t10578, t10580, t10585, t10588, t10590;
7489   double t10592, t10594, t10595, t10597, t10599, t10601, t10603, t10606;
7490   double t10609, t10634, t10637, t10644, t10645, t10646, t10650, t10653;
7491   double t10656, t10661, t10666, t10673, t10678, t10679, t10681, t10695;
7492   double t10732, t10735, t10738, t10745, t10766, t10777, t10782, t10786;
7493   double t10790, t10795, t10818, t10824, t10827, t10832, t10835, t10838;
7494   double t10849, t10860, t10863, t10866, t10878, t10881, t10884, t10889;
7495   double t10894, t10899, t10904, t10916, t10919, t10940, t10943, t10946;
7496   double t10951, t10956, t10959, t10962, t10969, t10972, t10981, t10991;
7497   double t10994, t10997, t11002, t11009, t11022, t11025, t11030, t11039;
7498   double t11044, t11061, t11065, t11068, t11071, t11072, t11074, t11077;
7499   double t11079, t11081, t11082, t11083, t11085, t11086, t11088, t11090;
7500   double t11092, t11095, t11098, t11099, t11102, t11104, t11106, t11108;
7501   double t11110, t11112, t11114, t11116, t11119, t11126, t11129, t11132;
7502   double t11135, t11138, t11142, t11148, t11153, t11158, t11171, t11178;
7503   double t11185, t11204, t11209, t11211, t11213, t11215, t11217, t11218;
7504   double t11221, t11223, t11226, t11229, t11231, t11233, t11236, t11239;
7505   double t11241, t11243, t11245, t11247, t11250, t11276, t11283, t11284;
7506   double t11287, t11288, t11291, t11292, t11295, t11296, t11298, t11299;
7507   double t11300, t11302, t11311, t11316, t11319, t11339, t11352, t11365;
7508   double t11378, t11392, t11405, t11419, t11432, t11435, t11439, t11440;
7509   double t11468, t11494, t11503, t11507, t11511, t11540, t11546, t11552;
7510   double t11582, t11589, t11607, t11614, t11631, t11640, t11651, t11681;
7511   double t11715, t11743, t11745, t11746, t11748, t11750, t11752, t11754;
7512   double t11757, t11759, t11761, t11764, t11767, t11768, t11770, t11771;
7513   double t11773, t11775, t11776, t11778, t11779, t11780, t11783, t11784;
7514   double t11786, t11787, t11789, t11791, t11793, t11795, t11797, t11799;
7515   double t11801, t11804, t11805, t11807, t11809, t11811, t11813, t11815;
7516   double t11816, t11818, t11821, t11823, t11825, t11827, t11829, t11831;
7517   double t11833, t11835, t11837, t11839, t11840, t11842, t11843, t11845;
7518   double t11846, t11848, t11850, t11851, t11852, t11854, t11857, t11859;
7519   double t11861, t11862, t11864, t11865, t11867, t11869, t11872, t11875;
7520   double t11878, t11881, t11883, t11885, t11887, t11888, t11890, t11891;
7521   double t11893, t11894, t11896, t11899, t11901, t11903, t11906, t11908;
7522   double t11909, t11911, t11913, t11914, t11916, t11917, t11918, t11920;
7523   double t11921, t11923, t11924, t11926, t11928, t11930, t11932, t11934;
7524   double t11936, t11938, t11941, t11944, t11947, t11950, t11952, t11954;
7525   double t11956, t11958, t11960, t11962, t11964, t11965, t11966, t11968;
7526   double t11969, t11971, t11972, t11975, t11977, t11978, t11980, t11982;
7527   double t11983, t11986, t11988, t11990, t11992, t11994, t11995, t11997;
7528   double t12000, t12022, t12026, t12030, t12034, t12047, t12052, t12056;
7529   double t12060, t12064, t12111, t12117, t12120, t12123, t12126, t12142;
7530   double t12145, t12148, t12151, t12154, t12161, t12164, t12171, t12174;
7531   double t12177, t12180, t12201, t12204, t12207, t12210, t12215, t12216;
7532   double t12219, t12224, t12229, t12234, t12239, t12250, t12253, t12256;
7533   double t12264, t12292, t12340, t12391, t12432, t12467, t12470, t12478;
7534   double t12509, t12526, t12569, t12576, t12579, t12582, t12585, t12606;
7535   double t12615, t12620, t12626, t12631, t12632, t12637, t12638, t12648;
7536   double t12653, t12654, t12665, t12666, t12673, t12715, t12749, t12778;
7537   double t12805, t12831, t12840, t12843, t12846, t12849, t12858, t12861;
7538   double t12864, t12867, t12882, t12906, t12925, t12928, t12932, t12937;
7539   double t12940, t12943, t12946, t12969, t12978, t12983, t12998, t13004;
7540   double t13019, t13028, t13071, t13107, t13110, t13116, t13119, t13124;
7541   double t13127, t13134, t13139, t13144, t13149, t13154, t13171, t13172;
7542   double t13175, t13178, t13181, t13192, t13201, t13212, t13215, t13218;
7543   double t13221, t13226, t13248, t13275, t13300, t13303, t13308, t13311;
7544   double t13314, t13317, t13324, t13327, t13335, t13338, t13354, t13375;
7545   double t13417, t13420, t13423, t13426, t13429, t13436, t13439, t13446;
7546   double t13454, t13463, t13475, t13483, t13490, t13523, t13530, t13533;
7547   double t13540, t13543, t13546, t13549, t13569, t13570, t13574, t13583;
7548   double t13604, t13661, t13670, t13675, t13705, t13708, t13711, t13718;
7549   double t13723, t13728, t13731, t13735, t13736, t13739, t13742, t13747;
7550   double t13750, t13753, t13756, t13765, t13766, t13769, t13770, t13771;
7551   double t13779, t13782, t13785, t13786, t13789, t13790, t13792, t13793;
7552   double t13794, t13796, t13798, t13800, t13801, t13802, t13805, t13813;
7553   double t13817, t13821, t13848, t13860, t13866, t13867, t13868, t13869;
7554   double t13870, t13871, t13874, t13877, t13886, t13889, t13892, t13901;
7555   double t13904, t13907, t13910, t13913, t13916, t13917, t13939, t13942;
7556   double t13945, t13954, t13961, t13962, t13965, t13969, t13971, t13972;
7557   double t13974, t13975, t13977, t13991, t13994, t13997, t14006, t14009;
7558   double t14011, t14012, t14014, t14015, t14017, t14024, t14033, t14036;
7559   double t14038, t14051, t14053, t14055, t14057, t14059, t14069, t14071;
7560   double t14073, t14075, t14092, t14097, t14099, t14100, t14102, t14103;
7561   double t14105, t14114, t14115, t14116, t14117, t14118, t14119, t14120;
7562   double t14121, t14122, t14123, t14124, t14125, t14126, t14127, t14133;
7563   double t14135, t14136, t14137, t14140, t14141, t14147, t14151, t14153;
7564   double t14154, t14155, t14158, t14159, t14165, t14167, t14174, t14177;
7565   double t14179, t14180, t14181, t14184, t14185, t14195, t14197, t14198;
7566   double t14199, t14202, t14203, t14209, t14211, t14217, t14222, t14240;
7567   double t14242, t14243, t14244, t14247, t14248, t14254, t14256, t14268;
7568   double t14272, t14279, t14283, t14285, t14288, t14290, t14291, t14292;
7569   double t14293, t14294, t14296, t14298, t14300, t14301, t14307, t14309;
7570   double t14311, t14313, t14314, t14315, t14327, t14329, t14330, t14331;
7571   double t14334, t14335, t14350, t14352, t14359, t14368, t14370, t14371;
7572   double t14373, t14375, t14377, t14379, t14381, t14383, t14386, t14387;
7573   double t14388, t14389, t14390, t14391, t14392, t14393, t14394, t14395;
7574   double t14396, t14397, t14398, t14399, t14400, t14406, t14408, t14410;
7575   double t14411, t14413, t14414, t14416, t14421, t14423, t14429, t14430;
7576   double t14436, t14437, t14438, t14443, t14447, t14448, t14450, t14455;
7577   double t14457, t14458, t14460, t14461, t14462, t14463, t14469, t14471;
7578   double t14474, t14476, t14477, t14479, t14480, t14482, t14483, t14485;
7579   double t14486, t14492, t14494, t14495, t14496, t14501, t14503, t14504;
7580   double t14505, t14511, t14513, t14527, t14529, t14530, t14532, t14534;
7581   double t14536, t14541, t14543, t14547, t14549, t14550, t14551, t14556;
7582   double t14557, t14558, t14561, t14562, t14563, t14564, t14565, t14566;
7583   double t14568, t14569, t14570, t14571, t14572, t14574, t14575, t14576;
7584   double t14578, t14579, t14581, t14582, t14584, t14585, t14586, t14588;
7585   double t14589, t14590, t14591, t14592, t14593, t14594, t14595, t14597;
7586   double t14600, t14602, t14603, t14605, t14606, t14608, t14609, t14611;
7587   double t14612, t14614, t14626, t14629, t14630, t14631, t14633, t14637;
7588   double t14647, t14649, t14651, t14653, t14654, t14656, t14657, t14659;
7589   double t14662, t14664, t14667, t14670, t14672, t14674, t14676, t14678;
7590   double t14680, t14682, t14683, t14685, t14686, t14687, t14688, t14690;
7591   double t14691, t14692, t14694, t14696, t14698, t14700, t14702, t14704;
7592   double t14705, t14706, t14707, t14708, t14709, t14710, t14711, t14712;
7593   double t14714, t14715, t14717, t14719, t14721, t14723, t14725, t14726;
7594   double t14731, t14734, t14737, t14740, t14743, t14746, t14749, t14752;
7595   double t14755, t14759, t14762, t14764, t14765, t14777, t14780, t14789;
7596   double t14792, t14801, t14806, t14808, t14810, t14812, t14814, t14816;
7597   double t14817, t14818, t14819, t14820, t14821, t14822, t14824, t14828;
7598   double t14829, t14830, t14832, t14834, t14835, t14836, t14837, t14839;
7599   double t14840, t14842, t14854, t14855, t14857, t14860, t14868, t14869;
7600   double t14871, t14872, t14873, t14879, t14881, t14882, t14892, t14894;
7601   double t14913, t14916, t14918, t14919, t14924, t14926, t14927, t14934;
7602   double t14938, t14940, t14941, t14953, t14954, t14956, t14958, t14959;
7603   double t14961, t14963, t14965, t14975, t14976, t14979, t14981, t14982;
7604   double t14983, t14984, t14988, t14989, t14992, t14994, t14995, t14996;
7605   double t14997, t15001, t15002, t15005, t15007, t15008, t15009, t15010;
7606   double t15014, t15015, t15018, t15023, t15025, t15026, t15027, t15028;
7607   double t15032, t15033, t15036, t15038, t15039, t15040, t15041, t15045;
7608   double t15046, t15051, t15052, t15053, t15054, t15071, t15072, t15079;
7609   double t15088, t15097, t15101, t15108, t15109, t15111, t15112, t15113;
7610   double t15114, t15115, t15116, t15117, t15118, t15119, t15120, t15121;
7611   double t15122, t15123, t15124, t15125, t15126, t15127, t15128, t15129;
7612   double t15130, t15131, t15132, t15133, t15134, t15135, t15136, t15137;
7613   double t15138, t15140, t15141, t15142, t15143, t15144, t15146, t15152;
7614   double t15153, t15154, t15155, t15159, t15160, t15167, t15168, t15169;
7615   double t15171, t15173, t15174, t15176, t15177, t15182, t15183, t15187;
7616   double t15193, t15199, t15209, t15210, t15211, t15213, t15219, t15220;
7617   double t15221, t15222, t15224, t15225, t15230, t15231, t15237, t15238;
7618   double t15239, t15243, t15244, t15245, t15246, t15248, t15251, t15255;
7619   double t15258, t15259, t15261, t15262, t15264, t15265, t15268, t15269;
7620   double t15271, t15272, t15274, t15279, t15286, t15311, t15313, t15333;
7621   double t15367, t15404, t15414, t15418, t15422, t15426, t15437, t15452;
7622   double t15466, t15501, t15537, t15538, t15540, t15541, t15543, t15545;
7623   double t15547, t15548, t15550, t15551, t15554, t15557, t15559, t15560;
7624   double t15561, t15563, t15564, t15566, t15567, t15569, t15570, t15572;
7625   double t15573, t15575, t15576, t15578, t15579, t15581, t15582, t15584;
7626   double t15587, t15591, t15597, t15600, t15607, t15610, t15619, t15628;
7627   double t15631, t15638, t15663, t15686, t15708, t15709, t15713, t15715;
7628   double t15717, t15719, t15721, t15723, t15724, t15726, t15727, t15730;
7629   double t15731, t15734, t15736, t15738, t15741, t15744, t15747, t15749;
7630   double t15750, t15752, t15753, t15755, t15756, t15757, t15759, t15760;
7631   double t15762, t15763, t15765, t15766, t15768, t15770, t15772, t15774;
7632   double t15776, t15778, t15780, t15785, t15786, t15788, t15789, t15791;
7633   double t15793, t15795, t15798, t15810, t15811, t15820, t15823, t15828;
7634   double t15831, t15834, t15837, t15843, t15852, t15855, t15864, t15873;
7635   double t15885, t15887, t15888, t15890, t15891, t15893, t15897, t15898;
7636   double t15900, t15901, t15903, t15904, t15907, t15910, t15913, t15916;
7637   double t15919, t15922, t15949, t15952, t15955, t15958, t15977, t16002;
7638   double t16025, t16049, t16074, t16102, t16116, t16122, t16125, t16128;
7639   double t16131, t16136, t16149, t16152, t16155, t16158, t16165, t16180;
7640   double t16191, t16196, t16199, t16202, t16205, t16208, t16211, t16214;
7641   double t16221, t16241, t16244, t16247, t16248, t16251, t16274, t16300;
7642   double t16321, t16323, t16324, t16327, t16329, t16331, t16333, t16352;
7643   double t16355, t16358, t16372, t16373, t16376, t16379, t16400, t16417;
7644   double t16420, t16423, t16426, t16429, t16434, t16435, t16450, t16459;
7645   double t16485, t16488, t16491, t16493, t16495, t16498, t16513, t16548;
7646   double t16556, t16557, t16561, t16565, t16580, t16598, t16602, t16621;
7647   double t16646, t16673, t16700, t16724, t16730, t16733, t16736, t16738;
7648   double t16740, t16742, t16744, t16746, t16748, t16750, t16752, t16753;
7649   double t16756, t16758, t16765, t16766, t16768, t16769, t16773, t16776;
7650   double t16779, t16782, t16795, t16814, t16824, t16836, t16848, t16857;
7651   double t16860, t16869, t16881, t16884, t16888, t16889, t16892, t16893;
7652   double t16895, t16896, t16900, t16914, t16916, t16935, t16956, t16959;
7653   double t16963, t16967, t16980, t16982, t16999, t17025, t17045, t17050;
7654   double t17077, t17110, t17142, t17165, t17184, t17193, t17197, t17212;
7655   double t17221, t17225, t17231, t17234, t17237, t17258, t17261, t17264;
7656   double t17267, t17270, t17273, t17278, t17281, t17282, t17284, t17285;
7657   double t17286, t17288, t17289, t17290, t17292, t17295, t17297, t17298;
7658   double t17300, t17301, t17303, t17306, t17308, t17310, t17311, t17313;
7659   double t17314, t17316, t17317, t17319, t17322, t17326, t17330, t17339;
7660   double t17379, t17402, t17405, t17408, t17413, t17416, t17419, t17422;
7661   double t17425, t17428, t17449, t17452, t17455, t17464, t17467, t17472;
7662   double t17481, t17496, t17515, t17548, t17551, t17556, t17559, t17562;
7663   double t17570, t17597, t17600, t17605, t17609, t17618, t17621, t17624;
7664   double t17629, t17632, t17635, t17646, t17655, t17676, t17679, t17682;
7665   double t17687, t17690, t17692, t17695, t17718, t17753, t17755, t17757;
7666   double t17759, t17762, t17764, t17766, t17768, t17770, t17786, t17787;
7667   double t17792, t17795, t17802, t17807, t17810, t17812, t17826, t17849;
7668   double t17855, t17870, t17873, t17890, t17899, t17904, t17907, t17931;
7669   double t17935, t17974, t17978, t18001, t18024, t18035, t18037, t18038;
7670   double t18060, t18090, t18092, t18093, t18097, t18099, t18102, t18104;
7671   double t18105, t18108, t18110, t18112, t18114, t18116, t18118, t18120;
7672   double t18122, t18124, t18127, t18129, t18131, t18134, t18136, t18138;
7673   double t18140, t18142, t18144, t18146, t18149, t18151, t18155, t18162;
7674   double t18164, t18166, t18168, t18170, t18172, t18174, t18176, t18182;
7675   double t18183, t18186, t18187, t18189, t18190, t18192, t18197, t18200;
7676   double t18201, t18203, t18204, t18216, t18227, t18256, t18263, t18264;
7677   double t18267, t18279, t18292, t18302, t18305, t18309, t18311, t18313;
7678   double t18318, t18335, t18340, t18352, t18371, t18404, t18430, t18445;
7679   double t18533, t18555, t18556, t18557, t18559, t18561, t18563, t18565;
7680   double t18567, t18569, t18571, t18572, t18574, t18575, t18579, t18581;
7681   double t18582, t18583, t18585, t18586, t18587, t18589, t18591, t18592;
7682   double t18594, t18597, t18599, t18600, t18602, t18603, t18604, t18606;
7683   double t18607, t18609, t18610, t18612, t18613, t18615, t18617, t18619;
7684   double t18621, t18622, t18623, t18625, t18626, t18627, t18629, t18630;
7685   double t18632, t18633, t18635, t18636, t18638, t18639, t18641, t18642;
7686   double t18643, t18646, t18648, t18649, t18650, t18652, t18653, t18656;
7687   double t18658, t18660, t18679, t18683, t18711, t18744, t18749, t18752;
7688   double t18753, t18755, t18757, t18759, t18761, t18763, t18765, t18767;
7689   double t18769, t18771, t18773, t18775, t18777, t18780, t18782, t18784;
7690   double t18786, t18788, t18790, t18792, t18795, t18796, t18799, t18802;
7691   double t18805, t18806, t18809, t18813, t18816, t18817, t18819, t18820;
7692   double t18823, t18826, t18827, t18829, t18830, t18832, t18841, t18844;
7693   double t18845, t18848, t18867, t18872, t18899, t18906, t18907, t18909;
7694   double t18915, t18920, t18921, t18923, t18925, t18929, t18930, t18933;
7695   double t18936, t18944, t18945, t18972, t18976, t18978, t18980, t18988;
7696   double t18990, t18999, t19001, t19003, t19017, t19022, t19023, t19044;
7697   double t19051, t19056, t19059, t19061, t19064, t19067, t19068, t19070;
7698   double t19071, t19073, t19074, t19076, t19077, t19079, t19082, t19084;
7699   double t19087, t19088, t19090, t19092, t19094, t19096, t19098, t19100;
7700   double t19102, t19104, t19106, t19109, t19111, t19113, t19115, t19117;
7701   double t19119, t19121, t19123, t19125, t19126, t19128, t19129, t19132;
7702   double t19133, t19135, t19136, t19138, t19140, t19142, t19145, t19147;
7703   double t19149, t19151, t19153, t19154, t19156, t19158, t19160, t19162;
7704   double t19164, t19166, t19167, t19172, t19175, t19176, t19177, t19180;
7705   double t19184, t19186, t19187, t19191, t19197, t19200, t19203, t19206;
7706   double t19208, t19210, t19215, t19220, t19222, t19226, t19228, t19230;
7707   double t19232, t19234, t19236, t19238, t19240, t19242, t19245, t19257;
7708   double t19271, t19278, t19314, t19317, t19319, t19321, t19328, t19331;
7709   double t19336, t19339, t19344, t19352, t19368, t19369, t19372, t19378;
7710   double t19384, t19387, t19393, t19418, t19454, t19458, t19462, t19466;
7711   double t19467, t19473, t19474, t19477, t19478, t19480, t19481, t19483;
7712   double t19486, t19489, t19491, t19493, t19494, t19496, t19501, t19503;
7713   double t19504, t19505, t19507, t19508, t19510, t19511, t19515, t19517;
7714   double t19518, t19520, t19521, t19523, t19524, t19527, t19529, t19530;
7715   double t19532, t19535, t19536, t19538, t19539, t19541, t19542, t19544;
7716   double t19545, t19547, t19548, t19550, t19551, t19553, t19554, t19556;
7717   double t19559, t19562, t19565, t19568, t19571, t19573, t19574, t19579;
7718   double t19586, t19588, t19596, t19598, t19606, t19608, t19609, t19617;
7719   double t19619, t19627, t19628, t19630, t19631, t19633, t19636, t19639;
7720   double t19642, t19644, t19646, t19656, t19659, t19660, t19662, t19663;
7721   double t19665, t19666, t19668, t19669, t19671, t19674, t19677, t19680;
7722   double t19682, t19688, t19691, t19693, t19701, t19703, t19705, t19708;
7723   double t19710, t19714, t19717, t19720, t19721, t19723, t19725, t19726;
7724   double t19728, t19731, t19734, t19736, t19744, t19747, t19751, t19753;
7725   double t19756, t19758, t19761, t19765, t19769, t19773, t19775, t19778;
7726   double t19782, t19786, t19788, t19791, t19794, t19798, t19802, t19806;
7727   double t19820, t19823, t19824, t19828, t19832, t19842, t19859, t19868;
7728   double t19870, t19876, t19878, t19884, t19919, t19945, t19948, t19964;
7729   double t19981, t19999, t20014, t20015, t20017, t20019, t20022, t20024;
7730   double t20025, t20027, t20028, t20030, t20031, t20033, t20034, t20041;
7731   double t20042, t20054, t20061, t20065, t20067, t20071, t20075, t20079;
7732   double t20083, t20085, t20089, t20093, t20097, t20103, t20107, t20111;
7733   double t20117, t20120, t20125, t20128, t20131, t20132, t20134, t20137;
7734   double t20138, t20142, t20143, t20147, t20150, t20151, t20155, t20156;
7735   double t20160, t20163, t20167, t20171, t20175, t20179, t20183, t20186;
7736   double t20191, t20195, t20196, t20200, t20204, t20208, t20212, t20216;
7737   double t20219, t20223, t20227, t20229, t20233, t20235, t20237, t20239;
7738   double t20241, t20243, t20245, t20247, t20249, t20250, t20253, t20257;
7739   double t20258, t20264, t20265, t20267, t20270, t20273, t20278, t20293;
7740   double t20296, t20297, t20300, t20301, t20304, t20305, t20307, t20308;
7741   double t20321, t20337, t20353, t20367, t20384, t20386, t20390, t20392;
7742   double t20429, t20489, t20526, t20547, t20594, t20610, t20634, t20645;
7743   double t20649, t20652, t20659, t20662, t20664, t20677, t20682, t20693;
7744   double t20708, t20724, t20730, t20732, t20733, t20735, t20736, t20738;
7745   double t20740, t20742, t20758, t20773, t20774, t20776, t20778, t20783;
7746   double t20786, t20793, t20807, t20814, t20827, t20856, t20874, t20890;
7747   double t20901, t20902, t20904, t20905, t20907, t20908, t20912, t20916;
7748   double t20933, t20953, t20969, t20986, t20987, t20990, t20993, t21002;
7749   double t21005, t21008, t21017, t21020, t21023, t21028, t21031, t21032;
7750   double t21034, t21035, t21037, t21038, t21040, t21041, t21043, t21044;
7751   double t21046, t21047, t21049, t21052, t21055, t21070, t21100, t21106;
7752   double t21108, t21109, t21111, t21113, t21135, t21167, t21168, t21184;
7753   double t21201, t21215, t21218, t21221, t21224, t21246, t21278, t21291;
7754   double t21297, t21300, t21305, t21310, t21315, t21318, t21321, t21324;
7755   double t21325, t21328, t21332, t21335, t21364, t21378, t21396, t21413;
7756   double t21415, t21419, t21421, t21428, t21453, t21468, t21472, t21477;
7757   double t21483, t21489, t21492, t21507, t21526, t21530, t21556, t21557;
7758   double t21592, t21624, t21630, t21685, t21701, t21713, t21716, t21730;
7759   double t21733, t21739, t21740, t21741, t21743, t21744, t21745, t21746;
7760   double t21748, t21749, t21750, t21753, t21760, t21766, t21767, t21769;
7761   double t21770, t21772, t21773, t21774, t21778, t21780, t21781, t21783;
7762   double t21784, t21786, t21787, t21788, t21790, t21791, t21793, t21794;
7763   double t21796, t21797, t21803, t21805, t21807, t21809, t21811, t21813;
7764   double t21815, t21862, t21871, t21872, t21875, t21876, t21881, t21882;
7765   double t21887, t21892, t21904, t21927, t21928, t21931, t21932, t21937;
7766   double t21940, t21941, t21946, t21947, t21952, t21953, t21988, t21996;
7767   double t22010, t22036, t22060, t22075, t22078, t22081, t22086, t22093;
7768   double t22096, t22099, t22102, t22107, t22110, t22113, t22123, t22128;
7769   double t22131, t22134, t22165, t22192, t22195, t22198, t22213, t22258;
7770   double t22267, t22293, t22322, t22363, t22372, t22378, t22379, t22382;
7771   double t22387, t22390, t22395, t22402, t22403, t22419, t22420, t22435;
7772   double t22439, t22444, t22454, t22464, t22489, t22493, t22494, t22496;
7773   double t22498, t22500, t22501, t22504, t22507, t22510, t22515, t22517;
7774   double t22518, t22519, t22520, t22523, t22524, t22525, t22526, t22529;
7775   double t22530, t22531, t22539, t22545, t22546, t22568, t22588, t22589;
7776   double t22590, t22597, t22610, t22611, t22613, t22614, t22616, t22617;
7777   double t22619, t22621, t22623, t22625, t22627, t22629, t22632, t22634;
7778   double t22636, t22638, t22639, t22641, t22642, t22644, t22646, t22648;
7779   double t22650, t22652, t22654, t22655, t22657, t22659, t22664, t22666;
7780   double t22668, t22675, t22678, t22681, t22682, t22687, t22690, t22705;
7781   double t22716, t22726, t22728, t22729, t22736, t22781, t22782, t22786;
7782   double t22789, t22792, t22801, t22807, t22810, t22813, t22816, t22819;
7783   double t22822, t22829, t22832, t22833, t22841, t22854, t22875, t22876;
7784   double t22879, t22895, t22959, t22960, t22961, t22962, t22963, t22964;
7785   double t22965, t22966, t22967, t22968, t22969, t22970, t22971, t22972;
7786   double t22973, t22974, t22977, t22982, t22983, t22984, t22989, t22992;
7787   double t22995, t23006, t23011, t23019, t23029, t23048, t23053, t23054;
7788   double t23055, t23056, t23057, t23058, t23059, t23060, t23061, t23062;
7789   double t23063, t23067, t23068, t23069, t23070, t23071, t23072, t23073;
7790   double t23074, t23075, t23076, t23077, t23078, t23079, t23080, t23081;
7791   double t23082, t23083, t23084, t23085, t23086, t23087, t23088, t23089;
7792   double t23091, t23092, t23093, t23094, t23095, t23096, t23097, t23098;
7793   double t23099, t23100, t23101, t23102, t23103, t23104, t23106, t23137;
7794   double t23144, t23146, t23148, t23150, t23152, t23153, t23154, t23156;
7795   double t23157, t23163, t23165, t23166, t23167, t23172, t23175, t23176;
7796   double t23180, t23185, t23190, t23193, t23194, t23197, t23198, t23201;
7797   double t23202, t23219, t23220, t23264, t23330, t23360, t23412, t23420;
7798   double t23423, t23426, t23429, t23430, t23436, t23441, t23443, t23453;
7799   double t23468, t23481, t23492, t23500, t23502, t23506, t23508, t23511;
7800   double t23514, t23517, t23523, t23537, t23539, t23541, t23542, t23544;
7801   double t23546, t23547, t23549, t23551, t23552, t23554, t23556, t23560;
7802   double t23564, t23568, t23569, t23571, t23573, t23574, t23576, t23579;
7803   double t23580, t23582, t23583, t23587, t23591, t23592, t23594, t23597;
7804   double t23598, t23600, t23603, t23606, t23610, t23615, t23620, t23624;
7805   double t23626, t23630, t23632, t23635, t23639, t23643, t23647, t23651;
7806   double t23655, t23657, t23661, t23662, t23667, t23672, t23675, t23676;
7807   double t23678, t23679, t23691, t23694, t23697, t23698, t23701, t23714;
7808   double t23727, t23728, t23732, t23743, t23745, t23747, t23787, t23825;
7809   double t23845, t23882, t23911, t23929, t23931, t23935, t23943, t23945;
7810   double t23949, t23950, t23952, t23953, t23955, t23956, t23958, t23961;
7811   double t23966, t23969, t23972, t24002, t24038, t24060, t24062, t24067;
7812   double t24070, t24075, t24078, t24083, t24090, t24096, t24102, t24103;
7813   double t24117, t24118, t24127, t24130, t24136, t24139, t24142, t24193;
7814   double t24198, t24225, t24232, t24239, t24276, t24288, t24289, t24314;
7815   double t24315, t24361, t24370, t24380, t24397, t24402, t24405, t24408;
7816   double t24411, t24440, t24454, t24466, t24470, t24475, t24482, t24489;
7817   double t24507, t24522, t24523, t24528, t24531, t24536, t24540, t24570;
7818   double t24592, t24607;
7819 #endif
7820 
7821 #endif
7822 
7823 #endif
7824 
7825 #endif
7826 
7827 #endif
7828 
7829 
7830   mgga_x_rscan_params *params;
7831 
7832   assert(p->params != NULL);
7833   params = (mgga_x_rscan_params * )(p->params);
7834 
7835   t2 = M_CBRT3;
7836   t4 = POW_1_3(0.1e1 / M_PI);
7837   t5 = t2 * t4;
7838   t6 = M_CBRT4;
7839   t7 = t6 * t6;
7840   t8 = t5 * t7;
7841   t9 = POW_1_3(rho[0]);
7842   t10 = M_CBRT6;
7843   t11 = M_PI * M_PI;
7844   t12 = POW_1_3(t11);
7845   t13 = t12 * t12;
7846   t14 = 0.1e1 / t13;
7847   t15 = t10 * t14;
7848   t16 = rho[0] * rho[0];
7849   t17 = t9 * t9;
7850   t18 = t17 * t16;
7851   t19 = 0.1e1 / t18;
7852   t20 = sigma[0] * t19;
7853   t21 = t15 * t20;
7854   t25 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
7855   t26 = t10 * t10;
7856   t27 = t25 * t26;
7857   t28 = t12 * t11;
7858   t29 = 0.1e1 / t28;
7859   t30 = t27 * t29;
7860   t31 = sigma[0] * sigma[0];
7861   t32 = t16 * t16;
7862   t33 = t32 * rho[0];
7863   t34 = t9 * t33;
7864   t35 = 0.1e1 / t34;
7865   t36 = t31 * t35;
7866   t38 = t14 * sigma[0];
7867   t39 = t38 * t19;
7868   t42 = exp(-0.27e2 / 0.80e2 * t25 * t10 * t39);
7869   t46 = sqrt(0.146e3);
7870   t47 = t46 * t10;
7871   t50 = t17 * rho[0];
7872   t51 = 0.1e1 / t50;
7873   t54 = tau[0] * t51 - t20 / 0.8e1;
7874   t55 = 0.0e0 < t54;
7875   t56 = my_piecewise3(t55, t54, 0);
7876   t57 = t56 * t56;
7877   t58 = t57 * t56;
7878   t59 = t33 * t58;
7879   t64 = 0.3e1 / 0.10e2 * t50 * t26 * t13 + params->taur / 0.2e1;
7880   t65 = t64 * t64;
7881   t66 = t65 * t64;
7882   t67 = 0.1e1 / t66;
7883   t68 = t16 * rho[0];
7884   t69 = t9 * t68;
7885   t71 = 0.1e1 / t65;
7886   t73 = t69 * t57 * t71 + params->alphar;
7887   t74 = 0.1e1 / t73;
7888   t75 = t67 * t74;
7889   t76 = t59 * t75;
7890   t77 = 0.1e1 - t76;
7891   t79 = t77 * t77;
7892   t81 = exp(-t79 / 0.2e1);
7893   t84 = 0.7e1 / 0.12960e5 * t47 * t39 + t46 * t77 * t81 / 0.100e3;
7894   t85 = t84 * t84;
7895   t86 = params->k1 + 0.5e1 / 0.972e3 * t21 + t30 * t36 * t42 / 0.576e3 + t85;
7896   t91 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t86);
7897   t92 = t76 <= 0.25e1;
7898   t94 = t32 * t32;
7899   t95 = t94 * t16;
7900   t96 = t57 * t57;
7901   t97 = t96 * t57;
7902   t98 = t95 * t97;
7903   t99 = t65 * t65;
7904   t100 = t99 * t65;
7905   t101 = 0.1e1 / t100;
7906   t102 = t73 * t73;
7907   t103 = 0.1e1 / t102;
7908   t104 = t101 * t103;
7909   t107 = t32 * t68;
7910   t108 = t94 * t107;
7911   t109 = t96 * t96;
7912   t110 = t109 * t56;
7913   t111 = t108 * t110;
7914   t112 = t99 * t99;
7915   t113 = t112 * t64;
7916   t114 = 0.1e1 / t113;
7917   t115 = t102 * t73;
7918   t116 = 0.1e1 / t115;
7919   t117 = t114 * t116;
7920   t120 = t94 * t94;
7921   t121 = t120 * t32;
7922   t122 = t109 * t96;
7923   t123 = t121 * t122;
7924   t124 = t112 * t99;
7925   t125 = 0.1e1 / t124;
7926   t126 = t102 * t102;
7927   t127 = 0.1e1 / t126;
7928   t128 = t125 * t127;
7929   t131 = t94 * rho[0];
7930   t132 = t120 * t131;
7931   t133 = t96 * t58;
7932   t134 = t109 * t133;
7933   t135 = t132 * t134;
7934   t136 = t99 * t66;
7935   t138 = 0.1e1 / t112 / t136;
7936   t140 = 0.1e1 / t126 / t73;
7937   t141 = t138 * t140;
7938   t144 = t32 * t16;
7939   t145 = t94 * t144;
7940   t146 = t120 * t145;
7941   t147 = t109 * t109;
7942   t148 = t147 * t57;
7943   t149 = t146 * t148;
7944   t150 = t112 * t112;
7945   t152 = 0.1e1 / t150 / t65;
7946   t154 = 0.1e1 / t126 / t102;
7947   t155 = t152 * t154;
7948   t158 = t120 * t120;
7949   t159 = t158 * t68;
7950   t160 = t96 * t56;
7951   t161 = t147 * t160;
7952   t162 = t159 * t161;
7953   t163 = t99 * t64;
7954   t165 = 0.1e1 / t150 / t163;
7955   t167 = 0.1e1 / t126 / t115;
7956   t168 = t165 * t167;
7957   t174 = exp(params->c2 / t77);
7958   t176 = my_piecewise3(t92, 0.1e1 - 0.667e0 * t76 - 0.4445555e0 * t98 * t104 - 0.663086601049e0 * t111 * t117 + 0.1451297044490e1 * t123 * t128 - 0.887998041597e0 * t135 * t141 + 0.234528941479e0 * t149 * t155 - 0.23185843322e-1 * t162 * t168, -params->d * t174);
7959   t177 = 0.1e1 - t176;
7960   t180 = t91 * t177 + 0.1174e1 * t176;
7961   t182 = sqrt(0.3e1);
7962   t183 = 0.1e1 / t12;
7963   t184 = t26 * t183;
7964   t185 = sqrt(sigma[0]);
7965   t186 = t9 * rho[0];
7966   t187 = 0.1e1 / t186;
7967   t189 = t184 * t185 * t187;
7968   t190 = sqrt(t189);
7969   t194 = exp(-0.98958000000000000000e1 * t182 / t190);
7970   t195 = 0.1e1 - t194;
7971   t197 = t8 * t9 * t180 * t195;
7972   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
7973     zk[0] = -0.3e1 / 0.8e1 * t197;
7974 
7975 #ifndef XC_DONT_COMPILE_VXC
7976 
7977   if(order < 1) return;
7978 
7979 
7980   t201 = t186 * t2 * t4;
7981   t202 = params->k1 * params->k1;
7982   t203 = t86 * t86;
7983   t205 = t202 / t203;
7984   t206 = t17 * t68;
7985   t207 = 0.1e1 / t206;
7986   t208 = sigma[0] * t207;
7987   t211 = t9 * t144;
7988   t212 = 0.1e1 / t211;
7989   t217 = t25 * t25;
7990   t218 = t11 * t11;
7991   t219 = 0.1e1 / t218;
7992   t220 = t217 * t219;
7993   t221 = t31 * sigma[0];
7994   t222 = 0.1e1 / t131;
7995   t230 = t32 * t58;
7996   t231 = t230 * t75;
7997   t233 = t33 * t57;
7998   t238 = my_piecewise3(t55, -0.5e1 / 0.3e1 * tau[0] * t19 + t208 / 0.3e1, 0);
7999   t239 = t75 * t238;
8000   t240 = t233 * t239;
8001   t242 = t17 * t33;
8002   t243 = t242 * t58;
8003   t244 = 0.1e1 / t99;
8004   t245 = t243 * t244;
8005   t247 = t74 * t26 * t13;
8006   t248 = t245 * t247;
8007   t250 = t67 * t103;
8008   t251 = t9 * t16;
8009   t255 = t69 * t56;
8010   t256 = t71 * t238;
8011   t259 = t32 * t57;
8012   t261 = t67 * t26 * t13;
8013   t263 = 0.10e2 / 0.3e1 * t251 * t57 * t71 + 0.2e1 * t255 * t256 - t259 * t261;
8014   t264 = t250 * t263;
8015   t265 = t59 * t264;
8016   t266 = -0.5e1 * t231 - 0.3e1 * t240 + 0.3e1 / 0.2e1 * t248 + t265;
8017   t270 = t46 * t79;
8018   t271 = t266 * t81;
8019   t274 = -0.7e1 / 0.4860e4 * t47 * t38 * t207 + t46 * t266 * t81 / 0.100e3 - t270 * t271 / 0.100e3;
8020   t277 = -0.10e2 / 0.729e3 * t15 * t208 - t30 * t31 * t212 * t42 / 0.108e3 + 0.3e1 / 0.320e3 * t220 * t221 * t222 * t42 + 0.2e1 * t84 * t274;
8021   t278 = t277 * t177;
8022   t280 = t17 * t132;
8023   t281 = t280 * t134;
8024   t282 = 0.1e1 / t150;
8025   t283 = t281 * t282;
8026   t284 = t140 * t26;
8027   t285 = t284 * t13;
8028   t288 = t17 * t146;
8029   t289 = t288 * t148;
8030   t291 = 0.1e1 / t150 / t66;
8031   t292 = t289 * t291;
8032   t293 = t154 * t26;
8033   t294 = t293 * t13;
8034   t297 = t17 * t159;
8035   t298 = t297 * t161;
8036   t300 = 0.1e1 / t150 / t100;
8037   t301 = t298 * t300;
8038   t302 = t167 * t26;
8039   t303 = t302 * t13;
8040   t306 = t17 * t95;
8041   t307 = t306 * t97;
8042   t308 = 0.1e1 / t136;
8043   t309 = t307 * t308;
8044   t310 = t103 * t26;
8045   t311 = t310 * t13;
8046   t314 = t17 * t108;
8047   t315 = t314 * t110;
8048   t316 = t112 * t65;
8049   t317 = 0.1e1 / t316;
8050   t318 = t315 * t317;
8051   t319 = t116 * t26;
8052   t320 = t319 * t13;
8053   t324 = t17 * t121;
8054   t325 = t324 * t122;
8055   t326 = t112 * t163;
8056   t327 = 0.1e1 / t326;
8057   t328 = t325 * t327;
8058   t329 = t127 * t26;
8059   t330 = t329 * t13;
8060   t335 = t95 * t160;
8061   t336 = t104 * t238;
8062   t339 = t101 * t116;
8063   t340 = t339 * t263;
8064   t343 = t108 * t109;
8065   t344 = t117 * t238;
8066   t347 = t114 * t127;
8067   t348 = t347 * t263;
8068   t351 = t109 * t58;
8069   t352 = t121 * t351;
8070   t353 = t128 * t238;
8071   t356 = 0.66599853119775000000e1 * t283 * t285 - 0.2110760473311e1 * t292 * t294 + 0.24345135488100000000e0 * t301 * t303 + 0.13336665e1 * t309 * t311 + 0.29838897047205000000e1 * t318 * t320 + 0.10005000000000000000e1 * t248 - 0.8707782266940e1 * t328 * t330 - 0.2001e1 * t240 + 0.667e0 * t265 - 0.26673330e1 * t335 * t336 + 0.8891110e0 * t98 * t340 - 0.5967779409441e1 * t343 * t344 + 0.1989259803147e1 * t111 * t348 + 0.17415564533880e2 * t352 * t353;
8072   t357 = t125 * t140;
8073   t358 = t357 * t263;
8074   t361 = t109 * t97;
8075   t362 = t132 * t361;
8076   t363 = t141 * t238;
8077   t366 = t138 * t154;
8078   t367 = t366 * t263;
8079   t370 = t147 * t56;
8080   t371 = t146 * t370;
8081   t372 = t155 * t238;
8082   t375 = t152 * t167;
8083   t376 = t375 * t263;
8084   t379 = t147 * t96;
8085   t380 = t159 * t379;
8086   t381 = t168 * t238;
8087   t384 = t126 * t126;
8088   t385 = 0.1e1 / t384;
8089   t386 = t165 * t385;
8090   t387 = t386 * t263;
8091   t391 = t131 * t97;
8092   t394 = t145 * t110;
8093   t397 = t120 * t68;
8094   t398 = t397 * t122;
8095   t401 = t120 * t94;
8096   t402 = t401 * t134;
8097   t405 = t94 * t33;
8098   t406 = t120 * t405;
8099   t407 = t406 * t148;
8100   t410 = t158 * t16;
8101   t411 = t410 * t161;
8102   t414 = -0.5805188177960e1 * t123 * t358 - 0.13319970623955e2 * t362 * t363 + 0.4439990207985e1 * t135 * t367 + 0.4221520946622e1 * t371 * t372 - 0.1407173648874e1 * t149 * t376 - 0.486902709762e0 * t380 * t381 + 0.162300903254e0 * t162 * t387 - 0.3335e1 * t231 - 0.44455550e1 * t391 * t104 - 0.9946299015735e1 * t394 * t117 + 0.29025940889800e2 * t398 * t128 - 0.22199951039925e2 * t402 * t141 + 0.7035868244370e1 * t407 * t155 - 0.811504516270e0 * t411 * t168;
8103   t416 = params->d * params->c2;
8104   t417 = 0.1e1 / t79;
8105   t421 = my_piecewise3(t92, t356 + t414, t416 * t417 * t266 * t174);
8106   t424 = t205 * t278 - t91 * t421 + 0.1174e1 * t421;
8107   t425 = t7 * t424;
8108   t429 = 0.1e1 / rho[0];
8109   t430 = pow(0.3e1, 0.1e1 / 0.6e1);
8110   t431 = t430 * t430;
8111   t432 = t431 * t431;
8112   t433 = t432 * t430;
8113   t434 = t429 * t433;
8114   t435 = t4 * t7;
8115   t436 = t435 * t180;
8116   t439 = 0.1e1 / t190 / t189;
8117   t440 = t439 * t26;
8118   t443 = t440 * t183 * t185 * t194;
8119   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
8120     vrho[0] = -t197 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t425 * t195 - 0.24739500000000000000e1 * t434 * t436 * t443;
8121 
8122   t452 = 0.1e1 / t94;
8123   t461 = my_piecewise3(t55, -t19 / 0.8e1, 0);
8124   t462 = t75 * t461;
8125   t463 = t233 * t462;
8126   t465 = t9 * t94;
8127   t466 = t465 * t96;
8128   t467 = 0.1e1 / t163;
8129   t468 = t467 * t103;
8130   t469 = t468 * t461;
8131   t470 = t466 * t469;
8132   t472 = -0.3e1 * t463 + 0.2e1 * t470;
8133   t473 = t46 * t472;
8134   t476 = t472 * t81;
8135   t479 = 0.7e1 / 0.12960e5 * t47 * t14 * t19 + t473 * t81 / 0.100e3 - t270 * t476 / 0.100e3;
8136   t482 = 0.5e1 / 0.972e3 * t15 * t19 + t30 * sigma[0] * t35 * t42 / 0.288e3 - 0.9e1 / 0.2560e4 * t220 * t31 * t452 * t42 + 0.2e1 * t84 * t479;
8137   t483 = t482 * t177;
8138   t487 = t104 * t461;
8139   t490 = t9 * t405;
8140   t491 = t490 * t133;
8141   t492 = 0.1e1 / t112;
8142   t493 = t492 * t116;
8143   t494 = t493 * t461;
8144   t497 = t117 * t461;
8145   t500 = t120 * t16;
8146   t501 = t9 * t500;
8147   t502 = t109 * t57;
8148   t503 = t501 * t502;
8149   t504 = t112 * t66;
8150   t505 = 0.1e1 / t504;
8151   t506 = t505 * t127;
8152   t507 = t506 * t461;
8153   t510 = t128 * t461;
8154   t513 = t120 * t107;
8155   t514 = t9 * t513;
8156   t515 = t109 * t160;
8157   t516 = t514 * t515;
8158   t518 = 0.1e1 / t112 / t100;
8159   t519 = t518 * t140;
8160   t520 = t519 * t461;
8161   t523 = t141 * t461;
8162   t526 = t94 * t32;
8163   t527 = t120 * t526;
8164   t528 = t9 * t527;
8165   t529 = t528 * t147;
8166   t531 = 0.1e1 / t150 / t64;
8167   t532 = t531 * t154;
8168   t533 = t532 * t461;
8169   t536 = t155 * t461;
8170   t539 = t158 * rho[0];
8171   t540 = t9 * t539;
8172   t541 = t147 * t58;
8173   t542 = t540 * t541;
8174   t544 = 0.1e1 / t150 / t99;
8175   t545 = t544 * t167;
8176   t546 = t545 * t461;
8177   t549 = t168 * t461;
8178   t552 = t158 * t144;
8179   t553 = t9 * t552;
8180   t554 = t147 * t97;
8181   t555 = t553 * t554;
8182   t557 = 0.1e1 / t150 / t136;
8183   t558 = t557 * t385;
8184   t559 = t558 * t461;
8185   t562 = -0.2001e1 * t463 + 0.1334e1 * t470 - 0.26673330e1 * t335 * t487 + 0.17782220e1 * t491 * t494 - 0.5967779409441e1 * t343 * t497 + 0.3978519606294e1 * t503 * t507 + 0.17415564533880e2 * t352 * t510 - 0.11610376355920e2 * t516 * t520 - 0.13319970623955e2 * t362 * t523 + 0.8879980415970e1 * t529 * t533 + 0.4221520946622e1 * t371 * t536 - 0.2814347297748e1 * t542 * t546 - 0.486902709762e0 * t380 * t549 + 0.324601806508e0 * t555 * t559;
8186   t566 = my_piecewise3(t92, t562, t416 * t417 * t472 * t174);
8187   t569 = t205 * t483 - t91 * t566 + 0.1174e1 * t566;
8188   t570 = t7 * t569;
8189   t571 = t570 * t195;
8190   t574 = t433 * t4;
8191   t575 = t7 * t180;
8192   t576 = t574 * t575;
8193   t577 = 0.1e1 / t185;
8194   t580 = t440 * t183 * t577 * t194;
8195   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
8196     vsigma[0] = -0.3e1 / 0.8e1 * t201 * t571 + 0.92773125000000000000e0 * t576 * t580;
8197 
8198   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
8199     vlapl[0] = 0.0e0;
8200 
8201   t583 = my_piecewise3(t55, t51, 0);
8202   t584 = t75 * t583;
8203   t585 = t233 * t584;
8204   t587 = t468 * t583;
8205   t588 = t466 * t587;
8206   t590 = -0.3e1 * t585 + 0.2e1 * t588;
8207   t591 = t46 * t590;
8208   t593 = t590 * t81;
8209   t596 = -t270 * t593 / 0.100e3 + t591 * t81 / 0.100e3;
8210   t597 = t84 * t596;
8211   t603 = t104 * t583;
8212   t606 = t493 * t583;
8213   t609 = t117 * t583;
8214   t612 = t506 * t583;
8215   t615 = t128 * t583;
8216   t618 = t519 * t583;
8217   t621 = t141 * t583;
8218   t624 = t532 * t583;
8219   t627 = t155 * t583;
8220   t630 = t545 * t583;
8221   t633 = t168 * t583;
8222   t636 = t558 * t583;
8223   t639 = -0.2001e1 * t585 + 0.1334e1 * t588 - 0.26673330e1 * t335 * t603 + 0.17782220e1 * t491 * t606 - 0.5967779409441e1 * t343 * t609 + 0.3978519606294e1 * t503 * t612 + 0.17415564533880e2 * t352 * t615 - 0.11610376355920e2 * t516 * t618 - 0.13319970623955e2 * t362 * t621 + 0.8879980415970e1 * t529 * t624 + 0.4221520946622e1 * t371 * t627 - 0.2814347297748e1 * t542 * t630 - 0.486902709762e0 * t380 * t633 + 0.324601806508e0 * t555 * t636;
8224   t643 = my_piecewise3(t92, t639, t416 * t417 * t590 * t174);
8225   t646 = 0.2e1 * t205 * t597 * t177 - t91 * t643 + 0.1174e1 * t643;
8226   t647 = t7 * t646;
8227   t648 = t647 * t195;
8228   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
8229     vtau[0] = -0.3e1 / 0.8e1 * t201 * t648;
8230 
8231 #ifndef XC_DONT_COMPILE_FXC
8232 
8233   if(order < 2) return;
8234 
8235 
8236   t651 = 0.1e1 / t17;
8237   t659 = 0.1e1 / t16;
8238   t660 = t7 * t659;
8239   t667 = t202 / t203 / t86;
8240   t668 = t277 * t277;
8241   t669 = t668 * t177;
8242   t672 = t17 * t32;
8243   t673 = 0.1e1 / t672;
8244   t674 = sigma[0] * t673;
8245   t677 = t9 * t107;
8246   t678 = 0.1e1 / t677;
8247   t683 = 0.1e1 / t95;
8248   t689 = t217 * t25 * t219;
8249   t690 = t31 * t31;
8250   t691 = t689 * t690;
8251   t692 = t17 * t526;
8252   t693 = 0.1e1 / t692;
8253   t695 = t14 * t42;
8254   t696 = t693 * t10 * t695;
8255   t699 = t274 * t274;
8256   t704 = t68 * t58;
8257   t705 = t704 * t75;
8258   t707 = t259 * t239;
8259   t710 = t672 * t58 * t244;
8260   t711 = t710 * t247;
8261   t713 = t230 * t264;
8262   t715 = t33 * t56;
8263   t716 = t238 * t238;
8264   t717 = t75 * t716;
8265   t718 = t715 * t717;
8266   t720 = t242 * t57;
8267   t721 = t720 * t244;
8268   t722 = t74 * t238;
8269   t723 = t26 * t13;
8270   t724 = t722 * t723;
8271   t725 = t721 * t724;
8272   t727 = t233 * t67;
8273   t728 = t103 * t238;
8274   t729 = t728 * t263;
8275   t730 = t727 * t729;
8276   t736 = my_piecewise3(t55, 0.40e2 / 0.9e1 * tau[0] * t207 - 0.11e2 / 0.9e1 * t674, 0);
8277   t737 = t75 * t736;
8278   t738 = t233 * t737;
8279   t740 = t211 * t58;
8280   t741 = t740 * t467;
8281   t743 = t74 * t10 * t28;
8282   t744 = t741 * t743;
8283   t746 = t13 * t263;
8284   t747 = t310 * t746;
8285   t748 = t245 * t747;
8286   t750 = t67 * t116;
8287   t751 = t263 * t263;
8288   t752 = t750 * t751;
8289   t753 = t59 * t752;
8290   t758 = t251 * t56;
8291   t761 = t68 * t57;
8292   t767 = t32 * t56;
8293   t768 = t767 * t67;
8294   t769 = t238 * t26;
8295   t770 = t769 * t13;
8296   t773 = t71 * t736;
8297   t776 = t672 * t57;
8298   t778 = t244 * t10 * t28;
8299   t781 = 0.70e2 / 0.9e1 * t186 * t57 * t71 + 0.40e2 / 0.3e1 * t758 * t256 - 0.22e2 / 0.3e1 * t761 * t261 + 0.2e1 * t69 * t716 * t71 - 0.4e1 * t768 * t770 + 0.2e1 * t255 * t773 + 0.9e1 * t776 * t778;
8300   t782 = t250 * t781;
8301   t783 = t59 * t782;
8302   t784 = -0.20e2 * t705 - 0.30e2 * t707 + 0.16e2 * t711 + 0.10e2 * t713 - 0.6e1 * t718 + 0.9e1 * t725 + 0.6e1 * t730 - 0.3e1 * t738 - 0.18e2 * t744 - 0.3e1 * t748 - 0.2e1 * t753 + t783;
8303   t785 = t46 * t784;
8304   t788 = t266 * t266;
8305   t790 = t77 * t81;
8306   t793 = t784 * t81;
8307   t796 = t79 * t77;
8308   t797 = t46 * t796;
8309   t798 = t788 * t81;
8310   t801 = 0.77e2 / 0.14580e5 * t47 * t38 * t673 + t785 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t46 * t788 * t790 - t270 * t793 / 0.100e3 + t797 * t798 / 0.100e3;
8311   t804 = 0.110e3 / 0.2187e4 * t15 * t674 + 0.19e2 / 0.324e3 * t30 * t31 * t678 * t42 - 0.43e2 / 0.320e3 * t220 * t221 * t683 * t42 + 0.27e2 / 0.3200e4 * t691 * t696 + 0.2e1 * t699 + 0.2e1 * t84 * t801;
8312   t807 = t277 * t421;
8313   t819 = t159 * t541;
8314   t820 = t168 * t716;
8315   t825 = 0.1e1 / t384 / t73;
8316   t826 = t165 * t825;
8317   t827 = t826 * t751;
8318   t830 = t401 * t361;
8319   t835 = t141 * t736;
8320   t838 = t366 * t781;
8321   t841 = t406 * t370;
8322   t846 = t155 * t736;
8323   t849 = t375 * t781;
8324   t852 = t410 * t379;
8325   t857 = -0.1298407226032e1 * t162 * t827 - 0.665998531197750e3 * t830 * t363 + 0.221999510399250e3 * t402 * t367 - 0.13319970623955e2 * t362 * t835 + 0.4439990207985e1 * t135 * t838 + 0.253291256797320e3 * t841 * t372 - 0.84430418932440e2 * t407 * t376 + 0.4221520946622e1 * t371 * t846 - 0.1407173648874e1 * t149 * t849 - 0.34083189683340e2 * t852 * t381 + 0.11361063227780e2 * t411 * t387;
8326   t859 = t168 * t736;
8327   t862 = t329 * t746;
8328   t865 = t280 * t361;
8329   t866 = t865 * t282;
8330   t867 = t13 * t238;
8331   t868 = t284 * t867;
8332   t871 = t293 * t746;
8333   t874 = t288 * t370;
8334   t875 = t874 * t291;
8335   t876 = t293 * t867;
8336   t879 = t302 * t746;
8337   t882 = t297 * t379;
8338   t883 = t882 * t300;
8339   t884 = t302 * t867;
8340   t887 = t385 * t26;
8341   t888 = t887 * t746;
8342   t891 = t306 * t160;
8343   t892 = t891 * t308;
8344   t893 = t310 * t867;
8345   t896 = t319 * t746;
8346   t900 = t314 * t109;
8347   t901 = t900 * t317;
8348   t902 = t319 * t867;
8349   t905 = t324 * t351;
8350   t906 = t905 * t327;
8351   t907 = t329 * t867;
8352   t910 = t284 * t746;
8353   t915 = t405 * t110;
8354   t918 = t500 * t122;
8355   t921 = t513 * t134;
8356   t924 = t527 * t148;
8357   t927 = t539 * t161;
8358   t930 = t94 * t97;
8359   t933 = 0.53710014684969000000e2 * t901 * t902 - 0.208986774406560e3 * t906 * t907 + 0.69662258135520e2 * t328 * t910 + 0.60030000000000000000e1 * t725 - 0.20010000000000000000e1 * t748 - 0.139248186220290e3 * t915 * t117 + 0.551492876906200e3 * t918 * t128 - 0.532798824958200e3 * t921 * t141 + 0.204040179086730e3 * t924 * t155 - 0.27591153553180e2 * t927 * t168 - 0.400099950e2 * t930 * t104;
8360   t936 = t386 * t781;
8361   t939 = t131 * t160;
8362   t944 = t104 * t736;
8363   t947 = t339 * t781;
8364   t950 = t145 * t109;
8365   t955 = t117 * t736;
8366   t958 = t347 * t781;
8367   t961 = t397 * t351;
8368   t967 = t128 * t736;
8369   t970 = t357 * t781;
8370   t973 = t158 * t32;
8371   t974 = t9 * t973;
8372   t975 = t974 * t161;
8373   t976 = t975 * t557;
8374   t977 = t167 * t10;
8375   t978 = t977 * t28;
8376   t981 = t94 * t68;
8377   t982 = t9 * t981;
8378   t983 = t982 * t97;
8379   t984 = t983 * t492;
8380   t985 = t103 * t10;
8381   t986 = t985 * t28;
8382   t989 = t9 * t120;
8383   t990 = t989 * t110;
8384   t991 = t990 * t505;
8385   t992 = t116 * t10;
8386   t993 = t992 * t28;
8387   t996 = t17 * t410;
8388   t998 = t996 * t161 * t300;
8389   t1001 = t17 * t131;
8390   t1003 = t1001 * t97 * t308;
8391   t1006 = t17 * t145;
8392   t1008 = t1006 * t110 * t317;
8393   t1011 = t17 * t397;
8394   t1013 = t1011 * t122 * t327;
8395   t1016 = t352 * t125;
8396   t1017 = t140 * t238;
8397   t1018 = t1017 * t263;
8398   t1021 = -0.232207527118400e3 * t398 * t358 + 0.17415564533880e2 * t352 * t967 - 0.5805188177960e1 * t123 * t970 - 0.16067789422146000000e2 * t976 * t978 - 0.280069965e2 * t984 * t986 - 0.89516691141615000000e2 * t991 * t993 + 0.17203895744924000000e2 * t998 * t303 + 0.27562441000000000000e2 * t1003 * t311 + 0.91505950944762000000e2 * t1008 * t320 - 0.35411647885556000000e3 * t1013 * t330 - 0.139324516271040e3 * t1016 * t1018;
8399   t1023 = t362 * t138;
8400   t1024 = t154 * t238;
8401   t1025 = t1024 * t263;
8402   t1028 = t371 * t152;
8403   t1029 = t167 * t238;
8404   t1030 = t1029 * t263;
8405   t1033 = t335 * t101;
8406   t1034 = t116 * t238;
8407   t1035 = t1034 * t263;
8408   t1038 = t343 * t114;
8409   t1039 = t127 * t238;
8410   t1040 = t1039 * t263;
8411   t1043 = t120 * t33;
8412   t1044 = t9 * t1043;
8413   t1045 = t1044 * t122;
8414   t1046 = t1045 * t518;
8415   t1047 = t127 * t10;
8416   t1048 = t1047 * t28;
8417   t1051 = t120 * t95;
8418   t1052 = t9 * t1051;
8419   t1053 = t1052 * t134;
8420   t1054 = t1053 * t531;
8421   t1055 = t140 * t10;
8422   t1056 = t1055 * t28;
8423   t1059 = t120 * t108;
8424   t1060 = t9 * t1059;
8425   t1061 = t1060 * t148;
8426   t1062 = t1061 * t544;
8427   t1063 = t154 * t10;
8428   t1064 = t1063 * t28;
8429   t1067 = t17 * t401;
8430   t1069 = t1067 * t134 * t282;
8431   t1072 = t17 * t406;
8432   t1074 = t1072 * t148 * t291;
8433   t1077 = t380 * t165;
8434   t1078 = t385 * t238;
8435   t1079 = t1078 * t263;
8436   t1083 = t125 * t154;
8437   t1084 = t1083 * t751;
8438   t1087 = t132 * t515;
8439   t1088 = t141 * t716;
8440   t1091 = t138 * t167;
8441   t1092 = t1091 * t751;
8442   t1095 = t146 * t147;
8443   t1096 = t155 * t716;
8444   t1099 = t152 * t385;
8445   t1100 = t1099 * t751;
8446   t1103 = t95 * t96;
8447   t1104 = t104 * t716;
8448   t1107 = t101 * t127;
8449   t1108 = t1107 * t751;
8450   t1111 = t108 * t133;
8451   t1112 = t117 * t716;
8452   t1115 = t114 * t140;
8453   t1116 = t1115 * t751;
8454   t1119 = t121 * t502;
8455   t1120 = t128 * t716;
8456   t1124 = 0.29025940889800e2 * t123 * t1084 - 0.186479588735370e3 * t1087 * t1088 - 0.26639941247910e2 * t135 * t1092 + 0.71765856092574e2 * t1095 * t1096 + 0.9850215542118e1 * t149 * t1100 - 0.133366650e2 * t1103 * t1104 - 0.26673330e1 * t98 * t1108 - 0.47742235275528e2 * t1111 * t1112 - 0.7957039212588e1 * t111 * t1116 + 0.191571209872680e3 * t1119 * t1120 - 0.13340e2 * t705;
8457   t1128 = 0.1e1 / t796;
8458   t1136 = params->c2 * params->c2;
8459   t1137 = params->d * t1136;
8460   t1138 = t79 * t79;
8461   t1139 = 0.1e1 / t1138;
8462   t1144 = my_piecewise3(t92, t1124 + 0.4002e1 * t730 + t1021 + 0.10672000000000000000e2 * t711 + 0.6670e1 * t713 - 0.20010e2 * t707 - 0.4002e1 * t718 + t857 + t933 + 0.667e0 * t783 - 0.1334e1 * t753 - 0.12006000000000000000e2 * t744 - 0.2001e1 * t738 - 0.5967779409441e1 * t343 * t955 + 0.1989259803147e1 * t111 * t958 + 0.696622581355200e3 * t961 * t353 - 0.486902709762e0 * t380 * t859 - 0.17903338228323000000e2 * t318 * t862 + 0.19979955935932500000e3 * t866 * t868 - 0.66599853119775000000e2 * t283 * t871 - 0.75987377039196e2 * t875 * t876 + 0.25329125679732e2 * t292 * t879 + 0.133199706239550e3 * t1023 * t1025 - 0.50658251359464e2 * t1028 * t1030 + 0.106693320e2 * t1033 * t1035 + 0.35806676456646e2 * t1038 * t1040 + 0.339603508410660e3 * t1046 * t1048 - 0.31967929497492000000e3 * t1054 * t1056 + 0.120313346978727e3 * t1062 * t1064 + 0.33743925580686000000e3 * t1069 * t285 - 0.12805280204753400000e3 * t1074 * t294 + 0.162300903254e0 * t162 * t936 - 0.533466600e2 * t939 * t336 + 0.6816637936668e1 * t1077 * t1079 - 0.9738054195240e1 * t819 * t820 + 0.10224956905002000000e2 * t883 * t884 - 0.34083189683340000000e1 * t301 * t888 + 0.160039980e2 * t892 * t893 - 0.53346660e1 * t309 * t896 + 0.177822200e2 * t391 * t340 - 0.26673330e1 * t335 * t944 + 0.8891110e0 * t98 * t947 - 0.179033382283230e3 * t950 * t344 + 0.59677794094410e2 * t394 * t348, -0.2e1 * t416 * t1128 * t788 * t174 - t1137 * t1139 * t788 * t174 + t416 * t417 * t784 * t174);
8463   t1147 = -0.2e1 * t667 * t669 + t205 * t804 * t177 - 0.2e1 * t205 * t807 - t91 * t1144 + 0.1174e1 * t1144;
8464   t1148 = t7 * t1147;
8465   t1152 = t435 * t424;
8466   t1156 = 0.1e1 / t69;
8467   t1157 = t1156 * t433;
8468   t1161 = 0.1e1 / t190 / t21 / 0.6e1;
8469   t1162 = t1161 * t10;
8470   t1164 = t1162 * t38 * t194;
8471   t1168 = t17 * t2 * t435;
8472   t1170 = t15 * t194;
8473   t1171 = t180 * t577 * t1170;
8474   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8475     v2rho2[0] = -t8 * t651 * t180 * t195 / 0.6e1 - t8 * t9 * t424 * t195 - 0.8246500000000000000e0 * t574 * t660 * t180 * t443 - 0.3e1 / 0.8e1 * t201 * t1148 * t195 - 0.49479000000000000000e1 * t434 * t1152 * t443 - 0.29687400000000000000e2 * t1157 * t436 * t1164 + 0.80541612095716256868e2 * t1168 * t1171;
8476 
8477   t1175 = t9 * t2 * t4;
8478   t1178 = t483 * t277;
8479   t1191 = t689 * t221;
8480   t1192 = t17 * t981;
8481   t1193 = 0.1e1 / t1192;
8482   t1195 = t1193 * t10 * t695;
8483   t1203 = t259 * t462;
8484   t1205 = t715 * t67;
8485   t1206 = t74 * t461;
8486   t1207 = t1206 * t238;
8487   t1208 = t1205 * t1207;
8488   t1210 = t1206 * t723;
8489   t1211 = t721 * t1210;
8490   t1213 = t103 * t461;
8491   t1214 = t1213 * t263;
8492   t1215 = t727 * t1214;
8493   t1218 = my_piecewise3(t55, t207 / 0.3e1, 0);
8494   t1219 = t75 * t1218;
8495   t1220 = t233 * t1219;
8496   t1222 = t677 * t96;
8497   t1223 = t1222 * t469;
8498   t1225 = t465 * t58;
8499   t1226 = t1225 * t467;
8500   t1227 = t1213 * t238;
8501   t1228 = t1226 * t1227;
8502   t1230 = t131 * t96;
8503   t1231 = t1230 * t101;
8504   t1232 = t1213 * t723;
8505   t1233 = t1231 * t1232;
8506   t1235 = t466 * t467;
8507   t1236 = t116 * t461;
8508   t1237 = t1236 * t263;
8509   t1238 = t1235 * t1237;
8510   t1240 = t468 * t1218;
8511   t1241 = t466 * t1240;
8512   t1243 = -0.15e2 * t1203 - 0.6e1 * t1208 + 0.9e1 / 0.2e1 * t1211 + 0.3e1 * t1215 - 0.3e1 * t1220 + 0.50e2 / 0.3e1 * t1223 + 0.8e1 * t1228 - 0.5e1 * t1233 - 0.4e1 * t1238 + 0.2e1 * t1241;
8513   t1244 = t46 * t1243;
8514   t1248 = t77 * t266 * t81;
8515   t1251 = t1243 * t81;
8516   t1254 = t472 * t266;
8517   t1255 = t1254 * t81;
8518   t1258 = -0.7e1 / 0.4860e4 * t47 * t14 * t207 + t1244 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t473 * t1248 - t270 * t1251 / 0.100e3 + t797 * t1255 / 0.100e3;
8519   t1261 = -0.10e2 / 0.729e3 * t15 * t207 - t30 * sigma[0] * t212 * t42 / 0.54e2 + 0.3e1 / 0.64e2 * t220 * t31 * t222 * t42 - 0.81e2 / 0.25600e5 * t1191 * t1195 + 0.2e1 * t274 * t479 + 0.2e1 * t84 * t1258;
8520   t1262 = t1261 * t177;
8521   t1264 = t482 * t421;
8522   t1266 = t277 * t566;
8523   t1270 = t145 * t133;
8524   t1271 = t1270 * t114;
8525   t1272 = t1236 * t723;
8526   t1277 = t397 * t502;
8527   t1278 = t1277 * t125;
8528   t1279 = t127 * t461;
8529   t1280 = t1279 * t723;
8530   t1285 = t401 * t515;
8531   t1286 = t1285 * t138;
8532   t1287 = t140 * t461;
8533   t1288 = t1287 * t723;
8534   t1293 = t406 * t147;
8535   t1294 = t1293 * t152;
8536   t1295 = t154 * t461;
8537   t1296 = t1295 * t723;
8538   t1301 = t410 * t541;
8539   t1302 = t1301 * t165;
8540   t1303 = t167 * t461;
8541   t1304 = t1303 * t723;
8542   t1309 = t158 * t107;
8543   t1310 = t1309 * t554;
8544   t1312 = 0.1e1 / t150 / t112;
8545   t1313 = t1310 * t1312;
8546   t1314 = t385 * t461;
8547   t1315 = t1314 * t723;
8548   t1320 = t158 * t33;
8549   t1321 = t9 * t1320;
8550   t1322 = t1321 * t554;
8551   t1327 = t9 * t526;
8552   t1328 = t1327 * t133;
8553   t1331 = 0.80019990e1 * t892 * t1232 - 0.71128880e1 * t1271 * t1272 + 0.26855007342484500000e2 * t901 * t1272 - 0.21881857834617000000e2 * t1278 * t1280 - 0.104493387203280e3 * t906 * t1280 + 0.81272634491440e2 * t1286 * t1288 + 0.99899779679662500000e2 * t866 * t1288 - 0.75479833535745000000e2 * t1294 * t1296 - 0.37993688519598e2 * t875 * t1296 + 0.28143472977480e2 * t1302 * t1304 + 0.51124784525010000000e1 * t883 * t1304 - 0.37329207748420000000e1 * t1313 * t1315 + 0.30015000000000000000e1 * t1211 - 0.33350000000000000000e1 * t1233 + 0.12443069249473333333e2 * t1322 * t559 - 0.266733300e2 * t939 * t487 + 0.23709626666666666667e2 * t1328 * t494;
8554   t1334 = t120 * rho[0];
8555   t1335 = t9 * t1334;
8556   t1336 = t1335 * t502;
8557   t1339 = t168 * t1218;
8558   t1342 = t558 * t1218;
8559   t1345 = t104 * t1218;
8560   t1348 = t493 * t1218;
8561   t1351 = t117 * t1218;
8562   t1354 = t506 * t1218;
8563   t1357 = t128 * t1218;
8564   t1360 = t519 * t1218;
8565   t1365 = t120 * t144;
8566   t1366 = t9 * t1365;
8567   t1367 = t1366 * t515;
8568   t1372 = t120 * t981;
8569   t1373 = t9 * t1372;
8570   t1374 = t1373 * t147;
8571   t1379 = t9 * t158;
8572   t1380 = t1379 * t541;
8573   t1385 = t141 * t1218;
8574   t1388 = -0.89516691141615e2 * t950 * t497 + 0.72939526115390000000e2 * t1336 * t507 - 0.486902709762e0 * t380 * t1339 + 0.324601806508e0 * t555 * t1342 - 0.26673330e1 * t335 * t1345 + 0.17782220e1 * t491 * t1348 - 0.5967779409441e1 * t343 * t1351 + 0.3978519606294e1 * t503 * t1354 + 0.17415564533880e2 * t352 * t1357 - 0.11610376355920e2 * t516 * t1360 + 0.348311290677600e3 * t961 * t510 - 0.27090878163813333333e3 * t1367 * t520 - 0.332999265598875e3 * t830 * t523 + 0.25159944511915000000e3 * t1374 * t533 + 0.126645628398660e3 * t841 * t536 - 0.93811576591600000000e2 * t1380 * t546 - 0.17041594841670e2 * t852 * t549 - 0.13319970623955e2 * t362 * t1385;
8575   t1390 = t532 * t1218;
8576   t1393 = t155 * t1218;
8577   t1396 = t545 * t1218;
8578   t1403 = t491 * t492;
8579   t1404 = t1279 * t263;
8580   t1407 = t1111 * t114;
8581   t1408 = t1236 * t238;
8582   t1413 = t516 * t518;
8583   t1414 = t1295 * t263;
8584   t1417 = t1087 * t138;
8585   t1418 = t1287 * t238;
8586   t1423 = t528 * t134;
8587   t1424 = t1423 * t531;
8588   t1425 = t1295 * t238;
8589   t1428 = t529 * t531;
8590   t1429 = t1303 * t263;
8591   t1432 = t1095 * t152;
8592   t1437 = 0.8879980415970e1 * t529 * t1390 + 0.4221520946622e1 * t371 * t1393 - 0.2814347297748e1 * t542 * t1396 - 0.10005e2 * t1203 - 0.2001e1 * t1220 + 0.11116666666666666667e2 * t1223 + 0.1334e1 * t1241 - 0.53346660e1 * t1403 * t1404 - 0.47742235275528e2 * t1407 * t1408 + 0.17903338228323e2 * t1038 * t1404 + 0.58051881779600e2 * t1413 * t1414 - 0.186479588735370e3 * t1417 * t1418 + 0.66599853119775e2 * t1023 * t1414 + 0.142079686655520e3 * t1424 * t1425 - 0.53279882495820e2 * t1428 * t1429 + 0.71765856092574e2 * t1432 * t1425 - 0.25329125679732e2 * t1028 * t1429;
8593   t1438 = t540 * t148;
8594   t1439 = t1438 * t544;
8595   t1440 = t1303 * t238;
8596   t1443 = t542 * t544;
8597   t1444 = t1314 * t263;
8598   t1447 = t819 * t165;
8599   t1452 = t553 * t161;
8600   t1453 = t1452 * t557;
8601   t1454 = t1314 * t238;
8602   t1457 = t555 * t557;
8603   t1458 = t825 * t461;
8604   t1459 = t1458 * t263;
8605   t1462 = t1103 * t101;
8606   t1467 = t490 * t97;
8607   t1468 = t1467 * t492;
8608   t1471 = t501 * t110;
8609   t1472 = t1471 * t505;
8610   t1473 = t1279 * t238;
8611   t1476 = t503 * t505;
8612   t1477 = t1287 * t263;
8613   t1480 = t1119 * t125;
8614   t1485 = t514 * t122;
8615   t1486 = t1485 * t518;
8616   t1493 = -0.53472598657212e2 * t1439 * t1440 + 0.19700431084236e2 * t1443 * t1444 - 0.9738054195240e1 * t1447 * t1440 + 0.3408318968334e1 * t1077 * t1444 + 0.7141239743176e1 * t1453 * t1454 - 0.2596814452064e1 * t1457 * t1459 - 0.133366650e2 * t1462 * t1227 + 0.53346660e1 * t1033 * t1237 + 0.124475540e2 * t1468 * t1408 + 0.39785196062940e2 * t1472 * t1473 - 0.15914078425176e2 * t1476 * t1477 + 0.191571209872680e3 * t1480 * t1473 - 0.69662258135520e2 * t1016 * t1477 - 0.150934892626960e3 * t1486 * t1418 + 0.5336e1 * t1228 - 0.2668e1 * t1238 - 0.4002e1 * t1208 + 0.2001e1 * t1215;
8617   t1496 = t416 * t1128;
8618   t1497 = t472 * t174;
8619   t1498 = t1497 * t266;
8620   t1504 = t1137 * t1139;
8621   t1507 = my_piecewise3(t92, t1331 + t1388 + t1437 + t1493, t416 * t417 * t1243 * t174 - 0.2e1 * t1496 * t1498 - t1504 * t1498);
8622   t1510 = -0.2e1 * t667 * t1178 + t205 * t1262 - t205 * t1264 - t205 * t1266 - t91 * t1507 + 0.1174e1 * t1507;
8623   t1511 = t7 * t1510;
8624   t1512 = t1511 * t195;
8625   t1515 = t435 * t569;
8626   t1519 = t574 * t425;
8627   t1522 = t14 * t194;
8628   t1525 = t1162 * t1522 / t251;
8629   t1528 = t5 * t575;
8630   t1529 = t185 * sigma[0];
8631   t1530 = 0.1e1 / t1529;
8632   t1532 = t1530 * t50 * t1170;
8633   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8634     v2rhosigma[0] = -t1175 * t571 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t1512 - 0.24739500000000000000e1 * t434 * t1515 * t443 + 0.92773125000000000000e0 * t1519 * t580 + 0.11132775000000000000e2 * t576 * t1525 - 0.30203104535893596325e2 * t1528 * t1532;
8635 
8636   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
8637     v2rholapl[0] = 0.0e0;
8638 
8639   t1537 = t667 * t84;
8640   t1538 = t596 * t177;
8641   t1539 = t1538 * t277;
8642   t1542 = t274 * t596;
8643   t1546 = t259 * t584;
8644   t1548 = t74 * t583;
8645   t1549 = t1548 * t238;
8646   t1550 = t1205 * t1549;
8647   t1552 = t1548 * t723;
8648   t1553 = t721 * t1552;
8649   t1555 = t103 * t583;
8650   t1556 = t1555 * t263;
8651   t1557 = t727 * t1556;
8652   t1560 = my_piecewise3(t55, -0.5e1 / 0.3e1 * t19, 0);
8653   t1561 = t75 * t1560;
8654   t1562 = t233 * t1561;
8655   t1564 = t1222 * t587;
8656   t1566 = t1555 * t238;
8657   t1567 = t1226 * t1566;
8658   t1569 = t1555 * t723;
8659   t1570 = t1231 * t1569;
8660   t1572 = t116 * t583;
8661   t1573 = t1572 * t263;
8662   t1574 = t1235 * t1573;
8663   t1576 = t468 * t1560;
8664   t1577 = t466 * t1576;
8665   t1579 = -0.15e2 * t1546 - 0.6e1 * t1550 + 0.9e1 / 0.2e1 * t1553 + 0.3e1 * t1557 - 0.3e1 * t1562 + 0.50e2 / 0.3e1 * t1564 + 0.8e1 * t1567 - 0.5e1 * t1570 - 0.4e1 * t1574 + 0.2e1 * t1577;
8666   t1580 = t46 * t1579;
8667   t1585 = t1579 * t81;
8668   t1588 = t590 * t266;
8669   t1589 = t1588 * t81;
8670   t1592 = t1580 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t591 * t1248 - t270 * t1585 / 0.100e3 + t797 * t1589 / 0.100e3;
8671   t1593 = t84 * t1592;
8672   t1600 = t277 * t643;
8673   t1616 = t104 * t1560;
8674   t1619 = t493 * t1560;
8675   t1622 = t117 * t1560;
8676   t1625 = t506 * t1560;
8677   t1628 = t128 * t1560;
8678   t1631 = t519 * t1560;
8679   t1634 = t141 * t1560;
8680   t1637 = t532 * t1560;
8681   t1640 = t155 * t1560;
8682   t1643 = 0.30015000000000000000e1 * t1553 - 0.33350000000000000000e1 * t1570 + 0.72939526115390000000e2 * t1336 * t612 + 0.348311290677600e3 * t961 * t615 - 0.27090878163813333333e3 * t1367 * t618 - 0.332999265598875e3 * t830 * t621 + 0.25159944511915000000e3 * t1374 * t624 + 0.126645628398660e3 * t841 * t627 - 0.26673330e1 * t335 * t1616 + 0.17782220e1 * t491 * t1619 - 0.5967779409441e1 * t343 * t1622 + 0.3978519606294e1 * t503 * t1625 + 0.17415564533880e2 * t352 * t1628 - 0.11610376355920e2 * t516 * t1631 - 0.13319970623955e2 * t362 * t1634 + 0.8879980415970e1 * t529 * t1637 + 0.4221520946622e1 * t371 * t1640;
8683   t1644 = t545 * t1560;
8684   t1647 = t168 * t1560;
8685   t1650 = t558 * t1560;
8686   t1669 = t140 * t583;
8687   t1670 = t1669 * t263;
8688   t1673 = t1669 * t238;
8689   t1676 = t154 * t583;
8690   t1677 = t1676 * t263;
8691   t1684 = -0.2814347297748e1 * t542 * t1644 - 0.486902709762e0 * t380 * t1647 + 0.324601806508e0 * t555 * t1650 - 0.93811576591600000000e2 * t1380 * t630 - 0.17041594841670e2 * t852 * t633 + 0.12443069249473333333e2 * t1322 * t636 - 0.266733300e2 * t939 * t603 + 0.23709626666666666667e2 * t1328 * t606 - 0.89516691141615e2 * t950 * t609 - 0.10005e2 * t1546 - 0.2001e1 * t1562 + 0.11116666666666666667e2 * t1564 + 0.1334e1 * t1577 - 0.69662258135520e2 * t1016 * t1670 - 0.150934892626960e3 * t1486 * t1673 + 0.58051881779600e2 * t1413 * t1677 - 0.186479588735370e3 * t1417 * t1673 + 0.66599853119775e2 * t1023 * t1677;
8692   t1686 = t1676 * t238;
8693   t1689 = t167 * t583;
8694   t1690 = t1689 * t263;
8695   t1697 = t1689 * t238;
8696   t1700 = t385 * t583;
8697   t1701 = t1700 * t263;
8698   t1708 = t1700 * t238;
8699   t1711 = t825 * t583;
8700   t1712 = t1711 * t263;
8701   t1719 = t1572 * t238;
8702   t1722 = t127 * t583;
8703   t1723 = t1722 * t263;
8704   t1730 = t1722 * t238;
8705   t1733 = 0.142079686655520e3 * t1424 * t1686 - 0.53279882495820e2 * t1428 * t1690 + 0.71765856092574e2 * t1432 * t1686 - 0.25329125679732e2 * t1028 * t1690 - 0.53472598657212e2 * t1439 * t1697 + 0.19700431084236e2 * t1443 * t1701 - 0.9738054195240e1 * t1447 * t1697 + 0.3408318968334e1 * t1077 * t1701 + 0.7141239743176e1 * t1453 * t1708 - 0.2596814452064e1 * t1457 * t1712 - 0.133366650e2 * t1462 * t1566 + 0.53346660e1 * t1033 * t1573 + 0.124475540e2 * t1468 * t1719 - 0.53346660e1 * t1403 * t1723 - 0.47742235275528e2 * t1407 * t1719 + 0.17903338228323e2 * t1038 * t1723 + 0.39785196062940e2 * t1472 * t1730;
8706   t1742 = t1722 * t723;
8707   t1745 = t1669 * t723;
8708   t1750 = t1676 * t723;
8709   t1755 = t1689 * t723;
8710   t1760 = t1700 * t723;
8711   t1765 = t1572 * t723;
8712   t1772 = -0.15914078425176e2 * t1476 * t1670 + 0.191571209872680e3 * t1480 * t1730 - 0.4002e1 * t1550 + 0.2001e1 * t1557 + 0.5336e1 * t1567 - 0.2668e1 * t1574 - 0.104493387203280e3 * t906 * t1742 + 0.81272634491440e2 * t1286 * t1745 + 0.99899779679662500000e2 * t866 * t1745 - 0.75479833535745000000e2 * t1294 * t1750 - 0.37993688519598e2 * t875 * t1750 + 0.28143472977480e2 * t1302 * t1755 + 0.51124784525010000000e1 * t883 * t1755 - 0.37329207748420000000e1 * t1313 * t1760 + 0.80019990e1 * t892 * t1569 - 0.71128880e1 * t1271 * t1765 + 0.26855007342484500000e2 * t901 * t1765 - 0.21881857834617000000e2 * t1278 * t1742;
8713   t1775 = t590 * t174;
8714   t1776 = t1775 * t266;
8715   t1784 = my_piecewise3(t92, t1643 + t1684 + t1733 + t1772, t416 * t417 * t1579 * t174 - 0.2e1 * t1496 * t1776 - t1504 * t1776);
8716   t1787 = -0.4e1 * t1537 * t1539 + 0.2e1 * t205 * t1542 * t177 + 0.2e1 * t205 * t1593 * t177 - 0.2e1 * t205 * t597 * t421 - t205 * t1600 - t91 * t1784 + 0.1174e1 * t1784;
8717   t1788 = t7 * t1787;
8718   t1789 = t1788 * t195;
8719   t1792 = t435 * t646;
8720   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8721     v2rhotau[0] = -t1175 * t648 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t1789 - 0.24739500000000000000e1 * t434 * t1792 * t443;
8722 
8723   t1796 = t482 * t482;
8724   t1797 = t1796 * t177;
8725   t1808 = t689 * t31;
8726   t1809 = 0.1e1 / t306;
8727   t1811 = t1809 * t10 * t695;
8728   t1814 = t479 * t479;
8729   t1816 = t461 * t461;
8730   t1817 = t75 * t1816;
8731   t1818 = t715 * t1817;
8732   t1820 = t468 * t1816;
8733   t1821 = t1225 * t1820;
8734   t1823 = my_piecewise3(t55, 0, 0);
8735   t1824 = t75 * t1823;
8736   t1825 = t233 * t1824;
8737   t1826 = 0.3e1 * t1825;
8738   t1827 = t1192 * t160;
8739   t1828 = t308 * t116;
8740   t1829 = t1828 * t1816;
8741   t1830 = t1827 * t1829;
8742   t1832 = t468 * t1823;
8743   t1833 = t466 * t1832;
8744   t1834 = 0.2e1 * t1833;
8745   t1835 = -0.6e1 * t1818 + 0.14e2 * t1821 - t1826 - 0.8e1 * t1830 + t1834;
8746   t1836 = t46 * t1835;
8747   t1839 = t472 * t472;
8748   t1840 = t46 * t1839;
8749   t1843 = t1835 * t81;
8750   t1846 = t1839 * t81;
8751   t1849 = t1836 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t1840 * t790 - t270 * t1843 / 0.100e3 + t797 * t1846 / 0.100e3;
8752   t1852 = t27 * t29 * t35 * t42 / 0.288e3 - 0.9e1 / 0.640e3 * t220 * sigma[0] * t452 * t42 + 0.243e3 / 0.204800e6 * t1808 * t1811 + 0.2e1 * t1814 + 0.2e1 * t84 * t1849;
8753   t1853 = t1852 * t177;
8754   t1855 = t482 * t566;
8755   t1858 = t104 * t1816;
8756   t1861 = t117 * t1816;
8757   t1864 = t128 * t1816;
8758   t1867 = t104 * t1823;
8759   t1869 = 0.26673330e1 * t335 * t1867;
8760   t1870 = t493 * t1816;
8761   t1873 = t493 * t1823;
8762   t1875 = 0.17782220e1 * t491 * t1873;
8763   t1876 = t17 * t120;
8764   t1877 = t1876 * t109;
8765   t1878 = t317 * t127;
8766   t1879 = t1878 * t1816;
8767   t1882 = t117 * t1823;
8768   t1884 = 0.5967779409441e1 * t343 * t1882;
8769   t1885 = t506 * t1816;
8770   t1888 = t506 * t1823;
8771   t1890 = 0.3978519606294e1 * t503 * t1888;
8772   t1891 = t17 * t1043;
8773   t1892 = t1891 * t351;
8774   t1893 = t327 * t140;
8775   t1894 = t1893 * t1816;
8776   t1897 = t128 * t1823;
8777   t1899 = 0.17415564533880e2 * t352 * t1897;
8778   t1900 = t519 * t1816;
8779   t1903 = t519 * t1823;
8780   t1905 = 0.11610376355920e2 * t516 * t1903;
8781   t1906 = t17 * t1051;
8782   t1907 = t1906 * t361;
8783   t1908 = t282 * t154;
8784   t1909 = t1908 * t1816;
8785   t1912 = t141 * t1823;
8786   t1914 = 0.13319970623955e2 * t362 * t1912;
8787   t1915 = t532 * t1816;
8788   t1918 = -0.133366650e2 * t1103 * t1858 - 0.47742235275528e2 * t1111 * t1861 + 0.191571209872680e3 * t1119 * t1864 - t1869 + 0.231168860e2 * t1467 * t1870 + t1875 - 0.106693320e2 * t1877 * t1879 - t1884 + 0.75591872519586e2 * t1471 * t1885 + t1890 - 0.31828156850352e2 * t1892 * t1894 + t1899 - 0.290259408898000e3 * t1485 * t1900 - t1905 + 0.116103763559200e3 * t1907 * t1909 - t1914 + 0.275279392895070e3 * t1423 * t1915;
8789   t1919 = t532 * t1823;
8790   t1921 = 0.8879980415970e1 * t529 * t1919;
8791   t1922 = t17 * t1059;
8792   t1923 = t1922 * t370;
8793   t1924 = t291 * t167;
8794   t1925 = t1924 * t1816;
8795   t1928 = t155 * t1823;
8796   t1930 = 0.4221520946622e1 * t371 * t1928;
8797   t1931 = t545 * t1816;
8798   t1934 = t545 * t1823;
8799   t1936 = 0.2814347297748e1 * t542 * t1934;
8800   t1937 = t17 * t973;
8801   t1938 = t1937 * t379;
8802   t1939 = t300 * t385;
8803   t1940 = t1939 * t1816;
8804   t1943 = t168 * t1823;
8805   t1945 = 0.486902709762e0 * t380 * t1943;
8806   t1946 = t558 * t1816;
8807   t1949 = t558 * t1823;
8808   t1951 = 0.324601806508e0 * t555 * t1949;
8809   t1952 = t158 * t131;
8810   t1953 = t17 * t1952;
8811   t1954 = t147 * t133;
8812   t1955 = t1953 * t1954;
8813   t1957 = 0.1e1 / t150 / t113;
8814   t1958 = t1957 * t825;
8815   t1959 = t1958 * t1816;
8816   t1962 = t141 * t1816;
8817   t1965 = t155 * t1816;
8818   t1968 = t168 * t1816;
8819   t1973 = 0.2001e1 * t1825;
8820   t1975 = 0.1334e1 * t1833;
8821   t1976 = t1921 - 0.106559764991640e3 * t1923 * t1925 + t1930 - 0.104130850016676e3 * t1438 * t1931 - t1936 + 0.39400862168472e2 * t1938 * t1940 - t1945 + 0.13957877679844e2 * t1452 * t1946 + t1951 - 0.5193628904128e1 * t1955 * t1959 - 0.186479588735370e3 * t1087 * t1962 + 0.71765856092574e2 * t1095 * t1965 - 0.9738054195240e1 * t819 * t1968 - 0.4002e1 * t1818 + 0.9338e1 * t1821 - t1973 - 0.5336e1 * t1830 + t1975;
8822   t1989 = my_piecewise3(t92, t1918 + t1976, -0.2e1 * t416 * t1128 * t1839 * t174 - t1137 * t1139 * t1839 * t174 + t416 * t417 * t1835 * t174);
8823   t1992 = -0.2e1 * t667 * t1797 + t205 * t1853 - 0.2e1 * t205 * t1855 - t91 * t1989 + 0.1174e1 * t1989;
8824   t1993 = t7 * t1992;
8825   t1994 = t1993 * t195;
8826   t1997 = t574 * t570;
8827   t2001 = t574 * t575 * t1161;
8828   t2002 = 0.1e1 / sigma[0];
8829   t2005 = t15 * t2002 * t194 * t187;
8830   t2010 = t440 * t183 * t1530 * t194;
8831   t2014 = 0.1e1 / t185 / t31;
8832   t2016 = t2014 * t18 * t1170;
8833   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8834     v2sigma2[0] = -0.3e1 / 0.8e1 * t201 * t1994 + 0.18554625000000000000e1 * t1997 * t580 - 0.41747906250000000000e1 * t2001 * t2005 - 0.46386562500000000000e0 * t576 * t2010 + 0.11326164200960098622e2 * t1528 * t2016;
8835 
8836   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
8837     v2sigmalapl[0] = 0.0e0;
8838 
8839   t2019 = t1538 * t482;
8840   t2022 = t479 * t596;
8841   t2026 = t1548 * t461;
8842   t2027 = t1205 * t2026;
8843   t2029 = t1555 * t461;
8844   t2030 = t1226 * t2029;
8845   t2032 = t1827 * t308;
8846   t2033 = t1572 * t461;
8847   t2034 = t2032 * t2033;
8848   t2036 = -0.6e1 * t2027 + 0.14e2 * t2030 - t1826 - 0.8e1 * t2034 + t1834;
8849   t2037 = t46 * t2036;
8850   t2041 = t77 * t472 * t81;
8851   t2044 = t2036 * t81;
8852   t2047 = t590 * t472;
8853   t2048 = t2047 * t81;
8854   t2051 = t2037 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t591 * t2041 - t270 * t2044 / 0.100e3 + t797 * t2048 / 0.100e3;
8855   t2052 = t84 * t2051;
8856   t2059 = t482 * t643;
8857   t2061 = t1722 * t461;
8858   t2064 = t1689 * t461;
8859   t2067 = t1938 * t300;
8860   t2068 = t1700 * t461;
8861   t2075 = t1955 * t1957;
8862   t2076 = t1711 * t461;
8863   t2083 = t1877 * t317;
8864   t2090 = t1892 * t327;
8865   t2091 = t1669 * t461;
8866   t2094 = 0.191571209872680e3 * t1480 * t2061 - 0.104130850016676e3 * t1439 * t2064 + 0.39400862168472e2 * t2067 * t2068 - 0.9738054195240e1 * t1447 * t2064 + 0.13957877679844e2 * t1453 * t2068 - 0.5193628904128e1 * t2075 * t2076 - 0.133366650e2 * t1462 * t2029 + 0.231168860e2 * t1468 * t2033 - 0.106693320e2 * t2083 * t2061 - 0.47742235275528e2 * t1407 * t2033 + 0.75591872519586e2 * t1472 * t2061 - 0.31828156850352e2 * t2090 * t2091 - t1869 + t1875 - t1884 + t1890 + t1899;
8867   t2097 = t1907 * t282;
8868   t2098 = t1676 * t461;
8869   t2105 = t1923 * t291;
8870   t2113 = -t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - 0.290259408898000e3 * t1486 * t2091 + 0.116103763559200e3 * t2097 * t2098 - 0.186479588735370e3 * t1417 * t2091 + 0.275279392895070e3 * t1424 * t2098 - 0.106559764991640e3 * t2105 * t2064 + 0.71765856092574e2 * t1432 * t2098 - 0.4002e1 * t2027 + 0.9338e1 * t2030 - 0.5336e1 * t2034;
8871   t2115 = t1775 * t472;
8872   t2123 = my_piecewise3(t92, t2094 + t2113, t416 * t417 * t2036 * t174 - 0.2e1 * t1496 * t2115 - t1504 * t2115);
8873   t2126 = -0.4e1 * t1537 * t2019 + 0.2e1 * t205 * t2022 * t177 + 0.2e1 * t205 * t2052 * t177 - 0.2e1 * t205 * t597 * t566 - t205 * t2059 - t91 * t2123 + 0.1174e1 * t2123;
8874   t2127 = t7 * t2126;
8875   t2128 = t2127 * t195;
8876   t2131 = t574 * t647;
8877   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8878     v2sigmatau[0] = -0.3e1 / 0.8e1 * t201 * t2128 + 0.92773125000000000000e0 * t2131 * t580;
8879 
8880   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
8881     v2lapl2[0] = 0.0e0;
8882 
8883   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
8884     v2lapltau[0] = 0.0e0;
8885 
8886   t2134 = t596 * t596;
8887   t2135 = t85 * t2134;
8888   t2139 = t2134 * t177;
8889   t2142 = t583 * t583;
8890   t2143 = t75 * t2142;
8891   t2144 = t715 * t2143;
8892   t2146 = t468 * t2142;
8893   t2147 = t1225 * t2146;
8894   t2149 = t1828 * t2142;
8895   t2150 = t1827 * t2149;
8896   t2152 = -0.6e1 * t2144 + 0.14e2 * t2147 - t1826 - 0.8e1 * t2150 + t1834;
8897   t2153 = t46 * t2152;
8898   t2156 = t590 * t590;
8899   t2157 = t46 * t2156;
8900   t2163 = t2156 * t81;
8901   t2166 = t2153 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t2157 * t790 - t270 * t2152 * t81 / 0.100e3 + t797 * t2163 / 0.100e3;
8902   t2167 = t84 * t2166;
8903   t2174 = t545 * t2142;
8904   t2177 = t1939 * t2142;
8905   t2180 = t558 * t2142;
8906   t2183 = t1958 * t2142;
8907   t2186 = t128 * t2142;
8908   t2189 = t141 * t2142;
8909   t2192 = t155 * t2142;
8910   t2195 = t168 * t2142;
8911   t2198 = t104 * t2142;
8912   t2201 = t117 * t2142;
8913   t2204 = t493 * t2142;
8914   t2207 = t1878 * t2142;
8915   t2210 = t506 * t2142;
8916   t2213 = t1893 * t2142;
8917   t2216 = t519 * t2142;
8918   t2219 = t1908 * t2142;
8919   t2222 = t532 * t2142;
8920   t2225 = -0.104130850016676e3 * t1438 * t2174 + 0.39400862168472e2 * t1938 * t2177 + 0.13957877679844e2 * t1452 * t2180 - 0.5193628904128e1 * t1955 * t2183 + 0.191571209872680e3 * t1119 * t2186 - 0.186479588735370e3 * t1087 * t2189 + 0.71765856092574e2 * t1095 * t2192 - 0.9738054195240e1 * t819 * t2195 - 0.133366650e2 * t1103 * t2198 - 0.47742235275528e2 * t1111 * t2201 + 0.231168860e2 * t1467 * t2204 - 0.106693320e2 * t1877 * t2207 + 0.75591872519586e2 * t1471 * t2210 - 0.31828156850352e2 * t1892 * t2213 - 0.290259408898000e3 * t1485 * t2216 + 0.116103763559200e3 * t1907 * t2219 + 0.275279392895070e3 * t1423 * t2222;
8921   t2226 = t1924 * t2142;
8922   t2232 = -0.106559764991640e3 * t1923 * t2226 - 0.4002e1 * t2144 + 0.9338e1 * t2147 - 0.5336e1 * t2150 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975;
8923   t2245 = my_piecewise3(t92, t2225 + t2232, -0.2e1 * t416 * t1128 * t2156 * t174 - t1137 * t1139 * t2156 * t174 + t416 * t417 * t2152 * t174);
8924   t2248 = -0.8e1 * t667 * t2135 * t177 + 0.2e1 * t205 * t2139 + 0.2e1 * t205 * t2167 * t177 - 0.4e1 * t205 * t597 * t643 - t91 * t2245 + 0.1174e1 * t2245;
8925   t2249 = t7 * t2248;
8926   t2250 = t2249 * t195;
8927   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
8928     v2tau2[0] = -0.3e1 / 0.8e1 * t201 * t2250;
8929 
8930 #ifndef XC_DONT_COMPILE_KXC
8931 
8932   if(order < 3) return;
8933 
8934 
8935   t2261 = 0.1e1 / t68;
8936   t2262 = t7 * t2261;
8937   t2275 = t9 * t32;
8938   t2276 = 0.1e1 / t2275;
8939   t2277 = t7 * t2276;
8940   t2282 = 0.1e1 / t9;
8941   t2284 = t5 * t7 * t2282;
8942   t2287 = t203 * t203;
8943   t2289 = t202 / t2287;
8944   t2290 = t668 * t277;
8945   t2294 = t278 * t804;
8946   t2300 = 0.1e1 / t242;
8947   t2301 = sigma[0] * t2300;
8948   t2304 = 0.1e1 / t465;
8949   t2309 = 0.1e1 / t981;
8950   t2314 = t17 * t405;
8951   t2317 = 0.1e1 / t2314 * t10 * t695;
8952   t2320 = t217 * t217;
8953   t2321 = t2320 * t219;
8954   t2322 = t690 * sigma[0];
8955   t2323 = t2321 * t2322;
8956   t2326 = t29 * t42;
8957   t2327 = 0.1e1 / t989 * t26 * t2326;
8958   t2335 = t244 * t103;
8959   t2336 = t720 * t2335;
8960   t2337 = t769 * t746;
8961   t2338 = t2336 * t2337;
8962   t2340 = t716 * t238;
8963   t2341 = t33 * t2340;
8964   t2342 = t2341 * t75;
8965   t2344 = t16 * t58;
8966   t2345 = t2344 * t75;
8967   t2348 = t751 * t263;
8968   t2349 = t67 * t127 * t2348;
8969   t2350 = t59 * t2349;
8970   t2352 = t767 * t717;
8971   t2354 = t230 * t752;
8972   t2359 = t186 * t56;
8973   t2362 = t16 * t57;
8974   t2368 = t68 * t56;
8975   t2369 = t2368 * t67;
8976   t2374 = t206 * t57;
8977   t2377 = t69 * t238;
8978   t2380 = t32 * t716;
8979   t2383 = t672 * t56;
8980   t2384 = t2383 * t244;
8981   t2385 = t238 * t10;
8982   t2386 = t2385 * t28;
8983   t2389 = t736 * t26;
8984   t2390 = t2389 * t13;
8985   t2397 = my_piecewise3(t55, -0.440e3 / 0.27e2 * tau[0] * t673 + 0.154e3 / 0.27e2 * t2301, 0);
8986   t2398 = t71 * t2397;
8987   t2401 = t34 * t57;
8988   t2402 = t467 * t218;
8989   t2405 = 0.280e3 / 0.27e2 * t9 * t57 * t71 + 0.140e3 / 0.3e1 * t2359 * t256 - 0.268e3 / 0.9e1 * t2362 * t261 + 0.20e2 * t251 * t716 * t71 - 0.44e2 * t2369 * t770 + 0.20e2 * t758 * t773 + 0.108e3 * t2374 * t778 + 0.6e1 * t2377 * t773 - 0.6e1 * t2380 * t261 + 0.54e2 * t2384 * t2386 - 0.6e1 * t768 * t2390 + 0.2e1 * t255 * t2398 - 0.108e3 * t2401 * t2402;
8990   t2406 = t250 * t2405;
8991   t2407 = t59 * t2406;
8992   t2408 = t761 * t239;
8993   t2410 = t704 * t264;
8994   t2412 = t259 * t737;
8995   t2414 = t230 * t782;
8996   t2416 = t75 * t2397;
8997   t2417 = t233 * t2416;
8998   t2419 = t107 * t58;
8999   t2421 = t101 * t74 * t218;
9000   t2422 = t2419 * t2421;
9001   t2424 = t1034 * t751;
9002   t2425 = t727 * t2424;
9003   t2427 = t59 * t67;
9004   t2429 = t116 * t263 * t781;
9005   t2430 = t2427 * t2429;
9006   t2432 = -0.27e2 * t2338 - 0.6e1 * t2342 - 0.60e2 * t2345 + 0.6e1 * t2350 - 0.90e2 * t2352 - 0.30e2 * t2354 + t2407 - 0.180e3 * t2408 + 0.60e2 * t2410 - 0.45e2 * t2412 + 0.15e2 * t2414 - 0.3e1 * t2417 + 0.270e3 * t2422 - 0.18e2 * t2425 - 0.6e1 * t2430;
9007   t2434 = t206 * t58 * t244;
9008   t2435 = t2434 * t247;
9009   t2437 = t259 * t67;
9010   t2438 = t2437 * t729;
9011   t2441 = t34 * t58 * t467;
9012   t2442 = t2441 * t743;
9013   t2444 = t103 * t716;
9014   t2445 = t2444 * t263;
9015   t2446 = t1205 * t2445;
9016   t2448 = t722 * t736;
9017   t2449 = t1205 * t2448;
9018   t2451 = t103 * t736;
9019   t2452 = t2451 * t263;
9020   t2453 = t727 * t2452;
9021   t2455 = t728 * t781;
9022   t2456 = t727 * t2455;
9023   t2458 = t13 * t751;
9024   t2459 = t319 * t2458;
9025   t2460 = t245 * t2459;
9026   t2462 = t13 * t781;
9027   t2463 = t310 * t2462;
9028   t2464 = t245 * t2463;
9029   t2466 = t776 * t244;
9030   t2467 = t2466 * t724;
9031   t2469 = t710 * t747;
9032   t2471 = t242 * t56;
9033   t2472 = t2471 * t244;
9034   t2473 = t74 * t716;
9035   t2474 = t2473 * t723;
9036   t2475 = t2472 * t2474;
9037   t2477 = t74 * t736;
9038   t2478 = t2477 * t723;
9039   t2479 = t721 * t2478;
9040   t2481 = t211 * t57;
9041   t2482 = t2481 * t467;
9042   t2483 = t10 * t28;
9043   t2484 = t722 * t2483;
9044   t2485 = t2482 * t2484;
9045   t2487 = t28 * t263;
9046   t2488 = t985 * t2487;
9047   t2489 = t741 * t2488;
9048   t2491 = 0.314e3 / 0.3e1 * t2435 + 0.90e2 * t2438 - 0.306e3 * t2442 + 0.18e2 * t2446 - 0.18e2 * t2449 + 0.9e1 * t2453 + 0.9e1 * t2456 + 0.9e1 * t2460 - 0.9e1 / 0.2e1 * t2464 + 0.144e3 * t2467 - 0.48e2 * t2469 + 0.27e2 * t2475 + 0.27e2 / 0.2e1 * t2479 - 0.162e3 * t2485 + 0.54e2 * t2489;
9049   t2492 = t2432 + t2491;
9050   t2493 = t46 * t2492;
9051   t2498 = t788 * t266;
9052   t2499 = t46 * t2498;
9053   t2502 = t79 * t81;
9054   t2509 = t784 * t266 * t81;
9055   t2512 = t46 * t1138;
9056   t2516 = -0.539e3 / 0.21870e5 * t47 * t38 * t2300 + t2493 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t785 * t1248 - 0.3e1 / 0.100e3 * t2499 * t81 + 0.3e1 / 0.50e2 * t2499 * t2502 - t270 * t2492 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t2509 - t2512 * t2498 * t81 / 0.100e3;
9057   t2519 = -0.1540e4 / 0.6561e4 * t15 * t2301 - 0.209e3 / 0.486e3 * t30 * t31 * t2304 * t42 + 0.797e3 / 0.480e3 * t220 * t221 * t2309 * t42 - 0.729e3 / 0.3200e4 * t691 * t2317 + 0.243e3 / 0.32000e5 * t2323 * t2327 + 0.6e1 * t274 * t801 + 0.2e1 * t84 * t2516;
9058   t2528 = t891 * t1828;
9059   t2531 = t874 * t1924;
9060   t2534 = t900 * t1878;
9061   t2537 = t865 * t1908;
9062   t2540 = t882 * t1939;
9063   t2543 = t905 * t1893;
9064   t2549 = t1334 * t122;
9065   t2552 = t107 * t97;
9066   t2555 = t526 * t110;
9067   t2558 = t1372 * t148;
9068   t2561 = -0.960239880e2 * t2528 * t2337 + 0.1367772786705528e4 * t2531 * t2337 - 0.48339013216472100000e3 * t2534 * t2337 - 0.29969933903898750000e4 * t2537 * t2337 - 0.21472409500504200000e3 * t2540 * t2337 + 0.2507841292878720e4 * t2543 * t2337 - 0.18009000000000000000e2 * t2338 - 0.4002e1 * t2342 - 0.40020e2 * t2345 + 0.9926871784311600e4 * t2549 * t128 - 0.3200799600e3 * t2552 * t104 - 0.1810226420863770e4 * t2555 * t117 + 0.5713125014428440e4 * t2558 * t155;
9069   t2562 = t158 * t161;
9070   t2565 = t1365 * t134;
9071   t2568 = t386 * t2405;
9072   t2571 = t513 * t361;
9073   t2580 = t141 * t2397;
9074   t2583 = t366 * t2405;
9075   t2586 = t117 * t2397;
9076   t2589 = t347 * t2405;
9077   t2592 = t527 * t370;
9078   t2597 = -0.910508067254940e3 * t2562 * t168 - 0.12254372974038600e5 * t2565 * t141 + 0.162300903254e0 * t162 * t2568 - 0.23975947123119000e5 * t2571 * t363 + 0.7991982374373000e4 * t921 * t367 - 0.998997796796625e3 * t830 * t835 + 0.332999265598875e3 * t402 * t838 - 0.13319970623955e2 * t362 * t2580 + 0.4439990207985e1 * t135 * t2583 - 0.5967779409441e1 * t343 * t2586 + 0.1989259803147e1 * t111 * t2589 + 0.11018169670683420e5 * t2592 * t372 - 0.3672723223561140e4 * t924 * t376;
9079   t2603 = t155 * t2397;
9080   t2606 = t375 * t2405;
9081   t2609 = t539 * t379;
9082   t2618 = t168 * t2397;
9083   t2623 = t128 * t2397;
9084   t2626 = t357 * t2405;
9085   t2629 = t94 * t160;
9086   t2632 = 0.379936885195980e3 * t841 * t846 - 0.126645628398660e3 * t407 * t849 + 0.4221520946622e1 * t371 * t2603 - 0.1407173648874e1 * t149 * t2606 - 0.1738242673850340e4 * t2609 * t381 + 0.579414224616780e3 * t927 * t387 - 0.51124784525010e2 * t852 * t859 + 0.17041594841670e2 * t411 * t936 - 0.486902709762e0 * t380 * t2618 - 0.348311290677600e3 * t398 * t970 + 0.17415564533880e2 * t352 * t2623 - 0.5805188177960e1 * t123 * t2626 - 0.7201799100e3 * t2629 * t336;
9087   t2639 = t104 * t2397;
9088   t2642 = t339 * t2405;
9089   t2645 = t405 * t109;
9090   t2655 = 0.1e1 / t384 / t102;
9091   t2657 = t165 * t2655 * t2348;
9092   t2664 = t1365 * t122;
9093   t2666 = t138 * t127 * t218;
9094   t2669 = 0.2400599700e3 * t930 * t340 - 0.800199900e2 * t939 * t944 + 0.266733300e2 * t391 * t947 - 0.26673330e1 * t335 * t2639 + 0.8891110e0 * t98 * t2642 - 0.3759701027947830e4 * t2645 * t344 + 0.1253233675982610e4 * t915 * t348 - 0.268550073424845e3 * t950 * t955 + 0.89516691141615e2 * t394 * t958 + 0.11685665034288e2 * t162 * t2657 - 0.13985969155152750e5 * t1285 * t1088 - 0.1997995593593250e4 * t402 * t1092 - 0.14263347353247720e5 * t2664 * t2666;
9095   t2672 = t1372 * t134;
9096   t2674 = t152 * t140 * t218;
9097   t2677 = t158 * t148;
9098   t2679 = t165 * t154 * t218;
9099   t2682 = t1320 * t161;
9100   t2684 = t1312 * t167 * t218;
9101   t2687 = t526 * t97;
9102   t2689 = t114 * t103 * t218;
9103   t2692 = t1334 * t110;
9104   t2694 = t125 * t116 * t218;
9105   t2697 = t500 * t351;
9106   t2710 = t159 * t148;
9107   t2711 = t168 * t2340;
9108   t2716 = 0.16303644043720920000e5 * t2672 * t2674 - 0.7218800818723620e4 * t2677 * t2679 + 0.11086774701280740000e4 * t2682 * t2684 + 0.6721679160e3 * t2687 * t2689 + 0.29540508076732950000e4 * t2692 * t2694 + 0.19853743568623200e5 * t2697 * t353 - 0.6617914522874400e4 * t918 * t358 + 0.1044933872032800e4 * t961 * t967 + 0.6458927048331660e4 * t1293 * t1096 + 0.886519398790620e3 * t407 * t1100 - 0.1022495690500200e4 * t1301 * t820 - 0.185023029709560e3 * t2710 * t2711 - 0.136332758733360e3 * t411 * t827;
9109   t2718 = t152 * t825 * t2348;
9110   t2733 = t95 * t58;
9111   t2734 = t104 * t2340;
9112   t2738 = t101 * t140 * t2348;
9113   t2741 = t108 * t97;
9114   t2742 = t117 * t2340;
9115   t2746 = t114 * t154 * t2348;
9116   t2749 = t121 * t110;
9117   t2750 = t128 * t2340;
9118   t2754 = t125 * t167 * t2348;
9119   t2757 = -0.78801724336944e2 * t149 * t2718 + 0.11494272592360800e5 * t1277 * t1120 + 0.1741556453388000e4 * t398 * t1084 - 0.2148400587398760e4 * t1270 * t1112 - 0.358066764566460e3 * t394 * t1116 - 0.4000999500e3 * t1230 * t1104 - 0.800199900e2 * t391 * t1108 - 0.533466600e2 * t2733 * t2734 + 0.106693320e2 * t98 * t2738 - 0.334195646928696e3 * t2741 * t2742 + 0.39785196062940e2 * t111 * t2746 + 0.1915712098726800e4 * t2749 * t2750 - 0.174155645338800e3 * t123 * t2754;
9120   t2759 = t132 * t122;
9121   t2760 = t141 * t2340;
9122   t2764 = t138 * t385 * t2348;
9123   t2767 = t146 * t134;
9124   t2768 = t155 * t2340;
9125   t2771 = t852 * t165;
9126   t2774 = t825 * t238;
9127   t2775 = t2774 * t751;
9128   t2786 = -0.2424234653559810e4 * t2759 * t2760 + 0.186479588735370e3 * t135 * t2764 + 0.1148253697481184e4 * t2767 * t2768 + 0.715746983350140e3 * t2771 * t1079 - 0.81799655240016e2 * t1077 * t2775 + 0.4002e1 * t2350 - 0.60030e2 * t2352 - 0.20010e2 * t2354 + 0.667e0 * t2407 - 0.120060e3 * t2408 + 0.40020e2 * t2410 - 0.30015e2 * t2412 + 0.10005e2 * t2414;
9129   t2789 = t154 * t781;
9130   t2790 = t2789 * t238;
9131   t2793 = t135 * t138;
9132   t2794 = t167 * t781;
9133   t2795 = t2794 * t263;
9134   t2798 = t17 * t513;
9135   t2800 = t2798 * t134 * t282;
9136   t2803 = t830 * t138;
9137   t2806 = t140 * t736;
9138   t2807 = t2806 * t238;
9139   t2810 = t154 * t736;
9140   t2811 = t2810 * t263;
9141   t2814 = t2810 * t238;
9142   t2817 = t167 * t736;
9143   t2818 = t2817 * t263;
9144   t2821 = t2794 * t238;
9145   t2824 = t149 * t152;
9146   t2825 = t385 * t781;
9147   t2826 = t2825 * t263;
9148   t2829 = t385 * t716;
9149   t2830 = t2829 * t263;
9150   t2833 = t1029 * t736;
9151   t2836 = -0.2001e1 * t2417 + 0.18009000000000000000e3 * t2422 + 0.199799559359325e3 * t1023 * t2790 - 0.79919823743730e2 * t2793 * t2795 + 0.12319492830422380000e5 * t2800 * t285 + 0.9989977967966250e4 * t2803 * t1025 - 0.559438766206110e3 * t1417 * t2807 + 0.199799559359325e3 * t1023 * t2811 + 0.215297568277722e3 * t1432 * t2814 - 0.75987377039196e2 * t1028 * t2818 - 0.75987377039196e2 * t1028 * t2821 + 0.29550646626354e2 * t2824 * t2826 + 0.204499138100040e3 * t1447 * t2830 - 0.29214162585720e2 * t1447 * t2833;
9152   t2840 = t385 * t736;
9153   t2841 = t2840 * t263;
9154   t2844 = t1078 * t781;
9155   t2847 = t162 * t165;
9156   t2848 = t825 * t263;
9157   t2849 = t2848 * t781;
9158   t2852 = t127 * t736;
9159   t2853 = t2852 * t263;
9160   t2856 = t127 * t781;
9161   t2857 = t2856 * t238;
9162   t2860 = t111 * t114;
9163   t2861 = t140 * t781;
9164   t2862 = t2861 * t263;
9165   t2865 = t17 * t94;
9166   t2867 = t2865 * t97 * t308;
9167   t2870 = t939 * t101;
9168   t2873 = t2451 * t238;
9169   t2876 = t116 * t736;
9170   t2877 = t2876 * t263;
9171   t2880 = t116 * t781;
9172   t2881 = t2880 * t238;
9173   t2884 = t98 * t101;
9174   t2885 = t2856 * t263;
9175   t2888 = t17 * t539;
9176   t2890 = t2888 * t161 * t300;
9177   t2893 = 0.10224956905002e2 * t1077 * t2841 + 0.10224956905002e2 * t1077 * t2844 - 0.3895221678096e1 * t2847 * t2849 + 0.53710014684969e2 * t1038 * t2853 + 0.53710014684969e2 * t1038 * t2857 - 0.23871117637764e2 * t2860 * t2862 + 0.38646691466666666667e3 * t2867 * t311 + 0.3200799600e3 * t2870 * t1035 - 0.400099950e2 * t1462 * t2873 + 0.160039980e2 * t1033 * t2877 + 0.160039980e2 * t1033 * t2881 - 0.80019990e1 * t2884 * t2885 + 0.88610883146575533333e3 * t2890 * t303;
9178   t2894 = t17 * t527;
9179   t2896 = t2894 * t148 * t291;
9180   t2899 = t841 * t152;
9181   t2902 = t9 * t132;
9182   t2904 = t2902 * t134 * t531;
9183   t2907 = t9 * t146;
9184   t2909 = t2907 * t148 * t544;
9185   t2912 = t9 * t159;
9186   t2914 = t2912 * t161 * t557;
9187   t2917 = t17 * t500;
9188   t2919 = t2917 * t122 * t327;
9189   t2922 = t961 * t125;
9190   t2925 = t2852 * t238;
9191   t2928 = t2806 * t263;
9192   t2931 = t2861 * t238;
9193   t2934 = t123 * t125;
9194   t2935 = t2789 * t263;
9195   t2939 = t2314 * t110 * t317;
9196   t2942 = t950 * t114;
9197   t2945 = -0.56352614058574120000e4 * t2896 * t294 - 0.4559242622351760e4 * t2899 * t1030 - 0.24615305713068840000e5 * t2904 * t1056 + 0.11068827922042884000e5 * t2909 * t1064 - 0.17192534681696220000e4 * t2914 * t978 - 0.10273248012263213333e5 * t2919 * t330 - 0.8359470976262400e4 * t2922 * t1018 + 0.574713629618040e3 * t1480 * t2925 - 0.208986774406560e3 * t1016 * t2928 - 0.208986774406560e3 * t1016 * t2931 + 0.87077822669400e2 * t2934 * t2935 + 0.19687041185144810000e4 * t2939 * t320 + 0.1611300440549070e4 * t2942 * t1040;
9198   t2947 = t2876 * t238;
9199   t2950 = t116 * t716;
9200   t2951 = t2950 * t263;
9201   t2954 = t127 * t716;
9202   t2955 = t2954 * t263;
9203   t2958 = t9 * t95;
9204   t2960 = t2958 * t97 * t492;
9205   t2963 = t9 * t108;
9206   t2965 = t2963 * t110 * t505;
9207   t2968 = t9 * t121;
9208   t2970 = t2968 * t122 * t518;
9209   t2973 = t154 * t716;
9210   t2974 = t2973 * t263;
9211   t2977 = t167 * t716;
9212   t2978 = t2977 * t263;
9213   t2981 = t1017 * t751;
9214   t2984 = t140 * t716;
9215   t2985 = t2984 * t263;
9216   t2988 = t1024 * t751;
9217   t2991 = t1029 * t751;
9218   t2994 = t1078 * t751;
9219   t2997 = -0.143226705826584e3 * t1407 * t2947 + 0.800199900e2 * t1462 * t2951 + 0.429680117479752e3 * t1407 * t2955 - 0.89622388800000000000e3 * t2960 * t986 - 0.42072844836559050000e4 * t2965 * t993 + 0.21055417521460920000e5 * t2970 * t1048 + 0.2797193831030550e4 * t1417 * t2974 - 0.1291785409666332e4 * t1432 * t2978 - 0.214840058739876e3 * t1038 * t2981 - 0.2298854518472160e4 * t1480 * t2985 + 0.1044933872032800e4 * t1016 * t2988 - 0.1198797356155950e4 * t1023 * t2991 + 0.531911639274372e3 * t1028 * t2994;
9220   t2998 = t1039 * t751;
9221   t3010 = t297 * t541;
9222   t3011 = t3010 * t300;
9223   t3012 = t2977 * t723;
9224   t3015 = t825 * t751;
9225   t3016 = t3015 * t723;
9226   t3019 = t1067 * t361;
9227   t3020 = t3019 * t282;
9228   t3023 = -0.480119940e2 * t1033 * t2998 - 0.12006e2 * t2425 - 0.4002e1 * t2430 + 0.69812666666666666667e2 * t2435 + 0.60030e2 * t2438 - 0.20410200000000000000e3 * t2442 + 0.12006e2 * t2446 - 0.12006e2 * t2449 + 0.6003e1 * t2453 + 0.6003e1 * t2456 + 0.30674870715006000000e3 * t3011 * t3012 + 0.40899827620008000000e2 * t301 * t3016 + 0.15184766511308700000e5 * t3020 * t868;
9229   t3028 = t2806 * t723;
9230   t3031 = t293 * t2458;
9231   t3034 = t306 * t96;
9232   t3035 = t3034 * t308;
9233   t3036 = t13 * t716;
9234   t3037 = t310 * t3036;
9235   t3040 = t329 * t2458;
9236   t3043 = t314 * t133;
9237   t3044 = t3043 * t317;
9238   t3045 = t319 * t3036;
9239   t3048 = t324 * t502;
9240   t3049 = t3048 * t327;
9241   t3050 = t329 * t3036;
9242   t3053 = t288 * t147;
9243   t3054 = t3053 * t291;
9244   t3055 = t293 * t3036;
9245   t3058 = t887 * t2458;
9246   t3061 = t284 * t2458;
9247   t3064 = t280 * t515;
9248   t3065 = t3064 * t282;
9249   t3066 = t284 * t3036;
9250   t3069 = t302 * t2458;
9251   t3072 = t2817 * t723;
9252   t3075 = -0.50615888371029000000e4 * t1069 * t871 + 0.29969933903898750000e3 * t866 * t3028 - 0.522466936016400e3 * t328 * t3031 + 0.1200299850e3 * t3035 * t3037 + 0.240059970e2 * t309 * t3040 + 0.64452017621962800000e3 * t3044 * t3045 - 0.3448281777708240e4 * t3049 * t3050 - 0.1937678114499498e4 * t3054 * t3055 - 0.265955819637186e3 * t292 * t3058 + 0.10742002936993800000e3 * t318 * t3061 + 0.41957907465458250000e4 * t3065 * t3066 + 0.59939867807797500000e3 * t283 * t3069 + 0.15337435357503000000e2 * t883 * t3072;
9253   t3076 = t2825 * t723;
9254   t3079 = t1001 * t160;
9255   t3080 = t3079 * t308;
9256   t3085 = t2451 * t723;
9257   t3088 = t2789 * t723;
9258   t3091 = t1072 * t370;
9259   t3092 = t3091 * t291;
9260   t3097 = t2810 * t723;
9261   t3100 = t2794 * t723;
9262   t3103 = t996 * t379;
9263   t3104 = t3103 * t300;
9264   t3109 = t1052 * t361;
9265   t3110 = t3109 * t531;
9266   t3111 = t28 * t238;
9267   t3112 = t1055 * t3111;
9268   t3115 = t1063 * t2487;
9269   t3118 = -0.51124784525010000000e1 * t301 * t3076 + 0.49612393800000000000e3 * t3080 * t893 - 0.16537464600000000000e3 * t1003 * t896 + 0.240059970e2 * t892 * t3085 - 0.99899779679662500000e2 * t283 * t3088 - 0.69148513105668360000e4 * t3092 * t876 + 0.23049504368556120000e4 * t1074 * t879 - 0.113981065558794e3 * t875 * t3097 + 0.37993688519598e2 * t292 * t3100 + 0.10838454319302120000e4 * t3104 * t884 - 0.36128181064340400000e3 * t998 * t888 - 0.14385568273871400000e5 * t3110 * t3112 + 0.47951894246238000000e4 * t1054 * t3115;
9270   t3120 = t1060 * t370;
9271   t3121 = t3120 * t544;
9272   t3122 = t1063 * t3111;
9273   t3125 = t977 * t2487;
9274   t3128 = t974 * t379;
9275   t3129 = t3128 * t557;
9276   t3130 = t977 * t3111;
9277   t3133 = t385 * t10;
9278   t3134 = t3133 * t2487;
9279   t3137 = t2861 * t723;
9280   t3140 = t1047 * t2487;
9281   t3143 = t2880 * t723;
9282   t3146 = t1006 * t109;
9283   t3147 = t3146 * t317;
9284   t3152 = t2876 * t723;
9285   t3155 = t2856 * t723;
9286   t3158 = t1011 * t351;
9287   t3159 = t3158 * t327;
9288   t3164 = 0.6496920736851258e4 * t3121 * t3122 - 0.2165640245617086e4 * t1062 * t3125 - 0.10122707335951980000e4 * t3129 * t3130 + 0.33742357786506600000e3 * t976 * t3134 + 0.104493387203280e3 * t328 * t3137 + 0.80565022027453500000e3 * t991 * t3140 - 0.80019990e1 * t309 * t3143 + 0.24706606755085740000e4 * t3147 * t902 - 0.82355355850285800000e3 * t1008 * t862 + 0.80565022027453500000e2 * t901 * t3152 - 0.26855007342484500000e2 * t318 * t3155 - 0.12748193238800160000e5 * t3159 * t907 + 0.42493977462667200000e4 * t1013 * t910;
9289   t3165 = t2852 * t723;
9290   t3168 = t982 * t160;
9291   t3169 = t3168 * t492;
9292   t3170 = t985 * t3111;
9293   t3173 = t992 * t2487;
9294   t3176 = t989 * t109;
9295   t3177 = t3176 * t505;
9296   t3178 = t992 * t3111;
9297   t3181 = t1044 * t351;
9298   t3182 = t3181 * t518;
9299   t3183 = t1047 * t3111;
9300   t3186 = t1055 * t2487;
9301   t3197 = -0.313480161609840e3 * t906 * t3165 - 0.5041259370e3 * t3169 * t3170 + 0.1680419790e3 * t984 * t3173 - 0.24169506608236050000e4 * t3177 * t3178 + 0.12225726302783760e5 * t3182 * t3183 - 0.4075242100927920e4 * t1046 * t3186 + 0.60030000000000000000e1 * t2460 - 0.30015000000000000000e1 * t2464 + 0.96048000000000000000e2 * t2467 - 0.32016000000000000000e2 * t2469 + 0.18009000000000000000e2 * t2475 + 0.90045000000000000000e1 * t2479 - 0.10805400000000000000e3 * t2485 + 0.36018000000000000000e2 * t2489;
9302   t3206 = t266 * t174;
9303   t3207 = t3206 * t784;
9304   t3210 = t1138 * t77;
9305   t3211 = 0.1e1 / t3210;
9306   t3222 = params->d * t1136 * params->c2;
9307   t3224 = 0.1e1 / t1138 / t79;
9308   t3229 = my_piecewise3(t92, t2561 + t2597 + t2632 + t2669 + t2716 + t2757 + t2786 + t2836 + t2893 + t2945 + t2997 + t3023 + t3075 + t3118 + t3164 + t3197, 0.6e1 * t1137 * t3211 * t2498 * t174 + 0.6e1 * t416 * t1139 * t2498 * t174 + t416 * t417 * t2492 * t174 + t3222 * t3224 * t2498 * t174 - 0.6e1 * t1496 * t3207 - 0.3e1 * t1504 * t3207);
9309   t3232 = 0.6e1 * t2289 * t2290 * t177 - 0.6e1 * t667 * t2294 + 0.6e1 * t667 * t668 * t421 + t205 * t2519 * t177 - 0.3e1 * t205 * t804 * t421 - 0.3e1 * t205 * t277 * t1144 - t91 * t3229 + 0.1174e1 * t3229;
9310   t3233 = t7 * t3232;
9311   t3237 = t435 * t1147;
9312   t3245 = t424 * t577 * t1170;
9313   t3249 = t2300 * t433 * t435;
9314   t3250 = 0.1e1 / t11;
9315   t3251 = t3250 * t1529;
9316   t3252 = 0.1e1 / t32;
9317   t3256 = 0.1e1 / t190 / t3251 / t3252 / 0.36e2;
9318   t3258 = t3251 * t194;
9319   t3259 = t180 * t3256 * t3258;
9320   t3264 = t28 * t577 * t194;
9321   t3265 = t180 * t10 * t3264;
9322   t3269 = t51 * t433 * t4;
9323   t3270 = t439 * t194;
9324   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9325     v3rho3[0] = t8 * t51 * t180 * t195 / 0.9e1 - t8 * t651 * t424 * t195 / 0.2e1 + 0.5497666666666666667e0 * t574 * t2262 * t180 * t443 - 0.3e1 / 0.2e1 * t8 * t9 * t1147 * t195 - 0.24739500000000000000e1 * t574 * t660 * t424 * t443 + 0.89062200000000000000e2 * t574 * t2277 * t180 * t1164 + 0.80541612095716256868e2 * t2284 * t1171 - 0.3e1 / 0.8e1 * t201 * t3233 * t195 - 0.74218500000000000000e1 * t434 * t3237 * t443 - 0.89062200000000000000e2 * t1157 * t1152 * t1164 + 0.24162483628714877061e3 * t1168 * t3245 - 0.59374800000000000000e3 * t3249 * t3259 + 0.16536775210765846035e1 * t2284 * t3265 - 0.32302153261130400000e3 * t3269 * t575 * t3270;
9326 
9327   t3275 = t651 * t2 * t4;
9328   t3279 = t659 * t433;
9329   t3286 = t1262 * t277;
9330   t3307 = t2321 * t690;
9331   t3310 = 0.1e1 / t2963 * t26 * t2326;
9332   t3320 = t244 * t74;
9333   t3321 = t2471 * t3320;
9334   t3322 = t461 * t238;
9335   t3323 = t3322 * t723;
9336   t3324 = t3321 * t3323;
9337   t3327 = t461 * t26 * t746;
9338   t3328 = t2336 * t3327;
9339   t3330 = t131 * t58;
9340   t3331 = t3330 * t104;
9341   t3332 = t3331 * t3323;
9342   t3334 = t1230 * t339;
9343   t3335 = t3334 * t3327;
9344   t3337 = t211 * t96;
9345   t3338 = t3337 * t469;
9346   t3340 = t259 * t1219;
9347   t3343 = my_piecewise3(t55, -0.11e2 / 0.9e1 * t673, 0);
9348   t3344 = t75 * t3343;
9349   t3345 = t233 * t3344;
9350   t3347 = t1222 * t1240;
9351   t3349 = t468 * t3343;
9352   t3350 = t466 * t3349;
9353   t3352 = t761 * t462;
9354   t3354 = t33 * t716;
9355   t3355 = t3354 * t462;
9356   t3357 = t116 * t1218;
9357   t3358 = t3357 * t263;
9358   t3359 = t1235 * t3358;
9359   t3361 = t1236 * t781;
9360   t3362 = t1235 * t3361;
9361   t3364 = t768 * t1207;
9362   t3366 = t2437 * t1214;
9363   t3368 = t74 * t1218;
9364   t3369 = t3368 * t238;
9365   t3370 = t1205 * t3369;
9366   t3372 = t1206 * t736;
9367   t3373 = t1205 * t3372;
9368   t3375 = 0.18e2 * t3324 - 0.9e1 * t3328 - 0.40e2 * t3332 + 0.20e2 * t3335 + 0.1100e4 / 0.9e1 * t3338 - 0.30e2 * t3340 - 0.3e1 * t3345 + 0.100e3 / 0.3e1 * t3347 + 0.2e1 * t3350 - 0.60e2 * t3352 - 0.6e1 * t3355 - 0.8e1 * t3359 - 0.4e1 * t3362 - 0.60e2 * t3364 + 0.30e2 * t3366 - 0.12e2 * t3370 - 0.6e1 * t3373;
9369   t3376 = t103 * t1218;
9370   t3377 = t3376 * t263;
9371   t3378 = t727 * t3377;
9372   t3380 = t1213 * t781;
9373   t3381 = t727 * t3380;
9374   t3383 = t1279 * t751;
9375   t3384 = t1235 * t3383;
9376   t3386 = t1236 * t751;
9377   t3387 = t727 * t3386;
9378   t3389 = t465 * t57;
9379   t3390 = t3389 * t467;
9380   t3391 = t1213 * t716;
9381   t3392 = t3390 * t3391;
9382   t3394 = t677 * t58;
9383   t3395 = t3394 * t467;
9384   t3396 = t3395 * t1227;
9385   t3398 = t1222 * t467;
9386   t3399 = t3398 * t1237;
9387   t3401 = t3376 * t238;
9388   t3402 = t1226 * t3401;
9389   t3404 = t1213 * t736;
9390   t3405 = t1226 * t3404;
9391   t3407 = t2466 * t1210;
9392   t3409 = t238 * t263;
9393   t3410 = t1213 * t3409;
9394   t3411 = t1205 * t3410;
9395   t3413 = t3368 * t723;
9396   t3414 = t721 * t3413;
9397   t3416 = t1206 * t2483;
9398   t3417 = t2482 * t3416;
9399   t3419 = t94 * t96;
9400   t3420 = t3419 * t101;
9401   t3421 = t3420 * t1232;
9402   t3423 = t1236 * t3409;
9403   t3424 = t1226 * t3423;
9404   t3426 = t3376 * t723;
9405   t3427 = t1231 * t3426;
9406   t3429 = t1001 * t96;
9407   t3430 = t3429 * t308;
9408   t3431 = t1213 * t2483;
9409   t3432 = t3430 * t3431;
9410   t3434 = 0.6e1 * t3378 + 0.3e1 * t3381 + 0.12e2 * t3384 - 0.6e1 * t3387 + 0.24e2 * t3392 + 0.400e3 / 0.3e1 * t3396 - 0.200e3 / 0.3e1 * t3399 + 0.16e2 * t3402 + 0.8e1 * t3405 + 0.48e2 * t3407 + 0.12e2 * t3411 + 0.9e1 * t3414 - 0.54e2 * t3417 - 0.260e3 / 0.3e1 * t3421 - 0.32e2 * t3424 - 0.10e2 * t3427 + 0.90e2 * t3432;
9411   t3435 = t3375 + t3434;
9412   t3436 = t46 * t3435;
9413   t3444 = t77 * t784 * t81;
9414   t3448 = t79 * t788 * t81;
9415   t3455 = t1243 * t266 * t81;
9416   t3458 = t472 * t784;
9417   t3459 = t3458 * t81;
9418   t3463 = t472 * t788 * t81;
9419   t3466 = 0.77e2 / 0.14580e5 * t47 * t14 * t673 + t3436 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t1244 * t1248 - 0.3e1 / 0.100e3 * t473 * t798 - 0.3e1 / 0.100e3 * t473 * t3444 + 0.3e1 / 0.50e2 * t473 * t3448 - t270 * t3435 * t81 / 0.100e3 + t797 * t3455 / 0.50e2 + t797 * t3459 / 0.100e3 - t2512 * t3463 / 0.100e3;
9420   t3469 = 0.110e3 / 0.2187e4 * t15 * t673 + 0.19e2 / 0.162e3 * t30 * sigma[0] * t678 * t42 - 0.167e3 / 0.320e3 * t220 * t31 * t683 * t42 + 0.81e2 / 0.1024e4 * t1191 * t696 - 0.729e3 / 0.256000e6 * t3307 * t3310 + 0.2e1 * t801 * t479 + 0.4e1 * t274 * t1258 + 0.2e1 * t84 * t3466;
9421   t3470 = t3469 * t177;
9422   t3472 = t1261 * t421;
9423   t3475 = t482 * t1144;
9424   t3507 = t1044 * t515;
9425   t3510 = 0.12006000000000000000e2 * t3324 - 0.60030000000000000000e1 * t3328 - 0.26680000000000000000e2 * t3332 + 0.13340000000000000000e2 * t3335 - 0.533466600e2 * t939 * t1345 + 0.47419253333333333334e2 * t1328 * t1348 - 0.179033382283230e3 * t950 * t1351 + 0.14587905223078000000e3 * t1336 * t1354 + 0.696622581355200e3 * t961 * t1357 - 0.54181756327626666666e3 * t1367 * t1360 - 0.665998531197750e3 * t830 * t1385 + 0.50319889023830000000e3 * t1374 * t1390 + 0.6617914522874400e4 * t2697 * t510 - 0.60502961232516444444e4 * t3507 * t520;
9426   t3513 = t1052 * t147;
9427   t3524 = t506 * t3343;
9428   t3527 = t128 * t3343;
9429   t3530 = t519 * t3343;
9430   t3533 = t141 * t3343;
9431   t3536 = t532 * t3343;
9432   t3539 = t155 * t3343;
9433   t3542 = t545 * t3343;
9434   t3545 = t168 * t3343;
9435   t3548 = t558 * t3343;
9436   t3551 = -0.7991982374373000e4 * t2571 * t523 + 0.68770514999234333333e4 * t3513 * t533 + 0.253291256797320e3 * t841 * t1393 - 0.18762315318320000000e3 * t1380 * t1396 - 0.34083189683340e2 * t852 * t1339 + 0.24886138498946666666e2 * t1322 * t1342 + 0.3978519606294e1 * t503 * t3524 + 0.17415564533880e2 * t352 * t3527 - 0.11610376355920e2 * t516 * t3530 - 0.13319970623955e2 * t362 * t3533 + 0.8879980415970e1 * t529 * t3536 + 0.4221520946622e1 * t371 * t3539 - 0.2814347297748e1 * t542 * t3542 - 0.486902709762e0 * t380 * t3545 + 0.324601806508e0 * t555 * t3548;
9437   t3553 = t104 * t3343;
9438   t3556 = t493 * t3343;
9439   t3559 = t117 * t3343;
9440   t3562 = t982 * t133;
9441   t3569 = t1060 * t541;
9442   t3574 = t989 * t502;
9443   t3577 = t974 * t554;
9444   t3586 = -0.26673330e1 * t335 * t3553 + 0.17782220e1 * t491 * t3556 - 0.5967779409441e1 * t343 * t3559 + 0.29241872888888888889e3 * t3562 * t494 - 0.1253233675982610e4 * t2645 * t497 + 0.3672723223561140e4 * t2592 * t536 - 0.30332409764617333333e4 * t3569 * t546 - 0.579414224616780e3 * t2609 * t549 + 0.12642851193334266667e4 * t3574 * t507 + 0.46454125198033777776e3 * t3577 * t559 - 0.2400599700e3 * t2629 * t487 + 0.81522222222222222225e2 * t3338 - 0.20010e2 * t3340 - 0.2001e1 * t3345 + 0.22233333333333333334e2 * t3347;
9445   t3590 = t825 * t1218;
9446   t3591 = t3590 * t263;
9447   t3598 = t3357 * t238;
9448   t3601 = t127 * t1218;
9449   t3602 = t3601 * t263;
9450   t3609 = t3601 * t238;
9451   t3612 = t140 * t1218;
9452   t3613 = t3612 * t263;
9453   t3620 = t3612 * t238;
9454   t3623 = 0.1334e1 * t3350 - 0.40020e2 * t3352 - 0.4002e1 * t3355 - 0.5193628904128e1 * t1457 * t3591 - 0.266733300e2 * t1462 * t3401 + 0.106693320e2 * t1033 * t3358 + 0.248951080e2 * t1468 * t3598 - 0.106693320e2 * t1403 * t3602 - 0.95484470551056e2 * t1407 * t3598 + 0.35806676456646e2 * t1038 * t3602 + 0.79570392125880e2 * t1472 * t3609 - 0.31828156850352e2 * t1476 * t3613 + 0.383142419745360e3 * t1480 * t3609 - 0.139324516271040e3 * t1016 * t3613 - 0.301869785253920e3 * t1486 * t3620;
9455   t3628 = t154 * t1218;
9456   t3629 = t3628 * t263;
9457   t3632 = t3628 * t238;
9458   t3635 = t1287 * t781;
9459   t3638 = t1366 * t122;
9460   t3639 = t3638 * t518;
9461   t3642 = t1367 * t518;
9462   t3645 = t1287 * t736;
9463   t3648 = t1295 * t781;
9464   t3659 = t167 * t1218;
9465   t3660 = t3659 * t263;
9466   t3667 = -0.372959177470740e3 * t1417 * t3620 + 0.133199706239550e3 * t1023 * t3629 + 0.284159373311040e3 * t1424 * t3632 - 0.69662258135520e2 * t1016 * t3635 - 0.70436283225914666666e4 * t3639 * t1418 + 0.27090878163813333333e4 * t3642 * t1414 - 0.150934892626960e3 * t1486 * t3645 + 0.58051881779600e2 * t1413 * t3648 - 0.9323979436768500e4 * t1286 * t1418 + 0.3329992655988750e4 * t2803 * t1414 - 0.186479588735370e3 * t1417 * t3645 + 0.66599853119775e2 * t1023 * t3648 - 0.106559764991640e3 * t1428 * t3660 + 0.143531712185148e3 * t1432 * t3632 - 0.50658251359464e2 * t1028 * t3660;
9467   t3668 = t3659 * t238;
9468   t3671 = t385 * t1218;
9469   t3672 = t3671 * t263;
9470   t3679 = t3671 * t238;
9471   t3682 = t1336 * t505;
9472   t3685 = t1295 * t751;
9473   t3688 = t2749 * t125;
9474   t3689 = t1279 * t716;
9475   t3696 = t1279 * t736;
9476   t3707 = -0.106945197314424e3 * t1439 * t3668 + 0.39400862168472e2 * t1443 * t3672 - 0.19476108390480e2 * t1447 * t3668 + 0.6816637936668e1 * t1077 * t3672 + 0.14282479486352e2 * t1453 * t3679 - 0.58351620892312000000e3 * t3682 * t1477 + 0.79570392125880e2 * t1476 * t3685 + 0.1915712098726800e4 * t3688 * t3689 + 0.348311290677600e3 * t1016 * t3685 + 0.116103763559200e3 * t1413 * t3629 + 0.39785196062940e2 * t1472 * t3696 - 0.15914078425176e2 * t1476 * t3635 + 0.7662848394907200e4 * t1278 * t1473 - 0.2786490325420800e4 * t2922 * t1477 + 0.191571209872680e3 * t1480 * t3696;
9477   t3709 = t1287 * t751;
9478   t3712 = t2741 * t114;
9479   t3713 = t1236 * t716;
9480   t3718 = t1314 * t751;
9481   t3721 = t540 * t370;
9482   t3722 = t3721 * t544;
9483   t3723 = t1303 * t716;
9484   t3726 = t1458 * t751;
9485   t3729 = t2710 * t165;
9486   t3734 = t553 * t379;
9487   t3735 = t3734 * t557;
9488   t3736 = t1314 * t716;
9489   t3739 = t514 * t351;
9490   t3740 = t3739 * t518;
9491   t3741 = t1287 * t716;
9492   t3744 = t1303 * t751;
9493   t3747 = t2759 * t138;
9494   t3752 = t528 * t361;
9495   t3753 = t3752 * t531;
9496   t3754 = t1295 * t716;
9497   t3759 = 0.213386640e2 * t1403 * t3709 - 0.334195646928696e3 * t3712 * t3713 - 0.71613352913292e2 * t1038 * t3709 + 0.177303879758124e3 * t1028 * t3718 - 0.962506775829816e3 * t3722 * t3723 - 0.157603448673888e3 * t1443 * t3726 - 0.185023029709560e3 * t3729 * t3723 - 0.27266551746672e2 * t1077 * t3726 + 0.149966034606696e3 * t3735 * t3736 - 0.1811218711523520e4 * t3740 * t3741 - 0.348311290677600e3 * t1413 * t3744 - 0.2424234653559810e4 * t3747 * t3741 - 0.399599118718650e3 * t1023 * t3744 + 0.2131195299832800e4 * t3753 * t3754 + 0.372959177470740e3 * t1428 * t3718;
9498   t3760 = t2767 * t152;
9499   t3763 = t1335 * t110;
9500   t3764 = t3763 * t505;
9501   t3767 = t501 * t109;
9502   t3768 = t3767 * t505;
9503   t3771 = t1303 * t781;
9504   t3778 = t1295 * t736;
9505   t3783 = t1379 * t148;
9506   t3784 = t3783 * t544;
9507   t3787 = t1380 * t544;
9508   t3790 = t1303 * t736;
9509   t3793 = t1314 * t781;
9510   t3802 = 0.1148253697481184e4 * t3760 * t3754 + 0.14587905223078000000e4 * t3764 * t1473 + 0.358066764566460e3 * t3768 * t3689 - 0.53279882495820e2 * t1428 * t3771 + 0.4305951365554440e4 * t1294 * t1425 - 0.1519747540783920e4 * t2899 * t1429 + 0.71765856092574e2 * t1432 * t3778 - 0.25329125679732e2 * t1028 * t3771 - 0.35648399104808000000e4 * t3784 * t1440 + 0.13133620722824000000e4 * t3787 * t1444 - 0.53472598657212e2 * t1439 * t3790 + 0.19700431084236e2 * t1443 * t3793 - 0.681663793666800e3 * t1302 * t1440 + 0.238582327783380e3 * t2771 * t1444 - 0.9738054195240e1 * t1447 * t3790;
9511   t3808 = t2655 * t461;
9512   t3809 = t3808 * t751;
9513   t3812 = t2733 * t101;
9514   t3817 = t490 * t160;
9515   t3818 = t3817 * t492;
9516   t3827 = t1327 * t97;
9517   t3828 = t3827 * t492;
9518   t3831 = t1328 * t492;
9519   t3834 = t1236 * t736;
9520   t3837 = t1279 * t781;
9521   t3844 = 0.3408318968334e1 * t1077 * t3793 + 0.23371330068576e2 * t1457 * t3809 - 0.533466600e2 * t3812 * t3391 - 0.160039980e2 * t1033 * t3383 + 0.746853240e2 * t3818 * t3713 + 0.1066933200e3 * t2870 * t1237 - 0.133366650e2 * t1462 * t3404 + 0.53346660e1 * t1033 * t3361 + 0.33193477333333333334e3 * t3828 * t1408 - 0.14225776000000000000e3 * t3831 * t1404 + 0.124475540e2 * t1468 * t3834 - 0.53346660e1 * t1403 * t3837 - 0.1432267058265840e4 * t1271 * t1408 + 0.537100146849690e3 * t2942 * t1404;
9522   t3847 = t1373 * t134;
9523   t3848 = t3847 * t531;
9524   t3851 = t1374 * t531;
9525   t3856 = t1321 * t161;
9526   t3857 = t3856 * t557;
9527   t3860 = t1322 * t557;
9528   t3863 = t1314 * t736;
9529   t3866 = t1458 * t781;
9530   t3878 = -0.47742235275528e2 * t1407 * t3834 + 0.80511822438128000000e4 * t3848 * t1425 - 0.30191933414298000000e4 * t3851 * t1429 + 0.142079686655520e3 * t1424 * t3778 + 0.54749504697682666666e3 * t3857 * t1454 - 0.19908910799157333333e3 * t3860 * t1459 + 0.7141239743176e1 * t1453 * t3863 - 0.2596814452064e1 * t1457 * t3866 - 0.2667333000e3 * t1231 * t1227 + 0.17903338228323e2 * t1038 * t3837 - 0.5336e1 * t3359 - 0.2668e1 * t3362 - 0.40020e2 * t3364 + 0.20010e2 * t3366 - 0.8004e1 * t3370;
9531   t3890 = t3628 * t723;
9532   t3895 = t3659 * t723;
9533   t3898 = t3612 * t723;
9534   t3901 = t1303 * t3409;
9535   t3904 = -0.4002e1 * t3373 + 0.4002e1 * t3378 + 0.2001e1 * t3381 + 0.8004e1 * t3384 - 0.4002e1 * t3387 + 0.16008e2 * t3392 + 0.88933333333333333335e2 * t3396 - 0.44466666666666666667e2 * t3399 + 0.10672e2 * t3402 + 0.5336e1 * t3405 - 0.15095966707149000000e3 * t1294 * t3890 - 0.75987377039196e2 * t875 * t3890 + 0.56286945954960e2 * t1302 * t3895 + 0.19979955935932500000e3 * t866 * t3898 - 0.1704956239866240e4 * t1424 * t3901;
9536   t3909 = t3671 * t723;
9537   t3914 = t3357 * t723;
9538   t3919 = t3601 * t723;
9539   t3926 = t1287 * t3409;
9540   t3935 = t1314 * t3409;
9541   t3938 = t552 * t554;
9542   t3939 = t3938 * t1312;
9543   t3942 = -0.23049504368556120000e4 * t3092 * t1296 + 0.10224956905002000000e2 * t883 * t3895 - 0.74658415496840000000e1 * t1313 * t3909 + 0.160039980e2 * t892 * t3426 - 0.142257760e2 * t1271 * t3914 + 0.53710014684969000000e2 * t901 * t3914 - 0.43763715669234000000e2 * t1278 * t3919 - 0.208986774406560e3 * t906 * t3919 + 0.162545268982880e3 * t1286 * t3898 - 0.318281568503520e3 * t1472 * t3926 - 0.42493977462667200000e4 * t3159 * t1280 - 0.1532569678981440e4 * t1480 * t3926 + 0.36128181064340400000e3 * t3104 * t1304 + 0.136332758733360e3 * t1447 * t3935 - 0.28867920658778133333e3 * t3939 * t1315;
9544   t3945 = t1458 * t3409;
9545   t3948 = t513 * t515;
9546   t3949 = t3948 * t138;
9547   t3952 = t1295 * t3409;
9548   t3959 = t527 * t147;
9549   t3960 = t3959 * t152;
9550   t3967 = t405 * t133;
9551   t3968 = t3967 * t114;
9552   t3971 = t1279 * t3409;
9553   t3978 = t500 * t502;
9554   t3979 = t3978 * t125;
9555   t3984 = t539 * t541;
9556   t3985 = t3984 * t165;
9557   t3988 = -0.114259835890816e3 * t1453 * t3945 + 0.38469046992614933333e4 * t3949 * t1288 + 0.1509348926269600e4 * t1486 * t3952 + 0.50615888371029000000e4 * t3020 * t1288 + 0.1864795887353700e4 * t1417 * t3952 - 0.43275104560493800000e4 * t3960 * t1296 + 0.16537464600000000000e3 * t3080 * t1232 + 0.533466600e2 * t1462 * t3423 - 0.19441893866666666667e3 * t3968 * t1272 - 0.746853240e2 * t1468 * t3971 + 0.82355355850285800000e3 * t3147 * t1272 + 0.286453411653168e3 * t1407 * t3971 - 0.81692269249236800000e3 * t3979 * t1280 - 0.861190273110888e3 * t1432 * t3901 + 0.18949938471503200000e4 * t3985 * t1304;
9558   t3991 = t1011 * t502;
9559   t3992 = t3991 * t327;
9560   t3993 = t1279 * t2483;
9561   t3998 = t1067 * t515;
9562   t3999 = t3998 * t282;
9563   t4000 = t1287 * t2483;
9564   t4005 = t1072 * t147;
9565   t4006 = t4005 * t291;
9566   t4007 = t1295 * t2483;
9567   t4012 = t996 * t541;
9568   t4013 = t4012 * t300;
9569   t4014 = t1303 * t2483;
9570   t4019 = t17 * t1309;
9571   t4020 = t4019 * t554;
9572   t4021 = t4020 * t1957;
9573   t4022 = t1314 * t2483;
9574   t4027 = t1006 * t133;
9575   t4028 = t4027 * t317;
9576   t4029 = t1236 * t2483;
9577   t4036 = 0.748616381200968e3 * t1439 * t3935 + 0.78774688204621200000e3 * t3992 * t3993 + 0.4075242100927920e4 * t3182 * t3993 - 0.3657268552114800e4 * t3999 * t4000 - 0.47951894246238000000e4 * t3110 * t4000 + 0.40759110109302300000e4 * t4006 * t4007 + 0.2165640245617086e4 * t3121 * t4007 - 0.1773038797581240e4 * t4013 * t4014 - 0.33742357786506600000e3 * t3129 * t4014 + 0.26877029578862400000e3 * t4021 * t4022 - 0.1680419790e3 * t3169 * t3431 + 0.1920479760e3 * t4028 * t4029 - 0.80565022027453500000e3 * t3177 * t4029 + 0.32016000000000000000e2 * t3407 + 0.8004e1 * t3411;
9578   t4044 = t300 * t167;
9579   t4045 = t3010 * t4044;
9580   t4050 = t1309 * t161;
9581   t4051 = t1312 * t385;
9582   t4052 = t4050 * t4051;
9583   t4055 = t1312 * t825;
9584   t4056 = t1310 * t4055;
9585   t4059 = t308 * t103;
9586   t4060 = t3034 * t4059;
9587   t4065 = t145 * t97;
9588   t4066 = t4065 * t117;
9589   t4069 = t1270 * t347;
9590   t4072 = t317 * t116;
9591   t4073 = t3043 * t4072;
9592   t4076 = 0.60030000000000000000e1 * t3414 - 0.36018000000000000000e2 * t3417 - 0.57806666666666666668e2 * t3421 - 0.21344e2 * t3424 - 0.66700000000000000000e1 * t3427 + 0.60030000000000000000e2 * t3432 + 0.20449913810004000000e3 * t4045 * t3323 - 0.71574698335014000000e2 * t2540 * t3327 - 0.16424851409304800000e3 * t4052 * t3323 + 0.59726732397472000000e2 * t4056 * t3327 + 0.800199900e2 * t4060 * t3323 - 0.320079960e2 * t2528 * t3327 - 0.995804320e2 * t4066 * t3323 + 0.426773280e2 * t4069 * t3327 + 0.42968011747975200000e3 * t4073 * t3323;
9593   t4079 = t397 * t110;
9594   t4080 = t4079 * t128;
9595   t4083 = t1277 * t357;
9596   t4086 = t327 * t127;
9597   t4087 = t3048 * t4086;
9598   t4092 = t401 * t122;
9599   t4093 = t4092 * t141;
9600   t4096 = t1285 * t366;
9601   t4099 = t282 * t140;
9602   t4100 = t3064 * t4099;
9603   t4105 = t406 * t134;
9604   t4106 = t4105 * t155;
9605   t4109 = t1293 * t375;
9606   t4112 = t291 * t154;
9607   t4113 = t3053 * t4112;
9608   t4118 = t410 * t148;
9609   t4119 = t4118 * t168;
9610   t4122 = t1301 * t386;
9611   t4125 = -0.16113004405490700000e3 * t2534 * t3327 - 0.43763715669234000000e3 * t4080 * t3323 + 0.17505486267693600000e3 * t4083 * t3327 - 0.2298854518472160e4 * t4087 * t3323 + 0.835947097626240e3 * t2543 * t3327 + 0.2113088496777440e4 * t4093 * t3323 - 0.812726344914400e3 * t4096 * t3327 + 0.27971938310305500000e4 * t4100 * t3323 - 0.99899779679662500000e3 * t2537 * t3327 - 0.24153546731438400000e4 * t4106 * t3323 + 0.90575800242894000000e3 * t4109 * t3327 - 0.1291785409666332e4 * t4113 * t3323 + 0.455924262235176e3 * t2531 * t3327 + 0.1069451973144240e4 * t4119 * t3323 - 0.394008621684720e3 * t4122 * t3327;
9612   t4130 = t416 * t1139;
9613   t4131 = t1497 * t788;
9614   t4134 = t1243 * t174;
9615   t4135 = t4134 * t266;
9616   t4138 = t1137 * t3211;
9617   t4141 = t1497 * t784;
9618   t4150 = t3222 * t3224;
9619   t4153 = my_piecewise3(t92, t3510 + t3551 + t3586 + t3623 + t3667 + t3707 + t3759 + t3802 + t3844 + t3878 + t3904 + t3942 + t3988 + t4036 + t4076 + t4125, t416 * t417 * t3435 * t174 - 0.4e1 * t1496 * t4135 - 0.2e1 * t1496 * t4141 - 0.2e1 * t1504 * t4135 - t1504 * t4141 + 0.6e1 * t4130 * t4131 + 0.6e1 * t4138 * t4131 + t4150 * t4131);
9620   t4156 = 0.6e1 * t2289 * t483 * t668 - 0.4e1 * t667 * t3286 + 0.4e1 * t667 * t1264 * t277 - 0.2e1 * t667 * t483 * t804 + t205 * t3470 - 0.2e1 * t205 * t3472 - t205 * t3475 + 0.2e1 * t667 * t668 * t566 - t205 * t804 * t566 - 0.2e1 * t205 * t277 * t1507 - t91 * t4153 + 0.1174e1 * t4153;
9621   t4157 = t7 * t4156;
9622   t4158 = t4157 * t195;
9623   t4161 = t435 * t1510;
9624   t4169 = t569 * t577 * t1170;
9625   t4172 = t574 * t1148;
9626   t4177 = t5 * t425;
9627   t4180 = t3256 * t3250;
9628   t4183 = t4180 * t194 * t673 * t185;
9629   t4186 = t1530 * t17;
9630   t4188 = t2483 * t4186 * t194;
9631   t4192 = t1162 * t1522 * t1156;
9632   t4195 = t4186 * t1170;
9633   t4199 = t2002 * t651 * t3270;
9634   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9635     v3rho2sigma[0] = -t3275 * t571 / 0.6e1 - t1175 * t1512 - 0.8246500000000000000e0 * t3279 * t1515 * t443 - 0.3e1 / 0.8e1 * t201 * t4158 - 0.49479000000000000000e1 * t434 * t4161 * t443 - 0.29687400000000000000e2 * t1157 * t1515 * t1164 + 0.80541612095716256868e2 * t1168 * t4169 + 0.92773125000000000000e0 * t4172 * t580 + 0.22265550000000000000e2 * t1519 * t1525 - 0.60406209071787192650e2 * t4177 * t1532 + 0.22265550000000000000e3 * t576 * t4183 - 0.62012907040371922630e0 * t1528 * t4188 - 0.25976475000000000000e2 * t576 * t4192 - 0.50338507559822660542e2 * t1528 * t4195 + 0.12113307472923900000e3 * t576 * t4199;
9636 
9637   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9638     v3rho2lapl[0] = 0.0e0;
9639 
9640   t4208 = t2289 * t84;
9641   t4209 = t1538 * t668;
9642   t4212 = t667 * t274;
9643   t4215 = t1592 * t177;
9644   t4216 = t4215 * t277;
9645   t4219 = t596 * t421;
9646   t4220 = t4219 * t277;
9647   t4223 = t1538 * t804;
9648   t4226 = t801 * t596;
9649   t4230 = t274 * t1592;
9650   t4237 = t3337 * t587;
9651   t4239 = t761 * t584;
9652   t4241 = t3354 * t584;
9653   t4243 = t259 * t1561;
9654   t4246 = my_piecewise3(t55, 0.40e2 / 0.9e1 * t207, 0);
9655   t4247 = t75 * t4246;
9656   t4248 = t233 * t4247;
9657   t4250 = t1222 * t1576;
9658   t4252 = t468 * t4246;
9659   t4253 = t466 * t4252;
9660   t4255 = t1555 * t781;
9661   t4256 = t727 * t4255;
9662   t4258 = t3395 * t1566;
9663   t4260 = t3398 * t1573;
9664   t4262 = t103 * t1560;
9665   t4263 = t4262 * t238;
9666   t4264 = t1226 * t4263;
9667   t4266 = t1555 * t736;
9668   t4267 = t1226 * t4266;
9669   t4269 = t116 * t1560;
9670   t4270 = t4269 * t263;
9671   t4271 = t1235 * t4270;
9672   t4273 = t1572 * t781;
9673   t4274 = t1235 * t4273;
9674   t4276 = t768 * t1549;
9675   t4278 = t2437 * t1556;
9676   t4280 = t74 * t1560;
9677   t4281 = t4280 * t238;
9678   t4282 = t1205 * t4281;
9679   t4284 = 0.1100e4 / 0.9e1 * t4237 - 0.60e2 * t4239 - 0.6e1 * t4241 - 0.30e2 * t4243 - 0.3e1 * t4248 + 0.100e3 / 0.3e1 * t4250 + 0.2e1 * t4253 + 0.3e1 * t4256 + 0.400e3 / 0.3e1 * t4258 - 0.200e3 / 0.3e1 * t4260 + 0.16e2 * t4264 + 0.8e1 * t4267 - 0.8e1 * t4271 - 0.4e1 * t4274 - 0.60e2 * t4276 + 0.30e2 * t4278 - 0.12e2 * t4282;
9680   t4285 = t1548 * t736;
9681   t4286 = t1205 * t4285;
9682   t4288 = t1572 * t751;
9683   t4289 = t727 * t4288;
9684   t4291 = t1555 * t716;
9685   t4292 = t3390 * t4291;
9686   t4294 = t1722 * t751;
9687   t4295 = t1235 * t4294;
9688   t4297 = t4262 * t263;
9689   t4298 = t727 * t4297;
9690   t4300 = t2466 * t1552;
9691   t4302 = t1555 * t3409;
9692   t4303 = t1205 * t4302;
9693   t4305 = t4280 * t723;
9694   t4306 = t721 * t4305;
9695   t4308 = t1548 * t2483;
9696   t4309 = t2482 * t4308;
9697   t4311 = t3420 * t1569;
9698   t4313 = t1572 * t3409;
9699   t4314 = t1226 * t4313;
9700   t4316 = t4262 * t723;
9701   t4317 = t1231 * t4316;
9702   t4319 = t1555 * t2483;
9703   t4320 = t3430 * t4319;
9704   t4322 = t583 * t238;
9705   t4323 = t4322 * t723;
9706   t4324 = t3321 * t4323;
9707   t4326 = t583 * t26;
9708   t4327 = t4326 * t746;
9709   t4328 = t2336 * t4327;
9710   t4330 = t3331 * t4323;
9711   t4332 = t3334 * t4327;
9712   t4334 = -0.6e1 * t4286 - 0.6e1 * t4289 + 0.24e2 * t4292 + 0.12e2 * t4295 + 0.6e1 * t4298 + 0.48e2 * t4300 + 0.12e2 * t4303 + 0.9e1 * t4306 - 0.54e2 * t4309 - 0.260e3 / 0.3e1 * t4311 - 0.32e2 * t4314 - 0.10e2 * t4317 + 0.90e2 * t4320 + 0.18e2 * t4324 - 0.9e1 * t4328 - 0.40e2 * t4330 + 0.20e2 * t4332;
9713   t4335 = t4284 + t4334;
9714   t4336 = t46 * t4335;
9715   t4350 = t1579 * t266;
9716   t4351 = t4350 * t81;
9717   t4354 = t590 * t784;
9718   t4358 = t590 * t788;
9719   t4362 = t4336 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t1580 * t1248 - 0.3e1 / 0.100e3 * t591 * t798 - 0.3e1 / 0.100e3 * t591 * t3444 + 0.3e1 / 0.50e2 * t591 * t3448 - t270 * t4335 * t81 / 0.100e3 + t797 * t4351 / 0.50e2 + t797 * t4354 * t81 / 0.100e3 - t2512 * t4358 * t81 / 0.100e3;
9720   t4363 = t84 * t4362;
9721   t4388 = t140 * t1560;
9722   t4389 = t4388 * t263;
9723   t4392 = t4388 * t238;
9724   t4395 = t154 * t1560;
9725   t4396 = t4395 * t263;
9726   t4403 = t4395 * t238;
9727   t4406 = t167 * t1560;
9728   t4407 = t4406 * t263;
9729   t4410 = 0.81522222222222222225e2 * t4237 - 0.40020e2 * t4239 - 0.4002e1 * t4241 - 0.20010e2 * t4243 - 0.2001e1 * t4248 + 0.22233333333333333334e2 * t4250 + 0.1334e1 * t4253 - 0.139324516271040e3 * t1016 * t4389 - 0.301869785253920e3 * t1486 * t4392 + 0.116103763559200e3 * t1413 * t4396 - 0.372959177470740e3 * t1417 * t4392 + 0.133199706239550e3 * t1023 * t4396 + 0.284159373311040e3 * t1424 * t4403 - 0.106559764991640e3 * t1428 * t4407;
9730   t4415 = t4406 * t238;
9731   t4418 = t385 * t1560;
9732   t4419 = t4418 * t263;
9733   t4426 = t4418 * t238;
9734   t4433 = t4269 * t238;
9735   t4436 = t127 * t1560;
9736   t4437 = t4436 * t263;
9737   t4444 = t1700 * t736;
9738   t4447 = t1711 * t781;
9739   t4450 = 0.143531712185148e3 * t1432 * t4403 - 0.50658251359464e2 * t1028 * t4407 - 0.106945197314424e3 * t1439 * t4415 + 0.39400862168472e2 * t1443 * t4419 - 0.19476108390480e2 * t1447 * t4415 + 0.6816637936668e1 * t1077 * t4419 + 0.14282479486352e2 * t1453 * t4426 - 0.266733300e2 * t1462 * t4263 + 0.106693320e2 * t1033 * t4270 + 0.248951080e2 * t1468 * t4433 - 0.106693320e2 * t1403 * t4437 + 0.54749504697682666666e3 * t3857 * t1708 - 0.19908910799157333333e3 * t3860 * t1712 + 0.7141239743176e1 * t1453 * t4444 - 0.2596814452064e1 * t1457 * t4447;
9740   t4458 = t4436 * t238;
9741   t4465 = t825 * t1560;
9742   t4466 = t4465 * t263;
9743   t4469 = t1676 * t736;
9744   t4472 = t1689 * t781;
9745   t4479 = t1689 * t736;
9746   t4482 = t1700 * t781;
9747   t4489 = -0.2667333000e3 * t1231 * t1566 - 0.95484470551056e2 * t1407 * t4433 + 0.35806676456646e2 * t1038 * t4437 + 0.79570392125880e2 * t1472 * t4458 - 0.31828156850352e2 * t1476 * t4389 + 0.383142419745360e3 * t1480 * t4458 - 0.5193628904128e1 * t1457 * t4466 + 0.71765856092574e2 * t1432 * t4469 - 0.25329125679732e2 * t1028 * t4472 - 0.35648399104808000000e4 * t3784 * t1697 + 0.13133620722824000000e4 * t3787 * t1701 - 0.53472598657212e2 * t1439 * t4479 + 0.19700431084236e2 * t1443 * t4482 - 0.681663793666800e3 * t1302 * t1697 + 0.238582327783380e3 * t2771 * t1701;
9748   t4496 = t1572 * t716;
9749   t4499 = t1669 * t751;
9750   t4506 = t1676 * t716;
9751   t4511 = t1700 * t751;
9752   t4514 = t1689 * t716;
9753   t4517 = t1711 * t751;
9754   t4524 = t1700 * t716;
9755   t4527 = -0.9738054195240e1 * t1447 * t4479 + 0.3408318968334e1 * t1077 * t4482 - 0.160039980e2 * t1033 * t4294 + 0.746853240e2 * t3818 * t4496 + 0.213386640e2 * t1403 * t4499 - 0.334195646928696e3 * t3712 * t4496 + 0.4305951365554440e4 * t1294 * t1686 + 0.1148253697481184e4 * t3760 * t4506 - 0.1519747540783920e4 * t2899 * t1690 + 0.177303879758124e3 * t1028 * t4511 - 0.962506775829816e3 * t3722 * t4514 - 0.157603448673888e3 * t1443 * t4517 - 0.185023029709560e3 * t3729 * t4514 - 0.27266551746672e2 * t1077 * t4517 + 0.149966034606696e3 * t3735 * t4524;
9756   t4530 = t1722 * t781;
9757   t4537 = t1722 * t736;
9758   t4540 = t1669 * t781;
9759   t4543 = t1669 * t716;
9760   t4546 = t1689 * t751;
9761   t4555 = t1722 * t716;
9762   t4558 = t1676 * t751;
9763   t4567 = 0.17903338228323e2 * t1038 * t4530 + 0.14587905223078000000e4 * t3764 * t1730 - 0.58351620892312000000e3 * t3682 * t1670 + 0.39785196062940e2 * t1472 * t4537 - 0.15914078425176e2 * t1476 * t4540 - 0.2424234653559810e4 * t3747 * t4543 - 0.399599118718650e3 * t1023 * t4546 + 0.2131195299832800e4 * t3753 * t4506 + 0.372959177470740e3 * t1428 * t4511 - 0.71613352913292e2 * t1038 * t4499 + 0.358066764566460e3 * t3768 * t4555 + 0.79570392125880e2 * t1476 * t4558 + 0.1915712098726800e4 * t3688 * t4555 + 0.348311290677600e3 * t1016 * t4558 - 0.1811218711523520e4 * t3740 * t4543;
9764   t4570 = t2655 * t583;
9765   t4571 = t4570 * t751;
9766   t4576 = t4406 * t723;
9767   t4581 = t1669 * t736;
9768   t4584 = t1676 * t781;
9769   t4603 = -0.348311290677600e3 * t1413 * t4546 + 0.23371330068576e2 * t1457 * t4571 - 0.533466600e2 * t3812 * t4291 + 0.10224956905002000000e2 * t883 * t4576 + 0.3329992655988750e4 * t2803 * t1677 - 0.186479588735370e3 * t1417 * t4581 + 0.66599853119775e2 * t1023 * t4584 + 0.80511822438128000000e4 * t3848 * t1686 - 0.30191933414298000000e4 * t3851 * t1690 + 0.142079686655520e3 * t1424 * t4469 - 0.53279882495820e2 * t1428 * t4472 + 0.1066933200e3 * t2870 * t1573 - 0.133366650e2 * t1462 * t4266 + 0.53346660e1 * t1033 * t4273 + 0.33193477333333333334e3 * t3828 * t1719;
9770   t4607 = t1572 * t736;
9771   t4620 = t1722 * t3409;
9772   t4627 = t4418 * t723;
9773   t4630 = t1689 * t3409;
9774   t4635 = t1700 * t3409;
9775   t4640 = -0.14225776000000000000e3 * t3831 * t1723 + 0.124475540e2 * t1468 * t4607 - 0.53346660e1 * t1403 * t4530 - 0.1432267058265840e4 * t1271 * t1719 + 0.537100146849690e3 * t2942 * t1723 - 0.47742235275528e2 * t1407 * t4607 - 0.19441893866666666667e3 * t3968 * t1765 - 0.746853240e2 * t1468 * t4620 + 0.82355355850285800000e3 * t3147 * t1765 + 0.286453411653168e3 * t1407 * t4620 - 0.74658415496840000000e1 * t1313 * t4627 - 0.861190273110888e3 * t1432 * t4630 + 0.18949938471503200000e4 * t3985 * t1755 + 0.748616381200968e3 * t1439 * t4635 + 0.36128181064340400000e3 * t3104 * t1755;
9776   t4647 = t4269 * t723;
9777   t4652 = t4436 * t723;
9778   t4657 = t4388 * t723;
9779   t4662 = t4395 * t723;
9780   t4675 = 0.136332758733360e3 * t1447 * t4635 - 0.28867920658778133333e3 * t3939 * t1760 + 0.160039980e2 * t892 * t4316 - 0.142257760e2 * t1271 * t4647 + 0.53710014684969000000e2 * t901 * t4647 - 0.43763715669234000000e2 * t1278 * t4652 - 0.208986774406560e3 * t906 * t4652 + 0.162545268982880e3 * t1286 * t4657 + 0.19979955935932500000e3 * t866 * t4657 - 0.15095966707149000000e3 * t1294 * t4662 - 0.75987377039196e2 * t875 * t4662 + 0.56286945954960e2 * t1302 * t4576 + 0.7662848394907200e4 * t1278 * t1730 - 0.2786490325420800e4 * t2922 * t1670 + 0.191571209872680e3 * t1480 * t4537;
9781   t4699 = -0.69662258135520e2 * t1016 * t4540 - 0.70436283225914666666e4 * t3639 * t1673 + 0.27090878163813333333e4 * t3642 * t1677 - 0.150934892626960e3 * t1486 * t4581 + 0.58051881779600e2 * t1413 * t4584 - 0.9323979436768500e4 * t1286 * t1673 + 0.2001e1 * t4256 + 0.88933333333333333335e2 * t4258 - 0.44466666666666666667e2 * t4260 + 0.10672e2 * t4264 + 0.5336e1 * t4267 - 0.5336e1 * t4271 - 0.2668e1 * t4274 - 0.40020e2 * t4276;
9782   t4707 = t1676 * t2483;
9783   t4710 = t1689 * t2483;
9784   t4715 = t1700 * t2483;
9785   t4718 = t1676 * t3409;
9786   t4727 = 0.20010e2 * t4278 - 0.8004e1 * t4282 - 0.4002e1 * t4286 - 0.4002e1 * t4289 + 0.16008e2 * t4292 + 0.8004e1 * t4295 + 0.4002e1 * t4298 + 0.2165640245617086e4 * t3121 * t4707 - 0.1773038797581240e4 * t4013 * t4710 - 0.33742357786506600000e3 * t3129 * t4710 + 0.26877029578862400000e3 * t4021 * t4715 + 0.1864795887353700e4 * t1417 * t4718 - 0.43275104560493800000e4 * t3960 * t1750 - 0.1704956239866240e4 * t1424 * t4630 - 0.23049504368556120000e4 * t3092 * t1750;
9787   t4731 = t1669 * t3409;
9788   t4744 = t1711 * t3409;
9789   t4753 = t1572 * t2483;
9790   t4758 = t1722 * t2483;
9791   t4763 = -0.81692269249236800000e3 * t3979 * t1742 - 0.318281568503520e3 * t1472 * t4731 - 0.42493977462667200000e4 * t3159 * t1742 - 0.1532569678981440e4 * t1480 * t4731 + 0.38469046992614933333e4 * t3949 * t1745 + 0.1509348926269600e4 * t1486 * t4718 + 0.50615888371029000000e4 * t3020 * t1745 - 0.114259835890816e3 * t1453 * t4744 + 0.16537464600000000000e3 * t3080 * t1569 + 0.533466600e2 * t1462 * t4313 - 0.1680419790e3 * t3169 * t4319 + 0.1920479760e3 * t4028 * t4753 - 0.80565022027453500000e3 * t3177 * t4753 + 0.78774688204621200000e3 * t3992 * t4758 + 0.4075242100927920e4 * t3182 * t4758;
9792   t4764 = t1669 * t2483;
9793   t4785 = t104 * t4246;
9794   t4788 = -0.3657268552114800e4 * t3999 * t4764 - 0.47951894246238000000e4 * t3110 * t4764 + 0.40759110109302300000e4 * t4006 * t4707 + 0.32016000000000000000e2 * t4300 + 0.8004e1 * t4303 + 0.60030000000000000000e1 * t4306 - 0.36018000000000000000e2 * t4309 - 0.57806666666666666668e2 * t4311 - 0.21344e2 * t4314 - 0.66700000000000000000e1 * t4317 + 0.60030000000000000000e2 * t4320 + 0.24886138498946666666e2 * t1322 * t1650 - 0.533466600e2 * t939 * t1616 + 0.47419253333333333334e2 * t1328 * t1619 - 0.26673330e1 * t335 * t4785;
9795   t4791 = t493 * t4246;
9796   t4794 = t117 * t4246;
9797   t4797 = t506 * t4246;
9798   t4800 = t128 * t4246;
9799   t4803 = t519 * t4246;
9800   t4806 = t141 * t4246;
9801   t4809 = t532 * t4246;
9802   t4812 = t155 * t4246;
9803   t4815 = t545 * t4246;
9804   t4818 = t168 * t4246;
9805   t4821 = t558 * t4246;
9806   t4832 = 0.17782220e1 * t491 * t4791 - 0.5967779409441e1 * t343 * t4794 + 0.3978519606294e1 * t503 * t4797 + 0.17415564533880e2 * t352 * t4800 - 0.11610376355920e2 * t516 * t4803 - 0.13319970623955e2 * t362 * t4806 + 0.8879980415970e1 * t529 * t4809 + 0.4221520946622e1 * t371 * t4812 - 0.2814347297748e1 * t542 * t4815 - 0.486902709762e0 * t380 * t4818 + 0.324601806508e0 * t555 * t4821 - 0.2400599700e3 * t2629 * t603 - 0.179033382283230e3 * t950 * t1622 + 0.14587905223078000000e3 * t1336 * t1625 + 0.696622581355200e3 * t961 * t1628;
9807   t4863 = -0.54181756327626666666e3 * t1367 * t1631 - 0.665998531197750e3 * t830 * t1634 + 0.50319889023830000000e3 * t1374 * t1637 + 0.253291256797320e3 * t841 * t1640 - 0.18762315318320000000e3 * t1380 * t1644 - 0.34083189683340e2 * t852 * t1647 - 0.30332409764617333333e4 * t3569 * t630 - 0.579414224616780e3 * t2609 * t633 + 0.46454125198033777776e3 * t3577 * t636 + 0.29241872888888888889e3 * t3562 * t606 - 0.1253233675982610e4 * t2645 * t609 + 0.12642851193334266667e4 * t3574 * t612 + 0.6617914522874400e4 * t2697 * t615 + 0.3672723223561140e4 * t2592 * t627 - 0.60502961232516444444e4 * t3507 * t618;
9808   t4891 = -0.7991982374373000e4 * t2571 * t621 + 0.68770514999234333333e4 * t3513 * t624 + 0.12006000000000000000e2 * t4324 - 0.60030000000000000000e1 * t4328 - 0.26680000000000000000e2 * t4330 + 0.13340000000000000000e2 * t4332 + 0.17505486267693600000e3 * t4083 * t4327 - 0.2298854518472160e4 * t4087 * t4323 + 0.835947097626240e3 * t2543 * t4327 + 0.2113088496777440e4 * t4093 * t4323 - 0.812726344914400e3 * t4096 * t4327 + 0.27971938310305500000e4 * t4100 * t4323 - 0.99899779679662500000e3 * t2537 * t4327 - 0.24153546731438400000e4 * t4106 * t4323 + 0.90575800242894000000e3 * t4109 * t4327;
9809   t4922 = -0.1291785409666332e4 * t4113 * t4323 + 0.455924262235176e3 * t2531 * t4327 + 0.1069451973144240e4 * t4119 * t4323 - 0.394008621684720e3 * t4122 * t4327 + 0.20449913810004000000e3 * t4045 * t4323 - 0.71574698335014000000e2 * t2540 * t4327 - 0.16424851409304800000e3 * t4052 * t4323 + 0.59726732397472000000e2 * t4056 * t4327 + 0.800199900e2 * t4060 * t4323 - 0.320079960e2 * t2528 * t4327 - 0.995804320e2 * t4066 * t4323 + 0.426773280e2 * t4069 * t4327 + 0.42968011747975200000e3 * t4073 * t4323 - 0.16113004405490700000e3 * t2534 * t4327 - 0.43763715669234000000e3 * t4080 * t4323;
9810   t4927 = t1775 * t788;
9811   t4930 = t1579 * t174;
9812   t4931 = t4930 * t266;
9813   t4936 = t1775 * t784;
9814   t4947 = my_piecewise3(t92, t4410 + t4450 + t4489 + t4527 + t4567 + t4603 + t4640 + t4675 + t4699 + t4727 + t4763 + t4788 + t4832 + t4863 + t4891 + t4922, t416 * t417 * t4335 * t174 - 0.4e1 * t1496 * t4931 - 0.2e1 * t1496 * t4936 - 0.2e1 * t1504 * t4931 - t1504 * t4936 + 0.6e1 * t4130 * t4927 + 0.6e1 * t4138 * t4927 + t4150 * t4927);
9815   t4950 = 0.12e2 * t4208 * t4209 - 0.8e1 * t4212 * t1539 - 0.8e1 * t1537 * t4216 + 0.8e1 * t1537 * t4220 - 0.4e1 * t1537 * t4223 + 0.2e1 * t205 * t4226 * t177 + 0.4e1 * t205 * t4230 * t177 - 0.4e1 * t205 * t1542 * t421 + 0.2e1 * t205 * t4363 * t177 - 0.4e1 * t205 * t1593 * t421 - 0.2e1 * t205 * t597 * t1144 + 0.2e1 * t667 * t668 * t643 - t205 * t804 * t643 - 0.2e1 * t205 * t277 * t1784 - t91 * t4947 + 0.1174e1 * t4947;
9816   t4951 = t7 * t4950;
9817   t4952 = t4951 * t195;
9818   t4955 = t435 * t1787;
9819   t4963 = t646 * t577 * t1170;
9820   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9821     v3rho2tau[0] = -t3275 * t648 / 0.6e1 - t1175 * t1789 - 0.8246500000000000000e0 * t3279 * t1792 * t443 - 0.3e1 / 0.8e1 * t201 * t4952 - 0.49479000000000000000e1 * t434 * t4955 * t443 - 0.29687400000000000000e2 * t1157 * t1792 * t1164 + 0.80541612095716256868e2 * t1168 * t4963;
9822 
9823   t4974 = t1796 * t421;
9824   t4977 = t1853 * t277;
9825   t4990 = t2321 * t221;
9826   t4991 = t9 * t145;
9827   t4994 = 0.1e1 / t4991 * t26 * t2326;
9828   t5001 = t103 * t1823;
9829   t5002 = t5001 * t238;
9830   t5003 = t1226 * t5002;
9831   t5004 = 0.8e1 * t5003;
9832   t5005 = t116 * t1823;
9833   t5006 = t5005 * t263;
9834   t5007 = t1235 * t5006;
9835   t5008 = 0.4e1 * t5007;
9836   t5009 = t1213 * t1218;
9837   t5010 = t1226 * t5009;
9838   t5012 = t74 * t1823;
9839   t5013 = t5012 * t238;
9840   t5014 = t1205 * t5013;
9841   t5015 = 0.6e1 * t5014;
9842   t5016 = t5001 * t263;
9843   t5017 = t727 * t5016;
9844   t5018 = 0.3e1 * t5017;
9845   t5019 = t1192 * t96;
9846   t5020 = t5019 * t308;
9847   t5021 = t116 * t1816;
9848   t5022 = t5021 * t238;
9849   t5023 = t5020 * t5022;
9850   t5025 = t127 * t1816;
9851   t5026 = t5025 * t263;
9852   t5027 = t2032 * t5026;
9853   t5029 = t1236 * t1218;
9854   t5030 = t2032 * t5029;
9855   t5032 = t103 * t1816;
9856   t5033 = t5032 * t263;
9857   t5034 = t1205 * t5033;
9858   t5036 = t1206 * t1218;
9859   t5037 = t1205 * t5036;
9860   t5039 = t5032 * t238;
9861   t5040 = t3390 * t5039;
9862   t5042 = t5021 * t263;
9863   t5043 = t1226 * t5042;
9864   t5045 = t5004 - t5008 + 0.28e2 * t5010 - t5015 + t5018 - 0.40e2 * t5023 + 0.24e2 * t5027 - 0.16e2 * t5030 + 0.6e1 * t5034 - 0.12e2 * t5037 + 0.42e2 * t5040 - 0.28e2 * t5043;
9865   t5046 = t74 * t1816;
9866   t5047 = t5046 * t723;
9867   t5048 = t2472 * t5047;
9868   t5050 = t3330 * t101;
9869   t5051 = t5032 * t723;
9870   t5052 = t5050 * t5051;
9871   t5054 = t5012 * t723;
9872   t5055 = t721 * t5054;
9873   t5056 = 0.9e1 / 0.2e1 * t5055;
9874   t5057 = t1327 * t160;
9875   t5058 = t5057 * t492;
9876   t5059 = t5021 * t723;
9877   t5060 = t5058 * t5059;
9878   t5062 = t5001 * t723;
9879   t5063 = t1231 * t5062;
9880   t5064 = 0.5e1 * t5063;
9881   t5065 = t33 * t238;
9882   t5066 = t5065 * t1817;
9883   t5068 = t767 * t1817;
9884   t5070 = t3394 * t1820;
9885   t5072 = t259 * t1824;
9886   t5073 = 0.15e2 * t5072;
9887   t5074 = t891 * t1829;
9888   t5076 = t1222 * t1832;
9889   t5077 = 0.50e2 / 0.3e1 * t5076;
9890   t5078 = 0.9e1 * t5048 - 0.35e2 * t5052 + t5056 + 0.28e2 * t5060 - t5064 - 0.6e1 * t5066 - 0.30e2 * t5068 + 0.350e3 / 0.3e1 * t5070 - t5073 - 0.280e3 / 0.3e1 * t5074 + t5077 - t1826 + t1834;
9891   t5079 = t5045 + t5078;
9892   t5080 = t46 * t5079;
9893   t5085 = t790 * t1243;
9894   t5091 = t79 * t266 * t81;
9895   t5097 = t1835 * t266;
9896   t5098 = t5097 * t81;
9897   t5101 = t476 * t1243;
9898   t5105 = t1839 * t266 * t81;
9899   t5108 = t5080 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t1836 * t1248 - 0.3e1 / 0.50e2 * t473 * t5085 - 0.3e1 / 0.100e3 * t1840 * t271 + 0.3e1 / 0.50e2 * t1840 * t5091 - t270 * t5079 * t81 / 0.100e3 + t797 * t5098 / 0.100e3 + t797 * t5101 / 0.50e2 - t2512 * t5105 / 0.100e3;
9900   t5111 = -t27 * t29 * t212 * t42 / 0.54e2 + 0.21e2 / 0.160e3 * t220 * t222 * sigma[0] * t42 - 0.81e2 / 0.3200e4 * t1808 * t1195 + 0.2187e4 / 0.2048000e7 * t4990 * t4994 + 0.4e1 * t479 * t1258 + 0.2e1 * t274 * t1849 + 0.2e1 * t84 * t5108;
9901   t5112 = t5111 * t177;
9902   t5114 = t1852 * t421;
9903   t5119 = t1261 * t566;
9904   t5122 = t482 * t1507;
9905   t5127 = 0.5336e1 * t5003;
9906   t5128 = 0.2668e1 * t5007;
9907   t5130 = 0.4002e1 * t5014;
9908   t5131 = 0.2001e1 * t5017;
9909   t5142 = t852 * t1943;
9910   t5143 = 0.17041594841670e2 * t5142;
9911   t5148 = t1336 * t1888;
9912   t5149 = 0.72939526115390000000e2 * t5148;
9913   t5152 = t961 * t1897;
9914   t5153 = 0.348311290677600e3 * t5152;
9915   t5156 = t1367 * t1903;
9916   t5157 = 0.27090878163813333333e3 * t5156;
9917   t5158 = 0.28014e2 * t5040 - 0.18676e2 * t5043 + 0.14446982795106400000e4 * t882 * t1940 - t5143 + 0.53505197772735333333e3 * t3856 * t1946 + 0.13858509961924100000e4 * t3763 * t1885 + t5149 - 0.68961006509096000000e3 * t905 * t1894 + t5153 - 0.67727195409533333333e4 * t3638 * t1900 - t5157;
9918   t5162 = t830 * t1912;
9919   t5163 = 0.332999265598875e3 * t5162;
9920   t5166 = t939 * t1867;
9921   t5167 = 0.266733300e2 * t5166;
9922   t5170 = t1328 * t1873;
9923   t5171 = 0.23709626666666666667e2 * t5170;
9924   t5178 = t1322 * t1949;
9925   t5179 = 0.12443069249473333333e2 * t5178;
9926   t5180 = t158 * t94;
9927   t5181 = t17 * t5180;
9928   t5182 = t5181 * t1954;
9929   t5185 = 0.30961003615786666667e4 * t865 * t1909 - t5163 + 0.77995827986936500000e4 * t3847 * t1915 - t5167 + 0.30822514666666666667e3 * t3827 * t1870 + t5171 - 0.1333666500e3 * t1230 * t1858 - 0.716133529132920e3 * t1270 * t1861 + 0.3831424197453600e4 * t1277 * t1864 + t5179 - 0.21640120433866666667e3 * t5182 * t1959;
9930   t5192 = t1374 * t1919;
9931   t5193 = 0.25159944511915000000e3 * t5192;
9932   t5196 = t841 * t1928;
9933   t5197 = 0.126645628398660e3 * t5196;
9934   t5200 = t1380 * t1934;
9935   t5201 = 0.93811576591600000000e2 * t5200;
9936   t5202 = t4118 * t165;
9937   t5203 = t167 * t1816;
9938   t5204 = t5203 * t723;
9939   t5207 = t167 * t1823;
9940   t5208 = t5207 * t723;
9941   t5209 = t1302 * t5208;
9942   t5210 = 0.28143472977480e2 * t5209;
9943   t5211 = t1321 * t379;
9944   t5212 = t5211 * t557;
9945   t5213 = t385 * t1816;
9946   t5214 = t5213 * t723;
9947   t5217 = -0.4661989718384250e4 * t1285 * t1962 + 0.2152975682777220e4 * t1293 * t1965 - 0.340831896833400e3 * t1301 * t1968 + t5193 - 0.33743925580686000000e4 * t874 * t1925 + t5197 - 0.34710283338892000000e4 * t3783 * t1931 - t5201 + 0.1041308500166760e4 * t5202 * t5204 + t5210 - 0.433409483853192e3 * t5212 * t5214;
9948   t5220 = t883 * t5208;
9949   t5221 = 0.51124784525010000000e1 * t5220;
9950   t5222 = t4050 * t1312;
9951   t5225 = t385 * t1823;
9952   t5226 = t5225 * t723;
9953   t5227 = t1313 * t5226;
9954   t5228 = 0.37329207748420000000e1 * t5227;
9955   t5230 = t9 * t158 * t95;
9956   t5231 = t5230 * t1954;
9957   t5233 = 0.1e1 / t150 / t316;
9958   t5234 = t5231 * t5233;
9959   t5235 = t825 * t1816;
9960   t5236 = t5235 * t723;
9961   t5239 = t140 * t1816;
9962   t5240 = t5239 * t723;
9963   t5243 = t154 * t1816;
9964   t5244 = t5243 * t723;
9965   t5249 = t892 * t5062;
9966   t5250 = 0.80019990e1 * t5249;
9967   t5251 = t4065 * t114;
9968   t5254 = t5005 * t723;
9969   t5255 = t1271 * t5254;
9970   t5256 = 0.71128880e1 * t5255;
9971   t5257 = t1335 * t109;
9972   t5258 = t5257 * t505;
9973   t5259 = t5025 * t723;
9974   t5262 = t5221 - 0.16051559331820600000e3 * t5222 * t5214 - t5228 + 0.64920361301600000000e2 * t5234 * t5236 + 0.13985969155152750000e4 * t3065 * t5240 - 0.645892704833166e3 * t3054 * t5244 + 0.10224956905002000000e3 * t3011 * t5204 + t5250 - 0.924675440e2 * t5251 * t5059 - t5256 + 0.533466600e2 * t5258 * t5259;
9975   t5263 = t901 * t5254;
9976   t5264 = 0.26855007342484500000e2 * t5263;
9977   t5265 = t4079 * t125;
9978   t5268 = t127 * t1823;
9979   t5269 = t5268 * t723;
9980   t5270 = t1278 * t5269;
9981   t5271 = 0.21881857834617000000e2 * t5270;
9982   t5272 = t1366 * t351;
9983   t5273 = t5272 * t518;
9984   t5276 = t906 * t5269;
9985   t5277 = 0.104493387203280e3 * t5276;
9986   t5278 = t4092 * t138;
9987   t5281 = t140 * t1823;
9988   t5282 = t5281 * t723;
9989   t5283 = t1286 * t5282;
9990   t5284 = 0.81272634491440e2 * t5283;
9991   t5285 = t1373 * t361;
9992   t5286 = t5285 * t531;
9993   t5289 = t866 * t5282;
9994   t5290 = 0.99899779679662500000e2 * t5289;
9995   t5291 = t4105 * t152;
9996   t5296 = t5264 - 0.41575529885772300000e3 * t5265 * t5259 - t5271 + 0.20688301952728800000e3 * t5273 * t5240 - t5277 + 0.2031815862286000e4 * t5278 * t5240 + t5284 - 0.928830108473600e3 * t5286 * t5244 + t5290 - 0.23398748396080950000e4 * t5291 * t5244 + 0.400099950e2 * t3035 * t5051;
9997   t5302 = t154 * t1823;
9998   t5303 = t5302 * t723;
9999   t5304 = t1294 * t5303;
10000   t5305 = 0.75479833535745000000e2 * t5304;
10001   t5306 = t1379 * t370;
10002   t5307 = t5306 * t544;
10003   t5310 = t875 * t5303;
10004   t5311 = 0.37993688519598e2 * t5310;
10005   t5314 = 0.30015000000000000000e1 * t5055;
10006   t5316 = 0.33350000000000000000e1 * t5063;
10007   t5318 = 0.21484005873987600000e3 * t3044 * t5059 - 0.1149427259236080e4 * t3049 * t5259 - t5305 + 0.10123177674205800000e4 * t5307 * t5204 - t5311 + 0.60030000000000000000e1 * t5048 - 0.23345000000000000000e2 * t5052 + t5314 + 0.18676000000000000000e2 * t5060 - t5316 - 0.4002e1 * t5066;
10008   t5321 = 0.10005e2 * t5072;
10009   t5323 = 0.11116666666666666667e2 * t5076;
10010   t5324 = -0.20010e2 * t5068 + 0.77816666666666666667e2 * t5070 - t5321 - 0.62253333333333333334e2 * t5074 + t5323 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905;
10011   t5330 = t950 * t1882;
10012   t5331 = 0.89516691141615e2 * t5330;
10013   t5332 = t5235 * t263;
10014   t5335 = -t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - 0.17782220000000000000e3 * t900 * t1879 - t5331 - 0.315206897347776e3 * t2067 * t5332;
10015   t5336 = t1314 * t1218;
10016   t5339 = t5207 * t238;
10017   t5340 = t1447 * t5339;
10018   t5341 = 0.9738054195240e1 * t5340;
10019   t5342 = t5225 * t263;
10020   t5343 = t1077 * t5342;
10021   t5344 = 0.3408318968334e1 * t5343;
10022   t5345 = t5213 * t238;
10023   t5350 = t5268 * t263;
10024   t5351 = t1038 * t5350;
10025   t5352 = 0.17903338228323e2 * t5351;
10026   t5353 = t5025 * t238;
10027   t5356 = t5239 * t263;
10028   t5359 = t1279 * t1218;
10029   t5362 = t5268 * t238;
10030   t5363 = t1472 * t5362;
10031   t5364 = 0.39785196062940e2 * t5363;
10032   t5365 = t5281 * t263;
10033   t5366 = t1476 * t5365;
10034   t5367 = 0.15914078425176e2 * t5366;
10035   t5368 = 0.78801724336944e2 * t2067 * t5336 - t5341 + t5344 + 0.293115431276724e3 * t3735 * t5345 - 0.111663021438752e3 * t1453 * t5332 + t5352 + 0.680326852676274e3 * t3768 * t5353 - 0.302367490078344e3 * t1472 * t5356 + 0.151183745039172e3 * t1472 * t5359 + t5364 - t5367;
10036   t5370 = t1891 * t502;
10037   t5371 = t5370 * t327;
10038   t5372 = t5239 * t238;
10039   t5375 = t5243 * t263;
10040   t5378 = t1287 * t1218;
10041   t5381 = t1480 * t5362;
10042   t5382 = 0.191571209872680e3 * t5381;
10043   t5383 = t1016 * t5365;
10044   t5384 = 0.69662258135520e2 * t5383;
10045   t5391 = t5281 * t238;
10046   t5392 = t1486 * t5391;
10047   t5393 = 0.150934892626960e3 * t5392;
10048   t5394 = t5302 * t263;
10049   t5395 = t1413 * t5394;
10050   t5396 = 0.58051881779600e2 * t5395;
10051   t5397 = t1906 * t515;
10052   t5398 = t5397 * t282;
10053   t5399 = t5243 * t238;
10054   t5402 = -0.350109725353872e3 * t5371 * t5372 + 0.159140784251760e3 * t2090 * t5375 - 0.63656313700704e2 * t2090 * t5378 + t5382 - t5384 - 0.3483112906776000e4 * t3740 * t5372 + 0.1451297044490000e4 * t1486 * t5375 - 0.580518817796000e3 * t1486 * t5378 - t5393 + t5396 + 0.1625452689828800e4 * t5398 * t5399;
10055   t5403 = t5203 * t263;
10056   t5406 = t1295 * t1218;
10057   t5409 = t1417 * t5391;
10058   t5410 = 0.186479588735370e3 * t5409;
10059   t5411 = t1023 * t5394;
10060   t5412 = 0.66599853119775e2 * t5411;
10061   t5413 = t1462 * t5002;
10062   t5414 = 0.133366650e2 * t5413;
10063   t5415 = t1033 * t5006;
10064   t5416 = 0.53346660e1 * t5415;
10065   t5423 = t5005 * t238;
10066   t5424 = t1468 * t5423;
10067   t5425 = 0.124475540e2 * t5424;
10068   t5426 = t1403 * t5350;
10069   t5427 = 0.53346660e1 * t5426;
10070   t5428 = -0.696622581355200e3 * t2097 * t5403 + 0.232207527118400e3 * t2097 * t5406 - t5410 + t5412 - t5414 + t5416 + 0.1387013160e3 * t3818 * t5022 - 0.693506580e2 * t1468 * t5026 + 0.462337720e2 * t1468 * t5029 + t5425 - t5427;
10071   t5431 = t1876 * t133;
10072   t5432 = t5431 * t317;
10073   t5439 = t1407 * t5423;
10074   t5440 = 0.47742235275528e2 * t5439;
10075   t5441 = t5203 * t238;
10076   t5444 = t5213 * t263;
10077   t5447 = t1303 * t1218;
10078   t5458 = -0.853546560e2 * t5432 * t5353 + 0.426773280e2 * t2083 * t5356 - 0.213386640e2 * t2083 * t5359 - t5440 - 0.185023029709560e3 * t3729 * t5441 + 0.68166379366680e2 * t1447 * t5444 - 0.19476108390480e2 * t1447 * t5447 - 0.533466600e2 * t3812 * t5039 + 0.266733300e2 * t1462 * t5042 - 0.266733300e2 * t1462 * t5009 - 0.334195646928696e3 * t3712 * t5022;
10079   t5471 = t5225 * t238;
10080   t5472 = t1453 * t5471;
10081   t5473 = 0.7141239743176e1 * t5472;
10082   t5474 = t825 * t1823;
10083   t5475 = t5474 * t263;
10084   t5476 = t1457 * t5475;
10085   t5477 = 0.2596814452064e1 * t5476;
10086   t5478 = t1953 * t554;
10087   t5479 = t5478 * t1957;
10088   t5480 = t5235 * t238;
10089   t5483 = t2655 * t1816;
10090   t5484 = t5483 * t263;
10091   t5487 = t1458 * t1218;
10092   t5490 = 0.143226705826584e3 * t1407 * t5026 - 0.95484470551056e2 * t1407 * t5029 + 0.1915712098726800e4 * t3688 * t5353 - 0.766284839490720e3 * t1480 * t5356 + 0.383142419745360e3 * t1480 * t5359 + 0.27915755359688e2 * t1453 * t5336 + t5473 - t5477 - 0.119453464794944e3 * t5479 * t5480 + 0.46742660137152e2 * t2075 * t5484 - 0.10387257808256e2 * t2075 * t5487;
10093   t5510 = t5302 * t238;
10094   t5511 = t1424 * t5510;
10095   t5512 = 0.142079686655520e3 * t5511;
10096   t5513 = t5207 * t263;
10097   t5514 = t1428 * t5513;
10098   t5515 = 0.53279882495820e2 * t5514;
10099   t5516 = -0.2424234653559810e4 * t3747 * t5372 + 0.932397943676850e3 * t1417 * t5375 - 0.372959177470740e3 * t1417 * t5378 + 0.1148253697481184e4 * t3760 * t5399 - 0.430595136555444e3 * t1432 * t5403 + 0.143531712185148e3 * t1432 * t5406 + 0.4129190893426050e4 * t3753 * t5399 - 0.1651676357370420e4 * t1424 * t5403 + 0.550558785790140e3 * t1424 * t5406 + t5512 - t5515;
10100   t5517 = t1922 * t147;
10101   t5518 = t5517 * t291;
10102   t5525 = t1432 * t5510;
10103   t5526 = 0.71765856092574e2 * t5525;
10104   t5527 = t1028 * t5513;
10105   t5528 = 0.25329125679732e2 * t5527;
10106   t5535 = t1439 * t5339;
10107   t5536 = 0.53472598657212e2 * t5535;
10108   t5537 = t1443 * t5342;
10109   t5538 = 0.19700431084236e2 * t5537;
10110   t5539 = t1937 * t541;
10111   t5540 = t5539 * t300;
10112   t5543 = -0.1811516004857880e4 * t5518 * t5441 + 0.745918354941480e3 * t2105 * t5444 - 0.213119529983280e3 * t2105 * t5447 + t5526 - t5528 - 0.1874355300300168e4 * t3722 * t5441 + 0.728915950116732e3 * t1439 * t5444 - 0.208261700033352e3 * t1439 * t5447 - t5536 + t5538 + 0.788017243369440e3 * t5540 * t5345;
10113   t5548 = t1839 * t174;
10114   t5549 = t5548 * t266;
10115   t5552 = t1497 * t1243;
10116   t5558 = t1835 * t174 * t266;
10117   t5569 = my_piecewise3(t92, -t5130 + t5131 + t5296 + t5490 + t5402 + t5217 - 0.26680e2 * t5023 - 0.8004e1 * t5037 + t5543 + t5262 + 0.16008e2 * t5027 - 0.10672e2 * t5030 + 0.4002e1 * t5034 + t5185 + 0.18676e2 * t5010 + t5158 + t5516 + t5458 + t5368 + t5335 + t5127 - t5128 + t5428 + t5324 + t5318, t416 * t417 * t5079 * t174 - 0.4e1 * t1496 * t5552 - 0.2e1 * t1496 * t5558 - 0.2e1 * t1504 * t5552 - t1504 * t5558 + 0.6e1 * t4130 * t5549 + 0.6e1 * t4138 * t5549 + t4150 * t5549);
10118   t5572 = 0.6e1 * t2289 * t1797 * t277 - 0.4e1 * t667 * t483 * t1261 + 0.2e1 * t667 * t4974 - 0.2e1 * t667 * t4977 + t205 * t5112 - t205 * t5114 + 0.4e1 * t667 * t1855 * t277 - 0.2e1 * t205 * t5119 - 0.2e1 * t205 * t5122 - t205 * t277 * t1989 - t91 * t5569 + 0.1174e1 * t5569;
10119   t5573 = t7 * t5572;
10120   t5574 = t5573 * t195;
10121   t5577 = t435 * t1992;
10122   t5581 = t574 * t1511;
10123   t5586 = t5 * t570;
10124   t5590 = t574 * t425 * t1161;
10125   t5593 = t577 * t194;
10126   t5595 = t4180 * t5593 * t207;
10127   t5598 = t2014 * t50;
10128   t5600 = t2483 * t5598 * t194;
10129   t5605 = t5598 * t1170;
10130   t5610 = 0.1e1 / t31;
10131   t5612 = t5610 * t9 * t3270;
10132   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10133     v3rhosigma2[0] = -t1175 * t1994 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t5574 - 0.24739500000000000000e1 * t434 * t5577 * t443 + 0.18554625000000000000e1 * t5581 * t580 + 0.22265550000000000000e2 * t1997 * t1525 - 0.60406209071787192651e2 * t5586 * t1532 - 0.41747906250000000000e1 * t5590 * t2005 - 0.83495812500000000000e2 * t576 * t5595 + 0.23254840140139470986e0 * t1528 * t5600 - 0.46386562500000000000e0 * t1519 * t2010 + 0.45304656803840394488e2 * t1528 * t5605 + 0.11326164200960098622e2 * t4177 * t2016 - 0.45424903023464625000e2 * t576 * t5612;
10134 
10135   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10136     v3rhosigmalapl[0] = 0.0e0;
10137 
10138   t5617 = t482 * t277;
10139   t5618 = t1538 * t5617;
10140   t5623 = t4215 * t482;
10141   t5626 = t4219 * t482;
10142   t5629 = t1538 * t1261;
10143   t5632 = t667 * t479;
10144   t5635 = t1258 * t596;
10145   t5639 = t479 * t1592;
10146   t5646 = t2051 * t177;
10147   t5647 = t5646 * t277;
10148   t5650 = t274 * t2051;
10149   t5654 = 0.2e1 * t205 * t5635 * t177 + 0.2e1 * t205 * t5639 * t177 + 0.2e1 * t205 * t5650 * t177 - 0.2e1 * t205 * t2022 * t421 - 0.4e1 * t1537 * t5623 + 0.4e1 * t1537 * t5626 - 0.4e1 * t1537 * t5629 - 0.4e1 * t1537 * t5647 - 0.4e1 * t5632 * t1539 - 0.4e1 * t4212 * t2019 + 0.12e2 * t4208 * t5618;
10150   t5655 = t461 * t263;
10151   t5656 = t1555 * t5655;
10152   t5657 = t1205 * t5656;
10153   t5659 = t1555 * t3322;
10154   t5660 = t3390 * t5659;
10155   t5662 = t1572 * t5655;
10156   t5663 = t1226 * t5662;
10157   t5665 = t1572 * t3322;
10158   t5666 = t5020 * t5665;
10159   t5668 = t1722 * t5655;
10160   t5669 = t2032 * t5668;
10161   t5671 = t5004 - t5008 - t5015 + t5018 + 0.6e1 * t5657 + 0.42e2 * t5660 - 0.28e2 * t5663 - 0.40e2 * t5666 + 0.24e2 * t5669 + t5056 - t5064 - t5073 + t5077 - t1826;
10162   t5672 = t5065 * t67;
10163   t5673 = t5672 * t2026;
10164   t5675 = t4280 * t461;
10165   t5676 = t1205 * t5675;
10166   t5678 = t1548 * t1218;
10167   t5679 = t1205 * t5678;
10168   t5681 = t4262 * t461;
10169   t5682 = t1226 * t5681;
10170   t5684 = t1555 * t1218;
10171   t5685 = t1226 * t5684;
10172   t5687 = t4269 * t461;
10173   t5688 = t2032 * t5687;
10174   t5690 = t1572 * t1218;
10175   t5691 = t2032 * t5690;
10176   t5693 = t768 * t2026;
10177   t5695 = t3395 * t2029;
10178   t5697 = t892 * t2033;
10179   t5699 = t583 * t461;
10180   t5700 = t5699 * t723;
10181   t5701 = t3321 * t5700;
10182   t5703 = t3331 * t5700;
10183   t5705 = t5057 * t493;
10184   t5706 = t5705 * t5700;
10185   t5708 = t1834 - 0.6e1 * t5673 - 0.6e1 * t5676 - 0.6e1 * t5679 + 0.14e2 * t5682 + 0.14e2 * t5685 - 0.8e1 * t5688 - 0.8e1 * t5691 - 0.30e2 * t5693 + 0.350e3 / 0.3e1 * t5695 - 0.280e3 / 0.3e1 * t5697 + 0.9e1 * t5701 - 0.35e2 * t5703 + 0.28e2 * t5706;
10186   t5709 = t5671 + t5708;
10187   t5710 = t46 * t5709;
10188   t5721 = t591 * t79;
10189   t5727 = t2036 * t266;
10190   t5728 = t5727 * t81;
10191   t5732 = t1579 * t472 * t81;
10192   t5739 = t2512 * t590;
10193   t5742 = t5710 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t2037 * t1248 - 0.3e1 / 0.100e3 * t1580 * t2041 - 0.3e1 / 0.100e3 * t591 * t1255 - 0.3e1 / 0.100e3 * t591 * t5085 + 0.3e1 / 0.50e2 * t5721 * t1255 - t270 * t5709 * t81 / 0.100e3 + t797 * t5728 / 0.100e3 + t797 * t5732 / 0.100e3 + t797 * t590 * t1243 * t81 / 0.100e3 - t5739 * t1255 / 0.100e3;
10194   t5743 = t84 * t5742;
10195   t5750 = t596 * t566;
10196   t5751 = t5750 * t277;
10197   t5766 = t1261 * t643;
10198   t5768 = t482 * t1784;
10199   t5772 = t1676 * t5655;
10200   t5775 = t1676 * t3322;
10201   t5778 = t1689 * t5655;
10202   t5781 = t1669 * t3322;
10203   t5788 = t1689 * t3322;
10204   t5791 = t1700 * t5655;
10205   t5794 = t1700 * t3322;
10206   t5797 = t1711 * t5655;
10207   t5800 = t1711 * t3322;
10208   t5803 = t4570 * t5655;
10209   t5806 = 0.1451297044490000e4 * t1486 * t5772 + 0.1625452689828800e4 * t5398 * t5775 - 0.696622581355200e3 * t2097 * t5778 - 0.2424234653559810e4 * t3747 * t5781 + 0.932397943676850e3 * t1417 * t5772 + 0.4129190893426050e4 * t3753 * t5775 - 0.185023029709560e3 * t3729 * t5788 + 0.68166379366680e2 * t1447 * t5791 + 0.293115431276724e3 * t3735 * t5794 - 0.111663021438752e3 * t1453 * t5797 - 0.119453464794944e3 * t5479 * t5800 + 0.46742660137152e2 * t2075 * t5803;
10210   t5817 = t1722 * t3322;
10211   t5820 = t1669 * t5655;
10212   t5833 = -0.533466600e2 * t3812 * t5659 + 0.266733300e2 * t1462 * t5662 - 0.3483112906776000e4 * t3740 * t5781 - 0.350109725353872e3 * t5371 * t5781 + 0.159140784251760e3 * t2090 * t5772 + 0.1915712098726800e4 * t3688 * t5817 - 0.766284839490720e3 * t1480 * t5820 - 0.1651676357370420e4 * t1424 * t5778 - 0.1811516004857880e4 * t5518 * t5788 + 0.745918354941480e3 * t2105 * t5791 + 0.1148253697481184e4 * t3760 * t5775 - 0.430595136555444e3 * t1432 * t5778;
10213   t5859 = -0.1874355300300168e4 * t3722 * t5788 + 0.728915950116732e3 * t1439 * t5791 + 0.788017243369440e3 * t5540 * t5794 - 0.315206897347776e3 * t2067 * t5797 + 0.1387013160e3 * t3818 * t5665 - 0.693506580e2 * t1468 * t5668 - 0.853546560e2 * t5432 * t5817 + 0.426773280e2 * t2083 * t5820 - 0.334195646928696e3 * t3712 * t5665 + 0.143226705826584e3 * t1407 * t5668 + 0.680326852676274e3 * t3768 * t5817 - 0.302367490078344e3 * t1472 * t5820;
10214   t5865 = t5127 - t5128 - t5130 + t5131 + 0.4002e1 * t5657 + 0.28014e2 * t5660 - 0.18676e2 * t5663 - 0.26680e2 * t5666 + 0.16008e2 * t5669 - t5143 + t5149 + t5153 - t5157;
10215   t5868 = -t5163 - t5167 + t5171 + t5179 + t5193 + t5197 - t5201 + t5210 + t5221 - t5228 + t5250 - t5256;
10216   t5875 = t5264 - t5271 - t5277 + t5284 + t5290 - t5305 - t5311 + t5314 - t5316 - 0.68961006509096000000e3 * t906 * t2091 + 0.3831424197453600e4 * t1278 * t2061 - 0.33743925580686000000e4 * t875 * t2064;
10217   t5887 = t5182 * t1957;
10218   t5902 = 0.2152975682777220e4 * t1294 * t2098 - 0.34710283338892000000e4 * t3784 * t2064 + 0.14446982795106400000e4 * t883 * t2068 - 0.340831896833400e3 * t1302 * t2064 + 0.53505197772735333333e3 * t3857 * t2068 - 0.21640120433866666667e3 * t5887 * t2076 - 0.1333666500e3 * t1231 * t2029 + 0.30822514666666666667e3 * t3828 * t2033 - 0.67727195409533333333e4 * t3639 * t2091 + 0.30961003615786666667e4 * t866 * t2098 - 0.4661989718384250e4 * t1286 * t2091 + 0.77995827986936500000e4 * t3848 * t2098;
10219   t5903 = t1669 * t1218;
10220   t5906 = t4395 * t461;
10221   t5909 = t1676 * t1218;
10222   t5912 = t4388 * t461;
10223   t5921 = t4406 * t461;
10224   t5924 = t1689 * t1218;
10225   t5935 = -0.290259408898000e3 * t1486 * t5903 + 0.116103763559200e3 * t2097 * t5906 + 0.116103763559200e3 * t2097 * t5909 - 0.186479588735370e3 * t1417 * t5912 - 0.186479588735370e3 * t1417 * t5903 + 0.275279392895070e3 * t1424 * t5906 + 0.275279392895070e3 * t1424 * t5909 - 0.106559764991640e3 * t2105 * t5921 - 0.106559764991640e3 * t2105 * t5924 + 0.71765856092574e2 * t1432 * t5906 + 0.71765856092574e2 * t1432 * t5909 - 0.104130850016676e3 * t1439 * t5921 - 0.104130850016676e3 * t1439 * t5924;
10226   t5939 = t4418 * t461;
10227   t5942 = t1700 * t1218;
10228   t5953 = t4465 * t461;
10229   t5956 = t1711 * t1218;
10230   t5967 = 0.39400862168472e2 * t2067 * t5939 + 0.39400862168472e2 * t2067 * t5942 - 0.9738054195240e1 * t1447 * t5921 - 0.9738054195240e1 * t1447 * t5924 + 0.13957877679844e2 * t1453 * t5939 + 0.13957877679844e2 * t1453 * t5942 - 0.5193628904128e1 * t2075 * t5953 - 0.5193628904128e1 * t2075 * t5956 - 0.133366650e2 * t1462 * t5681 - 0.133366650e2 * t1462 * t5684 - 0.17782220000000000000e3 * t901 * t2061 - 0.716133529132920e3 * t1271 * t2033;
10231   t5970 = 0.13858509961924100000e4 * t3764 * t2061 - t5321 + t5323 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930;
10232   t5978 = -t1936 - t1945 + t1951 - t1973 + t1975 - t5331 - 0.4002e1 * t5673 - 0.4002e1 * t5676 - 0.4002e1 * t5679 + 0.9338e1 * t5682 + 0.9338e1 * t5685 - 0.5336e1 * t5688;
10233   t5987 = t4436 * t461;
10234   t5990 = t1722 * t1218;
10235   t6003 = -0.5336e1 * t5691 - 0.20010e2 * t5693 + 0.77816666666666666667e2 * t5695 - 0.62253333333333333334e2 * t5697 + 0.231168860e2 * t1468 * t5687 + 0.231168860e2 * t1468 * t5690 - 0.106693320e2 * t2083 * t5987 - 0.106693320e2 * t2083 * t5990 - 0.47742235275528e2 * t1407 * t5687 - 0.47742235275528e2 * t1407 * t5690 + 0.75591872519586e2 * t1472 * t5987 + 0.75591872519586e2 * t1472 * t5990 - 0.31828156850352e2 * t2090 * t5912;
10236   t6014 = -0.31828156850352e2 * t2090 * t5903 + 0.191571209872680e3 * t1480 * t5987 + 0.191571209872680e3 * t1480 * t5990 - 0.290259408898000e3 * t1486 * t5912 - t5341 + t5344 + t5352 + t5364 - t5367 + t5382 - t5384 - t5393;
10237   t6020 = t5396 - t5410 + t5412 - t5414 + t5416 + t5425 - t5427 - t5440 + 0.60030000000000000000e1 * t5701 - 0.23345000000000000000e2 * t5703 + 0.18676000000000000000e2 * t5706 - 0.645892704833166e3 * t4113 * t5700;
10238   t6024 = t5211 * t558;
10239   t6031 = t5233 * t825;
10240   t6032 = t5231 * t6031;
10241   t6039 = t5257 * t506;
10242   t6046 = t5272 * t519;
10243   t6051 = 0.1041308500166760e4 * t4119 * t5700 - 0.433409483853192e3 * t6024 * t5700 + 0.10224956905002000000e3 * t4045 * t5700 - 0.16051559331820600000e3 * t4052 * t5700 + 0.64920361301600000000e2 * t6032 * t5700 + 0.400099950e2 * t4060 * t5700 - 0.924675440e2 * t4066 * t5700 + 0.533466600e2 * t6039 * t5700 + 0.21484005873987600000e3 * t4073 * t5700 - 0.41575529885772300000e3 * t4080 * t5700 + 0.20688301952728800000e3 * t6046 * t5700 - 0.1149427259236080e4 * t4087 * t5700;
10244   t6054 = t5285 * t532;
10245   t6061 = t5306 * t545;
10246   t6064 = 0.2031815862286000e4 * t4093 * t5700 - 0.928830108473600e3 * t6054 * t5700 + 0.13985969155152750000e4 * t4100 * t5700 - 0.23398748396080950000e4 * t4106 * t5700 + 0.10123177674205800000e4 * t6061 * t5700 + t5473 - t5477 + t5512 - t5515 + t5526 - t5528 - t5536 + t5538;
10247   t6069 = t1775 * t1254;
10248   t6072 = t4930 * t472;
10249   t6077 = t1775 * t1243;
10250   t6080 = t2036 * t174;
10251   t6081 = t6080 * t266;
10252   t6092 = my_piecewise3(t92, t5806 + t5833 + t5859 + t5865 + t5868 + t5875 + t5902 + t5935 + t5967 + t5970 + t5978 + t6003 + t6014 + t6020 + t6051 + t6064, t416 * t417 * t5709 * t174 - 0.2e1 * t1496 * t6072 - 0.2e1 * t1496 * t6077 - 0.2e1 * t1496 * t6081 - t1504 * t6072 - t1504 * t6077 - t1504 * t6081 + 0.6e1 * t4130 * t6069 + 0.6e1 * t4138 * t6069 + t4150 * t6069);
10253   t6095 = 0.2e1 * t205 * t5743 * t177 - 0.2e1 * t205 * t2052 * t421 + 0.4e1 * t1537 * t5751 - 0.2e1 * t205 * t1542 * t566 - 0.2e1 * t205 * t1593 * t566 - 0.2e1 * t205 * t597 * t1507 + 0.2e1 * t667 * t2059 * t277 - t205 * t5766 - t205 * t5768 - t205 * t277 * t2123 - t91 * t6092 + 0.1174e1 * t6092;
10254   t6096 = t5654 + t6095;
10255   t6097 = t7 * t6096;
10256   t6098 = t6097 * t195;
10257   t6101 = t435 * t2126;
10258   t6105 = t574 * t1788;
10259   t6110 = t5 * t647;
10260   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10261     v3rhosigmatau[0] = -t1175 * t2128 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t6098 - 0.24739500000000000000e1 * t434 * t6101 * t443 + 0.92773125000000000000e0 * t6105 * t580 + 0.11132775000000000000e2 * t2131 * t1525 - 0.30203104535893596325e2 * t6110 * t1532;
10262 
10263   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10264     v3rholapl2[0] = 0.0e0;
10265 
10266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10267     v3rholapltau[0] = 0.0e0;
10268 
10269   t6115 = t2289 * t85;
10270   t6116 = t2139 * t277;
10271   t6122 = t667 * t85;
10272   t6123 = t1538 * t1592;
10273   t6133 = t2134 * t421;
10274   t6136 = t2166 * t177;
10275   t6137 = t6136 * t277;
10276   t6140 = t274 * t2166;
10277   t6144 = t1555 * t1560;
10278   t6145 = t1226 * t6144;
10279   t6147 = t116 * t2142;
10280   t6148 = t6147 * t238;
10281   t6149 = t5020 * t6148;
10282   t6151 = t127 * t2142;
10283   t6152 = t6151 * t263;
10284   t6153 = t2032 * t6152;
10285   t6155 = t1572 * t1560;
10286   t6156 = t2032 * t6155;
10287   t6158 = t103 * t2142;
10288   t6159 = t6158 * t263;
10289   t6160 = t1205 * t6159;
10290   t6162 = t1548 * t1560;
10291   t6163 = t1205 * t6162;
10292   t6165 = t5004 - t5008 - t5015 + t5018 + t5056 - t5064 + 0.28e2 * t6145 - 0.40e2 * t6149 + 0.24e2 * t6153 - 0.16e2 * t6156 + 0.6e1 * t6160 - 0.12e2 * t6163;
10293   t6166 = t6158 * t238;
10294   t6167 = t3390 * t6166;
10295   t6169 = t6147 * t263;
10296   t6170 = t1226 * t6169;
10297   t6172 = t767 * t2143;
10298   t6174 = t3394 * t2146;
10299   t6176 = t891 * t2149;
10300   t6178 = t5065 * t2143;
10301   t6180 = t74 * t2142;
10302   t6181 = t6180 * t723;
10303   t6182 = t2472 * t6181;
10304   t6184 = t6158 * t723;
10305   t6185 = t5050 * t6184;
10306   t6187 = t6147 * t723;
10307   t6188 = t5058 * t6187;
10308   t6190 = 0.42e2 * t6167 - 0.28e2 * t6170 - t5073 + t5077 - 0.30e2 * t6172 + 0.350e3 / 0.3e1 * t6174 - 0.280e3 / 0.3e1 * t6176 - 0.6e1 * t6178 - t1826 + t1834 + 0.9e1 * t6182 - 0.35e2 * t6185 + 0.28e2 * t6188;
10309   t6191 = t6165 + t6190;
10310   t6192 = t46 * t6191;
10311   t6197 = t790 * t1579;
10312   t6207 = t2152 * t266;
10313   t6214 = t2156 * t266;
10314   t6218 = t6192 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t2153 * t1248 - 0.3e1 / 0.50e2 * t591 * t6197 - 0.3e1 / 0.100e3 * t2157 * t271 + 0.3e1 / 0.50e2 * t2157 * t5091 - t270 * t6191 * t81 / 0.100e3 + t797 * t6207 * t81 / 0.100e3 + t797 * t593 * t1579 / 0.50e2 - t2512 * t6214 * t81 / 0.100e3;
10315   t6219 = t84 * t6218;
10316   t6226 = t596 * t643;
10317   t6227 = t6226 * t277;
10318   t6241 = t154 * t2142;
10319   t6242 = t6241 * t238;
10320   t6245 = t167 * t2142;
10321   t6246 = t6245 * t263;
10322   t6249 = t1676 * t1560;
10323   t6252 = t6245 * t238;
10324   t6255 = t385 * t2142;
10325   t6256 = t6255 * t263;
10326   t6259 = t1689 * t1560;
10327   t6283 = t6151 * t238;
10328   t6286 = t140 * t2142;
10329   t6287 = t6286 * t263;
10330   t6290 = t1722 * t1560;
10331   t6293 = t1669 * t1560;
10332   t6298 = -0.334195646928696e3 * t3712 * t6148 + 0.143226705826584e3 * t1407 * t6152 - 0.95484470551056e2 * t1407 * t6155 + 0.1387013160e3 * t3818 * t6148 - 0.693506580e2 * t1468 * t6152 + 0.462337720e2 * t1468 * t6155 - 0.853546560e2 * t5432 * t6283 + 0.426773280e2 * t2083 * t6287 - 0.213386640e2 * t2083 * t6290 - 0.580518817796000e3 * t1486 * t6293 + 0.1625452689828800e4 * t5398 * t6242;
10333   t6304 = -0.696622581355200e3 * t2097 * t6246 + 0.232207527118400e3 * t2097 * t6249 + t5127 - t5128 - t5130 + t5131 - t5143 + t5149 + t5153 - t5157 - t5163;
10334   t6305 = -t5167 + t5171 + t5179 + t5193 + t5197 - t5201 + t5210 + t5221 - t5228 + t5250 - t5256;
10335   t6310 = t6286 * t238;
10336   t6313 = t5264 - t5271 - t5277 + t5284 + t5290 - t5305 - t5311 + t5314 - t5316 + 0.383142419745360e3 * t1480 * t6290 - 0.2424234653559810e4 * t3747 * t6310;
10337   t6314 = t6241 * t263;
10338   t6337 = 0.932397943676850e3 * t1417 * t6314 - 0.372959177470740e3 * t1417 * t6293 + 0.1148253697481184e4 * t3760 * t6242 - 0.430595136555444e3 * t1432 * t6246 + 0.143531712185148e3 * t1432 * t6249 - 0.185023029709560e3 * t3729 * t6252 + 0.68166379366680e2 * t1447 * t6256 + 0.680326852676274e3 * t3768 * t6283 - 0.302367490078344e3 * t1472 * t6287 + 0.151183745039172e3 * t1472 * t6290 - 0.350109725353872e3 * t5371 * t6310;
10339   t6353 = t6255 * t238;
10340   t6356 = t825 * t2142;
10341   t6357 = t6356 * t263;
10342   t6360 = t1700 * t1560;
10343   t6365 = 0.159140784251760e3 * t2090 * t6314 - 0.63656313700704e2 * t2090 * t6293 - 0.3483112906776000e4 * t3740 * t6310 + 0.1451297044490000e4 * t1486 * t6314 - 0.1874355300300168e4 * t3722 * t6252 + 0.728915950116732e3 * t1439 * t6256 - 0.208261700033352e3 * t1439 * t6259 + 0.788017243369440e3 * t5540 * t6353 - 0.315206897347776e3 * t2067 * t6357 + 0.78801724336944e2 * t2067 * t6360 + 0.293115431276724e3 * t3735 * t6353;
10344   t6370 = t6356 * t238;
10345   t6373 = t2655 * t2142;
10346   t6374 = t6373 * t263;
10347   t6377 = t1711 * t1560;
10348   t6388 = -0.111663021438752e3 * t1453 * t6357 + 0.27915755359688e2 * t1453 * t6360 - 0.119453464794944e3 * t5479 * t6370 + 0.46742660137152e2 * t2075 * t6374 - 0.10387257808256e2 * t2075 * t6377 + 0.1915712098726800e4 * t3688 * t6283 - 0.766284839490720e3 * t1480 * t6287 + 0.18676e2 * t6145 - 0.26680e2 * t6149 + 0.16008e2 * t6153 - 0.10672e2 * t6156;
10349   t6400 = t6241 * t723;
10350   t6403 = 0.4002e1 * t6160 - 0.8004e1 * t6163 + 0.28014e2 * t6167 - 0.18676e2 * t6170 - t5321 + t5323 - 0.20010e2 * t6172 + 0.77816666666666666667e2 * t6174 - 0.62253333333333333334e2 * t6176 - 0.4002e1 * t6178 - 0.23398748396080950000e4 * t5291 * t6400;
10351   t6404 = t6245 * t723;
10352   t6409 = t6255 * t723;
10353   t6414 = t6356 * t723;
10354   t6417 = t6151 * t723;
10355   t6420 = t6286 * t723;
10356   t6431 = 0.10123177674205800000e4 * t5307 * t6404 + 0.1041308500166760e4 * t5202 * t6404 - 0.433409483853192e3 * t5212 * t6409 - 0.16051559331820600000e3 * t5222 * t6409 + 0.64920361301600000000e2 * t5234 * t6414 - 0.1149427259236080e4 * t3049 * t6417 + 0.13985969155152750000e4 * t3065 * t6420 - 0.645892704833166e3 * t3054 * t6400 + 0.10224956905002000000e3 * t3011 * t6404 + 0.400099950e2 * t3035 * t6184 + 0.21484005873987600000e3 * t3044 * t6187;
10357   t6445 = -0.924675440e2 * t5251 * t6187 + 0.533466600e2 * t5258 * t6417 - 0.41575529885772300000e3 * t5265 * t6417 + 0.20688301952728800000e3 * t5273 * t6420 + 0.2031815862286000e4 * t5278 * t6420 - 0.928830108473600e3 * t5286 * t6400 - t1869 + t1875 - t1884 + t1890 + t1899;
10358   t6446 = -t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - t5331 - t5341;
10359   t6449 = t5344 + t5352 + t5364 - t5367 + t5382 - t5384 - t5393 + t5396 - t5410 + t5412 - t5414;
10360   t6464 = t5416 + t5425 - t5427 - t5440 - 0.1333666500e3 * t1230 * t2198 - 0.716133529132920e3 * t1270 * t2201 + 0.30822514666666666667e3 * t3827 * t2204 - 0.17782220000000000000e3 * t900 * t2207 + 0.13858509961924100000e4 * t3763 * t2210 - 0.68961006509096000000e3 * t905 * t2213 - 0.67727195409533333333e4 * t3638 * t2216;
10361   t6488 = -0.34710283338892000000e4 * t3783 * t2174 + 0.14446982795106400000e4 * t882 * t2177 + 0.53505197772735333333e3 * t3856 * t2180 - 0.21640120433866666667e3 * t5182 * t2183 + 0.3831424197453600e4 * t1277 * t2186 - 0.4661989718384250e4 * t1285 * t2189 + 0.2152975682777220e4 * t1293 * t2192 - 0.340831896833400e3 * t1301 * t2195 + 0.30961003615786666667e4 * t865 * t2219 + 0.77995827986936500000e4 * t3847 * t2222 - 0.33743925580686000000e4 * t874 * t2226;
10362   t6492 = 0.60030000000000000000e1 * t6182 - 0.23345000000000000000e2 * t6185 + 0.18676000000000000000e2 * t6188 + t5473 - t5477 + t5512 - t5515 + t5526 - t5528 - t5536 + t5538;
10363   t6497 = t2156 * t174;
10364   t6498 = t6497 * t266;
10365   t6501 = t1775 * t1579;
10366   t6506 = t2152 * t174;
10367   t6507 = t6506 * t266;
10368   t6518 = my_piecewise3(t92, t6365 + t6337 + t6313 + t6305 + t6304 + t6298 + t6464 + t6449 + t6445 + t6446 + t6431 + t6492 + 0.550558785790140e3 * t1424 * t6249 - 0.1811516004857880e4 * t5518 * t6252 + 0.745918354941480e3 * t2105 * t6256 - 0.213119529983280e3 * t2105 * t6259 - 0.19476108390480e2 * t1447 * t6259 - 0.533466600e2 * t3812 * t6166 + 0.266733300e2 * t1462 * t6169 - 0.266733300e2 * t1462 * t6144 + 0.4129190893426050e4 * t3753 * t6242 - 0.1651676357370420e4 * t1424 * t6246 + t6403 + t6488 + t6388, t416 * t417 * t6191 * t174 - 0.4e1 * t1496 * t6501 - 0.2e1 * t1496 * t6507 - 0.2e1 * t1504 * t6501 - t1504 * t6507 + 0.6e1 * t4130 * t6498 + 0.6e1 * t4138 * t6498 + t4150 * t6498);
10369   t6521 = 0.24e2 * t6115 * t6116 - 0.16e2 * t1537 * t2139 * t274 - 0.16e2 * t6122 * t6123 + 0.8e1 * t667 * t2135 * t421 - 0.4e1 * t667 * t6116 + 0.4e1 * t205 * t6123 - 0.2e1 * t205 * t6133 - 0.4e1 * t1537 * t6137 + 0.2e1 * t205 * t6140 * t177 + 0.2e1 * t205 * t6219 * t177 - 0.2e1 * t205 * t2167 * t421 + 0.8e1 * t1537 * t6227 - 0.4e1 * t205 * t1542 * t643 - 0.4e1 * t205 * t1593 * t643 - 0.4e1 * t205 * t597 * t1784 - t205 * t277 * t2245 - t91 * t6518 + 0.1174e1 * t6518;
10370   t6522 = t7 * t6521;
10371   t6523 = t6522 * t195;
10372   t6526 = t435 * t2248;
10373   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10374     v3rhotau2[0] = -t1175 * t2250 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t6523 - 0.24739500000000000000e1 * t434 * t6526 * t443;
10375 
10376   t6530 = t1796 * t482;
10377   t6531 = t6530 * t177;
10378   t6537 = t1796 * t566;
10379   t6546 = t2321 * t31;
10380   t6549 = 0.1e1 / t490 * t26 * t2326;
10381   t6554 = t1816 * t461;
10382   t6555 = t33 * t6554;
10383   t6556 = t6555 * t75;
10384   t6558 = t468 * t6554;
10385   t6559 = t3389 * t6558;
10386   t6561 = t1206 * t1823;
10387   t6562 = t1205 * t6561;
10388   t6563 = 0.18e2 * t6562;
10389   t6564 = t1828 * t6554;
10390   t6565 = t5019 * t6564;
10391   t6567 = t1213 * t1823;
10392   t6568 = t1226 * t6567;
10393   t6569 = 0.42e2 * t6568;
10394   t6570 = t347 * t6554;
10395   t6571 = t2741 * t6570;
10396   t6573 = t1236 * t1823;
10397   t6574 = t2032 * t6573;
10398   t6575 = 0.24e2 * t6574;
10399   t6576 = -0.6e1 * t6556 + 0.54e2 * t6559 - t6563 - 0.96e2 * t6565 + t6569 - t1826 + 0.48e2 * t6571 - t6575 + t1834;
10400   t6577 = t46 * t6576;
10401   t6582 = t1839 * t472;
10402   t6583 = t46 * t6582;
10403   t6592 = t1835 * t472 * t81;
10404   t6598 = t6577 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t1836 * t2041 - 0.3e1 / 0.100e3 * t6583 * t81 + 0.3e1 / 0.50e2 * t6583 * t2502 - t270 * t6576 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t6592 - t2512 * t6582 * t81 / 0.100e3;
10405   t6601 = -0.27e2 / 0.1280e4 * t220 * t452 * t42 + 0.729e3 / 0.102400e6 * t689 * sigma[0] * t1811 - 0.6561e4 / 0.16384000e8 * t6546 * t6549 + 0.6e1 * t479 * t1849 + 0.2e1 * t84 * t6598;
10406   t6602 = t6601 * t177;
10407   t6604 = t1852 * t566;
10408   t6607 = t482 * t1989;
10409   t6610 = t168 * t6554;
10410   t6613 = t104 * t6554;
10411   t6616 = t117 * t6554;
10412   t6619 = t128 * t6554;
10413   t6622 = t141 * t6554;
10414   t6625 = t155 * t6554;
10415   t6628 = t545 * t6554;
10416   t6631 = t558 * t6554;
10417   t6634 = t519 * t6554;
10418   t6637 = t532 * t6554;
10419   t6640 = t366 * t6554;
10420   t6643 = t1908 * t6554;
10421   t6646 = t375 * t6554;
10422   t6649 = t1924 * t6554;
10423   t6652 = t386 * t6554;
10424   t6655 = -0.185023029709560e3 * t2710 * t6610 - 0.533466600e2 * t2733 * t6613 - 0.334195646928696e3 * t2741 * t6616 + 0.1915712098726800e4 * t2749 * t6619 - 0.2424234653559810e4 * t2759 * t6622 + 0.1148253697481184e4 * t2767 * t6625 - 0.2735545573411056e4 * t3721 * t6628 + 0.429448190010084e3 * t3734 * t6631 - 0.5015682585757440e4 * t3739 * t6634 + 0.5993986780779750e4 * t3752 * t6637 + 0.318281568503520e3 * t2759 * t6640 + 0.4528046778808800e4 * t5397 * t6643 - 0.1393245162710400e4 * t2767 * t6646 - 0.5114868719598720e4 * t5517 * t6649 + 0.1491836709882960e4 * t2710 * t6652;
10425   t6656 = t1939 * t6554;
10426   t6659 = t5180 * t161;
10427   t6660 = t4055 * t6554;
10428   t6663 = t1958 * t6554;
10429   t6666 = t158 * t405;
10430   t6667 = t147 * t109;
10431   t6668 = t6666 * t6667;
10432   t6670 = 0.1e1 / t150 / t504;
10433   t6671 = t6670 * t2655;
10434   t6672 = t6671 * t6554;
10435   t6675 = t1878 * t6554;
10436   t6678 = t357 * t6554;
10437   t6681 = t1893 * t6554;
10438   t6684 = t493 * t6554;
10439   t6687 = t506 * t6554;
10440   t6693 = t5225 * t461;
10441   t6694 = t1453 * t6693;
10442   t6695 = 0.41873633039532e2 * t6694;
10443   t6696 = t5281 * t461;
10444   t6697 = t2090 * t6696;
10445   t6698 = 0.95484470551056e2 * t6697;
10446   t6699 = t5268 * t461;
10447   t6700 = t1480 * t6699;
10448   t6701 = 0.574713629618040e3 * t6700;
10449   t6702 = t1486 * t6696;
10450   t6703 = 0.870778226694000e3 * t6702;
10451   t6704 = 0.2245849143602904e4 * t5539 * t6656 - 0.630413794695552e3 * t6659 * t6660 - 0.342779507672448e3 * t5478 * t6663 + 0.93485320274304e2 * t6668 * t6672 - 0.2240559720e3 * t5431 * t6675 + 0.853546560e2 * t2749 * t6678 - 0.954844705510560e3 * t5370 * t6681 + 0.1920479760e3 * t3817 * t6684 + 0.966780264329442e3 * t3767 * t6687 - 0.64032e2 * t6565 + 0.32016e2 * t6571 + 0.36018e2 * t6559 + t6695 - t6698 + t6701 - t6703;
10452   t6706 = t5302 * t461;
10453   t6707 = t2097 * t6706;
10454   t6708 = 0.348311290677600e3 * t6707;
10455   t6709 = t1417 * t6696;
10456   t6710 = 0.559438766206110e3 * t6709;
10457   t6711 = t1424 * t6706;
10458   t6712 = 0.825838178685210e3 * t6711;
10459   t6713 = t1462 * t6567;
10460   t6714 = 0.400099950e2 * t6713;
10461   t6715 = t1468 * t6573;
10462   t6716 = 0.693506580e2 * t6715;
10463   t6717 = t2083 * t6699;
10464   t6718 = 0.320079960e2 * t6717;
10465   t6719 = t1407 * t6573;
10466   t6720 = 0.143226705826584e3 * t6719;
10467   t6721 = t1472 * t6699;
10468   t6722 = 0.226775617558758e3 * t6721;
10469   t6723 = t5474 * t461;
10470   t6724 = t2075 * t6723;
10471   t6725 = 0.15580886712384e2 * t6724;
10472   t6726 = t5207 * t461;
10473   t6727 = t2105 * t6726;
10474   t6728 = 0.319679294974920e3 * t6727;
10475   t6729 = t1432 * t6706;
10476   t6730 = 0.215297568277722e3 * t6729;
10477   t6731 = t1439 * t6726;
10478   t6732 = 0.312392550050028e3 * t6731;
10479   t6733 = t2067 * t6693;
10480   t6734 = 0.118202586505416e3 * t6733;
10481   t6735 = t1447 * t6726;
10482   t6736 = 0.29214162585720e2 * t6735;
10483   t6738 = 0.12006e2 * t6562;
10484   t6739 = t6708 - t6710 + t6712 - t6714 + t6716 - t6718 - t6720 + t6722 - t6725 - t6728 + t6730 - t6732 + t6734 - t6736 - 0.4002e1 * t6556 - t6738;
10485   t6740 = 0.28014e2 * t6568;
10486   t6741 = 0.16008e2 * t6574;
10487   t6742 = t6740 - t6741 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975;
10488   t6749 = t1497 * t1835;
10489   t6765 = my_piecewise3(t92, t6655 + t6704 + t6739 + t6742, 0.6e1 * t1137 * t3211 * t6582 * t174 + 0.6e1 * t416 * t1139 * t6582 * t174 + t3222 * t3224 * t6582 * t174 + t416 * t417 * t6576 * t174 - 0.6e1 * t1496 * t6749 - 0.3e1 * t1504 * t6749);
10490   t6768 = 0.6e1 * t2289 * t6531 - 0.6e1 * t667 * t483 * t1852 + 0.6e1 * t667 * t6537 + t205 * t6602 - 0.3e1 * t205 * t6604 - 0.3e1 * t205 * t6607 - t91 * t6765 + 0.1174e1 * t6765;
10491   t6769 = t7 * t6768;
10492   t6770 = t6769 * t195;
10493   t6773 = t574 * t1993;
10494   t6777 = t574 * t570 * t1161;
10495   t6784 = t1530 * t194;
10496   t6786 = t4180 * t6784 * t19;
10497   t6791 = t15 * t5610 * t194 * t187;
10498   t6795 = 0.1e1 / t185 / t221;
10499   t6796 = t6795 * t18;
10500   t6798 = t2483 * t6796 * t194;
10501   t6803 = t440 * t183 * t2014 * t194;
10502   t6806 = t6796 * t1170;
10503   t6809 = 0.1e1 / t221;
10504   t6811 = t6809 * t186 * t3270;
10505   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10506     v3sigma3[0] = -0.3e1 / 0.8e1 * t201 * t6770 + 0.27831937500000000000e1 * t6773 * t580 - 0.12524371875000000000e2 * t6777 * t2005 - 0.13915968750000000000e1 * t1997 * t2010 + 0.33978492602880295866e2 * t5586 * t2016 + 0.31310929687500000000e2 * t576 * t6786 + 0.62621859375000000000e1 * t2001 * t6791 - 0.87205650525523016199e-1 * t1528 * t6798 + 0.69579843750000000000e0 * t576 * t6803 - 0.33978492602880295866e2 * t1528 * t6806 + 0.17034338633799234375e2 * t576 * t6811;
10507 
10508   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10509     v3sigma2lapl[0] = 0.0e0;
10510 
10511   t6814 = t1538 * t1796;
10512   t6819 = t5646 * t482;
10513   t6822 = t5750 * t482;
10514   t6825 = t1538 * t1852;
10515   t6828 = t1849 * t596;
10516   t6832 = t479 * t2051;
10517   t6839 = t33 * t1816;
10518   t6840 = t6839 * t584;
10519   t6842 = t1555 * t1816;
10520   t6843 = t3390 * t6842;
10521   t6845 = 0.12e2 * t6562;
10522   t6846 = t1548 * t1823;
10523   t6847 = t1205 * t6846;
10524   t6848 = 0.6e1 * t6847;
10525   t6849 = t1572 * t1816;
10526   t6850 = t5020 * t6849;
10527   t6852 = 0.28e2 * t6568;
10528   t6853 = t1555 * t1823;
10529   t6854 = t1226 * t6853;
10530   t6855 = 0.14e2 * t6854;
10531   t6856 = t1722 * t1816;
10532   t6857 = t3712 * t6856;
10533   t6859 = 0.16e2 * t6574;
10534   t6860 = t1572 * t1823;
10535   t6861 = t2032 * t6860;
10536   t6862 = 0.8e1 * t6861;
10537   t6863 = -0.6e1 * t6840 + 0.54e2 * t6843 - t6845 - t6848 - 0.96e2 * t6850 + t6852 + t6855 - t1826 + 0.48e2 * t6857 - t6859 - t6862 + t1834;
10538   t6864 = t46 * t6863;
10539   t6872 = t77 * t1835 * t81;
10540   t6876 = t79 * t1839 * t81;
10541   t6883 = t2036 * t472 * t81;
10542   t6886 = t590 * t1835;
10543   t6890 = t590 * t1839;
10544   t6894 = t6864 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t2037 * t2041 - 0.3e1 / 0.100e3 * t591 * t1846 - 0.3e1 / 0.100e3 * t591 * t6872 + 0.3e1 / 0.50e2 * t591 * t6876 - t270 * t6863 * t81 / 0.100e3 + t797 * t6883 / 0.50e2 + t797 * t6886 * t81 / 0.100e3 - t2512 * t6890 * t81 / 0.100e3;
10545   t6895 = t84 * t6894;
10546   t6905 = t1796 * t643;
10547   t6908 = t1852 * t643;
10548   t6910 = t482 * t2123;
10549   t6913 = t1711 * t1823;
10550   t6914 = t2075 * t6913;
10551   t6915 = 0.5193628904128e1 * t6914;
10552   t6916 = t6668 * t6670;
10553   t6917 = t4570 * t1816;
10554   t6920 = t1462 * t6853;
10555   t6921 = 0.133366650e2 * t6920;
10556   t6924 = t1468 * t6860;
10557   t6925 = 0.231168860e2 * t6924;
10558   t6928 = t1722 * t1823;
10559   t6929 = t2083 * t6928;
10560   t6930 = 0.106693320e2 * t6929;
10561   t6931 = t1669 * t1816;
10562   t6934 = t1407 * t6860;
10563   t6935 = 0.47742235275528e2 * t6934;
10564   t6939 = t1472 * t6928;
10565   t6940 = 0.75591872519586e2 * t6939;
10566   t6943 = t1669 * t1823;
10567   t6944 = t2090 * t6943;
10568   t6945 = 0.31828156850352e2 * t6944;
10569   t6946 = t1676 * t1816;
10570   t6949 = t1480 * t6928;
10571   t6950 = 0.191571209872680e3 * t6949;
10572   t6954 = 0.4002e1 * t6847;
10573   t6956 = 0.9338e1 * t6854;
10574   t6958 = t6940 - 0.954844705510560e3 * t5371 * t6931 - t6945 + 0.318281568503520e3 * t3747 * t6946 + t6950 + 0.4528046778808800e4 * t5398 * t6946 + 0.36018e2 * t6843 - t6954 - 0.64032e2 * t6850 + t6956 + 0.32016e2 * t6857;
10575   t6960 = 0.5336e1 * t6861;
10576   t6961 = 0.27915755359688e2 * t6694;
10577   t6962 = 0.63656313700704e2 * t6697;
10578   t6963 = 0.383142419745360e3 * t6700;
10579   t6964 = 0.580518817796000e3 * t6702;
10580   t6965 = 0.232207527118400e3 * t6707;
10581   t6966 = 0.372959177470740e3 * t6709;
10582   t6967 = 0.550558785790140e3 * t6711;
10583   t6968 = 0.266733300e2 * t6713;
10584   t6969 = 0.462337720e2 * t6715;
10585   t6971 = 0.213386640e2 * t6717;
10586   t6972 = 0.95484470551056e2 * t6719;
10587   t6973 = 0.151183745039172e3 * t6721;
10588   t6974 = 0.10387257808256e2 * t6724;
10589   t6975 = 0.213119529983280e3 * t6727;
10590   t6976 = 0.143531712185148e3 * t6729;
10591   t6977 = 0.208261700033352e3 * t6731;
10592   t6978 = 0.78801724336944e2 * t6733;
10593   t6979 = 0.19476108390480e2 * t6735;
10594   t6980 = 0.8004e1 * t6562;
10595   t6981 = 0.18676e2 * t6568;
10596   t6982 = -t6971 - t6972 + t6973 - t6974 - t6975 + t6976 - t6977 + t6978 - t6979 - t6980 + t6981;
10597   t6985 = 0.10672e2 * t6574;
10598   t6988 = t1676 * t1823;
10599   t6989 = t2097 * t6988;
10600   t6990 = 0.116103763559200e3 * t6989;
10601   t6991 = t1689 * t1816;
10602   t6994 = t1417 * t6943;
10603   t6995 = 0.186479588735370e3 * t6994;
10604   t6998 = t1424 * t6988;
10605   t6999 = 0.275279392895070e3 * t6998;
10606   t7000 = t1930 - t1936 - t1945 + t1951 - t1973 + t1975 + t6990 - 0.1393245162710400e4 * t3760 * t6991 - t6995 + 0.5993986780779750e4 * t3753 * t6946 + t6999;
10607   t7004 = t1689 * t1823;
10608   t7005 = t2105 * t7004;
10609   t7006 = 0.106559764991640e3 * t7005;
10610   t7007 = t1700 * t1816;
10611   t7010 = t1432 * t6988;
10612   t7011 = 0.71765856092574e2 * t7010;
10613   t7014 = t1439 * t7004;
10614   t7015 = 0.104130850016676e3 * t7014;
10615   t7018 = t1700 * t1823;
10616   t7019 = t2067 * t7018;
10617   t7020 = 0.39400862168472e2 * t7019;
10618   t7021 = t6659 * t1312;
10619   t7022 = t1711 * t1816;
10620   t7025 = t1447 * t7004;
10621   t7026 = 0.9738054195240e1 * t7025;
10622   t7030 = t1453 * t7018;
10623   t7031 = 0.13957877679844e2 * t7030;
10624   t7034 = t1486 * t6943;
10625   t7035 = 0.290259408898000e3 * t7034;
10626   t7050 = 0.429448190010084e3 * t3735 * t7007 + t7031 - 0.342779507672448e3 * t5479 * t7022 - t7035 + 0.1915712098726800e4 * t3688 * t6856 - 0.185023029709560e3 * t3729 * t6991 - 0.533466600e2 * t3812 * t6842 - 0.334195646928696e3 * t3712 * t6849 - 0.5015682585757440e4 * t3740 * t6931 - 0.2424234653559810e4 * t3747 * t6931 + 0.1148253697481184e4 * t3760 * t6946;
10627   t7054 = t1775 * t1839;
10628   t7057 = t6080 * t472;
10629   t7062 = t1775 * t1835;
10630   t7073 = my_piecewise3(t92, t6958 - t6960 + t1921 - t6985 + t6982 - t7006 + t7011 - t6921 - t6915 + t7020 - 0.4002e1 * t6840 - t7026 + t1899 - t7015 + t1875 + t7050 - t1905 + t6961 - t6962 + t6963 - t6964 + t1890 - t1884 - t1914 - t6935 - 0.2735545573411056e4 * t3722 * t6991 + 0.2245849143602904e4 * t5540 * t7007 - 0.630413794695552e3 * t7021 * t7022 - 0.5114868719598720e4 * t5518 * t6991 + 0.1491836709882960e4 * t3729 * t7007 + 0.853546560e2 * t3688 * t6931 + 0.966780264329442e3 * t3768 * t6856 + 0.93485320274304e2 * t6916 * t6917 + 0.1920479760e3 * t3818 * t6849 - 0.2240559720e3 * t5432 * t6856 - t6968 + t6969 + t6925 - t1869 - t6930 + t6965 - t6966 + t6967 + t7000, t416 * t417 * t6863 * t174 - 0.4e1 * t1496 * t7057 - 0.2e1 * t1496 * t7062 - 0.2e1 * t1504 * t7057 - t1504 * t7062 + 0.6e1 * t4130 * t7054 + 0.6e1 * t4138 * t7054 + t4150 * t7054);
10631   t7076 = 0.12e2 * t4208 * t6814 - 0.8e1 * t5632 * t2019 - 0.8e1 * t1537 * t6819 + 0.8e1 * t1537 * t6822 - 0.4e1 * t1537 * t6825 + 0.2e1 * t205 * t6828 * t177 + 0.4e1 * t205 * t6832 * t177 - 0.4e1 * t205 * t2022 * t566 + 0.2e1 * t205 * t6895 * t177 - 0.4e1 * t205 * t2052 * t566 - 0.2e1 * t205 * t597 * t1989 + 0.2e1 * t667 * t6905 - t205 * t6908 - 0.2e1 * t205 * t6910 - t91 * t7073 + 0.1174e1 * t7073;
10632   t7077 = t7 * t7076;
10633   t7078 = t7077 * t195;
10634   t7081 = t574 * t2127;
10635   t7085 = t574 * t647 * t1161;
10636   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10637     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t201 * t7078 + 0.18554625000000000000e1 * t7081 * t580 - 0.41747906250000000000e1 * t7085 * t2005 - 0.46386562500000000000e0 * t2131 * t2010 + 0.11326164200960098622e2 * t6110 * t2016;
10638 
10639   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10640     v3sigmalapl2[0] = 0.0e0;
10641 
10642   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10643     v3sigmalapltau[0] = 0.0e0;
10644 
10645   t7092 = t2139 * t482;
10646   t7095 = t2139 * t479;
10647   t7098 = t1538 * t2051;
10648   t7108 = t2134 * t566;
10649   t7111 = t6136 * t482;
10650   t7114 = t479 * t2166;
10651   t7118 = t33 * t461;
10652   t7119 = t7118 * t2143;
10653   t7121 = t6158 * t461;
10654   t7122 = t3390 * t7121;
10655   t7124 = 0.12e2 * t6847;
10656   t7125 = t6147 * t461;
10657   t7126 = t5020 * t7125;
10658   t7128 = 0.28e2 * t6854;
10659   t7129 = 0.6e1 * t6562;
10660   t7130 = 0.14e2 * t6568;
10661   t7131 = t6151 * t461;
10662   t7132 = t3712 * t7131;
10663   t7134 = 0.16e2 * t6861;
10664   t7135 = 0.8e1 * t6574;
10665   t7136 = -0.6e1 * t7119 + 0.54e2 * t7122 - t7124 - 0.96e2 * t7126 + t7128 - t7129 + t7130 - t1826 + 0.48e2 * t7132 - t7134 - t7135 + t1834;
10666   t7137 = t46 * t7136;
10667   t7142 = t790 * t2036;
10668   t7154 = t2152 * t472;
10669   t7165 = t7137 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t2153 * t2041 - 0.3e1 / 0.50e2 * t591 * t7142 - 0.3e1 / 0.100e3 * t2157 * t476 + 0.3e1 / 0.50e2 * t2157 * t79 * t472 * t81 - t270 * t7136 * t81 / 0.100e3 + t797 * t7154 * t81 / 0.100e3 + t797 * t593 * t2036 / 0.50e2 - t2512 * t2156 * t472 * t81 / 0.100e3;
10670   t7166 = t84 * t7165;
10671   t7173 = t6226 * t482;
10672   t7185 = t482 * t2245;
10673   t7187 = 0.10387257808256e2 * t6914;
10674   t7188 = 0.266733300e2 * t6920;
10675   t7189 = 0.462337720e2 * t6924;
10676   t7190 = 0.213386640e2 * t6929;
10677   t7191 = 0.95484470551056e2 * t6934;
10678   t7192 = 0.151183745039172e3 * t6939;
10679   t7193 = 0.63656313700704e2 * t6944;
10680   t7194 = 0.383142419745360e3 * t6949;
10681   t7195 = 0.8004e1 * t6847;
10682   t7196 = 0.18676e2 * t6854;
10683   t7198 = 0.10672e2 * t6861;
10684   t7199 = 0.13957877679844e2 * t6694;
10685   t7200 = 0.31828156850352e2 * t6697;
10686   t7201 = 0.191571209872680e3 * t6700;
10687   t7202 = 0.290259408898000e3 * t6702;
10688   t7203 = 0.116103763559200e3 * t6707;
10689   t7204 = 0.186479588735370e3 * t6709;
10690   t7205 = 0.275279392895070e3 * t6711;
10691   t7206 = 0.133366650e2 * t6713;
10692   t7207 = 0.231168860e2 * t6715;
10693   t7208 = 0.106693320e2 * t6717;
10694   t7209 = -t7198 + t7199 - t7200 + t7201 - t7202 + t7203 - t7204 + t7205 - t7206 + t7207 - t7208;
10695   t7211 = 0.47742235275528e2 * t6719;
10696   t7212 = 0.75591872519586e2 * t6721;
10697   t7213 = 0.5193628904128e1 * t6724;
10698   t7214 = 0.106559764991640e3 * t6727;
10699   t7215 = 0.71765856092574e2 * t6729;
10700   t7216 = 0.104130850016676e3 * t6731;
10701   t7217 = 0.39400862168472e2 * t6733;
10702   t7218 = 0.9738054195240e1 * t6735;
10703   t7223 = 0.4002e1 * t6562;
10704   t7224 = 0.9338e1 * t6568;
10705   t7225 = 0.5336e1 * t6574;
10706   t7226 = t6245 * t461;
10707   t7229 = t6255 * t461;
10708   t7232 = t6241 * t461;
10709   t7243 = 0.32016e2 * t7132 - t7223 + t7224 - t7225 - 0.5114868719598720e4 * t5518 * t7226 + 0.1491836709882960e4 * t3729 * t7229 + 0.1148253697481184e4 * t3760 * t7232 - 0.185023029709560e3 * t3729 * t7226 - 0.533466600e2 * t3812 * t7121 + 0.1920479760e3 * t3818 * t7125 - 0.334195646928696e3 * t3712 * t7125;
10710   t7254 = t6356 * t461;
10711   t7261 = t6373 * t461;
10712   t7266 = t6286 * t461;
10713   t7284 = -0.2424234653559810e4 * t3747 * t7266 + 0.5993986780779750e4 * t3753 * t7232 + 0.853546560e2 * t3688 * t7266 - 0.954844705510560e3 * t5371 * t7266 + 0.318281568503520e3 * t3747 * t7232 + 0.4528046778808800e4 * t5398 * t7232 - 0.1393245162710400e4 * t3760 * t7226 - t1869 + t1875 - t1884 + t1890;
10714   t7288 = 0.232207527118400e3 * t6989;
10715   t7289 = 0.372959177470740e3 * t6994;
10716   t7290 = 0.550558785790140e3 * t6998;
10717   t7291 = 0.213119529983280e3 * t7005;
10718   t7292 = 0.143531712185148e3 * t7010;
10719   t7293 = 0.208261700033352e3 * t7014;
10720   t7294 = 0.78801724336944e2 * t7019;
10721   t7295 = 0.19476108390480e2 * t7025;
10722   t7296 = 0.27915755359688e2 * t7030;
10723   t7297 = 0.580518817796000e3 * t7034;
10724   t7298 = -0.4002e1 * t7119 + t7288 - t7289 + t7290 - t7291 + t7292 - t7293 + t7294 - t7295 + t7296 - t7297;
10725   t7302 = t6497 * t472;
10726   t7305 = t1775 * t2036;
10727   t7310 = t6506 * t472;
10728   t7321 = my_piecewise3(t92, -t1936 + t1921 - t1973 + t1975 + t7284 + t7298 - 0.64032e2 * t7126 + t7243 - t7216 + t7217 - t7218 + t7212 - t7213 - t7214 + t7215 + t7209 - t7211 - 0.342779507672448e3 * t5479 * t7254 + 0.93485320274304e2 * t6916 * t7261 + 0.1915712098726800e4 * t3688 * t7131 - 0.5015682585757440e4 * t3740 * t7266 + 0.966780264329442e3 * t3768 * t7131 - 0.2240559720e3 * t5432 * t7131 - 0.2735545573411056e4 * t3722 * t7226 + 0.2245849143602904e4 * t5540 * t7229 - 0.630413794695552e3 * t7021 * t7254 + 0.429448190010084e3 * t3735 * t7229 + t1951 + 0.36018e2 * t7122 + t1899 - t1905 - t1914 - t1945 + t1930 - t7193 + t7194 - t7195 + t7196 - t7190 - t7191 + t7192 - t7187 - t7188 + t7189, t416 * t417 * t7136 * t174 - 0.4e1 * t1496 * t7305 - 0.2e1 * t1496 * t7310 - 0.2e1 * t1504 * t7305 - t1504 * t7310 + 0.6e1 * t4130 * t7302 + 0.6e1 * t4138 * t7302 + t4150 * t7302);
10729   t7324 = 0.24e2 * t6115 * t7092 - 0.16e2 * t1537 * t7095 - 0.16e2 * t6122 * t7098 + 0.8e1 * t667 * t2135 * t566 - 0.4e1 * t667 * t7092 + 0.4e1 * t205 * t7098 - 0.2e1 * t205 * t7108 - 0.4e1 * t1537 * t7111 + 0.2e1 * t205 * t7114 * t177 + 0.2e1 * t205 * t7166 * t177 - 0.2e1 * t205 * t2167 * t566 + 0.8e1 * t1537 * t7173 - 0.4e1 * t205 * t2022 * t643 - 0.4e1 * t205 * t2052 * t643 - 0.4e1 * t205 * t597 * t2123 - t205 * t7185 - t91 * t7321 + 0.1174e1 * t7321;
10730   t7325 = t7 * t7324;
10731   t7326 = t7325 * t195;
10732   t7329 = t574 * t2249;
10733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10734     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t201 * t7326 + 0.92773125000000000000e0 * t7329 * t580;
10735 
10736   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10737     v3lapl3[0] = 0.0e0;
10738 
10739   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10740     v3lapl2tau[0] = 0.0e0;
10741 
10742   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10743     v3lapltau2[0] = 0.0e0;
10744 
10745   t7332 = t85 * t84;
10746   t7333 = t2134 * t596;
10747   t7334 = t7332 * t7333;
10748   t7338 = t84 * t7333;
10749   t7342 = t1538 * t2166;
10750   t7350 = t2134 * t643;
10751   t7353 = t2142 * t583;
10752   t7354 = t33 * t7353;
10753   t7355 = t7354 * t75;
10754   t7357 = t468 * t7353;
10755   t7358 = t3389 * t7357;
10756   t7360 = 0.18e2 * t6847;
10757   t7361 = t1828 * t7353;
10758   t7362 = t5019 * t7361;
10759   t7364 = 0.42e2 * t6854;
10760   t7365 = t347 * t7353;
10761   t7366 = t2741 * t7365;
10762   t7368 = 0.24e2 * t6861;
10763   t7369 = -0.6e1 * t7355 + 0.54e2 * t7358 - t7360 - 0.96e2 * t7362 + t7364 - t1826 + 0.48e2 * t7366 - t7368 + t1834;
10764   t7370 = t46 * t7369;
10765   t7374 = t77 * t590 * t81;
10766   t7377 = t2156 * t590;
10767   t7378 = t46 * t7377;
10768   t7393 = t7370 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t2153 * t7374 - 0.3e1 / 0.100e3 * t7378 * t81 + 0.3e1 / 0.50e2 * t7378 * t2502 - t270 * t7369 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t2152 * t590 * t81 - t2512 * t7377 * t81 / 0.100e3;
10769   t7394 = t84 * t7393;
10770   t7404 = 0.15580886712384e2 * t6914;
10771   t7405 = 0.400099950e2 * t6920;
10772   t7406 = 0.693506580e2 * t6924;
10773   t7407 = 0.320079960e2 * t6929;
10774   t7408 = 0.143226705826584e3 * t6934;
10775   t7409 = 0.226775617558758e3 * t6939;
10776   t7410 = 0.95484470551056e2 * t6944;
10777   t7411 = 0.574713629618040e3 * t6949;
10778   t7412 = 0.12006e2 * t6847;
10779   t7413 = 0.28014e2 * t6854;
10780   t7414 = 0.16008e2 * t6861;
10781   t7416 = t493 * t7353;
10782   t7419 = t506 * t7353;
10783   t7422 = t1878 * t7353;
10784   t7425 = -t7404 - t7405 + t7406 - t7407 - t7408 + t7409 - t7410 + t7411 - t7412 + t7413 - t7414 - 0.4002e1 * t7355 + 0.1920479760e3 * t3817 * t7416 + 0.966780264329442e3 * t3767 * t7419 - 0.2240559720e3 * t5431 * t7422;
10785   t7426 = t357 * t7353;
10786   t7429 = t1893 * t7353;
10787   t7432 = t366 * t7353;
10788   t7435 = t1908 * t7353;
10789   t7438 = t375 * t7353;
10790   t7441 = t1924 * t7353;
10791   t7444 = t386 * t7353;
10792   t7447 = t168 * t7353;
10793   t7450 = t104 * t7353;
10794   t7453 = t117 * t7353;
10795   t7456 = t545 * t7353;
10796   t7459 = t558 * t7353;
10797   t7462 = t128 * t7353;
10798   t7465 = t141 * t7353;
10799   t7468 = t155 * t7353;
10800   t7471 = t1939 * t7353;
10801   t7474 = 0.853546560e2 * t2749 * t7426 - 0.954844705510560e3 * t5370 * t7429 + 0.318281568503520e3 * t2759 * t7432 + 0.4528046778808800e4 * t5397 * t7435 - 0.1393245162710400e4 * t2767 * t7438 - 0.5114868719598720e4 * t5517 * t7441 + 0.1491836709882960e4 * t2710 * t7444 - 0.185023029709560e3 * t2710 * t7447 - 0.533466600e2 * t2733 * t7450 - 0.334195646928696e3 * t2741 * t7453 - 0.2735545573411056e4 * t3721 * t7456 + 0.429448190010084e3 * t3734 * t7459 + 0.1915712098726800e4 * t2749 * t7462 - 0.2424234653559810e4 * t2759 * t7465 + 0.1148253697481184e4 * t2767 * t7468 + 0.2245849143602904e4 * t5539 * t7471;
10802   t7476 = t4055 * t7353;
10803   t7479 = t1958 * t7353;
10804   t7482 = t6671 * t7353;
10805   t7485 = t519 * t7353;
10806   t7488 = t532 * t7353;
10807   t7494 = -0.630413794695552e3 * t6659 * t7476 - 0.342779507672448e3 * t5478 * t7479 + 0.93485320274304e2 * t6668 * t7482 - 0.5015682585757440e4 * t3739 * t7485 + 0.5993986780779750e4 * t3752 * t7488 + 0.36018e2 * t7358 - 0.64032e2 * t7362 + 0.32016e2 * t7366 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921;
10808   t7495 = 0.348311290677600e3 * t6989;
10809   t7496 = 0.559438766206110e3 * t6994;
10810   t7497 = 0.825838178685210e3 * t6998;
10811   t7498 = 0.319679294974920e3 * t7005;
10812   t7499 = 0.215297568277722e3 * t7010;
10813   t7500 = 0.312392550050028e3 * t7014;
10814   t7501 = 0.118202586505416e3 * t7019;
10815   t7502 = 0.29214162585720e2 * t7025;
10816   t7503 = 0.41873633039532e2 * t7030;
10817   t7504 = 0.870778226694000e3 * t7034;
10818   t7505 = t1930 - t1936 - t1945 + t1951 - t1973 + t1975 + t7495 - t7496 + t7497 - t7498 + t7499 - t7500 + t7501 - t7502 + t7503 - t7504;
10819   t7512 = t1775 * t2152;
10820   t7528 = my_piecewise3(t92, t7425 + t7474 + t7494 + t7505, 0.6e1 * t1137 * t3211 * t7377 * t174 + 0.6e1 * t416 * t1139 * t7377 * t174 + t3222 * t3224 * t7377 * t174 + t416 * t417 * t7369 * t174 - 0.6e1 * t1496 * t7512 - 0.3e1 * t1504 * t7512);
10821   t7531 = 0.48e2 * t2289 * t7334 * t177 - 0.24e2 * t667 * t7338 * t177 - 0.24e2 * t6122 * t7342 + 0.24e2 * t667 * t2135 * t643 + 0.6e1 * t205 * t7342 - 0.6e1 * t205 * t7350 + 0.2e1 * t205 * t7394 * t177 - 0.6e1 * t205 * t2167 * t643 - 0.6e1 * t205 * t597 * t2245 - t91 * t7528 + 0.1174e1 * t7528;
10822   t7532 = t7 * t7531;
10823   t7533 = t7532 * t195;
10824   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10825     v3tau3[0] = -0.3e1 / 0.8e1 * t201 * t7533;
10826 
10827 #ifndef XC_DONT_COMPILE_LXC
10828 
10829   if(order < 4) return;
10830 
10831 
10832   t7558 = t202 / t2287 / t86;
10833   t7559 = t668 * t668;
10834   t7569 = t804 * t804;
10835   t7583 = 0.1e1 / t17 / t144;
10836   t7584 = sigma[0] * t7583;
10837   t7587 = t9 * t131;
10838   t7609 = t218 * t218;
10839   t7611 = t2320 * t25 / t7609;
10840   t7618 = t801 * t801;
10841   t7625 = t116 * t2405;
10842   t7627 = t2427 * t7625 * t263;
10843   t7631 = t2427 * t127 * t751 * t781;
10844   t7635 = t2275 * t58 * t467 * t743;
10845   t7637 = t768 * t2445;
10846   t7641 = t18 * t58 * t244 * t247;
10847   t7643 = t761 * t67;
10848   t7644 = t7643 * t729;
10849   t7646 = t103 * t2405;
10850   t7648 = t727 * t7646 * t238;
10851   t7651 = t727 * t2451 * t781;
10852   t7653 = t768 * t2448;
10853   t7655 = t2437 * t2452;
10854   t7657 = t2437 * t2455;
10855   t7660 = t230 * t67 * t2429;
10856   t7664 = t242 * t2340 * t244 * t247;
10857   t7666 = t74 * t2397;
10858   t7668 = t1205 * t7666 * t238;
10859   t7670 = t103 * t2397;
10860   t7672 = t727 * t7670 * t263;
10861   t7675 = t107 * t57 * t101;
10862   t7676 = t74 * t218;
10863   t7678 = t7675 * t7676 * t238;
10864   t7680 = -0.8e1 * t7627 + 0.36e2 * t7631 - 0.2888e4 * t7635 + 0.360e3 * t7637 + 0.4264e4 / 0.9e1 * t7641 + 0.720e3 * t7644 + 0.12e2 * t7648 + 0.18e2 * t7651 - 0.360e3 * t7653 + 0.180e3 * t7655 + 0.180e3 * t7657 - 0.120e3 * t7660 + 0.36e2 * t7664 - 0.24e2 * t7668 + 0.12e2 * t7672 + 0.3240e4 * t7678;
10865   t7682 = t103 * t218;
10866   t7684 = t2419 * t101 * t7682 * t263;
10867   t7687 = t727 * t2876 * t751;
10868   t7689 = t2437 * t2424;
10869   t7692 = t1205 * t2950 * t751;
10870   t7695 = t727 * t1039 * t2348;
10871   t7698 = t1205 * t2444 * t781;
10872   t7701 = t32 * t2340 * t75;
10873   t7704 = rho[0] * t58 * t75;
10874   t7706 = t781 * t781;
10875   t7708 = t59 * t750 * t7706;
10876   t7710 = t2368 * t717;
10877   t7712 = t704 * t752;
10878   t7714 = t230 * t2406;
10879   t7716 = t736 * t736;
10880   t7718 = t715 * t75 * t7716;
10881   t7721 = t144 * t58 * t2421;
10882   t7723 = t230 * t2349;
10883   t7726 = t751 * t751;
10884   t7728 = t59 * t67 * t140 * t7726;
10885   t7730 = t2362 * t239;
10886   t7732 = -0.1080e4 * t7684 - 0.36e2 * t7687 - 0.360e3 * t7689 - 0.72e2 * t7692 + 0.72e2 * t7695 + 0.36e2 * t7698 - 0.120e3 * t7701 - 0.120e3 * t7704 - 0.6e1 * t7708 - 0.720e3 * t7710 - 0.240e3 * t7712 + 0.20e2 * t7714 - 0.18e2 * t7718 + 0.6480e4 * t7721 + 0.120e3 * t7723 - 0.24e2 * t7728 - 0.720e3 * t7730;
10887   t7734 = t2344 * t264;
10888   t7736 = t761 * t737;
10889   t7738 = t704 * t782;
10890   t7740 = t259 * t2416;
10891   t7742 = t3354 * t737;
10892   t7744 = t2341 * t264;
10893   t7750 = my_piecewise3(t55, 0.6160e4 / 0.81e2 * tau[0] * t2300 - 0.2618e4 / 0.81e2 * t7584, 0);
10894   t7752 = t233 * t75 * t7750;
10895   t7788 = 0.108e3 * t672 * t716 * t778 - 0.864e3 * t34 * t56 * t467 * t238 * t218 - 0.1888e4 / 0.27e2 * rho[0] * t57 * t261 + 0.664e3 * t18 * t57 * t778 - 0.88e2 * t68 * t716 * t261 + 0.6e1 * t69 * t7716 * t71 + 0.8e1 * t2377 * t2398 + 0.2e1 * t255 * t71 * t7750 + 0.280e3 / 0.81e2 * t651 * t57 * t71 + 0.2240e4 / 0.27e2 * t9 * t56 * t256 + 0.280e3 / 0.3e1 * t186 * t716 * t71;
10896   t7805 = t32 * t238;
10897   t7806 = t7805 * t67;
10898   t7827 = 0.280e3 / 0.3e1 * t2359 * t773 + 0.80e2 * t251 * t238 * t773 + 0.80e2 / 0.3e1 * t758 * t2398 - 0.1872e4 * t2275 * t57 * t2402 - 0.88e2 * t2369 * t2390 + 0.864e3 * t206 * t56 * t244 * t2386 - 0.24e2 * t7806 * t2390 + 0.108e3 * t2384 * t736 * t10 * t28 - 0.8e1 * t768 * t2397 * t26 * t13 + 0.270e3 * t144 * t57 * t101 * t218 * t26 * t13 - 0.2144e4 / 0.9e1 * t16 * t56 * t67 * t770;
10899   t7828 = t7788 + t7827;
10900   t7830 = t59 * t250 * t7828;
10901   t7831 = t710 * t2459;
10902   t7835 = t245 * t329 * t13 * t2348;
10903   t7837 = t263 * t736;
10904   t7839 = t1205 * t728 * t7837;
10905   t7841 = t2434 * t747;
10906   t7843 = t2466 * t2478;
10907   t7845 = t710 * t2463;
10908   t7848 = t721 * t7666 * t723;
10909   t7850 = t17 * t107;
10910   t7854 = t7850 * t58 * t308 * t7676 * t723;
10911   t7856 = t28 * t751;
10912   t7858 = t741 * t992 * t7856;
10913   t7860 = 0.240e3 * t7734 - 0.360e3 * t7736 + 0.120e3 * t7738 - 0.60e2 * t7740 - 0.36e2 * t7742 + 0.24e2 * t7744 - 0.3e1 * t7752 + t7830 + 0.192e3 * t7831 - 0.36e2 * t7835 + 0.72e2 * t7839 - 0.1256e4 / 0.3e1 * t7841 + 0.288e3 * t7843 - 0.96e2 * t7845 + 0.18e2 * t7848 - 0.810e3 * t7854 - 0.216e3 * t7858;
10914   t7861 = t28 * t781;
10915   t7863 = t741 * t985 * t7861;
10916   t7865 = t2401 * t467;
10917   t7866 = t7865 * t2484;
10918   t7868 = t2441 * t2488;
10919   t7870 = t211 * t56;
10920   t7871 = t7870 * t467;
10921   t7873 = t7871 * t2473 * t2483;
10922   t7876 = t2482 * t2477 * t2483;
10923   t7878 = t263 * t781;
10924   t7880 = t727 * t1034 * t7878;
10925   t7883 = t245 * t7646 * t723;
10926   t7885 = t2374 * t244;
10927   t7886 = t7885 * t724;
10928   t7888 = t2384 * t2474;
10929   t7890 = t244 * t116;
10930   t7892 = t723 * t7878;
10931   t7893 = t243 * t7890 * t7892;
10932   t7895 = t2389 * t746;
10933   t7896 = t2336 * t7895;
10934   t7898 = t769 * t2462;
10935   t7899 = t2336 * t7898;
10936   t7901 = t2481 * t468;
10937   t7902 = t2385 * t2487;
10938   t7903 = t7901 * t7902;
10939   t7906 = t769 * t13 * t736;
10940   t7907 = t3321 * t7906;
10941   t7909 = t776 * t2335;
10942   t7910 = t7909 * t2337;
10943   t7912 = t2471 * t2335;
10944   t7914 = t716 * t26 * t746;
10945   t7915 = t7912 * t7914;
10946   t7917 = t720 * t7890;
10947   t7918 = t769 * t2458;
10948   t7919 = t7917 * t7918;
10949   t7921 = 0.108e3 * t7863 - 0.3672e4 * t7866 + 0.1224e4 * t7868 - 0.648e3 * t7873 - 0.324e3 * t7876 - 0.72e2 * t7880 - 0.6e1 * t7883 + 0.1256e4 * t7886 + 0.576e3 * t7888 + 0.36e2 * t7893 - 0.54e2 * t7896 - 0.54e2 * t7899 + 0.648e3 * t7903 + 0.108e3 * t7907 - 0.576e3 * t7910 - 0.108e3 * t7915 + 0.108e3 * t7919;
10950   t7923 = t7680 + t7732 + t7860 + t7921;
10951   t7931 = t784 * t784;
10952   t7937 = t788 * t788;
10953   t7938 = t46 * t7937;
10954   t7941 = t796 * t81;
10955   t7958 = t46 * t3210;
10956   t7962 = 0.9163e4 / 0.65610e5 * t47 * t38 * t7583 + t46 * t7923 * t81 / 0.100e3 - 0.3e1 / 0.25e2 * t2493 * t1248 - 0.9e1 / 0.50e2 * t785 * t798 - 0.9e1 / 0.100e3 * t46 * t7931 * t790 + 0.9e1 / 0.25e2 * t785 * t3448 + 0.3e1 / 0.20e2 * t7938 * t790 - t7938 * t7941 / 0.10e2 - t270 * t7923 * t81 / 0.100e3 + t797 * t2492 * t266 * t81 / 0.25e2 + 0.3e1 / 0.100e3 * t797 * t7931 * t81 - 0.3e1 / 0.50e2 * t2512 * t784 * t788 * t81 + t7958 * t7937 * t81 / 0.100e3;
10957   t7980 = t28 * t736;
10958   t8020 = -0.4331280491234172e4 * t1062 * t977 * t7861 - 0.20245414671903960000e4 * t3129 * t977 * t7980 + 0.67484715573013200000e3 * t976 * t3133 * t7861 - 0.859360234959504e3 * t1038 * t1017 * t7878 - 0.9195418073888640e4 * t1480 * t1017 * t7837 + 0.4179735488131200e4 * t1016 * t1024 * t7878 - 0.4795189424623800e4 * t1023 * t1029 * t7878 + 0.2127646557097488e4 * t1028 * t1078 * t7878 - 0.1920479760e3 * t1033 * t1039 * t7878 - 0.10082518740e4 * t3169 * t985 * t7980 + 0.3360839580e3 * t984 * t992 * t7861 - 0.48339013216472100000e4 * t3177 * t992 * t7980 + 0.24451452605567520e5 * t3182 * t1047 * t7980 - 0.8150484201855840e4 * t1046 * t1055 * t7861;
10959   t8030 = t324 * t110;
10960   t8031 = t8030 * t327;
10961   t8032 = t127 * t2340;
10962   t8036 = t140 * t2405;
10963   t8050 = t116 * t2397;
10964   t8054 = t127 * t2405;
10965   t8060 = t127 * t2397;
10966   t8064 = t306 * t58;
10967   t8065 = t8064 * t308;
10968   t8074 = -0.28771136547742800000e5 * t3110 * t1055 * t7980 + 0.95903788492476000000e4 * t1054 * t1063 * t7861 + 0.12993841473702516e5 * t3121 * t1063 * t7980 - 0.45977090369443200e5 * t8031 * t8032 * t723 + 0.139324516271040e3 * t328 * t8036 * t723 + 0.16113004405490700000e4 * t991 * t1047 * t7861 - 0.106693320e2 * t309 * t7625 * t723 + 0.49413213510171480000e4 * t3147 * t3152 - 0.16471071170057160000e4 * t1008 * t3155 + 0.10742002936993800000e3 * t901 * t8050 * t723 - 0.35806676456646000000e2 * t318 * t8054 * t723 - 0.25496386477600320000e5 * t3159 * t3165 - 0.417973548813120e3 * t906 * t8060 * t723 + 0.6401599200e3 * t8065 * t103 * t2340 * t723 + 0.4179735488131200e4 * t328 * t167 * t2348 * t723;
10969   t8076 = t280 * t122;
10970   t8077 = t8076 * t282;
10971   t8078 = t140 * t2340;
10972   t8089 = t288 * t134;
10973   t8090 = t8089 * t291;
10974   t8091 = t154 * t2340;
10975   t8109 = t314 * t97;
10976   t8110 = t8109 * t317;
10977   t8111 = t116 * t2340;
10978   t8123 = t2798 * t361 * t282;
10979   t8132 = 0.72727039606794300000e5 * t8077 * t8078 * t723 + 0.11188775324122200e5 * t1417 * t1024 * t7837 - 0.55943876620611000000e4 * t283 * t385 * t2348 * t723 - 0.41337133109322624e5 * t8090 * t8091 * t723 - 0.5167141638665328e4 * t1432 * t1029 * t7837 + 0.2836862076129984e4 * t292 * t825 * t2348 * t723 + 0.3200799600e3 * t1462 * t1034 * t7837 - 0.1280319840e3 * t309 * t140 * t2348 * t723 + 0.60155216447165280000e4 * t8110 * t8111 * t723 + 0.1718720469919008e4 * t1407 * t1039 * t7837 - 0.71613352913292000000e3 * t318 * t154 * t2348 * t723 + 0.73916956982534280000e6 * t8123 * t868 - 0.24638985660844760000e6 * t2800 * t871 + 0.42517346231664360000e6 * t3999 * t3066 + 0.13524627374057788800e6 * t2896 * t879;
10980   t8139 = t297 * t148;
10981   t8140 = t8139 * t300;
10982   t8141 = t167 * t2340;
10983   t8150 = t2888 * t379 * t300;
10984   t8156 = t2894 * t370 * t291;
10985   t8160 = t2865 * t160 * t308;
10986   t8172 = t17 * t1365;
10987   t8175 = t127 * t218;
10988   t8179 = -0.23510494455927242400e6 * t4006 * t3055 - 0.32269306115978568000e5 * t1074 * t3058 + 0.43353817277208480000e5 * t4013 * t3012 + 0.77709672478015200000e4 * t8140 * t8141 * t723 + 0.49612393800000000000e4 * t3430 * t3037 + 0.99224787600000000000e3 * t1003 * t3040 + 0.74433141843123448000e5 * t8150 * t884 - 0.24811047281041149333e5 * t2890 * t888 - 0.40573882122173366400e6 * t8156 * t876 + 0.92752059520000000000e4 * t8160 * t893 - 0.30917353173333333333e4 * t2867 * t896 + 0.99224787600000000000e3 * t3080 * t3085 + 0.320079960e2 * t892 * t7670 * t723 + 0.60739066045234800000e5 * t1069 * t3069 + 0.10697510514935790000e6 * t8172 * t122 * t282 * t8175 * t723;
10989   t8182 = t17 * t1372;
10990   t8185 = t140 * t218;
10991   t8189 = t17 * t158;
10992   t8192 = t154 * t218;
10993   t8199 = t167 * t218;
10994   t8208 = t17 * t1334;
10995   t8211 = t116 * t218;
10996   t8223 = t2655 * t2348;
10997   t8231 = t167 * t2397;
10998   t8235 = t385 * t2405;
10999   t8241 = -0.14673279639348828000e6 * t8182 * t134 * t291 * t8185 * t723 + 0.75797408596598010000e5 * t8189 * t148 * t300 * t8192 * t723 - 0.13304129641536888000e5 * t17 * t1320 * t161 * t1957 * t8199 * t723 - 0.30247556220000000000e4 * t692 * t97 * t317 * t7682 * t723 - 0.17724304846039770000e5 * t8208 * t110 * t327 * t8211 * t723 + 0.817996552400160e3 * t1447 * t1078 * t7837 - 0.327198620960064e3 * t1077 * t2774 * t7878 + 0.57805089702944640000e4 * t998 * t3016 - 0.49079793144009600000e3 * t301 * t8223 * t723 + 0.21676908638604240000e4 * t3104 * t3072 - 0.72256362128680800000e3 * t998 * t3076 + 0.20449913810004000000e2 * t883 * t8231 * t723 - 0.68166379366680000000e1 * t301 * t8235 * t723 - 0.13829702621133672000e5 * t3092 * t3097;
11000   t8244 = t154 * t2397;
11001   t8248 = t167 * t2405;
11002   t8262 = t140 * t2397;
11003   t8266 = t154 * t2405;
11004   t8276 = 0.46099008737112240000e4 * t1074 * t3100 - 0.151974754078392e3 * t875 * t8244 * t723 + 0.50658251359464e2 * t292 * t8248 * t723 + 0.154254375389567880e6 * t1051 * t148 * t155 - 0.22405597200e4 * t144 * t97 * t104 + 0.30369533022617400000e5 * t3020 * t3028 - 0.10123177674205800000e5 * t1069 * t3088 + 0.39959911871865000000e3 * t866 * t8262 * t723 - 0.13319970623955000000e3 * t283 * t8266 * t723 - 0.5336e1 * t7627 + 0.24012e2 * t7631 - 0.19262960000000000000e4 * t7635 + 0.240120e3 * t7637 + 0.31600977777777777778e3 * t7641 + 0.480240e3 * t7644;
11005   t8293 = 0.8004e1 * t7648 + 0.12006e2 * t7651 - 0.240120e3 * t7653 + 0.120060e3 * t7655 + 0.120060e3 * t7657 - 0.80040e2 * t7660 + 0.24012000000000000000e2 * t7664 - 0.16008e2 * t7668 + 0.8004e1 * t7672 + 0.21610800000000000000e4 * t7678 - 0.72036000000000000000e3 * t7684 - 0.24012e2 * t7687 - 0.240120e3 * t7689 - 0.48024e2 * t7692 + 0.48024e2 * t7695;
11006   t8324 = t1334 * t351;
11007   t8333 = 0.24012e2 * t7698 - 0.5805188177960e1 * t123 * t357 * t7828 + 0.29575388304000000000e5 * t981 * t97 * t2689 + 0.18905925169109088000e6 * t120 * t110 * t2694 - 0.11981211776728084800e7 * t1043 * t122 * t2666 + 0.16955789805469756800e7 * t1051 * t134 * t2674 - 0.89513130152172888000e6 * t1059 * t148 * t2679 + 0.15964955569844265600e6 * t973 * t161 * t2684 + 0.355644400e2 * t391 * t2642 - 0.26673330e1 * t335 * t104 * t7750 + 0.8891110e0 * t98 * t339 * t7828 + 0.476489845646956800e6 * t8324 * t353 - 0.158829948548985600e6 * t2549 * t358 + 0.39707487137246400e5 * t2697 * t967 - 0.13235829045748800e5 * t918 * t970;
11008   t8352 = t1372 * t370;
11009   t8359 = t107 * t160;
11010   t8370 = 0.1393245162710400e4 * t961 * t2623 - 0.464415054236800e3 * t398 * t2626 + 0.17415564533880e2 * t352 * t128 * t7750 + 0.119355588188820e3 * t394 * t2589 - 0.5967779409441e1 * t343 * t117 * t7750 + 0.1989259803147e1 * t111 * t347 * t7828 + 0.411345001038847680e6 * t8352 * t372 - 0.137115000346282560e6 * t2558 * t376 + 0.22036339341366840e5 * t2592 * t846 - 0.76819190400e4 * t8359 * t336 + 0.25606396800e4 * t2552 * t340 - 0.14403598200e4 * t2629 * t944 + 0.4801199400e3 * t930 * t947 - 0.1066933200e3 * t939 * t2639;
11011   t8376 = t158 * t379;
11012   t8392 = t526 * t109;
11013   t8403 = -0.80040e2 * t7701 - 0.80040e2 * t7704 - 0.1407173648874e1 * t149 * t375 * t7828 - 0.76482677649414960e5 * t8376 * t381 + 0.25494225883138320e5 * t2562 * t387 - 0.3476485347700680e4 * t2609 * t859 + 0.1158828449233560e4 * t927 * t936 - 0.68166379366680e2 * t852 * t2618 + 0.22722126455560e2 * t411 * t2568 - 0.486902709762e0 * t380 * t168 * t7750 - 0.65168151151095720e5 * t8392 * t344 + 0.21722717050365240e5 * t2555 * t348 - 0.7519402055895660e4 * t2645 * t955 + 0.2506467351965220e4 * t915 * t958 - 0.358066764566460e3 * t950 * t2586;
11014   t8420 = t1365 * t361;
11015   t8440 = 0.4439990207985e1 * t135 * t366 * t7828 - 0.7345446447122280e4 * t924 * t849 + 0.506582513594640e3 * t841 * t2603 - 0.168860837864880e3 * t407 * t2606 + 0.4221520946622e1 * t371 * t155 * t7750 + 0.162300903254e0 * t162 * t386 * t7828 - 0.735262378442316000e6 * t8420 * t363 + 0.245087459480772000e6 * t2565 * t367 - 0.47951894246238000e5 * t2571 * t835 + 0.15983964748746000e5 * t921 * t838 - 0.1331997062395500e4 * t830 * t2580 + 0.443999020798500e3 * t402 * t2583 - 0.13319970623955e2 * t362 * t141 * t7750 + 0.18647958873537000e5 * t402 * t2764 - 0.21338664000e4 * t3330 * t2734;
11016   t8441 = t95 * t57;
11017   t8442 = t716 * t716;
11018   t8448 = t121 * t109;
11019   t8460 = t132 * t351;
11020   t8477 = t108 * t160;
11021   t8487 = -0.1600399800e3 * t8441 * t104 * t8442 + 0.153256967898144000e6 * t4079 * t2750 + 0.17241408888541200e5 * t8448 * t128 * t8442 - 0.13932451627104000e5 * t398 * t2754 + 0.1219089517371600e4 * t123 * t125 * t385 * t7726 - 0.242423465355981000e6 * t4092 * t2760 - 0.29090815842717720e5 * t8460 * t141 * t8442 + 0.66179145228744000e5 * t918 * t1084 + 0.574713629618040e3 * t1119 * t128 * t7716 + 0.4267732800e3 * t391 * t2738 - 0.533466600e2 * t98 * t101 * t154 * t7726 - 0.20051738815721760e5 * t4065 * t2742 - 0.2005173881572176e4 * t8477 * t117 * t8442 + 0.2387111763776400e4 * t394 * t2746 - 0.238711176377640e3 * t111 * t114 * t167 * t7726;
11022   t8501 = t146 * t361;
11023   t8530 = -0.23871117637764e2 * t111 * t1115 * t7706 - 0.72017991000e4 * t3419 * t1104 - 0.1491836709882960e4 * t135 * t138 * t825 * t7726 + 0.137790443697742080e6 * t4105 * t2768 + 0.17223805462217760e5 * t8501 * t155 * t8442 - 0.9456206920433280e4 * t407 * t2718 + 0.709215519032496e3 * t149 * t152 * t2655 * t7726 + 0.436782358509710400e6 * t3978 * t1120 + 0.87077822669400e2 * t123 * t1083 * t7706 - 0.60155216447165280e5 * t3967 * t1112 - 0.10025869407860880e5 * t915 * t1116 - 0.143226705826584e3 * t1111 * t117 * t7716 - 0.80019990e1 * t98 * t1107 * t7706 + 0.374617768803236280e6 * t3959 * t1096 + 0.51418125129855960e5 * t924 * t1100;
11024   t8538 = t159 * t370;
11025   t8570 = -0.14403598200e4 * t930 * t1108 - 0.400099950e2 * t1103 * t104 * t7716 - 0.25903224159338400e5 * t4118 * t2711 - 0.3330414534772080e4 * t8538 * t168 * t8442 - 0.29214162585720e2 * t819 * t168 * t7716 - 0.9270627593868480e4 * t927 * t827 + 0.1635993104800320e4 * t411 * t2657 - 0.269596205428849200e6 * t1043 * t134 * t141 + 0.215297568277722e3 * t1095 * t155 * t7716 + 0.29550646626354e2 * t149 * t1099 * t7706 - 0.69529706954013600e5 * t3984 * t820 - 0.79919823743730e2 * t135 * t1091 * t7706 - 0.3895221678096e1 * t162 * t826 * t7706 - 0.671326519447332000e6 * t3948 * t1088 - 0.95903788492476000e5 * t921 * t1092;
11026   t8576 = 0.1e1 / t384 / t115;
11027   t8582 = t2314 * t109 * t317;
11028   t8597 = t2907 * t370 * t544;
11029   t8600 = t1060 * t147;
11030   t8601 = t8600 * t544;
11031   t8602 = t28 * t716;
11032   t8612 = t2912 * t379 * t557;
11033   t8615 = t974 * t541;
11034   t8616 = t8615 * t557;
11035   t8622 = -0.559438766206110e3 * t1087 * t141 * t7716 - 0.116856650342880e3 * t162 * t165 * t8576 * t7726 + 0.70873348266521316000e5 * t8582 * t902 + 0.39530570808137184000e5 * t4028 * t3045 - 0.23624449422173772000e5 * t2939 * t862 + 0.65884284680228640000e4 * t1008 * t3061 + 0.49230611426137680000e6 * t2904 * t3115 - 0.57542273095485600000e5 * t1054 * t977 * t7856 + 0.79695561038708764800e6 * t8597 * t3122 + 0.220895305052942772e6 * t8601 * t1063 * t8602 - 0.26565187012902921600e6 * t2909 * t3125 + 0.30318963438639204e5 * t1062 * t3133 * t7856 - 0.14441729132624824800e6 * t8612 * t3130 - 0.40490829343807920000e5 * t8616 * t977 * t8602 + 0.48139097108749416000e5 * t2914 * t3134;
11036   t8633 = t2963 * t109 * t505;
11037   t8636 = t989 * t133;
11038   t8637 = t8636 * t505;
11039   t8642 = t2968 * t351 * t518;
11040   t8645 = t1044 * t502;
11041   t8646 = t8645 * t518;
11042   t8656 = t2902 * t361 * t531;
11043   t8659 = t1052 * t515;
11044   t8660 = t8659 * t531;
11045   t8665 = t2958 * t160 * t492;
11046   t8668 = t982 * t96;
11047   t8669 = t8668 * t492;
11048   t8677 = -0.53987772458410560000e4 * t976 * t825 * t10 * t7856 + 0.71697911040000000000e4 * t2960 * t3173 - 0.10082518740e4 * t984 * t1047 * t7856 - 0.15146224141161258000e6 * t8633 * t3178 - 0.38671210573177680000e5 * t8637 * t992 * t8602 + 0.10106600410301241600e7 * t8642 * t3183 + 0.268965978661242720e6 * t8646 * t1047 * t8602 - 0.33688668034337472000e6 * t2970 * t3186 + 0.40752421009279200e5 * t1046 * t1063 * t7856 - 0.14769183427841304000e7 * t8656 * t3112 - 0.40279591166839920000e6 * t8660 * t1055 * t8602 - 0.21509373312000000000e5 * t8665 * t3170 - 0.50412593700e4 * t8669 * t985 * t8602 - 0.28046025125360352000e6 * t3992 * t3050 + 0.16437196819621141333e6 * t2919 * t910;
11049   t8694 = t2917 * t351 * t327;
11050   t8705 = -0.42493977462667200000e5 * t1013 * t3031 + 0.84987954925334400000e4 * t1013 * t3137 + 0.50487413803870860000e5 * t2965 * t3140 - 0.64452017621962800000e4 * t991 * t1055 * t7856 - 0.33074929200000000000e3 * t1003 * t3143 - 0.49311590458863424000e6 * t8694 * t907 - 0.4002e1 * t7708 - 0.480240e3 * t7710 - 0.160080e3 * t7712 + 0.13340e2 * t7714 - 0.12006e2 * t7718 + 0.43221600000000000000e4 * t7721 + 0.80040e2 * t7723 - 0.16008e2 * t7728;
11051   t8723 = t3048 * t1893;
11052   t8726 = t327 * t154;
11053   t8727 = t905 * t8726;
11054   t8730 = -0.480240e3 * t7730 + 0.160080e3 * t7734 - 0.240120e3 * t7736 + 0.80040e2 * t7738 - 0.40020e2 * t7740 - 0.24012e2 * t7742 + 0.16008e2 * t7744 - 0.2001e1 * t7752 + 0.667e0 * t7830 - 0.21722717050365240e5 * t981 * t110 * t117 - 0.29136258152158080e5 * t1059 * t161 * t168 + 0.12806400000000000000e3 * t7831 - 0.24012000000000000000e2 * t7835 + 0.55172508443331840e5 * t8723 * t7914 - 0.25078412928787200e5 * t8727 * t7918;
11055   t8732 = t282 * t167;
11056   t8733 = t865 * t8732;
11057   t8736 = t291 * t385;
11058   t8737 = t874 * t8736;
11059   t8740 = t308 * t127;
11060   t8741 = t891 * t8740;
11061   t8744 = t3168 * t493;
11062   t8747 = t3103 * t1939;
11063   t8750 = t300 * t825;
11064   t8751 = t882 * t8750;
11065   t8754 = t3176 * t506;
11066   t8757 = t3181 * t519;
11067   t8760 = t3109 * t532;
11068   t8763 = t317 * t140;
11069   t8764 = t900 * t8763;
11070   t8767 = t3146 * t1878;
11071   t8770 = t3120 * t545;
11072   t8773 = t3128 * t558;
11073   t8780 = 0.35963920684678500000e5 * t8733 * t7918 - 0.19148819013877392e5 * t8737 * t7918 + 0.5761439280e3 * t8741 * t7918 + 0.40330074960e4 * t8744 * t7902 - 0.30347672094045936000e5 * t8747 * t2337 + 0.34355855200806720000e4 * t8751 * t7918 + 0.29003407929883260000e5 * t8754 * t7902 - 0.195611620844540160e6 * t8757 * t7902 + 0.28771136547742800000e6 * t8760 * t7902 + 0.38671210573177680000e4 * t8764 * t7918 - 0.29647928106102888000e5 * t8767 * t2337 - 0.155926097684430192e6 * t8770 * t7902 + 0.28343580540665544000e5 * t8773 * t7902 + 0.4801199400e3 * t4060 * t7906 - 0.1920479760e3 * t2528 * t7895;
11074   t8781 = t3034 * t1828;
11075   t8784 = t3043 * t1878;
11076   t8787 = t3064 * t1908;
11077   t8790 = t3053 * t1924;
11078   t8802 = t3158 * t1893;
11079   t8819 = -0.9602398800e3 * t8781 * t7914 - 0.77342421146355360000e4 * t8784 * t7914 - 0.83915814930916500000e5 * t8787 * t7914 + 0.46504274747987952e5 * t8790 * t7914 + 0.25780807048785120000e4 * t4073 * t7906 - 0.96678026432944200000e3 * t2534 * t7895 - 0.96678026432944200000e3 * t2534 * t7898 + 0.42968011747975200000e3 * t315 * t8763 * t7892 + 0.20397109182080256000e6 * t8802 * t2337 - 0.13793127110832960e5 * t4087 * t7906 + 0.5015682585757440e4 * t2543 * t7895 + 0.5015682585757440e4 * t2543 * t7898 - 0.2089867744065600e4 * t325 * t8726 * t7892 - 0.1920479760e3 * t2528 * t7898 + 0.960239880e2 * t307 * t8740 * t7892;
11080   t8837 = 0.48024e2 * t7839 - 0.27925066666666666667e3 * t7841 + 0.19209600000000000000e3 * t7843 - 0.64032000000000000000e2 * t7845 + 0.12006000000000000000e2 * t7848 - 0.54027000000000000000e3 * t7854 - 0.14407200000000000000e3 * t7858 + 0.72036000000000000000e2 * t7863 - 0.24492240000000000000e4 * t7866 + 0.81640800000000000000e3 * t7868 - 0.43221600000000000000e3 * t7873 - 0.21610800000000000000e3 * t7876 - 0.48024e2 * t7880 - 0.40020000000000000000e1 * t7883 + 0.83775200000000000000e3 * t7886;
11081   t8839 = t3079 * t1828;
11082   t8847 = t3010 * t1939;
11083   t8859 = t3019 * t1908;
11084   t8871 = t3091 * t1924;
11085   t8874 = 0.38419200000000000000e3 * t7888 - 0.39689915040000000000e4 * t8839 * t2337 + 0.2735545573411056e4 * t2531 * t7898 - 0.1063823278548744e4 * t289 * t8736 * t7892 - 0.85889638002016800000e4 * t8847 * t7914 + 0.12269948286002400000e4 * t4045 * t7906 - 0.42944819001008400000e3 * t2540 * t7895 - 0.42944819001008400000e3 * t2540 * t7898 + 0.16359931048003200000e3 * t298 * t8750 * t7892 - 0.30369533022617400000e6 * t8859 * t2337 + 0.16783162986183300000e5 * t4100 * t7906 - 0.59939867807797500000e4 * t2537 * t7895 - 0.59939867807797500000e4 * t2537 * t7898 + 0.23975947123119000000e4 * t281 * t8732 * t7892 + 0.16595643145360406400e6 * t8871 * t2337;
11086   t8906 = -0.7750712457997992e4 * t4113 * t7906 + 0.2735545573411056e4 * t2531 * t7895 + 0.24012000000000000000e2 * t7893 - 0.36018000000000000000e2 * t7896 - 0.36018000000000000000e2 * t7899 + 0.43221600000000000000e3 * t7903 + 0.72036000000000000000e2 * t7907 - 0.38419200000000000000e3 * t7910 - 0.72036000000000000000e2 * t7915 + 0.72036000000000000000e2 * t7919 - 0.31042969163586072000e5 * t2682 * t1312 * t385 * t218 * t263 - 0.35448609692079540000e5 * t2692 * t125 * t8175 * t263 + 0.4267732800e3 * t3812 * t8111 * t263 - 0.3200799600e3 * t3812 * t2444 * t736 - 0.429680117479752e3 * t1038 * t2806 * t751;
11087   t8923 = t526 * t160 * t114;
11088   t8932 = t1334 * t109 * t125;
11089   t8937 = t1365 * t351 * t138;
11090   t8946 = t1372 * t361 * t152;
11091   t8955 = t158 * t370 * t165;
11092   t8964 = t1320 * t379 * t1312;
11093   t8968 = -0.4597709036944320e4 * t1480 * t2984 * t781 + 0.2089867744065600e4 * t1016 * t2810 * t751 - 0.2397594712311900e4 * t1023 * t2817 * t751 + 0.1063823278548744e4 * t1028 * t2840 * t751 - 0.960239880e2 * t1033 * t2852 * t751 + 0.161320299840e5 * t8923 * t7682 * t238 - 0.53773433280e4 * t2687 * t114 * t8211 * t263 + 0.10634582907623862000e6 * t8932 * t8211 * t238 - 0.684640672955890560e6 * t8937 * t8175 * t238 + 0.228213557651963520e6 * t2664 * t138 * t8185 * t263 + 0.97821864262325520000e6 * t8946 * t8185 * t238 - 0.32607288087441840000e6 * t2672 * t152 * t8192 * t263 - 0.519753658948100640e6 * t8955 * t8192 * t238 + 0.173251219649366880e6 * t2677 * t165 * t8199 * t263 + 0.93128907490758216000e5 * t8964 * t8199 * t238;
11094   t9013 = 0.859360234959504e3 * t1407 * t2954 * t781 + 0.238711176377640e3 * t2860 * t154 * t751 * t781 + 0.11494272592360800e5 * t3688 * t2954 * t736 - 0.1044933872032800e4 * t2934 * t167 * t751 * t781 + 0.48484693071196200e5 * t3747 * t8091 * t263 - 0.14545407921358860e5 * t3747 * t2984 * t736 + 0.5594387662061100e4 * t1417 * t2973 * t781 + 0.45977090369443200e5 * t1278 * t2925 - 0.16718941952524800e5 * t2922 * t2928 - 0.16718941952524800e5 * t2922 * t2931 + 0.6966225813552000e4 * t398 * t125 * t2935 + 0.766284839490720e3 * t1480 * t8060 * t238 - 0.278649032542080e3 * t1016 * t8262 * t263 + 0.1600399800e3 * t1462 * t2950 * t781;
11095   t9060 = 0.640159920e2 * t2884 * t140 * t751 * t781 + 0.4010347763144352e4 * t3712 * t8032 * t263 - 0.2005173881572176e4 * t3712 * t2950 * t736 + 0.1118877532412220e4 * t2793 * t385 * t751 * t781 - 0.27558088739548416e5 * t3760 * t8141 * t263 + 0.6889522184887104e4 * t3760 * t2973 * t736 - 0.2583570819332664e4 * t1432 * t2977 * t781 - 0.472810346021664e3 * t2824 * t3015 * t781 - 0.31828156850352e2 * t2860 * t8036 * t263 + 0.3222600881098140e4 * t2942 * t2857 - 0.1432267058265840e4 * t394 * t114 * t2862 - 0.190968941102112e3 * t1407 * t8050 * t238 + 0.71613352913292e2 * t1038 * t8060 * t263 + 0.107420029369938e3 * t1038 * t2852 * t781 + 0.71613352913292e2 * t1038 * t8054 * t238;
11096   t9100 = -0.417973548813120e3 * t1016 * t2806 * t781 - 0.278649032542080e3 * t1016 * t8036 * t238 + 0.116103763559200e3 * t2934 * t8266 * t263 - 0.8593602349595040e4 * t1271 * t2947 + 0.3222600881098140e4 * t2942 * t2853 + 0.25835708193326640e5 * t1294 * t2814 - 0.9118485244703520e4 * t2899 * t2818 - 0.9118485244703520e4 * t2899 * t2821 + 0.3546077595162480e4 * t407 * t152 * t2826 + 0.6401599200e3 * t2870 * t2877 + 0.6401599200e3 * t2870 * t2881 - 0.3200799600e3 * t391 * t101 * t2885 - 0.533466600e2 * t1462 * t7670 * t238 + 0.213386640e2 * t1033 * t8050 * t263 + 0.320079960e2 * t1033 * t2876 * t781;
11097   t9144 = 0.213386640e2 * t1033 * t7625 * t238 - 0.106693320e2 * t2884 * t8054 * t263 + 0.5180644831867680e4 * t3729 * t385 * t2340 * t263 - 0.1110138178257360e4 * t3729 * t2977 * t736 + 0.408998276200080e3 * t1447 * t2829 * t781 - 0.38952216780960e2 * t1447 * t1029 * t2397 + 0.13633275873336e2 * t1077 * t385 * t2397 * t263 + 0.20449913810004e2 * t1077 * t2840 * t781 + 0.13633275873336e2 * t1077 * t1078 * t2405 - 0.11451951733602240e5 * t2771 * t2775 - 0.545331034933440e3 * t411 * t165 * t2849 - 0.16003998000e4 * t1231 * t2873 + 0.39400862168472e2 * t2824 * t8235 * t263 + 0.28629879334005600e5 * t1302 * t2830 - 0.4089982762000800e4 * t1302 * t2833;
11098   t9188 = -0.119879735615595000e6 * t2803 * t2991 - 0.33566325972366600e5 * t1417 * t2977 * t751 + 0.287063424370296e3 * t1432 * t8244 * t238 - 0.101316502718928e3 * t1028 * t8231 * t263 - 0.151974754078392e3 * t1028 * t2817 * t781 - 0.101316502718928e3 * t1028 * t8248 * t238 - 0.12890403524392560e5 * t2942 * t2981 - 0.3437440939838016e4 * t1407 * t2984 * t751 + 0.1432267058265840e4 * t1038 * t1024 * t2348 - 0.183908361477772800e6 * t1278 * t2985 - 0.30651393579628800e5 * t3688 * t8078 * t263 + 0.22988545184721600e5 * t1480 * t2973 * t751 + 0.83594709762624000e5 * t2922 * t2988 - 0.8359470976262400e4 * t1016 * t1029 * t2348 + 0.18084995735328648e5 * t1432 * t2829 * t751;
11099   t9231 = t2571 * t138;
11100   t9234 = t2592 * t152;
11101   t9237 = -0.5673724152259968e4 * t1028 * t2774 * t2348 - 0.19204797600e4 * t2870 * t2998 - 0.4801199400e3 * t1462 * t2954 * t751 + 0.2560639680e3 * t1033 * t1017 * t2348 + 0.32007996000e4 * t1231 * t2951 + 0.11188775324122200e5 * t1023 * t1078 * t2348 + 0.63829396712924640e5 * t2899 * t2994 - 0.11923013875206649600e6 * t9 * t410 * t161 * t557 * t978 + 0.25780807048785120e5 * t1271 * t2955 - 0.17376785384000000000e5 * t7587 * t97 * t492 * t986 - 0.12357281897149164000e6 * t4991 * t110 * t505 * t993 + 0.82878349541463735999e6 * t9 * t397 * t122 * t518 * t1048 + 0.38346912762528582667e6 * t8172 * t134 * t282 * t285 + 0.479518942462380000e6 * t9231 * t1025 - 0.264436072096402080e6 * t9234 * t1030;
11102   t9239 = t2629 * t101;
11103   t9250 = t2645 * t114;
11104   t9261 = t2697 * t125;
11105   t9292 = 0.57614392800e4 * t9239 * t1035 + 0.39392665365523966222e5 * t8189 * t161 * t300 * t303 - 0.21296228543110177067e6 * t8182 * t148 * t291 * t294 + 0.45116412335373960e5 * t9250 * t1040 + 0.43096198071111111111e4 * t7850 * t97 * t308 * t311 - 0.25132852693478291555e6 * t8208 * t122 * t327 * t330 - 0.317659897097971200e6 * t9261 * t1018 + 0.35051641846918205333e5 * t692 * t110 * t317 * t320 + 0.279719383103055000e6 * t1286 * t2974 - 0.155014249159959840e6 * t1294 * t2978 - 0.12149234005913515200e7 * t9 * t401 * t134 * t531 * t1056 + 0.65696434710250663200e6 * t9 * t406 * t148 * t544 * t1064 - 0.3271986209600640e4 * t1447 * t825 * t716 * t751 + 0.1431493966700280e4 * t2771 * t2841 - 0.163599310480032e3 * t1077 * t825 * t736 * t751;
11106   t9329 = t2609 * t165;
11107   t9335 = 0.1431493966700280e4 * t2771 * t2844 + 0.399599118718650e3 * t1023 * t2810 * t781 + 0.266399412479100e3 * t1023 * t8266 * t238 - 0.106559764991640e3 * t2793 * t8248 * t263 + 0.70113990205728e2 * t2847 * t2655 * t751 * t781 - 0.5193628904128e1 * t2847 * t2848 * t2405 - 0.55943876620611000e5 * t1286 * t2807 + 0.19979955935932500e5 * t2803 * t2811 + 0.19979955935932500e5 * t2803 * t2790 - 0.7991982374373000e4 * t402 * t138 * t2795 - 0.745918354941480e3 * t1417 * t8262 * t238 + 0.266399412479100e3 * t1023 * t8244 * t263 + 0.168756820333297200e6 * t120 * t122 * t128 + 0.48670794867809520e5 * t9329 * t1079 + 0.981595862880192e3 * t1077 * t8223 * t238;
11108   t9346 = t788 * t174 * t784;
11109   t9359 = t3206 * t2492;
11110   t9363 = 0.1e1 / t1138 / t796;
11111   t9379 = t1136 * t1136;
11112   t9380 = params->d * t9379;
11113   t9381 = t1138 * t1138;
11114   t9382 = 0.1e1 / t9381;
11115   t9386 = -0.6e1 * t416 * t1128 * t7931 * t174 - 0.3e1 * t1137 * t1139 * t7931 * t174 - 0.36e2 * t1137 * t3224 * t7937 * t174 - 0.24e2 * t416 * t3211 * t7937 * t174 - 0.12e2 * t3222 * t9363 * t7937 * t174 + t416 * t417 * t7923 * t174 - t9380 * t9382 * t7937 * t174 - 0.8e1 * t1496 * t9359 - 0.4e1 * t1504 * t9359 + 0.36e2 * t4130 * t9346 + 0.36e2 * t4138 * t9346 + 0.6e1 * t4150 * t9346;
11116   t9387 = my_piecewise3(t92, t9292 + t8705 + t8968 + t9060 + t9013 + t8622 + t8530 + t8677 + t8730 + t8780 + t9100 + t8440 + t8276 + t8819 + t8020 + t9237 + t8570 + t8906 + t8370 + t9335 + t8132 + t8074 + t8837 + t8403 + t8241 + t8179 + t9144 + t8487 + t8874 + t9188 + t8333 + t8293, t9386);
11117   t9390 = -0.24e2 * t7558 * t7559 * t177 + 0.36e2 * t2289 * t669 * t804 - 0.24e2 * t2289 * t2290 * t421 - 0.6e1 * t667 * t7569 * t177 + 0.24e2 * t667 * t807 * t804 - 0.8e1 * t667 * t278 * t2519 + 0.12e2 * t667 * t668 * t1144 + t205 * (0.26180e5 / 0.19683e5 * t15 * t7584 + 0.5225e4 / 0.1458e4 * t30 * t31 / t7587 * t42 - 0.5929e4 / 0.288e3 * t220 * t221 / t526 * t42 + 0.2949e4 / 0.640e3 * t691 / t1006 * t10 * t695 - 0.1053e4 / 0.3200e4 * t2323 / t1335 * t26 * t2326 + 0.6561e4 / 0.160000e6 * t7611 * t690 * t31 / t121 * t42 + 0.6e1 * t7618 + 0.8e1 * t274 * t2516 + 0.2e1 * t84 * t7962) * t177 - 0.4e1 * t205 * t2519 * t421 - 0.6e1 * t205 * t804 * t1144 - 0.4e1 * t205 * t277 * t3229 - t91 * t9387 + 0.1174e1 * t9387;
11118   t9396 = t3252 * t433 * t436;
11119   t9418 = t19 * t180;
11120   t9422 = -0.12920861304452160000e4 * t3269 * t425 * t3270 + 0.17527082181762906534e4 * t1528 * t2002 * t26 * t183 * t194 - 0.23749920000000000000e4 * t3249 * t424 * t3256 * t3258 + 0.66147100843063384139e1 * t2284 * t424 * t10 * t3264 + 0.48324967257429754121e3 * t1168 * t1147 * t577 * t1170 - 0.3e1 / 0.8e1 * t201 * t7 * t9390 * t195 - 0.64604306522260800000e3 * t9396 * t1161 * t194 * t184 * t185 - 0.17812440000000000000e3 * t1157 * t3237 * t1164 - 0.98958000000000000000e1 * t434 * t435 * t3232 * t443 - 0.49479000000000000000e1 * t574 * t660 * t1147 * t443 + 0.35624880000000000000e3 * t574 * t2277 * t424 * t1164 - 0.43069537681507200002e3 * t574 * t7 * t9418 * t3270;
11121   t9444 = t5 * t7 * t187;
11122   t9455 = 0.1e1 / t190 / t26 / t29 / t36 / 0.36e2;
11123   t9459 = t194 * t26 * t183;
11124   t9474 = -0.2e1 * t8 * t9 * t3232 * t195 - 0.5e1 / 0.27e2 * t8 * t9418 * t195 - t8 * t651 * t1147 * t195 + 0.4e1 / 0.9e1 * t8 * t51 * t424 * t195 + 0.32216644838286502748e3 * t2284 * t3245 + 0.51458160000000000000e4 * t574 * t7 * t7583 * t3259 - 0.20e-18 * t9444 * t3265 - 0.44745340053175698261e2 * t9444 * t1171 - 0.27708240000000000000e4 * t452 * t433 * t436 * t9455 * t3250 * t31 * t9459 + 0.21990666666666666667e1 * t574 * t2262 * t424 * t443 - 0.37933900000000000000e3 * t574 * t7 * t35 * t180 * t1164 - 0.91627777777777777788e0 * t9396 * t443;
11125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11126     v4rho4[0] = t9422 + t9474;
11127 
11128   t9476 = t574 * t575 * t9455;
11129   t9477 = t3250 * t194;
11130   t9493 = t3357 * t736;
11131   t9496 = t1236 * t2397;
11132   t9503 = t3601 * t781;
11133   t9506 = t1279 * t2405;
11134   t9511 = t3574 * t505;
11135   t9516 = t3577 * t557;
11136   t9525 = t1236 * t2405;
11137   t9530 = t3562 * t492;
11138   t9533 = 0.11279103083843490e5 * t9250 * t1404 - 0.4296801174797520e4 * t1271 * t3598 - 0.2148400587398760e4 * t1271 * t3834 + 0.1611300440549070e4 * t2942 * t3602 - 0.143226705826584e3 * t1407 * t9493 - 0.47742235275528e2 * t1407 * t9496 + 0.24153546731438400000e5 * t3848 * t3632 + 0.12076773365719200000e5 * t3848 * t3778 + 0.53710014684969e2 * t1038 * t9503 + 0.17903338228323e2 * t1038 * t9506 + 0.37928553580002800000e5 * t991 * t1473 - 0.15171421432001120000e5 * t9511 * t1477 + 0.30659722630702293333e5 * t976 * t1454 - 0.11148990047528106666e5 * t9516 * t1459 + 0.16424851409304800000e4 * t3857 * t3679 + 0.82124257046523999999e3 * t3857 * t3863 - 0.59726732397471999999e3 * t3860 * t3591 + 0.53346660e1 * t1033 * t9525 + 0.61407933066666666667e4 * t984 * t1408 - 0.26317685600000000000e4 * t9530 * t1404;
11139   t9552 = t3659 * t781;
11140   t9556 = t1303 * t2405;
11141   t9561 = t3569 * t544;
11142   t9572 = t3659 * t736;
11143   t9575 = t1303 * t2397;
11144   t9580 = t3376 * t736;
11145   t9583 = -0.25329125679732e2 * t1028 * t9556 - 0.17289473565831880000e6 * t1062 * t1440 + 0.63698060505696400000e5 * t9561 * t1444 - 0.10694519731442400000e5 * t3784 * t3668 - 0.53472598657212000000e4 * t3784 * t3790 + 0.39400862168472000000e4 * t3787 * t3672 + 0.19700431084236000000e4 * t3787 * t3793 - 0.160417795971636e3 * t1439 * t9572 - 0.53472598657212e2 * t1439 * t9575 + 0.1600399800e3 * t2870 * t3361 - 0.400099950e2 * t1462 * t9580;
11146   t9586 = t1213 * t2397;
11147   t9589 = t3357 * t781;
11148   t9594 = t3628 * t736;
11149   t9597 = t1295 * t2397;
11150   t9621 = t2912 * t541 * t557;
11151   t9622 = t1303 * t218;
11152   t9629 = t9 * t5180 * t554 * t5233;
11153   t9633 = t1213 * t218;
11154   t9637 = t2963 * t133 * t505;
11155   t9638 = t1236 * t218;
11156   t9641 = -0.133366650e2 * t1462 * t9586 + 0.160039980e2 * t1033 * t9589 - 0.45287900121447000000e4 * t3851 * t3771 + 0.426239059966560e3 * t1424 * t9594 + 0.142079686655520e3 * t1424 * t9597 - 0.159839647487460e3 * t1428 * t9552 - 0.53279882495820e2 * t1428 * t9556 + 0.187308884401618140e6 * t3960 * t1425 - 0.66109018024100520e5 * t9234 * t1429 + 0.12917854096663320e5 * t1294 * t3632 + 0.6458927048331660e4 * t1294 * t3778 - 0.4559242622351760e4 * t2899 * t3660 - 0.2279621311175880e4 * t2899 * t3771 + 0.215297568277722e3 * t1432 * t9594 + 0.71765856092574e2 * t1432 * t9597 + 0.117020560640361840e6 * t9621 * t9622 + 0.23282226872689554000e5 * t8964 * t9622 - 0.20157772184146800000e5 * t9629 * t1314 * t218 + 0.40330074960e4 * t8923 * t9633 - 0.57614392800e4 * t9637 * t9638;
11157   t9648 = t3376 * t716;
11158   t9651 = t3601 * t751;
11159   t9654 = t3357 * t716;
11160   t9668 = t3671 * t781;
11161   t9671 = t1314 * t2405;
11162   t9675 = t2968 * t502 * t518;
11163   t9676 = t1279 * t218;
11164   t9682 = t2902 * t515 * t531;
11165   t9683 = t1287 * t218;
11166   t9689 = t2907 * t147 * t544;
11167   t9690 = t1295 * t218;
11168   t9701 = 0.10224956905002e2 * t1077 * t9668 + 0.3408318968334e1 * t1077 * t9671 - 0.30722128399802268000e5 * t9675 * t9676 - 0.171160168238972640e6 * t8937 * t9676 + 0.175548890501510400e6 * t9682 * t9683 + 0.24455466065581380000e6 * t8946 * t9683 - 0.23232692762302311000e6 * t9689 * t9690 - 0.129938414737025160e6 * t8955 * t9690 + 0.19700431084236e2 * t1443 * t9671 - 0.34764853477006800e5 * t3985 * t1440 + 0.12167698716952380e5 * t9329 * t1444;
11169   t9711 = t3601 * t716;
11170   t9720 = t3671 * t751;
11171   t9723 = t3628 * t716;
11172   t9728 = t3590 * t751;
11173   t9734 = t3612 * t716;
11174   t9737 = t3659 * t751;
11175   t9746 = t3612 * t751;
11176   t9753 = -0.2044991381000400e4 * t1302 * t3668 - 0.1022495690500200e4 * t1302 * t3790 + 0.21881857834617000000e4 * t3764 * t3696 + 0.1074200293699380e4 * t3768 * t9711 - 0.17505486267693600000e4 * t3682 * t3613 - 0.87527431338468000000e3 * t3682 * t3635 + 0.59101293252708e2 * t1443 * t9668 + 0.1118877532412220e4 * t1428 * t9720 + 0.3444761092443552e4 * t3760 * t9723 + 0.43763715669234000000e4 * t3764 * t3609 - 0.81799655240016e2 * t1077 * t9728 + 0.449898103820088e3 * t3735 * t3671 * t716 - 0.5433656134570560e4 * t3740 * t9734 - 0.1044933872032800e4 * t1413 * t9737 - 0.7272703960679430e4 * t3747 * t9734 - 0.1198797356155950e4 * t1023 * t9737 + 0.6393585899498400e4 * t3753 * t9723 + 0.640159920e2 * t1403 * t9746 - 0.1002586940786088e4 * t3712 * t9654 - 0.214840058739876e3 * t1038 * t9746;
11177   t9756 = t3659 * t716;
11178   t9763 = t154 * t3343;
11179   t9764 = t9763 * t263;
11180   t9767 = t9763 * t238;
11181   t9770 = t167 * t3343;
11182   t9771 = t9770 * t263;
11183   t9778 = t9770 * t238;
11184   t9782 = t385 * t3343;
11185   t9783 = t9782 * t263;
11186   t9790 = t1279 * t2397;
11187   t9793 = t3612 * t781;
11188   t9796 = t3628 * t751;
11189   t9803 = t127 * t3343;
11190   t9804 = t9803 * t238;
11191   t9807 = t140 * t3343;
11192   t9808 = t9807 * t263;
11193   t9813 = 0.59101293252708e2 * t1443 * t9783 - 0.29214162585720e2 * t1447 * t9778 + 0.10224956905002e2 * t1077 * t9783 + 0.39785196062940e2 * t1472 * t9790 - 0.47742235275528e2 * t1476 * t9793 + 0.238711176377640e3 * t1476 * t9796 + 0.5747136296180400e4 * t3688 * t9711 + 0.1044933872032800e4 * t1016 * t9796 + 0.119355588188820e3 * t1472 * t9804 - 0.47742235275528e2 * t1476 * t9808 + 0.574713629618040e3 * t1480 * t9804;
11194   t9818 = t9807 * t238;
11195   t9825 = t116 * t3343;
11196   t9826 = t9825 * t263;
11197   t9829 = t9825 * t238;
11198   t9832 = t9803 * t263;
11199   t9839 = t3628 * t781;
11200   t9842 = t3601 * t736;
11201   t9845 = t1287 * t2397;
11202   t9848 = t1295 * t2405;
11203   t9864 = t103 * t3343;
11204   t9865 = t9864 * t238;
11205   t9870 = -0.208986774406560e3 * t1016 * t9808 - 0.452804677880880e3 * t1486 * t9818 + 0.174155645338800e3 * t1413 * t9764 - 0.559438766206110e3 * t1417 * t9818 + 0.160039980e2 * t1033 * t9826 + 0.373426620e2 * t1468 * t9829 - 0.160039980e2 * t1403 * t9832 - 0.143226705826584e3 * t1407 * t9829 + 0.53710014684969e2 * t1038 * t9832 + 0.174155645338800e3 * t1413 * t9839 + 0.119355588188820e3 * t1472 * t9842 - 0.150934892626960e3 * t1486 * t9845 + 0.58051881779600e2 * t1413 * t9848 - 0.335663259723666000e6 * t3949 * t1418 + 0.119879735615595000e6 * t9231 * t1414 - 0.27971938310305500e5 * t1286 * t3620 + 0.21423719229528e2 * t1453 * t9782 * t238 - 0.7790443356192e1 * t1457 * t825 * t3343 * t263 - 0.400099950e2 * t1462 * t9865 - 0.4179735488131200e4 * t2922 * t3635;
11206   t9877 = t1287 * t2405;
11207   t9882 = t3507 * t518;
11208   t9891 = t3612 * t736;
11209   t9917 = -0.13985969155152750e5 * t1286 * t3645 + 0.9989977967966250e4 * t2803 * t3629 + 0.4994988983983125e4 * t2803 * t3648 - 0.559438766206110e3 * t1417 * t9891 - 0.186479588735370e3 * t1417 * t9845 + 0.199799559359325e3 * t1023 * t9839 + 0.66599853119775e2 * t1023 * t9848 - 0.15914078425176e2 * t1476 * t9877 + 0.218391179254855200e6 * t3979 * t1473 - 0.79414974274492800e5 * t9261 * t1477 + 0.22988545184721600e5 * t1278 * t3609;
11210   t9952 = t3513 * t531;
11211   t9957 = t1295 * t2348;
11212   t9964 = t8441 * t101;
11213   t9965 = t1213 * t2340;
11214   t9968 = 0.11494272592360800e5 * t1278 * t3696 - 0.8359470976262400e4 * t2922 * t3613 - 0.16003998000e4 * t5050 * t3391 - 0.4801199400e3 * t2870 * t3383 + 0.29874129600000000000e4 * t5058 * t3713 + 0.85354656000000000000e3 * t3831 * t3709 + 0.805650220274535e3 * t2942 * t3837 + 0.17246093979770040000e5 * t5212 * t3736 + 0.26877029578862400000e4 * t3860 * t3809 - 0.96250677582981600000e5 * t5307 * t3723 - 0.15760344867388800000e5 * t3787 * t3726 - 0.15038804111791320e5 * t5251 * t3713 - 0.3222600881098140e4 * t2942 * t3709 + 0.33009847199632480000e6 * t1054 * t1425 + 0.18115160048578800000e6 * t5286 * t3754 - 0.12378692699862180000e6 * t9952 * t1429 + 0.31701530085012900000e5 * t3851 * t3718 + 0.358066764566460e3 * t1038 * t9957 - 0.233713300685760e3 * t1457 * t8576 * t461 * t2348 - 0.1600399800e3 * t9964 * t9965;
11215   t9969 = t1287 * t2348;
11216   t9980 = t528 * t515;
11217   t9981 = t9980 * t531;
11218   t9982 = t1295 * t2340;
11219   t9985 = t3808 * t2348;
11220   t9988 = t553 * t541;
11221   t9989 = t9988 * t557;
11222   t9995 = t514 * t502;
11223   t9996 = t9995 * t518;
11224   t9997 = t1287 * t2340;
11225   t10001 = t1458 * t2348;
11226   t10004 = t540 * t147;
11227   t10005 = t10004 * t544;
11228   t10006 = t1303 * t2340;
11229   t10011 = t8538 * t165;
11230   t10014 = t490 * t96;
11231   t10015 = t10014 * t492;
11232   t10016 = t1236 * t2340;
11233   t10021 = t8477 * t114;
11234   t10026 = t8448 * t125;
11235   t10027 = t1279 * t2340;
11236   t10032 = t8501 * t152;
11237   t10035 = -0.1418431038064992e4 * t1028 * t10001 - 0.16362615189106872e5 * t10005 * t10006 + 0.1418431038064992e4 * t1443 * t9985 - 0.3330414534772080e4 * t10011 * t10006 + 0.3734266200e3 * t10015 * t10016 - 0.1066933200e3 * t1403 * t9957 - 0.2005173881572176e4 * t10021 * t10016 + 0.114942725923608000e6 * t5265 * t3689 + 0.17241408888541200e5 * t10026 * t10027 - 0.2983673419765920e4 * t1428 * t10001 + 0.17223805462217760e5 * t10032 * t9982;
11238   t10040 = t1314 * t2348;
11239   t10045 = t8460 * t138;
11240   t10056 = t1303 * t2348;
11241   t10061 = t501 * t133;
11242   t10062 = t10061 * t505;
11243   t10069 = t461 * t781;
11244   t10070 = t10069 * t723;
11245   t10071 = t3334 * t10070;
11246   t10073 = t2383 * t3320;
11247   t10074 = t10073 * t3323;
11248   t10076 = t7909 * t3327;
11249   t10078 = t1218 * t238;
11250   t10079 = t10078 * t723;
11251   t10080 = t3321 * t10079;
11252   t10082 = t461 * t736;
11253   t10083 = t10082 * t723;
11254   t10084 = t3321 * t10083;
11255   t10086 = t1218 * t263;
11256   t10087 = t10086 * t723;
11257   t10088 = t2336 * t10087;
11258   t10090 = t2336 * t10070;
11259   t10092 = -0.24381790347432000000e5 * t3642 * t3744 + 0.2438179034743200e4 * t1413 * t10040 - 0.181817599016985750e6 * t5278 * t3741 - 0.29090815842717720e5 * t10045 * t9997 - 0.29969933903898750e5 * t2803 * t3744 + 0.2797193831030550e4 * t1023 * t10040 + 0.81272634491439999999e4 * t3642 * t3629 + 0.20898677440656000e5 * t2922 * t3685 - 0.2089867744065600e4 * t1016 * t10056 + 0.19693672051155300000e5 * t5258 * t3689 + 0.2864534116531680e4 * t10062 * t10027 + 0.43763715669234000000e4 * t3682 * t3685 - 0.477422352755280e3 * t1476 * t10056 + 0.20010000000000000000e2 * t10071 + 0.19209600000000000000e3 * t10074 - 0.96048000000000000000e2 * t10076 + 0.36018000000000000000e2 * t10080 + 0.18009000000000000000e2 * t10084 - 0.18009000000000000000e2 * t10088 - 0.90045000000000000000e1 * t10090;
11260   t10093 = t1001 * t58;
11261   t10094 = t10093 * t4059;
11262   t10095 = t461 * t10;
11263   t10096 = t10095 * t3111;
11264   t10097 = t10094 * t10096;
11265   t10099 = t3429 * t1828;
11266   t10100 = t10095 * t2487;
11267   t10101 = t10099 * t10100;
11268   t10103 = t1230 * t1107;
11269   t10104 = t461 * t751;
11270   t10105 = t10104 * t723;
11271   t10106 = t10103 * t10105;
11272   t10108 = t94 * t58;
11273   t10109 = t10108 * t104;
11274   t10110 = t10109 * t3323;
11275   t10112 = t3419 * t339;
11276   t10113 = t10112 * t3327;
11277   t10115 = t3331 * t10079;
11278   t10117 = t3331 * t10083;
11279   t10119 = t3334 * t10087;
11280   t10122 = t7870 * t467 * t74;
11281   t10123 = t10122 * t10096;
11282   t10125 = t7901 * t10100;
11283   t10128 = t7917 * t10105;
11284   t10130 = t131 * t57;
11285   t10131 = t10130 * t104;
11286   t10132 = t461 * t716;
11287   t10133 = t10132 * t723;
11288   t10134 = t10131 * t10133;
11289   t10136 = t1011 * t110;
11290   t10137 = t10136 * t4086;
11291   t10144 = t3429 * t4059;
11292   t10153 = t405 * t97;
11293   t10154 = t10153 * t117;
11294   t10157 = t3967 * t347;
11295   t10160 = 0.18009000000000000000e2 * t10128 - 0.12006000000000000000e3 * t10134 + 0.23632406461386360000e5 * t10137 * t10096 - 0.24637277113957200000e3 * t4052 * t10083 + 0.89590098596208000000e2 * t4056 * t10070 + 0.24806196900000000000e4 * t10144 * t3323 - 0.99224787600000000000e3 * t8839 * t3327 + 0.1200299850e3 * t4060 * t10083 - 0.480119940e2 * t2528 * t10070 - 0.40827977120000000001e4 * t10154 * t3323 + 0.17497704480000000000e4 * t10157 * t3327;
11296   t10168 = t4027 * t4072;
11297   t10175 = t527 * t134;
11298   t10176 = t10175 * t155;
11299   t10179 = t3959 * t375;
11300   t10184 = t552 * t161;
11301   t10185 = t10184 * t4051;
11302   t10188 = t3938 * t4055;
11303   t10191 = t3998 * t1908;
11304   t10195 = t8659 * t531 * t140;
11305   t10200 = t1072 * t134;
11306   t10201 = t10200 * t4112;
11307   t10204 = t4005 * t1924;
11308   t10208 = t8600 * t544 * t154;
11309   t10215 = t4005 * t4112;
11310   t10220 = -0.1493706480e3 * t4066 * t10083 + 0.640159920e2 * t4069 * t10070 + 0.19765285404068592000e5 * t10168 * t3323 - 0.74119820265257220000e4 * t8767 * t3327 + 0.64452017621962800000e3 * t4073 * t10083 - 0.20772050189037024000e6 * t10176 * t3323 + 0.77895188208888840000e5 * t10179 * t3327 - 0.24169506608236050000e3 * t2534 * t10070 - 0.19052827634793568000e5 * t10185 * t3323 + 0.69283009581067519999e4 * t10188 * t3327 + 0.54859028281722000e5 * t10191 * t10100 - 0.20139795583419960000e6 * t10195 * t10096 + 0.71927841369357000000e5 * t8760 * t10100 + 0.19564372852465104000e6 * t10201 * t10096 - 0.73366398196744140000e5 * t10204 * t10100 + 0.110447652526471386e6 * t10208 * t10096 - 0.36230320097157600000e4 * t4106 * t10083 + 0.13586370036434100000e4 * t4109 * t10070 - 0.11755247227963621200e6 * t10215 * t3323 + 0.41489107863401016000e5 * t8871 * t3327;
11311   t10225 = t539 * t148;
11312   t10226 = t10225 * t168;
11313   t10229 = t3984 * t386;
11314   t10236 = t4012 * t4044;
11315   t10246 = t996 * t148;
11316   t10247 = t10246 * t4044;
11317   t10250 = t4012 * t1939;
11318   t10254 = t8615 * t557 * t167;
11319   t10259 = t4019 * t161;
11320   t10261 = t10259 * t1957 * t385;
11321   t10264 = t4020 * t1958;
11322   t10268 = t8668 * t492 * t103;
11323   t10273 = t1006 * t97;
11324   t10274 = t10273 * t4072;
11325   t10277 = t3991 * t1893;
11326   t10281 = t8645 * t518 * t127;
11327   t10284 = -0.101063211462130680e6 * t10247 * t10096 + 0.37233814749206040e5 * t10250 * t10100 - 0.20245414671903960000e5 * t10254 * t10096 + 0.70858951351663860000e4 * t8773 * t10100 + 0.17738839522049184000e5 * t10261 * t10096 - 0.64504870989269760000e4 * t10264 * t10100 - 0.25206296850e4 * t10268 * t10096 + 0.10082518740e4 * t8744 * t10100 + 0.40330074960e4 * t10274 * t10096 - 0.94529625845545440000e4 * t10277 * t10100 + 0.134482989330621360e6 * t10281 * t10096;
11328   t10289 = t1067 * t122;
11329   t10290 = t10289 * t4099;
11330   t10293 = t4027 * t1878;
11331   t10297 = t8636 * t505 * t116;
11332   t10303 = t1310 * t1312 * t2655;
11333   t10306 = t8064 * t4059;
11334   t10313 = t1285 * t1091;
11335   t10318 = t410 * t370;
11336   t10319 = t10318 * t168;
11337   t10322 = t1301 * t826;
11338   t10325 = t8139 * t4044;
11339   t10328 = t145 * t160;
11340   t10329 = t10328 * t117;
11341   t10332 = t1270 * t1115;
11342   t10335 = t8109 * t4072;
11343   t10340 = t500 * t110;
11344   t10341 = t10340 * t128;
11345   t10344 = t3978 * t357;
11346   t10347 = -0.48902905211135040e5 * t8757 * t10100 - 0.142633473532477200e6 * t10290 * t10096 - 0.17284317840e4 * t10293 * t10100 - 0.19335605286588840000e5 * t10297 * t10096 + 0.72508519824708150000e4 * t8754 * t10100 - 0.80631088736587200000e3 * t10303 * t10105 + 0.4801199400e3 * t10306 * t10133 + 0.1440359820e3 * t8741 * t10105 - 0.38981524421107548e5 * t8770 * t10100 + 0.7314537104229600e4 * t10313 * t10105 - 0.4787204753469348e4 * t8737 * t10105 + 0.28875203274894480e5 * t10319 * t10133 + 0.4728103460216640e4 * t10322 * t10105 + 0.58282254358511400000e4 * t10325 * t10133 - 0.8962238880e3 * t10329 * t10133 - 0.2560639680e3 * t10332 * t10105 + 0.45116412335373960000e4 * t10335 * t10133 + 0.96678026432944200000e3 * t8764 * t10105 - 0.24507680774771040000e5 * t10341 * t3323 + 0.98030723099084160000e4 * t10344 * t3327;
11347   t10350 = t397 * t109;
11348   t10351 = t10350 * t128;
11349   t10354 = t8089 * t4112;
11350   t10374 = t3998 * t4099;
11351   t10379 = t8076 * t4099;
11352   t10384 = t406 * t361;
11353   t10385 = t10384 * t155;
11354   t10388 = t1293 * t1099;
11355   t10393 = t1309 * t379;
11356   t10394 = t10393 * t4051;
11357   t10397 = t513 * t122;
11358   t10398 = t10397 * t141;
11359   t10401 = t3948 * t366;
11360   t10404 = 0.1280319840e3 * t4069 * t10087 + 0.21258673115832180000e6 * t10374 * t3323 - 0.75923832556543500000e5 * t8859 * t3327 + 0.54545279705095725000e5 * t10379 * t10133 + 0.89909801711696250000e4 * t8733 * t10105 - 0.54345480145736400000e5 * t10385 * t10133 - 0.95104590255038700000e4 * t10388 * t10105 + 0.85889638002016800000e3 * t8751 * t10105 - 0.51738281939310120000e4 * t10394 * t10133 + 0.15002928327119824000e6 * t10398 * t3323 - 0.57703570488922399999e5 * t10401 * t3327;
11361   t10410 = t401 * t351;
11362   t10411 = t10410 * t141;
11363   t10432 = t1277 * t1083;
11364   t10435 = t3991 * t4086;
11365   t10440 = t8030 * t4086;
11366   t10455 = 0.38035592941993920e5 * t10411 * t10133 + 0.3169632745166160e4 * t4093 * t10083 - 0.1219089517371600e4 * t4096 * t10070 + 0.41957907465458250000e4 * t4100 * t10083 - 0.14984966951949375000e4 * t2537 * t10070 + 0.27172740072868200000e4 * t4109 * t10087 - 0.3875356228998996e4 * t4113 * t10079 + 0.1367772786705528e4 * t2531 * t10087 + 0.3208355919432720e4 * t4119 * t10079 - 0.1182025865054160e4 * t4122 * t10087 - 0.13129114700770200000e4 * t10432 * t10105 - 0.14023012562680176000e6 * t10435 * t3323 + 0.50992772955200640000e5 * t8802 * t3327 - 0.34482817777082400e5 * t10440 * t10133 - 0.6269603232196800e4 * t8727 * t10105 - 0.65645573503851000000e3 * t4080 * t10083 + 0.26258229401540400000e3 * t4083 * t10070 + 0.12890403524392560000e4 * t4073 * t10079 - 0.48339013216472100000e3 * t2534 * t10087 - 0.13129114700770200000e4 * t4080 * t10079;
11367   t10474 = t238 * t751;
11368   t10476 = t1205 * t1236 * t10474;
11369   t10480 = t2865 * t96 * t308;
11370   t10481 = t10480 * t3431;
11371   t10483 = t736 * t238;
11372   t10484 = t1213 * t10483;
11373   t10485 = t3390 * t10484;
11374   t10487 = t1236 * t7837;
11375   t10488 = t1226 * t10487;
11376   t10490 = t781 * t238;
11377   t10491 = t1236 * t10490;
11378   t10492 = t1226 * t10491;
11379   t10494 = t1279 * t7878;
11380   t10495 = t1235 * t10494;
11381   t10498 = t1205 * t1213 * t7837;
11382   t10501 = t1205 * t1213 * t10490;
11383   t10504 = t727 * t1236 * t7878;
11384   t10507 = t107 * t96 * t101;
11385   t10508 = t10507 * t1232;
11386   t10510 = t3376 * t2483;
11387   t10511 = t3430 * t10510;
11388   t10513 = t1279 * t10474;
11389   t10514 = t1226 * t10513;
11390   t10516 = 0.16208100000000000000e4 * t10481 + 0.48024e2 * t10485 - 0.32016e2 * t10488 - 0.32016e2 * t10492 + 0.24012e2 * t10495 + 0.12006e2 * t10498 + 0.12006e2 * t10501 - 0.12006e2 * t10504 - 0.66625888888888888890e3 * t10508 + 0.18009000000000000000e3 * t10511 + 0.96048e2 * t10514;
11391   t10519 = t2466 * t3413;
11392   t10521 = t74 * t3343;
11393   t10523 = t721 * t10521 * t723;
11394   t10525 = t3420 * t3426;
11395   t10527 = t9864 * t723;
11396   t10528 = t1231 * t10527;
11397   t10530 = t3395 * t3423;
11398   t10532 = t3357 * t3409;
11399   t10533 = t1226 * t10532;
11400   t10535 = t7865 * t3416;
11401   t10538 = t2482 * t3368 * t2483;
11402   t10540 = t716 * t263;
11403   t10541 = t1236 * t10540;
11404   t10542 = t3390 * t10541;
11405   t10544 = t7885 * t1210;
11406   t10546 = t768 * t3410;
11407   t10549 = t242 * t716 * t244;
11408   t10550 = t10549 * t1210;
11409   t10553 = t1205 * t3376 * t3409;
11410   t10556 = t2917 * t502 * t327;
11411   t10560 = t2798 * t515 * t282;
11412   t10566 = t2894 * t147 * t291;
11413   t10573 = t17 * t552 * t554 * t1957;
11414   t10578 = 0.96048000000000000000e2 * t10519 + 0.90045000000000000000e1 * t10523 - 0.17342000000000000001e3 * t10525 - 0.10005000000000000000e2 * t10528 - 0.53360000000000000001e3 * t10530 - 0.64032e2 * t10533 - 0.61230600000000000000e3 * t10535 - 0.10805400000000000000e3 * t10538 - 0.96048e2 * t10542 + 0.20943800000000000000e3 * t10544 + 0.120060e3 * t10546 + 0.18009000000000000000e2 * t10550 + 0.24012e2 * t10553 + 0.44901572276634084000e5 * t10556 * t3993 - 0.26332333575226560000e6 * t10560 * t4000 - 0.36922958569603260000e6 * t8656 * t4000 + 0.35460425795093001000e6 * t10566 * t4007 + 0.19923890259677191200e6 * t8597 * t4007 + 0.31446124607269008000e5 * t10573 * t4022 - 0.53773433280000000000e4 * t8665 * t3431;
11415   t10580 = t2314 * t133 * t317;
11416   t10585 = t1222 * t3349;
11417   t10588 = my_piecewise3(t55, 0.154e3 / 0.27e2 * t2300, 0);
11418   t10590 = t466 * t468 * t10588;
11419   t10592 = t3354 * t1219;
11420   t10594 = t34 * t96;
11421   t10595 = t10594 * t469;
11422   t10597 = t2362 * t462;
11423   t10599 = t2380 * t462;
11424   t10601 = t761 * t1219;
11425   t10603 = t3337 * t1240;
11426   t10606 = t259 * t3344;
11427   t10609 = t233 * t75 * t10588;
11428   t10634 = t2888 * t541 * t300;
11429   t10637 = -0.30015e2 * t10606 - 0.2001e1 * t10609 - 0.11610376355920e2 * t516 * t519 * t10588 - 0.13319970623955e2 * t362 * t141 * t10588 + 0.8879980415970e1 * t529 * t532 * t10588 + 0.4221520946622e1 * t371 * t155 * t10588 - 0.2814347297748e1 * t542 * t545 * t10588 - 0.486902709762e0 * t380 * t168 * t10588 - 0.37865560352903145000e5 * t8633 * t4029 - 0.2400599700e3 * t1462 * t10513 - 0.18084995735328648000e6 * t10634 * t4014;
11430   t10644 = t263 * t26 * t13;
11431   t10645 = t3322 * t10644;
11432   t10646 = t7912 * t10645;
11433   t10650 = t4079 * t357;
11434   t10653 = t4050 * t4055;
11435   t10656 = t4092 * t366;
11436   t10661 = t4105 * t375;
11437   t10666 = t4065 * t347;
11438   t10673 = t4118 * t386;
11439   t10678 = t3330 * t339;
11440   t10679 = t10678 * t10645;
11441   t10681 = t2912 * t554;
11442   t10695 = -0.36104322831562062000e5 * t8612 * t4014 - 0.36018000000000000000e2 * t10646 + 0.27586254221665920e5 * t8723 * t10645 + 0.52516458803080800000e4 * t10650 * t10645 + 0.39419643382331520000e4 * t10653 * t10645 - 0.31696327451661600e5 * t10656 * t10645 - 0.41957907465458250000e5 * t8787 * t10645 + 0.43476384116589120000e5 * t10661 * t10645 - 0.4801199400e3 * t8781 * t10645 + 0.8962238880e3 * t10666 * t10645 - 0.38671210573177680000e4 * t8784 * t10645 + 0.23252137373993976e5 * t8790 * t10645 - 0.22458491436029040e5 * t10673 * t10645 - 0.42944819001008400000e4 * t8847 * t10645 + 0.16008000000000000000e3 * t10679 + 0.16878332155285605925e5 * t10681 * t559 - 0.19204797600e4 * t8359 * t487 + 0.324601806508e0 * t555 * t558 * t10588 - 0.26673330e1 * t335 * t104 * t10588 + 0.17782220e1 * t491 * t493 * t10588;
11443   t10732 = t2963 * t502;
11444   t10735 = t2907 * t541;
11445   t10738 = t2958 * t133;
11446   t10745 = 0.11018169670683420e5 * t2592 * t1393 - 0.90997229293852000000e4 * t3569 * t1396 - 0.1738242673850340e4 * t2609 * t1339 + 0.3978519606294e1 * t503 * t506 * t10588 + 0.17415564533880e2 * t352 * t128 * t10588 - 0.16292037787773930e5 * t8392 * t497 + 0.20649990282445968889e5 * t10732 * t507 - 0.95041550595800977777e5 * t10735 * t546 + 0.33140789274074074074e4 * t10738 * t494 + 0.102836250259711920e6 * t8352 * t536 - 0.19120669412353740e5 * t8376 * t549;
11447   t10766 = t2968 * t515;
11448   t10777 = t2902 * t147;
11449   t10782 = t1287 * t7878;
11450   t10786 = t1334 * t502 * t125;
11451   t10790 = t1320 * t554 * t1312;
11452   t10795 = 0.21881857834617000000e3 * t1336 * t3524 + 0.1044933872032800e4 * t961 * t3527 - 0.81272634491439999999e3 * t1367 * t3530 - 0.998997796796625e3 * t830 * t3533 + 0.75479833535745000000e3 * t1374 * t3536 + 0.379936885195980e3 * t841 * t3539 - 0.28143472977480000000e3 * t1380 * t3542 - 0.51124784525010e2 * t852 * t3545 + 0.37329207748419999999e2 * t1322 * t3548 - 0.12907298396270174815e6 * t10766 * t520 - 0.183815594610579000e6 * t8420 * t523 - 0.800199900e2 * t939 * t3553 + 0.71128880000000000001e2 * t1328 * t3556 - 0.268550073424845e3 * t950 * t3559 + 0.18109568949798374444e6 * t10777 * t533 + 0.119122461411739200e6 * t8324 * t510 - 0.214840058739876e3 * t1038 * t10782 - 0.21658176621196470667e5 * t10786 * t1280 - 0.16312034248109575111e5 * t10790 * t1315 - 0.13139881127443840000e5 * t3857 * t3945;
11453   t10818 = t526 * t133 * t114;
11454   t10824 = t1236 * t10483;
11455   t10827 = t1279 * t10490;
11456   t10832 = t1303 * t10483;
11457   t10835 = t1314 * t7837;
11458   t10838 = t1279 * t7837;
11459   t10849 = -0.29874129600000000000e4 * t3828 * t3971 + 0.2240559720e3 * t3818 * t10824 + 0.429680117479752e3 * t1407 * t10827 + 0.74861638120096800000e5 * t3784 * t3935 - 0.2887520327489448e4 * t3722 * t10832 + 0.1122924571801452e4 * t1439 * t10835 - 0.1120279860e3 * t1468 * t10838 - 0.1120279860e3 * t1468 * t10827 + 0.640159920e2 * t1403 * t10782 + 0.17718337066630329000e5 * t8582 * t1272 + 0.12890403524392560e5 * t1271 * t3971;
11460   t10860 = t1295 * t10483;
11461   t10863 = t1303 * t7837;
11462   t10866 = t1303 * t10490;
11463   t10878 = t1314 * t10490;
11464   t10881 = t1458 * t7878;
11465   t10884 = t3601 * t2483;
11466   t10889 = t3612 * t2483;
11467   t10894 = t3628 * t2483;
11468   t10899 = t1314 * t7878;
11469   t10904 = -0.1002586940786088e4 * t3712 * t10824 + 0.429680117479752e3 * t1407 * t10838 - 0.14492128038863040000e6 * t3848 * t3901 + 0.6393585899498400e4 * t3753 * t10860 - 0.2557434359799360e4 * t1424 * t10863 - 0.2557434359799360e4 * t1424 * t10866 - 0.171389753836224e3 * t1453 * t1458 * t10490 + 0.14314939667002800e5 * t1302 * t3935 - 0.555069089128680e3 * t3729 * t10832 + 0.204499138100040e3 * t1447 * t10835 + 0.204499138100040e3 * t1447 * t10878 - 0.81799655240016e2 * t1077 * t10881 + 0.23632406461386360000e4 * t3992 * t10884 + 0.12225726302783760e5 * t3182 * t10884 - 0.10971805656344400e5 * t3999 * t10889 - 0.14385568273871400000e5 * t3110 * t10889 + 0.12227733032790690000e5 * t4006 * t10894 + 0.6496920736851258e4 * t3121 * t10894 + 0.1118877532412220e4 * t1428 * t10899 - 0.10143470530543341600e6 * t8156 * t1296;
11470   t10916 = t158 * t541 * t165;
11471   t10919 = t3357 * t2483;
11472   t10940 = t1295 * t10540;
11473   t10943 = t1287 * t10483;
11474   t10946 = t3628 * t3409;
11475   t10951 = t3659 * t3409;
11476   t10956 = 0.3200799600e3 * t3812 * t10541 + 0.1600399800e3 * t1462 * t10532 + 0.1122924571801452e4 * t1439 * t10878 - 0.472810346021664e3 * t1443 * t10881 + 0.18608285460780862000e5 * t8150 * t1304 + 0.27168280672852800e5 * t3740 * t10940 - 0.5433656134570560e4 * t3740 * t10943 + 0.4528046778808800e4 * t1486 * t10946 - 0.24507680774771040000e4 * t3979 * t3919 - 0.2583570819332664e4 * t1432 * t10951 + 0.56849815414509600000e4 * t3985 * t3895;
11477   t10959 = t1314 * t10540;
11478   t10962 = t3671 * t3409;
11479   t10969 = t1279 * t10540;
11480   t10972 = t3601 * t3409;
11481   t10981 = t3659 * t2483;
11482   t10991 = t1295 * t7837;
11483   t10994 = t1295 * t10490;
11484   t10997 = t1303 * t7878;
11485   t11002 = t1303 * t10540;
11486   t11009 = 0.20212642292426136e5 * t3722 * t10959 + 0.2245849143602904e4 * t1439 * t10962 + 0.10838454319302120000e4 * t3104 * t3895 - 0.58325681600000000001e3 * t3968 * t3914 - 0.6721679160e3 * t3818 * t10969 - 0.2240559720e3 * t1468 * t10972 + 0.24706606755085740000e4 * t3147 * t3914 + 0.3007760822358264e4 * t3712 * t10969 + 0.859360234959504e3 * t1407 * t10972 - 0.5319116392743720e4 * t4013 * t10981 - 0.10122707335951980000e4 * t3129 * t10981 + 0.80631088736587200000e3 * t4021 * t3671 * t2483 - 0.5041259370e3 * t3169 * t10510 + 0.2797193831030550e4 * t1417 * t10991 + 0.2797193831030550e4 * t1417 * t10994 - 0.1198797356155950e4 * t1023 * t10997 - 0.12982531368148140000e5 * t3960 * t3890 - 0.38361515396990400e5 * t3753 * t11002 - 0.5114868719598720e4 * t1424 * t10951 + 0.3885483623900760e4 * t3729 * t10959;
11487   t11022 = t1295 * t7878;
11488   t11025 = t1287 * t10540;
11489   t11030 = t9770 * t723;
11490   t11039 = t9825 * t723;
11491   t11044 = t9803 * t723;
11492   t11061 = 0.240059970e2 * t892 * t10527 - 0.213386640e2 * t1271 * t11039 + 0.80565022027453500000e2 * t901 * t11039 - 0.65645573503851000000e2 * t1278 * t11044 + 0.2264023389404400e4 * t1486 * t10991 + 0.2264023389404400e4 * t1486 * t10994 - 0.1044933872032800e4 * t1413 * t10997 + 0.15184766511308700000e5 * t3020 * t3898 + 0.36363519803397150e5 * t3747 * t10940 - 0.7272703960679430e4 * t3747 * t10943 + 0.5594387662061100e4 * t1417 * t10946;
11493   t11065 = t1235 * t9969;
11494   t11068 = t727 * t1279 * t2348;
11495   t11071 = t465 * t56 * t467;
11496   t11072 = t11071 * t9965;
11497   t11074 = t2437 * t3386;
11498   t11077 = t727 * t3357 * t751;
11499   t11079 = t741 * t1227;
11500   t11081 = t677 * t57;
11501   t11082 = t11081 * t467;
11502   t11083 = t11082 * t3391;
11503   t11085 = t3337 * t467;
11504   t11086 = t11085 * t1237;
11505   t11088 = t3398 * t3383;
11506   t11090 = t3390 * t9648;
11507   t11092 = t1235 * t9651;
11508   t11095 = t727 * t1213 * t2405;
11509   t11098 = t2958 * t96 * t492;
11510   t11099 = t11098 * t9633;
11511   t11102 = t7675 * t1206 * t218;
11512   t11104 = t3398 * t3361;
11513   t11106 = t1226 * t9580;
11514   t11108 = t1226 * t9586;
11515   t11110 = t1235 * t9589;
11516   t11112 = t1235 * t9525;
11517   t11114 = t2369 * t1207;
11518   t11116 = -0.32016e2 * t11065 + 0.12006e2 * t11068 + 0.32016e2 * t11072 - 0.60030e2 * t11074 - 0.12006e2 * t11077 + 0.97826666666666666669e3 * t11079 + 0.40020000000000000000e3 * t11083 - 0.48913333333333333334e3 * t11086 + 0.20010000000000000000e3 * t11088 + 0.48024e2 * t11090 + 0.24012e2 * t11092 + 0.2001e1 * t11095 - 0.12606300000000000000e4 * t11099 + 0.54027000000000000000e3 * t11102 - 0.66700000000000000000e2 * t11104 + 0.16008e2 * t11106 + 0.5336e1 * t11108 - 0.8004e1 * t11110 - 0.2668e1 * t11112 - 0.240120e3 * t11114;
11519   t11119 = t9807 * t723;
11520   t11126 = t1279 * t10483;
11521   t11129 = t3612 * t3409;
11522   t11132 = t1287 * t7837;
11523   t11135 = t1287 * t10490;
11524   t11138 = t1458 * t10474;
11525   t11142 = t1365 * t515 * t138;
11526   t11148 = t1303 * t10474;
11527   t11153 = t1314 * t10474;
11528   t11158 = t1287 * t10474;
11529   t11171 = 0.10565442483887200000e6 * t3639 * t3952 - 0.13584140336426400e5 * t1486 * t11148 - 0.20668566554661312e5 * t3760 * t11002 + 0.9042497867664324e4 * t1432 * t11153 - 0.8983396574411616e4 * t1439 * t11138 + 0.4481119440e3 * t1468 * t11158 - 0.1718720469919008e4 * t1407 * t11158 + 0.5747136296180400e4 * t3688 * t11126 - 0.4597709036944320e4 * t1480 * t11129 - 0.2298854518472160e4 * t1480 * t11132 - 0.2298854518472160e4 * t1480 * t11135;
11530   t11178 = t9763 * t723;
11531   t11185 = t1295 * t10474;
11532   t11204 = t1372 * t147 * t152;
11533   t11209 = t7643 * t1214;
11534   t11211 = t768 * t3372;
11535   t11213 = t2437 * t3380;
11536   t11215 = t5672 * t3372;
11537   t11217 = t3354 * t67;
11538   t11218 = t11217 * t1214;
11539   t11221 = t1205 * t3368 * t736;
11540   t11223 = 0.18479239245633570000e6 * t8123 * t1288 + 0.139859691551527500e6 * t1286 * t3952 - 0.16783162986183300e5 * t1417 * t11148 - 0.17962523051873182333e6 * t11204 * t1296 + 0.17902040518595520e5 * t1424 * t11153 + 0.120060e3 * t11209 - 0.60030e2 * t11211 + 0.30015e2 * t11213 - 0.12006e2 * t11215 + 0.12006e2 * t11218 - 0.12006e2 * t11221;
11541   t11226 = t1205 * t1206 * t2397;
11542   t11229 = t727 * t3376 * t781;
11543   t11231 = t768 * t3369;
11544   t11233 = t2437 * t3377;
11545   t11236 = t1205 * t10521 * t238;
11546   t11239 = t727 * t9864 * t263;
11547   t11241 = t3395 * t3401;
11548   t11243 = t3398 * t3358;
11549   t11245 = t1226 * t9865;
11550   t11247 = t1235 * t9826;
11551   t11250 = t3395 * t3404;
11552   t11276 = 0.13340000000000000000e3 * t11250 - 0.29863366198736000000e3 * t3860 * t3866 + 0.21423719229528e2 * t1453 * t3671 * t736 + 0.7141239743176e1 * t1453 * t1314 * t2397 - 0.7790443356192e1 * t1457 * t3590 * t781 - 0.2596814452064e1 * t1457 * t1458 * t2405 - 0.36008995500e4 * t3420 * t1227 + 0.14403598200e4 * t9239 * t1237 - 0.8001999000e3 * t1231 * t3401 - 0.4000999500e3 * t1231 * t3404 + 0.3200799600e3 * t2870 * t3358;
11553   t11283 = t3435 * t266;
11554   t11284 = t11283 * t174;
11555   t11287 = t1243 * t784;
11556   t11288 = t11287 * t174;
11557   t11291 = t1243 * t788;
11558   t11292 = t11291 * t174;
11559   t11295 = t472 * t2492;
11560   t11296 = t11295 * t174;
11561   t11298 = t9380 * t9382;
11562   t11299 = t472 * t2498;
11563   t11300 = t11299 * t174;
11564   t11302 = t1137 * t3224;
11565   t11311 = t3222 * t9363;
11566   t11316 = t3458 * t3206;
11567   t11319 = t416 * t3211;
11568   t11339 = 0.30e2 * t10071 + 0.288e3 * t10074 - 0.144e3 * t10076 + 0.54e2 * t10080 + 0.27e2 * t10084 - 0.27e2 * t10088 - 0.27e2 / 0.2e1 * t10090 + 0.1080e4 * t10097 - 0.540e3 * t10101 - 0.90e2 * t10106 - 0.1040e4 * t10110;
11569   t11352 = 0.520e3 * t10113 - 0.120e3 * t10115 - 0.60e2 * t10117 + 0.60e2 * t10119 - 0.324e3 * t10123 + 0.162e3 * t10125 + 0.27e2 * t10128 - 0.180e3 * t10134 - 0.36e2 * t10476 + 0.2430e4 * t10481 + 0.72e2 * t10485 - 0.48e2 * t10488;
11570   t11365 = -0.48e2 * t10492 + 0.36e2 * t10495 + 0.18e2 * t10498 + 0.18e2 * t10501 - 0.18e2 * t10504 - 0.8990e4 / 0.9e1 * t10508 + 0.270e3 * t10511 + 0.144e3 * t10514 + 0.144e3 * t10519 + 0.27e2 / 0.2e1 * t10523 - 0.260e3 * t10525;
11571   t11378 = -0.15e2 * t10528 - 0.800e3 * t10530 - 0.96e2 * t10533 - 0.918e3 * t10535 - 0.162e3 * t10538 - 0.144e3 * t10542 + 0.314e3 * t10544 + 0.180e3 * t10546 + 0.27e2 * t10550 + 0.36e2 * t10553 + 0.50e2 * t10585 + 0.2e1 * t10590;
11572   t11392 = -0.18e2 * t10592 + 0.20900e5 / 0.27e2 * t10595 - 0.180e3 * t10597 - 0.90e2 * t10599 - 0.180e3 * t10601 + 0.1100e4 / 0.3e1 * t10603 - 0.45e2 * t10606 - 0.3e1 * t10609 - 0.54e2 * t10646 + 0.240e3 * t10679 - 0.48e2 * t11065;
11573   t11405 = 0.18e2 * t11068 + 0.48e2 * t11072 - 0.90e2 * t11074 - 0.18e2 * t11077 + 0.4400e4 / 0.3e1 * t11079 + 0.600e3 * t11083 - 0.2200e4 / 0.3e1 * t11086 + 0.300e3 * t11088 + 0.72e2 * t11090 + 0.36e2 * t11092 + 0.3e1 * t11095 - 0.1890e4 * t11099;
11574   t11419 = 0.810e3 * t11102 - 0.100e3 * t11104 + 0.24e2 * t11106 + 0.8e1 * t11108 - 0.12e2 * t11110 - 0.4e1 * t11112 - 0.360e3 * t11114 + 0.180e3 * t11209 - 0.90e2 * t11211 + 0.45e2 * t11213 - 0.18e2 * t11215 + 0.18e2 * t11218;
11575   t11432 = -0.18e2 * t11221 - 0.6e1 * t11226 + 0.9e1 * t11229 - 0.180e3 * t11231 + 0.90e2 * t11233 - 0.18e2 * t11236 + 0.9e1 * t11239 + 0.400e3 * t11241 - 0.200e3 * t11243 + 0.24e2 * t11245 - 0.12e2 * t11247 + 0.200e3 * t11250;
11576   t11435 = t11339 + t11352 + t11365 + t11378 + t11392 + t11405 + t11419 + t11432;
11577   t11439 = t416 * t417 * t11435 * t174 - 0.6e1 * t1496 * t11284 - 0.3e1 * t1504 * t11284 - 0.6e1 * t1496 * t11288 - 0.3e1 * t1504 * t11288 + 0.18e2 * t4130 * t11292 + 0.18e2 * t4138 * t11292 + 0.3e1 * t4150 * t11292 - 0.2e1 * t1496 * t11296 - t1504 * t11296 - t11298 * t11300 - 0.36e2 * t11302 * t11300 - 0.12e2 * t11311 * t11300 - 0.24e2 * t11319 * t11300 + 0.18e2 * t4130 * t11316 + 0.18e2 * t4138 * t11316 + 0.3e1 * t4150 * t11316;
11578   t11440 = my_piecewise3(t92, -0.477422352755280e3 * t1472 * t11135 - 0.1635993104800320e4 * t1447 * t11138 - 0.17505486267693600000e5 * t3764 * t3926 - 0.4296801174797520e4 * t3768 * t11025 + 0.1074200293699380e4 * t3768 * t11126 - 0.954844705510560e3 * t1472 * t11129 - 0.313480161609840e3 * t906 * t11044 + 0.243817903474320e3 * t1286 * t11119 + 0.238711176377640e3 * t1476 * t11022 - 0.22988545184721600e5 * t3688 * t11025 - 0.69148513105668360000e4 * t3092 * t3890 + 0.15337435357503000000e2 * t883 * t11030 + 0.408998276200080e3 * t1447 * t10962 - 0.86603761976334399999e3 * t3939 * t3909 + 0.11540714097784480000e5 * t3949 * t3898 - 0.452804677880880e3 * t1486 * t9891 + 0.23188014880000000000e4 * t8160 * t1232 + 0.16003998000e4 * t1231 * t3423 - 0.1600399800e3 * t3812 * t10484 + 0.800199900e2 * t1462 * t10487 + 0.800199900e2 * t1462 * t10491 - 0.480119940e2 * t1033 * t10494 - 0.36971211182222222223e4 * t10818 * t1272 + 0.5761439280e3 * t4028 * t10919 - 0.24169506608236050000e4 * t3177 * t10919 + 0.49612393800000000000e3 * t3080 * t3426 - 0.77507124579979920e5 * t1294 * t3901 + 0.3444761092443552e4 * t3760 * t10860 - 0.1291785409666332e4 * t1432 * t10863 - 0.1291785409666332e4 * t1432 * t10866 + 0.531911639274372e3 * t1028 * t10899 + 0.92867206720577893333e5 * t10916 * t1304 - 0.2887520327489448e4 * t3722 * t9756 - 0.472810346021664e3 * t1443 * t9728 - 0.555069089128680e3 * t3729 * t9756 + 0.199799559359325e3 * t1023 * t9764 + 0.426239059966560e3 * t1424 * t9767 - 0.159839647487460e3 * t1428 * t9771 + 0.215297568277722e3 * t1432 * t9767 - 0.75987377039196e2 * t1028 * t9771 - 0.160417795971636e3 * t1439 * t9778 + 0.103342832773306560e6 * t5291 * t3754 + 0.15957349178231160e5 * t2899 * t3718 + 0.29836734197659200e5 * t9981 * t9982 + 0.245398965720048e3 * t1077 * t9985 - 0.12678530980664640000e6 * t5273 * t3741 - 0.19923405826758720e5 * t9996 * t9997 + 0.574713629618040e3 * t1480 * t9842 + 0.191571209872680e3 * t1480 * t9790 - 0.208986774406560e3 * t1016 * t9793 - 0.69662258135520e2 * t1016 * t9877 - 0.23596154880681413333e6 * t1046 * t1418 + 0.90754441848774666666e5 * t9882 * t1414 - 0.21130884967774400000e5 * t3639 * t3620 - 0.10565442483887200000e5 * t3639 * t3645 + 0.40636317245720000000e4 * t3642 * t3648 + 0.640159920e2 * t1033 * t9969 - 0.19427418119503800e5 * t5202 * t3723 - 0.2862987933400560e4 * t2771 * t3726 + 0.26586457269059655000e5 * t8932 * t9638 - 0.1600399800e3 * t3812 * t9648 - 0.480119940e2 * t1033 * t9651 + 0.2240559720e3 * t3818 * t9654 - 0.90575800242894000000e4 * t3851 * t3660 + 0.715746983350140e3 * t2771 * t3672 + 0.357873491675070e3 * t2771 * t3793 - 0.29214162585720e2 * t1447 * t9572 - 0.9738054195240e1 * t1447 * t9575 + 0.84430418932440e2 * t1302 * t11030 + 0.2387111763776400e4 * t1472 * t11185 - 0.12327897614715856000e6 * t8694 * t1280 - 0.91954180738886400e5 * t1278 * t3926 + 0.11494272592360800e5 * t1480 * t11185 - 0.12748193238800160000e5 * t3159 * t3919 + 0.1044933872032800e4 * t1016 * t11022 + 0.29969933903898750000e3 * t866 * t11119 - 0.22643950060723500000e3 * t1294 * t11178 - 0.113981065558794e3 * t875 * t11178 + 0.13083088094577585778e6 * t11142 * t1288 - 0.477422352755280e3 * t1472 * t11132 + 0.19853743568623200e5 * t2697 * t1357 - 0.18150888369754933333e5 * t3507 * t1360 - 0.23975947123119000e5 * t2571 * t1385 + 0.20631154499770300000e5 * t3513 * t1390 + 0.37928553580002800000e4 * t3574 * t1354 + 0.13936237559410133333e4 * t3577 * t1342 - 0.7201799100e3 * t2629 * t1345 + 0.87725618666666666667e3 * t3562 * t1348 - 0.3759701027947830e4 * t2645 * t1351 + 0.80660149920000000001e4 * t10580 * t4029 + 0.25266501025753104000e6 * t8642 * t3993 + 0.52516458803080800000e3 * t4083 * t10087 - 0.6896563555416480e4 * t4087 * t10079 + 0.2507841292878720e4 * t2543 * t10087 + 0.6339265490332320e4 * t4093 * t10079 + 0.83915814930916500000e4 * t4100 * t10079 - 0.29969933903898750000e4 * t2537 * t10087 - 0.72460640194315200000e4 * t4106 * t10079 - 0.3448281777708240e4 * t4087 * t10083 + 0.1253920646439360e4 * t2543 * t10070 - 0.31002849831991968e5 * t10354 * t10133 + 0.61349741430012000000e3 * t4045 * t10079 - 0.21472409500504200000e3 * t2540 * t10087 - 0.49274554227914400000e3 * t4052 * t10079 + 0.17918019719241600000e3 * t4056 * t10087 + 0.2400599700e3 * t4060 * t10079 - 0.960239880e2 * t2528 * t10087 - 0.2987412960e3 * t4066 * t10079 - 0.2438179034743200e4 * t4096 * t10087 - 0.59081016153465900000e4 * t10351 * t10133 + 0.10801464928756824000e6 * t10226 * t3323 - 0.39794870790156720000e5 * t10229 * t3327 + 0.1604177959716360e4 * t4119 * t10083 - 0.591012932527080e3 * t4122 * t10070 + 0.21676908638604240000e5 * t10236 * t3323 - 0.75869180235114840000e4 * t8747 * t3327 + 0.30674870715006000000e3 * t4045 * t10083 - 0.10736204750252100000e3 * t2540 * t10070 - 0.1937678114499498e4 * t4113 * t10083 + 0.683886393352764e3 * t2531 * t10070 + 0.99580432000000000001e3 * t3828 * t3598 + 0.49790216000000000001e3 * t3828 * t3834 - 0.42677328000000000000e3 * t3831 * t3602 - 0.21338664000000000000e3 * t3831 * t3837 + 0.373426620e2 * t1468 * t9493 + 0.124475540e2 * t1468 * t9496 - 0.160039980e2 * t1403 * t9503 - 0.53346660e1 * t1403 * t9506 - 0.30077608223582640e5 * t3968 * t1408 - 0.75987377039196e2 * t1028 * t9552 + 0.531911639274372e3 * t1028 * t9720 + t9870 + t10455 + 0.40020000000000000000e2 * t10119 + 0.33350000000000000001e2 * t10585 - 0.21610800000000000000e3 * t10123 + 0.10805400000000000000e3 * t10125 - 0.120060e3 * t10597 - 0.60030e2 * t10599 + t11009 + t10695 + t9917 + t10904 + t10220 + t9968 + t11116 + t10578 + 0.2999320692133920e4 * t9989 * t1314 * t2340 - 0.5967779409441e1 * t343 * t117 * t10588 + 0.449898103820088e3 * t3735 * t1314 * t10483 - 0.171389753836224e3 * t1453 * t1458 * t7837 + 0.70113990205728e2 * t1457 * t3808 * t7878 + 0.1542507784526016e4 * t1453 * t3808 * t10474 - 0.3599184830560704e4 * t3735 * t1458 * t10540 - 0.342779507672448e3 * t1453 * t3590 * t3409 - 0.11198762324526000000e2 * t1313 * t9782 * t723 + t10849 + t9813 + 0.1334e1 * t10590 + t11171 - 0.24012e2 * t10476 - 0.80040000000000000000e2 * t10115 - 0.40020000000000000000e2 * t10117 + 0.72036000000000000000e3 * t10097 + t10092 + t10404 + t10516 - 0.36018000000000000000e3 * t10101 + t10745 + t10035 + t9753 + t11061 + t10795 - 0.69368000000000000001e3 * t10110 + 0.34684000000000000001e3 * t10113 + t9533 + t10284 + t9701 + t10956 - 0.60030000000000000000e2 * t10106 + t10160 - 0.120060e3 * t10601 + 0.24456666666666666668e3 * t10603 + t10637 + t11276 - 0.12006e2 * t10592 + 0.51630740740740740742e3 * t10595 + 0.70113990205728e2 * t1457 * t2655 * t1218 * t751 + 0.16008e2 * t11245 - 0.8004e1 * t11247 + t10347 + t9583 + 0.26680000000000000000e3 * t11241 - 0.13340000000000000000e3 * t11243 + 0.6003e1 * t11239 - 0.12006e2 * t11236 - 0.120060e3 * t11231 + 0.60030e2 * t11233 + 0.6003e1 * t11229 - 0.4002e1 * t11226 + t11223 + t9641, t11439);
11579   t11468 = 0.1174e1 * t11440 - 0.6e1 * t2289 * t2290 * t566 + 0.6e1 * t667 * t1266 * t804 - t91 * t11440 - 0.3e1 * t205 * t277 * t4153 + 0.6e1 * t667 * t668 * t1507 - t205 * t2519 * t566 - 0.3e1 * t205 * t804 * t1507 - t205 * t482 * t3229 - 0.3e1 * t205 * t3469 * t421 - 0.3e1 * t205 * t1261 * t1144;
11580   t11494 = t2512 * t472;
11581   t11503 = t473 * t79;
11582   t11507 = t77 * t2492 * t81;
11583   t11511 = t796 * t2498 * t81;
11584   t11540 = t2498 * t77 * t81;
11585   t11546 = -0.3e1 / 0.100e3 * t11494 * t2509 - t270 * t11435 * t81 / 0.100e3 - 0.539e3 / 0.21870e5 * t47 * t14 * t2300 + 0.9e1 / 0.50e2 * t11503 * t2509 - 0.3e1 / 0.100e3 * t473 * t11507 - t473 * t11511 / 0.10e2 + 0.3e1 / 0.100e3 * t797 * t11283 * t81 + 0.3e1 / 0.100e3 * t797 * t11287 * t81 - 0.3e1 / 0.100e3 * t2512 * t11291 * t81 + t797 * t11295 * t81 / 0.100e3 + t7958 * t11299 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t3436 * t1248 - 0.9e1 / 0.100e3 * t1244 * t798 - 0.9e1 / 0.100e3 * t1244 * t3444 + 0.9e1 / 0.50e2 * t1244 * t3448 - 0.9e1 / 0.100e3 * t473 * t2509 + 0.3e1 / 0.20e2 * t473 * t11540 + t46 * t11435 * t81 / 0.100e3;
11586   t11552 = t2289 * t482;
11587   t11582 = t205 * (-0.1540e4 / 0.6561e4 * t15 * t2300 - 0.209e3 / 0.243e3 * t30 * sigma[0] * t2304 * t42 + 0.2809e4 / 0.480e3 * t220 * t31 * t2309 * t42 - 0.18837e5 / 0.12800e5 * t1191 * t2317 + 0.29403e5 / 0.256000e6 * t3307 * t2327 - 0.19683e5 / 0.1280000e7 * t7611 * t2322 / t397 * t42 + 0.2e1 * t2516 * t479 + 0.6e1 * t801 * t1258 + 0.6e1 * t274 * t3466 + 0.2e1 * t84 * t11546) * t177 + 0.18e2 * t11552 * t2294 - 0.24e2 * t7558 * t483 * t2290 - 0.2e1 * t667 * t483 * t2519 + 0.6e1 * t667 * t1264 * t804 + 0.6e1 * t667 * t3475 * t277 - 0.6e1 * t667 * t1262 * t804 + 0.12e2 * t667 * t3472 * t277 - 0.18e2 * t2289 * t1264 * t668 - 0.6e1 * t667 * t3470 * t277 + 0.18e2 * t2289 * t1262 * t668;
11588   t11589 = t51 * t2 * t4;
11589   t11607 = t2276 * t433;
11590   t11614 = t2261 * t433;
11591   t11631 = 0.10390590000000000000e4 * t9476 * t9477 / t107 * sigma[0] * t26 * t183 - 0.3e1 / 0.8e1 * t201 * t7 * (t11468 + t11582) * t195 + t11589 * t571 / 0.9e1 - t3275 * t1512 / 0.2e1 - 0.3e1 / 0.2e1 * t1175 * t4158 - 0.32302153261130400000e3 * t3269 * t570 * t3270 + 0.36339922418771700000e3 * t576 * t2002 * t51 * t3270 + 0.36339922418771700000e3 * t1519 * t4199 + 0.80541612095716256868e2 * t2284 * t4169 + 0.89062200000000000000e2 * t11607 * t1515 * t1164 - 0.24739500000000000000e1 * t3279 * t4161 * t443 + 0.5497666666666666667e0 * t11614 * t1515 * t443 - 0.89062200000000000000e2 * t1157 * t4161 * t1164 - 0.74218500000000000000e1 * t434 * t435 * t4156 * t443 + 0.24226614945847800000e3 * t574 * t575 * t577 * t2261 * t1161 * t9459;
11592   t11640 = t1530 * t2282;
11593   t11651 = t5 * t1148;
11594   t11681 = -0.77929425000000000000e2 * t1519 * t4192 - 0.15101552267946798162e3 * t4177 * t4195 - 0.65726558181610899501e3 * t1528 * t5610 * rho[0] * t9459 - 0.10335484506728653772e1 * t1528 * t2483 * t11640 * t194 + 0.66796650000000000000e3 * t1519 * t4183 - 0.18603872112111576789e1 * t4177 * t4188 + 0.33398325000000000000e2 * t4172 * t1525 - 0.90609313607680788975e2 * t11651 * t1532 + 0.92773125000000000000e0 * t574 * t3233 * t580 - 0.59374800000000000000e3 * t3249 * t569 * t3256 * t3258 + 0.16536775210765846035e1 * t2284 * t569 * t10 * t3264 + 0.24162483628714877061e3 * t1168 * t1510 * t577 * t1170 + 0.86588250000000000000e2 * t576 * t1162 * t1522 * t2276 - 0.33559005039881773695e2 * t1528 * t11640 * t1170 - 0.15585885000000000000e4 * t576 * t4180 * t194 * t2300 * t185;
11595   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11596     v4rho3sigma[0] = t11631 + t11681;
11597 
11598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11599     v4rho3lapl[0] = 0.0e0;
11600 
11601   t11715 = t7558 * t84;
11602   t11743 = t10112 * t4327;
11603   t11745 = t4326 * t2458;
11604   t11746 = t10103 * t11745;
11605   t11748 = t3337 * t1576;
11606   t11750 = t761 * t1561;
11607   t11752 = t3354 * t1561;
11608   t11754 = t259 * t4247;
11609   t11757 = my_piecewise3(t55, -0.440e3 / 0.27e2 * t673, 0);
11610   t11759 = t233 * t75 * t11757;
11611   t11761 = t1222 * t4252;
11612   t11764 = t466 * t468 * t11757;
11613   t11767 = t1560 * t26 * t746;
11614   t11768 = t2336 * t11767;
11615   t11770 = t4326 * t2462;
11616   t11771 = t2336 * t11770;
11617   t11773 = 0.520e3 * t11743 - 0.90e2 * t11746 + 0.1100e4 / 0.3e1 * t11748 - 0.180e3 * t11750 - 0.18e2 * t11752 - 0.45e2 * t11754 - 0.3e1 * t11759 + 0.50e2 * t11761 + 0.2e1 * t11764 - 0.27e2 * t11768 - 0.27e2 / 0.2e1 * t11771;
11618   t11775 = t583 * t10 * t2487;
11619   t11776 = t7901 * t11775;
11620   t11778 = t1560 * t238;
11621   t11779 = t11778 * t723;
11622   t11780 = t3331 * t11779;
11623   t11783 = t583 * t736 * t723;
11624   t11784 = t3331 * t11783;
11625   t11786 = t4322 * t2483;
11626   t11787 = t10094 * t11786;
11627   t11789 = t3334 * t11767;
11628   t11791 = t3334 * t11770;
11629   t11793 = t10099 * t11775;
11630   t11795 = t10073 * t4323;
11631   t11797 = t7909 * t4327;
11632   t11799 = t7917 * t11745;
11633   t11801 = t10109 * t4323;
11634   t11804 = t583 * t716 * t723;
11635   t11805 = t10131 * t11804;
11636   t11807 = 0.162e3 * t11776 - 0.120e3 * t11780 - 0.60e2 * t11784 + 0.1080e4 * t11787 + 0.60e2 * t11789 + 0.30e2 * t11791 - 0.540e3 * t11793 + 0.288e3 * t11795 - 0.144e3 * t11797 + 0.27e2 * t11799 - 0.1040e4 * t11801 - 0.180e3 * t11805;
11637   t11809 = t3321 * t11779;
11638   t11811 = t3321 * t11783;
11639   t11813 = t10122 * t11786;
11640   t11815 = t4322 * t10644;
11641   t11816 = t10678 * t11815;
11642   t11818 = t7912 * t11815;
11643   t11821 = t1205 * t4262 * t3409;
11644   t11823 = t10594 * t587;
11645   t11825 = t2362 * t584;
11646   t11827 = t2380 * t584;
11647   t11829 = t2466 * t4305;
11648   t11831 = t74 * t4246;
11649   t11833 = t721 * t11831 * t723;
11650   t11835 = 0.54e2 * t11809 + 0.27e2 * t11811 - 0.324e3 * t11813 + 0.240e3 * t11816 - 0.54e2 * t11818 + 0.36e2 * t11821 + 0.20900e5 / 0.27e2 * t11823 - 0.180e3 * t11825 - 0.90e2 * t11827 + 0.144e3 * t11829 + 0.27e2 / 0.2e1 * t11833;
11651   t11837 = t1205 * t1572 * t10474;
11652   t11839 = t1722 * t10474;
11653   t11840 = t1226 * t11839;
11654   t11842 = t1572 * t10540;
11655   t11843 = t3390 * t11842;
11656   t11845 = t4262 * t2483;
11657   t11846 = t3430 * t11845;
11658   t11848 = t3420 * t4316;
11659   t11850 = t103 * t4246;
11660   t11851 = t11850 * t723;
11661   t11852 = t1231 * t11851;
11662   t11854 = t7865 * t4308;
11663   t11857 = t2482 * t4280 * t2483;
11664   t11859 = t10480 * t4319;
11665   t11861 = t1572 * t10490;
11666   t11862 = t1226 * t11861;
11667   t11864 = t1722 * t7878;
11668   t11865 = t1235 * t11864;
11669   t11867 = t7885 * t1552;
11670   t11869 = -0.36e2 * t11837 + 0.144e3 * t11840 - 0.144e3 * t11843 + 0.270e3 * t11846 - 0.260e3 * t11848 - 0.15e2 * t11852 - 0.918e3 * t11854 - 0.162e3 * t11857 + 0.2430e4 * t11859 - 0.48e2 * t11862 + 0.36e2 * t11865 + 0.314e3 * t11867;
11671   t11872 = t768 * t4302;
11672   t11875 = t1205 * t1555 * t7837;
11673   t11878 = t1205 * t1555 * t10490;
11674   t11881 = t727 * t1572 * t7878;
11675   t11883 = t10507 * t1569;
11676   t11885 = t3395 * t4313;
11677   t11887 = t4269 * t3409;
11678   t11888 = t1226 * t11887;
11679   t11890 = t1555 * t10483;
11680   t11891 = t3390 * t11890;
11681   t11893 = t1572 * t7837;
11682   t11894 = t1226 * t11893;
11683   t11896 = t10549 * t1552;
11684   t11899 = t1205 * t4280 * t736;
11685   t11901 = 0.180e3 * t11872 + 0.18e2 * t11875 + 0.18e2 * t11878 - 0.18e2 * t11881 - 0.8990e4 / 0.9e1 * t11883 - 0.800e3 * t11885 - 0.96e2 * t11888 + 0.72e2 * t11891 - 0.48e2 * t11894 + 0.27e2 * t11896 - 0.18e2 * t11899;
11686   t11903 = t1205 * t1548 * t2397;
11687   t11906 = t7675 * t1548 * t218;
11688   t11908 = t1555 * t218;
11689   t11909 = t11098 * t11908;
11690   t11911 = t2437 * t4297;
11691   t11913 = t1555 * t2397;
11692   t11914 = t1226 * t11913;
11693   t11916 = t116 * t4246;
11694   t11917 = t11916 * t263;
11695   t11918 = t1235 * t11917;
11696   t11920 = t4269 * t781;
11697   t11921 = t1235 * t11920;
11698   t11923 = t1572 * t2405;
11699   t11924 = t1235 * t11923;
11700   t11926 = t2369 * t1549;
11701   t11928 = t7643 * t1556;
11702   t11930 = t768 * t4281;
11703   t11932 = t768 * t4285;
11704   t11934 = -0.6e1 * t11903 + 0.810e3 * t11906 - 0.1890e4 * t11909 + 0.90e2 * t11911 + 0.8e1 * t11914 - 0.12e2 * t11918 - 0.12e2 * t11921 - 0.4e1 * t11924 - 0.360e3 * t11926 + 0.180e3 * t11928 - 0.180e3 * t11930 - 0.90e2 * t11932;
11705   t11936 = t5672 * t4285;
11706   t11938 = t11217 * t1556;
11707   t11941 = t1205 * t11831 * t238;
11708   t11944 = t727 * t11850 * t263;
11709   t11947 = t727 * t4262 * t781;
11710   t11950 = t727 * t1555 * t2405;
11711   t11952 = t741 * t1566;
11712   t11954 = t11085 * t1573;
11713   t11956 = t3395 * t4263;
11714   t11958 = t3395 * t4266;
11715   t11960 = t3398 * t4270;
11716   t11962 = t3398 * t4273;
11717   t11964 = -0.18e2 * t11936 + 0.18e2 * t11938 - 0.18e2 * t11941 + 0.9e1 * t11944 + 0.9e1 * t11947 + 0.3e1 * t11950 + 0.4400e4 / 0.3e1 * t11952 - 0.2200e4 / 0.3e1 * t11954 + 0.400e3 * t11956 + 0.200e3 * t11958 - 0.200e3 * t11960 - 0.100e3 * t11962;
11718   t11965 = t11850 * t238;
11719   t11966 = t1226 * t11965;
11720   t11968 = t4262 * t736;
11721   t11969 = t1226 * t11968;
11722   t11971 = t1669 * t2348;
11723   t11972 = t1235 * t11971;
11724   t11975 = t727 * t1722 * t2348;
11725   t11977 = t4436 * t751;
11726   t11978 = t1235 * t11977;
11727   t11980 = t2437 * t4288;
11728   t11982 = t1555 * t2340;
11729   t11983 = t11071 * t11982;
11730   t11986 = t727 * t4269 * t751;
11731   t11988 = t2437 * t4255;
11732   t11990 = t11082 * t4291;
11733   t11992 = t3398 * t4294;
11734   t11994 = t4262 * t716;
11735   t11995 = t3390 * t11994;
11736   t11997 = 0.24e2 * t11966 + 0.24e2 * t11969 - 0.48e2 * t11972 + 0.18e2 * t11975 + 0.36e2 * t11978 - 0.90e2 * t11980 + 0.48e2 * t11983 - 0.18e2 * t11986 + 0.45e2 * t11988 + 0.600e3 * t11990 + 0.300e3 * t11992 + 0.72e2 * t11995;
11737   t12000 = t11773 + t11807 + t11835 + t11869 + t11901 + t11934 + t11964 + t11997;
11738   t12022 = t4335 * t266;
11739   t12026 = t1579 * t784;
11740   t12030 = t1579 * t788;
11741   t12034 = t590 * t2492;
11742   t12047 = t46 * t12000 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t4336 * t1248 - 0.9e1 / 0.100e3 * t1580 * t798 - 0.9e1 / 0.100e3 * t1580 * t3444 + 0.9e1 / 0.50e2 * t1580 * t3448 - 0.9e1 / 0.100e3 * t591 * t2509 + 0.3e1 / 0.20e2 * t591 * t11540 - 0.3e1 / 0.100e3 * t591 * t11507 - 0.3e1 / 0.100e3 * t5739 * t2509 - t591 * t11511 / 0.10e2 + 0.3e1 / 0.100e3 * t797 * t12022 * t81 + 0.3e1 / 0.100e3 * t797 * t12026 * t81 - 0.3e1 / 0.100e3 * t2512 * t12030 * t81 + t797 * t12034 * t81 / 0.100e3 + t7958 * t590 * t2498 * t81 / 0.100e3 + 0.9e1 / 0.50e2 * t5721 * t2509 - t270 * t12000 * t81 / 0.100e3;
11743   t12052 = t596 * t1144;
11744   t12056 = t1592 * t421;
11745   t12060 = 0.2e1 * t205 * t84 * t12047 * t177 + 0.36e2 * t4208 * t1538 * t277 * t804 + 0.6e1 * t205 * t801 * t1592 * t177 + 0.2e1 * t205 * t2516 * t596 * t177 + 0.6e1 * t205 * t274 * t4362 * t177 - 0.6e1 * t205 * t1542 * t1144 - 0.6e1 * t205 * t1593 * t1144 - 0.48e2 * t11715 * t1538 * t2290 + 0.12e2 * t1537 * t12052 * t277 + 0.24e2 * t1537 * t12056 * t277 - 0.4e1 * t1537 * t1538 * t2519 + 0.12e2 * t1537 * t4219 * t804 - 0.6e1 * t205 * t4226 * t421 - 0.12e2 * t205 * t4230 * t421 - 0.6e1 * t205 * t4363 * t421 - 0.6e1 * t2289 * t2290 * t643;
11746   t12064 = t4362 * t177;
11747   t12111 = -0.57703570488922399999e5 * t10401 * t4327 + 0.3169632745166160e4 * t4093 * t11783 - 0.1219089517371600e4 * t4096 * t11770 + 0.21258673115832180000e6 * t10374 * t4323 - 0.75923832556543500000e5 * t8859 * t4327 + 0.41957907465458250000e4 * t4100 * t11783 - 0.14984966951949375000e4 * t2537 * t11770 - 0.20772050189037024000e6 * t10176 * t4323 + 0.77895188208888840000e5 * t10179 * t4327 - 0.36230320097157600000e4 * t4106 * t11783 + 0.13586370036434100000e4 * t4109 * t11770 - 0.99224787600000000000e3 * t8839 * t4327 + 0.1200299850e3 * t4060 * t11783 - 0.480119940e2 * t2528 * t11770 - 0.14023012562680176000e6 * t10435 * t4323 + 0.50992772955200640000e5 * t8802 * t4327 - 0.3448281777708240e4 * t4087 * t11783 + 0.1253920646439360e4 * t2543 * t11770 + 0.15002928327119824000e6 * t10398 * t4323 + 0.34684000000000000001e3 * t11743;
11748   t12117 = t1676 * t10483;
11749   t12120 = t1689 * t7837;
11750   t12123 = t1689 * t10490;
11751   t12126 = t1700 * t7878;
11752   t12142 = t1669 * t10483;
11753   t12145 = t1676 * t7837;
11754   t12148 = t1676 * t10490;
11755   t12151 = t1689 * t7878;
11756   t12154 = t1676 * t7878;
11757   t12161 = t4269 * t2483;
11758   t12164 = 0.800199900e2 * t1462 * t11861 - 0.480119940e2 * t1033 * t11864 - 0.36971211182222222223e4 * t10818 * t1765 - 0.5433656134570560e4 * t3740 * t12142 + 0.2264023389404400e4 * t1486 * t12145 + 0.2264023389404400e4 * t1486 * t12148 - 0.1044933872032800e4 * t1413 * t12151 + 0.238711176377640e3 * t1476 * t12154 - 0.12327897614715856000e6 * t8694 * t1742 - 0.5041259370e3 * t3169 * t11845 + 0.5761439280e3 * t4028 * t12161;
11759   t12171 = t1572 * t10483;
11760   t12174 = t1722 * t7837;
11761   t12177 = t1722 * t10490;
11762   t12180 = t1669 * t7878;
11763   t12201 = t1669 * t10540;
11764   t12204 = t4388 * t3409;
11765   t12207 = t1676 * t10540;
11766   t12210 = t4395 * t3409;
11767   t12215 = -0.24169506608236050000e4 * t3177 * t12161 + 0.12890403524392560e5 * t1271 * t4620 - 0.1002586940786088e4 * t3712 * t12171 + 0.429680117479752e3 * t1407 * t12174 + 0.429680117479752e3 * t1407 * t12177 - 0.214840058739876e3 * t1038 * t12180 - 0.21658176621196470667e5 * t10786 * t1742 - 0.29874129600000000000e4 * t3828 * t4620 + 0.2240559720e3 * t3818 * t12171 - 0.1120279860e3 * t1468 * t12174 - 0.1120279860e3 * t1468 * t12177 + 0.640159920e2 * t1403 * t12180 + 0.17718337066630329000e5 * t8582 * t1765 - 0.14492128038863040000e6 * t3848 * t4630 - 0.24507680774771040000e4 * t3979 * t4652 - 0.4296801174797520e4 * t3768 * t12201 - 0.954844705510560e3 * t1472 * t12204 + 0.36363519803397150e5 * t3747 * t12207 + 0.5594387662061100e4 * t1417 * t12210 - 0.12982531368148140000e5 * t3960 * t4662;
11768   t12216 = t1689 * t10540;
11769   t12219 = t4406 * t3409;
11770   t12224 = t4436 * t2483;
11771   t12229 = t4388 * t2483;
11772   t12234 = t4395 * t2483;
11773   t12239 = t4406 * t2483;
11774   t12250 = t1722 * t10483;
11775   t12253 = t1669 * t7837;
11776   t12256 = t1669 * t10490;
11777   t12264 = -0.10122707335951980000e4 * t3129 * t12239 + 0.80631088736587200000e3 * t4021 * t4418 * t2483 - 0.17505486267693600000e5 * t3764 * t4731 + 0.1074200293699380e4 * t3768 * t12250 - 0.477422352755280e3 * t1472 * t12253 - 0.477422352755280e3 * t1472 * t12256 + 0.24456666666666666668e3 * t11748 - 0.120060e3 * t11750 - 0.12006e2 * t11752 - 0.30015e2 * t11754 - 0.2001e1 * t11759;
11778   t12292 = 0.33350000000000000001e2 * t11761 + 0.1334e1 * t11764 + 0.37928553580002800000e4 * t3574 * t1625 + 0.19853743568623200e5 * t2697 * t1628 - 0.18009000000000000000e2 * t11768 - 0.90045000000000000000e1 * t11771 + 0.10805400000000000000e3 * t11776 - 0.80040000000000000000e2 * t11780 - 0.40020000000000000000e2 * t11784 + 0.72036000000000000000e3 * t11787 + 0.40020000000000000000e2 * t11789 + 0.20010000000000000000e2 * t11791 - 0.36018000000000000000e3 * t11793 + 0.19209600000000000000e3 * t11795 - 0.96048000000000000000e2 * t11797 + 0.18009000000000000000e2 * t11799 - 0.69368000000000000001e3 * t11801 - 0.12006000000000000000e3 * t11805 + 0.18109568949798374444e6 * t10777 * t624 + 0.102836250259711920e6 * t8352 * t627;
11779   t12340 = 0.379936885195980e3 * t841 * t4812 - 0.28143472977480000000e3 * t1380 * t4815 - 0.51124784525010e2 * t852 * t4818 + 0.37329207748419999999e2 * t1322 * t4821 - 0.800199900e2 * t939 * t4785 + 0.71128880000000000001e2 * t1328 * t4791 - 0.183815594610579000e6 * t8420 * t621 - 0.26673330e1 * t335 * t104 * t11757 + 0.17782220e1 * t491 * t493 * t11757 - 0.5967779409441e1 * t343 * t117 * t11757 + 0.3978519606294e1 * t503 * t506 * t11757;
11780   t12391 = 0.17415564533880e2 * t352 * t128 * t11757 - 0.11610376355920e2 * t516 * t519 * t11757 - 0.13319970623955e2 * t362 * t141 * t11757 + 0.8879980415970e1 * t529 * t532 * t11757 + 0.4221520946622e1 * t371 * t155 * t11757 - 0.2814347297748e1 * t542 * t545 * t11757 - 0.486902709762e0 * t380 * t168 * t11757 + 0.324601806508e0 * t555 * t558 * t11757 - 0.90997229293852000000e4 * t3569 * t1644 - 0.1738242673850340e4 * t2609 * t1647 + 0.13936237559410133333e4 * t3577 * t1650 - 0.7201799100e3 * t2629 * t1616 - 0.268550073424845e3 * t950 * t4794 + 0.21881857834617000000e3 * t1336 * t4797 + 0.1044933872032800e4 * t961 * t4800 + 0.33140789274074074074e4 * t10738 * t606 - 0.142633473532477200e6 * t10290 * t11786 + 0.54859028281722000e5 * t10191 * t11775 - 0.40827977120000000001e4 * t10154 * t4323 + 0.17497704480000000000e4 * t10157 * t4327;
11781   t12432 = -0.25206296850e4 * t10268 * t11786 + 0.10082518740e4 * t8744 * t11775 + 0.36018000000000000000e2 * t11809 + 0.18009000000000000000e2 * t11811 - 0.21610800000000000000e3 * t11813 + 0.89909801711696250000e4 * t8733 * t11745 - 0.54345480145736400000e5 * t10385 * t11804 - 0.20139795583419960000e6 * t10195 * t11786 + 0.71927841369357000000e5 * t8760 * t11775 + 0.19564372852465104000e6 * t10201 * t11786 - 0.73366398196744140000e5 * t10204 * t11775;
11782   t12467 = t1722 * t10540;
11783   t12470 = t4436 * t3409;
11784   t12478 = 0.110447652526471386e6 * t10208 * t11786 - 0.38981524421107548e5 * t8770 * t11775 - 0.101063211462130680e6 * t10247 * t11786 + 0.37233814749206040e5 * t10250 * t11775 - 0.20245414671903960000e5 * t10254 * t11786 + 0.40330074960e4 * t10274 * t11786 - 0.17284317840e4 * t10293 * t11775 - 0.19335605286588840000e5 * t10297 * t11786 + 0.72508519824708150000e4 * t8754 * t11775 + 0.23632406461386360000e5 * t10137 * t11786 - 0.94529625845545440000e4 * t10277 * t11775 + 0.134482989330621360e6 * t10281 * t11786 - 0.48902905211135040e5 * t8757 * t11775 + 0.16008000000000000000e3 * t11816 - 0.36018000000000000000e2 * t11818 + 0.24706606755085740000e4 * t3147 * t4647 + 0.3007760822358264e4 * t3712 * t12467 + 0.859360234959504e3 * t1407 * t12470 + 0.15184766511308700000e5 * t3020 * t4657 - 0.342779507672448e3 * t1453 * t4465 * t3409;
11785   t12509 = t1669 * t10474;
11786   t12526 = 0.11540714097784480000e5 * t3949 * t4657 + 0.27168280672852800e5 * t3740 * t12207 + 0.4528046778808800e4 * t1486 * t12210 - 0.1718720469919008e4 * t1407 * t12509 + 0.45116412335373960000e4 * t10335 * t11804 + 0.7314537104229600e4 * t10313 * t11745 - 0.80631088736587200000e3 * t10303 * t11745 + 0.24806196900000000000e4 * t10144 * t4323 + 0.4801199400e3 * t10306 * t11804 - 0.13129114700770200000e4 * t10432 * t11745 - 0.34482817777082400e5 * t10440 * t11804;
11787   t12569 = -0.6269603232196800e4 * t8727 * t11745 + 0.38035592941993920e5 * t10411 * t11804 - 0.95104590255038700000e4 * t10388 * t11745 - 0.11755247227963621200e6 * t10215 * t4323 + 0.41489107863401016000e5 * t8871 * t4327 + 0.96678026432944200000e3 * t8764 * t11745 - 0.59081016153465900000e4 * t10351 * t11804 + 0.70858951351663860000e4 * t8773 * t11775 + 0.17738839522049184000e5 * t10261 * t11786 - 0.64504870989269760000e4 * t10264 * t11775 + 0.54545279705095725000e5 * t10379 * t11804 + 0.43476384116589120000e5 * t10661 * t11815 + 0.52516458803080800000e4 * t10650 * t11815 + 0.27586254221665920e5 * t8723 * t11815 - 0.31696327451661600e5 * t10656 * t11815 - 0.41957907465458250000e5 * t8787 * t11815 - 0.22458491436029040e5 * t10673 * t11815 - 0.42944819001008400000e4 * t8847 * t11815 + 0.39419643382331520000e4 * t10653 * t11815 - 0.4801199400e3 * t8781 * t11815;
11788   t12576 = t4418 * t3409;
11789   t12579 = t1700 * t7837;
11790   t12582 = t1700 * t10490;
11791   t12585 = t385 * t4246;
11792   t12606 = t1689 * t10483;
11793   t12615 = t1711 * t7878;
11794   t12620 = -0.2583570819332664e4 * t1432 * t12219 - 0.1291785409666332e4 * t1432 * t12120 - 0.1291785409666332e4 * t1432 * t12123 - 0.6721679160e3 * t3818 * t12467 - 0.2240559720e3 * t1468 * t12470 - 0.555069089128680e3 * t3729 * t12606 + 0.408998276200080e3 * t1447 * t12576 + 0.204499138100040e3 * t1447 * t12579 + 0.204499138100040e3 * t1447 * t12582 - 0.81799655240016e2 * t1077 * t12615 + 0.531911639274372e3 * t1028 * t12126;
11795   t12626 = t1700 * t10540;
11796   t12631 = t154 * t4246;
11797   t12632 = t12631 * t723;
11798   t12637 = t167 * t4246;
11799   t12638 = t12637 * t723;
11800   t12648 = t11916 * t723;
11801   t12653 = t127 * t4246;
11802   t12654 = t12653 * t723;
11803   t12665 = t140 * t4246;
11804   t12666 = t12665 * t723;
11805   t12673 = 0.56849815414509600000e4 * t3985 * t4576 + 0.20212642292426136e5 * t3722 * t12626 - 0.2887520327489448e4 * t3722 * t12606 - 0.22643950060723500000e3 * t1294 * t12632 - 0.113981065558794e3 * t875 * t12632 + 0.84430418932440e2 * t1302 * t12638 + 0.15337435357503000000e2 * t883 * t12638 + 0.449898103820088e3 * t3735 * t1700 * t10483 + 0.240059970e2 * t892 * t11851 - 0.213386640e2 * t1271 * t12648 + 0.80565022027453500000e2 * t901 * t12648 - 0.65645573503851000000e2 * t1278 * t12654 - 0.472810346021664e3 * t1443 * t12615 + 0.10838454319302120000e4 * t3104 * t4576 + 0.3885483623900760e4 * t3729 * t12626 - 0.313480161609840e3 * t906 * t12654 + 0.243817903474320e3 * t1286 * t12666 + 0.29969933903898750000e3 * t866 * t12666 + 0.24012e2 * t11821 + 0.51630740740740740742e3 * t11823;
11806   t12715 = -0.8962238880e3 * t10329 * t11804 - 0.2560639680e3 * t10332 * t11745 - 0.75869180235114840000e4 * t8747 * t4327 + 0.58282254358511400000e4 * t10325 * t11804 + 0.85889638002016800000e3 * t8751 * t11745 - 0.19052827634793568000e5 * t10185 * t4323 + 0.69283009581067519999e4 * t10188 * t4327 - 0.51738281939310120000e4 * t10394 * t11804 + 0.2400599700e3 * t4060 * t11779 - 0.960239880e2 * t2528 * t11767 - 0.2987412960e3 * t4066 * t11779;
11807   t12749 = -0.4787204753469348e4 * t8737 * t11745 + 0.10801464928756824000e6 * t10226 * t4323 + 0.1280319840e3 * t4069 * t11767 + 0.12890403524392560000e4 * t4073 * t11779 - 0.48339013216472100000e3 * t2534 * t11767 - 0.13129114700770200000e4 * t4080 * t11779 + 0.52516458803080800000e3 * t4083 * t11767 - 0.6896563555416480e4 * t4087 * t11779 + 0.2507841292878720e4 * t2543 * t11767 + 0.6339265490332320e4 * t4093 * t11779 - 0.2438179034743200e4 * t4096 * t11767 + 0.96048000000000000000e2 * t11829 + 0.90045000000000000000e1 * t11833 - 0.24012e2 * t11837 + 0.96048e2 * t11840 - 0.96048e2 * t11843 + 0.18009000000000000000e3 * t11846 - 0.17342000000000000000e3 * t11848 - 0.10005000000000000000e2 * t11852 - 0.61230600000000000000e3 * t11854;
11808   t12778 = -0.53360000000000000001e3 * t11885 - 0.64032e2 * t11888 + 0.48024e2 * t11891 - 0.32016e2 * t11894 + 0.18009000000000000000e2 * t11896 - 0.16292037787773930e5 * t8392 * t609 + 0.20649990282445968889e5 * t10732 * t612 + 0.119122461411739200e6 * t8324 * t615 - 0.95041550595800977777e5 * t10735 * t630 - 0.19120669412353740e5 * t8376 * t633 + 0.16878332155285605925e5 * t10681 * t636;
11809   t12805 = -0.19204797600e4 * t8359 * t603 - 0.12006e2 * t11899 - 0.4002e1 * t11903 + 0.54027000000000000000e3 * t11906 - 0.12606300000000000000e4 * t11909 + 0.60030e2 * t11911 + 0.5336e1 * t11914 - 0.8004e1 * t11918 - 0.8004e1 * t11921 - 0.2668e1 * t11924 - 0.240120e3 * t11926 + 0.120060e3 * t11928 - 0.120060e3 * t11930 - 0.60030e2 * t11932 - 0.12006e2 * t11936 + 0.12006e2 * t11938 - 0.12006e2 * t11941 + 0.6003e1 * t11944 + 0.6003e1 * t11947 + 0.2001e1 * t11950;
11810   t12831 = 0.24012e2 * t11978 - 0.60030e2 * t11980 + 0.32016e2 * t11983 - 0.12006e2 * t11986 + 0.30015e2 * t11988 + 0.40020000000000000000e3 * t11990 + 0.20010000000000000000e3 * t11992 + 0.48024e2 * t11995 + 0.187308884401618140e6 * t3960 * t1686 - 0.66109018024100520e5 * t9234 * t1690 + 0.22988545184721600e5 * t1278 * t4458;
11811   t12840 = t4436 * t736;
11812   t12843 = t1722 * t2397;
11813   t12846 = t4388 * t781;
11814   t12849 = t1669 * t2405;
11815   t12858 = t4388 * t736;
11816   t12861 = t1669 * t2397;
11817   t12864 = t4395 * t781;
11818   t12867 = t1676 * t2405;
11819   t12882 = 0.11494272592360800e5 * t1278 * t4537 - 0.8359470976262400e4 * t2922 * t4389 - 0.4179735488131200e4 * t2922 * t4540 + 0.574713629618040e3 * t1480 * t12840 + 0.191571209872680e3 * t1480 * t12843 - 0.208986774406560e3 * t1016 * t12846 - 0.69662258135520e2 * t1016 * t12849 - 0.23596154880681413333e6 * t1046 * t1673 + 0.9989977967966250e4 * t2803 * t4396 + 0.4994988983983125e4 * t2803 * t4584 - 0.559438766206110e3 * t1417 * t12858 - 0.186479588735370e3 * t1417 * t12861 + 0.199799559359325e3 * t1023 * t12864 + 0.66599853119775e2 * t1023 * t12867 + 0.33009847199632480000e6 * t1054 * t1686 - 0.12378692699862180000e6 * t9952 * t1690 + 0.24153546731438400000e5 * t3848 * t4403 + 0.12076773365719200000e5 * t3848 * t4469 + 0.90754441848774666666e5 * t9882 * t1677 - 0.21130884967774400000e5 * t3639 * t4392;
11820   t12906 = t4436 * t781;
11821   t12925 = t4269 * t736;
11822   t12928 = -0.13985969155152750e5 * t1286 * t4581 - 0.160039980e2 * t1403 * t12906 + 0.160039980e2 * t1033 * t11920 + 0.53346660e1 * t1033 * t11923 + 0.61407933066666666667e4 * t984 * t1719 - 0.26317685600000000000e4 * t9530 * t1723 + 0.99580432000000000001e3 * t3828 * t4433 + 0.49790216000000000001e3 * t3828 * t4607 - 0.42677328000000000000e3 * t3831 * t4437 - 0.21338664000000000000e3 * t3831 * t4530 + 0.373426620e2 * t1468 * t12925;
11823   t12932 = t1572 * t2397;
11824   t12937 = t4395 * t736;
11825   t12940 = t1676 * t2397;
11826   t12943 = t4406 * t781;
11827   t12946 = t1689 * t2405;
11828   t12969 = t1722 * t2405;
11829   t12978 = 0.124475540e2 * t1468 * t12932 - 0.45287900121447000000e4 * t3851 * t4472 + 0.426239059966560e3 * t1424 * t12937 + 0.142079686655520e3 * t1424 * t12940 - 0.159839647487460e3 * t1428 * t12943 - 0.53279882495820e2 * t1428 * t12946 + 0.3200799600e3 * t2870 * t4270 + 0.1600399800e3 * t2870 * t4273 - 0.400099950e2 * t1462 * t11968 - 0.133366650e2 * t1462 * t11913 - 0.17505486267693600000e4 * t3682 * t4389 - 0.87527431338468000000e3 * t3682 * t4540 + 0.119355588188820e3 * t1472 * t12840 + 0.39785196062940e2 * t1472 * t12843 - 0.47742235275528e2 * t1476 * t12846 - 0.90575800242894000000e4 * t3851 * t4407 + 0.17903338228323e2 * t1038 * t12969 + 0.37928553580002800000e5 * t991 * t1730 - 0.15171421432001120000e5 * t9511 * t1670 + 0.43763715669234000000e4 * t3764 * t4458;
11830   t12983 = t1711 * t10474;
11831   t12998 = t1700 * t10474;
11832   t13004 = t1689 * t10474;
11833   t13019 = t1676 * t10474;
11834   t13028 = 0.4481119440e3 * t1468 * t12509 - 0.13584140336426400e5 * t1486 * t13004 - 0.13139881127443840000e5 * t3857 * t4744 - 0.3599184830560704e4 * t3735 * t1711 * t10540 + 0.1542507784526016e4 * t1453 * t4570 * t10474 + 0.23188014880000000000e4 * t8160 * t1569 - 0.2400599700e3 * t1462 * t11839 + 0.11494272592360800e5 * t1480 * t13019 + 0.17902040518595520e5 * t1424 * t12998 + 0.2387111763776400e4 * t1472 * t13019 + 0.31446124607269008000e5 * t10573 * t4715;
11835   t13071 = -0.16783162986183300e5 * t1417 * t13004 - 0.36922958569603260000e6 * t8656 * t4764 + 0.35460425795093001000e6 * t10566 * t4707 + 0.19923890259677191200e6 * t8597 * t4707 - 0.18084995735328648000e6 * t10634 * t4710 - 0.36104322831562062000e5 * t8612 * t4710 + 0.80660149920000000001e4 * t10580 * t4753 - 0.37865560352903145000e5 * t8633 * t4753 + 0.44901572276634084000e5 * t10556 * t4758 + 0.25266501025753104000e6 * t8642 * t4758 - 0.26332333575226560000e6 * t10560 * t4764 + 0.18479239245633570000e6 * t8123 * t1745 + 0.139859691551527500e6 * t1286 * t4718 - 0.7272703960679430e4 * t3747 * t12142 + 0.2797193831030550e4 * t1417 * t12145 + 0.2797193831030550e4 * t1417 * t12148 - 0.1198797356155950e4 * t1023 * t12151 - 0.17962523051873182333e6 * t11204 * t1750 - 0.91954180738886400e5 * t1278 * t4731 + 0.5747136296180400e4 * t3688 * t12250;
11836   t13107 = t4418 * t751;
11837   t13110 = t4388 * t751;
11838   t13116 = t4388 * t716;
11839   t13119 = -0.47742235275528e2 * t1407 * t12932 + 0.53710014684969e2 * t1038 * t12906 - 0.53346660e1 * t1403 * t12969 - 0.30077608223582640e5 * t3968 * t1719 + 0.11279103083843490e5 * t9250 * t1723 - 0.4296801174797520e4 * t1271 * t4433 - 0.2148400587398760e4 * t1271 * t4607 + 0.1118877532412220e4 * t1428 * t13107 - 0.214840058739876e3 * t1038 * t13110 - 0.20157772184146800000e5 * t9629 * t1700 * t218 - 0.7272703960679430e4 * t3747 * t13116;
11840   t13124 = t4406 * t751;
11841   t13127 = t4395 * t716;
11842   t13134 = t1572 * t218;
11843   t13139 = t1722 * t218;
11844   t13144 = t1669 * t218;
11845   t13149 = t1676 * t218;
11846   t13154 = t1689 * t218;
11847   t13171 = -0.1198797356155950e4 * t1023 * t13124 + 0.6393585899498400e4 * t3753 * t13127 - 0.15914078425176e2 * t1476 * t12849 + 0.40330074960e4 * t8923 * t11908 - 0.57614392800e4 * t9637 * t13134 + 0.26586457269059655000e5 * t8932 * t13134 - 0.30722128399802268000e5 * t9675 * t13139 - 0.171160168238972640e6 * t8937 * t13139 + 0.175548890501510400e6 * t9682 * t13144 + 0.24455466065581380000e6 * t8946 * t13144 - 0.23232692762302311000e6 * t9689 * t13149 - 0.129938414737025160e6 * t8955 * t13149 + 0.117020560640361840e6 * t9621 * t13154 + 0.23282226872689554000e5 * t8964 * t13154 + 0.12917854096663320e5 * t1294 * t4403 + 0.6458927048331660e4 * t1294 * t4469 + 0.3444761092443552e4 * t3760 * t13127 - 0.4559242622351760e4 * t2899 * t4407 - 0.2279621311175880e4 * t2899 * t4472 + 0.531911639274372e3 * t1028 * t13107;
11848   t13172 = t4406 * t716;
11849   t13175 = t4465 * t751;
11850   t13178 = t4436 * t716;
11851   t13181 = t4395 * t751;
11852   t13192 = t2655 * t1560;
11853   t13201 = t4269 * t716;
11854   t13212 = t4406 * t736;
11855   t13215 = t1689 * t2397;
11856   t13218 = t4418 * t781;
11857   t13221 = t1700 * t2405;
11858   t13226 = -0.480119940e2 * t1033 * t11977 + 0.2240559720e3 * t3818 * t13201 + 0.640159920e2 * t1403 * t13110 - 0.1002586940786088e4 * t3712 * t13201 + 0.39400862168472000000e4 * t3787 * t4419 + 0.19700431084236000000e4 * t3787 * t4482 - 0.160417795971636e3 * t1439 * t13212 - 0.53472598657212e2 * t1439 * t13215 + 0.59101293252708e2 * t1443 * t13218 + 0.19700431084236e2 * t1443 * t13221 - 0.34764853477006800e5 * t3985 * t1697;
11859   t13248 = t825 * t4246;
11860   t13275 = 0.12167698716952380e5 * t9329 * t1701 - 0.75987377039196e2 * t1028 * t12943 - 0.25329125679732e2 * t1028 * t12946 - 0.17289473565831880000e6 * t1062 * t1697 + 0.63698060505696400000e5 * t9561 * t1701 - 0.10694519731442400000e5 * t3784 * t4415 - 0.53472598657212000000e4 * t3784 * t4479 - 0.81799655240016e2 * t1077 * t13175 + 0.449898103820088e3 * t3735 * t4418 * t716 - 0.7790443356192e1 * t1457 * t13248 * t263 - 0.7790443356192e1 * t1457 * t4465 * t781 + 0.215297568277722e3 * t1432 * t12937 + 0.71765856092574e2 * t1432 * t12940 + 0.30659722630702293333e5 * t976 * t1708 - 0.11148990047528106666e5 * t9516 * t1712 + 0.16424851409304800000e4 * t3857 * t4426 + 0.82124257046523999999e3 * t3857 * t4444 - 0.29863366198736000000e3 * t3860 * t4447 + 0.21423719229528e2 * t1453 * t4418 * t736 + 0.7141239743176e1 * t1453 * t1700 * t2397;
11861   t13300 = t12637 * t263;
11862   t13303 = t12631 * t238;
11863   t13308 = t11916 * t238;
11864   t13311 = t12653 * t263;
11865   t13314 = t12653 * t238;
11866   t13317 = t12665 * t263;
11867   t13324 = t12665 * t238;
11868   t13327 = 0.3408318968334e1 * t1077 * t13221 - 0.159839647487460e3 * t1428 * t13300 + 0.215297568277722e3 * t1432 * t13303 - 0.75987377039196e2 * t1028 * t13300 - 0.143226705826584e3 * t1407 * t13308 + 0.53710014684969e2 * t1038 * t13311 + 0.119355588188820e3 * t1472 * t13314 - 0.47742235275528e2 * t1476 * t13317 + 0.574713629618040e3 * t1480 * t13314 - 0.208986774406560e3 * t1016 * t13317 - 0.452804677880880e3 * t1486 * t13324;
11869   t13335 = t12637 * t238;
11870   t13338 = t12585 * t263;
11871   t13354 = t12631 * t263;
11872   t13375 = -0.2044991381000400e4 * t1302 * t4415 - 0.160039980e2 * t1403 * t13311 - 0.160417795971636e3 * t1439 * t13335 + 0.59101293252708e2 * t1443 * t13338 - 0.29214162585720e2 * t1447 * t13335 + 0.10224956905002e2 * t1077 * t13338 + 0.21423719229528e2 * t1453 * t12585 * t238 - 0.400099950e2 * t1462 * t11965 + 0.160039980e2 * t1033 * t11917 + 0.373426620e2 * t1468 * t13308 + 0.174155645338800e3 * t1413 * t13354 - 0.559438766206110e3 * t1417 * t13324 + 0.199799559359325e3 * t1023 * t13354 + 0.426239059966560e3 * t1424 * t13303 - 0.12678530980664640000e6 * t5273 * t4543 + 0.218391179254855200e6 * t3979 * t1730 + 0.114942725923608000e6 * t5265 * t4555 - 0.181817599016985750e6 * t5278 * t4543 - 0.29969933903898750e5 * t2803 * t4546 + 0.18115160048578800000e6 * t5286 * t4506;
11873   t13417 = t1700 * t2348;
11874   t13420 = 0.14403598200e4 * t9239 * t1573 - 0.4801199400e3 * t2870 * t4294 - 0.4000999500e3 * t1231 * t4266 + 0.29874129600000000000e4 * t5058 * t4496 - 0.24381790347432000000e5 * t3642 * t4546 + 0.31701530085012900000e5 * t3851 * t4511 - 0.15038804111791320e5 * t5251 * t4496 - 0.3222600881098140e4 * t2942 * t4499 + 0.19693672051155300000e5 * t5258 * t4555 + 0.85354656000000000000e3 * t3831 * t4499 + 0.2797193831030550e4 * t1023 * t13417;
11875   t13423 = t1676 * t2340;
11876   t13426 = t1711 * t2348;
11877   t13429 = t1669 * t2340;
11878   t13436 = t1722 * t2340;
11879   t13439 = t1689 * t2348;
11880   t13446 = t1676 * t2348;
11881   t13454 = t1572 * t2340;
11882   t13463 = t8576 * t583;
11883   t13475 = 0.2864534116531680e4 * t10062 * t13436 - 0.477422352755280e3 * t1476 * t13439 + 0.3734266200e3 * t10015 * t13454 - 0.1066933200e3 * t1403 * t13446 - 0.2005173881572176e4 * t10021 * t13454 + 0.26877029578862400000e4 * t3860 * t4571 - 0.233713300685760e3 * t1457 * t13463 * t2348 - 0.16003998000e4 * t5050 * t4291 - 0.1600399800e3 * t9964 * t11982 - 0.15760344867388800000e5 * t3787 * t4517 + 0.103342832773306560e6 * t5291 * t4506;
11884   t13483 = t4570 * t2348;
11885   t13490 = t1689 * t2340;
11886   t13523 = 0.1418431038064992e4 * t1443 * t13483 - 0.19427418119503800e5 * t5202 * t4514 - 0.3330414534772080e4 * t10011 * t13490 + 0.683886393352764e3 * t2531 * t11770 + 0.1604177959716360e4 * t4119 * t11783 - 0.591012932527080e3 * t4122 * t11770 + 0.30674870715006000000e3 * t4045 * t11783 - 0.10736204750252100000e3 * t2540 * t11770 - 0.1937678114499498e4 * t4113 * t11783 + 0.83915814930916500000e4 * t4100 * t11779 - 0.29969933903898750000e4 * t2537 * t11767;
11887   t13530 = t4354 * t3206;
11888   t13533 = t1775 * t2498;
11889   t13540 = t12022 * t174;
11890   t13543 = t12026 * t174;
11891   t13546 = t12030 * t174;
11892   t13549 = t12034 * t174;
11893   t13569 = t416 * t417 * t12000 * t174 - t11298 * t13533 - 0.36e2 * t11302 * t13533 - 0.12e2 * t11311 * t13533 - 0.24e2 * t11319 * t13533 + 0.18e2 * t4130 * t13530 + 0.18e2 * t4138 * t13530 + 0.3e1 * t4150 * t13530 - 0.6e1 * t1496 * t13540 - 0.3e1 * t1504 * t13540 - 0.6e1 * t1496 * t13543 - 0.3e1 * t1504 * t13543 + 0.18e2 * t4130 * t13546 + 0.18e2 * t4138 * t13546 + 0.3e1 * t4150 * t13546 - 0.2e1 * t1496 * t13549 - t1504 * t13549;
11894   t13570 = my_piecewise3(t92, -0.3875356228998996e4 * t4113 * t11779 + 0.1367772786705528e4 * t2531 * t11767 + 0.3208355919432720e4 * t4119 * t11779 - 0.1182025865054160e4 * t4122 * t11767 + 0.61349741430012000000e3 * t4045 * t11779 - 0.21472409500504200000e3 * t2540 * t11767 - 0.53773433280000000000e4 * t8665 * t4319 - 0.1635993104800320e4 * t1447 * t12983 - 0.16312034248109575111e5 * t10790 * t1760 + 0.92867206720577893333e5 * t10916 * t1755 + 0.74861638120096800000e5 * t3784 * t4635 - 0.8983396574411616e4 * t1439 * t12983 + 0.18608285460780862000e5 * t8150 * t1755 + 0.17223805462217760e5 * t10032 * t13423 + 0.15957349178231160e5 * t2899 * t4511 - 0.2862987933400560e4 * t2771 * t4517 + 0.245398965720048e3 * t1077 * t13483 - 0.1418431038064992e4 * t1028 * t13426 - 0.96250677582981600000e5 * t5307 * t4514 - 0.16362615189106872e5 * t10005 * t13490 - 0.59726732397471999999e3 * t3860 * t4466 + 0.17246093979770040000e5 * t5212 * t4524 - 0.38361515396990400e5 * t3753 * t12216 - 0.5114868719598720e4 * t1424 * t12219 + 0.49612393800000000000e3 * t3080 * t4316 + 0.3200799600e3 * t3812 * t11842 + 0.1600399800e3 * t1462 * t11887 - 0.58325681600000000001e3 * t3968 * t4647 - 0.12748193238800160000e5 * t3159 * t4652 - 0.22988545184721600e5 * t3688 * t12201 - 0.4597709036944320e4 * t1480 * t12204 - 0.1600399800e3 * t3812 * t11994 + 0.21881857834617000000e4 * t3764 * t4537 - 0.2887520327489448e4 * t3722 * t13172 - 0.472810346021664e3 * t1443 * t13175 + 0.1074200293699380e4 * t3768 * t13178 + 0.238711176377640e3 * t1476 * t13181 + 0.5747136296180400e4 * t3688 * t13178 - 0.2557434359799360e4 * t1424 * t12123 + 0.1118877532412220e4 * t1428 * t12126 + 0.16003998000e4 * t1231 * t4313 - 0.1600399800e3 * t3812 * t11890 + 0.800199900e2 * t1462 * t11893 - 0.39794870790156720000e5 * t10229 * t4327 + 0.28875203274894480e5 * t10319 * t11804 + 0.4728103460216640e4 * t10322 * t11745 - 0.2298854518472160e4 * t1480 * t12253 - 0.2298854518472160e4 * t1480 * t12256 + 0.1044933872032800e4 * t1016 * t12154 + 0.13083088094577585778e6 * t11142 * t1745 + 0.10565442483887200000e6 * t3639 * t4718 - 0.10143470530543341600e6 * t8156 * t1750 + 0.14314939667002800e5 * t1302 * t4635 + 0.1611300440549070e4 * t2942 * t4437 + 0.805650220274535e3 * t2942 * t4530 - 0.143226705826584e3 * t1407 * t12925 - 0.10565442483887200000e5 * t3639 * t4581 + 0.81272634491439999999e4 * t3642 * t4396 + 0.40636317245720000000e4 * t3642 * t4584 - 0.452804677880880e3 * t1486 * t12858 - 0.150934892626960e3 * t1486 * t12861 + 0.174155645338800e3 * t1413 * t12864 + 0.58051881779600e2 * t1413 * t12867 - 0.335663259723666000e6 * t3949 * t1673 + 0.119879735615595000e6 * t9231 * t1677 - 0.27971938310305500e5 * t1286 * t4392 - 0.24637277113957200000e3 * t4052 * t11783 + 0.89590098596208000000e2 * t4056 * t11770 + 0.6393585899498400e4 * t3753 * t12117 - 0.2557434359799360e4 * t1424 * t12120 + 0.29836734197659200e5 * t9981 * t13423 - 0.2983673419765920e4 * t1428 * t13426 - 0.29090815842717720e5 * t10045 * t13429 + 0.43763715669234000000e4 * t3682 * t4558 + 0.640159920e2 * t1033 * t11971 + 0.17241408888541200e5 * t10026 * t13436 - 0.2089867744065600e4 * t1016 * t13439 - 0.19923405826758720e5 * t9996 * t13429 + 0.2438179034743200e4 * t1413 * t13417 + 0.358066764566460e3 * t1038 * t13446 - 0.86603761976334399999e3 * t3939 * t4627 + 0.9042497867664324e4 * t1432 * t12998 - 0.36008995500e4 * t3420 * t1566 - 0.8001999000e3 * t1231 * t4263 - 0.555069089128680e3 * t3729 * t13172 - 0.1022495690500200e4 * t1302 * t4479 + 0.715746983350140e3 * t2771 * t4419 + 0.357873491675070e3 * t2771 * t4482 + 0.75479833535745000000e3 * t1374 * t4809 - 0.29214162585720e2 * t1447 * t13212 - 0.9738054195240e1 * t1447 * t13215 + 0.10224956905002e2 * t1077 * t13218 + 0.21676908638604240000e5 * t10236 * t4323 - 0.49274554227914400000e3 * t4052 * t11779 + 0.17918019719241600000e3 * t4056 * t11767 - 0.31002849831991968e5 * t10354 * t11804 + 0.1440359820e3 * t8741 * t11745 - 0.79414974274492800e5 * t9261 * t1670 + 0.20898677440656000e5 * t2922 * t4558 - 0.72460640194315200000e4 * t4106 * t11779 + 0.27172740072868200000e4 * t4109 * t11767 + 0.8962238880e3 * t10666 * t11815 - 0.38671210573177680000e4 * t8784 * t11815 + 0.23252137373993976e5 * t8790 * t11815 + 0.2245849143602904e4 * t1439 * t12576 + 0.1122924571801452e4 * t1439 * t12579 + 0.1122924571801452e4 * t1439 * t12582 - 0.77507124579979920e5 * t1294 * t4630 - 0.20668566554661312e5 * t3760 * t12216 + 0.3444761092443552e4 * t3760 * t12117 - 0.998997796796625e3 * t830 * t4806 - 0.81272634491439999999e3 * t1367 * t4803 - 0.12907298396270174815e6 * t10766 * t618 + 0.11018169670683420e5 * t2592 * t1640 - 0.18150888369754933333e5 * t3507 * t1631 - 0.23975947123119000e5 * t2571 * t1634 + 0.20631154499770300000e5 * t3513 * t1637 + 0.87725618666666666667e3 * t3562 * t1619 - 0.3759701027947830e4 * t2645 * t1622 + 0.64452017621962800000e3 * t4073 * t11783 - 0.24169506608236050000e3 * t2534 * t11770 - 0.24507680774771040000e5 * t10341 * t4323 + 0.98030723099084160000e4 * t10344 * t4327 - 0.65645573503851000000e3 * t4080 * t11783 + 0.26258229401540400000e3 * t4083 * t11770 - 0.1493706480e3 * t4066 * t11783 + 0.640159920e2 * t4069 * t11770 + 0.19765285404068592000e5 * t10168 * t4323 - 0.74119820265257220000e4 * t8767 * t4327 + 0.12227733032790690000e5 * t4006 * t12234 + 0.6496920736851258e4 * t3121 * t12234 - 0.5319116392743720e4 * t4013 * t12239 - 0.69148513105668360000e4 * t3092 * t4662 + 0.23632406461386360000e4 * t3992 * t12224 + 0.12225726302783760e5 * t3182 * t12224 - 0.10971805656344400e5 * t3999 * t12229 - 0.14385568273871400000e5 * t3110 * t12229 + 0.1044933872032800e4 * t1016 * t13181 - 0.5433656134570560e4 * t3740 * t13116 - 0.1044933872032800e4 * t1413 * t13124 - 0.12006e2 * t11881 - 0.66625888888888888890e3 * t11883 - 0.171389753836224e3 * t1453 * t1711 * t7837 - 0.171389753836224e3 * t1453 * t1711 * t10490 + 0.70113990205728e2 * t1457 * t4570 * t7878 - 0.11198762324526000000e2 * t1313 * t12585 * t723 + 0.70113990205728e2 * t1457 * t13192 * t751 + 0.97826666666666666669e3 * t11952 - 0.48913333333333333334e3 * t11954 + t12391 + t12340 + t12805 + t12778 + t12111 + t13523 + t12620 + t13028 + t12715 + 0.24012e2 * t11865 + 0.20943800000000000000e3 * t11867 + t12569 + t13119 + 0.16008e2 * t11969 - 0.10805400000000000000e3 * t11857 + t13327 + t13375 - 0.60030e2 * t11827 + 0.120060e3 * t11872 + 0.12006e2 * t11875 + t12978 - 0.120060e3 * t11825 - 0.32016e2 * t11972 + t12215 + t12432 + t12831 + t12264 + t12749 + t12882 - 0.13340000000000000000e3 * t11960 + t13420 + t12478 + 0.16208100000000000000e4 * t11859 - 0.32016e2 * t11862 - 0.66700000000000000000e2 * t11962 + 0.16008e2 * t11966 + t12673 + t12928 + t13475 + 0.26680000000000000001e3 * t11956 + 0.13340000000000000000e3 * t11958 + t13071 + t13275 + 0.12006e2 * t11975 + t12526 - 0.60030000000000000000e2 * t11746 + t12164 + t13171 + t12292 + 0.12006e2 * t11878 - 0.2596814452064e1 * t1457 * t1711 * t2405 + 0.2999320692133920e4 * t9989 * t1700 * t2340 + t13226, t13569);
11895   t13574 = t667 * t801;
11896   t13583 = t2289 * t274;
11897   t13604 = -0.12e2 * t1537 * t4215 * t804 - 0.12e2 * t1537 * t12064 * t277 + 0.24e2 * t4212 * t4220 - 0.12e2 * t4212 * t4223 + 0.1174e1 * t13570 - 0.24e2 * t4212 * t4216 - 0.12e2 * t13574 * t1539 - 0.36e2 * t4208 * t4219 * t668 + 0.36e2 * t4208 * t4215 * t668 + 0.36e2 * t13583 * t4209 - t91 * t13570 - 0.2e1 * t205 * t597 * t3229 + 0.6e1 * t667 * t1600 * t804 - t205 * t2519 * t643 - 0.3e1 * t205 * t804 * t1784 - 0.3e1 * t205 * t277 * t4947 + 0.6e1 * t667 * t668 * t1784;
11898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11899     v4rho3tau[0] = t11589 * t648 / 0.9e1 - t3275 * t1789 / 0.2e1 + 0.5497666666666666667e0 * t11614 * t1792 * t443 - 0.3e1 / 0.2e1 * t1175 * t4952 - 0.24739500000000000000e1 * t3279 * t4955 * t443 + 0.89062200000000000000e2 * t11607 * t1792 * t1164 + 0.80541612095716256868e2 * t2284 * t4963 - 0.3e1 / 0.8e1 * t201 * t7 * (t12060 + t13604) * t195 - 0.74218500000000000000e1 * t434 * t435 * t4950 * t443 - 0.89062200000000000000e2 * t1157 * t4955 * t1164 + 0.24162483628714877061e3 * t1168 * t1787 * t577 * t1170 - 0.59374800000000000000e3 * t3249 * t646 * t3256 * t3258 + 0.16536775210765846035e1 * t2284 * t646 * t10 * t3264 - 0.32302153261130400000e3 * t3269 * t647 * t3270;
11900 
11901   t13661 = t2014 * t17;
11902   t13670 = -0.28769105248194262500e3 * t576 * t5610 * t651 * t3270 + 0.24226614945847800000e3 * t1997 * t4199 - 0.90849806046929250000e2 * t1519 * t5612 - 0.10067701511964532109e3 * t5586 * t4195 + 0.80541612095716256868e2 * t1168 * t1992 * t577 * t1170 + 0.18554625000000000000e1 * t574 * t4157 * t580 + 0.24647459318104087313e3 * t1528 * t6809 * t16 * t9459 + 0.11326164200960098622e2 * t11651 * t2016 + 0.90609313607680788976e2 * t4177 * t5605 - 0.16699162500000000000e3 * t1519 * t5595 + 0.46509680280278941972e0 * t4177 * t5600 + 0.11627420070069735493e1 * t1528 * t2483 * t13661 * t194 - 0.46386562500000000000e0 * t4172 * t2010 - 0.12402581408074384526e1 * t5586 * t4188;
11903   t13675 = t5 * t1511;
11904   t13705 = t5239 * t751;
11905   t13708 = t5025 * t716;
11906   t13711 = t5243 * t751;
11907   t13718 = t5203 * t716;
11908   t13723 = t5235 * t751;
11909   t13728 = t5032 * t716;
11910   t13731 = t5025 * t751;
11911   t13735 = 0.54749504697682666666e3 * t3857 * t5471;
11912   t13736 = t5203 * t736;
11913   t13739 = t5213 * t781;
11914   t13742 = t1303 * t3343;
11915   t13747 = t5203 * t751;
11916   t13750 = t5243 * t716;
11917   t13753 = t5213 * t751;
11918   t13756 = -0.572906823306336e3 * t1407 * t13705 + 0.17241408888541200e5 * t10026 * t13708 + 0.3831424197453600e4 * t1480 * t13711 + 0.21402079109094133334e4 * t3857 * t5336 - 0.12951612079669200e5 * t5202 * t5441 - 0.3330414534772080e4 * t10011 * t13718 + 0.4771646555667600e4 * t1302 * t5444 - 0.545331034933440e3 * t1447 * t13723 - 0.1363327587333600e4 * t1302 * t5447 - 0.1600399800e3 * t9964 * t13728 - 0.800199900e2 * t1462 * t13731 + t13735 - 0.185023029709560e3 * t3729 * t13736 + 0.68166379366680e2 * t1447 * t13739 - 0.19476108390480e2 * t1447 * t13742 - 0.10669332000e4 * t5050 * t5039 - 0.5594387662061100e4 * t1417 * t13747 + 0.17223805462217760e5 * t10032 * t13750 + 0.3014165955888108e4 * t1432 * t13753;
11919   t13765 = 0.149966034606696e3 * t3735 * t5225 * t716;
11920   t13766 = t2655 * t1823;
11921   t13769 = 0.23371330068576e2 * t1457 * t13766 * t751;
11922   t13770 = t1953 * t161;
11923   t13771 = t13770 * t1957;
11924   t13779 = t5239 * t716;
11925   t13782 = t5021 * t716;
11926   t13785 = t461 * t1218;
11927   t13786 = t13785 * t723;
11928   t13789 = t1823 * t238;
11929   t13790 = t13789 * t723;
11930   t13792 = 0.27971938310305500000e4 * t4100 * t13790;
11931   t13793 = t1823 * t263;
11932   t13794 = t13793 * t723;
11933   t13796 = 0.99899779679662500000e3 * t2537 * t13794;
11934   t13798 = 0.800199900e2 * t4060 * t13790;
11935   t13800 = 0.320079960e2 * t2528 * t13794;
11936   t13801 = t1816 * t238;
11937   t13802 = t13801 * t723;
11938   t13805 = t1218 * t1218;
11939   t13813 = 0.46454125198033777776e3 * t3577 * t1949;
11940   t13817 = 0.23398748396080950000e6 * t5286 * t5399 + 0.57808672507964700e5 * t9981 * t13750 - 0.93594993584323800000e5 * t3848 * t5403 + t13765 + t13769 - 0.2627976225488768e4 * t13771 * t5235 * t716 - 0.467426601371520e3 * t2075 * t8576 * t1816 * t751 - 0.29090815842717720e5 * t10045 * t13779 - 0.2005173881572176e4 * t10021 * t13782 - 0.3715320433894400e4 * t6054 * t13786 + t13792 - t13796 + t13798 - t13800 - 0.11096105280e4 * t10329 * t13802 + 0.383142419745360e3 * t1119 * t128 * t13805 + 0.27915755359688e2 * t1452 * t558 * t13805 + t13813 - 0.19476108390480e2 * t819 * t168 * t13805;
11941   t13821 = t4019 * t1954;
11942   t13848 = 0.30332409764617333333e4 * t3569 * t1934;
11943   t13860 = 0.68770514999234333333e4 * t3513 * t1919;
11944   t13866 = -0.12002998500e4 * t3419 * t1858 - 0.88003156431057777779e4 * t13821 * t1959 - 0.10387257808256e2 * t1955 * t1958 * t13805 - 0.111887753241222000e6 * t3948 * t1962 - 0.372959177470740e3 * t1087 * t141 * t13805 + 0.62436294800539380e5 * t3959 * t1965 - 0.266733300e2 * t1103 * t104 * t13805 - 0.10025869407860880e5 * t3967 * t1861 - 0.95484470551056e2 * t1111 * t117 * t13805 + 0.72797059751618400e5 * t3978 * t1864 - 0.208261700033352e3 * t1438 * t545 * t13805 - t13848 + 0.51527571969212826667e5 * t3103 * t1940 + 0.143531712185148e3 * t1095 * t155 * t13805 - 0.11588284492335600e5 * t3984 * t1968 + 0.550558785790140e3 * t1423 * t532 * t13805 + t13860 - 0.10348137178077040000e6 * t3091 * t1925 - 0.213119529983280e3 * t1923 * t1924 * t13805;
11945   t13867 = 0.10672e2 * t5003;
11946   t13868 = 0.5336e1 * t5007;
11947   t13869 = 0.8004e1 * t5014;
11948   t13870 = 0.4002e1 * t5017;
11949   t13871 = t5032 * t736;
11950   t13874 = t5021 * t781;
11951   t13877 = t1213 * t3343;
11952   t13886 = t5021 * t736;
11953   t13889 = t5025 * t781;
11954   t13892 = t1236 * t3343;
11955   t13901 = t5025 * t736;
11956   t13904 = t5239 * t781;
11957   t13907 = t1279 * t3343;
11958   t13910 = t13867 - t13868 - t13869 + t13870 - 0.533466600e2 * t3812 * t13871 + 0.266733300e2 * t1462 * t13874 - 0.266733300e2 * t1462 * t13877 - 0.10025869407860880e5 * t5251 * t5022 + 0.4296801174797520e4 * t1271 * t5026 - 0.2864534116531680e4 * t1271 * t5029 - 0.334195646928696e3 * t3712 * t13886 + 0.143226705826584e3 * t1407 * t13889 - 0.95484470551056e2 * t1407 * t13892 + 0.76628483949072000e5 * t5265 * t5353 - 0.30651393579628800e5 * t1278 * t5356 + 0.15325696789814400e5 * t1278 * t5359 + 0.1915712098726800e4 * t3688 * t13901 - 0.766284839490720e3 * t1480 * t13904 + 0.383142419745360e3 * t1480 * t13907;
11959   t13913 = t1314 * t3343;
11960   t13916 = t5181 * t554;
11961   t13917 = t13916 * t1957;
11962   t13939 = t5239 * t736;
11963   t13942 = t5243 * t781;
11964   t13945 = t1287 * t3343;
11965   t13954 = t5243 * t736;
11966   t13961 = 0.27915755359688e2 * t1453 * t13913 - 0.99544553995786666667e4 * t13917 * t5480 + 0.38952216780960000000e4 * t5887 * t5484 - 0.86560481735466666667e3 * t5887 * t5487 - 0.119453464794944e3 * t5479 * t5235 * t736 + 0.46742660137152e2 * t2075 * t5483 * t781 - 0.10387257808256e2 * t2075 * t1458 * t3343 - 0.121211732677990500e6 * t5278 * t5372 + 0.46619897183842500e5 * t1286 * t5375 - 0.18647958873537000e5 * t1286 * t5378 - 0.2424234653559810e4 * t3747 * t13939 + 0.932397943676850e3 * t1417 * t13942 - 0.372959177470740e3 * t1417 * t13945 + 0.68895221848871040e5 * t5291 * t5399 - 0.25835708193326640e5 * t1294 * t5403 + 0.8611902731108880e4 * t1294 * t5406 + 0.1148253697481184e4 * t3760 * t13954 + 0.5334666000e3 * t1231 * t5042 - 0.5334666000e3 * t1231 * t5009;
11967   t13962 = t5203 * t781;
11968   t13965 = t1295 * t3343;
11969   t13969 = 0.80511822438128000000e4 * t3848 * t5510;
11970   t13971 = 0.30191933414298000000e4 * t3851 * t5513;
11971   t13972 = t5302 * t736;
11972   t13974 = 0.142079686655520e3 * t1424 * t13972;
11973   t13975 = t5207 * t781;
11974   t13977 = 0.53279882495820e2 * t1428 * t13975;
11975   t13991 = 0.19908910799157333333e3 * t3860 * t5475;
11976   t13994 = 0.7141239743176e1 * t1453 * t5225 * t736;
11977   t13997 = 0.2596814452064e1 * t1457 * t5474 * t781;
11978   t14006 = -0.1651676357370420e4 * t1424 * t13962 + 0.550558785790140e3 * t1424 * t13965 + t13969 - t13971 + t13974 - t13977 - 0.11472934697433240000e6 * t3054 * t5441 + 0.47241495812960400000e5 * t875 * t5444 - 0.13497570232274400000e5 * t875 * t5447 - 0.1811516004857880e4 * t5518 * t13736 + 0.745918354941480e3 * t2105 * t13739 - 0.213119529983280e3 * t2105 * t13742 - t13991 + t13994 - t13997 - 0.13884113335556800000e5 * t3784 * t5447 - 0.1874355300300168e4 * t3722 * t13736 + 0.728915950116732e3 * t1439 * t13739 - 0.208261700033352e3 * t1439 * t13742;
11979   t14009 = 0.35648399104808000000e4 * t3784 * t5339;
11980   t14011 = 0.13133620722824000000e4 * t3787 * t5342;
11981   t14012 = t5207 * t736;
11982   t14014 = 0.53472598657212e2 * t1439 * t14012;
11983   t14015 = t5225 * t781;
11984   t14017 = 0.19700431084236e2 * t1443 * t14015;
11985   t14024 = t5213 * t736;
11986   t14033 = t5235 * t781;
11987   t14036 = t5268 * t781;
11988   t14038 = 0.17903338228323e2 * t1038 * t14036;
11989   t14051 = -t14009 + t14011 - t14014 + t14017 + 0.57787931180425600000e5 * t3011 * t5345 - 0.23115172472170240000e5 * t883 * t5332 + 0.57787931180425600000e4 * t883 * t5336 + 0.788017243369440e3 * t5540 * t14024 - 0.430595136555444e3 * t1432 * t13962 + 0.143531712185148e3 * t1432 * t13965 + 0.4129190893426050e4 * t3753 * t13954 - 0.111663021438752e3 * t1453 * t14033 + t14038 + 0.24945317931463380000e5 * t5258 * t5353 - 0.11086807969539280000e5 * t3764 * t5356 + 0.55434039847696400000e4 * t3764 * t5359 + 0.680326852676274e3 * t3768 * t13901 - 0.302367490078344e3 * t1472 * t13904 + 0.151183745039172e3 * t1472 * t13907;
11990   t14053 = 0.4305951365554440e4 * t1294 * t5510;
11991   t14055 = 0.1519747540783920e4 * t2899 * t5513;
11992   t14057 = 0.71765856092574e2 * t1432 * t13972;
11993   t14059 = 0.25329125679732e2 * t1028 * t13975;
11994   t14069 = 0.681663793666800e3 * t1302 * t5339;
11995   t14071 = 0.238582327783380e3 * t2771 * t5342;
11996   t14073 = 0.9738054195240e1 * t1447 * t14012;
11997   t14075 = 0.3408318968334e1 * t1077 * t14015;
11998   t14092 = t14053 - t14055 + t14057 - t14059 - 0.12495702002001120000e6 * t5307 * t5441 + 0.48594396674448800000e5 * t3784 * t5444 - 0.315206897347776e3 * t2067 * t14033 + 0.78801724336944e2 * t2067 * t13913 - t14069 + t14071 - t14073 + t14075 + 0.22472183064548840000e5 * t5212 * t5345 - 0.85608316436376533333e4 * t3857 * t5332 + 0.293115431276724e3 * t3735 * t14024 + 0.68961006509096000000e4 * t906 * t5375 - 0.27584402603638400000e4 * t906 * t5378 - 0.350109725353872e3 * t5371 * t13939 + 0.159140784251760e3 * t2090 * t13942 - 0.63656313700704e2 * t2090 * t13945;
11999   t14097 = 0.7662848394907200e4 * t1278 * t5362;
12000   t14099 = 0.2786490325420800e4 * t2922 * t5365;
12001   t14100 = t5268 * t736;
12002   t14102 = 0.191571209872680e3 * t1480 * t14100;
12003   t14103 = t5281 * t781;
12004   t14105 = 0.69662258135520e2 * t1016 * t14103;
12005   t14114 = 0.34083189683340e2 * t5142;
12006   t14115 = 0.14587905223078000000e3 * t5148;
12007   t14116 = 0.696622581355200e3 * t5152;
12008   t14117 = 0.54181756327626666666e3 * t5156;
12009   t14118 = 0.665998531197750e3 * t5162;
12010   t14119 = 0.533466600e2 * t5166;
12011   t14120 = 0.47419253333333333334e2 * t5170;
12012   t14121 = 0.24886138498946666666e2 * t5178;
12013   t14122 = 0.50319889023830000000e3 * t5192;
12014   t14123 = 0.253291256797320e3 * t5196;
12015   t14124 = 0.18762315318320000000e3 * t5200;
12016   t14125 = t14097 - t14099 + t14102 - t14105 - 0.16254526898288000000e6 * t5273 * t5372 + 0.67727195409533333333e5 * t3639 * t5375 - 0.27090878163813333334e5 * t3639 * t5378 - 0.3483112906776000e4 * t3740 * t13939 - t14114 + t14115 + t14116 - t14117 - t14118 - t14119 + t14120 + t14121 + t14122 + t14123 - t14124;
12017   t14126 = t1816 * t263;
12018   t14127 = t14126 * t723;
12019   t14133 = 0.995804320e2 * t4066 * t13790;
12020   t14135 = 0.426773280e2 * t4069 * t13794;
12021   t14136 = t1335 * t133;
12022   t14137 = t14136 * t506;
12023   t14140 = t505 * t140;
12024   t14141 = t5257 * t14140;
12025   t14147 = 0.42968011747975200000e3 * t4073 * t13790;
12026   t14151 = 0.43763715669234000000e3 * t4080 * t13790;
12027   t14153 = 0.17505486267693600000e3 * t4083 * t13794;
12028   t14154 = t1366 * t502;
12029   t14155 = t14154 * t519;
12030   t14158 = t518 * t154;
12031   t14159 = t5272 * t14158;
12032   t14165 = 0.2298854518472160e4 * t4087 * t13790;
12033   t14167 = 0.835947097626240e3 * t2543 * t13794;
12034   t14174 = 0.5548052640e3 * t10666 * t14127 - 0.3698701760e3 * t4066 * t13786 - t14133 + t14135 + 0.8535465600e3 * t14137 * t13802 - 0.4267732800e3 * t14141 * t14127 + 0.2133866400e3 * t6039 * t13786 + t14147 - 0.16630211954308920000e4 * t4080 * t13786 - t14151 + t14153 + 0.45514264296003360000e4 * t14155 * t13802 - 0.20688301952728800000e4 * t14159 * t14127 + 0.82753207810915200000e3 * t6046 * t13786 - t14165 + t14167 + 0.48763580694864000e5 * t10411 * t13802 - 0.20318158622860000e5 * t10656 * t14127 + 0.8127263449144000e4 * t4093 * t13786;
12035   t14177 = 0.2113088496777440e4 * t4093 * t13790;
12036   t14179 = 0.812726344914400e3 * t4096 * t13794;
12037   t14180 = t1373 * t515;
12038   t14181 = t14180 * t532;
12039   t14184 = t531 * t167;
12040   t14185 = t5285 * t14184;
12041   t14195 = 0.1069451973144240e4 * t4119 * t13790;
12042   t14197 = 0.394008621684720e3 * t4122 * t13794;
12043   t14198 = t1321 * t541;
12044   t14199 = t14198 * t558;
12045   t14202 = t557 * t825;
12046   t14203 = t5211 * t14202;
12047   t14209 = 0.20449913810004000000e3 * t4045 * t13790;
12048   t14211 = 0.71574698335014000000e2 * t2540 * t13794;
12049   t14217 = 0.16113004405490700000e3 * t2534 * t13794;
12050   t14222 = t14177 - t14179 - 0.26007243037260800e5 * t14181 * t13802 + 0.11145961301683200e5 * t14185 * t14127 + 0.37487106006003360e5 * t10319 * t13802 - 0.14578319002334640e5 * t10673 * t14127 + 0.4165234000667040e4 * t4119 * t13786 + t14195 - t14197 - 0.17336379354127680e5 * t14199 * t13802 + 0.6934551741651072e4 * t14203 * t14127 - 0.1733637935412768e4 * t6024 * t13786 + t14209 - t14211 - 0.67416549193646520000e4 * t10394 * t13802 + 0.25682494930912960000e4 * t10653 * t14127 - t14217 - 0.74835953794390140000e4 * t10351 * t13802 + 0.33260423908617840000e4 * t10650 * t14127;
12051   t14240 = 0.24153546731438400000e4 * t4106 * t13790;
12052   t14242 = 0.90575800242894000000e3 * t4109 * t13794;
12053   t14243 = t1379 * t147;
12054   t14244 = t14243 * t545;
12055   t14247 = t544 * t385;
12056   t14248 = t5306 * t14247;
12057   t14254 = 0.1291785409666332e4 * t4113 * t13790;
12058   t14256 = 0.455924262235176e3 * t2531 * t13794;
12059   t14268 = -0.13985969155152750000e5 * t8787 * t14127 + 0.55943876620611000000e4 * t4100 * t13786 - 0.20668566554661312e5 * t10354 * t13802 + 0.7750712457997992e4 * t8790 * t14127 - 0.2583570819332664e4 * t4113 * t13786 - 0.70196245188242850000e5 * t10385 * t13802 + 0.28078498075297140000e5 * t10661 * t14127 - 0.93594993584323800000e4 * t4106 * t13786 - t14240 + t14242 + 0.34418804092299720000e5 * t14244 * t13802 - 0.14172448743888120000e5 * t14248 * t14127 + 0.40492710696823200000e4 * t6061 * t13786 - t14254 + t14256 - 0.1600399800e3 * t8781 * t14127 + 0.1600399800e3 * t4060 * t13786 + 0.30077608223582640000e4 * t10335 * t13802 - 0.12890403524392560000e4 * t8784 * t14127 - 0.580518817796000e3 * t1485 * t519 * t13805;
12060   t14272 = 0.60502961232516444444e4 * t3507 * t1903;
12061   t14279 = 0.29241872888888888889e3 * t3562 * t1873;
12062   t14283 = t715 * t75 * t13805;
12063   t14285 = t740 * t1820;
12064   t14288 = t1225 * t468 * t13805;
12065   t14290 = t761 * t1824;
12066   t14291 = 0.40020e2 * t14290;
12067   t14292 = t3354 * t1824;
12068   t14293 = 0.4002e1 * t14292;
12069   t14294 = t3079 * t1829;
12070   t14296 = t7805 * t1817;
12071   t14298 = t2368 * t1817;
12072   t14300 = t33 * t736;
12073   t14301 = t14300 * t1817;
12074   t14307 = 0.1253233675982610e4 * t2645 * t1882;
12075   t14309 = 0.2400599700e3 * t2629 * t1867;
12076   t14311 = t1827 * t1828 * t13805;
12077   t14313 = t3337 * t1832;
12078   t14314 = 0.81522222222222222225e2 * t14313;
12079   t14315 = -t14272 + 0.38014434755555555556e4 * t983 * t1870 + 0.462337720e2 * t1467 * t493 * t13805 + t14279 - 0.27858811333333333333e4 * t3146 * t1879 - 0.8004e1 * t14283 + 0.57065555555555555556e3 * t14285 + 0.18676e2 * t14288 - t14291 - t14293 - 0.66403555555555555556e3 * t14294 - 0.40020e2 * t14296 - 0.80040e2 * t14298 - 0.4002e1 * t14301 - 0.213386640e2 * t1877 * t1878 * t13805 - t14307 - t14309 - 0.10672e2 * t14311 + t14314;
12080   t14327 = 0.16424851409304800000e3 * t4052 * t13790;
12081   t14329 = 0.59726732397472000000e2 * t4056 * t13794;
12082   t14330 = t5230 * t554;
12083   t14331 = t14330 * t6031;
12084   t14334 = t5233 * t2655;
12085   t14335 = t5231 * t14334;
12086   t14350 = t5302 * t781;
12087   t14352 = 0.58051881779600e2 * t1413 * t14350;
12088   t14359 = 0.85936023495950400000e3 * t4073 * t13786 - 0.22988545184721600e5 * t10440 * t13802 + 0.9195418073888640e4 * t8723 * t14127 - 0.4597709036944320e4 * t4087 * t13786 - 0.64206237327282400000e3 * t4052 * t13786 - t14327 + t14329 + 0.29863366198736000000e4 * t14331 * t13802 - 0.11685665034288000000e4 * t14335 * t14127 + 0.25968144520640000000e3 * t6032 * t13786 + 0.36363519803397150000e5 * t10379 * t13802 + 0.38854836239007600000e4 * t10325 * t13802 - 0.14314939667002800000e4 * t8847 * t14127 + 0.40899827620008000000e3 * t4045 * t13786 + 0.3200799600e3 * t10306 * t13802 + t14352 + 0.86690810124202666667e5 * t3065 * t5399 - 0.37153204338944000000e5 * t866 * t5403 + 0.12384401446314666667e5 * t866 * t5406;
12089   t14368 = 0.9323979436768500e4 * t1286 * t5391;
12090   t14370 = 0.3329992655988750e4 * t2803 * t5394;
12091   t14371 = t5281 * t736;
12092   t14373 = 0.186479588735370e3 * t1417 * t14371;
12093   t14375 = 0.66599853119775e2 * t1023 * t14350;
12094   t14377 = 0.14587905223078000000e4 * t3764 * t5362;
12095   t14379 = 0.58351620892312000000e3 * t3682 * t5365;
12096   t14381 = 0.39785196062940e2 * t1472 * t14100;
12097   t14383 = 0.15914078425176e2 * t1476 * t14103;
12098   t14386 = 0.56286945954960e2 * t5209;
12099   t14387 = 0.10224956905002000000e2 * t5220;
12100   t14388 = 0.74658415496840000000e1 * t5227;
12101   t14389 = 0.160039980e2 * t5249;
12102   t14390 = 0.142257760e2 * t5255;
12103   t14391 = 0.53710014684969000000e2 * t5263;
12104   t14392 = 0.43763715669234000000e2 * t5270;
12105   t14393 = 0.1625452689828800e4 * t5398 * t13954 - 0.696622581355200e3 * t2097 * t13962 + 0.232207527118400e3 * t2097 * t13965 - t14368 + t14370 - t14373 + t14375 + t14377 - t14379 + t14381 - t14383 - 0.15171421432001120000e5 * t3049 * t5372 + t14386 + t14387 - t14388 + t14389 - t14390 + t14391 - t14392;
12106   t14394 = 0.208986774406560e3 * t5276;
12107   t14395 = 0.162545268982880e3 * t5283;
12108   t14396 = 0.19979955935932500000e3 * t5289;
12109   t14397 = 0.15095966707149000000e3 * t5304;
12110   t14398 = 0.75987377039196e2 * t5310;
12111   t14399 = 0.60030000000000000000e1 * t5055;
12112   t14400 = 0.66700000000000000000e1 * t5063;
12113   t14406 = 0.70436283225914666666e4 * t3639 * t5391;
12114   t14408 = 0.27090878163813333333e4 * t3642 * t5394;
12115   t14410 = 0.150934892626960e3 * t1486 * t14371;
12116   t14411 = t5302 * t716;
12117   t14413 = 0.1148253697481184e4 * t3760 * t14411;
12118   t14414 = t5225 * t751;
12119   t14416 = 0.177303879758124e3 * t1028 * t14414;
12120   t14421 = t5207 * t716;
12121   t14423 = 0.962506775829816e3 * t3722 * t14421;
12122   t14429 = 0.2131195299832800e4 * t3753 * t14411;
12123   t14430 = -t14394 + t14395 + t14396 - t14397 - t14398 + t14399 - t14400 + 0.1451297044490000e4 * t1486 * t13942 - 0.580518817796000e3 * t1486 * t13945 - t14406 + t14408 - t14410 + t14413 + t14416 - 0.31864040105102856e5 * t10005 * t13718 - 0.5831327600933856e4 * t1439 * t13723 - t14423 + 0.11561734501592940e5 * t1424 * t13753 + 0.31198331194774600000e5 * t3848 * t5406 + t14429;
12124   t14436 = 0.372959177470740e3 * t1428 * t14414;
12125   t14437 = t1922 * t134;
12126   t14438 = t14437 * t291;
12127   t14443 = t5483 * t751;
12128   t14447 = 0.537100146849690e3 * t2942 * t5350;
12129   t14448 = t5281 * t751;
12130   t14450 = 0.71613352913292e2 * t1038 * t14448;
12131   t14455 = t5268 * t716;
12132   t14457 = 0.358066764566460e3 * t3768 * t14455;
12133   t14458 = t5474 * t751;
12134   t14460 = 0.157603448673888e3 * t1443 * t14458;
12135   t14461 = t1937 * t148;
12136   t14462 = t14461 * t300;
12137   t14463 = t5213 * t716;
12138   t14469 = 0.185023029709560e3 * t3729 * t14421;
12139   t14471 = 0.27266551746672e2 * t1077 * t14458;
12140   t14474 = t5281 * t716;
12141   t14476 = 0.2424234653559810e4 * t3747 * t14474;
12142   t14477 = t5207 * t751;
12143   t14479 = 0.399599118718650e3 * t1023 * t14477;
12144   t14480 = t5001 * t716;
12145   t14482 = 0.533466600e2 * t3812 * t14480;
12146   t14483 = t5268 * t751;
12147   t14485 = 0.160039980e2 * t1033 * t14483;
12148   t14486 = t14436 - 0.28984256077726080e5 * t14438 * t13718 - 0.5967346839531840e4 * t2105 * t13723 + 0.1004967192948768e4 * t1453 * t14443 + t14447 - t14450 + 0.5442614821410192e4 * t10062 * t13708 + 0.1511837450391720e4 * t1472 * t13711 + t14457 - t14460 + 0.14972327624019360e5 * t14462 * t14463 + 0.2836862076129984e4 * t2067 * t14443 - t14469 - t14471 + 0.5862308625534480e4 * t9989 * t14463 - t14476 - t14479 - t14482 - t14485;
12149   t14492 = 0.1811218711523520e4 * t3740 * t14474;
12150   t14494 = 0.348311290677600e3 * t1413 * t14477;
12151   t14495 = t1906 * t122;
12152   t14496 = t14495 * t282;
12153   t14501 = t5302 * t751;
12154   t14503 = 0.79570392125880e2 * t1476 * t14501;
12155   t14504 = t1891 * t110;
12156   t14505 = t14504 * t327;
12157   t14511 = 0.1915712098726800e4 * t3688 * t14455;
12158   t14513 = 0.348311290677600e3 * t1016 * t14501;
12159   t14527 = 0.33193477333333333334e3 * t3828 * t5423;
12160   t14529 = 0.14225776000000000000e3 * t3831 * t5350;
12161   t14530 = 0.6935065800e3 * t10015 * t13782 - 0.8707782266940000e4 * t1486 * t13747 - t14492 - t14494 + 0.21130884967774400e5 * t14496 * t13750 + 0.4876358069486400e4 * t2097 * t13753 + t14503 - 0.3501097253538720e4 * t14505 * t13779 - 0.954844705510560e3 * t2090 * t13747 + t14511 + t14513 - 0.38314241974536000e5 * t9996 * t13779 - 0.18493508800000000000e4 * t3828 * t5026 + 0.12329005866666666667e4 * t3828 * t5029 + 0.1387013160e3 * t3818 * t13886 - 0.693506580e2 * t1468 * t13889 + 0.462337720e2 * t1468 * t13892 + t14527 - t14529;
12162   t14532 = t5005 * t736;
12163   t14534 = 0.124475540e2 * t1468 * t14532;
12164   t14536 = 0.53346660e1 * t1403 * t14036;
12165   t14541 = t5005 * t716;
12166   t14543 = 0.334195646928696e3 * t3712 * t14541;
12167   t14547 = 0.746853240e2 * t3818 * t14541;
12168   t14549 = 0.213386640e2 * t1403 * t14448;
12169   t14550 = t1876 * t97;
12170   t14551 = t14550 * t317;
12171   t14556 = t10093 * t308;
12172   t14557 = t5032 * t2483;
12173   t14558 = t14556 * t14557;
12174   t14561 = t2482 * t5012 * t2483;
12175   t14562 = 0.36018000000000000000e2 * t14561;
12176   t14563 = t405 * t160;
12177   t14564 = t14563 * t114;
12178   t14565 = t5021 * t2483;
12179   t14566 = t14564 * t14565;
12180   t14568 = t5001 * t2483;
12181   t14569 = t3430 * t14568;
12182   t14570 = 0.60030000000000000000e2 * t14569;
12183   t14571 = t2466 * t5054;
12184   t14572 = 0.32016000000000000000e2 * t14571;
12185   t14574 = t1205 * t5001 * t3409;
12186   t14575 = 0.8004e1 * t14574;
12187   t14576 = t3169 * t5059;
12188   t14578 = t5025 * t3409;
12189   t14579 = t5020 * t14578;
12190   t14581 = t1236 * t10078;
12191   t14582 = t5020 * t14581;
12192   t14584 = t14534 - t14536 - 0.28451552000000000000e4 * t3044 * t5353 + 0.14225776000000000000e4 * t901 * t5356 - t14543 + 0.2774026320e3 * t1468 * t13705 + t14547 + t14549 - 0.5974825920e3 * t14551 * t13708 - 0.2133866400e3 * t2083 * t13711 + 0.42021000000000000000e3 * t14558 - t14562 - 0.44822400000000000000e3 * t14566 + t14570 + t14572 + t14575 + 0.44822400000000000000e3 * t14576 + 0.160080e3 * t14579 - 0.106720e3 * t14582;
12193   t14585 = t1279 * t10086;
12194   t14586 = t2032 * t14585;
12195   t14588 = t3420 * t5062;
12196   t14589 = 0.57806666666666666668e2 * t14588;
12197   t14590 = t5005 * t3409;
12198   t14591 = t1226 * t14590;
12199   t14592 = 0.21344e2 * t14591;
12200   t14593 = t242 * t238;
12201   t14594 = t14593 * t244;
12202   t14595 = t14594 * t5047;
12203   t14597 = t2384 * t5047;
12204   t14600 = t1205 * t1213 * t10086;
12205   t14602 = t10108 * t101;
12206   t14603 = t14602 * t5051;
12207   t14605 = t5021 * t3409;
12208   t14606 = t3390 * t14605;
12209   t14608 = t1213 * t10078;
12210   t14609 = t3390 * t14608;
12211   t14611 = t1236 * t10086;
12212   t14612 = t1226 * t14611;
12213   t14614 = t1314 * t10086;
12214   t14626 = t7871 * t5046 * t2483;
12215   t14629 = t727 * t5001 * t781;
12216   t14630 = 0.2001e1 * t14629;
12217   t14631 = t5672 * t5033;
12218   t14633 = t5672 * t5036;
12219   t14637 = 0.64032e2 * t14586 - t14589 - t14592 + 0.12006000000000000000e2 * t14595 + 0.64032000000000000000e2 * t14597 + 0.16008e2 * t14600 - 0.40464666666666666667e3 * t14603 - 0.112056e3 * t14606 + 0.112056e3 * t14609 - 0.74704e2 * t14612 + 0.272665517466720e3 * t1447 * t14614 + 0.82687323000000000000e3 * t3430 * t5051 + 0.2133866400e3 * t3812 * t14605 - 0.2133866400e3 * t3812 * t14608 + 0.1066933200e3 * t1462 * t14611 - 0.72036000000000000000e2 * t14626 + t14630 + 0.8004e1 * t14631 - 0.16008e2 * t14633 - 0.71128880000000000000e3 * t901 * t5359;
12220   t14647 = 0.1432267058265840e4 * t1271 * t5423;
12221   t14649 = 0.47742235275528e2 * t1407 * t14532;
12222   t14651 = 0.2667333000e3 * t1231 * t5002;
12223   t14653 = 0.1066933200e3 * t2870 * t5006;
12224   t14654 = t5001 * t736;
12225   t14656 = 0.133366650e2 * t1462 * t14654;
12226   t14657 = t5005 * t781;
12227   t14659 = 0.53346660e1 * t1033 * t14657;
12228   t14662 = t768 * t5033;
12229   t14664 = t768 * t5036;
12230   t14667 = t1205 * t5032 * t781;
12231   t14670 = t1205 * t1206 * t3343;
12232   t14672 = t11082 * t5039;
12233   t14674 = t3395 * t5042;
12234   t14676 = t3395 * t5009;
12235   t14678 = t3390 * t13871;
12236   t14680 = t1226 * t13874;
12237   t14682 = -0.853546560e2 * t5432 * t13901 + 0.426773280e2 * t2083 * t13904 - 0.213386640e2 * t2083 * t13907 - t14647 - t14649 - t14651 + t14653 - t14656 + t14659 + 0.36987017600000000000e4 * t5058 * t5022 + 0.40020e2 * t14662 - 0.80040e2 * t14664 + 0.4002e1 * t14667 - 0.8004e1 * t14670 + 0.46690000000000000000e3 * t14672 - 0.31126666666666666666e3 * t14674 + 0.31126666666666666666e3 * t14676 + 0.28014e2 * t14678 - 0.18676e2 * t14680;
12238   t14683 = t1226 * t13877;
12239   t14685 = t768 * t5013;
12240   t14686 = 0.40020e2 * t14685;
12241   t14687 = t2437 * t5016;
12242   t14688 = 0.20010e2 * t14687;
12243   t14690 = t1205 * t5012 * t736;
12244   t14691 = 0.4002e1 * t14690;
12245   t14692 = t3035 * t5022;
12246   t14694 = t892 * t5026;
12247   t14696 = t892 * t5029;
12248   t14698 = t5020 * t13886;
12249   t14700 = t2032 * t13889;
12250   t14702 = t2032 * t13892;
12251   t14704 = t3395 * t5002;
12252   t14705 = 0.88933333333333333335e2 * t14704;
12253   t14706 = t3398 * t5006;
12254   t14707 = 0.44466666666666666667e2 * t14706;
12255   t14708 = t1226 * t14654;
12256   t14709 = 0.5336e1 * t14708;
12257   t14710 = t1235 * t14657;
12258   t14711 = 0.2668e1 * t14710;
12259   t14712 = t2032 * t13705;
12260   t14714 = t3390 * t14480;
12261   t14715 = 0.16008e2 * t14714;
12262   t14717 = t1205 * t5021 * t751;
12263   t14719 = t11071 * t13728;
12264   t14721 = t1226 * t13731;
12265   t14723 = 0.18676e2 * t14683 - t14686 + t14688 - t14691 - 0.62253333333333333334e3 * t14692 + 0.37352000000000000000e3 * t14694 - 0.24901333333333333334e3 * t14696 - 0.26680e2 * t14698 + 0.16008e2 * t14700 - 0.10672e2 * t14702 + t14705 - t14707 + t14709 - t14711 - 0.64032e2 * t14712 + t14715 - 0.8004e1 * t14717 + 0.56028e2 * t14719 + 0.56028e2 * t14721;
12266   t14725 = 0.20010e2 * t5072;
12267   t14726 = 0.22233333333333333334e2 * t5076;
12268   t14731 = t5239 * t3409;
12269   t14734 = t1279 * t10078;
12270   t14737 = t1287 * t10086;
12271   t14740 = t1314 * t10078;
12272   t14743 = t5213 * t3409;
12273   t14746 = t1303 * t10078;
12274   t14749 = t5203 * t3409;
12275   t14752 = t1295 * t10078;
12276   t14755 = t1458 * t10086;
12277   t14759 = 0.28867920658778133333e3 * t3939 * t5226;
12278   t14762 = 0.114259835890816e3 * t1453 * t5474 * t3409;
12279   t14764 = t9 * t1952 * t1954;
12280   t14765 = t14764 * t5233;
12281   t14777 = -t14725 + t14726 + 0.572906823306336e3 * t1407 * t14585 - 0.46743375208933920000e5 * t3992 * t5259 - 0.15325696789814400e5 * t3688 * t14731 + 0.7662848394907200e4 * t3688 * t14734 - 0.3065139357962880e4 * t1480 * t14737 + 0.1172461725106896e4 * t3735 * t14740 + 0.2590322415933840e4 * t3729 * t14743 - 0.740092118838240e3 * t3729 * t14746 - 0.49550290721112600e5 * t3753 * t14749 + 0.16516763573704200e5 * t3753 * t14752 - 0.446652085755008e3 * t1453 * t14755 - t14759 - t14762 + 0.54533103493344000001e4 * t14765 * t5236 + 0.2150162366308992e4 * t5479 * t5483 * t3409 - 0.477813859179776e3 * t5479 * t1458 * t10078 + 0.186970640548608e3 * t2075 * t3808 * t10086;
12282   t14780 = t5243 * t3409;
12283   t14789 = t1287 * t10078;
12284   t14792 = t1295 * t10086;
12285   t14801 = t1303 * t10086;
12286   t14806 = t7912 * t14127;
12287   t14808 = t3321 * t13786;
12288   t14810 = t10131 * t13802;
12289   t14812 = t10678 * t14127;
12290   t14814 = t3331 * t13786;
12291   t14816 = t3321 * t13790;
12292   t14817 = 0.12006000000000000000e2 * t14816;
12293   t14818 = t2336 * t13794;
12294   t14819 = 0.60030000000000000000e1 * t14818;
12295   t14820 = t1327 * t96;
12296   t14821 = t14820 * t493;
12297   t14822 = t14821 * t13802;
12298   t14824 = 0.70862243719440600000e5 * t3999 * t5240 + 0.24242346535598100e5 * t3747 * t14780 + 0.65884284680228640000e4 * t4028 * t5059 + 0.2005173881572176e4 * t3712 * t14578 - 0.1336782587714784e4 * t3712 * t14581 - 0.9696938614239240e4 * t3747 * t14789 + 0.3729591774707400e4 * t1417 * t14792 - 0.39184157426545404000e5 * t4006 * t5244 - 0.13779044369774208e5 * t3760 * t14749 + 0.4593014789924736e4 * t3760 * t14752 - 0.1722380546221776e4 * t1432 * t14801 + 0.72256362128680800000e4 * t4013 * t5204 - 0.12006000000000000000e2 * t14806 + 0.24012000000000000000e2 * t14808 - 0.14007000000000000000e3 * t14810 + 0.93380000000000000000e2 * t14812 - 0.93380000000000000000e2 * t14814 + t14817 - t14819 + 0.18676000000000000000e3 * t14822;
12299   t14828 = t492 * t127;
12300   t14829 = t5057 * t14828;
12301   t14830 = t14829 * t14127;
12302   t14832 = t5705 * t13786;
12303   t14834 = t3331 * t13790;
12304   t14835 = 0.26680000000000000000e2 * t14834;
12305   t14836 = t3334 * t13794;
12306   t14837 = 0.13340000000000000000e2 * t14836;
12307   t14839 = 0.43275104560493800000e4 * t3960 * t5303;
12308   t14840 = t5207 * t3409;
12309   t14842 = 0.1704956239866240e4 * t1424 * t14840;
12310   t14854 = 0.81692269249236800000e3 * t3979 * t5269;
12311   t14855 = t5281 * t3409;
12312   t14857 = 0.318281568503520e3 * t1472 * t14855;
12313   t14860 = t5235 * t3409;
12314   t14868 = 0.36128181064340400000e3 * t3104 * t5208;
12315   t14869 = t5225 * t3409;
12316   t14871 = 0.136332758733360e3 * t1447 * t14869;
12317   t14872 = -0.11205600000000000000e3 * t14830 + 0.74704000000000000000e2 * t14832 - t14835 + t14837 - t14839 - t14842 + 0.64788337114917120000e5 * t3121 * t5204 + 0.25361224068010320e5 * t5518 * t14743 - 0.7246064019431520e4 * t5518 * t14746 + 0.2983673419765920e4 * t2105 * t14614 - 0.1209469960313376e4 * t1472 * t14737 - t14854 - t14857 - 0.32072301805136208000e5 * t3129 * t5214 - 0.12608275893911040e5 * t5540 * t14860 + 0.3152068973477760e4 * t5540 * t14740 - 0.1260827589391104e4 * t2067 * t14755 + t14868 + t14871;
12318   t14873 = t10184 * t1312;
12319   t14879 = 0.23049504368556120000e4 * t3092 * t5303;
12320   t14881 = 0.861190273110888e3 * t1432 * t14840;
12321   t14882 = t10225 * t165;
12322   t14892 = 0.18949938471503200000e4 * t3985 * t5208;
12323   t14894 = 0.748616381200968e3 * t1439 * t14869;
12324   t14913 = -0.12413205883274597333e5 * t14873 * t5214 - 0.4689846900427584e4 * t3735 * t14860 - t14879 - t14881 + 0.70114772344561840000e5 * t14882 * t5204 + 0.26240974204202352e5 * t3722 * t14743 - 0.7497421201200672e4 * t3722 * t14746 + 0.2915663800466928e4 * t1439 * t14614 + t14892 + t14894 - 0.6606705429481680e4 * t1424 * t14801 - 0.50156825857574400001e5 * t3110 * t5244 - 0.19505432277945600e5 * t5398 * t14749 + 0.6501810759315200e4 * t5398 * t14752 - 0.2786490325420800e4 * t2097 * t14801 + 0.91028528592006720000e4 * t3182 * t5240 + 0.3501097253538720e4 * t5371 * t14780 - 0.1400438901415488e4 * t5371 * t14789 + 0.636563137007040e3 * t2090 * t14792;
12325   t14916 = 0.42493977462667200000e4 * t3159 * t5269;
12326   t14918 = 0.1532569678981440e4 * t1480 * t14855;
12327   t14919 = t10397 * t138;
12328   t14924 = t5268 * t3409;
12329   t14926 = 0.286453411653168e3 * t1407 * t14924;
12330   t14927 = t10340 * t125;
12331   t14934 = t10175 * t152;
12332   t14938 = 0.16537464600000000000e3 * t3080 * t5062;
12333   t14940 = 0.533466600e2 * t1462 * t14590;
12334   t14941 = t10153 * t114;
12335   t14953 = 0.38469046992614933333e4 * t3949 * t5282;
12336   t14954 = t5302 * t3409;
12337   t14956 = 0.1509348926269600e4 * t1486 * t14954;
12338   t14958 = 0.50615888371029000000e4 * t3020 * t5282;
12339   t14959 = -t14916 - t14918 + 0.96172617481537333333e5 * t14919 * t5240 + 0.34831129067760000e5 * t3740 * t14780 + t14926 - 0.15521531157354992000e5 * t14927 * t5259 - 0.5442614821410192e4 * t3768 * t14731 + 0.2721307410705096e4 * t3768 * t14734 - 0.13415282413753078000e6 * t14934 * t5244 + t14938 + t14940 - 0.25274462026666666667e4 * t14941 * t5059 - 0.8322078960e3 * t3818 * t14578 + 0.5548052640e3 * t3818 * t14581 - 0.13932451627104000e5 * t3740 * t14789 + 0.5805188177960000e4 * t1486 * t14792 + t14953 + t14956 + t14958;
12340   t14961 = 0.1864795887353700e4 * t1417 * t14954;
12341   t14963 = 0.19441893866666666667e3 * t3968 * t5254;
12342   t14965 = 0.746853240e2 * t1468 * t14924;
12343   t14975 = 0.82355355850285800000e3 * t3147 * t5254;
12344   t14976 = t10273 * t317;
12345   t14979 = t5005 * t2483;
12346   t14981 = 0.1920479760e3 * t4028 * t14979;
12347   t14982 = t500 * t109;
12348   t14983 = t14982 * t125;
12349   t14984 = t5025 * t2483;
12350   t14988 = 0.80565022027453500000e3 * t3177 * t14979;
12351   t14989 = t10136 * t327;
12352   t14992 = t5268 * t2483;
12353   t14994 = 0.78774688204621200000e3 * t3992 * t14992;
12354   t14995 = t513 * t351;
12355   t14996 = t14995 * t138;
12356   t14997 = t5239 * t2483;
12357   t15001 = 0.4075242100927920e4 * t3182 * t14992;
12358   t15002 = t10289 * t282;
12359   t15005 = t5281 * t2483;
12360   t15007 = 0.3657268552114800e4 * t3999 * t15005;
12361   t15008 = t527 * t361;
12362   t15009 = t15008 * t152;
12363   t15010 = t5243 * t2483;
12364   t15014 = 0.47951894246238000000e4 * t3110 * t15005;
12365   t15015 = t14961 - t14963 - t14965 + 0.18137864400000000000e4 * t3177 * t5259 + 0.6828372480e3 * t5432 * t14731 - 0.3414186240e3 * t5432 * t14734 + 0.1707093120e3 * t2083 * t14737 + t14975 + 0.24966236880e4 * t14976 * t14565 + t14981 - 0.17604397800e4 * t14983 * t14984 - t14988 + 0.14967190758878028000e5 * t14989 * t14984 + t14994 - 0.86890868201460960000e4 * t14996 * t14997 + t15001 - 0.91431713802870000e5 * t15002 * t14997 - t15007 + 0.47370335532153600e5 * t15009 * t15010 - t15014;
12366   t15018 = t10200 * t291;
12367   t15023 = t5302 * t2483;
12368   t15025 = 0.40759110109302300000e4 * t4006 * t15023;
12369   t15026 = t539 * t370;
12370   t15027 = t15026 * t165;
12371   t15028 = t5203 * t2483;
12372   t15032 = 0.2165640245617086e4 * t3121 * t15023;
12373   t15033 = t10246 * t300;
12374   t15036 = t5207 * t2483;
12375   t15038 = 0.1773038797581240e4 * t4013 * t15036;
12376   t15039 = t552 * t379;
12377   t15040 = t15039 * t1312;
12378   t15041 = t5213 * t2483;
12379   t15045 = 0.33742357786506600000e3 * t3129 * t15036;
12380   t15046 = t10259 * t1957;
12381   t15051 = 0.26877029578862400000e3 * t4021 * t5225 * t2483;
12382   t15052 = t158 * t981;
12383   t15053 = t15052 * t1954;
12384   t15054 = t15053 * t6670;
12385   t15071 = 0.1680419790e3 * t3169 * t14568;
12386   t15072 = 0.12635324133883713000e6 * t15018 * t15010 + 0.44827663110207120e5 * t8646 * t14984 + t15025 - 0.60739066045234800000e5 * t15027 * t15028 + t15032 - 0.65602435510505880e5 * t15033 * t15028 - t15038 + 0.29905254385870248e5 * t15040 * t15041 - t15045 + 0.11557122718910832000e5 * t15046 * t15041 + t15051 - 0.50637881815248000000e4 * t15054 * t5235 * t2483 - 0.67132651944733200000e5 * t8660 * t14997 + 0.36815884175490462e5 * t8601 * t15010 - 0.67484715573013200000e4 * t8616 * t15028 - 0.8402098950e3 * t8669 * t14557 - 0.64452017621962800000e4 * t8637 * t14565 - 0.2774026320e3 * t1468 * t14585 - t15071;
12387   t15079 = 0.579414224616780e3 * t2609 * t1943;
12388   t15088 = 0.3672723223561140e4 * t2592 * t1928;
12389   t15097 = 0.7991982374373000e4 * t2571 * t1912;
12390   t15101 = 0.12642851193334266667e4 * t3574 * t1888;
12391   t15108 = 0.6617914522874400e4 * t2697 * t1897;
12392   t15109 = -0.15125740308129111111e6 * t1045 * t1900 + 0.78801724336944e2 * t1938 * t1939 * t13805 - t15079 + 0.19975273835154524444e5 * t975 * t1946 + 0.24021417267335106667e5 * t990 * t1885 + 0.151183745039172e3 * t1471 * t506 * t13805 + t15088 - 0.11222991612908413333e6 * t1061 * t1931 + 0.79466575947185777779e5 * t3019 * t1909 + 0.232207527118400e3 * t1907 * t1908 * t13805 - t15097 + 0.21318859649762643333e6 * t1053 * t1915 + t15101 - 0.14251941345213173333e5 * t3158 * t1894 - 0.63656313700704e2 * t1892 * t1893 * t13805 + t15108 - t1869 + t1875 - t1884;
12393   t15111 = 0.179033382283230e3 * t5330;
12394   t15112 = 0.19476108390480e2 * t5340;
12395   t15113 = 0.6816637936668e1 * t5343;
12396   t15114 = 0.35806676456646e2 * t5351;
12397   t15115 = 0.79570392125880e2 * t5363;
12398   t15116 = 0.31828156850352e2 * t5366;
12399   t15117 = 0.383142419745360e3 * t5381;
12400   t15118 = 0.139324516271040e3 * t5383;
12401   t15119 = t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - t15111 - t15112 + t15113 + t15114 + t15115 - t15116 + t15117 - t15118;
12402   t15120 = 0.301869785253920e3 * t5392;
12403   t15121 = 0.116103763559200e3 * t5395;
12404   t15122 = 0.372959177470740e3 * t5409;
12405   t15123 = 0.133199706239550e3 * t5411;
12406   t15124 = 0.266733300e2 * t5413;
12407   t15125 = 0.106693320e2 * t5415;
12408   t15126 = 0.248951080e2 * t5424;
12409   t15127 = 0.106693320e2 * t5426;
12410   t15128 = 0.95484470551056e2 * t5439;
12411   t15129 = 0.14282479486352e2 * t5472;
12412   t15130 = 0.5193628904128e1 * t5476;
12413   t15131 = 0.284159373311040e3 * t5511;
12414   t15132 = 0.106559764991640e3 * t5514;
12415   t15133 = 0.143531712185148e3 * t5525;
12416   t15134 = 0.50658251359464e2 * t5527;
12417   t15135 = 0.106945197314424e3 * t5535;
12418   t15136 = 0.39400862168472e2 * t5537;
12419   t15137 = t1235 * t14483;
12420   t15138 = 0.8004e1 * t15137;
12421   t15140 = t727 * t5005 * t751;
12422   t15141 = 0.4002e1 * t15140;
12423   t15142 = t1192 * t58;
12424   t15143 = t15142 * t308;
12425   t15144 = t15143 * t13782;
12426   t15146 = -t15120 + t15121 - t15122 + t15123 - t15124 + t15125 + t15126 - t15127 - t15128 + t15129 - t15130 + t15131 - t15132 + t15133 - t15134 - t15135 + t15136 + t15138 - t15141 - 0.106720e3 * t15144;
12427   t15152 = 0.16e2 * t5003;
12428   t15153 = 0.8e1 * t5007;
12429   t15154 = 0.12e2 * t5014;
12430   t15155 = 0.6e1 * t5017;
12431   t15159 = 0.60e2 * t14290;
12432   t15160 = 0.6e1 * t14292;
12433   t15167 = 0.1100e4 / 0.9e1 * t14313;
12434   t15168 = 0.9e1 * t5055;
12435   t15169 = 0.10e2 * t5063;
12436   t15171 = 0.54e2 * t14561;
12437   t15173 = 0.90e2 * t14569;
12438   t15174 = -0.60e2 * t14296 - 0.120e3 * t14298 - 0.6e1 * t14301 - 0.16e2 * t14311 + t15167 + t15168 - t15169 + 0.630e3 * t14558 - t15171 - 0.672e3 * t14566 + t15173;
12439   t15176 = 0.48e2 * t14571;
12440   t15177 = 0.12e2 * t14574;
12441   t15182 = 0.260e3 / 0.3e1 * t14588;
12442   t15183 = 0.32e2 * t14591;
12443   t15187 = t15176 + t15177 + 0.672e3 * t14576 + 0.240e3 * t14579 - 0.160e3 * t14582 + 0.96e2 * t14586 - t15182 - t15183 + 0.18e2 * t14595 + 0.96e2 * t14597 + 0.24e2 * t14600;
12444   t15193 = 0.3e1 * t14629;
12445   t15199 = -0.1820e4 / 0.3e1 * t14603 - 0.168e3 * t14606 + 0.168e3 * t14609 - 0.112e3 * t14612 - 0.108e3 * t14626 + t15193 + 0.12e2 * t14631 - 0.24e2 * t14633 + 0.60e2 * t14662 - 0.120e3 * t14664 + 0.6e1 * t14667;
12446   t15209 = 0.60e2 * t14685;
12447   t15210 = 0.30e2 * t14687;
12448   t15211 = 0.6e1 * t14690;
12449   t15213 = -0.12e2 * t14670 + 0.700e3 * t14672 - 0.1400e4 / 0.3e1 * t14674 + 0.1400e4 / 0.3e1 * t14676 + 0.42e2 * t14678 - 0.28e2 * t14680 + 0.28e2 * t14683 - t15209 + t15210 - t15211 - 0.2800e4 / 0.3e1 * t14692;
12450   t15219 = 0.400e3 / 0.3e1 * t14704;
12451   t15220 = 0.200e3 / 0.3e1 * t14706;
12452   t15221 = 0.8e1 * t14708;
12453   t15222 = 0.4e1 * t14710;
12454   t15224 = 0.24e2 * t14714;
12455   t15225 = 0.560e3 * t14694 - 0.1120e4 / 0.3e1 * t14696 - 0.40e2 * t14698 + 0.24e2 * t14700 - 0.16e2 * t14702 + t15219 - t15220 + t15221 - t15222 - 0.96e2 * t14712 + t15224;
12456   t15230 = 0.30e2 * t5072;
12457   t15231 = 0.100e3 / 0.3e1 * t5076;
12458   t15237 = 0.18e2 * t14816;
12459   t15238 = -0.12e2 * t14717 + 0.84e2 * t14719 + 0.84e2 * t14721 - t15230 + t15231 - 0.18e2 * t14806 + 0.36e2 * t14808 - 0.210e3 * t14810 + 0.140e3 * t14812 - 0.140e3 * t14814 + t15237;
12460   t15239 = 0.9e1 * t14818;
12461   t15243 = 0.40e2 * t14834;
12462   t15244 = 0.20e2 * t14836;
12463   t15245 = 0.12e2 * t15137;
12464   t15246 = 0.6e1 * t15140;
12465   t15248 = -t15239 + 0.280e3 * t14822 - 0.168e3 * t14830 + 0.112e3 * t14832 - t15243 + t15244 - t1826 + t1834 + t15245 - t15246 - 0.160e3 * t15144;
12466   t15251 = t15152 - t15153 - t15154 + t15155 - 0.12e2 * t14283 + 0.7700e4 / 0.9e1 * t14285 + 0.28e2 * t14288 - t15159 - t15160 - 0.8960e4 / 0.9e1 * t14294 + t15174 + t15187 + t15199 + t15213 + t15225 + t15238 + t15248;
12467   t15255 = t1254 * t4134;
12468   t15258 = t1839 * t784;
12469   t15259 = t15258 * t174;
12470   t15261 = t1839 * t788;
12471   t15262 = t15261 * t174;
12472   t15264 = t5079 * t266;
12473   t15265 = t15264 * t174;
12474   t15268 = t1835 * t784;
12475   t15269 = t15268 * t174;
12476   t15271 = t1835 * t788;
12477   t15272 = t15271 * t174;
12478   t15274 = t1243 * t1243;
12479   t15279 = t1497 * t3435;
12480   t15286 = -0.2e1 * t1137 * t1139 * t15274 * t174 + t416 * t417 * t15251 * t174 - t11298 * t15262 - 0.36e2 * t11302 * t15262 - 0.2e1 * t1504 * t15265 - t1504 * t15269 - 0.2e1 * t1504 * t15279 + 0.4e1 * t4150 * t15255 + 0.6e1 * t4130 * t15259 + t4150 * t15259 + t4150 * t15272;
12481   t15311 = -0.4e1 * t416 * t1128 * t15274 * t174 - 0.12e2 * t11311 * t15262 - 0.24e2 * t11319 * t15262 - 0.4e1 * t1496 * t15265 - 0.2e1 * t1496 * t15269 - 0.4e1 * t1496 * t15279 + 0.24e2 * t4130 * t15255 + 0.24e2 * t4138 * t15255 + 0.6e1 * t4138 * t15259 + 0.6e1 * t4130 * t15272 + 0.6e1 * t4138 * t15272;
12482   t15313 = my_piecewise3(t92, t14637 + t14682 + t14006 + t13817 + t13961 + t14092 + t14872 + t14315 + t14222 + t14051 + t14913 + t14824 + t14584 + t14125 + t14486 + t14174 + t14430 + t15119 + t13866 + t15015 + t14723 + t14959 + t13756 + t14359 + t14530 + t14268 + t15146 + t13910 + t15109 + t14777 + t15072 + t14393, t15286 + t15311);
12483   t15333 = -0.2e1 * t667 * t1853 * t804 - 0.12e2 * t2289 * t4974 * t277 + 0.6e1 * t2289 * t1797 * t804 - 0.4e1 * t667 * t483 * t3469 + 0.6e1 * t2289 * t1853 * t668 - 0.12e2 * t2289 * t1855 * t668 + 0.1174e1 * t15313 - 0.4e1 * t205 * t1261 * t1507 - 0.2e1 * t205 * t3469 * t566 + 0.2e1 * t667 * t668 * t1989 + 0.2e1 * t667 * t1796 * t1144 + 0.4e1 * t667 * t5114 * t277 + 0.8e1 * t667 * t5122 * t277;
12484   t15367 = t1258 * t1258;
12485   t15404 = -t11494 * t3455 / 0.25e2 + 0.6e1 / 0.25e2 * t11503 * t3455 + t7958 * t15261 * t81 / 0.100e3 + t797 * t15264 * t81 / 0.50e2 + t797 * t15268 * t81 / 0.100e3 - t2512 * t15271 * t81 / 0.100e3 + t797 * t15274 * t81 / 0.50e2 + t797 * t476 * t3435 / 0.50e2 - t2512 * t15258 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t5080 * t1248 - 0.3e1 / 0.100e3 * t1836 * t798;
12486   t15414 = t790 * t3435;
12487   t15418 = t788 * t77 * t81;
12488   t15422 = t79 * t784 * t81;
12489   t15426 = t796 * t788 * t81;
12490   t15437 = -0.3e1 / 0.100e3 * t1836 * t3444 + 0.3e1 / 0.50e2 * t1836 * t3448 - 0.3e1 / 0.50e2 * t46 * t15274 * t790 - 0.3e1 / 0.25e2 * t473 * t3455 - 0.3e1 / 0.50e2 * t473 * t15414 + 0.3e1 / 0.20e2 * t1840 * t15418 + 0.3e1 / 0.50e2 * t1840 * t15422 - t1840 * t15426 / 0.10e2 - 0.3e1 / 0.100e3 * t1840 * t793 - t270 * t15251 * t81 / 0.100e3 + t46 * t15251 * t81 / 0.100e3;
12491   t15452 = t1261 * t1261;
12492   t15466 = 0.8e1 * t667 * t5119 * t277 + 0.4e1 * t667 * t1855 * t804 - 0.24e2 * t7558 * t1797 * t668 - t91 * t15313 - 0.2e1 * t205 * t5111 * t421 + t205 * (0.19e2 / 0.162e3 * t27 * t29 * t678 * t42 - 0.41e2 / 0.32e2 * t220 * t683 * sigma[0] * t42 + 0.1323e4 / 0.3200e4 * t689 * t693 * t31 * t10 * t695 - 0.78003e5 / 0.2048000e7 * t4990 * t3310 + 0.59049e5 / 0.10240000e8 * t7611 * t690 / t500 * t42 + 0.4e1 * t15367 + 0.4e1 * t479 * t3466 + 0.2e1 * t801 * t1849 + 0.4e1 * t274 * t5108 + 0.2e1 * t84 * (t15404 + t15437)) * t177 - 0.2e1 * t205 * t277 * t5569 - t205 * t804 * t1989 - 0.2e1 * t205 * t482 * t4153 - 0.4e1 * t667 * t15452 * t177 - t205 * t1852 * t1144 - 0.4e1 * t667 * t5112 * t277 + 0.8e1 * t667 * t1264 * t1261 + 0.24e2 * t11552 * t3286;
12493   t15501 = 0.44531100000000000000e3 * t1997 * t4183 + 0.44531100000000000000e2 * t5581 * t1525 - 0.12081241814357438530e3 * t13675 * t1532 + 0.75507761339733990813e2 * t1528 * t13661 * t1170 + 0.30615131250000000000e3 * t576 * t4180 * t5593 * t673 - 0.51952950000000000000e2 * t1997 * t4192 - 0.3e1 / 0.8e1 * t201 * t7 * (t15333 + t15466) * t195 - t3275 * t1994 / 0.6e1 - 0.41747906250000000000e1 * t574 * t1148 * t1161 * t2005 - 0.49479000000000000000e1 * t434 * t435 * t5572 * t443 - 0.29687400000000000000e2 * t1157 * t5577 * t1164 - 0.90849806046929250000e2 * t574 * t575 * t1530 * t659 * t1161 * t9459 - 0.38964712500000000000e3 * t9476 * t9477 / t144 * t26 * t183 - t1175 * t5574 - 0.8246500000000000000e0 * t3279 * t5577 * t443;
12494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12495     v4rho2sigma2[0] = t13670 + t15501;
12496 
12497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12498     v4rho2sigmalapl[0] = 0.0e0;
12499 
12500   t15537 = t1555 * t10082;
12501   t15538 = t3390 * t15537;
12502   t15540 = t1572 * t10069;
12503   t15541 = t1226 * t15540;
12504   t15543 = t3035 * t5665;
12505   t15545 = t892 * t5668;
12506   t15547 = t1572 * t10082;
12507   t15548 = t5020 * t15547;
12508   t15550 = t1722 * t10069;
12509   t15551 = t2032 * t15550;
12510   t15554 = t1205 * t4262 * t5655;
12511   t15557 = t1205 * t1555 * t10086;
12512   t15559 = t13735 + t13765 + t13769 + 0.28014e2 * t15538 - 0.18676e2 * t15541 - 0.62253333333333333334e3 * t15543 + 0.37352000000000000000e3 * t15545 - 0.26680e2 * t15548 + 0.16008e2 * t15551 + 0.8004e1 * t15554 + 0.8004e1 * t15557;
12513   t15560 = t4262 * t3322;
12514   t15561 = t3390 * t15560;
12515   t15563 = t4269 * t5655;
12516   t15564 = t1226 * t15563;
12517   t15566 = t1555 * t10078;
12518   t15567 = t3390 * t15566;
12519   t15569 = t1572 * t10086;
12520   t15570 = t1226 * t15569;
12521   t15572 = t4269 * t3322;
12522   t15573 = t5020 * t15572;
12523   t15575 = t4436 * t5655;
12524   t15576 = t2032 * t15575;
12525   t15578 = t1572 * t10078;
12526   t15579 = t5020 * t15578;
12527   t15581 = t1722 * t10086;
12528   t15582 = t2032 * t15581;
12529   t15584 = t768 * t5656;
12530   t15587 = t1205 * t1555 * t10069;
12531   t15591 = 0.56028e2 * t15561 - 0.37352e2 * t15564 + 0.56028e2 * t15567 - 0.37352e2 * t15570 - 0.53360e2 * t15573 + 0.32016e2 * t15576 - 0.53360e2 * t15579 + 0.32016e2 * t15582 + 0.40020e2 * t15584 + 0.4002e1 * t15587 + 0.266733300e2 * t1462 * t15540;
12532   t15597 = t1669 * t10082;
12533   t15600 = t1676 * t10069;
12534   t15607 = t1676 * t10082;
12535   t15610 = t1689 * t10069;
12536   t15619 = -0.16254526898288000000e6 * t5273 * t5781 + 0.67727195409533333333e5 * t3639 * t5772 - 0.3483112906776000e4 * t3740 * t15597 + 0.1451297044490000e4 * t1486 * t15600 + 0.86690810124202666667e5 * t3065 * t5775 - 0.37153204338944000000e5 * t866 * t5778 + 0.1625452689828800e4 * t5398 * t15607 - 0.696622581355200e3 * t2097 * t15610 - 0.121211732677990500e6 * t5278 * t5781 + 0.46619897183842500e5 * t1286 * t5772 - 0.2424234653559810e4 * t3747 * t15597;
12537   t15628 = t5699 * t770;
12538   t15631 = t5699 * t10644;
12539   t15638 = 0.932397943676850e3 * t1417 * t15600 + 0.23398748396080950000e6 * t5286 * t5775 + 0.4129190893426050e4 * t3753 * t15607 - 0.533466600e2 * t3812 * t15537 + t13792 - t13796 + t13798 - t13800 - 0.67416549193646520000e4 * t10394 * t15628 + 0.25682494930912960000e4 * t10653 * t15631 + 0.29863366198736000000e4 * t14331 * t15628 - 0.20668566554661312e5 * t10354 * t15628;
12540   t15663 = 0.7750712457997992e4 * t8790 * t15631 - 0.20318158622860000e5 * t10656 * t15631 - 0.11685665034288000000e4 * t14335 * t15631 + 0.3200799600e3 * t10306 * t15628 - 0.1600399800e3 * t8781 * t15631 - 0.11096105280e4 * t10329 * t15628 + 0.5548052640e3 * t10666 * t15631 + 0.8535465600e3 * t14137 * t15628 - 0.4267732800e3 * t14141 * t15631 + 0.30077608223582640000e4 * t10335 * t15628 - 0.12890403524392560000e4 * t8784 * t15631;
12541   t15686 = 0.37487106006003360e5 * t10319 * t15628 - 0.14578319002334640e5 * t10673 * t15631 - 0.17336379354127680e5 * t14199 * t15628 + 0.6934551741651072e4 * t14203 * t15631 + 0.38854836239007600000e4 * t10325 * t15628 - 0.14314939667002800000e4 * t8847 * t15631 - 0.26007243037260800e5 * t14181 * t15628 + 0.11145961301683200e5 * t14185 * t15631 + 0.36363519803397150000e5 * t10379 * t15628 - 0.13985969155152750000e5 * t8787 * t15631 - 0.70196245188242850000e5 * t10385 * t15628;
12542   t15708 = 0.28078498075297140000e5 * t10661 * t15631 + 0.34418804092299720000e5 * t14244 * t15628 - 0.14172448743888120000e5 * t14248 * t15631 - 0.74835953794390140000e4 * t10351 * t15628 + 0.33260423908617840000e4 * t10650 * t15631 + 0.45514264296003360000e4 * t14155 * t15628 - 0.20688301952728800000e4 * t14159 * t15631 - 0.22988545184721600e5 * t10440 * t15628 + 0.9195418073888640e4 * t8723 * t15631 + 0.48763580694864000e5 * t10411 * t15628 + t13813;
12543   t15709 = -t13848 + t13860 + t13867 - t13868 - t13869 + t13870 + t13969 - t13971 + t13974 - t13977 - t13991 + t13994;
12544   t15713 = t7912 * t15631;
12545   t15715 = t10131 * t15628;
12546   t15717 = t10678 * t15631;
12547   t15719 = t14821 * t15628;
12548   t15721 = t14829 * t15631;
12549   t15723 = -t13997 - 0.12006000000000000000e2 * t15713 - 0.14007000000000000000e3 * t15715 + 0.93380000000000000000e2 * t15717 + 0.18676000000000000000e3 * t15719 - 0.11205600000000000000e3 * t15721 - t14009 + t14011 - t14014 + t14017 + t14038;
12550   t15724 = t14053 - t14055 + t14057 - t14059 - t14069 + t14071 - t14073 + t14075 + t14097 - t14099 + t14102;
12551   t15726 = -t14105 - t14114 + t14115 + t14116 - t14117 - t14118 - t14119 + t14120 + t14121 + t14122 + t14123;
12552   t15727 = -t14124 - t14133 + t14135 + t14147 - t14151 + t14153 - t14165 + t14167 + t14177 - t14179 + t14195 - t14197;
12553   t15730 = t14209 - t14211 - t14217 - t14240 + t14242 - t14254 + t14256 - t14272 + t14279 - t14291 - t14293;
12554   t15731 = -t14307 - t14309 + t14314 - t14327 + t14329 + t14352 - t14368 + t14370 - t14373 + t14375 + t14377;
12555   t15734 = t14300 * t67 * t2026;
12556   t15736 = t5672 * t5675;
12557   t15738 = t5672 * t5678;
12558   t15741 = t1205 * t11831 * t461;
12559   t15744 = t1205 * t4280 * t1218;
12560   t15747 = t1205 * t1548 * t3343;
12561   t15749 = t11850 * t461;
12562   t15750 = t1226 * t15749;
12563   t15752 = t4262 * t1218;
12564   t15753 = t1226 * t15752;
12565   t15755 = -t14379 + t14381 - t14383 - 0.4002e1 * t15734 - 0.8004e1 * t15736 - 0.8004e1 * t15738 - 0.4002e1 * t15741 - 0.8004e1 * t15744 - 0.4002e1 * t15747 + 0.9338e1 * t15750 + 0.18676e2 * t15753;
12566   t15756 = t1555 * t3343;
12567   t15757 = t1226 * t15756;
12568   t15759 = t11916 * t461;
12569   t15760 = t2032 * t15759;
12570   t15762 = t4269 * t1218;
12571   t15763 = t2032 * t15762;
12572   t15765 = t1572 * t3343;
12573   t15766 = t2032 * t15765;
12574   t15768 = t892 * t5687;
12575   t15770 = t892 * t5690;
12576   t15772 = t2369 * t2026;
12577   t15774 = t741 * t2029;
12578   t15776 = t7806 * t2026;
12579   t15778 = t768 * t5675;
12580   t15780 = 0.9338e1 * t15757 - 0.5336e1 * t15760 - 0.10672e2 * t15763 - 0.5336e1 * t15766 - 0.12450666666666666667e3 * t15768 - 0.12450666666666666667e3 * t15770 - 0.80040e2 * t15772 + 0.57065555555555555556e3 * t15774 - 0.40020e2 * t15776 - 0.40020e2 * t15778 + t14386 + t14387;
12581   t15785 = -t14388 + t14389 - t14390 + t14391 - t14392 - t14394 + t14395 + t14396 - t14397 - t14398 + t14399;
12582   t15786 = -t14400 - t14406 + t14408 - t14410 + t14413 + t14416 - t14423 + t14429 + t14436 + t14447 - t14450;
12583   t15788 = t14457 - t14460 - t14469 - t14471 - t14476 - t14479 - t14482 - t14485 - t14492 - t14494 + t14503;
12584   t15789 = t3080 * t2033;
12585   t15791 = t768 * t5678;
12586   t15793 = t3395 * t5681;
12587   t15795 = t14511 + t14513 + t14527 - t14529 + t14534 - t14536 - t14543 + t14547 + t14549 - 0.66403555555555555556e3 * t15789 - 0.40020e2 * t15791 + 0.15563333333333333333e3 * t15793;
12588   t15798 = t3395 * t5684;
12589   t15810 = 0.15563333333333333333e3 * t15798 + 0.79466575947185777779e5 * t3020 * t2098 - 0.111887753241222000e6 * t3949 * t2091 + 0.21318859649762643333e6 * t1054 * t2098 + 0.38014434755555555556e4 * t984 * t2033 - 0.15125740308129111111e6 * t1046 * t2091 - t14562 + t14570 + t14572 + t14575 - t14589;
12590   t15811 = t1722 * t3343;
12591   t15820 = t12653 * t461;
12592   t15823 = t4436 * t1218;
12593   t15828 = t12665 * t461;
12594   t15831 = t4388 * t1218;
12595   t15834 = t1669 * t3343;
12596   t15837 = -t14592 - 0.106693320e2 * t2083 * t15811 - 0.47742235275528e2 * t1407 * t15759 - 0.95484470551056e2 * t1407 * t15762 - 0.47742235275528e2 * t1407 * t15765 + 0.75591872519586e2 * t1472 * t15820 + 0.151183745039172e3 * t1472 * t15823 + 0.75591872519586e2 * t1472 * t15811 - 0.31828156850352e2 * t2090 * t15828 - 0.63656313700704e2 * t2090 * t15831 - 0.31828156850352e2 * t2090 * t15834;
12597   t15843 = t1669 * t10069;
12598   t15852 = t1689 * t10082;
12599   t15855 = t1700 * t10069;
12600   t15864 = 0.191571209872680e3 * t1480 * t15820 + 0.383142419745360e3 * t1480 * t15823 - 0.766284839490720e3 * t1480 * t15843 - 0.1651676357370420e4 * t1424 * t15610 - 0.11472934697433240000e6 * t3054 * t5788 + 0.47241495812960400000e5 * t875 * t5791 - 0.1811516004857880e4 * t5518 * t15852 + 0.745918354941480e3 * t2105 * t15855 + 0.68895221848871040e5 * t5291 * t5775 - 0.25835708193326640e5 * t1294 * t5778 + 0.1148253697481184e4 * t3760 * t15607;
12601   t15873 = t1722 * t10082;
12602   t15885 = t1205 * t1572 * t10104;
12603   t15887 = t1555 * t10132;
12604   t15888 = t11071 * t15887;
12605   t15890 = t1722 * t10104;
12606   t15891 = t1226 * t15890;
12607   t15893 = -0.334195646928696e3 * t3712 * t15547 + 0.143226705826584e3 * t1407 * t15550 + 0.24945317931463380000e5 * t5258 * t5817 - 0.11086807969539280000e5 * t3764 * t5820 + 0.680326852676274e3 * t3768 * t15873 - 0.302367490078344e3 * t1472 * t15843 - 0.15171421432001120000e5 * t3049 * t5781 + 0.68961006509096000000e4 * t906 * t5772 - 0.350109725353872e3 * t5371 * t15597 - 0.8004e1 * t15885 + 0.56028e2 * t15888 + 0.56028e2 * t15891;
12608   t15897 = t1572 * t10132;
12609   t15898 = t15143 * t15897;
12610   t15900 = t1669 * t10104;
12611   t15901 = t2032 * t15900;
12612   t15903 = -0.106720e3 * t15898 - 0.64032e2 * t15901 + t14630 - t14647 - t14649 - t14651 + t14653 - t14656 + t14659 - t14686 + t14688;
12613   t15904 = t4418 * t1218;
12614   t15907 = t1700 * t3343;
12615   t15910 = t12637 * t461;
12616   t15913 = t4406 * t1218;
12617   t15916 = t1689 * t3343;
12618   t15919 = t12585 * t461;
12619   t15922 = -t14691 + t14705 - t14707 + t14709 - t14711 + 0.78801724336944e2 * t2067 * t15904 + 0.39400862168472e2 * t2067 * t15907 - 0.9738054195240e1 * t1447 * t15910 - 0.19476108390480e2 * t1447 * t15913 - 0.9738054195240e1 * t1447 * t15916 + 0.13957877679844e2 * t1453 * t15919;
12620   t15949 = 0.27915755359688e2 * t1453 * t15904 + 0.13957877679844e2 * t1453 * t15907 - 0.5193628904128e1 * t2075 * t13248 * t461 - 0.10387257808256e2 * t2075 * t4465 * t1218 - 0.5193628904128e1 * t2075 * t1711 * t3343 - 0.133366650e2 * t1462 * t15749 - 0.266733300e2 * t1462 * t15752 - 0.133366650e2 * t1462 * t15756 + 0.191571209872680e3 * t1480 * t15811 - 0.290259408898000e3 * t1486 * t15828 - 0.580518817796000e3 * t1486 * t15831;
12621   t15952 = t12631 * t461;
12622   t15955 = t4395 * t1218;
12623   t15958 = t1676 * t3343;
12624   t15977 = -0.290259408898000e3 * t1486 * t15834 + 0.116103763559200e3 * t2097 * t15952 + 0.232207527118400e3 * t2097 * t15955 + 0.116103763559200e3 * t2097 * t15958 - 0.186479588735370e3 * t1417 * t15828 - 0.372959177470740e3 * t1417 * t15831 - 0.186479588735370e3 * t1417 * t15834 + 0.275279392895070e3 * t1424 * t15952 + 0.550558785790140e3 * t1424 * t15955 + 0.275279392895070e3 * t1424 * t15958 - 0.106559764991640e3 * t2105 * t15910 - 0.213119529983280e3 * t2105 * t15913;
12625   t16002 = -0.106559764991640e3 * t2105 * t15916 + 0.71765856092574e2 * t1432 * t15952 + 0.143531712185148e3 * t1432 * t15955 + 0.71765856092574e2 * t1432 * t15958 + 0.231168860e2 * t1468 * t15759 + 0.462337720e2 * t1468 * t15762 + 0.231168860e2 * t1468 * t15765 - 0.106693320e2 * t2083 * t15820 - 0.213386640e2 * t2083 * t15823 + 0.27717019923848200000e4 * t3764 * t5990 - 0.13792201301819200000e4 * t906 * t5912;
12626   t16025 = -0.13792201301819200000e4 * t906 * t5903 + 0.7662848394907200e4 * t1278 * t5987 + 0.7662848394907200e4 * t1278 * t5990 - 0.13545439081906666667e5 * t3639 * t5912 - 0.13545439081906666667e5 * t3639 * t5903 + 0.61922007231573333334e4 * t866 * t5906 + 0.61645029333333333334e3 * t3828 * t5687 + 0.61645029333333333334e3 * t3828 * t5690 - 0.35564440000000000000e3 * t901 * t5987 - 0.35564440000000000000e3 * t901 * t5990 - 0.1432267058265840e4 * t1271 * t5687;
12627   t16049 = -0.1432267058265840e4 * t1271 * t5690 + 0.27717019923848200000e4 * t3764 * t5987 - 0.104130850016676e3 * t1439 * t15910 - 0.208261700033352e3 * t1439 * t15913 - 0.104130850016676e3 * t1439 * t15916 + 0.39400862168472e2 * t2067 * t15919 + 0.10701039554547066667e4 * t3857 * t5942 + 0.61922007231573333334e4 * t866 * t5909 - 0.9323979436768500e4 * t1286 * t5912 - 0.9323979436768500e4 * t1286 * t5903 + 0.15599165597387300000e5 * t3848 * t5906;
12628   t16074 = 0.15599165597387300000e5 * t3848 * t5909 - 0.67487851161372000000e4 * t875 * t5921 - 0.67487851161372000000e4 * t875 * t5924 + 0.4305951365554440e4 * t1294 * t5906 + 0.4305951365554440e4 * t1294 * t5909 - 0.27858811333333333333e4 * t3147 * t2061 - 0.10025869407860880e5 * t3968 * t2033 - 0.43280240867733333334e3 * t5887 * t5953 - 0.43280240867733333334e3 * t5887 * t5956 - 0.2667333000e3 * t1231 * t5681 - 0.2667333000e3 * t1231 * t5684 - 0.69420566677784000000e4 * t3784 * t5921;
12629   t16102 = -0.69420566677784000000e4 * t3784 * t5924 + 0.28893965590212800000e4 * t883 * t5939 + 0.28893965590212800000e4 * t883 * t5942 - 0.681663793666800e3 * t1302 * t5921 - 0.681663793666800e3 * t1302 * t5924 + 0.10701039554547066667e4 * t3857 * t5939 + 0.51527571969212826667e5 * t3104 * t2068 - 0.11588284492335600e5 * t3985 * t2064 - 0.10348137178077040000e6 * t3092 * t2064 + 0.62436294800539380e5 * t3960 * t2098 + 0.24021417267335106667e5 * t991 * t2061;
12630   t16116 = -0.14251941345213173333e5 * t3159 * t2091 + 0.72797059751618400e5 * t3979 * t2061 + t14715 + 0.19975273835154524444e5 * t976 * t2068 - 0.88003156431057777779e4 * t13821 * t1957 * t2076 - 0.12002998500e4 * t3420 * t2029 - 0.11222991612908413333e6 * t1062 * t2064 - t14725 + t14726 - t14759 - t14762;
12631   t16122 = t4436 * t3322;
12632   t16125 = t4388 * t5655;
12633   t16128 = t1722 * t10078;
12634   t16131 = t1669 * t10086;
12635   t16136 = t14817 - t14819 - t14835 + t14837 + 0.2774026320e3 * t3818 * t15578 - 0.1387013160e3 * t1468 * t15581 - 0.1707093120e3 * t5432 * t16122 + 0.853546560e2 * t2083 * t16125 - 0.1707093120e3 * t5432 * t16128 + 0.853546560e2 * t2083 * t16131 - 0.668391293857392e3 * t3712 * t15572;
12636   t16149 = t4388 * t3322;
12637   t16152 = t4395 * t5655;
12638   t16155 = t1669 * t10078;
12639   t16158 = t1676 * t10086;
12640   t16165 = 0.286453411653168e3 * t1407 * t15575 - 0.668391293857392e3 * t3712 * t15578 + 0.286453411653168e3 * t1407 * t15581 - 0.604734980156688e3 * t1472 * t16125 + 0.1360653705352548e4 * t3768 * t16128 - 0.604734980156688e3 * t1472 * t16131 - 0.700219450707744e3 * t5371 * t16149 + 0.318281568503520e3 * t2090 * t16152 - 0.700219450707744e3 * t5371 * t16155 + 0.318281568503520e3 * t2090 * t16158 + 0.3831424197453600e4 * t3688 * t16122 - 0.1532569678981440e4 * t1480 * t16125;
12641   t16180 = t4395 * t3322;
12642   t16191 = 0.3831424197453600e4 * t3688 * t16128 - 0.1532569678981440e4 * t1480 * t16131 - 0.6966225813552000e4 * t3740 * t16149 + 0.2902594088980000e4 * t1486 * t16152 - 0.6966225813552000e4 * t3740 * t16155 + 0.2902594088980000e4 * t1486 * t16158 + 0.3250905379657600e4 * t5398 * t16180 + 0.2774026320e3 * t3818 * t15572 - 0.1387013160e3 * t1468 * t15575 + 0.1864795887353700e4 * t1417 * t16152 - 0.4848469307119620e4 * t3747 * t16155;
12643   t16196 = t4406 * t5655;
12644   t16199 = t1676 * t10078;
12645   t16202 = t1689 * t10086;
12646   t16205 = t4406 * t3322;
12647   t16208 = t4418 * t5655;
12648   t16211 = t1689 * t10078;
12649   t16214 = t1700 * t10086;
12650   t16221 = 0.1864795887353700e4 * t1417 * t16158 + 0.8258381786852100e4 * t3753 * t16180 - 0.3303352714740840e4 * t1424 * t16196 + 0.8258381786852100e4 * t3753 * t16199 - 0.3303352714740840e4 * t1424 * t16202 - 0.3623032009715760e4 * t5518 * t16205 + 0.1491836709882960e4 * t2105 * t16208 - 0.3623032009715760e4 * t5518 * t16211 + 0.1491836709882960e4 * t2105 * t16214 + 0.2296507394962368e4 * t3760 * t16180 - 0.861190273110888e3 * t1432 * t16196;
12651   t16241 = t4418 * t3322;
12652   t16244 = t4465 * t5655;
12653   t16247 = 0.1360653705352548e4 * t3768 * t16122 - 0.1066933200e3 * t3812 * t15566 + 0.533466600e2 * t1462 * t15569 + 0.2296507394962368e4 * t3760 * t16199 - 0.861190273110888e3 * t1432 * t16202 - 0.3748710600600336e4 * t3722 * t16205 + 0.1457831900233464e4 * t1439 * t16208 - 0.3748710600600336e4 * t3722 * t16211 + 0.1457831900233464e4 * t1439 * t16214 + 0.1576034486738880e4 * t5540 * t16241 - 0.630413794695552e3 * t2067 * t16244;
12654   t16248 = t1700 * t10078;
12655   t16251 = t1711 * t10086;
12656   t16274 = 0.1576034486738880e4 * t5540 * t16248 - 0.630413794695552e3 * t2067 * t16251 - 0.370046059419120e3 * t3729 * t16205 + 0.136332758733360e3 * t1447 * t16208 - 0.370046059419120e3 * t3729 * t16211 + 0.136332758733360e3 * t1447 * t16214 + 0.586230862553448e3 * t3735 * t16241 - 0.223326042877504e3 * t1453 * t16244 + 0.586230862553448e3 * t3735 * t16248 - 0.1393245162710400e4 * t2097 * t16196 + 0.3250905379657600e4 * t5398 * t16199 - 0.1393245162710400e4 * t2097 * t16202;
12657   t16300 = -0.4848469307119620e4 * t3747 * t16149 + 0.159140784251760e3 * t2090 * t15600 + 0.76628483949072000e5 * t5265 * t5817 - 0.30651393579628800e5 * t1278 * t5820 + 0.1387013160e3 * t3818 * t15547 - 0.693506580e2 * t1468 * t15550 - 0.28451552000000000000e4 * t3044 * t5817 + 0.14225776000000000000e4 * t901 * t5820 - 0.853546560e2 * t5432 * t15873 + 0.426773280e2 * t2083 * t15843 - 0.10025869407860880e5 * t5251 * t5665;
12658   t16321 = 0.4296801174797520e4 * t1271 * t5668 - 0.223326042877504e3 * t1453 * t16251 - 0.238906929589888e3 * t5479 * t4465 * t3322 + 0.93485320274304e2 * t2075 * t13192 * t5655 - 0.238906929589888e3 * t5479 * t1711 * t10078 + 0.93485320274304e2 * t2075 * t4570 * t10086 - 0.1066933200e3 * t3812 * t15560 + 0.533466600e2 * t1462 * t15563 - t14839 - t14842 - t14854;
12659   t16323 = -t14857 + t14868 + t14871 - t14879 - t14881 + t14892 + t14894 - t14916 - t14918 + t14926 + t14938;
12660   t16324 = t14940 + t14953 + t14956 + t14958 + t14961 - t14963 - t14965 + t14975 + t14981 - t14988 + t14994 + t15001;
12661   t16327 = t11082 * t5659;
12662   t16329 = t3395 * t5662;
12663   t16331 = t5672 * t5656;
12664   t16333 = -t15007 - t15014 + t15025 + t15032 - t15038 - t15045 + t15051 - t15071 + 0.46690000000000000000e3 * t16327 - 0.31126666666666666666e3 * t16329 + 0.8004e1 * t16331;
12665   t16352 = t1700 * t10082;
12666   t16355 = t1711 * t10069;
12667   t16358 = -0.10669332000e4 * t5050 * t5659 + 0.5334666000e3 * t1231 * t5662 - 0.430595136555444e3 * t1432 * t15610 - 0.12495702002001120000e6 * t5307 * t5788 + 0.48594396674448800000e5 * t3784 * t5791 - 0.1874355300300168e4 * t3722 * t15852 + 0.728915950116732e3 * t1439 * t15855 + 0.57787931180425600000e5 * t3011 * t5794 - 0.23115172472170240000e5 * t883 * t5797 + 0.788017243369440e3 * t5540 * t16352 - 0.315206897347776e3 * t2067 * t16355;
12668   t16372 = -0.12951612079669200e5 * t5202 * t5788 + 0.4771646555667600e4 * t1302 * t5791 - 0.185023029709560e3 * t3729 * t15852 + 0.1915712098726800e4 * t3688 * t15873 - t15079 + t15088 - t15097 + t15101 + t15108 - 0.2005173881572176e4 * t10021 * t15897 - 0.572906823306336e3 * t1407 * t15900;
12669   t16373 = t1722 * t10132;
12670   t16376 = t1676 * t10104;
12671   t16379 = t1669 * t10132;
12672   t16400 = 0.5442614821410192e4 * t10062 * t16373 + 0.1511837450391720e4 * t1472 * t16376 - 0.3501097253538720e4 * t14505 * t16379 + 0.36987017600000000000e4 * t5058 * t5665 + 0.6935065800e3 * t10015 * t15897 - 0.18493508800000000000e4 * t3828 * t5668 + 0.2774026320e3 * t1468 * t15900 - 0.5974825920e3 * t14551 * t16373 + 0.68166379366680e2 * t1447 * t15855 + 0.22472183064548840000e5 * t5212 * t5794 - 0.85608316436376533333e4 * t3857 * t5797 + 0.293115431276724e3 * t3735 * t16352;
12673   t16417 = t1700 * t10104;
12674   t16420 = t1689 * t10132;
12675   t16423 = t1711 * t10104;
12676   t16426 = t1700 * t10132;
12677   t16429 = t4570 * t10104;
12678   t16434 = -0.111663021438752e3 * t1453 * t16355 - 0.99544553995786666667e4 * t13917 * t5800 + 0.38952216780960000000e4 * t5887 * t5803 - 0.119453464794944e3 * t5479 * t1711 * t10082 + 0.46742660137152e2 * t2075 * t4570 * t10069 + 0.3014165955888108e4 * t1432 * t16417 - 0.31864040105102856e5 * t10005 * t16420 - 0.5831327600933856e4 * t1439 * t16423 + 0.14972327624019360e5 * t14462 * t16426 + 0.2836862076129984e4 * t2067 * t16429 - 0.3330414534772080e4 * t10011 * t16420;
12679   t16435 = t1689 * t10104;
12680   t16450 = t1676 * t10132;
12681   t16459 = -0.954844705510560e3 * t2090 * t16435 + 0.17241408888541200e5 * t10026 * t16373 + 0.3831424197453600e4 * t1480 * t16376 - 0.93594993584323800000e5 * t3848 * t5778 + 0.11561734501592940e5 * t1424 * t16417 - 0.28984256077726080e5 * t14438 * t16420 - 0.5967346839531840e4 * t2105 * t16423 + 0.17223805462217760e5 * t10032 * t16450 - 0.2133866400e3 * t2083 * t16376 - 0.800199900e2 * t1462 * t15890 - 0.38314241974536000e5 * t9996 * t16379;
12682   t16485 = -0.8707782266940000e4 * t1486 * t16435 + 0.21130884967774400e5 * t14496 * t16450 + 0.4876358069486400e4 * t2097 * t16417 - 0.545331034933440e3 * t1447 * t16423 + 0.5862308625534480e4 * t9989 * t16426 + 0.1004967192948768e4 * t1453 * t16429 - 0.2627976225488768e4 * t13771 * t1711 * t10132 - 0.467426601371520e3 * t2075 * t13463 * t10104 - 0.1600399800e3 * t9964 * t15887 - 0.29090815842717720e5 * t10045 * t16379 - 0.5594387662061100e4 * t1417 * t16435;
12683   t16488 = 0.57808672507964700e5 * t9981 * t16450 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945;
12684   t16491 = t10073 * t5700;
12685   t16493 = t10109 * t5700;
12686   t16495 = t8744 * t5700;
12687   t16498 = t5699 * t3409;
12688   t16513 = t1951 - t1973 + t1975 + 0.64032000000000000000e2 * t16491 - 0.40464666666666666667e3 * t16493 + 0.44822400000000000000e3 * t16495 + 0.24242346535598100e5 * t2759 * t366 * t16498 + 0.2133866400e3 * t2733 * t339 * t16498 + 0.34831129067760000e5 * t3739 * t14158 * t16498 - 0.19505432277945600e5 * t5397 * t8732 * t16498 + 0.2590322415933840e4 * t2710 * t386 * t16498;
12689   t16548 = -0.4689846900427584e4 * t3734 * t14202 * t16498 + 0.2150162366308992e4 * t5478 * t1957 * t2655 * t16498 - 0.13779044369774208e5 * t2767 * t375 * t16498 + 0.26240974204202352e5 * t3721 * t14247 * t16498 - 0.12608275893911040e5 * t5539 * t8750 * t16498 - 0.15325696789814400e5 * t2749 * t357 * t16498 - 0.49550290721112600e5 * t3752 * t14184 * t16498 + 0.25361224068010320e5 * t5517 * t8736 * t16498 + 0.2005173881572176e4 * t2741 * t347 * t16498 - 0.5442614821410192e4 * t3767 * t14140 * t16498 + 0.3501097253538720e4 * t5370 * t8726 * t16498;
12690   t16556 = t1560 * t461;
12691   t16557 = t16556 * t723;
12692   t16561 = t583 * t1218 * t723;
12693   t16565 = t5699 * t2483;
12694   t16580 = -0.8322078960e3 * t3817 * t14828 * t16498 + 0.6828372480e3 * t5431 * t8763 * t16498 + 0.20246355348411600000e4 * t6061 * t16557 + 0.20246355348411600000e4 * t6061 * t16561 - 0.60739066045234800000e5 * t15026 * t168 * t16565 + 0.42968011747975200000e3 * t4073 * t16561 - 0.64452017621962800000e4 * t10297 * t16565 - 0.83151059771544600000e3 * t4080 * t16557 - 0.83151059771544600000e3 * t4080 * t16561 + 0.14967190758878028000e5 * t10137 * t16565 + 0.41376603905457600000e3 * t6046 * t16557;
12695   t16598 = 0.41376603905457600000e3 * t6046 * t16561 - 0.86890868201460960000e4 * t14995 * t141 * t16565 - 0.2298854518472160e4 * t4087 * t16557 - 0.2298854518472160e4 * t4087 * t16561 + 0.44827663110207120e5 * t10281 * t16565 + 0.4063631724572000e4 * t4093 * t16557 + 0.4063631724572000e4 * t4093 * t16561 - 0.91431713802870000e5 * t10290 * t16565 - t15111 - t15112 + t15113 + t15114;
12696   t16602 = t15115 - t15116 + t15117 - t15118 - t15120 + t15121 - t15122 + t15123 - t15124 + t15125 + t15126;
12697   t16621 = -t15127 - t15128 - 0.39184157426545404000e5 * t10215 * t5700 - 0.50156825857574400001e5 * t8760 * t5700 + 0.70862243719440600000e5 * t10374 * t5700 - 0.13415282413753078000e6 * t10176 * t5700 + 0.64788337114917120000e5 * t8770 * t5700 - 0.15521531157354992000e5 * t10341 * t5700 + 0.91028528592006720000e4 * t8757 * t5700 - 0.46743375208933920000e5 * t10435 * t5700 + 0.96172617481537333333e5 * t10398 * t5700;
12698   t16646 = 0.82687323000000000000e3 * t10144 * t5700 - 0.25274462026666666667e4 * t10154 * t5700 + 0.18137864400000000000e4 * t8754 * t5700 + 0.65884284680228640000e4 * t10168 * t5700 + 0.70114772344561840000e5 * t10226 * t5700 - 0.32072301805136208000e5 * t8773 * t5700 + 0.72256362128680800000e4 * t10236 * t5700 - 0.12413205883274597333e5 * t10185 * t5700 + 0.54533103493344000001e4 * t14764 * t6031 * t5700 - 0.1857660216947200e4 * t6054 * t16557 - 0.1857660216947200e4 * t6054 * t16561;
12699   t16673 = 0.47370335532153600e5 * t15008 * t155 * t16565 + 0.27971938310305500000e4 * t4100 * t16557 + 0.27971938310305500000e4 * t4100 * t16561 - 0.67132651944733200000e5 * t10195 * t16565 - 0.46797496792161900000e4 * t4106 * t16557 - 0.46797496792161900000e4 * t4106 * t16561 + 0.12635324133883713000e6 * t10201 * t16565 - 0.866818967706384e3 * t6024 * t16557 - 0.866818967706384e3 * t6024 * t16561 + 0.29905254385870248e5 * t15039 * t4051 * t16565 + 0.20449913810004000000e3 * t4045 * t16557 + 0.20449913810004000000e3 * t4045 * t16561;
12700   t16700 = -0.67484715573013200000e4 * t10254 * t16565 - 0.32103118663641200000e3 * t4052 * t16557 - 0.32103118663641200000e3 * t4052 * t16561 + 0.11557122718910832000e5 * t10261 * t16565 + 0.12984072260320000000e3 * t6032 * t16557 + 0.12984072260320000000e3 * t6032 * t16561 - 0.50637881815248000000e4 * t15053 * t6670 * t825 * t16565 + 0.800199900e2 * t4060 * t16557 + 0.800199900e2 * t4060 * t16561 - 0.8402098950e3 * t10268 * t16565 - 0.1849350880e3 * t4066 * t16557;
12701   t16724 = -0.1849350880e3 * t4066 * t16561 + 0.24966236880e4 * t10274 * t16565 + 0.1066933200e3 * t6039 * t16557 + 0.1066933200e3 * t6039 * t16561 - 0.17604397800e4 * t14982 * t128 * t16565 + 0.42968011747975200000e3 * t4073 * t16557 - 0.1291785409666332e4 * t4113 * t16557 - 0.1291785409666332e4 * t4113 * t16561 + 0.36815884175490462e5 * t10208 * t16565 + 0.2082617000333520e4 * t4119 * t16557 + 0.2082617000333520e4 * t4119 * t16561;
12702   t16730 = t3389 * t467 * t116 * t16498;
12703   t16733 = t5019 * t8740 * t16498;
12704   t16736 = t14593 * t3320 * t5700;
12705   t16738 = t3321 * t16557;
12706   t16740 = t3321 * t16561;
12707   t16742 = t10122 * t16565;
12708   t16744 = t3331 * t16557;
12709   t16746 = t3331 * t16561;
12710   t16748 = t10094 * t16565;
12711   t16750 = t5705 * t16557;
12712   t16752 = -0.65602435510505880e5 * t10247 * t16565 - 0.112056e3 * t16730 + 0.160080e3 * t16733 + 0.12006000000000000000e2 * t16736 + 0.12006000000000000000e2 * t16738 + 0.12006000000000000000e2 * t16740 - 0.72036000000000000000e2 * t16742 - 0.46690000000000000000e2 * t16744 - 0.46690000000000000000e2 * t16746 + 0.42021000000000000000e3 * t16748 + 0.37352000000000000000e2 * t16750;
12713   t16753 = t5705 * t16561;
12714   t16756 = t14563 * t117 * t16565;
12715   t16758 = 0.37352000000000000000e2 * t16753 - 0.44822400000000000000e3 * t16756 + t15129 - t15130 + t15131 - t15132 + t15133 - t15134 - t15135 + t15136 + t15138 - t15141;
12716   t16765 = t2036 * t784;
12717   t16766 = t16765 * t174;
12718   t16768 = t2036 * t788;
12719   t16769 = t16768 * t174;
12720   t16773 = t4350 * t1497;
12721   t16776 = t4354 * t1497;
12722   t16779 = t1588 * t4134;
12723   t16782 = t4358 * t1497;
12724   t16795 = -t11298 * t16782 - 0.36e2 * t11302 * t16782 - 0.12e2 * t11311 * t16782 - t1504 * t16766 + 0.6e1 * t4130 * t16769 + t4150 * t16769 + 0.12e2 * t4130 * t16773 + 0.12e2 * t4138 * t16773 + 0.6e1 * t4130 * t16776 + 0.6e1 * t4138 * t16776 + t4150 * t16776 + 0.12e2 * t4138 * t16779 + 0.2e1 * t4150 * t16779;
12725   t16814 = 0.42e2 * t15538 - 0.28e2 * t15541 - 0.2800e4 / 0.3e1 * t15543 + 0.560e3 * t15545 - 0.40e2 * t15548 + 0.24e2 * t15551 + 0.12e2 * t15554 + 0.12e2 * t15557 + 0.84e2 * t15561 - 0.56e2 * t15564 + 0.84e2 * t15567 - 0.56e2 * t15570;
12726   t16824 = -0.80e2 * t15573 + 0.48e2 * t15576 - 0.80e2 * t15579 + 0.48e2 * t15582 + 0.60e2 * t15584 + 0.6e1 * t15587 + t15152 - t15153 - t15154 + t15155 - 0.18e2 * t15713 - 0.210e3 * t15715 + 0.140e3 * t15717;
12727   t16836 = 0.280e3 * t15719 - 0.168e3 * t15721 - t15159 - t15160 + t15167 - 0.6e1 * t15734 - 0.12e2 * t15736 - 0.12e2 * t15738 - 0.6e1 * t15741 - 0.12e2 * t15744 - 0.6e1 * t15747 + 0.14e2 * t15750 + 0.28e2 * t15753;
12728   t16848 = 0.14e2 * t15757 - 0.8e1 * t15760 - 0.16e2 * t15763 - 0.8e1 * t15766 - 0.560e3 / 0.3e1 * t15768 - 0.560e3 / 0.3e1 * t15770 - 0.120e3 * t15772 + 0.7700e4 / 0.9e1 * t15774 - 0.60e2 * t15776 - 0.60e2 * t15778 + t15168 - t15169 - 0.8960e4 / 0.9e1 * t15789;
12729   t16857 = -0.60e2 * t15791 + 0.700e3 / 0.3e1 * t15793 + 0.700e3 / 0.3e1 * t15798 - t15171 + t15173 + t15176 + t15177 - t15182 - t15183 - 0.12e2 * t15885 + 0.84e2 * t15888 + 0.84e2 * t15891;
12730   t16860 = -0.160e3 * t15898 - 0.96e2 * t15901 + t15193 - t15209 + t15210 - t15211 + t15219 - t15220 + t15221 - t15222 + t15224 - t15230 + t15231;
12731   t16869 = t15237 - t15239 - t15243 + t15244 + 0.700e3 * t16327 - 0.1400e4 / 0.3e1 * t16329 + 0.12e2 * t16331 - t1826 + t1834 + 0.96e2 * t16491 - 0.1820e4 / 0.3e1 * t16493 + 0.672e3 * t16495 - 0.168e3 * t16730;
12732   t16881 = 0.240e3 * t16733 + 0.18e2 * t16736 + 0.18e2 * t16738 + 0.18e2 * t16740 - 0.108e3 * t16742 - 0.70e2 * t16744 - 0.70e2 * t16746 + 0.630e3 * t16748 + 0.56e2 * t16750 + 0.56e2 * t16753 - 0.672e3 * t16756 + t15245 - t15246;
12733   t16884 = t16814 + t16824 + t16836 + t16848 + t16857 + t16860 + t16869 + t16881;
12734   t16888 = t1579 * t1243;
12735   t16889 = t16888 * t174;
12736   t16892 = t590 * t3435;
12737   t16893 = t16892 * t174;
12738   t16895 = t5709 * t266;
12739   t16896 = t16895 * t174;
12740   t16900 = t4335 * t174 * t472;
12741   t16914 = t416 * t417 * t16884 * t174 - 0.24e2 * t11319 * t16782 - 0.2e1 * t1496 * t16766 - 0.4e1 * t1496 * t16889 - 0.2e1 * t1496 * t16893 - 0.4e1 * t1496 * t16896 - 0.2e1 * t1496 * t16900 - 0.2e1 * t1504 * t16889 - t1504 * t16893 - 0.2e1 * t1504 * t16896 - t1504 * t16900 + 0.6e1 * t4138 * t16769 + 0.2e1 * t4150 * t16773 + 0.12e2 * t4130 * t16779;
12742   t16916 = my_piecewise3(t92, t16434 + t15795 + t16247 + t16191 + t16752 + t16300 + t15709 + t16400 + t16372 + t15708 + t15686 + t15663 + t16459 + t16758 + t15788 + t15785 + t15786 + t15638 + t15619 + t15780 + t16724 + t15949 + t16621 + t15922 + t16485 + t15837 + t15810 + t16488 + t16116 + t15591 + t16274 + t16049 + t16074 + t16025 + t15903 + t15893 + t16646 + t16513 + t16580 + t16221 + t16700 + t15755 + t15559 + t16548 + t16165 + t16102 + t15731 + t15977 + t15730 + t15726 + t15727 + t15864 + t16602 + t16598 + t16673 + t16136 + t16002 + t15723 + t15724 + t16358 + t16333 + t16324 + t16321 + t16323, t16795 + t16914);
12743   t16935 = -0.48e2 * t11715 * t1538 * t482 * t668 + 0.4e1 * t205 * t1258 * t1592 * t177 + 0.24e2 * t4208 * t1538 * t1261 * t277 + 0.12e2 * t4208 * t1538 * t482 * t804 + 0.2e1 * t205 * t3466 * t596 * t177 - 0.4e1 * t205 * t5743 * t421 - 0.4e1 * t205 * t4230 * t566 - 0.6e1 * t2289 * t2059 * t668 + 0.2e1 * t667 * t2059 * t804 + 0.24e2 * t4208 * t4215 * t5617 - 0.24e2 * t4208 * t4219 * t5617 + 0.12e2 * t4208 * t5646 * t668 - 0.12e2 * t4208 * t5750 * t668 + 0.24e2 * t13583 * t5618 - t91 * t16916;
12744   t16956 = t2289 * t479;
12745   t16959 = t1592 * t566;
12746   t16963 = t596 * t1507;
12747   t16967 = t2051 * t421;
12748   t16980 = -0.2e1 * t205 * t4226 * t566 - 0.4e1 * t205 * t1593 * t1507 - 0.2e1 * t205 * t4363 * t566 + 0.2e1 * t667 * t668 * t2123 + 0.1174e1 * t16916 - 0.8e1 * t4212 * t5623 - 0.4e1 * t13574 * t2019 - 0.2e1 * t205 * t597 * t4153 + 0.12e2 * t16956 * t4209 + 0.8e1 * t1537 * t16959 * t277 + 0.8e1 * t1537 * t16963 * t277 + 0.8e1 * t1537 * t16967 * t277 - 0.4e1 * t1537 * t5646 * t804 - 0.2e1 * t205 * t2052 * t1144 - 0.4e1 * t205 * t1542 * t1507;
12749   t16982 = t5742 * t177;
12750   t16999 = t667 * t1258;
12751   t17025 = 0.4e1 * t205 * t274 * t5742 * t177 + 0.2e1 * t205 * t479 * t4362 * t177 - 0.2e1 * t205 * t2022 * t1144 + 0.8e1 * t1537 * t4219 * t1261 - 0.4e1 * t1537 * t1538 * t3469 - 0.8e1 * t1537 * t16982 * t277 + 0.4e1 * t1537 * t5750 * t804 - 0.4e1 * t205 * t5635 * t421 - 0.4e1 * t205 * t5639 * t421 - 0.8e1 * t16999 * t1539 - 0.8e1 * t4212 * t5647 + 0.8e1 * t4212 * t5751 - 0.8e1 * t5632 * t4216 + 0.8e1 * t5632 * t4220 - 0.4e1 * t5632 * t4223;
12752   t17045 = t591 * t796;
12753   t17050 = t7958 * t590;
12754   t17077 = 0.3e1 / 0.25e2 * t5721 * t3455 + 0.3e1 / 0.50e2 * t5721 * t3459 - t17045 * t3463 / 0.10e2 - t5739 * t3459 / 0.100e3 + t17050 * t3463 / 0.100e3 - t270 * t16884 * t81 / 0.100e3 + 0.3e1 / 0.25e2 * t1580 * t79 * t1255 + 0.3e1 / 0.20e2 * t591 * t788 * t2041 - t5739 * t3455 / 0.50e2 - t2512 * t1579 * t1255 / 0.50e2 + t46 * t16884 * t81 / 0.100e3 + t797 * t4335 * t472 * t81 / 0.100e3 + t797 * t16888 * t81 / 0.50e2;
12755   t17110 = -t2512 * t16768 * t81 / 0.100e3 + t797 * t16765 * t81 / 0.100e3 + t797 * t16895 * t81 / 0.50e2 - 0.3e1 / 0.100e3 * t591 * t15414 - 0.3e1 / 0.50e2 * t591 * t3455 - 0.3e1 / 0.100e3 * t591 * t3459 + t797 * t16892 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t5710 * t1248 - 0.3e1 / 0.100e3 * t2037 * t3444 + 0.3e1 / 0.50e2 * t2037 * t3448 - 0.3e1 / 0.100e3 * t4336 * t2041 - 0.3e1 / 0.50e2 * t1580 * t1255 - 0.3e1 / 0.50e2 * t1580 * t5085 - 0.3e1 / 0.100e3 * t2037 * t798;
12756   t17142 = -t205 * t3469 * t643 + 0.2e1 * t205 * t801 * t2051 * t177 + 0.4e1 * t1537 * t12052 * t482 + 0.8e1 * t1537 * t12056 * t482 - 0.4e1 * t205 * t5650 * t421 + 0.2e1 * t205 * t84 * (t17077 + t17110) * t177 - 0.8e1 * t1537 * t4215 * t1261 + 0.4e1 * t667 * t5766 * t277 + 0.4e1 * t667 * t5768 * t277 - 0.4e1 * t1537 * t12064 * t482 - t205 * t804 * t2123 + 0.8e1 * t4212 * t5626 - 0.8e1 * t4212 * t5629 - 0.2e1 * t205 * t277 * t6092 - t205 * t482 * t4947 - 0.2e1 * t205 * t1261 * t1784;
12757   t17165 = t5 * t1788;
12758   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12759     v4rho2sigmatau[0] = -t3275 * t2128 / 0.6e1 - t1175 * t6098 - 0.8246500000000000000e0 * t3279 * t6101 * t443 - 0.3e1 / 0.8e1 * t201 * t7 * (t16935 + t16980 + t17025 + t17142) * t195 - 0.49479000000000000000e1 * t434 * t435 * t6096 * t443 - 0.29687400000000000000e2 * t1157 * t6101 * t1164 + 0.80541612095716256868e2 * t1168 * t2126 * t577 * t1170 + 0.92773125000000000000e0 * t574 * t4951 * t580 + 0.22265550000000000000e2 * t6105 * t1525 - 0.60406209071787192650e2 * t17165 * t1532 + 0.22265550000000000000e3 * t2131 * t4183 - 0.62012907040371922630e0 * t6110 * t4188 - 0.25976475000000000000e2 * t2131 * t4192 - 0.50338507559822660542e2 * t6110 * t4195 + 0.12113307472923900000e3 * t2131 * t4199;
12760 
12761   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12762     v4rho2lapl2[0] = 0.0e0;
12763 
12764   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12765     v4rho2lapltau[0] = 0.0e0;
12766 
12767   t17184 = t2139 * t804;
12768   t17193 = t1592 * t643;
12769   t17197 = t596 * t1784;
12770   t17212 = t1592 * t1592;
12771   t17221 = 0.16e2 * t1537 * t17193 * t277 + 0.16e2 * t1537 * t17197 * t277 - 0.16e2 * t1537 * t2139 * t801 + 0.8e1 * t1537 * t6226 * t804 + 0.4e1 * t205 * t17212 * t177 - t205 * t804 * t2245 - 0.2e1 * t205 * t277 * t6518 - 0.4e1 * t205 * t6219 * t421 - 0.4e1 * t205 * t4226 * t643 - 0.8e1 * t205 * t4230 * t643 + 0.24e2 * t6115 * t17184 + 0.16e2 * t4212 * t6227;
12772   t17225 = t667 * t596;
12773   t17231 = t6133 * t277;
12774   t17234 = t4219 * t1592;
12775   t17237 = t1538 * t4362;
12776   t17258 = t6151 * t751;
12777   t17261 = t6147 * t716;
12778   t17264 = t6286 * t751;
12779   t17267 = t6241 * t716;
12780   t17270 = t6255 * t751;
12781   t17273 = t6245 * t716;
12782   t17278 = t6158 * t716;
12783   t17281 = t6151 * t3409;
12784   t17282 = t5020 * t17281;
12785   t17284 = t13735 + t13765 + t13769 + t13792 - t13796 + t13798 - t13800 + t13813 - t13848 + t13860 - 0.800199900e2 * t1462 * t17258 - 0.2005173881572176e4 * t10021 * t17261 - 0.572906823306336e3 * t1407 * t17264 + 0.57808672507964700e5 * t9981 * t17267 + 0.11561734501592940e5 * t1424 * t17270 - 0.28984256077726080e5 * t14438 * t17273 - 0.1363327587333600e4 * t1302 * t6259 - 0.1600399800e3 * t9964 * t17278 + 0.160080e3 * t17282;
12786   t17285 = t1572 * t11778;
12787   t17286 = t5020 * t17285;
12788   t17288 = t263 * t1560;
12789   t17289 = t1722 * t17288;
12790   t17290 = t2032 * t17289;
12791   t17292 = t14594 * t6181;
12792   t17295 = t7871 * t6180 * t2483;
12793   t17297 = t6158 * t2483;
12794   t17298 = t14556 * t17297;
12795   t17300 = t6147 * t2483;
12796   t17301 = t14564 * t17300;
12797   t17303 = t2384 * t6181;
12798   t17306 = t1205 * t1555 * t17288;
12799   t17308 = t14602 * t6184;
12800   t17310 = t6147 * t3409;
12801   t17311 = t3390 * t17310;
12802   t17313 = t1555 * t11778;
12803   t17314 = t3390 * t17313;
12804   t17316 = t1572 * t17288;
12805   t17317 = t1226 * t17316;
12806   t17319 = t3169 * t6187;
12807   t17322 = t2142 * t238 * t723;
12808   t17326 = t2142 * t263 * t723;
12809   t17330 = t583 * t1560 * t723;
12810   t17339 = -0.106720e3 * t17286 + 0.64032e2 * t17290 + 0.12006000000000000000e2 * t17292 - 0.72036000000000000000e2 * t17295 + 0.42021000000000000000e3 * t17298 - 0.44822400000000000000e3 * t17301 + 0.64032000000000000000e2 * t17303 + 0.16008e2 * t17306 - 0.40464666666666666667e3 * t17308 - 0.112056e3 * t17311 + 0.112056e3 * t17314 - 0.74704e2 * t17317 + 0.44822400000000000000e3 * t17319 - 0.70196245188242850000e5 * t10385 * t17322 + 0.28078498075297140000e5 * t10661 * t17326 - 0.93594993584323800000e4 * t4106 * t17330 + 0.34418804092299720000e5 * t14244 * t17322 - 0.14172448743888120000e5 * t14248 * t17326 + 0.40492710696823200000e4 * t6061 * t17330;
12811   t17379 = -0.67416549193646520000e4 * t10394 * t17322 + 0.25682494930912960000e4 * t10653 * t17326 - 0.64206237327282400000e3 * t4052 * t17330 + 0.40899827620008000000e3 * t4045 * t17330 + 0.3200799600e3 * t10306 * t17322 - 0.1600399800e3 * t8781 * t17326 + 0.1600399800e3 * t4060 * t17330 + 0.30077608223582640000e4 * t10335 * t17322 - 0.12890403524392560000e4 * t8784 * t17326 + 0.85936023495950400000e3 * t4073 * t17330 - 0.11096105280e4 * t10329 * t17322 + 0.5548052640e3 * t10666 * t17326 - 0.3698701760e3 * t4066 * t17330 + 0.8535465600e3 * t14137 * t17322 - 0.4267732800e3 * t14141 * t17326 + 0.2133866400e3 * t6039 * t17330 - 0.74835953794390140000e4 * t10351 * t17322 + 0.33260423908617840000e4 * t10650 * t17326 + 0.8127263449144000e4 * t4093 * t17330;
12812   t17402 = t6245 * t3409;
12813   t17405 = t1676 * t11778;
12814   t17408 = t1689 * t17288;
12815   t17413 = t6255 * t3409;
12816   t17416 = t1689 * t11778;
12817   t17419 = t1700 * t17288;
12818   t17422 = t1669 * t11778;
12819   t17425 = -0.26007243037260800e5 * t14181 * t17322 + 0.11145961301683200e5 * t14185 * t17326 - 0.3715320433894400e4 * t6054 * t17330 + 0.2133866400e3 * t3812 * t17310 - 0.2133866400e3 * t3812 * t17313 + 0.1066933200e3 * t1462 * t17316 + 0.65884284680228640000e4 * t4028 * t6187 + 0.2005173881572176e4 * t3712 * t17281 - 0.1336782587714784e4 * t3712 * t17285 + 0.572906823306336e3 * t1407 * t17289 - 0.13415282413753078000e6 * t14934 * t6400 - 0.49550290721112600e5 * t3753 * t17402 + 0.16516763573704200e5 * t3753 * t17405 - 0.6606705429481680e4 * t1424 * t17408 + 0.64788337114917120000e5 * t3121 * t6404 + 0.25361224068010320e5 * t5518 * t17413 - 0.7246064019431520e4 * t5518 * t17416 + 0.2983673419765920e4 * t2105 * t17419 - 0.13932451627104000e5 * t3740 * t17422;
12820   t17428 = t1676 * t17288;
12821   t17449 = t6286 * t3409;
12822   t17452 = t1722 * t11778;
12823   t17455 = t1669 * t17288;
12824   t17464 = t6356 * t3409;
12825   t17467 = t1700 * t11778;
12826   t17472 = 0.5805188177960000e4 * t1486 * t17428 - 0.50156825857574400001e5 * t3110 * t6400 - 0.19505432277945600e5 * t5398 * t17402 + 0.6501810759315200e4 * t5398 * t17405 - 0.2786490325420800e4 * t2097 * t17408 - 0.740092118838240e3 * t3729 * t17416 + 0.272665517466720e3 * t1447 * t17419 + 0.82687323000000000000e3 * t3430 * t6184 - 0.2774026320e3 * t1468 * t17289 + 0.18137864400000000000e4 * t3177 * t6417 + 0.6828372480e3 * t5432 * t17449 - 0.3414186240e3 * t5432 * t17452 + 0.1707093120e3 * t2083 * t17455 - 0.7497421201200672e4 * t3722 * t17416 + 0.2915663800466928e4 * t1439 * t17419 - 0.32072301805136208000e5 * t3129 * t6409 - 0.12608275893911040e5 * t5540 * t17464 + 0.3152068973477760e4 * t5540 * t17467 - 0.15521531157354992000e5 * t14927 * t6417;
12827   t17481 = t6241 * t3409;
12828   t17496 = t1711 * t17288;
12829   t17515 = -0.5442614821410192e4 * t3768 * t17449 + 0.2721307410705096e4 * t3768 * t17452 - 0.1209469960313376e4 * t1472 * t17455 + 0.91028528592006720000e4 * t3182 * t6420 + 0.3501097253538720e4 * t5371 * t17481 - 0.1400438901415488e4 * t5371 * t17422 + 0.636563137007040e3 * t2090 * t17428 - 0.25274462026666666667e4 * t14941 * t6187 - 0.8322078960e3 * t3818 * t17281 + 0.5548052640e3 * t3818 * t17285 - 0.9696938614239240e4 * t3747 * t17422 - 0.1260827589391104e4 * t2067 * t17496 - 0.12413205883274597333e5 * t14873 * t6409 - 0.4689846900427584e4 * t3735 * t17464 + 0.1172461725106896e4 * t3735 * t17467 - 0.446652085755008e3 * t1453 * t17496 + 0.54533103493344000001e4 * t14765 * t6414 + 0.2150162366308992e4 * t5479 * t6373 * t3409 - 0.477813859179776e3 * t5479 * t1711 * t11778;
12830   t17548 = t6286 * t2483;
12831   t17551 = t6241 * t2483;
12832   t17556 = t6245 * t2483;
12833   t17559 = 0.96172617481537333333e5 * t14919 * t6420 + 0.34831129067760000e5 * t3740 * t17481 + 0.70114772344561840000e5 * t14882 * t6404 + 0.26240974204202352e5 * t3722 * t17413 + 0.4593014789924736e4 * t3760 * t17405 - 0.1722380546221776e4 * t1432 * t17408 + 0.72256362128680800000e4 * t4013 * t6404 + 0.2590322415933840e4 * t3729 * t17413 + 0.186970640548608e3 * t2075 * t4570 * t17288 - 0.46743375208933920000e5 * t3992 * t6417 - 0.15325696789814400e5 * t3688 * t17449 + 0.7662848394907200e4 * t3688 * t17452 - 0.3065139357962880e4 * t1480 * t17455 + 0.70862243719440600000e5 * t3999 * t6420 + 0.24242346535598100e5 * t3747 * t17481 - 0.91431713802870000e5 * t15002 * t17548 + 0.47370335532153600e5 * t15009 * t17551 + 0.12635324133883713000e6 * t15018 * t17551 - 0.60739066045234800000e5 * t15027 * t17556;
12834   t17562 = t6255 * t2483;
12835   t17570 = t6151 * t2483;
12836   t17597 = t6147 * t781;
12837   t17600 = t1555 * t4246;
12838   t17605 = -0.65602435510505880e5 * t15033 * t17556 + 0.29905254385870248e5 * t15040 * t17562 + 0.11557122718910832000e5 * t15046 * t17562 - 0.50637881815248000000e4 * t15054 * t6356 * t2483 + 0.44827663110207120e5 * t8646 * t17570 - 0.67132651944733200000e5 * t8660 * t17548 + 0.36815884175490462e5 * t8601 * t17551 - 0.67484715573013200000e4 * t8616 * t17556 - 0.8402098950e3 * t8669 * t17297 - 0.64452017621962800000e4 * t8637 * t17300 + 0.24966236880e4 * t14976 * t17300 + 0.3729591774707400e4 * t1417 * t17428 - 0.39184157426545404000e5 * t4006 * t6400 - 0.13779044369774208e5 * t3760 * t17402 - 0.17604397800e4 * t14983 * t17570 + 0.14967190758878028000e5 * t14989 * t17570 - 0.86890868201460960000e4 * t14996 * t17548 + 0.266733300e2 * t1462 * t17597 - 0.266733300e2 * t1462 * t17600 - 0.10025869407860880e5 * t5251 * t6148;
12839   t17609 = t1669 * t4246;
12840   t17618 = t6241 * t736;
12841   t17621 = t6245 * t781;
12842   t17624 = t1676 * t4246;
12843   t17629 = t6245 * t736;
12844   t17632 = t6255 * t781;
12845   t17635 = t1689 * t4246;
12846   t17646 = t6158 * t736;
12847   t17655 = -0.580518817796000e3 * t1486 * t17609 + 0.86690810124202666667e5 * t3065 * t6242 - 0.37153204338944000000e5 * t866 * t6246 + 0.12384401446314666667e5 * t866 * t6249 + 0.1625452689828800e4 * t5398 * t17618 - 0.696622581355200e3 * t2097 * t17621 + 0.232207527118400e3 * t2097 * t17624 + 0.23398748396080950000e6 * t5286 * t6242 - 0.1811516004857880e4 * t5518 * t17629 + 0.745918354941480e3 * t2105 * t17632 - 0.213119529983280e3 * t2105 * t17635 - 0.19476108390480e2 * t1447 * t17635 - 0.10669332000e4 * t5050 * t6166 + 0.5334666000e3 * t1231 * t6169 - 0.5334666000e3 * t1231 * t6144 - 0.533466600e2 * t3812 * t17646 + 0.47241495812960400000e5 * t875 * t6256 - 0.13497570232274400000e5 * t875 * t6259 - 0.93594993584323800000e5 * t3848 * t6246;
12848   t17676 = t6151 * t736;
12849   t17679 = t6286 * t781;
12850   t17682 = t1722 * t4246;
12851   t17687 = t1572 * t4246;
12852   t17690 = 0.31198331194774600000e5 * t3848 * t6249 + 0.4129190893426050e4 * t3753 * t17618 - 0.1651676357370420e4 * t1424 * t17621 + 0.550558785790140e3 * t1424 * t17624 - 0.11472934697433240000e6 * t3054 * t6252 + 0.24945317931463380000e5 * t5258 * t6283 - 0.11086807969539280000e5 * t3764 * t6287 + 0.55434039847696400000e4 * t3764 * t6290 + t13867 - t13868 + 0.14225776000000000000e4 * t901 * t6287 - 0.71128880000000000000e3 * t901 * t6290 - 0.853546560e2 * t5432 * t17676 + 0.426773280e2 * t2083 * t17679 - 0.213386640e2 * t2083 * t17682 - 0.28451552000000000000e4 * t3044 * t6283 - t13869 + t13870 + 0.462337720e2 * t1468 * t17687;
12853   t17692 = t6147 * t736;
12854   t17695 = t6151 * t781;
12855   t17718 = 0.1387013160e3 * t3818 * t17692 - 0.693506580e2 * t1468 * t17695 + 0.143226705826584e3 * t1407 * t17695 - 0.95484470551056e2 * t1407 * t17687 + 0.36987017600000000000e4 * t5058 * t6148 - 0.18493508800000000000e4 * t3828 * t6152 + 0.12329005866666666667e4 * t3828 * t6155 + t13969 - t13971 + t13974 - t13977 - t13991 + t13994 - t13997 + 0.9195418073888640e4 * t8723 * t17326 - 0.4597709036944320e4 * t4087 * t17330 + 0.36363519803397150000e5 * t10379 * t17322 - 0.13985969155152750000e5 * t8787 * t17326 + 0.55943876620611000000e4 * t4100 * t17330;
12856   t17753 = t5705 * t17330;
12857   t17755 = t7912 * t17326;
12858   t17757 = t3321 * t17330;
12859   t17759 = -0.20668566554661312e5 * t10354 * t17322 + 0.7750712457997992e4 * t8790 * t17326 - 0.2583570819332664e4 * t4113 * t17330 + 0.38854836239007600000e4 * t10325 * t17322 - 0.14314939667002800000e4 * t8847 * t17326 - 0.16630211954308920000e4 * t4080 * t17330 + 0.45514264296003360000e4 * t14155 * t17322 - 0.20688301952728800000e4 * t14159 * t17326 + 0.82753207810915200000e3 * t6046 * t17330 + 0.48763580694864000e5 * t10411 * t17322 - 0.20318158622860000e5 * t10656 * t17326 + 0.37487106006003360e5 * t10319 * t17322 - 0.14578319002334640e5 * t10673 * t17326 + 0.4165234000667040e4 * t4119 * t17330 - 0.17336379354127680e5 * t14199 * t17322 + 0.6934551741651072e4 * t14203 * t17326 - 0.1733637935412768e4 * t6024 * t17330 + 0.74704000000000000000e2 * t17753 - 0.12006000000000000000e2 * t17755 + 0.24012000000000000000e2 * t17757;
12860   t17762 = t10131 * t17322;
12861   t17764 = t10678 * t17326;
12862   t17766 = t3331 * t17330;
12863   t17768 = t14821 * t17322;
12864   t17770 = t14829 * t17326;
12865   t17786 = -0.14007000000000000000e3 * t17762 + 0.93380000000000000000e2 * t17764 - 0.93380000000000000000e2 * t17766 + 0.18676000000000000000e3 * t17768 - 0.11205600000000000000e3 * t17770 + 0.29863366198736000000e4 * t14331 * t17322 - 0.11685665034288000000e4 * t14335 * t17326 + 0.25968144520640000000e3 * t6032 * t17330 - 0.22988545184721600e5 * t10440 * t17322 + 0.4296801174797520e4 * t1271 * t6152 - 0.2864534116531680e4 * t1271 * t6155 - 0.334195646928696e3 * t3712 * t17692 - t14009 + t14011 - t14014 + t14017 + t14038 + t14053 - t14055;
12866   t17787 = t6241 * t751;
12867   t17792 = t6286 * t716;
12868   t17795 = t6245 * t751;
12869   t17802 = t6151 * t716;
12870   t17807 = t6373 * t751;
12871   t17810 = t14057 - t14059 - t14069 + t14071 - t14073 + t14075 + t14097 - t14099 + t14102 - t14105 - 0.2133866400e3 * t2083 * t17787 + 0.1511837450391720e4 * t1472 * t17787 - 0.3501097253538720e4 * t14505 * t17792 - 0.954844705510560e3 * t2090 * t17795 + 0.6935065800e3 * t10015 * t17261 + 0.2774026320e3 * t1468 * t17264 - 0.5974825920e3 * t14551 * t17802 - 0.5594387662061100e4 * t1417 * t17795 + 0.2836862076129984e4 * t2067 * t17807;
12872   t17812 = t6255 * t716;
12873   t17826 = t6356 * t751;
12874   t17849 = t8576 * t2142;
12875   t17855 = 0.5862308625534480e4 * t9989 * t17812 + 0.1004967192948768e4 * t1453 * t17807 - 0.2627976225488768e4 * t13771 * t6356 * t716 - 0.38314241974536000e5 * t9996 * t17792 - 0.8707782266940000e4 * t1486 * t17795 - 0.31864040105102856e5 * t10005 * t17273 - 0.5831327600933856e4 * t1439 * t17826 + 0.14972327624019360e5 * t14462 * t17812 + 0.5442614821410192e4 * t10062 * t17802 - 0.13884113335556800000e5 * t3784 * t6259 - 0.1874355300300168e4 * t3722 * t17629 + 0.728915950116732e3 * t1439 * t17632 - 0.208261700033352e3 * t1439 * t17635 + 0.17223805462217760e5 * t10032 * t17267 + 0.3014165955888108e4 * t1432 * t17270 - 0.3330414534772080e4 * t10011 * t17273 - 0.545331034933440e3 * t1447 * t17826 - 0.467426601371520e3 * t2075 * t17849 * t751 + 0.17241408888541200e5 * t10026 * t17802;
12876   t17870 = t6286 * t736;
12877   t17873 = t6241 * t781;
12878   t17890 = t1700 * t4246;
12879   t17899 = 0.3831424197453600e4 * t1480 * t17787 - 0.29090815842717720e5 * t10045 * t17792 - 0.302367490078344e3 * t1472 * t17679 + 0.151183745039172e3 * t1472 * t17682 - 0.15171421432001120000e5 * t3049 * t6310 + 0.68961006509096000000e4 * t906 * t6314 - 0.27584402603638400000e4 * t906 * t6293 - 0.350109725353872e3 * t5371 * t17870 + 0.159140784251760e3 * t2090 * t17873 - 0.63656313700704e2 * t2090 * t17609 - 0.16254526898288000000e6 * t5273 * t6310 + 0.67727195409533333333e5 * t3639 * t6314 - 0.3483112906776000e4 * t3740 * t17870 + 0.1451297044490000e4 * t1486 * t17873 - 0.12495702002001120000e6 * t5307 * t6252 + 0.48594396674448800000e5 * t3784 * t6256 + 0.78801724336944e2 * t2067 * t17890 + 0.22472183064548840000e5 * t5212 * t6353 - 0.85608316436376533333e4 * t3857 * t6357 + 0.21402079109094133334e4 * t3857 * t6360;
12880   t17904 = t6255 * t736;
12881   t17907 = t6356 * t781;
12882   t17931 = t1560 * t1560;
12883   t17935 = 0.293115431276724e3 * t3735 * t17904 - 0.111663021438752e3 * t1453 * t17907 + 0.27915755359688e2 * t1453 * t17890 - 0.99544553995786666667e4 * t13917 * t6370 + 0.38952216780960000000e4 * t5887 * t6374 - 0.86560481735466666667e3 * t5887 * t6377 - 0.119453464794944e3 * t5479 * t6356 * t736 + 0.46742660137152e2 * t2075 * t6373 * t781 - 0.10387257808256e2 * t2075 * t1711 * t4246 + 0.76628483949072000e5 * t5265 * t6283 + 0.680326852676274e3 * t3768 * t17676 - t14114 + t14115 + t14116 - t14117 - t14118 - t14119 + t14120 - 0.213119529983280e3 * t1923 * t1924 * t17931;
12884   t17974 = -0.19476108390480e2 * t819 * t168 * t17931 - 0.12002998500e4 * t3419 * t2198 - 0.266733300e2 * t1103 * t104 * t17931 + t14121 - 0.10025869407860880e5 * t3967 * t2201 - 0.580518817796000e3 * t1485 * t519 * t17931 + 0.79466575947185777779e5 * t3019 * t2219 + 0.232207527118400e3 * t1907 * t1908 * t17931 + t14122 + 0.21318859649762643333e6 * t1053 * t2222 + t14123 - t14124 - 0.95484470551056e2 * t1111 * t117 * t17931 + 0.38014434755555555556e4 * t983 * t2204 + 0.462337720e2 * t1467 * t493 * t17931 - 0.27858811333333333333e4 * t3146 * t2207 - 0.213386640e2 * t1877 * t1878 * t17931 + 0.24021417267335106667e5 * t990 * t2210 + 0.550558785790140e3 * t1423 * t532 * t17931;
12885   t17978 = -0.10348137178077040000e6 * t3091 * t2226 - t14133 + t14135 + t14147 - t14151 + t14153 - t14165 + t14167 + t14177 - t14179 + t14195 - t14197 + t14209 - t14211 - t14217 - t14240 + t14242 - t14254 + t14256;
12886   t18001 = -t14272 + t14279 - t14291 - t14293 - t14307 - t14309 + t14314 - t14327 + t14329 - 0.25835708193326640e5 * t1294 * t6246 + 0.8611902731108880e4 * t1294 * t6249 + 0.1148253697481184e4 * t3760 * t17618 - 0.430595136555444e3 * t1432 * t17621 + 0.143531712185148e3 * t1432 * t17624 - 0.12951612079669200e5 * t5202 * t6252 + 0.4771646555667600e4 * t1302 * t6256 + 0.57787931180425600000e5 * t3011 * t6353 - 0.23115172472170240000e5 * t883 * t6357 + 0.57787931180425600000e4 * t883 * t6360 + 0.788017243369440e3 * t5540 * t17904;
12887   t18024 = -0.315206897347776e3 * t2067 * t17907 + t14352 - t14368 + t14370 - t14373 + t14375 + t14377 - t14379 + t14381 - t14383 + 0.46619897183842500e5 * t1286 * t6314 - 0.18647958873537000e5 * t1286 * t6293 - 0.2424234653559810e4 * t3747 * t17870 + 0.932397943676850e3 * t1417 * t17873 - 0.372959177470740e3 * t1417 * t17609 + 0.68895221848871040e5 * t5291 * t6242 - 0.185023029709560e3 * t3729 * t17629 + 0.68166379366680e2 * t1447 * t17632 - 0.30651393579628800e5 * t1278 * t6287;
12888   t18035 = 0.15325696789814400e5 * t1278 * t6290 + 0.1915712098726800e4 * t3688 * t17676 - 0.766284839490720e3 * t1480 * t17679 + 0.383142419745360e3 * t1480 * t17682 - 0.121211732677990500e6 * t5278 * t6310 + t14386 + t14387 - t14388 + t14389 - t14390 + t14391 - t14392 - t14394 + t14395 + t14396 - t14397 - t14398 + t14399 - t14400;
12889   t18037 = -t14406 + t14408 - t14410 + t14413 + t14416 - t14423 + t14429 + t14436 + t14447 - t14450 + t14457 - t14460 - t14469 - t14471 - t14476 - t14479 - t14482 - t14485 - t14492;
12890   t18038 = -t14494 + t14503 + t14511 + t14513 + t14527 - t14529 + t14534 - t14536 - t14543 + t14547 + t14549 - t14562 + t14570 + t14572 + t14575 - t14589 - t14592 + t14630 - t14647 - t14649;
12891   t18060 = -t14651 + t14653 - t14656 + t14659 - t14686 + t14688 - t14691 + t14705 - t14707 + t14709 - t14711 + t14715 + 0.27915755359688e2 * t1452 * t558 * t17931 - 0.88003156431057777779e4 * t13821 * t2183 - 0.10387257808256e2 * t1955 * t1958 * t17931 + 0.72797059751618400e5 * t3978 * t2186 + 0.151183745039172e3 * t1471 * t506 * t17931 - 0.14251941345213173333e5 * t3158 * t2213 - 0.63656313700704e2 * t1892 * t1893 * t17931;
12892   t18090 = -0.15125740308129111111e6 * t1045 * t2216 - 0.11222991612908413333e6 * t1061 * t2174 - 0.208261700033352e3 * t1438 * t545 * t17931 + 0.383142419745360e3 * t1119 * t128 * t17931 - 0.111887753241222000e6 * t3948 * t2189 - 0.372959177470740e3 * t1087 * t141 * t17931 + 0.62436294800539380e5 * t3959 * t2192 + 0.143531712185148e3 * t1095 * t155 * t17931 - 0.11588284492335600e5 * t3984 * t2195 + 0.51527571969212826667e5 * t3103 * t2177 + 0.78801724336944e2 * t1938 * t1939 * t17931 + 0.19975273835154524444e5 * t975 * t2180 - t14725 + t14726 - t14759 - t14762 + t14817 - t14819 - t14835;
12893   t18092 = t14837 - t14839 - t14842 - t14854 - t14857 + t14868 + t14871 - t14879 - t14881 + t14892 + t14894 - t14916 - t14918 + t14926 + t14938 + t14940 + t14953 + t14956 + t14958;
12894   t18093 = t14961 - t14963 - t14965 + t14975 + t14981 - t14988 + t14994 + t15001 - t15007 - t15014 + t15025 + t15032 - t15038 - t15045 + t15051 - t15071 - t15079 + t15088 - t15097 + t15101;
12895   t18097 = t1225 * t468 * t17931;
12896   t18099 = t3079 * t2149;
12897   t18102 = t1827 * t1828 * t17931;
12898   t18104 = t15108 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - t15111 + 0.18676e2 * t18097 - 0.66403555555555555556e3 * t18099 - 0.10672e2 * t18102;
12899   t18105 = t2368 * t2143;
12900   t18108 = t715 * t75 * t17931;
12901   t18110 = t740 * t2146;
12902   t18112 = t7805 * t2143;
12903   t18114 = t14300 * t2143;
12904   t18116 = t2032 * t17695;
12905   t18118 = t2032 * t17687;
12906   t18120 = t768 * t6159;
12907   t18122 = t768 * t6162;
12908   t18124 = t5672 * t6159;
12909   t18127 = t1205 * t6158 * t781;
12910   t18129 = t5672 * t6162;
12911   t18131 = -0.80040e2 * t18105 - 0.8004e1 * t18108 + 0.57065555555555555556e3 * t18110 - 0.40020e2 * t18112 - 0.4002e1 * t18114 - t15112 + 0.16008e2 * t18116 + t15113 - 0.10672e2 * t18118 + t15114 + 0.40020e2 * t18120 - 0.80040e2 * t18122 + t15115 - t15116 + 0.8004e1 * t18124 + t15117 - t15118 + 0.4002e1 * t18127 - 0.16008e2 * t18129;
12912   t18134 = t1205 * t1548 * t4246;
12913   t18136 = t11082 * t6166;
12914   t18138 = t3395 * t6169;
12915   t18140 = t3395 * t6144;
12916   t18142 = t1226 * t17258;
12917   t18144 = t15143 * t17261;
12918   t18146 = t2032 * t17264;
12919   t18149 = t1205 * t6147 * t751;
12920   t18151 = t11071 * t17278;
12921   t18155 = -t15120 - 0.8004e1 * t18134 + t15121 + 0.46690000000000000000e3 * t18136 - t15122 + t15123 - 0.31126666666666666666e3 * t18138 + 0.31126666666666666666e3 * t18140 - t15124 + t15125 + 0.56028e2 * t18142 + t15126 - t15127 - 0.106720e3 * t18144 - t15128 - 0.64032e2 * t18146 - 0.8004e1 * t18149 + 0.56028e2 * t18151 - 0.5967346839531840e4 * t2105 * t17826;
12922   t18162 = t3390 * t17646;
12923   t18164 = t1226 * t17597;
12924   t18166 = t1226 * t17600;
12925   t18168 = t3035 * t6148;
12926   t18170 = t892 * t6152;
12927   t18172 = t892 * t6155;
12928   t18174 = t5020 * t17692;
12929   t18176 = -0.27090878163813333334e5 * t3639 * t6293 + 0.21130884967774400e5 * t14496 * t17267 + 0.4876358069486400e4 * t2097 * t17270 + t15129 + 0.28014e2 * t18162 - t15130 - 0.18676e2 * t18164 + t15131 - t15132 + 0.18676e2 * t18166 - 0.62253333333333333334e3 * t18168 + t15133 - t15134 + 0.37352000000000000000e3 * t18170 - 0.24901333333333333334e3 * t18172 - t15135 - 0.26680e2 * t18174 + t15136 + t15138 - t15141;
12930   t18182 = t6191 * t266;
12931   t18183 = t18182 * t174;
12932   t18186 = t2152 * t784;
12933   t18187 = t18186 * t174;
12934   t18189 = t2152 * t788;
12935   t18190 = t18189 * t174;
12936   t18192 = t1579 * t1579;
12937   t18197 = t1775 * t4335;
12938   t18200 = t2156 * t784;
12939   t18201 = t18200 * t174;
12940   t18203 = t2156 * t788;
12941   t18204 = t18203 * t174;
12942   t18216 = -0.4e1 * t416 * t1128 * t18192 * t174 - 0.2e1 * t1137 * t1139 * t18192 * t174 - t11298 * t18204 - 0.36e2 * t11302 * t18204 - 0.4e1 * t1496 * t18197 - 0.2e1 * t1504 * t18183 - t1504 * t18187 - 0.2e1 * t1504 * t18197 + t4150 * t18190 + 0.6e1 * t4130 * t18201 + t4150 * t18201;
12943   t18227 = t1588 * t4930;
12944   t18256 = -0.168e3 * t17311 + 0.168e3 * t17314 - 0.112e3 * t17317 + 0.672e3 * t17319 + t15152 - t15153 - t15154 + t15155 + 0.112e3 * t17753 - 0.18e2 * t17755 + 0.36e2 * t17757;
12945   t18263 = -0.210e3 * t17762 + 0.140e3 * t17764 - 0.140e3 * t17766 + 0.280e3 * t17768 - 0.168e3 * t17770 - t15159 - t15160 + t15167 + t15168 - t15169 - t15171;
12946   t18264 = t15173 + t15176 + t15177 - t15182 - t15183 + t15193 - t15209 + t15210 - t15211 + t15219 - t15220;
12947   t18267 = t15221 - t15222 + t15224 - t15230 + t15231 + t15237 - t15239 - t15243 + t15244 - t1826 + t1834;
12948   t18279 = 0.28e2 * t18097 - 0.8960e4 / 0.9e1 * t18099 - 0.16e2 * t18102 - 0.120e3 * t18105 - 0.12e2 * t18108 + 0.7700e4 / 0.9e1 * t18110 - 0.60e2 * t18112 - 0.6e1 * t18114 + 0.24e2 * t18116 - 0.16e2 * t18118 + 0.60e2 * t18120;
12949   t18292 = -0.120e3 * t18122 + 0.12e2 * t18124 + 0.6e1 * t18127 - 0.24e2 * t18129 - 0.12e2 * t18134 + 0.700e3 * t18136 - 0.1400e4 / 0.3e1 * t18138 + 0.1400e4 / 0.3e1 * t18140 + 0.84e2 * t18142 - 0.160e3 * t18144 - 0.96e2 * t18146;
12950   t18302 = -0.12e2 * t18149 + 0.84e2 * t18151 + 0.42e2 * t18162 - 0.28e2 * t18164 + 0.28e2 * t18166 - 0.2800e4 / 0.3e1 * t18168 + 0.560e3 * t18170 - 0.1120e4 / 0.3e1 * t18172 - 0.40e2 * t18174 + t15245 - t15246;
12951   t18305 = 0.240e3 * t17282 - 0.160e3 * t17286 + 0.96e2 * t17290 + 0.18e2 * t17292 - 0.108e3 * t17295 + 0.630e3 * t17298 - 0.672e3 * t17301 + 0.96e2 * t17303 + 0.24e2 * t17306 - 0.1820e4 / 0.3e1 * t17308 + t18256 + t18263 + t18264 + t18267 + t18279 + t18292 + t18302;
12952   t18309 = t416 * t417 * t18305 * t174 - 0.12e2 * t11311 * t18204 - 0.24e2 * t11319 * t18204 - 0.4e1 * t1496 * t18183 - 0.2e1 * t1496 * t18187 + 0.6e1 * t4130 * t18190 + 0.6e1 * t4138 * t18190 + 0.6e1 * t4138 * t18201 + 0.24e2 * t4130 * t18227 + 0.24e2 * t4138 * t18227 + 0.4e1 * t4150 * t18227;
12953   t18311 = my_piecewise3(t92, t17605 + t17935 + t17718 + t17759 + t17655 + t17974 + t17810 + t17559 + t18176 + t18155 + t17379 + t17978 + t17284 + t17472 + t18131 + t17515 + t17899 + t17339 + t17786 + t17690 + t17425 + t18104 + t18093 + t18092 + t18090 + t18060 + t18001 + t18038 + t17855 + t18037 + t18035 + t18024, t18216 + t18309);
12954   t18313 = -0.24e2 * t4208 * t6226 * t668 - 0.16e2 * t17225 * t4216 - 0.2e1 * t205 * t2167 * t1144 - 0.48e2 * t6115 * t17231 + 0.32e2 * t6122 * t17234 - 0.16e2 * t6122 * t17237 + 0.96e2 * t6115 * t1538 * t277 * t1592 + 0.96e2 * t4208 * t2139 * t277 * t274 - 0.64e2 * t1537 * t1538 * t4230 - 0.16e2 * t667 * t699 * t2134 * t177 - 0.8e1 * t205 * t1593 * t1784 + 0.1174e1 * t18311;
12955   t18318 = t6218 * t177;
12956   t18335 = t2139 * t668;
12957   t18340 = t2166 * t421;
12958   t18352 = -0.16e2 * t667 * t85 * t17212 * t177 + 0.8e1 * t667 * t2135 * t1144 - 0.8e1 * t1537 * t18318 * t277 + 0.8e1 * t1537 * t18340 * t277 - 0.4e1 * t1537 * t6136 * t804 - 0.8e1 * t205 * t1542 * t1784 - 0.4e1 * t205 * t597 * t4947 + 0.2e1 * t667 * t668 * t2245 + 0.12e2 * t4208 * t6136 * t668 + 0.8e1 * t667 * t17231 + 0.12e2 * t2289 * t18335 - 0.8e1 * t4212 * t6137;
12959   t18371 = t7558 * t85;
12960   t18404 = t46 * t18305 * t81 / 0.100e3 - t5739 * t4351 / 0.25e2 + 0.6e1 / 0.25e2 * t5721 * t4351 + t797 * t18182 * t81 / 0.50e2 + t797 * t18186 * t81 / 0.100e3 - t2512 * t18189 * t81 / 0.100e3 + t797 * t18192 * t81 / 0.50e2 + t797 * t593 * t4335 / 0.50e2 - t2512 * t18200 * t81 / 0.100e3 + t7958 * t18203 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t6192 * t1248;
12961   t18430 = -0.3e1 / 0.100e3 * t2153 * t798 - 0.3e1 / 0.100e3 * t2153 * t3444 + 0.3e1 / 0.50e2 * t2153 * t3448 - 0.3e1 / 0.50e2 * t46 * t18192 * t790 - 0.3e1 / 0.25e2 * t591 * t4351 - 0.3e1 / 0.50e2 * t591 * t790 * t4335 + 0.3e1 / 0.20e2 * t2157 * t15418 + 0.3e1 / 0.50e2 * t2157 * t15422 - t2157 * t15426 / 0.10e2 - 0.3e1 / 0.100e3 * t2157 * t793 - t270 * t18305 * t81 / 0.100e3;
12962   t18445 = -0.4e1 * t667 * t17184 + 0.4e1 * t205 * t17237 - 0.8e1 * t205 * t17234 + 0.4e1 * t205 * t274 * t6218 * t177 + 0.2e1 * t205 * t801 * t2166 * t177 - t91 * t18311 - 0.4e1 * t205 * t6140 * t421 - 0.96e2 * t18371 * t18335 + 0.2e1 * t205 * t84 * (t18404 + t18430) * t177 - 0.4e1 * t205 * t4363 * t643 + 0.32e2 * t1537 * t6133 * t274 - 0.2e1 * t205 * t2134 * t1144;
12963   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12964     v4rho2tau2[0] = -t3275 * t2250 / 0.6e1 - t1175 * t6523 - 0.8246500000000000000e0 * t3279 * t6526 * t443 - 0.3e1 / 0.8e1 * t201 * t7 * (t17221 + t18313 + t18352 + t18445) * t195 - 0.49479000000000000000e1 * t434 * t435 * t6521 * t443 - 0.29687400000000000000e2 * t1157 * t6526 * t1164 + 0.80541612095716256868e2 * t1168 * t2248 * t577 * t1170;
12965 
12966   t18533 = 0.18e2 * t2289 * t1797 * t1261 + 0.12e2 * t667 * t1855 * t1261 - 0.6e1 * t667 * t1262 * t1852 + 0.6e1 * t667 * t1264 * t1852 + 0.6e1 * t667 * t1796 * t1507 - 0.18e2 * t2289 * t6537 * t277 - 0.6e1 * t2289 * t6530 * t421 - 0.24e2 * t7558 * t6531 * t277 - 0.2e1 * t667 * t6602 * t277 - 0.6e1 * t667 * t483 * t5111 + 0.18e2 * t11552 * t4977;
12967   t18555 = t461 * t1823;
12968   t18556 = t18555 * t723;
12969   t18557 = t3321 * t18556;
12970   t18559 = t3331 * t18556;
12971   t18561 = t5705 * t18556;
12972   t18563 = t11081 * t6558;
12973   t18565 = t3034 * t6564;
12974   t18567 = t4065 * t6570;
12975   t18569 = t6839 * t1219;
12976   t18571 = 0.27e2 * t18557 - 0.105e3 * t18559 + 0.84e2 * t18561 + t5004 - t5008 - t5015 + t5018 + 0.450e3 * t18563 - 0.1120e4 * t18565 + 0.720e3 * t18567 - 0.18e2 * t18569;
12977   t18572 = t6555 * t264;
12978   t18574 = t3357 * t1823;
12979   t18575 = t2032 * t18574;
12980   t18579 = t242 * t6554 * t244 * t247;
12981   t18581 = t103 * t6554;
12982   t18582 = t18581 * t238;
12983   t18583 = t11071 * t18582;
12984   t18585 = t116 * t6554;
12985   t18586 = t18585 * t263;
12986   t18587 = t3390 * t18586;
12987   t18589 = 0.6e1 * t18572 + t5056 - t5064 - t6563 + t6569 - t6575 - t5073 + t5077 - 0.24e2 * t18575 + 0.9e1 * t18579 + 0.108e3 * t18583 - 0.108e3 * t18587;
12988   t18591 = t5032 * t1218;
12989   t18592 = t3390 * t18591;
12990   t18594 = t5672 * t6561;
12991   t18597 = t1205 * t3368 * t1823;
12992   t18599 = t18585 * t238;
12993   t18600 = t15143 * t18599;
12994   t18602 = t127 * t6554;
12995   t18603 = t18602 * t263;
12996   t18604 = t5020 * t18603;
12997   t18606 = t5021 * t1218;
12998   t18607 = t5020 * t18606;
12999   t18609 = t3376 * t1823;
13000   t18610 = t1226 * t18609;
13001   t18612 = t18602 * t238;
13002   t18613 = t10021 * t18612;
13003   t18615 = t768 * t6561;
13004   t18617 = t3395 * t6567;
13005   t18619 = t892 * t6573;
13006   t18621 = t140 * t6554;
13007   t18622 = t18621 * t263;
13008   t18623 = t3712 * t18622;
13009   t18625 = 0.162e3 * t18592 - 0.18e2 * t18594 - 0.18e2 * t18597 - 0.384e3 * t18600 + 0.288e3 * t18604 - 0.288e3 * t18607 + 0.42e2 * t18610 + 0.288e3 * t18613 - 0.90e2 * t18615 + 0.350e3 * t18617 - 0.280e3 * t18619 - 0.192e3 * t18623;
13010   t18626 = t5025 * t1218;
13011   t18627 = t3712 * t18626;
13012   t18629 = t1236 * t13793;
13013   t18630 = t1226 * t18629;
13014   t18632 = t18602 * t723;
13015   t18633 = t8110 * t18632;
13016   t18635 = t1236 * t13789;
13017   t18636 = t5020 * t18635;
13018   t18638 = t1279 * t13793;
13019   t18639 = t2032 * t18638;
13020   t18641 = t10130 * t101;
13021   t18642 = t18581 * t723;
13022   t18643 = t18641 * t18642;
13023   t18646 = t1205 * t1213 * t13793;
13024   t18648 = t14820 * t492;
13025   t18649 = t18585 * t723;
13026   t18650 = t18648 * t18649;
13027   t18652 = t1213 * t13789;
13028   t18653 = t3390 * t18652;
13029   t18656 = t32 * t6554 * t75;
13030   t18658 = 0.144e3 * t18627 - 0.84e2 * t18630 - 0.216e3 * t18633 - 0.120e3 * t18636 + 0.72e2 * t18639 - 0.135e3 * t18643 + 0.18e2 * t18646 + 0.336e3 * t18650 + 0.126e3 * t18653 - 0.30e2 * t18656 - t1826 + t1834;
13031   t18660 = t18571 + t18589 + t18625 + t18658;
13032   t18679 = t2502 * t1243;
13033   t18683 = t796 * t266 * t81;
13034   t18711 = t46 * t18660 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t6577 * t1248 - 0.9e1 / 0.100e3 * t5080 * t2041 - 0.9e1 / 0.100e3 * t1836 * t1255 - 0.9e1 / 0.100e3 * t1836 * t5085 + 0.9e1 / 0.50e2 * t1836 * t79 * t1255 - 0.9e1 / 0.100e3 * t1840 * t1251 + 0.3e1 / 0.20e2 * t6583 * t1248 + 0.9e1 / 0.50e2 * t1840 * t18679 - t6583 * t18683 / 0.10e2 - t270 * t18660 * t81 / 0.100e3 + t797 * t6576 * t266 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t5079 * t472 * t81 + 0.3e1 / 0.100e3 * t797 * t1835 * t1243 * t81 - 0.3e1 / 0.100e3 * t2512 * t1835 * t1255 - 0.3e1 / 0.100e3 * t2512 * t1846 * t1243 + t7958 * t6582 * t266 * t81 / 0.100e3;
13035   t18744 = 0.18009000000000000000e2 * t18557 - 0.70035000000000000000e2 * t18559 + 0.56028000000000000000e2 * t18561 + t5127 - t5128 - t5130 + t5131 - t5143 + t5149 + t5153 - t5157 - t5163 - t5167 + t5171 + t5179 + t5193 + t5197 - t5201 + 0.30015000000000000000e3 * t18563 - 0.74704000000000000000e3 * t18565;
13036   t18749 = -t5277 + t5284 + t5290 - t5305 - t5311 + t5314 - t5316 + t6695 - t6698 + t6701 - t6703;
13037   t18752 = t6708 - t6710 + t6712 - t6714 + t6716 - t6718 - t6720 + t6722 - t6725 - t6728;
13038   t18753 = t1294 * t6706;
13039   t18755 = t3784 * t6726;
13040   t18757 = t6730 - t6732 + t6734 - t6736 - t6738 + t6740 - t6741 - t5321 + t5323 + 0.6458927048331660e4 * t18753 - 0.10413085001667600000e5 * t18755;
13041   t18759 = t883 * t6693;
13042   t18761 = t1271 * t6573;
13043   t18763 = t3764 * t6699;
13044   t18765 = t3848 * t6706;
13045   t18767 = t1302 * t6726;
13046   t18769 = t3857 * t6693;
13047   t18771 = t906 * t6696;
13048   t18773 = t1278 * t6699;
13049   t18775 = t3639 * t6696;
13050   t18777 = t866 * t6706;
13051   t18780 = t1286 * t6696;
13052   t18782 = t5887 * t6723;
13053   t18784 = t875 * t6726;
13054   t18786 = t1231 * t6567;
13055   t18788 = t3828 * t6573;
13056   t18790 = t901 * t6699;
13057   t18792 = t18621 * t238;
13058   t18795 = t154 * t6554;
13059   t18796 = t18795 * t263;
13060   t18799 = t5239 * t1218;
13061   t18802 = t18795 * t238;
13062   t18805 = t167 * t6554;
13063   t18806 = t18805 * t263;
13064   t18809 = -0.13985969155152750e5 * t18780 - 0.64920361301600000000e3 * t18782 - 0.10123177674205800000e5 * t18784 - 0.4000999500e3 * t18786 + 0.92467544000000000000e3 * t18788 - 0.53346660000000000000e3 * t18790 - 0.29090815842717720e5 * t10045 * t18792 + 0.12121173267799050e5 * t3747 * t18796 - 0.7272703960679430e4 * t3747 * t18799 + 0.17223805462217760e5 * t10032 * t18802 - 0.6889522184887104e4 * t3760 * t18806;
13065   t18813 = t5243 * t1218;
13066   t18816 = t5207 * t1218;
13067   t18817 = t2105 * t18816;
13068   t18819 = t825 * t6554;
13069   t18820 = t18819 * t263;
13070   t18823 = t5213 * t1218;
13071   t18826 = t5281 * t1218;
13072   t18827 = t2090 * t18826;
13073   t18829 = t5268 * t1218;
13074   t18830 = t1480 * t18829;
13075   t18832 = t1486 * t18826;
13076   t18841 = t18805 * t238;
13077   t18844 = t385 * t6554;
13078   t18845 = t18844 * t263;
13079   t18848 = t5203 * t1218;
13080   t18867 = -0.3330414534772080e4 * t10011 * t18841 + 0.1295161207966920e4 * t3729 * t18845 - 0.555069089128680e3 * t3729 * t18848 - 0.1600399800e3 * t9964 * t18582 + 0.1066933200e3 * t3812 * t18586 - 0.1600399800e3 * t3812 * t18591 - 0.2005173881572176e4 * t10021 * t18599 + 0.1002586940786088e4 * t3712 * t18603 - 0.1002586940786088e4 * t3712 * t18606 + 0.17241408888541200e5 * t10026 * t18612 - 0.7662848394907200e4 * t3688 * t18622;
13081   t18872 = t2075 * t5474 * t1218;
13082   t18899 = t18844 * t238;
13083   t18906 = t5302 * t1218;
13084   t18907 = t1432 * t18906;
13085   t18909 = t1439 * t18816;
13086   t18915 = -0.4179735488131200e4 * t3760 * t18848 - 0.81837899513579520e5 * t14438 * t18841 + 0.35804081037191040e5 * t5518 * t18845 - 0.15344606158796160e5 * t5518 * t18848 + 0.26853060777893280e5 * t10011 * t18899 - 0.11934693679063680e5 * t3729 * t18820 + 0.4475510129648880e4 * t3729 * t18823 + 0.215297568277722e3 * t18907 - 0.312392550050028e3 * t18909 - 0.46504274747987952e5 * t10005 * t18841 + 0.19148819013877392e5 * t3722 * t18845;
13087   t18920 = t5225 * t1218;
13088   t18921 = t2067 * t18920;
13089   t18923 = t1447 * t18816;
13090   t18925 = t1453 * t18920;
13091   t18929 = t2655 * t6554;
13092   t18930 = t18929 * t263;
13093   t18933 = t5235 * t1218;
13094   t18936 = t18819 * t238;
13095   t18944 = t6666 * t1954;
13096   t18945 = t18944 * t6670;
13097   t18972 = 0.2243647686583296e4 * t18945 * t18929 * t238 - 0.934853202743040e3 * t6916 * t8576 * t6554 * t263 + 0.280455960822912e3 * t6916 * t5483 * t1218 - 0.15683918040e4 * t14551 * t18612 + 0.8962238880e3 * t5432 * t18622 - 0.6721679160e3 * t5432 * t18626 + 0.7681919040e3 * t10026 * t18792 - 0.4267732800e3 * t3688 * t18796 + 0.2560639680e3 * t3688 * t18799 - 0.9548447055105600e4 * t14505 * t18792 + 0.4774223527552800e4 * t5371 * t18796;
13098   t18976 = t2097 * t18906;
13099   t18978 = t1417 * t18826;
13100   t18980 = t1424 * t18906;
13101   t18988 = t1462 * t18609;
13102   t18990 = t1468 * t18574;
13103   t18999 = t2083 * t18829;
13104   t19001 = t1407 * t18574;
13105   t19003 = t1472 * t18829;
13106   t19017 = -0.5761439280e3 * t3818 * t18603 + 0.5761439280e3 * t3818 * t18606 - 0.320079960e2 * t18999 - 0.143226705826584e3 * t19001 + 0.226775617558758e3 * t19003 + 0.7734242114635536e4 * t10062 * t18612 - 0.3867121057317768e4 * t3768 * t18622 + 0.2900340792988326e4 * t3768 * t18626 + 0.42671133728455176e5 * t14462 * t18899 - 0.17966793148823232e5 * t5540 * t18820 + 0.6737547430808712e4 * t5540 * t18823;
13107   t19022 = t5180 * t379;
13108   t19023 = t19022 * t1312;
13109   t19044 = t18805 * t723;
13110   t19051 = -0.192096e3 * t18607 + 0.28014e2 * t18610 + 0.192096e3 * t18613 - 0.60030e2 * t18615 + 0.23345000000000000000e3 * t18617 - 0.18676000000000000000e3 * t18619 - 0.128064e3 * t18623 + 0.96048e2 * t18627 + 0.19427418119503800000e4 * t8140 * t19044 + 0.1600399800e3 * t8065 * t18642 + 0.15038804111791320000e4 * t8110 * t18649;
13111   t19056 = t5479 * t5474 * t3322;
13112   t19059 = t2075 * t13766 * t5655;
13113   t19061 = t18621 * t723;
13114   t19064 = t18795 * t723;
13115   t19067 = t5207 * t3322;
13116   t19068 = t5518 * t19067;
13117   t19070 = t5225 * t5655;
13118   t19071 = t2105 * t19070;
13119   t19073 = t5302 * t3322;
13120   t19074 = t3760 * t19073;
13121   t19076 = t5207 * t5655;
13122   t19077 = t1432 * t19076;
13123   t19079 = t3722 * t19067;
13124   t19082 = t1439 * t19070;
13125   t19084 = t10318 * t165;
13126   t19087 = t5225 * t3322;
13127   t19088 = t5540 * t19087;
13128   t19090 = t4087 * t18556;
13129   t19092 = t4093 * t18556;
13130   t19094 = t6054 * t18556;
13131   t19096 = t4100 * t18556;
13132   t19098 = t4106 * t18556;
13133   t19100 = t4060 * t18556;
13134   t19102 = t4066 * t18556;
13135   t19104 = t6039 * t18556;
13136   t19106 = 0.2186747850350196e4 * t19082 + 0.27355455734110560e5 * t19084 * t19044 + 0.2364051730108320e4 * t19088 - 0.3448281777708240e4 * t19090 + 0.6095447586858000e4 * t19092 - 0.2786490325420800e4 * t19094 + 0.41957907465458250000e4 * t19096 - 0.70196245188242850000e4 * t19098 + 0.1200299850e3 * t19100 - 0.2774026320e3 * t19102 + 0.1600399800e3 * t19104;
13137   t19109 = t4073 * t18556;
13138   t19111 = t4080 * t18556;
13139   t19113 = t6032 * t18556;
13140   t19115 = t6061 * t18556;
13141   t19117 = t4113 * t18556;
13142   t19119 = t4119 * t18556;
13143   t19121 = t6024 * t18556;
13144   t19123 = t4045 * t18556;
13145   t19125 = t5281 * t3322;
13146   t19126 = t5371 * t19125;
13147   t19128 = t5302 * t5655;
13148   t19129 = t2090 * t19128;
13149   t19132 = t5268 * t3322;
13150   t19133 = t3688 * t19132;
13151   t19135 = t5281 * t5655;
13152   t19136 = t1480 * t19135;
13153   t19138 = t3740 * t19125;
13154   t19140 = t1486 * t19128;
13155   t19142 = t10410 * t138;
13156   t19145 = t5398 * t19073;
13157   t19147 = t2097 * t19076;
13158   t19149 = t3747 * t19125;
13159   t19151 = t1417 * t19128;
13160   t19153 = t5474 * t5655;
13161   t19154 = t2067 * t19153;
13162   t19156 = t3729 * t19067;
13163   t19158 = 0.5747136296180400e4 * t19133 - 0.2298854518472160e4 * t19136 - 0.10449338720328000e5 * t19138 + 0.4353891133470000e4 * t19140 + 0.35109778100302080e5 * t19142 * t19061 + 0.4876358069486400e4 * t19145 - 0.2089867744065600e4 * t19147 - 0.7272703960679430e4 * t19149 + 0.2797193831030550e4 * t19151 - 0.945620692043328e3 * t19154 - 0.555069089128680e3 * t19156;
13164   t19160 = t1447 * t19070;
13165   t19162 = t3735 * t19087;
13166   t19164 = t1453 * t19153;
13167   t19166 = t10393 * t1312;
13168   t19167 = t18844 * t723;
13169   t19172 = t14198 * t557;
13170   t19175 = t5181 * t161;
13171   t19176 = t19175 * t1957;
13172   t19177 = t18819 * t723;
13173   t19180 = t14330 * t5233;
13174   t19184 = t17 * t6666 * t6667;
13175   t19186 = 0.1e1 / t150 / t124;
13176   t19187 = t19184 * t19186;
13177   t19191 = t14136 * t505;
13178   t19197 = t14154 * t518;
13179   t19200 = t14243 * t544;
13180   t19203 = t10350 * t125;
13181   t19206 = t3753 * t19073;
13182   t19208 = t1424 * t19076;
13183   t19210 = t10384 * t152;
13184   t19215 = t14180 * t531;
13185   t19220 = t2083 * t19135;
13186   t19222 = -0.5121279360e3 * t8031 * t19061 + 0.62064905858186400000e4 * t19197 * t19061 + 0.48591252836187840000e5 * t19200 * t19044 - 0.53172914538119310000e4 * t19203 * t18632 + 0.12387572680278150e5 * t19206 - 0.4955029072111260e4 * t19208 - 0.50948887636627875000e5 * t19210 * t19064 - 0.23871117637764000000e4 * t8077 * t19064 - 0.36224374230470400e5 * t19215 * t19064 + 0.12539206464393600e5 * t8090 * t19044 + 0.1280319840e3 * t19220;
13187   t19226 = t3712 * t18635;
13188   t19228 = t1407 * t18638;
13189   t19230 = t3768 * t19132;
13190   t19232 = t1472 * t19135;
13191   t19234 = t3812 * t18652;
13192   t19236 = t1462 * t18629;
13193   t19238 = t3818 * t18635;
13194   t19240 = t1468 * t18638;
13195   t19242 = t10328 * t114;
13196   t19245 = t5432 * t19132;
13197   t19257 = -0.56028e2 * t18630 - 0.14407200000000000000e3 * t18633 - 0.80040e2 * t18636 + 0.48024e2 * t18639 - 0.90045000000000000000e2 * t18643 + 0.12006e2 * t18646 + 0.22411200000000000000e3 * t18650 + 0.84042e2 * t18653 - 0.20010e2 * t18656 - t1869 + t1875;
13198   t19271 = t158 * t526 * t6667;
13199   t19278 = -t1973 + t1975 - t5331 + 0.25606396800000000000e4 * t5057 * t6684 + 0.17724304846039770000e5 * t5257 * t6687 + 0.82347801932106480000e5 * t3010 * t6656 - 0.25216551787822080e5 * t4050 * t6660 - 0.14282479486352000000e5 * t13916 * t6663 + 0.4206839412343680e4 * t19271 * t6672 - 0.37342662000000000000e4 * t3043 * t6675 + 0.17070931200e4 * t4079 * t6678;
13200   t19314 = -0.6475806039834600e4 * t4118 * t6610 - 0.5334666000e3 * t3330 * t6613 - 0.5012934703930440e4 * t4065 * t6616 + 0.38314241974536000e5 * t4079 * t6619 - 0.60605866338995250e5 * t4092 * t6622 + 0.34447610924435520e5 * t4105 * t6625 - t5341 + t5344 + t5352 + t5364 - t5367;
13201   t19317 = t4052 * t18556;
13202   t19319 = t6046 * t18556;
13203   t19321 = -t5440 - 0.48154677995461800000e3 * t19317 + 0.62064905858186400000e3 * t19319 + t5473 - t5477 + t5512 - t5515 + t5526 - t5528 - t5536 + t5538;
13204   t19328 = t6582 * t174 * t266;
13205   t19331 = t5548 * t1243;
13206   t19336 = t1497 * t5097;
13207   t19339 = t4134 * t1835;
13208   t19344 = t1497 * t5079;
13209   t19352 = t6576 * t174 * t266;
13210   t19368 = t416 * t417 * t18660 * t174 - t11298 * t19328 - 0.36e2 * t11302 * t19328 - 0.12e2 * t11311 * t19328 - 0.24e2 * t11319 * t19328 - 0.6e1 * t1496 * t19339 - 0.6e1 * t1496 * t19344 - 0.2e1 * t1496 * t19352 - 0.3e1 * t1504 * t19339 - 0.3e1 * t1504 * t19344 - t1504 * t19352 + 0.18e2 * t4130 * t19331 + 0.18e2 * t4138 * t19331 + 0.3e1 * t4150 * t19331 + 0.18e2 * t4130 * t19336 + 0.18e2 * t4138 * t19336 + 0.3e1 * t4150 * t19336;
13211   t19369 = my_piecewise3(t92, -0.12620518237031040000e4 * t19187 * t18929 * t723 - 0.20688301952728800000e5 * t3048 * t6681 + 0.16982962545542625000e6 * t5285 * t6637 + 0.7957039212588000e4 * t4092 * t6640 + 0.12074791410156800000e6 * t3064 * t6643 - 0.41797354881312000e5 * t4105 * t6646 - 0.16197084278729280000e6 * t3053 * t6649 + 0.52214284845903600e5 * t4118 * t6652 - 0.91184852447035200000e5 * t5306 * t6628 + 0.16462180617053220000e5 * t5211 * t6631 - 0.11703259366767360000e6 * t5272 * t6634 - 0.7681919040e3 * t19242 * t18649 + 0.11202798600e4 * t19191 * t18632 - 0.49386541851159660000e4 * t19166 * t19167 - 0.15664285453771080000e5 * t8140 * t19167 - 0.24704340579631944e5 * t19172 * t19167 + 0.7564965536346624e4 * t19176 * t19177 + 0.42847438459056000000e4 * t19180 * t19177 + 0.18181759901698575000e5 * t8077 * t19061 - 0.10334283277330656e5 * t8090 * t19064 - 0.11494272592360800e5 * t8031 * t18632 - 0.13238689688606592e5 * t19023 * t18936 + 0.83915814930916500e5 * t9981 * t18802 - 0.35963920684678500e5 * t3753 * t18806 + 0.17981960342339250e5 * t3753 * t18813 + 0.9602398800e3 * t10015 * t18599 - 0.7541149168793856e4 * t13771 * t18936 + 0.3085015569052032e4 * t5479 * t18930 - 0.1028338523017344e4 * t5479 * t18933 - 0.2864534116531680e4 * t5371 * t18799 - 0.8206636720233168e4 * t3722 * t18848 + 0.8588963800201680e4 * t9989 * t18899 + 0.5673724152259968e4 * t7021 * t18930 - 0.1891241384086656e4 * t7021 * t18933 + 0.5747136296180400e4 * t3688 * t18626 + 0.3819378822042240e4 * t10045 * t18802 - 0.1909689411021120e4 * t3747 * t18806 + 0.954844705510560e3 * t3747 * t18813 + 0.58864608124514400e5 * t14496 * t18802 - 0.27168280672852800e5 * t5398 * t18806 + 0.13584140336426400e5 * t5398 * t18813 - 0.20898677440656000e5 * t10032 * t18841 + 0.9752716138972800e4 * t3760 * t18845 - 0.55172508443331840e5 * t9996 * t18792 + 0.25078412928787200e5 * t3740 * t18796 - 0.15047047757272320e5 * t3740 * t18799 + 0.3444761092443552e4 * t3760 * t18813 - 0.3435585520080672e4 * t3735 * t18820 + 0.1288344570030252e4 * t3735 * t18823 - t1936 + t1921 - 0.358360394384832e3 * t19056 - 0.20318158622860000000e5 * t18775 + 0.92883010847360000000e4 * t18777 + 0.3123925500500280e4 * t19119 - 0.1300228451559576e4 * t19121 - 0.12472658965731690000e4 * t19111 + 0.19476108390480000000e3 * t19113 + 0.118202586505416e3 * t18921 - 0.29214162585720e2 * t18923 - 0.1002586940786088e4 * t19226 + 0.429680117479752e3 * t19228 + 0.574713629618040e3 * t18830 - 0.870778226694000e3 * t18832 + 0.43340948385319200000e4 * t18759 + t19321 - 0.95484470551056e2 * t18827 - t5414 + t5416 + t18809 - 0.1022495690500200e4 * t18767 + 0.16051559331820600000e4 * t18769 + 0.72036e2 * t18583 + t18744 + 0.30369533022617400000e4 * t19115 - 0.1937678114499498e4 * t19117 + 0.4002e1 * t18572 - 0.16008e2 * t18575 - 0.12006e2 * t18597 + 0.108054e3 * t18592 + 0.825838178685210e3 * t18980 - 0.319679294974920e3 * t18817 + 0.64452017621962800000e3 * t19109 - 0.12006e2 * t18569 - 0.1600399800e3 * t19234 + 0.800199900e2 * t19236 + t18752 - 0.400099950e2 * t18988 + 0.693506580e2 * t18990 + t18972 + t1951 + 0.4161039480e3 * t19238 - 0.2080519740e3 * t19240 + t5264 - 0.20688301952728800000e4 * t18771 + 0.11494272592360800e5 * t18773 + t19051 + t19017 + 0.3444761092443552e4 * t19074 + 0.60030000000000000000e1 * t18579 + t19278 + t5250 + t18749 + t5396 + t5221 + 0.480240e3 * t18567 + t18757 - 0.12006e2 * t18594 + 0.140227980411456e3 * t19059 + 0.23398748396080950000e5 * t18765 + t1899 + t19314 - 0.2148400587398760e4 * t18761 + 0.41575529885772300000e4 * t18763 + t19106 - 0.72036e2 * t18587 - t1905 - 0.1050329176061616e4 * t19126 - t5228 + t18867 + t1890 + t5382 - t5384 - 0.334989064316256e3 * t19164 - t1884 - t1914 + t19222 - t1945 + 0.192096e3 * t18604 - t5393 - t5256 + 0.30674870715006000000e3 * t19123 + t5425 - t5427 + t1930 + t5210 - 0.1291785409666332e4 * t19077 - 0.5623065900900504e4 * t19079 - 0.15580886712384e2 * t18872 - 0.256128e3 * t18600 + t18915 - t5410 + t5412 + 0.204499138100040e3 * t19160 + 0.879346293830172e3 * t19162 + 0.41873633039532e2 * t18925 - 0.5434548014573640e4 * t19068 + 0.2237755064824440e4 * t19071 + t19257 + 0.2040980558028822e4 * t19230 - 0.907102470235032e3 * t19232 + 0.348311290677600e3 * t18976 - 0.559438766206110e3 * t18978 - 0.2560639680e3 * t19245 + 0.477422352755280e3 * t19129 + t19158 - t5271, t19368);
13212   t19372 = t205 * (0.27e2 / 0.160e3 * t220 * t222 * t42 - 0.243e3 / 0.2560e4 * t689 * t1193 * t15 * sigma[0] * t42 + 0.24057e5 / 0.2048000e7 * t6546 * t4994 - 0.177147e6 / 0.81920000e8 * t7611 * t221 / t1334 * t42 + 0.6e1 * t1258 * t1849 + 0.6e1 * t479 * t5108 + 0.2e1 * t274 * t6598 + 0.2e1 * t84 * t18711) * t177 - t205 * t6601 * t421 + 0.6e1 * t667 * t6604 * t277 - 0.3e1 * t205 * t5111 * t566 - 0.3e1 * t205 * t1852 * t1507 + 0.6e1 * t667 * t6607 * t277 - 0.3e1 * t205 * t1261 * t1989 - 0.3e1 * t205 * t482 * t5569 - t205 * t277 * t6765 - t91 * t19369 + 0.1174e1 * t19369;
13213   t19378 = t5 * t1993;
13214   t19384 = 0.34068677267598468750e2 * t574 * t575 * t2014 * t429 * t1161 * t9459 + 0.62621859375000000000e1 * t5590 * t6791 - 0.12524371875000000000e2 * t574 * t1511 * t1161 * t2005 - 0.24739500000000000000e1 * t434 * t435 * t6768 * t443 + 0.17034338633799234375e2 * t1519 * t6811 + 0.19305583784972465625e3 * t576 * t6809 * t9 * t3270 - 0.13627470907039387500e3 * t1997 * t5612 + 0.41747906250000000000e2 * t576 * t4180 * t6784 * t207 + 0.14611767187500000000e3 * t9476 * t3250 * t2002 * t194 / t33 * t26 * t183 - t1175 * t6770 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t7 * (t18533 + t19372) * t195 - 0.90609313607680788976e2 * t19378 * t1532 + 0.27831937500000000000e1 * t574 * t5573 * t580;
13215   t19387 = t6795 * t50;
13216   t19393 = 0.1e1 / t690;
13217   t19418 = 0.69579843750000000000e0 * t1519 * t6803 - 0.11326164200960098622e3 * t1528 * t19387 * t1170 - 0.33978492602880295866e2 * t4177 * t6806 - 0.92427972442890327423e2 * t1528 * t19393 * t68 * t9459 + 0.31310929687500000000e2 * t1519 * t6786 - 0.87205650525523016197e0 * t1528 * t2483 * t19387 * t194 + 0.13591397041152118346e3 * t5586 * t5605 + 0.33978492602880295866e2 * t13675 * t2016 - 0.25048743750000000000e3 * t1997 * t5595 + 0.69764520420418412959e0 * t5586 * t5600 - 0.13915968750000000000e1 * t5581 * t2010 + 0.33398325000000000000e2 * t6773 * t1525 - 0.87205650525523016199e-1 * t4177 * t6798;
13218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13219     v4rhosigma3[0] = t19384 + t19418;
13220 
13221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13222     v4rhosigma2lapl[0] = 0.0e0;
13223 
13224   t19454 = t6894 * t177;
13225   t19458 = t2051 * t566;
13226   t19462 = t596 * t1989;
13227   t19466 = -0.48e2 * t11715 * t1538 * t1796 * t277 + 0.24e2 * t4208 * t1538 * t482 * t1261 - 0.4e1 * t1537 * t1538 * t5111 - 0.8e1 * t1537 * t16982 * t482 + 0.4e1 * t1537 * t4219 * t1852 - 0.4e1 * t1537 * t19454 * t277 + 0.8e1 * t1537 * t19458 * t277 + 0.4e1 * t1537 * t19462 * t277 - 0.12e2 * t4208 * t4219 * t1796 + 0.24e2 * t4208 * t5646 * t5617 + 0.24e2 * t16956 * t5618 - 0.8e1 * t16999 * t2019 - 0.8e1 * t5632 * t5623 - 0.8e1 * t5632 * t5647 + 0.8e1 * t5632 * t5751;
13228   t19467 = t667 * t1849;
13229   t19473 = t583 * t1816 * t723;
13230   t19474 = t14821 * t19473;
13231   t19477 = t583 * t1823 * t723;
13232   t19478 = t3331 * t19477;
13233   t19480 = t8109 * t1878;
13234   t19481 = t19480 * t19473;
13235   t19483 = t6032 * t19477;
13236   t19486 = t19184 * t19186 * t2655;
13237   t19489 = t5705 * t19477;
13238   t19491 = t10131 * t19473;
13239   t19493 = -t6915 - t6921 + t6925 - t6930 - t6935 + t6940 - t6945 + t6950 + 0.22411200000000000000e3 * t19474 - 0.23345000000000000000e2 * t19478 - 0.14407200000000000000e3 * t19481 + 0.64920361301600000000e2 * t19483 - 0.12620518237031040000e4 * t19486 * t19473 + 0.18676000000000000000e2 * t19489 - 0.90045000000000000000e2 * t19491;
13240   t19494 = t3321 * t19477;
13241   t19496 = t6839 * t1561;
13242   t19501 = 0.60030000000000000000e1 * t19494 - 0.4002e1 * t19496 + 0.12006000000000000000e2 * t18557 - 0.46690000000000000000e2 * t18559 + 0.37352000000000000000e2 * t18561 + t5127 - t5128 - t5130 + t5131 - t6954 + t6956 - t6960 - t5143 + t5149 + t5153;
13243   t19503 = -t5157 - t5163 - t5167 + t5171 + t5179 + t5193 + t5197 - t5201 + t5210 + t5221 - t5228 + t5250 - t5256 + t5264 - t5271;
13244   t19504 = t1722 * t13785;
13245   t19505 = t3712 * t19504;
13246   t19507 = t1572 * t13789;
13247   t19508 = t5020 * t19507;
13248   t19510 = t1722 * t13793;
13249   t19511 = t2032 * t19510;
13250   t19515 = t242 * t1816 * t244 * t1552;
13251   t19517 = t1555 * t13801;
13252   t19518 = t11071 * t19517;
13253   t19520 = t1572 * t14126;
13254   t19521 = t3390 * t19520;
13255   t19523 = t1555 * t13785;
13256   t19524 = t3390 * t19523;
13257   t19527 = t1205 * t1555 * t13793;
13258   t19529 = t1572 * t13801;
13259   t19530 = t15143 * t19529;
13260   t19532 = -t5277 + t5284 + t5290 - t5305 - t5311 + t5314 - t5316 + 0.64032e2 * t19505 - 0.26680e2 * t19508 + 0.16008e2 * t19511 + 0.60030000000000000000e1 * t19515 + 0.72036e2 * t19518 - 0.72036e2 * t19521 + 0.72036e2 * t19524 + 0.4002e1 * t19527 - 0.256128e3 * t19530;
13261   t19535 = t1722 * t14126;
13262   t19536 = t5020 * t19535;
13263   t19538 = t1572 * t13785;
13264   t19539 = t5020 * t19538;
13265   t19541 = t1555 * t13789;
13266   t19542 = t3390 * t19541;
13267   t19544 = t1572 * t13793;
13268   t19545 = t1226 * t19544;
13269   t19547 = t1722 * t13801;
13270   t19548 = t10021 * t19547;
13271   t19550 = t1722 * t13789;
13272   t19551 = t5432 * t19550;
13273   t19553 = t1669 * t13793;
13274   t19554 = t2083 * t19553;
13275   t19556 = t1669 * t13801;
13276   t19559 = t1676 * t14126;
13277   t19562 = t1669 * t13785;
13278   t19565 = t3712 * t19507;
13279   t19568 = t5479 * t1711 * t13789;
13280   t19571 = t2075 * t4570 * t13793;
13281   t19573 = t1669 * t14126;
13282   t19574 = t3712 * t19573;
13283   t19579 = 0.192096e3 * t19536 - 0.128064e3 * t19539 + 0.28014e2 * t19542 - 0.18676e2 * t19545 + 0.192096e3 * t19548 - 0.853546560e2 * t19551 + 0.426773280e2 * t19554 + 0.7681919040e3 * t10026 * t19556 - 0.4267732800e3 * t3688 * t19559 + 0.1707093120e3 * t3688 * t19562 - 0.334195646928696e3 * t19565 - 0.119453464794944e3 * t19568 + 0.46742660137152e2 * t19571 - 0.128064e3 * t19574 + 0.2243647686583296e4 * t18945 * t4570 * t13801;
13284   t19586 = t3812 * t19541;
13285   t19588 = t1462 * t19544;
13286   t19596 = t3818 * t19507;
13287   t19598 = t1468 * t19510;
13288   t19606 = -0.934853202743040e3 * t6916 * t13463 * t14126 + 0.186970640548608e3 * t6916 * t4570 * t13785 - 0.533466600e2 * t19586 + 0.266733300e2 * t19588 + 0.9602398800e3 * t10015 * t19529 - 0.5761439280e3 * t3818 * t19535 + 0.3840959520e3 * t3818 * t19538 + 0.1387013160e3 * t19596 - 0.693506580e2 * t19598 - 0.15683918040e4 * t14551 * t19547 + 0.8962238880e3 * t5432 * t19573 - 0.4481119440e3 * t5432 * t19504 + t6961 - t6962 + t6963;
13289   t19608 = -t6964 + t6965 - t6966 + t6967 - t6968 + t6969 - t6971 - t6972 + t6973 - t6974 - t6975 + t6976 - t6977 + t6978 - t6979;
13290   t19609 = t1407 * t19510;
13291   t19617 = t3768 * t19550;
13292   t19619 = t1472 * t19553;
13293   t19627 = t1669 * t13789;
13294   t19628 = t5371 * t19627;
13295   t19630 = t1676 * t13793;
13296   t19631 = t2090 * t19630;
13297   t19633 = t1676 * t13801;
13298   t19636 = t1689 * t14126;
13299   t19639 = t1676 * t13785;
13300   t19642 = t3688 * t19550;
13301   t19644 = t1480 * t19553;
13302   t19646 = 0.143226705826584e3 * t19609 + 0.7734242114635536e4 * t10062 * t19547 - 0.3867121057317768e4 * t3768 * t19573 + 0.1933560528658884e4 * t3768 * t19504 + 0.680326852676274e3 * t19617 - 0.302367490078344e3 * t19619 - 0.9548447055105600e4 * t14505 * t19556 + 0.4774223527552800e4 * t5371 * t19559 - 0.1909689411021120e4 * t5371 * t19562 - 0.350109725353872e3 * t19628 + 0.159140784251760e3 * t19631 + 0.3819378822042240e4 * t10045 * t19633 - 0.1909689411021120e4 * t3747 * t19636 + 0.636563137007040e3 * t3747 * t19639 + 0.1915712098726800e4 * t19642 - 0.766284839490720e3 * t19644;
13303   t19656 = t1711 * t13785;
13304   t19659 = t1689 * t13789;
13305   t19660 = t3729 * t19659;
13306   t19662 = t1700 * t13793;
13307   t19663 = t1447 * t19662;
13308   t19665 = t1676 * t13789;
13309   t19666 = t5398 * t19665;
13310   t19668 = t1689 * t13793;
13311   t19669 = t2097 * t19668;
13312   t19671 = t1689 * t13801;
13313   t19674 = t1700 * t14126;
13314   t19677 = t1689 * t13785;
13315   t19680 = t3747 * t19627;
13316   t19682 = t1417 * t19630;
13317   t19688 = 0.58864608124514400e5 * t14496 * t19633 - 0.27168280672852800e5 * t5398 * t19636 + 0.9056093557617600e4 * t5398 * t19639 - 0.1260827589391104e4 * t7021 * t19656 - 0.185023029709560e3 * t19660 + 0.68166379366680e2 * t19663 + 0.1625452689828800e4 * t19666 - 0.696622581355200e3 * t19669 - 0.20898677440656000e5 * t10032 * t19671 + 0.9752716138972800e4 * t3760 * t19674 - 0.2786490325420800e4 * t3760 * t19677 - 0.2424234653559810e4 * t19680 + 0.932397943676850e3 * t19682 + 0.83915814930916500e5 * t9981 * t19633 - 0.35963920684678500e5 * t3753 * t19636;
13318   t19691 = t3753 * t19665;
13319   t19693 = t1424 * t19668;
13320   t19701 = t5518 * t19659;
13321   t19703 = t2105 * t19662;
13322   t19705 = t1700 * t13801;
13323   t19708 = t3722 * t19659;
13324   t19710 = t1439 * t19662;
13325   t19714 = t1711 * t14126;
13326   t19717 = t1700 * t13785;
13327   t19720 = t1700 * t13789;
13328   t19721 = t5540 * t19720;
13329   t19723 = 0.11987973561559500e5 * t3753 * t19639 + 0.4129190893426050e4 * t19691 - 0.1651676357370420e4 * t19693 - 0.81837899513579520e5 * t14438 * t19671 + 0.35804081037191040e5 * t5518 * t19674 - 0.10229737439197440e5 * t5518 * t19677 - 0.1811516004857880e4 * t19701 + 0.745918354941480e3 * t19703 + 0.26853060777893280e5 * t10011 * t19705 - 0.1874355300300168e4 * t19708 + 0.728915950116732e3 * t19710 + 0.42671133728455176e5 * t14462 * t19705 - 0.17966793148823232e5 * t5540 * t19714 + 0.4491698287205808e4 * t5540 * t19717 + 0.788017243369440e3 * t19721;
13330   t19725 = t1711 * t13793;
13331   t19726 = t2067 * t19725;
13332   t19728 = t1711 * t13801;
13333   t19731 = t4570 * t14126;
13334   t19734 = t3760 * t19665;
13335   t19736 = t1432 * t19668;
13336   t19744 = t8139 * t1939;
13337   t19747 = t4113 * t19477;
13338   t19751 = t4119 * t19477;
13339   t19753 = -0.315206897347776e3 * t19726 - 0.13238689688606592e5 * t19023 * t19728 + 0.5673724152259968e4 * t7021 * t19731 + 0.1148253697481184e4 * t19734 - 0.430595136555444e3 * t19736 - 0.46504274747987952e5 * t10005 * t19671 + 0.19148819013877392e5 * t3722 * t19674 - 0.5471091146822112e4 * t3722 * t19677 - t6980 + t6981 - t6985 - 0.15664285453771080000e5 * t19744 * t19473 - 0.645892704833166e3 * t19747 + 0.27355455734110560e5 * t10319 * t19473 + 0.1041308500166760e4 * t19751;
13340   t19756 = t6024 * t19477;
13341   t19758 = t19175 * t1958;
13342   t19761 = t4045 * t19477;
13343   t19765 = t4060 * t19477;
13344   t19769 = t4066 * t19477;
13345   t19773 = t6039 * t19477;
13346   t19775 = t8030 * t1893;
13347   t19778 = t4073 * t19477;
13348   t19782 = t4080 * t19477;
13349   t19786 = t6046 * t19477;
13350   t19788 = -0.24704340579631944e5 * t14199 * t19473 - 0.433409483853192e3 * t19756 + 0.7564965536346624e4 * t19758 * t19473 + 0.10224956905002000000e3 * t19761 - 0.49386541851159660000e4 * t10394 * t19473 + 0.400099950e2 * t19765 - 0.7681919040e3 * t10329 * t19473 - 0.924675440e2 * t19769 + 0.11202798600e4 * t14137 * t19473 + 0.533466600e2 * t19773 - 0.5121279360e3 * t19775 * t19473 + 0.21484005873987600000e3 * t19778 - 0.53172914538119310000e4 * t10351 * t19473 - 0.41575529885772300000e3 * t19782 + 0.62064905858186400000e4 * t14155 * t19473 + 0.20688301952728800000e3 * t19786;
13351   t19791 = t8076 * t1908;
13352   t19794 = t4087 * t19477;
13353   t19798 = t6054 * t19477;
13354   t19802 = t4052 * t19477;
13355   t19806 = t4093 * t19477;
13356   t19820 = t8089 * t1924;
13357   t19823 = -0.23871117637764000000e4 * t19791 * t19473 - 0.1149427259236080e4 * t19794 - 0.36224374230470400e5 * t14181 * t19473 - 0.928830108473600e3 * t19798 - 0.10334283277330656e5 * t10354 * t19473 - 0.16051559331820600000e3 * t19802 + 0.42847438459056000000e4 * t14331 * t19473 + 0.2031815862286000e4 * t19806 - 0.11494272592360800e5 * t10440 * t19473 + 0.19427418119503800000e4 * t10325 * t19473 + 0.1600399800e3 * t10306 * t19473 + 0.15038804111791320000e4 * t10335 * t19473 + 0.35109778100302080e5 * t10411 * t19473 + 0.18181759901698575000e5 * t10379 * t19473 + 0.12539206464393600e5 * t19820 * t19473;
13358   t19824 = t4100 * t19477;
13359   t19828 = t4106 * t19477;
13360   t19832 = t6061 * t19477;
13361   t19842 = 0.13985969155152750000e4 * t19824 - 0.50948887636627875000e5 * t10385 * t19473 - 0.23398748396080950000e4 * t19828 + 0.48591252836187840000e5 * t14244 * t19473 + 0.10123177674205800000e4 * t19832 - t5321 + t5323 + 0.4305951365554440e4 * t18753 - 0.69420566677784000000e4 * t18755 + 0.28893965590212800000e4 * t18759 - 0.1432267058265840e4 * t18761 + 0.27717019923848200000e4 * t18763 + 0.15599165597387300000e5 * t18765 - 0.681663793666800e3 * t18767 + 0.10701039554547066667e4 * t18769;
13362   t19859 = -0.13792201301819200000e4 * t18771 + 0.7662848394907200e4 * t18773 - 0.13545439081906666667e5 * t18775 + 0.61922007231573333333e4 * t18777 - 0.9323979436768500e4 * t18780 - 0.43280240867733333333e3 * t18782 - 0.67487851161372000000e4 * t18784 - 0.2667333000e3 * t18786 + 0.61645029333333333333e3 * t18788 - 0.35564440000000000000e3 * t18790 - 0.213119529983280e3 * t18817 - 0.63656313700704e2 * t18827 + 0.383142419745360e3 * t18830 - 0.580518817796000e3 * t18832 - 0.10387257808256e2 * t18872;
13363   t19868 = t3740 * t19627;
13364   t19870 = t1486 * t19630;
13365   t19876 = t3735 * t19720;
13366   t19878 = t1453 * t19725;
13367   t19884 = 0.143531712185148e3 * t18907 - 0.208261700033352e3 * t18909 + 0.78801724336944e2 * t18921 - 0.19476108390480e2 * t18923 + 0.27915755359688e2 * t18925 + 0.232207527118400e3 * t18976 - 0.372959177470740e3 * t18978 + 0.550558785790140e3 * t18980 - 0.3483112906776000e4 * t19868 + 0.1451297044490000e4 * t19870 - 0.11934693679063680e5 * t3729 * t19714 + 0.2983673419765920e4 * t3729 * t19717 + 0.293115431276724e3 * t19876 - 0.111663021438752e3 * t19878 - 0.7541149168793856e4 * t13771 * t19728 + 0.3085015569052032e4 * t5479 * t19731;
13368   t19919 = -0.685559015344896e3 * t5479 * t19656 + 0.17223805462217760e5 * t10032 * t19633 - 0.6889522184887104e4 * t3760 * t19636 + 0.2296507394962368e4 * t3760 * t19639 + 0.17241408888541200e5 * t10026 * t19547 - 0.7662848394907200e4 * t3688 * t19573 + 0.3831424197453600e4 * t3688 * t19504 - 0.3330414534772080e4 * t10011 * t19671 + 0.1295161207966920e4 * t3729 * t19674 - 0.370046059419120e3 * t3729 * t19677 - 0.1600399800e3 * t9964 * t19517 + 0.1066933200e3 * t3812 * t19520 - 0.1066933200e3 * t3812 * t19523 - 0.2005173881572176e4 * t10021 * t19529 + 0.1002586940786088e4 * t3712 * t19535;
13369   t19945 = -0.668391293857392e3 * t3712 * t19538 - 0.55172508443331840e5 * t9996 * t19556 + 0.8588963800201680e4 * t9989 * t19705 - 0.3435585520080672e4 * t3735 * t19714 + 0.858896380020168e3 * t3735 * t19717 + 0.25078412928787200e5 * t3740 * t19559 - 0.10031365171514880e5 * t3740 * t19562 - 0.29090815842717720e5 * t10045 * t19556 + 0.12121173267799050e5 * t3747 * t19559 - 0.4848469307119620e4 * t3747 * t19562 - 0.266733300e2 * t18988 + 0.462337720e2 * t18990 - 0.213386640e2 * t18999 - 0.95484470551056e2 * t19001 + 0.151183745039172e3 * t19003;
13370   t19948 = t32 * t1816 * t584;
13371   t19964 = -0.20010e2 * t19948 - 0.10672e2 * t18575 - 0.8004e1 * t18594 - 0.8004e1 * t18597 + 0.18676e2 * t18610 - 0.40020e2 * t18615 + 0.15563333333333333333e3 * t18617 - 0.12450666666666666667e3 * t18619 - 0.238906929589888e3 * t19056 + 0.93485320274304e2 * t19059 - 0.3623032009715760e4 * t19068 + 0.1491836709882960e4 * t19071 + 0.2296507394962368e4 * t19074 - 0.861190273110888e3 * t19077 - 0.3748710600600336e4 * t19079;
13372   t19981 = 0.1457831900233464e4 * t19082 + 0.1576034486738880e4 * t19088 - 0.2298854518472160e4 * t19090 + 0.4063631724572000e4 * t19092 - 0.1857660216947200e4 * t19094 + 0.27971938310305500000e4 * t19096 - 0.46797496792161900000e4 * t19098 + 0.800199900e2 * t19100 - 0.1849350880e3 * t19102 + 0.1066933200e3 * t19104 + 0.42968011747975200000e3 * t19109 - 0.83151059771544600000e3 * t19111 + 0.12984072260320000000e3 * t19113 + 0.20246355348411600000e4 * t19115 - 0.1291785409666332e4 * t19117 + 0.2082617000333520e4 * t19119;
13373   t19999 = -0.866818967706384e3 * t19121 + 0.20449913810004000000e3 * t19123 - 0.700219450707744e3 * t19126 + 0.318281568503520e3 * t19129 + 0.3831424197453600e4 * t19133 - 0.1532569678981440e4 * t19136 - 0.6966225813552000e4 * t19138 + 0.2902594088980000e4 * t19140 + 0.3250905379657600e4 * t19145 - 0.1393245162710400e4 * t19147 - 0.4848469307119620e4 * t19149 + 0.1864795887353700e4 * t19151 - 0.630413794695552e3 * t19154 - 0.370046059419120e3 * t19156 + 0.136332758733360e3 * t19160;
13374   t20014 = t4262 * t1816;
13375   t20015 = t3390 * t20014;
13376   t20017 = 0.586230862553448e3 * t19162 - 0.223326042877504e3 * t19164 + 0.8258381786852100e4 * t19206 - 0.3303352714740840e4 * t19208 + 0.853546560e2 * t19220 - 0.668391293857392e3 * t19226 + 0.286453411653168e3 * t19228 + 0.1360653705352548e4 * t19230 - 0.604734980156688e3 * t19232 - 0.1066933200e3 * t19234 + 0.533466600e2 * t19236 + 0.2774026320e3 * t19238 - 0.1387013160e3 * t19240 - 0.1707093120e3 * t19245 + 0.36018e2 * t20015;
13377   t20019 = t5672 * t6846;
13378   t20022 = t1205 * t4280 * t1823;
13379   t20024 = t4269 * t1816;
13380   t20025 = t5020 * t20024;
13381   t20027 = t4262 * t1823;
13382   t20028 = t1226 * t20027;
13383   t20030 = t4436 * t1816;
13384   t20031 = t3712 * t20030;
13385   t20033 = t4269 * t1823;
13386   t20034 = t2032 * t20033;
13387   t20041 = -0.4002e1 * t20019 - 0.4002e1 * t20022 - 0.64032e2 * t20025 + 0.9338e1 * t20028 + 0.32016e2 * t20031 - 0.5336e1 * t20034 - 0.37352e2 * t18630 - 0.53360e2 * t18636 + 0.32016e2 * t18639 + 0.8004e1 * t18646 + 0.56028e2 * t18653 - t1869 + t1875 - t1884 + t1890;
13388   t20042 = t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - t5331 - t5341 + t5344 + t5352 + t5364 - t5367;
13389   t20054 = t5382 - t5384 - t5393 + t5396 - t5410 + t5412 - t5414 + t5416 + t5425 - t5427 - t5440 - 0.60605866338995250e5 * t5278 * t6931 + 0.34447610924435520e5 * t5291 * t6946 + 0.38314241974536000e5 * t5265 * t6856 - 0.6475806039834600e4 * t5202 * t6991;
13390   t20061 = t3857 * t7018;
13391   t20065 = t3639 * t6943;
13392   t20067 = t1294 * t6988;
13393   t20071 = t3784 * t7004;
13394   t20075 = t883 * t7018;
13395   t20079 = t1302 * t7004;
13396   t20083 = t866 * t6988;
13397   t20085 = -0.5334666000e3 * t5050 * t6842 - 0.5012934703930440e4 * t5251 * t6849 - 0.11703259366767360000e6 * t5273 * t6931 + 0.53505197772735333333e3 * t20061 - 0.14282479486352000000e5 * t13917 * t7022 - 0.67727195409533333333e4 * t20065 + 0.2152975682777220e4 * t20067 - 0.91184852447035200000e5 * t5307 * t6991 - 0.34710283338892000000e4 * t20071 + 0.82347801932106480000e5 * t3011 * t7007 + 0.14446982795106400000e4 * t20075 - 0.25216551787822080e5 * t5222 * t7022 - 0.340831896833400e3 * t20079 + 0.16462180617053220000e5 * t5212 * t7007 + 0.30961003615786666667e4 * t20083;
13398   t20089 = t1286 * t6943;
13399   t20093 = t3848 * t6988;
13400   t20097 = t875 * t7004;
13401   t20103 = t3764 * t6928;
13402   t20107 = t906 * t6943;
13403   t20111 = t1278 * t6928;
13404   t20117 = -0.41797354881312000e5 * t5291 * t6991 - 0.4661989718384250e4 * t20089 + 0.16982962545542625000e6 * t5286 * t6946 + 0.77995827986936500000e4 * t20093 - 0.16197084278729280000e6 * t3054 * t6991 - 0.33743925580686000000e4 * t20097 + 0.52214284845903600e5 * t5202 * t7007 + 0.17724304846039770000e5 * t5258 * t6856 + 0.13858509961924100000e4 * t20103 - 0.20688301952728800000e5 * t3049 * t6931 - 0.68961006509096000000e3 * t20107 + 0.7957039212588000e4 * t5278 * t6946 + 0.3831424197453600e4 * t20111 + 0.12074791410156800000e6 * t3065 * t6946 - 0.533466600e2 * t3812 * t20014;
13405   t20120 = t4388 * t1816;
13406   t20125 = t4395 * t1816;
13407   t20128 = t4465 * t1816;
13408   t20131 = t4406 * t1823;
13409   t20132 = t1447 * t20131;
13410   t20134 = t4418 * t1816;
13411   t20137 = t4418 * t1823;
13412   t20138 = t1453 * t20137;
13413   t20142 = t4388 * t1823;
13414   t20143 = t1486 * t20142;
13415   t20147 = t4406 * t1816;
13416   t20150 = t4436 * t1823;
13417   t20151 = t1480 * t20150;
13418   t20155 = t4395 * t1823;
13419   t20156 = t2097 * t20155;
13420   t20160 = -0.334195646928696e3 * t3712 * t20024 - 0.5015682585757440e4 * t3740 * t20120 - 0.2424234653559810e4 * t3747 * t20120 + 0.1148253697481184e4 * t3760 * t20125 - 0.630413794695552e3 * t7021 * t20128 - 0.9738054195240e1 * t20132 + 0.429448190010084e3 * t3735 * t20134 + 0.13957877679844e2 * t20138 - 0.342779507672448e3 * t5479 * t20128 - 0.290259408898000e3 * t20143 + 0.1915712098726800e4 * t3688 * t20030 - 0.185023029709560e3 * t3729 * t20147 + 0.191571209872680e3 * t20151 + 0.4528046778808800e4 * t5398 * t20125 + 0.116103763559200e3 * t20156 - 0.1393245162710400e4 * t3760 * t20147;
13421   t20163 = t1417 * t20142;
13422   t20167 = t1424 * t20155;
13423   t20171 = t2105 * t20131;
13424   t20175 = t1432 * t20155;
13425   t20179 = t1439 * t20131;
13426   t20183 = t2067 * t20137;
13427   t20186 = t2075 * t4465 * t1823;
13428   t20191 = t1462 * t20027;
13429   t20195 = -0.186479588735370e3 * t20163 + 0.5993986780779750e4 * t3753 * t20125 + 0.275279392895070e3 * t20167 - 0.5114868719598720e4 * t5518 * t20147 - 0.106559764991640e3 * t20171 + 0.1491836709882960e4 * t3729 * t20134 + 0.71765856092574e2 * t20175 - 0.2735545573411056e4 * t3722 * t20147 - 0.104130850016676e3 * t20179 + 0.2245849143602904e4 * t5540 * t20134 + 0.39400862168472e2 * t20183 - 0.5193628904128e1 * t20186 + 0.93485320274304e2 * t6916 * t13192 * t1816 - 0.133366650e2 * t20191 + 0.1920479760e3 * t3818 * t20024;
13430   t20196 = t1468 * t20033;
13431   t20200 = t2083 * t20150;
13432   t20204 = t1407 * t20033;
13433   t20208 = t1472 * t20150;
13434   t20212 = t2090 * t20142;
13435   t20216 = t19271 * t6670;
13436   t20219 = t1231 * t6853;
13437   t20223 = t3828 * t6860;
13438   t20227 = t901 * t6928;
13439   t20229 = 0.231168860e2 * t20196 - 0.2240559720e3 * t5432 * t20030 - 0.106693320e2 * t20200 + 0.853546560e2 * t3688 * t20120 - 0.47742235275528e2 * t20204 + 0.966780264329442e3 * t3768 * t20030 + 0.75591872519586e2 * t20208 - 0.954844705510560e3 * t5371 * t20120 - 0.31828156850352e2 * t20212 + 0.318281568503520e3 * t3747 * t20125 + 0.4206839412343680e4 * t20216 * t6917 - 0.1333666500e3 * t20219 + 0.25606396800000000000e4 * t5058 * t6849 + 0.30822514666666666667e3 * t20223 - 0.37342662000000000000e4 * t3044 * t6856 - 0.17782220000000000000e3 * t20227;
13440   t20233 = t1271 * t6860;
13441   t20235 = t5887 * t6913;
13442   t20237 = t892 * t6860;
13443   t20239 = t11082 * t6842;
13444   t20241 = t768 * t6846;
13445   t20243 = t3035 * t6849;
13446   t20245 = t3395 * t6853;
13447   t20247 = t5251 * t6856;
13448   t20249 = t7118 * t67;
13449   t20250 = t20249 * t5678;
13450   t20253 = t6839 * t67 * t1556;
13451   t20257 = 0.17070931200e4 * t5265 * t6931 - 0.716133529132920e3 * t20233 - 0.21640120433866666667e3 * t20235 - 0.62253333333333333334e2 * t20237 + 0.30015000000000000000e3 * t20239 - 0.20010e2 * t20241 - 0.74704000000000000000e3 * t20243 + 0.77816666666666666667e2 * t20245 + 0.480240e3 * t20247 - 0.8004e1 * t20250 + 0.4002e1 * t20253 - 0.32103118663641200000e3 * t19317 + 0.41376603905457600000e3 * t19319 + t5473 - t5477;
13452   t20258 = t5512 - t5515 + t5526 - t5528 - t5536 + t5538 + t6990 - t6995 + t6999 - t7006 + t7011 - t7015 + t7020 - t7026 + t7031 - t7035;
13453   t20264 = t1579 * t1835;
13454   t20265 = t20264 * t174;
13455   t20267 = t2047 * t4134;
13456   t20270 = t6890 * t3206;
13457   t20273 = t1775 * t5097;
13458   t20278 = t5727 * t1497;
13459   t20293 = -t11298 * t20270 - 0.36e2 * t11302 * t20270 - 0.12e2 * t11311 * t20270 - 0.24e2 * t11319 * t20270 - t1504 * t20265 + 0.12e2 * t4130 * t20267 + 0.12e2 * t4138 * t20267 + 0.6e1 * t4130 * t20273 + 0.6e1 * t4138 * t20273 + t4150 * t20273 + 0.12e2 * t4130 * t20278 + 0.12e2 * t4138 * t20278 + 0.2e1 * t4150 * t20278;
13460   t20296 = t5709 * t472;
13461   t20297 = t20296 * t174;
13462   t20300 = t2036 * t1243;
13463   t20301 = t20300 * t174;
13464   t20304 = t590 * t5079;
13465   t20305 = t20304 * t174;
13466   t20307 = t1579 * t1839;
13467   t20308 = t20307 * t174;
13468   t20321 = t6863 * t174 * t266;
13469   t20337 = 0.336e3 * t19474 - 0.35e2 * t19478 - 0.216e3 * t19481 + 0.28e2 * t19489 - 0.135e3 * t19491 + 0.9e1 * t19494 - 0.6e1 * t19496 + 0.18e2 * t18557 - 0.70e2 * t18559 + 0.56e2 * t18561 + t5004 - t5008 - t5015 + t5018 - t6848 + t6855 - t6862;
13470   t20353 = t5056 - t5064 + 0.96e2 * t19505 - 0.40e2 * t19508 + 0.24e2 * t19511 + 0.9e1 * t19515 + 0.108e3 * t19518 - 0.108e3 * t19521 + 0.108e3 * t19524 + 0.6e1 * t19527 - 0.384e3 * t19530 + 0.288e3 * t19536 - 0.192e3 * t19539 + 0.42e2 * t19542 - 0.28e2 * t19545 + 0.288e3 * t19548 - 0.192e3 * t19574;
13471   t20367 = -t6845 + t6852 - t6859 - t5073 + t5077 - 0.30e2 * t19948 - 0.16e2 * t18575 - 0.12e2 * t18594 - 0.12e2 * t18597 + 0.28e2 * t18610 - 0.60e2 * t18615 + 0.700e3 / 0.3e1 * t18617 - 0.560e3 / 0.3e1 * t18619 + 0.54e2 * t20015 - 0.6e1 * t20019 - 0.6e1 * t20022 - 0.96e2 * t20025;
13472   t20384 = 0.14e2 * t20028 + 0.48e2 * t20031 - 0.8e1 * t20034 - 0.56e2 * t18630 - 0.80e2 * t18636 + 0.48e2 * t18639 + 0.12e2 * t18646 + 0.84e2 * t18653 - t1826 + t1834 - 0.280e3 / 0.3e1 * t20237 + 0.450e3 * t20239 - 0.30e2 * t20241 - 0.1120e4 * t20243 + 0.350e3 / 0.3e1 * t20245 + 0.720e3 * t20247 - 0.12e2 * t20250 + 0.6e1 * t20253;
13473   t20386 = t20337 + t20353 + t20367 + t20384;
13474   t20390 = t416 * t417 * t20386 * t174 - 0.2e1 * t1496 * t20265 - 0.4e1 * t1496 * t20297 - 0.4e1 * t1496 * t20301 - 0.2e1 * t1496 * t20305 - 0.2e1 * t1496 * t20321 - 0.2e1 * t1504 * t20297 - 0.2e1 * t1504 * t20301 - t1504 * t20305 - t1504 * t20321 + 0.2e1 * t4150 * t20267 + 0.6e1 * t4130 * t20308 + 0.6e1 * t4138 * t20308 + t4150 * t20308;
13475   t20392 = my_piecewise3(t92, t20257 + t20258 + t20229 + t20195 + t20160 + t20041 + t20042 + t19964 + t19503 + t19501 + t19999 + t19842 + t19606 + t19884 + t19723 + t19788 + t19688 + t20085 + t19608 + t19646 + t19753 + t19579 + t19532 + t20017 + t20117 + t19919 + t20054 + t19981 + t19823 + t19859 + t19945 + t19493, t20293 + t20390);
13476   t20429 = -0.4e1 * t19467 * t1539 - 0.8e1 * t4212 * t6819 + 0.1174e1 * t20392 - 0.24e2 * t4208 * t5750 * t5617 + 0.8e1 * t5632 * t5626 + 0.8e1 * t1537 * t16959 * t482 + 0.8e1 * t1537 * t16963 * t482 + 0.8e1 * t1537 * t16967 * t482 + 0.8e1 * t4212 * t6822 + 0.2e1 * t205 * t1849 * t1592 * t177 + 0.12e2 * t4208 * t4215 * t1796 - 0.8e1 * t5632 * t5629 + 0.12e2 * t13583 * t6814 + 0.2e1 * t205 * t5108 * t596 * t177 + 0.4e1 * t205 * t479 * t5742 * t177;
13477   t20489 = -t2512 * t2036 * t1255 / 0.50e2 - t17045 * t5105 / 0.10e2 + 0.3e1 / 0.25e2 * t5721 * t5101 + 0.3e1 / 0.50e2 * t5721 * t5098 + t17050 * t5105 / 0.100e3 + 0.3e1 / 0.25e2 * t2037 * t79 * t1255 + 0.3e1 / 0.20e2 * t591 * t1839 * t1248 - t5739 * t5098 / 0.100e3 - t5739 * t5101 / 0.50e2 - t270 * t20386 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t1580 * t1846 + t797 * t20296 * t81 / 0.50e2 + t797 * t20300 * t81 / 0.50e2;
13478   t20526 = -0.3e1 / 0.100e3 * t591 * t77 * t5079 * t81 + 0.3e1 / 0.50e2 * t1580 * t6876 + t797 * t6863 * t266 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t1580 * t6872 - 0.3e1 / 0.100e3 * t591 * t5098 - 0.3e1 / 0.50e2 * t2037 * t5085 - 0.3e1 / 0.50e2 * t591 * t5101 - 0.3e1 / 0.50e2 * t5710 * t2041 - 0.3e1 / 0.50e2 * t2037 * t1255 - t2512 * t20307 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t6864 * t1248 + t797 * t20304 * t81 / 0.100e3 + t797 * t20264 * t81 / 0.100e3 + t46 * t20386 * t81 / 0.100e3;
13479   t20547 = 0.12e2 * t4208 * t1538 * t1852 * t277 - 0.4e1 * t1537 * t4215 * t1852 + 0.4e1 * t205 * t1258 * t2051 * t177 - 0.2e1 * t205 * t6828 * t421 - 0.4e1 * t205 * t5635 * t566 - 0.4e1 * t205 * t6832 * t421 - 0.4e1 * t205 * t5639 * t566 - 0.4e1 * t205 * t2022 * t1507 + 0.2e1 * t205 * t84 * (t20489 + t20526) * t177 - 0.4e1 * t4212 * t6825 + 0.8e1 * t1537 * t5750 * t1261 - t91 * t20392 + 0.2e1 * t667 * t1796 * t1784 - 0.2e1 * t205 * t1261 * t2123 - 0.2e1 * t205 * t482 * t6092;
13480   t20594 = 0.2e1 * t205 * t274 * t6894 * t177 - 0.2e1 * t205 * t6895 * t421 - t205 * t1852 * t1784 - 0.4e1 * t205 * t2052 * t1507 - t205 * t5111 * t643 - 0.4e1 * t205 * t5743 * t566 - 0.4e1 * t205 * t5650 * t566 - 0.2e1 * t205 * t597 * t5569 - 0.2e1 * t205 * t1593 * t1989 - 0.8e1 * t1537 * t5646 * t1261 + 0.4e1 * t667 * t2059 * t1261 - 0.2e1 * t205 * t1542 * t1989 - t205 * t277 * t7073 - 0.6e1 * t2289 * t6905 * t277 + 0.2e1 * t667 * t6908 * t277 + 0.4e1 * t667 * t6910 * t277;
13481   t20610 = t5 * t2127;
13482   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13483     v4rhosigma2tau[0] = -t1175 * t7078 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t7 * (t19466 + t20429 + t20547 + t20594) * t195 - 0.24739500000000000000e1 * t434 * t435 * t7076 * t443 + 0.18554625000000000000e1 * t574 * t6097 * t580 + 0.22265550000000000000e2 * t7081 * t1525 - 0.60406209071787192651e2 * t20610 * t1532 - 0.41747906250000000000e1 * t574 * t1788 * t1161 * t2005 - 0.83495812500000000000e2 * t2131 * t5595 + 0.23254840140139470986e0 * t6110 * t5600 - 0.46386562500000000000e0 * t6105 * t2010 + 0.45304656803840394488e2 * t6110 * t5605 + 0.11326164200960098622e2 * t17165 * t2016 - 0.45424903023464625000e2 * t2131 * t5612;
13484 
13485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13486     v4rhosigmalapl2[0] = 0.0e0;
13487 
13488   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13489     v4rhosigmalapltau[0] = 0.0e0;
13490 
13491   t20634 = t1538 * t5742;
13492   t20645 = t6133 * t482;
13493   t20649 = t32 * t461 * t2143;
13494   t20652 = t33 * t1218 * t2143;
13495   t20659 = -0.20010e2 * t20649 - 0.4002e1 * t20652 - t7187 - t7188 + t7189 - t7190 - t7191 + t7192 - t7193 + t7194 - 0.46690000000000000000e2 * t19478 + 0.12984072260320000000e3 * t19483 + 0.37352000000000000000e2 * t19489 + 0.12006000000000000000e2 * t19494 + 0.60030000000000000000e1 * t18557;
13496   t20662 = -0.23345000000000000000e2 * t18559 + 0.18676000000000000000e2 * t18561 + t5127 - t5128 - t5130 + t5131 - t7195 + t7196 - t7198 - t5143 + t5149 + t5153 - t5157 - t5163 - t5167;
13497   t20664 = t5171 + t5179 + t5193 + t5197 - t5201 + t5210 + t5221 - t5228 + t5250 - t5256 + t5264 - t5271 - t5277 + t5284 + t5290;
13498   t20677 = -t5305 - t5311 + t5314 - t5316 - 0.53360e2 * t19508 + 0.32016e2 * t19511 + 0.8004e1 * t19527 + 0.56028e2 * t19542 - 0.37352e2 * t19545 - 0.1707093120e3 * t19551 + 0.853546560e2 * t19554 - 0.668391293857392e3 * t19565 - 0.238906929589888e3 * t19568 + 0.93485320274304e2 * t19571 - 0.1066933200e3 * t19586 + 0.533466600e2 * t19588;
13499   t20682 = 0.2774026320e3 * t19596 - 0.1387013160e3 * t19598 + t7199 - t7200 + t7201 - t7202 + t7203 - t7204 + t7205 - t7206 + t7207 - t7208 - t7211 + t7212 - t7213;
13500   t20693 = -t7214 + t7215 - t7216 + t7217 - t7218 + 0.286453411653168e3 * t19609 + 0.1360653705352548e4 * t19617 - 0.604734980156688e3 * t19619 - 0.700219450707744e3 * t19628 + 0.318281568503520e3 * t19631 + 0.3831424197453600e4 * t19642 - 0.1532569678981440e4 * t19644 - 0.370046059419120e3 * t19660 + 0.136332758733360e3 * t19663 + 0.3250905379657600e4 * t19666;
13501   t20708 = -0.1393245162710400e4 * t19669 - 0.4848469307119620e4 * t19680 + 0.1864795887353700e4 * t19682 + 0.8258381786852100e4 * t19691 - 0.3303352714740840e4 * t19693 - 0.3623032009715760e4 * t19701 + 0.1491836709882960e4 * t19703 - 0.3748710600600336e4 * t19708 + 0.1457831900233464e4 * t19710 + 0.1576034486738880e4 * t19721 - 0.630413794695552e3 * t19726 + 0.2296507394962368e4 * t19734 - 0.861190273110888e3 * t19736 - t7223 + t7224;
13502   t20724 = -t7225 - 0.1291785409666332e4 * t19747 + 0.2082617000333520e4 * t19751 - 0.866818967706384e3 * t19756 + 0.20449913810004000000e3 * t19761 + 0.800199900e2 * t19765 - 0.1849350880e3 * t19769 + 0.1066933200e3 * t19773 + 0.42968011747975200000e3 * t19778 - 0.83151059771544600000e3 * t19782 + 0.41376603905457600000e3 * t19786 - 0.2298854518472160e4 * t19794 - 0.1857660216947200e4 * t19798 - 0.32103118663641200000e3 * t19802 + 0.4063631724572000e4 * t19806 + 0.27971938310305500000e4 * t19824;
13503   t20730 = t20249 * t6162;
13504   t20732 = t6158 * t1218;
13505   t20733 = t3390 * t20732;
13506   t20735 = t6147 * t1218;
13507   t20736 = t5020 * t20735;
13508   t20738 = t3035 * t7125;
13509   t20740 = t5251 * t7131;
13510   t20742 = t11082 * t7121;
13511   t20758 = -0.46797496792161900000e4 * t19828 + 0.20246355348411600000e4 * t19832 - 0.8004e1 * t20730 + 0.36018e2 * t20733 - 0.64032e2 * t20736 - 0.74704000000000000000e3 * t20738 + 0.480240e3 * t20740 + 0.30015000000000000000e3 * t20742 - 0.25216551787822080e5 * t5222 * t7254 + 0.16462180617053220000e5 * t5212 * t7229 + 0.52214284845903600e5 * t5202 * t7229 + 0.34447610924435520e5 * t5291 * t7232 - 0.6475806039834600e4 * t5202 * t7226 - 0.5334666000e3 * t5050 * t7121 + 0.25606396800000000000e4 * t5058 * t7125;
13512   t20773 = t6151 * t1218;
13513   t20774 = t3712 * t20773;
13514   t20776 = t20249 * t6159;
13515   t20778 = t6245 * t1218;
13516   t20783 = t6255 * t1218;
13517   t20786 = t6241 * t1218;
13518   t20793 = -0.5012934703930440e4 * t5251 * t7125 + 0.17070931200e4 * t5265 * t7266 - 0.20688301952728800000e5 * t3049 * t7266 + 0.7957039212588000e4 * t5278 * t7232 + 0.12074791410156800000e6 * t3065 * t7232 - 0.41797354881312000e5 * t5291 * t7226 - 0.16197084278729280000e6 * t3054 * t7226 + 0.32016e2 * t20774 + 0.4002e1 * t20776 - 0.1393245162710400e4 * t3760 * t20778 - 0.5114868719598720e4 * t5518 * t20778 + 0.1491836709882960e4 * t3729 * t20783 + 0.1148253697481184e4 * t3760 * t20786 - 0.185023029709560e3 * t3729 * t20778 - 0.533466600e2 * t3812 * t20732;
13519   t20807 = t6356 * t1218;
13520   t20814 = t6286 * t1218;
13521   t20827 = 0.1920479760e3 * t3818 * t20735 - 0.334195646928696e3 * t3712 * t20735 + 0.966780264329442e3 * t3768 * t20773 - 0.2240559720e3 * t5432 * t20773 - 0.2735545573411056e4 * t3722 * t20778 + 0.2245849143602904e4 * t5540 * t20783 - 0.630413794695552e3 * t7021 * t20807 + 0.429448190010084e3 * t3735 * t20783 - 0.342779507672448e3 * t5479 * t20807 + 0.853546560e2 * t3688 * t20814 - 0.11703259366767360000e6 * t5273 * t7266 - 0.60605866338995250e5 * t5278 * t7266 + 0.16982962545542625000e6 * t5286 * t7232 - 0.14282479486352000000e5 * t13917 * t7254 + 0.4206839412343680e4 * t20216 * t7261;
13522   t20856 = 0.38314241974536000e5 * t5265 * t7131 + 0.17724304846039770000e5 * t5258 * t7131 - 0.37342662000000000000e4 * t3044 * t7131 - 0.91184852447035200000e5 * t5307 * t7226 + 0.82347801932106480000e5 * t3011 * t7229 - t5321 + t5323 + 0.93485320274304e2 * t6916 * t6373 * t1218 + 0.1915712098726800e4 * t3688 * t20773 - 0.5015682585757440e4 * t3740 * t20814 - 0.2424234653559810e4 * t3747 * t20814 + 0.5993986780779750e4 * t3753 * t20786 - 0.954844705510560e3 * t5371 * t20814 + 0.318281568503520e3 * t3747 * t20786 + 0.4528046778808800e4 * t5398 * t20786 + 0.2152975682777220e4 * t18753;
13523   t20874 = -0.34710283338892000000e4 * t18755 + 0.14446982795106400000e4 * t18759 - 0.716133529132920e3 * t18761 + 0.13858509961924100000e4 * t18763 + 0.77995827986936500000e4 * t18765 - 0.340831896833400e3 * t18767 + 0.53505197772735333333e3 * t18769 - 0.68961006509096000000e3 * t18771 + 0.3831424197453600e4 * t18773 - 0.67727195409533333333e4 * t18775 + 0.30961003615786666667e4 * t18777 - 0.4661989718384250e4 * t18780 - 0.21640120433866666667e3 * t18782 - 0.33743925580686000000e4 * t18784 - 0.1333666500e3 * t18786;
13524   t20890 = 0.30822514666666666667e3 * t18788 - 0.17782220000000000000e3 * t18790 - 0.106559764991640e3 * t18817 - 0.31828156850352e2 * t18827 + 0.191571209872680e3 * t18830 - 0.290259408898000e3 * t18832 - 0.5193628904128e1 * t18872 + 0.71765856092574e2 * t18907 - 0.104130850016676e3 * t18909 + 0.39400862168472e2 * t18921 - 0.9738054195240e1 * t18923 + 0.13957877679844e2 * t18925 + 0.116103763559200e3 * t18976 - 0.186479588735370e3 * t18978 + 0.275279392895070e3 * t18980;
13525   t20901 = t6151 * t3322;
13526   t20902 = t10021 * t20901;
13527   t20904 = t6286 * t5655;
13528   t20905 = t3712 * t20904;
13529   t20907 = t1722 * t16556;
13530   t20908 = t3712 * t20907;
13531   t20912 = t242 * t461 * t244 * t6181;
13532   t20916 = -0.6966225813552000e4 * t19868 + 0.2902594088980000e4 * t19870 + 0.586230862553448e3 * t19876 - 0.223326042877504e3 * t19878 - 0.133366650e2 * t18988 + 0.231168860e2 * t18990 - 0.106693320e2 * t18999 - 0.47742235275528e2 * t19001 + 0.75591872519586e2 * t19003 + 0.192096e3 * t20902 - 0.128064e3 * t20905 + 0.64032e2 * t20908 + 0.60030000000000000000e1 * t20912 - 0.5336e1 * t18575 - 0.4002e1 * t18594;
13533   t20933 = -0.4002e1 * t18597 + 0.9338e1 * t18610 - 0.20010e2 * t18615 + 0.77816666666666666667e2 * t18617 - 0.62253333333333333334e2 * t18619 - 0.119453464794944e3 * t19056 + 0.46742660137152e2 * t19059 - 0.1811516004857880e4 * t19068 + 0.745918354941480e3 * t19071 + 0.1148253697481184e4 * t19074 - 0.430595136555444e3 * t19077 - 0.1874355300300168e4 * t19079 + 0.728915950116732e3 * t19082 + 0.788017243369440e3 * t19088 - 0.1149427259236080e4 * t19090 + 0.2031815862286000e4 * t19092;
13534   t20953 = -0.928830108473600e3 * t19094 + 0.13985969155152750000e4 * t19096 - 0.23398748396080950000e4 * t19098 + 0.400099950e2 * t19100 - 0.924675440e2 * t19102 + 0.533466600e2 * t19104 + 0.21484005873987600000e3 * t19109 - 0.41575529885772300000e3 * t19111 + 0.64920361301600000000e2 * t19113 + 0.10123177674205800000e4 * t19115 - 0.645892704833166e3 * t19117 + 0.1041308500166760e4 * t19119 - 0.433409483853192e3 * t19121 + 0.10224956905002000000e3 * t19123 - 0.350109725353872e3 * t19126;
13535   t20969 = 0.159140784251760e3 * t19129 + 0.1915712098726800e4 * t19133 - 0.766284839490720e3 * t19136 - 0.3483112906776000e4 * t19138 + 0.1451297044490000e4 * t19140 + 0.1625452689828800e4 * t19145 - 0.696622581355200e3 * t19147 - 0.2424234653559810e4 * t19149 + 0.932397943676850e3 * t19151 - 0.315206897347776e3 * t19154 - 0.185023029709560e3 * t19156 + 0.68166379366680e2 * t19160 + 0.293115431276724e3 * t19162 - 0.111663021438752e3 * t19164 + 0.4129190893426050e4 * t19206;
13536   t20986 = -0.1651676357370420e4 * t19208 + 0.426773280e2 * t19220 - 0.334195646928696e3 * t19226 + 0.143226705826584e3 * t19228 + 0.680326852676274e3 * t19230 - 0.302367490078344e3 * t19232 - 0.533466600e2 * t19234 + 0.266733300e2 * t19236 + 0.1387013160e3 * t19238 - 0.693506580e2 * t19240 - 0.853546560e2 * t19245 - 0.8004e1 * t20019 - 0.8004e1 * t20022 + 0.18676e2 * t20028 - 0.10672e2 * t20034;
13537   t20987 = t6286 * t3322;
13538   t20990 = t6241 * t5655;
13539   t20993 = t1669 * t16556;
13540   t21002 = t6241 * t3322;
13541   t21005 = t6245 * t5655;
13542   t21008 = t1676 * t16556;
13543   t21017 = t6245 * t3322;
13544   t21020 = t6255 * t5655;
13545   t21023 = t1689 * t16556;
13546   t21028 = 0.7681919040e3 * t10026 * t20987 - 0.4267732800e3 * t3688 * t20990 + 0.1707093120e3 * t3688 * t20993 - 0.9548447055105600e4 * t14505 * t20987 + 0.4774223527552800e4 * t5371 * t20990 - 0.1909689411021120e4 * t5371 * t20993 + 0.3819378822042240e4 * t10045 * t21002 - 0.1909689411021120e4 * t3747 * t21005 + 0.636563137007040e3 * t3747 * t21008 + 0.58864608124514400e5 * t14496 * t21002 - 0.27168280672852800e5 * t5398 * t21005 + 0.9056093557617600e4 * t5398 * t21008 - 0.20898677440656000e5 * t10032 * t21017 + 0.9752716138972800e4 * t3760 * t21020 - 0.2786490325420800e4 * t3760 * t21023 - 0.81837899513579520e5 * t14438 * t21017;
13547   t21031 = t6158 * t3322;
13548   t21032 = t11071 * t21031;
13549   t21034 = t6147 * t5655;
13550   t21035 = t3390 * t21034;
13551   t21037 = t1555 * t16556;
13552   t21038 = t3390 * t21037;
13553   t21040 = t6147 * t3322;
13554   t21041 = t15143 * t21040;
13555   t21043 = t6151 * t5655;
13556   t21044 = t5020 * t21043;
13557   t21046 = t1572 * t16556;
13558   t21047 = t5020 * t21046;
13559   t21049 = t6255 * t3322;
13560   t21052 = t6356 * t5655;
13561   t21055 = t1700 * t16556;
13562   t21070 = 0.72036e2 * t21032 - 0.72036e2 * t21035 + 0.72036e2 * t21038 - 0.256128e3 * t21041 + 0.192096e3 * t21044 - 0.128064e3 * t21047 + 0.8588963800201680e4 * t9989 * t21049 - 0.3435585520080672e4 * t3735 * t21052 + 0.858896380020168e3 * t3735 * t21055 + 0.35804081037191040e5 * t5518 * t21020 - 0.10229737439197440e5 * t5518 * t21023 + 0.26853060777893280e5 * t10011 * t21049 - 0.11934693679063680e5 * t3729 * t21052 + 0.2983673419765920e4 * t3729 * t21055 + 0.17223805462217760e5 * t10032 * t21002;
13563   t21100 = -0.6889522184887104e4 * t3760 * t21005 + 0.2296507394962368e4 * t3760 * t21008 - 0.3330414534772080e4 * t10011 * t21017 + 0.1295161207966920e4 * t3729 * t21020 - 0.370046059419120e3 * t3729 * t21023 - 0.1600399800e3 * t9964 * t21031 + 0.1066933200e3 * t3812 * t21034 - 0.1066933200e3 * t3812 * t21037 + 0.9602398800e3 * t10015 * t21040 - 0.5761439280e3 * t3818 * t21043 + 0.3840959520e3 * t3818 * t21046 - 0.2005173881572176e4 * t10021 * t21040 + 0.1002586940786088e4 * t3712 * t21043 - 0.668391293857392e3 * t3712 * t21046 - 0.18676e2 * t18630;
13564   t21106 = -0.26680e2 * t18636 + 0.16008e2 * t18639 + 0.4002e1 * t18646 + 0.28014e2 * t18653 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945;
13565   t21108 = t2142 * t461 * t723;
13566   t21109 = t10131 * t21108;
13567   t21111 = t14821 * t21108;
13568   t21113 = t19480 * t21108;
13569   t21135 = t1951 - t1973 + t1975 - 0.90045000000000000000e2 * t21109 + 0.22411200000000000000e3 * t21111 - 0.14407200000000000000e3 * t21113 - 0.5121279360e3 * t19775 * t21108 + 0.62064905858186400000e4 * t14155 * t21108 - 0.23871117637764000000e4 * t19791 * t21108 - 0.36224374230470400e5 * t14181 * t21108 + 0.12539206464393600e5 * t19820 * t21108 + 0.48591252836187840000e5 * t14244 * t21108 - 0.15664285453771080000e5 * t19744 * t21108 - 0.10334283277330656e5 * t10354 * t21108 + 0.19427418119503800000e4 * t10325 * t21108 + 0.1600399800e3 * t10306 * t21108;
13570   t21167 = -0.7681919040e3 * t10329 * t21108 + 0.15038804111791320000e4 * t10335 * t21108 - 0.53172914538119310000e4 * t10351 * t21108 + 0.11202798600e4 * t14137 * t21108 + 0.27355455734110560e5 * t10319 * t21108 - 0.24704340579631944e5 * t14199 * t21108 + 0.7564965536346624e4 * t19758 * t21108 - 0.49386541851159660000e4 * t10394 * t21108 + 0.42847438459056000000e4 * t14331 * t21108 - 0.12620518237031040000e4 * t19486 * t21108 - 0.11494272592360800e5 * t10440 * t21108 + 0.35109778100302080e5 * t10411 * t21108 + 0.18181759901698575000e5 * t10379 * t21108 - 0.50948887636627875000e5 * t10385 * t21108 - t5331;
13571   t21168 = -t5341 + t5344 + t5352 + t5364 - t5367 + t5382 - t5384 - t5393 + t5396 - t5410 + t5412 - t5414 + t5416 + t5425 - t5427;
13572   t21184 = -t5440 + 0.10701039554547066667e4 * t20061 - 0.13545439081906666667e5 * t20065 + 0.4305951365554440e4 * t20067 - 0.69420566677784000000e4 * t20071 + 0.28893965590212800000e4 * t20075 - 0.681663793666800e3 * t20079 + 0.61922007231573333333e4 * t20083 - 0.9323979436768500e4 * t20089 + 0.15599165597387300000e5 * t20093 - 0.67487851161372000000e4 * t20097 + 0.27717019923848200000e4 * t20103 - 0.13792201301819200000e4 * t20107 + 0.7662848394907200e4 * t20111 - 0.19476108390480e2 * t20132;
13573   t21201 = 0.27915755359688e2 * t20138 - 0.580518817796000e3 * t20143 + 0.383142419745360e3 * t20151 + 0.232207527118400e3 * t20156 - 0.372959177470740e3 * t20163 + 0.550558785790140e3 * t20167 - 0.213119529983280e3 * t20171 + 0.143531712185148e3 * t20175 - 0.208261700033352e3 * t20179 + 0.78801724336944e2 * t20183 - 0.10387257808256e2 * t20186 - 0.266733300e2 * t20191 + 0.462337720e2 * t20196 - 0.213386640e2 * t20200 - 0.95484470551056e2 * t20204 + 0.151183745039172e3 * t20208;
13574   t21215 = -0.63656313700704e2 * t20212 - 0.2667333000e3 * t20219 + 0.61645029333333333333e3 * t20223 - 0.35564440000000000000e3 * t20227 - 0.1432267058265840e4 * t20233 - 0.43280240867733333333e3 * t20235 - 0.12450666666666666667e3 * t20237 - 0.40020e2 * t20241 + 0.15563333333333333333e3 * t20245 - 0.16051559331820600000e3 * t19317 + 0.20688301952728800000e3 * t19319 + t5473 - t5477 + t5512 - t5515;
13575   t21218 = t6356 * t3322;
13576   t21221 = t6373 * t5655;
13577   t21224 = t1711 * t16556;
13578   t21246 = t5526 - t5528 - t5536 + t5538 - 0.35963920684678500e5 * t3753 * t21005 - 0.7541149168793856e4 * t13771 * t21218 + 0.3085015569052032e4 * t5479 * t21221 - 0.685559015344896e3 * t5479 * t21224 + 0.2243647686583296e4 * t18945 * t6373 * t3322 - 0.934853202743040e3 * t6916 * t17849 * t5655 + 0.186970640548608e3 * t6916 * t4570 * t16556 + 0.17241408888541200e5 * t10026 * t20901 + 0.7734242114635536e4 * t10062 * t20901 - 0.3867121057317768e4 * t3768 * t20904 + 0.1933560528658884e4 * t3768 * t20907 - 0.15683918040e4 * t14551 * t20901;
13579   t21278 = 0.8962238880e3 * t5432 * t20904 - 0.4481119440e3 * t5432 * t20907 - 0.46504274747987952e5 * t10005 * t21017 + 0.19148819013877392e5 * t3722 * t21020 - 0.5471091146822112e4 * t3722 * t21023 + 0.42671133728455176e5 * t14462 * t21049 - 0.17966793148823232e5 * t5540 * t21052 + 0.4491698287205808e4 * t5540 * t21055 - 0.13238689688606592e5 * t19023 * t21218 + 0.5673724152259968e4 * t7021 * t21221 - 0.1260827589391104e4 * t7021 * t21224 + 0.11987973561559500e5 * t3753 * t21008 - 0.7662848394907200e4 * t3688 * t20904 + 0.3831424197453600e4 * t3688 * t20907 - 0.55172508443331840e5 * t9996 * t20987;
13580   t21291 = 0.25078412928787200e5 * t3740 * t20990 - 0.10031365171514880e5 * t3740 * t20993 - 0.29090815842717720e5 * t10045 * t20987 + 0.12121173267799050e5 * t3747 * t20990 - 0.4848469307119620e4 * t3747 * t20993 + 0.83915814930916500e5 * t9981 * t21002 + t7288 - t7289 + t7290 - t7291 + t7292 - t7293 + t7294 - t7295 + t7296 - t7297;
13581   t21297 = t6214 * t1497;
13582   t21300 = t1775 * t5727;
13583   t21305 = t2047 * t4930;
13584   t21310 = t6506 * t1254;
13585   t21315 = t1775 * t5709;
13586   t21318 = t6497 * t1243;
13587   t21321 = t4930 * t2036;
13588   t21324 = t7136 * t174;
13589   t21325 = t21324 * t266;
13590   t21328 = t6506 * t1243;
13591   t21332 = t6191 * t174 * t472;
13592   t21335 = -0.36e2 * t11302 * t21297 - 0.12e2 * t11311 * t21297 - 0.4e1 * t1496 * t21315 - 0.4e1 * t1496 * t21321 - 0.2e1 * t1496 * t21325 - 0.2e1 * t1496 * t21328 - 0.2e1 * t1496 * t21332 + 0.12e2 * t4130 * t21300 + 0.12e2 * t4138 * t21300 + 0.12e2 * t4138 * t21305 + 0.6e1 * t4130 * t21310 + 0.6e1 * t4138 * t21310 + 0.6e1 * t4130 * t21318;
13593   t21364 = -0.30e2 * t20649 - 0.6e1 * t20652 - 0.70e2 * t19478 + 0.56e2 * t19489 + 0.18e2 * t19494 + 0.9e1 * t18557 - 0.35e2 * t18559 + 0.28e2 * t18561 + t5004 - t5008 - t5015 + t5018 - t7124 + t7128 - t7134 + t5056 - t5064;
13594   t21378 = -0.80e2 * t19508 + 0.48e2 * t19511 + 0.12e2 * t19527 + 0.84e2 * t19542 - 0.56e2 * t19545 - t7129 + t7130 - t7135 - 0.12e2 * t20730 + 0.54e2 * t20733 - 0.96e2 * t20736 - 0.1120e4 * t20738 + 0.720e3 * t20740 + 0.450e3 * t20742 + 0.48e2 * t20774 + 0.6e1 * t20776 - t5073;
13595   t21396 = t5077 + 0.288e3 * t20902 - 0.192e3 * t20905 + 0.96e2 * t20908 + 0.9e1 * t20912 - 0.8e1 * t18575 - 0.6e1 * t18594 - 0.6e1 * t18597 + 0.14e2 * t18610 - 0.30e2 * t18615 + 0.350e3 / 0.3e1 * t18617 - 0.280e3 / 0.3e1 * t18619 - 0.12e2 * t20019 - 0.12e2 * t20022 + 0.28e2 * t20028 - 0.16e2 * t20034 + 0.108e3 * t21032;
13596   t21413 = -0.108e3 * t21035 + 0.108e3 * t21038 - 0.384e3 * t21041 + 0.288e3 * t21044 - 0.192e3 * t21047 - 0.28e2 * t18630 - 0.40e2 * t18636 + 0.24e2 * t18639 + 0.6e1 * t18646 + 0.42e2 * t18653 - t1826 + t1834 - 0.135e3 * t21109 + 0.336e3 * t21111 - 0.216e3 * t21113 - 0.560e3 / 0.3e1 * t20237 - 0.60e2 * t20241 + 0.700e3 / 0.3e1 * t20245;
13597   t21415 = t21364 + t21378 + t21396 + t21413;
13598   t21419 = t416 * t417 * t21415 * t174 - t11298 * t21297 - 0.24e2 * t11319 * t21297 - 0.2e1 * t1504 * t21315 - 0.2e1 * t1504 * t21321 - t1504 * t21325 - t1504 * t21328 - t1504 * t21332 + 0.2e1 * t4150 * t21300 + 0.12e2 * t4130 * t21305 + 0.2e1 * t4150 * t21305 + t4150 * t21310 + 0.6e1 * t4138 * t21318 + t4150 * t21318;
13599   t21421 = my_piecewise3(t92, t21291 + t21278 + t21246 + t21215 + t21201 + t21184 + t21168 + t21167 + t21135 + t21106 + t21100 + t21070 + t21028 + t20986 + t20969 + t20953 + t20933 + t20916 + t20890 + t20874 + t20856 + t20827 + t20793 + t20758 + t20724 + t20708 + t20693 + t20682 + t20677 + t20662 + t20664 + t20659, t21335 + t21419);
13600   t21428 = t2139 * t1261;
13601   t21453 = -0.16e2 * t1537 * t2139 * t1258 - 0.16e2 * t6122 * t20634 - 0.4e1 * t205 * t2022 * t1784 - 0.4e1 * t205 * t5639 * t643 - 0.16e2 * t4212 * t7095 - 0.24e2 * t6115 * t20645 - t91 * t21421 - 0.4e1 * t1537 * t6136 * t1261 - 0.4e1 * t5632 * t6137 + 0.24e2 * t6115 * t21428 + 0.4e1 * t1537 * t18340 * t482 - t205 * t1261 * t2245 - 0.2e1 * t205 * t2134 * t1507 + 0.48e2 * t6115 * t1538 * t482 * t1592 + 0.48e2 * t6115 * t1538 * t2051 * t277 - 0.32e2 * t1537 * t1538 * t5650 - 0.96e2 * t18371 * t2139 * t5617;
13602   t21468 = t7165 * t177;
13603   t21472 = t2166 * t566;
13604   t21477 = t4215 * t2051;
13605   t21483 = t5750 * t1592;
13606   t21489 = t7108 * t277;
13607   t21492 = t4219 * t2051;
13608   t21507 = 0.48e2 * t4208 * t2139 * t482 * t274 - 0.32e2 * t1537 * t1538 * t5639 + 0.12e2 * t4208 * t6136 * t5617 + 0.48e2 * t4208 * t2139 * t479 * t277 - 0.4e1 * t1537 * t21468 * t277 + 0.4e1 * t1537 * t21472 * t277 + 0.1174e1 * t21421 - 0.16e2 * t6122 * t21477 + 0.16e2 * t1537 * t6133 * t479 + 0.16e2 * t6122 * t21483 + 0.16e2 * t1537 * t7108 * t274 - 0.24e2 * t6115 * t21489 + 0.16e2 * t6122 * t21492 - 0.8e1 * t17225 * t5623 + 0.12e2 * t2289 * t2134 * t1178 - 0.8e1 * t17225 * t5647 + 0.4e1 * t667 * t20645 + 0.8e1 * t667 * t2135 * t1507;
13609   t21526 = t2051 * t643;
13610   t21530 = t596 * t2123;
13611   t21556 = 0.2e1 * t205 * t1258 * t2166 * t177 + 0.2e1 * t205 * t479 * t6218 * t177 + 0.8e1 * t1537 * t6226 * t1261 + 0.8e1 * t1537 * t17193 * t482 + 0.8e1 * t1537 * t17197 * t482 + 0.8e1 * t1537 * t21526 * t277 + 0.8e1 * t1537 * t21530 * t277 - 0.4e1 * t205 * t5635 * t643 + 0.2e1 * t667 * t7185 * t277 + 0.4e1 * t205 * t20634 + 0.4e1 * t205 * t21477 - 0.4e1 * t205 * t21483 - 0.4e1 * t205 * t21492 - 0.4e1 * t667 * t21428 + 0.4e1 * t667 * t21489 + 0.8e1 * t4212 * t7173 + 0.8e1 * t5632 * t6227;
13612   t21557 = t2512 * t2152;
13613   t21592 = -t21557 * t1255 / 0.100e3 - t5739 * t5728 / 0.50e2 - 0.3e1 / 0.100e3 * t2157 * t1251 - 0.3e1 / 0.100e3 * t2153 * t1255 - 0.3e1 / 0.100e3 * t2153 * t5085 - 0.3e1 / 0.100e3 * t6192 * t2041 + t797 * t593 * t5709 / 0.50e2 - t2512 * t2156 * t1243 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t7137 * t1248 + t797 * t2152 * t1243 * t81 / 0.100e3 + t797 * t1585 * t2036 / 0.50e2 + t797 * t6191 * t472 * t81 / 0.100e3 + 0.3e1 / 0.50e2 * t2157 * t18679;
13614   t21624 = t2153 * t79;
13615   t21630 = t797 * t7136 * t266 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t591 * t790 * t5709 - 0.3e1 / 0.50e2 * t591 * t5732 - 0.3e1 / 0.50e2 * t1580 * t7142 - 0.3e1 / 0.50e2 * t591 * t5728 - t270 * t21415 * t81 / 0.100e3 - t5739 * t5732 / 0.50e2 + t7958 * t2156 * t1255 / 0.100e3 + 0.3e1 / 0.25e2 * t5721 * t5728 + 0.3e1 / 0.20e2 * t2157 * t472 * t1248 + 0.3e1 / 0.25e2 * t5721 * t5732 - t2157 * t796 * t1255 / 0.10e2 + 0.3e1 / 0.50e2 * t21624 * t1255 + t46 * t21415 * t81 / 0.100e3;
13616   t21685 = 0.2e1 * t205 * t84 * (t21592 + t21630) * t177 - t205 * t482 * t6518 - t205 * t277 * t7321 + 0.2e1 * t205 * t274 * t7165 * t177 - 0.2e1 * t205 * t7114 * t421 - 0.2e1 * t205 * t6219 * t566 - 0.4e1 * t205 * t2052 * t1784 - 0.4e1 * t205 * t5743 * t643 - 0.4e1 * t205 * t597 * t6092 - 0.4e1 * t205 * t5650 * t643 - 0.2e1 * t205 * t6140 * t566 - 0.2e1 * t205 * t7166 * t421 - 0.2e1 * t205 * t2167 * t1507 - 0.4e1 * t1537 * t18318 * t482 - 0.24e2 * t4208 * t6226 * t5617 - 0.4e1 * t4212 * t7111 - 0.4e1 * t205 * t1593 * t2123 - 0.4e1 * t205 * t1542 * t2123;
13617   t21701 = t5 * t2249;
13618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13619     v4rhosigmatau2[0] = -t1175 * t7326 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t7 * (t21453 + t21507 + t21556 + t21685) * t195 - 0.24739500000000000000e1 * t434 * t435 * t7324 * t443 + 0.92773125000000000000e0 * t574 * t6522 * t580 + 0.11132775000000000000e2 * t7329 * t1525 - 0.30203104535893596325e2 * t21701 * t1532;
13620 
13621   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13622     v4rholapl3[0] = 0.0e0;
13623 
13624   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13625     v4rholapl2tau[0] = 0.0e0;
13626 
13627   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13628     v4rholapltau2[0] = 0.0e0;
13629 
13630   t21713 = t1538 * t6218;
13631   t21716 = t6226 * t1592;
13632   t21730 = t7350 * t277;
13633   t21733 = t4219 * t2166;
13634   t21739 = t103 * t7353;
13635   t21740 = t21739 * t723;
13636   t21741 = t18641 * t21740;
13637   t21743 = -0.105e3 * t19478 + 0.84e2 * t19489 + 0.27e2 * t19494 + t5004 - t5008 - t5015 + t5018 - t7360 + t7364 - t7368 - 0.135e3 * t21741;
13638   t21744 = t116 * t7353;
13639   t21745 = t21744 * t723;
13640   t21746 = t18648 * t21745;
13641   t21748 = t127 * t7353;
13642   t21749 = t21748 * t723;
13643   t21750 = t8110 * t21749;
13644   t21753 = t32 * t7353 * t75;
13645   t21760 = 0.336e3 * t21746 - 0.216e3 * t21750 - 0.30e2 * t21753 + t5056 - t5064 - 0.120e3 * t19508 + 0.72e2 * t19511 + 0.18e2 * t19527 + 0.126e3 * t19542 - 0.84e2 * t19545 - t5073 + t5077;
13646   t21766 = t6147 * t1560;
13647   t21767 = t5020 * t21766;
13648   t21769 = t21748 * t238;
13649   t21770 = t10021 * t21769;
13650   t21772 = t140 * t7353;
13651   t21773 = t21772 * t263;
13652   t21774 = t3712 * t21773;
13653   t21778 = t242 * t7353 * t244 * t247;
13654   t21780 = t21739 * t238;
13655   t21781 = t11071 * t21780;
13656   t21783 = t21744 * t263;
13657   t21784 = t3390 * t21783;
13658   t21786 = -0.18e2 * t20019 - 0.18e2 * t20022 + 0.42e2 * t20028 - 0.24e2 * t20034 - t1826 + t1834 - 0.288e3 * t21767 + 0.288e3 * t21770 - 0.192e3 * t21774 + 0.9e1 * t21778 + 0.108e3 * t21781 - 0.108e3 * t21784;
13659   t21787 = t6158 * t1560;
13660   t21788 = t3390 * t21787;
13661   t21790 = t21744 * t238;
13662   t21791 = t15143 * t21790;
13663   t21793 = t21748 * t263;
13664   t21794 = t5020 * t21793;
13665   t21796 = t6151 * t1560;
13666   t21797 = t3712 * t21796;
13667   t21803 = t33 * t2142 * t1561;
13668   t21805 = t7354 * t264;
13669   t21807 = t3034 * t7361;
13670   t21809 = t4065 * t7365;
13671   t21811 = t11081 * t7357;
13672   t21813 = 0.162e3 * t21788 - 0.384e3 * t21791 + 0.288e3 * t21794 + 0.144e3 * t21797 - 0.280e3 * t20237 - 0.90e2 * t20241 + 0.350e3 * t20245 - 0.18e2 * t21803 + 0.6e1 * t21805 - 0.1120e4 * t21807 + 0.720e3 * t21809 + 0.450e3 * t21811;
13673   t21815 = t21743 + t21760 + t21786 + t21813;
13674   t21862 = t46 * t21815 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t7370 * t1248 - 0.9e1 / 0.100e3 * t6192 * t7374 - 0.9e1 / 0.100e3 * t2153 * t1589 - 0.9e1 / 0.100e3 * t2153 * t6197 + 0.9e1 / 0.50e2 * t21624 * t1589 - 0.9e1 / 0.100e3 * t2157 * t1585 + 0.3e1 / 0.20e2 * t7378 * t1248 + 0.9e1 / 0.50e2 * t2157 * t2502 * t1579 - t7378 * t18683 / 0.10e2 - t270 * t21815 * t81 / 0.100e3 + t797 * t7369 * t266 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t6191 * t590 * t81 + 0.3e1 / 0.100e3 * t797 * t2152 * t1579 * t81 - 0.3e1 / 0.100e3 * t21557 * t1589 - 0.3e1 / 0.100e3 * t2512 * t2163 * t1579 + t7958 * t7377 * t266 * t81 / 0.100e3;
13675   t21871 = t2289 * t7332;
13676   t21872 = t2139 * t1592;
13677   t21875 = t7333 * t177;
13678   t21876 = t21875 * t274;
13679   t21881 = t7558 * t7332;
13680   t21882 = t21875 * t277;
13681   t21887 = t4215 * t2166;
13682   t21892 = 0.72e2 * t6115 * t1538 * t2166 * t277 - 0.48e2 * t1537 * t1538 * t6140 + 0.6e1 * t205 * t21713 - 0.12e2 * t205 * t21716 - 0.6e1 * t205 * t2167 * t1784 - 0.6e1 * t205 * t6219 * t643 - 0.6e1 * t205 * t2134 * t1784 - t205 * t277 * t7528 + 0.12e2 * t667 * t21730 - 0.6e1 * t205 * t21733 + 0.2e1 * t205 * t84 * t21862 * t177 + 0.2e1 * t205 * t274 * t7393 * t177 + 0.144e3 * t21871 * t21872 + 0.144e3 * t6115 * t21876 - 0.72e2 * t1537 * t21872 - 0.192e3 * t21881 * t21882 + 0.72e2 * t4208 * t21882 - 0.24e2 * t6122 * t21887 + 0.48e2 * t6122 * t21716;
13683   t21904 = t7393 * t177;
13684   t21927 = t167 * t7353;
13685   t21928 = t21927 * t723;
13686   t21931 = t385 * t7353;
13687   t21932 = t21931 * t723;
13688   t21937 = t21772 * t723;
13689   t21940 = t154 * t7353;
13690   t21941 = t21940 * t723;
13691   t21946 = t825 * t7353;
13692   t21947 = t21946 * t723;
13693   t21952 = -t7404 - t7405 + t7406 - t7407 - t7408 + t7409 - t7410 + t7411 - 0.70035000000000000000e2 * t19478 + 0.19476108390480000000e3 * t19483 + 0.56028000000000000000e2 * t19489 + 0.18009000000000000000e2 * t19494 + 0.27355455734110560e5 * t19084 * t21928 - 0.49386541851159660000e4 * t19166 * t21932 - 0.11494272592360800e5 * t8031 * t21749 + 0.18181759901698575000e5 * t8077 * t21937 - 0.10334283277330656e5 * t8090 * t21941 - 0.24704340579631944e5 * t19172 * t21932 + 0.7564965536346624e4 * t19176 * t21947 + 0.42847438459056000000e4 * t19180 * t21947;
13694   t21953 = t2655 * t7353;
13695   t21988 = 0.12539206464393600e5 * t8090 * t21928 + 0.48591252836187840000e5 * t19200 * t21928 - 0.15664285453771080000e5 * t8140 * t21932 + 0.19427418119503800000e4 * t8140 * t21928 + 0.1600399800e3 * t8065 * t21740 + 0.15038804111791320000e4 * t8110 * t21745 + t5127 - t5128 - t5130 + t5131 - t7412;
13696   t21996 = -t5167 + t5171 + t5179 + t5193 + t5197 - t5201 - 0.20010e2 * t21753 + t5210 + t5221 - t5228 + t5250;
13697   t22010 = -0.80040e2 * t19508 + 0.48024e2 * t19511 + 0.12006e2 * t19527 + 0.84042e2 * t19542 - 0.56028e2 * t19545 - 0.2560639680e3 * t19551 + 0.1280319840e3 * t19554 - 0.1002586940786088e4 * t19565 - 0.358360394384832e3 * t19568 + 0.140227980411456e3 * t19571 - 0.1600399800e3 * t19586;
13698   t22036 = -0.555069089128680e3 * t19660 + 0.204499138100040e3 * t19663 + 0.4876358069486400e4 * t19666 - 0.2089867744065600e4 * t19669 - 0.7272703960679430e4 * t19680 + 0.2797193831030550e4 * t19682 + 0.12387572680278150e5 * t19691 - 0.4955029072111260e4 * t19693 - 0.5434548014573640e4 * t19701 + 0.2237755064824440e4 * t19703 - 0.5623065900900504e4 * t19708;
13699   t22060 = -0.2774026320e3 * t19769 + 0.1600399800e3 * t19773 + 0.64452017621962800000e3 * t19778 - 0.12472658965731690000e4 * t19782 + 0.62064905858186400000e3 * t19786 - 0.3448281777708240e4 * t19794 - 0.2786490325420800e4 * t19798 - 0.48154677995461800000e3 * t19802 + 0.6095447586858000e4 * t19806 + 0.41957907465458250000e4 * t19824 - 0.70196245188242850000e4 * t19828;
13700   t22075 = t21940 * t238;
13701   t22078 = t21927 * t263;
13702   t22081 = t6241 * t1560;
13703   t22086 = t8576 * t7353;
13704   t22093 = t21772 * t238;
13705   t22096 = t21940 * t263;
13706   t22099 = t6286 * t1560;
13707   t22102 = -0.16008e2 * t20034 - 0.5761439280e3 * t3818 * t21793 + 0.83915814930916500e5 * t9981 * t22075 - 0.35963920684678500e5 * t3753 * t22078 + 0.17981960342339250e5 * t3753 * t22081 + 0.9602398800e3 * t10015 * t21790 - 0.934853202743040e3 * t6916 * t22086 * t263 + 0.280455960822912e3 * t6916 * t6373 * t1560 - 0.55172508443331840e5 * t9996 * t22093 + 0.25078412928787200e5 * t3740 * t22096 - 0.15047047757272320e5 * t3740 * t22099;
13708   t22107 = t21953 * t263;
13709   t22110 = t6356 * t1560;
13710   t22113 = t21946 * t238;
13711   t22123 = t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975 - 0.13238689688606592e5 * t19023 * t22113;
13712   t22128 = t21931 * t238;
13713   t22131 = t21946 * t263;
13714   t22134 = t6255 * t1560;
13715   t22165 = -0.256128e3 * t21791 + 0.192096e3 * t21794 + 0.7681919040e3 * t10026 * t22093 + 0.7734242114635536e4 * t10062 * t21769 - 0.3867121057317768e4 * t3768 * t21773 + 0.2900340792988326e4 * t3768 * t21796 - 0.15683918040e4 * t14551 * t21769 + 0.8962238880e3 * t5432 * t21773 - 0.6721679160e3 * t5432 * t21796 + 0.58864608124514400e5 * t14496 * t22075 - 0.27168280672852800e5 * t5398 * t22078;
13716   t22192 = t21927 * t238;
13717   t22195 = t21931 * t263;
13718   t22198 = t6245 * t1560;
13719   t22213 = -0.11934693679063680e5 * t3729 * t22131 + 0.4475510129648880e4 * t3729 * t22134 - 0.20898677440656000e5 * t10032 * t22192 + 0.9752716138972800e4 * t3760 * t22195 - 0.4179735488131200e4 * t3760 * t22198 - 0.81837899513579520e5 * t14438 * t22192 + 0.35804081037191040e5 * t5518 * t22195 - 0.15344606158796160e5 * t5518 * t22198 + 0.26853060777893280e5 * t10011 * t22128 - 0.7272703960679430e4 * t3747 * t22099 + 0.17223805462217760e5 * t10032 * t22075;
13720   t22258 = -0.1002586940786088e4 * t3712 * t21766 - 0.46504274747987952e5 * t10005 * t22192 + 0.17241408888541200e5 * t10026 * t21769 - 0.7662848394907200e4 * t3688 * t21773 + 0.5747136296180400e4 * t3688 * t21796 - 0.29090815842717720e5 * t10045 * t22093 + 0.12121173267799050e5 * t3747 * t22096 + 0.96048e2 * t21797 + 0.19148819013877392e5 * t3722 * t22195 - 0.8206636720233168e4 * t3722 * t22198 + 0.8588963800201680e4 * t9989 * t22128;
13721   t22267 = -t5393 + t5396 - t5410 + t5412 - t5414 + t5416 + t5425 - t5427 - t5440 + 0.16051559331820600000e4 * t20061 - 0.20318158622860000000e5 * t20065;
13722   t22293 = 0.11494272592360800e5 * t20111 - 0.29214162585720e2 * t20132 + 0.41873633039532e2 * t20138 - 0.870778226694000e3 * t20143 + 0.574713629618040e3 * t20151 + 0.348311290677600e3 * t20156 - 0.559438766206110e3 * t20163 + 0.825838178685210e3 * t20167 - 0.319679294974920e3 * t20171 + 0.215297568277722e3 * t20175 - 0.312392550050028e3 * t20179;
13723   t22322 = -0.53346660000000000000e3 * t20227 - 0.2148400587398760e4 * t20233 - 0.64920361301600000000e3 * t20235 - 0.18676000000000000000e3 * t20237 - 0.60030e2 * t20241 + 0.23345000000000000000e3 * t20245 + 0.4206839412343680e4 * t19271 * t7482 - 0.11703259366767360000e6 * t5272 * t7485 + 0.16982962545542625000e6 * t5285 * t7488 + 0.25606396800000000000e4 * t5057 * t7416 + 0.17724304846039770000e5 * t5257 * t7419;
13724   t22363 = 0.38314241974536000e5 * t4079 * t7462 - 0.60605866338995250e5 * t4092 * t7465 + 0.34447610924435520e5 * t4105 * t7468 - 0.6475806039834600e4 * t4118 * t7447 - 0.5334666000e3 * t3330 * t7450 - 0.5012934703930440e4 * t4065 * t7453 - 0.91184852447035200000e5 * t5306 * t7456 - 0.16197084278729280000e6 * t3053 * t7441 + 0.52214284845903600e5 * t4118 * t7444 - 0.20688301952728800000e5 * t3048 * t7429 + 0.7957039212588000e4 * t4092 * t7432;
13725   t22372 = t5538 + t7495 - t7496 + t7497 - t7498 + t7499 - t7500 + t7501 - t7502 + t7503 - t7504;
13726   t22378 = t7377 * t174;
13727   t22379 = t22378 * t266;
13728   t22382 = t6497 * t1579;
13729   t22387 = t1775 * t6207;
13730   t22390 = t4930 * t2152;
13731   t22395 = t1775 * t6191;
13732   t22402 = t7369 * t174;
13733   t22403 = t22402 * t266;
13734   t22419 = t416 * t417 * t21815 * t174 - t11298 * t22379 - 0.36e2 * t11302 * t22379 - 0.12e2 * t11311 * t22379 - 0.24e2 * t11319 * t22379 - 0.6e1 * t1496 * t22390 - 0.6e1 * t1496 * t22395 - 0.2e1 * t1496 * t22403 - 0.3e1 * t1504 * t22390 - 0.3e1 * t1504 * t22395 - t1504 * t22403 + 0.18e2 * t4130 * t22382 + 0.18e2 * t4138 * t22382 + 0.3e1 * t4150 * t22382 + 0.18e2 * t4130 * t22387 + 0.18e2 * t4138 * t22387 + 0.3e1 * t4150 * t22387;
13735   t22420 = my_piecewise3(t92, -0.12620518237031040000e4 * t19187 * t21953 * t723 + 0.2243647686583296e4 * t18945 * t21953 * t238 + t22372 + t22363 + t22322 + t22293 + t22267 + t22258 + t22213 + t22165 + t22123 + t22102 + t22060 + t22036 + t22010 + t21996 + t21988 + t21952 + 0.30015000000000000000e3 * t21811 + 0.4002e1 * t21805 - 0.74704000000000000000e3 * t21807 + 0.480240e3 * t21809 - 0.12006e2 * t21803 + 0.108054e3 * t21788 + 0.72036e2 * t21781 - 0.72036e2 * t21784 + 0.60030000000000000000e1 * t21778 + 0.192096e3 * t21770 - 0.128064e3 * t21774 - 0.192096e3 * t21767 - 0.14407200000000000000e3 * t21750 + 0.22411200000000000000e3 * t21746 - 0.90045000000000000000e2 * t21741 + 0.92467544000000000000e3 * t20223 - 0.4000999500e3 * t20219 - 0.95484470551056e2 * t20212 + 0.226775617558758e3 * t20208 - 0.143226705826584e3 * t20204 - 0.320079960e2 * t20200 + 0.693506580e2 * t20196 - 0.400099950e2 * t20191 + 0.118202586505416e3 * t20183 - 0.15580886712384e2 * t20186 + 0.35109778100302080e5 * t19142 * t21937 - 0.50948887636627875000e5 * t19210 * t21941 - 0.7681919040e3 * t19242 * t21745 - 0.53172914538119310000e4 * t19203 * t21749 + 0.11202798600e4 * t19191 * t21749 - 0.5121279360e3 * t8031 * t21937 - 0.41797354881312000e5 * t4105 * t7438 + 0.16462180617053220000e5 * t5211 * t7459 - 0.14282479486352000000e5 * t13916 * t7479 + 0.12074791410156800000e6 * t3064 * t7435 - 0.37342662000000000000e4 * t3043 * t7422 + 0.17070931200e4 * t4079 * t7426 + 0.82347801932106480000e5 * t3010 * t7471 - 0.25216551787822080e5 * t4050 * t7476 - 0.2005173881572176e4 * t10021 * t21790 + 0.1002586940786088e4 * t3712 * t21793 - 0.3435585520080672e4 * t3735 * t22131 + 0.1288344570030252e4 * t3735 * t22134 - 0.6889522184887104e4 * t3760 * t22078 + 0.3444761092443552e4 * t3760 * t22081 - 0.3330414534772080e4 * t10011 * t22192 + 0.1295161207966920e4 * t3729 * t22195 - 0.555069089128680e3 * t3729 * t22198 - 0.1600399800e3 * t9964 * t21780 + 0.1066933200e3 * t3812 * t21783 - 0.1600399800e3 * t3812 * t21787 + 0.13584140336426400e5 * t5398 * t22081 + 0.5761439280e3 * t3818 * t21766 + 0.2560639680e3 * t3688 * t22099 - 0.9548447055105600e4 * t14505 * t22093 + 0.4774223527552800e4 * t5371 * t22096 - 0.2864534116531680e4 * t5371 * t22099 + 0.3819378822042240e4 * t10045 * t22075 - 0.1909689411021120e4 * t3747 * t22078 + 0.954844705510560e3 * t3747 * t22081 - 0.4267732800e3 * t3688 * t22096 + 0.42671133728455176e5 * t14462 * t22128 - 0.17966793148823232e5 * t5540 * t22131 + 0.6737547430808712e4 * t5540 * t22134 + 0.5673724152259968e4 * t7021 * t22107 - 0.1891241384086656e4 * t7021 * t22110 - 0.7541149168793856e4 * t13771 * t22113 + 0.3085015569052032e4 * t5479 * t22107 - 0.1028338523017344e4 * t5479 * t22110 + 0.62064905858186400000e4 * t19197 * t21937 - 0.23871117637764000000e4 * t8077 * t21941 - 0.36224374230470400e5 * t19215 * t21941 - t5277 - t5163 - t5143 - 0.1050329176061616e4 * t19628 + 0.800199900e2 * t19588 + t5512 - t5311 + 0.41575529885772300000e4 * t20103 + t5149 + 0.23398748396080950000e5 * t20093 - t5528 - t5331 + 0.43340948385319200000e4 * t20075 + 0.30674870715006000000e3 * t19761 - t5477 - 0.10449338720328000e5 * t19868 - 0.907102470235032e3 * t19619 - 0.945620692043328e3 * t19726 - 0.334989064316256e3 * t19878 + t5364 - 0.10123177674205800000e5 * t20097 - t5367 + t5290 + t5264 + 0.4353891133470000e4 * t19870 + 0.477422352755280e3 * t19631 - t5536 + 0.879346293830172e3 * t19876 + t5284 - 0.20688301952728800000e4 * t20107 + t5344 - t5321 + 0.2364051730108320e4 * t19721 + 0.5747136296180400e4 * t19642 - 0.2298854518472160e4 * t19644 - 0.12006e2 * t20022 - t5157 - 0.12006e2 * t20019 - t5515 + 0.3123925500500280e4 * t19751 + t5473 + 0.429680117479752e3 * t19609 + t7413 - t7414 + t5153 - 0.1022495690500200e4 * t20079 - 0.13985969155152750e5 * t20089 + t5526 - 0.1300228451559576e4 * t19756 + t1875 + 0.30369533022617400000e4 * t19832 + 0.1200299850e3 * t19765 + t1890 + 0.2040980558028822e4 * t19617 + t5382 - t5384 - t1884 - t5256 + 0.28014e2 * t20028 - t5341 + 0.92883010847360000000e4 * t20083 + 0.2186747850350196e4 * t19710 + t5323 + 0.6458927048331660e4 * t20067 + t5314 - t5316 + t5352 - 0.1937678114499498e4 * t19747 - t1869 - 0.10413085001667600000e5 * t20071 - 0.1291785409666332e4 * t19736 - t5305 + 0.3444761092443552e4 * t19734 + 0.4161039480e3 * t19596 - 0.2080519740e3 * t19598 - t5271, t22419);
13736   t22435 = t2166 * t643;
13737   t22439 = t596 * t2245;
13738   t22444 = -0.72e2 * t6115 * t21730 + 0.48e2 * t1537 * t7350 * t274 + 0.24e2 * t6122 * t21733 - 0.24e2 * t6122 * t21713 - 0.12e2 * t17225 * t6137 - 0.4e1 * t1537 * t21904 * t277 - 0.2e1 * t205 * t7394 * t421 - 0.6e1 * t205 * t6140 * t643 - 0.6e1 * t205 * t1593 * t2245 - 0.6e1 * t205 * t597 * t6518 - 0.6e1 * t205 * t1542 * t2245 + 0.1174e1 * t22420 + 0.6e1 * t205 * t21887 + 0.24e2 * t667 * t2135 * t1784 + 0.24e2 * t667 * t7338 * t421 - 0.48e2 * t2289 * t7334 * t421 - 0.24e2 * t667 * t21876 + 0.12e2 * t1537 * t22435 * t277 + 0.12e2 * t1537 * t22439 * t277 - t91 * t22420;
13739   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13740     v4rhotau3[0] = -t1175 * t7533 / 0.2e1 - 0.3e1 / 0.8e1 * t201 * t7 * (t21892 + t22444) * t195 - 0.24739500000000000000e1 * t434 * t435 * t7531 * t443;
13741 
13742   t22454 = t1796 * t1796;
13743   t22464 = t1852 * t1852;
13744   t22489 = t1849 * t1849;
13745   t22493 = t5032 * t1823;
13746   t22494 = t3390 * t22493;
13747   t22496 = t6839 * t1824;
13748   t22498 = t1816 * t1816;
13749   t22500 = t468 * t56;
13750   t22501 = t465 * t22498 * t22500;
13751   t22504 = t15142 * t1828 * t22498;
13752   t22507 = t8477 * t347 * t22498;
13753   t22510 = t10061 * t14140 * t22498;
13754   t22515 = t1823 * t1823;
13755   t22517 = t715 * t75 * t22515;
13756   t22518 = 0.18e2 * t22517;
13757   t22519 = t5021 * t1823;
13758   t22520 = t5020 * t22519;
13759   t22523 = t1225 * t468 * t22515;
13760   t22524 = 0.42e2 * t22523;
13761   t22525 = t5025 * t1823;
13762   t22526 = t3712 * t22525;
13763   t22529 = t1827 * t1828 * t22515;
13764   t22530 = 0.24e2 * t22529;
13765   t22531 = 0.324e3 * t22494 - 0.36e2 * t22496 + 0.120e3 * t22501 - 0.600e3 * t22504 + 0.864e3 * t22507 - 0.384e3 * t22510 + 0.56e2 * t6568 - 0.32e2 * t6574 - 0.24e2 * t6562 - t1826 + t1834 - t22518 - 0.576e3 * t22520 + t22524 + 0.288e3 * t22526 - t22530;
13766   t22539 = t1835 * t1835;
13767   t22545 = t1839 * t1839;
13768   t22546 = t46 * t22545;
13769   t22568 = t46 * t22531 * t81 / 0.100e3 - 0.3e1 / 0.25e2 * t6577 * t2041 - 0.9e1 / 0.50e2 * t1836 * t1846 - 0.9e1 / 0.100e3 * t46 * t22539 * t790 + 0.9e1 / 0.25e2 * t1836 * t6876 + 0.3e1 / 0.20e2 * t22546 * t790 - t22546 * t7941 / 0.10e2 - t270 * t22531 * t81 / 0.100e3 + t797 * t6576 * t472 * t81 / 0.25e2 + 0.3e1 / 0.100e3 * t797 * t22539 * t81 - 0.3e1 / 0.50e2 * t2512 * t1835 * t1839 * t81 + t7958 * t22545 * t81 / 0.100e3;
13770   t22588 = 0.12006e2 * t22517;
13771   t22589 = 0.28014e2 * t22523;
13772   t22590 = 0.16008e2 * t22529;
13773   t22597 = -0.24012e2 * t22496 + 0.80040e2 * t22501 - 0.400200e3 * t22504 + 0.576288e3 * t22507 - 0.256128e3 * t22510 - t22588 + t22589 - t22590 + 0.55831510719376e2 * t6694 - 0.127312627401408e3 * t6697 + 0.766284839490720e3 * t6700 - 0.1161037635592000e4 * t6702 + 0.464415054236800e3 * t6707 - 0.745918354941480e3 * t6709;
13774   t22610 = t5207 * t1816;
13775   t22611 = t3722 * t22610;
13776   t22613 = t5225 * t1816;
13777   t22614 = t5540 * t22613;
13778   t22616 = t5474 * t1816;
13779   t22617 = t7021 * t22616;
13780   t22619 = 0.1101117571580280e4 * t6711 - 0.533466600e2 * t6713 + 0.924675440e2 * t6715 - 0.426773280e2 * t6717 - 0.190968941102112e3 * t6719 + 0.302367490078344e3 * t6721 - 0.20774515616512e2 * t6724 - 0.426239059966560e3 * t6727 + 0.287063424370296e3 * t6729 - 0.416523400066704e3 * t6731 + 0.157603448673888e3 * t6733 - 0.38952216780960e2 * t6735 - 0.16413273440466336e5 * t22611 + 0.13475094861617424e5 * t22614 - 0.3782482768173312e4 * t22617;
13781   t22621 = t3735 * t22613;
13782   t22623 = t3729 * t22610;
13783   t22625 = t3812 * t22493;
13784   t22627 = t3712 * t22519;
13785   t22629 = t3688 * t22525;
13786   t22632 = t6916 * t13766 * t1816;
13787   t22634 = t3768 * t22525;
13788   t22636 = t5432 * t22525;
13789   t22638 = t5239 * t1823;
13790   t22639 = t3688 * t22638;
13791   t22641 = t5302 * t1816;
13792   t22642 = t3747 * t22641;
13793   t22644 = t3740 * t22638;
13794   t22646 = t5398 * t22641;
13795   t22648 = t3760 * t22610;
13796   t22650 = t3753 * t22641;
13797   t22652 = t3747 * t22638;
13798   t22654 = 0.2576689140060504e4 * t22621 - 0.1110138178257360e4 * t22623 - 0.3200799600e3 * t22625 - 0.2005173881572176e4 * t22627 + 0.11494272592360800e5 * t22629 + 0.560911921645824e3 * t22632 + 0.5800681585976652e4 * t22634 - 0.13443358320e4 * t22636 + 0.5121279360e3 * t22639 + 0.1909689411021120e4 * t22642 - 0.30094095514544640e5 * t22644 + 0.27168280672852800e5 * t22646 - 0.8359470976262400e4 * t22648 + 0.35963920684678500e5 * t22650 - 0.14545407921358860e5 * t22652;
13799   t22655 = t3760 * t22641;
13800   t22657 = t3729 * t22613;
13801   t22659 = t3818 * t22519;
13802   t22664 = t5371 * t22638;
13803   t22666 = t5479 * t22616;
13804   t22668 = t5518 * t22610;
13805   t22675 = 0.215297568277722e3 * t1095 * t155 * t22515;
13806   t22678 = 0.312392550050028e3 * t1438 * t545 * t22515;
13807   t22681 = 0.118202586505416e3 * t1938 * t1939 * t22515;
13808   t22682 = 0.6889522184887104e4 * t22655 + 0.8951020259297760e4 * t22657 + 0.11522878560e4 * t22659 - 0.16008e2 * t6562 + 0.37352e2 * t6568 - 0.21344e2 * t6574 - 0.5729068233063360e4 * t22664 - 0.2056677046034688e4 * t22666 - 0.30689212317592320e5 * t22668 - 0.384192e3 * t22520 + 0.192096e3 * t22526 + 0.216108e3 * t22494 + t22675 - t22678 + t22681;
13809   t22687 = 0.29214162585720e2 * t819 * t168 * t22515;
13810   t22690 = 0.41873633039532e2 * t1452 * t558 * t22515;
13811   t22705 = 0.15580886712384e2 * t1955 * t1958 * t22515;
13812   t22716 = t9 * t15052 * t554;
13813   t22726 = t9 * t158 * t120 * t147 * t110;
13814   t22728 = 0.1e1 / t150 / t326;
13815   t22729 = t22728 * t8576;
13816   t22736 = -t22687 + t22690 - 0.3330414534772080e4 * t8538 * t168 * t22498 - 0.1600399800e3 * t8441 * t104 * t22498 - 0.2005173881572176e4 * t8477 * t117 * t22498 + 0.17241408888541200e5 * t8448 * t128 * t22498 - t22705 + 0.98461222852275360e5 * t8538 * t386 * t22498 - 0.23869387358127360e5 * t9988 * t14202 * t22498 - 0.49172275986253056e5 * t19022 * t4055 * t22498 + 0.11347448304519936e5 * t22716 * t14334 * t22498 + 0.8413678824687360e4 * t18944 * t6671 * t22498 - 0.1869706405486080e4 * t22726 * t22729 * t22498 + 0.25606396800e4 * t8448 * t357 * t22498;
13817   t22781 = 0.693506580e2 * t1467 * t493 * t22515;
13818   t22782 = -0.8535465600e3 * t9995 * t14158 * t22498 + 0.11179286216135520e5 * t9988 * t558 * t22498 + 0.11736265200e4 * t10014 * t493 * t22498 + 0.9739415996207712e4 * t10061 * t506 * t22498 - 0.70498205233146240e5 * t9995 * t519 * t22498 + 0.108158161466514600e6 * t9980 * t532 * t22498 - 0.60283319117762160e5 * t10004 * t545 * t22498 + 0.80968771756209960e5 * t14461 * t1939 * t22498 - 0.14412320208955200e5 * t13770 * t1958 * t22498 + 0.109021433982088800e6 * t14495 * t1908 * t22498 - 0.153765740882936520e6 * t14437 * t1924 * t22498 - 0.3819378822042240e4 * t9980 * t14184 * t22498 - 0.75235238786361600e5 * t8501 * t375 * t22498 + 0.19505432277945600e5 * t10004 * t14247 * t22498 + t22781;
13819   t22786 = 0.320079960e2 * t1877 * t1878 * t22515;
13820   t22789 = 0.143226705826584e3 * t1111 * t117 * t22515;
13821   t22792 = 0.226775617558758e3 * t1471 * t506 * t22515;
13822   t22801 = 0.400099950e2 * t1103 * t104 * t22515;
13823   t22807 = 0.95484470551056e2 * t1892 * t1893 * t22515;
13824   t22810 = 0.574713629618040e3 * t1119 * t128 * t22515;
13825   t22813 = 0.870778226694000e3 * t1485 * t519 * t22515;
13826   t22816 = 0.348311290677600e3 * t1907 * t1908 * t22515;
13827   t22819 = 0.559438766206110e3 * t1087 * t141 * t22515;
13828   t22822 = 0.825838178685210e3 * t1423 * t532 * t22515;
13829   t22829 = -t22786 - t22789 + t22792 - 0.27206796600e4 * t14550 * t1878 * t22498 - 0.17282689169741136e5 * t14504 * t1893 * t22498 - t22801 + 0.13367825877147840e5 * t8460 * t366 * t22498 - t22807 + t22810 - t22813 + t22816 - t22819 + t22822 - 0.29090815842717720e5 * t8460 * t141 * t22498 + 0.17223805462217760e5 * t8501 * t155 * t22498;
13830   t22832 = 0.319679294974920e3 * t1923 * t1924 * t22515;
13831   t22833 = -t22832 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973 + t1975;
13832   t22841 = t5548 * t1835;
13833   t22854 = t1497 * t6576;
13834   t22875 = -0.6e1 * t416 * t1128 * t22539 * t174 - 0.3e1 * t1137 * t1139 * t22539 * t174 - 0.36e2 * t1137 * t3224 * t22545 * t174 + t416 * t417 * t22531 * t174 - 0.24e2 * t416 * t3211 * t22545 * t174 - 0.12e2 * t3222 * t9363 * t22545 * t174 - t9380 * t9382 * t22545 * t174 - 0.8e1 * t1496 * t22854 - 0.4e1 * t1504 * t22854 + 0.36e2 * t4130 * t22841 + 0.36e2 * t4138 * t22841 + 0.6e1 * t4150 * t22841;
13835   t22876 = my_piecewise3(t92, t22597 + t22619 + t22654 + t22682 + t22736 + t22782 + t22829 + t22833, t22875);
13836   t22879 = -0.24e2 * t7558 * t22454 * t177 + 0.36e2 * t2289 * t1797 * t1852 - 0.24e2 * t2289 * t6530 * t566 - 0.6e1 * t667 * t22464 * t177 + 0.24e2 * t667 * t1855 * t1852 - 0.8e1 * t667 * t483 * t6601 + 0.12e2 * t667 * t1796 * t1989 + t205 * (0.729e3 / 0.51200e5 * t689 * t1809 * t15 * t42 - 0.6561e4 / 0.2048000e7 * t2321 * sigma[0] * t6549 + 0.531441e6 / 0.655360000e9 * t7611 * t31 / t120 * t42 + 0.6e1 * t22489 + 0.8e1 * t479 * t6598 + 0.2e1 * t84 * t22568) * t177 - 0.4e1 * t205 * t6601 * t566 - 0.6e1 * t205 * t1852 * t1989 - 0.4e1 * t205 * t482 * t6765 - t91 * t22876 + 0.1174e1 * t22876;
13837   t22895 = 0.1e1 / t185 / t690 * t18;
13838   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13839     v4sigma4[0] = -0.3e1 / 0.8e1 * t201 * t7 * t22879 * t195 - 0.12775753975349425781e2 * t576 * t6795 * t1161 * t9459 + 0.34660489666083872784e2 * t1528 / t2322 * t32 * t9459 + 0.12741934726080110950e3 * t1528 * t22895 * t1170 + 0.54503531578451885124e0 * t1528 * t2483 * t22895 * t194 - 0.13591397041152118347e3 * t5586 * t6806 + 0.67956985205760591732e2 * t19378 * t2016 + 0.12524371875000000000e3 * t1997 * t6786 - 0.34882260210209206480e0 * t5586 * t6798 + 0.37109250000000000000e1 * t574 * t6769 * t580 + 0.68137354535196937499e2 * t1997 * t6811 - 0.11498178577814483203e3 * t576 * t19393 * t186 * t3270 - 0.17394960937500000000e1 * t576 * t440 * t183 * t6795 * t194 - 0.93932789062500000000e2 * t576 * t4180 * t2014 * t194 * t19 + 0.27831937500000000000e1 * t1997 * t6803 - 0.27831937500000000000e1 * t6773 * t2010 - 0.25048743750000000000e2 * t574 * t1993 * t1161 * t2005 - 0.15655464843750000000e2 * t2001 * t15 * t6809 * t194 * t187 - 0.54794126953125000000e2 * t9476 * t3250 * t5610 * t194 * t3252 * t26 * t183 + 0.25048743750000000000e2 * t6777 * t6791;
13840 
13841   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13842     v4sigma3lapl[0] = 0.0e0;
13843 
13844   t22959 = t6916 * t4570 * t18555;
13845   t22960 = 0.280455960822912e3 * t22959;
13846   t22961 = t1555 * t18555;
13847   t22962 = t3812 * t22961;
13848   t22963 = 0.1600399800e3 * t22962;
13849   t22964 = t1572 * t18555;
13850   t22965 = t3818 * t22964;
13851   t22966 = 0.5761439280e3 * t22965;
13852   t22967 = t3390 * t22961;
13853   t22968 = 0.108054e3 * t22967;
13854   t22969 = t5020 * t22964;
13855   t22970 = 0.192096e3 * t22969;
13856   t22971 = t1722 * t18555;
13857   t22972 = t3712 * t22971;
13858   t22973 = 0.96048e2 * t22972;
13859   t22974 = t1711 * t6554;
13860   t22977 = t1700 * t6554;
13861   t22982 = -t6915 - t6921 + t6925 - t6930 - t6935 + t6940 - t6945 + t6950 + t22960 - t22963 + t22966 - t6954 + t6956 - t6960 + t22968 - t22970 + t22973 - 0.23869387358127360e5 * t9989 * t22974 + 0.80968771756209960e5 * t14462 * t22977 - 0.49172275986253056e5 * t19023 * t22974;
13862   t22983 = t22716 * t5233;
13863   t22984 = t4570 * t6554;
13864   t22989 = t1669 * t6554;
13865   t22992 = t1676 * t6554;
13866   t22995 = t1689 * t6554;
13867   t23006 = t22726 * t22728;
13868   t23011 = t1722 * t6554;
13869   t23019 = -0.27206796600e4 * t14551 * t23011 + 0.25606396800e4 * t10026 * t22989 - 0.8535465600e3 * t9996 * t22992 - 0.12006e2 * t22496 - t22588 + t22589 - t22590 + t6695 - t6698 + t6701 - t6703;
13870   t23029 = t6730 - t6732 + t6734 - t6736 - 0.8206636720233168e4 * t22611 + 0.6737547430808712e4 * t22614 - 0.1891241384086656e4 * t22617 + 0.1288344570030252e4 * t22621 - 0.555069089128680e3 * t22623 - 0.1600399800e3 * t22625 - 0.1002586940786088e4 * t22627;
13871   t23048 = t1572 * t6554;
13872   t23053 = t1711 * t18555;
13873   t23054 = t5479 * t23053;
13874   t23055 = 0.1028338523017344e4 * t23054;
13875   t23056 = t5432 * t22971;
13876   t23057 = 0.6721679160e3 * t23056;
13877   t23058 = t1669 * t18555;
13878   t23059 = t3688 * t23058;
13879   t23060 = 0.2560639680e3 * t23059;
13880   t23061 = t3712 * t22964;
13881   t23062 = 0.1002586940786088e4 * t23061;
13882   t23063 = -0.7272703960679430e4 * t22652 + 0.3444761092443552e4 * t22655 + 0.4475510129648880e4 * t22657 + 0.5761439280e3 * t22659 + 0.8413678824687360e4 * t18945 * t22984 + 0.11736265200e4 * t10015 * t23048 - 0.70498205233146240e5 * t9996 * t22989 - t23055 - t23057 + t23060 - t23062;
13883   t23067 = t3768 * t22971;
13884   t23068 = 0.2900340792988326e4 * t23067;
13885   t23069 = t1676 * t18555;
13886   t23070 = t3753 * t23069;
13887   t23071 = 0.17981960342339250e5 * t23070;
13888   t23072 = t1689 * t18555;
13889   t23073 = t5518 * t23072;
13890   t23074 = 0.15344606158796160e5 * t23073;
13891   t23075 = t1700 * t18555;
13892   t23076 = t3729 * t23075;
13893   t23077 = 0.4475510129648880e4 * t23076;
13894   t23078 = t3760 * t23069;
13895   t23079 = 0.3444761092443552e4 * t23078;
13896   t23080 = t5371 * t23058;
13897   t23081 = 0.2864534116531680e4 * t23080;
13898   t23082 = t3747 * t23069;
13899   t23083 = 0.954844705510560e3 * t23082;
13900   t23084 = t3688 * t22971;
13901   t23085 = 0.5747136296180400e4 * t23084;
13902   t23086 = t3740 * t23058;
13903   t23087 = 0.15047047757272320e5 * t23086;
13904   t23088 = t5398 * t23069;
13905   t23089 = 0.13584140336426400e5 * t23088;
13906   t23091 = t3760 * t23072;
13907   t23092 = 0.4179735488131200e4 * t23091;
13908   t23093 = t3722 * t23072;
13909   t23094 = 0.8206636720233168e4 * t23093;
13910   t23095 = t5540 * t23075;
13911   t23096 = 0.6737547430808712e4 * t23095;
13912   t23097 = t7021 * t23053;
13913   t23098 = 0.1891241384086656e4 * t23097;
13914   t23099 = t3729 * t23072;
13915   t23100 = 0.555069089128680e3 * t23099;
13916   t23101 = t3735 * t23075;
13917   t23102 = 0.1288344570030252e4 * t23101;
13918   t23103 = t3747 * t23058;
13919   t23104 = 0.7272703960679430e4 * t23103;
13920   t23106 = -t23092 - t6738 + t6740 - t6741 - t23094 + t23096 - t23098 - t23100 + t23102 - t23104 - 0.2864534116531680e4 * t22664;
13921   t23137 = -0.60283319117762160e5 * t10005 * t22995 + 0.108158161466514600e6 * t9981 * t22992 + 0.109021433982088800e6 * t14496 * t22992 - 0.192096e3 * t22520 + 0.96048e2 * t22526 + 0.108054e3 * t22494 + t22675 - t22678 + t22681 - t22687 + t22690;
13922   t23144 = t465 * t6554 * t467 * t1555 * t56;
13923   t23146 = t15143 * t23048;
13924   t23148 = t10021 * t23011;
13925   t23150 = t10062 * t22989;
13926   t23152 = t20249 * t6846;
13927   t23153 = 0.12006e2 * t23152;
13928   t23154 = -t22819 + t22822 - t22832 + 0.80040e2 * t23144 - 0.400200e3 * t23146 + 0.576288e3 * t23148 - 0.256128e3 * t23150 - t23153 - t1869 + t1875 - t1884;
13929   t23156 = t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945 + t1951 - t1973;
13930   t23157 = t1975 + t6990 - t6995 + t6999 - t7006 + t7011 - t7015 + t7020 - t7026 + t7031 - t7035;
13931   t23163 = 0.162e3 * t22967;
13932   t23165 = 0.288e3 * t22969;
13933   t23166 = 0.144e3 * t22972;
13934   t23167 = 0.162e3 * t22494 + t23163 - 0.18e2 * t22496 - t6848 + t6855 - t6862 - t23165 + t23166 + t6569 - t6575 - t6563;
13935   t23172 = 0.18e2 * t23152;
13936   t23175 = 0.120e3 * t23144 - 0.600e3 * t23146 + 0.864e3 * t23148 - 0.384e3 * t23150 - t23172 - t1826 + t1834 - t22518 - 0.288e3 * t22520 + t22524 + 0.144e3 * t22526 - t22530;
13937   t23176 = t23167 + t23175;
13938   t23180 = t6886 * t1497;
13939   t23185 = t1775 * t6582;
13940   t23190 = t1775 * t6576;
13941   t23193 = t6863 * t472;
13942   t23194 = t23193 * t174;
13943   t23197 = t2036 * t1835;
13944   t23198 = t23197 * t174;
13945   t23201 = t2036 * t1839;
13946   t23202 = t23201 * t174;
13947   t23219 = t416 * t417 * t23176 * t174 - t11298 * t23185 - 0.36e2 * t11302 * t23185 - 0.12e2 * t11311 * t23185 - 0.24e2 * t11319 * t23185 - 0.2e1 * t1496 * t23190 - 0.6e1 * t1496 * t23194 - 0.6e1 * t1496 * t23198 - t1504 * t23190 - 0.3e1 * t1504 * t23194 - 0.3e1 * t1504 * t23198 + 0.18e2 * t4130 * t23180 + 0.18e2 * t4138 * t23180 + 0.3e1 * t4150 * t23180 + 0.18e2 * t4130 * t23202 + 0.18e2 * t4138 * t23202 + 0.3e1 * t4150 * t23202;
13948   t23220 = my_piecewise3(t92, -0.1869706405486080e4 * t23006 * t13463 * t6554 - 0.1600399800e3 * t9964 * t1555 * t6554 + t23156 + t23157 + t23154 + t23137 + t23106 - t23087 + t23089 - t23081 + t23083 + t23085 + t23077 + t23079 + t23071 - t23074 + t23068 + t23063 + t23029 + t23019 + t22982 + t22816 - t22813 - t22807 + t22810 - t22801 + t22792 - t22789 - t22786 + t22781 - t22705 - 0.1028338523017344e4 * t22666 - 0.15344606158796160e5 * t22668 - 0.4179735488131200e4 * t22648 + 0.17981960342339250e5 * t22650 - 0.15047047757272320e5 * t22644 + 0.13584140336426400e5 * t22646 + 0.2560639680e3 * t22639 + 0.954844705510560e3 * t22642 + 0.2900340792988326e4 * t22634 - 0.6721679160e3 * t22636 + 0.5747136296180400e4 * t22629 + 0.280455960822912e3 * t22632 + 0.9739415996207712e4 * t10062 * t23011 - 0.29090815842717720e5 * t10045 * t22989 + 0.17223805462217760e5 * t10032 * t22992 + 0.17241408888541200e5 * t10026 * t23011 - 0.3330414534772080e4 * t10011 * t22995 - 0.2005173881572176e4 * t10021 * t23048 + 0.11179286216135520e5 * t9989 * t22977 - 0.3819378822042240e4 * t9981 * t22995 - 0.75235238786361600e5 * t10032 * t22995 + 0.19505432277945600e5 * t10005 * t22977 - 0.153765740882936520e6 * t14438 * t22995 + 0.98461222852275360e5 * t10011 * t22977 + 0.11347448304519936e5 * t22983 * t22984 - 0.14412320208955200e5 * t13771 * t22974 - 0.17282689169741136e5 * t14505 * t22989 + 0.13367825877147840e5 * t10045 * t22992 + t18752, t23219);
13949   t23264 = 0.36e2 * t4208 * t1538 * t482 * t1852 + 0.6e1 * t205 * t1849 * t2051 * t177 + 0.6e1 * t205 * t479 * t6894 * t177 + 0.2e1 * t205 * t6598 * t596 * t177 - 0.48e2 * t11715 * t1538 * t6530 - 0.4e1 * t1537 * t1538 * t6601 - 0.12e2 * t1537 * t5646 * t1852 + 0.12e2 * t1537 * t5750 * t1852 + 0.24e2 * t1537 * t19458 * t482 + 0.6e1 * t667 * t1796 * t2123 + 0.36e2 * t4208 * t5646 * t1796 - 0.3e1 * t205 * t1852 * t2123 - 0.6e1 * t205 * t2022 * t1989 - 0.6e1 * t205 * t6828 * t566 - t205 * t6601 * t643 - t91 * t23220;
13950   t23330 = 0.9e1 / 0.50e2 * t2037 * t6876 - 0.9e1 / 0.100e3 * t591 * t6592 + 0.3e1 / 0.20e2 * t591 * t6582 * t77 * t81 - 0.3e1 / 0.100e3 * t591 * t77 * t6576 * t81 - t591 * t796 * t6582 * t81 / 0.10e2 + 0.3e1 / 0.100e3 * t797 * t23193 * t81 + 0.3e1 / 0.100e3 * t797 * t23197 * t81 - 0.3e1 / 0.100e3 * t2512 * t23201 * t81 + t797 * t590 * t6576 * t81 / 0.100e3 + t7958 * t590 * t6582 * t81 / 0.100e3 - 0.9e1 / 0.100e3 * t6864 * t2041 - 0.9e1 / 0.100e3 * t2037 * t1846 - 0.9e1 / 0.100e3 * t2037 * t6872 - t270 * t23176 * t81 / 0.100e3 + t46 * t23176 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t5739 * t6592 + 0.9e1 / 0.50e2 * t5721 * t6592;
13951   t23360 = -0.6e1 * t205 * t2052 * t1989 + 0.6e1 * t667 * t2059 * t1852 - 0.2e1 * t205 * t597 * t6765 - 0.3e1 * t205 * t482 * t7073 + 0.1174e1 * t23220 - 0.12e2 * t205 * t6832 * t566 + 0.2e1 * t205 * t84 * t23330 * t177 + 0.12e2 * t1537 * t19462 * t482 - 0.12e2 * t5632 * t6825 + 0.24e2 * t5632 * t6822 - 0.12e2 * t1537 * t19454 * t482 - 0.36e2 * t4208 * t5750 * t1796 - 0.12e2 * t19467 * t2019 - 0.24e2 * t5632 * t6819 + 0.36e2 * t16956 * t6814 - 0.6e1 * t205 * t6895 * t566 - 0.6e1 * t2289 * t6530 * t643;
13952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13953     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t201 * t7 * (t23264 + t23360) * t195 + 0.27831937500000000000e1 * t574 * t7077 * t580 - 0.12524371875000000000e2 * t574 * t2127 * t1161 * t2005 - 0.13915968750000000000e1 * t7081 * t2010 + 0.33978492602880295866e2 * t20610 * t2016 + 0.31310929687500000000e2 * t2131 * t6786 + 0.62621859375000000000e1 * t7085 * t6791 - 0.87205650525523016199e-1 * t6110 * t6798 + 0.69579843750000000000e0 * t2131 * t6803 - 0.33978492602880295866e2 * t6110 * t6806 + 0.17034338633799234375e2 * t2131 * t6811;
13954 
13955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13956     v4sigma2lapl2[0] = 0.0e0;
13957 
13958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13959     v4sigma2lapltau[0] = 0.0e0;
13960 
13961   t23412 = t2051 * t2051;
13962   t23420 = t2139 * t1796;
13963   t23423 = t2139 * t1852;
13964   t23426 = t7108 * t482;
13965   t23429 = 0.96e2 * t6115 * t1538 * t482 * t2051 - 0.16e2 * t667 * t1814 * t2134 * t177 - 0.16e2 * t667 * t85 * t23412 * t177 + 0.96e2 * t4208 * t2139 * t482 * t479 - 0.64e2 * t1537 * t1538 * t6832 - 0.8e1 * t1537 * t21468 * t482 + 0.12e2 * t4208 * t6136 * t1796 + 0.8e1 * t667 * t2135 * t1989 + 0.12e2 * t2289 * t23420 - 0.4e1 * t667 * t23423 + 0.8e1 * t667 * t23426 - 0.8e1 * t5632 * t7111;
13966   t23430 = t1538 * t6894;
13967   t23436 = -t7187 - t7188 + t7189 - t7190 - t7191 + t7192 - t7193 + t7194 + 0.373941281097216e3 * t22959 - 0.2133866400e3 * t22962 + 0.7681919040e3 * t22965 - t7195;
13968   t23441 = t7196 - t7198 + 0.144072e3 * t22967 - 0.256128e3 * t22969 + 0.128064e3 * t22972 - 0.4002e1 * t22496 - t22588 + t22589 - t22590 + t6961 - t6962 + t6963;
13969   t23443 = -t6964 + t6965 - t6966 + t6967 - t6968 + t6969 - t6971 - t6972 + t6973 - t6974 - t6975 + t6976;
13970   t23453 = -t6977 + t6978 - t6979 - 0.2735545573411056e4 * t22611 + 0.2245849143602904e4 * t22614 - 0.630413794695552e3 * t22617 + 0.429448190010084e3 * t22621 - 0.185023029709560e3 * t22623 - 0.533466600e2 * t22625 - 0.334195646928696e3 * t22627 + 0.1915712098726800e4 * t22629 + 0.93485320274304e2 * t22632;
13971   t23468 = 0.966780264329442e3 * t22634 - 0.2240559720e3 * t22636 + 0.853546560e2 * t22639 + 0.318281568503520e3 * t22642 - 0.5015682585757440e4 * t22644 + 0.4528046778808800e4 * t22646 - 0.1393245162710400e4 * t22648 + 0.5993986780779750e4 * t22650 - 0.2424234653559810e4 * t22652 + 0.1148253697481184e4 * t22655 + 0.1491836709882960e4 * t22657 + 0.1920479760e3 * t22659;
13972   t23481 = -0.1371118030689792e4 * t23054 - 0.8962238880e3 * t23056 + 0.3414186240e3 * t23059 - 0.1336782587714784e4 * t23061 + 0.3867121057317768e4 * t23067 + 0.23975947123119000e5 * t23070 - 0.20459474878394880e5 * t23073 + 0.5967346839531840e4 * t23076 + 0.4593014789924736e4 * t23078 - 0.3819378822042240e4 * t23080 + 0.1273126274014080e4 * t23082 + 0.7662848394907200e4 * t23084;
13973   t23492 = -0.20062730343029760e5 * t23086 + 0.18112187115235200e5 * t23088 - 0.5572980650841600e4 * t23091 - t6980 + t6981 - t6985 - 0.10942182293644224e5 * t23093 + 0.8983396574411616e4 * t23095 - 0.2521655178782208e4 * t23097 - 0.740092118838240e3 * t23099 + 0.1717792760040336e4 * t23101 - 0.9696938614239240e4 * t23103;
13974   t23500 = t33 * t1823 * t2143;
13975   t23502 = -0.954844705510560e3 * t22664 - 0.342779507672448e3 * t22666 - 0.5114868719598720e4 * t22668 - 0.64032e2 * t22520 + 0.32016e2 * t22526 + 0.36018e2 * t22494 - 0.4002e1 * t23500 + t22675 - t22678 + t22681 - t22687 + t22690 - t22705;
13976   t23506 = t22781 - t22786 - t22789 + t22792 - t22801 - t22807 + t22810 - t22813 + t22816 - t22819 + t22822 - t22832;
13977   t23508 = t6151 * t1816;
13978   t23511 = t6286 * t1816;
13979   t23514 = t6241 * t1816;
13980   t23517 = t6245 * t1816;
13981   t23523 = t6147 * t1816;
13982   t23537 = t465 * t1816 * t467 * t6158 * t56;
13983   t23539 = -0.16008e2 * t23152 + 0.17241408888541200e5 * t10026 * t23508 - 0.29090815842717720e5 * t10045 * t23511 + 0.17223805462217760e5 * t10032 * t23514 - 0.3330414534772080e4 * t10011 * t23517 - 0.1600399800e3 * t9964 * t6158 * t1816 - 0.2005173881572176e4 * t10021 * t23523 + 0.25606396800e4 * t10026 * t23511 - 0.17282689169741136e5 * t14505 * t23511 + 0.109021433982088800e6 * t14496 * t23514 - 0.153765740882936520e6 * t14438 * t23517 + 0.80040e2 * t23537;
13984   t23541 = t6158 * t1823;
13985   t23542 = t3390 * t23541;
13986   t23544 = t15143 * t23523;
13987   t23546 = t6147 * t1823;
13988   t23547 = t5020 * t23546;
13989   t23549 = t10021 * t23508;
13990   t23551 = t6151 * t1823;
13991   t23552 = t3712 * t23551;
13992   t23554 = t10062 * t23511;
13993   t23556 = t3812 * t23541;
13994   t23560 = t3818 * t23546;
13995   t23564 = t3712 * t23546;
13996   t23568 = 0.36018e2 * t23542 - 0.400200e3 * t23544 - 0.64032e2 * t23547 + 0.576288e3 * t23549 + 0.32016e2 * t23552 - 0.256128e3 * t23554 - 0.533466600e2 * t23556 + 0.11736265200e4 * t10015 * t23523 + 0.1920479760e3 * t23560 - 0.27206796600e4 * t14551 * t23508 - 0.334195646928696e3 * t23564 + 0.9739415996207712e4 * t10062 * t23508;
13997   t23569 = t3768 * t23551;
13998   t23571 = t5432 * t23551;
13999   t23573 = t6245 * t1823;
14000   t23574 = t3722 * t23573;
14001   t23576 = t6255 * t1816;
14002   t23579 = t6255 * t1823;
14003   t23580 = t5540 * t23579;
14004   t23582 = t6286 * t1823;
14005   t23583 = t3688 * t23582;
14006   t23587 = t5371 * t23582;
14007   t23591 = t6241 * t1823;
14008   t23592 = t3747 * t23591;
14009   t23594 = t6356 * t1816;
14010   t23597 = t6356 * t1823;
14011   t23598 = t7021 * t23597;
14012   t23600 = t6373 * t1816;
14013   t23603 = 0.966780264329442e3 * t23569 - 0.2240559720e3 * t23571 - 0.2735545573411056e4 * t23574 + 0.80968771756209960e5 * t14462 * t23576 + 0.2245849143602904e4 * t23580 + 0.853546560e2 * t23583 - 0.8535465600e3 * t9996 * t23514 - 0.954844705510560e3 * t23587 + 0.13367825877147840e5 * t10045 * t23514 + 0.318281568503520e3 * t23592 - 0.49172275986253056e5 * t19023 * t23594 - 0.630413794695552e3 * t23598 + 0.11347448304519936e5 * t22983 * t23600;
14014   t23606 = t3735 * t23579;
14015   t23610 = t5479 * t23597;
14016   t23615 = t6916 * t6373 * t1823;
14017   t23620 = t3688 * t23551;
14018   t23624 = t3740 * t23582;
14019   t23626 = t3747 * t23582;
14020   t23630 = t3753 * t23591;
14021   t23632 = 0.429448190010084e3 * t23606 - 0.14412320208955200e5 * t13771 * t23594 - 0.342779507672448e3 * t23610 + 0.8413678824687360e4 * t18945 * t23600 + 0.93485320274304e2 * t23615 - 0.1869706405486080e4 * t23006 * t17849 * t1816 + 0.1915712098726800e4 * t23620 - 0.70498205233146240e5 * t9996 * t23511 - 0.5015682585757440e4 * t23624 - 0.2424234653559810e4 * t23626 + 0.108158161466514600e6 * t9981 * t23514 + 0.5993986780779750e4 * t23630;
14022   t23635 = t5398 * t23591;
14023   t23639 = t3760 * t23573;
14024   t23643 = t5518 * t23573;
14025   t23647 = t3729 * t23579;
14026   t23651 = t3760 * t23591;
14027   t23655 = t3729 * t23573;
14028   t23657 = -0.3819378822042240e4 * t9981 * t23517 + 0.4528046778808800e4 * t23635 - 0.75235238786361600e5 * t10032 * t23517 - 0.1393245162710400e4 * t23639 + 0.19505432277945600e5 * t10005 * t23576 - 0.5114868719598720e4 * t23643 + 0.98461222852275360e5 * t10011 * t23576 + 0.1491836709882960e4 * t23647 - 0.23869387358127360e5 * t9989 * t23594 + 0.1148253697481184e4 * t23651 - 0.60283319117762160e5 * t10005 * t23517 - 0.185023029709560e3 * t23655;
14029   t23661 = 0.11179286216135520e5 * t9989 * t23576 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945;
14030   t23662 = t1951 - t1973 + t1975 + t7288 - t7289 + t7290 - t7291 + t7292 - t7293 + t7294 - t7295 + t7296 - t7297;
14031   t23667 = t2036 * t2036;
14032   t23672 = t1775 * t6863;
14033   t23675 = t2156 * t1835;
14034   t23676 = t23675 * t174;
14035   t23678 = t2156 * t1839;
14036   t23679 = t23678 * t174;
14037   t23691 = t21324 * t472;
14038   t23694 = t6506 * t1835;
14039   t23697 = t2152 * t1839;
14040   t23698 = t23697 * t174;
14041   t23701 = -0.4e1 * t416 * t1128 * t23667 * t174 - 0.2e1 * t1137 * t1139 * t23667 * t174 - t11298 * t23679 - 0.12e2 * t11311 * t23679 - 0.4e1 * t1496 * t23672 - 0.4e1 * t1496 * t23691 - 0.2e1 * t1496 * t23694 - 0.2e1 * t1504 * t23672 + 0.6e1 * t4138 * t23676 + t4150 * t23676 + 0.6e1 * t4138 * t23698;
14042   t23714 = -t7124 + t7128 - t7134 + 0.216e3 * t22967 - 0.384e3 * t22969 + 0.192e3 * t22972 - 0.6e1 * t22496 - t22518 + t22524 - t22530 - t6845 + t6852 - t6859;
14043   t23727 = -0.96e2 * t22520 + 0.48e2 * t22526 + 0.54e2 * t22494 - 0.6e1 * t23500 - 0.24e2 * t23152 + 0.120e3 * t23537 + 0.54e2 * t23542 - 0.600e3 * t23544 - 0.96e2 * t23547 + 0.864e3 * t23549 + 0.48e2 * t23552 - 0.384e3 * t23554 - t1826 + t1834;
14044   t23728 = t23714 + t23727;
14045   t23732 = t2047 * t6080;
14046   t23743 = t416 * t417 * t23728 * t174 - 0.36e2 * t11302 * t23679 - 0.24e2 * t11319 * t23679 - 0.2e1 * t1504 * t23691 - t1504 * t23694 + 0.6e1 * t4130 * t23676 + 0.6e1 * t4130 * t23698 + t4150 * t23698 + 0.24e2 * t4130 * t23732 + 0.24e2 * t4138 * t23732 + 0.4e1 * t4150 * t23732;
14047   t23745 = my_piecewise3(t92, t23436 + t23441 + t23443 + t23453 + t23468 + t23481 + t23492 + t23502 + t23506 + t23539 + t23568 + t23603 + t23632 + t23657 + t23661 + t23662, t23701 + t23743);
14048   t23747 = t5750 * t2051;
14049   t23787 = -0.3e1 / 0.100e3 * t2157 * t1843 - t270 * t23728 * t81 / 0.100e3 + t46 * t23728 * t81 / 0.100e3 - t5739 * t6883 / 0.25e2 + 0.6e1 / 0.25e2 * t5721 * t6883 - t2512 * t23675 * t81 / 0.100e3 + t7958 * t23678 * t81 / 0.100e3 - 0.3e1 / 0.50e2 * t7137 * t2041 - 0.3e1 / 0.100e3 * t2153 * t1846 - 0.3e1 / 0.100e3 * t2153 * t6872 + 0.3e1 / 0.50e2 * t2153 * t6876;
14050   t23825 = -0.3e1 / 0.50e2 * t46 * t23667 * t790 - 0.3e1 / 0.25e2 * t591 * t6883 - 0.3e1 / 0.50e2 * t591 * t790 * t6863 + 0.3e1 / 0.20e2 * t2157 * t1839 * t77 * t81 + 0.3e1 / 0.50e2 * t2157 * t79 * t1835 * t81 - t2157 * t796 * t1839 * t81 / 0.10e2 + t797 * t7136 * t472 * t81 / 0.50e2 + t797 * t2152 * t1835 * t81 / 0.100e3 - t2512 * t23697 * t81 / 0.100e3 + t797 * t23667 * t81 / 0.50e2 + t797 * t593 * t6863 / 0.50e2;
14051   t23845 = 0.4e1 * t205 * t23430 + 0.1174e1 * t23745 - 0.8e1 * t205 * t23747 + 0.4e1 * t205 * t479 * t7165 * t177 + 0.2e1 * t667 * t1796 * t2245 + 0.2e1 * t205 * t1849 * t2166 * t177 + 0.2e1 * t205 * t84 * (t23787 + t23825) * t177 - 0.4e1 * t205 * t7114 * t566 - 0.2e1 * t205 * t2134 * t1989 - t205 * t1852 * t2245 - 0.2e1 * t205 * t482 * t7321 - 0.4e1 * t205 * t7166 * t566;
14052   t23882 = -0.4e1 * t1537 * t6136 * t1852 + 0.8e1 * t1537 * t21472 * t482 + 0.16e2 * t1537 * t21526 * t482 + 0.16e2 * t1537 * t21530 * t482 - 0.2e1 * t205 * t2167 * t1989 - 0.8e1 * t205 * t2022 * t2123 - 0.8e1 * t205 * t2052 * t2123 - 0.4e1 * t205 * t597 * t7073 - 0.4e1 * t205 * t6828 * t643 - 0.8e1 * t205 * t6832 * t643 - 0.4e1 * t205 * t6895 * t643 + 0.16e2 * t5632 * t7173;
14053   t23911 = -0.16e2 * t1537 * t2139 * t1849 + 0.8e1 * t1537 * t6226 * t1852 + 0.32e2 * t1537 * t7108 * t479 + 0.4e1 * t205 * t23412 * t177 - 0.24e2 * t4208 * t6226 * t1796 - 0.16e2 * t17225 * t6819 - 0.96e2 * t18371 * t23420 + 0.24e2 * t6115 * t23423 - 0.48e2 * t6115 * t23426 - 0.16e2 * t6122 * t23430 - t91 * t23745 + 0.32e2 * t6122 * t23747;
14054   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14055     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t201 * t7 * (t23429 + t23845 + t23882 + t23911) * t195 + 0.18554625000000000000e1 * t574 * t7325 * t580 - 0.41747906250000000000e1 * t574 * t2249 * t1161 * t2005 - 0.46386562500000000000e0 * t7329 * t2010 + 0.11326164200960098622e2 * t21701 * t2016;
14056 
14057   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14058     v4sigmalapl3[0] = 0.0e0;
14059 
14060   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14061     v4sigmalapl2tau[0] = 0.0e0;
14062 
14063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14064     v4sigmalapltau2[0] = 0.0e0;
14065 
14066   t23929 = -t7404 - t7405 + t7406 - t7407 - t7408 + t7409 - t7410 + t7411 + t22960 - t22963 + t22966 - t7412 + t7413 - t7414 + t22968 - t22970 + t22973 - t22588 + t22589 - t22590;
14067   t23931 = -t7211 + t7212 - t7213 - t7214 + t7215 - t7216 + t7217 - t7218 - t23055 - t23057 + t23060;
14068   t23935 = t23089 - t23092 - t7223 + t7224 - t7225 - t23094 + t23096 - t23098 - t23100 + t23102 - t23104;
14069   t23943 = t465 * t7353 * t467 * t103 * t56 * t461;
14070   t23945 = t22792 - t22801 - t22807 + t22810 - t22813 + t22816 - t22819 + t22822 - t22832 - t23153 + 0.80040e2 * t23943;
14071   t23949 = t21744 * t461;
14072   t23950 = t15143 * t23949;
14073   t23952 = t21748 * t461;
14074   t23953 = t10021 * t23952;
14075   t23955 = t21772 * t461;
14076   t23956 = t10062 * t23955;
14077   t23958 = t21940 * t461;
14078   t23961 = t21927 * t461;
14079   t23966 = t21931 * t461;
14080   t23969 = t21946 * t461;
14081   t23972 = t21953 * t461;
14082   t24002 = 0.8413678824687360e4 * t18945 * t23972 - 0.1869706405486080e4 * t23006 * t22086 * t461 - 0.70498205233146240e5 * t9996 * t23955 + 0.109021433982088800e6 * t14496 * t23958 + 0.108158161466514600e6 * t9981 * t23958 - 0.153765740882936520e6 * t14438 * t23961 + 0.11736265200e4 * t10015 * t23949 + 0.17223805462217760e5 * t10032 * t23958 + 0.11179286216135520e5 * t9989 * t23966 - 0.1600399800e3 * t9964 * t21739 * t461 - 0.2005173881572176e4 * t10021 * t23949;
14083   t24038 = 0.25606396800e4 * t10026 * t23955 - 0.8535465600e3 * t9996 * t23958 + 0.108054e3 * t23542 - 0.192096e3 * t23547 + 0.96048e2 * t23552 - 0.1600399800e3 * t23556 + 0.5761439280e3 * t23560 - 0.1002586940786088e4 * t23564 + 0.2900340792988326e4 * t23569 - 0.6721679160e3 * t23571 - 0.8206636720233168e4 * t23574;
14084   t24060 = -0.7272703960679430e4 * t23626 + 0.17981960342339250e5 * t23630 + 0.13584140336426400e5 * t23635 - 0.4179735488131200e4 * t23639 - 0.15344606158796160e5 * t23643 + 0.4475510129648880e4 * t23647 + 0.3444761092443552e4 * t23651 - 0.555069089128680e3 * t23655 - t1869 + t1875 - t1884;
14085   t24062 = t1975 + t7495 - t7496 + t7497 - t7498 + t7499 - t7500 + t7501 - t7502 + t7503 - t7504;
14086   t24067 = t22378 * t472;
14087   t24070 = t6497 * t2036;
14088   t24075 = t1775 * t7154;
14089   t24078 = t6080 * t2152;
14090   t24083 = t1775 * t7136;
14091   t24090 = t22402 * t472;
14092   t24096 = t23163 - t7360 + t7364 - t7368 - t23165 + t23166 + 0.162e3 * t23542 - 0.288e3 * t23547 + 0.144e3 * t23552 + t7130 - t7135;
14093   t24102 = -t7129 + 0.120e3 * t23943 - 0.600e3 * t23950 + 0.864e3 * t23953 - 0.384e3 * t23956 - 0.18e2 * t23500 - t23172 - t1826 + t1834 - t22518 + t22524 - t22530;
14094   t24103 = t24096 + t24102;
14095   t24117 = t416 * t417 * t24103 * t174 - t11298 * t24067 - 0.36e2 * t11302 * t24067 - 0.12e2 * t11311 * t24067 - 0.24e2 * t11319 * t24067 - 0.6e1 * t1496 * t24078 - 0.6e1 * t1496 * t24083 - 0.2e1 * t1496 * t24090 - 0.3e1 * t1504 * t24078 - 0.3e1 * t1504 * t24083 - t1504 * t24090 + 0.18e2 * t4130 * t24070 + 0.18e2 * t4138 * t24070 + 0.3e1 * t4150 * t24070 + 0.18e2 * t4130 * t24075 + 0.18e2 * t4138 * t24075 + 0.3e1 * t4150 * t24075;
14096   t24118 = my_piecewise3(t92, t24060 + t24062 + t24038 + t24002 - 0.256128e3 * t23956 - 0.400200e3 * t23950 + 0.576288e3 * t23953 + t23945 + t23935 + t23931 + t23929 - 0.15047047757272320e5 * t23624 + 0.5747136296180400e4 * t23620 + 0.280455960822912e3 * t23615 - 0.1028338523017344e4 * t23610 + 0.1288344570030252e4 * t23606 - 0.1891241384086656e4 * t23598 + 0.954844705510560e3 * t23592 - 0.2864534116531680e4 * t23587 + 0.6737547430808712e4 * t23580 + 0.2560639680e3 * t23583 - 0.12006e2 * t23500 + t23156 - t23087 - t23081 + t23083 + t23085 + t23077 + t23079 + t23071 - t23074 + t23068 - t23062 - t22789 - t22786 + t22781 - t22705 + t22690 - t22687 + t22681 + t22675 - t22678 - 0.60283319117762160e5 * t10005 * t23961 + 0.17241408888541200e5 * t10026 * t23952 - 0.29090815842717720e5 * t10045 * t23955 + 0.19505432277945600e5 * t10005 * t23966 + 0.98461222852275360e5 * t10011 * t23966 - 0.23869387358127360e5 * t9989 * t23969 - 0.3330414534772080e4 * t10011 * t23961 - 0.27206796600e4 * t14551 * t23952 + 0.9739415996207712e4 * t10062 * t23952 - 0.17282689169741136e5 * t14505 * t23955 - 0.75235238786361600e5 * t10032 * t23961 + 0.80968771756209960e5 * t14462 * t23966 - 0.49172275986253056e5 * t19023 * t23969 + 0.11347448304519936e5 * t22983 * t23972 - 0.14412320208955200e5 * t13771 * t23969 + 0.13367825877147840e5 * t10045 * t23958 - 0.3819378822042240e4 * t9981 * t23961 + t7205 - t7206 + t7207 - t7208 + t7201 - t7202 + t7203 - t7204 + t7199 - t7200, t24117);
14097   t24127 = t479 * t7333 * t177;
14098   t24130 = t5646 * t2166;
14099   t24136 = t1538 * t7165;
14100   t24139 = t6226 * t2051;
14101   t24142 = t7350 * t482;
14102   t24193 = t46 * t24103 * t81 / 0.100e3 - 0.3e1 / 0.100e3 * t7370 * t2041 - 0.9e1 / 0.100e3 * t7137 * t7374 - 0.9e1 / 0.100e3 * t2153 * t2048 - 0.9e1 / 0.100e3 * t2153 * t7142 + 0.9e1 / 0.50e2 * t21624 * t2048 - 0.9e1 / 0.100e3 * t2157 * t2044 + 0.3e1 / 0.20e2 * t7378 * t2041 + 0.9e1 / 0.50e2 * t2157 * t2502 * t2036 - t7378 * t796 * t472 * t81 / 0.10e2 - t270 * t24103 * t81 / 0.100e3 + t797 * t7369 * t472 * t81 / 0.100e3 + 0.3e1 / 0.100e3 * t797 * t7136 * t590 * t81 + 0.3e1 / 0.100e3 * t797 * t2152 * t2036 * t81 - 0.3e1 / 0.100e3 * t21557 * t2048 - 0.3e1 / 0.100e3 * t2512 * t2163 * t2036 + t7958 * t7377 * t472 * t81 / 0.100e3;
14103   t24198 = t5750 * t2166;
14104   t24225 = -t91 * t24118 + 0.24e2 * t667 * t7338 * t566 - 0.48e2 * t2289 * t7334 * t566 - 0.24e2 * t667 * t24127 + 0.6e1 * t205 * t24130 + 0.24e2 * t667 * t2135 * t2123 + 0.6e1 * t205 * t24136 - 0.12e2 * t205 * t24139 + 0.12e2 * t667 * t24142 + 0.2e1 * t205 * t84 * t24193 * t177 - 0.6e1 * t205 * t24198 + 0.2e1 * t205 * t479 * t7393 * t177 - 0.2e1 * t205 * t7394 * t566 - 0.6e1 * t205 * t2052 * t2245 - 0.6e1 * t205 * t2167 * t2123 - 0.6e1 * t205 * t2022 * t2245 - 0.6e1 * t205 * t597 * t7321 - 0.6e1 * t205 * t2134 * t2123 - t205 * t482 * t7528;
14105   t24232 = t21875 * t482;
14106   t24239 = t2139 * t2051;
14107   t24276 = -0.6e1 * t205 * t7166 * t643 - 0.6e1 * t205 * t7114 * t643 - 0.192e3 * t21881 * t24232 + 0.144e3 * t6115 * t24127 - 0.24e2 * t6122 * t24130 - 0.72e2 * t1537 * t24239 + 0.72e2 * t4208 * t24232 + 0.144e3 * t21871 * t24239 + 0.48e2 * t6122 * t24139 + 0.48e2 * t1537 * t7350 * t479 + 0.24e2 * t6122 * t24198 - 0.72e2 * t6115 * t24142 - 0.24e2 * t6122 * t24136 - 0.12e2 * t17225 * t7111 - 0.4e1 * t1537 * t21904 * t482 + 0.12e2 * t1537 * t22435 * t482 + 0.12e2 * t1537 * t22439 * t482 + 0.1174e1 * t24118 + 0.72e2 * t6115 * t1538 * t2166 * t482 - 0.48e2 * t1537 * t1538 * t7114;
14108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14109     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t201 * t7 * (t24225 + t24276) * t195 + 0.92773125000000000000e0 * t574 * t7532 * t580;
14110 
14111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14112     v4lapl4[0] = 0.0e0;
14113 
14114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14115     v4lapl3tau[0] = 0.0e0;
14116 
14117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14118     v4lapl2tau2[0] = 0.0e0;
14119 
14120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14121     v4lapltau3[0] = 0.0e0;
14122 
14123   t24288 = t85 * t85;
14124   t24289 = t2134 * t2134;
14125   t24314 = -0.20774515616512e2 * t6914 - 0.533466600e2 * t6920 + 0.924675440e2 * t6924 - 0.426773280e2 * t6929 - 0.190968941102112e3 * t6934 + 0.302367490078344e3 * t6939 - 0.127312627401408e3 * t6944 + 0.766284839490720e3 * t6949 - 0.16008e2 * t6847 + 0.37352e2 * t6854 - 0.21344e2 * t6861 - t22588 + t22589 - t22590;
14126   t24315 = t2142 * t2142;
14127   t24361 = 0.80968771756209960e5 * t14461 * t1939 * t24315 - 0.14412320208955200e5 * t13770 * t1958 * t24315 + 0.11179286216135520e5 * t9988 * t558 * t24315 - 0.49172275986253056e5 * t19022 * t4055 * t24315 + 0.11347448304519936e5 * t22716 * t14334 * t24315 + 0.8413678824687360e4 * t18944 * t6671 * t24315 - 0.3330414534772080e4 * t8538 * t168 * t24315 - 0.1600399800e3 * t8441 * t104 * t24315 - 0.2005173881572176e4 * t8477 * t117 * t24315 - 0.60283319117762160e5 * t10004 * t545 * t24315 + 0.17241408888541200e5 * t8448 * t128 * t24315 - 0.29090815842717720e5 * t8460 * t141 * t24315 + 0.17223805462217760e5 * t8501 * t155 * t24315 - 0.70498205233146240e5 * t9995 * t519 * t24315 + 0.108158161466514600e6 * t9980 * t532 * t24315;
14128   t24370 = 0.11736265200e4 * t10014 * t493 * t24315 + 0.9739415996207712e4 * t10061 * t506 * t24315 - 0.24012e2 * t23500 + t22675 - t22678 + t22681 - t22687 + t22690 - t22705 + t22781 - t22786 - t22789 + t22792 - t22801 - t22807;
14129   t24380 = t22810 - t22813 + t22816 - t22819 + t22822 - t22832 + 0.216108e3 * t23542 - 0.384192e3 * t23547 + 0.192096e3 * t23552 - 0.3200799600e3 * t23556 + 0.11522878560e4 * t23560 - 0.2005173881572176e4 * t23564 + 0.5800681585976652e4 * t23569 - 0.13443358320e4 * t23571 - 0.16413273440466336e5 * t23574;
14130   t24397 = 0.13475094861617424e5 * t23580 + 0.5121279360e3 * t23583 - 0.5729068233063360e4 * t23587 + 0.1909689411021120e4 * t23592 - 0.3782482768173312e4 * t23598 + 0.2576689140060504e4 * t23606 - 0.2056677046034688e4 * t23610 + 0.560911921645824e3 * t23615 + 0.11494272592360800e5 * t23620 - 0.30094095514544640e5 * t23624 - 0.14545407921358860e5 * t23626 + 0.35963920684678500e5 * t23630 + 0.27168280672852800e5 * t23635 - 0.8359470976262400e4 * t23639;
14131   t24402 = -0.30689212317592320e5 * t23643 + 0.8951020259297760e4 * t23647 + 0.6889522184887104e4 * t23651 - 0.1110138178257360e4 * t23655 - t1869 + t1875 - t1884 + t1890 + t1899 - t1905 - t1914 + t1921 + t1930 - t1936 - t1945;
14132   t24405 = t15142 * t1828 * t24315;
14133   t24408 = t8477 * t347 * t24315;
14134   t24411 = t10061 * t14140 * t24315;
14135   t24440 = t1951 - t1973 + t1975 - 0.400200e3 * t24405 + 0.576288e3 * t24408 - 0.256128e3 * t24411 - 0.1869706405486080e4 * t22726 * t22729 * t24315 + 0.109021433982088800e6 * t14495 * t1908 * t24315 - 0.153765740882936520e6 * t14437 * t1924 * t24315 - 0.27206796600e4 * t14550 * t1878 * t24315 - 0.17282689169741136e5 * t14504 * t1893 * t24315 + 0.25606396800e4 * t8448 * t357 * t24315 - 0.8535465600e3 * t9995 * t14158 * t24315 + 0.13367825877147840e5 * t8460 * t366 * t24315 - 0.3819378822042240e4 * t9980 * t14184 * t24315;
14136   t24454 = t465 * t24315 * t22500;
14137   t24466 = -0.75235238786361600e5 * t8501 * t375 * t24315 + 0.19505432277945600e5 * t10004 * t14247 * t24315 + 0.98461222852275360e5 * t8538 * t386 * t24315 - 0.23869387358127360e5 * t9988 * t14202 * t24315 + 0.80040e2 * t24454 + 0.464415054236800e3 * t6989 - 0.745918354941480e3 * t6994 + 0.1101117571580280e4 * t6998 - 0.426239059966560e3 * t7005 + 0.287063424370296e3 * t7010 - 0.416523400066704e3 * t7014 + 0.157603448673888e3 * t7019 - 0.38952216780960e2 * t7025 + 0.55831510719376e2 * t7030 - 0.1161037635592000e4 * t7034;
14138   t24470 = t2156 * t2156;
14139   t24475 = t6497 * t2152;
14140   t24482 = t2152 * t2152;
14141   t24489 = t1775 * t7369;
14142   t24507 = -0.24e2 * t6847 + 0.56e2 * t6854 - 0.32e2 * t6861 + 0.324e3 * t23542 - 0.576e3 * t23547 + 0.288e3 * t23552 - 0.36e2 * t23500 + 0.120e3 * t24454 - 0.600e3 * t24405 + 0.864e3 * t24408 - 0.384e3 * t24411 - t1826 + t1834 - t22518 + t22524 - t22530;
14143   t24522 = -0.6e1 * t416 * t1128 * t24482 * t174 - 0.3e1 * t1137 * t1139 * t24482 * t174 - 0.36e2 * t1137 * t3224 * t24470 * t174 - 0.24e2 * t416 * t3211 * t24470 * t174 - 0.12e2 * t3222 * t9363 * t24470 * t174 - t9380 * t9382 * t24470 * t174 + t416 * t417 * t24507 * t174 - 0.8e1 * t1496 * t24489 - 0.4e1 * t1504 * t24489 + 0.36e2 * t4130 * t24475 + 0.36e2 * t4138 * t24475 + 0.6e1 * t4150 * t24475;
14144   t24523 = my_piecewise3(t92, t24314 + t24361 + t24370 + t24380 + t24397 + t24402 + t24440 + t24466, t24522);
14145   t24528 = t2139 * t2166;
14146   t24531 = t2166 * t2166;
14147   t24536 = t1538 * t7393;
14148   t24540 = t6226 * t2166;
14149   t24570 = t46 * t24470;
14150   t24592 = t46 * t24507 * t81 / 0.100e3 - 0.3e1 / 0.25e2 * t7370 * t7374 - 0.9e1 / 0.50e2 * t2153 * t2163 - 0.9e1 / 0.100e3 * t46 * t24482 * t790 + 0.9e1 / 0.25e2 * t2153 * t79 * t2156 * t81 + 0.3e1 / 0.20e2 * t24570 * t790 - t24570 * t7941 / 0.10e2 - t270 * t24507 * t81 / 0.100e3 + t797 * t7369 * t590 * t81 / 0.25e2 + 0.3e1 / 0.100e3 * t797 * t24482 * t81 - 0.3e1 / 0.50e2 * t2512 * t2152 * t2156 * t81 + t7958 * t24470 * t81 / 0.100e3;
14151   t24607 = 0.2e1 * t205 * t84 * t24592 * t177 + 0.288e3 * t2289 * t85 * t24289 * t177 + 0.6e1 * t205 * t24531 * t177 - 0.12e2 * t205 * t2167 * t2245 - 0.8e1 * t205 * t7394 * t643 + 0.48e2 * t667 * t2135 * t2245 + 0.8e1 * t205 * t24536 - 0.24e2 * t205 * t24540 + 0.288e3 * t21871 * t24528 - t91 * t24523 + 0.96e2 * t6122 * t24540;
14152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14153     v4tau4[0] = -0.3e1 / 0.8e1 * t201 * t7 * (0.96e2 * t667 * t7338 * t643 - 0.384e3 * t7558 * t24288 * t24289 * t177 - 0.192e3 * t2289 * t7334 * t643 - 0.24e2 * t667 * t24289 * t177 - 0.8e1 * t205 * t597 * t7528 + 0.1174e1 * t24523 - 0.12e2 * t205 * t2134 * t2245 - 0.144e3 * t1537 * t24528 - 0.24e2 * t667 * t85 * t24531 * t177 - 0.32e2 * t6122 * t24536 + t24607) * t195;
14154 
14155 #ifndef XC_DONT_COMPILE_MXC
14156 
14157   if(order < 5) return;
14158 
14159 
14160 #endif
14161 
14162 #endif
14163 
14164 #endif
14165 
14166 #endif
14167 
14168 #endif
14169 
14170 
14171 }
14172 
14173 
14174 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 *))14175 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 *))
14176 {
14177 
14178 #ifndef XC_DONT_COMPILE_EXC
14179   double t2, t4, t5, t6, t7, t8, t9, t10;
14180   double t11, t12, t14, t15, t16, t17, t18, t19;
14181   double t20, t21, t22, t23, t24, t25, t26, t27;
14182   double t28, t29, t30, t31, t35, t36, t37, t38;
14183   double t39, t40, t41, t42, t43, t44, t45, t46;
14184   double t47, t48, t49, t52, t56, t57, t60, t61;
14185   double t64, t65, t66, t67, t68, t69, t73, t74;
14186   double t75, t76, t77, t78, t79, t81, t83, t84;
14187   double t85, t86, t87, t89, t91, t94, t95, t96;
14188   double t101, t102, t104, t105, t106, t107, t108, t109;
14189   double t110, t111, t112, t113, t114, t117, t118, t119;
14190   double t120, t121, t122, t123, t124, t125, t126, t127;
14191   double t130, t131, t132, t133, t134, t135, t136, t137;
14192   double t138, t141, t142, t143, t144, t145, t146, t148;
14193   double t150, t151, t154, t155, t156, t157, t158, t159;
14194   double t160, t162, t164, t165, t168, t169, t170, t171;
14195   double t172, t173, t175, t177, t178, t184, t186, t187;
14196   double t190, t191, t192, t193, t194, t195, t196, t198;
14197   double t199, t203, t204, t205, t207, t209, t210, t211;
14198   double t212, t213, t214, t215, t216, t217, t218, t219;
14199   double t221, t222, t223, t224, t225, t226, t227, t228;
14200   double t231, t237, t238, t241, t242, t243, t244, t245;
14201   double t246, t250, t251, t252, t253, t254, t255, t257;
14202   double t259, t260, t261, t262, t263, t265, t267, t270;
14203   double t271, t272, t277, t278, t280, t281, t282, t283;
14204   double t284, t285, t286, t287, t288, t289, t290, t293;
14205   double t294, t295, t296, t297, t298, t299, t300, t301;
14206   double t302, t303, t306, t307, t308, t309, t310, t311;
14207   double t312, t313, t314, t317, t318, t319, t320, t321;
14208   double t322, t324, t326, t327, t330, t331, t332, t333;
14209   double t334, t335, t336, t338, t340, t341, t344, t345;
14210   double t346, t347, t348, t349, t351, t353, t354, t360;
14211   double t362, t363, t366, t367, t368, t369, t371, t372;
14212   double t376, t377, t378, t380;
14213 
14214 #ifndef XC_DONT_COMPILE_VXC
14215   double t382, t383, t384, t385, t386, t387, t388, t389;
14216   double t391, t392, t394, t395, t396, t397, t398, t400;
14217   double t401, t402, t403, t405, t406, t407, t408, t411;
14218   double t412, t417, t418, t419, t420, t421, t422, t430;
14219   double t431, t433, t438, t439, t440, t442, t443, t444;
14220   double t445, t447, t448, t450, t451, t455, t456, t459;
14221   double t461, t463, t464, t465, t466, t470, t471, t474;
14222   double t477, t478, t481, t482, t483, t484, t485, t486;
14223   double t489, t490, t491, t492, t493, t494, t495, t498;
14224   double t499, t500, t501, t502, t503, t504, t507, t508;
14225   double t509, t510, t511, t512, t515, t516, t518, t519;
14226   double t520, t521, t524, t525, t527, t528, t529, t530;
14227   double t533, t536, t542, t543, t546, t547, t550, t551;
14228   double t552, t553, t556, t557, t560, t561, t564, t565;
14229   double t568, t569, t572, t573, t576, t577, t578, t581;
14230   double t582, t585, t586, t587, t590, t591, t594, t595;
14231   double t596, t599, t600, t603, t604, t605, t608, t609;
14232   double t610, t611, t614, t616, t617, t621, t624, t625;
14233   double t627, t628, t629, t630, t631, t632, t633, t634;
14234   double t636, t638, t640, t641, t642, t644, t645, t646;
14235   double t647, t648, t649, t650, t651, t653, t654, t655;
14236   double t657, t658, t662, t663, t665, t666, t667, t668;
14237   double t670, t671, t672, t674, t675, t676, t677, t680;
14238   double t681, t686, t687, t695, t696, t698, t703, t704;
14239   double t705, t707, t708, t709, t710, t712, t713, t715;
14240   double t716, t720, t721, t724, t726, t728, t729, t730;
14241   double t731, t735, t736, t739, t742, t743, t746, t747;
14242   double t748, t749, t750, t751, t754, t755, t758, t759;
14243   double t762, t763, t766, t767, t770, t771, t772, t775;
14244   double t776, t779, t780, t781, t784, t785, t788, t789;
14245   double t790, t793, t794, t797, t798, t799, t802, t803;
14246   double t804, t805, t808, t811, t814, t815, t818, t819;
14247   double t822, t823, t824, t827, t828, t831, t835, t836;
14248   double t837, t838, t839, t840, t841, t844, t845, t846;
14249   double t847, t848, t849, t850, t853, t854, t855, t856;
14250   double t857, t858, t861, t862, t864, t865, t866, t867;
14251   double t870, t871, t873, t874, t875, t876, t879, t881;
14252   double t885, t888, t889, t891, t892, t894, t896, t898;
14253   double t899, t900, t902, t903, t904, t913, t922, t923;
14254   double t924, t926, t927, t928, t929, t930, t931, t933;
14255   double t934, t937, t940, t943, t944, t948, t951, t952;
14256   double t953, t954, t955, t958, t961, t962, t963, t964;
14257   double t965, t966, t967, t968, t971, t974, t975, t976;
14258   double t977, t979, t980, t981, t984, t987, t988, t989;
14259   double t990, t992, t993, t994, t997, t1000, t1001, t1002;
14260   double t1003, t1005, t1006, t1007, t1010, t1013, t1014, t1015;
14261   double t1016, t1018, t1019, t1020, t1023, t1027, t1030, t1031;
14262   double t1034, t1035, t1036, t1038, t1040, t1048, t1057, t1058;
14263   double t1059, t1061, t1062, t1063, t1064, t1065, t1066, t1068;
14264   double t1069, t1072, t1075, t1078, t1079, t1083, t1086, t1087;
14265   double t1088, t1089, t1090, t1093, t1096, t1097, t1098, t1099;
14266   double t1100, t1101, t1102, t1103, t1106, t1109, t1110, t1111;
14267   double t1112, t1114, t1115, t1116, t1119, t1122, t1123, t1124;
14268   double t1125, t1127, t1128, t1129, t1132, t1135, t1136, t1137;
14269   double t1138, t1140, t1141, t1142, t1145, t1148, t1149, t1150;
14270   double t1151, t1153, t1154, t1155, t1158, t1162, t1165, t1166;
14271   double t1169, t1170, t1171, t1173, t1175, t1177, t1178, t1179;
14272   double t1180, t1181, t1182, t1183, t1185, t1186, t1188, t1189;
14273   double t1191, t1194, t1195, t1201, t1204, t1207, t1210, t1213;
14274   double t1216, t1219, t1222, t1225, t1228, t1231, t1234, t1237;
14275   double t1241, t1244, t1245, t1249, t1250, t1251, t1252, t1254;
14276   double t1255, t1257, t1258, t1260, t1263, t1264, t1270, t1273;
14277   double t1276, t1279, t1282, t1285, t1288, t1291, t1294, t1297;
14278   double t1300, t1303, t1306, t1310, t1313, t1314;
14279 
14280 #ifndef XC_DONT_COMPILE_FXC
14281   double t1318, t1321, t1322, t1323, t1324, t1325, t1326, t1327;
14282   double t1329, t1330, t1331, t1333, t1334, t1335, t1337, t1338;
14283   double t1339, t1340, t1341, t1343, t1344, t1345, t1346, t1347;
14284   double t1348, t1349, t1350, t1352, t1353, t1355, t1356, t1358;
14285   double t1359, t1361, t1362, t1364, t1365, t1366, t1369, t1370;
14286   double t1371, t1374, t1375, t1376, t1379, t1380, t1385, t1391;
14287   double t1392, t1393, t1394, t1395, t1397, t1398, t1401, t1406;
14288   double t1407, t1409, t1412, t1413, t1415, t1417, t1418, t1419;
14289   double t1420, t1422, t1423, t1424, t1425, t1426, t1427, t1429;
14290   double t1430, t1431, t1432, t1438, t1439, t1440, t1442, t1443;
14291   double t1445, t1446, t1448, t1449, t1450, t1452, t1453, t1454;
14292   double t1455, t1460, t1463, t1469, t1470, t1471, t1472, t1475;
14293   double t1478, t1480, t1483, t1484, t1485, t1486, t1487, t1490;
14294   double t1492, t1495, t1498, t1499, t1500, t1503, t1506, t1509;
14295   double t1512, t1513, t1514, t1515, t1518, t1521, t1522, t1523;
14296   double t1526, t1529, t1530, t1531, t1534, t1537, t1538, t1539;
14297   double t1542, t1545, t1546, t1547, t1550, t1554, t1555, t1556;
14298   double t1560, t1565, t1568, t1571, t1574, t1577, t1580, t1583;
14299   double t1585, t1588, t1590, t1592, t1595, t1597, t1600, t1602;
14300   double t1605, t1607, t1610, t1612, t1615, t1616, t1617, t1620;
14301   double t1621, t1622, t1625, t1626, t1627, t1630, t1631, t1632;
14302   double t1635, t1636, t1637, t1641, t1642, t1643, t1646, t1647;
14303   double t1648, t1649, t1650, t1651, t1654, t1655, t1656, t1657;
14304   double t1658, t1661, t1662, t1663, t1664, t1665, t1666, t1669;
14305   double t1670, t1671, t1672, t1673, t1674, t1677, t1678, t1679;
14306   double t1680, t1681, t1682, t1685, t1686, t1687, t1688, t1689;
14307   double t1690, t1695, t1698, t1701, t1704, t1707, t1710, t1715;
14308   double t1718, t1721, t1726, t1729, t1732, t1738, t1741, t1744;
14309   double t1747, t1748, t1751, t1752, t1755, t1756, t1759, t1760;
14310   double t1763, t1768, t1771, t1773, t1776, t1781, t1782, t1786;
14311   double t1787, t1788, t1791, t1792, t1795, t1796, t1799, t1800;
14312   double t1803, t1804, t1807, t1808, t1812, t1813, t1826, t1830;
14313   double t1838, t1839, t1840, t1841, t1846, t1849, t1850, t1852;
14314   double t1853, t1855, t1856, t1857, t1860, t1862, t1864, t1865;
14315   double t1866, t1867, t1868, t1870, t1871, t1872, t1873, t1874;
14316   double t1875, t1876, t1878, t1879, t1880, t1881, t1882, t1883;
14317   double t1884, t1885, t1886, t1887, t1889, t1890, t1891, t1893;
14318   double t1894, t1895, t1896, t1898, t1899, t1900, t1902, t1903;
14319   double t1904, t1906, t1908, t1911, t1914, t1916, t1918, t1919;
14320   double t1922, t1923, t1924, t1926, t1931, t1933, t1936, t1938;
14321   double t1939, t1941, t1944, t1946, t1949, t1951, t1952, t1953;
14322   double t1954, t1956, t1957, t1960, t1961, t1963, t1967, t1968;
14323   double t1970, t1971, t1972, t1973, t1974, t1976, t1977, t1978;
14324   double t1979, t1981, t1982, t1983, t1985, t1986, t1988, t1989;
14325   double t1990, t1991, t1992, t1994, t1995, t1996, t1997, t2000;
14326   double t2001, t2002, t2005, t2006, t2007, t2010, t2011, t2016;
14327   double t2021, t2022, t2023, t2024, t2026, t2027, t2030, t2035;
14328   double t2036, t2038, t2041, t2042, t2044, t2046, t2047, t2048;
14329   double t2049, t2051, t2052, t2053, t2054, t2055, t2057, t2058;
14330   double t2059, t2060, t2066, t2067, t2068, t2070, t2071, t2073;
14331   double t2074, t2076, t2077, t2078, t2080, t2081, t2082, t2083;
14332   double t2088, t2091, t2097, t2098, t2099, t2100, t2103, t2106;
14333   double t2108, t2111, t2112, t2113, t2114, t2115, t2118, t2120;
14334   double t2123, t2126, t2127, t2128, t2131, t2134, t2137, t2140;
14335   double t2143, t2146, t2149, t2152, t2155, t2159, t2160, t2161;
14336   double t2162, t2165, t2166, t2169, t2170, t2171, t2175, t2178;
14337   double t2179, t2180, t2183, t2186, t2187, t2188, t2191, t2194;
14338   double t2195, t2196, t2199, t2202, t2203, t2204, t2207, t2212;
14339   double t2216, t2219, t2222, t2227, t2230, t2233, t2238, t2242;
14340   double t2245, t2248, t2253, t2256, t2259, t2262, t2267, t2270;
14341   double t2273, t2276, t2281, t2284, t2285, t2288, t2289, t2292;
14342   double t2293, t2296, t2297, t2300, t2301, t2304, t2305, t2308;
14343   double t2309, t2313, t2314, t2317, t2318, t2321, t2322, t2325;
14344   double t2326, t2330, t2331, t2332, t2341, t2343, t2344, t2345;
14345   double t2348, t2349, t2350, t2353, t2354, t2355, t2358, t2359;
14346   double t2360, t2363, t2364, t2365, t2368, t2369, t2370, t2373;
14347   double t2374, t2375, t2376, t2377, t2378, t2381, t2382, t2383;
14348   double t2384, t2385, t2388, t2389, t2390, t2391, t2392, t2393;
14349   double t2396, t2397, t2398, t2399, t2400, t2401, t2405, t2406;
14350   double t2407, t2408, t2409, t2410, t2413, t2414, t2415, t2416;
14351   double t2417, t2418, t2421, t2423, t2426, t2428, t2431, t2433;
14352   double t2436, t2438, t2441, t2443, t2446, t2448, t2454, t2458;
14353   double t2466, t2467, t2472, t2475, t2476, t2478, t2479, t2481;
14354   double t2482, t2483, t2486, t2488, t2490, t2491, t2492, t2493;
14355   double t2494, t2496, t2497, t2498, t2499, t2500, t2501, t2502;
14356   double t2504, t2505, t2506, t2507, t2508, t2510, t2512, t2513;
14357   double t2515, t2516, t2517, t2530, t2531, t2532, t2534, t2539;
14358   double t2542, t2544, t2545, t2546, t2547, t2549, t2550, t2552;
14359   double t2553, t2554, t2557, t2558, t2559, t2561, t2562, t2564;
14360   double t2565, t2566, t2567, t2569, t2570, t2571, t2572, t2574;
14361   double t2575, t2576, t2577, t2579, t2580, t2582, t2583, t2587;
14362   double t2590, t2593, t2594, t2597, t2600, t2601, t2603, t2605;
14363   double t2609, t2610, t2611, t2616, t2617, t2618, t2619, t2624;
14364   double t2625, t2626, t2627, t2632, t2633, t2634, t2635, t2640;
14365   double t2641, t2642, t2643, t2648, t2649, t2651, t2652, t2653;
14366   double t2654, t2661, t2662, t2667, t2668, t2669, t2670, t2675;
14367   double t2676, t2681, t2682, t2683, t2688, t2689, t2690, t2693;
14368   double t2696, t2699, t2702, t2705, t2708, t2711, t2714, t2717;
14369   double t2720, t2723, t2726, t2728, t2733, t2734, t2735, t2742;
14370   double t2747, t2748, t2749, t2752, t2753, t2756, t2761, t2762;
14371   double t2763, t2766, t2767, t2770, t2775, t2776, t2777, t2778;
14372   double t2781, t2782, t2785, t2790, t2791, t2792, t2795, t2796;
14373   double t2799, t2804, t2805, t2806, t2809, t2810, t2813, t2818;
14374   double t2819, t2820, t2823, t2824, t2825, t2832, t2835, t2836;
14375   double t2837, t2843, t2846, t2849, t2850, t2852, t2853, t2855;
14376   double t2856, t2857, t2859, t2860, t2861, t2862, t2863, t2864;
14377   double t2865, t2866, t2867, t2868, t2869, t2870, t2871, t2872;
14378   double t2873, t2875, t2876, t2877, t2878, t2879, t2880, t2882;
14379   double t2883, t2884, t2887, t2889, t2890, t2892, t2893, t2895;
14380   double t2896, t2897, t2898, t2899, t2903, t2904, t2906, t2907;
14381   double t2908, t2912, t2913, t2914, t2927, t2928, t2929, t2931;
14382   double t2936, t2939, t2941, t2942, t2943, t2944, t2946, t2947;
14383   double t2949, t2950, t2951, t2954, t2955, t2956, t2958, t2959;
14384   double t2961, t2962, t2963, t2964, t2966, t2967, t2968, t2969;
14385   double t2971, t2972, t2973, t2974, t2976, t2977, t2979, t2980;
14386   double t2984, t2987, t2990, t2991, t2994, t2997, t2998, t3000;
14387   double t3002, t3004, t3005, t3006, t3007, t3012, t3013, t3014;
14388   double t3015, t3020, t3021, t3022, t3023, t3028, t3029, t3031;
14389   double t3032, t3033, t3034, t3039, t3040, t3041, t3046, t3047;
14390   double t3048, t3049, t3056, t3059, t3062, t3065, t3066, t3069;
14391   double t3072, t3075, t3076, t3077, t3082, t3083, t3084, t3089;
14392   double t3090, t3091, t3096, t3097, t3098, t3103, t3104, t3111;
14393   double t3112, t3115, t3118, t3121, t3124, t3126, t3129, t3132;
14394   double t3139, t3140, t3143, t3144, t3149, t3150, t3151, t3154;
14395   double t3155, t3158, t3163, t3168, t3169, t3170, t3173, t3174;
14396   double t3175, t3176, t3179, t3180, t3181, t3184, t3185, t3188;
14397   double t3193, t3194, t3195, t3198, t3199, t3202, t3207, t3208;
14398   double t3209, t3212, t3213, t3216, t3221, t3222, t3229, t3232;
14399   double t3233, t3234, t3240, t3243, t3246, t3247, t3249, t3250;
14400   double t3252, t3253, t3254, t3256, t3257, t3258, t3259, t3260;
14401   double t3261, t3262, t3263, t3264, t3265, t3266, t3267, t3268;
14402   double t3270, t3271, t3272, t3273, t3274, t3275, t3277, t3278;
14403   double t3279, t3283, t3285, t3286, t3287, t3291, t3292, t3293;
14404   double t3296, t3300, t3302, t3303, t3304, t3306, t3307, t3309;
14405   double t3310, t3311, t3314, t3315, t3316, t3318, t3320, t3321;
14406   double t3323, t3324, t3326, t3327, t3328, t3330, t3331, t3333;
14407   double t3334, t3339, t3342, t3343, t3346, t3347, t3354, t3358;
14408   double t3363, t3364, t3369, t3370, t3375, t3376, t3395, t3404;
14409   double t3407, t3410, t3413, t3416, t3419, t3422, t3425, t3428;
14410   double t3431, t3434, t3437, t3443, t3450, t3453, t3456, t3457;
14411   double t3464, t3467, t3468, t3471, t3474, t3479, t3482, t3487;
14412   double t3490, t3501, t3504, t3505, t3518, t3523, t3526, t3529;
14413   double t3530, t3538, t3541, t3542, t3546, t3547, t3549, t3553;
14414   double t3554, t3558, t3562, t3565, t3566, t3567, t3570, t3574;
14415   double t3576, t3577, t3578, t3580, t3581, t3583, t3584, t3585;
14416   double t3588, t3589, t3590, t3592, t3594, t3595, t3597, t3598;
14417   double t3600, t3601, t3602, t3604, t3605, t3607, t3608, t3613;
14418   double t3616, t3617, t3620, t3621, t3628, t3632, t3637, t3638;
14419   double t3643, t3644, t3649, t3650, t3655, t3656, t3661, t3662;
14420   double t3671, t3674, t3675, t3678, t3681, t3684, t3687, t3690;
14421   double t3693, t3696, t3699, t3720, t3724, t3727, t3734, t3737;
14422   double t3744, t3747, t3754, t3757, t3760, t3765, t3768, t3775;
14423   double t3778, t3785, t3788, t3789, t3800, t3803, t3804, t3812;
14424   double t3815, t3817, t3820, t3821, t3824, t3825, t3836, t3837;
14425   double t3839, t3842, t3844, t3845, t3846, t3848, t3849, t3851;
14426   double t3852, t3853, t3854, t3855, t3856, t3857, t3858, t3860;
14427   double t3861, t3862, t3863, t3864, t3867, t3868, t3871, t3874;
14428   double t3877, t3880, t3881, t3883, t3886, t3889, t3891, t3892;
14429   double t3893, t3894, t3895, t3898, t3900, t3901, t3904, t3906;
14430   double t3907, t3908, t3909, t3910, t3912, t3913, t3914, t3917;
14431   double t3919, t3920, t3923, t3925, t3926, t3927, t3928, t3929;
14432   double t3932, t3934, t3935, t3938, t3940, t3941, t3942, t3943;
14433   double t3944, t3947, t3949, t3950, t3953, t3954, t3956, t3957;
14434   double t3958, t3959, t3960, t3963, t3965, t3966, t3969, t3972;
14435   double t3975, t3978, t3981, t3984, t3989, t3991, t3992, t3994;
14436   double t3995, t3996, t3997, t3998, t4001, t4003, t4004, t4017;
14437   double t4020, t4021, t4024, t4026, t4027, t4028, t4030, t4032;
14438   double t4033, t4035, t4037, t4039, t4040, t4042, t4044, t4046;
14439   double t4047, t4058, t4059, t4061, t4064, t4066, t4067, t4068;
14440   double t4070, t4071, t4073, t4074, t4075, t4076, t4077, t4078;
14441   double t4079, t4080, t4082, t4083, t4084, t4085, t4086, t4089;
14442   double t4090, t4093, t4096, t4099, t4102, t4103, t4105, t4108;
14443   double t4110, t4111, t4114, t4116, t4117, t4118, t4119, t4120;
14444   double t4123, t4125, t4126, t4129, t4131, t4132, t4133, t4134;
14445   double t4135, t4138, t4140, t4141, t4144, t4146, t4147, t4148;
14446   double t4149, t4150, t4153, t4155, t4156, t4159, t4161, t4162;
14447   double t4163, t4164, t4165, t4168, t4170, t4171, t4172, t4175;
14448   double t4177, t4178, t4179, t4180, t4181, t4183, t4184, t4185;
14449   double t4188, t4190, t4191, t4194, t4196, t4197, t4198, t4199;
14450   double t4200, t4203, t4205, t4206, t4209, t4212, t4215, t4218;
14451   double t4221, t4226, t4239, t4242, t4243, t4246, t4248, t4249;
14452   double t4250, t4252, t4254, t4255, t4257, t4259, t4261, t4262;
14453   double t4264, t4266, t4268, t4271, t4275, t4276, t4278, t4279;
14454   double t4281, t4282, t4283, t4285, t4286, t4290, t4293, t4296;
14455   double t4297, t4300, t4301, t4308, t4310, t4313, t4316, t4317;
14456   double t4320, t4323, t4326, t4327, t4334, t4335, t4342, t4349;
14457   double t4356, t4362, t4364, t4372, t4375, t4377, t4382, t4385;
14458   double t4389, t4390, t4392, t4393, t4395, t4396, t4397, t4399;
14459   double t4400, t4404, t4407, t4410, t4411, t4414, t4415, t4422;
14460   double t4424, t4425, t4432, t4433, t4434, t4441, t4442, t4449;
14461   double t4450, t4457, t4458, t4465, t4466, t4476, t4478, t4486;
14462   double t4489, t4491, t4496, t4497, t4501, t4504, t4505, t4506;
14463   double t4508, t4509, t4511, t4512, t4514, t4515, t4518, t4519;
14464   double t4525, t4528, t4529, t4536, t4539, t4542, t4545, t4548;
14465   double t4551, t4554, t4557, t4560, t4563, t4566, t4569, t4572;
14466   double t4575, t4578, t4581, t4584, t4587, t4588, t4594, t4607;
14467   double t4610, t4612, t4615, t4616, t4620, t4623, t4624, t4625;
14468   double t4627, t4628, t4630, t4631, t4633, t4634, t4637, t4638;
14469   double t4644, t4647, t4648, t4655, t4658, t4661, t4664, t4667;
14470   double t4670, t4673, t4676, t4679, t4682, t4685, t4688, t4691;
14471   double t4694, t4697, t4700, t4703, t4706, t4707, t4713, t4726;
14472   double t4729, t4731;
14473 
14474 #ifndef XC_DONT_COMPILE_KXC
14475   double t4734, t4736, t4737, t4739, t4741, t4743, t4744, t4745;
14476   double t4747, t4748, t4752, t4758, t4759, t4762, t4767, t4772;
14477   double t4775, t4778, t4779, t4780, t4781, t4784, t4785, t4794;
14478   double t4795, t4797, t4799, t4800, t4801, t4802, t4803, t4805;
14479   double t4806, t4807, t4809, t4810, t4811, t4812, t4813, t4815;
14480   double t4816, t4817, t4820, t4821, t4823, t4824, t4826, t4832;
14481   double t4833, t4834, t4836, t4838, t4839, t4844, t4847, t4853;
14482   double t4854, t4859, t4862, t4865, t4868, t4869, t4870, t4871;
14483   double t4875, t4878, t4881, t4882, t4885, t4886, t4887, t4888;
14484   double t4891, t4892, t4893, t4895, t4897, t4898, t4900, t4902;
14485   double t4905, t4906, t4908, t4909, t4912, t4913, t4915, t4916;
14486   double t4918, t4919, t4920, t4921, t4923, t4924, t4926, t4927;
14487   double t4928, t4930, t4931, t4933, t4934, t4935, t4937, t4938;
14488   double t4939, t4940, t4942, t4943, t4945, t4946, t4947, t4949;
14489   double t4950, t4951, t4956, t4957, t4960, t4967, t4970, t4974;
14490   double t4977, t4996, t4999, t5002, t5004, t5007, t5009, t5012;
14491   double t5013, t5015, t5018, t5020, t5023, t5025, t5028, t5030;
14492   double t5033, t5042, t5045, t5050, t5053, t5056, t5058, t5067;
14493   double t5070, t5073, t5086, t5089, t5090, t5093, t5102, t5105;
14494   double t5108, t5115, t5119, t5121, t5126, t5130, t5135, t5136;
14495   double t5144, t5149, t5150, t5157, t5158, t5164, t5167, t5170;
14496   double t5171, t5177, t5182, t5183, t5187, t5192, t5193, t5200;
14497   double t5207, t5210, t5213, t5217, t5219, t5222, t5224, t5227;
14498   double t5229, t5232, t5235, t5236, t5237, t5240, t5243, t5246;
14499   double t5249, t5252, t5255, t5257, t5260, t5262, t5265, t5267;
14500   double t5270, t5273, t5276, t5279, t5282, t5283, t5286, t5290;
14501   double t5293, t5294, t5297, t5300, t5301, t5304, t5307, t5308;
14502   double t5309, t5312, t5313, t5316, t5317, t5318, t5321, t5322;
14503   double t5325, t5328, t5329, t5330, t5333, t5334, t5337, t5340;
14504   double t5341, t5342, t5345, t5348, t5349, t5350, t5353, t5354;
14505   double t5357, t5360, t5361, t5364, t5367, t5368, t5369, t5372;
14506   double t5373, t5376, t5379, t5380, t5383, t5386, t5387, t5388;
14507   double t5391, t5393, t5394, t5397, t5400, t5401, t5404, t5407;
14508   double t5409, t5413, t5416, t5418, t5421, t5423, t5426, t5428;
14509   double t5431, t5433, t5439, t5446, t5449, t5452, t5455, t5458;
14510   double t5461, t5464, t5467, t5471, t5474, t5475, t5476, t5477;
14511   double t5480, t5483, t5484, t5485, t5488, t5491, t5492, t5493;
14512   double t5496, t5497, t5500, t5501, t5504, t5505, t5506, t5509;
14513   double t5510, t5513, t5514, t5515, t5518, t5519, t5520, t5523;
14514   double t5524, t5527, t5530, t5531, t5534, t5535, t5540, t5543;
14515   double t5544, t5547, t5548, t5553, t5556, t5557, t5560, t5561;
14516   double t5566, t5568, t5571, t5572, t5575, t5576, t5581, t5584;
14517   double t5585, t5588, t5589, t5594, t5597, t5598, t5601, t5602;
14518   double t5607, t5610, t5613, t5614, t5615, t5618, t5621, t5622;
14519   double t5623, t5626, t5627, t5628, t5631, t5632, t5635, t5638;
14520   double t5639, t5640, t5643, t5644, t5647, t5648, t5649, t5652;
14521   double t5653, t5656, t5657, t5658, t5661, t5664, t5673, t5674;
14522   double t5677, t5678, t5689, t5691, t5696, t5699, t5700, t5702;
14523   double t5703, t5705, t5706, t5707, t5709, t5710, t5711, t5713;
14524   double t5714, t5716, t5717, t5718, t5719, t5720, t5722, t5723;
14525   double t5725, t5727, t5729, t5730, t5733, t5734, t5735, t5736;
14526   double t5737, t5739, t5740, t5742, t5744, t5746, t5747, t5748;
14527   double t5749, t5750, t5752, t5753, t5755, t5756, t5758, t5759;
14528   double t5760, t5761, t5762, t5764, t5765, t5767, t5769, t5771;
14529   double t5772, t5773, t5774, t5775, t5776, t5778, t5779, t5780;
14530   double t5781, t5783, t5786, t5787, t5788, t5789, t5790, t5791;
14531   double t5793, t5794, t5795, t5797, t5798, t5800, t5802, t5804;
14532   double t5805, t5807, t5808, t5809, t5811, t5813, t5815, t5816;
14533   double t5818, t5819, t5821, t5822, t5823, t5824, t5826, t5827;
14534   double t5828, t5829, t5830, t5832, t5836, t5838, t5839, t5841;
14535   double t5842, t5843, t5844, t5846, t5847, t5848, t5849, t5850;
14536   double t5851, t5853, t5854, t5855, t5856, t5857, t5858, t5860;
14537   double t5861, t5862, t5863, t5865, t5866, t5867, t5868, t5869;
14538   double t5870, t5871, t5873, t5874, t5875, t5876, t5877, t5879;
14539   double t5880, t5881, t5883, t5884, t5885, t5886, t5887, t5888;
14540   double t5889, t5891, t5893, t5894, t5895, t5911, t5913, t5916;
14541   double t5917, t5918, t5922, t5924, t5926, t5928, t5930, t5933;
14542   double t5935, t5938, t5939, t5940, t5942, t5945, t5946, t5947;
14543   double t5949, t5951, t5953, t5955, t5957, t5959, t5961, t5963;
14544   double t5965, t5975, t5977, t5978, t5979, t5980, t5981, t5982;
14545   double t5983, t5985, t5988, t5991, t5992, t5993, t5995, t5997;
14546   double t6000, t6001, t6003, t6006, t6008, t6010, t6011, t6013;
14547   double t6016, t6018, t6020, t6024, t6027, t6028, t6030, t6031;
14548   double t6032, t6035, t6036, t6038, t6039, t6040, t6042, t6043;
14549   double t6045, t6046, t6047, t6048, t6050, t6051, t6053, t6055;
14550   double t6056, t6058, t6060, t6063, t6064, t6068, t6069, t6070;
14551   double t6071, t6073, t6078, t6079, t6080, t6082, t6084, t6085;
14552   double t6086, t6087, t6088, t6089, t6090, t6094, t6096, t6101;
14553   double t6103, t6104, t6106, t6107, t6109, t6111, t6113, t6119;
14554   double t6121, t6124, t6125, t6127, t6129, t6130, t6131, t6132;
14555   double t6133, t6136, t6139, t6141, t6143, t6145, t6148, t6150;
14556   double t6152, t6154, t6156, t6158, t6160, t6163, t6165, t6166;
14557   double t6168, t6171, t6174, t6177, t6179, t6181, t6184, t6187;
14558   double t6190, t6192, t6193, t6194, t6196, t6198, t6199, t6200;
14559   double t6202, t6204, t6205, t6207, t6209, t6210, t6212, t6213;
14560   double t6214, t6216, t6217, t6221, t6222, t6225, t6226, t6228;
14561   double t6234, t6236, t6237, t6239, t6240, t6242, t6243, t6245;
14562   double t6246, t6247, t6248, t6250, t6251, t6252, t6253, t6255;
14563   double t6256, t6257, t6258, t6260, t6262, t6263, t6264, t6265;
14564   double t6267, t6268, t6270, t6271, t6274, t6275, t6276, t6277;
14565   double t6279, t6280, t6281, t6282, t6283, t6284, t6285, t6286;
14566   double t6287, t6288, t6289, t6290, t6292, t6293, t6294, t6295;
14567   double t6296, t6297, t6298, t6300, t6301, t6302, t6305, t6308;
14568   double t6314, t6316, t6317, t6321, t6329, t6334, t6339, t6342;
14569   double t6345, t6346, t6349, t6350, t6358, t6359, t6360, t6361;
14570   double t6364, t6365, t6367, t6368, t6371, t6372, t6374, t6375;
14571   double t6376, t6378, t6379, t6381, t6382, t6383, t6385, t6386;
14572   double t6388, t6390, t6391, t6393, t6394, t6396, t6398, t6399;
14573   double t6400, t6402, t6403, t6405, t6406, t6407, t6409, t6410;
14574   double t6411, t6413, t6414, t6415, t6417, t6419, t6420, t6421;
14575   double t6422, t6423, t6425, t6426, t6427, t6429, t6430, t6431;
14576   double t6432, t6434, t6435, t6436, t6438, t6440, t6442, t6448;
14577   double t6449, t6450, t6452, t6454, t6455, t6460, t6463, t6469;
14578   double t6470, t6475, t6478, t6481, t6484, t6485, t6487, t6490;
14579   double t6491, t6494, t6497, t6498, t6501, t6502, t6503, t6504;
14580   double t6506, t6509, t6510, t6511, t6513, t6514, t6515, t6520;
14581   double t6521, t6524, t6531, t6534, t6538, t6541, t6551, t6554;
14582   double t6556, t6559, t6561, t6564, t6566, t6569, t6571, t6574;
14583   double t6576, t6579, t6581, t6584, t6586, t6589, t6591, t6594;
14584   double t6597, t6600, t6603, t6606, t6607, t6610, t6613, t6615;
14585   double t6618, t6620, t6623, t6626, t6629, t6630, t6631, t6634;
14586   double t6635, t6638, t6641, t6642, t6645, t6648, t6651, t6652;
14587   double t6655, t6657, t6660, t6661, t6662, t6665, t6666, t6669;
14588   double t6672, t6673, t6676, t6677, t6678, t6681, t6682, t6685;
14589   double t6688, t6689, t6692, t6695, t6698, t6700, t6703, t6704;
14590   double t6707, t6708, t6709, t6710, t6713, t6714, t6717, t6720;
14591   double t6721, t6724, t6725, t6728, t6731, t6732, t6735, t6738;
14592   double t6739, t6740, t6743, t6746, t6747, t6748, t6751, t6752;
14593   double t6755, t6758, t6761, t6762, t6765, t6768, t6769, t6772;
14594   double t6773, t6774, t6775, t6778, t6781, t6784, t6787, t6790;
14595   double t6792, t6795, t6797, t6800, t6802, t6805, t6807, t6810;
14596   double t6812, t6815, t6816, t6818, t6821, t6830, t6835, t6838;
14597   double t6841, t6850, t6852, t6855, t6858, t6861, t6862, t6867;
14598   double t6870, t6871, t6872, t6875, t6878, t6881, t6884, t6885;
14599   double t6886, t6889, t6892, t6895, t6896, t6897, t6902, t6905;
14600   double t6906, t6907, t6910, t6913, t6916, t6923, t6926, t6935;
14601   double t6940, t6945, t6946, t6949, t6950, t6955, t6958, t6959;
14602   double t6960, t6963, t6966, t6969, t6970, t6975, t6978, t6979;
14603   double t6980, t6983, t6984, t6987, t6988, t6991, t6992, t6997;
14604   double t7000, t7003, t7006, t7009, t7012, t7016, t7019, t7022;
14605   double t7036, t7039, t7040, t7043, t7044, t7045, t7046, t7049;
14606   double t7052, t7053, t7054, t7057, t7060, t7061, t7062, t7065;
14607   double t7068, t7069, t7070, t7073, t7076, t7077, t7078, t7081;
14608   double t7084, t7085, t7088, t7089, t7090, t7093, t7099, t7104;
14609   double t7107, t7110, t7119, t7122, t7125, t7130, t7145, t7155;
14610   double t7160, t7161, t7167, t7169, t7174, t7175, t7178, t7179;
14611   double t7180, t7186, t7191, t7192, t7198, t7204, t7209, t7210;
14612   double t7217, t7220, t7229, t7230, t7233, t7234, t7245, t7250;
14613   double t7253, t7254, t7256, t7257, t7258, t7260, t7261, t7262;
14614   double t7264, t7265, t7266, t7268, t7270, t7271, t7272, t7274;
14615   double t7278, t7280, t7281, t7283, t7284, t7285, t7286, t7288;
14616   double t7289, t7290, t7291, t7292, t7293, t7295, t7296, t7297;
14617   double t7298, t7300, t7301, t7302, t7303, t7304, t7305, t7307;
14618   double t7308, t7309, t7311, t7312, t7313, t7315, t7316, t7317;
14619   double t7319, t7336, t7340, t7346, t7347, t7348, t7350, t7351;
14620   double t7352, t7353, t7355, t7356, t7357, t7358, t7359, t7360;
14621   double t7361, t7362, t7363, t7364, t7365, t7366, t7367, t7369;
14622   double t7370, t7371, t7372, t7373, t7374, t7375, t7377, t7378;
14623   double t7379, t7381, t7382, t7383, t7384, t7385, t7386, t7387;
14624   double t7388, t7390, t7391, t7392, t7394, t7396, t7397, t7398;
14625   double t7400, t7401, t7402, t7404, t7405, t7406, t7407, t7408;
14626   double t7410, t7411, t7412, t7413, t7415, t7416, t7417, t7418;
14627   double t7419, t7420, t7421, t7422, t7423, t7425, t7426, t7427;
14628   double t7428, t7429, t7430, t7431, t7432, t7433, t7435, t7436;
14629   double t7437, t7438, t7439, t7440, t7441, t7443, t7444, t7445;
14630   double t7446, t7448, t7449, t7450, t7451, t7452, t7454, t7455;
14631   double t7456, t7457, t7458, t7460, t7461, t7462, t7464, t7465;
14632   double t7467, t7468, t7472, t7493, t7496, t7505, t7506, t7507;
14633   double t7509, t7510, t7511, t7513, t7514, t7515, t7517, t7518;
14634   double t7519, t7520, t7522, t7524, t7525, t7527, t7528, t7529;
14635   double t7531, t7532, t7534, t7535, t7537, t7539, t7542, t7543;
14636   double t7544, t7546, t7548, t7549, t7551, t7552, t7554, t7555;
14637   double t7557, t7558, t7560, t7561, t7562, t7564, t7565, t7567;
14638   double t7568, t7569, t7571, t7572, t7574, t7575, t7577, t7578;
14639   double t7580, t7581, t7582, t7584, t7585, t7587, t7589, t7591;
14640   double t7592, t7593, t7594, t7596, t7597, t7599, t7600, t7602;
14641   double t7603, t7604, t7605, t7606, t7608, t7610, t7611, t7613;
14642   double t7614, t7615, t7617, t7619, t7620, t7621, t7629, t7633;
14643   double t7639, t7640, t7643, t7644, t7647, t7648, t7651, t7654;
14644   double t7655, t7657, t7660, t7670, t7671, t7676, t7677, t7678;
14645   double t7681, t7682, t7685, t7686, t7691, t7692, t7695, t7698;
14646   double t7699, t7704, t7705, t7708, t7711, t7712, t7717, t7718;
14647   double t7719, t7722, t7725, t7726, t7729, t7736, t7737, t7746;
14648   double t7749, t7750, t7753, t7756, t7757, t7760, t7763, t7765;
14649   double t7766, t7769, t7772, t7775, t7776, t7779, t7782, t7785;
14650   double t7788, t7791, t7806, t7807, t7808, t7811, t7816, t7819;
14651   double t7820, t7823, t7826, t7827, t7830, t7833, t7836, t7849;
14652   double t7854, t7855, t7870, t7885, t7898, t7899, t7902, t7905;
14653   double t7908, t7911, t7912, t7915, t7918, t7921, t7922, t7923;
14654   double t7926, t7929, t7931, t7936, t7937, t7940, t7943, t7948;
14655   double t7949, t7952, t7953, t7956, t7959, t7960, t7961, t7964;
14656   double t7965, t7966, t7969, t7972, t7977, t7978, t7979, t7982;
14657   double t7983, t7986, t7989, t7990, t7995, t7996, t8003, t8004;
14658   double t8005, t8010, t8011, t8012, t8017, t8018, t8019, t8020;
14659   double t8023, t8026, t8031, t8035, t8040, t8041, t8042, t8047;
14660   double t8048, t8049, t8054, t8055, t8056, t8067, t8083, t8094;
14661   double t8099, t8104, t8107, t8110, t8111, t8118, t8123, t8128;
14662   double t8131, t8134, t8137, t8140, t8143, t8146, t8149, t8152;
14663   double t8155, t8158, t8161, t8188, t8191, t8194, t8195, t8200;
14664   double t8205, t8212, t8215, t8216, t8219, t8224, t8229, t8233;
14665   double t8234, t8239, t8248, t8249, t8252, t8259, t8260, t8265;
14666   double t8266, t8269, t8272, t8281, t8284, t8285, t8290, t8291;
14667   double t8294, t8297, t8298, t8303, t8304, t8307, t8310, t8315;
14668   double t8316, t8319, t8320, t8323, t8326, t8335, t8338, t8341;
14669   double t8342, t8344, t8345, t8346, t8349, t8351, t8353, t8354;
14670   double t8355, t8357, t8358, t8360, t8361, t8363, t8364, t8366;
14671   double t8367, t8368, t8369, t8370, t8372, t8373, t8374, t8375;
14672   double t8376, t8380, t8383, t8386, t8388, t8390, t8392, t8397;
14673   double t8398, t8399, t8400, t8401, t8403, t8405, t8406, t8409;
14674   double t8410, t8413, t8414, t8416, t8417, t8420, t8421, t8428;
14675   double t8432, t8435, t8437, t8439, t8442, t8444, t8447, t8449;
14676   double t8450, t8451, t8454, t8455, t8457, t8458, t8459, t8460;
14677   double t8461, t8463, t8465, t8467, t8468, t8471, t8473, t8475;
14678   double t8477, t8478, t8480, t8481, t8484, t8485, t8487, t8490;
14679   double t8491, t8492, t8494, t8496, t8501, t8502, t8503, t8505;
14680   double t8506, t8508, t8509, t8510, t8511, t8513, t8514, t8515;
14681   double t8528, t8549, t8552, t8559, t8562, t8563, t8564, t8565;
14682   double t8566, t8568, t8569, t8570, t8572, t8573, t8574, t8576;
14683   double t8577, t8579, t8580, t8582, t8583, t8585, t8587, t8590;
14684   double t8591, t8592, t8594, t8596, t8597, t8599, t8600, t8602;
14685   double t8603, t8604, t8606, t8607, t8609, t8611, t8613, t8614;
14686   double t8616, t8617, t8618, t8620, t8621, t8622, t8623, t8625;
14687   double t8626, t8627, t8629, t8630, t8631, t8633, t8634, t8635;
14688   double t8636, t8638, t8640, t8641, t8643, t8644, t8645, t8647;
14689   double t8648, t8650, t8651, t8652, t8654, t8655, t8657, t8658;
14690   double t8660, t8661, t8663, t8664, t8666, t8667, t8668, t8670;
14691   double t8671, t8673, t8674, t8676, t8677, t8678, t8686, t8690;
14692   double t8697, t8700, t8701, t8705, t8708, t8711, t8712, t8714;
14693   double t8717, t8729, t8734, t8745, t8748, t8749, t8754, t8755;
14694   double t8760, t8761, t8762, t8765, t8766, t8767, t8770, t8771;
14695   double t8774, t8777, t8778, t8783, t8784, t8787, t8790, t8791;
14696   double t8796, t8797, t8800, t8803, t8804, t8809, t8810, t8813;
14697   double t8816, t8818, t8819, t8824, t8825, t8828, t8842, t8843;
14698   double t8846, t8847, t8848, t8851, t8854, t8859, t8860, t8863;
14699   double t8866, t8867, t8868, t8871, t8874, t8879, t8880, t8881;
14700   double t8888, t8891, t8894, t8901, t8902, t8903, t8906, t8909;
14701   double t8914, t8921, t8924, t8931, t8934, t8937, t8938, t8943;
14702   double t8944, t8949, t8950, t8955, t8956, t8961, t8962, t8965;
14703   double t8966, t8969, t8974, t8977, t8980, t8984, t8987, t8990;
14704   double t8991, t8994, t8999, t9002, t9005, t9008, t9011, t9014;
14705   double t9017, t9020, t9023, t9026, t9027, t9030, t9033, t9054;
14706   double t9061, t9069, t9070, t9077, t9078, t9081, t9090, t9091;
14707   double t9098, t9099, t9102, t9103, t9104, t9107, t9120, t9123;
14708   double t9124, t9125, t9126, t9131, t9132, t9133, t9136, t9140;
14709   double t9141, t9142, t9147, t9148, t9149, t9154, t9155, t9156;
14710   double t9161, t9162, t9165, t9166, t9175, t9184, t9187, t9190;
14711   double t9191, t9194, t9197, t9200, t9211, t9214, t9215, t9218;
14712   double t9228, t9231, t9234, t9241, t9242, t9243, t9246, t9247;
14713   double t9248, t9255, t9258, t9265, t9268, t9275, t9282, t9285;
14714   double t9293, t9296, t9303, t9306, t9307, t9310, t9311, t9314;
14715   double t9317, t9320, t9323, t9326, t9329, t9342, t9343, t9346;
14716   double t9349, t9352, t9363, t9364, t9367, t9372, t9373, t9376;
14717   double t9377, t9380, t9383, t9392, t9395, t9398, t9399, t9401;
14718   double t9402, t9404, t9406, t9407, t9409, t9410, t9411, t9412;
14719   double t9413, t9415, t9416, t9417, t9419, t9420, t9421, t9422;
14720   double t9423, t9425, t9426, t9427, t9428, t9430, t9431, t9432;
14721   double t9433, t9434, t9435, t9436, t9437, t9438, t9440, t9441;
14722   double t9442, t9443, t9444, t9445, t9446, t9447, t9448, t9449;
14723   double t9451, t9452, t9453, t9455, t9456, t9457, t9458, t9459;
14724   double t9461, t9462, t9463, t9464, t9465, t9466, t9467, t9468;
14725   double t9469, t9470, t9472, t9473, t9474, t9475, t9476, t9478;
14726   double t9479, t9480, t9481, t9482, t9483, t9484, t9486, t9487;
14727   double t9488, t9489, t9490, t9491, t9492, t9494, t9495, t9496;
14728   double t9497, t9498, t9499, t9500, t9501, t9504, t9506, t9510;
14729   double t9512, t9514, t9515, t9517, t9521, t9524, t9525, t9531;
14730   double t9532, t9535, t9538, t9539, t9542, t9543, t9546, t9549;
14731   double t9553, t9560, t9562, t9564, t9566, t9569, t9570, t9571;
14732   double t9573, t9575, t9576, t9578, t9580, t9581, t9583, t9584;
14733   double t9586, t9587, t9589, t9590, t9591, t9593, t9594, t9596;
14734   double t9597, t9598, t9600, t9601, t9603, t9605, t9607, t9608;
14735   double t9609, t9610, t9612, t9613, t9615, t9616, t9618, t9619;
14736   double t9621, t9623, t9625, t9626, t9628, t9629, t9631, t9632;
14737   double t9634, t9636, t9637, t9639, t9640, t9642, t9643, t9645;
14738   double t9646, t9647, t9649, t9650, t9651, t9653, t9655, t9657;
14739   double t9658, t9659, t9673, t9674, t9677, t9685, t9686, t9704;
14740   double t9707, t9720, t9727, t9730, t9737, t9740, t9751, t9754;
14741   double t9771, t9773, t9776, t9798, t9821, t9847, t9856, t9859;
14742   double t9864, t9869, t9874, t9875, t9880, t9881, t9886, t9888;
14743   double t9889, t9894, t9895, t9900, t9901, t9904, t9907, t9912;
14744   double t9917, t9920, t9923, t9930, t9931, t9936, t9949, t9959;
14745   double t9988, t10017, t10021, t10024, t10027, t10030, t10033, t10036;
14746   double t10039, t10042, t10045, t10048, t10051, t10054, t10059, t10088;
14747   double t10091, t10094, t10099, t10102, t10103, t10112, t10115, t10122;
14748   double t10125, t10132, t10133, t10136, t10143, t10146, t10159, t10162;
14749   double t10169, t10171, t10174, t10185, t10188, t10191, t10192, t10201;
14750   double t10208, t10209, t10212, t10215, t10224, t10227, t10234, t10245;
14751   double t10250, t10253, t10254, t10259, t10270, t10273, t10274, t10279;
14752   double t10286, t10287, t10288, t10290, t10293, t10295, t10299, t10300;
14753   double t10310, t10311, t10312, t10314, t10317, t10322, t10323, t10324;
14754   double t10328, t10330, t10333, t10336, t10337, t10339, t10340, t10344;
14755   double t10345, t10346, t10348, t10349, t10353, t10356, t10361, t10364;
14756   double t10368, t10371, t10372, t10375, t10378, t10379, t10382, t10383;
14757   double t10386, t10389, t10393, t10400, t10402, t10403, t10405, t10406;
14758   double t10407, t10409, t10410, t10412, t10414, t10415, t10417, t10418;
14759   double t10419, t10421, t10422, t10425, t10426, t10428, t10429, t10430;
14760   double t10432, t10434, t10436, t10437, t10439, t10442, t10443, t10444;
14761   double t10446, t10448, t10449, t10451, t10452, t10454, t10456, t10458;
14762   double t10460, t10462, t10463, t10465, t10466, t10468, t10469, t10471;
14763   double t10472, t10474, t10476, t10478, t10479, t10481, t10482, t10484;
14764   double t10485, t10486, t10488, t10489, t10491, t10492, t10494, t10495;
14765   double t10497, t10498, t10499, t10514, t10517, t10525, t10526, t10544;
14766   double t10547, t10548, t10553, t10554, t10559, t10560, t10565, t10566;
14767   double t10571, t10572, t10575, t10584, t10585, t10594, t10599, t10612;
14768   double t10619, t10623, t10626, t10631, t10636, t10641, t10646, t10655;
14769   double t10658, t10681, t10714, t10736, t10739, t10742, t10748, t10751;
14770   double t10758, t10761, t10762, t10765, t10772, t10779, t10782, t10783;
14771   double t10786, t10789, t10792, t10795, t10798, t10801, t10804, t10807;
14772   double t10810, t10813, t10824, t10856, t10880, t10884, t10887, t10902;
14773   double t10905, t10910, t10913, t10918, t10919, t10922, t10927, t10930;
14774   double t10937, t10940, t10945, t10952, t10955, t10956, t10959, t10968;
14775   double t10975, t10978, t10995, t11000, t11003, t11018, t11029, t11045;
14776   double t11048, t11049, t11056, t11059, t11066, t11069, t11078, t11085;
14777   double t11090, t11093, t11094, t11099, t11110, t11113, t11115, t11118;
14778   double t11119, t11126, t11127, t11128, t11130, t11139, t11142, t11155;
14779   double t11156, t11159, t11166, t11167, t11168, t11170, t11171, t11172;
14780   double t11173, t11175, t11176, t11177, t11178, t11179, t11180, t11181;
14781   double t11182, t11183, t11185, t11186, t11187, t11188, t11189, t11190;
14782   double t11192, t11193, t11195, t11196, t11198, t11199, t11201, t11202;
14783   double t11204, t11205, t11206, t11207, t11208, t11209, t11210, t11211;
14784   double t11212, t11213, t11214, t11216, t11217, t11218, t11220, t11221;
14785   double t11223, t11224, t11225, t11226, t11227, t11228, t11229, t11230;
14786   double t11231, t11232, t11234, t11235, t11236, t11237, t11239, t11241;
14787   double t11243, t11244, t11245, t11250, t11256, t11262, t11263, t11266;
14788   double t11270, t11273, t11276, t11277, t11279, t11284, t11287, t11292;
14789   double t11293, t11294, t11297, t11298, t11299, t11300, t11301, t11302;
14790   double t11303, t11304, t11307, t11308, t11309, t11312, t11313, t11314;
14791   double t11315, t11317, t11318, t11320, t11321, t11322, t11323, t11326;
14792   double t11327, t11328, t11331, t11332, t11333, t11335, t11336, t11337;
14793   double t11340, t11341, t11342, t11343, t11344, t11347, t11348, t11349;
14794   double t11350, t11351, t11352, t11353, t11354, t11357, t11358, t11359;
14795   double t11370, t11372, t11373, t11374, t11375, t11376, t11377, t11380;
14796   double t11381, t11386, t11389, t11390, t11391, t11392, t11393, t11394;
14797   double t11397, t11398, t11401, t11402, t11404, t11410, t11411, t11413;
14798   double t11418, t11419, t11422, t11423, t11426, t11427, t11430, t11431;
14799   double t11432, t11433, t11434, t11437, t11438, t11441, t11442, t11445;
14800   double t11446, t11447, t11448, t11451, t11452, t11455, t11456, t11457;
14801   double t11459, t11460, t11461, t11474, t11475, t11482, t11483, t11484;
14802   double t11487, t11489, t11493, t11497, t11500, t11501, t11504, t11519;
14803   double t11522, t11525, t11528, t11530, t11533, t11536, t11539, t11540;
14804   double t11541, t11542, t11545, t11548, t11551, t11552, t11553, t11554;
14805   double t11555, t11556, t11557, t11558, t11559, t11560, t11563, t11564;
14806   double t11567, t11568, t11571, t11572, t11573, t11574, t11581, t11582;
14807   double t11583, t11584, t11585, t11586, t11587, t11588, t11595, t11598;
14808   double t11599, t11600, t11601, t11606, t11607, t11608, t11609, t11610;
14809   double t11611, t11612, t11613, t11620, t11621, t11622, t11623, t11624;
14810   double t11631, t11632, t11633, t11638, t11639, t11640, t11641, t11642;
14811   double t11643, t11644, t11645, t11652, t11654, t11655, t11656, t11657;
14812   double t11658, t11659, t11660, t11663, t11666, t11669, t11670, t11671;
14813   double t11672, t11681, t11686, t11687, t11688, t11689, t11690, t11691;
14814   double t11692, t11693, t11700, t11701, t11702, t11703, t11708, t11713;
14815   double t11714, t11717, t11722, t11723, t11734, t11737, t11738, t11740;
14816   double t11741, t11742, t11744, t11745, t11747, t11748, t11749, t11750;
14817   double t11751, t11753, t11754, t11755, t11757, t11758, t11759, t11760;
14818   double t11761, t11763, t11764, t11765, t11766, t11768, t11769, t11770;
14819   double t11771, t11772, t11773, t11774, t11775, t11776, t11778, t11779;
14820   double t11780, t11781, t11782, t11784, t11785, t11786, t11787, t11789;
14821   double t11790, t11791, t11792, t11793, t11794, t11796, t11797, t11798;
14822   double t11799, t11800, t11801, t11803, t11804, t11805, t11806, t11808;
14823   double t11809, t11810, t11811, t11812, t11813, t11814, t11815, t11816;
14824   double t11817, t11819, t11820, t11821, t11822, t11823, t11824, t11826;
14825   double t11827, t11828, t11829, t11830, t11831, t11832, t11833, t11836;
14826   double t11838, t11839, t11841, t11842, t11843, t11844, t11845, t11846;
14827   double t11848, t11849, t11850, t11851, t11852, t11854, t11855, t11856;
14828   double t11857, t11858, t11860, t11861, t11862, t11863, t11864, t11865;
14829   double t11869, t11870, t11871, t11872, t11874, t11875, t11876, t11878;
14830   double t11879, t11880, t11881, t11882, t11883, t11887, t11888, t11895;
14831   double t11898, t11911, t11912, t11915, t11922, t11923, t11924, t11925;
14832   double t11926, t11928, t11929, t11930, t11931, t11932, t11933, t11934;
14833   double t11936, t11937, t11938, t11939, t11941, t11942, t11943, t11944;
14834   double t11945, t11946, t11948, t11949, t11950, t11952, t11954, t11955;
14835   double t11956, t11957, t11959, t11960, t11961, t11962, t11963, t11964;
14836   double t11965, t11966, t11967, t11968, t11970, t11971, t11973, t11974;
14837   double t11976, t11977, t11979, t11980, t11982, t11983, t11985, t11986;
14838   double t11987, t11989, t11990, t11992, t11993, t11994, t11995, t11996;
14839   double t11997, t11998, t11999, t12000, t12001, t12006, t12012, t12018;
14840   double t12019, t12022, t12026, t12029, t12032, t12033, t12035, t12040;
14841   double t12043, t12048, t12049, t12050, t12053, t12054, t12055, t12056;
14842   double t12057, t12058, t12059, t12060, t12063, t12064, t12065, t12068;
14843   double t12069, t12070, t12071, t12072, t12073, t12074, t12075, t12078;
14844   double t12079, t12087, t12090, t12091, t12092, t12093, t12094, t12095;
14845   double t12096, t12097, t12100, t12101, t12102, t12105, t12106, t12107;
14846   double t12108, t12110, t12111, t12113, t12114, t12115, t12116, t12119;
14847   double t12120, t12121, t12124, t12125, t12126, t12127, t12129, t12130;
14848   double t12131, t12140, t12141, t12142, t12145, t12146, t12147, t12148;
14849   double t12149, t12150, t12153, t12154, t12155, t12156, t12161, t12162;
14850   double t12165, t12166, t12179, t12182, t12183, t12184, t12185, t12188;
14851   double t12189, t12192, t12193, t12196, t12197, t12200, t12201, t12202;
14852   double t12206, t12207, t12210, t12211, t12214, t12215, t12216, t12217;
14853   double t12218, t12221, t12222, t12226, t12227, t12230, t12239, t12242;
14854   double t12245, t12248, t12251, t12255, t12258, t12261, t12262, t12263;
14855   double t12264, t12265, t12266, t12267, t12268, t12269, t12270, t12271;
14856   double t12272, t12273, t12278, t12281, t12284, t12287, t12288, t12291;
14857   double t12302, t12303, t12304, t12305, t12306, t12307, t12308, t12309;
14858   double t12316, t12318, t12319, t12320, t12321, t12328, t12329, t12330;
14859   double t12331, t12332, t12333, t12342, t12343, t12344, t12345, t12346;
14860   double t12347, t12348, t12355, t12356, t12357, t12358, t12359, t12360;
14861   double t12361, t12362, t12363, t12366, t12369, t12372, t12373, t12374;
14862   double t12377, t12378, t12391, t12392, t12393, t12394, t12395, t12396;
14863   double t12401, t12402, t12403, t12404, t12405, t12406, t12407, t12408;
14864   double t12409, t12410, t12411, t12414, t12415, t12418, t12421, t12422;
14865   double t12423, t12424, t12431, t12432, t12433, t12435, t12436, t12437;
14866   double t12438, t12446, t12449, t12451, t12452, t12453, t12462, t12463;
14867   double t12464, t12469, t12470, t12473, t12478, t12479, t12490, t12493;
14868   double t12494, t12496, t12497, t12499, t12500, t12501, t12502, t12503;
14869   double t12505, t12506, t12507, t12508, t12510, t12511, t12512, t12513;
14870   double t12514, t12515, t12516, t12517, t12518, t12520, t12521, t12522;
14871   double t12523, t12525, t12526, t12527, t12529, t12530, t12531, t12533;
14872   double t12534, t12535, t12536, t12537, t12538, t12539, t12540, t12541;
14873   double t12543, t12544, t12545, t12546, t12547, t12548, t12549, t12551;
14874   double t12552, t12553, t12554, t12555, t12556, t12558, t12559, t12560;
14875   double t12561, t12562, t12563, t12565, t12566, t12567, t12568, t12569;
14876   double t12570, t12571, t12572, t12576, t12577, t12578, t12581, t12582;
14877   double t12587, t12590, t12593, t12596, t12599, t12603, t12610, t12611;
14878   double t12614, t12618, t12619, t12620, t12621, t12622, t12624, t12626;
14879   double t12628, t12629, t12631, t12632, t12633, t12635, t12636, t12638;
14880   double t12639, t12641, t12642, t12644, t12645, t12647, t12648, t12650;
14881   double t12652, t12654, t12656, t12657, t12658, t12660, t12661, t12663;
14882   double t12664, t12666, t12667, t12669, t12670, t12672, t12673, t12674;
14883   double t12685, t12692, t12695, t12696, t12703, t12706, t12707, t12714;
14884   double t12715, t12730, t12732, t12738, t12739, t12744, t12745, t12751;
14885   double t12754, t12759, t12766, t12773, t12778, t12781, t12798, t12805;
14886   double t12821, t12824, t12827, t12830, t12833, t12836, t12845, t12848;
14887   double t12859, t12862, t12867, t12877, t12880, t12891, t12898, t12914;
14888   double t12917, t12920, t12922, t12925, t12928, t12931, t12934, t12941;
14889   double t12944, t12953, t12964, t12967, t12970, t12982, t12996, t13001;
14890   double t13020, t13022, t13028, t13033, t13036, t13041, t13044, t13045;
14891   double t13056, t13059, t13060, t13062, t13065, t13066, t13070, t13075;
14892   double t13077, t13078, t13083, t13085, t13089, t13090, t13091, t13095;
14893   double t13098, t13103, t13106, t13107, t13112, t13115, t13118, t13121;
14894   double t13124, t13128, t13135, t13136, t13139, t13143, t13144, t13145;
14895   double t13146, t13148, t13149, t13151, t13152, t13154, t13155, t13157;
14896   double t13158, t13160, t13161, t13163, t13164, t13166, t13167, t13169;
14897   double t13170, t13172, t13173, t13175, t13176, t13178, t13179, t13181;
14898   double t13183, t13185, t13186, t13188, t13189, t13190, t13192, t13194;
14899   double t13195, t13197, t13198, t13199, t13210, t13217, t13220, t13221;
14900   double t13224, t13228, t13231, t13232, t13239, t13240, t13255, t13257;
14901   double t13268, t13271, t13274, t13277, t13284, t13285, t13288, t13299;
14902   double t13302, t13311, t13314, t13316, t13327, t13330, t13343, t13362;
14903   double t13371, t13394, t13395, t13398, t13401, t13403, t13406, t13419;
14904   double t13422, t13431, t13434, t13437, t13448, t13451, t13462, t13478;
14905   double t13481, t13489, t13500, t13502, t13507, t13514, t13521, t13528;
14906   double t13533, t13538, t13539, t13546, t13549, t13550, t13552, t13553;
14907   double t13558, t13561, t13566, t13569, t13570, t13581, t13584, t13585;
14908   double t13587, t13590, t13591, t13598, t13600, t13601, t13606, t13608;
14909   double t13611, t13613, t13614, t13617, t13618, t13624, t13625, t13635;
14910   double t13638, t13639, t13642, t13646, t13647, t13648, t13650, t13651;
14911   double t13653, t13654, t13655, t13657, t13658, t13659, t13661, t13662;
14912   double t13664, t13665, t13667, t13668, t13669, t13671, t13672, t13674;
14913   double t13675, t13676, t13678, t13679, t13681, t13682, t13684, t13686;
14914   double t13688, t13690, t13692, t13693, t13694, t13699, t13709, t13720;
14915   double t13721, t13728, t13729, t13743, t13746, t13747, t13750, t13753;
14916   double t13760, t13761, t13764, t13774, t13777, t13778, t13781, t13798;
14917   double t13822, t13845, t13848, t13851, t13852, t13855, t13870, t13871;
14918   double t13874, t13877, t13878, t13885, t13888, t13889, t13892, t13905;
14919   double t13921, t13922, t13925, t13929, t13932, t13937, t13942, t13947;
14920   double t13956, t13969, t13971, t13972, t13980, t13991, t13993, t13994;
14921   double t13999, t14000, t14003, t14008, t14009, t14020, t14023, t14025;
14922   double t14028, t14029, t14032, t14033, t14034, t14037, t14041, t14044;
14923   double t14045, t14051, t14052, t14062, t14065, t14066, t14069, t14073;
14924   double t14074, t14075, t14077, t14078, t14080, t14081, t14082, t14084;
14925   double t14085, t14087, t14088, t14090, t14091, t14092, t14094, t14095;
14926   double t14097, t14098, t14100, t14101, t14102, t14104, t14105, t14107;
14927   double t14108, t14109, t14111, t14113, t14115, t14117, t14119, t14120;
14928   double t14121, t14126, t14136, t14147, t14148, t14155, t14156, t14170;
14929   double t14171, t14174, t14175, t14178, t14181, t14184, t14185, t14188;
14930   double t14197, t14207, t14210, t14211, t14214, t14223, t14226, t14227;
14931   double t14230, t14232, t14235, t14238, t14241, t14258, t14279, t14282;
14932   double t14287, t14288, t14291, t14307, t14316, t14319, t14324, t14327;
14933   double t14334, t14341, t14362, t14378, t14379, t14384, t14389, t14394;
14934   double t14411, t14415, t14418, t14421, t14426, t14427, t14430, t14435;
14935   double t14436, t14447, t14450, t14452, t14455, t14456, t14459, t14460;
14936   double t14466, t14475, t14478, t14483, t14484, t14485, t14487, t14488;
14937   double t14490, t14491, t14492, t14493, t14494, t14496, t14497, t14498;
14938   double t14499, t14500, t14502, t14503, t14504, t14505, t14506, t14511;
14939   double t14512, t14521, t14527, t14530, t14531, t14533, t14536, t14539;
14940   double t14542, t14545, t14548, t14551, t14552, t14555, t14558, t14559;
14941   double t14560, t14562, t14563, t14564, t14567, t14570, t14573, t14576;
14942   double t14579, t14582, t14585, t14588, t14591, t14592, t14595, t14598;
14943   double t14601, t14604, t14607, t14610, t14613, t14616, t14620, t14622;
14944   double t14623, t14624, t14628, t14629, t14630, t14631, t14632, t14633;
14945   double t14634, t14635, t14636, t14637, t14638, t14639, t14640, t14641;
14946   double t14642, t14643, t14644, t14645, t14646, t14647, t14648, t14649;
14947   double t14650, t14651, t14652, t14653, t14654, t14655, t14656, t14657;
14948   double t14658, t14659, t14660, t14661, t14662, t14663, t14664, t14665;
14949   double t14666, t14667, t14668, t14669, t14670, t14671, t14678, t14694;
14950   double t14697, t14698, t14701, t14703, t14705, t14707, t14708, t14710;
14951   double t14712, t14714, t14715, t14717, t14718, t14720, t14722, t14724;
14952   double t14725, t14726, t14727, t14729, t14730, t14732, t14734, t14735;
14953   double t14737, t14739, t14740, t14742, t14745, t14746, t14747, t14748;
14954   double t14754, t14763, t14766, t14771, t14772, t14773, t14775, t14776;
14955   double t14778, t14779, t14780, t14781, t14782, t14784, t14785, t14786;
14956   double t14787, t14788, t14790, t14791, t14792, t14793, t14794, t14799;
14957   double t14800, t14809, t14815, t14818, t14819, t14821, t14824, t14831;
14958   double t14832, t14833, t14834, t14835, t14836, t14837, t14838, t14839;
14959   double t14840, t14841, t14842, t14843, t14844, t14845, t14846, t14847;
14960   double t14848, t14849, t14850, t14851, t14852, t14853, t14854, t14855;
14961   double t14856, t14857, t14858, t14859, t14860, t14861, t14862, t14863;
14962   double t14864, t14865, t14866, t14867, t14868, t14869, t14870, t14871;
14963   double t14872, t14873, t14874, t14875, t14876, t14877, t14879, t14882;
14964   double t14885, t14888, t14891, t14894, t14897, t14898, t14901, t14904;
14965   double t14905, t14906, t14907, t14909, t14910, t14911, t14914, t14917;
14966   double t14920, t14923, t14926, t14929, t14932, t14935, t14938, t14941;
14967   double t14944, t14947, t14950, t14953, t14956, t14959, t14966, t14982;
14968   double t14985, t14986, t14989, t14991, t14993, t14995, t14996, t14998;
14969   double t15000, t15002, t15003, t15005, t15006, t15008, t15010, t15012;
14970   double t15013, t15014, t15015, t15017, t15018, t15020, t15022, t15023;
14971   double t15025, t15027, t15028, t15030, t15033, t15034, t15035, t15040;
14972   double t15043, t15046, t15049, t15053, t15060, t15061, t15063, t15064;
14973   double t15066, t15067, t15068, t15069, t15070, t15071, t15073, t15074;
14974   double t15075, t15076, t15077, t15078, t15080, t15081, t15082, t15083;
14975   double t15084, t15085, t15093, t15097, t15104, t15111, t15115, t15116;
14976   double t15126, t15129, t15131, t15134, t15135, t15136, t15137, t15140;
14977   double t15141, t15142, t15143, t15146, t15147, t15150, t15151, t15154;
14978   double t15155, t15156, t15157, t15161, t15162, t15165, t15166, t15169;
14979   double t15170, t15171, t15172, t15175, t15176, t15179, t15180, t15183;
14980   double t15184, t15185, t15186, t15188, t15189, t15192, t15193, t15196;
14981   double t15197, t15200, t15201, t15204, t15205, t15208, t15209, t15213;
14982   double t15214, t15215, t15216, t15217, t15220, t15221, t15226, t15228;
14983   double t15230, t15233, t15247, t15249, t15250, t15251, t15252, t15253;
14984   double t15254, t15255, t15256, t15257, t15258, t15260, t15261, t15262;
14985   double t15263, t15264, t15265, t15266, t15267, t15268, t15269, t15270;
14986   double t15271, t15275, t15278, t15283, t15294, t15297, t15299, t15308;
14987   double t15310, t15313, t15318, t15321, t15324, t15327, t15331, t15338;
14988   double t15339, t15341, t15342, t15344, t15345, t15346, t15347, t15348;
14989   double t15349, t15351, t15352, t15353, t15354, t15355, t15356, t15358;
14990   double t15359, t15360, t15361, t15362, t15363, t15371, t15375, t15381;
14991   double t15382, t15385, t15389, t15393, t15394, t15404, t15407, t15409;
14992   double t15413, t15415, t15417, t15418, t15419, t15420, t15421, t15423;
14993   double t15424, t15425, t15426, t15427, t15428, t15429, t15430, t15431;
14994   double t15432, t15433, t15434, t15436, t15437, t15438, t15439, t15440;
14995   double t15441, t15443, t15446, t15449, t15450, t15451, t15452, t15455;
14996   double t15456, t15457, t15460, t15461, t15464, t15465, t15466, t15467;
14997   double t15470, t15471, t15472, t15473, t15477, t15478, t15479, t15480;
14998   double t15483, t15484, t15487, t15488, t15491, t15492, t15493, t15494;
14999   double t15495, t15498, t15499, t15502, t15504, t15505, t15508, t15509;
15000   double t15510, t15511, t15512, t15515, t15516, t15534, t15535, t15538;
15001   double t15539, t15542, t15543, t15546, t15547, t15549, t15553, t15556;
15002   double t15561, t15572, t15575, t15577, t15586, t15588, t15591, t15594;
15003   double t15597, t15607, t15610, t15613, t15617, t15618, t15620, t15621;
15004   double t15623, t15624, t15625, t15627, t15628, t15629, t15630, t15631;
15005   double t15633, t15634, t15635, t15636, t15641, t15653, t15664, t15665;
15006   double t15672, t15684, t15696, t15701, t15709, t15714, t15719, t15724;
15007   double t15735, t15744, t15745, t15746, t15747, t15748, t15749, t15751;
15008   double t15752, t15753, t15754, t15755, t15756, t15757, t15758, t15759;
15009   double t15760, t15761, t15762, t15765, t15766, t15767, t15768, t15774;
15010   double t15775, t15776, t15777, t15778, t15779, t15780, t15781, t15782;
15011   double t15783, t15785, t15786, t15787, t15788, t15789, t15790, t15791;
15012   double t15792, t15793, t15794, t15795, t15796, t15800, t15803, t15808;
15013   double t15819, t15822, t15824, t15829, t15832, t15835, t15845, t15848;
15014   double t15851, t15855, t15856, t15858, t15859, t15861, t15862, t15863;
15015   double t15865, t15866, t15867, t15868, t15869, t15871, t15872, t15873;
15016   double t15874, t15879, t15891, t15898, t15902, t15903, t15910, t15922;
15017   double t15924, t15925, t15926, t15927, t15928, t15929, t15930, t15931;
15018   double t15932, t15933, t15935, t15936, t15937, t15938, t15939, t15940;
15019   double t15941, t15942, t15943, t15944, t15945, t15946, t15948, t15949;
15020   double t15950, t15952, t15953, t15954, t15955, t15956, t15959, t15960;
15021   double t15961, t15962, t15963, t15964, t15965, t15966, t15967, t15968;
15022   double t15970, t15971, t15972, t15973, t15983, t15986, t15992, t15999;
15023   double t16017, t16024, t16031, t16035, t16039, t16042, t16047, t16058;
15024   double t16061, t16063, t16068, t16069, t16070, t16074, t16078, t16086;
15025   double t16089, t16090, t16091, t16093, t16094, t16096, t16097, t16098;
15026   double t16100, t16101, t16102, t16104, t16105, t16106, t16110, t16113;
15027   double t16114, t16129, t16130, t16141, t16142, t16143, t16144, t16145;
15028   double t16146, t16147, t16148, t16149, t16150, t16151, t16152, t16153;
15029   double t16154, t16155, t16156, t16157, t16158, t16159, t16160, t16161;
15030   double t16162, t16163, t16165, t16168, t16171, t16174, t16177, t16180;
15031   double t16183, t16186, t16189, t16192, t16195, t16198, t16199, t16202;
15032   double t16205, t16208, t16211, t16214, t16217, t16220, t16223, t16226;
15033   double t16229, t16232, t16235, t16241, t16248, t16264, t16267, t16269;
15034   double t16272, t16273, t16274, t16278, t16282, t16290, t16293, t16294;
15035   double t16295, t16297, t16298, t16300, t16301, t16302, t16304, t16305;
15036   double t16306, t16308, t16309, t16310, t16314, t16317, t16318, t16333;
15037   double t16334, t16344, t16345, t16346, t16347, t16348, t16349, t16350;
15038   double t16351, t16352, t16353, t16354, t16355, t16356, t16357, t16358;
15039   double t16359, t16360, t16361, t16362, t16364, t16365, t16366, t16367;
15040   double t16368, t16371, t16374, t16377, t16380, t16383, t16386, t16389;
15041   double t16392, t16395, t16398, t16401, t16404, t16405, t16408, t16411;
15042   double t16414, t16417, t16420, t16423, t16426, t16429, t16432, t16435;
15043   double t16438, t16445, t16452, t16468, t16471, t16473;
15044 
15045 #ifndef XC_DONT_COMPILE_LXC
15046   double t16476, t16478, t16486, t16498, t16511, t16525, t16527, t16533;
15047   double t16544, t16548, t16549, t16551, t16556, t16558, t16559, t16569;
15048   double t16571, t16572, t16577, t16579, t16580, t16582, t16585, t16586;
15049   double t16588, t16595, t16598, t16605, t16609, t16622, t16623, t16625;
15050   double t16627, t16628, t16629, t16634, t16635, t16640, t16644, t16645;
15051   double t16649, t16650, t16658, t16662, t16663, t16667, t16671, t16672;
15052   double t16675, t16676, t16681, t16688, t16691, t16700, t16701, t16703;
15053   double t16705, t16707, t16710, t16711, t16712, t16713, t16718, t16720;
15054   double t16729, t16738, t16741, t16742, t16752, t16787, t16789, t16796;
15055   double t16804, t16807, t16811, t16813, t16814, t16816, t16819, t16821;
15056   double t16827, t16829, t16844, t16861, t16866, t16867, t16881, t16905;
15057   double t16906, t16908, t16909, t16911, t16913, t16915, t16917, t16919;
15058   double t16921, t16923, t16925, t16927, t16928, t16930, t16932, t16934;
15059   double t16936, t16937, t16939, t16943, t16946, t16950, t16954, t16956;
15060   double t16958, t16960, t16963, t16965, t16967, t16969, t16971, t16974;
15061   double t16976, t16978, t16980, t16982, t16984, t16987, t16990, t16993;
15062   double t16995, t16998, t17000, t17004, t17007, t17010, t17012, t17014;
15063   double t17017, t17020, t17023, t17026, t17030, t17032, t17035, t17037;
15064   double t17039, t17040, t17043, t17045, t17047, t17049, t17050, t17052;
15065   double t17053, t17055, t17057, t17059, t17064, t17066, t17067, t17069;
15066   double t17070, t17071, t17073, t17074, t17076, t17077, t17078, t17080;
15067   double t17082, t17083, t17085, t17086, t17087, t17088, t17090, t17091;
15068   double t17092, t17094, t17095, t17096, t17097, t17099, t17101, t17109;
15069   double t17115, t17116, t17119, t17136, t17140, t17167, t17189, t17204;
15070   double t17220, t17240, t17262, t17269, t17283, t17299, t17305, t17327;
15071   double t17330, t17352, t17369, t17370, t17373, t17376, t17379, t17382;
15072   double t17385, t17397, t17407, t17408, t17435, t17440, t17451, t17462;
15073   double t17466, t17479, t17509, t17517, t17540, t17543, t17547, t17550;
15074   double t17554, t17557, t17561, t17564, t17571, t17575, t17581, t17582;
15075   double t17589, t17590, t17594, t17595, t17596, t17603, t17604, t17615;
15076   double t17616, t17623, t17624, t17638, t17645, t17652, t17669, t17676;
15077   double t17684, t17699, t17704, t17721, t17732, t17738, t17760, t17761;
15078   double t17764, t17767, t17772, t17773, t17776, t17779, t17782, t17783;
15079   double t17786, t17789, t17790, t17793, t17796, t17797, t17800, t17816;
15080   double t17820, t17832, t17844, t17853, t17858, t17867, t17870, t17873;
15081   double t17876, t17879, t17882, t17885, t17894, t17898, t17899, t17905;
15082   double t17937, t17945, t17958, t17962, t17987, t17999, t18010, t18042;
15083   double t18052, t18080, t18090, t18094, t18127, t18136, t18145, t18154;
15084   double t18159, t18168, t18177, t18182, t18205, t18208, t18212, t18218;
15085   double t18226, t18227, t18228, t18239, t18245, t18251, t18256, t18259;
15086   double t18298, t18301, t18302, t18303, t18343, t18351, t18362, t18363;
15087   double t18367, t18368, t18379, t18380, t18389, t18390, t18395, t18405;
15088   double t18438, t18481, t18509, t18520, t18533, t18537, t18553, t18554;
15089   double t18555, t18556, t18560, t18561, t18564, t18569, t18576, t18578;
15090   double t18590, t18594, t18601, t18607, t18611, t18612, t18613, t18615;
15091   double t18626, t18638, t18640, t18642, t18647, t18648, t18650, t18652;
15092   double t18656, t18657, t18663, t18666, t18668, t18673, t18677, t18678;
15093   double t18684, t18687, t18689, t18701, t18706, t18707, t18708, t18710;
15094   double t18713, t18715, t18717, t18720, t18728, t18731, t18734, t18741;
15095   double t18742, t18744, t18749, t18751, t18758, t18766, t18768, t18775;
15096   double t18778, t18783, t18789, t18790, t18796, t18797, t18801, t18802;
15097   double t18811, t18812, t18817, t18818, t18828, t18830, t18840, t18842;
15098   double t18844, t18846, t18848, t18851, t18854, t18857, t18858, t18862;
15099   double t18864, t18866, t18870, t18872, t18876, t18883, t18884, t18888;
15100   double t18898, t18900, t18901, t18906, t18908, t18909, t18923, t18936;
15101   double t18941, t18947, t18948, t18953, t18954, t18956, t18960, t18963;
15102   double t18967, t18976, t18977, t18979, t18981, t18982, t18988, t18990;
15103   double t18992, t18993, t19001, t19006, t19010, t19024, t19034, t19046;
15104   double t19047, t19063, t19070, t19071, t19073, t19075, t19081, t19088;
15105   double t19091, t19098, t19109, t19119, t19121, t19124, t19133, t19143;
15106   double t19147, t19152, t19153, t19171, t19190, t19215, t19239, t19244;
15107   double t19260, t19269, t19270, t19272, t19273, t19280, t19281, t19283;
15108   double t19284, t19286, t19288, t19292, t19296, t19305, t19310, t19317;
15109   double t19318, t19328, t19330, t19333, t19337, t19338, t19344, t19358;
15110   double t19361, t19362, t19368, t19369, t19377, t19378, t19383, t19388;
15111   double t19393, t19425, t19430, t19439, t19441, t19447, t19455, t19458;
15112   double t19463, t19466, t19469, t19472, t19489, t19490, t19492, t19495;
15113   double t19504, t19507, t19517, t19533, t19536, t19542, t19545, t19551;
15114   double t19558, t19571, t19572, t19573, t19577, t19594, t19599, t19607;
15115   double t19612, t19626, t19635, t19640, t19655, t19660, t19670, t19673;
15116   double t19682, t19684, t19686, t19688, t19689, t19691, t19702, t19704;
15117   double t19710, t19711, t19712, t19713, t19719, t19720, t19722, t19724;
15118   double t19726, t19727, t19731, t19732, t19737, t19741, t19744, t19745;
15119   double t19746, t19762, t19765, t19776, t19778, t19783, t19788, t19793;
15120   double t19804, t19812, t19824, t19831, t19833, t19841, t19886, t19897;
15121   double t19900, t19903, t19906, t19909, t19912, t19915, t19924, t19926;
15122   double t19943, t19945, t19947, t19950, t19952, t19954, t19956, t19958;
15123   double t19960, t19964, t19969, t19979, t19991, t20016, t20017, t20027;
15124   double t20041, t20042, t20045, t20046, t20072, t20079, t20081, t20083;
15125   double t20088, t20090, t20092, t20094, t20096, t20098, t20100, t20101;
15126   double t20103, t20105, t20111, t20113, t20131, t20147, t20166, t20167;
15127   double t20187, t20188, t20190, t20193, t20195, t20197, t20198, t20200;
15128   double t20201, t20203, t20204, t20206, t20207, t20208, t20210, t20211;
15129   double t20212, t20213, t20214, t20216, t20217, t20218, t20219, t20222;
15130   double t20223, t20225, t20226, t20230, t20234, t20237, t20239, t20242;
15131   double t20244, t20247, t20251, t20253, t20254, t20256, t20258, t20260;
15132   double t20264, t20268, t20270, t20273, t20275, t20278, t20281, t20283;
15133   double t20285, t20289, t20291, t20294, t20297, t20300, t20303, t20305;
15134   double t20307, t20309, t20311, t20314, t20317, t20320, t20322, t20324;
15135   double t20326, t20328, t20329, t20331, t20333, t20335, t20337, t20339;
15136   double t20341, t20345, t20347, t20348, t20350, t20353, t20356, t20358;
15137   double t20359, t20361, t20363, t20365, t20367, t20369, t20371, t20373;
15138   double t20375, t20377, t20385, t20391, t20392, t20395, t20412, t20416;
15139   double t20431, t20468, t20500, t20501, t20505, t20516, t20543, t20544;
15140   double t20549, t20553, t20560, t20565, t20570, t20575, t20584, t20589;
15141   double t20599, t20613, t20626, t20654, t20655, t20663, t20664, t20665;
15142   double t20666, t20675, t20680, t20694, t20695, t20696, t20703, t20712;
15143   double t20716, t20722, t20723, t20724, t20734, t20735, t20736, t20744;
15144   double t20747, t20748, t20759, t20760, t20767, t20780, t20783, t20784;
15145   double t20792, t20795, t20801, t20802, t20803, t20810, t20811, t20817;
15146   double t20821, t20825, t20833, t20841, t20856, t20863, t20865, t20909;
15147   double t20948, t20955, t20992, t20996, t20999, t21000, t21006, t21015;
15148   double t21019, t21028, t21032, t21037, t21040, t21041, t21044, t21047;
15149   double t21048, t21051, t21054, t21057, t21058, t21061, t21066, t21069;
15150   double t21072, t21075, t21078, t21081, t21084, t21087, t21089, t21097;
15151   double t21113, t21130, t21144, t21152, t21161, t21170, t21177, t21205;
15152   double t21213, t21214, t21215, t21226, t21234, t21246, t21255, t21272;
15153   double t21279, t21307, t21330, t21331, t21354, t21390, t21396, t21409;
15154   double t21436, t21482, t21486, t21489, t21492, t21503, t21510, t21518;
15155   double t21540, t21551, t21563, t21571, t21576, t21588, t21612, t21625;
15156   double t21628, t21649, t21662, t21669, t21691, t21701, t21703, t21739;
15157   double t21768, t21772, t21785, t21795, t21796, t21809, t21813, t21829;
15158   double t21830, t21834, t21835, t21838, t21845, t21850, t21855, t21860;
15159   double t21865, t21870, t21882, t21886, t21890, t21902, t21924, t21928;
15160   double t21938, t21949, t21975, t21996, t22014, t22023, t22034, t22044;
15161   double t22054, t22073, t22096, t22110, t22122, t22127, t22140, t22146;
15162   double t22149, t22156, t22157, t22160, t22163, t22164, t22167, t22168;
15163   double t22171, t22172, t22173, t22176, t22177, t22178, t22181, t22182;
15164   double t22185, t22188, t22191, t22192, t22197, t22198, t22203, t22204;
15165   double t22207, t22218, t22219, t22232, t22235, t22236, t22237, t22238;
15166   double t22241, t22242, t22246, t22252, t22253, t22256, t22260, t22265;
15167   double t22267, t22274, t22275, t22278, t22281, t22284, t22287, t22291;
15168   double t22296, t22297, t22300, t22304, t22309, t22310, t22313, t22333;
15169   double t22340, t22368, t22372, t22387, t22395, t22396, t22409, t22411;
15170   double t22413, t22414, t22416, t22418, t22419, t22420, t22422, t22423;
15171   double t22424, t22426, t22428, t22430, t22432, t22434, t22435, t22436;
15172   double t22438, t22439, t22441, t22442, t22444, t22447, t22452, t22459;
15173   double t22462, t22465, t22469, t22472, t22479, t22480, t22483, t22484;
15174   double t22487, t22488, t22491, t22495, t22498, t22501, t22504, t22511;
15175   double t22512, t22515, t22516, t22519, t22522, t22529, t22530, t22533;
15176   double t22534, t22536, t22537, t22540, t22541, t22543, t22545, t22547;
15177   double t22549, t22552, t22555, t22558, t22563, t22566, t22567, t22570;
15178   double t22571, t22574, t22581, t22582, t22585, t22588, t22591, t22592;
15179   double t22596, t22603, t22604, t22607, t22610, t22613, t22614, t22625;
15180   double t22638, t22641, t22648, t22655, t22660, t22667, t22676, t22681;
15181   double t22684, t22687, t22690, t22692, t22694, t22697, t22699, t22704;
15182   double t22706, t22708, t22710, t22711, t22713, t22715, t22718, t22729;
15183   double t22738, t22739, t22742, t22745, t22748, t22753, t22776, t22781;
15184   double t22811, t22812, t22815, t22818, t22821, t22822, t22825, t22828;
15185   double t22831, t22834, t22838, t22841, t22846, t22853, t22856, t22859;
15186   double t22860, t22876, t22877, t22878, t22881, t22884, t22889, t22890;
15187   double t22895, t22896, t22899, t22900, t22905, t22906, t22909, t22910;
15188   double t22913, t22914, t22916, t22920, t22926, t22929, t22934, t22937;
15189   double t22942, t22947, t22951, t22954, t22956, t22960, t22963, t22964;
15190   double t22966, t22967, t22969, t22970, t22972, t22973, t22975, t22976;
15191   double t22978, t22980, t22983, t22984, t22986, t22988, t22990, t22992;
15192   double t22994, t22995, t22998, t22999, t23002, t23004, t23010, t23013;
15193   double t23018, t23022, t23025, t23030, t23035, t23040, t23041, t23043;
15194   double t23046, t23049, t23051, t23053, t23054, t23071, t23077, t23080;
15195   double t23087, t23102, t23112, t23121, t23124, t23127, t23128, t23131;
15196   double t23132, t23135, t23136, t23137, t23140, t23141, t23146, t23149;
15197   double t23150, t23151, t23156, t23161, t23167, t23191, t23223, t23226;
15198   double t23229, t23232, t23240, t23245, t23248, t23249, t23252, t23255;
15199   double t23274, t23277, t23280, t23291, t23294, t23297, t23302, t23306;
15200   double t23309, t23328, t23335, t23338, t23348, t23353, t23354, t23359;
15201   double t23366, t23380, t23386, t23392, t23406, t23409, t23415, t23422;
15202   double t23429, t23432, t23436, t23440, t23453, t23456, t23459, t23462;
15203   double t23467, t23486, t23490, t23493, t23496, t23499, t23504, t23507;
15204   double t23510, t23513, t23520, t23534, t23550, t23552, t23570, t23603;
15205   double t23607, t23608, t23614, t23615, t23622, t23628, t23631, t23638;
15206   double t23641, t23644, t23655, t23658, t23661, t23664, t23667, t23682;
15207   double t23683, t23687, t23688, t23694, t23695, t23701, t23702, t23726;
15208   double t23735, t23738, t23754, t23783, t23801, t23807, t23808, t23809;
15209   double t23831, t23838, t23840, t23842, t23843, t23845, t23847, t23849;
15210   double t23852, t23854, t23857, t23859, t23861, t23862, t23865, t23868;
15211   double t23871, t23874, t23876, t23878, t23879, t23881, t23883, t23885;
15212   double t23887, t23889, t23892, t23895, t23898, t23899, t23901, t23903;
15213   double t23905, t23907, t23909, t23913, t23914, t23917, t23920, t23922;
15214   double t23924, t23926, t23938, t23940, t23947, t23950, t23951, t23969;
15215   double t23982, t23995, t24008, t24022, t24035, t24049, t24062, t24065;
15216   double t24069, t24070, t24073, t24074, t24077, t24078, t24081, t24082;
15217   double t24084, t24086, t24093, t24102, t24103, t24117, t24133, t24184;
15218   double t24187, t24194, t24224, t24228, t24231, t24237, t24246, t24254;
15219   double t24255, t24262, t24264, t24273, t24274, t24276, t24282, t24285;
15220   double t24287, t24299, t24304, t24305, t24310, t24316, t24318, t24319;
15221   double t24321, t24328, t24330, t24332, t24334, t24344, t24346, t24379;
15222   double t24384, t24388, t24392, t24394, t24399, t24413, t24415, t24421;
15223   double t24426, t24428, t24436, t24445, t24456, t24460, t24464, t24465;
15224   double t24467, t24474, t24477, t24483, t24486, t24494, t24497, t24498;
15225   double t24501, t24502, t24504, t24510, t24515, t24526, t24528, t24534;
15226   double t24550, t24555, t24572, t24574, t24577, t24581, t24586, t24591;
15227   double t24593, t24596, t24603, t24608, t24614, t24616, t24623, t24624;
15228   double t24626, t24627, t24629, t24630, t24632, t24635, t24639, t24640;
15229   double t24641, t24642, t24643, t24649, t24653, t24663, t24678, t24695;
15230   double t24698, t24712, t24748, t24751, t24752, t24757, t24762, t24771;
15231   double t24772, t24793, t24803, t24811, t24821, t24827, t24829, t24832;
15232   double t24834, t24837, t24842, t24845, t24847, t24851, t24856, t24862;
15233   double t24866, t24867, t24870, t24874, t24875, t24883, t24890, t24895;
15234   double t24898, t24899, t24914, t24915, t24921, t24923, t24927, t24946;
15235   double t24953, t24957, t24958, t24959, t24960, t24961, t24962, t24964;
15236   double t24965, t24966, t24968, t24977, t24995, t25001, t25007, t25019;
15237   double t25022, t25040, t25062, t25067, t25070, t25074, t25076, t25078;
15238   double t25080, t25082, t25084, t25086, t25090, t25100, t25103, t25106;
15239   double t25109, t25111, t25115, t25136, t25151, t25160, t25176, t25180;
15240   double t25183, t25192, t25193, t25195, t25197, t25199, t25201, t25203;
15241   double t25204, t25209, t25211, t25213, t25215, t25217, t25219, t25221;
15242   double t25223, t25227, t25238, t25252, t25269, t25274, t25277, t25281;
15243   double t25315, t25336, t25339, t25353, t25370, t25399, t25428, t25471;
15244   double t25472, t25474, t25475, t25476, t25478, t25479, t25481, t25483;
15245   double t25485, t25486, t25487, t25489, t25490, t25491, t25492, t25493;
15246   double t25495, t25496, t25498, t25500, t25501, t25503, t25504, t25505;
15247   double t25507, t25508, t25509, t25511, t25513, t25514, t25515, t25518;
15248   double t25519, t25521, t25523, t25525, t25527, t25529, t25530, t25531;
15249   double t25533, t25536, t25538, t25540, t25542, t25545, t25547, t25550;
15250   double t25551, t25553, t25555, t25556, t25558, t25559, t25560, t25562;
15251   double t25563, t25565, t25566, t25569, t25572, t25575, t25577, t25580;
15252   double t25581, t25583, t25584, t25585, t25586, t25588, t25589, t25590;
15253   double t25592, t25593, t25595, t25596, t25598, t25600, t25602, t25603;
15254   double t25605, t25608, t25611, t25612, t25615, t25617, t25619, t25622;
15255   double t25624, t25626, t25627, t25630, t25633, t25634, t25635, t25637;
15256   double t25639, t25640, t25642, t25643, t25644, t25646, t25648, t25649;
15257   double t25651, t25652, t25654, t25655, t25657, t25659, t25661, t25662;
15258   double t25663, t25665, t25666, t25669, t25671, t25673, t25674, t25676;
15259   double t25678, t25680, t25682, t25684, t25686, t25687, t25689, t25690;
15260   double t25692, t25693, t25695, t25696, t25697, t25699, t25700, t25702;
15261   double t25703, t25705, t25708, t25711, t25712, t25713, t25716, t25719;
15262   double t25722, t25724, t25726, t25729, t25731, t25733, t25735, t25736;
15263   double t25738, t25740, t25742, t25744, t25747, t25749, t25751, t25754;
15264   double t25756, t25759, t25763, t25769, t25772, t25775, t25780, t25783;
15265   double t25787, t25791, t25795, t25810, t25814, t25817, t25823, t25828;
15266   double t25835, t25838, t25841, t25844, t25851, t25854, t25857, t25860;
15267   double t25865, t25874, t25877, t25880, t25883, t25886, t25889, t25894;
15268   double t25904, t25919, t25922, t25925, t25928, t25943, t25964, t25967;
15269   double t25970, t25977, t25978, t25981, t25982, t25989, t25990, t25991;
15270   double t25994, t25999, t26009, t26013, t26016, t26019, t26022, t26025;
15271   double t26028, t26035, t26038, t26041, t26045, t26048, t26052, t26059;
15272   double t26070, t26075, t26079, t26086, t26091, t26094, t26097, t26098;
15273   double t26109, t26112, t26115, t26118, t26121, t26125, t26128, t26133;
15274   double t26150, t26155, t26164, t26167, t26172, t26177, t26178, t26183;
15275   double t26184, t26190, t26195, t26196, t26201, t26202, t26209, t26212;
15276   double t26217, t26220, t26229, t26234, t26242, t26243, t26253, t26254;
15277   double t26260, t26261, t26267, t26268, t26273, t26279, t26282, t26285;
15278   double t26296, t26299, t26315, t26327, t26332, t26337, t26342, t26343;
15279   double t26346, t26349, t26350, t26353, t26358, t26399, t26402, t26403;
15280   double t26406, t26423, t26424, t26429, t26432, t26433, t26436, t26447;
15281   double t26456, t26480, t26483, t26484, t26487, t26500, t26523, t26538;
15282   double t26539, t26542, t26543, t26546, t26549, t26561, t26566, t26569;
15283   double t26578, t26591, t26592, t26593, t26598, t26604, t26615, t26616;
15284   double t26619, t26630, t26658, t26677, t26682, t26683, t26684, t26689;
15285   double t26700, t26701, t26709, t26714, t26729, t26736, t26737, t26740;
15286   double t26771, t26786, t26793, t26802, t26823, t26824, t26827, t26830;
15287   double t26833, t26838, t26839, t26842, t26846, t26851, t26852, t26855;
15288   double t26859, t26865, t26866, t26871, t26872, t26875, t26878, t26883;
15289   double t26892, t26895, t26898, t26901, t26908, t26913, t26924, t26948;
15290   double t26994, t26999, t27004, t27005, t27008, t27012, t27016, t27021;
15291   double t27023, t27026, t27030, t27035, t27040, t27045, t27046, t27049;
15292   double t27052, t27053, t27056, t27059, t27064, t27067, t27068, t27071;
15293   double t27076, t27087, t27088, t27091, t27095, t27096, t27107, t27108;
15294   double t27111, t27114, t27119, t27124, t27155, t27169, t27175, t27178;
15295   double t27180, t27186, t27195, t27202, t27208, t27213, t27218, t27234;
15296   double t27238, t27243, t27248, t27253, t27258, t27263, t27266, t27269;
15297   double t27272, t27275, t27278, t27289, t27294, t27332, t27352, t27362;
15298   double t27372, t27376, t27381, t27388, t27428, t27435, t27438, t27441;
15299   double t27444, t27446, t27447, t27452, t27459, t27468, t27471, t27478;
15300   double t27479, t27487, t27493, t27525, t27544, t27588, t27606, t27611;
15301   double t27635, t27666, t27682, t27701, t27711, t27716, t27724, t27727;
15302   double t27730, t27732, t27736, t27737, t27740, t27741, t27749, t27754;
15303   double t27758, t27761, t27794, t27797, t27798, t27801, t27802, t27812;
15304   double t27816, t27827, t27857, t27858, t27861, t27874, t27917, t27939;
15305   double t27941, t27943, t27945, t27947, t27949, t27951, t27959, t27960;
15306   double t27961, t27963, t27965, t27966, t27968, t27977, t28006, t28009;
15307   double t28012, t28015, t28018, t28042, t28045, t28048, t28051, t28054;
15308   double t28067, t28082, t28085, t28092, t28098, t28103, t28108, t28117;
15309   double t28124, t28131, t28132, t28135, t28136, t28144, t28147, t28149;
15310   double t28151, t28152, t28154, t28157, t28160, t28163, t28172, t28178;
15311   double t28180, t28182, t28185, t28219, t28232, t28238, t28245, t28248;
15312   double t28251, t28254, t28257, t28260, t28263, t28270, t28273, t28276;
15313   double t28283, t28290, t28295, t28298, t28301, t28309, t28312, t28317;
15314   double t28324, t28327, t28330, t28333, t28335, t28337, t28342, t28357;
15315   double t28362, t28373, t28380, t28388, t28391, t28400, t28407, t28410;
15316   double t28413, t28428, t28431, t28432, t28433, t28438, t28441, t28442;
15317   double t28449, t28452, t28453, t28477, t28480, t28485, t28494, t28503;
15318   double t28506, t28509, t28512, t28517, t28519, t28522, t28524, t28526;
15319   double t28528, t28530, t28532, t28534, t28535, t28538, t28540, t28542;
15320   double t28544, t28546, t28548, t28550, t28552, t28554, t28557, t28559;
15321   double t28561, t28563, t28565, t28567, t28569, t28574, t28577, t28580;
15322   double t28583, t28589, t28612, t28619, t28622, t28627, t28630, t28633;
15323   double t28636, t28637, t28659, t28662, t28665, t28668, t28684, t28686;
15324   double t28729, t28740, t28742, t28755, t28758, t28761, t28764, t28771;
15325   double t28778, t28788, t28791, t28794, t28822, t28832, t28885, t28920;
15326   double t28925, t28930, t28931, t28936, t28941, t28953, t28957, t28969;
15327   double t28977, t28979, t28981, t28983, t28989, t28992, t28995, t28997;
15328   double t29000, t29002, t29004, t29006, t29008, t29010, t29011, t29013;
15329   double t29014, t29016, t29018, t29020, t29022, t29025, t29028, t29031;
15330   double t29034, t29036, t29038, t29039, t29042, t29044, t29046, t29047;
15331   double t29049, t29051, t29053, t29062, t29064, t29066, t29067, t29069;
15332   double t29070, t29072, t29074, t29076, t29086, t29103, t29105, t29107;
15333   double t29109, t29111, t29114, t29116, t29119, t29121, t29123, t29127;
15334   double t29132, t29137, t29140, t29177, t29182, t29186, t29191, t29196;
15335   double t29201, t29206, t29218, t29221, t29224, t29227, t29236, t29280;
15336   double t29305, t29308, t29321, t29326, t29331, t29334, t29380, t29387;
15337   double t29390, t29391, t29394, t29395, t29398, t29403, t29408, t29428;
15338   double t29441, t29454, t29467, t29481, t29494, t29508, t29521, t29524;
15339   double t29536, t29537, t29614, t29619, t29623, t29641, t29646, t29650;
15340   double t29654, t29658, t29670, t29679, t29683, t29689, t29690, t29692;
15341   double t29693, t29698, t29701, t29705, t29713, t29717, t29721, t29727;
15342   double t29730, t29732, t29734, t29738, t29741, t29745, t29746, t29763;
15343   double t29770, t29776, t29782, t29783, t29786, t29795, t29807, t29813;
15344   double t29814, t29816, t29817, t29818, t29822, t29828, t29829, t29831;
15345   double t29833, t29837, t29840, t29844, t29845, t29848, t29852, t29855;
15346   double t29866, t29875, t29888, t29901, t29904, t29906, t29910, t29912;
15347   double t29914, t29915, t29931, t29934, t29936, t29941, t29945, t29948;
15348   double t29950, t29952, t29958, t29966, t29990, t30003, t30006, t30011;
15349   double t30014, t30017, t30020, t30027, t30030, t30033, t30036, t30039;
15350   double t30042, t30045, t30067, t30070, t30073, t30076, t30083, t30102;
15351   double t30105, t30108, t30111, t30126, t30131, t30142, t30145, t30150;
15352   double t30153, t30162, t30172, t30177, t30184, t30188, t30191, t30194;
15353   double t30199, t30206, t30209, t30214, t30222, t30225, t30230, t30237;
15354   double t30240, t30243, t30246, t30249, t30252, t30276, t30281, t30293;
15355   double t30302, t30304, t30306, t30308, t30316, t30317, t30320, t30321;
15356   double t30326, t30332, t30335, t30336, t30339, t30342, t30348, t30351;
15357   double t30352, t30361, t30362, t30365, t30366, t30376, t30385, t30400;
15358   double t30415, t30418, t30421, t30438, t30441, t30444, t30447, t30450;
15359   double t30453, t30476, t30510, t30530, t30533, t30540, t30543, t30546;
15360   double t30553, t30560, t30561, t30566, t30569, t30572, t30575, t30582;
15361   double t30585, t30593, t30596, t30606, t30613, t30616, t30622, t30633;
15362   double t30637, t30640, t30645, t30652, t30655, t30668, t30669, t30672;
15363   double t30675, t30680, t30683, t30686, t30689, t30692, t30702, t30707;
15364   double t30710, t30721, t30725, t30754, t30756, t30757, t30759, t30760;
15365   double t30762, t30764, t30766, t30768, t30771, t30773, t30774, t30776;
15366   double t30778, t30781, t30784, t30787, t30790, t30792, t30794, t30796;
15367   double t30799, t30801, t30803, t30805, t30807, t30808, t30810, t30813;
15368   double t30823, t30838, t30842, t30859, t30860, t30875, t30892, t30920;
15369   double t30935, t30936, t30939, t30940, t30958, t30966, t30971, t31015;
15370   double t31059, t31103, t31134, t31136, t31138, t31140, t31142, t31144;
15371   double t31146, t31147, t31149, t31151, t31153, t31155, t31157, t31159;
15372   double t31161, t31168, t31173, t31193, t31222, t31225, t31228, t31233;
15373   double t31238, t31243, t31247, t31252, t31255, t31269, t31271, t31273;
15374   double t31275, t31277, t31291, t31300, t31314, t31318, t31323, t31326;
15375   double t31341, t31369, t31372, t31381, t31388, t31426, t31429, t31432;
15376   double t31435, t31465, t31467, t31469, t31472, t31474, t31477, t31479;
15377   double t31481, t31483, t31486, t31488, t31490, t31492, t31494, t31497;
15378   double t31500, t31502, t31504, t31506, t31509, t31512, t31514, t31516;
15379   double t31518, t31520, t31522, t31524, t31526, t31529, t31532, t31534;
15380   double t31537, t31539, t31541, t31544, t31546, t31548, t31550, t31552;
15381   double t31554, t31556, t31560, t31562, t31565, t31567, t31579, t31581;
15382   double t31583, t31601, t31614, t31627, t31640, t31654, t31667, t31681;
15383   double t31694, t31697, t31701, t31704, t31711, t31712, t31715, t31716;
15384   double t31719, t31720, t31723, t31724, t31741, t31742, t31744, t31751;
15385   double t31757, t31778, t31786, t31789, t31872, t31883, t31887, t31896;
15386   double t31908, t31913, t31933, t31953, t31970, t31972, t31973, t31991;
15387   double t31993, t31996, t32038, t32039, t32044, t32045, t32050, t32052;
15388   double t32059, t32060, t32077, t32093, t32096, t32107, t32109, t32111;
15389   double t32114, t32117, t32121, t32123, t32124, t32126, t32127, t32129;
15390   double t32130, t32132, t32139, t32142, t32145, t32149, t32151, t32153;
15391   double t32155, t32158, t32159, t32162, t32163, t32164, t32181, t32183;
15392   double t32184, t32186, t32199, t32201, t32203, t32204, t32206, t32208;
15393   double t32209, t32211, t32213, t32215, t32217, t32220, t32223, t32225;
15394   double t32226, t32227, t32229, t32230, t32231, t32232, t32233, t32234;
15395   double t32236, t32237, t32239, t32240, t32241, t32243, t32244, t32245;
15396   double t32246, t32247, t32248, t32249, t32250, t32251, t32252, t32253;
15397   double t32254, t32255, t32256, t32258, t32259, t32262, t32265, t32269;
15398   double t32270, t32272, t32273, t32277, t32278, t32280, t32281, t32284;
15399   double t32287, t32292, t32295, t32299, t32301, t32307, t32308, t32319;
15400   double t32322, t32325, t32329, t32331, t32332, t32342, t32343, t32346;
15401   double t32347, t32348, t32349, t32350, t32351, t32352, t32353, t32354;
15402   double t32355, t32356, t32357, t32359, t32360, t32361, t32362, t32363;
15403   double t32365, t32366, t32367, t32369, t32370, t32371, t32372, t32373;
15404   double t32374, t32375, t32377, t32379, t32381, t32383, t32385, t32386;
15405   double t32392, t32395, t32419, t32420, t32423, t32424, t32430, t32432;
15406   double t32439, t32441, t32443, t32444, t32445, t32448, t32449, t32457;
15407   double t32458, t32459, t32462, t32463, t32469, t32471, t32487, t32488;
15408   double t32493, t32501, t32503, t32511, t32517, t32519, t32520, t32521;
15409   double t32524, t32525, t32531, t32533, t32534, t32536, t32538, t32539;
15410   double t32540, t32543, t32544, t32550, t32552, t32556, t32564, t32566;
15411   double t32567, t32568, t32571, t32572, t32575, t32576, t32577, t32578;
15412   double t32580, t32593, t32596, t32599, t32600, t32601, t32602, t32603;
15413   double t32604, t32605, t32606, t32607, t32608, t32609, t32610, t32611;
15414   double t32612, t32625, t32634, t32637, t32640, t32649, t32652, t32655;
15415   double t32658, t32665, t32670, t32676, t32678, t32679, t32681, t32683;
15416   double t32686, t32690, t32691, t32693, t32694, t32695, t32700, t32703;
15417   double t32706, t32709, t32710, t32717, t32719, t32720, t32721, t32724;
15418   double t32726, t32727, t32729, t32734, t32736, t32737, t32739, t32745;
15419   double t32747, t32748, t32749, t32752, t32754, t32756, t32759, t32761;
15420   double t32762, t32763, t32770, t32775, t32782, t32788, t32789, t32791;
15421   double t32792, t32795, t32801, t32802, t32804, t32805, t32806, t32809;
15422   double t32814, t32817, t32823, t32825, t32831, t32836, t32837, t32839;
15423   double t32840, t32843, t32854, t32860, t32861, t32866, t32869, t32872;
15424   double t32875, t32888, t32891, t32893, t32894, t32896, t32898, t32900;
15425   double t32902, t32903, t32904, t32906, t32907, t32908, t32909, t32910;
15426   double t32936, t32942, t32954, t32962, t32967, t32968, t32973, t32976;
15427   double t32979, t32983, t32984, t32995, t32997, t32998, t33002, t33009;
15428   double t33012, t33014, t33017, t33019, t33021, t33029, t33030, t33035;
15429   double t33036, t33039, t33040, t33041, t33046, t33047, t33048, t33054;
15430   double t33055, t33057, t33058, t33061, t33063, t33065, t33078, t33079;
15431   double t33081, t33082, t33087, t33088, t33089, t33090, t33091, t33092;
15432   double t33093, t33094, t33095, t33097, t33098, t33099, t33100, t33101;
15433   double t33102, t33103, t33104, t33105, t33106, t33107, t33108, t33109;
15434   double t33110, t33111, t33113, t33114, t33116, t33117, t33119, t33122;
15435   double t33133, t33134, t33137, t33139, t33140, t33141, t33142, t33146;
15436   double t33147, t33150, t33152, t33153, t33154, t33155, t33159, t33160;
15437   double t33165, t33168, t33171, t33178, t33203, t33215, t33216, t33218;
15438   double t33222, t33223, t33225, t33226, t33227, t33229, t33231, t33232;
15439   double t33234, t33240, t33242, t33244, t33245, t33246, t33247, t33250;
15440   double t33252, t33253, t33254, t33255, t33259, t33261, t33263, t33265;
15441   double t33268, t33281, t33283, t33285, t33287, t33301, t33305, t33308;
15442   double t33313, t33317, t33319, t33320, t33321, t33325, t33326, t33328;
15443   double t33329, t33330, t33334, t33335, t33338, t33340, t33341, t33342;
15444   double t33343, t33347, t33348, t33353, t33354, t33355, t33356, t33360;
15445   double t33362, t33363, t33366, t33367, t33369, t33371, t33374, t33375;
15446   double t33378, t33379, t33380, t33381, t33382, t33384, t33385, t33386;
15447   double t33388, t33390, t33396, t33403, t33408, t33415, t33416, t33419;
15448   double t33421, t33422, t33424, t33427, t33429, t33434, t33435, t33438;
15449   double t33441, t33443, t33444, t33445, t33446, t33447, t33448, t33449;
15450   double t33450, t33451, t33452, t33453, t33455, t33457, t33459, t33461;
15451   double t33463, t33465, t33467, t33468, t33469, t33470, t33472, t33473;
15452   double t33475, t33476, t33477, t33482, t33484, t33485, t33486, t33496;
15453   double t33498, t33504, t33506, t33511, t33521, t33523, t33535, t33549;
15454   double t33551, t33552, t33558, t33561, t33566, t33580, t33581, t33584;
15455   double t33585, t33586, t33587, t33591, t33593, t33594, t33600, t33601;
15456   double t33602, t33603, t33604, t33605, t33609, t33610, t33616, t33620;
15457   double t33621, t33624, t33625, t33628, t33629, t33630, t33631, t33634;
15458   double t33636, t33640, t33649, t33650, t33651, t33652, t33653, t33660;
15459   double t33661, t33662, t33663, t33665, t33668, t33672, t33677, t33682;
15460   double t33689, t33691, t33694, t33713, t33715, t33740, t33779, t33780;
15461   double t33784, t33788, t33792, t33815, t33850, t33851, t33891, t33897;
15462   double t33900, t33903, t33904, t33906, t33920, t33921, t33927, t33931;
15463   double t33932, t33939, t33945, t33947, t33956, t33958, t33960, t33962;
15464   double t33964, t33968, t33973, t33979, t33996, t34003, t34017, t34023;
15465   double t34025, t34032, t34035, t34042, t34044, t34046, t34047, t34049;
15466   double t34051, t34053, t34055, t34060, t34065, t34067, t34071, t34079;
15467   double t34083, t34088, t34095, t34097, t34105, t34110, t34111, t34113;
15468   double t34115, t34143, t34157, t34170, t34190, t34192, t34193, t34221;
15469   double t34225, t34229, t34236, t34250, t34252, t34253, t34255, t34257;
15470   double t34259, t34261, t34263, t34267, t34276, t34278, t34280, t34292;
15471   double t34304, t34311, t34327, t34330, t34332, t34334, t34340, t34341;
15472   double t34346, t34347, t34353, t34354, t34356, t34358, t34360, t34362;
15473   double t34364, t34366, t34368, t34372, t34373, t34415, t34463, t34484;
15474   double t34502, t34525, t34572, t34596, t34631, t34634, t34637, t34638;
15475   double t34642, t34643, t34656, t34657, t34659, t34660, t34663, t34666;
15476   double t34671, t34672, t34675, t34679, t34680, t34682, t34685, t34688;
15477   double t34689, t34692, t34695, t34699, t34700, t34702, t34705, t34708;
15478   double t34714, t34715, t34717, t34718, t34723, t34736, t34750, t34756;
15479   double t34759, t34762, t34765, t34769, t34770, t34772, t34773, t34776;
15480   double t34780, t34781, t34783, t34784, t34785, t34795, t34796, t34804;
15481   double t34812, t34815, t34818, t34822, t34823, t34825, t34826, t34828;
15482   double t34829, t34838, t34841, t34843, t34850, t34853, t34856, t34860;
15483   double t34861, t34864, t34873, t34876, t34879, t34881, t34883, t34884;
15484   double t34886, t34896, t34898, t34900, t34902, t34915, t34918, t34921;
15485   double t34923, t34927, t34929, t34930, t34932, t34933, t34935, t34936;
15486   double t34940, t34942, t34943, t34945, t34946, t34950, t34952, t34954;
15487   double t34956, t34960, t34962, t34964, t34965, t34967, t34968, t34975;
15488   double t34978, t34989, t35012, t35035, t35048, t35051, t35056, t35061;
15489   double t35064, t35067, t35076, t35077, t35078, t35079, t35080, t35081;
15490   double t35082, t35083, t35084, t35085, t35086, t35087, t35089, t35090;
15491   double t35091, t35094, t35095, t35098, t35099, t35108, t35109, t35111;
15492   double t35112, t35113, t35115, t35117, t35118, t35119, t35122, t35123;
15493   double t35129, t35131, t35140, t35154, t35156, t35157, t35158, t35161;
15494   double t35162, t35168, t35170, t35171, t35172, t35175, t35176, t35182;
15495   double t35184, t35189, t35201, t35203, t35211, t35213, t35214, t35215;
15496   double t35218, t35219, t35225, t35227, t35234, t35238, t35240, t35241;
15497   double t35242, t35245, t35246, t35253, t35254, t35255, t35257, t35259;
15498   double t35260, t35261, t35262, t35263, t35265, t35267, t35269, t35278;
15499   double t35279, t35282, t35283, t35284, t35287, t35288, t35294, t35296;
15500   double t35304, t35305, t35306, t35308, t35310, t35312, t35314, t35315;
15501   double t35316, t35317, t35318, t35320, t35323, t35325, t35326, t35327;
15502   double t35328, t35330, t35331, t35332, t35333, t35334, t35335, t35336;
15503   double t35345, t35346, t35350, t35352, t35360, t35365, t35372, t35375;
15504   double t35381, t35382, t35383, t35385, t35386, t35387, t35389, t35390;
15505   double t35391, t35394, t35395, t35397, t35398, t35403, t35406, t35407;
15506   double t35408, t35412, t35414, t35415, t35416, t35419, t35421, t35422;
15507   double t35423, t35424, t35431, t35435, t35436, t35439, t35441, t35442;
15508   double t35443, t35447, t35448, t35451, t35453, t35454, t35456, t35457;
15509   double t35461, t35462, t35466, t35474, t35475, t35476, t35477, t35482;
15510   double t35487, t35496, t35499, t35504, t35513, t35520, t35525, t35532;
15511   double t35547, t35567, t35569, t35570, t35573, t35574, t35575, t35576;
15512   double t35577, t35578, t35579, t35580, t35581, t35582, t35585, t35586;
15513   double t35588, t35589, t35591, t35592, t35593, t35594, t35597, t35600;
15514   double t35603, t35605, t35606, t35608, t35609, t35610, t35611, t35614;
15515   double t35617, t35618, t35626, t35628, t35629, t35631, t35632, t35636;
15516   double t35641, t35644, t35647, t35649, t35652, t35654, t35655, t35657;
15517   double t35658, t35669, t35672, t35676, t35678, t35687, t35688, t35689;
15518   double t35690, t35691, t35692, t35693, t35694, t35695, t35696, t35697;
15519   double t35698, t35699, t35703, t35705, t35717, t35719, t35720, t35721;
15520   double t35723, t35728, t35729, t35730, t35733, t35735, t35736, t35737;
15521   double t35738, t35742, t35743, t35748, t35756, t35758, t35759, t35761;
15522   double t35763, t35764, t35765, t35768, t35770, t35771, t35778, t35781;
15523   double t35783, t35785, t35786, t35787, t35788, t35789, t35791, t35792;
15524   double t35793, t35794, t35795, t35796, t35797, t35798, t35799, t35800;
15525   double t35801, t35802, t35803, t35804, t35806, t35807, t35809, t35810;
15526   double t35811, t35812, t35813, t35816, t35817, t35818, t35819, t35820;
15527   double t35822, t35824, t35826, t35828, t35829, t35830, t35831, t35833;
15528   double t35835, t35838, t35840, t35845, t35847, t35849, t35850, t35851;
15529   double t35852, t35853, t35855, t35856, t35858, t35859, t35860, t35862;
15530   double t35864, t35866, t35868, t35870, t35871, t35872, t35873, t35874;
15531   double t35875, t35876, t35887, t35889, t35891, t35894, t35896, t35900;
15532   double t35902, t35904, t35906, t35908, t35910, t35912, t35913, t35915;
15533   double t35924, t35927, t35928, t35929, t35932, t35934, t35935, t35936;
15534   double t35938, t35939, t35941, t35943, t35945, t35946, t35947, t35948;
15535   double t35949, t35950, t35951, t35957, t35959, t35960, t35961, t35964;
15536   double t35966, t35967, t35968, t35973, t35975, t35977, t35981, t35983;
15537   double t35985, t35986, t35989, t35990, t35996, t35998, t36000, t36002;
15538   double t36022, t36023, t36025, t36026, t36027, t36028, t36031, t36035;
15539   double t36037, t36050, t36052, t36054, t36056, t36070, t36072, t36073;
15540   double t36079, t36084, t36087, t36094, t36095, t36104, t36105, t36109;
15541   double t36111, t36112, t36114, t36118, t36120, t36122, t36123, t36125;
15542   double t36126, t36133, t36134, t36136, t36137, t36141, t36146, t36147;
15543   double t36151, t36153, t36154, t36155, t36156, t36162, t36163, t36165;
15544   double t36166, t36176, t36179, t36182, t36183, t36184, t36185, t36186;
15545   double t36187, t36188, t36191, t36196, t36197, t36200, t36201, t36204;
15546   double t36209, t36210, t36213, t36214, t36236, t36238, t36245, t36275;
15547   double t36314, t36353, t36371, t36375, t36379, t36383, t36386, t36411;
15548   double t36417, t36431, t36442, t36447, t36452, t36458, t36459, t36461;
15549   double t36462, t36484, t36490, t36513, t36520, t36522, t36524, t36527;
15550   double t36532, t36535, t36537, t36538, t36540, t36541, t36543, t36545;
15551   double t36546, t36548, t36549, t36551, t36552, t36554, t36555, t36559;
15552   double t36562, t36565, t36568, t36571, t36574, t36577, t36590, t36593;
15553   double t36596, t36605, t36614, t36617, t36620, t36633, t36636, t36639;
15554   double t36642, t36653, t36656, t36661, t36688, t36707, t36711, t36713;
15555   double t36729, t36753, t36778, t36803, t36816, t36826, t36850, t36851;
15556   double t36853, t36858, t36859, t36862, t36864, t36865, t36867, t36869;
15557   double t36870, t36872, t36875, t36878, t36881, t36888, t36907, t36910;
15558   double t36915, t36917, t36920, t36921, t36923, t36925, t36927, t36929;
15559   double t36931, t36933, t36935, t36937, t36939, t36941, t36944, t36947;
15560   double t36950, t36953, t36960, t36963, t36966, t36969, t36972, t36975;
15561   double t36978, t36979, t36982, t36985, t36988, t36995, t36998, t37001;
15562   double t37004, t37009, t37023, t37026, t37028, t37031, t37032, t37051;
15563   double t37077, t37100, t37106, t37109, t37112, t37115, t37118, t37121;
15564   double t37124, t37127, t37130, t37133, t37134, t37139, t37142, t37145;
15565   double t37148, t37151, t37154, t37166, t37191, t37216, t37240, t37245;
15566   double t37248, t37251, t37264, t37267, t37270, t37273, t37279, t37282;
15567   double t37291, t37300, t37325, t37328, t37331, t37352, t37353, t37355;
15568   double t37372, t37386, t37388, t37390, t37392, t37394, t37396, t37398;
15569   double t37399, t37401, t37403, t37405, t37411, t37413, t37416, t37418;
15570   double t37420, t37422, t37425, t37428, t37430, t37432, t37434, t37442;
15571   double t37449, t37464, t37467, t37489, t37494, t37504, t37506, t37508;
15572   double t37510, t37515, t37517, t37518, t37520, t37522, t37524, t37526;
15573   double t37528, t37530, t37532, t37534, t37537, t37539, t37541, t37545;
15574   double t37548, t37563, t37570, t37573, t37592, t37617, t37634, t37654;
15575   double t37655, t37657, t37659, t37661, t37677, t37700, t37701, t37703;
15576   double t37704, t37711, t37714, t37717, t37720, t37721, t37724, t37725;
15577   double t37728, t37731, t37734, t37737, t37746, t37749, t37772, t37783;
15578   double t37792, t37802, t37816, t37824, t37838, t37839, t37842, t37856;
15579   double t37858, t37898, t37916, t37931, t37935, t37944, t37976, t37985;
15580   double t37988, t38001, t38042, t38062, t38071, t38105, t38114, t38121;
15581   double t38123, t38143, t38145, t38151, t38158, t38164, t38165, t38172;
15582   double t38173, t38177, t38179, t38180, t38182, t38190, t38191, t38200;
15583   double t38214, t38219, t38233, t38235, t38243, t38245, t38249, t38250;
15584   double t38253, t38257, t38258, t38264, t38268, t38272, t38276, t38280;
15585   double t38310, t38326, t38367, t38382, t38397, t38399, t38401, t38403;
15586   double t38404, t38405, t38407, t38408, t38409, t38412, t38414, t38415;
15587   double t38417, t38418, t38420, t38421, t38423, t38425, t38427, t38429;
15588   double t38431, t38433, t38435, t38437, t38439, t38440, t38442, t38443;
15589   double t38445, t38446, t38449, t38451, t38453, t38456, t38459, t38462;
15590   double t38464, t38467, t38468, t38470, t38471, t38472, t38473, t38476;
15591   double t38477, t38480, t38482, t38484, t38486, t38488, t38490, t38491;
15592   double t38493, t38496, t38498, t38500, t38504, t38506, t38509, t38510;
15593   double t38512, t38513, t38515, t38517, t38519, t38521, t38522, t38524;
15594   double t38526, t38529, t38532, t38534, t38536, t38538, t38540, t38541;
15595   double t38543, t38544, t38546, t38547, t38549, t38550, t38552, t38553;
15596   double t38555, t38556, t38558, t38560, t38562, t38563, t38565, t38566;
15597   double t38568, t38569, t38571, t38572, t38574, t38575, t38577, t38579;
15598   double t38580, t38582, t38583, t38585, t38586, t38588, t38589, t38592;
15599   double t38596, t38597, t38605, t38609, t38613, t38617, t38623, t38637;
15600   double t38646, t38680, t38707, t38725, t38729, t38741, t38747, t38761;
15601   double t38762, t38764, t38765, t38768, t38788, t38791, t38794, t38797;
15602   double t38798, t38801, t38804, t38807, t38810, t38813, t38824, t38837;
15603   double t38841, t38842, t38844, t38845, t38868, t38892, t38906, t38915;
15604   double t38918, t38919, t38924, t38927, t38930, t38943, t38949, t38952;
15605   double t38957, t38960, t38975, t38999, t39019, t39033, t39035, t39038;
15606   double t39041, t39048, t39051, t39054, t39057, t39060, t39062, t39064;
15607   double t39079, t39083, t39086, t39095, t39098, t39103, t39117, t39120;
15608   double t39123, t39130, t39155, t39162, t39175, t39178, t39181, t39184;
15609   double t39185, t39206, t39209, t39211, t39218, t39221, t39224, t39235;
15610   double t39238, t39241, t39242, t39245, t39252, t39269, t39277, t39280;
15611   double t39283, t39286, t39289, t39292, t39303, t39306, t39327, t39347;
15612   double t39371, t39376, t39381, t39398, t39429, t39461, t39484, t39496;
15613   double t39517, t39530, t39545, t39568, t39592, t39620, t39651, t39674;
15614   double t39694, t39695, t39698, t39717, t39741, t39766, t39796, t39813;
15615   double t39815, t39820, t39845, t39868, t39870, t39871, t39878, t39880;
15616   double t39882, t39888, t39891, t39893, t39897, t39909, t39918, t39920;
15617   double t39931, t39939, t39941, t39955, t39994, t40001, t40012, t40014;
15618   double t40015, t40017, t40018, t40019, t40021, t40025, t40029, t40044;
15619   double t40051, t40062, t40068, t40071, t40074, t40080, t40089, t40094;
15620   double t40098, t40105, t40113, t40131, t40132, t40134, t40135, t40137;
15621   double t40138, t40140, t40141, t40144, t40146, t40149, t40151, t40152;
15622   double t40154, t40155, t40157, t40160, t40162, t40164, t40165, t40167;
15623   double t40168, t40169, t40171, t40172, t40175, t40176, t40178, t40180;
15624   double t40182, t40184, t40186, t40188, t40190, t40191, t40192, t40194;
15625   double t40195, t40198, t40200, t40203, t40205, t40207, t40209, t40212;
15626   double t40214, t40215, t40217, t40218, t40220, t40222, t40224, t40226;
15627   double t40227, t40229, t40230, t40232, t40233, t40235, t40237, t40239;
15628   double t40240, t40242, t40244, t40246, t40248, t40250, t40252, t40253;
15629   double t40255, t40256, t40259, t40261, t40262, t40264, t40267, t40269;
15630   double t40272, t40274, t40276, t40277, t40279, t40280, t40283, t40287;
15631   double t40291, t40295, t40299, t40306, t40310, t40320, t40346, t40390;
15632   double t40421, t40424, t40427, t40432, t40434, t40445, t40448, t40451;
15633   double t40465, t40502, t40519, t40522, t40525, t40528, t40531, t40534;
15634   double t40539, t40542, t40545, t40550, t40563, t40568, t40571, t40574;
15635   double t40587, t40589, t40592, t40609, t40612, t40631, t40637, t40640;
15636   double t40647, t40650, t40653, t40661, t40668, t40680, t40683, t40688;
15637   double t40691, t40693, t40696, t40701, t40711, t40714, t40721, t40730;
15638   double t40748, t40751, t40754, t40755, t40794, t40796, t40809, t40810;
15639   double t40833, t40836, t40839, t40863, t40899, t40936, t40944, t40986;
15640   double t41006, t41007, t41028, t41071, t41099, t41127, t41130, t41133;
15641   double t41142, t41151, t41172, t41182, t41183, t41189, t41192, t41194;
15642   double t41200, t41203, t41205, t41217, t41230, t41242, t41244, t41259;
15643   double t41272, t41285, t41294, t41302, t41315, t41316, t41318, t41328;
15644   double t41342, t41350, t41352, t41356, t41357, t41360, t41384, t41388;
15645   double t41389, t41391, t41394, t41399, t41400, t41402, t41403, t41405;
15646   double t41407, t41409, t41412, t41414, t41417, t41419, t41421, t41423;
15647   double t41425, t41426, t41428, t41429, t41431, t41432, t41434, t41435;
15648   double t41437, t41440, t41445, t41448, t41449, t41451, t41452, t41454;
15649   double t41456, t41457, t41459, t41462, t41464, t41465, t41467, t41468;
15650   double t41470, t41476, t41479, t41484, t41487, t41505, t41508, t41527;
15651   double t41528, t41569, t41619, t41622, t41624, t41626, t41629, t41634;
15652   double t41637, t41646, t41653, t41658, t41662, t41665, t41668, t41671;
15653   double t41681, t41686, t41691, t41695, t41698, t41701, t41706, t41709;
15654   double t41713, t41714, t41717, t41723, t41742, t41774, t41775, t41777;
15655   double t41779, t41785, t41790, t41792, t41794, t41796, t41822, t41827;
15656   double t41832, t41835, t41856, t41859, t41872, t41878, t41881, t41884;
15657   double t41891, t41893, t41895, t41911, t41932, t41955, t41956, t41958;
15658   double t41973, t41976, t41979, t41982, t42001, t42008, t42011, t42014;
15659   double t42023, t42026, t42029, t42032, t42047, t42058, t42061, t42064;
15660   double t42065, t42086, t42094, t42096, t42098, t42101, t42103, t42105;
15661   double t42107, t42109, t42111, t42114, t42128, t42129, t42155, t42165;
15662   double t42168, t42191, t42198, t42200, t42203, t42235, t42262, t42285;
15663   double t42289, t42291, t42293, t42296, t42298, t42301, t42303, t42305;
15664   double t42311, t42314, t42315, t42318, t42323, t42330, t42331, t42334;
15665   double t42337, t42338, t42343, t42354, t42387, t42400, t42405, t42415;
15666   double t42420, t42422, t42429, t42432, t42436, t42438, t42470, t42477;
15667   double t42486, t42490, t42493, t42506, t42523, t42535, t42546, t42554;
15668   double t42555, t42558, t42564, t42567, t42606, t42634, t42643, t42651;
15669   double t42665, t42671, t42672, t42677, t42678, t42699, t42701, t42702;
15670   double t42715, t42755, t42756, t42759, t42761, t42794, t42795, t42799;
15671   double t42832, t42854, t42856, t42859, t42861, t42862, t42863, t42865;
15672   double t42866, t42867, t42869, t42870, t42872, t42873, t42875, t42876;
15673   double t42878, t42879, t42880, t42882, t42883, t42885, t42886, t42888;
15674   double t42891, t42893, t42894, t42895, t42897, t42898, t42900, t42901;
15675   double t42904, t42906, t42908, t42910, t42912, t42913, t42914, t42916;
15676   double t42918, t42920, t42922, t42924, t42926, t42928, t42929, t42931;
15677   double t42932, t42934, t42935, t42937, t42938, t42940, t42941, t42942;
15678   double t42945, t42947, t42948, t42949, t42951, t42952, t42954, t42955;
15679   double t42957, t42959, t42978, t42982, t43010, t43056, t43057, t43058;
15680   double t43061, t43062, t43064, t43065, t43067, t43068, t43070, t43072;
15681   double t43073, t43074, t43078, t43081, t43083, t43085, t43087, t43088;
15682   double t43090, t43091, t43093, t43096, t43097, t43099, t43102, t43104;
15683   double t43106, t43108, t43113, t43114, t43117, t43118, t43120, t43121;
15684   double t43123, t43125, t43128, t43129, t43130, t43135, t43136, t43138;
15685   double t43140, t43142, t43144, t43150, t43151, t43154, t43162, t43164;
15686   double t43166, t43168, t43171, t43173, t43175, t43177, t43180, t43182;
15687   double t43184, t43186, t43188, t43190, t43192, t43194, t43196, t43198;
15688   double t43200, t43202, t43204, t43206, t43208, t43210, t43219, t43235;
15689   double t43240, t43243, t43244, t43245, t43246, t43249, t43253, t43255;
15690   double t43256, t43257, t43261, t43266, t43271, t43274, t43276, t43279;
15691   double t43281, t43283, t43285, t43287, t43291, t43293, t43295, t43299;
15692   double t43304, t43307, t43310, t43313, t43316, t43319, t43321, t43322;
15693   double t43339, t43349, t43352, t43355, t43362, t43365, t43368, t43371;
15694   double t43374, t43377, t43380, t43389, t43390, t43397, t43399, t43401;
15695   double t43403, t43406, t43407, t43409, t43410, t43418, t43420, t43428;
15696   double t43430, t43432, t43434, t43436, t43438, t43440, t43442, t43444;
15697   double t43446, t43448, t43473, t43485, t43486, t43488, t43490, t43515;
15698   double t43527, t43529, t43530, t43532, t43534, t43536, t43539, t43541;
15699   double t43543, t43545, t43547, t43548, t43550, t43552, t43561, t43563;
15700   double t43566, t43568, t43592, t43611, t43620, t43627, t43630, t43635;
15701   double t43638, t43643, t43651, t43667, t43668, t43671, t43678, t43680;
15702   double t43684, t43691, t43700, t43704, t43710, t43714, t43720, t43724;
15703   double t43728, t43732, t43736, t43737, t43738, t43743, t43745, t43751;
15704   double t43752, t43753, t43759, t43765, t43766, t43771, t43777, t43778;
15705   double t43796, t43815, t43873, t43895, t43896, t43897, t43899, t43901;
15706   double t43903, t43904, t43905, t43907, t43908, t43910, t43911, t43913;
15707   double t43914, t43916, t43917, t43918, t43920, t43921, t43923, t43924;
15708   double t43926, t43927, t43928, t43930, t43931, t43932, t43934, t43935;
15709   double t43937, t43938, t43940, t43941, t43942, t43943, t43946, t43948;
15710   double t43949, t43950, t43952, t43953, t43955, t43956, t43958, t43961;
15711   double t43963, t43965, t43967, t43969, t43971, t43975, t43977, t43978;
15712   double t43980, t43981, t43983, t43984, t43986, t43988, t43990, t43992;
15713   double t43994, t43996, t43998, t44000, t44019, t44023, t44051, t44083;
15714   double t44091, t44095, t44100, t44101, t44104, t44107, t44108, t44112;
15715   double t44113, t44116, t44117, t44120, t44123, t44131, t44134, t44136;
15716   double t44138, t44140, t44141, t44143, t44144, t44146, t44149, t44152;
15717   double t44155, t44158, t44161, t44164, t44167, t44168, t44169, t44170;
15718   double t44173, t44177, t44179, t44180, t44181, t44185, t44188, t44191;
15719   double t44195, t44198, t44201, t44202, t44204, t44205, t44207, t44208;
15720   double t44210, t44211, t44213, t44214, t44216, t44217, t44219, t44221;
15721   double t44223, t44225, t44227, t44229, t44231, t44235, t44237, t44239;
15722   double t44242, t44245, t44248, t44252, t44253, t44255, t44256, t44258;
15723   double t44260, t44262, t44264, t44268, t44270, t44274, t44276, t44280;
15724   double t44284, t44286, t44290, t44292, t44294, t44296, t44303, t44312;
15725   double t44314, t44316, t44318, t44321, t44323, t44325, t44327, t44329;
15726   double t44331, t44333, t44335, t44337, t44339, t44350, t44353, t44355;
15727   double t44357, t44359, t44361, t44363, t44372, t44375, t44380, t44405;
15728   double t44408, t44411, t44428, t44444, t44445, t44446, t44449, t44452;
15729   double t44462, t44463, t44472, t44473, t44475, t44476, t44478, t44486;
15730   double t44488, t44490, t44492, t44494, t44497, t44499, t44501, t44503;
15731   double t44505, t44507, t44509, t44511, t44513, t44515, t44517, t44519;
15732   double t44521, t44523, t44536, t44557, t44590, t44592, t44594, t44595;
15733   double t44597, t44626, t44630, t44632, t44641, t44643, t44644, t44647;
15734   double t44649, t44651, t44653, t44655, t44657, t44659, t44661, t44668;
15735   double t44671, t44676, t44679, t44684, t44692, t44708, t44709, t44712;
15736   double t44721, t44732, t44760, t44806, t44828, t44835, t44840, t44877;
15737   double t44878, t44891, t44913, t44914, t44917, t44918, t44920, t44922;
15738   double t44924, t44925, t44927, t44928, t44930, t44931, t44933, t44936;
15739   double t44939, t44942, t44943, t44944, t44946, t44947, t44949, t44952;
15740   double t44955, t44958, t44961, t44962, t44964, t44965, t44967, t44970;
15741   double t44972, t44982, t44988, t44989, t44991, t44994, t44997, t44998;
15742   double t45000, t45001, t45003, t45006, t45009, t45012, t45014, t45022;
15743   double t45023, t45025, t45026, t45028, t45031, t45035, t45038, t45049;
15744   double t45051, t45059, t45060, t45062, t45064, t45067, t45068, t45070;
15745   double t45073, t45076, t45079, t45081, t45083, t45090, t45096, t45108;
15746   double t45109, t45111, t45114, t45115, t45117, t45121, t45124, t45127;
15747   double t45130, t45133, t45138, t45141, t45142, t45146, t45150, t45154;
15748   double t45155, t45157, t45160, t45161, t45162, t45166, t45167, t45171;
15749   double t45172, t45176, t45180, t45184, t45188, t45190, t45194, t45195;
15750   double t45199, t45216, t45221, t45225, t45229, t45232, t45236, t45242;
15751   double t45244, t45248, t45250, t45254, t45258, t45262, t45263, t45271;
15752   double t45275, t45279, t45285, t45287, t45290, t45294, t45296, t45300;
15753   double t45302, t45306, t45315, t45332, t45349, t45353, t45365, t45368;
15754   double t45371, t45374, t45377, t45380, t45385, t45394, t45396, t45404;
15755   double t45405, t45407, t45408, t45416, t45420, t45423, t45436, t45438;
15756   double t45440, t45442, t45443, t45446, t45448, t45450, t45453, t45455;
15757   double t45457, t45466, t45468, t45470, t45472, t45474, t45476, t45478;
15758   double t45480, t45490, t45504, t45506, t45508, t45511, t45513, t45515;
15759   double t45516, t45518, t45520, t45522, t45524, t45526, t45528, t45532;
15760   double t45534, t45536, t45543, t45560, t45564, t45567, t45571, t45575;
15761   double t45578, t45581, t45585, t45589, t45591, t45594, t45597, t45605;
15762   double t45607, t45615, t45617, t45625, t45627, t45628, t45632, t45640;
15763   double t45643, t45645, t45647, t45651, t45653, t45656, t45660, t45664;
15764   double t45666, t45669, t45671, t45674, t45678, t45680, t45684, t45686;
15765   double t45689, t45693, t45700, t45703, t45706, t45709, t45714, t45717;
15766   double t45728, t45739, t45748, t45767, t45786, t45788, t45792, t45795;
15767   double t45801, t45806, t45821, t45823, t45842, t45859, t45883, t45900;
15768   double t45930, t45950, t45997, t46039, t46053, t46060, t46065, t46075;
15769   double t46079, t46087, t46088, t46090, t46091, t46096, t46100, t46104;
15770   double t46108, t46126, t46168, t46190, t46191, t46193, t46196, t46199;
15771   double t46202, t46203, t46217, t46221, t46238, t46255, t46266, t46269;
15772   double t46273, t46277, t46281, t46283, t46293, t46300, t46304, t46309;
15773   double t46312, t46315, t46318, t46321, t46324, t46328, t46331, t46334;
15774   double t46337, t46340, t46343, t46346, t46349, t46352, t46355, t46358;
15775   double t46361, t46364, t46370, t46375, t46378, t46382, t46386, t46390;
15776   double t46397, t46399, t46403, t46413, t46429, t46433, t46434, t46442;
15777   double t46443, t46444, t46446, t46447, t46453, t46454, t46456, t46466;
15778   double t46471, t46478, t46479, t46481, t46482, t46490, t46492, t46500;
15779   double t46502, t46508, t46511, t46513, t46514, t46516, t46519, t46520;
15780   double t46522, t46526, t46531, t46532, t46534, t46537, t46538, t46540;
15781   double t46543, t46544, t46546, t46549, t46551, t46553, t46557, t46561;
15782   double t46565, t46569, t46573, t46574, t46576, t46577, t46579, t46582;
15783   double t46584, t46586, t46587, t46589, t46591, t46593, t46595, t46597;
15784   double t46601, t46605, t46607, t46611, t46615, t46617, t46622, t46624;
15785   double t46627, t46631, t46633, t46634, t46636, t46637, t46640, t46642;
15786   double t46643, t46645, t46649, t46650, t46652, t46655, t46659, t46663;
15787   double t46667, t46669, t46687, t46688, t46690, t46693, t46695, t46697;
15788   double t46699, t46701, t46702, t46704, t46705, t46707, t46709, t46713;
15789   double t46715, t46720, t46722, t46730, t46732, t46736, t46738, t46740;
15790   double t46741, t46743, t46746, t46749, t46750, t46754, t46757, t46766;
15791   double t46767, t46770, t46771, t46773, t46775, t46776, t46778, t46780;
15792   double t46782, t46784, t46792, t46793, t46795, t46803, t46811, t46812;
15793   double t46816, t46818, t46826, t46827, t46829, t46830, t46838, t46840;
15794   double t46846, t46851, t46853, t46855, t46857, t46859, t46861, t46874;
15795   double t46880, t46884, t46888, t46892, t46894, t46897, t46901, t46903;
15796   double t46907, t46909, t46912, t46916, t46918, t46935, t46937, t46939;
15797   double t46942, t46946, t46948, t46952, t46954, t46957, t46961, t46965;
15798   double t46967, t46970, t46974, t46980, t46981, t46994, t47009, t47028;
15799   double t47041, t47043, t47047, t47051, t47057, t47060, t47063, t47066;
15800   double t47068, t47071, t47077, t47091, t47103, t47105, t47118, t47131;
15801   double t47184, t47218, t47237, t47247, t47282, t47296, t47335, t47339;
15802   double t47360, t47362, t47363, t47381, t47384, t47387, t47390, t47399;
15803   double t47402, t47405, t47408, t47409, t47412, t47415, t47418, t47421;
15804   double t47441, t47458, t47465, t47468, t47473, t47475, t47477, t47478;
15805   double t47480, t47484, t47486, t47487, t47489, t47490, t47492, t47494;
15806   double t47496, t47498, t47508, t47510, t47512, t47517, t47540, t47570;
15807   double t47571, t47573, t47575, t47576, t47578, t47579, t47581, t47582;
15808   double t47586, t47591, t47602, t47607, t47613, t47630, t47642, t47655;
15809   double t47661, t47677, t47692, t47698, t47723, t47755, t47771, t47779;
15810   double t47780, t47783, t47786, t47793, t47796, t47799, t47808, t47814;
15811   double t47816, t47818, t47825, t47834, t47845, t47853, t47873, t47879;
15812   double t47882, t47885, t47906, t47936, t47953, t47980, t48000, t48004;
15813   double t48007, t48018, t48024, t48028, t48031, t48032, t48035, t48038;
15814   double t48041, t48044, t48049, t48058, t48064, t48069, t48070, t48096;
15815   double t48108, t48120, t48139, t48141, t48147, t48149, t48154, t48157;
15816   double t48166, t48181, t48192, t48205, t48253, t48275, t48283, t48290;
15817   double t48296, t48299, t48308, t48314, t48321, t48347, t48371, t48372;
15818   double t48419, t48427, t48431, t48449, t48450, t48455, t48470, t48473;
15819   double t48479, t48502, t48504, t48506, t48508, t48518, t48520, t48522;
15820   double t48524, t48526, t48528, t48529, t48531, t48533, t48535, t48536;
15821   double t48538, t48540, t48541, t48566, t48588, t48604, t48616, t48619;
15822   double t48623, t48626, t48629, t48632, t48635, t48638, t48641, t48644;
15823   double t48647, t48650, t48653, t48656, t48659, t48662, t48665, t48668;
15824   double t48671, t48674, t48677, t48680, t48696, t48699, t48702, t48704;
15825   double t48707, t48710, t48737, t48770, t48788, t48817, t48828, t48838;
15826   double t48843, t48854, t48871, t48904, t48915, t48919, t48921, t48923;
15827   double t48925, t48927, t48929, t48931, t48933, t48935, t48937, t48947;
15828   double t48962, t48979, t48988, t49000, t49003, t49012, t49014, t49021;
15829   double t49037, t49045, t49064, t49079, t49096, t49113, t49119, t49122;
15830   double t49123, t49125, t49126, t49142, t49155, t49172, t49185, t49187;
15831   double t49193, t49196, t49199, t49202, t49212, t49222, t49229, t49237;
15832   double t49238, t49242, t49244, t49246, t49252, t49300, t49306, t49339;
15833   double t49342, t49364, t49380, t49383, t49392, t49395, t49401, t49416;
15834   double t49435, t49439, t49462, t49476, t49503, t49519, t49527, t49546;
15835   double t49548, t49554, t49555, t49558, t49561, t49562, t49565, t49566;
15836   double t49569, t49570, t49573, t49574, t49577, t49580, t49583, t49584;
15837   double t49587, t49590, t49595, t49598, t49599, t49602, t49605, t49610;
15838   double t49633, t49637, t49648, t49651, t49654, t49656, t49659, t49661;
15839   double t49663, t49669, t49684, t49698, t49708, t49731, t49755, t49757;
15840   double t49759, t49761, t49764, t49772, t49775, t49776, t49779, t49790;
15841   double t49798, t49801, t49802, t49805, t49811, t49843, t49858, t49870;
15842   double t49876, t49896, t49899, t49902, t49919, t49925, t49927, t49944;
15843   double t49947, t49950, t49951, t49953, t49954, t49956, t49957, t49969;
15844   double t49974, t49981, t49997, t50015, t50039, t50045, t50046, t50049;
15845   double t50054, t50057, t50062, t50069, t50070, t50080, t50084, t50098;
15846   double t50111, t50113, t50127, t50128, t50136, t50137, t50138, t50143;
15847   double t50146, t50158, t50161, t50164, t50167, t50170, t50174, t50178;
15848   double t50185, t50195, t50244, t50260, t50290, t50297, t50300, t50301;
15849   double t50316, t50319, t50322, t50330, t50341, t50361, t50367, t50371;
15850   double t50387, t50389, t50391, t50393, t50396, t50398, t50400, t50401;
15851   double t50402, t50403, t50405, t50406, t50407, t50409, t50410, t50412;
15852   double t50413, t50414, t50416, t50417, t50418, t50420, t50421, t50427;
15853   double t50442, t50444, t50445, t50446, t50448, t50449, t50451, t50452;
15854   double t50454, t50455, t50457, t50458, t50460, t50461, t50463, t50465;
15855   double t50512, t50517, t50520, t50530, t50531, t50534, t50535, t50540;
15856   double t50541, t50546, t50552, t50559, t50563, t50564, t50567, t50570;
15857   double t50573, t50590, t50632, t50655, t50668, t50671, t50684, t50687;
15858   double t50690, t50693, t50702, t50705, t50708, t50723, t50726, t50735;
15859   double t50738, t50741, t50744, t50764, t50769, t50800, t50824, t50838;
15860   double t50849, t50884, t50927, t50947, t50973, t50979, t50980, t50983;
15861   double t50988, t50991, t50996, t51003, t51004, t51020, t51021, t51027;
15862   double t51030, t51031, t51042, t51048, t51051, t51058, t51101, t51140;
15863   double t51150, t51175, t51179, t51180, t51182, t51184, t51185, t51186;
15864   double t51187, t51190, t51191, t51192, t51193, t51196, t51197, t51198;
15865   double t51200, t51202, t51203, t51206, t51209, t51212, t51217, t51225;
15866   double t51231, t51232, t51254, t51269, t51270, t51271, t51293, t51297;
15867   double t51304, t51306, t51307, t51350, t51352, t51354, t51355, t51357;
15868   double t51358, t51360, t51361, t51363, t51364, t51366, t51368, t51370;
15869   double t51372, t51374, t51376, t51378, t51380, t51381, t51383, t51385;
15870   double t51387, t51388, t51390, t51392, t51394, t51396, t51398, t51401;
15871   double t51403, t51405, t51407, t51416, t51419, t51422, t51425, t51428;
15872   double t51437, t51440, t51443, t51449, t51452, t51455, t51458, t51461;
15873   double t51462, t51466, t51469, t51472, t51475, t51490, t51493, t51503;
15874   double t51519, t51527, t51540, t51561, t51562, t51565, t51570, t51571;
15875   double t51581, t51606, t51610, t51611, t51613, t51615, t51616, t51617;
15876   double t51618, t51621, t51622, t51623, t51624, t51627, t51628, t51632;
15877   double t51634, t51636, t51637, t51640, t51643, t51646, t51648, t51656;
15878   double t51662, t51663, t51685, t51709, t51710, t51711, t51717, t51718;
15879   double t51720, t51723, t51725, t51726, t51728, t51729, t51731, t51732;
15880   double t51734, t51736, t51738, t51739, t51741, t51743, t51745, t51747;
15881   double t51749, t51750, t51752, t51754, t51756, t51758, t51760, t51762;
15882   double t51764, t51766, t51768, t51770, t51772, t51783, t51799, t51804;
15883   double t51810, t51813, t51822, t51828, t51834, t51840, t51843, t51844;
15884   double t51847, t51850, t51853, t51856, t51859, t51862, t51865, t51868;
15885   double t51871, t51874, t51890, t51895, t51924, t51934, t51936, t51937;
15886   double t51950, t51958, t51971, t51992, t51993, t51996, t52023, t52080;
15887   double t52090, t52091, t52092, t52093, t52094, t52095, t52096, t52097;
15888   double t52098, t52099, t52100, t52101, t52102, t52103, t52104, t52106;
15889   double t52107, t52108, t52109, t52110, t52111, t52112, t52113, t52114;
15890   double t52118, t52121, t52126, t52127, t52130, t52131, t52132, t52135;
15891   double t52136, t52137, t52138, t52159, t52167, t52175, t52178, t52181;
15892   double t52184, t52199, t52202, t52204, t52206, t52207, t52211, t52213;
15893   double t52221, t52237, t52248, t52249, t52250, t52251, t52252, t52253;
15894   double t52254, t52255, t52256, t52257, t52258, t52259, t52260, t52261;
15895   double t52262, t52263, t52264, t52265, t52266, t52267, t52268, t52269;
15896   double t52272, t52273, t52274, t52275, t52277, t52278, t52279, t52280;
15897   double t52281, t52282, t52283, t52284, t52286, t52293, t52296, t52301;
15898   double t52302, t52305, t52306, t52309, t52310, t52313, t52314, t52319;
15899   double t52325, t52327, t52328, t52329, t52330, t52331, t52351, t52352;
15900   double t52387, t52446, t52489, t52538, t52551, t52558, t52561, t52566;
15901   double t52568, t52571, t52574, t52579, t52591, t52596, t52601, t52602;
15902   double t52603, t52604, t52605, t52606, t52607, t52608, t52609, t52610;
15903   double t52611, t52612, t52613, t52614, t52615, t52616, t52619, t52626;
15904   double t52627, t52634, t52638, t52640, t52642, t52643, t52647, t52650;
15905   double t52673, t52675, t52676, t52678, t52680, t52681, t52683, t52685;
15906   double t52686, t52688, t52690, t52692, t52694, t52696, t52699, t52701;
15907   double t52702, t52704, t52705, t52707, t52710, t52712, t52714, t52716;
15908   double t52718, t52720, t52722, t52724, t52725, t52733, t52734, t52737;
15909   double t52738, t52739, t52742, t52743, t52747, t52748, t52751, t52752;
15910   double t52755, t52756, t52759, t52760, t52762, t52763, t52765, t52788;
15911   double t52789, t52829, t52922, t52933, t52968, t52971, t52997, t53014;
15912   double t53019, t53027, t53029, t53030, t53032, t53033, t53035, t53036;
15913   double t53038, t53039, t53041, t53042, t53044, t53045, t53047, t53048;
15914   double t53056, t53068, t53074, t53113, t53119, t53128, t53153, t53155;
15915   double t53158, t53187, t53188, t53201, t53214, t53229, t53231, t53239;
15916   double t53242, t53243, t53251, t53254, t53269, t53270, t53274, t53278;
15917   double t53279, t53281, t53283, t53284, t53288, t53290, t53292, t53296;
15918   double t53300, t53304, t53305, t53309, t53313, t53317, t53318, t53322;
15919   double t53326, t53327, t53329, t53332, t53334, t53339, t53344, t53348;
15920   double t53350, t53354, t53356, t53360, t53361, t53363, t53377, t53392;
15921   double t53394, t53396, t53397, t53402, t53405, t53415, t53424, t53427;
15922   double t53431, t53440, t53443, t53456, t53458, t53460, t53491, t53515;
15923   double t53528, t53537, t53538, t53541, t53542, t53544, t53547, t53548;
15924   double t53550, t53553, t53557, t53558, t53560, t53563, t53564, t53568;
15925   double t53572, t53573, t53575, t53578, t53580, t53581, t53583, t53586;
15926   double t53592, t53597, t53600, t53615, t53617, t53618, t53620, t53622;
15927   double t53624, t53625, t53627, t53629, t53634, t53638, t53640, t53643;
15928   double t53647, t53651, t53653, t53658, t53662, t53663, t53665, t53668;
15929   double t53672, t53676, t53677, t53679, t53682, t53684, t53687, t53692;
15930   double t53697, t53701, t53704, t53709, t53723, t53737, t53742, t53743;
15931   double t53745, t53746, t53748, t53753, t53756, t53757, t53759, t53760;
15932   double t53766, t53779, t53780, t53784, t53793, t53810, t53819, t53821;
15933   double t53831, t53834, t53857, t53864, t53880, t53891, t53896, t53933;
15934   double t53934, t53978, t54006, t54030, t54048, t54051, t54063, t54082;
15935   double t54091, t54093, t54094, t54096, t54097, t54099, t54102, t54109;
15936   double t54117, t54121, t54124, t54126, t54153, t54166, t54185, t54188;
15937   double t54193, t54196, t54201, t54208, t54219, t54220, t54221, t54235;
15938   double t54236, t54244, t54247, t54318, t54334, t54337, t54340, t54345;
15939   double t54348, t54351, t54371, t54393, t54405, t54407, t54408, t54410;
15940   double t54411, t54413, t54414, t54416, t54428, t54436, t54439, t54453;
15941   double t54461, t54466, t54483, t54495, t54502, t54511, t54532, t54537;
15942   double t54540, t54545, t54548, t54553, t54560, t54566, t54572, t54573;
15943   double t54587, t54588, t54590, t54593, t54596, t54599, t54650, t54668;
15944   double t54681, t54694, t54695, t54708, t54746, t54765, t54777, t54784;
15945   double t54800, t54807, t54838, t54884, t54902, t54905, t54908, t54911;
15946   double t54916, t54917, t54921, t54926, t54933, t54940, t54958, t54973;
15947   double t54974, t54976, t54979, t54998, t55002, t55011, t55035, t55057;
15948   double t55065, t55076, t55091, t55094, t55099, t55102, t55111, t55136;
15949   double t55164, t55198, t55199, t55202, t55216, t55233, t55239, t55242;
15950   double t55245, t55248, t55271, t55275, t55280, t55287, t55294, t55312;
15951   double t55327, t55328, t55330, t55342, t55377, t55399, t55404;
15952 #endif
15953 
15954 #endif
15955 
15956 #endif
15957 
15958 #endif
15959 
15960 #endif
15961 
15962 
15963   mgga_x_rscan_params *params;
15964 
15965   assert(p->params != NULL);
15966   params = (mgga_x_rscan_params * )(p->params);
15967 
15968   t2 = M_CBRT3;
15969   t4 = POW_1_3(0.1e1 / M_PI);
15970   t5 = t2 * t4;
15971   t6 = M_CBRT4;
15972   t7 = t6 * t6;
15973   t8 = t5 * t7;
15974   t9 = rho[0] - rho[1];
15975   t10 = rho[0] + rho[1];
15976   t11 = 0.1e1 / t10;
15977   t12 = t9 * t11;
15978   t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
15979   t15 = POW_1_3(t14);
15980   t16 = t15 * t14;
15981   t17 = POW_1_3(t10);
15982   t18 = t16 * t17;
15983   t19 = M_CBRT6;
15984   t20 = M_PI * M_PI;
15985   t21 = POW_1_3(t20);
15986   t22 = t21 * t21;
15987   t23 = 0.1e1 / t22;
15988   t24 = t19 * t23;
15989   t25 = rho[0] * rho[0];
15990   t26 = POW_1_3(rho[0]);
15991   t27 = t26 * t26;
15992   t28 = t27 * t25;
15993   t29 = 0.1e1 / t28;
15994   t30 = sigma[0] * t29;
15995   t31 = t24 * t30;
15996   t35 = 0.100e3 / 0.6561e4 / params->k1 - 0.73e2 / 0.648e3;
15997   t36 = t19 * t19;
15998   t37 = t35 * t36;
15999   t38 = t21 * t20;
16000   t39 = 0.1e1 / t38;
16001   t40 = t37 * t39;
16002   t41 = sigma[0] * sigma[0];
16003   t42 = t25 * t25;
16004   t43 = t42 * rho[0];
16005   t44 = t26 * t43;
16006   t45 = 0.1e1 / t44;
16007   t46 = t41 * t45;
16008   t47 = t35 * t19;
16009   t48 = t23 * sigma[0];
16010   t49 = t48 * t29;
16011   t52 = exp(-0.27e2 / 0.80e2 * t47 * t49);
16012   t56 = sqrt(0.146e3);
16013   t57 = t56 * t19;
16014   t60 = t27 * rho[0];
16015   t61 = 0.1e1 / t60;
16016   t64 = tau[0] * t61 - t30 / 0.8e1;
16017   t65 = 0.0e0 < t64;
16018   t66 = my_piecewise3(t65, t64, 0);
16019   t67 = t66 * t66;
16020   t68 = t67 * t66;
16021   t69 = t43 * t68;
16022   t73 = params->taur / 0.2e1;
16023   t74 = 0.3e1 / 0.10e2 * t60 * t36 * t22 + t73;
16024   t75 = t74 * t74;
16025   t76 = t75 * t74;
16026   t77 = 0.1e1 / t76;
16027   t78 = t25 * rho[0];
16028   t79 = t26 * t78;
16029   t81 = 0.1e1 / t75;
16030   t83 = t67 * t79 * t81 + params->alphar;
16031   t84 = 0.1e1 / t83;
16032   t85 = t77 * t84;
16033   t86 = t69 * t85;
16034   t87 = 0.1e1 - t86;
16035   t89 = t87 * t87;
16036   t91 = exp(-t89 / 0.2e1);
16037   t94 = 0.7e1 / 0.12960e5 * t57 * t49 + t56 * t87 * t91 / 0.100e3;
16038   t95 = t94 * t94;
16039   t96 = params->k1 + 0.5e1 / 0.972e3 * t31 + t40 * t46 * t52 / 0.576e3 + t95;
16040   t101 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t96);
16041   t102 = t86 <= 0.25e1;
16042   t104 = t42 * t42;
16043   t105 = t104 * t25;
16044   t106 = t67 * t67;
16045   t107 = t106 * t67;
16046   t108 = t105 * t107;
16047   t109 = t75 * t75;
16048   t110 = t109 * t75;
16049   t111 = 0.1e1 / t110;
16050   t112 = t83 * t83;
16051   t113 = 0.1e1 / t112;
16052   t114 = t111 * t113;
16053   t117 = t42 * t78;
16054   t118 = t104 * t117;
16055   t119 = t106 * t106;
16056   t120 = t119 * t66;
16057   t121 = t118 * t120;
16058   t122 = t109 * t109;
16059   t123 = t122 * t74;
16060   t124 = 0.1e1 / t123;
16061   t125 = t112 * t83;
16062   t126 = 0.1e1 / t125;
16063   t127 = t124 * t126;
16064   t130 = t104 * t104;
16065   t131 = t130 * t42;
16066   t132 = t119 * t106;
16067   t133 = t131 * t132;
16068   t134 = t122 * t109;
16069   t135 = 0.1e1 / t134;
16070   t136 = t112 * t112;
16071   t137 = 0.1e1 / t136;
16072   t138 = t135 * t137;
16073   t141 = t104 * rho[0];
16074   t142 = t130 * t141;
16075   t143 = t106 * t68;
16076   t144 = t119 * t143;
16077   t145 = t142 * t144;
16078   t146 = t109 * t76;
16079   t148 = 0.1e1 / t122 / t146;
16080   t150 = 0.1e1 / t136 / t83;
16081   t151 = t148 * t150;
16082   t154 = t42 * t25;
16083   t155 = t104 * t154;
16084   t156 = t130 * t155;
16085   t157 = t119 * t119;
16086   t158 = t157 * t67;
16087   t159 = t156 * t158;
16088   t160 = t122 * t122;
16089   t162 = 0.1e1 / t160 / t75;
16090   t164 = 0.1e1 / t136 / t112;
16091   t165 = t162 * t164;
16092   t168 = t130 * t130;
16093   t169 = t168 * t78;
16094   t170 = t106 * t66;
16095   t171 = t157 * t170;
16096   t172 = t169 * t171;
16097   t173 = t109 * t74;
16098   t175 = 0.1e1 / t160 / t173;
16099   t177 = 0.1e1 / t136 / t125;
16100   t178 = t175 * t177;
16101   t184 = exp(params->c2 / t87);
16102   t186 = my_piecewise3(t102, 0.1e1 - 0.667e0 * t86 - 0.4445555e0 * t108 * t114 - 0.663086601049e0 * t121 * t127 + 0.1451297044490e1 * t133 * t138 - 0.887998041597e0 * t145 * t151 + 0.234528941479e0 * t159 * t165 - 0.23185843322e-1 * t172 * t178, -params->d * t184);
16103   t187 = 0.1e1 - t186;
16104   t190 = t101 * t187 + 0.1174e1 * t186;
16105   t191 = sqrt(0.3e1);
16106   t192 = 0.1e1 / t21;
16107   t193 = t36 * t192;
16108   t194 = sqrt(sigma[0]);
16109   t195 = t26 * rho[0];
16110   t196 = 0.1e1 / t195;
16111   t198 = t193 * t194 * t196;
16112   t199 = sqrt(t198);
16113   t203 = exp(-0.98958000000000000000e1 * t191 / t199);
16114   t204 = 0.1e1 - t203;
16115   t205 = t190 * t204;
16116   t207 = t8 * t18 * t205;
16117   t209 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
16118   t210 = POW_1_3(t209);
16119   t211 = t210 * t209;
16120   t212 = t211 * t17;
16121   t213 = rho[1] * rho[1];
16122   t214 = POW_1_3(rho[1]);
16123   t215 = t214 * t214;
16124   t216 = t215 * t213;
16125   t217 = 0.1e1 / t216;
16126   t218 = sigma[2] * t217;
16127   t219 = t24 * t218;
16128   t221 = sigma[2] * sigma[2];
16129   t222 = t213 * t213;
16130   t223 = t222 * rho[1];
16131   t224 = t214 * t223;
16132   t225 = 0.1e1 / t224;
16133   t226 = t221 * t225;
16134   t227 = t23 * sigma[2];
16135   t228 = t227 * t217;
16136   t231 = exp(-0.27e2 / 0.80e2 * t47 * t228);
16137   t237 = t215 * rho[1];
16138   t238 = 0.1e1 / t237;
16139   t241 = tau[1] * t238 - t218 / 0.8e1;
16140   t242 = 0.0e0 < t241;
16141   t243 = my_piecewise3(t242, t241, 0);
16142   t244 = t243 * t243;
16143   t245 = t244 * t243;
16144   t246 = t223 * t245;
16145   t250 = 0.3e1 / 0.10e2 * t237 * t36 * t22 + t73;
16146   t251 = t250 * t250;
16147   t252 = t251 * t250;
16148   t253 = 0.1e1 / t252;
16149   t254 = t213 * rho[1];
16150   t255 = t214 * t254;
16151   t257 = 0.1e1 / t251;
16152   t259 = t244 * t255 * t257 + params->alphar;
16153   t260 = 0.1e1 / t259;
16154   t261 = t253 * t260;
16155   t262 = t246 * t261;
16156   t263 = 0.1e1 - t262;
16157   t265 = t263 * t263;
16158   t267 = exp(-t265 / 0.2e1);
16159   t270 = 0.7e1 / 0.12960e5 * t57 * t228 + t56 * t263 * t267 / 0.100e3;
16160   t271 = t270 * t270;
16161   t272 = params->k1 + 0.5e1 / 0.972e3 * t219 + t40 * t226 * t231 / 0.576e3 + t271;
16162   t277 = 0.1e1 + params->k1 * (0.1e1 - params->k1 / t272);
16163   t278 = t262 <= 0.25e1;
16164   t280 = t222 * t222;
16165   t281 = t280 * t213;
16166   t282 = t244 * t244;
16167   t283 = t282 * t244;
16168   t284 = t281 * t283;
16169   t285 = t251 * t251;
16170   t286 = t285 * t251;
16171   t287 = 0.1e1 / t286;
16172   t288 = t259 * t259;
16173   t289 = 0.1e1 / t288;
16174   t290 = t287 * t289;
16175   t293 = t222 * t254;
16176   t294 = t280 * t293;
16177   t295 = t282 * t282;
16178   t296 = t295 * t243;
16179   t297 = t294 * t296;
16180   t298 = t285 * t285;
16181   t299 = t298 * t250;
16182   t300 = 0.1e1 / t299;
16183   t301 = t288 * t259;
16184   t302 = 0.1e1 / t301;
16185   t303 = t300 * t302;
16186   t306 = t280 * t280;
16187   t307 = t306 * t222;
16188   t308 = t295 * t282;
16189   t309 = t307 * t308;
16190   t310 = t298 * t285;
16191   t311 = 0.1e1 / t310;
16192   t312 = t288 * t288;
16193   t313 = 0.1e1 / t312;
16194   t314 = t311 * t313;
16195   t317 = t280 * rho[1];
16196   t318 = t306 * t317;
16197   t319 = t282 * t245;
16198   t320 = t295 * t319;
16199   t321 = t318 * t320;
16200   t322 = t285 * t252;
16201   t324 = 0.1e1 / t298 / t322;
16202   t326 = 0.1e1 / t312 / t259;
16203   t327 = t324 * t326;
16204   t330 = t222 * t213;
16205   t331 = t280 * t330;
16206   t332 = t306 * t331;
16207   t333 = t295 * t295;
16208   t334 = t333 * t244;
16209   t335 = t332 * t334;
16210   t336 = t298 * t298;
16211   t338 = 0.1e1 / t336 / t251;
16212   t340 = 0.1e1 / t312 / t288;
16213   t341 = t338 * t340;
16214   t344 = t306 * t306;
16215   t345 = t344 * t254;
16216   t346 = t282 * t243;
16217   t347 = t333 * t346;
16218   t348 = t345 * t347;
16219   t349 = t285 * t250;
16220   t351 = 0.1e1 / t336 / t349;
16221   t353 = 0.1e1 / t312 / t301;
16222   t354 = t351 * t353;
16223   t360 = exp(params->c2 / t263);
16224   t362 = my_piecewise3(t278, 0.1e1 - 0.667e0 * t262 - 0.4445555e0 * t284 * t290 - 0.663086601049e0 * t297 * t303 + 0.1451297044490e1 * t309 * t314 - 0.887998041597e0 * t321 * t327 + 0.234528941479e0 * t335 * t341 - 0.23185843322e-1 * t348 * t354, -params->d * t360);
16225   t363 = 0.1e1 - t362;
16226   t366 = t277 * t363 + 0.1174e1 * t362;
16227   t367 = sqrt(sigma[2]);
16228   t368 = t214 * rho[1];
16229   t369 = 0.1e1 / t368;
16230   t371 = t193 * t367 * t369;
16231   t372 = sqrt(t371);
16232   t376 = exp(-0.98958000000000000000e1 * t191 / t372);
16233   t377 = 0.1e1 - t376;
16234   t378 = t366 * t377;
16235   t380 = t8 * t212 * t378;
16236   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
16237     zk[0] = -0.3e1 / 0.8e1 * t207 - 0.3e1 / 0.8e1 * t380;
16238 
16239 #ifndef XC_DONT_COMPILE_VXC
16240 
16241   if(order < 1) return;
16242 
16243 
16244   t382 = 0.3e1 / 0.8e1 * t207;
16245   t383 = 0.3e1 / 0.8e1 * t380;
16246   t384 = t7 * t15;
16247   t385 = t5 * t384;
16248   t386 = t17 * t190;
16249   t387 = t10 * t10;
16250   t388 = 0.1e1 / t387;
16251   t389 = t9 * t388;
16252   t391 = t11 / 0.2e1 - t389 / 0.2e1;
16253   t392 = t204 * t391;
16254   t394 = t385 * t386 * t392;
16255   t395 = t394 / 0.2e1;
16256   t396 = t17 * t17;
16257   t397 = 0.1e1 / t396;
16258   t398 = t16 * t397;
16259   t400 = t8 * t398 * t205;
16260   t401 = t400 / 0.8e1;
16261   t402 = params->k1 * params->k1;
16262   t403 = t96 * t96;
16263   t405 = t402 / t403;
16264   t406 = t27 * t78;
16265   t407 = 0.1e1 / t406;
16266   t408 = sigma[0] * t407;
16267   t411 = t26 * t154;
16268   t412 = 0.1e1 / t411;
16269   t417 = t35 * t35;
16270   t418 = t20 * t20;
16271   t419 = 0.1e1 / t418;
16272   t420 = t417 * t419;
16273   t421 = t41 * sigma[0];
16274   t422 = 0.1e1 / t141;
16275   t430 = t42 * t68;
16276   t431 = t430 * t85;
16277   t433 = t43 * t67;
16278   t438 = my_piecewise3(t65, -0.5e1 / 0.3e1 * tau[0] * t29 + t408 / 0.3e1, 0);
16279   t439 = t85 * t438;
16280   t440 = t433 * t439;
16281   t442 = t27 * t43;
16282   t443 = t442 * t68;
16283   t444 = 0.1e1 / t109;
16284   t445 = t443 * t444;
16285   t447 = t84 * t36 * t22;
16286   t448 = t445 * t447;
16287   t450 = t77 * t113;
16288   t451 = t26 * t25;
16289   t455 = t79 * t66;
16290   t456 = t81 * t438;
16291   t459 = t42 * t67;
16292   t461 = t77 * t36 * t22;
16293   t463 = 0.10e2 / 0.3e1 * t451 * t67 * t81 + 0.2e1 * t455 * t456 - t459 * t461;
16294   t464 = t450 * t463;
16295   t465 = t69 * t464;
16296   t466 = -0.5e1 * t431 - 0.3e1 * t440 + 0.3e1 / 0.2e1 * t448 + t465;
16297   t470 = t56 * t89;
16298   t471 = t466 * t91;
16299   t474 = -0.7e1 / 0.4860e4 * t57 * t48 * t407 + t56 * t466 * t91 / 0.100e3 - t470 * t471 / 0.100e3;
16300   t477 = -0.10e2 / 0.729e3 * t24 * t408 - t40 * t41 * t412 * t52 / 0.108e3 + 0.3e1 / 0.320e3 * t420 * t421 * t422 * t52 + 0.2e1 * t94 * t474;
16301   t478 = t477 * t187;
16302   t481 = t27 * t105;
16303   t482 = t481 * t107;
16304   t483 = 0.1e1 / t146;
16305   t484 = t482 * t483;
16306   t485 = t113 * t36;
16307   t486 = t485 * t22;
16308   t489 = t27 * t118;
16309   t490 = t489 * t120;
16310   t491 = t122 * t75;
16311   t492 = 0.1e1 / t491;
16312   t493 = t490 * t492;
16313   t494 = t126 * t36;
16314   t495 = t494 * t22;
16315   t498 = t27 * t131;
16316   t499 = t498 * t132;
16317   t500 = t122 * t173;
16318   t501 = 0.1e1 / t500;
16319   t502 = t499 * t501;
16320   t503 = t137 * t36;
16321   t504 = t503 * t22;
16322   t507 = t27 * t142;
16323   t508 = t507 * t144;
16324   t509 = 0.1e1 / t160;
16325   t510 = t508 * t509;
16326   t511 = t150 * t36;
16327   t512 = t511 * t22;
16328   t515 = t27 * t156;
16329   t516 = t515 * t158;
16330   t518 = 0.1e1 / t160 / t76;
16331   t519 = t516 * t518;
16332   t520 = t164 * t36;
16333   t521 = t520 * t22;
16334   t524 = t27 * t169;
16335   t525 = t524 * t171;
16336   t527 = 0.1e1 / t160 / t110;
16337   t528 = t525 * t527;
16338   t529 = t177 * t36;
16339   t530 = t529 * t22;
16340   t533 = t141 * t107;
16341   t536 = t155 * t120;
16342   t542 = t130 * t78;
16343   t543 = t542 * t132;
16344   t546 = t130 * t104;
16345   t547 = t546 * t144;
16346   t550 = 0.10005000000000000000e1 * t448 + 0.13336665e1 * t484 * t486 + 0.29838897047205000000e1 * t493 * t495 - 0.8707782266940e1 * t502 * t504 + 0.66599853119775000000e1 * t510 * t512 - 0.2110760473311e1 * t519 * t521 + 0.24345135488100000000e0 * t528 * t530 - 0.44455550e1 * t533 * t114 - 0.9946299015735e1 * t536 * t127 - 0.3335e1 * t431 - 0.2001e1 * t440 + 0.667e0 * t465 + 0.29025940889800e2 * t543 * t138 - 0.22199951039925e2 * t547 * t151;
16347   t551 = t104 * t43;
16348   t552 = t130 * t551;
16349   t553 = t552 * t158;
16350   t556 = t168 * t25;
16351   t557 = t556 * t171;
16352   t560 = t105 * t170;
16353   t561 = t114 * t438;
16354   t564 = t111 * t126;
16355   t565 = t564 * t463;
16356   t568 = t118 * t119;
16357   t569 = t127 * t438;
16358   t572 = t124 * t137;
16359   t573 = t572 * t463;
16360   t576 = t119 * t68;
16361   t577 = t131 * t576;
16362   t578 = t138 * t438;
16363   t581 = t135 * t150;
16364   t582 = t581 * t463;
16365   t585 = t119 * t107;
16366   t586 = t142 * t585;
16367   t587 = t151 * t438;
16368   t590 = t148 * t164;
16369   t591 = t590 * t463;
16370   t594 = t157 * t66;
16371   t595 = t156 * t594;
16372   t596 = t165 * t438;
16373   t599 = t162 * t177;
16374   t600 = t599 * t463;
16375   t603 = t157 * t106;
16376   t604 = t169 * t603;
16377   t605 = t178 * t438;
16378   t608 = t136 * t136;
16379   t609 = 0.1e1 / t608;
16380   t610 = t175 * t609;
16381   t611 = t610 * t463;
16382   t614 = 0.7035868244370e1 * t553 * t165 - 0.811504516270e0 * t557 * t178 - 0.26673330e1 * t560 * t561 + 0.8891110e0 * t108 * t565 - 0.5967779409441e1 * t568 * t569 + 0.1989259803147e1 * t121 * t573 + 0.17415564533880e2 * t577 * t578 - 0.5805188177960e1 * t133 * t582 - 0.13319970623955e2 * t586 * t587 + 0.4439990207985e1 * t145 * t591 + 0.4221520946622e1 * t595 * t596 - 0.1407173648874e1 * t159 * t600 - 0.486902709762e0 * t604 * t605 + 0.162300903254e0 * t172 * t611;
16383   t616 = params->d * params->c2;
16384   t617 = 0.1e1 / t89;
16385   t621 = my_piecewise3(t102, t550 + t614, t616 * t617 * t466 * t184);
16386   t624 = t405 * t478 - t101 * t621 + 0.1174e1 * t621;
16387   t625 = t624 * t204;
16388   t627 = t8 * t18 * t625;
16389   t628 = 0.3e1 / 0.8e1 * t627;
16390   t629 = pow(0.3e1, 0.1e1 / 0.6e1);
16391   t630 = t629 * t629;
16392   t631 = t630 * t630;
16393   t632 = t631 * t629;
16394   t633 = t632 * t4;
16395   t634 = t633 * t7;
16396   t636 = t634 * t18 * t190;
16397   t638 = 0.1e1 / t199 / t198;
16398   t640 = t638 * t36 * t192;
16399   t641 = 0.1e1 / t451;
16400   t642 = t194 * t641;
16401   t644 = t640 * t642 * t203;
16402   t645 = t636 * t644;
16403   t646 = 0.24739500000000000000e1 * t645;
16404   t647 = t7 * t210;
16405   t648 = t5 * t647;
16406   t649 = t17 * t366;
16407   t650 = -t391;
16408   t651 = t377 * t650;
16409   t653 = t648 * t649 * t651;
16410   t654 = t653 / 0.2e1;
16411   t655 = t211 * t397;
16412   t657 = t8 * t655 * t378;
16413   t658 = t657 / 0.8e1;
16414   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16415     vrho[0] = -t382 - t383 + t10 * (-t395 - t401 - t628 - t646 - t654 - t658);
16416 
16417   t662 = -t11 / 0.2e1 - t389 / 0.2e1;
16418   t663 = t204 * t662;
16419   t665 = t385 * t386 * t663;
16420   t666 = t665 / 0.2e1;
16421   t667 = -t662;
16422   t668 = t377 * t667;
16423   t670 = t648 * t649 * t668;
16424   t671 = t670 / 0.2e1;
16425   t672 = t272 * t272;
16426   t674 = t402 / t672;
16427   t675 = t215 * t254;
16428   t676 = 0.1e1 / t675;
16429   t677 = sigma[2] * t676;
16430   t680 = t214 * t330;
16431   t681 = 0.1e1 / t680;
16432   t686 = t221 * sigma[2];
16433   t687 = 0.1e1 / t317;
16434   t695 = t222 * t245;
16435   t696 = t695 * t261;
16436   t698 = t223 * t244;
16437   t703 = my_piecewise3(t242, -0.5e1 / 0.3e1 * tau[1] * t217 + t677 / 0.3e1, 0);
16438   t704 = t261 * t703;
16439   t705 = t698 * t704;
16440   t707 = t215 * t223;
16441   t708 = t707 * t245;
16442   t709 = 0.1e1 / t285;
16443   t710 = t708 * t709;
16444   t712 = t260 * t36 * t22;
16445   t713 = t710 * t712;
16446   t715 = t253 * t289;
16447   t716 = t214 * t213;
16448   t720 = t255 * t243;
16449   t721 = t257 * t703;
16450   t724 = t222 * t244;
16451   t726 = t253 * t36 * t22;
16452   t728 = 0.10e2 / 0.3e1 * t716 * t244 * t257 + 0.2e1 * t720 * t721 - t724 * t726;
16453   t729 = t715 * t728;
16454   t730 = t246 * t729;
16455   t731 = -0.5e1 * t696 - 0.3e1 * t705 + 0.3e1 / 0.2e1 * t713 + t730;
16456   t735 = t56 * t265;
16457   t736 = t731 * t267;
16458   t739 = -0.7e1 / 0.4860e4 * t57 * t227 * t676 + t56 * t731 * t267 / 0.100e3 - t735 * t736 / 0.100e3;
16459   t742 = -0.10e2 / 0.729e3 * t24 * t677 - t40 * t221 * t681 * t231 / 0.108e3 + 0.3e1 / 0.320e3 * t420 * t686 * t687 * t231 + 0.2e1 * t270 * t739;
16460   t743 = t742 * t363;
16461   t746 = t215 * t281;
16462   t747 = t746 * t283;
16463   t748 = 0.1e1 / t322;
16464   t749 = t747 * t748;
16465   t750 = t289 * t36;
16466   t751 = t750 * t22;
16467   t754 = t281 * t346;
16468   t755 = t290 * t703;
16469   t758 = t287 * t302;
16470   t759 = t758 * t728;
16471   t762 = t294 * t295;
16472   t763 = t303 * t703;
16473   t766 = t300 * t313;
16474   t767 = t766 * t728;
16475   t770 = t295 * t245;
16476   t771 = t307 * t770;
16477   t772 = t314 * t703;
16478   t775 = t311 * t326;
16479   t776 = t775 * t728;
16480   t779 = t295 * t283;
16481   t780 = t318 * t779;
16482   t781 = t327 * t703;
16483   t784 = t324 * t340;
16484   t785 = t784 * t728;
16485   t788 = t333 * t243;
16486   t789 = t332 * t788;
16487   t790 = t341 * t703;
16488   t793 = t338 * t353;
16489   t794 = t793 * t728;
16490   t797 = t333 * t282;
16491   t798 = t345 * t797;
16492   t799 = t354 * t703;
16493   t802 = t312 * t312;
16494   t803 = 0.1e1 / t802;
16495   t804 = t351 * t803;
16496   t805 = t804 * t728;
16497   t808 = 0.10005000000000000000e1 * t713 + 0.13336665e1 * t749 * t751 - 0.26673330e1 * t754 * t755 + 0.8891110e0 * t284 * t759 - 0.5967779409441e1 * t762 * t763 + 0.1989259803147e1 * t297 * t767 + 0.17415564533880e2 * t771 * t772 - 0.5805188177960e1 * t309 * t776 - 0.13319970623955e2 * t780 * t781 + 0.4439990207985e1 * t321 * t785 + 0.4221520946622e1 * t789 * t790 - 0.1407173648874e1 * t335 * t794 - 0.486902709762e0 * t798 * t799 + 0.162300903254e0 * t348 * t805;
16498   t811 = t331 * t296;
16499   t814 = t306 * t254;
16500   t815 = t814 * t308;
16501   t818 = t306 * t280;
16502   t819 = t818 * t320;
16503   t822 = t280 * t223;
16504   t823 = t306 * t822;
16505   t824 = t823 * t334;
16506   t827 = t344 * t213;
16507   t828 = t827 * t347;
16508   t831 = t317 * t283;
16509   t835 = t215 * t294;
16510   t836 = t835 * t296;
16511   t837 = t298 * t251;
16512   t838 = 0.1e1 / t837;
16513   t839 = t836 * t838;
16514   t840 = t302 * t36;
16515   t841 = t840 * t22;
16516   t844 = t215 * t307;
16517   t845 = t844 * t308;
16518   t846 = t298 * t349;
16519   t847 = 0.1e1 / t846;
16520   t848 = t845 * t847;
16521   t849 = t313 * t36;
16522   t850 = t849 * t22;
16523   t853 = t215 * t318;
16524   t854 = t853 * t320;
16525   t855 = 0.1e1 / t336;
16526   t856 = t854 * t855;
16527   t857 = t326 * t36;
16528   t858 = t857 * t22;
16529   t861 = t215 * t332;
16530   t862 = t861 * t334;
16531   t864 = 0.1e1 / t336 / t252;
16532   t865 = t862 * t864;
16533   t866 = t340 * t36;
16534   t867 = t866 * t22;
16535   t870 = t215 * t345;
16536   t871 = t870 * t347;
16537   t873 = 0.1e1 / t336 / t286;
16538   t874 = t871 * t873;
16539   t875 = t353 * t36;
16540   t876 = t875 * t22;
16541   t879 = -0.2001e1 * t705 + 0.667e0 * t730 - 0.9946299015735e1 * t811 * t303 + 0.29025940889800e2 * t815 * t314 - 0.22199951039925e2 * t819 * t327 + 0.7035868244370e1 * t824 * t341 - 0.811504516270e0 * t828 * t354 - 0.44455550e1 * t831 * t290 - 0.3335e1 * t696 + 0.29838897047205000000e1 * t839 * t841 - 0.8707782266940e1 * t848 * t850 + 0.66599853119775000000e1 * t856 * t858 - 0.2110760473311e1 * t865 * t867 + 0.24345135488100000000e0 * t874 * t876;
16542   t881 = 0.1e1 / t265;
16543   t885 = my_piecewise3(t278, t808 + t879, t616 * t881 * t731 * t360);
16544   t888 = t674 * t743 - t277 * t885 + 0.1174e1 * t885;
16545   t889 = t888 * t377;
16546   t891 = t8 * t212 * t889;
16547   t892 = 0.3e1 / 0.8e1 * t891;
16548   t894 = t634 * t212 * t366;
16549   t896 = 0.1e1 / t372 / t371;
16550   t898 = t896 * t36 * t192;
16551   t899 = 0.1e1 / t716;
16552   t900 = t367 * t899;
16553   t902 = t898 * t900 * t376;
16554   t903 = t894 * t902;
16555   t904 = 0.24739500000000000000e1 * t903;
16556   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16557     vrho[1] = -t382 - t383 + t10 * (-t666 - t401 - t671 - t658 - t892 - t904);
16558 
16559   t913 = 0.1e1 / t104;
16560   t922 = my_piecewise3(t65, -t29 / 0.8e1, 0);
16561   t923 = t85 * t922;
16562   t924 = t433 * t923;
16563   t926 = t26 * t104;
16564   t927 = t926 * t106;
16565   t928 = 0.1e1 / t173;
16566   t929 = t928 * t113;
16567   t930 = t929 * t922;
16568   t931 = t927 * t930;
16569   t933 = -0.3e1 * t924 + 0.2e1 * t931;
16570   t934 = t56 * t933;
16571   t937 = t933 * t91;
16572   t940 = 0.7e1 / 0.12960e5 * t57 * t23 * t29 + t934 * t91 / 0.100e3 - t470 * t937 / 0.100e3;
16573   t943 = 0.5e1 / 0.972e3 * t24 * t29 + t40 * sigma[0] * t45 * t52 / 0.288e3 - 0.9e1 / 0.2560e4 * t420 * t41 * t913 * t52 + 0.2e1 * t94 * t940;
16574   t944 = t943 * t187;
16575   t948 = t114 * t922;
16576   t951 = t26 * t551;
16577   t952 = t951 * t143;
16578   t953 = 0.1e1 / t122;
16579   t954 = t953 * t126;
16580   t955 = t954 * t922;
16581   t958 = t127 * t922;
16582   t961 = t130 * t25;
16583   t962 = t26 * t961;
16584   t963 = t119 * t67;
16585   t964 = t962 * t963;
16586   t965 = t122 * t76;
16587   t966 = 0.1e1 / t965;
16588   t967 = t966 * t137;
16589   t968 = t967 * t922;
16590   t971 = t138 * t922;
16591   t974 = t130 * t117;
16592   t975 = t26 * t974;
16593   t976 = t119 * t170;
16594   t977 = t975 * t976;
16595   t979 = 0.1e1 / t122 / t110;
16596   t980 = t979 * t150;
16597   t981 = t980 * t922;
16598   t984 = t151 * t922;
16599   t987 = t104 * t42;
16600   t988 = t130 * t987;
16601   t989 = t26 * t988;
16602   t990 = t989 * t157;
16603   t992 = 0.1e1 / t160 / t74;
16604   t993 = t992 * t164;
16605   t994 = t993 * t922;
16606   t997 = t165 * t922;
16607   t1000 = t168 * rho[0];
16608   t1001 = t26 * t1000;
16609   t1002 = t157 * t68;
16610   t1003 = t1001 * t1002;
16611   t1005 = 0.1e1 / t160 / t109;
16612   t1006 = t1005 * t177;
16613   t1007 = t1006 * t922;
16614   t1010 = t178 * t922;
16615   t1013 = t168 * t154;
16616   t1014 = t26 * t1013;
16617   t1015 = t157 * t107;
16618   t1016 = t1014 * t1015;
16619   t1018 = 0.1e1 / t160 / t146;
16620   t1019 = t1018 * t609;
16621   t1020 = t1019 * t922;
16622   t1023 = -0.2001e1 * t924 + 0.1334e1 * t931 - 0.26673330e1 * t560 * t948 + 0.17782220e1 * t952 * t955 - 0.5967779409441e1 * t568 * t958 + 0.3978519606294e1 * t964 * t968 + 0.17415564533880e2 * t577 * t971 - 0.11610376355920e2 * t977 * t981 - 0.13319970623955e2 * t586 * t984 + 0.8879980415970e1 * t990 * t994 + 0.4221520946622e1 * t595 * t997 - 0.2814347297748e1 * t1003 * t1007 - 0.486902709762e0 * t604 * t1010 + 0.324601806508e0 * t1016 * t1020;
16623   t1027 = my_piecewise3(t102, t1023, t616 * t617 * t933 * t184);
16624   t1030 = t405 * t944 - t101 * t1027 + 0.1174e1 * t1027;
16625   t1031 = t1030 * t204;
16626   t1034 = 0.3e1 / 0.8e1 * t8 * t18 * t1031;
16627   t1035 = 0.1e1 / t194;
16628   t1036 = t1035 * t196;
16629   t1038 = t640 * t1036 * t203;
16630   t1040 = 0.92773125000000000000e0 * t636 * t1038;
16631   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16632     vsigma[0] = t10 * (-t1034 + t1040);
16633 
16634   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16635     vsigma[1] = 0.0e0;
16636 
16637   t1048 = 0.1e1 / t280;
16638   t1057 = my_piecewise3(t242, -t217 / 0.8e1, 0);
16639   t1058 = t261 * t1057;
16640   t1059 = t698 * t1058;
16641   t1061 = t214 * t280;
16642   t1062 = t1061 * t282;
16643   t1063 = 0.1e1 / t349;
16644   t1064 = t1063 * t289;
16645   t1065 = t1064 * t1057;
16646   t1066 = t1062 * t1065;
16647   t1068 = -0.3e1 * t1059 + 0.2e1 * t1066;
16648   t1069 = t56 * t1068;
16649   t1072 = t1068 * t267;
16650   t1075 = 0.7e1 / 0.12960e5 * t57 * t23 * t217 + t1069 * t267 / 0.100e3 - t735 * t1072 / 0.100e3;
16651   t1078 = 0.5e1 / 0.972e3 * t24 * t217 + t40 * sigma[2] * t225 * t231 / 0.288e3 - 0.9e1 / 0.2560e4 * t420 * t221 * t1048 * t231 + 0.2e1 * t270 * t1075;
16652   t1079 = t1078 * t363;
16653   t1083 = t290 * t1057;
16654   t1086 = t214 * t822;
16655   t1087 = t1086 * t319;
16656   t1088 = 0.1e1 / t298;
16657   t1089 = t1088 * t302;
16658   t1090 = t1089 * t1057;
16659   t1093 = t303 * t1057;
16660   t1096 = t306 * t213;
16661   t1097 = t214 * t1096;
16662   t1098 = t295 * t244;
16663   t1099 = t1097 * t1098;
16664   t1100 = t298 * t252;
16665   t1101 = 0.1e1 / t1100;
16666   t1102 = t1101 * t313;
16667   t1103 = t1102 * t1057;
16668   t1106 = t314 * t1057;
16669   t1109 = t306 * t293;
16670   t1110 = t214 * t1109;
16671   t1111 = t295 * t346;
16672   t1112 = t1110 * t1111;
16673   t1114 = 0.1e1 / t298 / t286;
16674   t1115 = t1114 * t326;
16675   t1116 = t1115 * t1057;
16676   t1119 = t327 * t1057;
16677   t1122 = t280 * t222;
16678   t1123 = t306 * t1122;
16679   t1124 = t214 * t1123;
16680   t1125 = t1124 * t333;
16681   t1127 = 0.1e1 / t336 / t250;
16682   t1128 = t1127 * t340;
16683   t1129 = t1128 * t1057;
16684   t1132 = t341 * t1057;
16685   t1135 = t344 * rho[1];
16686   t1136 = t214 * t1135;
16687   t1137 = t333 * t245;
16688   t1138 = t1136 * t1137;
16689   t1140 = 0.1e1 / t336 / t285;
16690   t1141 = t1140 * t353;
16691   t1142 = t1141 * t1057;
16692   t1145 = t354 * t1057;
16693   t1148 = t344 * t330;
16694   t1149 = t214 * t1148;
16695   t1150 = t333 * t283;
16696   t1151 = t1149 * t1150;
16697   t1153 = 0.1e1 / t336 / t322;
16698   t1154 = t1153 * t803;
16699   t1155 = t1154 * t1057;
16700   t1158 = -0.2001e1 * t1059 + 0.1334e1 * t1066 - 0.26673330e1 * t754 * t1083 + 0.17782220e1 * t1087 * t1090 - 0.5967779409441e1 * t762 * t1093 + 0.3978519606294e1 * t1099 * t1103 + 0.17415564533880e2 * t771 * t1106 - 0.11610376355920e2 * t1112 * t1116 - 0.13319970623955e2 * t780 * t1119 + 0.8879980415970e1 * t1125 * t1129 + 0.4221520946622e1 * t789 * t1132 - 0.2814347297748e1 * t1138 * t1142 - 0.486902709762e0 * t798 * t1145 + 0.324601806508e0 * t1151 * t1155;
16701   t1162 = my_piecewise3(t278, t1158, t616 * t881 * t1068 * t360);
16702   t1165 = t674 * t1079 - t277 * t1162 + 0.1174e1 * t1162;
16703   t1166 = t1165 * t377;
16704   t1169 = 0.3e1 / 0.8e1 * t8 * t212 * t1166;
16705   t1170 = 0.1e1 / t367;
16706   t1171 = t1170 * t369;
16707   t1173 = t898 * t1171 * t376;
16708   t1175 = 0.92773125000000000000e0 * t894 * t1173;
16709   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16710     vsigma[2] = t10 * (-t1169 + t1175);
16711 
16712   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
16713     vlapl[0] = 0.0e0;
16714 
16715   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
16716     vlapl[1] = 0.0e0;
16717 
16718   t1177 = t17 * t10;
16719   t1178 = t1177 * t2;
16720   t1179 = t1178 * t4;
16721   t1180 = t7 * t16;
16722   t1181 = my_piecewise3(t65, t61, 0);
16723   t1182 = t85 * t1181;
16724   t1183 = t433 * t1182;
16725   t1185 = t929 * t1181;
16726   t1186 = t927 * t1185;
16727   t1188 = -0.3e1 * t1183 + 0.2e1 * t1186;
16728   t1189 = t56 * t1188;
16729   t1191 = t1188 * t91;
16730   t1194 = t1189 * t91 / 0.100e3 - t470 * t1191 / 0.100e3;
16731   t1195 = t94 * t1194;
16732   t1201 = t114 * t1181;
16733   t1204 = t954 * t1181;
16734   t1207 = t127 * t1181;
16735   t1210 = t967 * t1181;
16736   t1213 = t138 * t1181;
16737   t1216 = t980 * t1181;
16738   t1219 = t151 * t1181;
16739   t1222 = t993 * t1181;
16740   t1225 = t165 * t1181;
16741   t1228 = t1006 * t1181;
16742   t1231 = t178 * t1181;
16743   t1234 = t1019 * t1181;
16744   t1237 = -0.2001e1 * t1183 + 0.1334e1 * t1186 - 0.26673330e1 * t560 * t1201 + 0.17782220e1 * t952 * t1204 - 0.5967779409441e1 * t568 * t1207 + 0.3978519606294e1 * t964 * t1210 + 0.17415564533880e2 * t577 * t1213 - 0.11610376355920e2 * t977 * t1216 - 0.13319970623955e2 * t586 * t1219 + 0.8879980415970e1 * t990 * t1222 + 0.4221520946622e1 * t595 * t1225 - 0.2814347297748e1 * t1003 * t1228 - 0.486902709762e0 * t604 * t1231 + 0.324601806508e0 * t1016 * t1234;
16745   t1241 = my_piecewise3(t102, t1237, t616 * t617 * t1188 * t184);
16746   t1244 = 0.2e1 * t405 * t1195 * t187 - t101 * t1241 + 0.1174e1 * t1241;
16747   t1245 = t1244 * t204;
16748   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16749     vtau[0] = -0.3e1 / 0.8e1 * t1179 * t1180 * t1245;
16750 
16751   t1249 = t7 * t211;
16752   t1250 = my_piecewise3(t242, t238, 0);
16753   t1251 = t261 * t1250;
16754   t1252 = t698 * t1251;
16755   t1254 = t1064 * t1250;
16756   t1255 = t1062 * t1254;
16757   t1257 = -0.3e1 * t1252 + 0.2e1 * t1255;
16758   t1258 = t56 * t1257;
16759   t1260 = t1257 * t267;
16760   t1263 = t1258 * t267 / 0.100e3 - t735 * t1260 / 0.100e3;
16761   t1264 = t270 * t1263;
16762   t1270 = t290 * t1250;
16763   t1273 = t1089 * t1250;
16764   t1276 = t303 * t1250;
16765   t1279 = t1102 * t1250;
16766   t1282 = t314 * t1250;
16767   t1285 = t1115 * t1250;
16768   t1288 = t327 * t1250;
16769   t1291 = t1128 * t1250;
16770   t1294 = t341 * t1250;
16771   t1297 = t1141 * t1250;
16772   t1300 = t354 * t1250;
16773   t1303 = t1154 * t1250;
16774   t1306 = -0.2001e1 * t1252 + 0.1334e1 * t1255 - 0.26673330e1 * t754 * t1270 + 0.17782220e1 * t1087 * t1273 - 0.5967779409441e1 * t762 * t1276 + 0.3978519606294e1 * t1099 * t1279 + 0.17415564533880e2 * t771 * t1282 - 0.11610376355920e2 * t1112 * t1285 - 0.13319970623955e2 * t780 * t1288 + 0.8879980415970e1 * t1125 * t1291 + 0.4221520946622e1 * t789 * t1294 - 0.2814347297748e1 * t1138 * t1297 - 0.486902709762e0 * t798 * t1300 + 0.324601806508e0 * t1151 * t1303;
16775   t1310 = my_piecewise3(t278, t1306, t616 * t881 * t1257 * t360);
16776   t1313 = 0.2e1 * t674 * t1264 * t363 - t277 * t1310 + 0.1174e1 * t1310;
16777   t1314 = t1313 * t377;
16778   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
16779     vtau[1] = -0.3e1 / 0.8e1 * t1179 * t1249 * t1314;
16780 
16781 #ifndef XC_DONT_COMPILE_FXC
16782 
16783   if(order < 2) return;
16784 
16785 
16786   t1318 = t400 / 0.4e1;
16787   t1321 = t657 / 0.4e1;
16788   t1322 = t15 * t15;
16789   t1323 = 0.1e1 / t1322;
16790   t1324 = t7 * t1323;
16791   t1325 = t5 * t1324;
16792   t1326 = t391 * t391;
16793   t1327 = t204 * t1326;
16794   t1329 = t1325 * t386 * t1327;
16795   t1330 = t1329 / 0.6e1;
16796   t1331 = t397 * t190;
16797   t1333 = t385 * t1331 * t392;
16798   t1334 = t1333 / 0.3e1;
16799   t1335 = t17 * t624;
16800   t1337 = t385 * t1335 * t392;
16801   t1338 = t15 * t17;
16802   t1339 = t1338 * t190;
16803   t1340 = t634 * t1339;
16804   t1341 = t203 * t391;
16805   t1343 = t640 * t642 * t1341;
16806   t1344 = t1340 * t1343;
16807   t1345 = 0.65972000000000000000e1 * t1344;
16808   t1346 = t387 * t10;
16809   t1347 = 0.1e1 / t1346;
16810   t1348 = t9 * t1347;
16811   t1349 = -t388 + t1348;
16812   t1350 = t204 * t1349;
16813   t1352 = t385 * t386 * t1350;
16814   t1353 = t1352 / 0.2e1;
16815   t1355 = 0.1e1 / t396 / t10;
16816   t1356 = t16 * t1355;
16817   t1358 = t8 * t1356 * t205;
16818   t1359 = t1358 / 0.12e2;
16819   t1361 = t8 * t398 * t625;
16820   t1362 = t1361 / 0.4e1;
16821   t1364 = t634 * t398 * t190;
16822   t1365 = t1364 * t644;
16823   t1366 = 0.16493000000000000000e1 * t1365;
16824   t1369 = t402 / t403 / t96;
16825   t1370 = t477 * t477;
16826   t1371 = t1370 * t187;
16827   t1374 = t27 * t42;
16828   t1375 = 0.1e1 / t1374;
16829   t1376 = sigma[0] * t1375;
16830   t1379 = t26 * t117;
16831   t1380 = 0.1e1 / t1379;
16832   t1385 = 0.1e1 / t105;
16833   t1391 = t417 * t35 * t419;
16834   t1392 = t41 * t41;
16835   t1393 = t1391 * t1392;
16836   t1394 = t27 * t987;
16837   t1395 = 0.1e1 / t1394;
16838   t1397 = t23 * t52;
16839   t1398 = t1395 * t19 * t1397;
16840   t1401 = t474 * t474;
16841   t1406 = t78 * t68;
16842   t1407 = t1406 * t85;
16843   t1409 = t459 * t439;
16844   t1412 = t1374 * t68 * t444;
16845   t1413 = t1412 * t447;
16846   t1415 = t430 * t464;
16847   t1417 = t43 * t66;
16848   t1418 = t438 * t438;
16849   t1419 = t85 * t1418;
16850   t1420 = t1417 * t1419;
16851   t1422 = t442 * t67;
16852   t1423 = t1422 * t444;
16853   t1424 = t84 * t438;
16854   t1425 = t36 * t22;
16855   t1426 = t1424 * t1425;
16856   t1427 = t1423 * t1426;
16857   t1429 = t433 * t77;
16858   t1430 = t113 * t438;
16859   t1431 = t1430 * t463;
16860   t1432 = t1429 * t1431;
16861   t1438 = my_piecewise3(t65, 0.40e2 / 0.9e1 * tau[0] * t407 - 0.11e2 / 0.9e1 * t1376, 0);
16862   t1439 = t85 * t1438;
16863   t1440 = t433 * t1439;
16864   t1442 = t411 * t68;
16865   t1443 = t1442 * t928;
16866   t1445 = t84 * t19 * t38;
16867   t1446 = t1443 * t1445;
16868   t1448 = t22 * t463;
16869   t1449 = t485 * t1448;
16870   t1450 = t445 * t1449;
16871   t1452 = t77 * t126;
16872   t1453 = t463 * t463;
16873   t1454 = t1452 * t1453;
16874   t1455 = t69 * t1454;
16875   t1460 = t451 * t66;
16876   t1463 = t78 * t67;
16877   t1469 = t42 * t66;
16878   t1470 = t1469 * t77;
16879   t1471 = t438 * t36;
16880   t1472 = t1471 * t22;
16881   t1475 = t81 * t1438;
16882   t1478 = t1374 * t67;
16883   t1480 = t444 * t19 * t38;
16884   t1483 = 0.70e2 / 0.9e1 * t195 * t67 * t81 + 0.40e2 / 0.3e1 * t1460 * t456 - 0.22e2 / 0.3e1 * t1463 * t461 + 0.2e1 * t79 * t1418 * t81 - 0.4e1 * t1470 * t1472 + 0.2e1 * t455 * t1475 + 0.9e1 * t1478 * t1480;
16885   t1484 = t450 * t1483;
16886   t1485 = t69 * t1484;
16887   t1486 = -0.20e2 * t1407 - 0.30e2 * t1409 + 0.16e2 * t1413 + 0.10e2 * t1415 - 0.6e1 * t1420 + 0.9e1 * t1427 + 0.6e1 * t1432 - 0.3e1 * t1440 - 0.18e2 * t1446 - 0.3e1 * t1450 - 0.2e1 * t1455 + t1485;
16888   t1487 = t56 * t1486;
16889   t1490 = t466 * t466;
16890   t1492 = t87 * t91;
16891   t1495 = t1486 * t91;
16892   t1498 = t89 * t87;
16893   t1499 = t56 * t1498;
16894   t1500 = t1490 * t91;
16895   t1503 = 0.77e2 / 0.14580e5 * t57 * t48 * t1375 + t1487 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t56 * t1490 * t1492 - t470 * t1495 / 0.100e3 + t1499 * t1500 / 0.100e3;
16896   t1506 = 0.110e3 / 0.2187e4 * t24 * t1376 + 0.19e2 / 0.324e3 * t40 * t41 * t1380 * t52 - 0.43e2 / 0.320e3 * t420 * t421 * t1385 * t52 + 0.27e2 / 0.3200e4 * t1393 * t1398 + 0.2e1 * t1401 + 0.2e1 * t94 * t1503;
16897   t1509 = t477 * t621;
16898   t1512 = t481 * t170;
16899   t1513 = t1512 * t483;
16900   t1514 = t22 * t438;
16901   t1515 = t485 * t1514;
16902   t1518 = t494 * t1448;
16903   t1521 = t489 * t119;
16904   t1522 = t1521 * t492;
16905   t1523 = t494 * t1514;
16906   t1526 = t503 * t1448;
16907   t1529 = t498 * t576;
16908   t1530 = t1529 * t501;
16909   t1531 = t503 * t1514;
16910   t1534 = t511 * t1448;
16911   t1537 = t507 * t585;
16912   t1538 = t1537 * t509;
16913   t1539 = t511 * t1514;
16914   t1542 = t520 * t1448;
16915   t1545 = t515 * t594;
16916   t1546 = t1545 * t518;
16917   t1547 = t520 * t1514;
16918   t1550 = t529 * t1448;
16919   t1554 = t524 * t603;
16920   t1555 = t1554 * t527;
16921   t1556 = t529 * t1514;
16922   t1560 = t609 * t36 * t1448;
16923   t1565 = t551 * t120;
16924   t1568 = t988 * t158;
16925   t1571 = t104 * t107;
16926   t1574 = t961 * t132;
16927   t1577 = t974 * t144;
16928   t1580 = t1000 * t171;
16929   t1583 = t27 * t141;
16930   t1585 = t1583 * t107 * t483;
16931   t1588 = 0.10224956905002000000e2 * t1555 * t1556 - 0.34083189683340000000e1 * t528 * t1560 + 0.60030000000000000000e1 * t1427 - 0.20010000000000000000e1 * t1450 - 0.139248186220290e3 * t1565 * t127 + 0.204040179086730e3 * t1568 * t165 - 0.400099950e2 * t1571 * t114 + 0.551492876906200e3 * t1574 * t138 - 0.532798824958200e3 * t1577 * t151 - 0.27591153553180e2 * t1580 * t178 + 0.27562441000000000000e2 * t1585 * t486;
16932   t1590 = t27 * t155;
16933   t1592 = t1590 * t120 * t492;
16934   t1595 = t27 * t542;
16935   t1597 = t1595 * t132 * t501;
16936   t1600 = t27 * t546;
16937   t1602 = t1600 * t144 * t509;
16938   t1605 = t27 * t552;
16939   t1607 = t1605 * t158 * t518;
16940   t1610 = t27 * t556;
16941   t1612 = t1610 * t171 * t527;
16942   t1615 = t604 * t175;
16943   t1616 = t609 * t438;
16944   t1617 = t1616 * t463;
16945   t1620 = t586 * t148;
16946   t1621 = t164 * t438;
16947   t1622 = t1621 * t463;
16948   t1625 = t595 * t162;
16949   t1626 = t177 * t438;
16950   t1627 = t1626 * t463;
16951   t1630 = t560 * t111;
16952   t1631 = t126 * t438;
16953   t1632 = t1631 * t463;
16954   t1635 = t568 * t124;
16955   t1636 = t137 * t438;
16956   t1637 = t1636 * t463;
16957   t1641 = t577 * t135;
16958   t1642 = t150 * t438;
16959   t1643 = t1642 * t463;
16960   t1646 = t104 * t78;
16961   t1647 = t26 * t1646;
16962   t1648 = t1647 * t107;
16963   t1649 = t1648 * t953;
16964   t1650 = t113 * t19;
16965   t1651 = t1650 * t38;
16966   t1654 = t26 * t130;
16967   t1655 = t1654 * t120;
16968   t1656 = t1655 * t966;
16969   t1657 = t126 * t19;
16970   t1658 = t1657 * t38;
16971   t1661 = t130 * t43;
16972   t1662 = t26 * t1661;
16973   t1663 = t1662 * t132;
16974   t1664 = t1663 * t979;
16975   t1665 = t137 * t19;
16976   t1666 = t1665 * t38;
16977   t1669 = t130 * t105;
16978   t1670 = t26 * t1669;
16979   t1671 = t1670 * t144;
16980   t1672 = t1671 * t992;
16981   t1673 = t150 * t19;
16982   t1674 = t1673 * t38;
16983   t1677 = t130 * t118;
16984   t1678 = t26 * t1677;
16985   t1679 = t1678 * t158;
16986   t1680 = t1679 * t1005;
16987   t1681 = t164 * t19;
16988   t1682 = t1681 * t38;
16989   t1685 = t168 * t42;
16990   t1686 = t26 * t1685;
16991   t1687 = t1686 * t171;
16992   t1688 = t1687 * t1018;
16993   t1689 = t177 * t19;
16994   t1690 = t1689 * t38;
16995   t1695 = t127 * t1438;
16996   t1698 = t572 * t1483;
16997   t1701 = t138 * t1438;
16998   t1704 = -0.139324516271040e3 * t1641 * t1643 - 0.280069965e2 * t1649 * t1651 - 0.89516691141615000000e2 * t1656 * t1658 + 0.339603508410660e3 * t1664 * t1666 - 0.31967929497492000000e3 * t1672 * t1674 + 0.120313346978727e3 * t1680 * t1682 - 0.16067789422146000000e2 * t1688 * t1690 + 0.59677794094410e2 * t536 * t573 - 0.5967779409441e1 * t568 * t1695 + 0.1989259803147e1 * t121 * t1698 + 0.17415564533880e2 * t577 * t1701;
16999   t1707 = t581 * t1483;
17000   t1710 = t546 * t585;
17001   t1715 = t151 * t1438;
17002   t1718 = t590 * t1483;
17003   t1721 = t552 * t594;
17004   t1726 = t165 * t1438;
17005   t1729 = t599 * t1483;
17006   t1732 = t141 * t170;
17007   t1738 = t114 * t1438;
17008   t1741 = t564 * t1483;
17009   t1744 = t155 * t119;
17010   t1747 = t111 * t137;
17011   t1748 = t1747 * t1453;
17012   t1751 = t118 * t143;
17013   t1752 = t127 * t1418;
17014   t1755 = t124 * t150;
17015   t1756 = t1755 * t1453;
17016   t1759 = t131 * t963;
17017   t1760 = t138 * t1418;
17018   t1763 = t556 * t603;
17019   t1768 = t178 * t1438;
17020   t1771 = 0.177822200e2 * t533 * t565 - 0.26673330e1 * t560 * t1738 + 0.8891110e0 * t108 * t1741 - 0.179033382283230e3 * t1744 * t569 - 0.26673330e1 * t108 * t1748 - 0.47742235275528e2 * t1751 * t1752 - 0.7957039212588e1 * t121 * t1756 + 0.191571209872680e3 * t1759 * t1760 - 0.34083189683340e2 * t1763 * t605 + 0.11361063227780e2 * t557 * t611 - 0.486902709762e0 * t604 * t1768;
17021   t1773 = t610 * t1483;
17022   t1776 = t542 * t576;
17023   t1781 = t169 * t1002;
17024   t1782 = t178 * t1418;
17025   t1786 = 0.1e1 / t608 / t83;
17026   t1787 = t175 * t1786;
17027   t1788 = t1787 * t1453;
17028   t1791 = t135 * t164;
17029   t1792 = t1791 * t1453;
17030   t1795 = t142 * t976;
17031   t1796 = t151 * t1418;
17032   t1799 = t148 * t177;
17033   t1800 = t1799 * t1453;
17034   t1803 = t156 * t157;
17035   t1804 = t165 * t1418;
17036   t1807 = t162 * t609;
17037   t1808 = t1807 * t1453;
17038   t1812 = t105 * t106;
17039   t1813 = t114 * t1418;
17040   t1826 = -0.133366650e2 * t1812 * t1813 - 0.4002e1 * t1420 - 0.2001e1 * t1440 - 0.1334e1 * t1455 + 0.667e0 * t1485 - 0.20010e2 * t1409 + 0.6670e1 * t1415 - 0.13340e2 * t1407 + 0.10672000000000000000e2 * t1413 + 0.4002e1 * t1432 - 0.12006000000000000000e2 * t1446;
17041   t1830 = 0.1e1 / t1498;
17042   t1838 = params->c2 * params->c2;
17043   t1839 = params->d * t1838;
17044   t1840 = t89 * t89;
17045   t1841 = 0.1e1 / t1840;
17046   t1846 = my_piecewise3(t102, 0.696622581355200e3 * t1776 * t578 - 0.232207527118400e3 * t543 * t582 - 0.9738054195240e1 * t1781 * t1782 - 0.1298407226032e1 * t172 * t1788 + 0.29025940889800e2 * t133 * t1792 - 0.186479588735370e3 * t1795 * t1796 - 0.26639941247910e2 * t145 * t1800 + 0.71765856092574e2 * t1803 * t1804 + 0.9850215542118e1 * t159 * t1808 + 0.162300903254e0 * t172 * t1773 - 0.665998531197750e3 * t1710 * t587 + 0.221999510399250e3 * t547 * t591 - 0.13319970623955e2 * t586 * t1715 + 0.4439990207985e1 * t145 * t1718 + 0.253291256797320e3 * t1721 * t596 - 0.84430418932440e2 * t553 * t600 + 0.4221520946622e1 * t595 * t1726 - 0.1407173648874e1 * t159 * t1729 - 0.533466600e2 * t1732 * t561 - 0.5805188177960e1 * t133 * t1707 + 0.17203895744924000000e2 * t1612 * t530 + 0.6816637936668e1 * t1615 * t1617 + 0.133199706239550e3 * t1620 * t1622 - 0.50658251359464e2 * t1625 * t1627 + 0.106693320e2 * t1630 * t1632 + 0.35806676456646e2 * t1635 * t1637 + 0.91505950944762000000e2 * t1592 * t495 - 0.35411647885556000000e3 * t1597 * t504 + 0.33743925580686000000e3 * t1602 * t512 - 0.12805280204753400000e3 * t1607 * t521 - 0.66599853119775000000e2 * t510 * t1542 - 0.75987377039196e2 * t1546 * t1547 + 0.25329125679732e2 * t519 * t1550 - 0.53346660e1 * t484 * t1518 + 0.53710014684969000000e2 * t1522 * t1523 - 0.17903338228323000000e2 * t493 * t1526 - 0.208986774406560e3 * t1530 * t1531 + 0.69662258135520e2 * t502 * t1534 + 0.19979955935932500000e3 * t1538 * t1539 + 0.160039980e2 * t1513 * t1515 + t1771 + t1826 + t1704 + t1588, t1486 * t184 * t616 * t617 - 0.2e1 * t1490 * t1830 * t184 * t616 - t1490 * t1839 * t184 * t1841);
17047   t1849 = -0.2e1 * t1369 * t1371 + t405 * t1506 * t187 - 0.2e1 * t405 * t1509 - t101 * t1846 + 0.1174e1 * t1846;
17048   t1850 = t1849 * t204;
17049   t1852 = t8 * t18 * t1850;
17050   t1853 = 0.3e1 / 0.8e1 * t1852;
17051   t1855 = t634 * t18 * t624;
17052   t1856 = t1855 * t644;
17053   t1857 = 0.49479000000000000000e1 * t1856;
17054   t1860 = 0.1e1 / t199 / t31 / 0.6e1;
17055   t1862 = t1860 * t19 * t23;
17056   t1864 = t1862 * t1376 * t203;
17057   t1865 = t636 * t1864;
17058   t1866 = 0.29687400000000000000e2 * t1865;
17059   t1867 = 0.1e1 / t79;
17060   t1868 = t194 * t1867;
17061   t1870 = t640 * t1868 * t203;
17062   t1871 = t636 * t1870;
17063   t1872 = 0.57725500000000000000e1 * t1871;
17064   t1873 = t1180 * t17;
17065   t1874 = t5 * t1873;
17066   t1875 = t190 * t1035;
17067   t1876 = 0.1e1 / t27;
17068   t1878 = t24 * t203;
17069   t1879 = t1875 * t1876 * t1878;
17070   t1880 = t1874 * t1879;
17071   t1881 = 0.80541612095716256868e2 * t1880;
17072   t1882 = t210 * t210;
17073   t1883 = 0.1e1 / t1882;
17074   t1884 = t7 * t1883;
17075   t1885 = t5 * t1884;
17076   t1886 = t650 * t650;
17077   t1887 = t377 * t1886;
17078   t1889 = t1885 * t649 * t1887;
17079   t1890 = t1889 / 0.6e1;
17080   t1891 = t397 * t366;
17081   t1893 = t648 * t1891 * t651;
17082   t1894 = t1893 / 0.3e1;
17083   t1895 = -t1349;
17084   t1896 = t377 * t1895;
17085   t1898 = t648 * t649 * t1896;
17086   t1899 = t1898 / 0.2e1;
17087   t1900 = t211 * t1355;
17088   t1902 = t8 * t1900 * t378;
17089   t1903 = t1902 / 0.12e2;
17090   t1904 = -t1330 - t1334 - t1337 - t1345 - t1353 + t1359 - t1362 - t1366 - t1853 - t1857 - t1866 + t1872 + t1881 - t1890 - t1894 - t1899 + t1903;
17091   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17092     v2rho2[0] = -t394 - t1318 - 0.3e1 / 0.4e1 * t627 - 0.49479000000000000000e1 * t645 - t653 - t1321 + t10 * t1904;
17093 
17094   t1906 = t663 * t391;
17095   t1908 = t1325 * t386 * t1906;
17096   t1911 = t385 * t1331 * t663;
17097   t1914 = t385 * t1335 * t663;
17098   t1916 = t203 * t662;
17099   t1918 = t640 * t642 * t1916;
17100   t1919 = t1340 * t1918;
17101   t1922 = 0.1e1 / t396 / t387;
17102   t1923 = t1922 * t190;
17103   t1924 = t204 * t9;
17104   t1926 = t385 * t1923 * t1924;
17105   t1931 = t668 * t650;
17106   t1933 = t1885 * t649 * t1931;
17107   t1936 = t648 * t1891 * t668;
17108   t1938 = t1922 * t366;
17109   t1939 = t377 * t9;
17110   t1941 = t648 * t1938 * t1939;
17111   t1944 = t17 * t888;
17112   t1946 = t648 * t1944 * t651;
17113   t1949 = t8 * t655 * t889;
17114   t1951 = t210 * t17;
17115   t1952 = t1951 * t366;
17116   t1953 = t634 * t1952;
17117   t1954 = t376 * t650;
17118   t1956 = t898 * t900 * t1954;
17119   t1957 = t1953 * t1956;
17120   t1960 = t634 * t655 * t366;
17121   t1961 = t1960 * t902;
17122   t1963 = -t1908 / 0.6e1 - t1911 / 0.6e1 - t1914 / 0.2e1 - 0.32986000000000000000e1 * t1919 - t1926 / 0.2e1 - t1333 / 0.6e1 + t1359 - t1361 / 0.8e1 - 0.82465000000000000000e0 * t1365 - t1933 / 0.6e1 - t1936 / 0.6e1 + t1941 / 0.2e1 - t1893 / 0.6e1 + t1903 - t1946 / 0.2e1 - t1949 / 0.8e1 - 0.32986000000000000000e1 * t1957 - 0.82465000000000000000e0 * t1961;
17123   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17124     v2rho2[1] = t10 * t1963 - t1318 - t1321 - t395 - t628 - t646 - t654 - t666 - t671 - t892 - t904;
17125 
17126   t1967 = t662 * t662;
17127   t1968 = t204 * t1967;
17128   t1970 = t1325 * t386 * t1968;
17129   t1971 = t1970 / 0.6e1;
17130   t1972 = t1911 / 0.3e1;
17131   t1973 = t388 + t1348;
17132   t1974 = t204 * t1973;
17133   t1976 = t385 * t386 * t1974;
17134   t1977 = t1976 / 0.2e1;
17135   t1978 = t667 * t667;
17136   t1979 = t377 * t1978;
17137   t1981 = t1885 * t649 * t1979;
17138   t1982 = t1981 / 0.6e1;
17139   t1983 = t1936 / 0.3e1;
17140   t1985 = t648 * t1944 * t668;
17141   t1986 = t376 * t667;
17142   t1988 = t898 * t900 * t1986;
17143   t1989 = t1953 * t1988;
17144   t1990 = 0.65972000000000000000e1 * t1989;
17145   t1991 = -t1973;
17146   t1992 = t377 * t1991;
17147   t1994 = t648 * t649 * t1992;
17148   t1995 = t1994 / 0.2e1;
17149   t1996 = t1949 / 0.4e1;
17150   t1997 = 0.16493000000000000000e1 * t1961;
17151   t2000 = t402 / t672 / t272;
17152   t2001 = t742 * t742;
17153   t2002 = t2001 * t363;
17154   t2005 = t215 * t222;
17155   t2006 = 0.1e1 / t2005;
17156   t2007 = sigma[2] * t2006;
17157   t2010 = t214 * t293;
17158   t2011 = 0.1e1 / t2010;
17159   t2016 = 0.1e1 / t281;
17160   t2021 = t221 * t221;
17161   t2022 = t1391 * t2021;
17162   t2023 = t215 * t1122;
17163   t2024 = 0.1e1 / t2023;
17164   t2026 = t23 * t231;
17165   t2027 = t2024 * t19 * t2026;
17166   t2030 = t739 * t739;
17167   t2035 = t254 * t245;
17168   t2036 = t2035 * t261;
17169   t2038 = t724 * t704;
17170   t2041 = t2005 * t245 * t709;
17171   t2042 = t2041 * t712;
17172   t2044 = t695 * t729;
17173   t2046 = t223 * t243;
17174   t2047 = t703 * t703;
17175   t2048 = t261 * t2047;
17176   t2049 = t2046 * t2048;
17177   t2051 = t707 * t244;
17178   t2052 = t2051 * t709;
17179   t2053 = t260 * t703;
17180   t2054 = t2053 * t1425;
17181   t2055 = t2052 * t2054;
17182   t2057 = t698 * t253;
17183   t2058 = t289 * t703;
17184   t2059 = t2058 * t728;
17185   t2060 = t2057 * t2059;
17186   t2066 = my_piecewise3(t242, 0.40e2 / 0.9e1 * tau[1] * t676 - 0.11e2 / 0.9e1 * t2007, 0);
17187   t2067 = t261 * t2066;
17188   t2068 = t698 * t2067;
17189   t2070 = t680 * t245;
17190   t2071 = t2070 * t1063;
17191   t2073 = t260 * t19 * t38;
17192   t2074 = t2071 * t2073;
17193   t2076 = t22 * t728;
17194   t2077 = t750 * t2076;
17195   t2078 = t710 * t2077;
17196   t2080 = t253 * t302;
17197   t2081 = t728 * t728;
17198   t2082 = t2080 * t2081;
17199   t2083 = t246 * t2082;
17200   t2088 = t716 * t243;
17201   t2091 = t254 * t244;
17202   t2097 = t222 * t243;
17203   t2098 = t2097 * t253;
17204   t2099 = t703 * t36;
17205   t2100 = t2099 * t22;
17206   t2103 = t257 * t2066;
17207   t2106 = t2005 * t244;
17208   t2108 = t709 * t19 * t38;
17209   t2111 = 0.70e2 / 0.9e1 * t368 * t244 * t257 + 0.40e2 / 0.3e1 * t2088 * t721 - 0.22e2 / 0.3e1 * t2091 * t726 + 0.2e1 * t255 * t2047 * t257 - 0.4e1 * t2098 * t2100 + 0.2e1 * t720 * t2103 + 0.9e1 * t2106 * t2108;
17210   t2112 = t715 * t2111;
17211   t2113 = t246 * t2112;
17212   t2114 = -0.20e2 * t2036 - 0.30e2 * t2038 + 0.16e2 * t2042 + 0.10e2 * t2044 - 0.6e1 * t2049 + 0.9e1 * t2055 + 0.6e1 * t2060 - 0.3e1 * t2068 - 0.18e2 * t2074 - 0.3e1 * t2078 - 0.2e1 * t2083 + t2113;
17213   t2115 = t56 * t2114;
17214   t2118 = t731 * t731;
17215   t2120 = t263 * t267;
17216   t2123 = t2114 * t267;
17217   t2126 = t265 * t263;
17218   t2127 = t56 * t2126;
17219   t2128 = t2118 * t267;
17220   t2131 = 0.77e2 / 0.14580e5 * t57 * t227 * t2006 + t2115 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t56 * t2118 * t2120 - t735 * t2123 / 0.100e3 + t2127 * t2128 / 0.100e3;
17221   t2134 = 0.110e3 / 0.2187e4 * t24 * t2007 + 0.19e2 / 0.324e3 * t40 * t221 * t2011 * t231 - 0.43e2 / 0.320e3 * t420 * t686 * t2016 * t231 + 0.27e2 / 0.3200e4 * t2022 * t2027 + 0.2e1 * t2030 + 0.2e1 * t270 * t2131;
17222   t2137 = t742 * t885;
17223   t2140 = t1123 * t334;
17224   t2143 = t280 * t283;
17225   t2146 = t822 * t296;
17226   t2149 = t1109 * t320;
17227   t2152 = t1135 * t347;
17228   t2155 = t1096 * t308;
17229   t2159 = t870 * t797;
17230   t2160 = t2159 * t873;
17231   t2161 = t22 * t703;
17232   t2162 = t875 * t2161;
17233   t2165 = t803 * t36;
17234   t2166 = t2165 * t2076;
17235   t2169 = t746 * t346;
17236   t2170 = t2169 * t748;
17237   t2171 = t750 * t2161;
17238   t2175 = t840 * t2076;
17239   t2178 = t835 * t295;
17240   t2179 = t2178 * t838;
17241   t2180 = t840 * t2161;
17242   t2183 = t849 * t2076;
17243   t2186 = t844 * t770;
17244   t2187 = t2186 * t847;
17245   t2188 = t849 * t2161;
17246   t2191 = t857 * t2076;
17247   t2194 = t853 * t779;
17248   t2195 = t2194 * t855;
17249   t2196 = t857 * t2161;
17250   t2199 = t866 * t2076;
17251   t2202 = t861 * t788;
17252   t2203 = t2202 * t864;
17253   t2204 = t866 * t2161;
17254   t2207 = t875 * t2076;
17255   t2212 = -0.53346660e1 * t749 * t2175 + 0.53710014684969000000e2 * t2179 * t2180 - 0.17903338228323000000e2 * t839 * t2183 - 0.208986774406560e3 * t2187 * t2188 + 0.69662258135520e2 * t848 * t2191 + 0.19979955935932500000e3 * t2195 * t2196 - 0.66599853119775000000e2 * t856 * t2199 - 0.75987377039196e2 * t2203 * t2204 + 0.25329125679732e2 * t865 * t2207 + 0.60030000000000000000e1 * t2055 - 0.20010000000000000000e1 * t2078;
17256   t2216 = t303 * t2066;
17257   t2219 = t784 * t2111;
17258   t2222 = t823 * t788;
17259   t2227 = t341 * t2066;
17260   t2230 = t793 * t2111;
17261   t2233 = t317 * t346;
17262   t2238 = t290 * t2066;
17263   t2242 = t758 * t2111;
17264   t2245 = t331 * t295;
17265   t2248 = t827 * t797;
17266   t2253 = t354 * t2066;
17267   t2256 = t804 * t2111;
17268   t2259 = t766 * t2111;
17269   t2262 = t814 * t770;
17270   t2267 = t314 * t2066;
17271   t2270 = t775 * t2111;
17272   t2273 = 0.8891110e0 * t284 * t2242 - 0.179033382283230e3 * t2245 * t763 - 0.34083189683340e2 * t2248 * t799 + 0.11361063227780e2 * t828 * t805 - 0.486902709762e0 * t798 * t2253 + 0.162300903254e0 * t348 * t2256 + 0.1989259803147e1 * t297 * t2259 + 0.696622581355200e3 * t2262 * t772 - 0.232207527118400e3 * t815 * t776 + 0.17415564533880e2 * t771 * t2267 - 0.5805188177960e1 * t309 * t2270;
17273   t2276 = t818 * t779;
17274   t2281 = t327 * t2066;
17275   t2284 = t307 * t1098;
17276   t2285 = t314 * t2047;
17277   t2288 = t311 * t340;
17278   t2289 = t2288 * t2081;
17279   t2292 = t318 * t1111;
17280   t2293 = t327 * t2047;
17281   t2296 = t324 * t353;
17282   t2297 = t2296 * t2081;
17283   t2300 = t332 * t333;
17284   t2301 = t341 * t2047;
17285   t2304 = t281 * t282;
17286   t2305 = t290 * t2047;
17287   t2308 = t287 * t313;
17288   t2309 = t2308 * t2081;
17289   t2313 = t294 * t319;
17290   t2314 = t303 * t2047;
17291   t2317 = t300 * t326;
17292   t2318 = t2317 * t2081;
17293   t2321 = t338 * t803;
17294   t2322 = t2321 * t2081;
17295   t2325 = t345 * t1137;
17296   t2326 = t354 * t2047;
17297   t2330 = 0.1e1 / t802 / t259;
17298   t2331 = t351 * t2330;
17299   t2332 = t2331 * t2081;
17300   t2341 = -0.47742235275528e2 * t2313 * t2314 - 0.7957039212588e1 * t297 * t2318 + 0.9850215542118e1 * t335 * t2322 - 0.9738054195240e1 * t2325 * t2326 - 0.1298407226032e1 * t348 * t2332 - 0.2001e1 * t2068 - 0.1334e1 * t2083 + 0.667e0 * t2113 - 0.20010e2 * t2038 + 0.6670e1 * t2044 - 0.4002e1 * t2049;
17301   t2343 = t798 * t351;
17302   t2344 = t803 * t703;
17303   t2345 = t2344 * t728;
17304   t2348 = t771 * t311;
17305   t2349 = t326 * t703;
17306   t2350 = t2349 * t728;
17307   t2353 = t780 * t324;
17308   t2354 = t340 * t703;
17309   t2355 = t2354 * t728;
17310   t2358 = t789 * t338;
17311   t2359 = t353 * t703;
17312   t2360 = t2359 * t728;
17313   t2363 = t754 * t287;
17314   t2364 = t302 * t703;
17315   t2365 = t2364 * t728;
17316   t2368 = t762 * t300;
17317   t2369 = t313 * t703;
17318   t2370 = t2369 * t728;
17319   t2373 = t280 * t254;
17320   t2374 = t214 * t2373;
17321   t2375 = t2374 * t283;
17322   t2376 = t2375 * t1088;
17323   t2377 = t289 * t19;
17324   t2378 = t2377 * t38;
17325   t2381 = t214 * t306;
17326   t2382 = t2381 * t296;
17327   t2383 = t2382 * t1101;
17328   t2384 = t302 * t19;
17329   t2385 = t2384 * t38;
17330   t2388 = t306 * t223;
17331   t2389 = t214 * t2388;
17332   t2390 = t2389 * t308;
17333   t2391 = t2390 * t1114;
17334   t2392 = t313 * t19;
17335   t2393 = t2392 * t38;
17336   t2396 = t306 * t281;
17337   t2397 = t214 * t2396;
17338   t2398 = t2397 * t320;
17339   t2399 = t2398 * t1127;
17340   t2400 = t326 * t19;
17341   t2401 = t2400 * t38;
17342   t2405 = t306 * t294;
17343   t2406 = t214 * t2405;
17344   t2407 = t2406 * t334;
17345   t2408 = t2407 * t1140;
17346   t2409 = t340 * t19;
17347   t2410 = t2409 * t38;
17348   t2413 = t344 * t222;
17349   t2414 = t214 * t2413;
17350   t2415 = t2414 * t347;
17351   t2416 = t2415 * t1153;
17352   t2417 = t353 * t19;
17353   t2418 = t2417 * t38;
17354   t2421 = t215 * t317;
17355   t2423 = t2421 * t283 * t748;
17356   t2426 = t215 * t331;
17357   t2428 = t2426 * t296 * t838;
17358   t2431 = t215 * t814;
17359   t2433 = t2431 * t308 * t847;
17360   t2436 = t215 * t818;
17361   t2438 = t2436 * t320 * t855;
17362   t2441 = t215 * t823;
17363   t2443 = t2441 * t334 * t864;
17364   t2446 = t215 * t827;
17365   t2448 = t2446 * t347 * t873;
17366   t2454 = 0.120313346978727e3 * t2408 * t2410 - 0.16067789422146000000e2 * t2416 * t2418 + 0.27562441000000000000e2 * t2423 * t751 + 0.91505950944762000000e2 * t2428 * t841 - 0.35411647885556000000e3 * t2433 * t850 + 0.33743925580686000000e3 * t2438 * t858 - 0.12805280204753400000e3 * t2443 * t867 + 0.17203895744924000000e2 * t2448 * t876 + 0.4002e1 * t2060 - 0.12006000000000000000e2 * t2074 + 0.10672000000000000000e2 * t2042;
17367   t2458 = 0.1e1 / t2126;
17368   t2466 = t265 * t265;
17369   t2467 = 0.1e1 / t2466;
17370   t2472 = my_piecewise3(t278, 0.59677794094410e2 * t811 * t767 - 0.5967779409441e1 * t762 * t2216 + 0.4439990207985e1 * t321 * t2219 + 0.253291256797320e3 * t2222 * t790 - 0.400099950e2 * t2143 * t290 - 0.139248186220290e3 * t2146 * t303 - 0.532798824958200e3 * t2149 * t327 - 0.27591153553180e2 * t2152 * t354 + 0.551492876906200e3 * t2155 * t314 + 0.10224956905002000000e2 * t2160 * t2162 - 0.34083189683340000000e1 * t874 * t2166 + 0.160039980e2 * t2170 * t2171 + 0.204040179086730e3 * t2140 * t341 - 0.280069965e2 * t2376 * t2378 - 0.89516691141615000000e2 * t2383 * t2385 + 0.339603508410660e3 * t2391 * t2393 - 0.31967929497492000000e3 * t2399 * t2401 + 0.6816637936668e1 * t2343 * t2345 - 0.139324516271040e3 * t2348 * t2350 + 0.133199706239550e3 * t2353 * t2355 - 0.50658251359464e2 * t2358 * t2360 + 0.106693320e2 * t2363 * t2365 + 0.35806676456646e2 * t2368 * t2370 - 0.186479588735370e3 * t2292 * t2293 - 0.26639941247910e2 * t321 * t2297 + 0.71765856092574e2 * t2300 * t2301 - 0.133366650e2 * t2304 * t2305 - 0.26673330e1 * t284 * t2309 - 0.665998531197750e3 * t2276 * t781 + 0.221999510399250e3 * t819 * t785 - 0.13319970623955e2 * t780 * t2281 + 0.191571209872680e3 * t2284 * t2285 + 0.29025940889800e2 * t309 * t2289 - 0.84430418932440e2 * t824 * t794 + 0.4221520946622e1 * t789 * t2227 - 0.1407173648874e1 * t335 * t2230 - 0.533466600e2 * t2233 * t755 + 0.177822200e2 * t831 * t759 - 0.26673330e1 * t754 * t2238 - 0.13340e2 * t2036 + t2454 + t2212 + t2273 + t2341, -t1839 * t2118 * t2467 * t360 + t2114 * t360 * t616 * t881 - 0.2e1 * t2118 * t2458 * t360 * t616);
17371   t2475 = -0.2e1 * t2000 * t2002 + t674 * t2134 * t363 - 0.2e1 * t674 * t2137 - t277 * t2472 + 0.1174e1 * t2472;
17372   t2476 = t2475 * t377;
17373   t2478 = t8 * t212 * t2476;
17374   t2479 = 0.3e1 / 0.8e1 * t2478;
17375   t2481 = t634 * t212 * t888;
17376   t2482 = t2481 * t902;
17377   t2483 = 0.49479000000000000000e1 * t2482;
17378   t2486 = 0.1e1 / t372 / t219 / 0.6e1;
17379   t2488 = t2486 * t19 * t23;
17380   t2490 = t2488 * t2007 * t376;
17381   t2491 = t894 * t2490;
17382   t2492 = 0.29687400000000000000e2 * t2491;
17383   t2493 = 0.1e1 / t255;
17384   t2494 = t367 * t2493;
17385   t2496 = t898 * t2494 * t376;
17386   t2497 = t894 * t2496;
17387   t2498 = 0.57725500000000000000e1 * t2497;
17388   t2499 = t1249 * t17;
17389   t2500 = t5 * t2499;
17390   t2501 = t366 * t1170;
17391   t2502 = 0.1e1 / t215;
17392   t2504 = t24 * t376;
17393   t2505 = t2501 * t2502 * t2504;
17394   t2506 = t2500 * t2505;
17395   t2507 = 0.80541612095716256868e2 * t2506;
17396   t2508 = -t1971 - t1972 - t1977 + t1359 - t1982 - t1983 - t1985 - t1990 - t1995 + t1903 - t1996 - t1997 - t2479 - t2483 - t2492 + t2498 + t2507;
17397   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17398     v2rho2[2] = -t665 - t1318 - t670 - t1321 - 0.3e1 / 0.4e1 * t891 - 0.49479000000000000000e1 * t903 + t10 * t2508;
17399 
17400   t2510 = t17 * t1030;
17401   t2512 = t385 * t2510 * t392;
17402   t2513 = t2512 / 0.2e1;
17403   t2515 = t8 * t398 * t1031;
17404   t2516 = t2515 / 0.8e1;
17405   t2517 = t944 * t477;
17406   t2530 = t1391 * t421;
17407   t2531 = t27 * t1646;
17408   t2532 = 0.1e1 / t2531;
17409   t2534 = t2532 * t19 * t1397;
17410   t2539 = t23 * t407;
17411   t2542 = t459 * t923;
17412   t2544 = t1417 * t77;
17413   t2545 = t84 * t922;
17414   t2546 = t2545 * t438;
17415   t2547 = t2544 * t2546;
17416   t2549 = t2545 * t1425;
17417   t2550 = t1423 * t2549;
17418   t2552 = t113 * t922;
17419   t2553 = t2552 * t463;
17420   t2554 = t1429 * t2553;
17421   t2557 = my_piecewise3(t65, t407 / 0.3e1, 0);
17422   t2558 = t85 * t2557;
17423   t2559 = t433 * t2558;
17424   t2561 = t1379 * t106;
17425   t2562 = t2561 * t930;
17426   t2564 = t926 * t68;
17427   t2565 = t2564 * t928;
17428   t2566 = t2552 * t438;
17429   t2567 = t2565 * t2566;
17430   t2569 = t141 * t106;
17431   t2570 = t2569 * t111;
17432   t2571 = t2552 * t1425;
17433   t2572 = t2570 * t2571;
17434   t2574 = t927 * t928;
17435   t2575 = t126 * t922;
17436   t2576 = t2575 * t463;
17437   t2577 = t2574 * t2576;
17438   t2579 = t929 * t2557;
17439   t2580 = t927 * t2579;
17440   t2582 = -0.15e2 * t2542 - 0.6e1 * t2547 + 0.9e1 / 0.2e1 * t2550 + 0.3e1 * t2554 - 0.3e1 * t2559 + 0.50e2 / 0.3e1 * t2562 + 0.8e1 * t2567 - 0.5e1 * t2572 - 0.4e1 * t2577 + 0.2e1 * t2580;
17441   t2583 = t56 * t2582;
17442   t2587 = t87 * t466 * t91;
17443   t2590 = t2582 * t91;
17444   t2593 = t933 * t466;
17445   t2594 = t2593 * t91;
17446   t2597 = -0.7e1 / 0.4860e4 * t57 * t2539 + t2583 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t934 * t2587 - t470 * t2590 / 0.100e3 + t1499 * t2594 / 0.100e3;
17447   t2600 = -0.10e2 / 0.729e3 * t24 * t407 - t40 * sigma[0] * t412 * t52 / 0.54e2 + 0.3e1 / 0.64e2 * t420 * t41 * t422 * t52 - 0.81e2 / 0.25600e5 * t2530 * t2534 + 0.2e1 * t474 * t940 + 0.2e1 * t94 * t2597;
17448   t2601 = t2600 * t187;
17449   t2603 = t943 * t621;
17450   t2605 = t477 * t1027;
17451   t2609 = t155 * t143;
17452   t2610 = t2609 * t124;
17453   t2611 = t2575 * t1425;
17454   t2616 = t542 * t963;
17455   t2617 = t2616 * t135;
17456   t2618 = t137 * t922;
17457   t2619 = t2618 * t1425;
17458   t2624 = t546 * t976;
17459   t2625 = t2624 * t148;
17460   t2626 = t150 * t922;
17461   t2627 = t2626 * t1425;
17462   t2632 = t552 * t157;
17463   t2633 = t2632 * t162;
17464   t2634 = t164 * t922;
17465   t2635 = t2634 * t1425;
17466   t2640 = t556 * t1002;
17467   t2641 = t2640 * t175;
17468   t2642 = t177 * t922;
17469   t2643 = t2642 * t1425;
17470   t2648 = t168 * t117;
17471   t2649 = t2648 * t1015;
17472   t2651 = 0.1e1 / t160 / t122;
17473   t2652 = t2649 * t2651;
17474   t2653 = t609 * t922;
17475   t2654 = t2653 * t1425;
17476   t2661 = t26 * t168;
17477   t2662 = t2661 * t1002;
17478   t2667 = 0.80019990e1 * t1513 * t2571 - 0.71128880e1 * t2610 * t2611 + 0.26855007342484500000e2 * t1522 * t2611 - 0.21881857834617000000e2 * t2617 * t2619 - 0.104493387203280e3 * t1530 * t2619 + 0.81272634491440e2 * t2625 * t2627 + 0.99899779679662500000e2 * t1538 * t2627 - 0.75479833535745000000e2 * t2633 * t2635 - 0.37993688519598e2 * t1546 * t2635 + 0.28143472977480e2 * t2641 * t2643 + 0.51124784525010000000e1 * t1555 * t2643 - 0.37329207748420000000e1 * t2652 * t2654 + 0.30015000000000000000e1 * t2550 - 0.33350000000000000000e1 * t2572 + 0.126645628398660e3 * t1721 * t997 - 0.93811576591600000000e2 * t2662 * t1007 - 0.17041594841670e2 * t1763 * t1010;
17479   t2668 = t168 * t43;
17480   t2669 = t26 * t2668;
17481   t2670 = t2669 * t1015;
17482   t2675 = t26 * t987;
17483   t2676 = t2675 * t143;
17484   t2681 = t130 * rho[0];
17485   t2682 = t26 * t2681;
17486   t2683 = t2682 * t963;
17487   t2688 = t130 * t154;
17488   t2689 = t26 * t2688;
17489   t2690 = t2689 * t976;
17490   t2693 = t114 * t2557;
17491   t2696 = t954 * t2557;
17492   t2699 = t127 * t2557;
17493   t2702 = t967 * t2557;
17494   t2705 = t138 * t2557;
17495   t2708 = t980 * t2557;
17496   t2711 = t151 * t2557;
17497   t2714 = t993 * t2557;
17498   t2717 = t165 * t2557;
17499   t2720 = t1006 * t2557;
17500   t2723 = t178 * t2557;
17501   t2726 = 0.12443069249473333333e2 * t2670 * t1020 - 0.266733300e2 * t1732 * t948 + 0.23709626666666666667e2 * t2676 * t955 - 0.89516691141615e2 * t1744 * t958 + 0.72939526115390000000e2 * t2683 * t968 + 0.348311290677600e3 * t1776 * t971 - 0.27090878163813333333e3 * t2690 * t981 - 0.26673330e1 * t560 * t2693 + 0.17782220e1 * t952 * t2696 - 0.5967779409441e1 * t568 * t2699 + 0.3978519606294e1 * t964 * t2702 + 0.17415564533880e2 * t577 * t2705 - 0.11610376355920e2 * t977 * t2708 - 0.13319970623955e2 * t586 * t2711 + 0.8879980415970e1 * t990 * t2714 + 0.4221520946622e1 * t595 * t2717 - 0.2814347297748e1 * t1003 * t2720 - 0.486902709762e0 * t604 * t2723;
17502   t2728 = t1019 * t2557;
17503   t2733 = t130 * t1646;
17504   t2734 = t26 * t2733;
17505   t2735 = t2734 * t157;
17506   t2742 = t1812 * t111;
17507   t2747 = t951 * t107;
17508   t2748 = t2747 * t953;
17509   t2749 = t2575 * t438;
17510   t2752 = t952 * t953;
17511   t2753 = t2618 * t463;
17512   t2756 = t1751 * t124;
17513   t2761 = t962 * t120;
17514   t2762 = t2761 * t966;
17515   t2763 = t2618 * t438;
17516   t2766 = t964 * t966;
17517   t2767 = t2626 * t463;
17518   t2770 = t1759 * t135;
17519   t2775 = 0.324601806508e0 * t1016 * t2728 - 0.332999265598875e3 * t1710 * t984 + 0.25159944511915000000e3 * t2735 * t994 + 0.1334e1 * t2580 - 0.10005e2 * t2542 - 0.2001e1 * t2559 + 0.11116666666666666667e2 * t2562 - 0.133366650e2 * t2742 * t2566 + 0.53346660e1 * t1630 * t2576 + 0.124475540e2 * t2748 * t2749 - 0.53346660e1 * t2752 * t2753 - 0.47742235275528e2 * t2756 * t2749 + 0.17903338228323e2 * t1635 * t2753 + 0.39785196062940e2 * t2762 * t2763 - 0.15914078425176e2 * t2766 * t2767 + 0.191571209872680e3 * t2770 * t2763 - 0.69662258135520e2 * t1641 * t2767;
17520   t2776 = t975 * t132;
17521   t2777 = t2776 * t979;
17522   t2778 = t2626 * t438;
17523   t2781 = t977 * t979;
17524   t2782 = t2634 * t463;
17525   t2785 = t1795 * t148;
17526   t2790 = t989 * t144;
17527   t2791 = t2790 * t992;
17528   t2792 = t2634 * t438;
17529   t2795 = t990 * t992;
17530   t2796 = t2642 * t463;
17531   t2799 = t1803 * t162;
17532   t2804 = t1001 * t158;
17533   t2805 = t2804 * t1005;
17534   t2806 = t2642 * t438;
17535   t2809 = t1003 * t1005;
17536   t2810 = t2653 * t463;
17537   t2813 = t1781 * t175;
17538   t2818 = t1014 * t171;
17539   t2819 = t2818 * t1018;
17540   t2820 = t2653 * t438;
17541   t2823 = t1016 * t1018;
17542   t2824 = t1786 * t922;
17543   t2825 = t2824 * t463;
17544   t2832 = -0.150934892626960e3 * t2777 * t2778 + 0.58051881779600e2 * t2781 * t2782 - 0.186479588735370e3 * t2785 * t2778 + 0.66599853119775e2 * t1620 * t2782 + 0.142079686655520e3 * t2791 * t2792 - 0.53279882495820e2 * t2795 * t2796 + 0.71765856092574e2 * t2799 * t2792 - 0.25329125679732e2 * t1625 * t2796 - 0.53472598657212e2 * t2805 * t2806 + 0.19700431084236e2 * t2809 * t2810 - 0.9738054195240e1 * t2813 * t2806 + 0.3408318968334e1 * t1615 * t2810 + 0.7141239743176e1 * t2819 * t2820 - 0.2596814452064e1 * t2823 * t2825 - 0.4002e1 * t2547 + 0.2001e1 * t2554 + 0.5336e1 * t2567 - 0.2668e1 * t2577;
17545   t2835 = t616 * t1830;
17546   t2836 = t933 * t184;
17547   t2837 = t2836 * t466;
17548   t2843 = t1839 * t1841;
17549   t2846 = my_piecewise3(t102, t2667 + t2726 + t2775 + t2832, t184 * t2582 * t616 * t617 - 0.2e1 * t2835 * t2837 - t2837 * t2843);
17550   t2849 = -0.2e1 * t1369 * t2517 + t405 * t2601 - t405 * t2603 - t405 * t2605 - t101 * t2846 + 0.1174e1 * t2846;
17551   t2850 = t2849 * t204;
17552   t2852 = t8 * t18 * t2850;
17553   t2853 = 0.3e1 / 0.8e1 * t2852;
17554   t2855 = t634 * t18 * t1030;
17555   t2856 = t2855 * t644;
17556   t2857 = 0.24739500000000000000e1 * t2856;
17557   t2859 = t640 * t1036 * t1341;
17558   t2860 = t1340 * t2859;
17559   t2861 = 0.12369750000000000000e1 * t2860;
17560   t2862 = t1364 * t1038;
17561   t2863 = 0.30924375000000000000e0 * t2862;
17562   t2864 = t1855 * t1038;
17563   t2865 = 0.92773125000000000000e0 * t2864;
17564   t2866 = t633 * t1873;
17565   t2867 = t190 * t1860;
17566   t2868 = t2867 * t19;
17567   t2869 = t2539 * t203;
17568   t2870 = t2868 * t2869;
17569   t2871 = t2866 * t2870;
17570   t2872 = 0.11132775000000000000e2 * t2871;
17571   t2873 = t1035 * t641;
17572   t2875 = t640 * t2873 * t203;
17573   t2876 = t636 * t2875;
17574   t2877 = 0.12369750000000000000e1 * t2876;
17575   t2878 = t194 * sigma[0];
17576   t2879 = 0.1e1 / t2878;
17577   t2880 = t190 * t2879;
17578   t2882 = t2880 * t26 * t1878;
17579   t2883 = t1874 * t2882;
17580   t2884 = 0.30203104535893596325e2 * t2883;
17581   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17582     v2rhosigma[0] = -t1034 + t1040 + t10 * (-t2513 - t2516 - t2853 - t2857 + t2861 + t2863 + t2865 + t2872 - t2877 - t2884);
17583 
17584   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17585     v2rhosigma[1] = 0.0e0;
17586 
17587   t2887 = t17 * t1165;
17588   t2889 = t648 * t2887 * t651;
17589   t2890 = t2889 / 0.2e1;
17590   t2892 = t8 * t655 * t1166;
17591   t2893 = t2892 / 0.8e1;
17592   t2895 = t898 * t1171 * t1954;
17593   t2896 = t1953 * t2895;
17594   t2897 = 0.12369750000000000000e1 * t2896;
17595   t2898 = t1960 * t1173;
17596   t2899 = 0.30924375000000000000e0 * t2898;
17597   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17598     v2rhosigma[2] = -t1169 + t1175 + t10 * (-t2890 - t2893 + t2897 + t2899);
17599 
17600   t2903 = t385 * t2510 * t663;
17601   t2904 = t2903 / 0.2e1;
17602   t2906 = t640 * t1036 * t1916;
17603   t2907 = t1340 * t2906;
17604   t2908 = 0.12369750000000000000e1 * t2907;
17605   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17606     v2rhosigma[3] = -t1034 + t1040 + t10 * (-t2904 - t2516 + t2908 + t2863);
17607 
17608   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17609     v2rhosigma[4] = 0.0e0;
17610 
17611   t2912 = t648 * t2887 * t668;
17612   t2913 = t2912 / 0.2e1;
17613   t2914 = t1079 * t742;
17614   t2927 = t1391 * t686;
17615   t2928 = t215 * t2373;
17616   t2929 = 0.1e1 / t2928;
17617   t2931 = t2929 * t19 * t2026;
17618   t2936 = t23 * t676;
17619   t2939 = t724 * t1058;
17620   t2941 = t2046 * t253;
17621   t2942 = t260 * t1057;
17622   t2943 = t2942 * t703;
17623   t2944 = t2941 * t2943;
17624   t2946 = t2942 * t1425;
17625   t2947 = t2052 * t2946;
17626   t2949 = t289 * t1057;
17627   t2950 = t2949 * t728;
17628   t2951 = t2057 * t2950;
17629   t2954 = my_piecewise3(t242, t676 / 0.3e1, 0);
17630   t2955 = t261 * t2954;
17631   t2956 = t698 * t2955;
17632   t2958 = t2010 * t282;
17633   t2959 = t2958 * t1065;
17634   t2961 = t1061 * t245;
17635   t2962 = t2961 * t1063;
17636   t2963 = t2949 * t703;
17637   t2964 = t2962 * t2963;
17638   t2966 = t317 * t282;
17639   t2967 = t2966 * t287;
17640   t2968 = t2949 * t1425;
17641   t2969 = t2967 * t2968;
17642   t2971 = t1062 * t1063;
17643   t2972 = t302 * t1057;
17644   t2973 = t2972 * t728;
17645   t2974 = t2971 * t2973;
17646   t2976 = t1064 * t2954;
17647   t2977 = t1062 * t2976;
17648   t2979 = -0.15e2 * t2939 - 0.6e1 * t2944 + 0.9e1 / 0.2e1 * t2947 + 0.3e1 * t2951 - 0.3e1 * t2956 + 0.50e2 / 0.3e1 * t2959 + 0.8e1 * t2964 - 0.5e1 * t2969 - 0.4e1 * t2974 + 0.2e1 * t2977;
17649   t2980 = t56 * t2979;
17650   t2984 = t263 * t731 * t267;
17651   t2987 = t2979 * t267;
17652   t2990 = t1068 * t731;
17653   t2991 = t2990 * t267;
17654   t2994 = -0.7e1 / 0.4860e4 * t57 * t2936 + t2980 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t1069 * t2984 - t735 * t2987 / 0.100e3 + t2127 * t2991 / 0.100e3;
17655   t2997 = -0.10e2 / 0.729e3 * t24 * t676 - t40 * sigma[2] * t681 * t231 / 0.54e2 + 0.3e1 / 0.64e2 * t420 * t221 * t687 * t231 - 0.81e2 / 0.25600e5 * t2927 * t2931 + 0.2e1 * t739 * t1075 + 0.2e1 * t270 * t2994;
17656   t2998 = t2997 * t363;
17657   t3000 = t1078 * t885;
17658   t3002 = t742 * t1162;
17659   t3004 = t818 * t1111;
17660   t3005 = t3004 * t324;
17661   t3006 = t326 * t1057;
17662   t3007 = t3006 * t1425;
17663   t3012 = t823 * t333;
17664   t3013 = t3012 * t338;
17665   t3014 = t340 * t1057;
17666   t3015 = t3014 * t1425;
17667   t3020 = t827 * t1137;
17668   t3021 = t3020 * t351;
17669   t3022 = t353 * t1057;
17670   t3023 = t3022 * t1425;
17671   t3028 = t344 * t293;
17672   t3029 = t3028 * t1150;
17673   t3031 = 0.1e1 / t336 / t298;
17674   t3032 = t3029 * t3031;
17675   t3033 = t803 * t1057;
17676   t3034 = t3033 * t1425;
17677   t3039 = t331 * t319;
17678   t3040 = t3039 * t300;
17679   t3041 = t2972 * t1425;
17680   t3046 = t814 * t1098;
17681   t3047 = t3046 * t311;
17682   t3048 = t313 * t1057;
17683   t3049 = t3048 * t1425;
17684   t3056 = t327 * t2954;
17685   t3059 = t1128 * t2954;
17686   t3062 = t341 * t2954;
17687   t3065 = 0.81272634491440e2 * t3005 * t3007 + 0.99899779679662500000e2 * t2195 * t3007 - 0.75479833535745000000e2 * t3013 * t3015 - 0.37993688519598e2 * t2203 * t3015 + 0.28143472977480e2 * t3021 * t3023 + 0.51124784525010000000e1 * t2160 * t3023 - 0.37329207748420000000e1 * t3032 * t3034 + 0.80019990e1 * t2170 * t2968 - 0.71128880e1 * t3040 * t3041 + 0.26855007342484500000e2 * t2179 * t3041 - 0.21881857834617000000e2 * t3047 * t3049 - 0.104493387203280e3 * t2187 * t3049 + 0.30015000000000000000e1 * t2947 - 0.33350000000000000000e1 * t2969 - 0.13319970623955e2 * t780 * t3056 + 0.8879980415970e1 * t1125 * t3059 + 0.4221520946622e1 * t789 * t3062;
17688   t3066 = t1141 * t2954;
17689   t3069 = t354 * t2954;
17690   t3072 = t1154 * t2954;
17691   t3075 = t344 * t223;
17692   t3076 = t214 * t3075;
17693   t3077 = t3076 * t1150;
17694   t3082 = t306 * rho[1];
17695   t3083 = t214 * t3082;
17696   t3084 = t3083 * t1098;
17697   t3089 = t306 * t330;
17698   t3090 = t214 * t3089;
17699   t3091 = t3090 * t1111;
17700   t3096 = t306 * t2373;
17701   t3097 = t214 * t3096;
17702   t3098 = t3097 * t333;
17703   t3103 = t214 * t344;
17704   t3104 = t3103 * t1137;
17705   t3111 = t214 * t1122;
17706   t3112 = t3111 * t319;
17707   t3115 = t290 * t2954;
17708   t3118 = t1089 * t2954;
17709   t3121 = t303 * t2954;
17710   t3124 = -0.2814347297748e1 * t1138 * t3066 - 0.486902709762e0 * t798 * t3069 + 0.324601806508e0 * t1151 * t3072 + 0.12443069249473333333e2 * t3077 * t1155 - 0.89516691141615e2 * t2245 * t1093 + 0.72939526115390000000e2 * t3084 * t1103 + 0.348311290677600e3 * t2262 * t1106 - 0.27090878163813333333e3 * t3091 * t1116 - 0.332999265598875e3 * t2276 * t1119 + 0.25159944511915000000e3 * t3098 * t1129 + 0.126645628398660e3 * t2222 * t1132 - 0.93811576591600000000e2 * t3104 * t1142 - 0.17041594841670e2 * t2248 * t1145 - 0.266733300e2 * t2233 * t1083 + 0.23709626666666666667e2 * t3112 * t1090 - 0.26673330e1 * t754 * t3115 + 0.17782220e1 * t1087 * t3118 - 0.5967779409441e1 * t762 * t3121;
17711   t3126 = t1102 * t2954;
17712   t3129 = t314 * t2954;
17713   t3132 = t1115 * t2954;
17714   t3139 = t1125 * t1127;
17715   t3140 = t3022 * t728;
17716   t3143 = t2300 * t338;
17717   t3144 = t3014 * t703;
17718   t3149 = t1136 * t334;
17719   t3150 = t3149 * t1140;
17720   t3151 = t3022 * t703;
17721   t3154 = t1138 * t1140;
17722   t3155 = t3033 * t728;
17723   t3158 = t2325 * t351;
17724   t3163 = t2304 * t287;
17725   t3168 = t1149 * t347;
17726   t3169 = t3168 * t1153;
17727   t3170 = t3033 * t703;
17728   t3173 = 0.3978519606294e1 * t1099 * t3126 + 0.17415564533880e2 * t771 * t3129 - 0.11610376355920e2 * t1112 * t3132 - 0.2001e1 * t2956 + 0.11116666666666666667e2 * t2959 + 0.1334e1 * t2977 - 0.10005e2 * t2939 - 0.53279882495820e2 * t3139 * t3140 + 0.71765856092574e2 * t3143 * t3144 - 0.25329125679732e2 * t2358 * t3140 - 0.53472598657212e2 * t3150 * t3151 + 0.19700431084236e2 * t3154 * t3155 - 0.9738054195240e1 * t3158 * t3151 + 0.3408318968334e1 * t2343 * t3155 - 0.133366650e2 * t3163 * t2963 + 0.53346660e1 * t2363 * t2973 + 0.7141239743176e1 * t3169 * t3170;
17729   t3174 = t1151 * t1153;
17730   t3175 = t2330 * t1057;
17731   t3176 = t3175 * t728;
17732   t3179 = t1086 * t283;
17733   t3180 = t3179 * t1088;
17734   t3181 = t2972 * t703;
17735   t3184 = t1087 * t1088;
17736   t3185 = t3048 * t728;
17737   t3188 = t2313 * t300;
17738   t3193 = t1097 * t296;
17739   t3194 = t3193 * t1101;
17740   t3195 = t3048 * t703;
17741   t3198 = t1099 * t1101;
17742   t3199 = t3006 * t728;
17743   t3202 = t2284 * t311;
17744   t3207 = t1110 * t308;
17745   t3208 = t3207 * t1114;
17746   t3209 = t3006 * t703;
17747   t3212 = t1112 * t1114;
17748   t3213 = t3014 * t728;
17749   t3216 = t2292 * t324;
17750   t3221 = t1124 * t320;
17751   t3222 = t3221 * t1127;
17752   t3229 = -0.2596814452064e1 * t3174 * t3176 + 0.124475540e2 * t3180 * t3181 - 0.53346660e1 * t3184 * t3185 - 0.47742235275528e2 * t3188 * t3181 + 0.17903338228323e2 * t2368 * t3185 + 0.39785196062940e2 * t3194 * t3195 - 0.15914078425176e2 * t3198 * t3199 + 0.191571209872680e3 * t3202 * t3195 - 0.69662258135520e2 * t2348 * t3199 - 0.150934892626960e3 * t3208 * t3209 + 0.58051881779600e2 * t3212 * t3213 - 0.186479588735370e3 * t3216 * t3209 + 0.66599853119775e2 * t2353 * t3213 + 0.142079686655520e3 * t3222 * t3144 - 0.4002e1 * t2944 + 0.2001e1 * t2951 + 0.5336e1 * t2964 - 0.2668e1 * t2974;
17753   t3232 = t616 * t2458;
17754   t3233 = t1068 * t360;
17755   t3234 = t3233 * t731;
17756   t3240 = t1839 * t2467;
17757   t3243 = my_piecewise3(t278, t3065 + t3124 + t3173 + t3229, t2979 * t360 * t616 * t881 - 0.2e1 * t3232 * t3234 - t3234 * t3240);
17758   t3246 = -0.2e1 * t2000 * t2914 + t674 * t2998 - t674 * t3000 - t674 * t3002 - t277 * t3243 + 0.1174e1 * t3243;
17759   t3247 = t3246 * t377;
17760   t3249 = t8 * t212 * t3247;
17761   t3250 = 0.3e1 / 0.8e1 * t3249;
17762   t3252 = t634 * t212 * t1165;
17763   t3253 = t3252 * t902;
17764   t3254 = 0.24739500000000000000e1 * t3253;
17765   t3256 = t898 * t1171 * t1986;
17766   t3257 = t1953 * t3256;
17767   t3258 = 0.12369750000000000000e1 * t3257;
17768   t3259 = t2481 * t1173;
17769   t3260 = 0.92773125000000000000e0 * t3259;
17770   t3261 = t633 * t2499;
17771   t3262 = t366 * t2486;
17772   t3263 = t3262 * t19;
17773   t3264 = t2936 * t376;
17774   t3265 = t3263 * t3264;
17775   t3266 = t3261 * t3265;
17776   t3267 = 0.11132775000000000000e2 * t3266;
17777   t3268 = t1170 * t899;
17778   t3270 = t898 * t3268 * t376;
17779   t3271 = t894 * t3270;
17780   t3272 = 0.12369750000000000000e1 * t3271;
17781   t3273 = t367 * sigma[2];
17782   t3274 = 0.1e1 / t3273;
17783   t3275 = t366 * t3274;
17784   t3277 = t3275 * t214 * t2504;
17785   t3278 = t2500 * t3277;
17786   t3279 = 0.30203104535893596325e2 * t3278;
17787   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17788     v2rhosigma[5] = -t1169 + t1175 + t10 * (-t2913 - t2893 - t3250 - t3254 + t3258 + t2899 + t3260 + t3267 - t3272 - t3279);
17789 
17790   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
17791     v2rholapl[0] = 0.0e0;
17792 
17793   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
17794     v2rholapl[1] = 0.0e0;
17795 
17796   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
17797     v2rholapl[2] = 0.0e0;
17798 
17799   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
17800     v2rholapl[3] = 0.0e0;
17801 
17802   t3283 = t8 * t18 * t1245;
17803   t3285 = t4 * t7;
17804   t3286 = t1178 * t3285;
17805   t3287 = t15 * t1244;
17806   t3291 = t1369 * t94;
17807   t3292 = t1194 * t187;
17808   t3293 = t3292 * t477;
17809   t3296 = t474 * t1194;
17810   t3300 = t459 * t1182;
17811   t3302 = t84 * t1181;
17812   t3303 = t3302 * t438;
17813   t3304 = t2544 * t3303;
17814   t3306 = t3302 * t1425;
17815   t3307 = t1423 * t3306;
17816   t3309 = t113 * t1181;
17817   t3310 = t3309 * t463;
17818   t3311 = t1429 * t3310;
17819   t3314 = my_piecewise3(t65, -0.5e1 / 0.3e1 * t29, 0);
17820   t3315 = t85 * t3314;
17821   t3316 = t433 * t3315;
17822   t3318 = t2561 * t1185;
17823   t3320 = t3309 * t438;
17824   t3321 = t2565 * t3320;
17825   t3323 = t3309 * t1425;
17826   t3324 = t2570 * t3323;
17827   t3326 = t126 * t1181;
17828   t3327 = t3326 * t463;
17829   t3328 = t2574 * t3327;
17830   t3330 = t929 * t3314;
17831   t3331 = t927 * t3330;
17832   t3333 = -0.15e2 * t3300 - 0.6e1 * t3304 + 0.9e1 / 0.2e1 * t3307 + 0.3e1 * t3311 - 0.3e1 * t3316 + 0.50e2 / 0.3e1 * t3318 + 0.8e1 * t3321 - 0.5e1 * t3324 - 0.4e1 * t3328 + 0.2e1 * t3331;
17833   t3334 = t56 * t3333;
17834   t3339 = t3333 * t91;
17835   t3342 = t1188 * t466;
17836   t3343 = t3342 * t91;
17837   t3346 = t3334 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t1189 * t2587 - t470 * t3339 / 0.100e3 + t1499 * t3343 / 0.100e3;
17838   t3347 = t94 * t3346;
17839   t3354 = t477 * t1241;
17840   t3358 = t3326 * t1425;
17841   t3363 = t137 * t1181;
17842   t3364 = t3363 * t1425;
17843   t3369 = t150 * t1181;
17844   t3370 = t3369 * t1425;
17845   t3375 = t164 * t1181;
17846   t3376 = t3375 * t1425;
17847   t3395 = 0.80019990e1 * t1513 * t3323 - 0.71128880e1 * t2610 * t3358 + 0.26855007342484500000e2 * t1522 * t3358 - 0.21881857834617000000e2 * t2617 * t3364 - 0.104493387203280e3 * t1530 * t3364 + 0.81272634491440e2 * t2625 * t3370 + 0.99899779679662500000e2 * t1538 * t3370 - 0.75479833535745000000e2 * t2633 * t3376 + 0.30015000000000000000e1 * t3307 - 0.33350000000000000000e1 * t3324 + 0.23709626666666666667e2 * t2676 * t1204 - 0.89516691141615e2 * t1744 * t1207 + 0.72939526115390000000e2 * t2683 * t1210 + 0.348311290677600e3 * t1776 * t1213 - 0.27090878163813333333e3 * t2690 * t1216 - 0.332999265598875e3 * t1710 * t1219 + 0.25159944511915000000e3 * t2735 * t1222;
17848   t3404 = t114 * t3314;
17849   t3407 = t954 * t3314;
17850   t3410 = t127 * t3314;
17851   t3413 = t967 * t3314;
17852   t3416 = t138 * t3314;
17853   t3419 = t980 * t3314;
17854   t3422 = t151 * t3314;
17855   t3425 = t993 * t3314;
17856   t3428 = t165 * t3314;
17857   t3431 = t1006 * t3314;
17858   t3434 = t178 * t3314;
17859   t3437 = t1019 * t3314;
17860   t3443 = 0.126645628398660e3 * t1721 * t1225 - 0.93811576591600000000e2 * t2662 * t1228 - 0.17041594841670e2 * t1763 * t1231 - 0.266733300e2 * t1732 * t1201 - 0.26673330e1 * t560 * t3404 + 0.17782220e1 * t952 * t3407 - 0.5967779409441e1 * t568 * t3410 + 0.3978519606294e1 * t964 * t3413 + 0.17415564533880e2 * t577 * t3416 - 0.11610376355920e2 * t977 * t3419 - 0.13319970623955e2 * t586 * t3422 + 0.8879980415970e1 * t990 * t3425 + 0.4221520946622e1 * t595 * t3428 - 0.2814347297748e1 * t1003 * t3431 - 0.486902709762e0 * t604 * t3434 + 0.324601806508e0 * t1016 * t3437 + 0.12443069249473333333e2 * t2670 * t1234 - 0.2001e1 * t3316;
17861   t3450 = t3375 * t463;
17862   t3453 = t3375 * t438;
17863   t3456 = t177 * t1181;
17864   t3457 = t3456 * t463;
17865   t3464 = t3456 * t438;
17866   t3467 = t609 * t1181;
17867   t3468 = t3467 * t463;
17868   t3471 = t3363 * t463;
17869   t3474 = t3326 * t438;
17870   t3479 = t3363 * t438;
17871   t3482 = t3369 * t463;
17872   t3487 = 0.11116666666666666667e2 * t3318 + 0.1334e1 * t3331 - 0.10005e2 * t3300 - 0.133366650e2 * t2742 * t3320 + 0.66599853119775e2 * t1620 * t3450 + 0.142079686655520e3 * t2791 * t3453 - 0.53279882495820e2 * t2795 * t3457 + 0.71765856092574e2 * t2799 * t3453 - 0.25329125679732e2 * t1625 * t3457 - 0.53472598657212e2 * t2805 * t3464 + 0.19700431084236e2 * t2809 * t3468 - 0.53346660e1 * t2752 * t3471 - 0.47742235275528e2 * t2756 * t3474 + 0.17903338228323e2 * t1635 * t3471 + 0.39785196062940e2 * t2762 * t3479 - 0.15914078425176e2 * t2766 * t3482 + 0.191571209872680e3 * t2770 * t3479;
17873   t3490 = t3369 * t438;
17874   t3501 = t3467 * t438;
17875   t3504 = t1786 * t1181;
17876   t3505 = t3504 * t463;
17877   t3518 = t3456 * t1425;
17878   t3523 = t3467 * t1425;
17879   t3526 = -0.69662258135520e2 * t1641 * t3482 - 0.150934892626960e3 * t2777 * t3490 + 0.58051881779600e2 * t2781 * t3450 - 0.186479588735370e3 * t2785 * t3490 - 0.9738054195240e1 * t2813 * t3464 + 0.3408318968334e1 * t1615 * t3468 + 0.7141239743176e1 * t2819 * t3501 - 0.2596814452064e1 * t2823 * t3505 + 0.53346660e1 * t1630 * t3327 + 0.124475540e2 * t2748 * t3474 - 0.4002e1 * t3304 + 0.2001e1 * t3311 + 0.5336e1 * t3321 - 0.2668e1 * t3328 - 0.37993688519598e2 * t1546 * t3376 + 0.28143472977480e2 * t2641 * t3518 + 0.51124784525010000000e1 * t1555 * t3518 - 0.37329207748420000000e1 * t2652 * t3523;
17880   t3529 = t1188 * t184;
17881   t3530 = t3529 * t466;
17882   t3538 = my_piecewise3(t102, t3395 + t3443 + t3487 + t3526, t184 * t3333 * t616 * t617 - 0.2e1 * t2835 * t3530 - t2843 * t3530);
17883   t3541 = -0.4e1 * t3291 * t3293 + 0.2e1 * t405 * t3296 * t187 + 0.2e1 * t405 * t3347 * t187 - 0.2e1 * t405 * t1195 * t621 - t405 * t3354 - t101 * t3538 + 0.1174e1 * t3538;
17884   t3542 = t3541 * t204;
17885   t3546 = t1177 * t632;
17886   t3547 = t3546 * t4;
17887   t3549 = t3547 * t1180 * t1244;
17888   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17889     v2rhotau[0] = -t3283 / 0.2e1 - t3286 * t3287 * t392 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1180 * t3542 - 0.24739500000000000000e1 * t3549 * t644;
17890 
17891   t3553 = t8 * t212 * t1314;
17892   t3554 = t210 * t1313;
17893   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17894     v2rhotau[1] = -t3286 * t3554 * t651 / 0.2e1 - t3553 / 0.2e1;
17895 
17896   t3558 = t3287 * t663;
17897   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17898     v2rhotau[2] = -t3286 * t3558 / 0.2e1 - t3283 / 0.2e1;
17899 
17900   t3562 = t3554 * t668;
17901   t3565 = t2000 * t270;
17902   t3566 = t1263 * t363;
17903   t3567 = t3566 * t742;
17904   t3570 = t739 * t1263;
17905   t3574 = t724 * t1251;
17906   t3576 = t260 * t1250;
17907   t3577 = t3576 * t703;
17908   t3578 = t2941 * t3577;
17909   t3580 = t3576 * t1425;
17910   t3581 = t2052 * t3580;
17911   t3583 = t289 * t1250;
17912   t3584 = t3583 * t728;
17913   t3585 = t2057 * t3584;
17914   t3588 = my_piecewise3(t242, -0.5e1 / 0.3e1 * t217, 0);
17915   t3589 = t261 * t3588;
17916   t3590 = t698 * t3589;
17917   t3592 = t2958 * t1254;
17918   t3594 = t3583 * t703;
17919   t3595 = t2962 * t3594;
17920   t3597 = t3583 * t1425;
17921   t3598 = t2967 * t3597;
17922   t3600 = t302 * t1250;
17923   t3601 = t3600 * t728;
17924   t3602 = t2971 * t3601;
17925   t3604 = t1064 * t3588;
17926   t3605 = t1062 * t3604;
17927   t3607 = -0.15e2 * t3574 - 0.6e1 * t3578 + 0.9e1 / 0.2e1 * t3581 + 0.3e1 * t3585 - 0.3e1 * t3590 + 0.50e2 / 0.3e1 * t3592 + 0.8e1 * t3595 - 0.5e1 * t3598 - 0.4e1 * t3602 + 0.2e1 * t3605;
17928   t3608 = t56 * t3607;
17929   t3613 = t3607 * t267;
17930   t3616 = t1257 * t731;
17931   t3617 = t3616 * t267;
17932   t3620 = t3608 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t1258 * t2984 - t735 * t3613 / 0.100e3 + t2127 * t3617 / 0.100e3;
17933   t3621 = t270 * t3620;
17934   t3628 = t742 * t1310;
17935   t3632 = t3600 * t1425;
17936   t3637 = t313 * t1250;
17937   t3638 = t3637 * t1425;
17938   t3643 = t326 * t1250;
17939   t3644 = t3643 * t1425;
17940   t3649 = t340 * t1250;
17941   t3650 = t3649 * t1425;
17942   t3655 = t353 * t1250;
17943   t3656 = t3655 * t1425;
17944   t3661 = t803 * t1250;
17945   t3662 = t3661 * t1425;
17946   t3671 = t303 * t3588;
17947   t3674 = 0.80019990e1 * t2170 * t3597 - 0.71128880e1 * t3040 * t3632 + 0.26855007342484500000e2 * t2179 * t3632 - 0.21881857834617000000e2 * t3047 * t3638 - 0.104493387203280e3 * t2187 * t3638 + 0.81272634491440e2 * t3005 * t3644 + 0.99899779679662500000e2 * t2195 * t3644 - 0.75479833535745000000e2 * t3013 * t3650 - 0.37993688519598e2 * t2203 * t3650 + 0.28143472977480e2 * t3021 * t3656 + 0.51124784525010000000e1 * t2160 * t3656 - 0.37329207748420000000e1 * t3032 * t3662 + 0.30015000000000000000e1 * t3581 - 0.33350000000000000000e1 * t3598 - 0.332999265598875e3 * t2276 * t1288 + 0.25159944511915000000e3 * t3098 * t1291 - 0.5967779409441e1 * t762 * t3671;
17948   t3675 = t1102 * t3588;
17949   t3678 = t314 * t3588;
17950   t3681 = t1115 * t3588;
17951   t3684 = t327 * t3588;
17952   t3687 = t1128 * t3588;
17953   t3690 = t341 * t3588;
17954   t3693 = t1141 * t3588;
17955   t3696 = t354 * t3588;
17956   t3699 = t1154 * t3588;
17957   t3720 = 0.3978519606294e1 * t1099 * t3675 + 0.17415564533880e2 * t771 * t3678 - 0.11610376355920e2 * t1112 * t3681 - 0.13319970623955e2 * t780 * t3684 + 0.8879980415970e1 * t1125 * t3687 + 0.4221520946622e1 * t789 * t3690 - 0.2814347297748e1 * t1138 * t3693 - 0.486902709762e0 * t798 * t3696 + 0.324601806508e0 * t1151 * t3699 + 0.126645628398660e3 * t2222 * t1294 - 0.93811576591600000000e2 * t3104 * t1297 - 0.17041594841670e2 * t2248 * t1300 + 0.12443069249473333333e2 * t3077 * t1303 - 0.266733300e2 * t2233 * t1270 + 0.23709626666666666667e2 * t3112 * t1273 - 0.89516691141615e2 * t2245 * t1276 + 0.72939526115390000000e2 * t3084 * t1279 + 0.348311290677600e3 * t2262 * t1282;
17958   t3724 = t290 * t3588;
17959   t3727 = t1089 * t3588;
17960   t3734 = t3600 * t703;
17961   t3737 = t3637 * t728;
17962   t3744 = t3637 * t703;
17963   t3747 = t3643 * t728;
17964   t3754 = t3643 * t703;
17965   t3757 = t3649 * t728;
17966   t3760 = -0.27090878163813333333e3 * t3091 * t1285 - 0.26673330e1 * t754 * t3724 + 0.17782220e1 * t1087 * t3727 - 0.10005e2 * t3574 - 0.2001e1 * t3590 + 0.11116666666666666667e2 * t3592 + 0.1334e1 * t3605 + 0.124475540e2 * t3180 * t3734 - 0.53346660e1 * t3184 * t3737 - 0.47742235275528e2 * t3188 * t3734 + 0.17903338228323e2 * t2368 * t3737 + 0.39785196062940e2 * t3194 * t3744 - 0.15914078425176e2 * t3198 * t3747 + 0.191571209872680e3 * t3202 * t3744 - 0.69662258135520e2 * t2348 * t3747 - 0.150934892626960e3 * t3208 * t3754 + 0.58051881779600e2 * t3212 * t3757;
17967   t3765 = t3649 * t703;
17968   t3768 = t3655 * t728;
17969   t3775 = t3655 * t703;
17970   t3778 = t3661 * t728;
17971   t3785 = t3661 * t703;
17972   t3788 = t2330 * t1250;
17973   t3789 = t3788 * t728;
17974   t3800 = -0.186479588735370e3 * t3216 * t3754 + 0.66599853119775e2 * t2353 * t3757 + 0.142079686655520e3 * t3222 * t3765 - 0.53279882495820e2 * t3139 * t3768 + 0.71765856092574e2 * t3143 * t3765 - 0.25329125679732e2 * t2358 * t3768 - 0.53472598657212e2 * t3150 * t3775 + 0.19700431084236e2 * t3154 * t3778 - 0.9738054195240e1 * t3158 * t3775 + 0.3408318968334e1 * t2343 * t3778 + 0.7141239743176e1 * t3169 * t3785 - 0.2596814452064e1 * t3174 * t3789 - 0.133366650e2 * t3163 * t3594 + 0.53346660e1 * t2363 * t3601 - 0.4002e1 * t3578 + 0.2001e1 * t3585 + 0.5336e1 * t3595 - 0.2668e1 * t3602;
17975   t3803 = t1257 * t360;
17976   t3804 = t3803 * t731;
17977   t3812 = my_piecewise3(t278, t3674 + t3720 + t3760 + t3800, t360 * t3607 * t616 * t881 - 0.2e1 * t3232 * t3804 - t3240 * t3804);
17978   t3815 = -0.4e1 * t3565 * t3567 + 0.2e1 * t674 * t3570 * t363 + 0.2e1 * t674 * t3621 * t363 - 0.2e1 * t674 * t1264 * t885 - t674 * t3628 - t277 * t3812 + 0.1174e1 * t3812;
17979   t3817 = t1249 * t3815 * t377;
17980   t3820 = t1249 * t1313;
17981   t3821 = t3547 * t3820;
17982   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
17983     v2rhotau[3] = -t3553 / 0.2e1 - t3286 * t3562 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t3817 - 0.24739500000000000000e1 * t3821 * t902;
17984 
17985   t3824 = t943 * t943;
17986   t3825 = t3824 * t187;
17987   t3836 = t1391 * t41;
17988   t3837 = 0.1e1 / t481;
17989   t3839 = t3837 * t19 * t1397;
17990   t3842 = t940 * t940;
17991   t3844 = t922 * t922;
17992   t3845 = t85 * t3844;
17993   t3846 = t1417 * t3845;
17994   t3848 = t929 * t3844;
17995   t3849 = t2564 * t3848;
17996   t3851 = my_piecewise3(t65, 0, 0);
17997   t3852 = t85 * t3851;
17998   t3853 = t433 * t3852;
17999   t3854 = 0.3e1 * t3853;
18000   t3855 = t2531 * t170;
18001   t3856 = t483 * t126;
18002   t3857 = t3856 * t3844;
18003   t3858 = t3855 * t3857;
18004   t3860 = t929 * t3851;
18005   t3861 = t927 * t3860;
18006   t3862 = 0.2e1 * t3861;
18007   t3863 = -0.6e1 * t3846 + 0.14e2 * t3849 - t3854 - 0.8e1 * t3858 + t3862;
18008   t3864 = t56 * t3863;
18009   t3867 = t933 * t933;
18010   t3868 = t56 * t3867;
18011   t3871 = t3863 * t91;
18012   t3874 = t3867 * t91;
18013   t3877 = t3864 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t3868 * t1492 - t470 * t3871 / 0.100e3 + t1499 * t3874 / 0.100e3;
18014   t3880 = t37 * t39 * t45 * t52 / 0.288e3 - 0.9e1 / 0.640e3 * t420 * sigma[0] * t913 * t52 + 0.243e3 / 0.204800e6 * t3836 * t3839 + 0.2e1 * t3842 + 0.2e1 * t94 * t3877;
18015   t3881 = t3880 * t187;
18016   t3883 = t943 * t1027;
18017   t3886 = t1006 * t3844;
18018   t3889 = t1006 * t3851;
18019   t3891 = 0.2814347297748e1 * t1003 * t3889;
18020   t3892 = t27 * t1685;
18021   t3893 = t3892 * t603;
18022   t3894 = t527 * t609;
18023   t3895 = t3894 * t3844;
18024   t3898 = t178 * t3851;
18025   t3900 = 0.486902709762e0 * t604 * t3898;
18026   t3901 = t1019 * t3844;
18027   t3904 = t1019 * t3851;
18028   t3906 = 0.324601806508e0 * t1016 * t3904;
18029   t3907 = t168 * t141;
18030   t3908 = t27 * t3907;
18031   t3909 = t157 * t143;
18032   t3910 = t3908 * t3909;
18033   t3912 = 0.1e1 / t160 / t123;
18034   t3913 = t3912 * t1786;
18035   t3914 = t3913 * t3844;
18036   t3917 = t114 * t3851;
18037   t3919 = 0.26673330e1 * t560 * t3917;
18038   t3920 = t954 * t3844;
18039   t3923 = t954 * t3851;
18040   t3925 = 0.17782220e1 * t952 * t3923;
18041   t3926 = t27 * t130;
18042   t3927 = t3926 * t119;
18043   t3928 = t492 * t137;
18044   t3929 = t3928 * t3844;
18045   t3932 = t127 * t3851;
18046   t3934 = 0.5967779409441e1 * t568 * t3932;
18047   t3935 = t967 * t3844;
18048   t3938 = t967 * t3851;
18049   t3940 = 0.3978519606294e1 * t964 * t3938;
18050   t3941 = t27 * t1661;
18051   t3942 = t3941 * t576;
18052   t3943 = t501 * t150;
18053   t3944 = t3943 * t3844;
18054   t3947 = t138 * t3851;
18055   t3949 = 0.17415564533880e2 * t577 * t3947;
18056   t3950 = t980 * t3844;
18057   t3953 = -0.104130850016676e3 * t2804 * t3886 - t3891 + 0.39400862168472e2 * t3893 * t3895 - t3900 + 0.13957877679844e2 * t2818 * t3901 + t3906 - 0.5193628904128e1 * t3910 * t3914 - t3919 + 0.231168860e2 * t2747 * t3920 + t3925 - 0.106693320e2 * t3927 * t3929 - t3934 + 0.75591872519586e2 * t2761 * t3935 + t3940 - 0.31828156850352e2 * t3942 * t3944 + t3949 - 0.290259408898000e3 * t2776 * t3950;
18058   t3954 = t980 * t3851;
18059   t3956 = 0.11610376355920e2 * t977 * t3954;
18060   t3957 = t27 * t1669;
18061   t3958 = t3957 * t585;
18062   t3959 = t509 * t164;
18063   t3960 = t3959 * t3844;
18064   t3963 = t151 * t3851;
18065   t3965 = 0.13319970623955e2 * t586 * t3963;
18066   t3966 = t993 * t3844;
18067   t3969 = t165 * t3844;
18068   t3972 = t178 * t3844;
18069   t3975 = t114 * t3844;
18070   t3978 = t127 * t3844;
18071   t3981 = t138 * t3844;
18072   t3984 = t151 * t3844;
18073   t3989 = 0.2001e1 * t3853;
18074   t3991 = 0.1334e1 * t3861;
18075   t3992 = t993 * t3851;
18076   t3994 = 0.8879980415970e1 * t990 * t3992;
18077   t3995 = t27 * t1677;
18078   t3996 = t3995 * t594;
18079   t3997 = t518 * t177;
18080   t3998 = t3997 * t3844;
18081   t4001 = t165 * t3851;
18082   t4003 = 0.4221520946622e1 * t595 * t4001;
18083   t4004 = -t3956 + 0.116103763559200e3 * t3958 * t3960 - t3965 + 0.275279392895070e3 * t2790 * t3966 + 0.71765856092574e2 * t1803 * t3969 - 0.9738054195240e1 * t1781 * t3972 - 0.133366650e2 * t1812 * t3975 - 0.47742235275528e2 * t1751 * t3978 + 0.191571209872680e3 * t1759 * t3981 - 0.186479588735370e3 * t1795 * t3984 - 0.4002e1 * t3846 + 0.9338e1 * t3849 - t3989 - 0.5336e1 * t3858 + t3991 + t3994 - 0.106559764991640e3 * t3996 * t3998 + t4003;
18084   t4017 = my_piecewise3(t102, t3953 + t4004, -0.2e1 * t1830 * t184 * t3867 * t616 - t1839 * t184 * t1841 * t3867 + t184 * t3863 * t616 * t617);
18085   t4020 = -0.2e1 * t1369 * t3825 + t405 * t3881 - 0.2e1 * t405 * t3883 - t101 * t4017 + 0.1174e1 * t4017;
18086   t4021 = t4020 * t204;
18087   t4024 = 0.3e1 / 0.8e1 * t8 * t18 * t4021;
18088   t4026 = 0.18554625000000000000e1 * t2855 * t1038;
18089   t4027 = 0.1e1 / sigma[0];
18090   t4028 = t4027 * t29;
18091   t4030 = t1862 * t4028 * t203;
18092   t4032 = 0.41747906250000000000e1 * t636 * t4030;
18093   t4033 = t2879 * t196;
18094   t4035 = t640 * t4033 * t203;
18095   t4037 = 0.46386562500000000000e0 * t636 * t4035;
18096   t4039 = 0.1e1 / t194 / t41;
18097   t4040 = t190 * t4039;
18098   t4042 = t4040 * t195 * t1878;
18099   t4044 = 0.11326164200960098622e2 * t1874 * t4042;
18100   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18101     v2sigma2[0] = t10 * (-t4024 + t4026 - t4032 - t4037 + t4044);
18102 
18103   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18104     v2sigma2[1] = 0.0e0;
18105 
18106   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18107     v2sigma2[2] = 0.0e0;
18108 
18109   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18110     v2sigma2[3] = 0.0e0;
18111 
18112   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18113     v2sigma2[4] = 0.0e0;
18114 
18115   t4046 = t1078 * t1078;
18116   t4047 = t4046 * t363;
18117   t4058 = t1391 * t221;
18118   t4059 = 0.1e1 / t746;
18119   t4061 = t4059 * t19 * t2026;
18120   t4064 = t1075 * t1075;
18121   t4066 = t1057 * t1057;
18122   t4067 = t261 * t4066;
18123   t4068 = t2046 * t4067;
18124   t4070 = t1064 * t4066;
18125   t4071 = t2961 * t4070;
18126   t4073 = my_piecewise3(t242, 0, 0);
18127   t4074 = t261 * t4073;
18128   t4075 = t698 * t4074;
18129   t4076 = 0.3e1 * t4075;
18130   t4077 = t2928 * t346;
18131   t4078 = t748 * t302;
18132   t4079 = t4078 * t4066;
18133   t4080 = t4077 * t4079;
18134   t4082 = t1064 * t4073;
18135   t4083 = t1062 * t4082;
18136   t4084 = 0.2e1 * t4083;
18137   t4085 = -0.6e1 * t4068 + 0.14e2 * t4071 - t4076 - 0.8e1 * t4080 + t4084;
18138   t4086 = t56 * t4085;
18139   t4089 = t1068 * t1068;
18140   t4090 = t56 * t4089;
18141   t4093 = t4085 * t267;
18142   t4096 = t4089 * t267;
18143   t4099 = t4086 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4090 * t2120 - t735 * t4093 / 0.100e3 + t2127 * t4096 / 0.100e3;
18144   t4102 = t37 * t39 * t225 * t231 / 0.288e3 - 0.9e1 / 0.640e3 * t420 * sigma[2] * t1048 * t231 + 0.243e3 / 0.204800e6 * t4058 * t4061 + 0.2e1 * t4064 + 0.2e1 * t270 * t4099;
18145   t4103 = t4102 * t363;
18146   t4105 = t1078 * t1162;
18147   t4108 = t303 * t4073;
18148   t4110 = 0.5967779409441e1 * t762 * t4108;
18149   t4111 = t1102 * t4066;
18150   t4114 = t1102 * t4073;
18151   t4116 = 0.3978519606294e1 * t1099 * t4114;
18152   t4117 = t215 * t2388;
18153   t4118 = t4117 * t770;
18154   t4119 = t847 * t326;
18155   t4120 = t4119 * t4066;
18156   t4123 = t314 * t4073;
18157   t4125 = 0.17415564533880e2 * t771 * t4123;
18158   t4126 = t1115 * t4066;
18159   t4129 = t1115 * t4073;
18160   t4131 = 0.11610376355920e2 * t1112 * t4129;
18161   t4132 = t215 * t2396;
18162   t4133 = t4132 * t779;
18163   t4134 = t855 * t340;
18164   t4135 = t4134 * t4066;
18165   t4138 = t327 * t4073;
18166   t4140 = 0.13319970623955e2 * t780 * t4138;
18167   t4141 = t1128 * t4066;
18168   t4144 = t1128 * t4073;
18169   t4146 = 0.8879980415970e1 * t1125 * t4144;
18170   t4147 = t215 * t2405;
18171   t4148 = t4147 * t788;
18172   t4149 = t864 * t353;
18173   t4150 = t4149 * t4066;
18174   t4153 = t341 * t4073;
18175   t4155 = 0.4221520946622e1 * t789 * t4153;
18176   t4156 = t1141 * t4066;
18177   t4159 = t1141 * t4073;
18178   t4161 = 0.2814347297748e1 * t1138 * t4159;
18179   t4162 = t215 * t2413;
18180   t4163 = t4162 * t797;
18181   t4164 = t873 * t803;
18182   t4165 = t4164 * t4066;
18183   t4168 = t354 * t4073;
18184   t4170 = 0.486902709762e0 * t798 * t4168;
18185   t4171 = -t4110 + 0.75591872519586e2 * t3193 * t4111 + t4116 - 0.31828156850352e2 * t4118 * t4120 + t4125 - 0.290259408898000e3 * t3207 * t4126 - t4131 + 0.116103763559200e3 * t4133 * t4135 - t4140 + 0.275279392895070e3 * t3221 * t4141 + t4146 - 0.106559764991640e3 * t4148 * t4150 + t4155 - 0.104130850016676e3 * t3149 * t4156 - t4161 + 0.39400862168472e2 * t4163 * t4165 - t4170;
18186   t4172 = t1154 * t4066;
18187   t4175 = t1154 * t4073;
18188   t4177 = 0.324601806508e0 * t1151 * t4175;
18189   t4178 = t344 * t317;
18190   t4179 = t215 * t4178;
18191   t4180 = t333 * t319;
18192   t4181 = t4179 * t4180;
18193   t4183 = 0.1e1 / t336 / t299;
18194   t4184 = t4183 * t2330;
18195   t4185 = t4184 * t4066;
18196   t4188 = t290 * t4073;
18197   t4190 = 0.26673330e1 * t754 * t4188;
18198   t4191 = t1089 * t4066;
18199   t4194 = t1089 * t4073;
18200   t4196 = 0.17782220e1 * t1087 * t4194;
18201   t4197 = t215 * t306;
18202   t4198 = t4197 * t295;
18203   t4199 = t838 * t313;
18204   t4200 = t4199 * t4066;
18205   t4203 = 0.2001e1 * t4075;
18206   t4205 = 0.1334e1 * t4083;
18207   t4206 = t341 * t4066;
18208   t4209 = t354 * t4066;
18209   t4212 = t290 * t4066;
18210   t4215 = t303 * t4066;
18211   t4218 = t314 * t4066;
18212   t4221 = t327 * t4066;
18213   t4226 = 0.13957877679844e2 * t3168 * t4172 + t4177 - 0.5193628904128e1 * t4181 * t4185 - t4190 + 0.231168860e2 * t3179 * t4191 + t4196 - 0.106693320e2 * t4198 * t4200 - t4203 - 0.5336e1 * t4080 + t4205 + 0.71765856092574e2 * t2300 * t4206 - 0.9738054195240e1 * t2325 * t4209 - 0.133366650e2 * t2304 * t4212 - 0.47742235275528e2 * t2313 * t4215 + 0.191571209872680e3 * t2284 * t4218 - 0.186479588735370e3 * t2292 * t4221 - 0.4002e1 * t4068 + 0.9338e1 * t4071;
18214   t4239 = my_piecewise3(t278, t4171 + t4226, -t1839 * t2467 * t360 * t4089 - 0.2e1 * t2458 * t360 * t4089 * t616 + t360 * t4085 * t616 * t881);
18215   t4242 = -0.2e1 * t2000 * t4047 + t674 * t4103 - 0.2e1 * t674 * t4105 - t277 * t4239 + 0.1174e1 * t4239;
18216   t4243 = t4242 * t377;
18217   t4246 = 0.3e1 / 0.8e1 * t8 * t212 * t4243;
18218   t4248 = 0.18554625000000000000e1 * t3252 * t1173;
18219   t4249 = 0.1e1 / sigma[2];
18220   t4250 = t4249 * t217;
18221   t4252 = t2488 * t4250 * t376;
18222   t4254 = 0.41747906250000000000e1 * t894 * t4252;
18223   t4255 = t3274 * t369;
18224   t4257 = t898 * t4255 * t376;
18225   t4259 = 0.46386562500000000000e0 * t894 * t4257;
18226   t4261 = 0.1e1 / t367 / t221;
18227   t4262 = t366 * t4261;
18228   t4264 = t4262 * t368 * t2504;
18229   t4266 = 0.11326164200960098622e2 * t2500 * t4264;
18230   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18231     v2sigma2[5] = t10 * (-t4246 + t4248 - t4254 - t4259 + t4266);
18232 
18233   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18234     v2sigmalapl[0] = 0.0e0;
18235 
18236   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18237     v2sigmalapl[1] = 0.0e0;
18238 
18239   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18240     v2sigmalapl[2] = 0.0e0;
18241 
18242   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18243     v2sigmalapl[3] = 0.0e0;
18244 
18245   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18246     v2sigmalapl[4] = 0.0e0;
18247 
18248   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18249     v2sigmalapl[5] = 0.0e0;
18250 
18251   t4268 = t3292 * t943;
18252   t4271 = t940 * t1194;
18253   t4275 = t3302 * t922;
18254   t4276 = t2544 * t4275;
18255   t4278 = t3309 * t922;
18256   t4279 = t2565 * t4278;
18257   t4281 = t3855 * t483;
18258   t4282 = t3326 * t922;
18259   t4283 = t4281 * t4282;
18260   t4285 = -0.6e1 * t4276 + 0.14e2 * t4279 - t3854 - 0.8e1 * t4283 + t3862;
18261   t4286 = t56 * t4285;
18262   t4290 = t87 * t933 * t91;
18263   t4293 = t4285 * t91;
18264   t4296 = t1188 * t933;
18265   t4297 = t4296 * t91;
18266   t4300 = t4286 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t1189 * t4290 - t470 * t4293 / 0.100e3 + t1499 * t4297 / 0.100e3;
18267   t4301 = t94 * t4300;
18268   t4308 = t943 * t1241;
18269   t4310 = t3456 * t922;
18270   t4313 = t3467 * t922;
18271   t4316 = t3910 * t3912;
18272   t4317 = t3504 * t922;
18273   t4320 = -t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 - 0.9738054195240e1 * t2813 * t4310 + 0.13957877679844e2 * t2819 * t4313 - 0.5193628904128e1 * t4316 * t4317;
18274   t4323 = t3363 * t922;
18275   t4326 = t3942 * t501;
18276   t4327 = t3369 * t922;
18277   t4334 = t3958 * t509;
18278   t4335 = t3375 * t922;
18279   t4342 = t3996 * t518;
18280   t4349 = t3893 * t527;
18281   t4356 = t3927 * t492;
18282   t4362 = -0.47742235275528e2 * t2756 * t4282 + 0.75591872519586e2 * t2762 * t4323 - 0.31828156850352e2 * t4326 * t4327 + 0.191571209872680e3 * t2770 * t4323 - 0.290259408898000e3 * t2777 * t4327 + 0.116103763559200e3 * t4334 * t4335 - 0.186479588735370e3 * t2785 * t4327 + 0.275279392895070e3 * t2791 * t4335 - 0.106559764991640e3 * t4342 * t4310 + 0.71765856092574e2 * t2799 * t4335 - 0.104130850016676e3 * t2805 * t4310 + 0.39400862168472e2 * t4349 * t4313 - 0.133366650e2 * t2742 * t4278 + 0.231168860e2 * t2748 * t4282 - 0.106693320e2 * t4356 * t4323 - 0.4002e1 * t4276 + 0.9338e1 * t4279 - 0.5336e1 * t4283;
18283   t4364 = t3529 * t933;
18284   t4372 = my_piecewise3(t102, t4320 + t4362, t184 * t4285 * t616 * t617 - 0.2e1 * t2835 * t4364 - t2843 * t4364);
18285   t4375 = -0.4e1 * t3291 * t4268 + 0.2e1 * t405 * t4271 * t187 + 0.2e1 * t405 * t4301 * t187 - 0.2e1 * t405 * t1195 * t1027 - t405 * t4308 - t101 * t4372 + 0.1174e1 * t4372;
18286   t4377 = t1180 * t4375 * t204;
18287   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18288     v2sigmatau[0] = -0.3e1 / 0.8e1 * t1179 * t4377 + 0.92773125000000000000e0 * t3549 * t1038;
18289 
18290   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18291     v2sigmatau[1] = 0.0e0;
18292 
18293   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18294     v2sigmatau[2] = 0.0e0;
18295 
18296   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18297     v2sigmatau[3] = 0.0e0;
18298 
18299   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18300     v2sigmatau[4] = 0.0e0;
18301 
18302   t4382 = t3566 * t1078;
18303   t4385 = t1075 * t1263;
18304   t4389 = t3576 * t1057;
18305   t4390 = t2941 * t4389;
18306   t4392 = t3583 * t1057;
18307   t4393 = t2962 * t4392;
18308   t4395 = t4077 * t748;
18309   t4396 = t3600 * t1057;
18310   t4397 = t4395 * t4396;
18311   t4399 = -0.6e1 * t4390 + 0.14e2 * t4393 - t4076 - 0.8e1 * t4397 + t4084;
18312   t4400 = t56 * t4399;
18313   t4404 = t263 * t1068 * t267;
18314   t4407 = t4399 * t267;
18315   t4410 = t1257 * t1068;
18316   t4411 = t4410 * t267;
18317   t4414 = t4400 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t1258 * t4404 - t735 * t4407 / 0.100e3 + t2127 * t4411 / 0.100e3;
18318   t4415 = t270 * t4414;
18319   t4422 = t1078 * t1310;
18320   t4424 = t4181 * t4183;
18321   t4425 = t3788 * t1057;
18322   t4432 = -t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 - 0.5193628904128e1 * t4424 * t4425 - 0.133366650e2 * t3163 * t4392 + 0.231168860e2 * t3180 * t4396;
18323   t4433 = t4198 * t838;
18324   t4434 = t3637 * t1057;
18325   t4441 = t4118 * t847;
18326   t4442 = t3643 * t1057;
18327   t4449 = t4133 * t855;
18328   t4450 = t3649 * t1057;
18329   t4457 = t4148 * t864;
18330   t4458 = t3655 * t1057;
18331   t4465 = t4163 * t873;
18332   t4466 = t3661 * t1057;
18333   t4476 = -0.106693320e2 * t4433 * t4434 - 0.47742235275528e2 * t3188 * t4396 + 0.75591872519586e2 * t3194 * t4434 - 0.31828156850352e2 * t4441 * t4442 + 0.191571209872680e3 * t3202 * t4434 - 0.290259408898000e3 * t3208 * t4442 + 0.116103763559200e3 * t4449 * t4450 - 0.186479588735370e3 * t3216 * t4442 + 0.275279392895070e3 * t3222 * t4450 - 0.106559764991640e3 * t4457 * t4458 + 0.71765856092574e2 * t3143 * t4450 - 0.104130850016676e3 * t3150 * t4458 + 0.39400862168472e2 * t4465 * t4466 - 0.9738054195240e1 * t3158 * t4458 + 0.13957877679844e2 * t3169 * t4466 - 0.4002e1 * t4390 + 0.9338e1 * t4393 - 0.5336e1 * t4397;
18334   t4478 = t3803 * t1068;
18335   t4486 = my_piecewise3(t278, t4432 + t4476, t360 * t4399 * t616 * t881 - 0.2e1 * t3232 * t4478 - t3240 * t4478);
18336   t4489 = -0.4e1 * t3565 * t4382 + 0.2e1 * t674 * t4385 * t363 + 0.2e1 * t674 * t4415 * t363 - 0.2e1 * t674 * t1264 * t1162 - t674 * t4422 - t277 * t4486 + 0.1174e1 * t4486;
18337   t4491 = t1249 * t4489 * t377;
18338   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18339     v2sigmatau[5] = -0.3e1 / 0.8e1 * t1179 * t4491 + 0.92773125000000000000e0 * t3821 * t1173;
18340 
18341   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18342     v2lapl2[0] = 0.0e0;
18343 
18344   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18345     v2lapl2[1] = 0.0e0;
18346 
18347   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18348     v2lapl2[2] = 0.0e0;
18349 
18350   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18351     v2lapltau[0] = 0.0e0;
18352 
18353   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18354     v2lapltau[1] = 0.0e0;
18355 
18356   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18357     v2lapltau[2] = 0.0e0;
18358 
18359   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
18360     v2lapltau[3] = 0.0e0;
18361 
18362   t4496 = t1194 * t1194;
18363   t4497 = t95 * t4496;
18364   t4501 = t4496 * t187;
18365   t4504 = t1181 * t1181;
18366   t4505 = t85 * t4504;
18367   t4506 = t1417 * t4505;
18368   t4508 = t929 * t4504;
18369   t4509 = t2564 * t4508;
18370   t4511 = t3856 * t4504;
18371   t4512 = t3855 * t4511;
18372   t4514 = -0.6e1 * t4506 + 0.14e2 * t4509 - t3854 - 0.8e1 * t4512 + t3862;
18373   t4515 = t56 * t4514;
18374   t4518 = t1188 * t1188;
18375   t4519 = t56 * t4518;
18376   t4525 = t4518 * t91;
18377   t4528 = t4515 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4519 * t1492 - t470 * t4514 * t91 / 0.100e3 + t1499 * t4525 / 0.100e3;
18378   t4529 = t94 * t4528;
18379   t4536 = t3959 * t4504;
18380   t4539 = t993 * t4504;
18381   t4542 = t165 * t4504;
18382   t4545 = t178 * t4504;
18383   t4548 = t114 * t4504;
18384   t4551 = t127 * t4504;
18385   t4554 = t138 * t4504;
18386   t4557 = t151 * t4504;
18387   t4560 = t3997 * t4504;
18388   t4563 = t1006 * t4504;
18389   t4566 = t3894 * t4504;
18390   t4569 = t1019 * t4504;
18391   t4572 = t3913 * t4504;
18392   t4575 = t954 * t4504;
18393   t4578 = t3928 * t4504;
18394   t4581 = t967 * t4504;
18395   t4584 = t3943 * t4504;
18396   t4587 = 0.116103763559200e3 * t3958 * t4536 + 0.275279392895070e3 * t2790 * t4539 + 0.71765856092574e2 * t1803 * t4542 - 0.9738054195240e1 * t1781 * t4545 - 0.133366650e2 * t1812 * t4548 - 0.47742235275528e2 * t1751 * t4551 + 0.191571209872680e3 * t1759 * t4554 - 0.186479588735370e3 * t1795 * t4557 - 0.106559764991640e3 * t3996 * t4560 - 0.104130850016676e3 * t2804 * t4563 + 0.39400862168472e2 * t3893 * t4566 + 0.13957877679844e2 * t2818 * t4569 - 0.5193628904128e1 * t3910 * t4572 + 0.231168860e2 * t2747 * t4575 - 0.106693320e2 * t3927 * t4578 + 0.75591872519586e2 * t2761 * t4581 - 0.31828156850352e2 * t3942 * t4584;
18397   t4588 = t980 * t4504;
18398   t4594 = -0.290259408898000e3 * t2776 * t4588 - 0.4002e1 * t4506 + 0.9338e1 * t4509 - 0.5336e1 * t4512 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003;
18399   t4607 = my_piecewise3(t102, t4587 + t4594, -0.2e1 * t1830 * t184 * t4518 * t616 - t1839 * t184 * t1841 * t4518 + t184 * t4514 * t616 * t617);
18400   t4610 = -0.8e1 * t1369 * t4497 * t187 + 0.2e1 * t405 * t4501 + 0.2e1 * t405 * t4529 * t187 - 0.4e1 * t405 * t1195 * t1241 - t101 * t4607 + 0.1174e1 * t4607;
18401   t4612 = t1180 * t4610 * t204;
18402   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18403     v2tau2[0] = -0.3e1 / 0.8e1 * t1179 * t4612;
18404 
18405   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18406     v2tau2[1] = 0.0e0;
18407 
18408   t4615 = t1263 * t1263;
18409   t4616 = t271 * t4615;
18410   t4620 = t4615 * t363;
18411   t4623 = t1250 * t1250;
18412   t4624 = t261 * t4623;
18413   t4625 = t2046 * t4624;
18414   t4627 = t1064 * t4623;
18415   t4628 = t2961 * t4627;
18416   t4630 = t4078 * t4623;
18417   t4631 = t4077 * t4630;
18418   t4633 = -0.6e1 * t4625 + 0.14e2 * t4628 - t4076 - 0.8e1 * t4631 + t4084;
18419   t4634 = t56 * t4633;
18420   t4637 = t1257 * t1257;
18421   t4638 = t56 * t4637;
18422   t4644 = t4637 * t267;
18423   t4647 = t4634 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4638 * t2120 - t735 * t4633 * t267 / 0.100e3 + t2127 * t4644 / 0.100e3;
18424   t4648 = t270 * t4647;
18425   t4655 = t1089 * t4623;
18426   t4658 = t4199 * t4623;
18427   t4661 = t1102 * t4623;
18428   t4664 = t4119 * t4623;
18429   t4667 = t1115 * t4623;
18430   t4670 = t4134 * t4623;
18431   t4673 = t1128 * t4623;
18432   t4676 = t4149 * t4623;
18433   t4679 = t1141 * t4623;
18434   t4682 = t4164 * t4623;
18435   t4685 = t1154 * t4623;
18436   t4688 = t4184 * t4623;
18437   t4691 = t314 * t4623;
18438   t4694 = t327 * t4623;
18439   t4697 = t341 * t4623;
18440   t4700 = t354 * t4623;
18441   t4703 = t290 * t4623;
18442   t4706 = 0.231168860e2 * t3179 * t4655 - 0.106693320e2 * t4198 * t4658 + 0.75591872519586e2 * t3193 * t4661 - 0.31828156850352e2 * t4118 * t4664 - 0.290259408898000e3 * t3207 * t4667 + 0.116103763559200e3 * t4133 * t4670 + 0.275279392895070e3 * t3221 * t4673 - 0.106559764991640e3 * t4148 * t4676 - 0.104130850016676e3 * t3149 * t4679 + 0.39400862168472e2 * t4163 * t4682 + 0.13957877679844e2 * t3168 * t4685 - 0.5193628904128e1 * t4181 * t4688 + 0.191571209872680e3 * t2284 * t4691 - 0.186479588735370e3 * t2292 * t4694 + 0.71765856092574e2 * t2300 * t4697 - 0.9738054195240e1 * t2325 * t4700 - 0.133366650e2 * t2304 * t4703;
18443   t4707 = t303 * t4623;
18444   t4713 = -0.47742235275528e2 * t2313 * t4707 - 0.4002e1 * t4625 + 0.9338e1 * t4628 - 0.5336e1 * t4631 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205;
18445   t4726 = my_piecewise3(t278, t4706 + t4713, -t1839 * t2467 * t360 * t4637 - 0.2e1 * t2458 * t360 * t4637 * t616 + t360 * t4633 * t616 * t881);
18446   t4729 = -0.8e1 * t2000 * t4616 * t363 + 0.2e1 * t674 * t4620 + 0.2e1 * t674 * t4648 * t363 - 0.4e1 * t674 * t1264 * t1310 - t277 * t4726 + 0.1174e1 * t4726;
18447   t4731 = t1249 * t4729 * t377;
18448   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
18449     v2tau2[2] = -0.3e1 / 0.8e1 * t1179 * t4731;
18450 
18451 #ifndef XC_DONT_COMPILE_KXC
18452 
18453   if(order < 3) return;
18454 
18455 
18456   t4734 = t211 * t1922;
18457   t4736 = t8 * t4734 * t378;
18458   t4737 = 0.5e1 / 0.36e2 * t4736;
18459   t4739 = t8 * t398 * t1850;
18460   t4741 = t16 * t1922;
18461   t4743 = t8 * t4741 * t205;
18462   t4744 = 0.5e1 / 0.36e2 * t4743;
18463   t4745 = t403 * t403;
18464   t4747 = t402 / t4745;
18465   t4748 = t1370 * t477;
18466   t4752 = t478 * t1506;
18467   t4758 = 0.1e1 / t442;
18468   t4759 = sigma[0] * t4758;
18469   t4762 = 0.1e1 / t926;
18470   t4767 = 0.1e1 / t1646;
18471   t4772 = t27 * t551;
18472   t4775 = 0.1e1 / t4772 * t19 * t1397;
18473   t4778 = t417 * t417;
18474   t4779 = t4778 * t419;
18475   t4780 = t1392 * sigma[0];
18476   t4781 = t4779 * t4780;
18477   t4784 = t39 * t52;
18478   t4785 = 0.1e1 / t1654 * t36 * t4784;
18479   t4794 = t494 * t22 * t1453;
18480   t4795 = t445 * t4794;
18481   t4797 = t1412 * t1449;
18482   t4799 = t442 * t66;
18483   t4800 = t4799 * t444;
18484   t4801 = t84 * t1418;
18485   t4802 = t4801 * t1425;
18486   t4803 = t4800 * t4802;
18487   t4805 = t84 * t1438;
18488   t4806 = t4805 * t1425;
18489   t4807 = t1423 * t4806;
18490   t4809 = t411 * t67;
18491   t4810 = t4809 * t928;
18492   t4811 = t19 * t38;
18493   t4812 = t1424 * t4811;
18494   t4813 = t4810 * t4812;
18495   t4815 = t38 * t463;
18496   t4816 = t1650 * t4815;
18497   t4817 = t1443 * t4816;
18498   t4820 = t485 * t22 * t1483;
18499   t4821 = t445 * t4820;
18500   t4823 = t1478 * t444;
18501   t4824 = t4823 * t1426;
18502   t4826 = t430 * t1484;
18503   t4832 = my_piecewise3(t65, -0.440e3 / 0.27e2 * tau[0] * t1375 + 0.154e3 / 0.27e2 * t4759, 0);
18504   t4833 = t85 * t4832;
18505   t4834 = t433 * t4833;
18506   t4836 = t117 * t68;
18507   t4838 = t111 * t84 * t418;
18508   t4839 = t4836 * t4838;
18509   t4844 = t195 * t66;
18510   t4847 = t25 * t67;
18511   t4853 = t78 * t66;
18512   t4854 = t4853 * t77;
18513   t4859 = t406 * t67;
18514   t4862 = t79 * t438;
18515   t4865 = t42 * t1418;
18516   t4868 = t1374 * t66;
18517   t4869 = t4868 * t444;
18518   t4870 = t438 * t19;
18519   t4871 = t4870 * t38;
18520   t4875 = t1438 * t36 * t22;
18521   t4878 = t81 * t4832;
18522   t4881 = t44 * t67;
18523   t4882 = t928 * t418;
18524   t4885 = 0.280e3 / 0.27e2 * t26 * t67 * t81 + 0.140e3 / 0.3e1 * t4844 * t456 - 0.268e3 / 0.9e1 * t4847 * t461 + 0.20e2 * t451 * t1418 * t81 - 0.44e2 * t4854 * t1472 + 0.20e2 * t1460 * t1475 + 0.108e3 * t4859 * t1480 + 0.6e1 * t4862 * t1475 - 0.6e1 * t4865 * t461 + 0.54e2 * t4869 * t4871 - 0.6e1 * t1470 * t4875 + 0.2e1 * t455 * t4878 - 0.108e3 * t4881 * t4882;
18525   t4886 = t450 * t4885;
18526   t4887 = t69 * t4886;
18527   t4888 = t1469 * t1419;
18528   t4891 = t1453 * t463;
18529   t4892 = t77 * t137 * t4891;
18530   t4893 = t69 * t4892;
18531   t4895 = t1463 * t439;
18532   t4897 = 0.9e1 * t4795 - 0.48e2 * t4797 + 0.27e2 * t4803 + 0.27e2 / 0.2e1 * t4807 - 0.162e3 * t4813 + 0.54e2 * t4817 - 0.9e1 / 0.2e1 * t4821 + 0.144e3 * t4824 + 0.15e2 * t4826 - 0.3e1 * t4834 + 0.270e3 * t4839 + t4887 - 0.90e2 * t4888 + 0.6e1 * t4893 - 0.180e3 * t4895;
18533   t4898 = t1406 * t464;
18534   t4900 = t459 * t1439;
18535   t4902 = t430 * t1454;
18536   t4905 = t406 * t68 * t444;
18537   t4906 = t4905 * t447;
18538   t4908 = t459 * t77;
18539   t4909 = t4908 * t1431;
18540   t4912 = t44 * t68 * t928;
18541   t4913 = t4912 * t1445;
18542   t4915 = t1430 * t1483;
18543   t4916 = t1429 * t4915;
18544   t4918 = t69 * t77;
18545   t4919 = t126 * t463;
18546   t4920 = t4919 * t1483;
18547   t4921 = t4918 * t4920;
18548   t4923 = t1631 * t1453;
18549   t4924 = t1429 * t4923;
18550   t4926 = t113 * t1418;
18551   t4927 = t4926 * t463;
18552   t4928 = t2544 * t4927;
18553   t4930 = t1424 * t1438;
18554   t4931 = t2544 * t4930;
18555   t4933 = t113 * t1438;
18556   t4934 = t4933 * t463;
18557   t4935 = t1429 * t4934;
18558   t4937 = t444 * t113;
18559   t4938 = t1422 * t4937;
18560   t4939 = t1471 * t1448;
18561   t4940 = t4938 * t4939;
18562   t4942 = t25 * t68;
18563   t4943 = t4942 * t85;
18564   t4945 = t1418 * t438;
18565   t4946 = t43 * t4945;
18566   t4947 = t4946 * t85;
18567   t4949 = 0.60e2 * t4898 - 0.45e2 * t4900 - 0.30e2 * t4902 + 0.314e3 / 0.3e1 * t4906 + 0.90e2 * t4909 - 0.306e3 * t4913 + 0.9e1 * t4916 - 0.6e1 * t4921 - 0.18e2 * t4924 + 0.18e2 * t4928 - 0.18e2 * t4931 + 0.9e1 * t4935 - 0.27e2 * t4940 - 0.60e2 * t4943 - 0.6e1 * t4947;
18568   t4950 = t4897 + t4949;
18569   t4951 = t56 * t4950;
18570   t4956 = t1490 * t466;
18571   t4957 = t56 * t4956;
18572   t4960 = t89 * t91;
18573   t4967 = t1486 * t466 * t91;
18574   t4970 = t56 * t1840;
18575   t4974 = -0.539e3 / 0.21870e5 * t57 * t48 * t4758 + t4951 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t1487 * t2587 - 0.3e1 / 0.100e3 * t4957 * t91 + 0.3e1 / 0.50e2 * t4957 * t4960 - t470 * t4950 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t4967 - t4970 * t4956 * t91 / 0.100e3;
18576   t4977 = -0.1540e4 / 0.6561e4 * t24 * t4759 - 0.209e3 / 0.486e3 * t40 * t41 * t4762 * t52 + 0.797e3 / 0.480e3 * t420 * t421 * t4767 * t52 - 0.729e3 / 0.3200e4 * t1393 * t4775 + 0.243e3 / 0.32000e5 * t4781 * t4785 + 0.6e1 * t474 * t1503 + 0.2e1 * t94 * t4974;
18577   t4996 = t151 * t4832;
18578   t4999 = t590 * t4885;
18579   t5002 = t987 * t107;
18580   t5004 = t124 * t113 * t418;
18581   t5007 = t2681 * t120;
18582   t5009 = t135 * t126 * t418;
18583   t5012 = 0.60030000000000000000e1 * t4795 - 0.32016000000000000000e2 * t4797 + 0.18009000000000000000e2 * t4803 + 0.90045000000000000000e1 * t4807 - 0.10805400000000000000e3 * t4813 + 0.36018000000000000000e2 * t4817 - 0.30015000000000000000e1 * t4821 + 0.96048000000000000000e2 * t4824 + 0.332999265598875e3 * t547 * t1718 - 0.13319970623955e2 * t586 * t4996 + 0.4439990207985e1 * t145 * t4999 + 0.6721679160e3 * t5002 * t5004 + 0.29540508076732950000e4 * t5007 * t5009;
18584   t5013 = t2688 * t132;
18585   t5015 = t148 * t137 * t418;
18586   t5018 = t2733 * t144;
18587   t5020 = t162 * t150 * t418;
18588   t5023 = t168 * t158;
18589   t5025 = t175 * t164 * t418;
18590   t5028 = t2668 * t171;
18591   t5030 = t2651 * t177 * t418;
18592   t5033 = t1000 * t603;
18593   t5042 = t178 * t4832;
18594   t5045 = t610 * t4885;
18595   t5050 = t114 * t4832;
18596   t5053 = t564 * t4885;
18597   t5056 = -0.14263347353247720e5 * t5013 * t5015 + 0.16303644043720920000e5 * t5018 * t5020 - 0.7218800818723620e4 * t5023 * t5025 + 0.11086774701280740000e4 * t5028 * t5030 - 0.1738242673850340e4 * t5033 * t605 + 0.579414224616780e3 * t1580 * t611 - 0.51124784525010e2 * t1763 * t1768 + 0.17041594841670e2 * t557 * t1773 - 0.486902709762e0 * t604 * t5042 + 0.162300903254e0 * t172 * t5045 + 0.266733300e2 * t533 * t1741 - 0.26673330e1 * t560 * t5050 + 0.8891110e0 * t108 * t5053;
18598   t5058 = t961 * t576;
18599   t5067 = t138 * t4832;
18600   t5070 = t581 * t4885;
18601   t5073 = t974 * t585;
18602   t5086 = t127 * t4832;
18603   t5089 = 0.19853743568623200e5 * t5058 * t578 - 0.6617914522874400e4 * t1574 * t582 + 0.1044933872032800e4 * t1776 * t1701 - 0.348311290677600e3 * t543 * t1707 + 0.17415564533880e2 * t577 * t5067 - 0.5805188177960e1 * t133 * t5070 - 0.23975947123119000e5 * t5073 * t587 + 0.7991982374373000e4 * t1577 * t591 - 0.998997796796625e3 * t1710 * t1715 + 0.1253233675982610e4 * t1565 * t573 - 0.268550073424845e3 * t1744 * t1695 + 0.89516691141615e2 * t536 * t1698 - 0.5967779409441e1 * t568 * t5086;
18604   t5090 = t572 * t4885;
18605   t5093 = t988 * t594;
18606   t5102 = t165 * t4832;
18607   t5105 = t599 * t4885;
18608   t5108 = t104 * t170;
18609   t5115 = t551 * t119;
18610   t5119 = 0.1e1 / t608 / t112;
18611   t5121 = t175 * t5119 * t4891;
18612   t5126 = 0.1989259803147e1 * t121 * t5090 + 0.11018169670683420e5 * t5093 * t596 - 0.3672723223561140e4 * t1568 * t600 + 0.379936885195980e3 * t1721 * t1726 - 0.126645628398660e3 * t553 * t1729 + 0.4221520946622e1 * t595 * t5102 - 0.1407173648874e1 * t159 * t5105 - 0.7201799100e3 * t5108 * t561 + 0.2400599700e3 * t1571 * t565 - 0.800199900e2 * t1732 * t1738 - 0.3759701027947830e4 * t5115 * t569 + 0.11685665034288e2 * t172 * t5121 + 0.1741556453388000e4 * t543 * t1792;
18613   t5130 = t135 * t177 * t4891;
18614   t5135 = t142 * t132;
18615   t5136 = t151 * t4945;
18616   t5144 = t111 * t150 * t4891;
18617   t5149 = t118 * t107;
18618   t5150 = t127 * t4945;
18619   t5157 = t169 * t158;
18620   t5158 = t178 * t4945;
18621   t5164 = t148 * t609 * t4891;
18622   t5167 = -0.174155645338800e3 * t133 * t5130 - 0.13985969155152750e5 * t2624 * t1796 - 0.2424234653559810e4 * t5135 * t5136 - 0.1997995593593250e4 * t547 * t1800 - 0.800199900e2 * t533 * t1748 + 0.106693320e2 * t108 * t5144 - 0.2148400587398760e4 * t2609 * t1752 - 0.334195646928696e3 * t5149 * t5150 - 0.358066764566460e3 * t536 * t1756 - 0.1022495690500200e4 * t2640 * t1782 - 0.185023029709560e3 * t5157 * t5158 - 0.136332758733360e3 * t557 * t1788 + 0.186479588735370e3 * t145 * t5164;
18623   t5170 = t156 * t144;
18624   t5171 = t165 * t4945;
18625   t5177 = t162 * t1786 * t4891;
18626   t5182 = t105 * t68;
18627   t5183 = t114 * t4945;
18628   t5187 = t124 * t164 * t4891;
18629   t5192 = t131 * t120;
18630   t5193 = t138 * t4945;
18631   t5200 = 0.6458927048331660e4 * t2632 * t1804 + 0.1148253697481184e4 * t5170 * t5171 + 0.886519398790620e3 * t553 * t1808 - 0.78801724336944e2 * t159 * t5177 - 0.4000999500e3 * t2569 * t1813 - 0.533466600e2 * t5182 * t5183 + 0.39785196062940e2 * t121 * t5187 + 0.11494272592360800e5 * t2616 * t1760 + 0.1915712098726800e4 * t5192 * t5193 + 0.10005e2 * t4826 - 0.2001e1 * t4834 + 0.18009000000000000000e3 * t4839 + 0.667e0 * t4887;
18632   t5207 = t117 * t107;
18633   t5210 = t2733 * t158;
18634   t5213 = t987 * t120;
18635   t5217 = t26 * t105;
18636   t5219 = t5217 * t107 * t953;
18637   t5222 = t26 * t118;
18638   t5224 = t5222 * t120 * t966;
18639   t5227 = t26 * t131;
18640   t5229 = t5227 * t132 * t979;
18641   t5232 = t1763 * t175;
18642   t5235 = -0.60030e2 * t4888 + 0.4002e1 * t4893 - 0.120060e3 * t4895 + 0.40020e2 * t4898 - 0.30015e2 * t4900 - 0.3200799600e3 * t5207 * t114 + 0.5713125014428440e4 * t5210 * t165 - 0.1810226420863770e4 * t5213 * t127 - 0.20010e2 * t4902 - 0.89622388800000000000e3 * t5219 * t1651 - 0.42072844836559050000e4 * t5224 * t1658 + 0.21055417521460920000e5 * t5229 * t1666 + 0.715746983350140e3 * t5232 * t1617;
18643   t5236 = t1786 * t438;
18644   t5237 = t5236 * t1453;
18645   t5240 = t1710 * t148;
18646   t5243 = t1626 * t1453;
18647   t5246 = t1721 * t162;
18648   t5249 = t1616 * t1453;
18649   t5252 = t1732 * t111;
18650   t5255 = t26 * t142;
18651   t5257 = t5255 * t144 * t992;
18652   t5260 = t26 * t156;
18653   t5262 = t5260 * t158 * t1005;
18654   t5265 = t26 * t169;
18655   t5267 = t5265 * t171 * t1018;
18656   t5270 = t1636 * t1453;
18657   t5273 = t1744 * t124;
18658   t5276 = t1642 * t1453;
18659   t5279 = t1776 * t135;
18660   t5282 = t164 * t1438;
18661   t5283 = t5282 * t463;
18662   t5286 = -0.81799655240016e2 * t1615 * t5237 + 0.9989977967966250e4 * t5240 * t1622 - 0.1198797356155950e4 * t1620 * t5243 - 0.4559242622351760e4 * t5246 * t1627 + 0.531911639274372e3 * t1625 * t5249 + 0.3200799600e3 * t5252 * t1632 - 0.24615305713068840000e5 * t5257 * t1674 + 0.11068827922042884000e5 * t5262 * t1682 - 0.17192534681696220000e4 * t5267 * t1690 - 0.480119940e2 * t1630 * t5270 + 0.1611300440549070e4 * t5273 * t1637 - 0.214840058739876e3 * t1635 * t5276 - 0.8359470976262400e4 * t5279 * t1643 + 0.199799559359325e3 * t1620 * t5283;
18663   t5290 = t1621 * t1483;
18664   t5293 = t609 * t1418;
18665   t5294 = t5293 * t463;
18666   t5297 = t1626 * t1438;
18667   t5300 = t609 * t1438;
18668   t5301 = t5300 * t463;
18669   t5304 = t1616 * t1483;
18670   t5307 = t172 * t175;
18671   t5308 = t1786 * t463;
18672   t5309 = t5308 * t1483;
18673   t5312 = t164 * t1453;
18674   t5313 = t5312 * t438;
18675   t5316 = t133 * t135;
18676   t5317 = t164 * t463;
18677   t5318 = t5317 * t1483;
18678   t5321 = t164 * t1418;
18679   t5322 = t5321 * t463;
18680   t5325 = t1642 * t1438;
18681   t5328 = t159 * t162;
18682   t5329 = t609 * t463;
18683   t5330 = t5329 * t1483;
18684   t5333 = t126 * t1418;
18685   t5334 = t5333 * t463;
18686   t5337 = t1430 * t1438;
18687   t5340 = 0.199799559359325e3 * t1620 * t5290 + 0.204499138100040e3 * t2813 * t5294 - 0.29214162585720e2 * t2813 * t5297 + 0.10224956905002e2 * t1615 * t5301 + 0.10224956905002e2 * t1615 * t5304 - 0.3895221678096e1 * t5307 * t5309 + 0.1044933872032800e4 * t1641 * t5313 + 0.87077822669400e2 * t5316 * t5318 + 0.2797193831030550e4 * t2785 * t5322 - 0.559438766206110e3 * t2785 * t5325 + 0.29550646626354e2 * t5328 * t5330 + 0.800199900e2 * t2742 * t5334 - 0.400099950e2 * t2742 * t5337;
18688   t5341 = t126 * t1438;
18689   t5342 = t5341 * t463;
18690   t5345 = t1631 * t1483;
18691   t5348 = t108 * t111;
18692   t5349 = t137 * t463;
18693   t5350 = t5349 * t1483;
18694   t5353 = t137 * t1418;
18695   t5354 = t5353 * t463;
18696   t5357 = t1631 * t1438;
18697   t5360 = t137 * t1438;
18698   t5361 = t5360 * t463;
18699   t5364 = t1636 * t1483;
18700   t5367 = t145 * t148;
18701   t5368 = t177 * t463;
18702   t5369 = t5368 * t1483;
18703   t5372 = t177 * t1418;
18704   t5373 = t5372 * t463;
18705   t5376 = t1621 * t1438;
18706   t5379 = t177 * t1438;
18707   t5380 = t5379 * t463;
18708   t5383 = t1626 * t1483;
18709   t5386 = t121 * t124;
18710   t5387 = t150 * t463;
18711   t5388 = t5387 * t1483;
18712   t5391 = 0.160039980e2 * t1630 * t5342 + 0.160039980e2 * t1630 * t5345 - 0.80019990e1 * t5348 * t5350 + 0.429680117479752e3 * t2756 * t5354 - 0.143226705826584e3 * t2756 * t5357 + 0.53710014684969e2 * t1635 * t5361 + 0.53710014684969e2 * t1635 * t5364 - 0.79919823743730e2 * t5367 * t5369 - 0.1291785409666332e4 * t2799 * t5373 + 0.215297568277722e3 * t2799 * t5376 - 0.75987377039196e2 * t1625 * t5380 - 0.75987377039196e2 * t1625 * t5383 - 0.23871117637764e2 * t5386 * t5388;
18713   t5393 = t150 * t1418;
18714   t5394 = t5393 * t463;
18715   t5397 = t1636 * t1438;
18716   t5400 = t150 * t1438;
18717   t5401 = t5400 * t463;
18718   t5404 = t1642 * t1483;
18719   t5407 = t27 * t1000;
18720   t5409 = t5407 * t171 * t527;
18721   t5413 = t4772 * t120 * t492;
18722   t5416 = t27 * t104;
18723   t5418 = t5416 * t107 * t483;
18724   t5421 = t27 * t988;
18725   t5423 = t5421 * t158 * t518;
18726   t5426 = t27 * t974;
18727   t5428 = t5426 * t144 * t509;
18728   t5431 = t27 * t961;
18729   t5433 = t5431 * t132 * t501;
18730   t5439 = -0.2298854518472160e4 * t2770 * t5394 + 0.574713629618040e3 * t2770 * t5397 - 0.208986774406560e3 * t1641 * t5401 - 0.208986774406560e3 * t1641 * t5404 + 0.88610883146575533333e3 * t5409 * t530 + 0.19687041185144810000e4 * t5413 * t495 + 0.38646691466666666667e3 * t5418 * t486 - 0.56352614058574120000e4 * t5423 * t521 + 0.12319492830422380000e5 * t5428 * t512 - 0.10273248012263213333e5 * t5433 * t504 + 0.69812666666666666667e2 * t4906 + 0.60030e2 * t4909 - 0.20410200000000000000e3 * t4913;
18731   t5446 = t1554 * t3894;
18732   t5449 = t1537 * t3959;
18733   t5452 = t1545 * t3997;
18734   t5455 = t1512 * t3856;
18735   t5458 = t1521 * t3928;
18736   t5461 = t1529 * t3943;
18737   t5464 = t2688 * t144;
18738   t5467 = 0.6003e1 * t4916 - 0.4002e1 * t4921 - 0.12006e2 * t4924 + 0.12006e2 * t4928 - 0.12006e2 * t4931 + 0.6003e1 * t4935 - 0.21472409500504200000e3 * t5446 * t4939 - 0.29969933903898750000e4 * t5449 * t4939 + 0.1367772786705528e4 * t5452 * t4939 - 0.960239880e2 * t5455 * t4939 - 0.48339013216472100000e3 * t5458 * t4939 + 0.2507841292878720e4 * t5461 * t4939 - 0.12254372974038600e5 * t5464 * t151;
18739   t5471 = t1673 * t4815;
18740   t5474 = t1670 * t585;
18741   t5475 = t5474 * t992;
18742   t5476 = t38 * t438;
18743   t5477 = t1673 * t5476;
18744   t5480 = t1681 * t4815;
18745   t5483 = t1678 * t594;
18746   t5484 = t5483 * t1005;
18747   t5485 = t1681 * t5476;
18748   t5488 = t1689 * t4815;
18749   t5491 = t1686 * t603;
18750   t5492 = t5491 * t1018;
18751   t5493 = t1689 * t5476;
18752   t5496 = t609 * t19;
18753   t5497 = t5496 * t4815;
18754   t5500 = t137 * t1453;
18755   t5501 = t5500 * t1425;
18756   t5504 = t489 * t143;
18757   t5505 = t5504 * t492;
18758   t5506 = t5333 * t1425;
18759   t5509 = t150 * t1453;
18760   t5510 = t5509 * t1425;
18761   t5513 = t498 * t963;
18762   t5514 = t5513 * t501;
18763   t5515 = t5353 * t1425;
18764   t5518 = t1647 * t170;
18765   t5519 = t5518 * t953;
18766   t5520 = t1650 * t5476;
18767   t5523 = -0.18009000000000000000e2 * t4940 - 0.4075242100927920e4 * t1664 * t5471 - 0.14385568273871400000e5 * t5475 * t5477 + 0.47951894246238000000e4 * t1672 * t5480 + 0.6496920736851258e4 * t5484 * t5485 - 0.2165640245617086e4 * t1680 * t5488 - 0.10122707335951980000e4 * t5492 * t5493 + 0.33742357786506600000e3 * t1688 * t5497 + 0.240059970e2 * t484 * t5501 + 0.64452017621962800000e3 * t5505 * t5506 + 0.10742002936993800000e3 * t493 * t5510 - 0.3448281777708240e4 * t5514 * t5515 - 0.5041259370e3 * t5519 * t5520;
18768   t5524 = t1657 * t4815;
18769   t5527 = t4933 * t1425;
18770   t5530 = t150 * t1483;
18771   t5531 = t5530 * t1425;
18772   t5534 = t1600 * t585;
18773   t5535 = t5534 * t509;
18774   t5540 = t5400 * t1425;
18775   t5543 = t164 * t1483;
18776   t5544 = t5543 * t1425;
18777   t5547 = t1610 * t603;
18778   t5548 = t5547 * t527;
18779   t5553 = t5379 * t1425;
18780   t5556 = t609 * t1483;
18781   t5557 = t5556 * t1425;
18782   t5560 = t1595 * t576;
18783   t5561 = t5560 * t501;
18784   t5566 = 0.1680419790e3 * t1649 * t5524 + 0.240059970e2 * t1513 * t5527 + 0.104493387203280e3 * t502 * t5531 + 0.15184766511308700000e5 * t5535 * t1539 - 0.50615888371029000000e4 * t1602 * t1542 + 0.29969933903898750000e3 * t1538 * t5540 - 0.99899779679662500000e2 * t510 * t5544 + 0.10838454319302120000e4 * t5548 * t1556 - 0.36128181064340400000e3 * t1612 * t1560 + 0.15337435357503000000e2 * t1555 * t5553 - 0.51124784525010000000e1 * t528 * t5557 - 0.12748193238800160000e5 * t5561 * t1531 + 0.42493977462667200000e4 * t1597 * t1534;
18785   t5568 = t5360 * t1425;
18786   t5571 = t126 * t1483;
18787   t5572 = t5571 * t1425;
18788   t5575 = t1590 * t119;
18789   t5576 = t5575 * t492;
18790   t5581 = t5341 * t1425;
18791   t5584 = t137 * t1483;
18792   t5585 = t5584 * t1425;
18793   t5588 = t1605 * t594;
18794   t5589 = t5588 * t518;
18795   t5594 = t5282 * t1425;
18796   t5597 = t177 * t1483;
18797   t5598 = t5597 * t1425;
18798   t5601 = t1583 * t170;
18799   t5602 = t5601 * t483;
18800   t5607 = t2681 * t132;
18801   t5610 = -0.313480161609840e3 * t1530 * t5568 - 0.80019990e1 * t484 * t5572 + 0.24706606755085740000e4 * t5576 * t1523 - 0.82355355850285800000e3 * t1592 * t1526 + 0.80565022027453500000e2 * t1522 * t5581 - 0.26855007342484500000e2 * t493 * t5585 - 0.69148513105668360000e4 * t5589 * t1547 + 0.23049504368556120000e4 * t1607 * t1550 - 0.113981065558794e3 * t1546 * t5594 + 0.37993688519598e2 * t519 * t5598 + 0.49612393800000000000e3 * t5602 * t1515 - 0.16537464600000000000e3 * t1585 * t1518 + 0.9926871784311600e4 * t5607 * t138;
18802   t5613 = t1654 * t119;
18803   t5614 = t5613 * t966;
18804   t5615 = t1657 * t5476;
18805   t5618 = t1665 * t4815;
18806   t5621 = t1662 * t576;
18807   t5622 = t5621 * t979;
18808   t5623 = t1665 * t5476;
18809   t5626 = t524 * t1002;
18810   t5627 = t5626 * t527;
18811   t5628 = t5372 * t1425;
18812   t5631 = t1786 * t1453;
18813   t5632 = t5631 * t1425;
18814   t5635 = t5312 * t1425;
18815   t5638 = t507 * t976;
18816   t5639 = t5638 * t509;
18817   t5640 = t5393 * t1425;
18818   t5643 = t177 * t1453;
18819   t5644 = t5643 * t1425;
18820   t5647 = t515 * t157;
18821   t5648 = t5647 * t518;
18822   t5649 = t5321 * t1425;
18823   t5652 = t609 * t1453;
18824   t5653 = t5652 * t1425;
18825   t5656 = t481 * t106;
18826   t5657 = t5656 * t483;
18827   t5658 = t4926 * t1425;
18828   t5661 = t168 * t171;
18829   t5664 = -0.40020e2 * t4943 - 0.4002e1 * t4947 - 0.24169506608236050000e4 * t5614 * t5615 + 0.80565022027453500000e3 * t1656 * t5618 + 0.12225726302783760e5 * t5622 * t5623 + 0.30674870715006000000e3 * t5627 * t5628 + 0.40899827620008000000e2 * t528 * t5632 - 0.522466936016400e3 * t502 * t5635 + 0.41957907465458250000e4 * t5639 * t5640 + 0.59939867807797500000e3 * t510 * t5644 - 0.1937678114499498e4 * t5648 * t5649 - 0.265955819637186e3 * t519 * t5653 + 0.1200299850e3 * t5657 * t5658 - 0.910508067254940e3 * t5661 * t178;
18830   t5673 = t466 * t184;
18831   t5674 = t5673 * t1486;
18832   t5677 = t1840 * t87;
18833   t5678 = 0.1e1 / t5677;
18834   t5689 = params->d * t1838 * params->c2;
18835   t5691 = 0.1e1 / t1840 / t89;
18836   t5696 = my_piecewise3(t102, t5012 + t5056 + t5089 + t5126 + t5167 + t5200 + t5235 + t5286 + t5340 + t5391 + t5439 + t5467 + t5523 + t5566 + t5610 + t5664, 0.6e1 * t1839 * t184 * t4956 * t5678 + 0.6e1 * t184 * t1841 * t4956 * t616 + t184 * t4950 * t616 * t617 + t184 * t4956 * t5689 * t5691 - 0.6e1 * t2835 * t5674 - 0.3e1 * t2843 * t5674);
18837   t5699 = 0.6e1 * t4747 * t4748 * t187 - 0.6e1 * t1369 * t4752 + 0.6e1 * t1369 * t1370 * t621 + t405 * t4977 * t187 - 0.3e1 * t405 * t1506 * t621 - 0.3e1 * t405 * t477 * t1846 - t101 * t5696 + 0.1174e1 * t5696;
18838   t5700 = t5699 * t204;
18839   t5702 = t8 * t18 * t5700;
18840   t5703 = 0.3e1 / 0.8e1 * t5702;
18841   t5705 = t8 * t1356 * t625;
18842   t5706 = t5705 / 0.4e1;
18843   t5707 = t651 * t1895;
18844   t5709 = t1885 * t649 * t5707;
18845   t5710 = t5709 / 0.2e1;
18846   t5711 = t392 * t1349;
18847   t5713 = t1325 * t386 * t5711;
18848   t5714 = t5713 / 0.2e1;
18849   t5716 = 0.1e1 / t1882 / t209;
18850   t5717 = t7 * t5716;
18851   t5718 = t5 * t5717;
18852   t5719 = t1886 * t650;
18853   t5720 = t377 * t5719;
18854   t5722 = t5718 * t649 * t5720;
18855   t5723 = t5722 / 0.9e1;
18856   t5725 = t1885 * t1891 * t1887;
18857   t5727 = t1355 * t366;
18858   t5729 = t648 * t5727 * t651;
18859   t5730 = t5729 / 0.3e1;
18860   t5733 = 0.1e1 / t1322 / t14;
18861   t5734 = t7 * t5733;
18862   t5735 = t5 * t5734;
18863   t5736 = t1326 * t391;
18864   t5737 = t204 * t5736;
18865   t5739 = t5735 * t386 * t5737;
18866   t5740 = t5739 / 0.9e1;
18867   t5742 = t1325 * t1331 * t1327;
18868   t5744 = t1355 * t190;
18869   t5746 = t385 * t5744 * t392;
18870   t5747 = t5746 / 0.3e1;
18871   t5748 = t387 * t387;
18872   t5749 = 0.1e1 / t5748;
18873   t5750 = t9 * t5749;
18874   t5752 = 0.3e1 * t1347 - 0.3e1 * t5750;
18875   t5753 = t204 * t5752;
18876   t5755 = t385 * t386 * t5753;
18877   t5756 = t5755 / 0.2e1;
18878   t5758 = t634 * t18 * t1849;
18879   t5759 = t5758 * t644;
18880   t5760 = 0.74218500000000000000e1 * t5759;
18881   t5761 = t1855 * t1864;
18882   t5762 = 0.89062200000000000000e2 * t5761;
18883   t5764 = t634 * t398 * t624;
18884   t5765 = t5764 * t644;
18885   t5767 = t1364 * t1864;
18886   t5769 = t8 * t1339;
18887   t5771 = t1035 * t1876 * t19;
18888   t5772 = t23 * t203;
18889   t5773 = t5772 * t391;
18890   t5774 = t5771 * t5773;
18891   t5775 = t5769 * t5774;
18892   t5776 = 0.32216644838286502747e3 * t5775;
18893   t5778 = t634 * t1356 * t190;
18894   t5779 = t5778 * t644;
18895   t5780 = 0.16493000000000000000e1 * t5779;
18896   t5781 = t1364 * t1870;
18897   t5783 = t5740 - t5742 / 0.6e1 + t5747 - t5756 - t5760 - t5762 - 0.49479000000000000000e1 * t5765 - 0.29687400000000000000e2 * t5767 + t5776 + t5780 + 0.57725500000000000000e1 * t5781;
18898   t5786 = t1862 * t4759 * t203;
18899   t5787 = t636 * t5786;
18900   t5788 = 0.20781180000000000000e3 * t5787;
18901   t5789 = t26 * t42;
18902   t5790 = 0.1e1 / t5789;
18903   t5791 = t194 * t5790;
18904   t5793 = t640 * t5791 * t203;
18905   t5794 = t636 * t5793;
18906   t5795 = 0.19241833333333333333e2 * t5794;
18907   t5797 = t385 * t1335 * t1350;
18908   t5798 = 0.3e1 / 0.2e1 * t5797;
18909   t5800 = t385 * t1331 * t1350;
18910   t5802 = t17 * t1849;
18911   t5804 = t385 * t5802 * t392;
18912   t5805 = 0.3e1 / 0.2e1 * t5804;
18913   t5807 = t1325 * t1335 * t1327;
18914   t5808 = t5807 / 0.2e1;
18915   t5809 = t397 * t624;
18916   t5811 = t385 * t5809 * t392;
18917   t5813 = t648 * t1891 * t1896;
18918   t5815 = -t5752;
18919   t5816 = t377 * t5815;
18920   t5818 = t648 * t649 * t5816;
18921   t5819 = t5818 / 0.2e1;
18922   t5821 = t640 * t1868 * t1341;
18923   t5822 = t1340 * t5821;
18924   t5823 = 0.23090200000000000000e2 * t5822;
18925   t5824 = t624 * t1035;
18926   t5826 = t5824 * t1876 * t1878;
18927   t5827 = t1874 * t5826;
18928   t5828 = 0.24162483628714877061e3 * t5827;
18929   t5829 = t5788 - t5795 - t5798 - t5800 / 0.2e1 - t5805 - t5808 - t5811 - t5813 / 0.2e1 - t5819 + t5823 + t5828;
18930   t5830 = 0.1e1 / t20;
18931   t5832 = 0.1e1 / t42;
18932   t5836 = 0.1e1 / t199 / t5830 / t2878 / t5832 / 0.36e2;
18933   t5838 = t190 * t5836 * t5830;
18934   t5839 = 0.1e1 / t117;
18935   t5841 = t2878 * t5839 * t203;
18936   t5842 = t5838 * t5841;
18937   t5843 = t2866 * t5842;
18938   t5844 = 0.59374800000000000000e3 * t5843;
18939   t5846 = t190 * t19 * t38;
18940   t5847 = t1035 * t61;
18941   t5848 = t5847 * t203;
18942   t5849 = t5846 * t5848;
18943   t5850 = t1874 * t5849;
18944   t5851 = 0.16536775210765846035e1 * t5850;
18945   t5853 = t1875 * t61 * t1878;
18946   t5854 = t1874 * t5853;
18947   t5855 = 0.24162483628714877060e3 * t5854;
18948   t5856 = t1180 * t397;
18949   t5857 = t5 * t5856;
18950   t5858 = t5857 * t1879;
18951   t5860 = t1323 * t17;
18952   t5861 = t5860 * t190;
18953   t5862 = t634 * t5861;
18954   t5863 = t203 * t1326;
18955   t5865 = t640 * t642 * t5863;
18956   t5866 = t5862 * t5865;
18957   t5867 = 0.32986000000000000000e1 * t5866;
18958   t5868 = t15 * t397;
18959   t5869 = t5868 * t190;
18960   t5870 = t634 * t5869;
18961   t5871 = t5870 * t1343;
18962   t5873 = t1338 * t624;
18963   t5874 = t634 * t5873;
18964   t5875 = t5874 * t1343;
18965   t5876 = 0.19791600000000000000e2 * t5875;
18966   t5877 = t203 * t1349;
18967   t5879 = t640 * t642 * t5877;
18968   t5880 = t1340 * t5879;
18969   t5881 = 0.98958000000000000000e1 * t5880;
18970   t5883 = t1862 * t1376 * t1341;
18971   t5884 = t1340 * t5883;
18972   t5885 = 0.11874960000000000000e3 * t5884;
18973   t5886 = t1855 * t1870;
18974   t5887 = 0.17317650000000000000e2 * t5886;
18975   t5888 = t633 * t1180;
18976   t5889 = 0.1e1 / t78;
18977   t5891 = t5889 * t638 * t203;
18978   t5893 = t5888 * t386 * t5891;
18979   t5894 = 0.32302153261130400000e3 * t5893;
18980   t5895 = -t5844 + t5851 - t5855 + 0.80541612095716256868e2 * t5858 - t5867 - 0.65972000000000000001e1 * t5871 - t5876 - t5881 - t5885 + t5887 - t5894;
18981   t5911 = t1358 / 0.4e1;
18982   t5913 = t1902 / 0.4e1;
18983   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
18984     v3rho3[0] = t10 * (-t4737 - 0.3e1 / 0.8e1 * t4739 - t4744 - t5703 + t5706 - t5710 - t5714 + t5723 - t5725 / 0.6e1 + t5730 + t5783 + t5829 + t5895) - 0.49479000000000000000e1 * t1365 - 0.14843700000000000000e2 * t1856 - 0.89062200000000000000e2 * t1865 - t1889 / 0.2e1 - t1893 - t1329 / 0.2e1 - t1333 + 0.24162483628714877061e3 * t1880 - 0.19791600000000000000e2 * t1344 + 0.17317650000000000000e2 * t1871 - 0.3e1 / 0.4e1 * t1361 - 0.9e1 / 0.8e1 * t1852 - 0.3e1 * t1337 - 0.3e1 / 0.2e1 * t1352 + t5911 - 0.3e1 / 0.2e1 * t1898 + t5913;
18985 
18986   t5916 = 0.65972000000000000000e1 * t1919;
18987   t5917 = 0.65972000000000000000e1 * t1957;
18988   t5918 = -t1996 + t5913 - t1853 - t1890 - 0.2e1 / 0.3e1 * t1893 - t1899 - t1972 - t1914 - t1926 - t1330 - 0.2e1 / 0.3e1 * t1333 - t1337 - t1353 - t5916 - t5917;
18989   t5922 = t8 * t1900 * t889;
18990   t5924 = t210 * t1922;
18991   t5926 = t8 * t5924 * t378;
18992   t5928 = t15 * t1922;
18993   t5930 = t8 * t5928 * t205;
18994   t5933 = t668 * t1886;
18995   t5935 = t5718 * t649 * t5933;
18996   t5938 = t1885 * t1891 * t1931;
18997   t5939 = t5938 / 0.9e1;
18998   t5940 = t663 * t1326;
18999   t5942 = t5735 * t386 * t5940;
19000   t5945 = t1325 * t1331 * t1906;
19001   t5946 = t5945 / 0.9e1;
19002   t5947 = t1924 * t391;
19003   t5949 = t1325 * t1923 * t5947;
19004   t5951 = -t4737 - t4739 / 0.8e1 - t4744 + t5922 / 0.12e2 + t5926 / 0.2e1 - t5930 / 0.2e1 + t5705 / 0.6e1 + t5935 / 0.9e1 - t5939 + t5942 / 0.9e1 - t5946 - t5949 / 0.3e1;
19005   t5953 = t1325 * t1335 * t1906;
19006   t5955 = t663 * t1349;
19007   t5957 = t1325 * t386 * t5955;
19008   t5959 = t668 * t1895;
19009   t5961 = t1885 * t649 * t5959;
19010   t5963 = t1939 * t650;
19011   t5965 = t1885 * t1938 * t5963;
19012   t5975 = t190 * t638;
19013   t5977 = t634 * t5860 * t5975;
19014   t5978 = t193 * t194;
19015   t5979 = t641 * t203;
19016   t5980 = t662 * t391;
19017   t5981 = t5979 * t5980;
19018   t5982 = t5978 * t5981;
19019   t5983 = t5977 * t5982;
19020   t5985 = -t5953 / 0.3e1 - t5957 / 0.6e1 - t5961 / 0.6e1 + t5965 / 0.3e1 - t5725 / 0.18e2 + 0.2e1 / 0.9e1 * t5729 - t5742 / 0.18e2 + 0.2e1 / 0.9e1 * t5746 - 0.16493000000000000000e1 * t5765 - 0.98958000000000000000e1 * t5767 + 0.10995333333333333333e1 * t5779 + 0.19241833333333333333e1 * t5781 - 0.21990666666666666666e1 * t5983;
19021   t5988 = t385 * t5802 * t663;
19022   t5991 = t385 * t5809 * t663;
19023   t5992 = t5991 / 0.3e1;
19024   t5993 = t1922 * t624;
19025   t5995 = t385 * t5993 * t1924;
19026   t5997 = t385 * t5744 * t663;
19027   t6000 = 0.1e1 / t396 / t1346;
19028   t6001 = t6000 * t190;
19029   t6003 = t385 * t6001 * t1924;
19030   t6006 = t1885 * t1944 * t1887;
19031   t6008 = t397 * t888;
19032   t6010 = t648 * t6008 * t651;
19033   t6011 = t6010 / 0.3e1;
19034   t6013 = t648 * t5727 * t668;
19035   t6016 = t648 * t1944 * t1896;
19036   t6018 = t6000 * t366;
19037   t6020 = t648 * t6018 * t1939;
19038   t6024 = -t5988 / 0.2e1 - t5992 - t5995 + t5997 / 0.9e1 + 0.7e1 / 0.6e1 * t6003 - t6006 / 0.6e1 - t6011 + t6013 / 0.9e1 - t6016 / 0.2e1 - 0.7e1 / 0.6e1 * t6020 - t5800 / 0.6e1 - t5811 / 0.3e1;
19039   t6027 = t634 * t1900 * t366;
19040   t6028 = t6027 * t902;
19041   t6030 = t5772 * t662;
19042   t6031 = t5771 * t6030;
19043   t6032 = t5769 * t6031;
19044   t6035 = t640 * t1868 * t1916;
19045   t6036 = t1340 * t6035;
19046   t6038 = t5928 * t190;
19047   t6039 = t634 * t6038;
19048   t6040 = t203 * t9;
19049   t6042 = t640 * t642 * t6040;
19050   t6043 = t6039 * t6042;
19051   t6045 = t1883 * t17;
19052   t6046 = t6045 * t366;
19053   t6047 = t634 * t6046;
19054   t6048 = t376 * t1886;
19055   t6050 = t898 * t900 * t6048;
19056   t6051 = t6047 * t6050;
19057   t6053 = t376 * t1895;
19058   t6055 = t898 * t900 * t6053;
19059   t6056 = t1953 * t6055;
19060   t6058 = t5870 * t1918;
19061   t6060 = t5874 * t1918;
19062   t6063 = t1862 * t1376 * t1916;
19063   t6064 = t1340 * t6063;
19064   t6068 = t210 * t397;
19065   t6069 = t6068 * t366;
19066   t6070 = t634 * t6069;
19067   t6071 = t6070 * t1956;
19068   t6073 = -t5813 / 0.6e1 + 0.54976666666666666667e0 * t6028 + 0.10738881612762167582e3 * t6032 + 0.76967333333333333333e1 * t6036 - 0.65972000000000000000e1 * t6043 - 0.10995333333333333333e1 * t6051 - 0.32986000000000000000e1 * t6056 - 0.21990666666666666666e1 * t6058 - 0.65972000000000000000e1 * t6060 - 0.39583200000000000000e2 * t6064 + 0.26847204031905418956e2 * t5858 - 0.21990666666666666666e1 * t5871 - 0.21990666666666666666e1 * t6071;
19069   t6078 = t1908 / 0.3e1;
19070   t6079 = t1933 / 0.3e1;
19071   t6080 = -t1997 - 0.32986000000000000000e1 * t1365 - t1857 - t1866 + t1872 - t1983 + t1941 - t1946 + t1881 + t10 * (t5951 + t5985 + t6024 + t6073) + t5911 - t1361 / 0.2e1 - t1345 - t6078 - t6079;
19072   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
19073     v3rho3[1] = t5918 + t6080;
19074 
19075   t6082 = t366 * t896;
19076   t6084 = t634 * t6045 * t6082;
19077   t6085 = t193 * t367;
19078   t6086 = t899 * t376;
19079   t6087 = t667 * t650;
19080   t6088 = t6086 * t6087;
19081   t6089 = t6085 * t6088;
19082   t6090 = t6084 * t6089;
19083   t6094 = t663 * t9;
19084   t6096 = t1325 * t1923 * t6094;
19085   t6101 = t1922 * t888;
19086   t6103 = t648 * t6101 * t1939;
19087   t6104 = -t4737 - 0.21990666666666666667e1 * t6090 - t4744 + t5922 / 0.6e1 + t5705 / 0.12e2 - t6096 / 0.3e1 - t5939 - t5946 + t5729 / 0.9e1 + t5746 / 0.9e1 + 0.54976666666666666667e0 * t5779 + t6103;
19088   t6106 = t1347 + 0.3e1 * t5750;
19089   t6107 = t377 * t6106;
19090   t6109 = t648 * t649 * t6107;
19091   t6111 = t17 * t2475;
19092   t6113 = t648 * t6111 * t651;
19093   t6119 = t1960 * t2490;
19094   t6121 = t1960 * t2496;
19095   t6124 = t634 * t655 * t888;
19096   t6125 = t6124 * t902;
19097   t6127 = t8 * t1952;
19098   t6129 = t1170 * t2502 * t19;
19099   t6130 = t23 * t376;
19100   t6131 = t6130 * t650;
19101   t6132 = t6129 * t6131;
19102   t6133 = t6127 * t6132;
19103   t6136 = -t6109 / 0.2e1 - t6113 / 0.2e1 - t5992 + 0.2e1 / 0.9e1 * t5997 - t6003 / 0.3e1 - t6011 + 0.2e1 / 0.9e1 * t6013 + t6020 / 0.3e1 - 0.98958000000000000000e1 * t6119 + 0.19241833333333333333e1 * t6121 - 0.16493000000000000000e1 * t6125 + 0.10738881612762167582e3 * t6133 + 0.10995333333333333333e1 * t6028;
19104   t6139 = t1979 * t650;
19105   t6141 = t5718 * t649 * t6139;
19106   t6143 = t668 * t9;
19107   t6145 = t1885 * t1938 * t6143;
19108   t6148 = t1885 * t1944 * t1931;
19109   t6150 = t1992 * t650;
19110   t6152 = t1885 * t649 * t6150;
19111   t6154 = t1968 * t391;
19112   t6156 = t5735 * t386 * t6154;
19113   t6158 = t1974 * t391;
19114   t6160 = t1325 * t386 * t6158;
19115   t6163 = t385 * t1335 * t1974;
19116   t6165 = -t6106;
19117   t6166 = t204 * t6165;
19118   t6168 = t385 * t386 * t6166;
19119   t6171 = t1885 * t1891 * t1979;
19120   t6174 = t648 * t6008 * t668;
19121   t6177 = t648 * t1891 * t1992;
19122   t6179 = -0.21990666666666666667e1 * t6058 + t6141 / 0.9e1 + t6145 / 0.3e1 - t6148 / 0.3e1 - t6152 / 0.6e1 + t6156 / 0.9e1 - t6160 / 0.6e1 - t6163 / 0.2e1 - t6168 / 0.2e1 - t6171 / 0.18e2 - t6174 / 0.3e1 - t6177 / 0.6e1;
19123   t6181 = t1325 * t1331 * t1968;
19124   t6184 = t385 * t1331 * t1974;
19125   t6187 = t1325 * t1335 * t1968;
19126   t6190 = t8 * t655 * t2476;
19127   t6192 = t1249 * t397;
19128   t6193 = t5 * t6192;
19129   t6194 = t6193 * t2505;
19130   t6196 = t6070 * t1988;
19131   t6198 = t1951 * t888;
19132   t6199 = t634 * t6198;
19133   t6200 = t6199 * t1956;
19134   t6202 = t203 * t1967;
19135   t6204 = t640 * t642 * t6202;
19136   t6205 = t5862 * t6204;
19137   t6207 = t203 * t1973;
19138   t6209 = t640 * t642 * t6207;
19139   t6210 = t1340 * t6209;
19140   t6212 = t5924 * t366;
19141   t6213 = t634 * t6212;
19142   t6214 = t376 * t9;
19143   t6216 = t898 * t900 * t6214;
19144   t6217 = t6213 * t6216;
19145   t6221 = t2488 * t2007 * t1954;
19146   t6222 = t1953 * t6221;
19147   t6225 = t898 * t2494 * t1954;
19148   t6226 = t1953 * t6225;
19149   t6228 = -t6181 / 0.18e2 - t6184 / 0.6e1 - t6187 / 0.6e1 - t6190 / 0.8e1 + 0.26847204031905418956e2 * t6194 - 0.21990666666666666667e1 * t6196 - 0.65972000000000000000e1 * t6200 - 0.10995333333333333333e1 * t6205 - 0.32986000000000000000e1 * t6210 + 0.65972000000000000000e1 * t6217 - 0.21990666666666666667e1 * t6071 - 0.39583200000000000000e2 * t6222 + 0.76967333333333333333e1 * t6226;
19150   t6234 = -t1949 / 0.2e1 + t5913 - t2479 + t10 * (t6104 + t6136 + t6179 + t6228) - t1894 - 0.2e1 / 0.3e1 * t1911 - t1914 - t1926 - t1334 - t5916 - t5917 - t1990 - 0.32986000000000000000e1 * t1961 - t2483 - t2492;
19151   t6236 = t2498 - t1366 - 0.2e1 / 0.3e1 * t1936 + t1941 - t1946 - t1971 - t1977 - t1982 - t1985 - t1995 + t2507 + t5911 - t1362 - t6078 - t6079;
19152   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
19153     v3rho3[2] = t6234 + t6236;
19154 
19155   t6237 = t5922 / 0.4e1;
19156   t6239 = -0.3e1 * t1347 - 0.3e1 * t5750;
19157   t6240 = t204 * t6239;
19158   t6242 = t385 * t386 * t6240;
19159   t6243 = t6242 / 0.2e1;
19160   t6245 = t1885 * t1944 * t1979;
19161   t6246 = t6245 / 0.2e1;
19162   t6247 = t1978 * t667;
19163   t6248 = t377 * t6247;
19164   t6250 = t5718 * t649 * t6248;
19165   t6251 = t6250 / 0.9e1;
19166   t6252 = t1967 * t662;
19167   t6253 = t204 * t6252;
19168   t6255 = t5735 * t386 * t6253;
19169   t6256 = t6255 / 0.9e1;
19170   t6257 = t633 * t1249;
19171   t6258 = 0.1e1 / t254;
19172   t6260 = t6258 * t896 * t376;
19173   t6262 = t6257 * t649 * t6260;
19174   t6263 = 0.32302153261130400000e3 * t6262;
19175   t6264 = -t6239;
19176   t6265 = t377 * t6264;
19177   t6267 = t648 * t649 * t6265;
19178   t6268 = t6267 / 0.2e1;
19179   t6270 = t648 * t1944 * t1992;
19180   t6271 = 0.3e1 / 0.2e1 * t6270;
19181   t6274 = t648 * t6111 * t668;
19182   t6275 = 0.3e1 / 0.2e1 * t6274;
19183   t6276 = t5997 / 0.3e1;
19184   t6277 = t6013 / 0.3e1;
19185   t6279 = t634 * t212 * t2475;
19186   t6280 = t6279 * t902;
19187   t6281 = 0.74218500000000000000e1 * t6280;
19188   t6282 = t2481 * t2490;
19189   t6283 = 0.89062200000000000000e2 * t6282;
19190   t6284 = t6130 * t667;
19191   t6285 = t6129 * t6284;
19192   t6286 = t6127 * t6285;
19193   t6287 = 0.32216644838286502747e3 * t6286;
19194   t6288 = t214 * t222;
19195   t6289 = 0.1e1 / t6288;
19196   t6290 = t367 * t6289;
19197   t6292 = t898 * t6290 * t376;
19198   t6293 = t894 * t6292;
19199   t6294 = 0.19241833333333333333e2 * t6293;
19200   t6295 = t2481 * t2496;
19201   t6296 = 0.17317650000000000000e2 * t6295;
19202   t6297 = 0.1e1 / t707;
19203   t6298 = sigma[2] * t6297;
19204   t6300 = t2488 * t6298 * t376;
19205   t6301 = t894 * t6300;
19206   t6302 = 0.20781180000000000000e3 * t6301;
19207   t6305 = -t6275 + t6276 + t6277 - t6281 - t6283 + t6287 - t6294 + t6296 + t6302 - 0.29687400000000000000e2 * t6119 + 0.57725500000000000000e1 * t6121;
19208   t6308 = 0.16493000000000000000e1 * t6028;
19209   t6314 = t672 * t672;
19210   t6316 = t402 / t6314;
19211   t6317 = t2001 * t742;
19212   t6321 = t743 * t2134;
19213   t6329 = 0.1e1 / t1061;
19214   t6334 = 0.1e1 / t2373;
19215   t6339 = t215 * t822;
19216   t6342 = 0.1e1 / t6339 * t19 * t2026;
19217   t6345 = t2021 * sigma[2];
19218   t6346 = t4779 * t6345;
19219   t6349 = t39 * t231;
19220   t6350 = 0.1e1 / t2381 * t36 * t6349;
19221   t6358 = t709 * t289;
19222   t6359 = t2051 * t6358;
19223   t6360 = t2099 * t2076;
19224   t6361 = t6359 * t6360;
19225   t6364 = t675 * t245 * t709;
19226   t6365 = t6364 * t712;
19227   t6367 = t724 * t253;
19228   t6368 = t6367 * t2059;
19229   t6371 = t224 * t245 * t1063;
19230   t6372 = t6371 * t2073;
19231   t6374 = t289 * t2047;
19232   t6375 = t6374 * t728;
19233   t6376 = t2941 * t6375;
19234   t6378 = t2053 * t2066;
19235   t6379 = t2941 * t6378;
19236   t6381 = t289 * t2066;
19237   t6382 = t6381 * t728;
19238   t6383 = t2057 * t6382;
19239   t6385 = t2058 * t2111;
19240   t6386 = t2057 * t6385;
19241   t6388 = t246 * t253;
19242   t6390 = t302 * t728 * t2111;
19243   t6391 = t6388 * t6390;
19244   t6393 = t2364 * t2081;
19245   t6394 = t2057 * t6393;
19246   t6396 = t2091 * t704;
19247   t6398 = t2047 * t703;
19248   t6399 = t223 * t6398;
19249   t6400 = t6399 * t261;
19250   t6402 = t213 * t245;
19251   t6403 = t6402 * t261;
19252   t6405 = t38 * t728;
19253   t6406 = t2377 * t6405;
19254   t6407 = t2071 * t6406;
19255   t6409 = t22 * t2111;
19256   t6410 = t750 * t6409;
19257   t6411 = t710 * t6410;
19258   t6413 = -0.27e2 * t6361 + 0.314e3 / 0.3e1 * t6365 + 0.90e2 * t6368 - 0.306e3 * t6372 + 0.18e2 * t6376 - 0.18e2 * t6379 + 0.9e1 * t6383 + 0.9e1 * t6386 - 0.6e1 * t6391 - 0.18e2 * t6394 - 0.180e3 * t6396 - 0.6e1 * t6400 - 0.60e2 * t6403 + 0.54e2 * t6407 - 0.9e1 / 0.2e1 * t6411;
19259   t6414 = t2106 * t709;
19260   t6415 = t6414 * t2054;
19261   t6417 = t2041 * t2077;
19262   t6419 = t707 * t243;
19263   t6420 = t6419 * t709;
19264   t6421 = t260 * t2047;
19265   t6422 = t6421 * t1425;
19266   t6423 = t6420 * t6422;
19267   t6425 = t260 * t2066;
19268   t6426 = t6425 * t1425;
19269   t6427 = t2052 * t6426;
19270   t6429 = t680 * t244;
19271   t6430 = t6429 * t1063;
19272   t6431 = t2053 * t4811;
19273   t6432 = t6430 * t6431;
19274   t6434 = t22 * t2081;
19275   t6435 = t840 * t6434;
19276   t6436 = t710 * t6435;
19277   t6438 = t2035 * t729;
19278   t6440 = t724 * t2067;
19279   t6442 = t695 * t2112;
19280   t6448 = my_piecewise3(t242, -0.440e3 / 0.27e2 * tau[1] * t2006 + 0.154e3 / 0.27e2 * t6298, 0);
19281   t6449 = t261 * t6448;
19282   t6450 = t698 * t6449;
19283   t6452 = t293 * t245;
19284   t6454 = t287 * t260 * t418;
19285   t6455 = t6452 * t6454;
19286   t6460 = t368 * t243;
19287   t6463 = t213 * t244;
19288   t6469 = t254 * t243;
19289   t6470 = t6469 * t253;
19290   t6475 = t675 * t244;
19291   t6478 = t255 * t703;
19292   t6481 = t222 * t2047;
19293   t6484 = t2005 * t243;
19294   t6485 = t6484 * t709;
19295   t6487 = t703 * t19 * t38;
19296   t6490 = t2066 * t36;
19297   t6491 = t6490 * t22;
19298   t6494 = t257 * t6448;
19299   t6497 = t224 * t244;
19300   t6498 = t1063 * t418;
19301   t6501 = 0.280e3 / 0.27e2 * t214 * t244 * t257 + 0.140e3 / 0.3e1 * t6460 * t721 - 0.268e3 / 0.9e1 * t6463 * t726 + 0.20e2 * t716 * t2047 * t257 - 0.44e2 * t6470 * t2100 + 0.20e2 * t2088 * t2103 + 0.108e3 * t6475 * t2108 + 0.6e1 * t6478 * t2103 - 0.6e1 * t6481 * t726 + 0.54e2 * t6485 * t6487 - 0.6e1 * t2098 * t6491 + 0.2e1 * t720 * t6494 - 0.108e3 * t6497 * t6498;
19302   t6502 = t715 * t6501;
19303   t6503 = t246 * t6502;
19304   t6504 = t2097 * t2048;
19305   t6506 = t695 * t2082;
19306   t6509 = t2081 * t728;
19307   t6510 = t253 * t313 * t6509;
19308   t6511 = t246 * t6510;
19309   t6513 = 0.144e3 * t6415 - 0.48e2 * t6417 + 0.27e2 * t6423 + 0.27e2 / 0.2e1 * t6427 - 0.162e3 * t6432 + 0.9e1 * t6436 + 0.60e2 * t6438 - 0.45e2 * t6440 + 0.15e2 * t6442 - 0.3e1 * t6450 + 0.270e3 * t6455 + t6503 - 0.90e2 * t6504 - 0.30e2 * t6506 + 0.6e1 * t6511;
19310   t6514 = t6413 + t6513;
19311   t6515 = t56 * t6514;
19312   t6520 = t2118 * t731;
19313   t6521 = t56 * t6520;
19314   t6524 = t265 * t267;
19315   t6531 = t2114 * t731 * t267;
19316   t6534 = t56 * t2466;
19317   t6538 = -0.539e3 / 0.21870e5 * t57 * t227 * t6297 + t6515 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t2115 * t2984 - 0.3e1 / 0.100e3 * t6521 * t267 + 0.3e1 / 0.50e2 * t6521 * t6524 - t735 * t6514 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t6531 - t6534 * t6520 * t267 / 0.100e3;
19318   t6541 = -0.1540e4 / 0.6561e4 * t24 * t6298 - 0.209e3 / 0.486e3 * t40 * t221 * t6329 * t231 + 0.797e3 / 0.480e3 * t420 * t686 * t6334 * t231 - 0.729e3 / 0.3200e4 * t2022 * t6342 + 0.243e3 / 0.32000e5 * t6346 * t6350 + 0.6e1 * t739 * t2131 + 0.2e1 * t270 * t6538;
19319   t6551 = t6339 * t296 * t838;
19320   t6554 = t215 * t1096;
19321   t6556 = t6554 * t308 * t847;
19322   t6559 = t215 * t1109;
19323   t6561 = t6559 * t320 * t855;
19324   t6564 = t215 * t280;
19325   t6566 = t6564 * t283 * t748;
19326   t6569 = t214 * t281;
19327   t6571 = t6569 * t283 * t1088;
19328   t6574 = t214 * t294;
19329   t6576 = t6574 * t296 * t1101;
19330   t6579 = t214 * t307;
19331   t6581 = t6579 * t308 * t1114;
19332   t6584 = t214 * t318;
19333   t6586 = t6584 * t320 * t1127;
19334   t6589 = t214 * t332;
19335   t6591 = t6589 * t334 * t1140;
19336   t6594 = t2354 * t2081;
19337   t6597 = t2276 * t324;
19338   t6600 = t2359 * t2081;
19339   t6603 = t2222 * t338;
19340   t6606 = 0.19687041185144810000e4 * t6551 * t841 - 0.10273248012263213333e5 * t6556 * t850 + 0.12319492830422380000e5 * t6561 * t858 + 0.38646691466666666667e3 * t6566 * t751 - 0.89622388800000000000e3 * t6571 * t2378 - 0.42072844836559050000e4 * t6576 * t2385 + 0.21055417521460920000e5 * t6581 * t2393 - 0.24615305713068840000e5 * t6586 * t2401 + 0.11068827922042884000e5 * t6591 * t2410 + 0.1044933872032800e4 * t2348 * t6594 + 0.9989977967966250e4 * t6597 * t2355 - 0.1198797356155950e4 * t2353 * t6600 - 0.4559242622351760e4 * t6603 * t2360;
19341   t6607 = t2233 * t287;
19342   t6610 = t2369 * t2081;
19343   t6613 = t215 * t1123;
19344   t6615 = t6613 * t334 * t864;
19345   t6618 = t215 * t1135;
19346   t6620 = t6618 * t347 * t873;
19347   t6623 = t2248 * t351;
19348   t6626 = t2349 * t2111;
19349   t6629 = t309 * t311;
19350   t6630 = t340 * t728;
19351   t6631 = t6630 * t2111;
19352   t6634 = t340 * t2047;
19353   t6635 = t6634 * t728;
19354   t6638 = t2349 * t2066;
19355   t6641 = t340 * t2066;
19356   t6642 = t6641 * t728;
19357   t6645 = t2245 * t300;
19358   t6648 = t2349 * t2081;
19359   t6651 = t2330 * t703;
19360   t6652 = t6651 * t2081;
19361   t6655 = 0.3200799600e3 * t6607 * t2365 - 0.480119940e2 * t2363 * t6610 - 0.56352614058574120000e4 * t6615 * t867 + 0.88610883146575533333e3 * t6620 * t876 + 0.715746983350140e3 * t6623 * t2345 - 0.208986774406560e3 * t2348 * t6626 + 0.87077822669400e2 * t6629 * t6631 + 0.2797193831030550e4 * t3216 * t6635 - 0.559438766206110e3 * t3216 * t6638 + 0.199799559359325e3 * t2353 * t6642 + 0.1611300440549070e4 * t6645 * t2370 - 0.214840058739876e3 * t2368 * t6648 - 0.81799655240016e2 * t2343 * t6652;
19362   t6657 = t2262 * t311;
19363   t6660 = t348 * t351;
19364   t6661 = t2330 * t728;
19365   t6662 = t6661 * t2111;
19366   t6665 = t326 * t2047;
19367   t6666 = t6665 * t728;
19368   t6669 = t2369 * t2066;
19369   t6672 = t326 * t2066;
19370   t6673 = t6672 * t728;
19371   t6676 = t335 * t338;
19372   t6677 = t803 * t728;
19373   t6678 = t6677 * t2111;
19374   t6681 = t803 * t2047;
19375   t6682 = t6681 * t728;
19376   t6685 = t2359 * t2066;
19377   t6688 = t803 * t2066;
19378   t6689 = t6688 * t728;
19379   t6692 = t2344 * t2111;
19380   t6695 = t2369 * t2111;
19381   t6698 = t214 * t345;
19382   t6700 = t6698 * t347 * t1153;
19383   t6703 = t803 * t2081;
19384   t6704 = t6703 * t703;
19385   t6707 = -0.8359470976262400e4 * t6657 * t2350 - 0.3895221678096e1 * t6660 * t6662 - 0.2298854518472160e4 * t3202 * t6666 + 0.574713629618040e3 * t3202 * t6669 - 0.208986774406560e3 * t2348 * t6673 + 0.29550646626354e2 * t6676 * t6678 + 0.204499138100040e3 * t3158 * t6682 - 0.29214162585720e2 * t3158 * t6685 + 0.10224956905002e2 * t2343 * t6689 + 0.10224956905002e2 * t2343 * t6692 + 0.53710014684969e2 * t2368 * t6695 - 0.17192534681696220000e4 * t6700 * t2418 + 0.531911639274372e3 * t2358 * t6704;
19386   t6708 = t284 * t287;
19387   t6709 = t313 * t728;
19388   t6710 = t6709 * t2111;
19389   t6713 = t313 * t2047;
19390   t6714 = t6713 * t728;
19391   t6717 = t2364 * t2066;
19392   t6720 = t313 * t2066;
19393   t6721 = t6720 * t728;
19394   t6724 = t302 * t2047;
19395   t6725 = t6724 * t728;
19396   t6728 = t2058 * t2066;
19397   t6731 = t302 * t2066;
19398   t6732 = t6731 * t728;
19399   t6735 = t2364 * t2111;
19400   t6738 = t297 * t300;
19401   t6739 = t326 * t728;
19402   t6740 = t6739 * t2111;
19403   t6743 = t2354 * t2111;
19404   t6746 = t321 * t324;
19405   t6747 = t353 * t728;
19406   t6748 = t6747 * t2111;
19407   t6751 = t353 * t2047;
19408   t6752 = t6751 * t728;
19409   t6755 = t2354 * t2066;
19410   t6758 = -0.80019990e1 * t6708 * t6710 + 0.429680117479752e3 * t3188 * t6714 - 0.143226705826584e3 * t3188 * t6717 + 0.53710014684969e2 * t2368 * t6721 + 0.800199900e2 * t3163 * t6725 - 0.400099950e2 * t3163 * t6728 + 0.160039980e2 * t2363 * t6732 + 0.160039980e2 * t2363 * t6735 - 0.23871117637764e2 * t6738 * t6740 + 0.199799559359325e3 * t2353 * t6743 - 0.79919823743730e2 * t6746 * t6748 - 0.1291785409666332e4 * t3143 * t6752 + 0.215297568277722e3 * t3143 * t6755;
19411   t6761 = t353 * t2066;
19412   t6762 = t6761 * t728;
19413   t6765 = t2359 * t2111;
19414   t6768 = t22 * t2066;
19415   t6769 = t857 * t6768;
19416   t6772 = t2397 * t779;
19417   t6773 = t6772 * t1127;
19418   t6774 = t38 * t703;
19419   t6775 = t2400 * t6774;
19420   t6778 = t344 * t347;
19421   t6781 = t804 * t6501;
19422   t6784 = t766 * t6501;
19423   t6787 = t784 * t6501;
19424   t6790 = t1122 * t283;
19425   t6792 = t300 * t289 * t418;
19426   t6795 = t3082 * t296;
19427   t6797 = t311 * t302 * t418;
19428   t6800 = t3089 * t308;
19429   t6802 = t324 * t313 * t418;
19430   t6805 = t3096 * t320;
19431   t6807 = t338 * t326 * t418;
19432   t6810 = t344 * t334;
19433   t6812 = t351 * t340 * t418;
19434   t6815 = -0.75987377039196e2 * t2358 * t6762 - 0.75987377039196e2 * t2358 * t6765 + 0.29969933903898750000e3 * t2195 * t6769 - 0.14385568273871400000e5 * t6773 * t6775 - 0.910508067254940e3 * t6778 * t354 + 0.162300903254e0 * t348 * t6781 + 0.1989259803147e1 * t297 * t6784 + 0.4439990207985e1 * t321 * t6787 + 0.6721679160e3 * t6790 * t6792 + 0.29540508076732950000e4 * t6795 * t6797 - 0.14263347353247720e5 * t6800 * t6802 + 0.16303644043720920000e5 * t6805 * t6807 - 0.7218800818723620e4 * t6810 * t6812;
19435   t6816 = t3075 * t347;
19436   t6818 = t3031 * t353 * t418;
19437   t6821 = t1135 * t797;
19438   t6830 = t354 * t6448;
19439   t6835 = t314 * t6448;
19440   t6838 = t775 * t6501;
19441   t6841 = t1109 * t779;
19442   t6850 = 0.11086774701280740000e4 * t6816 * t6818 - 0.1738242673850340e4 * t6821 * t799 + 0.579414224616780e3 * t2152 * t805 - 0.51124784525010e2 * t2248 * t2253 + 0.17041594841670e2 * t828 * t2256 - 0.486902709762e0 * t798 * t6830 - 0.348311290677600e3 * t815 * t2270 + 0.17415564533880e2 * t771 * t6835 - 0.5805188177960e1 * t309 * t6838 - 0.23975947123119000e5 * t6841 * t781 + 0.7991982374373000e4 * t2149 * t785 - 0.998997796796625e3 * t2276 * t2281 + 0.332999265598875e3 * t819 * t2219;
19443   t6852 = t327 * t6448;
19444   t6855 = t866 * t6409;
19445   t6858 = t2409 * t6405;
19446   t6861 = t2441 * t788;
19447   t6862 = t6861 * t864;
19448   t6867 = t866 * t6768;
19449   t6870 = t2406 * t788;
19450   t6871 = t6870 * t1140;
19451   t6872 = t2409 * t6774;
19452   t6875 = t875 * t6409;
19453   t6878 = t2417 * t6405;
19454   t6881 = t750 * t6768;
19455   t6884 = t2374 * t346;
19456   t6885 = t6884 * t1088;
19457   t6886 = t2377 * t6774;
19458   t6889 = t840 * t6409;
19459   t6892 = t2384 * t6405;
19460   t6895 = -0.13319970623955e2 * t780 * t6852 - 0.99899779679662500000e2 * t856 * t6855 + 0.47951894246238000000e4 * t2399 * t6858 - 0.69148513105668360000e4 * t6862 * t2204 + 0.23049504368556120000e4 * t2443 * t2207 - 0.113981065558794e3 * t2203 * t6867 + 0.6496920736851258e4 * t6871 * t6872 + 0.37993688519598e2 * t865 * t6875 - 0.2165640245617086e4 * t2408 * t6878 + 0.240059970e2 * t2170 * t6881 - 0.5041259370e3 * t6885 * t6886 - 0.80019990e1 * t749 * t6889 + 0.1680419790e3 * t2376 * t6892;
19461   t6896 = t2426 * t295;
19462   t6897 = t6896 * t838;
19463   t6902 = t840 * t6768;
19464   t6905 = t2381 * t295;
19465   t6906 = t6905 * t1101;
19466   t6907 = t2384 * t6774;
19467   t6910 = t849 * t6409;
19468   t6913 = t2392 * t6405;
19469   t6916 = t822 * t295;
19470   t6923 = t303 * t6448;
19471   t6926 = t1123 * t788;
19472   t6935 = 0.24706606755085740000e4 * t6897 * t2180 - 0.82355355850285800000e3 * t2428 * t2183 + 0.80565022027453500000e2 * t2179 * t6902 - 0.24169506608236050000e4 * t6906 * t6907 - 0.26855007342484500000e2 * t839 * t6910 + 0.80565022027453500000e3 * t2383 * t6913 - 0.3759701027947830e4 * t6916 * t763 + 0.1253233675982610e4 * t2146 * t767 - 0.268550073424845e3 * t2245 * t2216 - 0.5967779409441e1 * t762 * t6923 + 0.11018169670683420e5 * t6926 * t790 - 0.3672723223561140e4 * t2140 * t794 + 0.379936885195980e3 * t2222 * t2227 + 0.1741556453388000e4 * t815 * t2289;
19473   t6940 = t311 * t353 * t6509;
19474   t6945 = t318 * t308;
19475   t6946 = t327 * t6398;
19476   t6949 = t2431 * t770;
19477   t6950 = t6949 * t847;
19478   t6955 = t849 * t6768;
19479   t6958 = t2389 * t770;
19480   t6959 = t6958 * t1114;
19481   t6960 = t2392 * t6774;
19482   t6963 = t857 * t6409;
19483   t6966 = t2400 * t6405;
19484   t6969 = t2436 * t779;
19485   t6970 = t6969 * t855;
19486   t6975 = t875 * t6768;
19487   t6978 = t2414 * t797;
19488   t6979 = t6978 * t1153;
19489   t6980 = t2417 * t6774;
19490   t6983 = -0.174155645338800e3 * t309 * t6940 - 0.13985969155152750e5 * t3004 * t2293 - 0.2424234653559810e4 * t6945 * t6946 - 0.12748193238800160000e5 * t6950 * t2188 + 0.42493977462667200000e4 * t2433 * t2191 - 0.313480161609840e3 * t2187 * t6955 + 0.12225726302783760e5 * t6959 * t6960 + 0.104493387203280e3 * t848 * t6963 - 0.4075242100927920e4 * t2391 * t6966 + 0.15184766511308700000e5 * t6970 * t2196 - 0.50615888371029000000e4 * t2438 * t2199 + 0.15337435357503000000e2 * t2160 * t6975 - 0.10122707335951980000e4 * t6979 * t6980;
19491   t6984 = t2165 * t6409;
19492   t6987 = t803 * t19;
19493   t6988 = t6987 * t6405;
19494   t6991 = t2421 * t346;
19495   t6992 = t6991 * t748;
19496   t6997 = t2169 * t4078;
19497   t7000 = t2178 * t4199;
19498   t7003 = t2159 * t4164;
19499   t7006 = t2202 * t4149;
19500   t7009 = t2186 * t4119;
19501   t7012 = t2194 * t4134;
19502   t7016 = t3089 * t320;
19503   t7019 = t293 * t283;
19504   t7022 = -0.51124784525010000000e1 * t874 * t6984 + 0.33742357786506600000e3 * t2416 * t6988 + 0.49612393800000000000e3 * t6992 * t2171 - 0.16537464600000000000e3 * t2423 * t2175 - 0.960239880e2 * t6997 * t6360 - 0.48339013216472100000e3 * t7000 * t6360 - 0.21472409500504200000e3 * t7003 * t6360 + 0.1367772786705528e4 * t7006 * t6360 + 0.2507841292878720e4 * t7009 * t6360 - 0.29969933903898750000e4 * t7012 * t6360 - 0.18009000000000000000e2 * t6361 - 0.12254372974038600e5 * t7016 * t327 - 0.3200799600e3 * t7019 * t290;
19505   t7036 = t1122 * t296;
19506   t7039 = 0.69812666666666666667e2 * t6365 + 0.60030e2 * t6368 - 0.20410200000000000000e3 * t6372 + 0.12006e2 * t6376 - 0.12006e2 * t6379 + 0.6003e1 * t6383 + 0.6003e1 * t6386 - 0.4002e1 * t6391 - 0.12006e2 * t6394 - 0.120060e3 * t6396 - 0.4002e1 * t6400 - 0.40020e2 * t6403 - 0.1810226420863770e4 * t7036 * t303;
19507   t7040 = t3096 * t334;
19508   t7043 = t861 * t333;
19509   t7044 = t7043 * t864;
19510   t7045 = t22 * t2047;
19511   t7046 = t866 * t7045;
19512   t7049 = t2165 * t6434;
19513   t7052 = t844 * t1098;
19514   t7053 = t7052 * t847;
19515   t7054 = t849 * t7045;
19516   t7057 = t866 * t6434;
19517   t7060 = t853 * t1111;
19518   t7061 = t7060 * t855;
19519   t7062 = t857 * t7045;
19520   t7065 = t875 * t6434;
19521   t7068 = t746 * t282;
19522   t7069 = t7068 * t748;
19523   t7070 = t750 * t7045;
19524   t7073 = t849 * t6434;
19525   t7076 = t835 * t319;
19526   t7077 = t7076 * t838;
19527   t7078 = t840 * t7045;
19528   t7081 = t857 * t6434;
19529   t7084 = t2446 * t797;
19530   t7085 = t7084 * t873;
19531   t7088 = t870 * t1137;
19532   t7089 = t7088 * t873;
19533   t7090 = t875 * t7045;
19534   t7093 = 0.5713125014428440e4 * t7040 * t341 - 0.1937678114499498e4 * t7044 * t7046 - 0.265955819637186e3 * t865 * t7049 - 0.3448281777708240e4 * t7053 * t7054 - 0.522466936016400e3 * t848 * t7057 + 0.41957907465458250000e4 * t7061 * t7062 + 0.59939867807797500000e3 * t856 * t7065 + 0.1200299850e3 * t7069 * t7070 + 0.240059970e2 * t749 * t7073 + 0.64452017621962800000e3 * t7077 * t7078 + 0.10742002936993800000e3 * t839 * t7081 + 0.10838454319302120000e4 * t7085 * t2162 + 0.30674870715006000000e3 * t7089 * t7090;
19535   t7099 = t2330 * t36 * t6434;
19536   t7104 = t341 * t6448;
19537   t7107 = t793 * t6501;
19538   t7110 = t280 * t346;
19539   t7119 = t290 * t6448;
19540   t7122 = t758 * t6501;
19541   t7125 = t1096 * t770;
19542   t7130 = -0.36128181064340400000e3 * t2448 * t2166 + 0.40899827620008000000e2 * t874 * t7099 - 0.126645628398660e3 * t824 * t2230 + 0.4221520946622e1 * t789 * t7104 - 0.1407173648874e1 * t335 * t7107 - 0.7201799100e3 * t7110 * t755 + 0.2400599700e3 * t2143 * t759 - 0.800199900e2 * t2233 * t2238 + 0.266733300e2 * t831 * t2242 - 0.26673330e1 * t754 * t7119 + 0.8891110e0 * t284 * t7122 + 0.19853743568623200e5 * t7125 * t772 - 0.6617914522874400e4 * t2155 * t776;
19543   t7145 = 0.1044933872032800e4 * t2262 * t2267 + 0.36018000000000000000e2 * t6407 - 0.30015000000000000000e1 * t6411 + 0.96048000000000000000e2 * t6415 - 0.32016000000000000000e2 * t6417 + 0.18009000000000000000e2 * t6423 + 0.90045000000000000000e1 * t6427 - 0.10805400000000000000e3 * t6432 + 0.60030000000000000000e1 * t6436 + 0.40020e2 * t6438 - 0.30015e2 * t6440 + 0.10005e2 * t6442 - 0.2001e1 * t6450;
19544   t7155 = t338 * t2330 * t6509;
19545   t7160 = t345 * t334;
19546   t7161 = t354 * t6398;
19547   t7167 = 0.1e1 / t802 / t288;
19548   t7169 = t351 * t7167 * t6509;
19549   t7174 = t307 * t296;
19550   t7175 = t314 * t6398;
19551   t7178 = 0.18009000000000000000e3 * t6455 + 0.667e0 * t6503 - 0.60030e2 * t6504 - 0.20010e2 * t6506 + 0.4002e1 * t6511 + 0.886519398790620e3 * t824 * t2322 - 0.78801724336944e2 * t335 * t7155 - 0.1022495690500200e4 * t3020 * t2326 - 0.185023029709560e3 * t7160 * t7161 - 0.136332758733360e3 * t828 * t2332 + 0.11685665034288e2 * t348 * t7169 + 0.11494272592360800e5 * t3046 * t2285 + 0.1915712098726800e4 * t7174 * t7175;
19552   t7179 = t281 * t245;
19553   t7180 = t290 * t6398;
19554   t7186 = t287 * t326 * t6509;
19555   t7191 = t294 * t283;
19556   t7192 = t303 * t6398;
19557   t7198 = t300 * t340 * t6509;
19558   t7204 = t324 * t803 * t6509;
19559   t7209 = t332 * t320;
19560   t7210 = t341 * t6398;
19561   t7217 = t3082 * t308;
19562   t7220 = -0.533466600e2 * t7179 * t7180 - 0.800199900e2 * t831 * t2309 + 0.106693320e2 * t284 * t7186 - 0.2148400587398760e4 * t3039 * t2314 - 0.334195646928696e3 * t7191 * t7192 - 0.358066764566460e3 * t811 * t2318 + 0.39785196062940e2 * t297 * t7198 - 0.1997995593593250e4 * t819 * t2297 + 0.186479588735370e3 * t321 * t7204 + 0.6458927048331660e4 * t3012 * t2301 + 0.1148253697481184e4 * t7209 * t7210 - 0.4000999500e3 * t2966 * t2305 + 0.89516691141615e2 * t811 * t2259 + 0.9926871784311600e4 * t7217 * t314;
19563   t7229 = t731 * t360;
19564   t7230 = t7229 * t2114;
19565   t7233 = t2466 * t263;
19566   t7234 = 0.1e1 / t7233;
19567   t7245 = 0.1e1 / t2466 / t265;
19568   t7250 = my_piecewise3(t278, t6606 + t6655 + t6707 + t6758 + t6815 + t6850 + t6895 + t6935 + t6983 + t7022 + t7039 + t7093 + t7130 + t7145 + t7178 + t7220, 0.6e1 * t1839 * t360 * t6520 * t7234 + 0.6e1 * t2467 * t360 * t616 * t6520 + t360 * t5689 * t6520 * t7245 + t360 * t616 * t6514 * t881 - 0.6e1 * t3232 * t7230 - 0.3e1 * t3240 * t7230);
19569   t7253 = 0.6e1 * t6316 * t6317 * t363 - 0.6e1 * t2000 * t6321 + 0.6e1 * t2000 * t2001 * t885 + t674 * t6541 * t363 - 0.3e1 * t674 * t2134 * t885 - 0.3e1 * t674 * t742 * t2472 - t277 * t7250 + 0.1174e1 * t7250;
19570   t7254 = t7253 * t377;
19571   t7256 = t8 * t212 * t7254;
19572   t7257 = 0.3e1 / 0.8e1 * t7256;
19573   t7258 = t668 * t1991;
19574   t7260 = t1885 * t649 * t7258;
19575   t7261 = t7260 / 0.2e1;
19576   t7262 = t663 * t1973;
19577   t7264 = t1325 * t386 * t7262;
19578   t7265 = t7264 / 0.2e1;
19579   t7266 = -0.49479000000000000000e1 * t6125 + t6308 - t6171 / 0.6e1 - t6174 - t6177 / 0.2e1 - t6181 / 0.6e1 - t6184 / 0.2e1 - 0.3e1 / 0.8e1 * t6190 - t7257 - t7261 - t7265;
19580   t7268 = t888 * t1170;
19581   t7270 = t7268 * t2502 * t2504;
19582   t7271 = t2500 * t7270;
19583   t7272 = 0.24162483628714877061e3 * t7271;
19584   t7274 = 0.1e1 / t222;
19585   t7278 = 0.1e1 / t372 / t5830 / t3273 / t7274 / 0.36e2;
19586   t7280 = t366 * t7278 * t5830;
19587   t7281 = 0.1e1 / t293;
19588   t7283 = t3273 * t7281 * t376;
19589   t7284 = t7280 * t7283;
19590   t7285 = t3261 * t7284;
19591   t7286 = 0.59374800000000000000e3 * t7285;
19592   t7288 = t366 * t19 * t38;
19593   t7289 = t1170 * t238;
19594   t7290 = t7289 * t376;
19595   t7291 = t7288 * t7290;
19596   t7292 = t2500 * t7291;
19597   t7293 = 0.16536775210765846035e1 * t7292;
19598   t7295 = t2501 * t238 * t2504;
19599   t7296 = t2500 * t7295;
19600   t7297 = 0.24162483628714877060e3 * t7296;
19601   t7298 = t376 * t1978;
19602   t7300 = t898 * t900 * t7298;
19603   t7301 = t6047 * t7300;
19604   t7302 = 0.32986000000000000000e1 * t7301;
19605   t7303 = t6199 * t1988;
19606   t7304 = 0.19791600000000000000e2 * t7303;
19607   t7305 = t376 * t1991;
19608   t7307 = t898 * t900 * t7305;
19609   t7308 = t1953 * t7307;
19610   t7309 = 0.98958000000000000000e1 * t7308;
19611   t7311 = t2488 * t2007 * t1986;
19612   t7312 = t1953 * t7311;
19613   t7313 = 0.11874960000000000000e3 * t7312;
19614   t7315 = t898 * t2494 * t1986;
19615   t7316 = t1953 * t7315;
19616   t7317 = 0.23090200000000000000e2 * t7316;
19617   t7319 = 0.80541612095716256868e2 * t6194 + t7272 - t7286 + t7293 - t7297 - t7302 - t7304 - t7309 - t7313 + t7317 - 0.65972000000000000001e1 * t6196;
19618   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
19619     v3rho3[3] = t10 * (-t4737 - t4744 + t6237 - t6243 - t6246 + t6251 + t6256 - t6263 - t6268 - t6271 + t6305 + t7266 + t7319) - 0.3e1 / 0.2e1 * t1994 - 0.3e1 / 0.2e1 * t1976 - 0.3e1 * t1985 + 0.17317650000000000000e2 * t2497 - 0.49479000000000000000e1 * t1961 - 0.19791600000000000000e2 * t1989 - 0.14843700000000000000e2 * t2482 - 0.89062200000000000000e2 * t2491 - t1970 / 0.2e1 - t1981 / 0.2e1 - t1911 - t1936 + 0.24162483628714877061e3 * t2506 - 0.9e1 / 0.8e1 * t2478 - 0.3e1 / 0.4e1 * t1949 + t5911 + t5913;
19620 
19621   t7336 = t2515 / 0.4e1;
19622   t7340 = 0.61848750000000000000e0 * t2862;
19623   t7346 = t634 * t398 * t1030;
19624   t7347 = t7346 * t644;
19625   t7348 = 0.16493000000000000000e1 * t7347;
19626   t7350 = t634 * t18 * t2849;
19627   t7351 = t7350 * t644;
19628   t7352 = 0.49479000000000000000e1 * t7351;
19629   t7353 = t1035 * t1867;
19630   t7355 = t640 * t7353 * t203;
19631   t7356 = t636 * t7355;
19632   t7357 = 0.28862750000000000000e1 * t7356;
19633   t7358 = t5778 * t1038;
19634   t7359 = 0.20616250000000000000e0 * t7358;
19635   t7360 = t1364 * t2875;
19636   t7361 = 0.82465000000000000000e0 * t7360;
19637   t7362 = t1855 * t2875;
19638   t7363 = 0.24739500000000000000e1 * t7362;
19639   t7364 = t2855 * t1870;
19640   t7365 = 0.57725500000000000000e1 * t7364;
19641   t7366 = t190 * t4027;
19642   t7367 = 0.1e1 / t25;
19643   t7369 = t7367 * t638 * t203;
19644   t7370 = t7366 * t7369;
19645   t7371 = t2866 * t7370;
19646   t7372 = 0.12113307472923900000e3 * t7371;
19647   t7373 = t2855 * t1864;
19648   t7374 = 0.29687400000000000000e2 * t7373;
19649   t7375 = t407 * t203;
19650   t7377 = t1862 * t7375 * t391;
19651   t7378 = t1340 * t7377;
19652   t7379 = 0.29687400000000000000e2 * t7378;
19653   t7381 = t2879 * t26 * t19;
19654   t7382 = t7381 * t5773;
19655   t7383 = t5769 * t7382;
19656   t7384 = 0.80541612095716256867e2 * t7383;
19657   t7385 = t5764 * t1038;
19658   t7386 = 0.61848750000000000000e0 * t7385;
19659   t7387 = t5758 * t1038;
19660   t7388 = 0.92773125000000000000e0 * t7387;
19661   t7390 = t385 * t2510 * t1350;
19662   t7391 = t7390 / 0.2e1;
19663   t7392 = t17 * t2849;
19664   t7394 = t385 * t7392 * t392;
19665   t7396 = t1325 * t2510 * t1327;
19666   t7397 = t7396 / 0.6e1;
19667   t7398 = t397 * t1030;
19668   t7400 = t385 * t7398 * t392;
19669   t7401 = t7400 / 0.3e1;
19670   t7402 = -t7348 - t7352 + t7357 - t7359 - t7361 - t7363 + t7365 + t7372 - t7374 + t7379 - t7384 + t7386 + t7388 - t7391 - t7394 - t7397 - t7401;
19671   t7404 = t624 * t1860 * t19;
19672   t7405 = t7404 * t2869;
19673   t7406 = t2866 * t7405;
19674   t7407 = 0.22265550000000000000e2 * t7406;
19675   t7408 = t624 * t2879;
19676   t7410 = t7408 * t26 * t1878;
19677   t7411 = t1874 * t7410;
19678   t7412 = 0.60406209071787192650e2 * t7411;
19679   t7413 = 0.1e1 / t154;
19680   t7415 = t7413 * t203 * t194;
19681   t7416 = t5838 * t7415;
19682   t7417 = t2866 * t7416;
19683   t7418 = 0.22265550000000000000e3 * t7417;
19684   t7419 = t2879 * t1876;
19685   t7420 = t7419 * t203;
19686   t7421 = t5846 * t7420;
19687   t7422 = t1874 * t7421;
19688   t7423 = 0.62012907040371922630e0 * t7422;
19689   t7425 = t2880 * t1876 * t1878;
19690   t7426 = t1874 * t7425;
19691   t7427 = 0.30203104535893596326e2 * t7426;
19692   t7428 = t23 * t1375;
19693   t7429 = t7428 * t203;
19694   t7430 = t2868 * t7429;
19695   t7431 = t2866 * t7430;
19696   t7432 = 0.55663875000000000000e2 * t7431;
19697   t7433 = t1030 * t1035;
19698   t7435 = t7433 * t1876 * t1878;
19699   t7436 = t1874 * t7435;
19700   t7437 = 0.80541612095716256868e2 * t7436;
19701   t7438 = t633 * t5856;
19702   t7439 = t7438 * t2870;
19703   t7440 = 0.74218500000000000000e1 * t7439;
19704   t7441 = t5857 * t2882;
19705   t7443 = t1338 * t1030;
19706   t7444 = t634 * t7443;
19707   t7445 = t7444 * t1343;
19708   t7446 = 0.65972000000000000000e1 * t7445;
19709   t7448 = t640 * t1036 * t5863;
19710   t7449 = t5862 * t7448;
19711   t7450 = 0.41232500000000000000e0 * t7449;
19712   t7451 = t5870 * t2859;
19713   t7452 = 0.82465000000000000000e0 * t7451;
19714   t7454 = t640 * t2873 * t1341;
19715   t7455 = t1340 * t7454;
19716   t7456 = 0.32986000000000000000e1 * t7455;
19717   t7457 = t5874 * t2859;
19718   t7458 = 0.24739500000000000000e1 * t7457;
19719   t7460 = t640 * t1036 * t5877;
19720   t7461 = t1340 * t7460;
19721   t7462 = 0.12369750000000000000e1 * t7461;
19722   t7464 = t8 * t398 * t2850;
19723   t7465 = t7464 / 0.4e1;
19724   t7467 = t8 * t1356 * t1031;
19725   t7468 = t7467 / 0.12e2;
19726   t7472 = t2601 * t477;
19727   t7493 = t4779 * t1392;
19728   t7496 = 0.1e1 / t5222 * t36 * t4784;
19729   t7505 = t104 * t106;
19730   t7506 = t7505 * t111;
19731   t7507 = t7506 * t2571;
19732   t7509 = t438 * t463;
19733   t7510 = t2575 * t7509;
19734   t7511 = t2565 * t7510;
19735   t7513 = t113 * t2557;
19736   t7514 = t7513 * t1425;
19737   t7515 = t2570 * t7514;
19738   t7517 = t1583 * t106;
19739   t7518 = t7517 * t483;
19740   t7519 = t2552 * t4811;
19741   t7520 = t7518 * t7519;
19742   t7522 = t4823 * t2549;
19743   t7524 = t2552 * t7509;
19744   t7525 = t2544 * t7524;
19745   t7527 = t84 * t2557;
19746   t7528 = t7527 * t1425;
19747   t7529 = t1423 * t7528;
19748   t7531 = t2545 * t4811;
19749   t7532 = t4810 * t7531;
19750   t7534 = t411 * t106;
19751   t7535 = t7534 * t930;
19752   t7537 = t1463 * t923;
19753   t7539 = t459 * t2558;
19754   t7542 = my_piecewise3(t65, -0.11e2 / 0.9e1 * t1375, 0);
19755   t7543 = t85 * t7542;
19756   t7544 = t433 * t7543;
19757   t7546 = t2561 * t2579;
19758   t7548 = t929 * t7542;
19759   t7549 = t927 * t7548;
19760   t7551 = t43 * t1418;
19761   t7552 = t7551 * t923;
19762   t7554 = t7527 * t438;
19763   t7555 = t2544 * t7554;
19764   t7557 = t2545 * t1438;
19765   t7558 = t2544 * t7557;
19766   t7560 = -0.260e3 / 0.3e1 * t7507 - 0.32e2 * t7511 - 0.10e2 * t7515 + 0.90e2 * t7520 + 0.48e2 * t7522 + 0.12e2 * t7525 + 0.9e1 * t7529 - 0.54e2 * t7532 + 0.1100e4 / 0.9e1 * t7535 - 0.60e2 * t7537 - 0.30e2 * t7539 - 0.3e1 * t7544 + 0.100e3 / 0.3e1 * t7546 + 0.2e1 * t7549 - 0.6e1 * t7552 - 0.12e2 * t7555 - 0.6e1 * t7558;
19767   t7561 = t7513 * t463;
19768   t7562 = t1429 * t7561;
19769   t7564 = t2552 * t1483;
19770   t7565 = t1429 * t7564;
19771   t7567 = t1379 * t68;
19772   t7568 = t7567 * t928;
19773   t7569 = t7568 * t2566;
19774   t7571 = t2561 * t928;
19775   t7572 = t7571 * t2576;
19776   t7574 = t7513 * t438;
19777   t7575 = t2565 * t7574;
19778   t7577 = t2552 * t1438;
19779   t7578 = t2565 * t7577;
19780   t7580 = t126 * t2557;
19781   t7581 = t7580 * t463;
19782   t7582 = t2574 * t7581;
19783   t7584 = t2575 * t1483;
19784   t7585 = t2574 * t7584;
19785   t7587 = t1470 * t2546;
19786   t7589 = t4908 * t2553;
19787   t7591 = t926 * t67;
19788   t7592 = t7591 * t928;
19789   t7593 = t2552 * t1418;
19790   t7594 = t7592 * t7593;
19791   t7596 = t2618 * t1453;
19792   t7597 = t2574 * t7596;
19793   t7599 = t2575 * t1453;
19794   t7600 = t1429 * t7599;
19795   t7602 = t141 * t68;
19796   t7603 = t7602 * t114;
19797   t7604 = t922 * t438;
19798   t7605 = t7604 * t1425;
19799   t7606 = t7603 * t7605;
19800   t7608 = t2569 * t564;
19801   t7610 = t922 * t36 * t1448;
19802   t7611 = t7608 * t7610;
19803   t7613 = t444 * t84;
19804   t7614 = t4799 * t7613;
19805   t7615 = t7614 * t7605;
19806   t7617 = t4938 * t7610;
19807   t7619 = 0.6e1 * t7562 + 0.3e1 * t7565 + 0.400e3 / 0.3e1 * t7569 - 0.200e3 / 0.3e1 * t7572 + 0.16e2 * t7575 + 0.8e1 * t7578 - 0.8e1 * t7582 - 0.4e1 * t7585 - 0.60e2 * t7587 + 0.30e2 * t7589 + 0.24e2 * t7594 + 0.12e2 * t7597 - 0.6e1 * t7600 - 0.40e2 * t7606 + 0.20e2 * t7611 + 0.18e2 * t7615 - 0.9e1 * t7617;
19808   t7620 = t7560 + t7619;
19809   t7621 = t56 * t7620;
19810   t7629 = t87 * t1486 * t91;
19811   t7633 = t89 * t1490 * t91;
19812   t7639 = t2582 * t466;
19813   t7640 = t7639 * t91;
19814   t7643 = t933 * t1486;
19815   t7644 = t7643 * t91;
19816   t7647 = t933 * t1490;
19817   t7648 = t7647 * t91;
19818   t7651 = 0.77e2 / 0.14580e5 * t57 * t7428 + t7621 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t2583 * t2587 - 0.3e1 / 0.100e3 * t934 * t1500 - 0.3e1 / 0.100e3 * t934 * t7629 + 0.3e1 / 0.50e2 * t934 * t7633 - t470 * t7620 * t91 / 0.100e3 + t1499 * t7640 / 0.50e2 + t1499 * t7644 / 0.100e3 - t4970 * t7648 / 0.100e3;
19819   t7654 = 0.110e3 / 0.2187e4 * t24 * t1375 + 0.19e2 / 0.162e3 * t40 * sigma[0] * t1380 * t52 - 0.167e3 / 0.320e3 * t420 * t41 * t1385 * t52 + 0.81e2 / 0.1024e4 * t2530 * t1398 - 0.729e3 / 0.256000e6 * t7493 * t7496 + 0.2e1 * t1503 * t940 + 0.4e1 * t474 * t2597 + 0.2e1 * t94 * t7651;
19820   t7655 = t7654 * t187;
19821   t7657 = t2600 * t621;
19822   t7660 = t943 * t1846;
19823   t7670 = t527 * t177;
19824   t7671 = t5626 * t7670;
19825   t7676 = t2648 * t171;
19826   t7677 = t2651 * t609;
19827   t7678 = t7676 * t7677;
19828   t7681 = t2651 * t1786;
19829   t7682 = t2649 * t7681;
19830   t7685 = t483 * t113;
19831   t7686 = t5656 * t7685;
19832   t7691 = t155 * t107;
19833   t7692 = t7691 * t127;
19834   t7695 = t2609 * t572;
19835   t7698 = t492 * t126;
19836   t7699 = t5504 * t7698;
19837   t7704 = t542 * t120;
19838   t7705 = t7704 * t138;
19839   t7708 = t2616 * t581;
19840   t7711 = t501 * t137;
19841   t7712 = t5513 * t7711;
19842   t7717 = 0.20449913810004000000e3 * t7671 * t7605 - 0.71574698335014000000e2 * t5446 * t7610 - 0.16424851409304800000e3 * t7678 * t7605 + 0.59726732397472000000e2 * t7682 * t7610 + 0.800199900e2 * t7686 * t7605 - 0.320079960e2 * t5455 * t7610 - 0.995804320e2 * t7692 * t7605 + 0.426773280e2 * t7695 * t7610 + 0.42968011747975200000e3 * t7699 * t7605 - 0.16113004405490700000e3 * t5458 * t7610 - 0.43763715669234000000e3 * t7705 * t7605 + 0.17505486267693600000e3 * t7708 * t7610 - 0.2298854518472160e4 * t7712 * t7605 + 0.835947097626240e3 * t5461 * t7610;
19843   t7718 = t546 * t132;
19844   t7719 = t7718 * t151;
19845   t7722 = t2618 * t1438;
19846   t7725 = t150 * t2557;
19847   t7726 = t7725 * t463;
19848   t7729 = t2626 * t1483;
19849   t7736 = t137 * t2557;
19850   t7737 = t7736 * t438;
19851   t7746 = t2662 * t1005;
19852   t7749 = t177 * t2557;
19853   t7750 = t7749 * t438;
19854   t7753 = t2642 * t1438;
19855   t7756 = t609 * t2557;
19856   t7757 = t7756 * t463;
19857   t7760 = t2653 * t1483;
19858   t7763 = 0.2113088496777440e4 * t7719 * t7605 + 0.39785196062940e2 * t2762 * t7722 - 0.31828156850352e2 * t2766 * t7726 - 0.15914078425176e2 * t2766 * t7729 + 0.7662848394907200e4 * t2617 * t2763 - 0.2786490325420800e4 * t5279 * t2767 + 0.383142419745360e3 * t2770 * t7737 + 0.191571209872680e3 * t2770 * t7722 - 0.139324516271040e3 * t1641 * t7726 - 0.69662258135520e2 * t1641 * t7729 + 0.13133620722824000000e4 * t7746 * t2810 - 0.106945197314424e3 * t2805 * t7750 - 0.53472598657212e2 * t2805 * t7753 + 0.39400862168472e2 * t2809 * t7757 + 0.19700431084236e2 * t2809 * t7760;
19859   t7765 = t2689 * t132;
19860   t7766 = t7765 * t979;
19861   t7769 = t7725 * t438;
19862   t7772 = t2626 * t1438;
19863   t7775 = t2675 * t107;
19864   t7776 = t7775 * t953;
19865   t7779 = t2676 * t953;
19866   t7782 = t7580 * t438;
19867   t7785 = t2575 * t1438;
19868   t7788 = t7736 * t463;
19869   t7791 = t2618 * t1483;
19870   t7806 = -0.70436283225914666666e4 * t7766 * t2778 - 0.301869785253920e3 * t2777 * t7769 - 0.150934892626960e3 * t2777 * t7772 + 0.33193477333333333334e3 * t7776 * t2749 - 0.14225776000000000000e3 * t7779 * t2753 + 0.248951080e2 * t2748 * t7782 + 0.124475540e2 * t2748 * t7785 - 0.106693320e2 * t2752 * t7788 - 0.53346660e1 * t2752 * t7791 - 0.1432267058265840e4 * t2610 * t2749 + 0.537100146849690e3 * t5273 * t2753 - 0.95484470551056e2 * t2756 * t7782 - 0.47742235275528e2 * t2756 * t7785 + 0.35806676456646e2 * t1635 * t7788 + 0.17903338228323e2 * t1635 * t7791;
19871   t7807 = t2682 * t120;
19872   t7808 = t7807 * t966;
19873   t7811 = t2683 * t966;
19874   t7816 = t2634 * t1483;
19875   t7819 = t2734 * t144;
19876   t7820 = t7819 * t992;
19877   t7823 = t2735 * t992;
19878   t7826 = t164 * t2557;
19879   t7827 = t7826 * t438;
19880   t7830 = t2634 * t1438;
19881   t7833 = t7749 * t463;
19882   t7836 = t2642 * t1483;
19883   t7849 = 0.14587905223078000000e4 * t7808 * t2763 - 0.58351620892312000000e3 * t7811 * t2767 + 0.79570392125880e2 * t2762 * t7737 + 0.66599853119775e2 * t1620 * t7816 + 0.80511822438128000000e4 * t7820 * t2792 - 0.30191933414298000000e4 * t7823 * t2796 + 0.284159373311040e3 * t2791 * t7827 + 0.142079686655520e3 * t2791 * t7830 - 0.106559764991640e3 * t2795 * t7833 - 0.53279882495820e2 * t2795 * t7836 + 0.4305951365554440e4 * t2633 * t2792 - 0.1519747540783920e4 * t5246 * t2796 + 0.143531712185148e3 * t2799 * t7827 + 0.71765856092574e2 * t2799 * t7830 - 0.50658251359464e2 * t1625 * t7833;
19884   t7854 = t2661 * t158;
19885   t7855 = t7854 * t1005;
19886   t7870 = t7826 * t463;
19887   t7885 = -0.25329125679732e2 * t1625 * t7836 - 0.35648399104808000000e4 * t7855 * t2806 - 0.2667333000e3 * t2570 * t2566 + 0.1066933200e3 * t5252 * t2576 - 0.266733300e2 * t2742 * t7574 - 0.133366650e2 * t2742 * t7577 + 0.106693320e2 * t1630 * t7581 + 0.53346660e1 * t1630 * t7584 + 0.116103763559200e3 * t2781 * t7870 + 0.58051881779600e2 * t2781 * t7816 - 0.9323979436768500e4 * t2625 * t2778 + 0.3329992655988750e4 * t5240 * t2782 - 0.372959177470740e3 * t2785 * t7769 - 0.186479588735370e3 * t2785 * t7772 + 0.133199706239550e3 * t1620 * t7870;
19888   t7898 = t2669 * t171;
19889   t7899 = t7898 * t1018;
19890   t7902 = t2670 * t1018;
19891   t7905 = t7756 * t438;
19892   t7908 = t2653 * t1438;
19893   t7911 = t1786 * t2557;
19894   t7912 = t7911 * t463;
19895   t7915 = t2824 * t1483;
19896   t7918 = t2642 * t1453;
19897   t7921 = t989 * t585;
19898   t7922 = t7921 * t992;
19899   t7923 = t2634 * t1418;
19900   t7926 = t2653 * t1453;
19901   t7929 = -0.681663793666800e3 * t2641 * t2806 + 0.238582327783380e3 * t5232 * t2810 - 0.19476108390480e2 * t2813 * t7750 - 0.9738054195240e1 * t2813 * t7753 + 0.6816637936668e1 * t1615 * t7757 + 0.3408318968334e1 * t1615 * t7760 + 0.54749504697682666666e3 * t7899 * t2820 - 0.19908910799157333333e3 * t7902 * t2825 + 0.14282479486352e2 * t2819 * t7905 + 0.7141239743176e1 * t2819 * t7908 - 0.5193628904128e1 * t2823 * t7912 - 0.2596814452064e1 * t2823 * t7915 - 0.399599118718650e3 * t1620 * t7918 + 0.2131195299832800e4 * t7922 * t7923 + 0.372959177470740e3 * t2795 * t7926;
19902   t7931 = t5170 * t162;
19903   t7936 = t5119 * t922;
19904   t7937 = t7936 * t1453;
19905   t7940 = t5182 * t111;
19906   t7943 = t2690 * t979;
19907   t7948 = t5135 * t148;
19908   t7949 = t2626 * t1418;
19909   t7952 = t5149 * t124;
19910   t7953 = t2575 * t1418;
19911   t7956 = t2626 * t1453;
19912   t7959 = t962 * t119;
19913   t7960 = t7959 * t966;
19914   t7961 = t2618 * t1418;
19915   t7964 = t1001 * t594;
19916   t7965 = t7964 * t1005;
19917   t7966 = t2642 * t1418;
19918   t7969 = t2824 * t1453;
19919   t7972 = t5157 * t175;
19920   t7977 = t1014 * t603;
19921   t7978 = t7977 * t1018;
19922   t7979 = t2653 * t1418;
19923   t7982 = 0.1148253697481184e4 * t7931 * t7923 + 0.177303879758124e3 * t1625 * t7926 + 0.23371330068576e2 * t2823 * t7937 - 0.533466600e2 * t7940 * t7593 + 0.27090878163813333333e4 * t7943 * t2782 - 0.348311290677600e3 * t2781 * t7918 - 0.2424234653559810e4 * t7948 * t7949 - 0.334195646928696e3 * t7952 * t7953 - 0.71613352913292e2 * t1635 * t7956 + 0.358066764566460e3 * t7960 * t7961 - 0.962506775829816e3 * t7965 * t7966 - 0.157603448673888e3 * t2809 * t7969 - 0.185023029709560e3 * t7972 * t7966 - 0.27266551746672e2 * t1615 * t7969 + 0.149966034606696e3 * t7978 * t7979;
19924   t7983 = t5192 * t135;
19925   t7986 = t2634 * t1453;
19926   t7989 = t975 * t576;
19927   t7990 = t7989 * t979;
19928   t7995 = t951 * t170;
19929   t7996 = t7995 * t953;
19930   t8003 = t1605 * t157;
19931   t8004 = t8003 * t518;
19932   t8005 = t2634 * t4811;
19933   t8010 = t1610 * t1002;
19934   t8011 = t8010 * t527;
19935   t8012 = t2642 * t4811;
19936   t8017 = t27 * t2648;
19937   t8018 = t8017 * t1015;
19938   t8019 = t8018 * t3912;
19939   t8020 = t2653 * t4811;
19940   t8023 = t7826 * t1425;
19941   t8026 = t7749 * t1425;
19942   t8031 = 0.1915712098726800e4 * t7983 * t7961 + 0.348311290677600e3 * t1641 * t7986 - 0.1811218711523520e4 * t7990 * t7949 - 0.160039980e2 * t1630 * t7596 + 0.746853240e2 * t7996 * t7953 + 0.213386640e2 * t2752 * t7956 + 0.79570392125880e2 * t2766 * t7986 + 0.40759110109302300000e4 * t8004 * t8005 + 0.2165640245617086e4 * t5484 * t8005 - 0.1773038797581240e4 * t8011 * t8012 - 0.33742357786506600000e3 * t5492 * t8012 + 0.26877029578862400000e3 * t8019 * t8020 - 0.75987377039196e2 * t1546 * t8023 + 0.56286945954960e2 * t2641 * t8026 + 0.10224956905002000000e2 * t1555 * t8026;
19943   t8035 = t7756 * t1425;
19944   t8040 = t1590 * t143;
19945   t8041 = t8040 * t492;
19946   t8042 = t2575 * t4811;
19947   t8047 = t1595 * t963;
19948   t8048 = t8047 * t501;
19949   t8049 = t2618 * t4811;
19950   t8054 = t1600 * t976;
19951   t8055 = t8054 * t509;
19952   t8056 = t2626 * t4811;
19953   t8067 = -0.74658415496840000000e1 * t2652 * t8035 - 0.1680419790e3 * t5519 * t7519 + 0.1920479760e3 * t8041 * t8042 - 0.80565022027453500000e3 * t5614 * t8042 + 0.78774688204621200000e3 * t8048 * t8049 + 0.4075242100927920e4 * t5622 * t8049 - 0.3657268552114800e4 * t8055 * t8056 - 0.47951894246238000000e4 * t5475 * t8056 - 0.57806666666666666668e2 * t7507 - 0.21344e2 * t7511 - 0.66700000000000000000e1 * t7515 + 0.60030000000000000000e2 * t7520 + 0.32016000000000000000e2 * t7522 + 0.8004e1 * t7525;
19954   t8083 = 0.60030000000000000000e1 * t7529 - 0.36018000000000000000e2 * t7532 + 0.81522222222222222225e2 * t7535 - 0.40020e2 * t7537 - 0.20010e2 * t7539 - 0.2001e1 * t7544 + 0.22233333333333333334e2 * t7546 + 0.1334e1 * t7549 - 0.4002e1 * t7552 - 0.8004e1 * t7555 - 0.4002e1 * t7558 + 0.4002e1 * t7562 + 0.2001e1 * t7565 + 0.88933333333333333335e2 * t7569 - 0.44466666666666666667e2 * t7572;
19955   t8094 = t1647 * t143;
19956   t8099 = t1670 * t157;
19957   t8104 = t1678 * t1002;
19958   t8107 = t114 * t7542;
19959   t8110 = 0.10672e2 * t7575 + 0.5336e1 * t7578 - 0.5336e1 * t7582 - 0.2668e1 * t7585 - 0.40020e2 * t7587 + 0.20010e2 * t7589 + 0.16008e2 * t7594 + 0.8004e1 * t7597 - 0.4002e1 * t7600 + 0.29241872888888888889e3 * t8094 * t955 - 0.7991982374373000e4 * t5073 * t984 + 0.68770514999234333333e4 * t8099 * t994 + 0.3672723223561140e4 * t5093 * t997 - 0.30332409764617333333e4 * t8104 * t1007 - 0.26673330e1 * t560 * t8107;
19960   t8111 = t954 * t7542;
19961   t8118 = t1686 * t1015;
19962   t8123 = t1662 * t976;
19963   t8128 = t1654 * t963;
19964   t8131 = t127 * t7542;
19965   t8134 = t967 * t7542;
19966   t8137 = t138 * t7542;
19967   t8140 = t980 * t7542;
19968   t8143 = t151 * t7542;
19969   t8146 = t993 * t7542;
19970   t8149 = t165 * t7542;
19971   t8152 = 0.17782220e1 * t952 * t8111 + 0.6617914522874400e4 * t5058 * t971 - 0.579414224616780e3 * t5033 * t1010 + 0.46454125198033777776e3 * t8118 * t1020 - 0.2400599700e3 * t5108 * t948 - 0.60502961232516444444e4 * t8123 * t981 - 0.1253233675982610e4 * t5115 * t958 + 0.12642851193334266667e4 * t8128 * t968 - 0.5967779409441e1 * t568 * t8131 + 0.3978519606294e1 * t964 * t8134 + 0.17415564533880e2 * t577 * t8137 - 0.11610376355920e2 * t977 * t8140 - 0.13319970623955e2 * t586 * t8143 + 0.8879980415970e1 * t990 * t8146 + 0.4221520946622e1 * t595 * t8149;
19972   t8155 = t1006 * t7542;
19973   t8158 = t178 * t7542;
19974   t8161 = t1019 * t7542;
19975   t8188 = -0.2814347297748e1 * t1003 * t8155 - 0.486902709762e0 * t604 * t8158 + 0.324601806508e0 * t1016 * t8161 - 0.665998531197750e3 * t1710 * t2711 + 0.50319889023830000000e3 * t2735 * t2714 + 0.253291256797320e3 * t1721 * t2717 - 0.18762315318320000000e3 * t2662 * t2720 - 0.34083189683340e2 * t1763 * t2723 + 0.24886138498946666666e2 * t2670 * t2728 - 0.533466600e2 * t1732 * t2693 + 0.47419253333333333334e2 * t2676 * t2696 - 0.179033382283230e3 * t1744 * t2699 + 0.14587905223078000000e3 * t2683 * t2702 + 0.696622581355200e3 * t1776 * t2705 - 0.54181756327626666666e3 * t2690 * t2708;
19976   t8191 = t2626 * t7509;
19977   t8194 = t974 * t976;
19978   t8195 = t8194 * t148;
19979   t8200 = t7580 * t1425;
19980   t8205 = t7736 * t1425;
19981   t8212 = t2642 * t7509;
19982   t8215 = t1013 * t1015;
19983   t8216 = t8215 * t2651;
19984   t8219 = t2824 * t7509;
19985   t8224 = t2634 * t7509;
19986   t8229 = -0.42493977462667200000e4 * t5561 * t2619 - 0.1532569678981440e4 * t2770 * t8191 + 0.38469046992614933333e4 * t8195 * t2627 + 0.160039980e2 * t1513 * t7514 - 0.142257760e2 * t2610 * t8200 + 0.53710014684969000000e2 * t1522 * t8200 - 0.43763715669234000000e2 * t2617 * t8205 - 0.208986774406560e3 * t1530 * t8205 - 0.23049504368556120000e4 * t5589 * t2635 - 0.861190273110888e3 * t2799 * t8212 - 0.28867920658778133333e3 * t8216 * t2654 - 0.114259835890816e3 * t2819 * t8219 + 0.16537464600000000000e3 * t5602 * t2571 + 0.1509348926269600e4 * t2777 * t8224 + 0.50615888371029000000e4 * t5535 * t2627;
19987   t8233 = t988 * t157;
19988   t8234 = t8233 * t162;
19989   t8239 = t7725 * t1425;
19990   t8248 = t551 * t143;
19991   t8249 = t8248 * t124;
19992   t8252 = t2618 * t7509;
19993   t8259 = t961 * t963;
19994   t8260 = t8259 * t135;
19995   t8265 = t1000 * t1002;
19996   t8266 = t8265 * t175;
19997   t8269 = t2653 * t7509;
19998   t8272 = 0.1864795887353700e4 * t2785 * t8224 - 0.43275104560493800000e4 * t8234 * t2635 - 0.1704956239866240e4 * t2791 * t8212 + 0.162545268982880e3 * t2625 * t8239 + 0.19979955935932500000e3 * t1538 * t8239 - 0.15095966707149000000e3 * t2633 * t8023 + 0.533466600e2 * t2742 * t7510 - 0.19441893866666666667e3 * t8249 * t2611 - 0.746853240e2 * t2748 * t8252 + 0.82355355850285800000e3 * t5576 * t2611 + 0.286453411653168e3 * t2756 * t8252 - 0.81692269249236800000e3 * t8260 * t2619 - 0.318281568503520e3 * t2762 * t8191 + 0.18949938471503200000e4 * t8266 * t2643 + 0.748616381200968e3 * t2805 * t8269;
19999   t8281 = t2624 * t590;
20000   t8284 = t509 * t150;
20001   t8285 = t5638 * t8284;
20002   t8290 = t552 * t144;
20003   t8291 = t8290 * t165;
20004   t8294 = t2632 * t599;
20005   t8297 = t518 * t164;
20006   t8298 = t5647 * t8297;
20007   t8303 = t556 * t158;
20008   t8304 = t8303 * t178;
20009   t8307 = t2640 * t610;
20010   t8310 = 0.36128181064340400000e3 * t5548 * t2643 + 0.136332758733360e3 * t2813 * t8269 - 0.26680000000000000000e2 * t7606 + 0.13340000000000000000e2 * t7611 + 0.12006000000000000000e2 * t7615 - 0.60030000000000000000e1 * t7617 - 0.812726344914400e3 * t8281 * t7610 + 0.27971938310305500000e4 * t8285 * t7605 - 0.99899779679662500000e3 * t5449 * t7610 - 0.24153546731438400000e4 * t8291 * t7605 + 0.90575800242894000000e3 * t8294 * t7610 - 0.1291785409666332e4 * t8298 * t7605 + 0.455924262235176e3 * t5452 * t7610 + 0.1069451973144240e4 * t8304 * t7605 - 0.394008621684720e3 * t8307 * t7610;
20011   t8315 = t616 * t1841;
20012   t8316 = t2836 * t1490;
20013   t8319 = t2582 * t184;
20014   t8320 = t8319 * t466;
20015   t8323 = t1839 * t5678;
20016   t8326 = t2836 * t1486;
20017   t8335 = t5689 * t5691;
20018   t8338 = my_piecewise3(t102, t7717 + t7763 + t7806 + t7849 + t7885 + t7929 + t7982 + t8031 + t8067 + t8083 + t8110 + t8152 + t8188 + t8229 + t8272 + t8310, t184 * t616 * t617 * t7620 - 0.4e1 * t2835 * t8320 - 0.2e1 * t2835 * t8326 - 0.2e1 * t2843 * t8320 - t2843 * t8326 + 0.6e1 * t8315 * t8316 + 0.6e1 * t8323 * t8316 + t8335 * t8316);
20019   t8341 = 0.6e1 * t4747 * t944 * t1370 - 0.4e1 * t1369 * t7472 + 0.4e1 * t1369 * t2603 * t477 - 0.2e1 * t1369 * t944 * t1506 + t405 * t7655 - 0.2e1 * t405 * t7657 - t405 * t7660 + 0.2e1 * t1369 * t1370 * t1027 - t405 * t1506 * t1027 - 0.2e1 * t405 * t477 * t2846 - t101 * t8338 + 0.1174e1 * t8338;
20020   t8342 = t8341 * t204;
20021   t8344 = t8 * t18 * t8342;
20022   t8345 = 0.3e1 / 0.8e1 * t8344;
20023   t8346 = t7407 - t7412 + t7418 - t7423 + t7427 - t7432 + t7437 + t7440 - 0.20135403023929064216e2 * t7441 - t7446 + t7450 + t7452 - t7456 + t7458 + t7462 - t7465 + t7468 - t8345;
20024   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20025     v3rho2sigma[0] = -t2512 - t7336 - 0.3e1 / 0.4e1 * t2852 - 0.49479000000000000000e1 * t2856 + 0.24739500000000000000e1 * t2860 + t7340 + 0.18554625000000000000e1 * t2864 + 0.22265550000000000000e2 * t2871 - 0.24739500000000000000e1 * t2876 - 0.60406209071787192650e2 * t2883 + t10 * (t7402 + t8346);
20026 
20027   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20028     v3rho2sigma[1] = 0.0e0;
20029 
20030   t8349 = t2892 / 0.4e1;
20031   t8351 = 0.61848750000000000000e0 * t2898;
20032   t8353 = t1885 * t2887 * t1887;
20033   t8354 = t8353 / 0.6e1;
20034   t8355 = t397 * t1165;
20035   t8357 = t648 * t8355 * t651;
20036   t8358 = t8357 / 0.3e1;
20037   t8360 = t648 * t2887 * t1896;
20038   t8361 = t8360 / 0.2e1;
20039   t8363 = t8 * t1900 * t1166;
20040   t8364 = t8363 / 0.12e2;
20041   t8366 = t898 * t1171 * t6048;
20042   t8367 = t6047 * t8366;
20043   t8368 = 0.41232500000000000000e0 * t8367;
20044   t8369 = t6070 * t2895;
20045   t8370 = 0.82465000000000000000e0 * t8369;
20046   t8372 = t898 * t1171 * t6053;
20047   t8373 = t1953 * t8372;
20048   t8374 = 0.12369750000000000000e1 * t8373;
20049   t8375 = t6027 * t1173;
20050   t8376 = 0.20616250000000000000e0 * t8375;
20051   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20052     v3rho2sigma[2] = -t2889 - t8349 + 0.24739500000000000000e1 * t2896 + t8351 + t10 * (-t8354 - t8358 - t8361 + t8364 + t8368 + t8370 + t8374 - t8376);
20053 
20054   t8380 = t1325 * t2510 * t1906;
20055   t8383 = t385 * t7398 * t663;
20056   t8386 = t385 * t7392 * t663;
20057   t8388 = t7444 * t1918;
20058   t8390 = t1922 * t1030;
20059   t8392 = t385 * t8390 * t1924;
20060   t8397 = t193 * t1035;
20061   t8398 = t196 * t203;
20062   t8399 = t8398 * t5980;
20063   t8400 = t8397 * t8399;
20064   t8401 = t5977 * t8400;
20065   t8403 = t5870 * t2906;
20066   t8405 = -t8380 / 0.6e1 - t8383 / 0.6e1 - t8386 / 0.2e1 - 0.32986000000000000000e1 * t8388 - t8392 / 0.2e1 - t7400 / 0.6e1 + t7468 - t7464 / 0.8e1 - 0.82465000000000000000e0 * t7347 + 0.41232500000000000000e0 * t8401 + 0.41232500000000000000e0 * t8403;
20067   t8406 = t5874 * t2906;
20068   t8409 = t1862 * t7375 * t662;
20069   t8410 = t1340 * t8409;
20070   t8413 = t640 * t2873 * t1916;
20071   t8414 = t1340 * t8413;
20072   t8416 = t7381 * t6030;
20073   t8417 = t5769 * t8416;
20074   t8420 = t640 * t1036 * t6040;
20075   t8421 = t6039 * t8420;
20076   t8428 = 0.12369750000000000000e1 * t8406 + 0.14843700000000000000e2 * t8410 - 0.16493000000000000000e1 * t8414 - 0.40270806047858128434e2 * t8417 + 0.12369750000000000000e1 * t8421 + 0.41232500000000000000e0 * t7451 - t7359 + 0.30924375000000000000e0 * t7385 + 0.37109250000000000000e1 * t7439 - 0.41232500000000000000e0 * t7360 - 0.10067701511964532108e2 * t7441;
20077   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20078     v3rho2sigma[3] = -t2513 - t7336 - t2853 - t2857 + t2861 + t7340 + t2865 + t2872 - t2877 - t2884 - t2904 + t2908 + t10 * (t8405 + t8428);
20079 
20080   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20081     v3rho2sigma[4] = 0.0e0;
20082 
20083   t8432 = t1885 * t2887 * t1931;
20084   t8435 = t648 * t8355 * t668;
20085   t8437 = t1922 * t1165;
20086   t8439 = t648 * t8437 * t1939;
20087   t8442 = t17 * t3246;
20088   t8444 = t648 * t8442 * t651;
20089   t8447 = t8 * t655 * t3247;
20090   t8449 = t1951 * t1165;
20091   t8450 = t634 * t8449;
20092   t8451 = t8450 * t1956;
20093   t8454 = t634 * t655 * t1165;
20094   t8455 = t8454 * t902;
20095   t8457 = t193 * t1170;
20096   t8458 = t369 * t376;
20097   t8459 = t8458 * t6087;
20098   t8460 = t8457 * t8459;
20099   t8461 = t6084 * t8460;
20100   t8463 = t6070 * t3256;
20101   t8465 = -t8432 / 0.6e1 - t8435 / 0.6e1 + t8439 / 0.2e1 - t8357 / 0.6e1 + t8364 - t8444 / 0.2e1 - t8447 / 0.8e1 - 0.32986000000000000000e1 * t8451 - 0.82465000000000000000e0 * t8455 + 0.41232500000000000000e0 * t8461 + 0.41232500000000000000e0 * t8463;
20102   t8467 = t898 * t1171 * t6214;
20103   t8468 = t6213 * t8467;
20104   t8471 = t6199 * t2895;
20105   t8473 = t6124 * t1173;
20106   t8475 = t676 * t376;
20107   t8477 = t2488 * t8475 * t650;
20108   t8478 = t1953 * t8477;
20109   t8480 = t633 * t6192;
20110   t8481 = t8480 * t3265;
20111   t8484 = t898 * t3268 * t1954;
20112   t8485 = t1953 * t8484;
20113   t8487 = t1960 * t3270;
20114   t8490 = t3274 * t214 * t19;
20115   t8491 = t8490 * t6131;
20116   t8492 = t6127 * t8491;
20117   t8494 = t6193 * t3277;
20118   t8496 = -0.12369750000000000000e1 * t8468 + 0.41232500000000000000e0 * t8369 - t8376 + 0.12369750000000000000e1 * t8471 + 0.30924375000000000000e0 * t8473 + 0.14843700000000000000e2 * t8478 + 0.37109250000000000000e1 * t8481 - 0.16493000000000000000e1 * t8485 - 0.41232500000000000000e0 * t8487 - 0.40270806047858128433e2 * t8492 - 0.10067701511964532108e2 * t8494;
20119   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20120     v3rho2sigma[5] = -t2890 - t8349 + t2897 + t8351 - t2913 - t3250 - t3254 + t3258 + t3260 + t3267 - t3272 - t3279 + t10 * (t8465 + t8496);
20121 
20122   t8501 = t1325 * t2510 * t1968;
20123   t8502 = t8501 / 0.6e1;
20124   t8503 = t8383 / 0.3e1;
20125   t8505 = t385 * t2510 * t1974;
20126   t8506 = t8505 / 0.2e1;
20127   t8508 = t640 * t1036 * t6202;
20128   t8509 = t5862 * t8508;
20129   t8510 = 0.41232500000000000000e0 * t8509;
20130   t8511 = 0.82465000000000000000e0 * t8403;
20131   t8513 = t640 * t1036 * t6207;
20132   t8514 = t1340 * t8513;
20133   t8515 = 0.12369750000000000000e1 * t8514;
20134   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20135     v3rho2sigma[6] = -t2903 - t7336 + 0.24739500000000000000e1 * t2907 + t7340 + t10 * (-t8502 - t8503 - t8506 + t7468 + t8510 + t8511 + t8515 - t7359);
20136 
20137   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20138     v3rho2sigma[7] = 0.0e0;
20139 
20140   t8528 = t2998 * t742;
20141   t8549 = t4779 * t2021;
20142   t8552 = 0.1e1 / t6574 * t36 * t6349;
20143   t8559 = t23 * t2006;
20144   t8562 = t709 * t260;
20145   t8563 = t6419 * t8562;
20146   t8564 = t1057 * t703;
20147   t8565 = t8564 * t1425;
20148   t8566 = t8563 * t8565;
20149   t8568 = t1057 * t36;
20150   t8569 = t8568 * t2076;
20151   t8570 = t6359 * t8569;
20152   t8572 = t317 * t245;
20153   t8573 = t8572 * t290;
20154   t8574 = t8573 * t8565;
20155   t8576 = t2966 * t758;
20156   t8577 = t8576 * t8569;
20157   t8579 = t223 * t2047;
20158   t8580 = t8579 * t1058;
20159   t8582 = t680 * t282;
20160   t8583 = t8582 * t1065;
20161   t8585 = t2091 * t1058;
20162   t8587 = t724 * t2955;
20163   t8590 = my_piecewise3(t242, -0.11e2 / 0.9e1 * t2006, 0);
20164   t8591 = t261 * t8590;
20165   t8592 = t698 * t8591;
20166   t8594 = t2958 * t2976;
20167   t8596 = t1064 * t8590;
20168   t8597 = t1062 * t8596;
20169   t8599 = t2949 * t2066;
20170   t8600 = t2962 * t8599;
20171   t8602 = t302 * t2954;
20172   t8603 = t8602 * t728;
20173   t8604 = t2971 * t8603;
20174   t8606 = t2972 * t2111;
20175   t8607 = t2971 * t8606;
20176   t8609 = t2098 * t2943;
20177   t8611 = t6367 * t2950;
20178   t8613 = t3048 * t2081;
20179   t8614 = t2971 * t8613;
20180   t8616 = 0.18e2 * t8566 - 0.9e1 * t8570 - 0.40e2 * t8574 + 0.20e2 * t8577 - 0.6e1 * t8580 + 0.1100e4 / 0.9e1 * t8583 - 0.60e2 * t8585 - 0.30e2 * t8587 - 0.3e1 * t8592 + 0.100e3 / 0.3e1 * t8594 + 0.2e1 * t8597 + 0.8e1 * t8600 - 0.8e1 * t8604 - 0.4e1 * t8607 - 0.60e2 * t8609 + 0.30e2 * t8611 + 0.12e2 * t8614;
20181   t8617 = t2972 * t2081;
20182   t8618 = t2057 * t8617;
20183   t8620 = t1061 * t244;
20184   t8621 = t8620 * t1063;
20185   t8622 = t2949 * t2047;
20186   t8623 = t8621 * t8622;
20187   t8625 = t703 * t728;
20188   t8626 = t2972 * t8625;
20189   t8627 = t2962 * t8626;
20190   t8629 = t289 * t2954;
20191   t8630 = t8629 * t1425;
20192   t8631 = t2967 * t8630;
20193   t8633 = t2421 * t282;
20194   t8634 = t8633 * t748;
20195   t8635 = t2949 * t4811;
20196   t8636 = t8634 * t8635;
20197   t8638 = t6414 * t2946;
20198   t8640 = t2949 * t8625;
20199   t8641 = t2941 * t8640;
20200   t8643 = t260 * t2954;
20201   t8644 = t8643 * t1425;
20202   t8645 = t2052 * t8644;
20203   t8647 = t2942 * t4811;
20204   t8648 = t6430 * t8647;
20205   t8650 = t280 * t282;
20206   t8651 = t8650 * t287;
20207   t8652 = t8651 * t2968;
20208   t8654 = t8643 * t703;
20209   t8655 = t2941 * t8654;
20210   t8657 = t2942 * t2066;
20211   t8658 = t2941 * t8657;
20212   t8660 = t8629 * t728;
20213   t8661 = t2057 * t8660;
20214   t8663 = t2949 * t2111;
20215   t8664 = t2057 * t8663;
20216   t8666 = t2010 * t245;
20217   t8667 = t8666 * t1063;
20218   t8668 = t8667 * t2963;
20219   t8670 = t2958 * t1063;
20220   t8671 = t8670 * t2973;
20221   t8673 = t8629 * t703;
20222   t8674 = t2962 * t8673;
20223   t8676 = -0.6e1 * t8618 + 0.24e2 * t8623 - 0.32e2 * t8627 - 0.10e2 * t8631 + 0.90e2 * t8636 + 0.48e2 * t8638 + 0.12e2 * t8641 + 0.9e1 * t8645 - 0.54e2 * t8648 - 0.260e3 / 0.3e1 * t8652 - 0.12e2 * t8655 - 0.6e1 * t8658 + 0.6e1 * t8661 + 0.3e1 * t8664 + 0.400e3 / 0.3e1 * t8668 - 0.200e3 / 0.3e1 * t8671 + 0.16e2 * t8674;
20224   t8677 = t8616 + t8676;
20225   t8678 = t56 * t8677;
20226   t8686 = t263 * t2114 * t267;
20227   t8690 = t265 * t2118 * t267;
20228   t8697 = t2979 * t731 * t267;
20229   t8700 = t1068 * t2114;
20230   t8701 = t8700 * t267;
20231   t8705 = t1068 * t2118 * t267;
20232   t8708 = 0.77e2 / 0.14580e5 * t57 * t8559 + t8678 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t2980 * t2984 - 0.3e1 / 0.100e3 * t1069 * t2128 - 0.3e1 / 0.100e3 * t1069 * t8686 + 0.3e1 / 0.50e2 * t1069 * t8690 - t735 * t8677 * t267 / 0.100e3 + t2127 * t8697 / 0.50e2 + t2127 * t8701 / 0.100e3 - t6534 * t8705 / 0.100e3;
20233   t8711 = 0.110e3 / 0.2187e4 * t24 * t2006 + 0.19e2 / 0.162e3 * t40 * sigma[2] * t2011 * t231 - 0.167e3 / 0.320e3 * t420 * t221 * t2016 * t231 + 0.81e2 / 0.1024e4 * t2927 * t2027 - 0.729e3 / 0.256000e6 * t8549 * t8552 + 0.2e1 * t2131 * t1075 + 0.4e1 * t739 * t2994 + 0.2e1 * t270 * t8708;
20234   t8712 = t8711 * t363;
20235   t8714 = t2997 * t885;
20236   t8717 = t1078 * t2472;
20237   t8729 = t2381 * t1098;
20238   t8734 = t2389 * t1111;
20239   t8745 = t2414 * t1150;
20240   t8748 = t873 * t353;
20241   t8749 = t7088 * t8748;
20242   t8754 = t748 * t289;
20243   t8755 = t7068 * t8754;
20244   t8760 = t3028 * t347;
20245   t8761 = t3031 * t803;
20246   t8762 = t8760 * t8761;
20247   t8765 = -0.579414224616780e3 * t6821 * t1145 + 0.12642851193334266667e4 * t8729 * t1103 + 0.6617914522874400e4 * t7125 * t1106 - 0.60502961232516444444e4 * t8734 * t1116 - 0.7991982374373000e4 * t6841 * t1119 - 0.18762315318320000000e3 * t3104 * t3066 - 0.34083189683340e2 * t2248 * t3069 + 0.24886138498946666666e2 * t3077 * t3072 + 0.46454125198033777776e3 * t8745 * t1155 + 0.20449913810004000000e3 * t8749 * t8565 - 0.71574698335014000000e2 * t7003 * t8569 + 0.800199900e2 * t8755 * t8565 - 0.320079960e2 * t6997 * t8569 - 0.16424851409304800000e3 * t8762 * t8565;
20248   t8766 = t3031 * t2330;
20249   t8767 = t3029 * t8766;
20250   t8770 = t331 * t283;
20251   t8771 = t8770 * t303;
20252   t8774 = t3039 * t766;
20253   t8777 = t838 * t302;
20254   t8778 = t7076 * t8777;
20255   t8783 = t814 * t296;
20256   t8784 = t8783 * t314;
20257   t8787 = t3046 * t775;
20258   t8790 = t847 * t313;
20259   t8791 = t7052 * t8790;
20260   t8796 = t818 * t308;
20261   t8797 = t8796 * t327;
20262   t8800 = t3004 * t784;
20263   t8803 = t855 * t326;
20264   t8804 = t7060 * t8803;
20265   t8809 = t823 * t320;
20266   t8810 = t8809 * t341;
20267   t8813 = t3012 * t793;
20268   t8816 = 0.59726732397472000000e2 * t8767 * t8569 - 0.995804320e2 * t8771 * t8565 + 0.426773280e2 * t8774 * t8569 + 0.42968011747975200000e3 * t8778 * t8565 - 0.16113004405490700000e3 * t7000 * t8569 - 0.43763715669234000000e3 * t8784 * t8565 + 0.17505486267693600000e3 * t8787 * t8569 - 0.2298854518472160e4 * t8791 * t8565 + 0.835947097626240e3 * t7009 * t8569 + 0.2113088496777440e4 * t8797 * t8565 - 0.812726344914400e3 * t8800 * t8569 + 0.27971938310305500000e4 * t8804 * t8565 - 0.99899779679662500000e3 * t7012 * t8569 - 0.24153546731438400000e4 * t8810 * t8565 + 0.90575800242894000000e3 * t8813 * t8569;
20269   t8818 = t864 * t340;
20270   t8819 = t7043 * t8818;
20271   t8824 = t827 * t334;
20272   t8825 = t8824 * t354;
20273   t8828 = t3020 * t804;
20274   t8842 = -0.1291785409666332e4 * t8819 * t8565 + 0.455924262235176e3 * t7006 * t8569 + 0.1069451973144240e4 * t8825 * t8565 - 0.394008621684720e3 * t8828 * t8569 + 0.12006000000000000000e2 * t8566 - 0.60030000000000000000e1 * t8570 - 0.26680000000000000000e2 * t8574 + 0.13340000000000000000e2 * t8577 - 0.4002e1 * t8580 + 0.81522222222222222225e2 * t8583 - 0.40020e2 * t8585 - 0.20010e2 * t8587 - 0.2001e1 * t8592 + 0.22233333333333333334e2 * t8594 + 0.1334e1 * t8597;
20275   t8843 = t3022 * t2081;
20276   t8846 = t1124 * t779;
20277   t8847 = t8846 * t1127;
20278   t8848 = t3014 * t2047;
20279   t8851 = t3033 * t2081;
20280   t8854 = t7209 * t338;
20281   t8859 = t7191 * t300;
20282   t8860 = t2972 * t2047;
20283   t8863 = t3006 * t2081;
20284   t8866 = t1097 * t295;
20285   t8867 = t8866 * t1101;
20286   t8868 = t3048 * t2047;
20287   t8871 = t3014 * t2081;
20288   t8874 = t7174 * t311;
20289   t8879 = t1110 * t770;
20290   t8880 = t8879 * t1114;
20291   t8881 = t3006 * t2047;
20292   t8888 = t3022 * t2066;
20293   t8891 = -0.399599118718650e3 * t2353 * t8843 + 0.2131195299832800e4 * t8847 * t8848 + 0.372959177470740e3 * t3139 * t8851 + 0.1148253697481184e4 * t8854 * t8848 + 0.177303879758124e3 * t2358 * t8851 - 0.334195646928696e3 * t8859 * t8860 - 0.71613352913292e2 * t2368 * t8863 + 0.358066764566460e3 * t8867 * t8868 + 0.79570392125880e2 * t3198 * t8871 + 0.1915712098726800e4 * t8874 * t8868 + 0.348311290677600e3 * t2348 * t8871 - 0.1811218711523520e4 * t8880 * t8881 - 0.681663793666800e3 * t3021 * t3151 + 0.238582327783380e3 * t6623 * t3155 - 0.9738054195240e1 * t3158 * t8888;
20294   t8894 = t3033 * t2111;
20295   t8901 = t1136 * t788;
20296   t8902 = t8901 * t1140;
20297   t8903 = t3022 * t2047;
20298   t8906 = t3175 * t2081;
20299   t8909 = t7160 * t351;
20300   t8914 = t7179 * t287;
20301   t8921 = t6945 * t324;
20302   t8924 = t3048 * t8625;
20303   t8931 = t8602 * t1425;
20304   t8934 = 0.3408318968334e1 * t2343 * t8894 - 0.2667333000e3 * t2967 * t2963 + 0.1066933200e3 * t6607 * t2973 - 0.962506775829816e3 * t8902 * t8903 - 0.157603448673888e3 * t3154 * t8906 - 0.185023029709560e3 * t8909 * t8903 - 0.27266551746672e2 * t2343 * t8906 - 0.533466600e2 * t8914 * t8622 - 0.160039980e2 * t2363 * t8613 - 0.348311290677600e3 * t3212 * t8843 - 0.2424234653559810e4 * t8921 * t8881 - 0.746853240e2 * t3180 * t8924 + 0.82355355850285800000e3 * t6897 * t3041 + 0.160039980e2 * t2170 * t8630 - 0.142257760e2 * t3040 * t8931;
20305   t8937 = t313 * t2954;
20306   t8938 = t8937 * t1425;
20307   t8943 = t326 * t2954;
20308   t8944 = t8943 * t1425;
20309   t8949 = t340 * t2954;
20310   t8950 = t8949 * t1425;
20311   t8955 = t353 * t2954;
20312   t8956 = t8955 * t1425;
20313   t8961 = t803 * t2954;
20314   t8962 = t8961 * t1425;
20315   t8965 = t1148 * t1150;
20316   t8966 = t8965 * t3031;
20317   t8969 = t3175 * t8625;
20318   t8974 = t2374 * t319;
20319   t8977 = t2397 * t333;
20320   t8980 = 0.53710014684969000000e2 * t2179 * t8931 - 0.43763715669234000000e2 * t3047 * t8938 - 0.208986774406560e3 * t2187 * t8938 + 0.162545268982880e3 * t3005 * t8944 + 0.19979955935932500000e3 * t2195 * t8944 - 0.15095966707149000000e3 * t3013 * t8950 - 0.75987377039196e2 * t2203 * t8950 + 0.56286945954960e2 * t3021 * t8956 + 0.10224956905002000000e2 * t2160 * t8956 - 0.74658415496840000000e1 * t3032 * t8962 - 0.28867920658778133333e3 * t8966 * t3034 - 0.114259835890816e3 * t3169 * t8969 - 0.2400599700e3 * t7110 * t1083 + 0.29241872888888888889e3 * t8974 * t1090 + 0.68770514999234333333e4 * t8977 * t1129;
20321   t8984 = t2406 * t1137;
20322   t8987 = t3006 * t8625;
20323   t8990 = t1109 * t1111;
20324   t8991 = t8990 * t324;
20325   t8994 = t3014 * t8625;
20326   t8999 = t290 * t8590;
20327   t9002 = t1089 * t8590;
20328   t9005 = t303 * t8590;
20329   t9008 = t1102 * t8590;
20330   t9011 = t314 * t8590;
20331   t9014 = t1115 * t8590;
20332   t9017 = t327 * t8590;
20333   t9020 = t1128 * t8590;
20334   t9023 = t341 * t8590;
20335   t9026 = 0.3672723223561140e4 * t6926 * t1132 - 0.30332409764617333333e4 * t8984 * t1142 - 0.1532569678981440e4 * t3202 * t8987 + 0.38469046992614933333e4 * t8991 * t3007 + 0.1509348926269600e4 * t3208 * t8994 - 0.1253233675982610e4 * t6916 * t1093 - 0.26673330e1 * t754 * t8999 + 0.17782220e1 * t1087 * t9002 - 0.5967779409441e1 * t762 * t9005 + 0.3978519606294e1 * t1099 * t9008 + 0.17415564533880e2 * t771 * t9011 - 0.11610376355920e2 * t1112 * t9014 - 0.13319970623955e2 * t780 * t9017 + 0.8879980415970e1 * t1125 * t9020 + 0.4221520946622e1 * t789 * t9023;
20336   t9027 = t1141 * t8590;
20337   t9030 = t354 * t8590;
20338   t9033 = t1154 * t8590;
20339   t9054 = t3033 * t8625;
20340   t9061 = -0.2814347297748e1 * t1138 * t9027 - 0.486902709762e0 * t798 * t9030 + 0.324601806508e0 * t1151 * t9033 - 0.533466600e2 * t2233 * t3115 + 0.47419253333333333334e2 * t3112 * t3118 - 0.179033382283230e3 * t2245 * t3121 + 0.14587905223078000000e3 * t3084 * t3126 + 0.696622581355200e3 * t2262 * t3129 - 0.54181756327626666666e3 * t3091 * t3132 - 0.665998531197750e3 * t2276 * t3056 + 0.50319889023830000000e3 * t3098 * t3059 + 0.253291256797320e3 * t2222 * t3062 + 0.748616381200968e3 * t3150 * t9054 + 0.36128181064340400000e3 * t7085 * t3023 + 0.136332758733360e3 * t3158 * t9054;
20341   t9069 = t822 * t319;
20342   t9070 = t9069 * t300;
20343   t9077 = t1123 * t333;
20344   t9078 = t9077 * t338;
20345   t9081 = t3022 * t8625;
20346   t9090 = t1096 * t1098;
20347   t9091 = t9090 * t311;
20348   t9098 = t3111 * t283;
20349   t9099 = t9098 * t1088;
20350   t9102 = 0.16537464600000000000e3 * t6992 * t2968 + 0.533466600e2 * t3163 * t8626 - 0.19441893866666666667e3 * t9070 * t3041 + 0.50615888371029000000e4 * t6970 * t3007 + 0.1864795887353700e4 * t3216 * t8994 - 0.43275104560493800000e4 * t9078 * t3015 - 0.1704956239866240e4 * t3222 * t9081 - 0.23049504368556120000e4 * t6862 * t3015 - 0.861190273110888e3 * t3143 * t9081 + 0.286453411653168e3 * t3188 * t8924 - 0.81692269249236800000e3 * t9091 * t3049 - 0.318281568503520e3 * t3194 * t8987 - 0.42493977462667200000e4 * t6950 * t3049 + 0.33193477333333333334e3 * t9099 * t3181;
20351   t9103 = t1086 * t346;
20352   t9104 = t9103 * t1088;
20353   t9107 = t3112 * t1088;
20354   t9120 = t3022 * t4811;
20355   t9123 = t215 * t3028;
20356   t9124 = t9123 * t1150;
20357   t9125 = t9124 * t4183;
20358   t9126 = t3033 * t4811;
20359   t9131 = t2426 * t319;
20360   t9132 = t9131 * t838;
20361   t9133 = t2972 * t4811;
20362   t9136 = 0.746853240e2 * t9104 * t8860 - 0.14225776000000000000e3 * t9107 * t3185 + 0.213386640e2 * t3184 * t8863 + 0.5336e1 * t8600 - 0.5336e1 * t8604 - 0.2668e1 * t8607 - 0.40020e2 * t8609 + 0.20010e2 * t8611 + 0.8004e1 * t8614 - 0.4002e1 * t8618 + 0.16008e2 * t8623 - 0.33742357786506600000e3 * t6979 * t9120 + 0.26877029578862400000e3 * t9125 * t9126 - 0.1680419790e3 * t6885 * t8635 + 0.1920479760e3 * t9132 * t9133;
20363   t9140 = t2431 * t1098;
20364   t9141 = t9140 * t847;
20365   t9142 = t3048 * t4811;
20366   t9147 = t2436 * t1111;
20367   t9148 = t9147 * t855;
20368   t9149 = t3006 * t4811;
20369   t9154 = t2441 * t333;
20370   t9155 = t9154 * t864;
20371   t9156 = t3014 * t4811;
20372   t9161 = t2446 * t1137;
20373   t9162 = t9161 * t873;
20374   t9165 = t1135 * t1137;
20375   t9166 = t9165 * t351;
20376   t9175 = -0.80565022027453500000e3 * t6906 * t9133 + 0.78774688204621200000e3 * t9141 * t9142 + 0.4075242100927920e4 * t6959 * t9142 - 0.3657268552114800e4 * t9148 * t9149 - 0.47951894246238000000e4 * t6773 * t9149 + 0.40759110109302300000e4 * t9155 * t9156 + 0.2165640245617086e4 * t6871 * t9156 - 0.1773038797581240e4 * t9162 * t9120 + 0.18949938471503200000e4 * t9166 * t3023 - 0.21344e2 * t8627 - 0.66700000000000000000e1 * t8631 + 0.60030000000000000000e2 * t8636 + 0.32016000000000000000e2 * t8638 + 0.8004e1 * t8641 + 0.60030000000000000000e1 * t8645;
20377   t9184 = t3006 * t2066;
20378   t9187 = t3014 * t2111;
20379   t9190 = t3097 * t320;
20380   t9191 = t9190 * t1127;
20381   t9194 = t3098 * t1127;
20382   t9197 = t3014 * t2066;
20383   t9200 = t3022 * t2111;
20384   t9211 = -0.36018000000000000000e2 * t8648 - 0.57806666666666666668e2 * t8652 - 0.133366650e2 * t3163 * t8599 + 0.53346660e1 * t2363 * t8606 + 0.3329992655988750e4 * t6597 * t3213 - 0.186479588735370e3 * t3216 * t9184 + 0.66599853119775e2 * t2353 * t9187 + 0.80511822438128000000e4 * t9191 * t3144 - 0.30191933414298000000e4 * t9194 * t3140 + 0.142079686655520e3 * t3222 * t9197 - 0.53279882495820e2 * t3139 * t9200 + 0.4305951365554440e4 * t3013 * t3144 - 0.1519747540783920e4 * t6603 * t3140 + 0.71765856092574e2 * t3143 * t9197 - 0.25329125679732e2 * t2358 * t9200;
20385   t9214 = t3103 * t334;
20386   t9215 = t9214 * t1140;
20387   t9218 = t3104 * t1140;
20388   t9228 = t8949 * t728;
20389   t9231 = t8949 * t703;
20390   t9234 = t8955 * t728;
20391   t9241 = t1149 * t797;
20392   t9242 = t9241 * t1153;
20393   t9243 = t3033 * t2047;
20394   t9246 = -0.35648399104808000000e4 * t9215 * t3151 + 0.13133620722824000000e4 * t9218 * t3155 - 0.8004e1 * t8655 - 0.4002e1 * t8658 + 0.4002e1 * t8661 + 0.2001e1 * t8664 + 0.88933333333333333335e2 * t8668 - 0.44466666666666666667e2 * t8671 + 0.10672e2 * t8674 + 0.133199706239550e3 * t2353 * t9228 + 0.284159373311040e3 * t3222 * t9231 - 0.106559764991640e3 * t3139 * t9234 + 0.143531712185148e3 * t3143 * t9231 - 0.50658251359464e2 * t2358 * t9234 + 0.149966034606696e3 * t9242 * t9243;
20395   t9247 = t7167 * t1057;
20396   t9248 = t9247 * t2081;
20397   t9255 = t8602 * t703;
20398   t9258 = t8937 * t728;
20399   t9265 = t8937 * t703;
20400   t9268 = t8943 * t728;
20401   t9275 = t8943 * t703;
20402   t9282 = t3091 * t1114;
20403   t9285 = 0.23371330068576e2 * t3174 * t9248 - 0.266733300e2 * t3163 * t8673 + 0.106693320e2 * t2363 * t8603 + 0.248951080e2 * t3180 * t9255 - 0.106693320e2 * t3184 * t9258 - 0.95484470551056e2 * t3188 * t9255 + 0.35806676456646e2 * t2368 * t9258 + 0.79570392125880e2 * t3194 * t9265 - 0.31828156850352e2 * t3198 * t9268 + 0.383142419745360e3 * t3202 * t9265 - 0.139324516271040e3 * t2348 * t9268 - 0.301869785253920e3 * t3208 * t9275 + 0.116103763559200e3 * t3212 * t9228 - 0.372959177470740e3 * t3216 * t9275 + 0.27090878163813333333e4 * t9282 * t3213;
20404   t9293 = t8955 * t703;
20405   t9296 = t8961 * t728;
20406   t9303 = t8961 * t703;
20407   t9306 = t2330 * t2954;
20408   t9307 = t9306 * t728;
20409   t9310 = t3076 * t347;
20410   t9311 = t9310 * t1153;
20411   t9314 = t3077 * t1153;
20412   t9317 = t3033 * t2066;
20413   t9320 = t3175 * t2111;
20414   t9323 = t2972 * t2066;
20415   t9326 = t3048 * t2111;
20416   t9329 = -0.150934892626960e3 * t3208 * t9184 + 0.58051881779600e2 * t3212 * t9187 - 0.9323979436768500e4 * t3005 * t3209 - 0.106945197314424e3 * t3150 * t9293 + 0.39400862168472e2 * t3154 * t9296 - 0.19476108390480e2 * t3158 * t9293 + 0.6816637936668e1 * t2343 * t9296 + 0.14282479486352e2 * t3169 * t9303 - 0.5193628904128e1 * t3174 * t9307 + 0.54749504697682666666e3 * t9311 * t3170 - 0.19908910799157333333e3 * t9314 * t3176 + 0.7141239743176e1 * t3169 * t9317 - 0.2596814452064e1 * t3174 * t9320 + 0.124475540e2 * t3180 * t9323 - 0.53346660e1 * t3184 * t9326;
20417   t9342 = t3083 * t296;
20418   t9343 = t9342 * t1101;
20419   t9346 = t3084 * t1101;
20420   t9349 = t3048 * t2066;
20421   t9352 = t3006 * t2111;
20422   t9363 = t3090 * t308;
20423   t9364 = t9363 * t1114;
20424   t9367 = -0.1432267058265840e4 * t3040 * t3181 - 0.53472598657212e2 * t3150 * t8888 + 0.19700431084236e2 * t3154 * t8894 + 0.537100146849690e3 * t6645 * t3185 - 0.47742235275528e2 * t3188 * t9323 + 0.17903338228323e2 * t2368 * t9326 + 0.14587905223078000000e4 * t9343 * t3195 - 0.58351620892312000000e3 * t9346 * t3199 + 0.39785196062940e2 * t3194 * t9349 - 0.15914078425176e2 * t3198 * t9352 + 0.7662848394907200e4 * t3047 * t3195 - 0.2786490325420800e4 * t6657 * t3199 + 0.191571209872680e3 * t3202 * t9349 - 0.69662258135520e2 * t2348 * t9352 - 0.70436283225914666666e4 * t9364 * t3209;
20425   t9372 = t616 * t2467;
20426   t9373 = t3233 * t2118;
20427   t9376 = t2979 * t360;
20428   t9377 = t9376 * t731;
20429   t9380 = t1839 * t7234;
20430   t9383 = t3233 * t2114;
20431   t9392 = t5689 * t7245;
20432   t9395 = my_piecewise3(t278, t8765 + t8816 + t8842 + t8891 + t8934 + t8980 + t9026 + t9061 + t9102 + t9136 + t9175 + t9211 + t9246 + t9285 + t9329 + t9367, t360 * t616 * t8677 * t881 - 0.4e1 * t3232 * t9377 - 0.2e1 * t3232 * t9383 - 0.2e1 * t3240 * t9377 - t3240 * t9383 + 0.6e1 * t9372 * t9373 + 0.6e1 * t9380 * t9373 + t9392 * t9373);
20433   t9398 = 0.6e1 * t6316 * t1079 * t2001 - 0.4e1 * t2000 * t8528 + 0.4e1 * t2000 * t3000 * t742 - 0.2e1 * t2000 * t1079 * t2134 + t674 * t8712 - 0.2e1 * t674 * t8714 - t674 * t8717 + 0.2e1 * t2000 * t2001 * t1162 - t674 * t2134 * t1162 - 0.2e1 * t674 * t742 * t3243 - t277 * t9395 + 0.1174e1 * t9395;
20434   t9399 = t9398 * t377;
20435   t9401 = t8 * t212 * t9399;
20436   t9402 = 0.3e1 / 0.8e1 * t9401;
20437   t9404 = t648 * t8442 * t668;
20438   t9406 = t1885 * t2887 * t1979;
20439   t9407 = t9406 / 0.6e1;
20440   t9409 = t648 * t2887 * t1992;
20441   t9410 = t9409 / 0.2e1;
20442   t9411 = t8435 / 0.3e1;
20443   t9412 = t8447 / 0.4e1;
20444   t9413 = t1165 * t1170;
20445   t9415 = t9413 * t2502 * t2504;
20446   t9416 = t2500 * t9415;
20447   t9417 = 0.80541612095716256868e2 * t9416;
20448   t9419 = t888 * t2486 * t19;
20449   t9420 = t9419 * t3264;
20450   t9421 = t3261 * t9420;
20451   t9422 = 0.22265550000000000000e2 * t9421;
20452   t9423 = t888 * t3274;
20453   t9425 = t9423 * t214 * t2504;
20454   t9426 = t2500 * t9425;
20455   t9427 = 0.60406209071787192650e2 * t9426;
20456   t9428 = 0.1e1 / t330;
20457   t9430 = t9428 * t376 * t367;
20458   t9431 = t7280 * t9430;
20459   t9432 = t3261 * t9431;
20460   t9433 = 0.22265550000000000000e3 * t9432;
20461   t9434 = t3274 * t2502;
20462   t9435 = t9434 * t376;
20463   t9436 = t7288 * t9435;
20464   t9437 = t2500 * t9436;
20465   t9438 = 0.62012907040371922630e0 * t9437;
20466   t9440 = t3275 * t2502 * t2504;
20467   t9441 = t2500 * t9440;
20468   t9442 = 0.30203104535893596326e2 * t9441;
20469   t9443 = 0.74218500000000000000e1 * t8481;
20470   t9444 = 0.20135403023929064216e2 * t8494;
20471   t9445 = t8559 * t376;
20472   t9446 = t3263 * t9445;
20473   t9447 = t3261 * t9446;
20474   t9448 = 0.55663875000000000000e2 * t9447;
20475   t9449 = -t8376 - t9402 - t9404 - t9407 - t9410 - t9411 - t9412 + t9417 + t9422 - t9427 + t9433 - t9438 + t9442 + t9443 - t9444 - t9448 + t8364;
20476   t9451 = t898 * t3268 * t1986;
20477   t9452 = t1953 * t9451;
20478   t9453 = 0.32986000000000000000e1 * t9452;
20479   t9455 = t898 * t1171 * t7298;
20480   t9456 = t6047 * t9455;
20481   t9457 = 0.41232500000000000000e0 * t9456;
20482   t9458 = t6199 * t3256;
20483   t9459 = 0.24739500000000000000e1 * t9458;
20484   t9461 = t898 * t1171 * t7305;
20485   t9462 = t1953 * t9461;
20486   t9463 = 0.12369750000000000000e1 * t9462;
20487   t9464 = t8450 * t1988;
20488   t9465 = 0.65972000000000000000e1 * t9464;
20489   t9466 = 0.82465000000000000000e0 * t8463;
20490   t9467 = t6279 * t1173;
20491   t9468 = 0.92773125000000000000e0 * t9467;
20492   t9469 = t3252 * t2496;
20493   t9470 = 0.57725500000000000000e1 * t9469;
20494   t9472 = t634 * t212 * t3246;
20495   t9473 = t9472 * t902;
20496   t9474 = 0.49479000000000000000e1 * t9473;
20497   t9475 = t3252 * t2490;
20498   t9476 = 0.29687400000000000000e2 * t9475;
20499   t9478 = t2488 * t8475 * t667;
20500   t9479 = t1953 * t9478;
20501   t9480 = 0.29687400000000000000e2 * t9479;
20502   t9481 = t8490 * t6284;
20503   t9482 = t6127 * t9481;
20504   t9483 = 0.80541612095716256867e2 * t9482;
20505   t9484 = t1170 * t2493;
20506   t9486 = t898 * t9484 * t376;
20507   t9487 = t894 * t9486;
20508   t9488 = 0.28862750000000000000e1 * t9487;
20509   t9489 = t2481 * t3270;
20510   t9490 = 0.24739500000000000000e1 * t9489;
20511   t9491 = t366 * t4249;
20512   t9492 = 0.1e1 / t213;
20513   t9494 = t9492 * t896 * t376;
20514   t9495 = t9491 * t9494;
20515   t9496 = t3261 * t9495;
20516   t9497 = 0.12113307472923900000e3 * t9496;
20517   t9498 = 0.16493000000000000000e1 * t8455;
20518   t9499 = 0.61848750000000000000e0 * t8473;
20519   t9500 = 0.82465000000000000000e0 * t8487;
20520   t9501 = -t9453 + t9457 + t9459 + t9463 - t9465 + t9466 + t9468 + t9470 - t9474 - t9476 + t9480 - t9483 + t9488 - t9490 + t9497 - t9498 + t9499 - t9500;
20521   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20522     v3rho2sigma[8] = -t2912 - t8349 - 0.3e1 / 0.4e1 * t3249 - 0.49479000000000000000e1 * t3253 + 0.24739500000000000000e1 * t3257 + t8351 + 0.18554625000000000000e1 * t3259 + 0.22265550000000000000e2 * t3266 - 0.24739500000000000000e1 * t3271 - 0.60406209071787192650e2 * t3278 + t10 * (t9449 + t9501);
20523 
20524   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20525     v3rho2lapl[0] = 0.0e0;
20526 
20527   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20528     v3rho2lapl[1] = 0.0e0;
20529 
20530   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20531     v3rho2lapl[2] = 0.0e0;
20532 
20533   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20534     v3rho2lapl[3] = 0.0e0;
20535 
20536   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20537     v3rho2lapl[4] = 0.0e0;
20538 
20539   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
20540     v3rho2lapl[5] = 0.0e0;
20541 
20542   t9504 = t17 * t1244;
20543   t9506 = t385 * t9504 * t392;
20544   t9510 = t8 * t398 * t1245 / 0.6e1;
20545   t9512 = t8 * t18 * t3542;
20546   t9514 = t634 * t18 * t1244;
20547   t9515 = t9514 * t644;
20548   t9517 = t1323 * t1244;
20549   t9521 = t15 * t3541;
20550   t9524 = t384 * t1244;
20551   t9525 = t3547 * t9524;
20552   t9531 = t4747 * t94;
20553   t9532 = t3292 * t1370;
20554   t9535 = t1369 * t474;
20555   t9538 = t3346 * t187;
20556   t9539 = t9538 * t477;
20557   t9542 = t1194 * t621;
20558   t9543 = t9542 * t477;
20559   t9546 = t3292 * t1506;
20560   t9549 = t1503 * t1194;
20561   t9553 = t474 * t3346;
20562   t9560 = t1463 * t1182;
20563   t9562 = t7551 * t1182;
20564   t9564 = t7534 * t1185;
20565   t9566 = t459 * t3315;
20566   t9569 = my_piecewise3(t65, 0.40e2 / 0.9e1 * t407, 0);
20567   t9570 = t85 * t9569;
20568   t9571 = t433 * t9570;
20569   t9573 = t2561 * t3330;
20570   t9575 = t929 * t9569;
20571   t9576 = t927 * t9575;
20572   t9578 = t7571 * t3327;
20573   t9580 = t3326 * t1453;
20574   t9581 = t1429 * t9580;
20575   t9583 = t3309 * t1418;
20576   t9584 = t7592 * t9583;
20577   t9586 = t3363 * t1453;
20578   t9587 = t2574 * t9586;
20579   t9589 = t113 * t3314;
20580   t9590 = t9589 * t438;
20581   t9591 = t2565 * t9590;
20582   t9593 = t3309 * t1438;
20583   t9594 = t2565 * t9593;
20584   t9596 = t126 * t3314;
20585   t9597 = t9596 * t463;
20586   t9598 = t2574 * t9597;
20587   t9600 = t3326 * t1483;
20588   t9601 = t2574 * t9600;
20589   t9603 = t1470 * t3303;
20590   t9605 = t4908 * t3310;
20591   t9607 = -0.60e2 * t9560 - 0.6e1 * t9562 + 0.1100e4 / 0.9e1 * t9564 - 0.30e2 * t9566 - 0.3e1 * t9571 + 0.100e3 / 0.3e1 * t9573 + 0.2e1 * t9576 - 0.200e3 / 0.3e1 * t9578 - 0.6e1 * t9581 + 0.24e2 * t9584 + 0.12e2 * t9587 + 0.16e2 * t9591 + 0.8e1 * t9594 - 0.8e1 * t9598 - 0.4e1 * t9601 - 0.60e2 * t9603 + 0.30e2 * t9605;
20592   t9608 = t84 * t3314;
20593   t9609 = t9608 * t438;
20594   t9610 = t2544 * t9609;
20595   t9612 = t3302 * t1438;
20596   t9613 = t2544 * t9612;
20597   t9615 = t9589 * t463;
20598   t9616 = t1429 * t9615;
20599   t9618 = t3309 * t1483;
20600   t9619 = t1429 * t9618;
20601   t9621 = t7568 * t3320;
20602   t9623 = t4823 * t3306;
20603   t9625 = t3309 * t7509;
20604   t9626 = t2544 * t9625;
20605   t9628 = t9608 * t1425;
20606   t9629 = t1423 * t9628;
20607   t9631 = t3302 * t4811;
20608   t9632 = t4810 * t9631;
20609   t9634 = t7506 * t3323;
20610   t9636 = t3326 * t7509;
20611   t9637 = t2565 * t9636;
20612   t9639 = t9589 * t1425;
20613   t9640 = t2570 * t9639;
20614   t9642 = t3309 * t4811;
20615   t9643 = t7518 * t9642;
20616   t9645 = t1181 * t36;
20617   t9646 = t9645 * t1448;
20618   t9647 = t4938 * t9646;
20619   t9649 = t1181 * t438;
20620   t9650 = t9649 * t1425;
20621   t9651 = t7603 * t9650;
20622   t9653 = t7608 * t9646;
20623   t9655 = t7614 * t9650;
20624   t9657 = -0.12e2 * t9610 - 0.6e1 * t9613 + 0.6e1 * t9616 + 0.3e1 * t9619 + 0.400e3 / 0.3e1 * t9621 + 0.48e2 * t9623 + 0.12e2 * t9626 + 0.9e1 * t9629 - 0.54e2 * t9632 - 0.260e3 / 0.3e1 * t9634 - 0.32e2 * t9637 - 0.10e2 * t9640 + 0.90e2 * t9643 - 0.9e1 * t9647 - 0.40e2 * t9651 + 0.20e2 * t9653 + 0.18e2 * t9655;
20625   t9658 = t9607 + t9657;
20626   t9659 = t56 * t9658;
20627   t9673 = t3333 * t466;
20628   t9674 = t9673 * t91;
20629   t9677 = t1188 * t1486;
20630   t9685 = t9659 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t3334 * t2587 - 0.3e1 / 0.100e3 * t1189 * t1500 - 0.3e1 / 0.100e3 * t1189 * t7629 + 0.3e1 / 0.50e2 * t1189 * t7633 - t470 * t9658 * t91 / 0.100e3 + t1499 * t9674 / 0.50e2 + t1499 * t9677 * t91 / 0.100e3 - t4970 * t1188 * t1490 * t91 / 0.100e3;
20631   t9686 = t94 * t9685;
20632   t9704 = t3369 * t1438;
20633   t9707 = t3375 * t1483;
20634   t9720 = t3467 * t1483;
20635   t9727 = t3467 * t1438;
20636   t9730 = t3504 * t1483;
20637   t9737 = -0.150934892626960e3 * t2777 * t9704 + 0.58051881779600e2 * t2781 * t9707 - 0.9323979436768500e4 * t2625 * t3490 + 0.3329992655988750e4 * t5240 * t3450 - 0.186479588735370e3 * t2785 * t9704 + 0.66599853119775e2 * t1620 * t9707 + 0.80511822438128000000e4 * t7820 * t3453 + 0.3408318968334e1 * t1615 * t9720 + 0.54749504697682666666e3 * t7899 * t3501 - 0.19908910799157333333e3 * t7902 * t3505 + 0.7141239743176e1 * t2819 * t9727 - 0.2596814452064e1 * t2823 * t9730 + 0.53346660e1 * t1630 * t9600 - 0.35648399104808000000e4 * t7855 * t3464;
20638   t9740 = t3456 * t1438;
20639   t9751 = t3363 * t1438;
20640   t9754 = t3369 * t1483;
20641   t9771 = 0.13133620722824000000e4 * t7746 * t3468 - 0.53472598657212e2 * t2805 * t9740 + 0.19700431084236e2 * t2809 * t9720 - 0.2667333000e3 * t2570 * t3320 - 0.133366650e2 * t2742 * t9593 - 0.58351620892312000000e3 * t7811 * t3482 + 0.39785196062940e2 * t2762 * t9751 - 0.15914078425176e2 * t2766 * t9754 + 0.7662848394907200e4 * t2617 * t3479 - 0.2786490325420800e4 * t5279 * t3482 + 0.191571209872680e3 * t2770 * t9751 - 0.69662258135520e2 * t1641 * t9754 - 0.70436283225914666666e4 * t7766 * t3490 + 0.27090878163813333333e4 * t7943 * t3450 - 0.30191933414298000000e4 * t7823 * t3457;
20642   t9773 = t3375 * t1438;
20643   t9776 = t3456 * t1483;
20644   t9798 = 0.142079686655520e3 * t2791 * t9773 - 0.53279882495820e2 * t2795 * t9776 + 0.4305951365554440e4 * t2633 * t3453 - 0.1519747540783920e4 * t5246 * t3457 + 0.71765856092574e2 * t2799 * t9773 - 0.25329125679732e2 * t1625 * t9776 + 0.3672723223561140e4 * t5093 * t1225 - 0.30332409764617333333e4 * t8104 * t1228 - 0.40020e2 * t9560 - 0.4002e1 * t9562 + 0.81522222222222222225e2 * t9564 - 0.20010e2 * t9566 - 0.2001e1 * t9571 + 0.22233333333333333334e2 * t9573 + 0.1334e1 * t9576;
20645   t9821 = -0.579414224616780e3 * t5033 * t1231 - 0.2400599700e3 * t5108 * t1201 + 0.6617914522874400e4 * t5058 * t1213 - 0.60502961232516444444e4 * t8123 * t1216 - 0.7991982374373000e4 * t5073 * t1219 + 0.68770514999234333333e4 * t8099 * t1222 + 0.46454125198033777776e3 * t8118 * t1234 - 0.44466666666666666667e2 * t9578 - 0.4002e1 * t9581 + 0.16008e2 * t9584 + 0.8004e1 * t9587 + 0.10672e2 * t9591 + 0.5336e1 * t9594 - 0.5336e1 * t9598 - 0.2668e1 * t9601;
20646   t9847 = -0.40020e2 * t9603 + 0.20010e2 * t9605 - 0.8004e1 * t9610 - 0.4002e1 * t9613 + 0.4002e1 * t9616 + 0.2001e1 * t9619 + 0.88933333333333333335e2 * t9621 - 0.23049504368556120000e4 * t5589 * t3376 + 0.18949938471503200000e4 * t8266 * t3518 + 0.36128181064340400000e3 * t5548 * t3518 - 0.28867920658778133333e3 * t8216 * t3523 - 0.81692269249236800000e3 * t8260 * t3364 - 0.42493977462667200000e4 * t5561 * t3364 + 0.38469046992614933333e4 * t8195 * t3370 + 0.50615888371029000000e4 * t5535 * t3370;
20647   t9856 = t3369 * t4811;
20648   t9859 = t3375 * t4811;
20649   t9864 = t3456 * t4811;
20650   t9869 = t9596 * t1425;
20651   t9874 = t137 * t3314;
20652   t9875 = t9874 * t1425;
20653   t9880 = t150 * t3314;
20654   t9881 = t9880 * t1425;
20655   t9886 = -0.43275104560493800000e4 * t8234 * t3376 + 0.16537464600000000000e3 * t5602 * t3323 - 0.19441893866666666667e3 * t8249 * t3358 + 0.82355355850285800000e3 * t5576 * t3358 - 0.47951894246238000000e4 * t5475 * t9856 + 0.40759110109302300000e4 * t8004 * t9859 + 0.2165640245617086e4 * t5484 * t9859 - 0.1773038797581240e4 * t8011 * t9864 + 0.160039980e2 * t1513 * t9639 - 0.142257760e2 * t2610 * t9869 + 0.53710014684969000000e2 * t1522 * t9869 - 0.43763715669234000000e2 * t2617 * t9875 - 0.208986774406560e3 * t1530 * t9875 + 0.162545268982880e3 * t2625 * t9881 + 0.19979955935932500000e3 * t1538 * t9881;
20656   t9888 = t164 * t3314;
20657   t9889 = t9888 * t1425;
20658   t9894 = t177 * t3314;
20659   t9895 = t9894 * t1425;
20660   t9900 = t609 * t3314;
20661   t9901 = t9900 * t1425;
20662   t9904 = t3456 * t7509;
20663   t9907 = t3363 * t7509;
20664   t9912 = t3369 * t7509;
20665   t9917 = t3467 * t4811;
20666   t9920 = t3467 * t7509;
20667   t9923 = t3504 * t7509;
20668   t9930 = -0.15095966707149000000e3 * t2633 * t9889 - 0.75987377039196e2 * t1546 * t9889 + 0.56286945954960e2 * t2641 * t9895 + 0.10224956905002000000e2 * t1555 * t9895 - 0.74658415496840000000e1 * t2652 * t9901 - 0.1704956239866240e4 * t2791 * t9904 - 0.746853240e2 * t2748 * t9907 + 0.286453411653168e3 * t2756 * t9907 - 0.318281568503520e3 * t2762 * t9912 - 0.33742357786506600000e3 * t5492 * t9864 + 0.26877029578862400000e3 * t8019 * t9917 + 0.136332758733360e3 * t2813 * t9920 - 0.114259835890816e3 * t2819 * t9923 + 0.533466600e2 * t2742 * t9636 - 0.1680419790e3 * t5519 * t9642;
20669   t9931 = t3326 * t4811;
20670   t9936 = t3363 * t4811;
20671   t9949 = t3375 * t7509;
20672   t9959 = 0.1920479760e3 * t8041 * t9931 - 0.80565022027453500000e3 * t5614 * t9931 + 0.78774688204621200000e3 * t8048 * t9936 + 0.4075242100927920e4 * t5622 * t9936 - 0.3657268552114800e4 * t8055 * t9856 - 0.861190273110888e3 * t2799 * t9904 + 0.748616381200968e3 * t2805 * t9920 - 0.1532569678981440e4 * t2770 * t9912 + 0.1509348926269600e4 * t2777 * t9949 + 0.1864795887353700e4 * t2785 * t9949 + 0.32016000000000000000e2 * t9623 + 0.8004e1 * t9626 + 0.60030000000000000000e1 * t9629 - 0.36018000000000000000e2 * t9632 - 0.57806666666666666668e2 * t9634;
20673   t9988 = -0.21344e2 * t9637 - 0.66700000000000000000e1 * t9640 + 0.60030000000000000000e2 * t9643 - 0.24153546731438400000e4 * t8291 * t9650 + 0.90575800242894000000e3 * t8294 * t9646 + 0.800199900e2 * t7686 * t9650 - 0.320079960e2 * t5455 * t9646 - 0.995804320e2 * t7692 * t9650 + 0.426773280e2 * t7695 * t9646 + 0.42968011747975200000e3 * t7699 * t9650 - 0.16113004405490700000e3 * t5458 * t9646 - 0.1291785409666332e4 * t8298 * t9650 + 0.455924262235176e3 * t5452 * t9646 + 0.1069451973144240e4 * t8304 * t9650;
20674   t10017 = -0.394008621684720e3 * t8307 * t9646 + 0.20449913810004000000e3 * t7671 * t9650 - 0.71574698335014000000e2 * t5446 * t9646 - 0.16424851409304800000e3 * t7678 * t9650 + 0.59726732397472000000e2 * t7682 * t9646 - 0.43763715669234000000e3 * t7705 * t9650 + 0.17505486267693600000e3 * t7708 * t9646 - 0.2298854518472160e4 * t7712 * t9650 + 0.835947097626240e3 * t5461 * t9646 + 0.2113088496777440e4 * t7719 * t9650 - 0.812726344914400e3 * t8281 * t9646 + 0.27971938310305500000e4 * t8285 * t9650 - 0.99899779679662500000e3 * t5449 * t9646 - 0.60030000000000000000e1 * t9647 - 0.26680000000000000000e2 * t9651;
20675   t10021 = t114 * t9569;
20676   t10024 = t954 * t9569;
20677   t10027 = t127 * t9569;
20678   t10030 = t967 * t9569;
20679   t10033 = t138 * t9569;
20680   t10036 = t980 * t9569;
20681   t10039 = t151 * t9569;
20682   t10042 = t993 * t9569;
20683   t10045 = t165 * t9569;
20684   t10048 = t1006 * t9569;
20685   t10051 = t178 * t9569;
20686   t10054 = t1019 * t9569;
20687   t10059 = 0.13340000000000000000e2 * t9653 + 0.12006000000000000000e2 * t9655 - 0.26673330e1 * t560 * t10021 + 0.17782220e1 * t952 * t10024 - 0.5967779409441e1 * t568 * t10027 + 0.3978519606294e1 * t964 * t10030 + 0.17415564533880e2 * t577 * t10033 - 0.11610376355920e2 * t977 * t10036 - 0.13319970623955e2 * t586 * t10039 + 0.8879980415970e1 * t990 * t10042 + 0.4221520946622e1 * t595 * t10045 - 0.2814347297748e1 * t1003 * t10048 - 0.486902709762e0 * t604 * t10051 + 0.324601806508e0 * t1016 * t10054 + 0.24886138498946666666e2 * t2670 * t3437;
20688   t10088 = t9900 * t463;
20689   t10091 = -0.533466600e2 * t1732 * t3404 + 0.47419253333333333334e2 * t2676 * t3407 - 0.179033382283230e3 * t1744 * t3410 + 0.14587905223078000000e3 * t2683 * t3413 + 0.696622581355200e3 * t1776 * t3416 + 0.29241872888888888889e3 * t8094 * t1204 - 0.1253233675982610e4 * t5115 * t1207 + 0.12642851193334266667e4 * t8128 * t1210 - 0.54181756327626666666e3 * t2690 * t3419 - 0.665998531197750e3 * t1710 * t3422 + 0.50319889023830000000e3 * t2735 * t3425 + 0.253291256797320e3 * t1721 * t3428 - 0.18762315318320000000e3 * t2662 * t3431 - 0.34083189683340e2 * t1763 * t3434 + 0.39400862168472e2 * t2809 * t10088;
20690   t10094 = t9894 * t438;
20691   t10099 = t9900 * t438;
20692   t10102 = t1786 * t3314;
20693   t10103 = t10102 * t463;
20694   t10112 = t9596 * t438;
20695   t10115 = t9874 * t463;
20696   t10122 = t9874 * t438;
20697   t10125 = t9880 * t463;
20698   t10132 = -0.19476108390480e2 * t2813 * t10094 + 0.6816637936668e1 * t1615 * t10088 + 0.14282479486352e2 * t2819 * t10099 - 0.5193628904128e1 * t2823 * t10103 - 0.9738054195240e1 * t2813 * t9740 - 0.266733300e2 * t2742 * t9590 + 0.106693320e2 * t1630 * t9597 + 0.248951080e2 * t2748 * t10112 - 0.106693320e2 * t2752 * t10115 - 0.95484470551056e2 * t2756 * t10112 + 0.35806676456646e2 * t1635 * t10115 + 0.79570392125880e2 * t2762 * t10122 - 0.31828156850352e2 * t2766 * t10125 + 0.383142419745360e3 * t2770 * t10122 - 0.139324516271040e3 * t1641 * t10125;
20699   t10133 = t3467 * t1453;
20700   t10136 = t3375 * t1418;
20701   t10143 = t3326 * t1438;
20702   t10146 = t3363 * t1483;
20703   t10159 = t9880 * t438;
20704   t10162 = t9888 * t463;
20705   t10169 = 0.372959177470740e3 * t2795 * t10133 + 0.1148253697481184e4 * t7931 * t10136 + 0.33193477333333333334e3 * t7776 * t3474 - 0.14225776000000000000e3 * t7779 * t3471 + 0.124475540e2 * t2748 * t10143 - 0.53346660e1 * t2752 * t10146 - 0.1432267058265840e4 * t2610 * t3474 + 0.537100146849690e3 * t5273 * t3471 - 0.47742235275528e2 * t2756 * t10143 + 0.17903338228323e2 * t1635 * t10146 + 0.14587905223078000000e4 * t7808 * t3479 - 0.301869785253920e3 * t2777 * t10159 + 0.116103763559200e3 * t2781 * t10162 - 0.372959177470740e3 * t2785 * t10159 + 0.133199706239550e3 * t1620 * t10162;
20706   t10171 = t9888 * t438;
20707   t10174 = t9894 * t463;
20708   t10185 = t3504 * t1453;
20709   t10188 = t3467 * t1418;
20710   t10191 = t5119 * t1181;
20711   t10192 = t10191 * t1453;
20712   t10201 = t3456 * t1418;
20713   t10208 = 0.284159373311040e3 * t2791 * t10171 - 0.106559764991640e3 * t2795 * t10174 + 0.143531712185148e3 * t2799 * t10171 - 0.50658251359464e2 * t1625 * t10174 - 0.106945197314424e3 * t2805 * t10094 + 0.238582327783380e3 * t5232 * t3468 - 0.27266551746672e2 * t1615 * t10185 + 0.149966034606696e3 * t7978 * t10188 + 0.23371330068576e2 * t2823 * t10192 + 0.1066933200e3 * t5252 * t3327 - 0.160039980e2 * t1630 * t9586 + 0.177303879758124e3 * t1625 * t10133 - 0.962506775829816e3 * t7965 * t10201 - 0.157603448673888e3 * t2809 * t10185 - 0.533466600e2 * t7940 * t9583;
20714   t10209 = t3375 * t1453;
20715   t10212 = t3369 * t1418;
20716   t10215 = t3456 * t1453;
20717   t10224 = t3326 * t1418;
20718   t10227 = t3369 * t1453;
20719   t10234 = t3363 * t1418;
20720   t10245 = 0.348311290677600e3 * t1641 * t10209 - 0.1811218711523520e4 * t7990 * t10212 - 0.348311290677600e3 * t2781 * t10215 - 0.2424234653559810e4 * t7948 * t10212 - 0.399599118718650e3 * t1620 * t10215 + 0.2131195299832800e4 * t7922 * t10136 + 0.746853240e2 * t7996 * t10224 + 0.213386640e2 * t2752 * t10227 - 0.334195646928696e3 * t7952 * t10224 - 0.71613352913292e2 * t1635 * t10227 + 0.358066764566460e3 * t7960 * t10234 + 0.79570392125880e2 * t2766 * t10209 + 0.1915712098726800e4 * t7983 * t10234 - 0.681663793666800e3 * t2641 * t3464 - 0.185023029709560e3 * t7972 * t10201;
20721   t10250 = t3529 * t1490;
20722   t10253 = t3333 * t184;
20723   t10254 = t10253 * t466;
20724   t10259 = t3529 * t1486;
20725   t10270 = my_piecewise3(t102, t9737 + t9771 + t9798 + t9821 + t9847 + t9886 + t9930 + t9959 + t9988 + t10017 + t10059 + t10091 + t10132 + t10169 + t10208 + t10245, t184 * t616 * t617 * t9658 + 0.6e1 * t8315 * t10250 + 0.6e1 * t8323 * t10250 + t8335 * t10250 - 0.4e1 * t2835 * t10254 - 0.2e1 * t2843 * t10254 - 0.2e1 * t2835 * t10259 - t2843 * t10259);
20726   t10273 = 0.12e2 * t9531 * t9532 - 0.8e1 * t9535 * t3293 - 0.8e1 * t3291 * t9539 + 0.8e1 * t3291 * t9543 - 0.4e1 * t3291 * t9546 + 0.2e1 * t405 * t9549 * t187 + 0.4e1 * t405 * t9553 * t187 - 0.4e1 * t405 * t3296 * t621 + 0.2e1 * t405 * t9686 * t187 - 0.4e1 * t405 * t3347 * t621 - 0.2e1 * t405 * t1195 * t1846 + 0.2e1 * t1369 * t1370 * t1241 - t405 * t1506 * t1241 - 0.2e1 * t405 * t477 * t3538 - t101 * t10270 + 0.1174e1 * t10270;
20727   t10274 = t10273 * t204;
20728   t10279 = t3547 * t1180 * t3541;
20729   t10286 = t3285 * t16;
20730   t10287 = t1178 * t10286;
20731   t10288 = t1244 * t1035;
20732   t10290 = t10288 * t1876 * t1878;
20733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20734     v3rho2tau[0] = -0.4e1 / 0.3e1 * t9506 - t9510 - t9512 - 0.65972000000000000000e1 * t9515 - t3286 * t9517 * t1327 / 0.6e1 - t3286 * t9521 * t392 - 0.65972000000000000000e1 * t9525 * t1343 - t3286 * t3287 * t1350 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1180 * t10274 - 0.49479000000000000000e1 * t10279 * t644 - 0.29687400000000000000e2 * t3549 * t1864 + 0.57725500000000000000e1 * t3549 * t1870 + 0.80541612095716256868e2 * t10287 * t10290;
20735 
20736   t10293 = t17 * t1313;
20737   t10295 = t648 * t10293 * t651;
20738   t10299 = t8 * t655 * t1314 / 0.6e1;
20739   t10300 = t1883 * t1313;
20740   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20741     v3rho2tau[1] = -0.4e1 / 0.3e1 * t10295 - t10299 - t3286 * t10300 * t1887 / 0.6e1 - t3286 * t3554 * t1896 / 0.2e1;
20742 
20743   t10310 = t17 * t2;
20744   t10311 = t10310 * t3285;
20745   t10312 = t10311 * t3558;
20746   t10314 = t9517 * t1906;
20747   t10317 = t9521 * t663;
20748   t10322 = t1355 * t2;
20749   t10323 = t10322 * t3285;
20750   t10324 = t3287 * t1924;
20751   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20752     v3rho2tau[2] = -0.2e1 / 0.3e1 * t9506 - t9510 - t9512 / 0.2e1 - 0.32986000000000000000e1 * t9515 - 0.2e1 / 0.3e1 * t10312 - t3286 * t10314 / 0.6e1 - t3286 * t10317 / 0.2e1 - 0.32986000000000000000e1 * t9525 * t1918 - t10323 * t10324 / 0.2e1;
20753 
20754   t10328 = t10311 * t3562;
20755   t10330 = t10300 * t1931;
20756   t10333 = t3554 * t1939;
20757   t10336 = t10310 * t4;
20758   t10337 = t10336 * t3817;
20759   t10339 = t210 * t3815;
20760   t10340 = t10339 * t651;
20761   t10344 = t17 * t632 * t4;
20762   t10345 = t10344 * t3820;
20763   t10346 = t10345 * t902;
20764   t10348 = t647 * t1313;
20765   t10349 = t3547 * t10348;
20766   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20767     v3rho2tau[3] = -0.2e1 / 0.3e1 * t10295 - t10299 - 0.2e1 / 0.3e1 * t10328 - t3286 * t10330 / 0.6e1 + t10323 * t10333 / 0.2e1 - t10337 / 0.2e1 - t3286 * t10340 / 0.2e1 - 0.32986000000000000000e1 * t10346 - 0.32986000000000000000e1 * t10349 * t1956;
20768 
20769   t10353 = t9517 * t1968;
20770   t10356 = t3287 * t1974;
20771   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20772     v3rho2tau[4] = -0.4e1 / 0.3e1 * t10312 - t9510 - t3286 * t10353 / 0.6e1 - t3286 * t10356 / 0.2e1;
20773 
20774   t10361 = t10300 * t1979;
20775   t10364 = t10339 * t668;
20776   t10368 = t3554 * t1992;
20777   t10371 = t6316 * t270;
20778   t10372 = t3566 * t2001;
20779   t10375 = t2000 * t739;
20780   t10378 = t3620 * t363;
20781   t10379 = t10378 * t742;
20782   t10382 = t1263 * t885;
20783   t10383 = t10382 * t742;
20784   t10386 = t3566 * t2134;
20785   t10389 = t2131 * t1263;
20786   t10393 = t739 * t3620;
20787   t10400 = t6414 * t3580;
20788   t10402 = t3583 * t8625;
20789   t10403 = t2941 * t10402;
20790   t10405 = t260 * t3588;
20791   t10406 = t10405 * t1425;
20792   t10407 = t2052 * t10406;
20793   t10409 = t3576 * t4811;
20794   t10410 = t6430 * t10409;
20795   t10412 = t8651 * t3597;
20796   t10414 = t3600 * t8625;
20797   t10415 = t2962 * t10414;
20798   t10417 = t289 * t3588;
20799   t10418 = t10417 * t1425;
20800   t10419 = t2967 * t10418;
20801   t10421 = t3583 * t4811;
20802   t10422 = t8634 * t10421;
20803   t10425 = t1250 * t36 * t2076;
20804   t10426 = t8576 * t10425;
20805   t10428 = t1250 * t703;
20806   t10429 = t10428 * t1425;
20807   t10430 = t8563 * t10429;
20808   t10432 = t6359 * t10425;
20809   t10434 = t8573 * t10429;
20810   t10436 = t3637 * t2081;
20811   t10437 = t2971 * t10436;
20812   t10439 = t724 * t3589;
20813   t10442 = my_piecewise3(t242, 0.40e2 / 0.9e1 * t676, 0);
20814   t10443 = t261 * t10442;
20815   t10444 = t698 * t10443;
20816   t10446 = t2958 * t3604;
20817   t10448 = t1064 * t10442;
20818   t10449 = t1062 * t10448;
20819   t10451 = 0.48e2 * t10400 + 0.12e2 * t10403 + 0.9e1 * t10407 - 0.54e2 * t10410 - 0.260e3 / 0.3e1 * t10412 - 0.32e2 * t10415 - 0.10e2 * t10419 + 0.90e2 * t10422 + 0.20e2 * t10426 + 0.18e2 * t10430 - 0.9e1 * t10432 - 0.40e2 * t10434 + 0.12e2 * t10437 - 0.30e2 * t10439 - 0.3e1 * t10444 + 0.100e3 / 0.3e1 * t10446 + 0.2e1 * t10449;
20820   t10452 = t2091 * t1251;
20821   t10454 = t8579 * t1251;
20822   t10456 = t8582 * t1254;
20823   t10458 = t2098 * t3577;
20824   t10460 = t6367 * t3584;
20825   t10462 = t10405 * t703;
20826   t10463 = t2941 * t10462;
20827   t10465 = t3576 * t2066;
20828   t10466 = t2941 * t10465;
20829   t10468 = t10417 * t728;
20830   t10469 = t2057 * t10468;
20831   t10471 = t3583 * t2111;
20832   t10472 = t2057 * t10471;
20833   t10474 = t8667 * t3594;
20834   t10476 = t8670 * t3601;
20835   t10478 = t10417 * t703;
20836   t10479 = t2962 * t10478;
20837   t10481 = t3583 * t2066;
20838   t10482 = t2962 * t10481;
20839   t10484 = t302 * t3588;
20840   t10485 = t10484 * t728;
20841   t10486 = t2971 * t10485;
20842   t10488 = t3600 * t2111;
20843   t10489 = t2971 * t10488;
20844   t10491 = t3600 * t2081;
20845   t10492 = t2057 * t10491;
20846   t10494 = t3583 * t2047;
20847   t10495 = t8621 * t10494;
20848   t10497 = -0.60e2 * t10452 - 0.6e1 * t10454 + 0.1100e4 / 0.9e1 * t10456 - 0.60e2 * t10458 + 0.30e2 * t10460 - 0.12e2 * t10463 - 0.6e1 * t10466 + 0.6e1 * t10469 + 0.3e1 * t10472 + 0.400e3 / 0.3e1 * t10474 - 0.200e3 / 0.3e1 * t10476 + 0.16e2 * t10479 + 0.8e1 * t10482 - 0.8e1 * t10486 - 0.4e1 * t10489 - 0.6e1 * t10492 + 0.24e2 * t10495;
20849   t10498 = t10451 + t10497;
20850   t10499 = t56 * t10498;
20851   t10514 = t3607 * t731 * t267;
20852   t10517 = t1257 * t2114;
20853   t10525 = t10499 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t3608 * t2984 - 0.3e1 / 0.100e3 * t1258 * t2128 - 0.3e1 / 0.100e3 * t1258 * t8686 + 0.3e1 / 0.50e2 * t1258 * t8690 - t735 * t10498 * t267 / 0.100e3 + t2127 * t10514 / 0.50e2 + t2127 * t10517 * t267 / 0.100e3 - t6534 * t1257 * t2118 * t267 / 0.100e3;
20854   t10526 = t270 * t10525;
20855   t10544 = t10484 * t1425;
20856   t10547 = t313 * t3588;
20857   t10548 = t10547 * t1425;
20858   t10553 = t326 * t3588;
20859   t10554 = t10553 * t1425;
20860   t10559 = t340 * t3588;
20861   t10560 = t10559 * t1425;
20862   t10565 = t353 * t3588;
20863   t10566 = t10565 * t1425;
20864   t10571 = t803 * t3588;
20865   t10572 = t10571 * t1425;
20866   t10575 = t3655 * t8625;
20867   t10584 = 0.53710014684969000000e2 * t2179 * t10544 - 0.43763715669234000000e2 * t3047 * t10548 - 0.208986774406560e3 * t2187 * t10548 + 0.162545268982880e3 * t3005 * t10554 + 0.19979955935932500000e3 * t2195 * t10554 - 0.15095966707149000000e3 * t3013 * t10560 - 0.75987377039196e2 * t2203 * t10560 + 0.56286945954960e2 * t3021 * t10566 + 0.10224956905002000000e2 * t2160 * t10566 - 0.74658415496840000000e1 * t3032 * t10572 - 0.1704956239866240e4 * t3222 * t10575 - 0.23049504368556120000e4 * t6862 * t3650 - 0.861190273110888e3 * t3143 * t10575 + 0.18949938471503200000e4 * t9166 * t3656;
20868   t10585 = t3661 * t8625;
20869   t10594 = t3637 * t8625;
20870   t10599 = t3643 * t8625;
20871   t10612 = t3788 * t8625;
20872   t10619 = 0.748616381200968e3 * t3150 * t10585 + 0.160039980e2 * t2170 * t10418 - 0.142257760e2 * t3040 * t10544 + 0.82355355850285800000e3 * t6897 * t3632 + 0.286453411653168e3 * t3188 * t10594 - 0.81692269249236800000e3 * t9091 * t3638 - 0.318281568503520e3 * t3194 * t10599 - 0.42493977462667200000e4 * t6950 * t3638 - 0.1532569678981440e4 * t3202 * t10599 + 0.36128181064340400000e3 * t7085 * t3656 + 0.136332758733360e3 * t3158 * t10585 - 0.28867920658778133333e3 * t8966 * t3662 - 0.114259835890816e3 * t3169 * t10612 + 0.16537464600000000000e3 * t6992 * t3597 + 0.533466600e2 * t3163 * t10414;
20873   t10623 = t3643 * t4811;
20874   t10626 = t3649 * t4811;
20875   t10631 = t3655 * t4811;
20876   t10636 = t3661 * t4811;
20877   t10641 = t3600 * t4811;
20878   t10646 = t3637 * t4811;
20879   t10655 = t3649 * t8625;
20880   t10658 = -0.19441893866666666667e3 * t9070 * t3632 - 0.47951894246238000000e4 * t6773 * t10623 + 0.40759110109302300000e4 * t9155 * t10626 + 0.2165640245617086e4 * t6871 * t10626 - 0.1773038797581240e4 * t9162 * t10631 - 0.33742357786506600000e3 * t6979 * t10631 + 0.26877029578862400000e3 * t9125 * t10636 - 0.1680419790e3 * t6885 * t10421 + 0.1920479760e3 * t9132 * t10641 - 0.80565022027453500000e3 * t6906 * t10641 + 0.78774688204621200000e3 * t9141 * t10646 + 0.4075242100927920e4 * t6959 * t10646 - 0.3657268552114800e4 * t9148 * t10623 + 0.38469046992614933333e4 * t8991 * t3644 + 0.1509348926269600e4 * t3208 * t10655;
20881   t10681 = 0.50615888371029000000e4 * t6970 * t3644 + 0.1864795887353700e4 * t3216 * t10655 - 0.43275104560493800000e4 * t9078 * t3650 - 0.746853240e2 * t3180 * t10594 + 0.32016000000000000000e2 * t10400 + 0.8004e1 * t10403 + 0.60030000000000000000e1 * t10407 - 0.36018000000000000000e2 * t10410 - 0.57806666666666666668e2 * t10412 - 0.21344e2 * t10415 - 0.66700000000000000000e1 * t10419 + 0.60030000000000000000e2 * t10422 - 0.71574698335014000000e2 * t7003 * t10425 - 0.16424851409304800000e3 * t8762 * t10429 + 0.59726732397472000000e2 * t8767 * t10425;
20882   t10714 = 0.800199900e2 * t8755 * t10429 - 0.320079960e2 * t6997 * t10425 - 0.995804320e2 * t8771 * t10429 + 0.426773280e2 * t8774 * t10425 + 0.42968011747975200000e3 * t8778 * t10429 - 0.16113004405490700000e3 * t7000 * t10425 - 0.43763715669234000000e3 * t8784 * t10429 + 0.17505486267693600000e3 * t8787 * t10425 - 0.2298854518472160e4 * t8791 * t10429 + 0.835947097626240e3 * t7009 * t10425 + 0.2113088496777440e4 * t8797 * t10429 - 0.812726344914400e3 * t8800 * t10425 + 0.27971938310305500000e4 * t8804 * t10429 - 0.99899779679662500000e3 * t7012 * t10425 - 0.24153546731438400000e4 * t8810 * t10429;
20883   t10736 = t10559 * t703;
20884   t10739 = t10565 * t728;
20885   t10742 = 0.90575800242894000000e3 * t8813 * t10425 - 0.1291785409666332e4 * t8819 * t10429 + 0.455924262235176e3 * t7006 * t10425 + 0.1069451973144240e4 * t8825 * t10429 - 0.394008621684720e3 * t8828 * t10425 + 0.20449913810004000000e3 * t8749 * t10429 + 0.13340000000000000000e2 * t10426 + 0.12006000000000000000e2 * t10430 - 0.60030000000000000000e1 * t10432 - 0.26680000000000000000e2 * t10434 + 0.8004e1 * t10437 + 0.1066933200e3 * t6607 * t3601 - 0.133366650e2 * t3163 * t10481 + 0.284159373311040e3 * t3222 * t10736 - 0.106559764991640e3 * t3139 * t10739;
20886   t10748 = t10565 * t703;
20887   t10751 = t10571 * t728;
20888   t10758 = t10571 * t703;
20889   t10761 = t2330 * t3588;
20890   t10762 = t10761 * t728;
20891   t10765 = t3655 * t2111;
20892   t10772 = t3649 * t2066;
20893   t10779 = t1128 * t10442;
20894   t10782 = 0.143531712185148e3 * t3143 * t10736 - 0.50658251359464e2 * t2358 * t10739 - 0.106945197314424e3 * t3150 * t10748 + 0.39400862168472e2 * t3154 * t10751 - 0.19476108390480e2 * t3158 * t10748 + 0.6816637936668e1 * t2343 * t10751 + 0.14282479486352e2 * t3169 * t10758 - 0.5193628904128e1 * t3174 * t10762 - 0.53279882495820e2 * t3139 * t10765 + 0.4305951365554440e4 * t3013 * t3765 - 0.1519747540783920e4 * t6603 * t3768 + 0.71765856092574e2 * t3143 * t10772 - 0.266733300e2 * t3163 * t10478 + 0.106693320e2 * t2363 * t10485 + 0.8879980415970e1 * t1125 * t10779;
20895   t10783 = t341 * t10442;
20896   t10786 = t1141 * t10442;
20897   t10789 = t354 * t10442;
20898   t10792 = t1154 * t10442;
20899   t10795 = t290 * t10442;
20900   t10798 = t1089 * t10442;
20901   t10801 = t303 * t10442;
20902   t10804 = t1102 * t10442;
20903   t10807 = t314 * t10442;
20904   t10810 = t1115 * t10442;
20905   t10813 = t327 * t10442;
20906   t10824 = 0.4221520946622e1 * t789 * t10783 - 0.2814347297748e1 * t1138 * t10786 - 0.486902709762e0 * t798 * t10789 + 0.324601806508e0 * t1151 * t10792 - 0.26673330e1 * t754 * t10795 + 0.17782220e1 * t1087 * t10798 - 0.5967779409441e1 * t762 * t10801 + 0.3978519606294e1 * t1099 * t10804 + 0.17415564533880e2 * t771 * t10807 - 0.11610376355920e2 * t1112 * t10810 - 0.13319970623955e2 * t780 * t10813 + 0.696622581355200e3 * t2262 * t3678 - 0.54181756327626666666e3 * t3091 * t3681 - 0.665998531197750e3 * t2276 * t3684 + 0.50319889023830000000e3 * t3098 * t3687;
20907   t10856 = 0.46454125198033777776e3 * t8745 * t1303 - 0.2400599700e3 * t7110 * t1270 + 0.253291256797320e3 * t2222 * t3690 - 0.18762315318320000000e3 * t3104 * t3693 - 0.34083189683340e2 * t2248 * t3696 + 0.24886138498946666666e2 * t3077 * t3699 + 0.3672723223561140e4 * t6926 * t1294 - 0.533466600e2 * t2233 * t3724 + 0.47419253333333333334e2 * t3112 * t3727 - 0.179033382283230e3 * t2245 * t3671 + 0.14587905223078000000e3 * t3084 * t3675 + 0.29241872888888888889e3 * t8974 * t1273 - 0.1253233675982610e4 * t6916 * t1276 + 0.12642851193334266667e4 * t8729 * t1279;
20908   t10880 = 0.6617914522874400e4 * t7125 * t1282 - 0.30332409764617333333e4 * t8984 * t1297 - 0.579414224616780e3 * t6821 * t1300 - 0.60502961232516444444e4 * t8734 * t1285 - 0.7991982374373000e4 * t6841 * t1288 + 0.68770514999234333333e4 * t8977 * t1291 - 0.20010e2 * t10439 - 0.2001e1 * t10444 + 0.22233333333333333334e2 * t10446 + 0.1334e1 * t10449 - 0.40020e2 * t10452 - 0.4002e1 * t10454 + 0.81522222222222222225e2 * t10456 - 0.25329125679732e2 * t2358 * t10765 - 0.35648399104808000000e4 * t9215 * t3775;
20909   t10884 = t3655 * t2066;
20910   t10887 = t3661 * t2111;
20911   t10902 = t3661 * t2066;
20912   t10905 = t3788 * t2111;
20913   t10910 = t3661 * t2081;
20914   t10913 = t3649 * t2047;
20915   t10918 = 0.13133620722824000000e4 * t9218 * t3778 - 0.53472598657212e2 * t3150 * t10884 + 0.19700431084236e2 * t3154 * t10887 - 0.681663793666800e3 * t3021 * t3775 + 0.238582327783380e3 * t6623 * t3778 - 0.9738054195240e1 * t3158 * t10884 + 0.3408318968334e1 * t2343 * t10887 + 0.54749504697682666666e3 * t9311 * t3785 - 0.19908910799157333333e3 * t9314 * t3789 + 0.7141239743176e1 * t3169 * t10902 - 0.2596814452064e1 * t3174 * t10905 - 0.2667333000e3 * t2967 * t3594 + 0.372959177470740e3 * t3139 * t10910 + 0.1148253697481184e4 * t8854 * t10913 + 0.177303879758124e3 * t2358 * t10910;
20916   t10919 = t3655 * t2047;
20917   t10922 = t3655 * t2081;
20918   t10927 = t3600 * t2047;
20919   t10930 = t3643 * t2081;
20920   t10937 = t3637 * t2047;
20921   t10940 = t3649 * t2081;
20922   t10945 = t3788 * t2081;
20923   t10952 = t3661 * t2047;
20924   t10955 = t7167 * t1250;
20925   t10956 = t10955 * t2081;
20926   t10959 = -0.962506775829816e3 * t8902 * t10919 - 0.399599118718650e3 * t2353 * t10922 + 0.2131195299832800e4 * t8847 * t10913 + 0.746853240e2 * t9104 * t10927 + 0.213386640e2 * t3184 * t10930 - 0.334195646928696e3 * t8859 * t10927 - 0.71613352913292e2 * t2368 * t10930 + 0.358066764566460e3 * t8867 * t10937 + 0.79570392125880e2 * t3198 * t10940 + 0.1915712098726800e4 * t8874 * t10937 - 0.157603448673888e3 * t3154 * t10945 - 0.185023029709560e3 * t8909 * t10919 - 0.27266551746672e2 * t2343 * t10945 + 0.149966034606696e3 * t9242 * t10952 + 0.23371330068576e2 * t3174 * t10956;
20927   t10968 = t3643 * t2111;
20928   t10975 = t3643 * t2066;
20929   t10978 = t3649 * t2111;
20930   t10995 = -0.533466600e2 * t8914 * t10494 - 0.160039980e2 * t2363 * t10436 - 0.30191933414298000000e4 * t9194 * t3768 - 0.69662258135520e2 * t2348 * t10968 - 0.70436283225914666666e4 * t9364 * t3754 + 0.27090878163813333333e4 * t9282 * t3757 - 0.150934892626960e3 * t3208 * t10975 + 0.58051881779600e2 * t3212 * t10978 - 0.9323979436768500e4 * t3005 * t3754 + 0.3329992655988750e4 * t6597 * t3757 - 0.186479588735370e3 * t3216 * t10975 + 0.66599853119775e2 * t2353 * t10978 + 0.80511822438128000000e4 * t9191 * t3765 + 0.142079686655520e3 * t3222 * t10772 + 0.53346660e1 * t2363 * t10488;
20931   t11000 = t3600 * t2066;
20932   t11003 = t3637 * t2111;
20933   t11018 = t3637 * t2066;
20934   t11029 = 0.33193477333333333334e3 * t9099 * t3734 - 0.14225776000000000000e3 * t9107 * t3737 + 0.124475540e2 * t3180 * t11000 - 0.53346660e1 * t3184 * t11003 - 0.1432267058265840e4 * t3040 * t3734 + 0.537100146849690e3 * t6645 * t3737 - 0.47742235275528e2 * t3188 * t11000 + 0.17903338228323e2 * t2368 * t11003 + 0.14587905223078000000e4 * t9343 * t3744 - 0.58351620892312000000e3 * t9346 * t3747 + 0.39785196062940e2 * t3194 * t11018 - 0.15914078425176e2 * t3198 * t10968 + 0.7662848394907200e4 * t3047 * t3744 - 0.2786490325420800e4 * t6657 * t3747 + 0.191571209872680e3 * t3202 * t11018;
20935   t11045 = t10484 * t703;
20936   t11048 = -0.40020e2 * t10458 + 0.20010e2 * t10460 - 0.8004e1 * t10463 - 0.4002e1 * t10466 + 0.4002e1 * t10469 + 0.2001e1 * t10472 + 0.88933333333333333335e2 * t10474 - 0.44466666666666666667e2 * t10476 + 0.10672e2 * t10479 + 0.5336e1 * t10482 - 0.5336e1 * t10486 - 0.2668e1 * t10489 - 0.4002e1 * t10492 + 0.16008e2 * t10495 + 0.248951080e2 * t3180 * t11045;
20937   t11049 = t10547 * t728;
20938   t11056 = t10547 * t703;
20939   t11059 = t10553 * t728;
20940   t11066 = t10553 * t703;
20941   t11069 = t10559 * t728;
20942   t11078 = t3643 * t2047;
20943   t11085 = -0.106693320e2 * t3184 * t11049 - 0.95484470551056e2 * t3188 * t11045 + 0.35806676456646e2 * t2368 * t11049 + 0.79570392125880e2 * t3194 * t11056 - 0.31828156850352e2 * t3198 * t11059 + 0.383142419745360e3 * t3202 * t11056 - 0.139324516271040e3 * t2348 * t11059 - 0.301869785253920e3 * t3208 * t11066 + 0.116103763559200e3 * t3212 * t11069 - 0.372959177470740e3 * t3216 * t11066 + 0.133199706239550e3 * t2353 * t11069 + 0.348311290677600e3 * t2348 * t10940 - 0.1811218711523520e4 * t8880 * t11078 - 0.348311290677600e3 * t3212 * t10922 - 0.2424234653559810e4 * t8921 * t11078;
20944   t11090 = t3803 * t2118;
20945   t11093 = t3607 * t360;
20946   t11094 = t11093 * t731;
20947   t11099 = t3803 * t2114;
20948   t11110 = my_piecewise3(t278, t10584 + t10619 + t10658 + t10681 + t10714 + t10742 + t10782 + t10824 + t10856 + t10880 + t10918 + t10959 + t10995 + t11029 + t11048 + t11085, t10498 * t360 * t616 * t881 + 0.6e1 * t9372 * t11090 + 0.6e1 * t9380 * t11090 + t9392 * t11090 - 0.4e1 * t3232 * t11094 - 0.2e1 * t3240 * t11094 - 0.2e1 * t3232 * t11099 - t3240 * t11099);
20949   t11113 = 0.12e2 * t10371 * t10372 - 0.8e1 * t10375 * t3567 - 0.8e1 * t3565 * t10379 + 0.8e1 * t3565 * t10383 - 0.4e1 * t3565 * t10386 + 0.2e1 * t674 * t10389 * t363 + 0.4e1 * t674 * t10393 * t363 - 0.4e1 * t674 * t3570 * t885 + 0.2e1 * t674 * t10526 * t363 - 0.4e1 * t674 * t3621 * t885 - 0.2e1 * t674 * t1264 * t2472 + 0.2e1 * t2000 * t2001 * t1310 - t674 * t2134 * t1310 - 0.2e1 * t674 * t742 * t3812 - t277 * t11110 + 0.1174e1 * t11110;
20950   t11115 = t1249 * t11113 * t377;
20951   t11118 = t1249 * t3815;
20952   t11119 = t3547 * t11118;
20953   t11126 = t3285 * t211;
20954   t11127 = t1178 * t11126;
20955   t11128 = t1313 * t1170;
20956   t11130 = t11128 * t2502 * t2504;
20957   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
20958     v3rho2tau[5] = -0.4e1 / 0.3e1 * t10328 - t10299 - t10337 - 0.65972000000000000000e1 * t10346 - t3286 * t10361 / 0.6e1 - t3286 * t10364 - 0.65972000000000000000e1 * t10349 * t1988 - t3286 * t10368 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t11115 - 0.49479000000000000000e1 * t11119 * t902 - 0.29687400000000000000e2 * t3821 * t2490 + 0.57725500000000000000e1 * t3821 * t2496 + 0.80541612095716256868e2 * t11127 * t11130;
20959 
20960   t11139 = t3824 * t621;
20961   t11142 = t3881 * t477;
20962   t11155 = t4779 * t421;
20963   t11156 = t26 * t155;
20964   t11159 = 0.1e1 / t11156 * t36 * t4784;
20965   t11166 = t84 * t3844;
20966   t11167 = t11166 * t1425;
20967   t11168 = t4800 * t11167;
20968   t11170 = t7602 * t111;
20969   t11171 = t113 * t3844;
20970   t11172 = t11171 * t1425;
20971   t11173 = t11170 * t11172;
20972   t11175 = t84 * t3851;
20973   t11176 = t11175 * t1425;
20974   t11177 = t1423 * t11176;
20975   t11178 = 0.9e1 / 0.2e1 * t11177;
20976   t11179 = t2675 * t170;
20977   t11180 = t11179 * t953;
20978   t11181 = t126 * t3844;
20979   t11182 = t11181 * t1425;
20980   t11183 = t11180 * t11182;
20981   t11185 = t113 * t3851;
20982   t11186 = t11185 * t1425;
20983   t11187 = t2570 * t11186;
20984   t11188 = 0.5e1 * t11187;
20985   t11189 = t11171 * t463;
20986   t11190 = t2544 * t11189;
20987   t11192 = t2545 * t2557;
20988   t11193 = t2544 * t11192;
20989   t11195 = t11171 * t438;
20990   t11196 = t7592 * t11195;
20991   t11198 = t11181 * t463;
20992   t11199 = t2565 * t11198;
20993   t11201 = t2552 * t2557;
20994   t11202 = t2565 * t11201;
20995   t11204 = t11175 * t438;
20996   t11205 = t2544 * t11204;
20997   t11206 = 0.6e1 * t11205;
20998   t11207 = t11185 * t463;
20999   t11208 = t1429 * t11207;
21000   t11209 = 0.3e1 * t11208;
21001   t11210 = 0.9e1 * t11168 - 0.35e2 * t11173 + t11178 + 0.28e2 * t11183 - t11188 + 0.6e1 * t11190 - 0.12e2 * t11193 + 0.42e2 * t11196 - 0.28e2 * t11199 + 0.28e2 * t11202 - t11206 + t11209;
21002   t11211 = t2531 * t106;
21003   t11212 = t11211 * t483;
21004   t11213 = t11181 * t438;
21005   t11214 = t11212 * t11213;
21006   t11216 = t137 * t3844;
21007   t11217 = t11216 * t463;
21008   t11218 = t4281 * t11217;
21009   t11220 = t2575 * t2557;
21010   t11221 = t4281 * t11220;
21011   t11223 = t11185 * t438;
21012   t11224 = t2565 * t11223;
21013   t11225 = 0.8e1 * t11224;
21014   t11226 = t126 * t3851;
21015   t11227 = t11226 * t463;
21016   t11228 = t2574 * t11227;
21017   t11229 = 0.4e1 * t11228;
21018   t11230 = t459 * t3852;
21019   t11231 = 0.15e2 * t11230;
21020   t11232 = t1512 * t3857;
21021   t11234 = t2561 * t3860;
21022   t11235 = 0.50e2 / 0.3e1 * t11234;
21023   t11236 = t43 * t438;
21024   t11237 = t11236 * t3845;
21025   t11239 = t1469 * t3845;
21026   t11241 = t7567 * t3848;
21027   t11243 = -0.40e2 * t11214 + 0.24e2 * t11218 - 0.16e2 * t11221 + t11225 - t11229 - t11231 - 0.280e3 / 0.3e1 * t11232 + t11235 - 0.6e1 * t11237 - 0.30e2 * t11239 + 0.350e3 / 0.3e1 * t11241 - t3854 + t3862;
21028   t11244 = t11210 + t11243;
21029   t11245 = t56 * t11244;
21030   t11250 = t1492 * t2582;
21031   t11256 = t89 * t466 * t91;
21032   t11262 = t3863 * t466;
21033   t11263 = t11262 * t91;
21034   t11266 = t937 * t2582;
21035   t11270 = t3867 * t466 * t91;
21036   t11273 = t11245 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t3864 * t2587 - 0.3e1 / 0.50e2 * t934 * t11250 - 0.3e1 / 0.100e3 * t3868 * t471 + 0.3e1 / 0.50e2 * t3868 * t11256 - t470 * t11244 * t91 / 0.100e3 + t1499 * t11263 / 0.100e3 + t1499 * t11266 / 0.50e2 - t4970 * t11270 / 0.100e3;
21037   t11276 = -t37 * t39 * t412 * t52 / 0.54e2 + 0.21e2 / 0.160e3 * t420 * t422 * sigma[0] * t52 - 0.81e2 / 0.3200e4 * t3836 * t2534 + 0.2187e4 / 0.2048000e7 * t11155 * t11159 + 0.4e1 * t940 * t2597 + 0.2e1 * t474 * t3877 + 0.2e1 * t94 * t11273;
21038   t11277 = t11276 * t187;
21039   t11279 = t3880 * t621;
21040   t11284 = t2600 * t1027;
21041   t11287 = t943 * t2846;
21042   t11292 = t8303 * t175;
21043   t11293 = t177 * t3844;
21044   t11294 = t11293 * t1425;
21045   t11297 = t177 * t3851;
21046   t11298 = t11297 * t1425;
21047   t11299 = t2641 * t11298;
21048   t11300 = 0.28143472977480e2 * t11299;
21049   t11301 = t2669 * t603;
21050   t11302 = t11301 * t1018;
21051   t11303 = t609 * t3844;
21052   t11304 = t11303 * t1425;
21053   t11307 = t1555 * t11298;
21054   t11308 = 0.51124784525010000000e1 * t11307;
21055   t11309 = t7676 * t2651;
21056   t11312 = t609 * t3851;
21057   t11313 = t11312 * t1425;
21058   t11314 = t2652 * t11313;
21059   t11315 = 0.37329207748420000000e1 * t11314;
21060   t11317 = t26 * t168 * t105;
21061   t11318 = t11317 * t3909;
21062   t11320 = 0.1e1 / t160 / t491;
21063   t11321 = t11318 * t11320;
21064   t11322 = t1786 * t3844;
21065   t11323 = t11322 * t1425;
21066   t11326 = t1513 * t11186;
21067   t11327 = 0.80019990e1 * t11326;
21068   t11328 = t7691 * t124;
21069   t11331 = t11226 * t1425;
21070   t11332 = t2610 * t11331;
21071   t11333 = 0.71128880e1 * t11332;
21072   t11335 = t2682 * t119;
21073   t11336 = t11335 * t966;
21074   t11337 = t11216 * t1425;
21075   t11340 = t1522 * t11331;
21076   t11341 = 0.26855007342484500000e2 * t11340;
21077   t11342 = t7718 * t148;
21078   t11343 = t150 * t3844;
21079   t11344 = t11343 * t1425;
21080   t11347 = t150 * t3851;
21081   t11348 = t11347 * t1425;
21082   t11349 = t2625 * t11348;
21083   t11350 = 0.81272634491440e2 * t11349;
21084   t11351 = t2734 * t585;
21085   t11352 = t11351 * t992;
21086   t11353 = t164 * t3844;
21087   t11354 = t11353 * t1425;
21088   t11357 = t1538 * t11348;
21089   t11358 = 0.99899779679662500000e2 * t11357;
21090   t11359 = t8290 * t162;
21091   t11370 = 0.533466600e2 * t11336 * t11337 + t11341 + 0.2031815862286000e4 * t11342 * t11344 + t11350 - 0.928830108473600e3 * t11352 * t11354 + t11358 - 0.23398748396080950000e4 * t11359 * t11354 - 0.645892704833166e3 * t5648 * t11354 + 0.10224956905002000000e3 * t5627 * t11294 + 0.400099950e2 * t5657 * t11172 + 0.21484005873987600000e3 * t5505 * t11182;
21092   t11372 = t164 * t3851;
21093   t11373 = t11372 * t1425;
21094   t11374 = t2633 * t11373;
21095   t11375 = 0.75479833535745000000e2 * t11374;
21096   t11376 = t2661 * t594;
21097   t11377 = t11376 * t1005;
21098   t11380 = t1546 * t11373;
21099   t11381 = 0.37993688519598e2 * t11380;
21100   t11386 = t7704 * t135;
21101   t11389 = t137 * t3851;
21102   t11390 = t11389 * t1425;
21103   t11391 = t2617 * t11390;
21104   t11392 = 0.21881857834617000000e2 * t11391;
21105   t11393 = t2689 * t576;
21106   t11394 = t11393 * t979;
21107   t11397 = t1530 * t11390;
21108   t11398 = 0.104493387203280e3 * t11397;
21109   t11401 = -t11375 + 0.10123177674205800000e4 * t11377 * t11294 - t11381 - 0.1149427259236080e4 * t5514 * t11337 + 0.13985969155152750000e4 * t5639 * t11344 - 0.41575529885772300000e3 * t11386 * t11337 - t11392 + 0.20688301952728800000e3 * t11394 * t11344 - t11398 + 0.60030000000000000000e1 * t11168 - 0.23345000000000000000e2 * t11173;
21110   t11402 = 0.30015000000000000000e1 * t11177;
21111   t11404 = 0.33350000000000000000e1 * t11187;
21112   t11410 = 0.4002e1 * t11205;
21113   t11411 = 0.2001e1 * t11208;
21114   t11413 = t11402 + 0.18676000000000000000e2 * t11183 - t11404 + 0.4002e1 * t11190 - 0.8004e1 * t11193 + 0.28014e2 * t11196 - 0.18676e2 * t11199 + 0.18676e2 * t11202 - t11410 + t11411 - 0.26680e2 * t11214;
21115   t11418 = 0.5336e1 * t11224;
21116   t11419 = 0.2668e1 * t11228;
21117   t11422 = t1732 * t3917;
21118   t11423 = 0.266733300e2 * t11422;
21119   t11426 = t2735 * t3992;
21120   t11427 = 0.25159944511915000000e3 * t11426;
21121   t11430 = t1721 * t4001;
21122   t11431 = 0.126645628398660e3 * t11430;
21123   t11432 = t1744 * t3932;
21124   t11433 = 0.89516691141615e2 * t11432;
21125   t11434 = 0.16008e2 * t11218 - 0.10672e2 * t11221 + t11418 - t11419 - 0.34710283338892000000e4 * t7854 * t3886 - t11423 + 0.30822514666666666667e3 * t7775 * t3920 + t11427 - 0.33743925580686000000e4 * t1545 * t3998 + t11431 - t11433;
21126   t11437 = t2683 * t3938;
21127   t11438 = 0.72939526115390000000e2 * t11437;
21128   t11441 = t1776 * t3947;
21129   t11442 = 0.348311290677600e3 * t11441;
21130   t11445 = t2690 * t3954;
21131   t11446 = 0.27090878163813333333e3 * t11445;
21132   t11447 = t2662 * t3889;
21133   t11448 = 0.93811576591600000000e2 * t11447;
21134   t11451 = t1763 * t3898;
21135   t11452 = 0.17041594841670e2 * t11451;
21136   t11455 = t2670 * t3904;
21137   t11456 = 0.12443069249473333333e2 * t11455;
21138   t11457 = 0.13858509961924100000e4 * t7807 * t3935 + t11438 - 0.68961006509096000000e3 * t1529 * t3944 + t11442 - 0.67727195409533333333e4 * t7765 * t3950 - t11446 - t11448 + 0.14446982795106400000e4 * t1554 * t3895 - t11452 + 0.53505197772735333333e3 * t7898 * t3901 + t11456;
21139   t11459 = t168 * t104;
21140   t11460 = t27 * t11459;
21141   t11461 = t11460 * t3909;
21142   t11474 = t1710 * t3963;
21143   t11475 = 0.332999265598875e3 * t11474;
21144   t11482 = t2676 * t3923;
21145   t11483 = 0.23709626666666666667e2 * t11482;
21146   t11484 = -0.21640120433866666667e3 * t11461 * t3914 - 0.1333666500e3 * t2569 * t3975 - 0.716133529132920e3 * t2609 * t3978 + 0.3831424197453600e4 * t2616 * t3981 - 0.4661989718384250e4 * t2624 * t3984 + 0.30961003615786666667e4 * t1537 * t3960 - t11475 + 0.77995827986936500000e4 * t7819 * t3966 + 0.2152975682777220e4 * t2632 * t3969 - 0.340831896833400e3 * t2640 * t3972 + t11483;
21147   t11487 = 0.10005e2 * t11230;
21148   t11489 = 0.11116666666666666667e2 * t11234;
21149   t11493 = -0.17782220000000000000e3 * t1521 * t3929 - t11487 - 0.62253333333333333334e2 * t11232 + t11489 - 0.4002e1 * t11237 - 0.20010e2 * t11239 + 0.77816666666666666667e2 * t11241 - t3891 - t3900 + t3906 - t3919;
21150   t11497 = t11293 * t438;
21151   t11500 = t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 - 0.185023029709560e3 * t7972 * t11497;
21152   t11501 = t11303 * t463;
21153   t11504 = t2642 * t2557;
21154   t11519 = t11216 * t438;
21155   t11522 = t11343 * t463;
21156   t11525 = t2618 * t2557;
21157   t11528 = 0.68166379366680e2 * t2813 * t11501 - 0.19476108390480e2 * t2813 * t11504 - 0.533466600e2 * t7940 * t11195 + 0.266733300e2 * t2742 * t11198 - 0.266733300e2 * t2742 * t11201 - 0.334195646928696e3 * t7952 * t11213 + 0.143226705826584e3 * t2756 * t11217 - 0.95484470551056e2 * t2756 * t11220 + 0.1915712098726800e4 * t7983 * t11519 - 0.766284839490720e3 * t2770 * t11522 + 0.383142419745360e3 * t2770 * t11525;
21158   t11530 = t11343 * t438;
21159   t11533 = t11353 * t463;
21160   t11536 = t2626 * t2557;
21161   t11539 = t11372 * t463;
21162   t11540 = t2781 * t11539;
21163   t11541 = 0.58051881779600e2 * t11540;
21164   t11542 = t11303 * t438;
21165   t11545 = t11322 * t463;
21166   t11548 = t2653 * t2557;
21167   t11551 = t11312 * t438;
21168   t11552 = t2819 * t11551;
21169   t11553 = 0.7141239743176e1 * t11552;
21170   t11554 = t1786 * t3851;
21171   t11555 = t11554 * t463;
21172   t11556 = t2823 * t11555;
21173   t11557 = 0.2596814452064e1 * t11556;
21174   t11558 = t3908 * t1015;
21175   t11559 = t11558 * t3912;
21176   t11560 = t11322 * t438;
21177   t11563 = t5119 * t3844;
21178   t11564 = t11563 * t463;
21179   t11567 = -0.2424234653559810e4 * t7948 * t11530 + 0.932397943676850e3 * t2785 * t11533 - 0.372959177470740e3 * t2785 * t11536 + t11541 + 0.293115431276724e3 * t7978 * t11542 - 0.111663021438752e3 * t2819 * t11545 + 0.27915755359688e2 * t2819 * t11548 + t11553 - t11557 - 0.119453464794944e3 * t11559 * t11560 + 0.46742660137152e2 * t4316 * t11564;
21180   t11568 = t2824 * t2557;
21181   t11571 = t2742 * t11223;
21182   t11572 = 0.133366650e2 * t11571;
21183   t11573 = t1630 * t11227;
21184   t11574 = 0.53346660e1 * t11573;
21185   t11581 = t11372 * t438;
21186   t11582 = t2791 * t11581;
21187   t11583 = 0.142079686655520e3 * t11582;
21188   t11584 = t11297 * t463;
21189   t11585 = t2795 * t11584;
21190   t11586 = 0.53279882495820e2 * t11585;
21191   t11587 = t3995 * t157;
21192   t11588 = t11587 * t518;
21193   t11595 = -0.10387257808256e2 * t4316 * t11568 - t11572 + t11574 + 0.1387013160e3 * t7996 * t11213 - 0.693506580e2 * t2748 * t11217 + 0.462337720e2 * t2748 * t11220 + t11583 - t11586 - 0.1811516004857880e4 * t11588 * t11497 + 0.745918354941480e3 * t4342 * t11501 - 0.213119529983280e3 * t4342 * t11504;
21194   t11598 = t2799 * t11581;
21195   t11599 = 0.71765856092574e2 * t11598;
21196   t11600 = t1625 * t11584;
21197   t11601 = 0.25329125679732e2 * t11600;
21198   t11606 = t11389 * t438;
21199   t11607 = t2762 * t11606;
21200   t11608 = 0.39785196062940e2 * t11607;
21201   t11609 = t11347 * t463;
21202   t11610 = t2766 * t11609;
21203   t11611 = 0.15914078425176e2 * t11610;
21204   t11612 = t3941 * t963;
21205   t11613 = t11612 * t501;
21206   t11620 = t2770 * t11606;
21207   t11621 = 0.191571209872680e3 * t11620;
21208   t11622 = t1641 * t11609;
21209   t11623 = 0.69662258135520e2 * t11622;
21210   t11624 = t11599 - t11601 - 0.1874355300300168e4 * t7965 * t11497 + 0.151183745039172e3 * t2762 * t11525 + t11608 - t11611 - 0.350109725353872e3 * t11613 * t11530 + 0.159140784251760e3 * t4326 * t11533 - 0.63656313700704e2 * t4326 * t11536 + t11621 - t11623;
21211   t11631 = t11347 * t438;
21212   t11632 = t2777 * t11631;
21213   t11633 = 0.150934892626960e3 * t11632;
21214   t11638 = t11297 * t438;
21215   t11639 = t2805 * t11638;
21216   t11640 = 0.53472598657212e2 * t11639;
21217   t11641 = t11312 * t463;
21218   t11642 = t2809 * t11641;
21219   t11643 = 0.19700431084236e2 * t11642;
21220   t11644 = t3892 * t1002;
21221   t11645 = t11644 * t527;
21222   t11652 = -0.3483112906776000e4 * t7990 * t11530 + 0.1451297044490000e4 * t2777 * t11533 - 0.580518817796000e3 * t2777 * t11536 - t11633 + 0.728915950116732e3 * t2805 * t11501 - 0.208261700033352e3 * t2805 * t11504 - t11640 + t11643 + 0.788017243369440e3 * t11645 * t11542 - 0.315206897347776e3 * t4349 * t11545 + 0.78801724336944e2 * t4349 * t11548;
21223   t11654 = t2813 * t11638;
21224   t11655 = 0.9738054195240e1 * t11654;
21225   t11656 = t1615 * t11641;
21226   t11657 = 0.3408318968334e1 * t11656;
21227   t11658 = t3957 * t976;
21228   t11659 = t11658 * t509;
21229   t11660 = t11353 * t438;
21230   t11663 = t11293 * t463;
21231   t11666 = t2634 * t2557;
21232   t11669 = t2785 * t11631;
21233   t11670 = 0.186479588735370e3 * t11669;
21234   t11671 = t1620 * t11539;
21235   t11672 = 0.66599853119775e2 * t11671;
21236   t11681 = -t11655 + t11657 + 0.1625452689828800e4 * t11659 * t11660 - 0.696622581355200e3 * t4334 * t11663 + 0.232207527118400e3 * t4334 * t11666 - t11670 + t11672 + 0.4129190893426050e4 * t7922 * t11660 - 0.1651676357370420e4 * t2791 * t11663 + 0.550558785790140e3 * t2791 * t11666 + 0.1148253697481184e4 * t7931 * t11660;
21237   t11686 = t11226 * t438;
21238   t11687 = t2748 * t11686;
21239   t11688 = 0.124475540e2 * t11687;
21240   t11689 = t11389 * t463;
21241   t11690 = t2752 * t11689;
21242   t11691 = 0.53346660e1 * t11690;
21243   t11692 = t3926 * t143;
21244   t11693 = t11692 * t492;
21245   t11700 = t2756 * t11686;
21246   t11701 = 0.47742235275528e2 * t11700;
21247   t11702 = t1635 * t11689;
21248   t11703 = 0.17903338228323e2 * t11702;
21249   t11708 = -0.430595136555444e3 * t2799 * t11663 + 0.143531712185148e3 * t2799 * t11666 + t11688 - t11691 - 0.853546560e2 * t11693 * t11519 + 0.426773280e2 * t4356 * t11522 - 0.213386640e2 * t4356 * t11525 - t11701 + t11703 + 0.680326852676274e3 * t7960 * t11519 - 0.302367490078344e3 * t2762 * t11522;
21250   t11713 = t3867 * t184;
21251   t11714 = t11713 * t466;
21252   t11717 = t2836 * t2582;
21253   t11722 = t3863 * t184;
21254   t11723 = t11722 * t466;
21255   t11734 = my_piecewise3(t102, 0.64920361301600000000e2 * t11321 * t11323 - 0.924675440e2 * t11328 * t11182 + 0.1041308500166760e4 * t11292 * t11294 - 0.433409483853192e3 * t11302 * t11304 - 0.16051559331820600000e3 * t11309 * t11304 + t11327 + t11528 + t11370 + t11652 + t11681 + t11493 + t11567 + t11484 + t11308 + t11413 + t11434 - t11315 + t11300 - t11333 + t11457 + t11708 + t11401 + t11595 + t11500 + t11624, t11244 * t184 * t616 * t617 + 0.6e1 * t8315 * t11714 + 0.6e1 * t8323 * t11714 + t8335 * t11714 - 0.4e1 * t2835 * t11717 - 0.2e1 * t2843 * t11717 - 0.2e1 * t2835 * t11723 - t2843 * t11723);
21256   t11737 = 0.6e1 * t4747 * t3825 * t477 - 0.4e1 * t1369 * t944 * t2600 + 0.2e1 * t1369 * t11139 - 0.2e1 * t1369 * t11142 + t405 * t11277 - t405 * t11279 + 0.4e1 * t1369 * t3883 * t477 - 0.2e1 * t405 * t11284 - 0.2e1 * t405 * t11287 - t405 * t477 * t4017 - t101 * t11734 + 0.1174e1 * t11734;
21257   t11738 = t11737 * t204;
21258   t11740 = t8 * t18 * t11738;
21259   t11741 = 0.3e1 / 0.8e1 * t11740;
21260   t11742 = t17 * t4020;
21261   t11744 = t385 * t11742 * t392;
21262   t11745 = t11744 / 0.2e1;
21263   t11747 = t8 * t398 * t4021;
21264   t11748 = t11747 / 0.8e1;
21265   t11749 = t5857 * t4042;
21266   t11750 = 0.37753880669866995407e1 * t11749;
21267   t11751 = t624 * t4039;
21268   t11753 = t11751 * t195 * t1878;
21269   t11754 = t1874 * t11753;
21270   t11755 = 0.11326164200960098622e2 * t11754;
21271   t11757 = t1030 * t1860 * t19;
21272   t11758 = t11757 * t2869;
21273   t11759 = t2866 * t11758;
21274   t11760 = 0.22265550000000000000e2 * t11759;
21275   t11761 = t1030 * t2879;
21276   t11763 = t11761 * t26 * t1878;
21277   t11764 = t1874 * t11763;
21278   t11765 = 0.60406209071787192651e2 * t11764;
21279   t11766 = 0.1e1 / t43;
21280   t11768 = t1035 * t11766 * t203;
21281   t11769 = t5838 * t11768;
21282   t11770 = t2866 * t11769;
21283   t11771 = 0.83495812500000000000e2 * t11770;
21284   t11772 = t4039 * t26;
21285   t11773 = t11772 * t203;
21286   t11774 = t5846 * t11773;
21287   t11775 = t1874 * t11774;
21288   t11776 = 0.23254840140139470986e0 * t11775;
21289   t11778 = t4040 * t26 * t1878;
21290   t11779 = t1874 * t11778;
21291   t11780 = 0.30203104535893596326e2 * t11779;
21292   t11781 = t7444 * t2859;
21293   t11782 = 0.24739500000000000000e1 * t11781;
21294   t11784 = t1862 * t4028 * t1341;
21295   t11785 = t1340 * t11784;
21296   t11786 = 0.55663875000000000000e1 * t11785;
21297   t11787 = -t11741 - t11745 - t11748 + t11750 + t11755 + t11760 - t11765 - t11771 + t11776 + t11780 + t11782 - t11786;
21298   t11789 = t640 * t4033 * t1341;
21299   t11790 = t1340 * t11789;
21300   t11791 = 0.61848750000000000000e0 * t11790;
21301   t11792 = 0.1e1 / t41;
21302   t11793 = t190 * t11792;
21303   t11794 = 0.1e1 / rho[0];
21304   t11796 = t11794 * t638 * t203;
21305   t11797 = t11793 * t11796;
21306   t11798 = t2866 * t11797;
21307   t11799 = 0.45424903023464625000e2 * t11798;
21308   t11800 = t1364 * t4030;
21309   t11801 = 0.13915968750000000000e1 * t11800;
21310   t11803 = t4039 * t195 * t19;
21311   t11804 = t11803 * t5773;
21312   t11805 = t5769 * t11804;
21313   t11806 = 0.15101552267946798163e2 * t11805;
21314   t11808 = t634 * t18 * t4020;
21315   t11809 = t11808 * t644;
21316   t11810 = 0.24739500000000000000e1 * t11809;
21317   t11811 = t7350 * t1038;
21318   t11812 = 0.18554625000000000000e1 * t11811;
21319   t11813 = t1855 * t4030;
21320   t11814 = 0.41747906250000000000e1 * t11813;
21321   t11815 = t1855 * t4035;
21322   t11816 = 0.46386562500000000000e0 * t11815;
21323   t11817 = t4027 * t407;
21324   t11819 = t1862 * t11817 * t203;
21325   t11820 = t636 * t11819;
21326   t11821 = 0.55663875000000000000e1 * t11820;
21327   t11822 = t1364 * t4035;
21328   t11823 = 0.15462187500000000000e0 * t11822;
21329   t11824 = t2879 * t641;
21330   t11826 = t640 * t11824 * t203;
21331   t11827 = t636 * t11826;
21332   t11828 = 0.61848750000000000000e0 * t11827;
21333   t11829 = t7346 * t1038;
21334   t11830 = 0.61848750000000000000e0 * t11829;
21335   t11831 = t2855 * t2875;
21336   t11832 = 0.24739500000000000000e1 * t11831;
21337   t11833 = -t11791 - t11799 - t11801 + t11806 - t11810 + t11812 - t11814 - t11816 + t11821 - t11823 + t11828 + t11830 - t11832;
21338   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21339     v3rhosigma2[0] = -t4024 + t4026 - t4032 - t4037 + t4044 + t10 * (t11787 + t11833);
21340 
21341   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21342     v3rhosigma2[1] = 0.0e0;
21343 
21344   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21345     v3rhosigma2[2] = 0.0e0;
21346 
21347   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21348     v3rhosigma2[3] = 0.0e0;
21349 
21350   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21351     v3rhosigma2[4] = 0.0e0;
21352 
21353   t11836 = t17 * t4242;
21354   t11838 = t648 * t11836 * t651;
21355   t11839 = t11838 / 0.2e1;
21356   t11841 = t8 * t655 * t4243;
21357   t11842 = t11841 / 0.8e1;
21358   t11843 = t8450 * t2895;
21359   t11844 = 0.24739500000000000000e1 * t11843;
21360   t11845 = t8454 * t1173;
21361   t11846 = 0.61848750000000000000e0 * t11845;
21362   t11848 = t2488 * t4250 * t1954;
21363   t11849 = t1953 * t11848;
21364   t11850 = 0.55663875000000000000e1 * t11849;
21365   t11851 = t1960 * t4252;
21366   t11852 = 0.13915968750000000000e1 * t11851;
21367   t11854 = t898 * t4255 * t1954;
21368   t11855 = t1953 * t11854;
21369   t11856 = 0.61848750000000000000e0 * t11855;
21370   t11857 = t1960 * t4257;
21371   t11858 = 0.15462187500000000000e0 * t11857;
21372   t11860 = t4261 * t368 * t19;
21373   t11861 = t11860 * t6131;
21374   t11862 = t6127 * t11861;
21375   t11863 = 0.15101552267946798163e2 * t11862;
21376   t11864 = t6193 * t4264;
21377   t11865 = 0.37753880669866995407e1 * t11864;
21378   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21379     v3rhosigma2[5] = -t4246 + t4248 - t4254 - t4259 + t4266 + t10 * (-t11839 - t11842 + t11844 + t11846 - t11850 - t11852 - t11856 - t11858 + t11863 + t11865);
21380 
21381   t11869 = t385 * t11742 * t663;
21382   t11870 = t11869 / 0.2e1;
21383   t11871 = t7444 * t2906;
21384   t11872 = 0.24739500000000000000e1 * t11871;
21385   t11874 = t1862 * t4028 * t1916;
21386   t11875 = t1340 * t11874;
21387   t11876 = 0.55663875000000000000e1 * t11875;
21388   t11878 = t640 * t4033 * t1916;
21389   t11879 = t1340 * t11878;
21390   t11880 = 0.61848750000000000000e0 * t11879;
21391   t11881 = t11803 * t6030;
21392   t11882 = t5769 * t11881;
21393   t11883 = 0.15101552267946798163e2 * t11882;
21394   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21395     v3rhosigma2[6] = -t4024 + t4026 - t4032 - t4037 + t4044 + t10 * (-t11870 - t11748 + t11872 + t11830 - t11876 - t11801 - t11880 - t11823 + t11883 + t11750);
21396 
21397   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21398     v3rhosigma2[7] = 0.0e0;
21399 
21400   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21401     v3rhosigma2[8] = 0.0e0;
21402 
21403   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21404     v3rhosigma2[9] = 0.0e0;
21405 
21406   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21407     v3rhosigma2[10] = 0.0e0;
21408 
21409   t11887 = t648 * t11836 * t668;
21410   t11888 = t11887 / 0.2e1;
21411   t11895 = t4046 * t885;
21412   t11898 = t4103 * t742;
21413   t11911 = t4779 * t686;
21414   t11912 = t214 * t331;
21415   t11915 = 0.1e1 / t11912 * t36 * t6349;
21416   t11922 = t3111 * t346;
21417   t11923 = t11922 * t1088;
21418   t11924 = t302 * t4066;
21419   t11925 = t11924 * t1425;
21420   t11926 = t11923 * t11925;
21421   t11928 = t289 * t4073;
21422   t11929 = t11928 * t1425;
21423   t11930 = t2967 * t11929;
21424   t11931 = 0.5e1 * t11930;
21425   t11932 = t260 * t4066;
21426   t11933 = t11932 * t1425;
21427   t11934 = t6420 * t11933;
21428   t11936 = t8572 * t287;
21429   t11937 = t289 * t4066;
21430   t11938 = t11937 * t1425;
21431   t11939 = t11936 * t11938;
21432   t11941 = t260 * t4073;
21433   t11942 = t11941 * t1425;
21434   t11943 = t2052 * t11942;
21435   t11944 = 0.9e1 / 0.2e1 * t11943;
21436   t11945 = t223 * t703;
21437   t11946 = t11945 * t4067;
21438   t11948 = t2958 * t4082;
21439   t11949 = 0.50e2 / 0.3e1 * t11948;
21440   t11950 = t2097 * t4067;
21441   t11952 = t8666 * t4070;
21442   t11954 = t724 * t4074;
21443   t11955 = 0.15e2 * t11954;
21444   t11956 = -t4076 + t4084 + 0.28e2 * t11926 - t11931 + 0.9e1 * t11934 - 0.35e2 * t11939 + t11944 - 0.6e1 * t11946 + t11949 - 0.30e2 * t11950 + 0.350e3 / 0.3e1 * t11952 - t11955;
21445   t11957 = t2169 * t4079;
21446   t11959 = t11941 * t703;
21447   t11960 = t2941 * t11959;
21448   t11961 = 0.6e1 * t11960;
21449   t11962 = t11928 * t728;
21450   t11963 = t2057 * t11962;
21451   t11964 = 0.3e1 * t11963;
21452   t11965 = t2928 * t282;
21453   t11966 = t11965 * t748;
21454   t11967 = t11924 * t703;
21455   t11968 = t11966 * t11967;
21456   t11970 = t11937 * t728;
21457   t11971 = t2941 * t11970;
21458   t11973 = t2942 * t2954;
21459   t11974 = t2941 * t11973;
21460   t11976 = t11937 * t703;
21461   t11977 = t8621 * t11976;
21462   t11979 = t11924 * t728;
21463   t11980 = t2962 * t11979;
21464   t11982 = t2949 * t2954;
21465   t11983 = t2962 * t11982;
21466   t11985 = t313 * t4066;
21467   t11986 = t11985 * t728;
21468   t11987 = t4395 * t11986;
21469   t11989 = t2972 * t2954;
21470   t11990 = t4395 * t11989;
21471   t11992 = t11928 * t703;
21472   t11993 = t2962 * t11992;
21473   t11994 = 0.8e1 * t11993;
21474   t11995 = t302 * t4073;
21475   t11996 = t11995 * t728;
21476   t11997 = t2971 * t11996;
21477   t11998 = 0.4e1 * t11997;
21478   t11999 = -0.280e3 / 0.3e1 * t11957 - t11961 + t11964 - 0.40e2 * t11968 + 0.6e1 * t11971 - 0.12e2 * t11974 + 0.42e2 * t11977 - 0.28e2 * t11980 + 0.28e2 * t11983 + 0.24e2 * t11987 - 0.16e2 * t11990 + t11994 - t11998;
21479   t12000 = t11956 + t11999;
21480   t12001 = t56 * t12000;
21481   t12006 = t2120 * t2979;
21482   t12012 = t265 * t731 * t267;
21483   t12018 = t4085 * t731;
21484   t12019 = t12018 * t267;
21485   t12022 = t1072 * t2979;
21486   t12026 = t4089 * t731 * t267;
21487   t12029 = t12001 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4086 * t2984 - 0.3e1 / 0.50e2 * t1069 * t12006 - 0.3e1 / 0.100e3 * t4090 * t736 + 0.3e1 / 0.50e2 * t4090 * t12012 - t735 * t12000 * t267 / 0.100e3 + t2127 * t12019 / 0.100e3 + t2127 * t12022 / 0.50e2 - t6534 * t12026 / 0.100e3;
21488   t12032 = -t37 * t39 * t681 * t231 / 0.54e2 + 0.21e2 / 0.160e3 * t420 * t687 * sigma[2] * t231 - 0.81e2 / 0.3200e4 * t4058 * t2931 + 0.2187e4 / 0.2048000e7 * t11911 * t11915 + 0.4e1 * t1075 * t2994 + 0.2e1 * t739 * t4099 + 0.2e1 * t270 * t12029;
21489   t12033 = t12032 * t363;
21490   t12035 = t4102 * t885;
21491   t12040 = t2997 * t1162;
21492   t12043 = t1078 * t3243;
21493   t12048 = t8796 * t324;
21494   t12049 = t326 * t4066;
21495   t12050 = t12049 * t1425;
21496   t12053 = t326 * t4073;
21497   t12054 = t12053 * t1425;
21498   t12055 = t3005 * t12054;
21499   t12056 = 0.81272634491440e2 * t12055;
21500   t12057 = t3097 * t779;
21501   t12058 = t12057 * t1127;
21502   t12059 = t340 * t4066;
21503   t12060 = t12059 * t1425;
21504   t12063 = t2195 * t12054;
21505   t12064 = 0.99899779679662500000e2 * t12063;
21506   t12065 = t8809 * t338;
21507   t12068 = t340 * t4073;
21508   t12069 = t12068 * t1425;
21509   t12070 = t3013 * t12069;
21510   t12071 = 0.75479833535745000000e2 * t12070;
21511   t12072 = t3103 * t788;
21512   t12073 = t12072 * t1140;
21513   t12074 = t353 * t4066;
21514   t12075 = t12074 * t1425;
21515   t12078 = t2203 * t12069;
21516   t12079 = 0.37993688519598e2 * t12078;
21517   t12087 = t8824 * t351;
21518   t12090 = t353 * t4073;
21519   t12091 = t12090 * t1425;
21520   t12092 = t3021 * t12091;
21521   t12093 = 0.28143472977480e2 * t12092;
21522   t12094 = t3076 * t797;
21523   t12095 = t12094 * t1153;
21524   t12096 = t803 * t4066;
21525   t12097 = t12096 * t1425;
21526   t12100 = t2160 * t12091;
21527   t12101 = 0.51124784525010000000e1 * t12100;
21528   t12102 = t8760 * t3031;
21529   t12105 = t803 * t4073;
21530   t12106 = t12105 * t1425;
21531   t12107 = t3032 * t12106;
21532   t12108 = 0.37329207748420000000e1 * t12107;
21533   t12110 = t214 * t344 * t281;
21534   t12111 = t12110 * t4180;
21535   t12113 = 0.1e1 / t336 / t837;
21536   t12114 = t12111 * t12113;
21537   t12115 = t2330 * t4066;
21538   t12116 = t12115 * t1425;
21539   t12119 = t2170 * t11929;
21540   t12120 = 0.80019990e1 * t12119;
21541   t12121 = t8770 * t300;
21542   t12124 = t11995 * t1425;
21543   t12125 = t3040 * t12124;
21544   t12126 = 0.71128880e1 * t12125;
21545   t12127 = 0.400099950e2 * t7069 * t11938 + 0.1041308500166760e4 * t12087 * t12075 + t12093 - 0.433409483853192e3 * t12095 * t12097 + t12101 - 0.16051559331820600000e3 * t12102 * t12097 - t12108 + 0.64920361301600000000e2 * t12114 * t12116 + t12120 - 0.924675440e2 * t12121 * t11925 - t12126;
21546   t12129 = t3083 * t295;
21547   t12130 = t12129 * t1101;
21548   t12131 = t11985 * t1425;
21549   t12140 = t2179 * t12124;
21550   t12141 = 0.26855007342484500000e2 * t12140;
21551   t12142 = t8783 * t311;
21552   t12145 = t313 * t4073;
21553   t12146 = t12145 * t1425;
21554   t12147 = t3047 * t12146;
21555   t12148 = 0.21881857834617000000e2 * t12147;
21556   t12149 = t3090 * t770;
21557   t12150 = t12149 * t1114;
21558   t12153 = t2187 * t12146;
21559   t12154 = 0.104493387203280e3 * t12153;
21560   t12155 = 0.533466600e2 * t12130 * t12131 + 0.21484005873987600000e3 * t7077 * t11925 - 0.1149427259236080e4 * t7053 * t12131 + 0.13985969155152750000e4 * t7061 * t12050 + t12141 - 0.41575529885772300000e3 * t12142 * t12131 - t12148 + 0.20688301952728800000e3 * t12150 * t12050 - t12154 - t4110 + t4116;
21561   t12156 = t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203;
21562   t12161 = t3091 * t4129;
21563   t12162 = 0.27090878163813333333e3 * t12161;
21564   t12165 = t2276 * t4138;
21565   t12166 = 0.332999265598875e3 * t12165;
21566   t12179 = t4205 - 0.67727195409533333333e4 * t9363 * t4126 - t12162 + 0.30961003615786666667e4 * t2194 * t4135 - t12166 + 0.77995827986936500000e4 * t9190 * t4141 + 0.2152975682777220e4 * t3012 * t4206 - 0.340831896833400e3 * t3020 * t4209 - 0.1333666500e3 * t2966 * t4212 - 0.716133529132920e3 * t3039 * t4215 + 0.3831424197453600e4 * t3046 * t4218;
21567   t12182 = t2245 * t4108;
21568   t12183 = 0.89516691141615e2 * t12182;
21569   t12184 = t3112 * t4194;
21570   t12185 = 0.23709626666666666667e2 * t12184;
21571   t12188 = t3098 * t4144;
21572   t12189 = 0.25159944511915000000e3 * t12188;
21573   t12192 = t2222 * t4153;
21574   t12193 = 0.126645628398660e3 * t12192;
21575   t12196 = t3104 * t4159;
21576   t12197 = 0.93811576591600000000e2 * t12196;
21577   t12200 = t2248 * t4168;
21578   t12201 = 0.17041594841670e2 * t12200;
21579   t12202 = -0.4661989718384250e4 * t3004 * t4221 - t12183 + t12185 - 0.17782220000000000000e3 * t2178 * t4200 + t12189 - 0.33743925580686000000e4 * t2202 * t4150 + t12193 - 0.34710283338892000000e4 * t9214 * t4156 - t12197 + 0.14446982795106400000e4 * t2159 * t4165 - t12201;
21580   t12206 = t3077 * t4175;
21581   t12207 = 0.12443069249473333333e2 * t12206;
21582   t12210 = t3084 * t4114;
21583   t12211 = 0.72939526115390000000e2 * t12210;
21584   t12214 = t2262 * t4123;
21585   t12215 = 0.348311290677600e3 * t12214;
21586   t12216 = t344 * t280;
21587   t12217 = t215 * t12216;
21588   t12218 = t12217 * t4180;
21589   t12221 = t2233 * t4188;
21590   t12222 = 0.266733300e2 * t12221;
21591   t12226 = 0.33350000000000000000e1 * t11930;
21592   t12227 = 0.53505197772735333333e3 * t9310 * t4172 + t12207 + 0.13858509961924100000e4 * t9342 * t4111 + t12211 - 0.68961006509096000000e3 * t2186 * t4120 + t12215 - 0.21640120433866666667e3 * t12218 * t4185 - t12222 + 0.30822514666666666667e3 * t9098 * t4191 + 0.18676000000000000000e2 * t11926 - t12226;
21593   t12230 = 0.30015000000000000000e1 * t11943;
21594   t12239 = t11985 * t703;
21595   t12242 = t12049 * t728;
21596   t12245 = t3048 * t2954;
21597   t12248 = t12049 * t703;
21598   t12251 = 0.60030000000000000000e1 * t11934 - 0.23345000000000000000e2 * t11939 + t12230 - 0.266733300e2 * t3163 * t11982 - 0.334195646928696e3 * t8859 * t11967 + 0.143226705826584e3 * t3188 * t11986 - 0.95484470551056e2 * t3188 * t11989 + 0.1915712098726800e4 * t8874 * t12239 - 0.766284839490720e3 * t3202 * t12242 + 0.383142419745360e3 * t3202 * t12245 - 0.2424234653559810e4 * t8921 * t12248;
21599   t12255 = t12059 * t728;
21600   t12258 = t3006 * t2954;
21601   t12261 = t11995 * t703;
21602   t12262 = t3188 * t12261;
21603   t12263 = 0.47742235275528e2 * t12262;
21604   t12264 = t12145 * t728;
21605   t12265 = t2368 * t12264;
21606   t12266 = 0.17903338228323e2 * t12265;
21607   t12267 = t12053 * t703;
21608   t12268 = t3216 * t12267;
21609   t12269 = 0.186479588735370e3 * t12268;
21610   t12270 = t12068 * t728;
21611   t12271 = t2353 * t12270;
21612   t12272 = 0.66599853119775e2 * t12271;
21613   t12273 = t12059 * t703;
21614   t12278 = t12074 * t728;
21615   t12281 = t3014 * t2954;
21616   t12284 = t12074 * t703;
21617   t12287 = 0.932397943676850e3 * t3216 * t12255 - 0.372959177470740e3 * t3216 * t12258 - t12263 + t12266 - t12269 + t12272 + 0.4129190893426050e4 * t8847 * t12273 + 0.1148253697481184e4 * t8854 * t12273 - 0.430595136555444e3 * t3143 * t12278 + 0.143531712185148e3 * t3143 * t12281 - 0.185023029709560e3 * t8909 * t12284;
21618   t12288 = t12096 * t728;
21619   t12291 = t3022 * t2954;
21620   t12302 = t12145 * t703;
21621   t12303 = t3194 * t12302;
21622   t12304 = 0.39785196062940e2 * t12303;
21623   t12305 = t12053 * t728;
21624   t12306 = t3198 * t12305;
21625   t12307 = 0.15914078425176e2 * t12306;
21626   t12308 = t4117 * t1098;
21627   t12309 = t12308 * t847;
21628   t12316 = 0.68166379366680e2 * t3158 * t12288 - 0.19476108390480e2 * t3158 * t12291 - 0.533466600e2 * t8914 * t11976 + 0.266733300e2 * t3163 * t11979 - 0.302367490078344e3 * t3194 * t12242 + 0.151183745039172e3 * t3194 * t12245 + t12304 - t12307 - 0.350109725353872e3 * t12309 * t12248 + 0.159140784251760e3 * t4441 * t12255 - 0.63656313700704e2 * t4441 * t12258;
21629   t12318 = t3202 * t12302;
21630   t12319 = 0.191571209872680e3 * t12318;
21631   t12320 = t2348 * t12305;
21632   t12321 = 0.69662258135520e2 * t12320;
21633   t12328 = t3208 * t12267;
21634   t12329 = 0.150934892626960e3 * t12328;
21635   t12330 = t3212 * t12270;
21636   t12331 = 0.58051881779600e2 * t12330;
21637   t12332 = t4132 * t1111;
21638   t12333 = t12332 * t855;
21639   t12342 = t12319 - t12321 - 0.3483112906776000e4 * t8880 * t12248 + 0.1451297044490000e4 * t3208 * t12255 - 0.580518817796000e3 * t3208 * t12258 - t12329 + t12331 + 0.1625452689828800e4 * t12333 * t12273 - 0.696622581355200e3 * t4449 * t12278 + 0.232207527118400e3 * t4449 * t12281 - 0.213119529983280e3 * t4457 * t12291;
21640   t12343 = t12068 * t703;
21641   t12344 = t3143 * t12343;
21642   t12345 = 0.71765856092574e2 * t12344;
21643   t12346 = t12090 * t728;
21644   t12347 = t2358 * t12346;
21645   t12348 = 0.25329125679732e2 * t12347;
21646   t12355 = t12090 * t703;
21647   t12356 = t3150 * t12355;
21648   t12357 = 0.53472598657212e2 * t12356;
21649   t12358 = t12105 * t728;
21650   t12359 = t3154 * t12358;
21651   t12360 = 0.19700431084236e2 * t12359;
21652   t12361 = t4162 * t1137;
21653   t12362 = t12361 * t873;
21654   t12363 = t12096 * t703;
21655   t12366 = t12115 * t728;
21656   t12369 = t3033 * t2954;
21657   t12372 = t3158 * t12355;
21658   t12373 = 0.9738054195240e1 * t12372;
21659   t12374 = t12345 - t12348 - 0.1874355300300168e4 * t8902 * t12284 + 0.728915950116732e3 * t3150 * t12288 - 0.208261700033352e3 * t3150 * t12291 - t12357 + t12360 + 0.788017243369440e3 * t12362 * t12363 - 0.315206897347776e3 * t4465 * t12366 + 0.78801724336944e2 * t4465 * t12369 - t12373;
21660   t12377 = t2343 * t12358;
21661   t12378 = 0.3408318968334e1 * t12377;
21662   t12391 = t3222 * t12343;
21663   t12392 = 0.142079686655520e3 * t12391;
21664   t12393 = t3139 * t12346;
21665   t12394 = 0.53279882495820e2 * t12393;
21666   t12395 = t4147 * t333;
21667   t12396 = t12395 * t864;
21668   t12401 = t12378 + 0.293115431276724e3 * t9242 * t12363 - 0.111663021438752e3 * t3169 * t12366 + 0.27915755359688e2 * t3169 * t12369 + 0.680326852676274e3 * t8867 * t12239 - 0.1651676357370420e4 * t3222 * t12278 + 0.550558785790140e3 * t3222 * t12281 + t12392 - t12394 - 0.1811516004857880e4 * t12396 * t12284 + 0.745918354941480e3 * t4457 * t12288;
21669   t12402 = t12105 * t703;
21670   t12403 = t3169 * t12402;
21671   t12404 = 0.7141239743176e1 * t12403;
21672   t12405 = t2330 * t4073;
21673   t12406 = t12405 * t728;
21674   t12407 = t3174 * t12406;
21675   t12408 = 0.2596814452064e1 * t12407;
21676   t12409 = t4179 * t1150;
21677   t12410 = t12409 * t4183;
21678   t12411 = t12115 * t703;
21679   t12414 = t7167 * t4066;
21680   t12415 = t12414 * t728;
21681   t12418 = t3175 * t2954;
21682   t12421 = t3163 * t11992;
21683   t12422 = 0.133366650e2 * t12421;
21684   t12423 = t2363 * t11996;
21685   t12424 = 0.53346660e1 * t12423;
21686   t12431 = t3180 * t12261;
21687   t12432 = 0.124475540e2 * t12431;
21688   t12433 = t12404 - t12408 - 0.119453464794944e3 * t12410 * t12411 + 0.46742660137152e2 * t4424 * t12415 - 0.10387257808256e2 * t4424 * t12418 - t12422 + t12424 + 0.1387013160e3 * t9104 * t11967 - 0.693506580e2 * t3180 * t11986 + 0.462337720e2 * t3180 * t11989 + t12432;
21689   t12435 = t3184 * t12264;
21690   t12436 = 0.53346660e1 * t12435;
21691   t12437 = t4197 * t319;
21692   t12438 = t12437 * t838;
21693   t12446 = 0.11116666666666666667e2 * t11948;
21694   t12449 = 0.10005e2 * t11954;
21695   t12451 = 0.4002e1 * t11960;
21696   t12452 = -t12436 - 0.853546560e2 * t12438 * t12239 + 0.426773280e2 * t4433 * t12242 - 0.213386640e2 * t4433 * t12245 - 0.4002e1 * t11946 + t12446 - 0.20010e2 * t11950 + 0.77816666666666666667e2 * t11952 - t12449 - 0.62253333333333333334e2 * t11957 - t12451;
21697   t12453 = 0.2001e1 * t11963;
21698   t12462 = 0.5336e1 * t11993;
21699   t12463 = 0.2668e1 * t11997;
21700   t12464 = t12453 - 0.26680e2 * t11968 + 0.4002e1 * t11971 - 0.8004e1 * t11974 + 0.28014e2 * t11977 - 0.18676e2 * t11980 + 0.18676e2 * t11983 + 0.16008e2 * t11987 - 0.10672e2 * t11990 + t12462 - t12463;
21701   t12469 = t4089 * t360;
21702   t12470 = t12469 * t731;
21703   t12473 = t3233 * t2979;
21704   t12478 = t4085 * t360;
21705   t12479 = t12478 * t731;
21706   t12490 = my_piecewise3(t278, 0.2031815862286000e4 * t12048 * t12050 - 0.928830108473600e3 * t12058 * t12060 - 0.23398748396080950000e4 * t12065 * t12060 + 0.10123177674205800000e4 * t12073 * t12075 - 0.645892704833166e3 * t7044 * t12060 + 0.10224956905002000000e3 * t7089 * t12075 + t12155 + t12374 + t12064 + t12179 + t12202 + t12452 + t12251 + t12287 - t12079 + t12342 + t12401 + t12127 + t12156 + t12433 + t12316 - t12071 + t12227 + t12056 + t12464, t12000 * t360 * t616 * t881 + 0.6e1 * t9372 * t12470 + 0.6e1 * t9380 * t12470 + t9392 * t12470 - 0.4e1 * t3232 * t12473 - 0.2e1 * t3240 * t12473 - 0.2e1 * t3232 * t12479 - t3240 * t12479);
21707   t12493 = 0.6e1 * t6316 * t4047 * t742 - 0.4e1 * t2000 * t1079 * t2997 + 0.2e1 * t2000 * t11895 - 0.2e1 * t2000 * t11898 + t674 * t12033 - t674 * t12035 + 0.4e1 * t2000 * t4105 * t742 - 0.2e1 * t674 * t12040 - 0.2e1 * t674 * t12043 - t674 * t742 * t4239 - t277 * t12490 + 0.1174e1 * t12490;
21708   t12494 = t12493 * t377;
21709   t12496 = t8 * t212 * t12494;
21710   t12497 = 0.3e1 / 0.8e1 * t12496;
21711   t12499 = t1165 * t2486 * t19;
21712   t12500 = t12499 * t3264;
21713   t12501 = t3261 * t12500;
21714   t12502 = 0.22265550000000000000e2 * t12501;
21715   t12503 = t1165 * t3274;
21716   t12505 = t12503 * t214 * t2504;
21717   t12506 = t2500 * t12505;
21718   t12507 = 0.60406209071787192651e2 * t12506;
21719   t12508 = 0.1e1 / t223;
21720   t12510 = t1170 * t12508 * t376;
21721   t12511 = t7280 * t12510;
21722   t12512 = t3261 * t12511;
21723   t12513 = 0.83495812500000000000e2 * t12512;
21724   t12514 = t4261 * t214;
21725   t12515 = t12514 * t376;
21726   t12516 = t7288 * t12515;
21727   t12517 = t2500 * t12516;
21728   t12518 = 0.23254840140139470986e0 * t12517;
21729   t12520 = t4262 * t214 * t2504;
21730   t12521 = t2500 * t12520;
21731   t12522 = 0.30203104535893596326e2 * t12521;
21732   t12523 = t888 * t4261;
21733   t12525 = t12523 * t368 * t2504;
21734   t12526 = t2500 * t12525;
21735   t12527 = 0.11326164200960098622e2 * t12526;
21736   t12529 = t898 * t4255 * t1986;
21737   t12530 = t1953 * t12529;
21738   t12531 = 0.61848750000000000000e0 * t12530;
21739   t12533 = t2488 * t4250 * t1986;
21740   t12534 = t1953 * t12533;
21741   t12535 = 0.55663875000000000000e1 * t12534;
21742   t12536 = -t11888 - t11842 - t12497 + t11865 + t12502 - t12507 - t12513 + t12518 + t12522 + t12527 - t12531 - t12535;
21743   t12537 = t8450 * t3256;
21744   t12538 = 0.24739500000000000000e1 * t12537;
21745   t12539 = 0.1e1 / t221;
21746   t12540 = t366 * t12539;
21747   t12541 = 0.1e1 / rho[1];
21748   t12543 = t12541 * t896 * t376;
21749   t12544 = t12540 * t12543;
21750   t12545 = t3261 * t12544;
21751   t12546 = 0.45424903023464625000e2 * t12545;
21752   t12547 = t2481 * t4257;
21753   t12548 = 0.46386562500000000000e0 * t12547;
21754   t12549 = t3274 * t899;
21755   t12551 = t898 * t12549 * t376;
21756   t12552 = t894 * t12551;
21757   t12553 = 0.61848750000000000000e0 * t12552;
21758   t12554 = t3252 * t3270;
21759   t12555 = 0.24739500000000000000e1 * t12554;
21760   t12556 = t4249 * t676;
21761   t12558 = t2488 * t12556 * t376;
21762   t12559 = t894 * t12558;
21763   t12560 = 0.55663875000000000000e1 * t12559;
21764   t12561 = t11860 * t6284;
21765   t12562 = t6127 * t12561;
21766   t12563 = 0.15101552267946798163e2 * t12562;
21767   t12565 = t634 * t212 * t4242;
21768   t12566 = t12565 * t902;
21769   t12567 = 0.24739500000000000000e1 * t12566;
21770   t12568 = t9472 * t1173;
21771   t12569 = 0.18554625000000000000e1 * t12568;
21772   t12570 = t2481 * t4252;
21773   t12571 = 0.41747906250000000000e1 * t12570;
21774   t12572 = t12538 - t12546 - t12548 + t12553 - t12555 + t12560 + t12563 - t12567 + t12569 - t12571 + t11846 - t11852 - t11858;
21775   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21776     v3rhosigma2[11] = -t4246 + t4248 - t4254 - t4259 + t4266 + t10 * (t12536 + t12572);
21777 
21778   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21779     v3rhosigmalapl[0] = 0.0e0;
21780 
21781   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21782     v3rhosigmalapl[1] = 0.0e0;
21783 
21784   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21785     v3rhosigmalapl[2] = 0.0e0;
21786 
21787   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21788     v3rhosigmalapl[3] = 0.0e0;
21789 
21790   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21791     v3rhosigmalapl[4] = 0.0e0;
21792 
21793   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21794     v3rhosigmalapl[5] = 0.0e0;
21795 
21796   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21797     v3rhosigmalapl[6] = 0.0e0;
21798 
21799   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21800     v3rhosigmalapl[7] = 0.0e0;
21801 
21802   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21803     v3rhosigmalapl[8] = 0.0e0;
21804 
21805   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21806     v3rhosigmalapl[9] = 0.0e0;
21807 
21808   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21809     v3rhosigmalapl[10] = 0.0e0;
21810 
21811   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
21812     v3rhosigmalapl[11] = 0.0e0;
21813 
21814   t12576 = t10336 * t4377 / 0.2e1;
21815   t12577 = t15 * t4375;
21816   t12578 = t12577 * t392;
21817   t12581 = t943 * t477;
21818   t12582 = t3292 * t12581;
21819   t12587 = t9538 * t943;
21820   t12590 = t9542 * t943;
21821   t12593 = t3292 * t2600;
21822   t12596 = t1369 * t940;
21823   t12599 = t2597 * t1194;
21824   t12603 = t940 * t3346;
21825   t12610 = t4300 * t187;
21826   t12611 = t12610 * t477;
21827   t12614 = t474 * t4300;
21828   t12618 = 0.2e1 * t12599 * t187 * t405 + 0.2e1 * t12603 * t187 * t405 + 0.2e1 * t12614 * t187 * t405 - 0.2e1 * t405 * t4271 * t621 + 0.12e2 * t9531 * t12582 - 0.4e1 * t3291 * t12587 + 0.4e1 * t3291 * t12590 - 0.4e1 * t3291 * t12593 - 0.4e1 * t12596 * t3293 - 0.4e1 * t3291 * t12611 - 0.4e1 * t9535 * t4268;
21829   t12619 = t11179 * t954;
21830   t12620 = t1181 * t922;
21831   t12621 = t12620 * t1425;
21832   t12622 = t12619 * t12621;
21833   t12624 = t7614 * t12621;
21834   t12626 = t7603 * t12621;
21835   t12628 = t11236 * t77;
21836   t12629 = t12628 * t4275;
21837   t12631 = t11178 - t11188 - t11206 + t11209 + t11225 - t11229 - t11231 + t11235 - t3854 + t3862 + 0.28e2 * t12622 + 0.9e1 * t12624 - 0.35e2 * t12626 - 0.6e1 * t12629;
21838   t12632 = t9608 * t922;
21839   t12633 = t2544 * t12632;
21840   t12635 = t3302 * t2557;
21841   t12636 = t2544 * t12635;
21842   t12638 = t9589 * t922;
21843   t12639 = t2565 * t12638;
21844   t12641 = t3309 * t2557;
21845   t12642 = t2565 * t12641;
21846   t12644 = t9596 * t922;
21847   t12645 = t4281 * t12644;
21848   t12647 = t3326 * t2557;
21849   t12648 = t4281 * t12647;
21850   t12650 = t1513 * t4282;
21851   t12652 = t1470 * t4275;
21852   t12654 = t7568 * t4278;
21853   t12656 = t922 * t463;
21854   t12657 = t3326 * t12656;
21855   t12658 = t2565 * t12657;
21856   t12660 = t3326 * t7604;
21857   t12661 = t11212 * t12660;
21858   t12663 = t3363 * t12656;
21859   t12664 = t4281 * t12663;
21860   t12666 = t3309 * t12656;
21861   t12667 = t2544 * t12666;
21862   t12669 = t3309 * t7604;
21863   t12670 = t7592 * t12669;
21864   t12672 = -0.6e1 * t12633 - 0.6e1 * t12636 + 0.14e2 * t12639 + 0.14e2 * t12642 - 0.8e1 * t12645 - 0.8e1 * t12648 - 0.280e3 / 0.3e1 * t12650 - 0.30e2 * t12652 + 0.350e3 / 0.3e1 * t12654 - 0.28e2 * t12658 - 0.40e2 * t12661 + 0.24e2 * t12664 + 0.6e1 * t12667 + 0.42e2 * t12670;
21865   t12673 = t12631 + t12672;
21866   t12674 = t56 * t12673;
21867   t12685 = t1189 * t89;
21868   t12692 = t4285 * t466 * t91;
21869   t12695 = t3333 * t933;
21870   t12696 = t12695 * t91;
21871   t12703 = t4970 * t1188;
21872   t12706 = t12674 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4286 * t2587 - 0.3e1 / 0.100e3 * t3334 * t4290 - 0.3e1 / 0.100e3 * t1189 * t2594 - 0.3e1 / 0.100e3 * t1189 * t11250 + 0.3e1 / 0.50e2 * t12685 * t2594 - t470 * t12673 * t91 / 0.100e3 + t1499 * t12692 / 0.100e3 + t1499 * t12696 / 0.100e3 + t1499 * t1188 * t2582 * t91 / 0.100e3 - t12703 * t2594 / 0.100e3;
21873   t12707 = t94 * t12706;
21874   t12714 = t1194 * t1027;
21875   t12715 = t12714 * t477;
21876   t12730 = t2600 * t1241;
21877   t12732 = t943 * t3538;
21878   t12738 = t11320 * t1786;
21879   t12739 = t11318 * t12738;
21880   t12744 = -0.16051559331820600000e3 * t7678 * t12621 + 0.64920361301600000000e2 * t12739 * t12621 + 0.21484005873987600000e3 * t7699 * t12621 + t11300 + t11308 - t11315 + t11327 - t11333 + t11341 + t11350 + t11358 - t11375;
21881   t12745 = -t11381 - t11392 - t11398 + t11402 - t11404 - t11410 + t11411 + t11418 - t11419 - t11423 + t11427 + t11431;
21882   t12751 = t11351 * t993;
21883   t12754 = -t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456 - t11475 + t11483 - 0.1149427259236080e4 * t7712 * t12621 + 0.2031815862286000e4 * t7719 * t12621 - 0.928830108473600e3 * t12751 * t12621;
21884   t12759 = t11376 * t1006;
21885   t12766 = t11301 * t1019;
21886   t12773 = t11335 * t967;
21887   t12778 = 0.13985969155152750000e4 * t8285 * t12621 - 0.23398748396080950000e4 * t8291 * t12621 + 0.10123177674205800000e4 * t12759 * t12621 - 0.645892704833166e3 * t8298 * t12621 + 0.1041308500166760e4 * t8304 * t12621 - 0.433409483853192e3 * t12766 * t12621 + 0.400099950e2 * t7686 * t12621 - 0.924675440e2 * t7692 * t12621 + 0.533466600e2 * t12773 * t12621 + 0.10224956905002000000e3 * t7671 * t12621 - t11487 + t11489 - t3891;
21888   t12781 = -t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994;
21889   t12798 = t11461 * t3912;
21890   t12805 = t4003 + 0.53505197772735333333e3 * t7899 * t4313 - 0.33743925580686000000e4 * t1546 * t4310 + 0.2152975682777220e4 * t2633 * t4335 - 0.34710283338892000000e4 * t7855 * t4310 + 0.14446982795106400000e4 * t1555 * t4313 - 0.1333666500e3 * t2570 * t4278 + 0.30822514666666666667e3 * t7776 * t4282 - 0.17782220000000000000e3 * t1522 * t4323 - 0.21640120433866666667e3 * t12798 * t4317 - 0.716133529132920e3 * t2610 * t4282 + 0.13858509961924100000e4 * t7808 * t4323;
21891   t12821 = t3369 * t2557;
21892   t12824 = t9888 * t922;
21893   t12827 = t3375 * t2557;
21894   t12830 = t9894 * t922;
21895   t12833 = t3456 * t2557;
21896   t12836 = -0.68961006509096000000e3 * t1530 * t4327 + 0.3831424197453600e4 * t2617 * t4323 - 0.67727195409533333333e4 * t7766 * t4327 + 0.30961003615786666667e4 * t1538 * t4335 - 0.4661989718384250e4 * t2625 * t4327 + 0.77995827986936500000e4 * t7820 * t4335 - 0.340831896833400e3 * t2641 * t4310 - 0.186479588735370e3 * t2785 * t12821 + 0.275279392895070e3 * t2791 * t12824 + 0.275279392895070e3 * t2791 * t12827 - 0.106559764991640e3 * t4342 * t12830 - 0.106559764991640e3 * t4342 * t12833;
21897   t12845 = t9900 * t922;
21898   t12848 = t3467 * t2557;
21899   t12859 = t9874 * t922;
21900   t12862 = t3363 * t2557;
21901   t12867 = 0.71765856092574e2 * t2799 * t12824 + 0.71765856092574e2 * t2799 * t12827 - 0.104130850016676e3 * t2805 * t12830 - 0.104130850016676e3 * t2805 * t12833 + 0.39400862168472e2 * t4349 * t12845 + 0.39400862168472e2 * t4349 * t12848 - 0.133366650e2 * t2742 * t12638 - 0.133366650e2 * t2742 * t12641 + 0.231168860e2 * t2748 * t12644 + 0.231168860e2 * t2748 * t12647 - 0.106693320e2 * t4356 * t12859 - 0.106693320e2 * t4356 * t12862 - 0.9738054195240e1 * t2813 * t12830;
21902   t12877 = t10102 * t922;
21903   t12880 = t3504 * t2557;
21904   t12891 = t9880 * t922;
21905   t12898 = -0.9738054195240e1 * t2813 * t12833 + 0.13957877679844e2 * t2819 * t12845 + 0.13957877679844e2 * t2819 * t12848 - 0.5193628904128e1 * t4316 * t12877 - 0.5193628904128e1 * t4316 * t12880 - 0.47742235275528e2 * t2756 * t12644 - 0.47742235275528e2 * t2756 * t12647 + 0.75591872519586e2 * t2762 * t12859 + 0.75591872519586e2 * t2762 * t12862 - 0.31828156850352e2 * t4326 * t12891 - 0.31828156850352e2 * t4326 * t12821 + 0.191571209872680e3 * t2770 * t12859;
21906   t12914 = t3456 * t7604;
21907   t12917 = t3467 * t12656;
21908   t12920 = 0.191571209872680e3 * t2770 * t12862 - 0.290259408898000e3 * t2777 * t12891 - 0.290259408898000e3 * t2777 * t12821 + 0.116103763559200e3 * t4334 * t12824 + 0.116103763559200e3 * t4334 * t12827 - 0.186479588735370e3 * t2785 * t12891 + t11541 + 0.18676000000000000000e2 * t12622 + 0.60030000000000000000e1 * t12624 - 0.23345000000000000000e2 * t12626 - 0.185023029709560e3 * t7972 * t12914 + 0.68166379366680e2 * t2813 * t12917;
21909   t12922 = t3467 * t7604;
21910   t12925 = t3369 * t7604;
21911   t12928 = t3375 * t12656;
21912   t12931 = t3363 * t7604;
21913   t12934 = t3369 * t12656;
21914   t12941 = t3375 * t7604;
21915   t12944 = t3456 * t12656;
21916   t12953 = 0.293115431276724e3 * t7978 * t12922 - 0.350109725353872e3 * t11613 * t12925 + 0.159140784251760e3 * t4326 * t12928 + 0.1915712098726800e4 * t7983 * t12931 - 0.766284839490720e3 * t2770 * t12934 - 0.3483112906776000e4 * t7990 * t12925 + 0.1451297044490000e4 * t2777 * t12928 + 0.1625452689828800e4 * t11659 * t12941 - 0.696622581355200e3 * t4334 * t12944 - 0.2424234653559810e4 * t7948 * t12925 + 0.932397943676850e3 * t2785 * t12928 - 0.533466600e2 * t7940 * t12669;
21917   t12964 = t3504 * t12656;
21918   t12967 = t3504 * t7604;
21919   t12970 = t10191 * t12656;
21920   t12982 = 0.266733300e2 * t2742 * t12657 + 0.1387013160e3 * t7996 * t12660 - 0.693506580e2 * t2748 * t12663 - 0.853546560e2 * t11693 * t12931 + 0.426773280e2 * t4356 * t12934 - 0.111663021438752e3 * t2819 * t12964 - 0.119453464794944e3 * t11559 * t12967 + 0.46742660137152e2 * t4316 * t12970 - 0.334195646928696e3 * t7952 * t12660 + 0.143226705826584e3 * t2756 * t12663 + 0.680326852676274e3 * t7960 * t12931 - 0.302367490078344e3 * t2762 * t12934 - 0.4002e1 * t12629;
21921   t12996 = t11393 * t980;
21922   t13001 = -0.4002e1 * t12633 - 0.4002e1 * t12636 + 0.9338e1 * t12639 + 0.9338e1 * t12642 - 0.5336e1 * t12645 - 0.5336e1 * t12648 - 0.62253333333333333334e2 * t12650 - 0.20010e2 * t12652 + 0.77816666666666666667e2 * t12654 - 0.41575529885772300000e3 * t7705 * t12621 + 0.20688301952728800000e3 * t12996 * t12621 - 0.430595136555444e3 * t2799 * t12944;
21923   t13020 = -0.1874355300300168e4 * t7965 * t12914 + 0.728915950116732e3 * t2805 * t12917 + 0.788017243369440e3 * t11645 * t12922 - 0.315206897347776e3 * t4349 * t12964 + 0.4129190893426050e4 * t7922 * t12941 - 0.1651676357370420e4 * t2791 * t12944 - 0.1811516004857880e4 * t11588 * t12914 + 0.745918354941480e3 * t4342 * t12917 + 0.1148253697481184e4 * t7931 * t12941 + t11553 - t11557 - t11572;
21924   t13022 = t11574 + t11583 - t11586 + t11599 - t11601 + t11608 - t11611 + t11621 - t11623 - t11633 - t11640 + t11643;
21925   t13028 = -t11655 + t11657 - t11670 + t11672 + t11688 - t11691 - t11701 + t11703 - 0.18676e2 * t12658 - 0.26680e2 * t12661 + 0.16008e2 * t12664 + 0.4002e1 * t12667 + 0.28014e2 * t12670;
21926   t13033 = t3529 * t2593;
21927   t13036 = t10253 * t933;
21928   t13041 = t3529 * t2582;
21929   t13044 = t4285 * t184;
21930   t13045 = t13044 * t466;
21931   t13056 = my_piecewise3(t102, t12744 + t12745 + t12754 + t12778 + t12781 + t12805 + t12836 + t12867 + t12898 + t12920 + t12953 + t12982 + t13001 + t13020 + t13022 + t13028, t12673 * t184 * t616 * t617 + 0.6e1 * t8315 * t13033 + 0.6e1 * t8323 * t13033 + t8335 * t13033 - 0.2e1 * t2835 * t13036 - t2843 * t13036 - 0.2e1 * t2835 * t13041 - t2843 * t13041 - 0.2e1 * t2835 * t13045 - t2843 * t13045);
21932   t13059 = 0.2e1 * t405 * t12707 * t187 - 0.2e1 * t405 * t4301 * t621 + 0.4e1 * t3291 * t12715 - 0.2e1 * t405 * t3296 * t1027 - 0.2e1 * t405 * t3347 * t1027 - 0.2e1 * t405 * t1195 * t2846 + 0.2e1 * t1369 * t4308 * t477 - t405 * t12730 - t405 * t12732 - t405 * t477 * t4372 - t101 * t13056 + 0.1174e1 * t13056;
21933   t13060 = t12618 + t13059;
21934   t13062 = t1180 * t13060 * t204;
21935   t13065 = t1180 * t4375;
21936   t13066 = t3547 * t13065;
21937   t13070 = 0.12369750000000000000e1 * t9514 * t1038;
21938   t13075 = t3546 * t10286;
21939   t13077 = t1244 * t1860 * t19;
21940   t13078 = t13077 * t2869;
21941   t13083 = t1244 * t2879;
21942   t13085 = t13083 * t26 * t1878;
21943   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21944     v3rhosigmatau[0] = -t12576 - t3286 * t12578 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t13062 - 0.24739500000000000000e1 * t13066 * t644 + t13070 + 0.12369750000000000000e1 * t9525 * t2859 + 0.92773125000000000000e0 * t10279 * t1038 + 0.11132775000000000000e2 * t13075 * t13078 - 0.12369750000000000000e1 * t3549 * t2875 - 0.30203104535893596325e2 * t10287 * t13085;
21945 
21946   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21947     v3rhosigmatau[1] = 0.0e0;
21948 
21949   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21950     v3rhosigmatau[2] = 0.0e0;
21951 
21952   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21953     v3rhosigmatau[3] = 0.0e0;
21954 
21955   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21956     v3rhosigmatau[4] = 0.0e0;
21957 
21958   t13089 = t10336 * t4491 / 0.2e1;
21959   t13090 = t210 * t4489;
21960   t13091 = t13090 * t651;
21961   t13095 = 0.12369750000000000000e1 * t10345 * t1173;
21962   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21963     v3rhosigmatau[5] = -t13089 - t3286 * t13091 / 0.2e1 + t13095 + 0.12369750000000000000e1 * t10349 * t2895;
21964 
21965   t13098 = t12577 * t663;
21966   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21967     v3rhosigmatau[6] = -t12576 - t3286 * t13098 / 0.2e1 + t13070 + 0.12369750000000000000e1 * t9525 * t2906;
21968 
21969   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21970     v3rhosigmatau[7] = 0.0e0;
21971 
21972   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21973     v3rhosigmatau[8] = 0.0e0;
21974 
21975   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21976     v3rhosigmatau[9] = 0.0e0;
21977 
21978   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
21979     v3rhosigmatau[10] = 0.0e0;
21980 
21981   t13103 = t13090 * t668;
21982   t13106 = t1078 * t742;
21983   t13107 = t3566 * t13106;
21984   t13112 = t10378 * t1078;
21985   t13115 = t10382 * t1078;
21986   t13118 = t3566 * t2997;
21987   t13121 = t2000 * t1075;
21988   t13124 = t2994 * t1263;
21989   t13128 = t1075 * t3620;
21990   t13135 = t4414 * t363;
21991   t13136 = t13135 * t742;
21992   t13139 = t739 * t4414;
21993   t13143 = 0.2e1 * t13124 * t363 * t674 + 0.2e1 * t13128 * t363 * t674 + 0.2e1 * t13139 * t363 * t674 - 0.2e1 * t4385 * t674 * t885 + 0.12e2 * t10371 * t13107 - 0.4e1 * t10375 * t4382 - 0.4e1 * t3565 * t13112 + 0.4e1 * t3565 * t13115 - 0.4e1 * t3565 * t13118 - 0.4e1 * t13121 * t3567 - 0.4e1 * t3565 * t13136;
21994   t13144 = t1057 * t728;
21995   t13145 = t3583 * t13144;
21996   t13146 = t2941 * t13145;
21997   t13148 = t3583 * t8564;
21998   t13149 = t8621 * t13148;
21999   t13151 = t3600 * t13144;
22000   t13152 = t2962 * t13151;
22001   t13154 = t3600 * t8564;
22002   t13155 = t11966 * t13154;
22003   t13157 = t3637 * t13144;
22004   t13158 = t4395 * t13157;
22005   t13160 = t10484 * t1057;
22006   t13161 = t4395 * t13160;
22007   t13163 = t3600 * t2954;
22008   t13164 = t4395 * t13163;
22009   t13166 = t11945 * t253;
22010   t13167 = t13166 * t4389;
22011   t13169 = t10405 * t1057;
22012   t13170 = t2941 * t13169;
22013   t13172 = t3576 * t2954;
22014   t13173 = t2941 * t13172;
22015   t13175 = t10417 * t1057;
22016   t13176 = t2962 * t13175;
22017   t13178 = t3583 * t2954;
22018   t13179 = t2962 * t13178;
22019   t13181 = t2098 * t4389;
22020   t13183 = t8667 * t4392;
22021   t13185 = 0.6e1 * t13146 + 0.42e2 * t13149 - 0.28e2 * t13152 - 0.40e2 * t13155 + 0.24e2 * t13158 - 0.8e1 * t13161 - 0.8e1 * t13164 - 0.6e1 * t13167 - 0.6e1 * t13170 - 0.6e1 * t13173 + 0.14e2 * t13176 + 0.14e2 * t13179 - 0.30e2 * t13181 + 0.350e3 / 0.3e1 * t13183;
22022   t13186 = t2170 * t4396;
22023   t13188 = t1250 * t1057;
22024   t13189 = t13188 * t1425;
22025   t13190 = t8563 * t13189;
22026   t13192 = t8573 * t13189;
22027   t13194 = t11922 * t1089;
22028   t13195 = t13194 * t13189;
22029   t13197 = -0.280e3 / 0.3e1 * t13186 + 0.9e1 * t13190 - 0.35e2 * t13192 + 0.28e2 * t13195 - t4076 + t4084 - t11931 + t11944 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
22030   t13198 = t13185 + t13197;
22031   t13199 = t56 * t13198;
22032   t13210 = t1258 * t265;
22033   t13217 = t4399 * t731 * t267;
22034   t13220 = t3607 * t1068;
22035   t13221 = t13220 * t267;
22036   t13224 = t1257 * t2979;
22037   t13228 = t6534 * t1257;
22038   t13231 = t13199 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4400 * t2984 - 0.3e1 / 0.100e3 * t3608 * t4404 - 0.3e1 / 0.100e3 * t1258 * t2991 - 0.3e1 / 0.100e3 * t1258 * t12006 + 0.3e1 / 0.50e2 * t13210 * t2991 - t735 * t13198 * t267 / 0.100e3 + t2127 * t13217 / 0.100e3 + t2127 * t13221 / 0.100e3 + t2127 * t13224 * t267 / 0.100e3 - t13228 * t2991 / 0.100e3;
22039   t13232 = t270 * t13231;
22040   t13239 = t1263 * t1162;
22041   t13240 = t13239 * t742;
22042   t13255 = t2997 * t1310;
22043   t13257 = t1078 * t3812;
22044   t13268 = t10565 * t1057;
22045   t13271 = t3655 * t2954;
22046   t13274 = t10559 * t1057;
22047   t13277 = t3649 * t2954;
22048   t13284 = 0.4002e1 * t13146 + 0.28014e2 * t13149 - 0.18676e2 * t13152 - 0.26680e2 * t13155 + 0.16008e2 * t13158 + 0.231168860e2 * t3180 * t13160 - 0.106559764991640e3 * t4457 * t13268 - 0.106559764991640e3 * t4457 * t13271 + 0.71765856092574e2 * t3143 * t13274 + 0.71765856092574e2 * t3143 * t13277 - 0.104130850016676e3 * t3150 * t13268 - 0.104130850016676e3 * t3150 * t13271;
22049   t13285 = t10571 * t1057;
22050   t13288 = t3661 * t2954;
22051   t13299 = t10761 * t1057;
22052   t13302 = t3788 * t2954;
22053   t13311 = t10547 * t1057;
22054   t13314 = 0.39400862168472e2 * t4465 * t13285 + 0.39400862168472e2 * t4465 * t13288 - 0.9738054195240e1 * t3158 * t13268 - 0.9738054195240e1 * t3158 * t13271 + 0.13957877679844e2 * t3169 * t13285 + 0.13957877679844e2 * t3169 * t13288 - 0.5193628904128e1 * t4424 * t13299 - 0.5193628904128e1 * t4424 * t13302 - 0.133366650e2 * t3163 * t13175 - 0.133366650e2 * t3163 * t13178 + 0.231168860e2 * t3180 * t13163 - 0.106693320e2 * t4433 * t13311;
22055   t13316 = t3637 * t2954;
22056   t13327 = t10553 * t1057;
22057   t13330 = t3643 * t2954;
22058   t13343 = -0.106693320e2 * t4433 * t13316 - 0.47742235275528e2 * t3188 * t13160 - 0.47742235275528e2 * t3188 * t13163 + 0.75591872519586e2 * t3194 * t13311 + 0.75591872519586e2 * t3194 * t13316 - 0.31828156850352e2 * t4441 * t13327 - 0.31828156850352e2 * t4441 * t13330 + 0.191571209872680e3 * t3202 * t13311 + 0.191571209872680e3 * t3202 * t13316 - 0.290259408898000e3 * t3208 * t13327 - 0.290259408898000e3 * t3208 * t13330 + 0.116103763559200e3 * t4449 * t13274;
22059   t13362 = t12218 * t4183;
22060   t13371 = 0.116103763559200e3 * t4449 * t13277 - 0.186479588735370e3 * t3216 * t13327 - 0.186479588735370e3 * t3216 * t13330 + 0.275279392895070e3 * t3222 * t13274 + 0.275279392895070e3 * t3222 * t13277 - 0.67727195409533333333e4 * t9364 * t4442 + 0.30961003615786666667e4 * t2195 * t4450 - 0.4661989718384250e4 * t3005 * t4442 + 0.53505197772735333333e3 * t9311 * t4466 - 0.21640120433866666667e3 * t13362 * t4425 - 0.1333666500e3 * t2967 * t4392 + 0.30822514666666666667e3 * t9099 * t4396 - 0.17782220000000000000e3 * t2179 * t4434;
22061   t13394 = -0.716133529132920e3 * t3040 * t4396 + 0.13858509961924100000e4 * t9343 * t4434 - 0.68961006509096000000e3 * t2187 * t4442 + 0.3831424197453600e4 * t3047 * t4434 + 0.77995827986936500000e4 * t9191 * t4450 - 0.33743925580686000000e4 * t2203 * t4458 + 0.2152975682777220e4 * t3013 * t4450 - 0.34710283338892000000e4 * t9215 * t4458 + 0.14446982795106400000e4 * t2160 * t4466 - 0.340831896833400e3 * t3021 * t4458 + t12056 + t12064;
22062   t13395 = t3661 * t13144;
22063   t13398 = t3649 * t8564;
22064   t13401 = -t12071 - t12079 + t12093 + t12101 - t12108 + t12120 - t12126 + t12141 - t12148 - t12154 + 0.68166379366680e2 * t3158 * t13395 + 0.4129190893426050e4 * t8847 * t13398;
22065   t13403 = t3655 * t13144;
22066   t13406 = t3655 * t8564;
22067   t13419 = t3661 * t8564;
22068   t13422 = t3788 * t13144;
22069   t13431 = -0.1651676357370420e4 * t3222 * t13403 - 0.1811516004857880e4 * t12396 * t13406 + 0.745918354941480e3 * t4457 * t13395 + 0.1148253697481184e4 * t8854 * t13398 - 0.430595136555444e3 * t3143 * t13403 - 0.1874355300300168e4 * t8902 * t13406 + 0.728915950116732e3 * t3150 * t13395 + 0.788017243369440e3 * t12362 * t13419 - 0.315206897347776e3 * t4465 * t13422 - 0.185023029709560e3 * t8909 * t13406 + 0.266733300e2 * t3163 * t13151 + 0.1387013160e3 * t9104 * t13154;
22070   t13434 = t3637 * t8564;
22071   t13437 = t3643 * t13144;
22072   t13448 = t3643 * t8564;
22073   t13451 = t3649 * t13144;
22074   t13462 = -0.693506580e2 * t3180 * t13157 - 0.853546560e2 * t12438 * t13434 + 0.426773280e2 * t4433 * t13437 - 0.334195646928696e3 * t8859 * t13154 + 0.143226705826584e3 * t3188 * t13157 + 0.680326852676274e3 * t8867 * t13434 - 0.302367490078344e3 * t3194 * t13437 - 0.350109725353872e3 * t12309 * t13448 + 0.159140784251760e3 * t4441 * t13451 + 0.1915712098726800e4 * t8874 * t13434 - 0.766284839490720e3 * t3202 * t13437 - 0.3483112906776000e4 * t8880 * t13448 + 0.1451297044490000e4 * t3208 * t13451;
22075   t13478 = t3788 * t8564;
22076   t13481 = t10955 * t13144;
22077   t13489 = 0.1625452689828800e4 * t12333 * t13398 - 0.696622581355200e3 * t4449 * t13403 - 0.2424234653559810e4 * t8921 * t13448 + 0.932397943676850e3 * t3216 * t13451 + 0.293115431276724e3 * t9242 * t13419 - 0.111663021438752e3 * t3169 * t13422 - 0.119453464794944e3 * t12410 * t13478 + 0.46742660137152e2 * t4424 * t13481 - 0.533466600e2 * t8914 * t13148 - 0.5336e1 * t13161 - 0.5336e1 * t13164 - 0.4002e1 * t13167;
22078   t13500 = -0.4002e1 * t13170 - 0.4002e1 * t13173 + 0.9338e1 * t13176 + 0.9338e1 * t13179 - 0.20010e2 * t13181 + 0.77816666666666666667e2 * t13183 - 0.62253333333333333334e2 * t13186 + 0.60030000000000000000e1 * t13190 - 0.23345000000000000000e2 * t13192 + 0.18676000000000000000e2 * t13195 - t4110 + t4116;
22079   t13502 = t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205;
22080   t13507 = t12149 * t1115;
22081   t13514 = t12057 * t1128;
22082   t13521 = t12072 * t1141;
22083   t13528 = t12094 * t1154;
22084   t13533 = 0.21484005873987600000e3 * t8778 * t13189 - 0.41575529885772300000e3 * t8784 * t13189 + 0.20688301952728800000e3 * t13507 * t13189 - 0.1149427259236080e4 * t8791 * t13189 + 0.2031815862286000e4 * t8797 * t13189 - 0.928830108473600e3 * t13514 * t13189 + 0.13985969155152750000e4 * t8804 * t13189 - 0.23398748396080950000e4 * t8810 * t13189 + 0.10123177674205800000e4 * t13521 * t13189 - 0.645892704833166e3 * t8819 * t13189 + 0.1041308500166760e4 * t8825 * t13189 - 0.433409483853192e3 * t13528 * t13189 + 0.10224956905002000000e3 * t8749 * t13189;
22085   t13538 = t12113 * t2330;
22086   t13539 = t12111 * t13538;
22087   t13546 = t12129 * t1102;
22088   t13549 = -0.16051559331820600000e3 * t8762 * t13189 + 0.64920361301600000000e2 * t13539 * t13189 + 0.400099950e2 * t8755 * t13189 - 0.924675440e2 * t8771 * t13189 + 0.533466600e2 * t13546 * t13189 - t12162 - t12166 - t12183 + t12185 + t12189 + t12193 - t12197;
22089   t13550 = -t12201 + t12207 + t12211 + t12215 - t12222 - t12226 + t12230 - t12263 + t12266 - t12269 + t12272 + t12304;
22090   t13552 = -t12307 + t12319 - t12321 - t12329 + t12331 + t12345 - t12348 - t12357 + t12360 - t12373 + t12378 + t12392;
22091   t13553 = -t12394 + t12404 - t12408 - t12422 + t12424 + t12432 - t12436 + t12446 - t12449 - t12451 + t12453 + t12462 - t12463;
22092   t13558 = t3803 * t2990;
22093   t13561 = t11093 * t1068;
22094   t13566 = t3803 * t2979;
22095   t13569 = t4399 * t360;
22096   t13570 = t13569 * t731;
22097   t13581 = my_piecewise3(t278, t13284 + t13314 + t13343 + t13371 + t13394 + t13401 + t13431 + t13462 + t13489 + t13500 + t13502 + t13533 + t13549 + t13550 + t13552 + t13553, t13198 * t360 * t616 * t881 + 0.6e1 * t9372 * t13558 + 0.6e1 * t9380 * t13558 + t9392 * t13558 - 0.2e1 * t3232 * t13561 - t3240 * t13561 - 0.2e1 * t3232 * t13566 - t3240 * t13566 - 0.2e1 * t3232 * t13570 - t3240 * t13570);
22098   t13584 = 0.2e1 * t674 * t13232 * t363 - 0.2e1 * t674 * t4415 * t885 + 0.4e1 * t3565 * t13240 - 0.2e1 * t674 * t3570 * t1162 - 0.2e1 * t674 * t3621 * t1162 - 0.2e1 * t674 * t1264 * t3243 + 0.2e1 * t2000 * t4422 * t742 - t674 * t13255 - t674 * t13257 - t674 * t742 * t4486 - t277 * t13581 + 0.1174e1 * t13581;
22099   t13585 = t13143 + t13584;
22100   t13587 = t1249 * t13585 * t377;
22101   t13590 = t1249 * t4489;
22102   t13591 = t3547 * t13590;
22103   t13598 = t3546 * t11126;
22104   t13600 = t1313 * t2486 * t19;
22105   t13601 = t13600 * t3264;
22106   t13606 = t1313 * t3274;
22107   t13608 = t13606 * t214 * t2504;
22108   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22109     v3rhosigmatau[11] = -t13089 - t3286 * t13103 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t13587 - 0.24739500000000000000e1 * t13591 * t902 + t13095 + 0.12369750000000000000e1 * t10349 * t3256 + 0.92773125000000000000e0 * t11119 * t1173 + 0.11132775000000000000e2 * t13598 * t13601 - 0.12369750000000000000e1 * t3821 * t3270 - 0.30203104535893596325e2 * t11127 * t13608;
22110 
22111   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22112     v3rholapl2[0] = 0.0e0;
22113 
22114   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22115     v3rholapl2[1] = 0.0e0;
22116 
22117   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22118     v3rholapl2[2] = 0.0e0;
22119 
22120   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22121     v3rholapl2[3] = 0.0e0;
22122 
22123   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22124     v3rholapl2[4] = 0.0e0;
22125 
22126   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22127     v3rholapl2[5] = 0.0e0;
22128 
22129   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22130     v3rholapltau[0] = 0.0e0;
22131 
22132   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22133     v3rholapltau[1] = 0.0e0;
22134 
22135   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22136     v3rholapltau[2] = 0.0e0;
22137 
22138   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22139     v3rholapltau[3] = 0.0e0;
22140 
22141   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22142     v3rholapltau[4] = 0.0e0;
22143 
22144   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22145     v3rholapltau[5] = 0.0e0;
22146 
22147   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22148     v3rholapltau[6] = 0.0e0;
22149 
22150   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22151     v3rholapltau[7] = 0.0e0;
22152 
22153   t13611 = t10336 * t4612;
22154   t13613 = t15 * t4610;
22155   t13614 = t13613 * t392;
22156   t13617 = t4747 * t95;
22157   t13618 = t4501 * t477;
22158   t13624 = t1369 * t95;
22159   t13625 = t3292 * t3346;
22160   t13635 = t4496 * t621;
22161   t13638 = t4528 * t187;
22162   t13639 = t13638 * t477;
22163   t13642 = t474 * t4528;
22164   t13646 = t113 * t4504;
22165   t13647 = t13646 * t463;
22166   t13648 = t2544 * t13647;
22167   t13650 = t3302 * t3314;
22168   t13651 = t2544 * t13650;
22169   t13653 = t11178 - t11188 - t11206 + t11209 + t11225 - t11229 - t11231 + t11235 - t3854 + t3862 + 0.6e1 * t13648 - 0.12e2 * t13651;
22170   t13654 = t13646 * t438;
22171   t13655 = t7592 * t13654;
22172   t13657 = t126 * t4504;
22173   t13658 = t13657 * t463;
22174   t13659 = t2565 * t13658;
22175   t13661 = t3309 * t3314;
22176   t13662 = t2565 * t13661;
22177   t13664 = t13657 * t438;
22178   t13665 = t11212 * t13664;
22179   t13667 = t137 * t4504;
22180   t13668 = t13667 * t463;
22181   t13669 = t4281 * t13668;
22182   t13671 = t3326 * t3314;
22183   t13672 = t4281 * t13671;
22184   t13674 = t84 * t4504;
22185   t13675 = t13674 * t1425;
22186   t13676 = t4800 * t13675;
22187   t13678 = t13646 * t1425;
22188   t13679 = t11170 * t13678;
22189   t13681 = t13657 * t1425;
22190   t13682 = t11180 * t13681;
22191   t13684 = t1469 * t4505;
22192   t13686 = t7567 * t4508;
22193   t13688 = t1512 * t4511;
22194   t13690 = t11236 * t4505;
22195   t13692 = 0.42e2 * t13655 - 0.28e2 * t13659 + 0.28e2 * t13662 - 0.40e2 * t13665 + 0.24e2 * t13669 - 0.16e2 * t13672 + 0.9e1 * t13676 - 0.35e2 * t13679 + 0.28e2 * t13682 - 0.30e2 * t13684 + 0.350e3 / 0.3e1 * t13686 - 0.280e3 / 0.3e1 * t13688 - 0.6e1 * t13690;
22196   t13693 = t13653 + t13692;
22197   t13694 = t56 * t13693;
22198   t13699 = t1492 * t3333;
22199   t13709 = t4514 * t466;
22200   t13720 = t13694 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4515 * t2587 - 0.3e1 / 0.50e2 * t1189 * t13699 - 0.3e1 / 0.100e3 * t4519 * t471 + 0.3e1 / 0.50e2 * t4519 * t11256 - t470 * t13693 * t91 / 0.100e3 + t1499 * t13709 * t91 / 0.100e3 + t1499 * t1191 * t3333 / 0.50e2 - t4970 * t4518 * t466 * t91 / 0.100e3;
22201   t13721 = t94 * t13720;
22202   t13728 = t1194 * t1241;
22203   t13729 = t13728 * t477;
22204   t13743 = t13667 * t438;
22205   t13746 = t150 * t4504;
22206   t13747 = t13746 * t463;
22207   t13750 = t3363 * t3314;
22208   t13753 = t13746 * t438;
22209   t13760 = t164 * t4504;
22210   t13761 = t13760 * t463;
22211   t13764 = t3369 * t3314;
22212   t13774 = t13760 * t438;
22213   t13777 = t177 * t4504;
22214   t13778 = t13777 * t463;
22215   t13781 = t3375 * t3314;
22216   t13798 = -0.580518817796000e3 * t2777 * t13764 + 0.1625452689828800e4 * t11659 * t13774 - 0.696622581355200e3 * t4334 * t13778 + 0.232207527118400e3 * t4334 * t13781 + 0.4129190893426050e4 * t7922 * t13774 - 0.1651676357370420e4 * t2791 * t13778 + 0.550558785790140e3 * t2791 * t13781 + 0.932397943676850e3 * t2785 * t13761 + 0.426773280e2 * t4356 * t13747 - 0.213386640e2 * t4356 * t13750 + 0.680326852676274e3 * t7960 * t13743;
22217   t13822 = -0.302367490078344e3 * t2762 * t13747 - 0.17782220000000000000e3 * t1521 * t4578 + 0.2152975682777220e4 * t2632 * t4542 - 0.340831896833400e3 * t2640 * t4545 - 0.1333666500e3 * t2569 * t4548 - 0.716133529132920e3 * t2609 * t4551 + 0.3831424197453600e4 * t2616 * t4554 - 0.4661989718384250e4 * t2624 * t4557 + 0.13858509961924100000e4 * t7807 * t4581 - 0.68961006509096000000e3 * t1529 * t4584 - 0.67727195409533333333e4 * t7765 * t4588;
22218   t13845 = 0.30961003615786666667e4 * t1537 * t4536 + 0.77995827986936500000e4 * t7819 * t4539 - 0.33743925580686000000e4 * t1545 * t4560 - 0.34710283338892000000e4 * t7854 * t4563 + 0.14446982795106400000e4 * t1554 * t4566 + 0.53505197772735333333e3 * t7898 * t4569 - 0.21640120433866666667e3 * t11461 * t4572 + 0.30822514666666666667e3 * t7775 * t4575 + 0.1148253697481184e4 * t7931 * t13774 - 0.430595136555444e3 * t2799 * t13778 + 0.143531712185148e3 * t2799 * t13781;
22219   t13848 = t13777 * t438;
22220   t13851 = t609 * t4504;
22221   t13852 = t13851 * t463;
22222   t13855 = t3456 * t3314;
22223   t13870 = t1786 * t4504;
22224   t13871 = t13870 * t463;
22225   t13874 = t3467 * t3314;
22226   t13877 = -0.185023029709560e3 * t7972 * t13848 + 0.68166379366680e2 * t2813 * t13852 - 0.19476108390480e2 * t2813 * t13855 - 0.533466600e2 * t7940 * t13654 + 0.266733300e2 * t2742 * t13658 - 0.266733300e2 * t2742 * t13661 - 0.334195646928696e3 * t7952 * t13664 + 0.143226705826584e3 * t2756 * t13668 - 0.95484470551056e2 * t2756 * t13671 - 0.315206897347776e3 * t4349 * t13871 + 0.78801724336944e2 * t4349 * t13874;
22227   t13878 = t13851 * t438;
22228   t13885 = t13870 * t438;
22229   t13888 = t5119 * t4504;
22230   t13889 = t13888 * t463;
22231   t13892 = t3504 * t3314;
22232   t13905 = 0.293115431276724e3 * t7978 * t13878 - 0.111663021438752e3 * t2819 * t13871 + 0.27915755359688e2 * t2819 * t13874 - 0.119453464794944e3 * t11559 * t13885 + 0.46742660137152e2 * t4316 * t13889 - 0.10387257808256e2 * t4316 * t13892 + 0.1387013160e3 * t7996 * t13664 - 0.693506580e2 * t2748 * t13668 + 0.462337720e2 * t2748 * t13671 - 0.853546560e2 * t11693 * t13743 - 0.372959177470740e3 * t2785 * t13764;
22233   t13921 = -0.1811516004857880e4 * t11588 * t13848 + 0.745918354941480e3 * t4342 * t13852 - 0.213119529983280e3 * t4342 * t13855 - 0.1874355300300168e4 * t7965 * t13848 + 0.728915950116732e3 * t2805 * t13852 - 0.208261700033352e3 * t2805 * t13855 + 0.788017243369440e3 * t11645 * t13878 + t11300 + t11308 - t11315 + t11327;
22234   t13922 = t13667 * t1425;
22235   t13925 = -t11333 + t11341 + t11350 + t11358 - t11375 - t11381 - t11392 - t11398 + t11402 - t11404 - 0.1149427259236080e4 * t5514 * t13922;
22236   t13929 = t13746 * t1425;
22237   t13932 = t13777 * t1425;
22238   t13937 = t13851 * t1425;
22239   t13942 = t13870 * t1425;
22240   t13947 = 0.13985969155152750000e4 * t5639 * t13929 + 0.10123177674205800000e4 * t11377 * t13932 + 0.1041308500166760e4 * t11292 * t13932 - 0.433409483853192e3 * t11302 * t13937 - 0.16051559331820600000e3 * t11309 * t13937 + 0.64920361301600000000e2 * t11321 * t13942 - 0.924675440e2 * t11328 * t13681 - t11410 + t11411 + t11418 - t11419;
22241   t13956 = t13760 * t1425;
22242   t13969 = 0.533466600e2 * t11336 * t13922 - 0.41575529885772300000e3 * t11386 * t13922 + 0.20688301952728800000e3 * t11394 * t13929 + 0.2031815862286000e4 * t11342 * t13929 - 0.928830108473600e3 * t11352 * t13956 - 0.23398748396080950000e4 * t11359 * t13956 - 0.645892704833166e3 * t5648 * t13956 + 0.10224956905002000000e3 * t5627 * t13932 + 0.400099950e2 * t5657 * t13678 + 0.21484005873987600000e3 * t5505 * t13681 - t11423;
22243   t13971 = t11427 + t11431 - t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456 - t11475 + t11483;
22244   t13972 = -t11487 + t11489 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956;
22245   t13980 = -t3965 - t3989 + t3991 + t3994 + t4003 + t11541 + 0.4002e1 * t13648 - 0.8004e1 * t13651 + 0.28014e2 * t13655 - 0.18676e2 * t13659 + 0.18676e2 * t13662;
22246   t13991 = -0.26680e2 * t13665 + 0.16008e2 * t13669 - 0.10672e2 * t13672 + 0.60030000000000000000e1 * t13676 - 0.23345000000000000000e2 * t13679 + 0.18676000000000000000e2 * t13682 - 0.20010e2 * t13684 + 0.77816666666666666667e2 * t13686 - 0.62253333333333333334e2 * t13688 - 0.4002e1 * t13690 + t11553;
22247   t13993 = -t11557 - t11572 + t11574 + t11583 - t11586 + t11599 - t11601 + t11608 - t11611 + t11621 - t11623;
22248   t13994 = -t11633 - t11640 + t11643 - t11655 + t11657 - t11670 + t11672 + t11688 - t11691 - t11701 + t11703;
22249   t13999 = t4518 * t184;
22250   t14000 = t13999 * t466;
22251   t14003 = t3529 * t3333;
22252   t14008 = t4514 * t184;
22253   t14009 = t14008 * t466;
22254   t14020 = my_piecewise3(t102, -0.3483112906776000e4 * t7990 * t13753 + 0.1451297044490000e4 * t2777 * t13761 + 0.383142419745360e3 * t2770 * t13750 - 0.2424234653559810e4 * t7948 * t13753 + 0.151183745039172e3 * t2762 * t13750 - 0.350109725353872e3 * t11613 * t13753 + 0.159140784251760e3 * t4326 * t13761 - 0.63656313700704e2 * t4326 * t13764 + 0.1915712098726800e4 * t7983 * t13743 - 0.766284839490720e3 * t2770 * t13747 + t13845 + t13798 + t13925 + t13969 + t13971 + t13972 + t13921 + t13994 + t13822 + t13991 + t13993 + t13947 + t13877 + t13980 + t13905, t13693 * t184 * t616 * t617 + 0.6e1 * t8315 * t14000 + 0.6e1 * t8323 * t14000 + t8335 * t14000 - 0.4e1 * t2835 * t14003 - 0.2e1 * t2843 * t14003 - 0.2e1 * t2835 * t14009 - t2843 * t14009);
22255   t14023 = 0.24e2 * t13617 * t13618 - 0.16e2 * t3291 * t4501 * t474 - 0.16e2 * t13624 * t13625 + 0.8e1 * t1369 * t4497 * t621 - 0.4e1 * t1369 * t13618 + 0.4e1 * t405 * t13625 - 0.2e1 * t405 * t13635 - 0.4e1 * t3291 * t13639 + 0.2e1 * t405 * t13642 * t187 + 0.2e1 * t405 * t13721 * t187 - 0.2e1 * t405 * t4529 * t621 + 0.8e1 * t3291 * t13729 - 0.4e1 * t405 * t3296 * t1241 - 0.4e1 * t405 * t3347 * t1241 - 0.4e1 * t405 * t1195 * t3538 - t405 * t477 * t4607 - t101 * t14020 + 0.1174e1 * t14020;
22256   t14025 = t1180 * t14023 * t204;
22257   t14028 = t1180 * t4610;
22258   t14029 = t3547 * t14028;
22259   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22260     v3rhotau2[0] = -t13611 / 0.2e1 - t3286 * t13614 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t14025 - 0.24739500000000000000e1 * t14029 * t644;
22261 
22262   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22263     v3rhotau2[1] = 0.0e0;
22264 
22265   t14032 = t10336 * t4731;
22266   t14033 = t210 * t4729;
22267   t14034 = t14033 * t651;
22268   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22269     v3rhotau2[2] = -t3286 * t14034 / 0.2e1 - t14032 / 0.2e1;
22270 
22271   t14037 = t13613 * t663;
22272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22273     v3rhotau2[3] = -t3286 * t14037 / 0.2e1 - t13611 / 0.2e1;
22274 
22275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22276     v3rhotau2[4] = 0.0e0;
22277 
22278   t14041 = t14033 * t668;
22279   t14044 = t6316 * t271;
22280   t14045 = t4620 * t742;
22281   t14051 = t2000 * t271;
22282   t14052 = t3566 * t3620;
22283   t14062 = t4615 * t885;
22284   t14065 = t4647 * t363;
22285   t14066 = t14065 * t742;
22286   t14069 = t739 * t4647;
22287   t14073 = t313 * t4623;
22288   t14074 = t14073 * t728;
22289   t14075 = t4395 * t14074;
22290   t14077 = t3600 * t3588;
22291   t14078 = t4395 * t14077;
22292   t14080 = t289 * t4623;
22293   t14081 = t14080 * t728;
22294   t14082 = t2941 * t14081;
22295   t14084 = t3576 * t3588;
22296   t14085 = t2941 * t14084;
22297   t14087 = t14080 * t703;
22298   t14088 = t8621 * t14087;
22299   t14090 = t302 * t4623;
22300   t14091 = t14090 * t728;
22301   t14092 = t2962 * t14091;
22302   t14094 = t3583 * t3588;
22303   t14095 = t2962 * t14094;
22304   t14097 = t14090 * t703;
22305   t14098 = t11966 * t14097;
22306   t14100 = t260 * t4623;
22307   t14101 = t14100 * t1425;
22308   t14102 = t6420 * t14101;
22309   t14104 = t14080 * t1425;
22310   t14105 = t11936 * t14104;
22311   t14107 = 0.24e2 * t14075 - 0.16e2 * t14078 + 0.6e1 * t14082 - 0.12e2 * t14085 + 0.42e2 * t14088 - 0.28e2 * t14092 + 0.28e2 * t14095 - 0.40e2 * t14098 - t4076 + t4084 + 0.9e1 * t14102 - 0.35e2 * t14105;
22312   t14108 = t14090 * t1425;
22313   t14109 = t11923 * t14108;
22314   t14111 = t2097 * t4624;
22315   t14113 = t8666 * t4627;
22316   t14115 = t2169 * t4630;
22317   t14117 = t11945 * t4624;
22318   t14119 = 0.28e2 * t14109 - t11931 + t11944 - 0.30e2 * t14111 + 0.350e3 / 0.3e1 * t14113 - 0.280e3 / 0.3e1 * t14115 - 0.6e1 * t14117 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
22319   t14120 = t14107 + t14119;
22320   t14121 = t56 * t14120;
22321   t14126 = t2120 * t3607;
22322   t14136 = t4633 * t731;
22323   t14147 = t14121 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4634 * t2984 - 0.3e1 / 0.50e2 * t1258 * t14126 - 0.3e1 / 0.100e3 * t4638 * t736 + 0.3e1 / 0.50e2 * t4638 * t12012 - t735 * t14120 * t267 / 0.100e3 + t2127 * t14136 * t267 / 0.100e3 + t2127 * t1260 * t3607 / 0.50e2 - t6534 * t4637 * t731 * t267 / 0.100e3;
22324   t14148 = t270 * t14147;
22325   t14155 = t1263 * t1310;
22326   t14156 = t14155 * t742;
22327   t14170 = t353 * t4623;
22328   t14171 = t14170 * t703;
22329   t14174 = t803 * t4623;
22330   t14175 = t14174 * t728;
22331   t14178 = t3655 * t3588;
22332   t14181 = t14174 * t703;
22333   t14184 = t2330 * t4623;
22334   t14185 = t14184 * t728;
22335   t14188 = t3661 * t3588;
22336   t14197 = t14184 * t703;
22337   t14207 = t14073 * t703;
22338   t14210 = t326 * t4623;
22339   t14211 = t14210 * t728;
22340   t14214 = t3637 * t3588;
22341   t14223 = t14210 * t703;
22342   t14226 = t340 * t4623;
22343   t14227 = t14226 * t728;
22344   t14230 = 0.1387013160e3 * t9104 * t14097 - 0.693506580e2 * t3180 * t14074 + 0.462337720e2 * t3180 * t14077 - 0.853546560e2 * t12438 * t14207 + 0.426773280e2 * t4433 * t14211 - 0.213386640e2 * t4433 * t14214 + 0.680326852676274e3 * t8867 * t14207 - 0.302367490078344e3 * t3194 * t14211 + 0.151183745039172e3 * t3194 * t14214 - 0.350109725353872e3 * t12309 * t14223 + 0.159140784251760e3 * t4441 * t14227;
22345   t14232 = t3643 * t3588;
22346   t14235 = t14226 * t703;
22347   t14238 = t14170 * t728;
22348   t14241 = t3649 * t3588;
22349   t14258 = -0.63656313700704e2 * t4441 * t14232 + 0.1148253697481184e4 * t8854 * t14235 - 0.430595136555444e3 * t3143 * t14238 + 0.143531712185148e3 * t3143 * t14241 - 0.185023029709560e3 * t8909 * t14171 + 0.68166379366680e2 * t3158 * t14175 - 0.19476108390480e2 * t3158 * t14178 - 0.533466600e2 * t8914 * t14087 + 0.266733300e2 * t3163 * t14091 - 0.266733300e2 * t3163 * t14094 - 0.334195646928696e3 * t8859 * t14097;
22350   t14279 = -0.580518817796000e3 * t3208 * t14232 + 0.1625452689828800e4 * t12333 * t14235 - 0.696622581355200e3 * t4449 * t14238 + 0.232207527118400e3 * t4449 * t14241 + 0.4129190893426050e4 * t8847 * t14235 - 0.1651676357370420e4 * t3222 * t14238 + 0.550558785790140e3 * t3222 * t14241 - 0.1811516004857880e4 * t12396 * t14171 + 0.745918354941480e3 * t4457 * t14175 - 0.213119529983280e3 * t4457 * t14178 + t12056;
22351   t14282 = t12064 - t12071 - t12079 + t12093 + t12101 - t12108 + t12120 - t12126 + t12141 - t12148 - t12154;
22352   t14287 = t7167 * t4623;
22353   t14288 = t14287 * t728;
22354   t14291 = t3788 * t3588;
22355   t14307 = 0.143226705826584e3 * t3188 * t14074 - 0.95484470551056e2 * t3188 * t14077 + 0.46742660137152e2 * t4424 * t14288 - 0.10387257808256e2 * t4424 * t14291 + 0.1915712098726800e4 * t8874 * t14207 - 0.766284839490720e3 * t3202 * t14211 + 0.383142419745360e3 * t3202 * t14214 - 0.2424234653559810e4 * t8921 * t14223 + 0.932397943676850e3 * t3216 * t14227 - 0.372959177470740e3 * t3216 * t14232 + 0.16008e2 * t14075;
22356   t14316 = t14073 * t1425;
22357   t14319 = t14210 * t1425;
22358   t14324 = t14226 * t1425;
22359   t14327 = -0.10672e2 * t14078 + 0.4002e1 * t14082 - 0.8004e1 * t14085 + 0.28014e2 * t14088 - 0.18676e2 * t14092 + 0.18676e2 * t14095 - 0.26680e2 * t14098 - 0.41575529885772300000e3 * t12142 * t14316 + 0.20688301952728800000e3 * t12150 * t14319 + 0.2031815862286000e4 * t12048 * t14319 - 0.928830108473600e3 * t12058 * t14324;
22360   t14334 = -0.23398748396080950000e4 * t12065 * t14324 - 0.3483112906776000e4 * t8880 * t14223 + 0.1451297044490000e4 * t3208 * t14227 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161;
22361   t14341 = -t4170 + t4177 - t4190 + t4196 - t4203 + t4205 + 0.60030000000000000000e1 * t14102 - 0.23345000000000000000e2 * t14105 + 0.18676000000000000000e2 * t14109 - t12162 - t12166;
22362   t14362 = -t12183 + 0.2152975682777220e4 * t3012 * t4697 - 0.340831896833400e3 * t3020 * t4700 - 0.1333666500e3 * t2966 * t4703 - 0.716133529132920e3 * t3039 * t4707 + 0.30961003615786666667e4 * t2194 * t4670 + 0.77995827986936500000e4 * t9190 * t4673 - 0.33743925580686000000e4 * t2202 * t4676 - 0.34710283338892000000e4 * t9214 * t4679 + 0.14446982795106400000e4 * t2159 * t4682 + 0.53505197772735333333e3 * t9310 * t4685;
22363   t14378 = -0.21640120433866666667e3 * t12218 * t4688 + 0.30822514666666666667e3 * t9098 * t4655 - 0.17782220000000000000e3 * t2178 * t4658 + 0.13858509961924100000e4 * t9342 * t4661 - 0.68961006509096000000e3 * t2186 * t4664 + 0.3831424197453600e4 * t3046 * t4691 - 0.4661989718384250e4 * t3004 * t4694 + t12185 + t12189 + t12193 - t12197;
22364   t14379 = t14170 * t1425;
22365   t14384 = t14174 * t1425;
22366   t14389 = t14184 * t1425;
22367   t14394 = -t12201 + t12207 + t12211 + t12215 - t12222 + 0.10123177674205800000e4 * t12073 * t14379 + 0.1041308500166760e4 * t12087 * t14379 - 0.433409483853192e3 * t12095 * t14384 - 0.16051559331820600000e3 * t12102 * t14384 + 0.64920361301600000000e2 * t12114 * t14389 - 0.1149427259236080e4 * t7053 * t14316;
22368   t14411 = 0.13985969155152750000e4 * t7061 * t14319 - 0.645892704833166e3 * t7044 * t14324 + 0.10224956905002000000e3 * t7089 * t14379 + 0.400099950e2 * t7069 * t14104 + 0.21484005873987600000e3 * t7077 * t14108 - 0.924675440e2 * t12121 * t14108 + 0.533466600e2 * t12130 * t14316 - t12226 + t12230 - t12263 + t12266;
22369   t14415 = -t12269 + t12272 + t12304 - t12307 + t12319 - t12321 - t12329 + t12331 - 0.20010e2 * t14111 + 0.77816666666666666667e2 * t14113 - 0.62253333333333333334e2 * t14115;
22370   t14418 = -0.4002e1 * t14117 + t12345 - t12348 - t12357 + t12360 - t12373 + t12378 + t12392 - t12394 + t12404 - t12408;
22371   t14421 = -t12422 + t12424 + t12432 - t12436 + t12446 - t12449 - t12451 + t12453 + t12462 - t12463 - 0.67727195409533333333e4 * t9363 * t4667;
22372   t14426 = t4637 * t360;
22373   t14427 = t14426 * t731;
22374   t14430 = t3803 * t3607;
22375   t14435 = t4633 * t360;
22376   t14436 = t14435 * t731;
22377   t14447 = my_piecewise3(t278, -0.111663021438752e3 * t3169 * t14185 + 0.27915755359688e2 * t3169 * t14188 - 0.119453464794944e3 * t12410 * t14197 + 0.728915950116732e3 * t3150 * t14175 - 0.208261700033352e3 * t3150 * t14178 + 0.788017243369440e3 * t12362 * t14181 - 0.315206897347776e3 * t4465 * t14185 + 0.78801724336944e2 * t4465 * t14188 + 0.293115431276724e3 * t9242 * t14181 - 0.1874355300300168e4 * t8902 * t14171 + t14418 + t14327 + t14411 + t14394 + t14307 + t14279 + t14378 + t14258 + t14334 + t14341 + t14362 + t14282 + t14230 + t14421 + t14415, t14120 * t360 * t616 * t881 + 0.6e1 * t9372 * t14427 + 0.6e1 * t9380 * t14427 + t9392 * t14427 - 0.4e1 * t3232 * t14430 - 0.2e1 * t3240 * t14430 - 0.2e1 * t3232 * t14436 - t3240 * t14436);
22378   t14450 = 0.24e2 * t14044 * t14045 - 0.16e2 * t3565 * t4620 * t739 - 0.16e2 * t14051 * t14052 + 0.8e1 * t2000 * t4616 * t885 - 0.4e1 * t2000 * t14045 + 0.4e1 * t674 * t14052 - 0.2e1 * t674 * t14062 - 0.4e1 * t3565 * t14066 + 0.2e1 * t674 * t14069 * t363 + 0.2e1 * t674 * t14148 * t363 - 0.2e1 * t674 * t4648 * t885 + 0.8e1 * t3565 * t14156 - 0.4e1 * t674 * t3570 * t1310 - 0.4e1 * t674 * t3621 * t1310 - 0.4e1 * t674 * t1264 * t3812 - t674 * t742 * t4726 - t277 * t14447 + 0.1174e1 * t14447;
22379   t14452 = t1249 * t14450 * t377;
22380   t14455 = t1249 * t4729;
22381   t14456 = t3547 * t14455;
22382   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22383     v3rhotau2[5] = -t14032 / 0.2e1 - t3286 * t14041 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t14452 - 0.24739500000000000000e1 * t14456 * t902;
22384 
22385   t14459 = t3824 * t943;
22386   t14460 = t14459 * t187;
22387   t14466 = t3824 * t1027;
22388   t14475 = t4779 * t41;
22389   t14478 = 0.1e1 / t951 * t36 * t4784;
22390   t14483 = t3844 * t922;
22391   t14484 = t43 * t14483;
22392   t14485 = t14484 * t85;
22393   t14487 = t929 * t14483;
22394   t14488 = t7591 * t14487;
22395   t14490 = t2545 * t3851;
22396   t14491 = t2544 * t14490;
22397   t14492 = 0.18e2 * t14491;
22398   t14493 = t3856 * t14483;
22399   t14494 = t11211 * t14493;
22400   t14496 = t2552 * t3851;
22401   t14497 = t2565 * t14496;
22402   t14498 = 0.42e2 * t14497;
22403   t14499 = t572 * t14483;
22404   t14500 = t5149 * t14499;
22405   t14502 = t2575 * t3851;
22406   t14503 = t4281 * t14502;
22407   t14504 = 0.24e2 * t14503;
22408   t14505 = -0.6e1 * t14485 + 0.54e2 * t14488 - t14492 - 0.96e2 * t14494 + t14498 - t3854 + 0.48e2 * t14500 - t14504 + t3862;
22409   t14506 = t56 * t14505;
22410   t14511 = t3867 * t933;
22411   t14512 = t56 * t14511;
22412   t14521 = t3863 * t933 * t91;
22413   t14527 = t14506 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t3864 * t4290 - 0.3e1 / 0.100e3 * t14512 * t91 + 0.3e1 / 0.50e2 * t14512 * t4960 - t470 * t14505 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t14521 - t4970 * t14511 * t91 / 0.100e3;
22414   t14530 = -0.27e2 / 0.1280e4 * t420 * t913 * t52 + 0.729e3 / 0.102400e6 * t1391 * sigma[0] * t3839 - 0.6561e4 / 0.16384000e8 * t14475 * t14478 + 0.6e1 * t940 * t3877 + 0.2e1 * t94 * t14527;
22415   t14531 = t14530 * t187;
22416   t14533 = t3880 * t1027;
22417   t14536 = t943 * t4017;
22418   t14539 = t3959 * t14483;
22419   t14542 = t599 * t14483;
22420   t14545 = t610 * t14483;
22421   t14548 = t3894 * t14483;
22422   t14551 = t11459 * t171;
22423   t14552 = t7681 * t14483;
22424   t14555 = t3913 * t14483;
22425   t14558 = t168 * t551;
22426   t14559 = t157 * t119;
22427   t14560 = t14558 * t14559;
22428   t14562 = 0.1e1 / t160 / t965;
22429   t14563 = t14562 * t5119;
22430   t14564 = t14563 * t14483;
22431   t14567 = t3928 * t14483;
22432   t14570 = t581 * t14483;
22433   t14573 = t3943 * t14483;
22434   t14576 = t3997 * t14483;
22435   t14579 = t1006 * t14483;
22436   t14582 = t151 * t14483;
22437   t14585 = t165 * t14483;
22438   t14588 = t178 * t14483;
22439   t14591 = 0.4528046778808800e4 * t11658 * t14539 - 0.1393245162710400e4 * t5170 * t14542 + 0.1491836709882960e4 * t5157 * t14545 + 0.2245849143602904e4 * t11644 * t14548 - 0.630413794695552e3 * t14551 * t14552 - 0.342779507672448e3 * t11558 * t14555 + 0.93485320274304e2 * t14560 * t14564 - 0.2240559720e3 * t11692 * t14567 + 0.853546560e2 * t5192 * t14570 - 0.954844705510560e3 * t11612 * t14573 - 0.5114868719598720e4 * t11587 * t14576 - 0.2735545573411056e4 * t7964 * t14579 - 0.2424234653559810e4 * t5135 * t14582 + 0.1148253697481184e4 * t5170 * t14585 - 0.185023029709560e3 * t5157 * t14588;
22440   t14592 = t114 * t14483;
22441   t14595 = t127 * t14483;
22442   t14598 = t138 * t14483;
22443   t14601 = t980 * t14483;
22444   t14604 = t993 * t14483;
22445   t14607 = t967 * t14483;
22446   t14610 = t1019 * t14483;
22447   t14613 = t954 * t14483;
22448   t14616 = t590 * t14483;
22449   t14620 = -0.533466600e2 * t5182 * t14592 - 0.334195646928696e3 * t5149 * t14595 + 0.1915712098726800e4 * t5192 * t14598 - 0.5015682585757440e4 * t7989 * t14601 + 0.5993986780779750e4 * t7921 * t14604 + 0.966780264329442e3 * t7959 * t14607 + 0.429448190010084e3 * t7977 * t14610 + 0.1920479760e3 * t7995 * t14613 + 0.318281568503520e3 * t5135 * t14616 - 0.4002e1 * t14485 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934;
22450   t14622 = 0.12006e2 * t14491;
22451   t14623 = 0.28014e2 * t14497;
22452   t14624 = 0.16008e2 * t14503;
22453   t14628 = t11372 * t922;
22454   t14629 = t4334 * t14628;
22455   t14630 = 0.348311290677600e3 * t14629;
22456   t14631 = t11347 * t922;
22457   t14632 = t2785 * t14631;
22458   t14633 = 0.559438766206110e3 * t14632;
22459   t14634 = t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 - t14622 + t14623 - t14624 + 0.36018e2 * t14488 - 0.64032e2 * t14494 + 0.32016e2 * t14500 + t14630 - t14633;
22460   t14635 = t11389 * t922;
22461   t14636 = t4356 * t14635;
22462   t14637 = 0.320079960e2 * t14636;
22463   t14638 = t2756 * t14502;
22464   t14639 = 0.143226705826584e3 * t14638;
22465   t14640 = t2762 * t14635;
22466   t14641 = 0.226775617558758e3 * t14640;
22467   t14642 = t4326 * t14631;
22468   t14643 = 0.95484470551056e2 * t14642;
22469   t14644 = t2770 * t14635;
22470   t14645 = 0.574713629618040e3 * t14644;
22471   t14646 = t2777 * t14631;
22472   t14647 = 0.870778226694000e3 * t14646;
22473   t14648 = t11312 * t922;
22474   t14649 = t4349 * t14648;
22475   t14650 = 0.118202586505416e3 * t14649;
22476   t14651 = t11297 * t922;
22477   t14652 = t2813 * t14651;
22478   t14653 = 0.29214162585720e2 * t14652;
22479   t14654 = t2819 * t14648;
22480   t14655 = 0.41873633039532e2 * t14654;
22481   t14656 = t11554 * t922;
22482   t14657 = t4316 * t14656;
22483   t14658 = 0.15580886712384e2 * t14657;
22484   t14659 = t2791 * t14628;
22485   t14660 = 0.825838178685210e3 * t14659;
22486   t14661 = t4342 * t14651;
22487   t14662 = 0.319679294974920e3 * t14661;
22488   t14663 = t2799 * t14628;
22489   t14664 = 0.215297568277722e3 * t14663;
22490   t14665 = t2805 * t14651;
22491   t14666 = 0.312392550050028e3 * t14665;
22492   t14667 = t2742 * t14496;
22493   t14668 = 0.400099950e2 * t14667;
22494   t14669 = t2748 * t14502;
22495   t14670 = 0.693506580e2 * t14669;
22496   t14671 = -t14637 - t14639 + t14641 - t14643 + t14645 - t14647 + t14650 - t14653 + t14655 - t14658 + t14660 - t14662 + t14664 - t14666 - t14668 + t14670;
22497   t14678 = t2836 * t3863;
22498   t14694 = my_piecewise3(t102, t14591 + t14620 + t14634 + t14671, t14505 * t184 * t616 * t617 + 0.6e1 * t14511 * t1839 * t184 * t5678 + 0.6e1 * t14511 * t184 * t1841 * t616 + t14511 * t184 * t5689 * t5691 - 0.6e1 * t2835 * t14678 - 0.3e1 * t2843 * t14678);
22499   t14697 = 0.6e1 * t4747 * t14460 - 0.6e1 * t1369 * t944 * t3880 + 0.6e1 * t1369 * t14466 + t405 * t14531 - 0.3e1 * t405 * t14533 - 0.3e1 * t405 * t14536 - t101 * t14694 + 0.1174e1 * t14694;
22500   t14698 = t14697 * t204;
22501   t14701 = 0.3e1 / 0.8e1 * t8 * t18 * t14698;
22502   t14703 = 0.27831937500000000000e1 * t11808 * t1038;
22503   t14705 = 0.12524371875000000000e2 * t2855 * t4030;
22504   t14707 = 0.13915968750000000000e1 * t2855 * t4035;
22505   t14708 = t1030 * t4039;
22506   t14710 = t14708 * t195 * t1878;
22507   t14712 = 0.33978492602880295866e2 * t1874 * t14710;
22508   t14714 = t2879 * t5832 * t203;
22509   t14715 = t5838 * t14714;
22510   t14717 = 0.31310929687500000000e2 * t2866 * t14715;
22511   t14718 = t11792 * t29;
22512   t14720 = t1862 * t14718 * t203;
22513   t14722 = 0.62621859375000000000e1 * t636 * t14720;
22514   t14724 = 0.1e1 / t194 / t421;
22515   t14725 = t14724 * t195;
22516   t14726 = t14725 * t203;
22517   t14727 = t5846 * t14726;
22518   t14729 = 0.87205650525523016199e-1 * t1874 * t14727;
22519   t14730 = t4039 * t196;
22520   t14732 = t640 * t14730 * t203;
22521   t14734 = 0.69579843750000000000e0 * t636 * t14732;
22522   t14735 = t190 * t14724;
22523   t14737 = t14735 * t195 * t1878;
22524   t14739 = 0.33978492602880295866e2 * t1874 * t14737;
22525   t14740 = 0.1e1 / t421;
22526   t14742 = t14740 * t638 * t203;
22527   t14745 = 0.17034338633799234375e2 * t5888 * t386 * t14742;
22528   t14746 = -t14701 + t14703 - t14705 - t14707 + t14712 + t14717 + t14722 - t14729 + t14734 - t14739 + t14745;
22529   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22530     v3sigma3[0] = t10 * t14746;
22531 
22532   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22533     v3sigma3[1] = 0.0e0;
22534 
22535   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22536     v3sigma3[2] = 0.0e0;
22537 
22538   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22539     v3sigma3[3] = 0.0e0;
22540 
22541   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22542     v3sigma3[4] = 0.0e0;
22543 
22544   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22545     v3sigma3[5] = 0.0e0;
22546 
22547   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22548     v3sigma3[6] = 0.0e0;
22549 
22550   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22551     v3sigma3[7] = 0.0e0;
22552 
22553   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22554     v3sigma3[8] = 0.0e0;
22555 
22556   t14747 = t4046 * t1078;
22557   t14748 = t14747 * t363;
22558   t14754 = t4046 * t1162;
22559   t14763 = t4779 * t221;
22560   t14766 = 0.1e1 / t1086 * t36 * t6349;
22561   t14771 = t4066 * t1057;
22562   t14772 = t223 * t14771;
22563   t14773 = t14772 * t261;
22564   t14775 = t1064 * t14771;
22565   t14776 = t8620 * t14775;
22566   t14778 = t2942 * t4073;
22567   t14779 = t2941 * t14778;
22568   t14780 = 0.18e2 * t14779;
22569   t14781 = t4078 * t14771;
22570   t14782 = t11965 * t14781;
22571   t14784 = t2949 * t4073;
22572   t14785 = t2962 * t14784;
22573   t14786 = 0.42e2 * t14785;
22574   t14787 = t766 * t14771;
22575   t14788 = t7191 * t14787;
22576   t14790 = t2972 * t4073;
22577   t14791 = t4395 * t14790;
22578   t14792 = 0.24e2 * t14791;
22579   t14793 = -0.6e1 * t14773 + 0.54e2 * t14776 - t14780 - 0.96e2 * t14782 + t14786 - t4076 + 0.48e2 * t14788 - t14792 + t4084;
22580   t14794 = t56 * t14793;
22581   t14799 = t4089 * t1068;
22582   t14800 = t56 * t14799;
22583   t14809 = t4085 * t1068 * t267;
22584   t14815 = t14794 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t4086 * t4404 - 0.3e1 / 0.100e3 * t14800 * t267 + 0.3e1 / 0.50e2 * t14800 * t6524 - t735 * t14793 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t14809 - t6534 * t14799 * t267 / 0.100e3;
22585   t14818 = -0.27e2 / 0.1280e4 * t420 * t1048 * t231 + 0.729e3 / 0.102400e6 * t1391 * sigma[2] * t4061 - 0.6561e4 / 0.16384000e8 * t14763 * t14766 + 0.6e1 * t1075 * t4099 + 0.2e1 * t270 * t14815;
22586   t14819 = t14818 * t363;
22587   t14821 = t4102 * t1162;
22588   t14824 = t1078 * t4239;
22589   t14831 = t12145 * t1057;
22590   t14832 = t4433 * t14831;
22591   t14833 = 0.320079960e2 * t14832;
22592   t14834 = t12105 * t1057;
22593   t14835 = t3169 * t14834;
22594   t14836 = 0.41873633039532e2 * t14835;
22595   t14837 = t12405 * t1057;
22596   t14838 = t4424 * t14837;
22597   t14839 = 0.15580886712384e2 * t14838;
22598   t14840 = t3180 * t14790;
22599   t14841 = 0.693506580e2 * t14840;
22600   t14842 = t12068 * t1057;
22601   t14843 = t3222 * t14842;
22602   t14844 = 0.825838178685210e3 * t14843;
22603   t14845 = t12090 * t1057;
22604   t14846 = t4457 * t14845;
22605   t14847 = 0.319679294974920e3 * t14846;
22606   t14848 = t3150 * t14845;
22607   t14849 = 0.312392550050028e3 * t14848;
22608   t14850 = t4465 * t14834;
22609   t14851 = 0.118202586505416e3 * t14850;
22610   t14852 = t12053 * t1057;
22611   t14853 = t4441 * t14852;
22612   t14854 = 0.95484470551056e2 * t14853;
22613   t14855 = t3208 * t14852;
22614   t14856 = 0.870778226694000e3 * t14855;
22615   t14857 = t4449 * t14842;
22616   t14858 = 0.348311290677600e3 * t14857;
22617   t14859 = -0.4002e1 * t14773 + 0.36018e2 * t14776 - 0.64032e2 * t14782 + 0.32016e2 * t14788 - t14833 + t14836 - t14839 + t14841 + t14844 - t14847 - t14849 + t14851 - t14854 - t14856 + t14858;
22618   t14860 = t3143 * t14842;
22619   t14861 = 0.215297568277722e3 * t14860;
22620   t14862 = t3158 * t14845;
22621   t14863 = 0.29214162585720e2 * t14862;
22622   t14864 = t3163 * t14784;
22623   t14865 = 0.400099950e2 * t14864;
22624   t14866 = t3188 * t14790;
22625   t14867 = 0.143226705826584e3 * t14866;
22626   t14868 = t3202 * t14831;
22627   t14869 = 0.574713629618040e3 * t14868;
22628   t14870 = t3216 * t14852;
22629   t14871 = 0.559438766206110e3 * t14870;
22630   t14872 = t3194 * t14831;
22631   t14873 = 0.226775617558758e3 * t14872;
22632   t14874 = 0.12006e2 * t14779;
22633   t14875 = 0.28014e2 * t14785;
22634   t14876 = 0.16008e2 * t14791;
22635   t14877 = t14861 - t14863 - t14865 - t14867 + t14869 - t14871 + t14873 - t14874 + t14875 - t14876 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146;
22636   t14879 = t784 * t14771;
22637   t14882 = t4134 * t14771;
22638   t14885 = t793 * t14771;
22639   t14888 = t4149 * t14771;
22640   t14891 = t804 * t14771;
22641   t14894 = t4164 * t14771;
22642   t14897 = t12216 * t347;
22643   t14898 = t8766 * t14771;
22644   t14901 = t4184 * t14771;
22645   t14904 = t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 + 0.318281568503520e3 * t6945 * t14879 + 0.4528046778808800e4 * t12332 * t14882 - 0.1393245162710400e4 * t7209 * t14885 - 0.5114868719598720e4 * t12395 * t14888 + 0.1491836709882960e4 * t7160 * t14891 + 0.2245849143602904e4 * t12361 * t14894 - 0.630413794695552e3 * t14897 * t14898 - 0.342779507672448e3 * t12409 * t14901;
22646   t14905 = t344 * t822;
22647   t14906 = t333 * t295;
22648   t14907 = t14905 * t14906;
22649   t14909 = 0.1e1 / t336 / t1100;
22650   t14910 = t14909 * t7167;
22651   t14911 = t14910 * t14771;
22652   t14914 = t4199 * t14771;
22653   t14917 = t775 * t14771;
22654   t14920 = t1141 * t14771;
22655   t14923 = t1154 * t14771;
22656   t14926 = t1089 * t14771;
22657   t14929 = t1102 * t14771;
22658   t14932 = t1115 * t14771;
22659   t14935 = t1128 * t14771;
22660   t14938 = t4119 * t14771;
22661   t14941 = t354 * t14771;
22662   t14944 = t290 * t14771;
22663   t14947 = t303 * t14771;
22664   t14950 = t314 * t14771;
22665   t14953 = t327 * t14771;
22666   t14956 = t341 * t14771;
22667   t14959 = 0.93485320274304e2 * t14907 * t14911 - 0.2240559720e3 * t12437 * t14914 + 0.853546560e2 * t7174 * t14917 - 0.2735545573411056e4 * t8901 * t14920 + 0.429448190010084e3 * t9241 * t14923 + 0.1920479760e3 * t9103 * t14926 + 0.966780264329442e3 * t8866 * t14929 - 0.5015682585757440e4 * t8879 * t14932 + 0.5993986780779750e4 * t8846 * t14935 - 0.954844705510560e3 * t12308 * t14938 - 0.185023029709560e3 * t7160 * t14941 - 0.533466600e2 * t7179 * t14944 - 0.334195646928696e3 * t7191 * t14947 + 0.1915712098726800e4 * t7174 * t14950 - 0.2424234653559810e4 * t6945 * t14953 + 0.1148253697481184e4 * t7209 * t14956;
22668   t14966 = t3233 * t4085;
22669   t14982 = my_piecewise3(t278, t14859 + t14877 + t14904 + t14959, t14793 * t360 * t616 * t881 + 0.6e1 * t14799 * t1839 * t360 * t7234 + 0.6e1 * t14799 * t2467 * t360 * t616 + t14799 * t360 * t5689 * t7245 - 0.6e1 * t3232 * t14966 - 0.3e1 * t3240 * t14966);
22670   t14985 = 0.6e1 * t6316 * t14748 - 0.6e1 * t2000 * t1079 * t4102 + 0.6e1 * t2000 * t14754 + t674 * t14819 - 0.3e1 * t674 * t14821 - 0.3e1 * t674 * t14824 - t277 * t14982 + 0.1174e1 * t14982;
22671   t14986 = t14985 * t377;
22672   t14989 = 0.3e1 / 0.8e1 * t8 * t212 * t14986;
22673   t14991 = 0.27831937500000000000e1 * t12565 * t1173;
22674   t14993 = 0.12524371875000000000e2 * t3252 * t4252;
22675   t14995 = 0.13915968750000000000e1 * t3252 * t4257;
22676   t14996 = t1165 * t4261;
22677   t14998 = t14996 * t368 * t2504;
22678   t15000 = 0.33978492602880295866e2 * t2500 * t14998;
22679   t15002 = t3274 * t7274 * t376;
22680   t15003 = t7280 * t15002;
22681   t15005 = 0.31310929687500000000e2 * t3261 * t15003;
22682   t15006 = t12539 * t217;
22683   t15008 = t2488 * t15006 * t376;
22684   t15010 = 0.62621859375000000000e1 * t894 * t15008;
22685   t15012 = 0.1e1 / t367 / t686;
22686   t15013 = t15012 * t368;
22687   t15014 = t15013 * t376;
22688   t15015 = t7288 * t15014;
22689   t15017 = 0.87205650525523016199e-1 * t2500 * t15015;
22690   t15018 = t4261 * t369;
22691   t15020 = t898 * t15018 * t376;
22692   t15022 = 0.69579843750000000000e0 * t894 * t15020;
22693   t15023 = t366 * t15012;
22694   t15025 = t15023 * t368 * t2504;
22695   t15027 = 0.33978492602880295866e2 * t2500 * t15025;
22696   t15028 = 0.1e1 / t686;
22697   t15030 = t15028 * t896 * t376;
22698   t15033 = 0.17034338633799234375e2 * t6257 * t649 * t15030;
22699   t15034 = -t14989 + t14991 - t14993 - t14995 + t15000 + t15005 + t15010 - t15017 + t15022 - t15027 + t15033;
22700   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22701     v3sigma3[9] = t10 * t15034;
22702 
22703   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22704     v3sigma2lapl[0] = 0.0e0;
22705 
22706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22707     v3sigma2lapl[1] = 0.0e0;
22708 
22709   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22710     v3sigma2lapl[2] = 0.0e0;
22711 
22712   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22713     v3sigma2lapl[3] = 0.0e0;
22714 
22715   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22716     v3sigma2lapl[4] = 0.0e0;
22717 
22718   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22719     v3sigma2lapl[5] = 0.0e0;
22720 
22721   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22722     v3sigma2lapl[6] = 0.0e0;
22723 
22724   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22725     v3sigma2lapl[7] = 0.0e0;
22726 
22727   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22728     v3sigma2lapl[8] = 0.0e0;
22729 
22730   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22731     v3sigma2lapl[9] = 0.0e0;
22732 
22733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22734     v3sigma2lapl[10] = 0.0e0;
22735 
22736   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
22737     v3sigma2lapl[11] = 0.0e0;
22738 
22739   t15035 = t3292 * t3824;
22740   t15040 = t12610 * t943;
22741   t15043 = t12714 * t943;
22742   t15046 = t3292 * t3880;
22743   t15049 = t3877 * t1194;
22744   t15053 = t940 * t4300;
22745   t15060 = t43 * t3844;
22746   t15061 = t15060 * t1182;
22747   t15063 = t3309 * t3844;
22748   t15064 = t7592 * t15063;
22749   t15066 = 0.12e2 * t14491;
22750   t15067 = t3302 * t3851;
22751   t15068 = t2544 * t15067;
22752   t15069 = 0.6e1 * t15068;
22753   t15070 = t3326 * t3844;
22754   t15071 = t11212 * t15070;
22755   t15073 = 0.28e2 * t14497;
22756   t15074 = t3309 * t3851;
22757   t15075 = t2565 * t15074;
22758   t15076 = 0.14e2 * t15075;
22759   t15077 = t3363 * t3844;
22760   t15078 = t7952 * t15077;
22761   t15080 = 0.16e2 * t14503;
22762   t15081 = t3326 * t3851;
22763   t15082 = t4281 * t15081;
22764   t15083 = 0.8e1 * t15082;
22765   t15084 = -0.6e1 * t15061 + 0.54e2 * t15064 - t15066 - t15069 - 0.96e2 * t15071 + t15073 + t15076 - t3854 + 0.48e2 * t15078 - t15080 - t15083 + t3862;
22766   t15085 = t56 * t15084;
22767   t15093 = t87 * t3863 * t91;
22768   t15097 = t89 * t3867 * t91;
22769   t15104 = t4285 * t933 * t91;
22770   t15111 = t1188 * t3867;
22771   t15115 = t15085 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t4286 * t4290 - 0.3e1 / 0.100e3 * t1189 * t3874 - 0.3e1 / 0.100e3 * t1189 * t15093 + 0.3e1 / 0.50e2 * t1189 * t15097 - t470 * t15084 * t91 / 0.100e3 + t1499 * t15104 / 0.50e2 + t1499 * t1188 * t3863 * t91 / 0.100e3 - t4970 * t15111 * t91 / 0.100e3;
22772   t15116 = t94 * t15115;
22773   t15126 = t3824 * t1241;
22774   t15129 = t3880 * t1241;
22775   t15131 = t943 * t4372;
22776   t15134 = t3363 * t3851;
22777   t15135 = t2762 * t15134;
22778   t15136 = 0.75591872519586e2 * t15135;
22779   t15137 = t3369 * t3844;
22780   t15140 = t3369 * t3851;
22781   t15141 = t4326 * t15140;
22782   t15142 = 0.31828156850352e2 * t15141;
22783   t15143 = t3375 * t3844;
22784   t15146 = t2770 * t15134;
22785   t15147 = 0.191571209872680e3 * t15146;
22786   t15150 = t2777 * t15140;
22787   t15151 = 0.290259408898000e3 * t15150;
22788   t15154 = t3375 * t3851;
22789   t15155 = t4334 * t15154;
22790   t15156 = 0.116103763559200e3 * t15155;
22791   t15157 = t3456 * t3844;
22792   t15161 = t2785 * t15140;
22793   t15162 = 0.186479588735370e3 * t15161;
22794   t15165 = t2791 * t15154;
22795   t15166 = 0.275279392895070e3 * t15165;
22796   t15169 = t3456 * t3851;
22797   t15170 = t4342 * t15169;
22798   t15171 = 0.106559764991640e3 * t15170;
22799   t15172 = t3467 * t3844;
22800   t15175 = t2799 * t15154;
22801   t15176 = 0.71765856092574e2 * t15175;
22802   t15179 = t2805 * t15169;
22803   t15180 = 0.104130850016676e3 * t15179;
22804   t15183 = t3467 * t3851;
22805   t15184 = t4349 * t15183;
22806   t15185 = 0.39400862168472e2 * t15184;
22807   t15186 = -t15162 + 0.5993986780779750e4 * t7922 * t15143 + t15166 - 0.5114868719598720e4 * t11588 * t15157 - t15171 + 0.1491836709882960e4 * t7972 * t15172 + t15176 - 0.2735545573411056e4 * t7965 * t15157 - t15180 + 0.2245849143602904e4 * t11645 * t15172 + t15185;
22808   t15188 = t14551 * t2651;
22809   t15189 = t3504 * t3844;
22810   t15192 = t2742 * t15074;
22811   t15193 = 0.133366650e2 * t15192;
22812   t15196 = t2748 * t15081;
22813   t15197 = 0.231168860e2 * t15196;
22814   t15200 = t4356 * t15134;
22815   t15201 = 0.106693320e2 * t15200;
22816   t15204 = t2813 * t15169;
22817   t15205 = 0.9738054195240e1 * t15204;
22818   t15208 = t2819 * t15183;
22819   t15209 = 0.13957877679844e2 * t15208;
22820   t15213 = t3504 * t3851;
22821   t15214 = t4316 * t15213;
22822   t15215 = 0.5193628904128e1 * t15214;
22823   t15216 = t14560 * t14562;
22824   t15217 = t10191 * t3844;
22825   t15220 = t2756 * t15081;
22826   t15221 = 0.47742235275528e2 * t15220;
22827   t15226 = 0.4002e1 * t15068;
22828   t15228 = 0.9338e1 * t15075;
22829   t15230 = -0.342779507672448e3 * t11559 * t15189 - t15215 + 0.93485320274304e2 * t15216 * t15217 - t15221 + 0.966780264329442e3 * t7960 * t15077 - 0.4002e1 * t15061 + 0.36018e2 * t15064 - t15226 - 0.64032e2 * t15071 + t15228 + 0.32016e2 * t15078;
22830   t15233 = 0.5336e1 * t15082;
22831   t15247 = -t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003;
22832   t15249 = 0.8004e1 * t14491;
22833   t15250 = 0.18676e2 * t14497;
22834   t15251 = 0.10672e2 * t14503;
22835   t15252 = 0.232207527118400e3 * t14629;
22836   t15253 = 0.372959177470740e3 * t14632;
22837   t15254 = 0.213386640e2 * t14636;
22838   t15255 = 0.95484470551056e2 * t14638;
22839   t15256 = 0.151183745039172e3 * t14640;
22840   t15257 = 0.63656313700704e2 * t14642;
22841   t15258 = 0.383142419745360e3 * t14644;
22842   t15260 = 0.580518817796000e3 * t14646;
22843   t15261 = 0.78801724336944e2 * t14649;
22844   t15262 = 0.19476108390480e2 * t14652;
22845   t15263 = 0.27915755359688e2 * t14654;
22846   t15264 = 0.10387257808256e2 * t14657;
22847   t15265 = 0.550558785790140e3 * t14659;
22848   t15266 = 0.213119529983280e3 * t14661;
22849   t15267 = 0.143531712185148e3 * t14663;
22850   t15268 = 0.208261700033352e3 * t14665;
22851   t15269 = 0.266733300e2 * t14667;
22852   t15270 = 0.462337720e2 * t14669;
22853   t15271 = -t15260 + t15261 - t15262 + t15263 - t15264 + t15265 - t15266 + t15267 - t15268 - t15269 + t15270;
22854   t15275 = t3529 * t3867;
22855   t15278 = t13044 * t933;
22856   t15283 = t3529 * t3863;
22857   t15294 = my_piecewise3(t102, -0.2424234653559810e4 * t7948 * t15137 + 0.1148253697481184e4 * t7931 * t15143 - 0.533466600e2 * t7940 * t15063 - 0.334195646928696e3 * t7952 * t15070 + 0.1915712098726800e4 * t7983 * t15077 - 0.185023029709560e3 * t7972 * t15157 - 0.2240559720e3 * t11693 * t15077 + 0.853546560e2 * t7983 * t15137 + 0.429448190010084e3 * t7978 * t15172 - 0.630413794695552e3 * t15188 * t15189 + 0.1920479760e3 * t7996 * t15070 - 0.5015682585757440e4 * t7990 * t15137 + 0.4528046778808800e4 * t11659 * t15143 - 0.1393245162710400e4 * t7931 * t15157 - 0.954844705510560e3 * t11613 * t15137 + 0.318281568503520e3 * t7948 * t15143 + t15156 + t3906 - t3900 + t15186 - t15142 + t15136 - t3891 - t15151 + t15147 - t15193 + t15197 - t15201 + t15271 + t15258 + t15256 - t15257 - t15254 - t15255 - t15251 + t15252 - t15253 - t15249 + t15250 + t15247 - t15233 + t15230 - t15205 + t15209, t15084 * t184 * t616 * t617 + 0.6e1 * t8315 * t15275 + 0.6e1 * t8323 * t15275 + t8335 * t15275 - 0.4e1 * t2835 * t15278 - 0.2e1 * t2843 * t15278 - 0.2e1 * t2835 * t15283 - t2843 * t15283);
22858   t15297 = 0.12e2 * t9531 * t15035 - 0.8e1 * t12596 * t4268 - 0.8e1 * t3291 * t15040 + 0.8e1 * t3291 * t15043 - 0.4e1 * t3291 * t15046 + 0.2e1 * t405 * t15049 * t187 + 0.4e1 * t405 * t15053 * t187 - 0.4e1 * t405 * t4271 * t1027 + 0.2e1 * t405 * t15116 * t187 - 0.4e1 * t405 * t4301 * t1027 - 0.2e1 * t405 * t1195 * t4017 + 0.2e1 * t1369 * t15126 - t405 * t15129 - 0.2e1 * t405 * t15131 - t101 * t15294 + 0.1174e1 * t15294;
22859   t15299 = t1180 * t15297 * t204;
22860   t15308 = t1244 * t4039;
22861   t15310 = t15308 * t195 * t1878;
22862   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22863     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t1179 * t15299 + 0.18554625000000000000e1 * t13066 * t1038 - 0.41747906250000000000e1 * t3549 * t4030 - 0.46386562500000000000e0 * t3549 * t4035 + 0.11326164200960098622e2 * t10287 * t15310;
22864 
22865   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22866     v3sigma2tau[1] = 0.0e0;
22867 
22868   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22869     v3sigma2tau[2] = 0.0e0;
22870 
22871   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22872     v3sigma2tau[3] = 0.0e0;
22873 
22874   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22875     v3sigma2tau[4] = 0.0e0;
22876 
22877   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22878     v3sigma2tau[5] = 0.0e0;
22879 
22880   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22881     v3sigma2tau[6] = 0.0e0;
22882 
22883   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22884     v3sigma2tau[7] = 0.0e0;
22885 
22886   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22887     v3sigma2tau[8] = 0.0e0;
22888 
22889   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22890     v3sigma2tau[9] = 0.0e0;
22891 
22892   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
22893     v3sigma2tau[10] = 0.0e0;
22894 
22895   t15313 = t3566 * t4046;
22896   t15318 = t13135 * t1078;
22897   t15321 = t13239 * t1078;
22898   t15324 = t3566 * t4102;
22899   t15327 = t4099 * t1263;
22900   t15331 = t1075 * t4414;
22901   t15338 = t223 * t4066;
22902   t15339 = t15338 * t1251;
22903   t15341 = t3583 * t4066;
22904   t15342 = t8621 * t15341;
22905   t15344 = 0.12e2 * t14779;
22906   t15345 = t3576 * t4073;
22907   t15346 = t2941 * t15345;
22908   t15347 = 0.6e1 * t15346;
22909   t15348 = t3600 * t4066;
22910   t15349 = t11966 * t15348;
22911   t15351 = 0.28e2 * t14785;
22912   t15352 = t3583 * t4073;
22913   t15353 = t2962 * t15352;
22914   t15354 = 0.14e2 * t15353;
22915   t15355 = t3637 * t4066;
22916   t15356 = t8859 * t15355;
22917   t15358 = 0.16e2 * t14791;
22918   t15359 = t3600 * t4073;
22919   t15360 = t4395 * t15359;
22920   t15361 = 0.8e1 * t15360;
22921   t15362 = -0.6e1 * t15339 + 0.54e2 * t15342 - t15344 - t15347 - 0.96e2 * t15349 + t15351 + t15354 - t4076 + 0.48e2 * t15356 - t15358 - t15361 + t4084;
22922   t15363 = t56 * t15362;
22923   t15371 = t263 * t4085 * t267;
22924   t15375 = t265 * t4089 * t267;
22925   t15381 = t4399 * t1068;
22926   t15382 = t15381 * t267;
22927   t15385 = t1257 * t4085;
22928   t15389 = t1257 * t4089;
22929   t15393 = t15363 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t4400 * t4404 - 0.3e1 / 0.100e3 * t1258 * t4096 - 0.3e1 / 0.100e3 * t1258 * t15371 + 0.3e1 / 0.50e2 * t1258 * t15375 - t735 * t15362 * t267 / 0.100e3 + t2127 * t15382 / 0.50e2 + t2127 * t15385 * t267 / 0.100e3 - t6534 * t15389 * t267 / 0.100e3;
22930   t15394 = t270 * t15393;
22931   t15404 = t4046 * t1310;
22932   t15407 = t4102 * t1310;
22933   t15409 = t1078 * t4486;
22934   t15413 = 0.4002e1 * t15346;
22935   t15415 = 0.9338e1 * t15353;
22936   t15417 = 0.5336e1 * t15360;
22937   t15418 = 0.213386640e2 * t14832;
22938   t15419 = 0.27915755359688e2 * t14835;
22939   t15420 = 0.10387257808256e2 * t14838;
22940   t15421 = 0.462337720e2 * t14840;
22941   t15423 = 0.550558785790140e3 * t14843;
22942   t15424 = 0.213119529983280e3 * t14846;
22943   t15425 = 0.208261700033352e3 * t14848;
22944   t15426 = 0.78801724336944e2 * t14850;
22945   t15427 = 0.63656313700704e2 * t14853;
22946   t15428 = 0.580518817796000e3 * t14855;
22947   t15429 = 0.232207527118400e3 * t14857;
22948   t15430 = 0.143531712185148e3 * t14860;
22949   t15431 = 0.19476108390480e2 * t14862;
22950   t15432 = 0.266733300e2 * t14864;
22951   t15433 = 0.95484470551056e2 * t14866;
22952   t15434 = t15423 - t15424 - t15425 + t15426 - t15427 - t15428 + t15429 + t15430 - t15431 - t15432 - t15433;
22953   t15436 = 0.383142419745360e3 * t14868;
22954   t15437 = 0.372959177470740e3 * t14870;
22955   t15438 = 0.151183745039172e3 * t14872;
22956   t15439 = 0.8004e1 * t14779;
22957   t15440 = 0.18676e2 * t14785;
22958   t15441 = 0.10672e2 * t14791;
22959   t15443 = t3643 * t4066;
22960   t15446 = -t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 - 0.954844705510560e3 * t12309 * t15443;
22961   t15449 = t3643 * t4073;
22962   t15450 = t4441 * t15449;
22963   t15451 = 0.31828156850352e2 * t15450;
22964   t15452 = t3649 * t4066;
22965   t15455 = t3637 * t4073;
22966   t15456 = t3202 * t15455;
22967   t15457 = 0.191571209872680e3 * t15456;
22968   t15460 = t3208 * t15449;
22969   t15461 = 0.290259408898000e3 * t15460;
22970   t15464 = t3649 * t4073;
22971   t15465 = t4449 * t15464;
22972   t15466 = 0.116103763559200e3 * t15465;
22973   t15467 = t3655 * t4066;
22974   t15470 = t3216 * t15449;
22975   t15471 = 0.186479588735370e3 * t15470;
22976   t15472 = t3222 * t15464;
22977   t15473 = 0.275279392895070e3 * t15472;
22978   t15477 = t3655 * t4073;
22979   t15478 = t4457 * t15477;
22980   t15479 = 0.106559764991640e3 * t15478;
22981   t15480 = t3661 * t4066;
22982   t15483 = t3143 * t15464;
22983   t15484 = 0.71765856092574e2 * t15483;
22984   t15487 = t3150 * t15477;
22985   t15488 = 0.104130850016676e3 * t15487;
22986   t15491 = t3661 * t4073;
22987   t15492 = t4465 * t15491;
22988   t15493 = 0.39400862168472e2 * t15492;
22989   t15494 = t14897 * t3031;
22990   t15495 = t3788 * t4066;
22991   t15498 = t3158 * t15477;
22992   t15499 = 0.9738054195240e1 * t15498;
22993   t15502 = -0.5114868719598720e4 * t12396 * t15467 - t15479 + 0.1491836709882960e4 * t8909 * t15480 + t15484 - 0.2735545573411056e4 * t8902 * t15467 - t15488 + 0.2245849143602904e4 * t12362 * t15480 + t15493 - 0.630413794695552e3 * t15494 * t15495 - t15499 + 0.429448190010084e3 * t9242 * t15480;
22994   t15504 = t3169 * t15491;
22995   t15505 = 0.13957877679844e2 * t15504;
22996   t15508 = t3788 * t4073;
22997   t15509 = t4424 * t15508;
22998   t15510 = 0.5193628904128e1 * t15509;
22999   t15511 = t14907 * t14909;
23000   t15512 = t10955 * t4066;
23001   t15515 = t3163 * t15352;
23002   t15516 = 0.133366650e2 * t15515;
23003   t15534 = t3180 * t15359;
23004   t15535 = 0.231168860e2 * t15534;
23005   t15538 = t4433 * t15455;
23006   t15539 = 0.106693320e2 * t15538;
23007   t15542 = t3188 * t15359;
23008   t15543 = 0.47742235275528e2 * t15542;
23009   t15546 = t3194 * t15455;
23010   t15547 = 0.75591872519586e2 * t15546;
23011   t15549 = -0.533466600e2 * t8914 * t15341 + 0.5993986780779750e4 * t8847 * t15452 + 0.1148253697481184e4 * t8854 * t15452 + t15535 - 0.2240559720e3 * t12438 * t15355 - t15539 + 0.853546560e2 * t8874 * t15443 - t15543 + 0.966780264329442e3 * t8867 * t15355 + t15547 - 0.4002e1 * t15339;
23012   t15553 = t3803 * t4089;
23013   t15556 = t13569 * t1068;
23014   t15561 = t3803 * t4085;
23015   t15572 = my_piecewise3(t278, -0.1393245162710400e4 * t8854 * t15467 + 0.318281568503520e3 * t8921 * t15452 - 0.5015682585757440e4 * t8880 * t15443 + 0.4528046778808800e4 * t12333 * t15452 - 0.334195646928696e3 * t8859 * t15348 + 0.1915712098726800e4 * t8874 * t15355 - 0.185023029709560e3 * t8909 * t15467 - 0.342779507672448e3 * t12410 * t15495 + 0.93485320274304e2 * t15511 * t15512 + 0.1920479760e3 * t9104 * t15348 - 0.2424234653559810e4 * t8921 * t15443 + t4125 - t4131 - t4110 + t4116 + t15446 + t15457 - t15441 - t15437 + t15438 - t15439 + t15440 + t15436 + t15434 - t15516 - t15510 + t15505 + t15502 - t15420 + t15421 - t15417 - t15418 + t15419 - t15413 + t15415 - t15461 + t15466 + 0.32016e2 * t15356 - 0.64032e2 * t15349 + t15549 + 0.36018e2 * t15342 + t15473 - t15471 - t15451, t15362 * t360 * t616 * t881 + 0.6e1 * t9372 * t15553 + 0.6e1 * t9380 * t15553 + t9392 * t15553 - 0.4e1 * t3232 * t15556 - 0.2e1 * t3240 * t15556 - 0.2e1 * t3232 * t15561 - t3240 * t15561);
23016   t15575 = 0.12e2 * t10371 * t15313 - 0.8e1 * t13121 * t4382 - 0.8e1 * t3565 * t15318 + 0.8e1 * t3565 * t15321 - 0.4e1 * t3565 * t15324 + 0.2e1 * t674 * t15327 * t363 + 0.4e1 * t674 * t15331 * t363 - 0.4e1 * t674 * t4385 * t1162 + 0.2e1 * t674 * t15394 * t363 - 0.4e1 * t674 * t4415 * t1162 - 0.2e1 * t674 * t1264 * t4239 + 0.2e1 * t2000 * t15404 - t674 * t15407 - 0.2e1 * t674 * t15409 - t277 * t15572 + 0.1174e1 * t15572;
23017   t15577 = t1249 * t15575 * t377;
23018   t15586 = t1313 * t4261;
23019   t15588 = t15586 * t368 * t2504;
23020   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23021     v3sigma2tau[11] = -0.3e1 / 0.8e1 * t1179 * t15577 + 0.18554625000000000000e1 * t13591 * t1173 - 0.41747906250000000000e1 * t3821 * t4252 - 0.46386562500000000000e0 * t3821 * t4257 + 0.11326164200960098622e2 * t11127 * t15588;
23022 
23023   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23024     v3sigmalapl2[0] = 0.0e0;
23025 
23026   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23027     v3sigmalapl2[1] = 0.0e0;
23028 
23029   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23030     v3sigmalapl2[2] = 0.0e0;
23031 
23032   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23033     v3sigmalapl2[3] = 0.0e0;
23034 
23035   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23036     v3sigmalapl2[4] = 0.0e0;
23037 
23038   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23039     v3sigmalapl2[5] = 0.0e0;
23040 
23041   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23042     v3sigmalapl2[6] = 0.0e0;
23043 
23044   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23045     v3sigmalapl2[7] = 0.0e0;
23046 
23047   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23048     v3sigmalapl2[8] = 0.0e0;
23049 
23050   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23051     v3sigmalapltau[0] = 0.0e0;
23052 
23053   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23054     v3sigmalapltau[1] = 0.0e0;
23055 
23056   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23057     v3sigmalapltau[2] = 0.0e0;
23058 
23059   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23060     v3sigmalapltau[3] = 0.0e0;
23061 
23062   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23063     v3sigmalapltau[4] = 0.0e0;
23064 
23065   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23066     v3sigmalapltau[5] = 0.0e0;
23067 
23068   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23069     v3sigmalapltau[6] = 0.0e0;
23070 
23071   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23072     v3sigmalapltau[7] = 0.0e0;
23073 
23074   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23075     v3sigmalapltau[8] = 0.0e0;
23076 
23077   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23078     v3sigmalapltau[9] = 0.0e0;
23079 
23080   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23081     v3sigmalapltau[10] = 0.0e0;
23082 
23083   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23084     v3sigmalapltau[11] = 0.0e0;
23085 
23086   t15591 = t4501 * t943;
23087   t15594 = t4501 * t940;
23088   t15597 = t3292 * t4300;
23089   t15607 = t4496 * t1027;
23090   t15610 = t13638 * t943;
23091   t15613 = t940 * t4528;
23092   t15617 = t43 * t922;
23093   t15618 = t15617 * t4505;
23094   t15620 = t13646 * t922;
23095   t15621 = t7592 * t15620;
23096   t15623 = 0.12e2 * t15068;
23097   t15624 = t13657 * t922;
23098   t15625 = t11212 * t15624;
23099   t15627 = 0.28e2 * t15075;
23100   t15628 = 0.6e1 * t14491;
23101   t15629 = 0.14e2 * t14497;
23102   t15630 = t13667 * t922;
23103   t15631 = t7952 * t15630;
23104   t15633 = 0.16e2 * t15082;
23105   t15634 = 0.8e1 * t14503;
23106   t15635 = -0.6e1 * t15618 + 0.54e2 * t15621 - t15623 - 0.96e2 * t15625 + t15627 - t15628 + t15629 - t3854 + 0.48e2 * t15631 - t15633 - t15634 + t3862;
23107   t15636 = t56 * t15635;
23108   t15641 = t1492 * t4285;
23109   t15653 = t4514 * t933;
23110   t15664 = t15636 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4515 * t4290 - 0.3e1 / 0.50e2 * t1189 * t15641 - 0.3e1 / 0.100e3 * t4519 * t937 + 0.3e1 / 0.50e2 * t4519 * t89 * t933 * t91 - t470 * t15635 * t91 / 0.100e3 + t1499 * t15653 * t91 / 0.100e3 + t1499 * t1191 * t4285 / 0.50e2 - t4970 * t4518 * t933 * t91 / 0.100e3;
23111   t15665 = t94 * t15664;
23112   t15672 = t13728 * t943;
23113   t15684 = t943 * t4607;
23114   t15696 = t13746 * t922;
23115   t15701 = t13760 * t922;
23116   t15709 = t13777 * t922;
23117   t15714 = t13851 * t922;
23118   t15719 = t13870 * t922;
23119   t15724 = t13888 * t922;
23120   t15735 = -0.1393245162710400e4 * t7931 * t15709 - 0.5114868719598720e4 * t11588 * t15709 + 0.1491836709882960e4 * t7972 * t15714 + 0.2245849143602904e4 * t11645 * t15714 - 0.630413794695552e3 * t15188 * t15719 - 0.342779507672448e3 * t11559 * t15719 + 0.93485320274304e2 * t15216 * t15724 - 0.2240559720e3 * t11693 * t15630 + 0.1148253697481184e4 * t7931 * t15701 - 0.2735545573411056e4 * t7965 * t15709 - 0.185023029709560e3 * t7972 * t15709;
23121   t15744 = 0.151183745039172e3 * t15135;
23122   t15745 = 0.63656313700704e2 * t15141;
23123   t15746 = 0.383142419745360e3 * t15146;
23124   t15747 = 0.580518817796000e3 * t15150;
23125   t15748 = 0.232207527118400e3 * t15155;
23126   t15749 = 0.372959177470740e3 * t15161;
23127   t15751 = 0.550558785790140e3 * t15165;
23128   t15752 = 0.213119529983280e3 * t15170;
23129   t15753 = 0.143531712185148e3 * t15175;
23130   t15754 = 0.208261700033352e3 * t15179;
23131   t15755 = 0.78801724336944e2 * t15184;
23132   t15756 = 0.266733300e2 * t15192;
23133   t15757 = 0.462337720e2 * t15196;
23134   t15758 = 0.213386640e2 * t15200;
23135   t15759 = 0.19476108390480e2 * t15204;
23136   t15760 = 0.27915755359688e2 * t15208;
23137   t15761 = 0.10387257808256e2 * t15214;
23138   t15762 = t15751 - t15752 + t15753 - t15754 + t15755 - t15756 + t15757 - t15758 - t15759 + t15760 - t15761;
23139   t15765 = 0.95484470551056e2 * t15220;
23140   t15766 = 0.8004e1 * t15068;
23141   t15767 = 0.18676e2 * t15075;
23142   t15768 = 0.10672e2 * t15082;
23143   t15774 = 0.4002e1 * t14491;
23144   t15775 = 0.9338e1 * t14497;
23145   t15776 = 0.5336e1 * t14503;
23146   t15777 = 0.116103763559200e3 * t14629;
23147   t15778 = 0.186479588735370e3 * t14632;
23148   t15779 = 0.106693320e2 * t14636;
23149   t15780 = 0.47742235275528e2 * t14638;
23150   t15781 = 0.75591872519586e2 * t14640;
23151   t15782 = 0.31828156850352e2 * t14642;
23152   t15783 = 0.191571209872680e3 * t14644;
23153   t15785 = 0.290259408898000e3 * t14646;
23154   t15786 = 0.39400862168472e2 * t14649;
23155   t15787 = 0.9738054195240e1 * t14652;
23156   t15788 = 0.13957877679844e2 * t14654;
23157   t15789 = 0.5193628904128e1 * t14657;
23158   t15790 = 0.275279392895070e3 * t14659;
23159   t15791 = 0.106559764991640e3 * t14661;
23160   t15792 = 0.71765856092574e2 * t14663;
23161   t15793 = 0.104130850016676e3 * t14665;
23162   t15794 = 0.133366650e2 * t14667;
23163   t15795 = 0.231168860e2 * t14669;
23164   t15796 = -t15785 + t15786 - t15787 + t15788 - t15789 + t15790 - t15791 + t15792 - t15793 - t15794 + t15795;
23165   t15800 = t13999 * t933;
23166   t15803 = t3529 * t4285;
23167   t15808 = t14008 * t933;
23168   t15819 = my_piecewise3(t102, 0.429448190010084e3 * t7978 * t15714 + 0.853546560e2 * t7983 * t15696 - 0.954844705510560e3 * t11613 * t15696 - 0.533466600e2 * t7940 * t15620 + 0.1920479760e3 * t7996 * t15624 - 0.334195646928696e3 * t7952 * t15624 + 0.4528046778808800e4 * t11659 * t15701 + 0.966780264329442e3 * t7960 * t15630 + 0.1915712098726800e4 * t7983 * t15630 - 0.5015682585757440e4 * t7990 * t15696 - 0.2424234653559810e4 * t7948 * t15696 + 0.5993986780779750e4 * t7922 * t15701 + 0.318281568503520e3 * t7948 * t15701 + t3906 - t3900 - t3891 - t15765 + t15796 + t15762 - t15780 + t15781 - t15782 - 0.4002e1 * t15618 + t15783 - t15768 - t15766 + t15767 - t15774 + t15775 - t15776 + t15777 - t15778 - t15779 + t15748 - t15749 + t15735 - 0.64032e2 * t15625 + 0.36018e2 * t15621 - t15745 + t15746 - t15747 + t15744 + 0.32016e2 * t15631 + t15247, t15635 * t184 * t616 * t617 + 0.6e1 * t8315 * t15800 + 0.6e1 * t8323 * t15800 + t8335 * t15800 - 0.4e1 * t2835 * t15803 - 0.2e1 * t2843 * t15803 - 0.2e1 * t2835 * t15808 - t2843 * t15808);
23169   t15822 = 0.24e2 * t13617 * t15591 - 0.16e2 * t3291 * t15594 - 0.16e2 * t13624 * t15597 + 0.8e1 * t1369 * t4497 * t1027 - 0.4e1 * t1369 * t15591 + 0.4e1 * t405 * t15597 - 0.2e1 * t405 * t15607 - 0.4e1 * t3291 * t15610 + 0.2e1 * t405 * t15613 * t187 + 0.2e1 * t405 * t15665 * t187 - 0.2e1 * t405 * t4529 * t1027 + 0.8e1 * t3291 * t15672 - 0.4e1 * t405 * t4271 * t1241 - 0.4e1 * t405 * t4301 * t1241 - 0.4e1 * t405 * t1195 * t4372 - t405 * t15684 - t101 * t15819 + 0.1174e1 * t15819;
23170   t15824 = t1180 * t15822 * t204;
23171   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23172     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t1179 * t15824 + 0.92773125000000000000e0 * t14029 * t1038;
23173 
23174   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23175     v3sigmatau2[1] = 0.0e0;
23176 
23177   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23178     v3sigmatau2[2] = 0.0e0;
23179 
23180   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23181     v3sigmatau2[3] = 0.0e0;
23182 
23183   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23184     v3sigmatau2[4] = 0.0e0;
23185 
23186   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23187     v3sigmatau2[5] = 0.0e0;
23188 
23189   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23190     v3sigmatau2[6] = 0.0e0;
23191 
23192   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23193     v3sigmatau2[7] = 0.0e0;
23194 
23195   t15829 = t4620 * t1078;
23196   t15832 = t4620 * t1075;
23197   t15835 = t3566 * t4414;
23198   t15845 = t4615 * t1162;
23199   t15848 = t14065 * t1078;
23200   t15851 = t1075 * t4647;
23201   t15855 = t223 * t1057;
23202   t15856 = t15855 * t4624;
23203   t15858 = t14080 * t1057;
23204   t15859 = t8621 * t15858;
23205   t15861 = 0.12e2 * t15346;
23206   t15862 = t14090 * t1057;
23207   t15863 = t11966 * t15862;
23208   t15865 = 0.28e2 * t15353;
23209   t15866 = 0.6e1 * t14779;
23210   t15867 = 0.14e2 * t14785;
23211   t15868 = t14073 * t1057;
23212   t15869 = t8859 * t15868;
23213   t15871 = 0.16e2 * t15360;
23214   t15872 = 0.8e1 * t14791;
23215   t15873 = -0.6e1 * t15856 + 0.54e2 * t15859 - t15861 - 0.96e2 * t15863 + t15865 - t15866 + t15867 - t4076 + 0.48e2 * t15869 - t15871 - t15872 + t4084;
23216   t15874 = t56 * t15873;
23217   t15879 = t2120 * t4399;
23218   t15891 = t4633 * t1068;
23219   t15898 = t4637 * t1068;
23220   t15902 = t15874 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4634 * t4404 - 0.3e1 / 0.50e2 * t1258 * t15879 - 0.3e1 / 0.100e3 * t4638 * t1072 + 0.3e1 / 0.50e2 * t4638 * t265 * t1068 * t267 - t735 * t15873 * t267 / 0.100e3 + t2127 * t15891 * t267 / 0.100e3 + t2127 * t1260 * t4399 / 0.50e2 - t6534 * t15898 * t267 / 0.100e3;
23221   t15903 = t270 * t15902;
23222   t15910 = t14155 * t1078;
23223   t15922 = t1078 * t4726;
23224   t15924 = 0.8004e1 * t15346;
23225   t15925 = 0.18676e2 * t15353;
23226   t15926 = 0.10672e2 * t15360;
23227   t15927 = 0.106693320e2 * t14832;
23228   t15928 = 0.13957877679844e2 * t14835;
23229   t15929 = 0.5193628904128e1 * t14838;
23230   t15930 = 0.231168860e2 * t14840;
23231   t15931 = 0.275279392895070e3 * t14843;
23232   t15932 = 0.106559764991640e3 * t14846;
23233   t15933 = 0.104130850016676e3 * t14848;
23234   t15935 = 0.39400862168472e2 * t14850;
23235   t15936 = 0.31828156850352e2 * t14853;
23236   t15937 = 0.290259408898000e3 * t14855;
23237   t15938 = 0.116103763559200e3 * t14857;
23238   t15939 = 0.71765856092574e2 * t14860;
23239   t15940 = 0.9738054195240e1 * t14862;
23240   t15941 = 0.133366650e2 * t14864;
23241   t15942 = 0.47742235275528e2 * t14866;
23242   t15943 = 0.191571209872680e3 * t14868;
23243   t15944 = 0.186479588735370e3 * t14870;
23244   t15945 = 0.75591872519586e2 * t14872;
23245   t15946 = t15935 - t15936 - t15937 + t15938 + t15939 - t15940 - t15941 - t15942 + t15943 - t15944 + t15945;
23246   t15948 = 0.4002e1 * t14779;
23247   t15949 = 0.9338e1 * t14785;
23248   t15950 = 0.5336e1 * t14791;
23249   t15952 = 0.63656313700704e2 * t15450;
23250   t15953 = 0.383142419745360e3 * t15456;
23251   t15954 = 0.580518817796000e3 * t15460;
23252   t15955 = 0.232207527118400e3 * t15465;
23253   t15956 = -t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 - t15952 + t15953 - t15954 + t15955;
23254   t15959 = 0.372959177470740e3 * t15470;
23255   t15960 = 0.550558785790140e3 * t15472;
23256   t15961 = 0.213119529983280e3 * t15478;
23257   t15962 = 0.143531712185148e3 * t15483;
23258   t15963 = 0.208261700033352e3 * t15487;
23259   t15964 = 0.78801724336944e2 * t15492;
23260   t15965 = 0.19476108390480e2 * t15498;
23261   t15966 = 0.27915755359688e2 * t15504;
23262   t15967 = 0.10387257808256e2 * t15509;
23263   t15968 = 0.266733300e2 * t15515;
23264   t15970 = 0.462337720e2 * t15534;
23265   t15971 = 0.213386640e2 * t15538;
23266   t15972 = 0.95484470551056e2 * t15542;
23267   t15973 = 0.151183745039172e3 * t15546;
23268   t15983 = t14210 * t1057;
23269   t15986 = t15970 - t15971 - t15972 + t15973 + 0.32016e2 * t15869 + 0.36018e2 * t15859 - 0.64032e2 * t15863 + 0.1915712098726800e4 * t8874 * t15868 + 0.1920479760e3 * t9104 * t15862 - 0.2240559720e3 * t12438 * t15868 + 0.853546560e2 * t8874 * t15983;
23270   t15992 = t14226 * t1057;
23271   t15999 = t14170 * t1057;
23272   t16017 = t14174 * t1057;
23273   t16024 = t14184 * t1057;
23274   t16031 = t14287 * t1057;
23275   t16035 = -0.533466600e2 * t8914 * t15858 - 0.334195646928696e3 * t8859 * t15862 - 0.5114868719598720e4 * t12396 * t15999 + 0.1491836709882960e4 * t8909 * t16017 - 0.2735545573411056e4 * t8902 * t15999 + 0.2245849143602904e4 * t12362 * t16017 - 0.630413794695552e3 * t15494 * t16024 + 0.429448190010084e3 * t9242 * t16017 - 0.342779507672448e3 * t12410 * t16024 + 0.93485320274304e2 * t15511 * t16031 - 0.4002e1 * t15856;
23276   t16039 = t14426 * t1068;
23277   t16042 = t3803 * t4399;
23278   t16047 = t14435 * t1068;
23279   t16058 = my_piecewise3(t278, 0.966780264329442e3 * t8867 * t15868 - 0.954844705510560e3 * t12309 * t15983 + 0.318281568503520e3 * t8921 * t15992 - 0.5015682585757440e4 * t8880 * t15983 + 0.4528046778808800e4 * t12333 * t15992 - 0.1393245162710400e4 * t8854 * t15999 + 0.5993986780779750e4 * t8847 * t15992 - 0.2424234653559810e4 * t8921 * t15983 + 0.1148253697481184e4 * t8854 * t15992 - 0.185023029709560e3 * t8909 * t15999 + t15986 + t16035 + t4125 - t4131 + t15966 - t15967 - t15968 - t15963 + t15964 - t15965 + t15960 - t15961 + t15962 - t15959 + t15956 - t4110 + t4146 + t4116 + t4155 - t15926 - t15927 + t15928 - t15929 + t15930 + t15931 - t15948 + t15949 - t15932 - t15933 + t15946 - t15924 + t15925 - t15950 - t4140, t15873 * t360 * t616 * t881 + 0.6e1 * t9372 * t16039 + 0.6e1 * t9380 * t16039 + t9392 * t16039 - 0.4e1 * t3232 * t16042 - 0.2e1 * t3240 * t16042 - 0.2e1 * t3232 * t16047 - t3240 * t16047);
23280   t16061 = 0.24e2 * t14044 * t15829 - 0.16e2 * t3565 * t15832 - 0.16e2 * t14051 * t15835 + 0.8e1 * t2000 * t4616 * t1162 - 0.4e1 * t2000 * t15829 + 0.4e1 * t674 * t15835 - 0.2e1 * t674 * t15845 - 0.4e1 * t3565 * t15848 + 0.2e1 * t674 * t15851 * t363 + 0.2e1 * t674 * t15903 * t363 - 0.2e1 * t674 * t4648 * t1162 + 0.8e1 * t3565 * t15910 - 0.4e1 * t674 * t4385 * t1310 - 0.4e1 * t674 * t4415 * t1310 - 0.4e1 * t674 * t1264 * t4486 - t674 * t15922 - t277 * t16058 + 0.1174e1 * t16058;
23281   t16063 = t1249 * t16061 * t377;
23282   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23283     v3sigmatau2[8] = -0.3e1 / 0.8e1 * t1179 * t16063 + 0.92773125000000000000e0 * t14456 * t1173;
23284 
23285   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23286     v3lapl3[0] = 0.0e0;
23287 
23288   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23289     v3lapl3[1] = 0.0e0;
23290 
23291   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23292     v3lapl3[2] = 0.0e0;
23293 
23294   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23295     v3lapl3[3] = 0.0e0;
23296 
23297   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23298     v3lapl2tau[0] = 0.0e0;
23299 
23300   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23301     v3lapl2tau[1] = 0.0e0;
23302 
23303   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23304     v3lapl2tau[2] = 0.0e0;
23305 
23306   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23307     v3lapl2tau[3] = 0.0e0;
23308 
23309   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23310     v3lapl2tau[4] = 0.0e0;
23311 
23312   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23313     v3lapl2tau[5] = 0.0e0;
23314 
23315   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23316     v3lapltau2[0] = 0.0e0;
23317 
23318   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23319     v3lapltau2[1] = 0.0e0;
23320 
23321   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23322     v3lapltau2[2] = 0.0e0;
23323 
23324   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23325     v3lapltau2[3] = 0.0e0;
23326 
23327   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23328     v3lapltau2[4] = 0.0e0;
23329 
23330   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
23331     v3lapltau2[5] = 0.0e0;
23332 
23333   t16068 = t95 * t94;
23334   t16069 = t4496 * t1194;
23335   t16070 = t16068 * t16069;
23336   t16074 = t94 * t16069;
23337   t16078 = t3292 * t4528;
23338   t16086 = t4496 * t1241;
23339   t16089 = t4504 * t1181;
23340   t16090 = t43 * t16089;
23341   t16091 = t16090 * t85;
23342   t16093 = t929 * t16089;
23343   t16094 = t7591 * t16093;
23344   t16096 = 0.18e2 * t15068;
23345   t16097 = t3856 * t16089;
23346   t16098 = t11211 * t16097;
23347   t16100 = 0.42e2 * t15075;
23348   t16101 = t572 * t16089;
23349   t16102 = t5149 * t16101;
23350   t16104 = 0.24e2 * t15082;
23351   t16105 = -0.6e1 * t16091 + 0.54e2 * t16094 - t16096 - 0.96e2 * t16098 + t16100 - t3854 + 0.48e2 * t16102 - t16104 + t3862;
23352   t16106 = t56 * t16105;
23353   t16110 = t87 * t1188 * t91;
23354   t16113 = t4518 * t1188;
23355   t16114 = t56 * t16113;
23356   t16129 = t16106 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t4515 * t16110 - 0.3e1 / 0.100e3 * t16114 * t91 + 0.3e1 / 0.50e2 * t16114 * t4960 - t470 * t16105 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t4514 * t1188 * t91 - t4970 * t16113 * t91 / 0.100e3;
23357   t16130 = t94 * t16129;
23358   t16141 = 0.226775617558758e3 * t15135;
23359   t16142 = 0.95484470551056e2 * t15141;
23360   t16143 = 0.574713629618040e3 * t15146;
23361   t16144 = 0.870778226694000e3 * t15150;
23362   t16145 = 0.348311290677600e3 * t15155;
23363   t16146 = 0.559438766206110e3 * t15161;
23364   t16147 = 0.825838178685210e3 * t15165;
23365   t16148 = 0.319679294974920e3 * t15170;
23366   t16149 = 0.215297568277722e3 * t15175;
23367   t16150 = 0.312392550050028e3 * t15179;
23368   t16151 = 0.118202586505416e3 * t15184;
23369   t16152 = 0.400099950e2 * t15192;
23370   t16153 = 0.693506580e2 * t15196;
23371   t16154 = 0.320079960e2 * t15200;
23372   t16155 = -0.4002e1 * t16091 + t16141 - t16142 + t16143 - t16144 + t16145 - t16146 + t16147 - t16148 + t16149 - t16150 + t16151 - t16152 + t16153 - t16154;
23373   t16156 = 0.29214162585720e2 * t15204;
23374   t16157 = 0.41873633039532e2 * t15208;
23375   t16158 = 0.15580886712384e2 * t15214;
23376   t16159 = 0.143226705826584e3 * t15220;
23377   t16160 = 0.12006e2 * t15068;
23378   t16161 = 0.28014e2 * t15075;
23379   t16162 = 0.16008e2 * t15082;
23380   t16163 = -t16156 + t16157 - t16158 - t16159 - t16160 + t16161 - t16162 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956;
23381   t16165 = t1006 * t16089;
23382   t16168 = t967 * t16089;
23383   t16171 = t980 * t16089;
23384   t16174 = t993 * t16089;
23385   t16177 = t610 * t16089;
23386   t16180 = t3894 * t16089;
23387   t16183 = t7681 * t16089;
23388   t16186 = t3913 * t16089;
23389   t16189 = t14563 * t16089;
23390   t16192 = t3928 * t16089;
23391   t16195 = t581 * t16089;
23392   t16198 = -t3965 - t3989 + t3991 + t3994 + t4003 - 0.2735545573411056e4 * t7964 * t16165 + 0.966780264329442e3 * t7959 * t16168 - 0.5015682585757440e4 * t7989 * t16171 + 0.5993986780779750e4 * t7921 * t16174 + 0.1491836709882960e4 * t5157 * t16177 + 0.2245849143602904e4 * t11644 * t16180 - 0.630413794695552e3 * t14551 * t16183 - 0.342779507672448e3 * t11558 * t16186 + 0.93485320274304e2 * t14560 * t16189 - 0.2240559720e3 * t11692 * t16192 + 0.853546560e2 * t5192 * t16195;
23393   t16199 = t3943 * t16089;
23394   t16202 = t590 * t16089;
23395   t16205 = t3959 * t16089;
23396   t16208 = t599 * t16089;
23397   t16211 = t114 * t16089;
23398   t16214 = t127 * t16089;
23399   t16217 = t138 * t16089;
23400   t16220 = t151 * t16089;
23401   t16223 = t3997 * t16089;
23402   t16226 = t165 * t16089;
23403   t16229 = t178 * t16089;
23404   t16232 = t1019 * t16089;
23405   t16235 = t954 * t16089;
23406   t16241 = -0.954844705510560e3 * t11612 * t16199 + 0.318281568503520e3 * t5135 * t16202 + 0.4528046778808800e4 * t11658 * t16205 - 0.1393245162710400e4 * t5170 * t16208 - 0.533466600e2 * t5182 * t16211 - 0.334195646928696e3 * t5149 * t16214 + 0.1915712098726800e4 * t5192 * t16217 - 0.2424234653559810e4 * t5135 * t16220 - 0.5114868719598720e4 * t11587 * t16223 + 0.1148253697481184e4 * t5170 * t16226 - 0.185023029709560e3 * t5157 * t16229 + 0.429448190010084e3 * t7977 * t16232 + 0.1920479760e3 * t7995 * t16235 + 0.36018e2 * t16094 - 0.64032e2 * t16098 + 0.32016e2 * t16102;
23407   t16248 = t3529 * t4514;
23408   t16264 = my_piecewise3(t102, t16155 + t16163 + t16198 + t16241, t16105 * t184 * t616 * t617 + 0.6e1 * t16113 * t1839 * t184 * t5678 + 0.6e1 * t16113 * t184 * t1841 * t616 + t16113 * t184 * t5689 * t5691 - 0.6e1 * t2835 * t16248 - 0.3e1 * t2843 * t16248);
23409   t16267 = 0.48e2 * t4747 * t16070 * t187 - 0.24e2 * t1369 * t16074 * t187 - 0.24e2 * t13624 * t16078 + 0.24e2 * t1369 * t4497 * t1241 + 0.6e1 * t405 * t16078 - 0.6e1 * t405 * t16086 + 0.2e1 * t405 * t16130 * t187 - 0.6e1 * t405 * t4529 * t1241 - 0.6e1 * t405 * t1195 * t4607 - t101 * t16264 + 0.1174e1 * t16264;
23410   t16269 = t1180 * t16267 * t204;
23411   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23412     v3tau3[0] = -0.3e1 / 0.8e1 * t1179 * t16269;
23413 
23414   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23415     v3tau3[1] = 0.0e0;
23416 
23417   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23418     v3tau3[2] = 0.0e0;
23419 
23420   t16272 = t271 * t270;
23421   t16273 = t4615 * t1263;
23422   t16274 = t16272 * t16273;
23423   t16278 = t270 * t16273;
23424   t16282 = t3566 * t4647;
23425   t16290 = t4615 * t1310;
23426   t16293 = t4623 * t1250;
23427   t16294 = t223 * t16293;
23428   t16295 = t16294 * t261;
23429   t16297 = t1064 * t16293;
23430   t16298 = t8620 * t16297;
23431   t16300 = 0.18e2 * t15346;
23432   t16301 = t4078 * t16293;
23433   t16302 = t11965 * t16301;
23434   t16304 = 0.42e2 * t15353;
23435   t16305 = t766 * t16293;
23436   t16306 = t7191 * t16305;
23437   t16308 = 0.24e2 * t15360;
23438   t16309 = -0.6e1 * t16295 + 0.54e2 * t16298 - t16300 - 0.96e2 * t16302 + t16304 - t4076 + 0.48e2 * t16306 - t16308 + t4084;
23439   t16310 = t56 * t16309;
23440   t16314 = t263 * t1257 * t267;
23441   t16317 = t4637 * t1257;
23442   t16318 = t56 * t16317;
23443   t16333 = t16310 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t4634 * t16314 - 0.3e1 / 0.100e3 * t16318 * t267 + 0.3e1 / 0.50e2 * t16318 * t6524 - t735 * t16309 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t4633 * t1257 * t267 - t6534 * t16317 * t267 / 0.100e3;
23444   t16334 = t270 * t16333;
23445   t16344 = 0.12006e2 * t15346;
23446   t16345 = 0.28014e2 * t15353;
23447   t16346 = 0.16008e2 * t15360;
23448   t16347 = -t16344 + t16345 - t16346 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196;
23449   t16348 = 0.95484470551056e2 * t15450;
23450   t16349 = 0.574713629618040e3 * t15456;
23451   t16350 = 0.870778226694000e3 * t15460;
23452   t16351 = 0.348311290677600e3 * t15465;
23453   t16352 = 0.559438766206110e3 * t15470;
23454   t16353 = 0.825838178685210e3 * t15472;
23455   t16354 = 0.319679294974920e3 * t15478;
23456   t16355 = 0.215297568277722e3 * t15483;
23457   t16356 = 0.312392550050028e3 * t15487;
23458   t16357 = 0.118202586505416e3 * t15492;
23459   t16358 = 0.29214162585720e2 * t15498;
23460   t16359 = 0.41873633039532e2 * t15504;
23461   t16360 = 0.15580886712384e2 * t15509;
23462   t16361 = 0.400099950e2 * t15515;
23463   t16362 = -t4203 + t4205 - t16348 + t16349 - t16350 + t16351 - t16352 + t16353 - t16354 + t16355 - t16356 + t16357 - t16358 + t16359 - t16360 - t16361;
23464   t16364 = 0.693506580e2 * t15534;
23465   t16365 = 0.320079960e2 * t15538;
23466   t16366 = 0.143226705826584e3 * t15542;
23467   t16367 = 0.226775617558758e3 * t15546;
23468   t16368 = t804 * t16293;
23469   t16371 = t4164 * t16293;
23470   t16374 = t8766 * t16293;
23471   t16377 = t4184 * t16293;
23472   t16380 = t14910 * t16293;
23473   t16383 = t4199 * t16293;
23474   t16386 = t775 * t16293;
23475   t16389 = t4119 * t16293;
23476   t16392 = t784 * t16293;
23477   t16395 = t4134 * t16293;
23478   t16398 = t793 * t16293;
23479   t16401 = t4149 * t16293;
23480   t16404 = t16364 - t16365 - t16366 + t16367 + 0.1491836709882960e4 * t7160 * t16368 + 0.2245849143602904e4 * t12361 * t16371 - 0.630413794695552e3 * t14897 * t16374 - 0.342779507672448e3 * t12409 * t16377 + 0.93485320274304e2 * t14907 * t16380 - 0.2240559720e3 * t12437 * t16383 + 0.853546560e2 * t7174 * t16386 - 0.954844705510560e3 * t12308 * t16389 + 0.318281568503520e3 * t6945 * t16392 + 0.4528046778808800e4 * t12332 * t16395 - 0.1393245162710400e4 * t7209 * t16398 - 0.5114868719598720e4 * t12395 * t16401;
23481   t16405 = t290 * t16293;
23482   t16408 = t303 * t16293;
23483   t16411 = t1154 * t16293;
23484   t16414 = t314 * t16293;
23485   t16417 = t327 * t16293;
23486   t16420 = t341 * t16293;
23487   t16423 = t354 * t16293;
23488   t16426 = t1102 * t16293;
23489   t16429 = t1115 * t16293;
23490   t16432 = t1128 * t16293;
23491   t16435 = t1141 * t16293;
23492   t16438 = t1089 * t16293;
23493   t16445 = -0.533466600e2 * t7179 * t16405 - 0.334195646928696e3 * t7191 * t16408 + 0.429448190010084e3 * t9241 * t16411 + 0.1915712098726800e4 * t7174 * t16414 - 0.2424234653559810e4 * t6945 * t16417 + 0.1148253697481184e4 * t7209 * t16420 - 0.185023029709560e3 * t7160 * t16423 + 0.966780264329442e3 * t8866 * t16426 - 0.5015682585757440e4 * t8879 * t16429 + 0.5993986780779750e4 * t8846 * t16432 - 0.2735545573411056e4 * t8901 * t16435 + 0.1920479760e3 * t9103 * t16438 + 0.36018e2 * t16298 - 0.64032e2 * t16302 + 0.32016e2 * t16306 - 0.4002e1 * t16295;
23494   t16452 = t3803 * t4633;
23495   t16468 = my_piecewise3(t278, t16347 + t16362 + t16404 + t16445, t16309 * t360 * t616 * t881 + 0.6e1 * t16317 * t1839 * t360 * t7234 + 0.6e1 * t16317 * t2467 * t360 * t616 + t16317 * t360 * t5689 * t7245 - 0.6e1 * t3232 * t16452 - 0.3e1 * t3240 * t16452);
23496   t16471 = 0.48e2 * t6316 * t16274 * t363 - 0.24e2 * t2000 * t16278 * t363 - 0.24e2 * t14051 * t16282 + 0.24e2 * t2000 * t4616 * t1310 + 0.6e1 * t674 * t16282 - 0.6e1 * t674 * t16290 + 0.2e1 * t674 * t16334 * t363 - 0.6e1 * t674 * t4648 * t1310 - 0.6e1 * t674 * t1264 * t4726 - t277 * t16468 + 0.1174e1 * t16468;
23497   t16473 = t1249 * t16471 * t377;
23498   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
23499     v3tau3[3] = -0.3e1 / 0.8e1 * t1179 * t16473;
23500 
23501 #ifndef XC_DONT_COMPILE_LXC
23502 
23503   if(order < 4) return;
23504 
23505 
23506   t16476 = 0.5e1 / 0.9e1 * t4736;
23507   t16478 = 0.5e1 / 0.9e1 * t4743;
23508   t16486 = -t16476 - 0.3e1 / 0.2e1 * t4739 - t16478 - 0.3e1 / 0.2e1 * t5702 + t5705 - 0.2e1 * t5709 - 0.2e1 * t5713 + 0.4e1 / 0.9e1 * t5722 - 0.2e1 / 0.3e1 * t5725 + 0.4e1 / 0.3e1 * t5729 + 0.4e1 / 0.9e1 * t5739;
23509   t16498 = -0.2e1 / 0.3e1 * t5742 + 0.4e1 / 0.3e1 * t5746 - 0.2e1 * t5755 - 0.29687400000000000000e2 * t5759 - 0.35624880000000000000e3 * t5761 - 0.19791600000000000000e2 * t5765 - 0.11874960000000000000e3 * t5767 + 0.12886657935314601099e4 * t5775 + 0.65972000000000000000e1 * t5779 + 0.23090200000000000000e2 * t5781 + 0.83124720000000000000e3 * t5787;
23510   t16511 = -0.76967333333333333333e2 * t5794 - 0.6e1 * t5797 - 0.2e1 * t5800 - 0.6e1 * t5804 - 0.2e1 * t5807 - 0.4e1 * t5811 - 0.2e1 * t5813 - 0.2e1 * t5818 + 0.92360800000000000000e2 * t5822 + 0.96649934514859508243e3 * t5827 - 0.23749920000000000000e4 * t5843;
23511   t16525 = t8 * t4741 * t625;
23512   t16527 = t391 * t1349;
23513   t16533 = t8 * t398 * t5700;
23514   t16544 = t634 * t5860 * t624;
23515   t16548 = t634 * t5868 * t624;
23516   t16549 = t16548 * t1343;
23517   t16551 = t36 * t39;
23518   t16556 = 0.1e1 / t199 / t16551 / t46 * t5830 / 0.36e2;
23519   t16558 = t26 * t141;
23520   t16559 = 0.1e1 / t16558;
23521   t16569 = t5733 * t17;
23522   t16571 = t634 * t16569 * t190;
23523   t16572 = t203 * t5736;
23524   t16577 = t1323 * t397;
23525   t16579 = t634 * t16577 * t190;
23526   t16580 = t16579 * t5865;
23527   t16582 = 0.2e1 / 0.3e1 * t5718 * t649 * t1887 * t1895 - 0.5e1 / 0.9e1 * t16525 - 0.13194400000000000000e2 * t5977 * t5978 * t5979 * t16527 - t16533 / 0.2e1 + 0.46180400000000000000e2 * t1340 * t640 * t1868 * t5877 + 0.15393466666666666667e2 * t5862 * t640 * t1868 * t5863 - 0.13194400000000000000e2 * t16544 * t5865 - 0.26388800000000000000e2 * t16549 - 0.27708240000000000000e4 * t636 * t16556 * t41 * t16559 * t203 * t193 + 0.11083296000000000000e4 * t1340 * t1862 * t4759 * t1341 + 0.29320888888888888889e1 * t16571 * t640 * t642 * t16572 - 0.43981333333333333333e1 * t16580;
23528   t16585 = t634 * t15 * t1355 * t190;
23529   t16586 = t16585 * t1343;
23530   t16588 = t203 * t5752;
23531   t16595 = t5870 * t5879;
23532   t16598 = t634 * t1338 * t1849;
23533   t16605 = t5870 * t5883;
23534   t16609 = t5870 * t5821;
23535   t16622 = t634 * t4741 * t190;
23536   t16623 = t16622 * t644;
23537   t16625 = 0.87962666666666666668e1 * t16586 - 0.13194400000000000000e2 * t1340 * t640 * t642 * t16588 - 0.39583200000000000000e2 * t5874 * t5879 - 0.13194400000000000000e2 * t16595 - 0.39583200000000000000e2 * t16598 * t1343 - 0.79166400000000000000e2 * t5862 * t1862 * t1376 * t5863 - 0.15833280000000000000e3 * t16605 - 0.47499840000000000000e3 * t5874 * t5883 + 0.30786933333333333333e2 * t16609 + 0.92360800000000000000e2 * t5874 * t5821 - 0.10262311111111111111e3 * t1340 * t640 * t5791 * t1341 - 0.23749920000000000000e3 * t1340 * t1862 * t1376 * t5877 - 0.36651111111111111111e1 * t16623;
23538   t16627 = t5836 * t5830;
23539   t16628 = t16627 * t2878;
23540   t16629 = t5839 * t203;
23541   t16634 = t4811 * t1035;
23542   t16635 = t61 * t203;
23543   t16640 = t8 * t5873;
23544   t16644 = t634 * t398 * t1849;
23545   t16645 = t16644 * t644;
23546   t16649 = t8 * t5861;
23547   t16650 = t5772 * t1326;
23548   t16658 = t5847 * t19;
23549   t16662 = t8 * t5869;
23550   t16663 = t16662 * t5774;
23551   t16667 = t5772 * t1349;
23552   t16671 = -0.31666560000000000000e4 * t1340 * t16628 * t16629 * t391 + 0.88196134457417845519e1 * t5769 * t16634 * t16635 * t391 + 0.12886657935314601099e4 * t16640 * t5774 - 0.98958000000000000000e1 * t16645 + 0.34635300000000000000e2 * t5758 * t1870 + 0.21477763225524335164e3 * t16649 * t5771 * t16650 + 0.83124720000000000000e3 * t1855 * t5786 - 0.76967333333333333333e2 * t1855 * t5793 - 0.12886657935314601099e4 * t5769 * t16658 * t5773 + 0.42955526451048670329e3 * t16663 - 0.17812440000000000000e3 * t5758 * t1864 + 0.64433289676573005494e3 * t5769 * t5771 * t16667;
23553   t16672 = t5764 * t1870;
23554   t16675 = 0.1e1 / t27 / t154;
23555   t16676 = sigma[0] * t16675;
23556   t16681 = t1364 * t5793;
23557   t16688 = t1364 * t5786;
23558   t16691 = t634 * t18 * t5699;
23559   t16700 = t634 * t1356 * t624;
23560   t16701 = t16700 * t644;
23561   t16703 = t5778 * t1864;
23562   t16705 = t5764 * t1864;
23563   t16707 = t5778 * t1870;
23564   t16710 = t633 * t384 * t17;
23565   t16711 = t190 * t5889;
23566   t16712 = t638 * t203;
23567   t16713 = t16712 * t391;
23568   t16718 = t5888 * t1331 * t5891;
23569   t16720 = 0.23090200000000000000e2 * t16672 - 0.14085022000000000000e4 * t636 * t1862 * t16676 * t203 - 0.25655777777777777777e2 * t16681 + 0.83381277777777777776e2 * t636 * t640 * t194 * t45 * t203 + 0.27708240000000000000e3 * t16688 - 0.98958000000000000000e1 * t16691 * t644 - 0.64604306522260800000e3 * t636 * t45 * t1860 * t203 * t5978 + 0.65972000000000000000e1 * t16701 + 0.39583200000000000000e2 * t16703 - 0.11874960000000000000e3 * t16705 - 0.76967333333333333334e1 * t16707 - 0.17227815072602880000e4 * t16710 * t16711 * t16713 - 0.43069537681507200000e3 * t16718;
23570   t16729 = t1885 * t1891 * t5707;
23571   t16738 = 0.10e2 / 0.27e2 * t8 * t16 * t6000 * t205;
23572   t16741 = t402 / t4745 / t96;
23573   t16742 = t1370 * t1370;
23574   t16752 = t1506 * t1506;
23575   t16787 = t418 * t418;
23576   t16789 = t4778 * t35 / t16787;
23577   t16796 = t1503 * t1503;
23578   t16804 = t42 * t4945 * t85;
23579   t16807 = rho[0] * t68 * t85;
23580   t16811 = t5789 * t68 * t928 * t1445;
23581   t16813 = t1463 * t77;
23582   t16814 = t16813 * t1431;
23583   t16816 = t4908 * t4923;
23584   t16819 = t430 * t77 * t4920;
23585   t16821 = t430 * t4886;
23586   t16827 = my_piecewise3(t65, 0.6160e4 / 0.81e2 * tau[0] * t4758 - 0.2618e4 / 0.81e2 * t16676, 0);
23587   t16829 = t433 * t85 * t16827;
23588   t16844 = t1438 * t1438;
23589   t16861 = 0.280e3 / 0.3e1 * t195 * t1418 * t81 + 0.280e3 / 0.3e1 * t4844 * t1475 + 0.80e2 * t451 * t438 * t1475 + 0.80e2 / 0.3e1 * t1460 * t4878 - 0.1872e4 * t5789 * t67 * t4882 + 0.6e1 * t79 * t16844 * t81 + 0.8e1 * t4862 * t4878 + 0.2e1 * t455 * t81 * t16827 + 0.280e3 / 0.81e2 * t1876 * t67 * t81 + 0.2240e4 / 0.27e2 * t26 * t66 * t456 - 0.88e2 * t4854 * t4875;
23590   t16866 = t42 * t438;
23591   t16867 = t16866 * t77;
23592   t16881 = t418 * t36 * t22;
23593   t16905 = 0.864e3 * t406 * t66 * t444 * t4871 - 0.24e2 * t16867 * t4875 + 0.108e3 * t4869 * t1438 * t19 * t38 - 0.8e1 * t1470 * t4832 * t36 * t22 + 0.270e3 * t154 * t67 * t111 * t16881 - 0.2144e4 / 0.9e1 * t25 * t66 * t77 * t1472 - 0.1888e4 / 0.27e2 * rho[0] * t67 * t461 + 0.664e3 * t28 * t67 * t1480 - 0.88e2 * t78 * t1418 * t461 + 0.108e3 * t1374 * t1418 * t1480 - 0.864e3 * t44 * t66 * t928 * t438 * t418;
23594   t16906 = t16861 + t16905;
23595   t16908 = t69 * t450 * t16906;
23596   t16909 = t4847 * t439;
23597   t16911 = t4942 * t464;
23598   t16913 = t1463 * t1439;
23599   t16915 = t1406 * t1484;
23600   t16917 = t459 * t4833;
23601   t16919 = t1483 * t463;
23602   t16921 = t1429 * t1631 * t16919;
23603   t16923 = t137 * t4891;
23604   t16925 = t445 * t16923 * t1425;
23605   t16927 = -0.120e3 * t16804 - 0.120e3 * t16807 - 0.2888e4 * t16811 + 0.720e3 * t16814 - 0.360e3 * t16816 - 0.120e3 * t16819 + 0.20e2 * t16821 - 0.3e1 * t16829 + t16908 - 0.720e3 * t16909 + 0.240e3 * t16911 - 0.360e3 * t16913 + 0.120e3 * t16915 - 0.60e2 * t16917 - 0.72e2 * t16921 - 0.36e2 * t16925;
23606   t16928 = t38 * t1453;
23607   t16930 = t1443 * t1657 * t16928;
23608   t16932 = t1412 * t4820;
23609   t16934 = t4912 * t4816;
23610   t16936 = t411 * t66;
23611   t16937 = t16936 * t928;
23612   t16939 = t16937 * t4801 * t4811;
23613   t16943 = t1423 * t84 * t4832 * t1425;
23614   t16946 = t4810 * t4805 * t4811;
23615   t16950 = t1443 * t1650 * t38 * t1483;
23616   t16954 = t445 * t485 * t22 * t4885;
23617   t16956 = t1412 * t4794;
23618   t16958 = t463 * t1438;
23619   t16960 = t2544 * t1430 * t16958;
23620   t16963 = t1453 * t1453;
23621   t16965 = t69 * t77 * t150 * t16963;
23622   t16967 = t1483 * t1483;
23623   t16969 = t69 * t1452 * t16967;
23624   t16971 = t4853 * t1419;
23625   t16974 = t154 * t68 * t4838;
23626   t16976 = t1406 * t1454;
23627   t16978 = t430 * t4892;
23628   t16980 = t4946 * t464;
23629   t16982 = -0.216e3 * t16930 - 0.96e2 * t16932 + 0.1224e4 * t16934 - 0.648e3 * t16939 + 0.18e2 * t16943 - 0.324e3 * t16946 + 0.108e3 * t16950 - 0.6e1 * t16954 + 0.192e3 * t16956 + 0.72e2 * t16960 - 0.24e2 * t16965 - 0.6e1 * t16969 - 0.720e3 * t16971 + 0.6480e4 * t16974 - 0.240e3 * t16976 + 0.120e3 * t16978 + 0.24e2 * t16980;
23630   t16984 = t7551 * t1439;
23631   t16987 = t1417 * t85 * t16844;
23632   t16990 = t4918 * t4919 * t4885;
23633   t16993 = t117 * t67 * t111;
23634   t16995 = t16993 * t1424 * t418;
23635   t16998 = t113 * t418;
23636   t17000 = t4836 * t111 * t16998 * t463;
23637   t17004 = t28 * t68 * t444 * t447;
23638   t17007 = t2544 * t4926 * t1483;
23639   t17010 = t2544 * t1424 * t4832;
23640   t17012 = t113 * t4832;
23641   t17014 = t1429 * t17012 * t463;
23642   t17017 = t1429 * t4933 * t1483;
23643   t17020 = t1429 * t1430 * t4885;
23644   t17023 = t1429 * t16923 * t438;
23645   t17026 = t4918 * t5500 * t1483;
23646   t17030 = t442 * t4945 * t444 * t447;
23647   t17032 = t1470 * t4927;
23648   t17035 = t2544 * t5333 * t1453;
23649   t17037 = t1470 * t4930;
23650   t17039 = -0.36e2 * t16984 - 0.18e2 * t16987 - 0.8e1 * t16990 + 0.3240e4 * t16995 - 0.1080e4 * t17000 + 0.4264e4 / 0.9e1 * t17004 + 0.36e2 * t17007 - 0.24e2 * t17010 + 0.12e2 * t17014 + 0.18e2 * t17017 + 0.12e2 * t17020 + 0.72e2 * t17023 + 0.36e2 * t17026 + 0.36e2 * t17030 + 0.360e3 * t17032 - 0.72e2 * t17035 - 0.360e3 * t17037;
23651   t17040 = t4908 * t4934;
23652   t17043 = t1429 * t5341 * t1453;
23653   t17045 = t4908 * t4915;
23654   t17047 = t4823 * t4806;
23655   t17049 = t4881 * t928;
23656   t17050 = t17049 * t4812;
23657   t17052 = t4859 * t444;
23658   t17053 = t17052 * t1426;
23659   t17055 = t4905 * t1449;
23660   t17057 = t4869 * t4802;
23661   t17059 = t27 * t117;
23662   t17064 = t17059 * t68 * t483 * t84 * t418 * t1425;
23663   t17066 = t1478 * t4937;
23664   t17067 = t17066 * t4939;
23665   t17069 = t438 * t1438;
23666   t17070 = t17069 * t1425;
23667   t17071 = t7614 * t17070;
23668   t17073 = t16958 * t1425;
23669   t17074 = t4938 * t17073;
23670   t17076 = t438 * t1483;
23671   t17077 = t17076 * t1425;
23672   t17078 = t4938 * t17077;
23673   t17080 = t444 * t126;
23674   t17082 = t16919 * t1425;
23675   t17083 = t443 * t17080 * t17082;
23676   t17085 = t1422 * t17080;
23677   t17086 = t1453 * t438;
23678   t17087 = t1425 * t17086;
23679   t17088 = t17085 * t17087;
23680   t17090 = t4809 * t929;
23681   t17091 = t4870 * t4815;
23682   t17092 = t17090 * t17091;
23683   t17094 = t4799 * t4937;
23684   t17095 = t1418 * t463;
23685   t17096 = t17095 * t1425;
23686   t17097 = t17094 * t17096;
23687   t17099 = 0.180e3 * t17040 - 0.36e2 * t17043 + 0.180e3 * t17045 + 0.288e3 * t17047 - 0.3672e4 * t17050 + 0.1256e4 * t17053 - 0.1256e4 / 0.3e1 * t17055 + 0.576e3 * t17057 - 0.810e3 * t17064 - 0.576e3 * t17067 + 0.108e3 * t17071 - 0.54e2 * t17074 - 0.54e2 * t17078 + 0.36e2 * t17083 + 0.108e3 * t17088 + 0.648e3 * t17092 - 0.108e3 * t17097;
23688   t17101 = t16927 + t16982 + t17039 + t17099;
23689   t17109 = t1486 * t1486;
23690   t17115 = t1490 * t1490;
23691   t17116 = t56 * t17115;
23692   t17119 = t1498 * t91;
23693   t17136 = t56 * t5677;
23694   t17140 = 0.9163e4 / 0.65610e5 * t57 * t48 * t16675 + t56 * t17101 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t4951 * t2587 - 0.9e1 / 0.50e2 * t1487 * t1500 - 0.9e1 / 0.100e3 * t56 * t17109 * t1492 + 0.9e1 / 0.25e2 * t1487 * t7633 + 0.3e1 / 0.20e2 * t17116 * t1492 - t17116 * t17119 / 0.10e2 - t470 * t17101 * t91 / 0.100e3 + t1499 * t4950 * t466 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t1499 * t17109 * t91 - 0.3e1 / 0.50e2 * t4970 * t1486 * t1490 * t91 + t17136 * t17115 * t91 / 0.100e3;
23695   t17167 = t177 * t4891;
23696   t17189 = -0.80040e2 * t16804 - 0.80040e2 * t16807 + 0.19979955935932500e5 * t5240 * t5290 + 0.1431493966700280e4 * t5232 * t5301 - 0.163599310480032e3 * t1615 * t1786 * t1438 * t1453 + 0.1431493966700280e4 * t5232 * t5304 - 0.8359470976262400e4 * t1641 * t17167 * t438 - 0.3437440939838016e4 * t2756 * t5393 * t1453 + 0.3222600881098140e4 * t5273 * t5361 - 0.429680117479752e3 * t1635 * t5400 * t1453 + 0.3222600881098140e4 * t5273 * t5364 - 0.33566325972366600e5 * t2785 * t5372 * t1453 + 0.19979955935932500e5 * t5240 * t5283 - 0.2397594712311900e4 * t1620 * t5379 * t1453;
23697   t17204 = t2733 * t594;
23698   t17220 = -0.19262960000000000000e4 * t16811 + 0.480240e3 * t16814 - 0.240120e3 * t16816 - 0.80040e2 * t16819 + 0.3360839580e3 * t1649 * t5571 * t4811 + 0.49413213510171480000e4 * t5576 * t5581 - 0.7519402055895660e4 * t5115 * t1695 + 0.1989259803147e1 * t121 * t572 * t16906 + 0.411345001038847680e6 * t17204 * t596 - 0.137115000346282560e6 * t5210 * t600 + 0.22036339341366840e5 * t5093 * t1726 - 0.7345446447122280e4 * t1568 * t1729 + 0.506582513594640e3 * t1721 * t5102 - 0.168860837864880e3 * t553 * t5105 + 0.4221520946622e1 * t595 * t165 * t16827;
23699   t17240 = t987 * t119;
23700   t17262 = 0.16955789805469756800e7 * t1669 * t144 * t5020 - 0.89513130152172888000e6 * t1677 * t158 * t5025 + 0.15964955569844265600e6 * t1685 * t171 * t5030 + 0.29575388304000000000e5 * t1646 * t107 * t5004 + 0.18905925169109088000e6 * t130 * t120 * t5009 - 0.11981211776728084800e7 * t1661 * t132 * t5015 - 0.65168151151095720e5 * t17240 * t569 + 0.21722717050365240e5 * t5213 * t573 + 0.355644400e2 * t533 * t5053 - 0.26673330e1 * t560 * t114 * t16827 + 0.8891110e0 * t108 * t564 * t16906 + 0.2506467351965220e4 * t1565 * t1698 - 0.358066764566460e3 * t1744 * t5086 + 0.119355588188820e3 * t536 * t5090 - 0.5967779409441e1 * t568 * t127 * t16827;
23701   t17269 = t117 * t170;
23702   t17283 = t2681 * t576;
23703   t17299 = -0.5805188177960e1 * t133 * t581 * t16906 - 0.1407173648874e1 * t159 * t599 * t16906 - 0.76819190400e4 * t17269 * t561 + 0.25606396800e4 * t5207 * t565 - 0.14403598200e4 * t5108 * t1738 + 0.4801199400e3 * t1571 * t1741 - 0.1066933200e3 * t1732 * t5050 + 0.4439990207985e1 * t145 * t590 * t16906 + 0.476489845646956800e6 * t17283 * t578 - 0.158829948548985600e6 * t5607 * t582 + 0.39707487137246400e5 * t5058 * t1701 - 0.13235829045748800e5 * t1574 * t1707 + 0.1393245162710400e4 * t1776 * t5067 - 0.464415054236800e3 * t543 * t5070 + 0.17415564533880e2 * t577 * t138 * t16827;
23704   t17305 = t2688 * t585;
23705   t17327 = 0.162300903254e0 * t172 * t610 * t16906 - 0.735262378442316000e6 * t17305 * t587 + 0.245087459480772000e6 * t5464 * t591 - 0.47951894246238000e5 * t5073 * t1715 + 0.15983964748746000e5 * t1577 * t1718 - 0.1331997062395500e4 * t1710 * t4996 + 0.443999020798500e3 * t547 * t4999 - 0.13319970623955e2 * t586 * t151 * t16827 + 0.13340e2 * t16821 - 0.2001e1 * t16829 + 0.667e0 * t16908 - 0.480240e3 * t16909 + 0.160080e3 * t16911 - 0.240120e3 * t16913;
23706   t17330 = t168 * t603;
23707   t17352 = 0.80040e2 * t16915 - 0.40020e2 * t16917 - 0.76482677649414960e5 * t17330 * t605 + 0.25494225883138320e5 * t5661 * t611 - 0.3476485347700680e4 * t5033 * t1768 + 0.1158828449233560e4 * t1580 * t1773 - 0.68166379366680e2 * t1763 * t5042 + 0.22722126455560e2 * t557 * t5045 - 0.486902709762e0 * t604 * t178 * t16827 - 0.48024e2 * t16921 - 0.24012000000000000000e2 * t16925 - 0.14407200000000000000e3 * t16930 - 0.64032000000000000000e2 * t16932 + 0.81640800000000000000e3 * t16934 - 0.43221600000000000000e3 * t16939;
23708   t17369 = 0.12006000000000000000e2 * t16943 - 0.21610800000000000000e3 * t16946 + 0.72036000000000000000e2 * t16950 - 0.40020000000000000000e1 * t16954 + 0.12806400000000000000e3 * t16956 + 0.48024e2 * t16960 - 0.16008e2 * t16965 - 0.4002e1 * t16969 - 0.480240e3 * t16971 + 0.43221600000000000000e4 * t16974 - 0.160080e3 * t16976 + 0.80040e2 * t16978 + 0.16008e2 * t16980 - 0.24012e2 * t16984 - 0.12006e2 * t16987;
23709   t17370 = t5108 * t111;
23710   t17373 = t5073 * t148;
23711   t17376 = t5093 * t162;
23712   t17379 = t5033 * t175;
23713   t17382 = t5115 * t124;
23714   t17385 = t5058 * t135;
23715   t17397 = 0.57614392800e4 * t17370 * t1632 + 0.479518942462380000e6 * t17373 * t1622 - 0.264436072096402080e6 * t17376 * t1627 + 0.48670794867809520e5 * t17379 * t1617 + 0.45116412335373960e5 * t17382 * t1637 - 0.317659897097971200e6 * t17385 * t1643 - 0.5336e1 * t16990 + 0.21610800000000000000e4 * t16995 - 0.72036000000000000000e3 * t17000 + 0.31600977777777777778e3 * t17004 + 0.24012e2 * t17007 - 0.16008e2 * t17010 + 0.8004e1 * t17014 + 0.12006e2 * t17017 + 0.8004e1 * t17020;
23716   t17407 = t156 * t585;
23717   t17408 = t1418 * t1418;
23718   t17435 = 0.48024e2 * t17023 + 0.24012e2 * t17026 + 0.374617768803236280e6 * t8233 * t1804 + 0.137790443697742080e6 * t8290 * t5171 + 0.17223805462217760e5 * t17407 * t165 * t17408 + 0.215297568277722e3 * t1803 * t165 * t16844 + 0.51418125129855960e5 * t1568 * t1808 - 0.80019990e1 * t108 * t1747 * t16967 - 0.60155216447165280e5 * t8248 * t1752 - 0.20051738815721760e5 * t7691 * t5150 - 0.1491836709882960e4 * t145 * t148 * t1786 * t16963 - 0.79919823743730e2 * t145 * t1799 * t16967 - 0.14403598200e4 * t1571 * t1748 + 0.4267732800e3 * t533 * t5144;
23719   t17440 = t169 * t594;
23720   t17451 = t105 * t67;
23721   t17462 = t142 * t576;
23722   t17466 = t118 * t170;
23723   t17479 = -0.533466600e2 * t108 * t111 * t164 * t16963 - 0.3330414534772080e4 * t17440 * t178 * t17408 - 0.29214162585720e2 * t1781 * t178 * t16844 - 0.72017991000e4 * t7505 * t1813 - 0.21338664000e4 * t7602 * t5183 - 0.1600399800e3 * t17451 * t114 * t17408 - 0.400099950e2 * t1812 * t114 * t16844 - 0.671326519447332000e6 * t8194 * t1796 - 0.242423465355981000e6 * t7718 * t5136 - 0.29090815842717720e5 * t17462 * t151 * t17408 - 0.2005173881572176e4 * t17466 * t127 * t17408 - 0.143226705826584e3 * t1751 * t127 * t16844 - 0.10025869407860880e5 * t1565 * t1756 - 0.69529706954013600e5 * t8265 * t1782 - 0.25903224159338400e5 * t8303 * t5158;
23724   t17509 = 0.66179145228744000e5 * t1574 * t1792 - 0.13932451627104000e5 * t543 * t5130 + 0.1219089517371600e4 * t133 * t135 * t609 * t16963 + 0.87077822669400e2 * t133 * t1791 * t16967 + 0.84987954925334400000e4 * t1597 * t5531 - 0.33074929200000000000e3 * t1585 * t5572 + 0.24012000000000000000e2 * t17030 + 0.240120e3 * t17032 - 0.48024e2 * t17035 - 0.240120e3 * t17037 + 0.120060e3 * t17040 - 0.24012e2 * t17043 + 0.120060e3 * t17045 + 0.18647958873537000e5 * t547 * t5164 - 0.238711176377640e3 * t121 * t124 * t177 * t16963;
23725   t17517 = t131 * t119;
23726   t17540 = t27 * t2681;
23727   t17543 = t126 * t418;
23728   t17547 = t27 * t2688;
23729   t17550 = t137 * t418;
23730   t17554 = t27 * t2733;
23731   t17557 = t150 * t418;
23732   t17561 = t27 * t168;
23733   t17564 = t164 * t418;
23734   t17571 = t177 * t418;
23735   t17575 = -0.23871117637764e2 * t121 * t1755 * t16967 + 0.436782358509710400e6 * t8259 * t1760 + 0.153256967898144000e6 * t7704 * t5193 + 0.17241408888541200e5 * t17517 * t138 * t17408 + 0.574713629618040e3 * t1759 * t138 * t16844 - 0.9456206920433280e4 * t553 * t5177 + 0.709215519032496e3 * t159 * t162 * t5119 * t16963 + 0.29550646626354e2 * t159 * t1807 * t16967 + 0.2387111763776400e4 * t536 * t5187 - 0.30247556220000000000e4 * t1394 * t107 * t492 * t16998 * t1425 - 0.17724304846039770000e5 * t17540 * t120 * t501 * t17543 * t1425 + 0.10697510514935790000e6 * t17547 * t132 * t509 * t17550 * t1425 - 0.14673279639348828000e6 * t17554 * t144 * t518 * t17557 * t1425 + 0.75797408596598010000e5 * t17561 * t158 * t527 * t17564 * t1425 - 0.13304129641536888000e5 * t27 * t2668 * t171 * t3912 * t17571 * t1425;
23736   t17581 = t1654 * t143;
23737   t17582 = t17581 * t966;
23738   t17589 = t1662 * t963;
23739   t17590 = t17589 * t979;
23740   t17594 = t1647 * t106;
23741   t17595 = t17594 * t953;
23742   t17596 = t38 * t1418;
23743   t17603 = t1686 * t1002;
23744   t17604 = t17603 * t1018;
23745   t17615 = t1670 * t976;
23746   t17616 = t17615 * t992;
23747   t17623 = t1678 * t157;
23748   t17624 = t17623 * t1005;
23749   t17638 = -0.10082518740e4 * t1649 * t5500 * t4811 - 0.38671210573177680000e5 * t17582 * t5333 * t4811 - 0.64452017621962800000e4 * t1656 * t5509 * t4811 + 0.268965978661242720e6 * t17590 * t5353 * t4811 - 0.50412593700e4 * t17595 * t1650 * t17596 + 0.30318963438639204e5 * t1680 * t5496 * t16928 - 0.40490829343807920000e5 * t17604 * t1689 * t17596 - 0.53987772458410560000e4 * t1688 * t1786 * t19 * t16928 + 0.40752421009279200e5 * t1664 * t1681 * t16928 - 0.40279591166839920000e6 * t17616 * t1673 * t17596 - 0.57542273095485600000e5 * t1672 * t1689 * t16928 + 0.220895305052942772e6 * t17624 * t1681 * t17596 - 0.21722717050365240e5 * t1646 * t120 * t127 + 0.154254375389567880e6 * t1669 * t158 * t165 + 0.139324516271040e3 * t502 * t150 * t4885 * t1425;
23750   t17645 = t5255 * t585 * t992;
23751   t17652 = t150 * t4832;
23752   t17669 = t5265 * t603 * t1018;
23753   t17676 = t177 * t4832;
23754   t17684 = -0.8150484201855840e4 * t1664 * t5530 * t4811 + 0.30369533022617400000e5 * t5535 * t5540 - 0.14769183427841304000e7 * t17645 * t5477 - 0.10123177674205800000e5 * t1602 * t5544 + 0.49230611426137680000e6 * t5257 * t5480 + 0.39959911871865000000e3 * t1538 * t17652 * t1425 - 0.28771136547742800000e5 * t5475 * t5400 * t4811 - 0.13319970623955000000e3 * t510 * t164 * t4885 * t1425 + 0.95903788492476000000e4 * t1672 * t5543 * t4811 + 0.21676908638604240000e4 * t5548 * t5553 - 0.14441729132624824800e6 * t17669 * t5493 - 0.72256362128680800000e3 * t1612 * t5557 + 0.48139097108749416000e5 * t5267 * t5497 + 0.20449913810004000000e2 * t1555 * t17676 * t1425 - 0.106693320e2 * t484 * t126 * t4885 * t1425;
23755   t17699 = t5227 * t576 * t979;
23756   t17704 = t137 * t4832;
23757   t17721 = t5217 * t170 * t953;
23758   t17732 = -0.20245414671903960000e4 * t5492 * t5379 * t4811 - 0.68166379366680000000e1 * t528 * t609 * t4885 * t1425 + 0.67484715573013200000e3 * t1688 * t5556 * t4811 - 0.25496386477600320000e5 * t5561 * t5568 + 0.10106600410301241600e7 * t17699 * t5623 - 0.33688668034337472000e6 * t5229 * t5471 - 0.417973548813120e3 * t1530 * t17704 * t1425 + 0.24451452605567520e5 * t5622 * t5360 * t4811 + 0.50658251359464e2 * t519 * t177 * t4885 * t1425 - 0.4331280491234172e4 * t1680 * t5597 * t4811 + 0.99224787600000000000e3 * t5602 * t5527 - 0.21509373312000000000e5 * t17721 * t5520 + 0.71697911040000000000e4 * t5219 * t5524 + 0.320079960e2 * t1513 * t17012 * t1425 - 0.10082518740e4 * t5519 * t4933 * t4811;
23759   t17738 = 0.1e1 / t608 / t125;
23760   t17760 = t483 * t137;
23761   t17761 = t1512 * t17760;
23762   t17764 = t5575 * t3928;
23763   t17767 = -0.9270627593868480e4 * t1580 * t1788 + 0.1635993104800320e4 * t557 * t5121 - 0.116856650342880e3 * t172 * t175 * t17738 * t16963 - 0.3895221678096e1 * t172 * t1787 * t16967 - 0.559438766206110e3 * t1795 * t151 * t16844 - 0.95903788492476000e5 * t1577 * t1800 - 0.22405597200e4 * t154 * t107 * t114 + 0.19209600000000000000e3 * t17047 - 0.24492240000000000000e4 * t17050 + 0.83775200000000000000e3 * t17053 - 0.27925066666666666667e3 * t17055 + 0.38419200000000000000e3 * t17057 - 0.54027000000000000000e3 * t17064 + 0.5761439280e3 * t17761 * t17087 - 0.29647928106102888000e5 * t17764 * t4939;
23764   t17772 = t492 * t150;
23765   t17773 = t1521 * t17772;
23766   t17776 = t5560 * t3943;
23767   t17779 = t5547 * t3894;
23768   t17782 = t527 * t1786;
23769   t17783 = t1554 * t17782;
23770   t17786 = t5534 * t3959;
23771   t17789 = t509 * t177;
23772   t17790 = t1537 * t17789;
23773   t17793 = t5588 * t3997;
23774   t17796 = t518 * t609;
23775   t17797 = t1545 * t17796;
23776   t17800 = t5601 * t3856;
23777   t17816 = 0.38671210573177680000e4 * t17773 * t17087 + 0.20397109182080256000e6 * t17776 * t4939 - 0.30347672094045936000e5 * t17779 * t4939 + 0.34355855200806720000e4 * t17783 * t17087 - 0.30369533022617400000e6 * t17786 * t4939 + 0.35963920684678500000e5 * t17790 * t17087 + 0.16595643145360406400e6 * t17793 * t4939 - 0.19148819013877392e5 * t17797 * t17087 - 0.39689915040000000000e4 * t17800 * t4939 + 0.168756820333297200e6 * t130 * t132 * t138 - 0.269596205428849200e6 * t1661 * t144 * t151 - 0.29136258152158080e5 * t1677 * t171 * t178 - 0.59939867807797500000e4 * t5449 * t17073 - 0.59939867807797500000e4 * t5449 * t17077;
23778   t17820 = t5647 * t3997;
23779   t17832 = t5656 * t3856;
23780   t17844 = t5504 * t3928;
23781   t17853 = 0.23975947123119000000e4 * t508 * t17789 * t17082 + 0.46504274747987952e5 * t17820 * t17096 - 0.7750712457997992e4 * t8298 * t17070 + 0.2735545573411056e4 * t5452 * t17073 + 0.2735545573411056e4 * t5452 * t17077 - 0.1063823278548744e4 * t516 * t17796 * t17082 - 0.9602398800e3 * t17832 * t17096 + 0.4801199400e3 * t7686 * t17070 - 0.1920479760e3 * t5455 * t17073 - 0.1920479760e3 * t5455 * t17077 + 0.960239880e2 * t482 * t17760 * t17082 - 0.77342421146355360000e4 * t17844 * t17096 + 0.25780807048785120000e4 * t7699 * t17070 - 0.96678026432944200000e3 * t5458 * t17073 - 0.96678026432944200000e3 * t5458 * t17077;
23782   t17858 = t5513 * t3943;
23783   t17867 = t5491 * t1019;
23784   t17870 = t5474 * t993;
23785   t17873 = t5483 * t1006;
23786   t17876 = t5518 * t954;
23787   t17879 = t5613 * t967;
23788   t17882 = t5621 * t980;
23789   t17885 = t5626 * t3894;
23790   t17894 = 0.42968011747975200000e3 * t490 * t17772 * t17082 + 0.55172508443331840e5 * t17858 * t17096 - 0.13793127110832960e5 * t7712 * t17070 + 0.5015682585757440e4 * t5461 * t17073 + 0.5015682585757440e4 * t5461 * t17077 + 0.28343580540665544000e5 * t17867 * t17091 + 0.28771136547742800000e6 * t17870 * t17091 - 0.155926097684430192e6 * t17873 * t17091 + 0.40330074960e4 * t17876 * t17091 + 0.29003407929883260000e5 * t17879 * t17091 - 0.195611620844540160e6 * t17882 * t17091 - 0.85889638002016800000e4 * t17885 * t17096 + 0.12269948286002400000e4 * t7671 * t17070 - 0.42944819001008400000e3 * t5446 * t17073 - 0.42944819001008400000e3 * t5446 * t17077;
23791   t17898 = t501 * t164;
23792   t17899 = t1529 * t17898;
23793   t17905 = t5638 * t3959;
23794   t17937 = t609 * t4891;
23795   t17945 = 0.16359931048003200000e3 * t525 * t17782 * t17082 - 0.25078412928787200e5 * t17899 * t17087 - 0.2089867744065600e4 * t499 * t17898 * t17082 - 0.83915814930916500000e5 * t17905 * t17096 + 0.16783162986183300000e5 * t8285 * t17070 - 0.17376785384000000000e5 * t16558 * t107 * t953 * t1651 + 0.11494272592360800e5 * t7983 * t5353 * t1438 - 0.4597709036944320e4 * t2770 * t5393 * t1483 + 0.766284839490720e3 * t2770 * t1636 * t4832 - 0.278649032542080e3 * t1641 * t17652 * t463 - 0.417973548813120e3 * t1641 * t5400 * t1483 - 0.278649032542080e3 * t1641 * t1642 * t4885 - 0.11923013875206649600e6 * t26 * t556 * t171 * t1018 * t1690 + 0.11188775324122200e5 * t1620 * t17937 * t438 - 0.12357281897149164000e6 * t11156 * t120 * t966 * t1658;
23796   t17958 = t150 * t4945;
23797   t17962 = t164 * t4891;
23798   t17987 = t1786 * t4891;
23799   t17999 = 0.238711176377640e3 * t5386 * t5312 * t1483 - 0.31828156850352e2 * t5386 * t5387 * t4885 - 0.183908361477772800e6 * t2617 * t5394 + 0.45977090369443200e5 * t2617 * t5397 - 0.30651393579628800e5 * t7983 * t17958 * t463 + 0.1432267058265840e4 * t1635 * t17962 * t438 + 0.65696434710250663200e6 * t26 * t552 * t158 * t1005 * t1682 - 0.12149234005913515200e7 * t26 * t546 * t144 * t992 * t1674 + 0.82878349541463735999e6 * t26 * t542 * t132 * t979 * t1666 + 0.39400862168472e2 * t5328 * t5329 * t4885 + 0.3546077595162480e4 * t553 * t162 * t5330 - 0.5673724152259968e4 * t1625 * t17987 * t438 - 0.472810346021664e3 * t5328 * t5631 * t1483 - 0.101316502718928e3 * t1625 * t1626 * t4885 + 0.63829396712924640e5 * t5246 * t5249;
23800   t18010 = t177 * t4945;
23801   t18042 = -0.151974754078392e3 * t1625 * t5379 * t1483 - 0.106559764991640e3 * t5367 * t5368 * t4885 - 0.155014249159959840e6 * t2633 * t5373 + 0.25835708193326640e5 * t2633 * t5376 - 0.27558088739548416e5 * t7931 * t18010 * t463 + 0.6889522184887104e4 * t7931 * t5321 * t1438 - 0.2583570819332664e4 * t2799 * t5372 * t1483 + 0.287063424370296e3 * t2799 * t1621 * t4832 - 0.101316502718928e3 * t1625 * t17676 * t463 + 0.640159920e2 * t5348 * t5509 * t1483 - 0.106693320e2 * t5348 * t5349 * t4885 + 0.25780807048785120e5 * t2610 * t5354 - 0.8593602349595040e4 * t2610 * t5357 + 0.1118877532412220e4 * t5367 * t5652 * t1483 + 0.320079960e2 * t1630 * t5341 * t1483;
23802   t18052 = t150 * t4891;
23803   t18080 = t126 * t4945;
23804   t18090 = 0.213386640e2 * t1630 * t1631 * t4885 - 0.19204797600e4 * t5252 * t5270 - 0.3200799600e3 * t533 * t111 * t5350 + 0.2560639680e3 * t1630 * t18052 * t438 + 0.5180644831867680e4 * t7972 * t609 * t4945 * t463 - 0.1110138178257360e4 * t7972 * t5372 * t1438 + 0.408998276200080e3 * t2813 * t5293 * t1483 - 0.38952216780960e2 * t2813 * t1626 * t4832 + 0.13633275873336e2 * t1615 * t609 * t4832 * t463 + 0.20449913810004e2 * t1615 * t5300 * t1483 + 0.32007996000e4 * t2570 * t5334 - 0.16003998000e4 * t2570 * t5337 + 0.4267732800e3 * t7940 * t18080 * t463 - 0.3200799600e3 * t7940 * t4926 * t1438 + 0.1600399800e3 * t2742 * t5333 * t1483;
23805   t18094 = t126 * t4832;
23806   t18127 = t2733 * t585 * t162;
23807   t18136 = t168 * t594 * t175;
23808   t18145 = t2668 * t603 * t2651;
23809   t18154 = -0.533466600e2 * t2742 * t1430 * t4832 + 0.213386640e2 * t1630 * t18094 * t463 + 0.39392665365523966222e5 * t17561 * t171 * t527 * t530 + 0.35051641846918205333e5 * t1394 * t120 * t492 * t495 + 0.43096198071111111111e4 * t17059 * t107 * t483 * t486 - 0.21296228543110177067e6 * t17554 * t158 * t518 * t521 + 0.38346912762528582667e6 * t17547 * t144 * t509 * t512 - 0.25132852693478291555e6 * t17540 * t132 * t501 * t504 + 0.228213557651963520e6 * t5013 * t148 * t17557 * t463 + 0.97821864262325520000e6 * t18127 * t17557 * t438 - 0.32607288087441840000e6 * t5018 * t162 * t17564 * t463 - 0.519753658948100640e6 * t18136 * t17564 * t438 + 0.173251219649366880e6 * t5023 * t175 * t17571 * t463 + 0.93128907490758216000e5 * t18145 * t17571 * t438 - 0.31042969163586072000e5 * t5028 * t2651 * t609 * t418 * t463;
23810   t18159 = t987 * t170 * t124;
23811   t18168 = t2681 * t119 * t135;
23812   t18177 = t2688 * t576 * t148;
23813   t18182 = t5222 * t119 * t966;
23814   t18205 = t5260 * t594 * t1005;
23815   t18208 = 0.161320299840e5 * t18159 * t16998 * t438 - 0.53773433280e4 * t5002 * t124 * t17543 * t463 + 0.10634582907623862000e6 * t18168 * t17543 * t438 - 0.35448609692079540000e5 * t5007 * t135 * t17550 * t463 - 0.684640672955890560e6 * t18177 * t17550 * t438 - 0.15146224141161258000e6 * t18182 * t5615 - 0.16471071170057160000e4 * t1592 * t5585 + 0.50487413803870860000e5 * t5224 * t5618 + 0.10742002936993800000e3 * t1522 * t18094 * t1425 - 0.48339013216472100000e4 * t5614 * t5341 * t4811 - 0.35806676456646000000e2 * t493 * t137 * t4885 * t1425 + 0.16113004405490700000e4 * t1656 * t5584 * t4811 - 0.13829702621133672000e5 * t5589 * t5594 + 0.79695561038708764800e6 * t18205 * t5485;
23816   t18212 = t5426 * t585 * t509;
23817   t18218 = t5431 * t576 * t501;
23818   t18226 = t498 * t120;
23819   t18227 = t18226 * t501;
23820   t18228 = t137 * t4945;
23821   t18239 = t5407 * t603 * t527;
23822   t18245 = t4772 * t119 * t492;
23823   t18251 = t5416 * t170 * t483;
23824   t18256 = 0.13524627374057788800e6 * t5423 * t1550 + 0.73916956982534280000e6 * t18212 * t1539 - 0.24638985660844760000e6 * t5428 * t1542 - 0.49311590458863424000e6 * t18218 * t1531 - 0.859360234959504e3 * t1635 * t5387 * t17076 - 0.28046025125360352000e6 * t8048 * t5515 - 0.45977090369443200e5 * t18227 * t18228 * t1425 - 0.9195418073888640e4 * t2770 * t1642 * t16958 + 0.4179735488131200e4 * t1641 * t1621 * t16919 + 0.74433141843123448000e5 * t18239 * t1556 - 0.24811047281041149333e5 * t5409 * t1560 + 0.70873348266521316000e5 * t18245 * t1523 - 0.23624449422173772000e5 * t5413 * t1526 + 0.92752059520000000000e4 * t18251 * t1515 - 0.30917353173333333333e4 * t5418 * t1518;
23825   t18259 = t5421 * t594 * t518;
23826   t18298 = -0.40573882122173366400e6 * t18259 * t1547 - 0.9118485244703520e4 * t5246 * t5380 + 0.1063823278548744e4 * t1625 * t5300 * t1453 - 0.9118485244703520e4 * t5246 * t5383 - 0.1432267058265840e4 * t536 * t124 * t5388 + 0.22988545184721600e5 * t2770 * t5321 * t1453 - 0.16718941952524800e5 * t5279 * t5401 + 0.2089867744065600e4 * t1641 * t5282 * t1453 - 0.16718941952524800e5 * t5279 * t5404 - 0.1920479760e3 * t1630 * t1636 * t16919 + 0.99224787600000000000e3 * t1585 * t5501 - 0.1280319840e3 * t484 * t18052 * t1425 + 0.39530570808137184000e5 * t8041 * t5506 - 0.55943876620611000000e4 * t510 * t17937 * t1425 - 0.4795189424623800e4 * t1620 * t5368 * t17076;
23827   t18301 = t515 * t144;
23828   t18302 = t18301 * t518;
23829   t18303 = t164 * t4945;
23830   t18343 = -0.23510494455927242400e6 * t8004 * t5649 - 0.41337133109322624e5 * t18302 * t18303 * t1425 - 0.5167141638665328e4 * t2799 * t1626 * t16958 + 0.2127646557097488e4 * t1625 * t1616 * t16919 - 0.32269306115978568000e5 * t1607 * t5653 + 0.2836862076129984e4 * t519 * t17987 * t1425 + 0.16437196819621141333e6 * t5433 * t1534 - 0.71613352913292000000e3 * t493 * t17962 * t1425 - 0.3271986209600640e4 * t2813 * t1786 * t1418 * t1453 - 0.4801199400e3 * t2742 * t5353 * t1453 + 0.6401599200e3 * t5252 * t5342 - 0.960239880e2 * t1630 * t5360 * t1453 + 0.6401599200e3 * t5252 * t5345 - 0.7991982374373000e4 * t547 * t148 * t5369 + 0.18084995735328648e5 * t2799 * t5293 * t1453;
23831   t18351 = t5119 * t4891;
23832   t18362 = t507 * t132;
23833   t18363 = t18362 * t509;
23834   t18367 = t489 * t107;
23835   t18368 = t18367 * t492;
23836   t18379 = t524 * t158;
23837   t18380 = t18379 * t527;
23838   t18389 = t481 * t68;
23839   t18390 = t18389 * t483;
23840   t18395 = -0.327198620960064e3 * t1615 * t5236 * t16919 + 0.57805089702944640000e4 * t1612 * t5632 - 0.49079793144009600000e3 * t528 * t18351 * t1425 - 0.42493977462667200000e5 * t1597 * t5635 + 0.4179735488131200e4 * t502 * t17167 * t1425 + 0.42517346231664360000e6 * t8055 * t5640 + 0.72727039606794300000e5 * t18363 * t17958 * t1425 + 0.60155216447165280000e4 * t18368 * t18080 * t1425 + 0.1718720469919008e4 * t2756 * t1636 * t16958 + 0.65884284680228640000e4 * t1592 * t5510 + 0.43353817277208480000e5 * t8011 * t5628 + 0.77709672478015200000e4 * t18380 * t18010 * t1425 + 0.817996552400160e3 * t2813 * t1616 * t16958 + 0.49612393800000000000e4 * t7518 * t5658 + 0.6401599200e3 * t18390 * t113 * t4945 * t1425;
23841   t18405 = t164 * t4832;
23842   t18438 = 0.3200799600e3 * t2742 * t1631 * t16958 + 0.60739066045234800000e5 * t1602 * t5644 + 0.46099008737112240000e4 * t1607 * t5598 - 0.26565187012902921600e6 * t5262 * t5488 - 0.151974754078392e3 * t1546 * t18405 * t1425 + 0.12993841473702516e5 * t5484 * t5282 * t4811 + 0.11188775324122200e5 * t2785 * t1621 * t16958 + 0.4010347763144352e4 * t7952 * t18228 * t463 - 0.2005173881572176e4 * t7952 * t5333 * t1438 + 0.859360234959504e3 * t2756 * t5353 * t1483 - 0.190968941102112e3 * t2756 * t1631 * t4832 + 0.71613352913292e2 * t1635 * t17704 * t463 + 0.107420029369938e3 * t1635 * t5360 * t1483 + 0.71613352913292e2 * t1635 * t1636 * t4885 - 0.12890403524392560e5 * t5273 * t5276;
23843   t18481 = 0.28629879334005600e5 * t2641 * t5294 - 0.4089982762000800e4 * t2641 * t5297 + 0.6966225813552000e4 * t543 * t135 * t5318 - 0.1044933872032800e4 * t5316 * t5643 * t1483 + 0.116103763559200e3 * t5316 * t5317 * t4885 + 0.279719383103055000e6 * t2625 * t5322 - 0.55943876620611000e5 * t2625 * t5325 - 0.545331034933440e3 * t557 * t175 * t5309 + 0.981595862880192e3 * t1615 * t18351 * t438 + 0.70113990205728e2 * t5307 * t5119 * t1453 * t1483 - 0.5193628904128e1 * t5307 * t5308 * t4885 + 0.83594709762624000e5 * t5279 * t5313 + 0.48484693071196200e5 * t7948 * t18303 * t463 - 0.14545407921358860e5 * t7948 * t5393 * t1438 + 0.5594387662061100e4 * t2785 * t5321 * t1483;
23844   t18509 = -0.745918354941480e3 * t2785 * t1642 * t4832 + 0.266399412479100e3 * t1620 * t18405 * t463 + 0.399599118718650e3 * t1620 * t5282 * t1483 + 0.266399412479100e3 * t1620 * t1621 * t4885 - 0.119879735615595000e6 * t5240 * t5243 + 0.13633275873336e2 * t1615 * t1616 * t4885 - 0.11451951733602240e5 * t5232 * t5237 - 0.38419200000000000000e3 * t17067 + 0.72036000000000000000e2 * t17071 - 0.36018000000000000000e2 * t17074 - 0.36018000000000000000e2 * t17078 + 0.24012000000000000000e2 * t17083 + 0.72036000000000000000e2 * t17088 + 0.43221600000000000000e3 * t17092 - 0.72036000000000000000e2 * t17097;
23845   t18520 = t1490 * t184 * t1486;
23846   t18533 = t5673 * t4950;
23847   t18537 = 0.1e1 / t1840 / t1498;
23848   t18553 = t1838 * t1838;
23849   t18554 = params->d * t18553;
23850   t18555 = t1840 * t1840;
23851   t18556 = 0.1e1 / t18555;
23852   t18560 = t17101 * t184 * t616 * t617 - 0.6e1 * t17109 * t1830 * t184 * t616 - 0.3e1 * t17109 * t1839 * t184 * t1841 - 0.36e2 * t17115 * t1839 * t184 * t5691 - 0.12e2 * t17115 * t184 * t18537 * t5689 - t17115 * t184 * t18554 * t18556 - 0.24e2 * t17115 * t184 * t5678 * t616 + 0.36e2 * t8315 * t18520 + 0.36e2 * t8323 * t18520 + 0.6e1 * t8335 * t18520 - 0.8e1 * t2835 * t18533 - 0.4e1 * t2843 * t18533;
23853   t18561 = my_piecewise3(t102, t17732 + t17189 + t18343 + t17262 + t17369 + t17220 + t17299 + t17479 + t17767 + t18256 + t17435 + t18481 + t18298 + t17575 + t17945 + t17352 + t18395 + t17509 + t18438 + t17327 + t17397 + t18509 + t17638 + t17999 + t18042 + t18090 + t18154 + t17894 + t18208 + t17684 + t17853 + t17816, t18560);
23854   t18564 = -0.24e2 * t16741 * t16742 * t187 + 0.36e2 * t4747 * t1371 * t1506 - 0.24e2 * t4747 * t4748 * t621 - 0.6e1 * t1369 * t16752 * t187 + 0.24e2 * t1369 * t1509 * t1506 - 0.8e1 * t1369 * t478 * t4977 + 0.12e2 * t1369 * t1370 * t1846 + t405 * (0.26180e5 / 0.19683e5 * t24 * t16676 + 0.5225e4 / 0.1458e4 * t40 * t41 * t16559 * t52 - 0.5929e4 / 0.288e3 * t420 * t421 / t987 * t52 + 0.2949e4 / 0.640e3 * t1393 / t1590 * t19 * t1397 - 0.1053e4 / 0.3200e4 * t4781 / t2682 * t36 * t4784 + 0.6561e4 / 0.160000e6 * t16789 * t1392 * t41 / t131 * t52 + 0.6e1 * t16796 + 0.8e1 * t474 * t4974 + 0.2e1 * t94 * t17140) * t187 - 0.4e1 * t405 * t4977 * t621 - 0.6e1 * t405 * t1506 * t1846 - 0.4e1 * t405 * t477 * t5696 - t101 * t18561 + 0.1174e1 * t18561;
23855   t18569 = t7438 * t5842;
23856   t18576 = t5857 * t5849;
23857   t18578 = t5857 * t5826;
23858   t18590 = t624 * t5836 * t5830;
23859   t18594 = 0.12920861304452160000e4 * t5888 * t386 * t5832 * t638 * t203 - 0.2e1 / 0.3e1 * t16729 - 0.2e1 / 0.3e1 * t1885 * t649 * t5816 * t650 + t16738 - 0.3e1 / 0.8e1 * t8 * t18 * t18564 * t204 - 0.79166400000000000000e3 * t18569 + 0.83124720000000000000e4 * t2866 * t5838 * t2878 * t913 * t203 + 0.22049033614354461380e1 * t18576 + 0.32216644838286502748e3 * t18578 - 0.96649934514859508241e3 * t1874 * t5824 * t61 * t1878 + 0.48324967257429754121e3 * t1874 * t1849 * t1035 * t1876 * t1878 - 0.23749920000000000000e4 * t2866 * t18590 * t5841;
23860   t18601 = t624 * t19 * t38;
23861   t18607 = t193 * t203;
23862   t18611 = t1180 * t1355;
23863   t18612 = t5 * t18611;
23864   t18613 = t18612 * t1879;
23865   t18615 = t5857 * t5853;
23866   t18626 = t1325 * t1331 * t5711;
23867   t18638 = t5748 * t10;
23868   t18640 = t9 / t18638;
23869   t18642 = -0.12e2 * t5749 + 0.12e2 * t18640;
23870   t18647 = t1923 * t392;
23871   t18648 = t385 * t18647;
23872   t18650 = -0.88196134457417845518e1 * t1874 * t5846 * t1035 * t29 * t203 + 0.66147100843063384139e1 * t1874 * t18601 * t5848 + 0.17527082181762906534e4 * t1874 * t190 * t196 * t4027 * t18607 - 0.10738881612762167582e3 * t18613 - 0.32216644838286502747e3 * t18615 + 0.10291428212230410600e4 * t1874 * t1875 * t29 * t1878 + 0.2e1 / 0.3e1 * t5735 * t386 * t1327 * t1349 - 0.2e1 / 0.3e1 * t18626 - 0.2e1 * t1325 * t1335 * t5711 - 0.2e1 / 0.3e1 * t1325 * t386 * t392 * t5752 - 0.12920861304452160000e4 * t5888 * t1335 * t5891 - t385 * t386 * t204 * t18642 / 0.2e1 - 0.20e2 / 0.27e2 * t18648;
23873   t18652 = t14 * t14;
23874   t18656 = t5 * t7 / t1322 / t18652;
23875   t18657 = t1326 * t1326;
23876   t18663 = t5735 * t1331 * t5737;
23877   t18666 = t1325 * t5744 * t1327;
23878   t18668 = t1349 * t1349;
23879   t18673 = t209 * t209;
23880   t18677 = t5 * t7 / t1882 / t18673;
23881   t18678 = t1886 * t1886;
23882   t18684 = t5718 * t1891 * t5720;
23883   t18687 = t1885 * t5727 * t1887;
23884   t18689 = t1895 * t1895;
23885   t18701 = t8 * t1356 * t1850;
23886   t18706 = 0.10e2 / 0.27e2 * t8 * t211 * t6000 * t378;
23887   t18707 = -0.5e1 / 0.27e2 * t18656 * t386 * t204 * t18657 + 0.4e1 / 0.27e2 * t18663 + 0.2e1 / 0.9e1 * t18666 - t1325 * t386 * t204 * t18668 / 0.2e1 - 0.5e1 / 0.27e2 * t18677 * t649 * t377 * t18678 + 0.4e1 / 0.27e2 * t18684 + 0.2e1 / 0.9e1 * t18687 - t1885 * t649 * t377 * t18689 / 0.2e1 - 0.3e1 * t385 * t5802 * t1350 - 0.2e1 * t385 * t1335 * t5753 + t18701 / 0.2e1 + t18706;
23888   t18708 = t397 * t1849;
23889   t18710 = t385 * t18708 * t392;
23890   t18713 = t385 * t5744 * t1350;
23891   t18715 = t1355 * t624;
23892   t18717 = t385 * t18715 * t392;
23893   t18720 = t1325 * t5809 * t1327;
23894   t18728 = t385 * t1331 * t5753;
23895   t18731 = t385 * t5809 * t1350;
23896   t18734 = t648 * t5727 * t1896;
23897   t18741 = t1938 * t651;
23898   t18742 = t648 * t18741;
23899   t18744 = t17 * t5699;
23900   t18749 = t648 * t1891 * t5816;
23901   t18751 = -0.2e1 * t18710 + 0.2e1 / 0.3e1 * t18713 + 0.4e1 / 0.3e1 * t18717 - 0.2e1 / 0.3e1 * t18720 + 0.4e1 / 0.9e1 * t5735 * t1335 * t5737 - t1325 * t5802 * t1327 - 0.2e1 / 0.3e1 * t18728 - 0.2e1 * t18731 + 0.2e1 / 0.3e1 * t18734 + t648 * t649 * t377 * t18642 / 0.2e1 - 0.20e2 / 0.27e2 * t18742 - 0.2e1 * t385 * t18744 * t392 - 0.2e1 / 0.3e1 * t18749;
23902   t18758 = 0.66147100843063384139e1 * t5850 - 0.96649934514859508241e3 * t5854 + 0.32216644838286502748e3 * t5858 - 0.13194400000000000000e2 * t5866 - 0.26388800000000000000e2 * t5871 - 0.79166400000000000000e2 * t5875 - 0.39583200000000000000e2 * t5880 - 0.47499840000000000000e3 * t5884 + t10 * (t16582 + t16625 + t16671 + t16720 + t18594 + t18650 + t18707 + t18751) + 0.69270600000000000000e2 * t5886 - 0.12920861304452160000e4 * t5893;
23903   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23904     v4rho4[0] = t16486 + t16498 + t16511 + t18758;
23905 
23906   t18766 = t634 * t5860 * t2867;
23907   t18768 = t1375 * t203;
23908   t18775 = t634 * t5860 * t624 * t638;
23909   t18778 = t662 * t1349;
23910   t18783 = t1895 * t650;
23911   t18789 = t634 * t16569 * t5975;
23912   t18790 = t662 * t1326;
23913   t18796 = t634 * t16577 * t5975;
23914   t18797 = t18796 * t5982;
23915   t18801 = t634 * t1323 * t1922 * t5975;
23916   t18802 = t9 * t391;
23917   t18811 = t8 * t6038;
23918   t18812 = t5772 * t9;
23919   t18817 = t634 * t4734 * t366;
23920   t18818 = t18817 * t902;
23921   t18828 = t16662 * t6031;
23922   t18830 = 0.76967333333333333332e1 * t5977 * t5978 * t1867 * t203 * t5980 - 0.39583199999999999999e2 * t18766 * t24 * sigma[0] * t18768 * t5980 - 0.65972000000000000000e1 * t18775 * t5982 - 0.32985999999999999999e1 * t5977 * t5978 * t5979 * t18778 - 0.32985999999999999999e1 * t6084 * t6085 * t6086 * t18783 + 0.21990666666666666666e1 * t18789 * t5978 * t5979 * t18790 - 0.21990666666666666666e1 * t18797 - 0.65972000000000000000e1 * t18801 * t5978 * t5979 * t18802 - 0.5e1 / 0.12e2 * t16525 - 0.32216644838286502746e3 * t5769 * t16658 * t6030 + 0.32216644838286502747e3 * t18811 * t5771 * t18812 - 0.91627777777777777779e0 * t18818 - 0.79166400000000000000e3 * t1340 * t16628 * t16629 * t662 + 0.22049033614354461380e1 * t5769 * t16634 * t16635 * t662 + 0.10738881612762167582e3 * t18828;
23923   t18840 = t8 * t4734 * t889;
23924   t18842 = t210 * t6000;
23925   t18844 = t8 * t18842 * t378;
23926   t18846 = t15 * t6000;
23927   t18848 = t8 * t18846 * t205;
23928   t18851 = t634 * t5928 * t624;
23929   t18854 = t16585 * t1918;
23930   t18857 = t634 * t18846 * t190;
23931   t18858 = t18857 * t6042;
23932   t18862 = t5870 * t6035;
23933   t18864 = t6070 * t6055;
23934   t18866 = t5772 * t5980;
23935   t18870 = t5870 * t6063;
23936   t18872 = 0.32216644838286502747e3 * t16640 * t6031 - 0.98958000000000000000e1 * t6039 * t644 - t16533 / 0.8e1 - 0.3e1 / 0.2e1 * t8 * t5928 * t625 - 0.5e1 / 0.36e2 * t18840 - 0.5e1 / 0.2e1 * t18844 + 0.5e1 / 0.2e1 * t18848 - 0.19791600000000000000e2 * t18851 * t6042 + 0.21990666666666666666e1 * t18854 + 0.23090200000000000000e2 * t18858 + 0.23090200000000000000e2 * t5874 * t6035 + 0.76967333333333333332e1 * t18862 - 0.32985999999999999999e1 * t18864 + 0.10738881612762167582e3 * t16649 * t5771 * t18866 - 0.39583199999999999999e2 * t18870;
23937   t18876 = t376 * t5815;
23938   t18883 = t634 * t210 * t1355 * t366;
23939   t18884 = t18883 * t1956;
23940   t18888 = t16548 * t1918;
23941   t18898 = t5716 * t17;
23942   t18900 = t634 * t18898 * t366;
23943   t18901 = t376 * t5719;
23944   t18906 = t1883 * t397;
23945   t18908 = t634 * t18906 * t366;
23946   t18909 = t18908 * t6050;
23947   t18923 = -0.11874960000000000000e3 * t5874 * t6063 - 0.32986000000000000000e1 * t1953 * t898 * t900 * t18876 + 0.21990666666666666666e1 * t18884 - 0.98958000000000000000e1 * t16598 * t1918 - 0.65972000000000000000e1 * t18888 + 0.27708240000000000000e3 * t1340 * t1862 * t4759 * t1916 - 0.11874960000000000000e3 * t6039 * t1862 * t1376 * t6040 + 0.73302222222222222220e0 * t18900 * t898 * t900 * t18901 - 0.10995333333333333333e1 * t18909 - 0.25655777777777777778e2 * t1340 * t640 * t5791 * t1916 + 0.23090200000000000000e2 * t6039 * t640 * t1868 * t6040 - 0.65972000000000000000e1 * t16549 - 0.10995333333333333333e1 * t16580 + 0.43981333333333333332e1 * t16586 - 0.32985999999999999999e1 * t16595;
23948   t18936 = t16712 * t662;
23949   t18941 = t5 * t5734 * t17;
23950   t18947 = t5 * t5717 * t17;
23951   t18948 = t667 * t1895;
23952   t18953 = t1923 * t663;
23953   t18954 = t385 * t18953;
23954   t18956 = -0.39583199999999999999e2 * t16605 + 0.76967333333333333331e1 * t16609 - 0.27488333333333333333e1 * t16623 - 0.24739500000000000000e1 * t16645 + 0.10738881612762167582e3 * t16663 + 0.57725500000000000000e1 * t16672 - 0.64139444444444444443e1 * t16681 + 0.69270600000000000000e2 * t16688 + 0.32985999999999999999e1 * t16701 + 0.19791600000000000000e2 * t16703 - 0.29687400000000000000e2 * t16705 - 0.38483666666666666666e1 * t16707 - 0.43069537681507199998e3 * t16710 * t16711 * t18936 + t18941 * t205 * t5980 * t1349 / 0.3e1 + t18947 * t378 * t18948 * t650 / 0.3e1 - 0.5e1 / 0.27e2 * t18954;
23955   t18960 = 0.1e1 / t396 / t5748;
23956   t18963 = t385 * t18960 * t190 * t1924;
23957   t18967 = t385 * t6000 * t624 * t1924;
23958   t18976 = t385 * t18715 * t663;
23959   t18977 = t18976 / 0.3e1;
23960   t18979 = t385 * t18708 * t663;
23961   t18981 = t1938 * t668;
23962   t18982 = t648 * t18981;
23963   t18988 = t1885 * t6008 * t1887;
23964   t18990 = t1355 * t888;
23965   t18992 = t648 * t18990 * t651;
23966   t18993 = t18992 / 0.3e1;
23967   t19001 = t648 * t18960 * t366 * t1939;
23968   t19006 = -0.25e2 / 0.6e1 * t18963 + 0.7e1 / 0.2e1 * t18967 - 0.10767384420376800000e3 * t16718 - t16729 / 0.6e1 - 0.3e1 / 0.2e1 * t385 * t1922 * t1849 * t1924 + t18977 - t18979 / 0.2e1 - 0.5e1 / 0.27e2 * t18982 + t5718 * t1944 * t5720 / 0.9e1 - t18988 / 0.6e1 + t18993 + t1885 * t18741 / 0.2e1 - t385 * t18744 * t663 / 0.2e1 + 0.25e2 / 0.6e1 * t19001 - t648 * t1944 * t5816 / 0.2e1;
23969   t19010 = t648 * t6008 * t1896;
23970   t19024 = -t1325 * t18647 / 0.2e1 - t19010 / 0.2e1 + t16738 - 0.19791600000000000000e3 * t18569 + 0.55122584035886153449e0 * t18576 + 0.80541612095716256868e2 * t18578 - 0.53694408063810837911e2 * t18613 - 0.80541612095716256867e2 * t18615 - t18626 / 0.6e1 - 0.5e1 / 0.9e1 * t18648 + t18663 / 0.27e2 + t18666 / 0.9e1 + t18684 / 0.27e2 + t18687 / 0.9e1 + t18701 / 0.4e1 + t18706;
23971   t19034 = t1325 * t1331 * t5955;
23972   t19046 = t1885 * t5727 * t1931;
23973   t19047 = t19046 / 0.9e1;
23974   t19063 = t1325 * t5809 * t1906;
23975   t19070 = t1325 * t5744 * t1906;
23976   t19071 = t19070 / 0.9e1;
23977   t19073 = t1325 * t6001 * t5947;
23978   t19075 = -t1325 * t1335 * t5955 / 0.2e1 - t1325 * t386 * t663 * t5752 / 0.6e1 - t19034 / 0.6e1 - t1325 * t5993 * t5947 - t1325 * t1923 * t1924 * t1349 / 0.2e1 - t1325 * t5802 * t1906 / 0.2e1 + t19047 - t1885 * t1944 * t5707 / 0.2e1 - t1885 * t649 * t668 * t5815 / 0.6e1 + t1885 * t1938 * t1939 * t1895 / 0.2e1 + t5735 * t1335 * t5940 / 0.3e1 - t19063 / 0.3e1 + t5735 * t1923 * t1924 * t1326 / 0.3e1 + t19071 + 0.7e1 / 0.6e1 * t19073;
23979   t19081 = t5718 * t1891 * t5933;
23980   t19088 = t5735 * t1331 * t5940;
23981   t19091 = t1885 * t1891 * t5959;
23982   t19098 = t1885 * t6018 * t5963;
23983   t19109 = -0.5e1 / 0.27e2 * t18677 * t649 * t668 * t5719 + t19081 / 0.9e1 - 0.5e1 / 0.27e2 * t18656 * t386 * t663 * t5736 + t19088 / 0.9e1 - t19091 / 0.6e1 - t5718 * t1938 * t1939 * t1886 / 0.3e1 - 0.7e1 / 0.6e1 * t19098 - t18710 / 0.2e1 + t18713 / 0.3e1 + 0.2e1 / 0.3e1 * t18717 - t18720 / 0.6e1 - t18728 / 0.6e1 - t18731 / 0.2e1 + t18734 / 0.3e1 - 0.5e1 / 0.9e1 * t18742 - t18749 / 0.6e1;
23984   t19119 = t5938 / 0.3e1;
23985   t19121 = t5945 / 0.3e1;
23986   t19124 = -t16476 + t10 * (t18830 + t18872 + t18923 + t18956 + t19006 + t19024 + t19075 + t19109) - 0.3e1 / 0.4e1 * t4739 - t16478 + t6237 + 0.3e1 / 0.2e1 * t5926 - 0.3e1 / 0.2e1 * t5930 - t5703 + 0.3e1 / 0.4e1 * t5705 + t5935 / 0.3e1 - t19119 + t5942 / 0.3e1 - t19121 - t5949 - t5953 - t5957 / 0.2e1 - t5710 - t5714 - t5961 / 0.2e1;
23987   t19133 = t5965 + t5723 - t5725 / 0.3e1 + t5729 + t5740 - t5742 / 0.3e1 + t5746 - t5756 - t5760 - t5762 - 0.98958000000000000000e1 * t5765 - 0.59374800000000000000e2 * t5767 + t5776 + 0.49479000000000000000e1 * t5779 + 0.11545100000000000000e2 * t5781 + t5788 - t5795 - 0.65972000000000000000e1 * t5983 - 0.3e1 / 0.2e1 * t5988;
23988   t19143 = -t5991 - 0.3e1 * t5995 + t6276 + 0.7e1 / 0.2e1 * t6003 - t6006 / 0.2e1 - t6010 + t6277 - 0.3e1 / 0.2e1 * t6016 - 0.7e1 / 0.2e1 * t6020 - t5798 - t5800 - t5805 - t5808 - 0.2e1 * t5811 - t5813 - t5819 + t6308 + 0.32216644838286502747e3 * t6032 + 0.23090200000000000000e2 * t6036;
23989   t19147 = 0.65972000000000000000e1 * t6058;
23990   t19152 = 0.65972000000000000000e1 * t6071;
23991   t19153 = -0.19791600000000000000e2 * t6043 - 0.32986000000000000000e1 * t6051 + t5823 - 0.98958000000000000000e1 * t6056 - t19147 - 0.19791600000000000000e2 * t6060 - 0.11874960000000000000e3 * t6064 + t5828 - t5844 + t5851 - t5855 + 0.16108322419143251374e3 * t5858 - t5867 - 0.13194400000000000000e2 * t5871 - t5876 - t5881 - t5885 - t19152 + t5887 - t5894;
23992   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23993     v4rho4[1] = t19124 + t19133 + t19143 + t19153;
23994 
23995   t19171 = -t16476 - 0.43981333333333333334e1 * t6090 - t4739 / 0.4e1 - t16478 + t5922 / 0.2e1 + t5926 - t5930 + t5705 / 0.2e1 - 0.2e1 / 0.3e1 * t6096 + 0.2e1 / 0.9e1 * t5935 - 0.4e1 / 0.9e1 * t5938 + 0.2e1 / 0.9e1 * t5942 - 0.4e1 / 0.9e1 * t5945 - 0.2e1 / 0.3e1 * t5949 - 0.2e1 / 0.3e1 * t5953 - t5957 / 0.3e1 - t5961 / 0.3e1 + 0.2e1 / 0.3e1 * t5965 - t5725 / 0.9e1 + 0.2e1 / 0.3e1 * t5729;
23996   t19190 = -t5988 - 0.4e1 / 0.3e1 * t5991 - 0.2e1 * t5995 + 0.2e1 / 0.3e1 * t5997 + 0.5e1 / 0.3e1 * t6003 - t6006 / 0.3e1 - 0.4e1 / 0.3e1 * t6010 + 0.2e1 / 0.3e1 * t6013 - t6016 - 0.5e1 / 0.3e1 * t6020 - t5800 / 0.3e1;
23997   t19215 = -0.21990666666666666667e1 * t6051 - 0.65972000000000000000e1 * t6056 - 0.87962666666666666667e1 * t6058 - 0.13194400000000000000e2 * t6060 - 0.79166400000000000000e2 * t6064 + 0.2e1 / 0.9e1 * t6141 + 0.2e1 / 0.3e1 * t6145 - 0.2e1 / 0.3e1 * t6148 - t6152 / 0.3e1 + 0.2e1 / 0.9e1 * t6156 - t6160 / 0.3e1;
23998   t19239 = t203 * t6165;
23999   t19244 = t16579 * t6204;
24000   t19260 = t5870 * t6209;
24001   t19269 = t8 * t6069;
24002   t19270 = t19269 * t6132;
24003   t19272 = t8 * t6046;
24004   t19273 = t6130 * t1886;
24005   t19280 = t634 * t1900 * t888;
24006   t19281 = t19280 * t902;
24007   t19283 = -0.14660444444444444444e1 * t18797 - 0.65972000000000000000e1 * t5874 * t6209 - 0.65972000000000000000e1 * t1340 * t640 * t642 * t19239 - 0.73302222222222222221e0 * t19244 - 0.13194400000000000000e2 * t5862 * t1862 * t1376 * t6202 - 0.39583200000000000000e2 * t1340 * t1862 * t1376 * t6207 - 0.65972000000000000000e1 * t6199 * t6055 + 0.76967333333333333333e1 * t1953 * t898 * t2494 * t6053 - 0.21990666666666666666e1 * t19260 - 0.21990666666666666666e1 * t16544 * t6204 - 0.39583200000000000000e2 * t1953 * t2488 * t2007 * t6053 - 0.5e1 / 0.18e2 * t16525 + 0.71592544085081117215e2 * t19270 + 0.35796272042540558607e2 * t19272 * t6129 * t19273 + 0.65972000000000000000e1 * t6213 * t902 + 0.10995333333333333333e1 * t19281;
24008   t19284 = t6027 * t2496;
24009   t19286 = t6027 * t2490;
24010   t19288 = t5772 * t1967;
24011   t19292 = t5772 * t1973;
24012   t19296 = t6130 * t1895;
24013   t19305 = t8 * t1900 * t2476;
24014   t19310 = t18883 * t1988;
24015   t19317 = t634 * t18842 * t366;
24016   t19318 = t19317 * t6216;
24017   t19328 = -0.12827888888888888889e1 * t19284 + 0.65972000000000000000e1 * t19286 + 0.35796272042540558607e2 * t16649 * t5771 * t19288 + 0.10738881612762167582e3 * t5769 * t5771 * t19292 + 0.10738881612762167582e3 * t6127 * t6129 * t19296 - 0.18325555555555555555e1 * t18818 + 0.71592544085081117217e2 * t18828 + t8 * t5924 * t889 + t19305 / 0.12e2 - 0.5e1 / 0.18e2 * t18840 + t18844 / 0.3e1 - t18848 / 0.3e1 + 0.14660444444444444445e1 * t19310 + 0.76967333333333333333e1 * t1340 * t640 * t1868 * t6207 - 0.15393466666666666666e2 * t19318 + 0.25655777777777777777e1 * t5862 * t640 * t1868 * t6202 + 0.25655777777777777778e1 * t6047 * t898 * t2494 * t6048;
24018   t19330 = t6070 * t6225;
24019   t19333 = t634 * t6045 * t888;
24020   t19337 = t634 * t6068 * t888;
24021   t19338 = t19337 * t1956;
24022   t19344 = t6070 * t6221;
24023   t19358 = 0.51311555555555555555e1 * t19330 - 0.21990666666666666667e1 * t19333 * t6050 - 0.43981333333333333334e1 * t19338 - 0.13194400000000000000e2 * t6047 * t2488 * t2007 * t6048 - 0.26388800000000000000e2 * t19344 + 0.29320888888888888889e1 * t18854 - 0.43981333333333333334e1 * t18858 + 0.51311555555555555556e1 * t18862 - 0.21990666666666666667e1 * t18864 - 0.26388800000000000000e2 * t18870 + 0.29320888888888888889e1 * t18884 - 0.43981333333333333334e1 * t18888 - 0.73302222222222222223e0 * t18909 + 0.14660444444444444444e1 * t16586 - 0.18325555555555555556e1 * t16623 + 0.10995333333333333333e1 * t16701 + 0.65972000000000000000e1 * t16703;
24024   t19361 = t634 * t18898 * t6082;
24025   t19362 = t667 * t1886;
24026   t19368 = t634 * t18906 * t6082;
24027   t19369 = t19368 * t6089;
24028   t19377 = t634 * t1883 * t1922 * t6082;
24029   t19378 = t9 * t650;
24030   t19383 = t1967 * t391;
24031   t19388 = t1973 * t391;
24032   t19393 = t662 * t9;
24033   t19425 = t1885 * t6018 * t6143;
24034   t19430 = -0.12827888888888888889e1 * t16707 + 0.14660444444444444445e1 * t19361 * t6085 * t6086 * t19362 - 0.14660444444444444445e1 * t19369 - 0.21990666666666666667e1 * t6084 * t6085 * t6086 * t18948 + 0.43981333333333333334e1 * t19377 * t6085 * t6086 * t19378 + 0.14660444444444444444e1 * t18789 * t5978 * t5979 * t19383 - 0.21990666666666666666e1 * t5977 * t5978 * t5979 * t19388 - 0.43981333333333333333e1 * t18801 * t5978 * t5979 * t19393 + 0.2e1 / 0.9e1 * t5735 * t1335 * t6154 + t5735 * t386 * t1968 * t1349 / 0.9e1 - t1325 * t386 * t1974 * t1349 / 0.6e1 - t1885 * t1944 * t5959 / 0.3e1 - t1885 * t649 * t1992 * t1895 / 0.6e1 - t1325 * t386 * t6166 * t391 / 0.3e1 + t5718 * t649 * t1979 * t1895 / 0.9e1 - 0.7e1 / 0.9e1 * t19425 - t648 * t6111 * t1896 / 0.2e1;
24035   t19439 = 0.1e1 / t396 / t18638;
24036   t19441 = t9 * t9;
24037   t19447 = t1325 * t5809 * t1968;
24038   t19455 = t1325 * t5744 * t1968;
24039   t19458 = t385 * t5744 * t1974;
24040   t19463 = t648 * t18990 * t668;
24041   t19466 = t648 * t5727 * t1992;
24042   t19469 = t385 * t1331 * t6166;
24043   t19472 = t1885 * t5727 * t1979;
24044   t19489 = -t385 * t5802 * t1974 / 0.2e1 - t385 * t1335 * t6166 - t1885 * t19439 * t366 * t377 * t19441 / 0.3e1 - t19447 / 0.9e1 - t1325 * t5802 * t1968 / 0.6e1 - t1325 * t18953 / 0.3e1 + t19455 / 0.27e2 + t19458 / 0.9e1 + t1885 * t18981 / 0.3e1 + 0.2e1 / 0.9e1 * t19463 + t19466 / 0.9e1 - t19469 / 0.3e1 + t19472 / 0.27e2 - 0.4e1 / 0.9e1 * t5 * t5717 * t1922 * t378 * t6087 * t9 + 0.4e1 / 0.9e1 * t5 * t5734 * t1922 * t205 * t5980 * t9 - t1885 * t6111 * t1887 / 0.6e1;
24045   t19490 = t397 * t2475;
24046   t19492 = t648 * t19490 * t651;
24047   t19495 = t385 * t5809 * t1974;
24048   t19504 = t648 * t6000 * t888 * t1939;
24049   t19507 = t648 * t1891 * t6107;
24050   t19517 = t5718 * t1891 * t6139;
24051   t19533 = t5735 * t1331 * t6154;
24052   t19536 = t1325 * t6001 * t6094;
24053   t19542 = -t19492 / 0.3e1 - t19495 / 0.3e1 - t1325 * t19439 * t190 * t204 * t19441 / 0.3e1 - 0.7e1 / 0.3e1 * t19504 - t19507 / 0.3e1 - 0.10e2 / 0.27e2 * t18954 - 0.41e2 / 0.9e1 * t18963 - 0.2e1 / 0.3e1 * t18967 - 0.5e1 / 0.27e2 * t18677 * t649 * t1979 * t1886 + 0.2e1 / 0.27e2 * t19517 + 0.2e1 / 0.3e1 * t1885 * t6101 * t5963 - t1885 * t649 * t6107 * t650 / 0.3e1 - t1325 * t1335 * t6158 / 0.3e1 - 0.2e1 / 0.3e1 * t1325 * t5993 * t6094 + 0.2e1 / 0.27e2 * t19533 + 0.7e1 / 0.9e1 * t19536 + t5735 * t386 * t1974 * t1326 / 0.9e1;
24054   t19545 = t1325 * t1331 * t6158;
24055   t19551 = t1885 * t6008 * t1931;
24056   t19558 = t1885 * t1891 * t6150;
24057   t19571 = t1249 * t1355;
24058   t19572 = t5 * t19571;
24059   t19573 = t19572 * t2505;
24060   t19577 = -t19545 / 0.9e1 + 0.2e1 / 0.9e1 * t5718 * t1944 * t5933 - 0.2e1 / 0.9e1 * t19551 + t5718 * t649 * t1992 * t1886 / 0.9e1 - t19558 / 0.9e1 - 0.5e1 / 0.27e2 * t18656 * t386 * t1968 * t1326 + 0.4e1 / 0.9e1 * t18976 - t18979 / 0.3e1 - 0.10e2 / 0.27e2 * t18982 - t18988 / 0.9e1 + 0.4e1 / 0.9e1 * t18992 + 0.41e2 / 0.9e1 * t19001 - t19010 / 0.3e1 + t16738 - 0.17898136021270279304e2 * t19573 - 0.17898136021270279304e2 * t18613 - 0.10e2 / 0.27e2 * t18648;
24061   t19594 = t18666 / 0.27e2 + t18687 / 0.27e2 + t18701 / 0.12e2 + t18706 - t19034 / 0.9e1 + 0.4e1 / 0.27e2 * t19046 - 0.2e1 / 0.9e1 * t19063 + 0.4e1 / 0.27e2 * t19070 - 0.2e1 / 0.9e1 * t19073 + 0.2e1 / 0.27e2 * t19081 + 0.2e1 / 0.27e2 * t19088 - t19091 / 0.9e1 + 0.2e1 / 0.9e1 * t19098 + t18713 / 0.9e1 + 0.2e1 / 0.9e1 * t18717 + t18734 / 0.9e1 - 0.10e2 / 0.27e2 * t18742;
24062   t19599 = 0.53694408063810837912e2 * t6194 - 0.43981333333333333334e1 * t6196 - 0.13194400000000000000e2 * t6200 - 0.21990666666666666666e1 * t6205 - 0.65972000000000000000e1 * t6210 + 0.13194400000000000000e2 * t6217 - 0.43981333333333333334e1 * t5871 - 0.87962666666666666667e1 * t6071 - 0.79166400000000000000e2 * t6222 + 0.15393466666666666667e2 * t6226 + t10 * (t19283 + t19328 + t19358 + t19430 + t19489 + t19542 + t19577 + t19594);
24063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24064     v4rho4[2] = -t5742 / 0.9e1 + t19190 - 0.2e1 / 0.3e1 * t5811 - t5813 / 0.3e1 - t6163 - 0.32986000000000000000e1 * t5765 - 0.19791600000000000000e2 * t5767 - 0.13194400000000000000e2 * t6043 + 0.2e1 * t6103 - t6171 / 0.9e1 + t19171 - t6187 / 0.3e1 - t6190 / 0.4e1 - t6168 + 0.38483666666666666667e1 * t5781 - 0.43981333333333333334e1 * t5983 + 0.38483666666666666666e1 * t6121 - t6113 + 0.32986000000000000000e1 * t5779 + 0.32986000000000000000e1 * t6028 + 0.21477763225524335165e3 * t6032 - t6181 / 0.9e1 + t19215 + 0.53694408063810837912e2 * t5858 - 0.32986000000000000000e1 * t6125 + 0.21477763225524335164e3 * t6133 - t6184 / 0.3e1 - t6109 - 0.19791600000000000000e2 * t6119 + 0.2e1 / 0.3e1 * t5746 - 0.2e1 / 0.3e1 * t6174 - t6177 / 0.3e1 + 0.15393466666666666667e2 * t6036 + t19599;
24065 
24066   t19607 = -t16476 - 0.65972000000000000000e1 * t6090 - t16478 + 0.3e1 / 0.4e1 * t5922 + t5706 - t6096 - t6243 - t6246 + t6251 + t6256 - t19119 - t19121 - t6263 + t5730 + t5747 + t5780 + 0.3e1 * t6103 - 0.3e1 / 0.2e1 * t6109 - 0.3e1 / 0.2e1 * t6113;
24067   t19612 = -t6268 - t6271 - t6275 - t5991 + t5997 - t6003 - t6010 + t6013 + t6020 - t6281 - t6283 + t6287 - t6294 + t6296 + t6302 - 0.59374800000000000000e2 * t6119 + 0.11545100000000000000e2 * t6121 - 0.98958000000000000000e1 * t6125 + 0.32216644838286502748e3 * t6133;
24068   t19626 = 0.49479000000000000000e1 * t6028 - t19147 + t6141 / 0.3e1 + t6145 - t6148 - t6152 / 0.2e1 + t6156 / 0.3e1 - t6160 / 0.2e1 - 0.3e1 / 0.2e1 * t6163 - 0.3e1 / 0.2e1 * t6168 - t6171 / 0.3e1 - 0.2e1 * t6174 - t6177 - t6181 / 0.3e1 - t6184 - t6187 / 0.2e1 - 0.3e1 / 0.4e1 * t6190 - t7257 - t7261;
24069   t19635 = t6130 * t6087;
24070   t19640 = t634 * t1951 * t2475;
24071   t19655 = t203 * t6239;
24072   t19660 = t203 * t6252;
24073   t19670 = t634 * t5924 * t888;
24074   t19673 = t376 * t6106;
24075   t19682 = t6070 * t7311;
24076   t19684 = t6070 * t7307;
24077   t19686 = t18908 * t7300;
24078   t19688 = 0.10738881612762167582e3 * t19272 * t6129 * t19635 - 0.98958000000000000000e1 * t19640 * t1956 - 0.11874960000000000000e3 * t6199 * t6221 - 0.25655777777777777777e2 * t1953 * t898 * t6290 * t1954 + 0.23090200000000000000e2 * t6199 * t6225 - 0.23090200000000000000e2 * t6213 * t898 * t2494 * t6214 - 0.32986000000000000000e1 * t1340 * t640 * t642 * t19655 + 0.73302222222222222222e0 * t16571 * t640 * t642 * t19660 + 0.11874960000000000000e3 * t6213 * t2488 * t2007 * t6214 + 0.19791600000000000000e2 * t19670 * t6216 - 0.98958000000000000000e1 * t1953 * t898 * t900 * t19673 + 0.27708240000000000000e3 * t1953 * t2488 * t6298 * t1954 - 0.39583200000000000000e2 * t19682 - 0.32986000000000000000e1 * t19684 - 0.10995333333333333333e1 * t19686;
24079   t19689 = t19337 * t1988;
24080   t19691 = t6070 * t7315;
24081   t19702 = t8 * t655 * t7254;
24082   t19704 = t662 * t1973;
24083   t19710 = t633 * t647 * t17;
24084   t19711 = t366 * t6258;
24085   t19712 = t896 * t376;
24086   t19713 = t19712 * t650;
24087   t19719 = t634 * t655 * t2475;
24088   t19720 = t19719 * t902;
24089   t19722 = t6124 * t2490;
24090   t19724 = -0.65972000000000000000e1 * t19689 + 0.76967333333333333333e1 * t19691 - 0.10995333333333333333e1 * t19244 - 0.32986000000000000000e1 * t19260 - 0.5e1 / 0.36e2 * t16525 + 0.10738881612762167582e3 * t19270 + 0.32986000000000000000e1 * t19281 - 0.38483666666666666667e1 * t19284 + 0.19791600000000000000e2 * t19286 - 0.27488333333333333333e1 * t18818 - t19702 / 0.8e1 + t18941 * t205 * t19704 * t391 / 0.3e1 - 0.43069537681507200000e3 * t19710 * t19711 * t19713 + t19305 / 0.4e1 - 0.24739500000000000000e1 * t19720 - 0.29687400000000000000e2 * t19722;
24091   t19726 = t8 * t6212;
24092   t19727 = t6130 * t9;
24093   t19731 = t4811 * t1170;
24094   t19732 = t238 * t376;
24095   t19737 = t7289 * t19;
24096   t19741 = t8 * t6198;
24097   t19744 = t7278 * t5830;
24098   t19745 = t19744 * t3273;
24099   t19746 = t7281 * t376;
24100   t19762 = t634 * t6045 * t888 * t896;
24101   t19765 = -0.32216644838286502747e3 * t19726 * t6129 * t19727 + 0.22049033614354461380e1 * t6127 * t19731 * t19732 * t650 - 0.32216644838286502747e3 * t6127 * t19737 * t6131 + 0.32216644838286502748e3 * t19741 * t6132 - 0.79166400000000000000e3 * t1953 * t19745 * t19746 * t650 - 0.5e1 / 0.12e2 * t18840 + 0.43981333333333333334e1 * t19310 + 0.65972000000000000001e1 * t19318 + 0.76967333333333333333e1 * t19330 - 0.65972000000000000000e1 * t19338 - 0.39583200000000000000e2 * t19344 + 0.21990666666666666667e1 * t18854 + 0.21990666666666666667e1 * t18884 - 0.91627777777777777778e0 * t16623 - 0.65972000000000000000e1 * t19762 * t6089;
24102   t19776 = t634 * t6045 * t3262;
24103   t19778 = t2006 * t376;
24104   t19783 = t1991 * t650;
24105   t19788 = t1978 * t650;
24106   t19793 = t667 * t9;
24107   t19804 = -0.6e1 * t5749 - 0.12e2 * t18640;
24108   t19812 = t17 * t7253;
24109   t19824 = t1885 * t1891 * t7258;
24110   t19831 = t1325 * t1331 * t7262;
24111   t19833 = -0.32986000000000000000e1 * t5977 * t5978 * t5979 * t19704 + 0.76967333333333333333e1 * t6084 * t6085 * t2493 * t376 * t6087 - 0.39583200000000000000e2 * t19776 * t24 * sigma[2] * t19778 * t6087 - 0.32986000000000000000e1 * t6084 * t6085 * t6086 * t19783 + 0.21990666666666666667e1 * t19361 * t6085 * t6086 * t19788 + 0.65972000000000000000e1 * t19377 * t6085 * t6086 * t19793 - 0.21990666666666666667e1 * t19369 - t385 * t1335 * t6240 / 0.2e1 - t648 * t649 * t377 * t19804 / 0.2e1 - 0.3e1 / 0.2e1 * t648 * t1944 * t6107 - t648 * t19812 * t651 / 0.2e1 - t1325 * t1335 * t7262 / 0.2e1 - t1325 * t386 * t663 * t6165 / 0.2e1 - t19824 / 0.6e1 + t5735 * t1923 * t1968 * t9 / 0.3e1 - t19831 / 0.6e1;
24112   t19841 = t6257 * t1891 * t6260;
24113   t19886 = -t1325 * t1923 * t1924 * t1973 / 0.2e1 - 0.10767384420376800000e3 * t19841 - t1885 * t1944 * t6150 / 0.2e1 - t1885 * t6111 * t1931 / 0.2e1 - t1325 * t386 * t6240 * t391 / 0.6e1 + t5718 * t1944 * t6139 / 0.3e1 + t1885 * t6101 * t6143 - 0.5e1 / 0.27e2 * t18677 * t649 * t6248 * t650 - t5718 * t1938 * t1979 * t9 / 0.3e1 - t1885 * t649 * t668 * t6106 / 0.2e1 + t1885 * t1938 * t1939 * t1991 / 0.2e1 - 0.5e1 / 0.27e2 * t18656 * t386 * t6253 * t391 - t1885 * t649 * t6265 * t650 / 0.6e1 + t19425 / 0.3e1 + t5735 * t1335 * t6253 / 0.9e1;
24114   t19897 = t1885 * t6008 * t1979;
24115   t19900 = t5718 * t1891 * t6248;
24116   t19903 = t5735 * t1331 * t6253;
24117   t19906 = t648 * t1891 * t6265;
24118   t19909 = t648 * t6008 * t1992;
24119   t19912 = t648 * t19490 * t668;
24120   t19915 = t385 * t1331 * t6240;
24121   t19924 = t385 * t386 * t204 * t19804 / 0.2e1 + 0.3e1 / 0.2e1 * t648 * t1922 * t2475 * t1939 - t19897 / 0.6e1 + t19900 / 0.27e2 + t19903 / 0.27e2 - t19906 / 0.6e1 - t19909 / 0.2e1 - t19912 / 0.2e1 - t19915 / 0.6e1 - t19447 / 0.6e1 + t19455 / 0.9e1 + t19458 / 0.3e1 + 0.2e1 / 0.3e1 * t19463 + t19466 / 0.3e1 - t19469 / 0.2e1 + t19472 / 0.9e1;
24122   t19926 = t667 * t1991;
24123   t19943 = t18947 * t378 * t19926 * t650 / 0.3e1 - t19492 / 0.2e1 - t19495 / 0.2e1 + t19504 - t19507 / 0.2e1 - 0.5e1 / 0.9e1 * t18954 + t18963 / 0.3e1 + t19517 / 0.9e1 + t19533 / 0.9e1 - t19536 / 0.3e1 - t19545 / 0.6e1 - t19551 / 0.3e1 - t19558 / 0.6e1 + t18977 - 0.5e1 / 0.9e1 * t18982 + t18993;
24124   t19945 = t6193 * t7270;
24125   t19947 = t8480 * t7284;
24126   t19950 = t6193 * t7291;
24127   t19952 = t6193 * t7295;
24128   t19954 = t1960 * t6300;
24129   t19956 = t1960 * t6292;
24130   t19958 = t6124 * t2496;
24131   t19960 = t19269 * t6285;
24132   t19964 = -t19001 / 0.3e1 + t16738 + 0.80541612095716256870e2 * t19945 - 0.19791600000000000000e3 * t19947 - 0.53694408063810837912e2 * t19573 + 0.55122584035886153450e0 * t19950 - 0.80541612095716256867e2 * t19952 + 0.69270600000000000000e2 * t19954 - 0.64139444444444444443e1 * t19956 + 0.57725500000000000000e1 * t19958 + 0.10738881612762167582e3 * t19960 - 0.5e1 / 0.27e2 * t18648 + t18706 + t19047 + t19071 - 0.5e1 / 0.27e2 * t18742;
24133   t19969 = -t7265 + 0.16108322419143251374e3 * t6194 + t7272 - t7286 + t7293 - t7297 - t7302 - t7304 - t7309 - t7313 + t7317 - 0.13194400000000000000e2 * t6196 - 0.19791600000000000000e2 * t6200 - 0.32986000000000000000e1 * t6205 - 0.98958000000000000000e1 * t6210 + 0.19791600000000000000e2 * t6217 - t19152 - 0.11874960000000000000e3 * t6222 + 0.23090200000000000000e2 * t6226 + t10 * (t19688 + t19724 + t19765 + t19833 + t19886 + t19924 + t19943 + t19964);
24134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24135     v4rho4[3] = t19607 + t19612 + t19626 + t19969;
24136 
24137   t19979 = -t16476 - t16478 + t5922 - 0.2e1 * t6242 - 0.2e1 * t6245 + 0.4e1 / 0.9e1 * t6250 + 0.4e1 / 0.9e1 * t6255 - 0.12920861304452160000e4 * t6262 - 0.2e1 * t6267 - 0.6e1 * t6270 - 0.6e1 * t6274;
24138   t19991 = 0.4e1 / 0.3e1 * t5997 + 0.4e1 / 0.3e1 * t6013 - 0.29687400000000000000e2 * t6280 - 0.35624880000000000000e3 * t6282 + 0.12886657935314601099e4 * t6286 - 0.76967333333333333333e2 * t6293 + 0.69270600000000000000e2 * t6295 + 0.83124720000000000000e3 * t6301 - 0.11874960000000000000e3 * t6119 + 0.23090200000000000000e2 * t6121 - 0.19791600000000000000e2 * t6125;
24139   t20016 = t402 / t6314 / t272;
24140   t20017 = t2001 * t2001;
24141   t20027 = t2134 * t2134;
24142   t20041 = 0.1e1 / t215 / t330;
24143   t20042 = sigma[2] * t20041;
24144   t20045 = t214 * t317;
24145   t20046 = 0.1e1 / t20045;
24146   t20072 = t2131 * t2131;
24147   t20079 = t728 * t2111;
24148   t20081 = t2057 * t2364 * t20079;
24149   t20083 = t215 * t293;
24150   t20088 = t20083 * t245 * t748 * t260 * t418 * t1425;
24151   t20090 = t38 * t2111;
24152   t20092 = t2071 * t2377 * t20090;
24153   t20094 = t22 * t6501;
24154   t20096 = t710 * t750 * t20094;
24155   t20098 = t6414 * t6426;
24156   t20100 = t6497 * t1063;
24157   t20101 = t20100 * t6431;
24158   t20103 = t8579 * t2067;
24159   t20105 = t6399 * t729;
24160   t20111 = my_piecewise3(t242, 0.6160e4 / 0.81e2 * tau[1] * t6297 - 0.2618e4 / 0.81e2 * t20042, 0);
24161   t20113 = t698 * t261 * t20111;
24162   t20131 = t2066 * t2066;
24163   t20147 = 0.2240e4 / 0.27e2 * t214 * t243 * t721 + 0.280e3 / 0.3e1 * t368 * t2047 * t257 + 0.280e3 / 0.3e1 * t6460 * t2103 + 0.80e2 * t716 * t703 * t2103 + 0.80e2 / 0.3e1 * t2088 * t6494 - 0.1872e4 * t6288 * t244 * t6498 + 0.6e1 * t255 * t20131 * t257 + 0.8e1 * t6478 * t6494 + 0.2e1 * t720 * t257 * t20111 + 0.280e3 / 0.81e2 * t2502 * t244 * t257 + 0.108e3 * t6485 * t2066 * t19 * t38;
24164   t20166 = t222 * t703;
24165   t20167 = t20166 * t253;
24166   t20187 = -0.8e1 * t2098 * t6448 * t36 * t22 + 0.270e3 * t330 * t244 * t287 * t16881 - 0.2144e4 / 0.9e1 * t213 * t243 * t253 * t2100 - 0.88e2 * t6470 * t6491 + 0.864e3 * t675 * t243 * t709 * t6487 - 0.24e2 * t20167 * t6491 - 0.1888e4 / 0.27e2 * rho[1] * t244 * t726 + 0.664e3 * t216 * t244 * t2108 - 0.88e2 * t254 * t2047 * t726 + 0.108e3 * t2005 * t2047 * t2108 - 0.864e3 * t224 * t243 * t1063 * t703 * t418;
24167   t20188 = t20147 + t20187;
24168   t20190 = t246 * t715 * t20188;
24169   t20193 = t707 * t6398 * t709 * t712;
24170   t20195 = t6419 * t6358;
24171   t20197 = t2047 * t36 * t2076;
24172   t20198 = t20195 * t20197;
24173   t20200 = t2099 * t6768;
24174   t20201 = t8563 * t20200;
24175   t20203 = t6490 * t2076;
24176   t20204 = t6359 * t20203;
24177   t20206 = t6429 * t1064;
24178   t20207 = t4811 * t8625;
24179   t20208 = t20206 * t20207;
24180   t20210 = t709 * t302;
24181   t20211 = t2051 * t20210;
24182   t20212 = t703 * t2081;
24183   t20213 = t20212 * t1425;
24184   t20214 = t20211 * t20213;
24185   t20216 = -0.72e2 * t20081 - 0.810e3 * t20088 + 0.108e3 * t20092 - 0.6e1 * t20096 + 0.288e3 * t20098 - 0.3672e4 * t20101 - 0.36e2 * t20103 + 0.24e2 * t20105 - 0.3e1 * t20113 + t20190 + 0.36e2 * t20193 - 0.108e3 * t20198 + 0.108e3 * t20201 - 0.54e2 * t20204 + 0.648e3 * t20208 + 0.108e3 * t20214;
24186   t20217 = t2111 * t703;
24187   t20218 = t1425 * t20217;
24188   t20219 = t6359 * t20218;
24189   t20222 = t1425 * t20079;
24190   t20223 = t708 * t20210 * t20222;
24191   t20225 = t2106 * t6358;
24192   t20226 = t20225 * t6360;
24193   t20230 = t2057 * t289 * t6501 * t703;
24194   t20234 = t6388 * t302 * t6501 * t728;
24195   t20237 = t289 * t418;
24196   t20239 = t6452 * t287 * t20237 * t728;
24197   t20242 = t293 * t244 * t287;
24198   t20244 = t20242 * t2053 * t418;
24199   t20247 = t2057 * t6731 * t2081;
24200   t20251 = t216 * t245 * t709 * t712;
24201   t20253 = t2091 * t253;
24202   t20254 = t20253 * t2059;
24203   t20256 = t2098 * t6378;
24204   t20258 = t6367 * t6382;
24205   t20260 = t6367 * t6385;
24206   t20264 = t6388 * t313 * t2081 * t2111;
24207   t20268 = t6288 * t245 * t1063 * t2073;
24208   t20270 = t2098 * t6375;
24209   t20273 = t2941 * t6374 * t2111;
24210   t20275 = -0.54e2 * t20219 + 0.36e2 * t20223 - 0.576e3 * t20226 + 0.12e2 * t20230 - 0.8e1 * t20234 - 0.1080e4 * t20239 + 0.3240e4 * t20244 - 0.36e2 * t20247 + 0.4264e4 / 0.9e1 * t20251 + 0.720e3 * t20254 - 0.360e3 * t20256 + 0.180e3 * t20258 + 0.180e3 * t20260 + 0.36e2 * t20264 - 0.2888e4 * t20268 + 0.360e3 * t20270 + 0.36e2 * t20273;
24211   t20278 = t2057 * t6381 * t2111;
24212   t20281 = t695 * t253 * t6390;
24213   t20283 = t260 * t6448;
24214   t20285 = t2941 * t20283 * t703;
24215   t20289 = t2057 * t289 * t6448 * t728;
24216   t20291 = t6367 * t6393;
24217   t20294 = t2941 * t6724 * t2081;
24218   t20297 = t2057 * t2369 * t6509;
24219   t20300 = t222 * t6398 * t261;
24220   t20303 = t2081 * t2081;
24221   t20305 = t246 * t253 * t326 * t20303;
24222   t20307 = t2111 * t2111;
24223   t20309 = t246 * t2080 * t20307;
24224   t20311 = t695 * t6510;
24225   t20314 = t2046 * t261 * t20131;
24226   t20317 = rho[1] * t245 * t261;
24227   t20320 = t330 * t245 * t6454;
24228   t20322 = t6469 * t2048;
24229   t20324 = t2035 * t2082;
24230   t20326 = t6463 * t704;
24231   t20328 = 0.18e2 * t20278 - 0.120e3 * t20281 - 0.24e2 * t20285 + 0.12e2 * t20289 - 0.360e3 * t20291 - 0.72e2 * t20294 + 0.72e2 * t20297 - 0.120e3 * t20300 - 0.24e2 * t20305 - 0.6e1 * t20309 + 0.120e3 * t20311 - 0.18e2 * t20314 - 0.120e3 * t20317 + 0.6480e4 * t20320 - 0.720e3 * t20322 - 0.240e3 * t20324 - 0.720e3 * t20326;
24232   t20329 = t6402 * t729;
24233   t20331 = t2091 * t2067;
24234   t20333 = t2035 * t2112;
24235   t20335 = t724 * t6449;
24236   t20337 = t695 * t6502;
24237   t20339 = t728 * t2066;
24238   t20341 = t2941 * t2058 * t20339;
24239   t20345 = t710 * t313 * t6509 * t1425;
24240   t20347 = t680 * t243;
24241   t20348 = t20347 * t1063;
24242   t20350 = t20348 * t6421 * t4811;
24243   t20353 = t2052 * t20283 * t1425;
24244   t20356 = t6430 * t6425 * t4811;
24245   t20358 = t6475 * t709;
24246   t20359 = t20358 * t2054;
24247   t20361 = t6485 * t6422;
24248   t20363 = t6364 * t2077;
24249   t20365 = t2041 * t6435;
24250   t20367 = t6371 * t6406;
24251   t20369 = t38 * t2081;
24252   t20371 = t2071 * t2384 * t20369;
24253   t20373 = t2041 * t6410;
24254   t20375 = 0.240e3 * t20329 - 0.360e3 * t20331 + 0.120e3 * t20333 - 0.60e2 * t20335 + 0.20e2 * t20337 + 0.72e2 * t20341 - 0.36e2 * t20345 - 0.648e3 * t20350 + 0.18e2 * t20353 - 0.324e3 * t20356 + 0.1256e4 * t20359 + 0.576e3 * t20361 - 0.1256e4 / 0.3e1 * t20363 + 0.192e3 * t20365 + 0.1224e4 * t20367 - 0.216e3 * t20371 - 0.96e2 * t20373;
24255   t20377 = t20216 + t20275 + t20328 + t20375;
24256   t20385 = t2114 * t2114;
24257   t20391 = t2118 * t2118;
24258   t20392 = t56 * t20391;
24259   t20395 = t2126 * t267;
24260   t20412 = t56 * t7233;
24261   t20416 = 0.9163e4 / 0.65610e5 * t57 * t227 * t20041 + t56 * t20377 * t267 / 0.100e3 - 0.3e1 / 0.25e2 * t6515 * t2984 - 0.9e1 / 0.50e2 * t2115 * t2128 - 0.9e1 / 0.100e3 * t56 * t20385 * t2120 + 0.9e1 / 0.25e2 * t2115 * t8690 + 0.3e1 / 0.20e2 * t20392 * t2120 - t20392 * t20395 / 0.10e2 - t735 * t20377 * t267 / 0.100e3 + t2127 * t6514 * t731 * t267 / 0.25e2 + 0.3e1 / 0.100e3 * t2127 * t20385 * t267 - 0.3e1 / 0.50e2 * t6534 * t2114 * t2118 * t267 + t20412 * t20391 * t267 / 0.100e3;
24262   t20431 = t2330 * t6509;
24263   t20468 = -0.5673724152259968e4 * t2358 * t20431 * t703 - 0.3271986209600640e4 * t3158 * t2330 * t2047 * t2081 + 0.1431493966700280e4 * t6623 * t6689 - 0.163599310480032e3 * t2343 * t2330 * t2066 * t2081 + 0.1431493966700280e4 * t6623 * t6692 - 0.3437440939838016e4 * t3188 * t6665 * t2081 + 0.3222600881098140e4 * t6645 * t6721 - 0.429680117479752e3 * t2368 * t6672 * t2081 - 0.11923013875206649600e6 * t214 * t827 * t347 * t1153 * t2418 - 0.9118485244703520e4 * t6603 * t6762 + 0.1063823278548744e4 * t2358 * t6688 * t2081 - 0.48024e2 * t20081 - 0.54027000000000000000e3 * t20088 + 0.72036000000000000000e2 * t20092;
24264   t20500 = t281 * t244;
24265   t20501 = t2047 * t2047;
24266   t20505 = -0.40020000000000000000e1 * t20096 + 0.19209600000000000000e3 * t20098 - 0.24492240000000000000e4 * t20101 - 0.29136258152158080e5 * t2405 * t347 * t354 + 0.3222600881098140e4 * t6645 * t6695 - 0.1432267058265840e4 * t811 * t300 * t6740 - 0.31828156850352e2 * t6738 * t6739 * t6501 + 0.399599118718650e3 * t2353 * t6641 * t2111 + 0.266399412479100e3 * t2353 * t2354 * t6501 + 0.4267732800e3 * t831 * t7186 + 0.2506467351965220e4 * t2146 * t2259 - 0.23871117637764e2 * t297 * t2317 * t20307 - 0.72017991000e4 * t8650 * t2305 - 0.21338664000e4 * t8572 * t7180 - 0.1600399800e3 * t20500 * t290 * t20501;
24267   t20516 = t345 * t788;
24268   t20543 = t3096 * t779 * t338;
24269   t20544 = t326 * t418;
24270   t20549 = t340 * t418;
24271   t20553 = -0.400099950e2 * t2304 * t290 * t20131 - 0.14403598200e4 * t2143 * t2309 - 0.69529706954013600e5 * t9165 * t2326 - 0.25903224159338400e5 * t8824 * t7161 - 0.3330414534772080e4 * t20516 * t354 * t20501 - 0.29214162585720e2 * t2325 * t354 * t20131 - 0.9270627593868480e4 * t2152 * t2332 + 0.1635993104800320e4 * t828 * t7169 - 0.11981211776728084800e7 * t2388 * t308 * t6802 + 0.16955789805469756800e7 * t2396 * t320 * t6807 - 0.89513130152172888000e6 * t2405 * t334 * t6812 + 0.29575388304000000000e5 * t2373 * t283 * t6792 + 0.18905925169109088000e6 * t306 * t296 * t6797 + 0.97821864262325520000e6 * t20543 * t20544 * t703 - 0.32607288087441840000e6 * t6805 * t338 * t20549 * t728;
24272   t20560 = t344 * t788 * t351;
24273   t20565 = t353 * t418;
24274   t20570 = t1122 * t346 * t300;
24275   t20575 = t302 * t418;
24276   t20584 = t3082 * t295 * t311;
24277   t20589 = t313 * t418;
24278   t20599 = t3089 * t770 * t324;
24279   t20613 = t3075 * t797 * t3031;
24280   t20626 = 0.65696434710250663200e6 * t214 * t823 * t334 * t1140 * t2410 - 0.519753658948100640e6 * t20560 * t20549 * t703 + 0.173251219649366880e6 * t6810 * t351 * t20565 * t728 + 0.161320299840e5 * t20570 * t20237 * t703 - 0.53773433280e4 * t6790 * t300 * t20575 * t728 - 0.12357281897149164000e6 * t11912 * t296 * t1101 * t2385 + 0.10634582907623862000e6 * t20584 * t20575 * t703 - 0.35448609692079540000e5 * t6795 * t311 * t20589 * t728 + 0.82878349541463735999e6 * t214 * t814 * t308 * t1114 * t2393 - 0.684640672955890560e6 * t20599 * t20589 * t703 + 0.228213557651963520e6 * t6800 * t324 * t20544 * t728 - 0.12149234005913515200e7 * t214 * t818 * t320 * t1127 * t2401 + 0.93128907490758216000e5 * t20613 * t20565 * t703 - 0.31042969163586072000e5 * t6816 * t3031 * t803 * t418 * t728 - 0.17376785384000000000e5 * t20045 * t283 * t1088 * t2378;
24281   t20654 = t746 * t245;
24282   t20655 = t20654 * t748;
24283   t20663 = -0.9118485244703520e4 * t6603 * t6765 - 0.4801199400e3 * t3163 * t6713 * t2081 + 0.6401599200e3 * t6607 * t6732 - 0.960239880e2 * t2363 * t6720 * t2081 + 0.6401599200e3 * t6607 * t6735 + 0.238711176377640e3 * t6738 * t340 * t2081 * t2111 - 0.24012e2 * t20103 + 0.16008e2 * t20105 - 0.2001e1 * t20113 + 0.667e0 * t20190 + 0.2127646557097488e4 * t2358 * t2344 * t20079 + 0.49612393800000000000e4 * t8634 * t7070 + 0.6401599200e3 * t20655 * t289 * t6398 * t1425 + 0.3200799600e3 * t3163 * t2364 * t20339;
24284   t20664 = t835 * t283;
24285   t20665 = t20664 * t838;
24286   t20666 = t302 * t6398;
24287   t20675 = t340 * t6509;
24288   t20680 = t6698 * t797 * t1153;
24289   t20694 = t870 * t334;
24290   t20695 = t20694 * t873;
24291   t20696 = t353 * t6398;
24292   t20703 = t326 * t6509;
24293   t20712 = 0.60155216447165280000e4 * t20665 * t20666 * t1425 + 0.1718720469919008e4 * t3188 * t2369 * t20339 + 0.65884284680228640000e4 * t2428 * t7081 - 0.71613352913292000000e3 * t839 * t20675 * t1425 - 0.14441729132624824800e6 * t20680 * t6980 - 0.42493977462667200000e5 * t2433 * t7057 + 0.48139097108749416000e5 * t6700 * t6988 - 0.32269306115978568000e5 * t2443 * t7049 + 0.2836862076129984e4 * t865 * t20431 * t1425 + 0.43353817277208480000e5 * t9162 * t7090 + 0.77709672478015200000e4 * t20695 * t20696 * t1425 + 0.817996552400160e3 * t3158 * t2344 * t20339 - 0.1280319840e3 * t749 * t20703 * t1425 + 0.39530570808137184000e5 * t9132 * t7078 - 0.327198620960064e3 * t2343 * t6651 * t20079;
24294   t20716 = t7167 * t6509;
24295   t20722 = t844 * t296;
24296   t20723 = t20722 * t847;
24297   t20724 = t313 * t6398;
24298   t20734 = t2381 * t319;
24299   t20735 = t20734 * t1101;
24300   t20736 = t38 * t2047;
24301   t20744 = t6569 * t346 * t1088;
24302   t20747 = t2374 * t282;
24303   t20748 = t20747 * t1088;
24304   t20759 = t2406 * t333;
24305   t20760 = t20759 * t1140;
24306   t20767 = 0.57805089702944640000e4 * t2448 * t7099 - 0.49079793144009600000e3 * t874 * t20716 * t1425 - 0.28046025125360352000e6 * t9141 * t7054 - 0.45977090369443200e5 * t20723 * t20724 * t1425 - 0.9195418073888640e4 * t3202 * t2349 * t20339 + 0.4179735488131200e4 * t2348 * t2354 * t20079 - 0.38671210573177680000e5 * t20735 * t2384 * t20736 - 0.64452017621962800000e4 * t2383 * t2400 * t20369 - 0.21509373312000000000e5 * t20744 * t6886 - 0.50412593700e4 * t20748 * t2377 * t20736 - 0.33074929200000000000e3 * t2423 * t6889 + 0.71697911040000000000e4 * t6571 * t6892 - 0.10082518740e4 * t2376 * t2392 * t20369 + 0.220895305052942772e6 * t20760 * t2409 * t20736 + 0.30318963438639204e5 * t2408 * t6987 * t20369;
24307   t20780 = t6584 * t779 * t1127;
24308   t20783 = t2397 * t1111;
24309   t20784 = t20783 * t1127;
24310   t20792 = t6618 * t797 * t873;
24311   t20795 = t353 * t6509;
24312   t20801 = t853 * t308;
24313   t20802 = t20801 * t855;
24314   t20803 = t326 * t6398;
24315   t20810 = t2389 * t1098;
24316   t20811 = t20810 * t1114;
24317   t20817 = 0.99224787600000000000e3 * t6992 * t6881 - 0.10123177674205800000e5 * t2438 * t6855 + 0.49230611426137680000e6 * t6586 * t6858 - 0.57542273095485600000e5 * t2399 * t2417 * t20369 + 0.30369533022617400000e5 * t6970 * t6769 - 0.14769183427841304000e7 * t20780 * t6775 - 0.40279591166839920000e6 * t20784 * t2400 * t20736 - 0.4331280491234172e4 * t2408 * t2417 * t20090 + 0.74433141843123448000e5 * t20792 * t2162 + 0.4179735488131200e4 * t848 * t20795 * t1425 + 0.42517346231664360000e6 * t9148 * t7062 + 0.72727039606794300000e5 * t20802 * t20803 * t1425 + 0.11188775324122200e5 * t3216 * t2354 * t20339 + 0.268965978661242720e6 * t20811 * t2392 * t20736 - 0.26565187012902921600e6 * t6591 * t6878;
24318   t20821 = t22 * t6448;
24319   t20825 = t38 * t2066;
24320   t20833 = t6613 * t788 * t864;
24321   t20841 = t6589 * t788 * t1140;
24322   t20856 = t6339 * t295 * t838;
24323   t20863 = -0.151974754078392e3 * t2203 * t866 * t20821 + 0.12993841473702516e5 * t6871 * t2409 * t20825 + 0.50658251359464e2 * t865 * t875 * t20094 - 0.40573882122173366400e6 * t20833 * t2204 + 0.13524627374057788800e6 * t6615 * t2207 - 0.13829702621133672000e5 * t6862 * t6867 + 0.79695561038708764800e6 * t20841 * t6872 + 0.46099008737112240000e4 * t2443 * t6875 - 0.13319970623955000000e3 * t856 * t866 * t20094 + 0.95903788492476000000e4 * t2399 * t2409 * t20090 + 0.3360839580e3 * t2376 * t2384 * t20090 + 0.70873348266521316000e5 * t20856 * t2180 - 0.23624449422173772000e5 * t6551 * t2183 + 0.49413213510171480000e4 * t6897 * t6902;
24324   t20865 = t6574 * t295 * t1101;
24325   t20909 = -0.15146224141161258000e6 * t20865 * t6907 + 0.50487413803870860000e5 * t6576 * t6913 + 0.10742002936993800000e3 * t2179 * t840 * t20821 - 0.48339013216472100000e4 * t6906 * t2384 * t20825 + 0.39959911871865000000e3 * t2195 * t857 * t20821 - 0.28771136547742800000e5 * t6773 * t2400 * t20825 + 0.640159920e2 * t6708 * t326 * t2081 * t2111 - 0.106693320e2 * t6708 * t6709 * t6501 + 0.25780807048785120e5 * t3040 * t6714 - 0.8593602349595040e4 * t3040 * t6717 + 0.4010347763144352e4 * t8859 * t20724 * t728 - 0.2005173881572176e4 * t8859 * t6724 * t2066 + 0.859360234959504e3 * t3188 * t6713 * t2111 - 0.190968941102112e3 * t3188 * t2364 * t6448 + 0.71613352913292e2 * t2368 * t313 * t6448 * t728;
24326   t20948 = t803 * t6509;
24327   t20955 = 0.107420029369938e3 * t2368 * t6720 * t2111 + 0.71613352913292e2 * t2368 * t2369 * t6501 - 0.12890403524392560e5 * t6645 * t6648 + 0.1600399800e3 * t3163 * t6724 * t2111 - 0.533466600e2 * t3163 * t2058 * t6448 + 0.213386640e2 * t2363 * t302 * t6448 * t728 + 0.320079960e2 * t2363 * t6731 * t2111 + 0.213386640e2 * t2363 * t2364 * t6501 - 0.19204797600e4 * t6607 * t6610 - 0.3200799600e3 * t831 * t287 * t6710 + 0.2560639680e3 * t2363 * t20703 * t703 - 0.119879735615595000e6 * t6597 * t6600 - 0.7991982374373000e4 * t819 * t324 * t6748 + 0.11188775324122200e5 * t2353 * t20948 * t703 + 0.1118877532412220e4 * t6746 * t6703 * t2111;
24328   t20992 = t838 * t326;
24329   t20996 = -0.106559764991640e3 * t6746 * t6747 * t6501 - 0.155014249159959840e6 * t3013 * t6752 + 0.25835708193326640e5 * t3013 * t6755 - 0.183908361477772800e6 * t3047 * t6666 + 0.45977090369443200e5 * t3047 * t6669 - 0.30651393579628800e5 * t8874 * t20803 * t728 + 0.11494272592360800e5 * t8874 * t6713 * t2066 - 0.4597709036944320e4 * t3202 * t6665 * t2111 + 0.766284839490720e3 * t3202 * t2369 * t6448 - 0.278649032542080e3 * t2348 * t326 * t6448 * t728 - 0.417973548813120e3 * t2348 * t6672 * t2111 - 0.278649032542080e3 * t2348 * t2349 * t6501 + 0.83594709762624000e5 * t6657 * t6594 + 0.24012000000000000000e2 * t20193 + 0.42968011747975200000e3 * t836 * t20992 * t20222;
24330   t20999 = t864 * t803;
24331   t21000 = t2202 * t20999;
24332   t21006 = t7088 * t4164;
24333   t21015 = t873 * t2330;
24334   t21019 = t7052 * t4119;
24335   t21028 = t847 * t340;
24336   t21032 = t7060 * t4134;
24337   t21037 = t6949 * t4119;
24338   t21040 = -0.19148819013877392e5 * t21000 * t20213 - 0.1063823278548744e4 * t862 * t20999 * t20222 - 0.85889638002016800000e4 * t21006 * t20197 + 0.12269948286002400000e4 * t8749 * t20200 - 0.42944819001008400000e3 * t7003 * t20203 - 0.42944819001008400000e3 * t7003 * t20218 + 0.16359931048003200000e3 * t871 * t21015 * t20222 + 0.55172508443331840e5 * t21019 * t20197 - 0.13793127110832960e5 * t8791 * t20200 + 0.5015682585757440e4 * t7009 * t20203 + 0.5015682585757440e4 * t7009 * t20218 - 0.2089867744065600e4 * t845 * t21028 * t20222 - 0.83915814930916500000e5 * t21032 * t20197 + 0.16783162986183300000e5 * t8804 * t20200 + 0.20397109182080256000e6 * t21037 * t6360;
24339   t21041 = t2186 * t21028;
24340   t21044 = t6969 * t4134;
24341   t21047 = t855 * t353;
24342   t21048 = t2194 * t21047;
24343   t21051 = t6861 * t4149;
24344   t21054 = t6991 * t4078;
24345   t21057 = t748 * t313;
24346   t21058 = t2169 * t21057;
24347   t21061 = t6772 * t1128;
24348   t21066 = t6896 * t4199;
24349   t21069 = t2178 * t20992;
24350   t21072 = t2159 * t21015;
24351   t21075 = t6958 * t1115;
24352   t21078 = t6905 * t1102;
24353   t21081 = t6884 * t1089;
24354   t21084 = t6870 * t1141;
24355   t21087 = -0.25078412928787200e5 * t21041 * t20213 - 0.30369533022617400000e6 * t21044 * t6360 + 0.35963920684678500000e5 * t21048 * t20213 + 0.16595643145360406400e6 * t21051 * t6360 - 0.39689915040000000000e4 * t21054 * t6360 + 0.5761439280e3 * t21058 * t20213 + 0.28771136547742800000e6 * t21061 * t20207 - 0.59939867807797500000e4 * t7012 * t20203 - 0.29647928106102888000e5 * t21066 * t6360 + 0.38671210573177680000e4 * t21069 * t20213 + 0.34355855200806720000e4 * t21072 * t20213 - 0.195611620844540160e6 * t21075 * t20207 + 0.29003407929883260000e5 * t21078 * t20207 + 0.40330074960e4 * t21081 * t20207 - 0.155926097684430192e6 * t21084 * t20207;
24356   t21089 = t7084 * t4164;
24357   t21097 = t7076 * t4199;
24358   t21113 = t294 * t346;
24359   t21130 = -0.30347672094045936000e5 * t21089 * t6360 - 0.1920479760e3 * t6997 * t20218 + 0.960239880e2 * t747 * t21057 * t20222 - 0.77342421146355360000e4 * t21097 * t20197 + 0.25780807048785120000e4 * t8778 * t20200 - 0.96678026432944200000e3 * t7000 * t20203 - 0.96678026432944200000e3 * t7000 * t20218 - 0.80019990e1 * t284 * t2308 * t20307 - 0.60155216447165280e5 * t9069 * t2314 - 0.20051738815721760e5 * t8770 * t7192 - 0.2005173881572176e4 * t21113 * t303 * t20501 - 0.143226705826584e3 * t2313 * t303 * t20131 + 0.1219089517371600e4 * t309 * t311 * t803 * t20303 - 0.9456206920433280e4 * t824 * t7155 + 0.709215519032496e3 * t335 * t338 * t7167 * t20303;
24360   t21144 = t6978 * t1154;
24361   t21152 = t7043 * t4149;
24362   t21161 = t7068 * t4078;
24363   t21170 = 0.29550646626354e2 * t335 * t2321 * t20307 - 0.27558088739548416e5 * t8854 * t20696 * t728 + 0.6889522184887104e4 * t8854 * t6634 * t2066 - 0.533466600e2 * t284 * t287 * t340 * t20303 + 0.28343580540665544000e5 * t21144 * t20207 - 0.59939867807797500000e4 * t7012 * t20218 + 0.23975947123119000000e4 * t854 * t21047 * t20222 + 0.46504274747987952e5 * t21152 * t20197 - 0.7750712457997992e4 * t8819 * t20200 + 0.2735545573411056e4 * t7006 * t20203 + 0.2735545573411056e4 * t7006 * t20218 - 0.9602398800e3 * t21161 * t20197 + 0.4801199400e3 * t8755 * t20200 - 0.1920479760e3 * t6997 * t20203 + 0.436782358509710400e6 * t9090 * t2285;
24364   t21177 = t307 * t295;
24365   t21205 = 0.153256967898144000e6 * t8783 * t7175 + 0.17241408888541200e5 * t21177 * t314 * t20501 + 0.574713629618040e3 * t2284 * t314 * t20131 + 0.66179145228744000e5 * t2155 * t2289 - 0.13932451627104000e5 * t815 * t6940 - 0.72036000000000000000e2 * t20198 + 0.72036000000000000000e2 * t20201 - 0.36018000000000000000e2 * t20204 + 0.43221600000000000000e3 * t20208 - 0.1920479760e3 * t2363 * t2369 * t20079 + 0.99224787600000000000e3 * t2423 * t7073 - 0.16471071170057160000e4 * t2428 * t6910 - 0.859360234959504e3 * t2368 * t6739 * t20217 - 0.4795189424623800e4 * t2353 * t2359 * t20079;
24366   t21213 = t861 * t320;
24367   t21214 = t21213 * t864;
24368   t21215 = t340 * t6398;
24369   t21226 = t318 * t770;
24370   t21234 = 0.1e1 / t802 / t301;
24371   t21246 = 0.60739066045234800000e5 * t2438 * t7065 - 0.55943876620611000000e4 * t856 * t20948 * t1425 - 0.23510494455927242400e6 * t9155 * t7046 - 0.41337133109322624e5 * t21214 * t21215 * t1425 - 0.5167141638665328e4 * t3143 * t2359 * t20339 - 0.671326519447332000e6 * t8990 * t2293 - 0.242423465355981000e6 * t8796 * t6946 - 0.29090815842717720e5 * t21226 * t327 * t20501 - 0.559438766206110e3 * t2292 * t327 * t20131 - 0.116856650342880e3 * t348 * t351 * t21234 * t20303 - 0.3895221678096e1 * t348 * t2331 * t20307 + 0.72036000000000000000e2 * t20214 - 0.36018000000000000000e2 * t20219 + 0.24012000000000000000e2 * t20223 - 0.38419200000000000000e3 * t20226;
24372   t21255 = t215 * t3096;
24373   t21272 = 0.87077822669400e2 * t309 * t2288 * t20307 + 0.35051641846918205333e5 * t2023 * t296 * t838 * t841 - 0.21296228543110177067e6 * t21255 * t334 * t864 * t867 + 0.8004e1 * t20230 - 0.5336e1 * t20234 - 0.72036000000000000000e3 * t20239 + 0.21610800000000000000e4 * t20244 - 0.24012e2 * t20247 + 0.31600977777777777778e3 * t20251 + 0.480240e3 * t20254 - 0.240120e3 * t20256 + 0.120060e3 * t20258 + 0.120060e3 * t20260 + 0.24012e2 * t20264 - 0.19262960000000000000e4 * t20268;
24374   t21279 = t6821 * t351;
24375   t21307 = 0.240120e3 * t20270 + 0.24012e2 * t20273 + 0.12006e2 * t20278 - 0.80040e2 * t20281 - 0.16008e2 * t20285 + 0.8004e1 * t20289 + 0.48670794867809520e5 * t21279 * t2345 - 0.55943876620611000e5 * t3005 * t6638 + 0.48484693071196200e5 * t8921 * t21215 * t728 - 0.14545407921358860e5 * t8921 * t6665 * t2066 - 0.745918354941480e3 * t3216 * t2349 * t6448 + 0.266399412479100e3 * t2353 * t340 * t6448 * t728 - 0.545331034933440e3 * t828 * t351 * t6662 + 0.981595862880192e3 * t2343 * t20716 * t703 + 0.70113990205728e2 * t6660 * t7167 * t2081 * t2111;
24376   t21330 = t2414 * t1137;
24377   t21331 = t21330 * t1153;
24378   t21354 = -0.5193628904128e1 * t6660 * t6661 * t6501 + 0.19979955935932500e5 * t6597 * t6743 + 0.5594387662061100e4 * t3216 * t6634 * t2111 + 0.18084995735328648e5 * t3143 * t6681 * t2081 - 0.1044933872032800e4 * t6629 * t353 * t2081 * t2111 + 0.116103763559200e3 * t6629 * t6630 * t6501 + 0.279719383103055000e6 * t3005 * t6635 - 0.40490829343807920000e5 * t21331 * t2417 * t20736 - 0.72256362128680800000e3 * t2448 * t6984 - 0.53987772458410560000e4 * t2416 * t2330 * t19 * t20369 + 0.40752421009279200e5 * t2391 * t2409 * t20369 + 0.21676908638604240000e4 * t7085 * t6975 - 0.24811047281041149333e5 * t6620 * t2166 + 0.320079960e2 * t2170 * t750 * t20821 - 0.10082518740e4 * t6885 * t2377 * t20825;
24379   t21390 = t215 * t344;
24380   t21396 = -0.106693320e2 * t749 * t840 * t20094 - 0.240120e3 * t20291 - 0.48024e2 * t20294 + 0.48024e2 * t20297 + 0.1432267058265840e4 * t2368 * t20675 * t703 - 0.2583570819332664e4 * t3143 * t6751 * t2111 + 0.287063424370296e3 * t3143 * t2354 * t6448 - 0.101316502718928e3 * t2358 * t353 * t6448 * t728 - 0.151974754078392e3 * t2358 * t6761 * t2111 - 0.101316502718928e3 * t2358 * t2359 * t6501 + 0.32007996000e4 * t2967 * t6725 - 0.16003998000e4 * t2967 * t6728 + 0.4267732800e3 * t8914 * t20666 * t728 - 0.3200799600e3 * t8914 * t6374 * t2066 + 0.75797408596598010000e5 * t21390 * t334 * t873 * t20549 * t1425;
24381   t21409 = t215 * t3082;
24382   t21436 = -0.13304129641536888000e5 * t215 * t3075 * t347 * t4183 * t20565 * t1425 - 0.30247556220000000000e4 * t2023 * t283 * t838 * t20237 * t1425 - 0.17724304846039770000e5 * t21409 * t296 * t847 * t20575 * t1425 - 0.80040e2 * t20300 - 0.10025869407860880e5 * t2146 * t2318 + 0.2387111763776400e4 * t811 * t7198 - 0.238711176377640e3 * t297 * t300 * t353 * t20303 + 0.51418125129855960e5 * t2140 * t2322 + 0.215297568277722e3 * t2300 * t341 * t20131 - 0.16008e2 * t20305 - 0.4002e1 * t20309 + 0.80040e2 * t20311 - 0.12006e2 * t20314 - 0.80040e2 * t20317 + 0.28629879334005600e5 * t3021 * t6682;
24383   t21482 = -0.4089982762000800e4 * t3021 * t6685 + 0.5180644831867680e4 * t8909 * t803 * t6398 * t728 - 0.1110138178257360e4 * t8909 * t6751 * t2066 + 0.408998276200080e3 * t3158 * t6681 * t2111 - 0.38952216780960e2 * t3158 * t2359 * t6448 + 0.13633275873336e2 * t2343 * t803 * t6448 * t728 + 0.20449913810004e2 * t2343 * t6688 * t2111 + 0.13633275873336e2 * t2343 * t2344 * t6501 - 0.11451951733602240e5 * t6623 * t6652 + 0.6966225813552000e4 * t815 * t311 * t6631 - 0.8359470976262400e4 * t2348 * t20795 * t703 + 0.63829396712924640e5 * t6603 * t6704 + 0.3546077595162480e4 * t824 * t338 * t6678 - 0.472810346021664e3 * t6676 * t2330 * t2081 * t2111 + 0.39400862168472e2 * t6676 * t6677 * t6501;
24384   t21486 = t6841 * t324;
24385   t21489 = t6926 * t338;
24386   t21492 = t7110 * t287;
24387   t21503 = t6916 * t300;
24388   t21510 = t7125 * t311;
24389   t21518 = 0.479518942462380000e6 * t21486 * t2355 - 0.264436072096402080e6 * t21489 * t2360 + 0.57614392800e4 * t21492 * t2365 - 0.33566325972366600e5 * t3216 * t6751 * t2081 + 0.19979955935932500e5 * t6597 * t6642 - 0.2397594712311900e4 * t2353 * t6761 * t2081 + 0.45116412335373960e5 * t21503 * t2370 + 0.39392665365523966222e5 * t21390 * t347 * t873 * t876 - 0.317659897097971200e6 * t21510 * t2350 + 0.43221600000000000000e4 * t20320 - 0.480240e3 * t20322 - 0.160080e3 * t20324 - 0.480240e3 * t20326 + 0.160080e3 * t20329;
24390   t21540 = -0.240120e3 * t20331 + 0.80040e2 * t20333 - 0.40020e2 * t20335 + 0.13340e2 * t20337 + 0.48024e2 * t20341 - 0.24012000000000000000e2 * t20345 - 0.43221600000000000000e3 * t20350 + 0.12006000000000000000e2 * t20353 - 0.21610800000000000000e3 * t20356 + 0.22988545184721600e5 * t3202 * t6634 * t2081 - 0.16718941952524800e5 * t6657 * t6673 + 0.2089867744065600e4 * t2348 * t6641 * t2081 - 0.16718941952524800e5 * t6657 * t6626 + 0.83775200000000000000e3 * t20359 + 0.38419200000000000000e3 * t20361;
24391   t21551 = t6559 * t779 * t855;
24392   t21563 = t6554 * t770 * t847;
24393   t21571 = t6579 * t770 * t1114;
24394   t21576 = -0.27925066666666666667e3 * t20363 + 0.12806400000000000000e3 * t20365 + 0.81640800000000000000e3 * t20367 - 0.14407200000000000000e3 * t20371 - 0.64032000000000000000e2 * t20373 - 0.8150484201855840e4 * t2391 * t2400 * t20090 + 0.73916956982534280000e6 * t21551 * t2196 - 0.24638985660844760000e6 * t6561 * t2199 - 0.35806676456646000000e2 * t839 * t849 * t20094 + 0.16113004405490700000e4 * t2383 * t2392 * t20090 - 0.49311590458863424000e6 * t21563 * t2188 + 0.16437196819621141333e6 * t6556 * t2191 - 0.25496386477600320000e5 * t6950 * t6955 + 0.10106600410301241600e7 * t21571 * t6960 + 0.84987954925334400000e4 * t2433 * t6963;
24395   t21588 = t215 * t3089;
24396   t21612 = t6564 * t346 * t748;
24397   t21625 = -0.33688668034337472000e6 * t6581 * t6966 - 0.417973548813120e3 * t2187 * t849 * t20821 + 0.24451452605567520e5 * t6959 * t2392 * t20825 + 0.139324516271040e3 * t848 * t857 * t20094 + 0.10697510514935790000e6 * t21588 * t308 * t855 * t20589 * t1425 - 0.14673279639348828000e6 * t21255 * t320 * t864 * t20544 * t1425 + 0.20449913810004000000e2 * t2160 * t875 * t20821 - 0.20245414671903960000e4 * t6979 * t2417 * t20825 - 0.68166379366680000000e1 * t874 * t2165 * t20094 + 0.67484715573013200000e3 * t2416 * t6987 * t20090 + 0.92752059520000000000e4 * t21612 * t2171 - 0.30917353173333333333e4 * t6566 * t2175 + 0.1989259803147e1 * t297 * t766 * t20188 + 0.119355588188820e3 * t811 * t6784 + 0.15964955569844265600e6 * t2413 * t347 * t6818;
24398   t21628 = t1122 * t295;
24399   t21649 = t293 * t346;
24400   t21662 = -0.65168151151095720e5 * t21628 * t763 + 0.21722717050365240e5 * t7036 * t767 - 0.7519402055895660e4 * t6916 * t2216 - 0.358066764566460e3 * t2245 * t6923 - 0.7345446447122280e4 * t2140 * t2230 + 0.506582513594640e3 * t2222 * t7104 - 0.168860837864880e3 * t824 * t7107 + 0.4221520946622e1 * t789 * t341 * t20111 - 0.1407173648874e1 * t335 * t793 * t20188 - 0.76819190400e4 * t21649 * t755 + 0.25606396800e4 * t7019 * t759 - 0.14403598200e4 * t7110 * t2238 - 0.13235829045748800e5 * t2155 * t2270 + 0.1393245162710400e4 * t2262 * t6835 - 0.464415054236800e3 * t815 * t6838;
24401   t21669 = t3096 * t788;
24402   t21691 = t3082 * t770;
24403   t21701 = 0.17415564533880e2 * t771 * t314 * t20111 - 0.5967779409441e1 * t762 * t303 * t20111 + 0.411345001038847680e6 * t21669 * t790 - 0.137115000346282560e6 * t7040 * t794 + 0.22036339341366840e5 * t6926 * t2227 + 0.4439990207985e1 * t321 * t784 * t20188 + 0.4801199400e3 * t2143 * t2242 - 0.1066933200e3 * t2233 * t7119 + 0.355644400e2 * t831 * t7122 - 0.26673330e1 * t754 * t290 * t20111 + 0.8891110e0 * t284 * t758 * t20188 + 0.476489845646956800e6 * t21691 * t772 - 0.158829948548985600e6 * t7217 * t776 + 0.39707487137246400e5 * t7125 * t2267 - 0.5805188177960e1 * t309 * t775 * t20188;
24404   t21703 = t3089 * t779;
24405   t21739 = -0.735262378442316000e6 * t21703 * t781 + 0.245087459480772000e6 * t7016 * t785 - 0.47951894246238000e5 * t6841 * t2281 + 0.15983964748746000e5 * t2149 * t2219 - 0.1331997062395500e4 * t2276 * t6852 + 0.443999020798500e3 * t819 * t6787 - 0.13319970623955e2 * t780 * t327 * t20111 + 0.1158828449233560e4 * t2152 * t2256 - 0.68166379366680e2 * t2248 * t6830 + 0.22722126455560e2 * t828 * t6781 - 0.486902709762e0 * t798 * t354 * t20111 + 0.162300903254e0 * t348 * t804 * t20188 - 0.95903788492476000e5 * t2149 * t2297 + 0.18647958873537000e5 * t819 * t7204 - 0.25132852693478291555e6 * t21409 * t308 * t847 * t850;
24406   t21768 = t332 * t779;
24407   t21772 = t344 * t797;
24408   t21785 = 0.38346912762528582667e6 * t21588 * t320 * t855 * t858 + 0.43096198071111111111e4 * t20083 * t283 * t748 * t751 - 0.269596205428849200e6 * t2388 * t320 * t327 + 0.168756820333297200e6 * t306 * t308 * t314 + 0.154254375389567880e6 * t2396 * t334 * t341 - 0.1491836709882960e4 * t321 * t324 * t2330 * t20303 - 0.79919823743730e2 * t321 * t2296 * t20307 + 0.374617768803236280e6 * t9077 * t2301 + 0.137790443697742080e6 * t8809 * t7210 + 0.17223805462217760e5 * t21768 * t341 * t20501 - 0.76482677649414960e5 * t21772 * t799 + 0.25494225883138320e5 * t6778 * t805 - 0.3476485347700680e4 * t6821 * t2253 - 0.22405597200e4 * t330 * t283 * t290 - 0.21722717050365240e5 * t2373 * t296 * t303;
24409   t21795 = t2118 * t360;
24410   t21796 = t21795 * t2114;
24411   t21809 = t7229 * t6514;
24412   t21813 = 0.1e1 / t2466 / t2126;
24413   t21829 = t2466 * t2466;
24414   t21830 = 0.1e1 / t21829;
24415   t21834 = -0.3e1 * t1839 * t20385 * t2467 * t360 - 0.36e2 * t1839 * t20391 * t360 * t7245 - t18554 * t20391 * t21830 * t360 + t20377 * t360 * t616 * t881 - 0.6e1 * t20385 * t2458 * t360 * t616 - 0.12e2 * t20391 * t21813 * t360 * t5689 - 0.24e2 * t20391 * t360 * t616 * t7234 + 0.36e2 * t9372 * t21796 + 0.36e2 * t9380 * t21796 + 0.6e1 * t9392 * t21796 - 0.8e1 * t3232 * t21809 - 0.4e1 * t3240 * t21809;
24416   t21835 = my_piecewise3(t278, t21625 + t21701 + t21246 + t20663 + t21087 + t21396 + t20553 + t20996 + t20468 + t21482 + t20767 + t21576 + t21436 + t21040 + t21205 + t21354 + t21662 + t21739 + t20712 + t21540 + t21518 + t20955 + t21307 + t20505 + t20817 + t21170 + t20626 + t20909 + t21130 + t21785 + t20863 + t21272, t21834);
24417   t21838 = -0.24e2 * t20016 * t20017 * t363 + 0.36e2 * t6316 * t2002 * t2134 - 0.24e2 * t6316 * t6317 * t885 - 0.6e1 * t2000 * t20027 * t363 + 0.24e2 * t2000 * t2137 * t2134 - 0.8e1 * t2000 * t743 * t6541 + 0.12e2 * t2000 * t2001 * t2472 + t674 * (0.26180e5 / 0.19683e5 * t24 * t20042 + 0.5225e4 / 0.1458e4 * t40 * t221 * t20046 * t231 - 0.5929e4 / 0.288e3 * t420 * t686 / t1122 * t231 + 0.2949e4 / 0.640e3 * t2022 / t2426 * t19 * t2026 - 0.1053e4 / 0.3200e4 * t6346 / t3083 * t36 * t6349 + 0.6561e4 / 0.160000e6 * t16789 * t2021 * t221 / t307 * t231 + 0.6e1 * t20072 + 0.8e1 * t739 * t6538 + 0.2e1 * t270 * t20416) * t363 - 0.4e1 * t674 * t6541 * t885 - 0.6e1 * t674 * t2134 * t2472 - 0.4e1 * t674 * t742 * t7250 - t277 * t21835 + 0.1174e1 * t21835;
24418   t21845 = 0.83381277777777777776e2 * t894 * t898 * t367 * t225 * t376 - 0.47499840000000000000e3 * t6199 * t7311 - 0.23749920000000000000e3 * t1953 * t2488 * t2007 * t7305 - 0.79166400000000000000e2 * t6047 * t2488 * t2007 * t7298 - 0.15833280000000000000e3 * t19682 - 0.13194400000000000000e2 * t19684 - 0.43981333333333333333e1 * t19686 - 0.26388800000000000000e2 * t19689 + 0.30786933333333333334e2 * t19691 - 0.3e1 / 0.8e1 * t8 * t212 * t21838 * t377 + 0.65972000000000000000e1 * t19281 - 0.76967333333333333334e1 * t19284;
24419   t21850 = 0.12e2 * t5749 + 0.12e2 * t18640;
24420   t21855 = t1991 * t1991;
24421   t21860 = t1967 * t1967;
24422   t21865 = t1973 * t1973;
24423   t21870 = t1978 * t1978;
24424   t21882 = t6130 * t1978;
24425   t21886 = t6130 * t1991;
24426   t21890 = 0.39583200000000000000e2 * t19286 - 0.36651111111111111111e1 * t18818 - t19702 / 0.2e1 - t385 * t386 * t204 * t21850 / 0.2e1 - t1885 * t649 * t377 * t21855 / 0.2e1 - 0.5e1 / 0.27e2 * t18656 * t386 * t204 * t21860 - t1325 * t386 * t204 * t21865 / 0.2e1 - 0.5e1 / 0.27e2 * t18677 * t649 * t377 * t21870 + 0.4e1 / 0.9e1 * t5718 * t1944 * t6248 - t1885 * t6111 * t1979 - 0.17812440000000000000e3 * t6279 * t2490 + 0.21477763225524335164e3 * t19272 * t6129 * t21882 + 0.64433289676573005494e3 * t6127 * t6129 * t21886;
24427   t21902 = t19712 * t667;
24428   t21924 = -0.76967333333333333333e2 * t2481 * t6292 - 0.14085022000000000000e4 * t894 * t2488 * t20042 * t376 + 0.34635300000000000000e2 * t6279 * t2496 + 0.83124720000000000000e3 * t2481 * t6300 - 0.17227815072602880000e4 * t19710 * t19711 * t21902 + t19305 / 0.2e1 + t648 * t649 * t377 * t21850 / 0.2e1 - 0.3e1 * t648 * t6111 * t1992 - 0.2e1 * t648 * t1944 * t6265 - 0.98958000000000000000e1 * t19720 - 0.11874960000000000000e3 * t19722 - 0.13194400000000000000e2 * t6084 * t6085 * t6086 * t19926;
24429   t21928 = t888 * t7278 * t5830;
24430   t21938 = t888 * t19 * t38;
24431   t21949 = t193 * t376;
24432   t21975 = -0.5e1 / 0.9e1 * t18840 + 0.87962666666666666668e1 * t19310 - 0.23749920000000000000e4 * t3261 * t21928 * t7283 - 0.88196134457417845518e1 * t2500 * t7288 * t1170 * t217 * t376 + 0.66147100843063384139e1 * t2500 * t21938 * t7290 + 0.48324967257429754121e3 * t2500 * t2475 * t1170 * t2502 * t2504 + 0.17527082181762906534e4 * t2500 * t366 * t369 * t4249 * t21949 + 0.2e1 / 0.3e1 * t5735 * t386 * t1968 * t1973 + 0.2e1 / 0.3e1 * t5718 * t649 * t1979 * t1991 - 0.2e1 / 0.3e1 * t1325 * t386 * t6240 * t662 - 0.12920861304452160000e4 * t6257 * t1944 * t6260 - 0.2e1 / 0.3e1 * t1885 * t649 * t6265 * t667 - 0.2e1 * t1885 * t1944 * t7258;
24433   t21996 = 0.12920861304452160000e4 * t6257 * t649 * t7274 * t896 * t376 - 0.2e1 * t648 * t19812 * t668 - 0.2e1 / 0.3e1 * t19824 - 0.2e1 / 0.3e1 * t19831 - 0.43069537681507200000e3 * t19841 - 0.2e1 / 0.3e1 * t19897 + 0.4e1 / 0.27e2 * t19900 + 0.4e1 / 0.27e2 * t19903 - 0.2e1 / 0.3e1 * t19906 - 0.2e1 * t19909 - 0.2e1 * t19912 - 0.2e1 / 0.3e1 * t19915;
24434   t22014 = 0.1e1 / t372 / t16551 / t226 * t5830 / 0.36e2;
24435   t22023 = t376 * t6247;
24436   t22034 = 0.2e1 / 0.9e1 * t19455 + 0.2e1 / 0.3e1 * t19458 + 0.4e1 / 0.3e1 * t19463 + 0.2e1 / 0.3e1 * t19466 + 0.2e1 / 0.9e1 * t19472 + 0.15393466666666666667e2 * t6047 * t898 * t2494 * t7298 - 0.10262311111111111111e3 * t1953 * t898 * t6290 * t1986 - 0.27708240000000000000e4 * t894 * t22014 * t221 * t20046 * t376 * t193 - 0.13194400000000000000e2 * t19333 * t7300 + 0.29320888888888888889e1 * t18900 * t898 * t900 * t22023 - 0.39583200000000000000e2 * t6199 * t7307 - 0.39583200000000000000e2 * t19640 * t1988 + 0.92360800000000000000e2 * t6199 * t7315;
24437   t22044 = t376 * t6264;
24438   t22054 = t634 * t212 * t7253;
24439   t22073 = 0.46180400000000000000e2 * t1953 * t898 * t2494 * t7305 + 0.11083296000000000000e4 * t1953 * t2488 * t6298 * t1986 - 0.13194400000000000000e2 * t1953 * t898 * t900 * t22044 - 0.20e2 / 0.27e2 * t18954 - 0.20e2 / 0.27e2 * t18982 + 0.12886657935314601099e4 * t19741 * t6285 - 0.98958000000000000000e1 * t22054 * t902 - 0.12886657935314601098e4 * t6127 * t19737 * t6284 - 0.64604306522260800000e3 * t894 * t225 * t2486 * t376 * t6085 + 0.88196134457417845519e1 * t6127 * t19731 * t19732 * t667 - 0.31666560000000000000e4 * t1953 * t19745 * t19746 * t667 + t16738;
24440   t22096 = 0.32216644838286502748e3 * t19945 - 0.79166400000000000000e3 * t19947 + 0.10291428212230410600e4 * t2500 * t2501 * t217 * t2504 - 0.96649934514859508241e3 * t2500 * t7268 * t238 * t2504 + 0.83124720000000000000e4 * t3261 * t7280 * t3273 * t1048 * t376 - 0.10738881612762167582e3 * t19573 + 0.22049033614354461380e1 * t19950 - 0.32216644838286502747e3 * t19952 + 0.27708240000000000000e3 * t19954 - 0.25655777777777777777e2 * t19956 + 0.23090200000000000000e2 * t19958 + 0.42955526451048670329e3 * t19960 + t18706;
24441   t22110 = 0.65972000000000000000e1 * t6028 + t10 * (t21845 + t21890 + t21924 + t21975 + t21996 + t22034 + t22073 + t22096) - 0.2e1 / 0.3e1 * t6171 - 0.4e1 * t6174 - 0.2e1 * t6177 - 0.2e1 / 0.3e1 * t6181 - 0.2e1 * t6184 - 0.3e1 / 0.2e1 * t6190 - 0.3e1 / 0.2e1 * t7256 - 0.2e1 * t7260 - 0.2e1 * t7264;
24442   t22122 = 0.32216644838286502748e3 * t6194 + 0.96649934514859508243e3 * t7271 - 0.23749920000000000000e4 * t7285 + 0.66147100843063384139e1 * t7292 - 0.96649934514859508241e3 * t7296 - 0.13194400000000000000e2 * t7301 - 0.79166400000000000000e2 * t7303 - 0.39583200000000000000e2 * t7308 - 0.47499840000000000000e3 * t7312 + 0.92360800000000000000e2 * t7316 - 0.26388800000000000000e2 * t6196;
24443   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24444     v4rho4[4] = t19979 + t19991 + t22110 + t22122;
24445 
24446   t22127 = 0.61848750000000000000e0 * t7358;
24447   t22140 = t7438 * t7370;
24448   t22146 = t8 * t398 * t8342;
24449   t22149 = t8 * t1356 * t2850;
24450   t22156 = t2557 * t438;
24451   t22157 = t22156 * t1425;
24452   t22160 = t8265 * t610;
24453   t22163 = t922 * t1438;
24454   t22164 = t22163 * t1425;
24455   t22167 = t922 * t1483;
24456   t22168 = t22167 * t1425;
24457   t22171 = t2624 * t1799;
24458   t22172 = t922 * t1453;
24459   t22173 = t22172 * t1425;
24460   t22176 = t18362 * t8284;
24461   t22177 = t922 * t1418;
24462   t22178 = t22177 * t1425;
24463   t22181 = t556 * t594;
24464   t22182 = t22181 * t178;
24465   t22185 = t2640 * t1787;
24466   t22188 = t8194 * t590;
24467   t22191 = t1000 * t158;
24468   t22192 = t22191 * t178;
24469   t22197 = t2557 * t463;
24470   t22198 = t22197 * t1425;
24471   t22203 = t988 * t144;
24472   t22204 = t22203 * t165;
24473   t22207 = t8233 * t599;
24474   t22218 = -0.75923832556543500000e5 * t17786 * t7610 + 0.83915814930916500000e4 * t8285 * t22157 - 0.39794870790156720000e5 * t22160 * t7610 + 0.1604177959716360e4 * t8304 * t22164 - 0.591012932527080e3 * t8307 * t22168 + 0.7314537104229600e4 * t22171 * t22173 + 0.54545279705095725000e5 * t22176 * t22178 + 0.28875203274894480e5 * t22182 * t22178 + 0.4728103460216640e4 * t22185 * t22173 - 0.57703570488922399999e5 * t22188 * t7610 + 0.10801464928756824000e6 * t22192 * t7605 + 0.41957907465458250000e4 * t8285 * t22164 - 0.29969933903898750000e4 * t5449 * t22198 - 0.14984966951949375000e4 * t5449 * t22168 - 0.20772050189037024000e6 * t22204 * t7605 + 0.77895188208888840000e5 * t22207 * t7610 - 0.72460640194315200000e4 * t8291 * t22157 - 0.36230320097157600000e4 * t8291 * t22164 + 0.27172740072868200000e4 * t8294 * t22198 + 0.13586370036434100000e4 * t8294 * t22168;
24475   t22219 = t8003 * t8297;
24476   t22232 = t8054 * t8284;
24477   t22235 = t1605 * t144;
24478   t22236 = t22235 * t8297;
24479   t22237 = t922 * t19;
24480   t22238 = t22237 * t5476;
24481   t22241 = t8003 * t3997;
24482   t22242 = t22237 * t4815;
24483   t22246 = t17623 * t1005 * t164;
24484   t22252 = t1610 * t158;
24485   t22253 = t22252 * t7670;
24486   t22256 = t8010 * t3894;
24487   t22260 = t17603 * t1018 * t177;
24488   t22265 = t8017 * t171;
24489   t22267 = t22265 * t3912 * t609;
24490   t22274 = t552 * t585;
24491   t22275 = t22274 * t165;
24492   t22278 = t2632 * t1807;
24493   t22281 = t18301 * t8297;
24494   t22284 = -0.38981524421107548e5 * t17873 * t22242 - 0.101063211462130680e6 * t22253 * t22238 + 0.37233814749206040e5 * t22256 * t22242 - 0.20245414671903960000e5 * t22260 * t22238 + 0.70858951351663860000e4 * t17867 * t22242 + 0.17738839522049184000e5 * t22267 * t22238 - 0.4787204753469348e4 * t17797 * t22173 + 0.89909801711696250000e4 * t17790 * t22173 - 0.54345480145736400000e5 * t22275 * t22178 - 0.95104590255038700000e4 * t22278 * t22173 - 0.31002849831991968e5 * t22281 * t22178;
24495   t22287 = t8040 * t3928;
24496   t22291 = t17581 * t966 * t126;
24497   t22296 = t1595 * t120;
24498   t22297 = t22296 * t7711;
24499   t22300 = t8047 * t3943;
24500   t22304 = t17589 * t979 * t137;
24501   t22309 = t1600 * t132;
24502   t22310 = t22309 * t8284;
24503   t22313 = t8018 * t3913;
24504   t22333 = t17594 * t953 * t113;
24505   t22340 = -0.17284317840e4 * t22287 * t22242 - 0.19335605286588840000e5 * t22291 * t22238 + 0.72508519824708150000e4 * t17879 * t22242 + 0.23632406461386360000e5 * t22297 * t22238 - 0.94529625845545440000e4 * t22300 * t22242 + 0.134482989330621360e6 * t22304 * t22238 - 0.48902905211135040e5 * t17882 * t22242 - 0.142633473532477200e6 * t22310 * t22238 - 0.64504870989269760000e4 * t22313 * t22242 - 0.3875356228998996e4 * t8298 * t22157 + 0.1367772786705528e4 * t5452 * t22198 + 0.3208355919432720e4 * t8304 * t22157 - 0.1182025865054160e4 * t8307 * t22198 + 0.61349741430012000000e3 * t7671 * t22157 - 0.21472409500504200000e3 * t5446 * t22198 - 0.49274554227914400000e3 * t7678 * t22157 + 0.17918019719241600000e3 * t7682 * t22198 - 0.25206296850e4 * t22333 * t22238 - 0.960239880e2 * t5455 * t22198 - 0.480119940e2 * t5455 * t22168;
24506   t22368 = t8054 * t3959;
24507   t22372 = t17615 * t992 * t150;
24508   t22387 = 0.52516458803080800000e3 * t7708 * t22198 + 0.26258229401540400000e3 * t7708 * t22168 - 0.6896563555416480e4 * t7712 * t22157 + 0.54859028281722000e5 * t22368 * t22242 - 0.20139795583419960000e6 * t22372 * t22238 + 0.71927841369357000000e5 * t17870 * t22242 + 0.30674870715006000000e3 * t7671 * t22164 - 0.10736204750252100000e3 * t5446 * t22168 - 0.24637277113957200000e3 * t7678 * t22164 + 0.89590098596208000000e2 * t7682 * t22168 + 0.2400599700e3 * t7686 * t22157;
24509   t22395 = t1590 * t107;
24510   t22396 = t22395 * t7698;
24511   t22409 = t7608 * t22198;
24512   t22411 = t7608 * t22168;
24513   t22413 = t4868 * t7613;
24514   t22414 = t22413 * t7605;
24515   t22416 = t17066 * t7610;
24516   t22418 = t141 * t67;
24517   t22419 = t22418 * t114;
24518   t22420 = t22419 * t22178;
24519   t22422 = t1583 * t68;
24520   t22423 = t22422 * t7685;
24521   t22424 = t22423 * t22238;
24522   t22426 = t7614 * t22157;
24523   t22428 = t7614 * t22164;
24524   t22430 = t4938 * t22198;
24525   t22432 = t4938 * t22168;
24526   t22434 = t104 * t68;
24527   t22435 = t22434 * t114;
24528   t22436 = t22435 * t7605;
24529   t22438 = t7505 * t564;
24530   t22439 = t22438 * t7610;
24531   t22441 = 0.1200299850e3 * t7686 * t22164 + 0.10082518740e4 * t17876 * t22242 + 0.40330074960e4 * t22396 * t22238 - 0.3448281777708240e4 * t7712 * t22164 + 0.2507841292878720e4 * t5461 * t22198 + 0.1253920646439360e4 * t5461 * t22168 + 0.6339265490332320e4 * t7719 * t22157 + 0.3169632745166160e4 * t7719 * t22164 + 0.40020000000000000000e2 * t22409 + 0.20010000000000000000e2 * t22411 + 0.19209600000000000000e3 * t22414 - 0.96048000000000000000e2 * t22416 - 0.12006000000000000000e3 * t22420 + 0.72036000000000000000e3 * t22424 + 0.36018000000000000000e2 * t22426 + 0.18009000000000000000e2 * t22428 - 0.18009000000000000000e2 * t22430 - 0.90045000000000000000e1 * t22432 - 0.69368000000000000001e3 * t22436 + 0.34684000000000000001e3 * t22439;
24532   t22442 = t7603 * t22157;
24533   t22444 = t7725 * t1453;
24534   t22447 = t7725 * t1483;
24535   t22452 = t7580 * t1418;
24536   t22459 = t8094 * t953;
24537   t22462 = t8248 * t572;
24538   t22465 = t2609 * t1755;
24539   t22469 = t8040 * t7698;
24540   t22472 = t18367 * t7698;
24541   t22479 = t961 * t120;
24542   t22480 = t22479 * t138;
24543   t22483 = t542 * t119;
24544   t22484 = t22483 * t138;
24545   t22487 = t2648 * t603;
24546   t22488 = t22487 * t7677;
24547   t22491 = t8215 * t7681;
24548   t22495 = t2649 * t2651 * t5119;
24549   t22498 = t7517 * t7685;
24550   t22501 = t18389 * t7685;
24551   t22504 = 0.19765285404068592000e5 * t22469 * t7605 + 0.45116412335373960000e4 * t22472 * t22178 - 0.74119820265257220000e4 * t17764 * t7610 + 0.96678026432944200000e3 * t17773 * t22173 - 0.24507680774771040000e5 * t22480 * t7605 - 0.59081016153465900000e4 * t22484 * t22178 - 0.51738281939310120000e4 * t22488 * t22178 + 0.69283009581067519999e4 * t22491 * t7610 - 0.80631088736587200000e3 * t22495 * t22173 + 0.24806196900000000000e4 * t22498 * t7605 + 0.4801199400e3 * t22501 * t22178;
24552   t22511 = t551 * t107;
24553   t22512 = t22511 * t127;
24554   t22515 = t155 * t170;
24555   t22516 = t22515 * t127;
24556   t22519 = t8010 * t7670;
24557   t22522 = t18379 * t7670;
24558   t22529 = t1013 * t171;
24559   t22530 = t22529 * t7677;
24560   t22533 = t7517 * t3856;
24561   t22534 = t22533 * t22242;
24562   t22536 = t2569 * t1747;
24563   t22537 = t22536 * t22173;
24564   t22540 = t16936 * t928 * t84;
24565   t22541 = t22540 * t22238;
24566   t22543 = t17090 * t22242;
24567   t22545 = t17085 * t22173;
24568   t22547 = t7603 * t22164;
24569   t22549 = t8259 * t581;
24570   t22552 = t2616 * t1791;
24571   t22555 = t8047 * t7711;
24572   t22558 = t18226 * t7711;
24573   t22563 = -0.99224787600000000000e3 * t17800 * t7610 + 0.1440359820e3 * t17761 * t22173 - 0.40827977120000000001e4 * t22512 * t7605 - 0.8962238880e3 * t22516 * t22178 + 0.21676908638604240000e5 * t22519 * t7605 + 0.58282254358511400000e4 * t22522 * t22178 - 0.75869180235114840000e4 * t17779 * t7610 + 0.85889638002016800000e3 * t17783 * t22173 - 0.19052827634793568000e5 * t22530 * t7605 - 0.36018000000000000000e3 * t22534 - 0.60030000000000000000e2 * t22537 - 0.21610800000000000000e3 * t22541 + 0.10805400000000000000e3 * t22543 + 0.18009000000000000000e2 * t22545 - 0.40020000000000000000e2 * t22547 + 0.98030723099084160000e4 * t22549 * t7610 - 0.13129114700770200000e4 * t22552 * t22173 - 0.14023012562680176000e6 * t22555 * t7605 - 0.34482817777082400e5 * t22558 * t22178 + 0.50992772955200640000e5 * t17776 * t7610;
24574   t22566 = t974 * t132;
24575   t22567 = t22566 * t151;
24576   t22570 = t546 * t576;
24577   t22571 = t22570 * t151;
24578   t22574 = t2626 * t4885;
24579   t22581 = t177 * t7542;
24580   t22582 = t22581 * t438;
24581   t22585 = t7749 * t1438;
24582   t22588 = t2642 * t4832;
24583   t22591 = t609 * t7542;
24584   t22592 = t22591 * t463;
24585   t22596 = t7756 * t1483;
24586   t22603 = t137 * t7542;
24587   t22604 = t22603 * t438;
24588   t22607 = t7736 * t1438;
24589   t22610 = t2618 * t4832;
24590   t22613 = t150 * t7542;
24591   t22614 = t22613 * t463;
24592   t22625 = 0.59101293252708e2 * t2809 * t22596 - 0.8359470976262400e4 * t5279 * t7726 - 0.4179735488131200e4 * t5279 * t7729 + 0.574713629618040e3 * t2770 * t22604 + 0.574713629618040e3 * t2770 * t22607 + 0.191571209872680e3 * t2770 * t22610 - 0.208986774406560e3 * t1641 * t22614 - 0.208986774406560e3 * t1641 * t22447 - 0.15914078425176e2 * t2766 * t22574 + 0.218391179254855200e6 * t8260 * t2763 - 0.79414974274492800e5 * t17385 * t2767;
24593   t22638 = t7736 * t1418;
24594   t22641 = t7826 * t1453;
24595   t22648 = t8104 * t1005;
24596   t22655 = t7749 * t1418;
24597   t22660 = t7911 * t1453;
24598   t22667 = t7725 * t1418;
24599   t22676 = 0.22988545184721600e5 * t2617 * t7737 + 0.11494272592360800e5 * t2617 * t7722 + 0.114942725923608000e6 * t11386 * t7961 + 0.20898677440656000e5 * t5279 * t7986 + 0.5747136296180400e4 * t7983 * t22638 + 0.238711176377640e3 * t2766 * t22641 + 0.43763715669234000000e4 * t7811 * t7986 + 0.1074200293699380e4 * t7960 * t22638 + 0.63698060505696400000e5 * t22648 * t2810 - 0.15760344867388800000e5 * t7746 * t7969 - 0.10694519731442400000e5 * t7855 * t7750 - 0.2887520327489448e4 * t7965 * t22655 - 0.53472598657212000000e4 * t7855 * t7753 - 0.472810346021664e3 * t2809 * t22660 + 0.19693672051155300000e5 * t11336 * t7961 - 0.12678530980664640000e6 * t11394 * t7949 - 0.5433656134570560e4 * t7990 * t22667 - 0.214840058739876e3 * t1635 * t22444 - 0.15038804111791320e5 * t11328 * t7953 - 0.3222600881098140e4 * t5273 * t7956;
24600   t22681 = t5217 * t143;
24601   t22684 = t5255 * t157;
24602   t22687 = t459 * t7543;
24603   t22690 = my_piecewise3(t65, 0.154e3 / 0.27e2 * t4758, 0);
24604   t22692 = t433 * t85 * t22690;
24605   t22694 = t2561 * t7548;
24606   t22697 = t927 * t929 * t22690;
24607   t22699 = t7551 * t2558;
24608   t22704 = t4847 * t923;
24609   t22706 = t7534 * t2579;
24610   t22708 = t4865 * t923;
24611   t22710 = t44 * t106;
24612   t22711 = t22710 * t930;
24613   t22713 = t1463 * t2558;
24614   t22715 = t7749 * t1483;
24615   t22718 = t2642 * t4885;
24616   t22729 = -0.120060e3 * t22704 + 0.24456666666666666668e3 * t22706 - 0.60030e2 * t22708 + 0.51630740740740740742e3 * t22711 - 0.120060e3 * t22713 - 0.75987377039196e2 * t1625 * t22715 - 0.25329125679732e2 * t1625 * t22718 - 0.17289473565831880000e6 * t1680 * t2806 + 0.187308884401618140e6 * t8234 * t2792 - 0.66109018024100520e5 * t17376 * t2796 + 0.12917854096663320e5 * t2633 * t7827;
24617   t22738 = t164 * t7542;
24618   t22739 = t22738 * t438;
24619   t22742 = t7826 * t1438;
24620   t22745 = t2634 * t4832;
24621   t22748 = t22581 * t463;
24622   t22753 = t8118 * t1018;
24623   t22776 = t2653 * t4885;
24624   t22781 = 0.6458927048331660e4 * t2633 * t7830 - 0.4559242622351760e4 * t5246 * t7833 - 0.2279621311175880e4 * t5246 * t7836 + 0.215297568277722e3 * t2799 * t22739 + 0.215297568277722e3 * t2799 * t22742 + 0.71765856092574e2 * t2799 * t22745 - 0.75987377039196e2 * t1625 * t22748 + 0.30659722630702293333e5 * t1688 * t2820 - 0.11148990047528106666e5 * t22753 * t2825 + 0.16424851409304800000e4 * t7899 * t7905 + 0.82124257046523999999e3 * t7899 * t7908 - 0.59726732397471999999e3 * t7902 * t7912 - 0.29863366198736000000e3 * t7902 * t7915 + 0.21423719229528e2 * t2819 * t22591 * t438 + 0.21423719229528e2 * t2819 * t7756 * t1438 - 0.159839647487460e3 * t2795 * t22748 - 0.159839647487460e3 * t2795 * t22715 - 0.53279882495820e2 * t2795 * t22718 + 0.19700431084236e2 * t2809 * t22776 - 0.34764853477006800e5 * t8266 * t2806;
24625   t22811 = t113 * t7542;
24626   t22812 = t22811 * t438;
24627   t22815 = t7513 * t1438;
24628   t22818 = t2552 * t4832;
24629   t22821 = t126 * t7542;
24630   t22822 = t22821 * t463;
24631   t22825 = t7580 * t1483;
24632   t22828 = t2575 * t4885;
24633   t22831 = t22738 * t463;
24634   t22834 = 0.3408318968334e1 * t1615 * t22776 - 0.4000999500e3 * t2570 * t7577 + 0.3200799600e3 * t5252 * t7581 + 0.1600399800e3 * t5252 * t7584 - 0.400099950e2 * t2742 * t22812 - 0.400099950e2 * t2742 * t22815 - 0.133366650e2 * t2742 * t22818 + 0.160039980e2 * t1630 * t22822 + 0.160039980e2 * t1630 * t22825 + 0.53346660e1 * t1630 * t22828 + 0.174155645338800e3 * t2781 * t22831;
24635   t22838 = t7826 * t1483;
24636   t22841 = t2634 * t4885;
24637   t22846 = t7749 * t1453;
24638   t22853 = t7826 * t1418;
24639   t22856 = t7936 * t4891;
24640   t22859 = t1014 * t1002;
24641   t22860 = t22859 * t1018;
24642   t22876 = t989 * t976;
24643   t22877 = t22876 * t992;
24644   t22878 = t2634 * t4945;
24645   t22881 = t2824 * t4891;
24646   t22884 = t17407 * t162;
24647   t22889 = t17451 * t111;
24648   t22890 = t2552 * t4945;
24649   t22895 = 0.174155645338800e3 * t2781 * t22838 + 0.58051881779600e2 * t2781 * t22841 - 0.96250677582981600000e5 * t11377 * t7966 - 0.1198797356155950e4 * t1620 * t22846 + 0.18115160048578800000e6 * t11352 * t7923 + 0.31701530085012900000e5 * t7823 * t7926 + 0.6393585899498400e4 * t7922 * t22853 + 0.245398965720048e3 * t1615 * t22856 + 0.2999320692133920e4 * t22860 * t2653 * t4945 - 0.233713300685760e3 * t2823 * t17738 * t922 * t4891 - 0.30077608223582640e5 * t8249 * t2749 + 0.11279103083843490e5 * t17382 * t2753 - 0.4296801174797520e4 * t2610 * t7782 - 0.2148400587398760e4 * t2610 * t7785 + 0.29836734197659200e5 * t22877 * t22878 - 0.2983673419765920e4 * t2795 * t22881 + 0.17223805462217760e5 * t22884 * t22878 - 0.1418431038064992e4 * t1625 * t22881 - 0.1600399800e3 * t22889 * t22890 - 0.24381790347432000000e5 * t7943 * t7918;
24650   t22896 = t2653 * t4891;
24651   t22899 = t17462 * t148;
24652   t22900 = t2626 * t4945;
24653   t22905 = t17440 * t175;
24654   t22906 = t2642 * t4945;
24655   t22909 = t1425 * t463;
24656   t22910 = t7604 * t22909;
24657   t22913 = t7602 * t564;
24658   t22914 = t22913 * t22910;
24659   t22916 = t17094 * t22910;
24660   t22920 = t8290 * t599;
24661   t22926 = t7718 * t590;
24662   t22929 = t7691 * t572;
24663   t22934 = t7704 * t581;
24664   t22937 = t7676 * t7681;
24665   t22942 = t8303 * t610;
24666   t22947 = t7826 * t4811;
24667   t22951 = t2544 * t2552 * t16958;
24668   t22954 = t2544 * t2552 * t17076;
24669   t22956 = -0.31696327451661600e5 * t22926 * t22910 + 0.8962238880e3 * t22929 * t22910 - 0.38671210573177680000e4 * t17844 * t22910 + 0.52516458803080800000e4 * t22934 * t22910 + 0.39419643382331520000e4 * t22937 * t22910 - 0.4801199400e3 * t17832 * t22910 - 0.22458491436029040e5 * t22942 * t22910 + 0.27586254221665920e5 * t17858 * t22910 + 0.12227733032790690000e5 * t8004 * t22947 + 0.12006e2 * t22951 + 0.12006e2 * t22954;
24670   t22960 = t1429 * t2575 * t16919;
24671   t22963 = t117 * t106 * t111;
24672   t22964 = t22963 * t2571;
24673   t22966 = t2552 * t17069;
24674   t22967 = t7592 * t22966;
24675   t22969 = t2575 * t16958;
24676   t22970 = t2565 * t22969;
24677   t22972 = t2575 * t17076;
24678   t22973 = t2565 * t22972;
24679   t22975 = t2618 * t16919;
24680   t22976 = t2574 * t22975;
24681   t22978 = t17052 * t2549;
24682   t22980 = t1470 * t7524;
24683   t22983 = t5416 * t106 * t483;
24684   t22984 = t22983 * t7519;
24685   t22986 = t4823 * t7528;
24686   t22988 = t84 * t7542;
24687   t22990 = t1423 * t22988 * t1425;
24688   t22992 = t7506 * t7514;
24689   t22994 = t22811 * t1425;
24690   t22995 = t2570 * t22994;
24691   t22998 = t442 * t1418 * t444;
24692   t22999 = t22998 * t2549;
24693   t23002 = t2544 * t7513 * t7509;
24694   t23004 = t7749 * t4811;
24695   t23010 = t22738 * t1425;
24696   t23013 = t22581 * t1425;
24697   t23018 = -0.12006e2 * t22960 - 0.66625888888888888890e3 * t22964 + 0.48024e2 * t22967 - 0.32016e2 * t22970 - 0.32016e2 * t22973 + 0.24012e2 * t22976 + 0.20943800000000000000e3 * t22978 + 0.120060e3 * t22980 + 0.16208100000000000000e4 * t22984 + 0.96048000000000000000e2 * t22986 + 0.90045000000000000000e1 * t22990 - 0.17342000000000000000e3 * t22992 - 0.10005000000000000000e2 * t22995 + 0.18009000000000000000e2 * t22999 + 0.24012e2 * t23002 - 0.10122707335951980000e4 * t5492 * t23004 + 0.80631088736587200000e3 * t8019 * t7756 * t4811 - 0.113981065558794e3 * t1546 * t23010 + 0.84430418932440e2 * t2641 * t23013 + 0.15337435357503000000e2 * t1555 * t23013;
24698   t23022 = t7513 * t4811;
24699   t23025 = t7580 * t4811;
24700   t23030 = t7736 * t4811;
24701   t23035 = t7725 * t4811;
24702   t23040 = t2575 * t17095;
24703   t23041 = t7592 * t23040;
24704   t23043 = t7518 * t23022;
24705   t23046 = t17049 * t7531;
24706   t23049 = t4810 * t7527 * t4811;
24707   t23051 = t7568 * t7510;
24708   t23053 = t7580 * t7509;
24709   t23054 = t2565 * t23053;
24710   t23071 = -0.61230600000000000000e3 * t23046 - 0.10805400000000000000e3 * t23049 - 0.53360000000000000001e3 * t23051 - 0.64032e2 * t23054 + 0.6496920736851258e4 * t5484 * t22947 - 0.5319116392743720e4 * t8011 * t23004 - 0.1600399800e3 * t7940 * t22966 + 0.70113990205728e2 * t2823 * t7936 * t16919 + 0.23188014880000000000e4 * t18251 * t2571 + 0.16003998000e4 * t2570 * t7510 + 0.1600399800e3 * t2742 * t23053;
24711   t23077 = t2634 * t17076;
24712   t23080 = t2642 * t16919;
24713   t23087 = t7826 * t7509;
24714   t23102 = t2642 * t16958;
24715   t23112 = t987 * t143 * t124;
24716   t23121 = t7756 * t1453;
24717   t23124 = t2642 * t4891;
24718   t23127 = t975 * t963;
24719   t23128 = t23127 * t979;
24720   t23131 = 0.2264023389404400e4 * t2777 * t23077 - 0.1044933872032800e4 * t2781 * t23080 + 0.18479239245633570000e6 * t18212 * t2627 + 0.139859691551527500e6 * t2625 * t8224 + 0.5594387662061100e4 * t2785 * t23087 - 0.342779507672448e3 * t2819 * t7911 * t7509 + 0.449898103820088e3 * t7978 * t2653 * t17069 - 0.171389753836224e3 * t2819 * t2824 * t16958 - 0.171389753836224e3 * t2819 * t2824 * t17076 - 0.2557434359799360e4 * t2791 * t23102 + 0.800199900e2 * t2742 * t22969 + 0.800199900e2 * t2742 * t22972 - 0.480119940e2 * t1630 * t22975 - 0.36971211182222222223e4 * t23112 * t2611 + 0.103342832773306560e6 * t11359 * t7923 + 0.15957349178231160e5 * t5246 * t7926 + 0.3444761092443552e4 * t7931 * t22853 + 0.531911639274372e3 * t1625 * t23121 - 0.2089867744065600e4 * t1641 * t23124 - 0.19923405826758720e5 * t23128 * t22900;
24721   t23132 = t2634 * t4891;
24722   t23135 = t962 * t143;
24723   t23136 = t23135 * t966;
24724   t23137 = t2618 * t4945;
24725   t23140 = t1001 * t157;
24726   t23141 = t23140 * t1005;
24727   t23146 = t2626 * t4891;
24728   t23149 = t951 * t106;
24729   t23150 = t23149 * t953;
24730   t23151 = t2575 * t4945;
24731   t23156 = t17466 * t124;
24732   t23161 = t17517 * t135;
24733   t23167 = t8099 * t992;
24734   t23191 = 0.33009847199632480000e6 * t1672 * t2792 - 0.12378692699862180000e6 * t23167 * t2796 + 0.24153546731438400000e5 * t7820 * t7827 + 0.12076773365719200000e5 * t7820 * t7830 - 0.90575800242894000000e4 * t7823 * t7833 - 0.45287900121447000000e4 * t7823 * t7836 + 0.426239059966560e3 * t2791 * t22739 + 0.426239059966560e3 * t2791 * t22742 + 0.142079686655520e3 * t2791 * t22745 + 0.7141239743176e1 * t2819 * t2653 * t4832 - 0.7790443356192e1 * t2823 * t1786 * t7542 * t463;
24735   t23223 = t5222 * t963;
24736   t23226 = t5227 * t976;
24737   t23229 = t2626 * t17069;
24738   t23232 = t2634 * t16958;
24739   t23240 = t2733 * t157 * t162;
24740   t23245 = t7749 * t7509;
24741   t23248 = -0.7790443356192e1 * t2823 * t7911 * t1483 - 0.2596814452064e1 * t2823 * t2824 * t4885 - 0.36008995500e4 * t7506 * t2566 + 0.14403598200e4 * t17370 * t2576 - 0.8001999000e3 * t2570 * t7574 - 0.16292037787773930e5 * t17240 * t958 - 0.11610376355920e2 * t977 * t980 * t22690 - 0.13319970623955e2 * t586 * t151 * t22690 + 0.8879980415970e1 * t990 * t993 * t22690 + 0.4221520946622e1 * t595 * t165 * t22690 - 0.2814347297748e1 * t1003 * t1006 * t22690 + 0.20649990282445968889e5 * t23223 * t968 - 0.12907298396270174815e6 * t23226 * t981 - 0.7272703960679430e4 * t7948 * t23229 + 0.2797193831030550e4 * t2785 * t23232 + 0.2797193831030550e4 * t2785 * t23077 - 0.1198797356155950e4 * t1620 * t23080 - 0.17962523051873182333e6 * t23240 * t2635 - 0.14492128038863040000e6 * t7820 * t8212 - 0.5114868719598720e4 * t2791 * t23245;
24742   t23249 = t2634 * t17069;
24743   t23252 = t2642 * t17076;
24744   t23255 = t2653 * t16919;
24745   t23274 = t168 * t1002 * t175;
24746   t23277 = t22603 * t1425;
24747   t23280 = t22613 * t1425;
24748   t23291 = t2626 * t17095;
24749   t23294 = t2653 * t17095;
24750   t23297 = t2618 * t17095;
24751   t23302 = 0.92867206720577893333e5 * t23274 * t2643 - 0.313480161609840e3 * t1530 * t23277 + 0.243817903474320e3 * t2625 * t23280 + 0.29969933903898750000e3 * t1538 * t23280 - 0.22643950060723500000e3 * t2633 * t23010 + 0.15184766511308700000e5 * t5535 * t8239 - 0.12982531368148140000e5 * t8234 * t8023 - 0.4296801174797520e4 * t7960 * t23291 + 0.20212642292426136e5 * t7965 * t23294 - 0.6721679160e3 * t7996 * t23297 + 0.3007760822358264e4 * t7952 * t23297;
24752   t23306 = t2634 * t17095;
24753   t23309 = t2634 * t17086;
24754   t23328 = t22821 * t1425;
24755   t23335 = t2653 * t17086;
24756   t23338 = t2642 * t17086;
24757   t23348 = t2824 * t17086;
24758   t23353 = 0.27168280672852800e5 * t7990 * t23306 + 0.2387111763776400e4 * t2762 * t23309 - 0.22988545184721600e5 * t7983 * t23291 + 0.49612393800000000000e3 * t5602 * t7514 - 0.58325681600000000001e3 * t8249 * t8200 + 0.24706606755085740000e4 * t5576 * t8200 - 0.24507680774771040000e4 * t8260 * t8205 - 0.12748193238800160000e5 * t5561 * t8205 + 0.11540714097784480000e5 * t8195 * t8239 + 0.240059970e2 * t1513 * t22994 - 0.213386640e2 * t2610 * t23328 + 0.80565022027453500000e2 * t1522 * t23328 - 0.65645573503851000000e2 * t2617 * t23277 + 0.9042497867664324e4 * t2799 * t23335 - 0.16783162986183300e5 * t2785 * t23338 + 0.17902040518595520e5 * t2791 * t23335 + 0.1542507784526016e4 * t2819 * t7936 * t17086 - 0.13584140336426400e5 * t2777 * t23338 - 0.8983396574411616e4 * t2805 * t23348 - 0.1635993104800320e4 * t2813 * t23348;
24759   t23354 = t2626 * t17086;
24760   t23359 = t2618 * t17086;
24761   t23366 = t2642 * t17095;
24762   t23380 = t4772 * t143 * t492;
24763   t23386 = t5431 * t963 * t501;
24764   t23392 = t5426 * t976 * t509;
24765   t23406 = t5421 * t157 * t518;
24766   t23409 = 0.80660149920000000001e4 * t23380 * t8042 - 0.37865560352903145000e5 * t18182 * t8042 + 0.44901572276634084000e5 * t23386 * t8049 + 0.25266501025753104000e6 * t17699 * t8049 - 0.26332333575226560000e6 * t23392 * t8056 - 0.69148513105668360000e4 * t5589 * t8023 + 0.56849815414509600000e4 * t8266 * t8026 + 0.10838454319302120000e4 * t5548 * t8026 - 0.86603761976334399999e3 * t8216 * t8035 - 0.53773433280000000000e4 * t17721 * t7519 + 0.35460425795093001000e6 * t23406 * t8005;
24767   t23415 = t5407 * t1002 * t527;
24768   t23422 = t27 * t1013 * t1015 * t3912;
24769   t23429 = t2618 * t17076;
24770   t23432 = t2626 * t16919;
24771   t23436 = t2681 * t963 * t135;
24772   t23440 = t2688 * t976 * t148;
24773   t23453 = t7736 * t7509;
24774   t23456 = t2575 * t17069;
24775   t23459 = t2618 * t16958;
24776   t23462 = t2634 * t16919;
24777   t23467 = 0.19923890259677191200e6 * t18205 * t8005 - 0.18084995735328648000e6 * t23415 * t8012 - 0.36104322831562062000e5 * t17669 * t8012 + 0.31446124607269008000e5 * t23422 * t8020 - 0.38361515396990400e5 * t7922 * t23366 + 0.119122461411739200e6 * t17283 * t971 + 0.429680117479752e3 * t2756 * t23429 - 0.214840058739876e3 * t1635 * t23432 - 0.21658176621196470667e5 * t23436 * t2619 + 0.13083088094577585778e6 * t23440 * t2627 + 0.10565442483887200000e6 * t7766 * t8224 + 0.4528046778808800e4 * t2777 * t23087 - 0.5433656134570560e4 * t7990 * t23229 + 0.2264023389404400e4 * t2777 * t23232 - 0.29874129600000000000e4 * t7776 * t8252 - 0.2240559720e3 * t2748 * t23453 + 0.2240559720e3 * t7996 * t23456 - 0.1120279860e3 * t2748 * t23459 + 0.238711176377640e3 * t2766 * t23462 - 0.12327897614715856000e6 * t18218 * t2619;
24778   t23486 = t7756 * t7509;
24779   t23490 = t2642 * t17069;
24780   t23493 = t2653 * t16958;
24781   t23496 = t2653 * t17076;
24782   t23499 = t2824 * t16919;
24783   t23504 = t7725 * t7509;
24784   t23507 = t2618 * t17069;
24785   t23510 = t2626 * t16958;
24786   t23513 = t2626 * t17076;
24787   t23520 = -0.2887520327489448e4 * t7965 * t23490 + 0.1122924571801452e4 * t2805 * t23493 + 0.1122924571801452e4 * t2805 * t23496 - 0.472810346021664e3 * t2809 * t23499 - 0.17505486267693600000e5 * t7808 * t8191 - 0.954844705510560e3 * t2762 * t23504 + 0.1074200293699380e4 * t7960 * t23507 - 0.477422352755280e3 * t2762 * t23510 - 0.477422352755280e3 * t2762 * t23513 + 0.14314939667002800e5 * t2641 * t8269 + 0.408998276200080e3 * t2813 * t23486;
24788   t23534 = t2668 * t1015 * t2651;
24789   t23550 = t2544 * t2575 * t17086;
24790   t23552 = t2565 * t23359;
24791   t23570 = -0.555069089128680e3 * t7972 * t23490 + 0.204499138100040e3 * t2813 * t23493 + 0.204499138100040e3 * t2813 * t23496 - 0.81799655240016e2 * t1615 * t23499 - 0.16312034248109575111e5 * t23534 * t2654 - 0.13139881127443840000e5 * t7899 * t8219 - 0.4597709036944320e4 * t2770 * t23504 + 0.5747136296180400e4 * t7983 * t23507 - 0.2298854518472160e4 * t2770 * t23510 - 0.2298854518472160e4 * t2770 * t23513 + 0.1044933872032800e4 * t1641 * t23462 - 0.24012e2 * t23550 + 0.96048e2 * t23552 + 0.18608285460780862000e5 * t18239 * t2643 - 0.486902709762e0 * t604 * t178 * t22690 + 0.324601806508e0 * t1016 * t1019 * t22690 - 0.18150888369754933333e5 * t8123 * t2708 - 0.3759701027947830e4 * t5115 * t2699 + 0.37928553580002800000e4 * t8128 * t2702 + 0.19853743568623200e5 * t5058 * t2705;
24792   t23603 = t2618 * t4885;
24793   t23607 = t5260 * t157 * t1005;
24794   t23608 = t2634 * t418;
24795   t23614 = t5265 * t1002 * t1018;
24796   t23615 = t2642 * t418;
24797   t23622 = t26 * t11459 * t1015 * t11320;
24798   t23628 = t8123 * t979;
24799   t23631 = -0.5967779409441e1 * t568 * t127 * t22690 + 0.3978519606294e1 * t964 * t967 * t22690 + 0.17415564533880e2 * t577 * t138 * t22690 - 0.53346660e1 * t2752 * t23603 - 0.23232692762302311000e6 * t23607 * t23608 - 0.129938414737025160e6 * t18136 * t23608 + 0.117020560640361840e6 * t23614 * t23615 + 0.23282226872689554000e5 * t18145 * t23615 - 0.20157772184146800000e5 * t23622 * t2653 * t418 - 0.23596154880681413333e6 * t1664 * t2778 + 0.90754441848774666666e5 * t23628 * t2782;
24800   t23638 = t22613 * t438;
24801   t23641 = t7725 * t1438;
24802   t23644 = t2626 * t4832;
24803   t23655 = t22821 * t438;
24804   t23658 = t7580 * t1438;
24805   t23661 = t2575 * t4832;
24806   t23664 = t22603 * t463;
24807   t23667 = t7736 * t1483;
24808   t23682 = -0.21130884967774400000e5 * t7766 * t7769 - 0.10565442483887200000e5 * t7766 * t7772 - 0.452804677880880e3 * t2777 * t23638 - 0.452804677880880e3 * t2777 * t23641 - 0.150934892626960e3 * t2777 * t23644 + 0.99580432000000000001e3 * t7776 * t7782 + 0.49790216000000000001e3 * t7776 * t7785 - 0.42677328000000000000e3 * t7779 * t7788 - 0.21338664000000000000e3 * t7779 * t7791 + 0.373426620e2 * t2748 * t23655 + 0.373426620e2 * t2748 * t23658 + 0.124475540e2 * t2748 * t23661 - 0.160039980e2 * t2752 * t23664 - 0.160039980e2 * t2752 * t23667 - 0.17505486267693600000e4 * t7811 * t7726 - 0.87527431338468000000e3 * t7811 * t7729 + 0.119355588188820e3 * t2762 * t22604 + 0.119355588188820e3 * t2762 * t22607 + 0.39785196062940e2 * t2762 * t22610 - 0.47742235275528e2 * t2766 * t22614;
24809   t23683 = t2552 * t418;
24810   t23687 = t5222 * t143 * t966;
24811   t23688 = t2575 * t418;
24812   t23694 = t5227 * t963 * t979;
24813   t23695 = t2618 * t418;
24814   t23701 = t5255 * t976 * t992;
24815   t23702 = t2626 * t418;
24816   t23726 = t8128 * t966;
24817   t23735 = t5265 * t1015;
24818   t23738 = -0.143226705826584e3 * t2756 * t23658 - 0.47742235275528e2 * t2756 * t23661 + 0.53710014684969e2 * t1635 * t23664 + 0.53710014684969e2 * t1635 * t23667 + 0.17903338228323e2 * t1635 * t23603 + 0.37928553580002800000e5 * t1656 * t2763 - 0.15171421432001120000e5 * t23726 * t2767 + 0.43763715669234000000e4 * t7808 * t7737 + 0.21881857834617000000e4 * t7808 * t7722 - 0.19120669412353740e5 * t17330 * t1010 + 0.16878332155285605925e5 * t23735 * t1020;
24819   t23754 = t5260 * t1002;
24820   t23783 = 0.1044933872032800e4 * t1641 * t22641 - 0.19427418119503800e5 * t11292 * t7966 - 0.2862987933400560e4 * t5232 * t7969 - 0.555069089128680e3 * t7972 * t22655 - 0.81799655240016e2 * t1615 * t22660 + 0.17246093979770040000e5 * t11302 * t7979 - 0.95041550595800977777e5 * t23754 * t1007 - 0.800199900e2 * t1732 * t8107 + 0.71128880000000000001e2 * t2676 * t8111 + 0.37329207748419999999e2 * t2670 * t8161 - 0.268550073424845e3 * t1744 * t8131 + 0.21881857834617000000e3 * t2683 * t8134 + 0.1044933872032800e4 * t1776 * t8137 - 0.81272634491439999999e3 * t2690 * t8140 - 0.998997796796625e3 * t1710 * t8143 + 0.75479833535745000000e3 * t2735 * t8146 + 0.379936885195980e3 * t1721 * t8149 - 0.28143472977480000000e3 * t2662 * t8155 - 0.51124784525010e2 * t1763 * t8158 + 0.102836250259711920e6 * t17204 * t997;
24821   t23801 = t7736 * t1453;
24822   t23807 = t1379 * t67;
24823   t23808 = t23807 * t928;
24824   t23809 = t23808 * t7593;
24825   t23831 = 0.40020000000000000000e3 * t23809 - 0.335663259723666000e6 * t8195 * t2778 + 0.119879735615595000e6 * t17373 * t2782 - 0.27971938310305500e5 * t2625 * t7769 - 0.13985969155152750e5 * t2625 * t7772 + 0.9989977967966250e4 * t5240 * t7870 + 0.4994988983983125e4 * t5240 * t7816 - 0.559438766206110e3 * t2785 * t23638 - 0.559438766206110e3 * t2785 * t23641 - 0.186479588735370e3 * t2785 * t23644 + 0.199799559359325e3 * t1620 * t22831;
24826   t23838 = t2574 * t23146;
24827   t23840 = t7571 * t7596;
24828   t23842 = t7513 * t1418;
24829   t23843 = t7592 * t23842;
24830   t23845 = t2574 * t23801;
24831   t23847 = t4908 * t7599;
24832   t23849 = t1470 * t7557;
24833   t23852 = t1429 * t7580 * t1453;
24834   t23854 = t4908 * t7564;
24835   t23857 = t2574 * t22822;
24836   t23859 = t12628 * t7557;
24837   t23861 = t7551 * t77;
24838   t23862 = t23861 * t2553;
24839   t23865 = t2544 * t7527 * t1438;
24840   t23868 = t2544 * t2545 * t4832;
24841   t23871 = t1429 * t7513 * t1483;
24842   t23874 = t1429 * t2552 * t4885;
24843   t23876 = t1443 * t2566;
24844   t23878 = t7534 * t928;
24845   t23879 = t23878 * t2576;
24846   t23881 = t7568 * t7577;
24847   t23883 = t7571 * t7584;
24848   t23885 = -0.8004e1 * t23857 - 0.12006e2 * t23859 + 0.12006e2 * t23862 - 0.12006e2 * t23865 - 0.4002e1 * t23868 + 0.6003e1 * t23871 + 0.2001e1 * t23874 + 0.97826666666666666669e3 * t23876 - 0.48913333333333333334e3 * t23879 + 0.13340000000000000000e3 * t23881 - 0.66700000000000000000e2 * t23883;
24849   t23887 = t1470 * t7554;
24850   t23889 = t4908 * t7561;
24851   t23892 = t2544 * t22988 * t438;
24852   t23895 = t1429 * t2618 * t4891;
24853   t23898 = t926 * t66 * t928;
24854   t23899 = t23898 * t22890;
24855   t23901 = t2565 * t22818;
24856   t23903 = t2574 * t22825;
24857   t23905 = t2574 * t22828;
24858   t23907 = t4854 * t2546;
24859   t23909 = t16813 * t2553;
24860   t23913 = t5217 * t106 * t953;
24861   t23914 = t23913 * t23683;
24862   t23917 = t16993 * t2545 * t418;
24863   t23920 = t1429 * t22811 * t463;
24864   t23922 = t7568 * t7574;
24865   t23924 = t7571 * t7581;
24866   t23926 = t2565 * t22812;
24867   t23938 = t2565 * t22815;
24868   t23940 = -0.12606300000000000000e4 * t23914 + 0.54027000000000000000e3 * t23917 + 0.6003e1 * t23920 + 0.26680000000000000000e3 * t23922 - 0.13340000000000000000e3 * t23924 + 0.16008e2 * t23926 + 0.70113990205728e2 * t2823 * t5119 * t2557 * t1453 - 0.16003998000e4 * t11170 * t7593 - 0.4801199400e3 * t5252 * t7596 - 0.1600399800e3 * t7940 * t23842 + 0.16008e2 * t23938;
24869   t23947 = t7643 * t5673;
24870   t23950 = t616 * t5678;
24871   t23951 = t2836 * t4956;
24872   t23969 = 0.60e2 * t22409 + 0.30e2 * t22411 + 0.288e3 * t22414 - 0.144e3 * t22416 - 0.180e3 * t22420 + 0.1080e4 * t22424 + 0.54e2 * t22426 + 0.27e2 * t22428 - 0.27e2 * t22430 - 0.27e2 / 0.2e1 * t22432 - 0.1040e4 * t22436;
24873   t23982 = 0.520e3 * t22439 - 0.120e3 * t22442 - 0.540e3 * t22534 - 0.90e2 * t22537 - 0.324e3 * t22541 + 0.162e3 * t22543 + 0.27e2 * t22545 - 0.60e2 * t22547 - 0.45e2 * t22687 - 0.3e1 * t22692 + 0.50e2 * t22694 + 0.2e1 * t22697;
24874   t23995 = -0.18e2 * t22699 - 0.180e3 * t22704 + 0.1100e4 / 0.3e1 * t22706 - 0.90e2 * t22708 + 0.20900e5 / 0.27e2 * t22711 - 0.180e3 * t22713 + 0.240e3 * t22914 - 0.54e2 * t22916 + 0.18e2 * t22951 + 0.18e2 * t22954 - 0.18e2 * t22960;
24875   t24008 = -0.8990e4 / 0.9e1 * t22964 + 0.72e2 * t22967 - 0.48e2 * t22970 - 0.48e2 * t22973 + 0.36e2 * t22976 + 0.314e3 * t22978 + 0.180e3 * t22980 + 0.2430e4 * t22984 + 0.144e3 * t22986 + 0.27e2 / 0.2e1 * t22990 - 0.260e3 * t22992 - 0.15e2 * t22995;
24876   t24022 = 0.27e2 * t22999 + 0.36e2 * t23002 - 0.144e3 * t23041 + 0.270e3 * t23043 - 0.918e3 * t23046 - 0.162e3 * t23049 - 0.800e3 * t23051 - 0.96e2 * t23054 - 0.36e2 * t23550 + 0.144e3 * t23552 + 0.600e3 * t23809;
24877   t24035 = -0.48e2 * t23838 + 0.300e3 * t23840 + 0.72e2 * t23843 + 0.36e2 * t23845 - 0.90e2 * t23847 - 0.90e2 * t23849 - 0.18e2 * t23852 + 0.45e2 * t23854 - 0.12e2 * t23857 - 0.18e2 * t23859 + 0.18e2 * t23862 - 0.18e2 * t23865;
24878   t24049 = -0.6e1 * t23868 + 0.9e1 * t23871 + 0.3e1 * t23874 + 0.4400e4 / 0.3e1 * t23876 - 0.2200e4 / 0.3e1 * t23879 + 0.200e3 * t23881 - 0.100e3 * t23883 - 0.180e3 * t23887 + 0.90e2 * t23889 - 0.18e2 * t23892 + 0.18e2 * t23895 + 0.48e2 * t23899;
24879   t24062 = 0.8e1 * t23901 - 0.12e2 * t23903 - 0.4e1 * t23905 - 0.360e3 * t23907 + 0.180e3 * t23909 - 0.1890e4 * t23914 + 0.810e3 * t23917 + 0.9e1 * t23920 + 0.400e3 * t23922 - 0.200e3 * t23924 + 0.24e2 * t23926 + 0.24e2 * t23938;
24880   t24065 = t23969 + t23982 + t23995 + t24008 + t24022 + t24035 + t24049 + t24062;
24881   t24069 = t7620 * t466;
24882   t24070 = t24069 * t184;
24883   t24073 = t2582 * t1486;
24884   t24074 = t24073 * t184;
24885   t24077 = t2582 * t1490;
24886   t24078 = t24077 * t184;
24887   t24081 = t933 * t4950;
24888   t24082 = t24081 * t184;
24889   t24084 = t18554 * t18556;
24890   t24086 = t5689 * t18537;
24891   t24093 = t1839 * t5691;
24892   t24102 = t184 * t24065 * t616 * t617 + 0.18e2 * t8315 * t23947 + 0.18e2 * t8323 * t23947 + 0.3e1 * t8335 * t23947 - 0.24e2 * t23950 * t23951 - t24084 * t23951 - 0.12e2 * t24086 * t23951 - 0.36e2 * t24093 * t23951 - 0.6e1 * t2835 * t24070 - 0.3e1 * t2843 * t24070 - 0.6e1 * t2835 * t24074 - 0.3e1 * t2843 * t24074 + 0.18e2 * t8315 * t24078 + 0.18e2 * t8323 * t24078 + 0.3e1 * t8335 * t24078 - 0.2e1 * t2835 * t24082 - t2843 * t24082;
24893   t24103 = my_piecewise3(t102, 0.19564372852465104000e6 * t22236 * t22238 + 0.21258673115832180000e6 * t22232 * t7605 - 0.1937678114499498e4 * t8298 * t22164 + 0.683886393352764e3 * t5452 * t22168 - 0.2438179034743200e4 * t8281 * t22198 - 0.1219089517371600e4 * t8281 * t22168 - 0.11755247227963621200e6 * t22219 * t7605 + 0.41489107863401016000e5 * t17793 * t7610 - 0.10971805656344400e5 * t8055 * t23035 - 0.14385568273871400000e5 * t5475 * t23035 + 0.17718337066630329000e5 * t18245 * t2611 + 0.12890403524392560e5 * t2610 * t8252 + 0.859360234959504e3 * t2756 * t23453 - 0.1002586940786088e4 * t7952 * t23456 + 0.429680117479752e3 * t2756 * t23459 + 0.74861638120096800000e5 * t7855 * t8269 + 0.358066764566460e3 * t1635 * t23132 + 0.2864534116531680e4 * t23136 * t23137 - 0.16362615189106872e5 * t23141 * t22906 + 0.199799559359325e3 * t1620 * t22838 + 0.66599853119775e2 * t1620 * t22841 + 0.6393585899498400e4 * t7922 * t23249 - 0.2557434359799360e4 * t2791 * t23252 - 0.183815594610579000e6 * t17305 * t984 - 0.1002586940786088e4 * t7952 * t22452 - 0.19204797600e4 * t17269 * t948 + 0.33140789274074074074e4 * t22681 * t955 + 0.18109568949798374444e6 * t22684 * t994 + 0.3444761092443552e4 * t7931 * t23249 - 0.1291785409666332e4 * t2799 * t23102 - 0.1291785409666332e4 * t2799 * t23252 + 0.531911639274372e3 * t1625 * t23255 + 0.1118877532412220e4 * t2795 * t23255 - 0.10143470530543341600e6 * t18259 * t2635 - 0.77507124579979920e5 * t2633 * t8212 - 0.2583570819332664e4 * t2799 * t23245 + 0.59101293252708e2 * t2809 * t22592 + 0.39400862168472000000e4 * t7746 * t7757 + 0.19700431084236000000e4 * t7746 * t7760 - 0.160417795971636e3 * t2805 * t22582 - 0.160417795971636e3 * t2805 * t22585 - 0.53472598657212e2 * t2805 * t22588 - 0.6269603232196800e4 * t17899 * t22173 + 0.15002928327119824000e6 * t22567 * t7605 + 0.38035592941993920e5 * t22571 * t22178 - 0.69662258135520e2 * t1641 * t22574 - 0.1044933872032800e4 * t2781 * t22846 + 0.40636317245720000000e4 * t7943 * t7816 - 0.181817599016985750e6 * t11342 * t7949 - 0.29969933903898750e5 * t5240 * t7918 - 0.7272703960679430e4 * t7948 * t22667 + 0.1118877532412220e4 * t2795 * t23121 + 0.5761439280e3 * t8041 * t23025 - 0.24169506608236050000e4 * t5614 * t23025 + 0.23632406461386360000e4 * t8048 * t23030 + 0.12225726302783760e5 * t5622 * t23030 - 0.1738242673850340e4 * t5033 * t2723 + 0.13936237559410133333e4 * t8118 * t2728 - 0.7201799100e3 * t5108 * t2693 + 0.87725618666666666667e3 * t8094 * t2696 - 0.23975947123119000e5 * t5073 * t2711 + 0.20631154499770300000e5 * t8099 * t2714 + 0.11018169670683420e5 * t5093 * t2717 - 0.90997229293852000000e4 * t8104 * t2720 - 0.2560639680e3 * t22465 * t22173 + 0.85354656000000000000e3 * t7779 * t7956 + 0.2240559720e3 * t7996 * t22452 + 0.61407933066666666667e4 * t1649 * t2749 + 0.29874129600000000000e4 * t11180 * t7953 - 0.26317685600000000000e4 * t22459 * t2753 + 0.17497704480000000000e4 * t22462 * t7610 + 0.640159920e2 * t2752 * t22444 - 0.47742235275528e2 * t2766 * t22447 - 0.65645573503851000000e3 * t7705 * t22164 - 0.2005173881572176e4 * t23156 * t23151 - 0.477422352755280e3 * t2766 * t23124 + 0.17241408888541200e5 * t23161 * t23137 + 0.1418431038064992e4 * t2809 * t22856 + 0.640159920e2 * t1630 * t23146 + 0.3734266200e3 * t23150 * t23151 - 0.1066933200e3 * t2752 * t23132 - 0.48339013216472100000e3 * t5458 * t22198 - 0.24169506608236050000e3 * t5458 * t22168 - 0.13129114700770200000e4 * t7705 * t22157 + 0.1280319840e3 * t7695 * t22198 + 0.640159920e2 * t7695 * t22168 + 0.12890403524392560000e4 * t7699 * t22157 + 0.64452017621962800000e3 * t7699 * t22164 - 0.2987412960e3 * t7692 * t22157 - 0.1493706480e3 * t7692 * t22164 - 0.20668566554661312e5 * t7931 * t23366 + 0.36363519803397150e5 * t7948 * t23306 + 0.3885483623900760e4 * t7972 * t23294 - 0.36922958569603260000e6 * t17645 * t8056 - 0.1718720469919008e4 * t2756 * t23354 + 0.3200799600e3 * t7940 * t23040 - 0.2400599700e3 * t2742 * t23359 + 0.4481119440e3 * t2748 * t23354 + 0.11494272592360800e5 * t2770 * t23309 - 0.480119940e2 * t1630 * t23801 + 0.81272634491439999999e4 * t7943 * t7870 - 0.73366398196744140000e5 * t22241 * t22242 + 0.110447652526471386e6 * t22246 * t22238 + 0.805650220274535e3 * t5273 * t7791 - 0.143226705826584e3 * t2756 * t23655 - 0.57614392800e4 * t23687 * t23688 + 0.26586457269059655000e5 * t18168 * t23688 - 0.30722128399802268000e5 * t23694 * t23695 - 0.171160168238972640e6 * t18177 * t23695 + 0.175548890501510400e6 * t23701 * t23702 + 0.24455466065581380000e6 * t18127 * t23702 + 0.1611300440549070e4 * t5273 * t7788 + 0.40330074960e4 * t18159 * t23683 + 0.2245849143602904e4 * t2805 * t23486 - 0.91954180738886400e5 * t2617 * t8191 - 0.1120279860e3 * t2748 * t23429 + 0.640159920e2 * t2752 * t23432 - 0.5041259370e3 * t5519 * t23022 - 0.41957907465458250000e5 * t17905 * t22910 + 0.43476384116589120000e5 * t22920 * t22910 + 0.23252137373993976e5 * t17820 * t22910 - 0.3330414534772080e4 * t22905 * t22906 - 0.42944819001008400000e4 * t17885 * t22910 + 0.2438179034743200e4 * t2781 * t22896 - 0.29090815842717720e5 * t22899 * t22900 + 0.2797193831030550e4 * t1620 * t22896 + 0.26877029578862400000e4 * t7902 * t7937 + 0.10224956905002e2 * t1615 * t22596 + 0.12167698716952380e5 * t17379 * t2810 - 0.2044991381000400e4 * t2641 * t7750 - 0.1022495690500200e4 * t2641 * t7753 + 0.715746983350140e3 * t5232 * t7757 + 0.357873491675070e3 * t5232 * t7760 - 0.29214162585720e2 * t2813 * t22582 - 0.29214162585720e2 * t2813 * t22585 - 0.9738054195240e1 * t2813 * t22588 + 0.10224956905002e2 * t1615 * t22592 + t23570 - 0.60030e2 * t23849 + t23738 + t23409 + t23631 + t22781 + t23191 + t23940 - 0.96048e2 * t23041 + 0.18009000000000000000e3 * t23043 + t23248 + t22895 + t23831 + t23071 + t23353 - 0.32016e2 * t23838 + 0.20010000000000000000e3 * t23840 + 0.24012e2 * t23845 - 0.60030e2 * t23847 + 0.48024e2 * t23843 - 0.240120e3 * t23907 + 0.120060e3 * t23909 + 0.12006e2 * t23895 + t23467 + t22956 + t23302 + t23885 + t23131 + t23520 - 0.12006e2 * t23852 + 0.5336e1 * t23901 - 0.8004e1 * t23903 + t23783 - 0.120060e3 * t23887 + 0.60030e2 * t23889 + 0.30015e2 * t23854 + t22284 - 0.26673330e1 * t560 * t114 * t22690 + 0.17782220e1 * t952 * t954 * t22690 + 0.449898103820088e3 * t7978 * t7756 * t1418 - 0.11198762324526000000e2 * t2652 * t22591 * t1425 - 0.3599184830560704e4 * t7978 * t2824 * t17095 + 0.33350000000000000001e2 * t22694 + 0.1334e1 * t22697 + 0.16008000000000000000e3 * t22914 - 0.12006e2 * t23892 + t23018 - 0.30015e2 * t22687 + t22563 + t22387 + 0.32016e2 * t23899 + t22218 + t22729 - 0.2668e1 * t23905 - 0.36018000000000000000e2 * t22916 - 0.2001e1 * t22692 + t22504 + t22340 + t23682 + t22625 + t22676 - 0.12006e2 * t22699 - 0.80040000000000000000e2 * t22442 + t22441 + t22834, t24102);
24894   t24117 = t4747 * t943;
24895   t24133 = -t101 * t24103 - 0.6e1 * t1369 * t2601 * t1506 + 0.12e2 * t1369 * t7657 * t477 - 0.18e2 * t4747 * t2603 * t1370 - 0.6e1 * t1369 * t7655 * t477 + 0.18e2 * t24117 * t4752 - 0.24e2 * t16741 * t944 * t4748 + 0.1174e1 * t24103 + 0.18e2 * t4747 * t2601 * t1370 - 0.6e1 * t4747 * t4748 * t1027 + 0.6e1 * t1369 * t2605 * t1506;
24896   t24184 = t4970 * t933;
24897   t24187 = t934 * t89;
24898   t24194 = t1498 * t4956 * t91;
24899   t24224 = t4956 * t87 * t91;
24900   t24228 = t87 * t4950 * t91;
24901   t24231 = t23 * t4758;
24902   t24237 = -0.3e1 / 0.100e3 * t24184 * t4967 + 0.9e1 / 0.50e2 * t24187 * t4967 + t56 * t24065 * t91 / 0.100e3 - t934 * t24194 / 0.10e2 + 0.3e1 / 0.100e3 * t1499 * t24069 * t91 + 0.3e1 / 0.100e3 * t1499 * t24073 * t91 - 0.3e1 / 0.100e3 * t4970 * t24077 * t91 + t1499 * t24081 * t91 / 0.100e3 + t17136 * t933 * t4956 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t7621 * t2587 - 0.9e1 / 0.100e3 * t2583 * t1500 - 0.9e1 / 0.100e3 * t2583 * t7629 + 0.9e1 / 0.50e2 * t2583 * t7633 - 0.9e1 / 0.100e3 * t934 * t4967 + 0.3e1 / 0.20e2 * t934 * t24224 - 0.3e1 / 0.100e3 * t934 * t24228 - 0.539e3 / 0.21870e5 * t57 * t24231 - t470 * t24065 * t91 / 0.100e3;
24903   t24246 = -0.2e1 * t1369 * t944 * t4977 + 0.6e1 * t1369 * t2603 * t1506 - 0.3e1 * t405 * t1506 * t2846 - 0.3e1 * t405 * t477 * t8338 - t405 * t943 * t5696 + 0.6e1 * t1369 * t1370 * t2846 - t405 * t4977 * t1027 - 0.3e1 * t405 * t2600 * t1846 - 0.3e1 * t405 * t7654 * t621 + t405 * (-0.1540e4 / 0.6561e4 * t24 * t4758 - 0.209e3 / 0.243e3 * t40 * sigma[0] * t4762 * t52 + 0.2809e4 / 0.480e3 * t420 * t41 * t4767 * t52 - 0.18837e5 / 0.12800e5 * t2530 * t4775 + 0.29403e5 / 0.256000e6 * t7493 * t4785 - 0.19683e5 / 0.1280000e7 * t16789 * t4780 / t542 * t52 + 0.2e1 * t4974 * t940 + 0.6e1 * t1503 * t2597 + 0.6e1 * t474 * t7651 + 0.2e1 * t94 * t24237) * t187 + 0.6e1 * t1369 * t7660 * t477;
24904   t24254 = 0.5e1 / 0.36e2 * t8 * t4741 * t1031;
24905   t24255 = t17 * t8341;
24906   t24262 = t1355 * t1030;
24907   t24264 = t385 * t24262 * t392;
24908   t24273 = 0.12113307472923900000e3 * t22140 - 0.12113307472923900000e3 * t2866 * t7366 * t5891 - 0.3e1 / 0.8e1 * t22146 + t22149 / 0.4e1 - t1325 * t2510 * t5711 / 0.2e1 - 0.3e1 / 0.8e1 * t8 * t18 * (t24133 + t24246) * t204 - t24254 - 0.3e1 / 0.2e1 * t385 * t24255 * t392 - t385 * t2510 * t5753 / 0.2e1 + t24264 / 0.3e1 - 0.3e1 / 0.2e1 * t385 * t7392 * t1350 + 0.36339922418771700000e3 * t2866 * t624 * t4027 * t7369;
24909   t24274 = t1364 * t7355;
24910   t24276 = t1035 * t5790;
24911   t24282 = 0.34360416666666666667e0 * t16622 * t1038;
24912   t24285 = t16700 * t1038;
24913   t24287 = t5764 * t2875;
24914   t24299 = t16627 * t7413;
24915   t24304 = t4811 * t2879;
24916   t24305 = t1876 * t203;
24917   t24310 = 0.28862750000000000000e1 * t24274 - 0.96209166666666666667e1 * t636 * t640 * t24276 * t203 + t24282 - 0.37109250000000000000e1 * t5758 * t2875 - 0.61848750000000000000e0 * t24285 - 0.24739500000000000000e1 * t24287 + 0.92773125000000000000e0 * t16691 * t1038 - 0.89062200000000000000e2 * t7350 * t1864 + 0.89062200000000000000e2 * t5874 * t7377 + 0.44531100000000000000e2 * t1340 * t1862 * t7375 * t1349 + 0.89062200000000000000e3 * t1340 * t24299 * t1341 * t194 - 0.24805162816148769052e1 * t5769 * t24304 * t24305 * t391;
24918   t24316 = t397 * t2849;
24919   t24318 = t385 * t24316 * t392;
24920   t24319 = t7438 * t7416;
24921   t24321 = t5857 * t7421;
24922   t24328 = t633 * t18611 * t2870;
24923   t24330 = t18612 * t2882;
24924   t24332 = t5857 * t7425;
24925   t24334 = t5857 * t7435;
24926   t24344 = t7438 * t7430;
24927   t24346 = -0.22265550000000000000e3 * t1340 * t1862 * t18768 * t391 - t24318 + 0.22265550000000000000e3 * t24319 - 0.62012907040371922630e0 * t24321 + 0.90609313607680788977e2 * t1874 * t7408 * t1876 * t1878 - 0.74218500000000000000e1 * t24328 + 0.20135403023929064216e2 * t24330 + 0.30203104535893596326e2 * t24332 + 0.80541612095716256868e2 * t24334 - 0.24162483628714877060e3 * t1874 * t7433 * t61 * t1878 + 0.29440005000000000000e3 * t2866 * t2868 * t24231 * t203 - 0.55663875000000000000e2 * t24344;
24928   t24379 = t1030 * t5836 * t5830;
24929   t24384 = t1030 * t19 * t38;
24930   t24388 = t7366 * t7367;
24931   t24392 = t7438 * t7405;
24932   t24394 = t5857 * t7410;
24933   t24399 = 0.66796650000000000000e3 * t2866 * t18590 * t7415 - 0.18603872112111576789e1 * t1874 * t18601 * t7420 - 0.65726558181610899501e3 * t1874 * t11793 / t26 * t18607 + 0.24162483628714877061e3 * t1874 * t2849 * t1035 * t1876 * t1878 + 0.33398325000000000000e2 * t2866 * t1849 * t1860 * t19 * t2869 - 0.90609313607680788975e2 * t1874 * t1849 * t2879 * t26 * t1878 + 0.14469678309420115281e1 * t1874 * t5846 * t2879 * t61 * t203 - 0.59374800000000000000e3 * t2866 * t24379 * t5841 + 0.16536775210765846035e1 * t1874 * t24384 * t5848 + 0.48453229891695600000e3 * t16710 * t24388 * t16713 + 0.22265550000000000000e2 * t24392 - 0.60406209071787192650e2 * t24394 - 0.16699162500000000000e3 * t2866 * t7404 * t7429;
24934   t24413 = t7346 * t1870;
24935   t24415 = t5778 * t2875;
24936   t24421 = t5870 * t7377;
24937   t24426 = t16662 * t7382;
24938   t24428 = t7419 * t19;
24939   t24436 = -0.24492105000000000000e4 * t2866 * t5838 * t16629 * t194 - 0.11410061713559803056e3 * t1874 * t2880 * t61 * t1878 - 0.32302153261130400000e3 * t5888 * t2510 * t5891 + 0.57725500000000000000e1 * t24413 + 0.82465000000000000000e0 * t24415 + 0.14843700000000000000e2 * t5862 * t1862 * t7375 * t1326 + 0.29687400000000000000e2 * t24421 - 0.40270806047858128434e2 * t16649 * t7381 * t16650 - 0.80541612095716256867e2 * t24426 + 0.12081241814357438530e3 * t5769 * t24428 * t5773 + 0.17317650000000000000e2 * t7350 * t1870 - 0.19241833333333333333e2 * t2855 * t5793;
24940   t24445 = t5870 * t7460;
24941   t24456 = t634 * t1338 * t2849;
24942   t24460 = t634 * t5860 * t1030;
24943   t24464 = t634 * t5868 * t1030;
24944   t24465 = t24464 * t1343;
24945   t24467 = t16548 * t2859;
24946   t24474 = 0.10390590000000000000e4 * t636 * t16556 * t4762 * t203 * sigma[0] * t193 + 0.12369750000000000000e1 * t16544 * t7448 + 0.12369750000000000000e1 * t24445 - 0.98958000000000000000e1 * t5874 * t7454 - 0.49479000000000000000e1 * t1340 * t640 * t2873 * t5877 - 0.98958000000000000000e1 * t7444 * t5879 - 0.19791600000000000000e2 * t24456 * t1343 - 0.32986000000000000000e1 * t24460 * t5865 - 0.65972000000000000001e1 * t24465 + 0.24739500000000000000e1 * t24467 - 0.11874960000000000000e3 * t7444 * t5883 + t5735 * t2510 * t5737 / 0.9e1;
24947   t24477 = t1325 * t7398 * t1327;
24948   t24483 = t385 * t7398 * t1350;
24949   t24486 = t634 * t18 * t8341;
24950   t24494 = t16644 * t1038;
24951   t24497 = t634 * t398 * t2849;
24952   t24498 = t24497 * t644;
24953   t24501 = t634 * t1356 * t1030;
24954   t24502 = t24501 * t644;
24955   t24504 = t7346 * t1864;
24956   t24510 = -t24477 / 0.6e1 - t1325 * t7392 * t1327 / 0.2e1 - t24483 / 0.2e1 - 0.74218500000000000000e1 * t24486 * t644 - 0.24162483628714877060e3 * t16640 * t7382 - 0.12081241814357438530e3 * t5769 * t7381 * t16667 + 0.92773125000000000000e0 * t24494 - 0.49479000000000000000e1 * t24498 + 0.16493000000000000000e1 * t24502 - 0.29687400000000000000e2 * t24504 + 0.20781180000000000000e3 * t2855 * t5786 + 0.86588250000000000000e1 * t1855 * t7355;
24957   t24515 = t8 * t7443;
24958   t24526 = t16585 * t2859;
24959   t24528 = t5870 * t7454;
24960   t24534 = t16579 * t7448;
24961   t24550 = 0.24226614945847800000e3 * t636 * t24276 * t1860 * t18607 + 0.32216644838286502747e3 * t24515 * t5774 + 0.23090200000000000000e2 * t7444 * t5821 + 0.37109250000000000000e1 * t16598 * t2859 + 0.11545100000000000000e2 * t1340 * t640 * t7353 * t1341 - 0.82465000000000000000e0 * t24526 - 0.32985999999999999999e1 * t24528 - 0.27488333333333333333e0 * t16571 * t640 * t1036 * t16572 + 0.41232500000000000000e0 * t24534 - 0.16493000000000000000e1 * t5862 * t640 * t2873 * t5863 + 0.37109250000000000000e1 * t5874 * t7460 + 0.12369750000000000000e1 * t1340 * t640 * t1036 * t16588 + 0.12369750000000000000e1 * t5977 * t8397 * t8398 * t16527;
24962   t24555 = -0.49479000000000000000e1 * t7347 - 0.14843700000000000000e2 * t7351 + 0.86588250000000000000e1 * t7356 - t22127 - 0.24739500000000000000e1 * t7360 - 0.74218500000000000000e1 * t7362 + 0.17317650000000000000e2 * t7364 + 0.36339922418771700000e3 * t7371 - 0.89062200000000000000e2 * t7373 + 0.89062200000000000000e2 * t7378 - 0.24162483628714877060e3 * t7383 + 0.18554625000000000000e1 * t7385 + 0.27831937500000000000e1 * t7387 - 0.3e1 / 0.2e1 * t7390 - 0.3e1 * t7394 - t7396 / 0.2e1 - t7400 + t10 * (t24273 + t24310 + t24346 + t24399 + t24436 + t24474 + t24510 + t24550);
24963   t24572 = t7467 / 0.4e1;
24964   t24574 = 0.66796650000000000000e2 * t7406 - 0.18121862721536157795e3 * t7411 + 0.66796650000000000000e3 * t7417 - 0.18603872112111576789e1 * t7422 + 0.90609313607680788977e2 * t7426 - 0.16699162500000000000e3 * t7431 + 0.24162483628714877061e3 * t7436 + 0.22265550000000000000e2 * t7439 - 0.60406209071787192650e2 * t7441 - 0.19791600000000000000e2 * t7445 + 0.12369750000000000000e1 * t7449 + 0.24739500000000000000e1 * t7451 - 0.98958000000000000000e1 * t7455 + 0.74218500000000000000e1 * t7457 + 0.37109250000000000000e1 * t7461 - 0.3e1 / 0.4e1 * t7464 + t24572 - 0.9e1 / 0.8e1 * t8344;
24965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24966     v4rho3sigma[0] = t24555 + t24574;
24967 
24968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24969     v4rho3sigma[1] = 0.0e0;
24970 
24971   t24577 = t8363 / 0.4e1;
24972   t24581 = 0.61848750000000000000e0 * t8375;
24973   t24586 = t1885 * t8355 * t1887;
24974   t24591 = t1355 * t1165;
24975   t24593 = t648 * t24591 * t651;
24976   t24596 = t648 * t8355 * t1896;
24977   t24603 = 0.5e1 / 0.36e2 * t8 * t4734 * t1166;
24978   t24608 = t18908 * t8366;
24979   t24614 = t18883 * t2895;
24980   t24616 = t6070 * t8372;
24981   t24623 = 0.34360416666666666667e0 * t18817 * t1173;
24982   t24624 = t5718 * t2887 * t5720 / 0.9e1 - t24586 / 0.6e1 - t1885 * t2887 * t5707 / 0.2e1 + t24593 / 0.3e1 - t24596 / 0.2e1 - t648 * t2887 * t5816 / 0.2e1 - t24603 - 0.27488333333333333333e0 * t18900 * t898 * t1171 * t18901 + 0.41232500000000000000e0 * t24608 + 0.12369750000000000000e1 * t6084 * t8457 * t8458 * t18783 - 0.82465000000000000000e0 * t24614 + 0.12369750000000000000e1 * t24616 + 0.12369750000000000000e1 * t1953 * t898 * t1171 * t18876 + t24623;
24983   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24984     v4rho3sigma[2] = -t8353 / 0.2e1 - t8357 - 0.3e1 / 0.2e1 * t8360 + t24577 + 0.12369750000000000000e1 * t8367 + 0.24739500000000000000e1 * t8369 + 0.37109250000000000000e1 * t8373 - t24581 + t10 * t24624;
24985 
24986   t24626 = t8380 / 0.3e1;
24987   t24627 = 0.82465000000000000000e0 * t8401;
24988   t24629 = 0.29687400000000000000e2 * t8410;
24989   t24630 = 0.80541612095716256868e2 * t8417;
24990   t24632 = -t24626 + t24627 - t8503 - t8386 - t8392 - 0.32986000000000000000e1 * t7347 - t7352 + t24629 - t24630 + t7357 - t22127 - 0.16493000000000000000e1 * t7360;
24991   t24635 = -t7363 + t7365 + t7372 - t7374 + t7379 - t7384 + 0.12369750000000000000e1 * t7385 + t7388 - t7391 - t7394 - t7397 - 0.2e1 / 0.3e1 * t7400;
24992   t24639 = 0.65972000000000000000e1 * t8388;
24993   t24640 = 0.24739500000000000000e1 * t8406;
24994   t24641 = t7407 - t7412 + t7418 - t7423 + t7427 - t7432 + t7437 + 0.14843700000000000000e2 * t7439 - 0.40270806047858128433e2 * t7441 - t24639 + t8511 + t24640;
24995   t24642 = 0.32986000000000000000e1 * t8414;
24996   t24643 = 0.24739500000000000000e1 * t8421;
24997   t24649 = t385 * t24262 * t663;
24998   t24653 = t385 * t6000 * t1030 * t1924;
24999   t24663 = t385 * t24316 * t663 / 0.3e1;
25000   t24678 = 0.40377691576412999998e2 * t22140 - t22146 / 0.8e1 + t22149 / 0.6e1 + t24649 / 0.9e1 + 0.7e1 / 0.6e1 * t24653 - t385 * t1922 * t2849 * t1924 - t385 * t24255 * t663 / 0.2e1 - t24663 - t24254 + 0.2e1 / 0.9e1 * t24264 + 0.96209166666666666667e0 * t24274 + t24282 - 0.41232500000000000000e0 * t24285 - 0.82465000000000000000e0 * t24287 - t24318 / 0.3e1 + 0.74218500000000000000e2 * t24319 - 0.20670969013457307543e0 * t24321 + 0.16151076630565200000e3 * t16710 * t24388 * t18936 - t8 * t5928 * t1031 / 0.2e1 - 0.49479000000000000000e1 * t24328;
25001   t24695 = 0.98958000000000000000e1 * t5870 * t8409;
25002   t24698 = 0.26847204031905418956e2 * t16662 * t8416;
25003   t24712 = -t24698 + 0.29687400000000000000e2 * t5874 * t8409 - 0.80541612095716256868e2 * t16640 * t8416 + 0.10738881612762167582e3 * t24515 * t6031 + 0.19241833333333333333e1 * t24413 + 0.54976666666666666666e0 * t24415 + 0.98958000000000000000e1 * t24421 - 0.26847204031905418955e2 * t24426 + 0.41232500000000000000e0 * t24445 - 0.21990666666666666666e1 * t24465 + 0.82465000000000000000e0 * t24467;
25004   t24748 = t16585 * t2906;
25005   t24751 = 0.10995333333333333333e1 * t5870 * t8413;
25006   t24752 = t18857 * t8420;
25007   t24757 = t634 * t5928 * t1030;
25008   t24762 = -t24477 / 0.18e2 - t24483 / 0.6e1 + 0.29687400000000000000e3 * t1340 * t24299 * t1916 * t194 - 0.82683876053829230173e0 * t5769 * t24304 * t24305 * t662 + 0.40270806047858128434e2 * t5769 * t24428 * t6030 - 0.74218500000000000000e2 * t1340 * t1862 * t18768 * t662 + 0.29687400000000000000e2 * t6039 * t1862 * t7375 * t9 + 0.30924375000000000000e0 * t24494 - 0.16493000000000000000e1 * t24498 + 0.10995333333333333333e1 * t24502 - 0.98958000000000000000e1 * t24504 - 0.32986000000000000000e1 * t5874 * t8413 + 0.24739500000000000000e1 * t18851 * t8420 + 0.38483666666666666667e1 * t1340 * t640 * t7353 * t1916 - 0.27488333333333333333e0 * t24748 - t24751 - 0.28862750000000000000e1 * t24752 + 0.76967333333333333333e1 * t7444 * t6035 - 0.65972000000000000000e1 * t24757 * t6042 + 0.12369750000000000000e1 * t16598 * t2906;
25009   t24771 = 0.82465000000000000000e0 * t16548 * t2906;
25010   t24772 = t24464 * t1918;
25011   t24793 = t18796 * t8400;
25012   t24803 = t634 * t5860 * t1030 * t638;
25013   t24811 = t1325 * t7398 * t1906 / 0.9e1;
25014   t24821 = 0.82465000000000000000e0 * t18801 * t8397 * t8398 * t18802 - 0.27488333333333333333e0 * t18789 * t8397 * t8398 * t18790 + 0.27488333333333333334e0 * t24793 + 0.82465000000000000000e0 * t18775 * t8400 + 0.41232500000000000000e0 * t5977 * t8397 * t8398 * t18778 - 0.21990666666666666666e1 * t24803 * t5982 + t5735 * t2510 * t5940 / 0.9e1 - t24811 - t1325 * t8390 * t5947 / 0.3e1 - t1325 * t2510 * t5955 / 0.6e1 - t1325 * t7392 * t1906 / 0.3e1;
25015   t24827 = -t24642 + t24643 - t7446 + t7450 + 0.16493000000000000000e1 * t7451 - t7456 + t7458 + t7462 + t10 * (t24678 + 0.13423602015952709478e2 * t24330 + 0.10067701511964532109e2 * t24332 + 0.26847204031905418956e2 * t24334 - 0.18554625000000000000e2 * t24344 + 0.74218500000000000000e1 * t24392 - 0.20135403023929064216e2 * t24394 - 0.32986000000000000000e1 * t6039 * t640 * t2873 * t6040 - 0.80541612095716256868e2 * t18811 * t7381 * t18812 + 0.12369750000000000000e1 * t6039 * t1038 + t24695 + t24712 + t24762 + 0.98958000000000000000e1 * t5862 * t1862 * t7375 * t5980 - 0.26847204031905418956e2 * t16649 * t7381 * t18866 + t24771 - 0.21990666666666666666e1 * t24772 - 0.65972000000000000000e1 * t24456 * t1918 - 0.39583200000000000000e2 * t7444 * t6063 - 0.54976666666666666666e0 * t24526 - 0.10995333333333333333e1 * t24528 + 0.13744166666666666667e0 * t24534 - 0.10995333333333333333e1 * t5977 * t8397 * t5981 + t24821) - t7464 / 0.2e1 + t24572 - t8345;
25016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25017     v4rho3sigma[3] = t24632 + t24635 + t24641 + t24827;
25018 
25019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25020     v4rho3sigma[4] = 0.0e0;
25021 
25022   t24829 = 0.82465000000000000000e0 * t8461;
25023   t24832 = t8 * t1900 * t3247;
25024   t24834 = t19572 * t3277;
25025   t24837 = t633 * t19571 * t3265;
25026   t24842 = t397 * t3246;
25027   t24845 = t648 * t24842 * t651 / 0.3e1;
25028   t24847 = t648 * t24591 * t668;
25029   t24851 = t648 * t6000 * t1165 * t1939;
25030   t24856 = t24832 / 0.12e2 + 0.67118010079763547387e1 * t24834 - 0.24739500000000000000e1 * t24837 - t1885 * t8442 * t1887 / 0.6e1 - t24845 + t24847 / 0.9e1 - 0.7e1 / 0.6e1 * t24851 - t24586 / 0.18e2 + 0.2e1 / 0.9e1 * t24593 - t24596 / 0.6e1 + t24623;
25031   t24862 = 0.10995333333333333333e1 * t6070 * t8484;
25032   t24866 = 0.82465000000000000000e0 * t19337 * t2895;
25033   t24867 = t18883 * t3256;
25034   t24870 = t634 * t6045 * t1165;
25035   t24874 = t634 * t6068 * t1165;
25036   t24875 = t24874 * t1956;
25037   t24883 = t19317 * t8467;
25038   t24890 = -0.54976666666666666667e0 * t6047 * t898 * t3268 * t6048 - t24862 + 0.41232500000000000000e0 * t19333 * t8366 + t24866 - 0.27488333333333333333e0 * t24867 - 0.10995333333333333333e1 * t24870 * t6050 - 0.21990666666666666666e1 * t24875 - 0.16493000000000000000e1 * t1953 * t898 * t3268 * t6053 - 0.32986000000000000000e1 * t8450 * t6055 + 0.28862750000000000000e1 * t24883 + 0.12369750000000000000e1 * t6199 * t8372 - t648 * t8442 * t1896 / 0.2e1;
25039   t24895 = t6027 * t3270;
25040   t24898 = t634 * t1900 * t1165;
25041   t24899 = t24898 * t902;
25042   t24914 = 0.26847204031905418955e2 * t19269 * t8491;
25043   t24915 = t19280 * t1173;
25044   t24921 = t8 * t5924 * t1166 / 0.2e1 - t24603 + 0.27488333333333333333e0 * t24895 + 0.54976666666666666667e0 * t24899 - 0.12369750000000000000e1 * t6213 * t1173 - 0.40270806047858128433e2 * t6127 * t8490 * t19296 + 0.14843700000000000000e2 * t1953 * t2488 * t8475 * t1895 - 0.13423602015952709478e2 * t19272 * t8490 * t19273 - t24914 - 0.20616250000000000000e0 * t24915 + 0.49479000000000000000e1 * t6047 * t2488 * t8475 * t1886;
25045   t24923 = 0.98958000000000000000e1 * t6070 * t8477;
25046   t24927 = t19368 * t8460;
25047   t24946 = t1885 * t8355 * t1931 / 0.9e1;
25048   t24953 = t24923 - 0.54976666666666666666e0 * t24614 + 0.41232500000000000000e0 * t24616 + 0.13744166666666666667e0 * t24608 + 0.27488333333333333334e0 * t24927 + 0.41232500000000000000e0 * t6084 * t8457 * t8458 * t18948 - 0.82465000000000000000e0 * t19377 * t8457 * t8458 * t19378 - 0.27488333333333333333e0 * t19361 * t8457 * t8458 * t19362 + t5718 * t2887 * t5933 / 0.9e1 - t24946 - t1885 * t2887 * t5959 / 0.6e1 + t1885 * t8437 * t5963 / 0.3e1;
25049   t24957 = t8432 / 0.3e1;
25050   t24958 = t24829 - t8354 - 0.2e1 / 0.3e1 * t8357 - t8361 - t24581 + t10 * (t24856 + t24890 + t24921 + t24953) - t9411 + t8439 - t8444 - t24957 - t9412 + t9443 - t9444;
25051   t24959 = 0.24739500000000000000e1 * t8471;
25052   t24960 = 0.32986000000000000000e1 * t8485;
25053   t24961 = 0.65972000000000000000e1 * t8451;
25054   t24962 = 0.24739500000000000000e1 * t8468;
25055   t24964 = 0.29687400000000000000e2 * t8478;
25056   t24965 = 0.80541612095716256866e2 * t8492;
25057   t24966 = t24577 + t24959 - t24960 - t24961 + t9466 - t24962 + t8368 + 0.16493000000000000000e1 * t8369 + t8374 - t9498 + t9499 + t24964 - t9500 - t24965;
25058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25059     v4rho3sigma[5] = t24958 + t24966;
25060 
25061   t24968 = -t24626 + t24627 - 0.2e1 / 0.3e1 * t8383 - t8386 - t8392 - t7348 + t24629 - t24630 - t22127 - t7361 + t7386 - t7401 - t8502;
25062   t24977 = t22149 / 0.12e2 + 0.2e1 / 0.9e1 * t24649 - t24653 / 0.3e1 - t24663 - t24254 + t24264 / 0.9e1 + t24282 - 0.20616250000000000000e0 * t24285 - 0.24739500000000000000e1 * t24328 + 0.67118010079763547390e1 * t24330 + t24695;
25063   t24995 = t16579 * t8508;
25064   t25001 = t5870 * t8513;
25065   t25007 = -t24698 + 0.27488333333333333333e0 * t24415 + 0.82465000000000000000e0 * t18801 * t8397 * t8398 * t19393 - 0.10995333333333333333e1 * t24460 * t6204 - 0.32986000000000000000e1 * t7444 * t6209 + 0.41232500000000000000e0 * t16544 * t8508 + 0.12369750000000000000e1 * t5874 * t8513 + 0.12369750000000000000e1 * t1340 * t640 * t1036 * t19239 + 0.13744166666666666667e0 * t24995 - 0.54976666666666666667e0 * t5862 * t640 * t2873 * t6202 + 0.41232500000000000000e0 * t25001 - 0.16493000000000000000e1 * t1340 * t640 * t2873 * t6207;
25066   t25019 = t385 * t7398 * t1974;
25067   t25022 = t1325 * t7398 * t1968;
25068   t25040 = -t385 * t7392 * t1974 / 0.2e1 - t385 * t2510 * t6166 / 0.2e1 - t1325 * t7392 * t1968 / 0.6e1 - t25019 / 0.6e1 - t25022 / 0.18e2 - 0.40270806047858128434e2 * t5769 * t7381 * t19292 + 0.49479000000000000000e1 * t5862 * t1862 * t7375 * t1967 - 0.13423602015952709478e2 * t16649 * t7381 * t19288 + 0.14843700000000000000e2 * t1340 * t1862 * t7375 * t1973 + 0.54976666666666666667e0 * t24502 - 0.54976666666666666667e0 * t24748;
25069   t25062 = -t24751 + 0.82465000000000000000e0 * t24752 + t24771 - 0.21990666666666666667e1 * t24772 - 0.27488333333333333333e0 * t24526 - 0.27488333333333333333e0 * t18789 * t8397 * t8398 * t19383 + 0.41232500000000000000e0 * t5977 * t8397 * t8398 * t19388 + 0.27488333333333333333e0 * t24793 - t1325 * t2510 * t6158 / 0.6e1 + t5735 * t2510 * t6154 / 0.9e1 - t1325 * t8390 * t6094 / 0.3e1 - t24811;
25070   t25067 = -t8506 + t7440 - 0.20135403023929064217e2 * t7441 + t10 * (t24977 + t25007 + t25040 + t25062) + t8510 + t8515 - t24639 + 0.16493000000000000000e1 * t8403 + t24640 - t24642 + t24643 + t7452 - t7465 + t24572;
25071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25072     v4rho3sigma[6] = t24968 + t25067;
25073 
25074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25075     v4rho3sigma[7] = 0.0e0;
25076 
25077   t25070 = t24829 - t8358 - t24581 - t9402 - t9404 - t9407 - t9410 - 0.2e1 / 0.3e1 * t8435 + t8439 - t8444 - t24957 - t8447 / 0.2e1;
25078   t25074 = t6193 * t9440;
25079   t25076 = t8480 * t9431;
25080   t25078 = t8480 * t9420;
25081   t25080 = t6193 * t9425;
25082   t25082 = t6193 * t9415;
25083   t25084 = t8480 * t9446;
25084   t25086 = t9491 * t9492;
25085   t25090 = t6193 * t9436;
25086   t25100 = t8480 * t9495;
25087   t25103 = t648 * t8355 * t1992;
25088   t25106 = t648 * t24842 * t668;
25089   t25109 = t1885 * t8355 * t1979;
25090   t25111 = t24832 / 0.6e1 + 0.10067701511964532109e2 * t25074 + 0.74218500000000000000e2 * t25076 + 0.74218500000000000000e1 * t25078 - 0.20135403023929064217e2 * t25080 + 0.26847204031905418956e2 * t25082 - 0.18554625000000000000e2 * t25084 + 0.16151076630565200000e3 * t19710 * t25086 * t19713 - 0.20670969013457307543e0 * t25090 + 0.13423602015952709477e2 * t24834 - 0.49479000000000000000e1 * t24837 + t5718 * t2887 * t6139 / 0.9e1 - t24845 + 0.2e1 / 0.9e1 * t24847 + t24851 / 0.3e1 + t24593 / 0.9e1 + 0.40377691576413000000e2 * t25100 - t25103 / 0.6e1 - t25106 / 0.3e1 - t25109 / 0.18e2;
25091   t25115 = t17 * t9398;
25092   t25136 = t634 * t5924 * t1165;
25093   t25151 = t634 * t1951 * t3246;
25094   t25160 = t8 * t8449;
25095   t25176 = t9434 * t19;
25096   t25180 = 0.98958000000000000000e1 * t6047 * t2488 * t8475 * t6087 - 0.65972000000000000000e1 * t25151 * t1956 - 0.39583200000000000000e2 * t8450 * t6221 - 0.24739500000000000000e1 * t19670 * t8467 + 0.76967333333333333333e1 * t8450 * t6225 + 0.10738881612762167582e3 * t25160 * t6132 - 0.29687400000000000000e2 * t6213 * t2488 * t8475 * t9 + 0.80541612095716256867e2 * t19726 * t8490 * t19727 - 0.74218500000000000000e2 * t1953 * t2488 * t19778 * t650 - 0.80541612095716256866e2 * t19741 * t8491 + 0.40270806047858128435e2 * t6127 * t25176 * t6131;
25097   t25183 = t19744 * t9428;
25098   t25192 = t634 * t655 * t3246;
25099   t25193 = t25192 * t902;
25100   t25195 = t8454 * t2490;
25101   t25197 = t8454 * t2496;
25102   t25199 = t6124 * t3270;
25103   t25201 = t1960 * t9486;
25104   t25203 = t4811 * t3274;
25105   t25204 = t2502 * t376;
25106   t25209 = t19719 * t1173;
25107   t25211 = t19269 * t9481;
25108   t25213 = t6070 * t9478;
25109   t25215 = t18908 * t9455;
25110   t25217 = t6070 * t9451;
25111   t25219 = t19337 * t3256;
25112   t25221 = t24874 * t1988;
25113   t25223 = t6070 * t9461;
25114   t25227 = t634 * t6045 * t1165 * t896;
25115   t25238 = 0.29687400000000000000e3 * t1953 * t25183 * t376 * t367 * t650 + 0.29687400000000000000e2 * t6199 * t8477 - 0.16493000000000000000e1 * t25193 - 0.98958000000000000000e1 * t25195 + 0.19241833333333333333e1 * t25197 - 0.82465000000000000000e0 * t25199 + 0.96209166666666666667e0 * t25201 - 0.82683876053829230173e0 * t6127 * t25203 * t25204 * t650 + 0.30924375000000000000e0 * t25209 - 0.26847204031905418956e2 * t25211 + 0.98958000000000000000e1 * t25213 + 0.13744166666666666667e0 * t25215 - 0.10995333333333333333e1 * t25217 + 0.82465000000000000000e0 * t25219 - 0.21990666666666666667e1 * t25221 + 0.41232500000000000000e0 * t25223 + t24623 - 0.21990666666666666667e1 * t25227 * t6089 + 0.41232500000000000000e0 * t6084 * t8457 * t8458 * t19783 - 0.27488333333333333333e0 * t19361 * t8457 * t8458 * t19788;
25116   t25252 = t8 * t655 * t9399;
25117   t25269 = 0.12369750000000000000e1 * t19640 * t2895 - 0.26847204031905418956e2 * t19272 * t8490 * t19635 - t24603 + 0.54976666666666666667e0 * t24895 + 0.10995333333333333333e1 * t24899 - t24914 - 0.41232500000000000000e0 * t24915 + t24923 - 0.27488333333333333333e0 * t24614 + 0.27488333333333333333e0 * t24927 - t24946;
25118   t25274 = t9417 + t9422 - t9427 + t9433 - t9438 + t9442 + 0.14843700000000000000e2 * t8481 - 0.40270806047858128433e2 * t8494 - t9448 + t10 * (t25111 + t648 * t1922 * t3246 * t1939 - t648 * t25115 * t651 / 0.2e1 - t648 * t2887 * t6107 / 0.2e1 + t1885 * t8437 * t6143 / 0.3e1 - t1885 * t2887 * t6150 / 0.6e1 - t1885 * t8442 * t1931 / 0.3e1 + 0.12369750000000000000e1 * t1953 * t898 * t1171 * t19673 + 0.65972000000000000000e1 * t25136 * t6216 + 0.38483666666666666667e1 * t1953 * t898 * t9484 * t1954 - 0.32986000000000000000e1 * t6199 * t8484 + t25180 + t25238 - 0.82465000000000000000e0 * t19377 * t8457 * t8458 * t19793 - 0.10995333333333333333e1 * t6084 * t8457 * t6088 + 0.82465000000000000000e0 * t19762 * t8460 - t24862 + t24866 - 0.54976666666666666667e0 * t24867 - 0.21990666666666666667e1 * t24875 - 0.82465000000000000000e0 * t24883 - t25252 / 0.8e1 + 0.32986000000000000000e1 * t6213 * t898 * t3268 * t6214 + t25269) + t24577 - t9453;
25119   t25277 = t9457 + t9459 + t9463 - t9465 + t24959 - t24960 - t24961 + 0.16493000000000000000e1 * t8463 - t24962 + t8370 + t9468 + t9470;
25120   t25281 = -t9474 - t9476 + t9480 - t9483 + t9488 - t9490 + t9497 - 0.32986000000000000000e1 * t8455 + 0.12369750000000000000e1 * t8473 + t24964 - 0.16493000000000000000e1 * t8487 - t24965;
25121   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25122     v4rho3sigma[8] = t25070 + t25274 + t25277 + t25281;
25123 
25124   t25315 = t5735 * t2510 * t6253 / 0.9e1 - t25022 / 0.6e1 - t1325 * t2510 * t7262 / 0.2e1 + t24649 / 0.3e1 - t25019 / 0.2e1 - t385 * t2510 * t6240 / 0.2e1 - t24254 - 0.27488333333333333333e0 * t16571 * t640 * t1036 * t19660 + 0.41232500000000000000e0 * t24995 + 0.12369750000000000000e1 * t5977 * t8397 * t8398 * t19704 - 0.82465000000000000000e0 * t24748 + 0.12369750000000000000e1 * t25001 + 0.12369750000000000000e1 * t1340 * t640 * t1036 * t19655 + t24282;
25125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25126     v4rho3sigma[9] = -t8501 / 0.2e1 - t8383 - 0.3e1 / 0.2e1 * t8505 + t24572 + 0.12369750000000000000e1 * t8509 + 0.24739500000000000000e1 * t8403 + 0.37109250000000000000e1 * t8514 - t22127 + t10 * t25315;
25127 
25128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25129     v4rho3sigma[10] = 0.0e0;
25130 
25131   t25336 = t24832 / 0.4e1 + 0.30203104535893596326e2 * t25074 + 0.22265550000000000000e3 * t25076 + 0.22265550000000000000e2 * t25078 - 0.60406209071787192650e2 * t25080 + 0.80541612095716256868e2 * t25082 - 0.55663875000000000000e2 * t25084 - 0.62012907040371922630e0 * t25090 + 0.20135403023929064216e2 * t24834 - 0.74218500000000000000e1 * t24837 - 0.3e1 / 0.2e1 * t648 * t8442 * t1992 - t648 * t2887 * t6265 / 0.2e1;
25132   t25339 = t634 * t212 * t9398;
25133   t25353 = t1170 * t6289;
25134   t25370 = t24847 / 0.3e1 - 0.74218500000000000000e1 * t25339 * t902 + 0.86588250000000000000e1 * t2481 * t9486 - 0.37109250000000000000e1 * t6279 * t3270 + 0.44531100000000000000e2 * t1953 * t2488 * t8475 * t1991 - 0.12081241814357438530e3 * t6127 * t8490 * t21886 - 0.96209166666666666667e1 * t894 * t898 * t25353 * t376 - 0.22265550000000000000e3 * t1953 * t2488 * t19778 * t667 + 0.32216644838286502747e3 * t25160 * t6285 + 0.17317650000000000000e2 * t9472 * t2496 + 0.20781180000000000000e3 * t3252 * t6300 + 0.89062200000000000000e2 * t6199 * t9478;
25135   t25399 = -0.24162483628714877061e3 * t19741 * t9481 - 0.40270806047858128434e2 * t19272 * t8490 * t21882 + 0.12081241814357438530e3 * t6127 * t25176 * t6284 + 0.14843700000000000000e2 * t6047 * t2488 * t8475 * t1978 - 0.19241833333333333333e2 * t3252 * t6292 + 0.12113307472923900000e3 * t25100 - t25103 / 0.2e1 - t25106 - t25109 / 0.6e1 + 0.36339922418771700000e3 * t3261 * t888 * t4249 * t9494 + t5718 * t2887 * t6248 / 0.9e1 - t1885 * t2887 * t7258 / 0.2e1;
25136   t25428 = -0.32302153261130400000e3 * t6257 * t2887 * t6260 - t1885 * t8442 * t1979 / 0.2e1 + 0.92773125000000000000e0 * t22054 * t1173 - 0.89062200000000000000e2 * t9472 * t2490 + 0.24226614945847800000e3 * t894 * t25353 * t2486 * t21949 + 0.89062200000000000000e3 * t1953 * t25183 * t1986 * t367 - 0.24805162816148769052e1 * t6127 * t25203 * t25204 * t667 - 0.49479000000000000000e1 * t25193 - 0.29687400000000000000e2 * t25195 + 0.57725500000000000000e1 * t25197 - 0.24739500000000000000e1 * t25199 + 0.28862750000000000000e1 * t25201 + 0.92773125000000000000e0 * t25209;
25137   t25471 = t8650 * t758;
25138   t25472 = t25471 * t8569;
25139   t25474 = t2966 * t2308;
25140   t25475 = t8568 * t6434;
25141   t25476 = t25474 * t25475;
25142   t25478 = t6484 * t8562;
25143   t25479 = t25478 * t8565;
25144   t25481 = t20225 * t8569;
25145   t25483 = t20211 * t25475;
25146   t25485 = t280 * t245;
25147   t25486 = t25485 * t290;
25148   t25487 = t25486 * t8565;
25149   t25489 = t317 * t244;
25150   t25490 = t25489 * t290;
25151   t25491 = t1057 * t2047;
25152   t25492 = t25491 * t1425;
25153   t25493 = t25490 * t25492;
25154   t25495 = t8568 * t6409;
25155   t25496 = t8576 * t25495;
25156   t25498 = t8633 * t4078;
25157   t25500 = t1057 * t19 * t6405;
25158   t25501 = t25498 * t25500;
25159   t25503 = t2954 * t703;
25160   t25504 = t25503 * t1425;
25161   t25505 = t8563 * t25504;
25162   t25507 = t1057 * t2066;
25163   t25508 = t25507 * t1425;
25164   t25509 = t8563 * t25508;
25165   t25511 = 0.520e3 * t25472 - 0.90e2 * t25476 + 0.288e3 * t25479 - 0.144e3 * t25481 + 0.27e2 * t25483 - 0.1040e4 * t25487 - 0.180e3 * t25493 + 0.30e2 * t25496 - 0.540e3 * t25501 + 0.54e2 * t25505 + 0.27e2 * t25509;
25166   t25513 = t20347 * t1063 * t260;
25167   t25514 = t8564 * t4811;
25168   t25515 = t25513 * t25514;
25169   t25518 = t2954 * t36 * t2076;
25170   t25519 = t6359 * t25518;
25171   t25521 = t6359 * t25495;
25172   t25523 = t20206 * t25500;
25173   t25525 = t8573 * t25504;
25174   t25527 = t8573 * t25508;
25175   t25529 = t2421 * t245;
25176   t25530 = t25529 * t8754;
25177   t25531 = t25530 * t25514;
25178   t25533 = t8576 * t25518;
25179   t25536 = t2057 * t2972 * t20079;
25180   t25538 = t20100 * t8647;
25181   t25540 = t260 * t8590;
25182   t25542 = t2052 * t25540 * t1425;
25183   t25545 = t6430 * t8643 * t4811;
25184   t25547 = -0.324e3 * t25515 - 0.27e2 * t25519 - 0.27e2 / 0.2e1 * t25521 + 0.162e3 * t25523 - 0.120e3 * t25525 - 0.60e2 * t25527 + 0.1080e4 * t25531 + 0.60e2 * t25533 - 0.18e2 * t25536 - 0.918e3 * t25538 + 0.27e2 / 0.2e1 * t25542 - 0.162e3 * t25545;
25185   t25550 = t293 * t282 * t287;
25186   t25551 = t25550 * t2968;
25187   t25553 = t8667 * t8626;
25188   t25555 = t8602 * t8625;
25189   t25556 = t2962 * t25555;
25190   t25558 = t2066 * t703;
25191   t25559 = t2949 * t25558;
25192   t25560 = t8621 * t25559;
25193   t25562 = t2972 * t20339;
25194   t25563 = t2962 * t25562;
25195   t25565 = t2972 * t20217;
25196   t25566 = t2962 * t25565;
25197   t25569 = t2941 * t8629 * t8625;
25198   t25572 = t2941 * t2949 * t20339;
25199   t25575 = t2941 * t2949 * t20217;
25200   t25577 = t8651 * t8630;
25201   t25580 = t6564 * t282 * t748;
25202   t25581 = t25580 * t8635;
25203   t25583 = -0.8990e4 / 0.9e1 * t25551 - 0.800e3 * t25553 - 0.96e2 * t25556 + 0.72e2 * t25560 - 0.48e2 * t25563 - 0.48e2 * t25566 + 0.36e2 * t25569 + 0.18e2 * t25572 + 0.18e2 * t25575 - 0.260e3 * t25577 + 0.2430e4 * t25581;
25204   t25584 = t2047 * t728;
25205   t25585 = t2972 * t25584;
25206   t25586 = t8621 * t25585;
25207   t25588 = t289 * t8590;
25208   t25589 = t25588 * t1425;
25209   t25590 = t2967 * t25589;
25210   t25592 = t8629 * t4811;
25211   t25593 = t8634 * t25592;
25212   t25595 = t3048 * t20079;
25213   t25596 = t2971 * t25595;
25214   t25598 = t20358 * t2946;
25215   t25600 = t2098 * t8640;
25216   t25602 = t3048 * t20212;
25217   t25603 = t2962 * t25602;
25218   t25605 = t6414 * t8644;
25219   t25608 = t2941 * t2972 * t20212;
25220   t25611 = t707 * t2047 * t709;
25221   t25612 = t25611 * t2946;
25222   t25615 = t2057 * t8602 * t2081;
25223   t25617 = t6367 * t8663;
25224   t25619 = -0.144e3 * t25586 - 0.15e2 * t25590 + 0.270e3 * t25593 + 0.36e2 * t25596 + 0.314e3 * t25598 + 0.180e3 * t25600 + 0.144e3 * t25603 + 0.144e3 * t25605 - 0.36e2 * t25608 + 0.27e2 * t25612 - 0.18e2 * t25615 + 0.45e2 * t25617;
25225   t25622 = t20253 * t2950;
25226   t25624 = t13166 * t8657;
25227   t25626 = t8579 * t253;
25228   t25627 = t25626 * t2950;
25229   t25630 = t2057 * t3048 * t6509;
25230   t25633 = t1061 * t243 * t1063;
25231   t25634 = t2949 * t6398;
25232   t25635 = t25633 * t25634;
25233   t25637 = t6367 * t8617;
25234   t25639 = t3006 * t6509;
25235   t25640 = t2971 * t25639;
25236   t25642 = t2010 * t244;
25237   t25643 = t25642 * t1063;
25238   t25644 = t25643 * t8622;
25239   t25646 = t8670 * t8613;
25240   t25648 = t8629 * t2047;
25241   t25649 = t8621 * t25648;
25242   t25651 = t8937 * t2081;
25243   t25652 = t2971 * t25651;
25244   t25654 = 0.180e3 * t25622 - 0.18e2 * t25624 + 0.18e2 * t25627 + 0.18e2 * t25630 + 0.48e2 * t25635 - 0.90e2 * t25637 - 0.48e2 * t25640 + 0.600e3 * t25644 + 0.300e3 * t25646 + 0.72e2 * t25649 + 0.36e2 * t25652;
25245   t25655 = t2098 * t8654;
25246   t25657 = t2098 * t8657;
25247   t25659 = t6367 * t8660;
25248   t25661 = t1425 * t728;
25249   t25662 = t8564 * t25661;
25250   t25663 = t20195 * t25662;
25251   t25665 = t8572 * t758;
25252   t25666 = t25665 * t25662;
25253   t25669 = t2057 * t2949 * t6501;
25254   t25671 = t2071 * t2963;
25255   t25673 = t8582 * t1063;
25256   t25674 = t25673 * t2973;
25257   t25676 = t8667 * t8673;
25258   t25678 = t8667 * t8599;
25259   t25680 = t8670 * t8603;
25260   t25682 = t8670 * t8606;
25261   t25684 = -0.180e3 * t25655 - 0.90e2 * t25657 + 0.90e2 * t25659 - 0.54e2 * t25663 + 0.240e3 * t25666 + 0.3e1 * t25669 + 0.4400e4 / 0.3e1 * t25671 - 0.2200e4 / 0.3e1 * t25674 + 0.400e3 * t25676 + 0.200e3 * t25678 - 0.200e3 * t25680 - 0.100e3 * t25682;
25262   t25686 = t25588 * t703;
25263   t25687 = t2962 * t25686;
25264   t25689 = t8629 * t2066;
25265   t25690 = t2962 * t25689;
25266   t25692 = t2949 * t6448;
25267   t25693 = t2962 * t25692;
25268   t25695 = t302 * t8590;
25269   t25696 = t25695 * t728;
25270   t25697 = t2971 * t25696;
25271   t25699 = t8602 * t2111;
25272   t25700 = t2971 * t25699;
25273   t25702 = t2972 * t6501;
25274   t25703 = t2971 * t25702;
25275   t25705 = t6470 * t2943;
25276   t25708 = t20242 * t2942 * t418;
25277   t25711 = t6569 * t282 * t1088;
25278   t25712 = t2949 * t418;
25279   t25713 = t25711 * t25712;
25280   t25716 = t2941 * t25540 * t703;
25281   t25719 = t2941 * t8643 * t2066;
25282   t25722 = t2941 * t2942 * t6448;
25283   t25724 = 0.24e2 * t25687 + 0.24e2 * t25690 + 0.8e1 * t25693 - 0.12e2 * t25697 - 0.12e2 * t25700 - 0.4e1 * t25703 - 0.360e3 * t25705 + 0.810e3 * t25708 - 0.1890e4 * t25713 - 0.18e2 * t25716 - 0.18e2 * t25719 - 0.6e1 * t25722;
25284   t25726 = t2057 * t25588 * t728;
25285   t25729 = t2057 * t8629 * t2111;
25286   t25731 = t6463 * t1058;
25287   t25733 = t6481 * t1058;
25288   t25735 = t224 * t282;
25289   t25736 = t25735 * t1065;
25290   t25738 = t8579 * t2955;
25291   t25740 = t8582 * t2976;
25292   t25742 = t2091 * t2955;
25293   t25744 = t724 * t8591;
25294   t25747 = my_piecewise3(t242, 0.154e3 / 0.27e2 * t6297, 0);
25295   t25749 = t698 * t261 * t25747;
25296   t25751 = t2958 * t8596;
25297   t25754 = t1062 * t1064 * t25747;
25298   t25756 = 0.9e1 * t25726 + 0.9e1 * t25729 - 0.180e3 * t25731 - 0.90e2 * t25733 + 0.20900e5 / 0.27e2 * t25736 - 0.18e2 * t25738 + 0.1100e4 / 0.3e1 * t25740 - 0.180e3 * t25742 - 0.45e2 * t25744 - 0.3e1 * t25749 + 0.50e2 * t25751 + 0.2e1 * t25754;
25299   t25759 = t25511 + t25547 + t25583 + t25619 + t25654 + t25684 + t25724 + t25756;
25300   t25763 = t23 * t6297;
25301   t25769 = t1069 * t265;
25302   t25772 = t6534 * t1068;
25303   t25775 = t1068 * t6520;
25304   t25780 = t2126 * t6520 * t267;
25305   t25783 = t8677 * t731;
25306   t25787 = t2979 * t2114;
25307   t25791 = t2979 * t2118;
25308   t25795 = t1068 * t6514;
25309   t25810 = t6520 * t263 * t267;
25310   t25814 = t263 * t6514 * t267;
25311   t25817 = t56 * t25759 * t267 / 0.100e3 - 0.539e3 / 0.21870e5 * t57 * t25763 - t735 * t25759 * t267 / 0.100e3 + 0.9e1 / 0.50e2 * t25769 * t6531 - 0.3e1 / 0.100e3 * t25772 * t6531 + t20412 * t25775 * t267 / 0.100e3 - t1069 * t25780 / 0.10e2 + 0.3e1 / 0.100e3 * t2127 * t25783 * t267 + 0.3e1 / 0.100e3 * t2127 * t25787 * t267 - 0.3e1 / 0.100e3 * t6534 * t25791 * t267 + t2127 * t25795 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t8678 * t2984 - 0.9e1 / 0.100e3 * t2980 * t2128 - 0.9e1 / 0.100e3 * t2980 * t8686 + 0.9e1 / 0.50e2 * t2980 * t8690 - 0.9e1 / 0.100e3 * t1069 * t6531 + 0.3e1 / 0.20e2 * t1069 * t25810 - 0.3e1 / 0.100e3 * t1069 * t25814;
25312   t25823 = t3048 * t6501;
25313   t25828 = t8729 * t1101;
25314   t25835 = t8955 * t2066;
25315   t25838 = t3022 * t6448;
25316   t25841 = t8961 * t2111;
25317   t25844 = t3033 * t6501;
25318   t25851 = t8602 * t2066;
25319   t25854 = t2972 * t6448;
25320   t25857 = t8937 * t2111;
25321   t25860 = t6589 * t1137;
25322   t25865 = t8734 * t1114;
25323   t25874 = 0.17903338228323e2 * t2368 * t25823 + 0.37928553580002800000e5 * t2383 * t3195 - 0.15171421432001120000e5 * t25828 * t3199 + 0.43763715669234000000e4 * t9343 * t9265 + 0.19700431084236000000e4 * t9218 * t8894 - 0.160417795971636e3 * t3150 * t25835 - 0.53472598657212e2 * t3150 * t25838 + 0.59101293252708e2 * t3154 * t25841 + 0.19700431084236e2 * t3154 * t25844 + 0.1611300440549070e4 * t6645 * t9258 + 0.805650220274535e3 * t6645 * t9326 - 0.143226705826584e3 * t3188 * t25851 - 0.47742235275528e2 * t3188 * t25854 + 0.53710014684969e2 * t2368 * t25857 - 0.95041550595800977777e5 * t25860 * t1142 - 0.19120669412353740e5 * t21772 * t1145 + 0.90754441848774666666e5 * t25865 * t3213 - 0.21130884967774400000e5 * t9364 * t9275 - 0.10565442483887200000e5 * t9364 * t9184 + 0.81272634491439999999e4 * t9282 * t9228;
25324   t25877 = t8943 * t2066;
25325   t25880 = t3006 * t6448;
25326   t25883 = t3014 * t6448;
25327   t25886 = t8955 * t2111;
25328   t25889 = t3022 * t6501;
25329   t25894 = t8984 * t1140;
25330   t25904 = t3006 * t6501;
25331   t25919 = t8937 * t2066;
25332   t25922 = t3048 * t6448;
25333   t25925 = t8943 * t2111;
25334   t25928 = 0.39400862168472000000e4 * t9218 * t9296 - 0.15914078425176e2 * t3198 * t25904 + 0.218391179254855200e6 * t9091 * t3195 - 0.79414974274492800e5 * t21510 * t3199 + 0.22988545184721600e5 * t3047 * t9265 + 0.11494272592360800e5 * t3047 * t9349 - 0.8359470976262400e4 * t6657 * t9268 - 0.4179735488131200e4 * t6657 * t9352 + 0.574713629618040e3 * t3202 * t25919 + 0.191571209872680e3 * t3202 * t25922 - 0.208986774406560e3 * t2348 * t25925;
25335   t25943 = t803 * t8590;
25336   t25964 = t3014 * t6509;
25337   t25967 = t8949 * t2111;
25338   t25970 = t3014 * t6501;
25339   t25977 = t353 * t8590;
25340   t25978 = t25977 * t703;
25341   t25981 = -0.69662258135520e2 * t2348 * t25904 - 0.23596154880681413333e6 * t2391 * t3209 + 0.39785196062940e2 * t3194 * t25922 - 0.47742235275528e2 * t3198 * t25925 + 0.16424851409304800000e4 * t9311 * t9303 - 0.59726732397471999999e3 * t9314 * t9307 + 0.21423719229528e2 * t3169 * t25943 * t703 + 0.21423719229528e2 * t3169 * t8961 * t2066 - 0.7790443356192e1 * t3174 * t2330 * t8590 * t728 + 0.21881857834617000000e4 * t9343 * t9349 - 0.17505486267693600000e4 * t9346 * t9268 - 0.87527431338468000000e3 * t9346 * t9352 + 0.119355588188820e3 * t3194 * t25919 + 0.85354656000000000000e3 * t9107 * t8863 - 0.1066933200e3 * t3184 * t25964 + 0.174155645338800e3 * t3212 * t25967 + 0.58051881779600e2 * t3212 * t25970 - 0.335663259723666000e6 * t8991 * t3209 - 0.27971938310305500e5 * t3005 * t9275 - 0.160417795971636e3 * t3150 * t25978;
25342   t25982 = t25943 * t728;
25343   t25989 = t1086 * t282;
25344   t25990 = t25989 * t1088;
25345   t25991 = t2972 * t6398;
25346   t25994 = t3033 * t20079;
25347   t25999 = t3022 * t25584;
25348   t26009 = t3022 * t20212;
25349   t26013 = t3096 * t333 * t338;
25350   t26016 = t3006 * t25558;
25351   t26019 = t8949 * t8625;
25352   t26022 = t3014 * t20339;
25353   t26025 = t3014 * t20217;
25354   t26028 = t3022 * t20079;
25355   t26035 = t3014 * t25558;
25356   t26038 = t8955 * t8625;
25357   t26041 = -0.16783162986183300e5 * t3216 * t26009 - 0.17962523051873182333e6 * t26013 * t3015 - 0.7272703960679430e4 * t8921 * t26016 + 0.5594387662061100e4 * t3216 * t26019 + 0.2797193831030550e4 * t3216 * t26022 + 0.2797193831030550e4 * t3216 * t26025 - 0.1198797356155950e4 * t2353 * t26028 - 0.12982531368148140000e5 * t9078 * t8950 - 0.38361515396990400e5 * t8847 * t25999 + 0.6393585899498400e4 * t8847 * t26035 - 0.5114868719598720e4 * t3222 * t26038;
25358   t26045 = t3022 * t20339;
25359   t26048 = t3022 * t20217;
25360   t26052 = t3089 * t1111 * t324;
25361   t26059 = t3014 * t20212;
25362   t26070 = t3033 * t20212;
25363   t26075 = t3006 * t20212;
25364   t26079 = t3082 * t1098 * t311;
25365   t26086 = t3006 * t20079;
25366   t26091 = t3006 * t25584;
25367   t26094 = t3048 * t25558;
25368   t26097 = -0.2557434359799360e4 * t3222 * t26045 - 0.2557434359799360e4 * t3222 * t26048 + 0.13083088094577585778e6 * t26052 * t3007 + 0.10565442483887200000e6 * t9364 * t8994 - 0.17505486267693600000e5 * t9343 * t8987 + 0.2387111763776400e4 * t3194 * t26059 - 0.12327897614715856000e6 * t21563 * t3049 - 0.91954180738886400e5 * t3047 * t8987 + 0.11494272592360800e5 * t3202 * t26059 - 0.77507124579979920e5 * t3013 * t9081 + 0.9042497867664324e4 * t3143 * t26070 + 0.12890403524392560e5 * t3040 * t8924 - 0.1718720469919008e4 * t3188 * t26075 - 0.21658176621196470667e5 * t26079 * t3049 - 0.14492128038863040000e6 * t9191 * t9081 + 0.17902040518595520e5 * t3222 * t26070 - 0.214840058739876e3 * t2368 * t26086 - 0.24507680774771040000e4 * t9091 * t8938 - 0.4296801174797520e4 * t8867 * t26091 + 0.1074200293699380e4 * t8867 * t26094;
25369   t26098 = t8943 * t8625;
25370   t26109 = t3048 * t25584;
25371   t26112 = t2972 * t25558;
25372   t26115 = t8937 * t8625;
25373   t26118 = t3048 * t20339;
25374   t26121 = t3048 * t20217;
25375   t26125 = t3006 * t20217;
25376   t26128 = t3014 * t20079;
25377   t26133 = t3014 * t25584;
25378   t26150 = -0.2298854518472160e4 * t3202 * t26125 + 0.1044933872032800e4 * t2348 * t26128 + 0.11540714097784480000e5 * t8991 * t8944 + 0.27168280672852800e5 * t8880 * t26133 - 0.5433656134570560e4 * t8880 * t26016 + 0.4528046778808800e4 * t3208 * t26019 + 0.3444761092443552e4 * t8854 * t26035 + 0.238711176377640e3 * t3198 * t26128 - 0.12748193238800160000e5 * t6950 * t8938 - 0.22988545184721600e5 * t8874 * t26091 + 0.5747136296180400e4 * t8874 * t26094;
25379   t26155 = t3006 * t20339;
25380   t26164 = t8602 * t2047;
25381   t26167 = t8943 * t2081;
25382   t26172 = t9247 * t6509;
25383   t26177 = t20516 * t351;
25384   t26178 = t3022 * t6398;
25385   t26183 = t1149 * t1137;
25386   t26184 = t26183 * t1153;
25387   t26190 = t3033 * t6509;
25388   t26195 = t21226 * t324;
25389   t26196 = t3006 * t6398;
25390   t26201 = t1136 * t333;
25391   t26202 = t26201 * t1140;
25392   t26209 = -0.4597709036944320e4 * t3202 * t26098 - 0.2298854518472160e4 * t3202 * t26155 - 0.233713300685760e3 * t3174 * t21234 * t1057 * t6509 + 0.29874129600000000000e4 * t11923 * t8860 + 0.2240559720e3 * t9104 * t26164 + 0.640159920e2 * t3184 * t26167 - 0.15760344867388800000e5 * t9218 * t8906 + 0.1418431038064992e4 * t3154 * t26172 - 0.19427418119503800e5 * t12087 * t8903 - 0.3330414534772080e4 * t26177 * t26178 - 0.2862987933400560e4 * t6623 * t8906 + 0.2999320692133920e4 * t26184 * t3033 * t6398 - 0.24381790347432000000e5 * t9282 * t8843 + 0.2438179034743200e4 * t3212 * t26190 - 0.181817599016985750e6 * t12048 * t8881 - 0.29090815842717720e5 * t26195 * t26196 - 0.96250677582981600000e5 * t12073 * t8903 - 0.16362615189106872e5 * t26202 * t26178 - 0.4801199400e3 * t6607 * t8613 + 0.640159920e2 * t2363 * t25639;
25393   t26212 = t20500 * t287;
25394   t26217 = t8961 * t2081;
25395   t26220 = t8949 * t2047;
25396   t26229 = t3022 * t418;
25397   t26234 = t214 * t12216 * t1150 * t12113;
25398   t26242 = t6574 * t319 * t1101;
25399   t26243 = t2972 * t418;
25400   t26253 = t6579 * t1098 * t1114;
25401   t26254 = t3048 * t418;
25402   t26260 = t6584 * t1111 * t1127;
25403   t26261 = t3006 * t418;
25404   t26267 = t6589 * t333 * t1140;
25405   t26268 = t3014 * t418;
25406   t26273 = 0.40330074960e4 * t20570 * t25712 - 0.57614392800e4 * t26242 * t26243 + 0.53346660e1 * t2363 * t25702 + 0.61407933066666666667e4 * t2376 * t3181 + 0.26586457269059655000e5 * t20584 * t26243 - 0.30722128399802268000e5 * t26253 * t26254 - 0.171160168238972640e6 * t20599 * t26254 + 0.175548890501510400e6 * t26260 * t26261 + 0.24455466065581380000e6 * t20543 * t26261 - 0.23232692762302311000e6 * t26267 * t26268 - 0.129938414737025160e6 * t20560 * t26268;
25407   t26279 = t6698 * t1137 * t1153;
25408   t26282 = t8955 * t2047;
25409   t26285 = t9306 * t2081;
25410   t26296 = t8955 * t2081;
25411   t26299 = t8943 * t2047;
25412   t26315 = 0.117020560640361840e6 * t26279 * t26229 - 0.2887520327489448e4 * t8902 * t26282 - 0.472810346021664e3 * t3154 * t26285 - 0.555069089128680e3 * t8909 * t26282 - 0.81799655240016e2 * t2343 * t26285 - 0.1600399800e3 * t8914 * t25648 - 0.480119940e2 * t2363 * t25651 - 0.1044933872032800e4 * t3212 * t26296 - 0.7272703960679430e4 * t8921 * t26299 - 0.1198797356155950e4 * t2353 * t26296 + 0.6393585899498400e4 * t8847 * t26220 + 0.34684000000000000001e3 * t25472 - 0.60030000000000000000e2 * t25476 + 0.19209600000000000000e3 * t25479 - 0.96048000000000000000e2 * t25481 + 0.18009000000000000000e2 * t25483 - 0.69368000000000000001e3 * t25487 - 0.12006000000000000000e3 * t25493 + 0.20010000000000000000e2 * t25496 - 0.36018000000000000000e3 * t25501;
25413   t26327 = t20694 * t8748;
25414   t26332 = t8633 * t8754;
25415   t26337 = t20654 * t8754;
25416   t26342 = t822 * t283;
25417   t26343 = t26342 * t303;
25418   t26346 = t9161 * t4164;
25419   t26349 = t1135 * t334;
25420   t26350 = t26349 * t354;
25421   t26353 = t9165 * t804;
25422   t26358 = 0.58282254358511400000e4 * t26327 * t25492 + 0.85889638002016800000e3 * t21072 * t25475 + 0.24806196900000000000e4 * t26332 * t8565 - 0.99224787600000000000e3 * t21054 * t8569 + 0.4801199400e3 * t26337 * t25492 + 0.1440359820e3 * t21058 * t25475 - 0.40827977120000000001e4 * t26343 * t8565 + 0.37233814749206040e5 * t26346 * t25500 + 0.10801464928756824000e6 * t26350 * t8565 - 0.39794870790156720000e5 * t26353 * t8569 - 0.29214162585720e2 * t3158 * t25835;
25423   t26399 = t8949 * t2066;
25424   t26402 = -0.9738054195240e1 * t3158 * t25838 + 0.10224956905002e2 * t2343 * t25841 + 0.3408318968334e1 * t2343 * t25844 - 0.36008995500e4 * t8651 * t2963 + 0.14403598200e4 * t21492 * t2973 - 0.8001999000e3 * t2967 * t8673 - 0.4000999500e3 * t2967 * t8599 + 0.3200799600e3 * t6607 * t8603 + 0.1600399800e3 * t6607 * t8606 - 0.400099950e2 * t3163 * t25689 - 0.133366650e2 * t3163 * t25692 + 0.160039980e2 * t2363 * t25699 - 0.53279882495820e2 * t3139 * t25889 + 0.187308884401618140e6 * t9078 * t3144 - 0.66109018024100520e5 * t21489 * t3140 + 0.12917854096663320e5 * t3013 * t9231 + 0.6458927048331660e4 * t3013 * t9197 - 0.4559242622351760e4 * t6603 * t9234 - 0.2279621311175880e4 * t6603 * t9200 + 0.215297568277722e3 * t3143 * t26399;
25425   t26403 = t8937 * t2047;
25426   t26406 = t8949 * t2081;
25427   t26423 = t3028 * t797;
25428   t26424 = t26423 * t8761;
25429   t26429 = t3029 * t3031 * t7167;
25430   t26432 = t331 * t346;
25431   t26433 = t26432 * t303;
25432   t26436 = t3039 * t2317;
25433   t26447 = t8977 * t1127;
25434   t26456 = -0.80631088736587200000e3 * t26429 * t25475 - 0.8962238880e3 * t26433 * t25492 - 0.2560639680e3 * t26436 * t25475 - 0.186479588735370e3 * t3216 * t25880 + 0.199799559359325e3 * t2353 * t25967 + 0.66599853119775e2 * t2353 * t25970 + 0.33009847199632480000e6 * t2399 * t3144 - 0.12378692699862180000e6 * t26447 * t3140 + 0.24153546731438400000e5 * t9191 * t9231 + 0.12076773365719200000e5 * t9191 * t9197 - 0.90575800242894000000e4 * t9194 * t9234;
25435   t26480 = t25695 * t703;
25436   t26483 = t313 * t8590;
25437   t26484 = t26483 * t728;
25438   t26487 = t8974 * t1088;
25439   t26500 = -0.45287900121447000000e4 * t9194 * t9200 + 0.426239059966560e3 * t3222 * t26399 + 0.142079686655520e3 * t3222 * t25883 - 0.159839647487460e3 * t3139 * t25886 - 0.160039980e2 * t3184 * t25857 - 0.53346660e1 * t3184 * t25823 - 0.30077608223582640e5 * t9070 * t3181 - 0.4296801174797520e4 * t3040 * t9255 - 0.400099950e2 * t3163 * t25686 + 0.160039980e2 * t2363 * t25696 + 0.373426620e2 * t3180 * t26480 - 0.160039980e2 * t3184 * t26484 - 0.26317685600000000000e4 * t26487 * t3185 + 0.9989977967966250e4 * t6597 * t9228 + 0.4994988983983125e4 * t6597 * t9187 - 0.559438766206110e3 * t3216 * t25877 - 0.12006e2 * t25536 - 0.61230600000000000000e3 * t25538 + 0.90045000000000000000e1 * t25542 - 0.10805400000000000000e3 * t25545;
25440   t26523 = 0.16208100000000000000e4 * t25581 - 0.96048e2 * t25586 - 0.10005000000000000000e2 * t25590 + 0.18009000000000000000e3 * t25593 + 0.24012e2 * t25596 + 0.20943800000000000000e3 * t25598 + 0.120060e3 * t25600 + 0.96048e2 * t25603 + 0.96048000000000000000e2 * t25605 - 0.24012e2 * t25608 + 0.18009000000000000000e2 * t25612;
25441   t26538 = t326 * t8590;
25442   t26539 = t26538 * t703;
25443   t26542 = t340 * t8590;
25444   t26543 = t26542 * t728;
25445   t26546 = t26542 * t703;
25446   t26549 = t25977 * t728;
25447   t26561 = t8745 * t1153;
25448   t26566 = t26538 * t728;
25449   t26569 = t26483 * t703;
25450   t26578 = -0.29863366198736000000e3 * t9314 * t9320 + 0.7141239743176e1 * t3169 * t3033 * t6448 - 0.2596814452064e1 * t3174 * t3175 * t6501 + 0.373426620e2 * t3180 * t25851 + 0.124475540e2 * t3180 * t25854 - 0.559438766206110e3 * t3216 * t26539 + 0.199799559359325e3 * t2353 * t26543 + 0.426239059966560e3 * t3222 * t26546 - 0.159839647487460e3 * t3139 * t26549 + 0.215297568277722e3 * t3143 * t26546 - 0.75987377039196e2 * t2358 * t26549 - 0.7790443356192e1 * t3174 * t9306 * t2111 + 0.30659722630702293333e5 * t2416 * t3170 - 0.11148990047528106666e5 * t26561 * t3176 + 0.82124257046523999999e3 * t9311 * t9317 - 0.47742235275528e2 * t3198 * t26566 + 0.574713629618040e3 * t3202 * t26569 - 0.208986774406560e3 * t2348 * t26566 - 0.452804677880880e3 * t3208 * t26539 + 0.174155645338800e3 * t3212 * t26543;
25451   t26591 = t1124 * t1111;
25452   t26592 = t26591 * t1127;
25453   t26593 = t3014 * t6398;
25454   t26598 = t3175 * t6509;
25455   t26604 = t21768 * t338;
25456   t26615 = t1148 * t347;
25457   t26616 = t26615 * t8761;
25458   t26619 = t8965 * t8766;
25459   t26630 = 0.17223805462217760e5 * t26604 * t26593 + 0.61349741430012000000e3 * t8749 * t25504 - 0.21472409500504200000e3 * t7003 * t25518 - 0.49274554227914400000e3 * t8762 * t25504 + 0.17918019719241600000e3 * t8767 * t25518 - 0.19052827634793568000e5 * t26616 * t8565 + 0.69283009581067519999e4 * t26619 * t8569 - 0.24637277113957200000e3 * t8762 * t25508 + 0.89590098596208000000e2 * t8767 * t25495 - 0.74119820265257220000e4 * t21066 * t8569 + 0.64452017621962800000e3 * t8778 * t25508;
25460   t26658 = t9131 * t8777;
25461   t26677 = -0.24169506608236050000e3 * t7000 * t25495 - 0.65645573503851000000e3 * t8784 * t25508 + 0.26258229401540400000e3 * t8787 * t25495 - 0.3448281777708240e4 * t8791 * t25508 + 0.1253920646439360e4 * t7009 * t25495 + 0.41957907465458250000e4 * t8804 * t25508 - 0.14984966951949375000e4 * t7012 * t25495 - 0.36230320097157600000e4 * t8810 * t25508 + 0.13586370036434100000e4 * t8813 * t25495 - 0.1493706480e3 * t8771 * t25508 + 0.640159920e2 * t8774 * t25495 + 0.19765285404068592000e5 * t26658 * t8565 - 0.72460640194315200000e4 * t8810 * t25504 + 0.27172740072868200000e4 * t8813 * t25518 - 0.3875356228998996e4 * t8819 * t25504 + 0.1367772786705528e4 * t7006 * t25518 + 0.3169632745166160e4 * t8797 * t25508 - 0.1219089517371600e4 * t8800 * t25495 + 0.3208355919432720e4 * t8825 * t25504 - 0.1182025865054160e4 * t8828 * t25518;
25462   t26682 = t1097 * t319;
25463   t26683 = t26682 * t1101;
25464   t26684 = t3048 * t6398;
25465   t26689 = t21113 * t300;
25466   t26700 = t1110 * t1098;
25467   t26701 = t26700 * t1114;
25468   t26709 = t3022 * t6509;
25469   t26714 = t21177 * t311;
25470   t26729 = 0.15957349178231160e5 * t6603 * t8851 - 0.1418431038064992e4 * t2358 * t26598 - 0.477422352755280e3 * t3198 * t26709 + 0.114942725923608000e6 * t12142 * t8868 + 0.17241408888541200e5 * t26714 * t26684 + 0.20898677440656000e5 * t6657 * t8871 - 0.2089867744065600e4 * t2348 * t26709 + 0.119879735615595000e6 * t21486 * t3213 - 0.13985969155152750e5 * t3005 * t9184 - 0.34764853477006800e5 * t9166 * t3151 + 0.12167698716952380e5 * t21279 * t3155;
25471   t26736 = t1123 * t320;
25472   t26737 = t26736 * t341;
25473   t26740 = t9077 * t793;
25474   t26771 = 0.43763715669234000000e4 * t9346 * t8871 + 0.89909801711696250000e4 * t21048 * t25475 - 0.20772050189037024000e6 * t26737 * t8565 + 0.77895188208888840000e5 * t26740 * t8569 - 0.21338664000000000000e3 * t9107 * t9326 + 0.449898103820088e3 * t9242 * t8961 * t2047 + 0.11279103083843490e5 * t21503 * t3185 - 0.2148400587398760e4 * t3040 * t9323 + 0.70113990205728e2 * t3174 * t7167 * t2954 * t2081 + 0.17246093979770040000e5 * t12095 * t9243 + 0.26877029578862400000e4 * t9314 * t9248 + 0.49790216000000000001e3 * t9099 * t9323 - 0.6721679160e3 * t9104 * t26109 - 0.12006e2 * t25615 + 0.30015e2 * t25617 + 0.120060e3 * t25622 - 0.12006e2 * t25624 + 0.12006e2 * t25627 + 0.12006e2 * t25630 + 0.32016e2 * t25635;
25475   t26786 = t6579 * t1111;
25476   t26793 = t6584 * t333;
25477   t26802 = 0.16008000000000000000e3 * t25666 + 0.119122461411739200e6 * t21691 * t1106 - 0.12907298396270174815e6 * t26786 * t1116 - 0.183815594610579000e6 * t21703 * t1119 + 0.13936237559410133333e4 * t8745 * t3072 + 0.18109568949798374444e6 * t26793 * t1129 + 0.102836250259711920e6 * t21669 * t1132 + 0.2001e1 * t25669 + 0.97826666666666666669e3 * t25671 - 0.48913333333333333334e3 * t25674 + 0.26680000000000000001e3 * t25676;
25478   t26823 = t827 * t788;
25479   t26824 = t26823 * t354;
25480   t26827 = t3020 * t2331;
25481   t26830 = t9161 * t8748;
25482   t26833 = 0.13340000000000000000e3 * t25678 - 0.13340000000000000000e3 * t25680 - 0.66700000000000000000e2 * t25682 + 0.16008e2 * t25687 + 0.16008e2 * t25690 + 0.5336e1 * t25693 - 0.8004e1 * t25697 - 0.8004e1 * t25700 - 0.2668e1 * t25703 - 0.240120e3 * t25705 + 0.54027000000000000000e3 * t25708 - 0.12606300000000000000e4 * t25713 - 0.12006e2 * t25716 - 0.12006e2 * t25719 - 0.4002e1 * t25722 + 0.6003e1 * t25726 + 0.6003e1 * t25729 + 0.28875203274894480e5 * t26824 * t25492 + 0.4728103460216640e4 * t26827 * t25475 + 0.21676908638604240000e5 * t26830 * t8565;
25483   t26838 = t2436 * t308;
25484   t26839 = t26838 * t8803;
25485   t26842 = t9147 * t4134;
25486   t26846 = t20783 * t1127 * t326;
25487   t26851 = t2441 * t320;
25488   t26852 = t26851 * t8818;
25489   t26855 = t9154 * t4149;
25490   t26859 = t20759 * t1140 * t340;
25491   t26865 = t2446 * t334;
25492   t26866 = t26865 * t8748;
25493   t26871 = t2426 * t283;
25494   t26872 = t26871 * t8777;
25495   t26875 = t9131 * t4199;
25496   t26878 = t6574 * t1098;
25497   t26883 = t8824 * t804;
25498   t26892 = -0.101063211462130680e6 * t26866 * t25514 + 0.10082518740e4 * t21081 * t25500 + 0.40330074960e4 * t26872 * t25514 - 0.17284317840e4 * t26875 * t25500 + 0.20649990282445968889e5 * t26878 * t1103 - 0.120060e3 * t25731 - 0.60030e2 * t25733 - 0.22458491436029040e5 * t26883 * t25662 - 0.42944819001008400000e4 * t21006 * t25662 - 0.4801199400e3 * t21161 * t25662 - 0.41957907465458250000e5 * t21032 * t25662;
25499   t26895 = t8809 * t793;
25500   t26898 = t8760 * t8766;
25501   t26901 = t8770 * t766;
25502   t26908 = t8783 * t775;
25503   t26913 = t8796 * t784;
25504   t26924 = t6569 * t319;
25505   t26948 = 0.43476384116589120000e5 * t26895 * t25662 + 0.39419643382331520000e4 * t26898 * t25662 + 0.8962238880e3 * t26901 * t25662 + 0.23252137373993976e5 * t21152 * t25662 - 0.38671210573177680000e4 * t21097 * t25662 + 0.52516458803080800000e4 * t26908 * t25662 + 0.27586254221665920e5 * t21019 * t25662 - 0.31696327451661600e5 * t26913 * t25662 + 0.51630740740740740742e3 * t25736 + 0.4481119440e3 * t3180 * t26075 + 0.1542507784526016e4 * t3169 * t9247 * t20212 - 0.19204797600e4 * t21649 * t1083 + 0.33140789274074074074e4 * t26924 * t1090 + 0.3978519606294e1 * t1099 * t1102 * t25747 + 0.17415564533880e2 * t771 * t314 * t25747 - 0.11610376355920e2 * t1112 * t1115 * t25747 - 0.13319970623955e2 * t780 * t327 * t25747 + 0.8879980415970e1 * t1125 * t1128 * t25747 + 0.4221520946622e1 * t789 * t341 * t25747 - 0.2814347297748e1 * t1138 * t1141 * t25747;
25506   t26994 = t20734 * t1101 * t302;
25507   t26999 = -0.18150888369754933333e5 * t8734 * t3132 - 0.23975947123119000e5 * t6841 * t3056 - 0.28143472977480000000e3 * t3104 * t9027 - 0.51124784525010e2 * t2248 * t9030 + 0.37329207748419999999e2 * t3077 * t9033 - 0.3759701027947830e4 * t6916 * t3121 - 0.26673330e1 * t754 * t290 * t25747 + 0.17782220e1 * t1087 * t1089 * t25747 - 0.5967779409441e1 * t762 * t303 * t25747 - 0.19335605286588840000e5 * t26994 * t25514 + 0.72508519824708150000e4 * t21078 * t25500;
25508   t27004 = t2431 * t296;
25509   t27005 = t27004 * t8790;
25510   t27008 = t9140 * t4119;
25511   t27012 = t20810 * t1114 * t313;
25512   t27016 = t21330 * t1153 * t353;
25513   t27021 = t9123 * t347;
25514   t27023 = t27021 * t4183 * t803;
25515   t27026 = t9124 * t4184;
25516   t27030 = t20747 * t1088 * t289;
25517   t27035 = t21213 * t8818;
25518   t27040 = t20664 * t8777;
25519   t27045 = t1096 * t296;
25520   t27046 = t27045 * t314;
25521   t27049 = t9090 * t775;
25522   t27052 = t823 * t779;
25523   t27053 = t27052 * t341;
25524   t27056 = t3012 * t2321;
25525   t27059 = t9154 * t8818;
25526   t27064 = t9069 * t766;
25527   t27067 = 0.23632406461386360000e5 * t27005 * t25514 - 0.94529625845545440000e4 * t27008 * t25500 + 0.134482989330621360e6 * t27012 * t25514 - 0.20245414671903960000e5 * t27016 * t25514 + 0.70858951351663860000e4 * t21144 * t25500 + 0.17738839522049184000e5 * t27023 * t25514 - 0.64504870989269760000e4 * t27026 * t25500 - 0.25206296850e4 * t27030 * t25514 - 0.6269603232196800e4 * t21041 * t25475 - 0.31002849831991968e5 * t27035 * t25492 - 0.4787204753469348e4 * t21000 * t25475 + 0.45116412335373960000e4 * t27040 * t25492 + 0.96678026432944200000e3 * t21069 * t25475 - 0.24507680774771040000e5 * t27046 * t8565 + 0.98030723099084160000e4 * t27049 * t8569 - 0.54345480145736400000e5 * t27053 * t25492 - 0.95104590255038700000e4 * t27056 * t25475 - 0.11755247227963621200e6 * t27059 * t8565 + 0.41489107863401016000e5 * t21051 * t8569 + 0.17497704480000000000e4 * t27064 * t8569;
25528   t27068 = t3004 * t2296;
25529   t27071 = t9147 * t8803;
25530   t27076 = t20801 * t8803;
25531   t27087 = t1109 * t308;
25532   t27088 = t27087 * t327;
25533   t27091 = t8990 * t784;
25534   t27095 = t818 * t770;
25535   t27096 = t27095 * t327;
25536   t27107 = t814 * t295;
25537   t27108 = t27107 * t314;
25538   t27111 = t3046 * t2288;
25539   t27114 = t9140 * t8790;
25540   t27119 = t20722 * t8790;
25541   t27124 = 0.38035592941993920e5 * t27096 * t25492 + 0.30674870715006000000e3 * t8749 * t25508 - 0.10736204750252100000e3 * t7003 * t25495 + 0.1200299850e3 * t8755 * t25508 - 0.480119940e2 * t6997 * t25495 - 0.59081016153465900000e4 * t27108 * t25492 - 0.13129114700770200000e4 * t27111 * t25475 - 0.14023012562680176000e6 * t27114 * t8565 + 0.50992772955200640000e5 * t21037 * t8569 - 0.34482817777082400e5 * t27119 * t25492 + 0.640159920e2 * t3184 * t26086;
25542   t27155 = t3075 * t1150 * t3031;
25543   t27169 = t6613 * t333 * t864;
25544   t27175 = t6618 * t1137 * t873;
25545   t27178 = 0.17718337066630329000e5 * t20856 * t3041 - 0.86603761976334399999e3 * t8966 * t8962 - 0.342779507672448e3 * t3169 * t9306 * t8625 + 0.2264023389404400e4 * t3208 * t26022 + 0.2264023389404400e4 * t3208 * t26025 - 0.477422352755280e3 * t3194 * t26155 - 0.477422352755280e3 * t3194 * t26125 - 0.171389753836224e3 * t3169 * t3175 * t20217 + 0.70113990205728e2 * t3174 * t9247 * t20079 + 0.2240559720e3 * t9104 * t26112 - 0.1120279860e3 * t3180 * t26118 - 0.1120279860e3 * t3180 * t26121 - 0.16312034248109575111e5 * t27155 * t3034 - 0.13139881127443840000e5 * t9311 * t8969 + 0.449898103820088e3 * t9242 * t3033 * t25558 - 0.171389753836224e3 * t3169 * t3175 * t20339 - 0.36922958569603260000e6 * t20780 * t9149 + 0.35460425795093001000e6 * t27169 * t9156 + 0.19923890259677191200e6 * t20841 * t9156 - 0.18084995735328648000e6 * t27175 * t9120;
25546   t27180 = t6339 * t319 * t838;
25547   t27186 = t6554 * t1098 * t847;
25548   t27195 = t215 * t1148 * t1150 * t4183;
25549   t27202 = t8602 * t4811;
25550   t27208 = t8937 * t4811;
25551   t27213 = t8943 * t4811;
25552   t27218 = t8949 * t4811;
25553   t27234 = 0.23632406461386360000e4 * t9141 * t27208 + 0.12225726302783760e5 * t6959 * t27208 - 0.10971805656344400e5 * t9148 * t27213 - 0.14385568273871400000e5 * t6773 * t27213 + 0.12227733032790690000e5 * t9155 * t27218 + 0.6496920736851258e4 * t6871 * t27218 - 0.3599184830560704e4 * t9242 * t3175 * t25584 - 0.29874129600000000000e4 * t9099 * t8924 - 0.2240559720e3 * t3180 * t26115 + 0.24706606755085740000e4 * t6897 * t8931 + 0.240059970e2 * t2170 * t25589;
25554   t27238 = t25695 * t1425;
25555   t27243 = t26483 * t1425;
25556   t27248 = t26538 * t1425;
25557   t27253 = t26542 * t1425;
25558   t27258 = t25977 * t1425;
25559   t27263 = t3033 * t25584;
25560   t27266 = t3022 * t25558;
25561   t27269 = t8961 * t8625;
25562   t27272 = t3033 * t20339;
25563   t27275 = t3033 * t20217;
25564   t27278 = t3175 * t20079;
25565   t27289 = -0.213386640e2 * t3040 * t27238 + 0.80565022027453500000e2 * t2179 * t27238 - 0.65645573503851000000e2 * t3047 * t27243 - 0.313480161609840e3 * t2187 * t27243 + 0.243817903474320e3 * t3005 * t27248 + 0.29969933903898750000e3 * t2195 * t27248 - 0.22643950060723500000e3 * t3013 * t27253 - 0.113981065558794e3 * t2203 * t27253 + 0.84430418932440e2 * t3021 * t27258 + 0.56849815414509600000e4 * t9166 * t8956 + 0.20212642292426136e5 * t8902 * t27263 - 0.2887520327489448e4 * t8902 * t27266 + 0.2245849143602904e4 * t3150 * t27269 + 0.1122924571801452e4 * t3150 * t27272 + 0.1122924571801452e4 * t3150 * t27275 - 0.472810346021664e3 * t3154 * t27278 + 0.10838454319302120000e4 * t7085 * t8956 + 0.3885483623900760e4 * t8909 * t27263 - 0.555069089128680e3 * t8909 * t27266 + 0.408998276200080e3 * t3158 * t27269;
25566   t27294 = t8955 * t4811;
25567   t27332 = 0.15184766511308700000e5 * t6970 * t8944 + 0.36363519803397150e5 * t8921 * t26133 - 0.5319116392743720e4 * t9162 * t27294 - 0.81799655240016e2 * t2343 * t27278 + 0.49612393800000000000e3 * t6992 * t8630 + 0.3200799600e3 * t8914 * t25585 - 0.1600399800e3 * t8914 * t25559 + 0.1600399800e3 * t3163 * t25555 - 0.12006e2 * t25738 + 0.24456666666666666668e3 * t25740 - 0.120060e3 * t25742;
25568   t27352 = t6698 * t1150;
25569   t27362 = t3175 * t20212;
25570   t27372 = t1122 * t319 * t300;
25571   t27376 = t344 * t1137 * t351;
25572   t27381 = 0.16878332155285605925e5 * t27352 * t1155 + 0.15337435357503000000e2 * t2160 * t27258 - 0.11198762324526000000e2 * t3032 * t25943 * t1425 + 0.14314939667002800e5 * t3021 * t9054 - 0.1635993104800320e4 * t3158 * t27362 + 0.23188014880000000000e4 * t21612 * t2968 + 0.16003998000e4 * t2967 * t8626 - 0.2400599700e3 * t3163 * t25602 - 0.36971211182222222223e4 * t27372 * t3041 + 0.92867206720577893333e5 * t27376 * t3023 + 0.74861638120096800000e5 * t9215 * t9054;
25573   t27388 = t6559 * t1111 * t855;
25574   t27428 = 0.83915814930916500000e4 * t8804 * t25504 - 0.29969933903898750000e4 * t7012 * t25518 - 0.2987412960e3 * t8771 * t25504 + 0.1280319840e3 * t8774 * t25518 + 0.12890403524392560000e4 * t8778 * t25504 - 0.48339013216472100000e3 * t7000 * t25518 - 0.13129114700770200000e4 * t8784 * t25504 + 0.52516458803080800000e3 * t8787 * t25518 - 0.6896563555416480e4 * t8791 * t25504 + 0.2400599700e3 * t8755 * t25504 - 0.960239880e2 * t6997 * t25518;
25575   t27435 = t25783 * t360;
25576   t27438 = t25787 * t360;
25577   t27441 = t25791 * t360;
25578   t27444 = t25795 * t360;
25579   t27446 = t18554 * t21830;
25580   t27447 = t25775 * t360;
25581   t27452 = t5689 * t21813;
25582   t27459 = t1839 * t7245;
25583   t27468 = t8700 * t7229;
25584   t27471 = t616 * t7234;
25585   t27478 = t25759 * t360 * t616 * t881 - 0.6e1 * t3232 * t27435 - 0.3e1 * t3240 * t27435 - 0.6e1 * t3232 * t27438 - 0.3e1 * t3240 * t27438 + 0.18e2 * t9372 * t27441 + 0.18e2 * t9380 * t27441 + 0.3e1 * t9392 * t27441 - 0.2e1 * t3232 * t27444 - t3240 * t27444 - t27446 * t27447 - 0.12e2 * t27452 * t27447 - 0.36e2 * t27459 * t27447 - 0.24e2 * t27471 * t27447 + 0.18e2 * t9372 * t27468 + 0.18e2 * t9380 * t27468 + 0.3e1 * t9392 * t27468;
25586   t27479 = my_piecewise3(t278, -0.25329125679732e2 * t2358 * t25889 - 0.17289473565831880000e6 * t2408 * t3151 + 0.63698060505696400000e5 * t25894 * t3155 - 0.10694519731442400000e5 * t9215 * t9293 - 0.53472598657212000000e4 * t9215 * t8888 + 0.99580432000000000001e3 * t9099 * t9255 - 0.42677328000000000000e3 * t9107 * t9258 - 0.143226705826584e3 * t3188 * t26480 + 0.53710014684969e2 * t2368 * t26484 + 0.119355588188820e3 * t3194 * t26569 + 0.18115160048578800000e6 * t12058 * t8848 - 0.75869180235114840000e4 * t21089 * t8569 - 0.48902905211135040e5 * t21075 * t25500 - 0.142633473532477200e6 * t26839 * t25514 + 0.54859028281722000e5 * t26842 * t25500 - 0.20139795583419960000e6 * t26846 * t25514 - 0.8983396574411616e4 * t3150 * t27362 + 0.18608285460780862000e5 * t20792 * t3023 - 0.26332333575226560000e6 * t27388 * t9149 - 0.16292037787773930e5 * t21628 * t1093 - 0.800199900e2 * t2233 * t8999 + 0.71128880000000000001e2 * t3112 * t9002 - 0.268550073424845e3 * t2245 * t9005 + 0.2507841292878720e4 * t7009 * t25518 + 0.6339265490332320e4 * t8797 * t25504 - 0.2438179034743200e4 * t8800 * t25518 + 0.204499138100040e3 * t3158 * t27272 + 0.204499138100040e3 * t3158 * t27275 - 0.10122707335951980000e4 * t6979 * t27294 - 0.954844705510560e3 * t3194 * t26098 - 0.2583570819332664e4 * t3143 * t26038 - 0.1291785409666332e4 * t3143 * t26045 - 0.51738281939310120000e4 * t26424 * t25492 + 0.1118877532412220e4 * t3139 * t25994 - 0.69148513105668360000e4 * t6862 * t8950 - 0.20668566554661312e5 * t8854 * t25999 - 0.10143470530543341600e6 * t20833 * t3015 + 0.18479239245633570000e6 * t21551 * t3007 + 0.139859691551527500e6 * t3005 * t8994 + 0.2864534116531680e4 * t26683 * t26684 - 0.15038804111791320e5 * t12121 * t8860 - 0.2005173881572176e4 * t26689 * t25991 - 0.3222600881098140e4 * t6645 * t8863 + 0.358066764566460e3 * t2368 * t25964 + 0.19693672051155300000e5 * t12130 * t8868 - 0.12678530980664640000e6 * t12150 * t8881 - 0.19923405826758720e5 * t26701 * t26196 - 0.1002586940786088e4 * t8859 * t26164 - 0.214840058739876e3 * t2368 * t26167 + 0.23282226872689554000e5 * t20613 * t26229 - 0.1291785409666332e4 * t3143 * t26048 + 0.531911639274372e3 * t2358 * t25994 + 0.3007760822358264e4 * t8859 * t26109 - 0.1002586940786088e4 * t8859 * t26112 + 0.859360234959504e3 * t3188 * t26115 + 0.429680117479752e3 * t3188 * t26118 + 0.429680117479752e3 * t3188 * t26121 + 0.59101293252708e2 * t3154 * t25982 - 0.29214162585720e2 * t3158 * t25978 + 0.10224956905002e2 * t2343 * t25982 + 0.3734266200e3 * t25990 * t25991 - 0.75923832556543500000e5 * t21044 * t8569 + 0.54545279705095725000e5 * t27076 * t25492 + 0.80660149920000000001e4 * t27180 * t9133 - 0.37865560352903145000e5 * t20865 * t9133 + 0.44901572276634084000e5 * t27186 * t9142 + 0.25266501025753104000e6 * t21571 * t9142 - 0.36104322831562062000e5 * t20680 * t9120 + 0.31446124607269008000e5 * t27195 * t9126 - 0.53773433280000000000e4 * t20744 * t8635 - 0.5041259370e3 * t6885 * t25592 + 0.5761439280e3 * t9132 * t27202 - 0.24169506608236050000e4 * t6906 * t27202 + 0.29836734197659200e5 * t26592 * t26593 + 0.31701530085012900000e5 * t9194 * t8851 - 0.2983673419765920e4 * t3139 * t26598 + 0.103342832773306560e6 * t12065 * t8848 - 0.7201799100e3 * t7110 * t3115 + 0.87725618666666666667e3 * t8974 * t3118 + 0.20631154499770300000e5 * t8977 * t3059 + 0.11018169670683420e5 * t6926 * t3062 - 0.90997229293852000000e4 * t8984 * t3066 - 0.1738242673850340e4 * t6821 * t3069 + 0.37928553580002800000e4 * t8729 * t3126 + 0.19853743568623200e5 * t7125 * t3129 + 0.40636317245720000000e4 * t9282 * t9187 + 0.21881857834617000000e3 * t3084 * t9008 + 0.1044933872032800e4 * t2262 * t9011 - 0.81272634491439999999e3 * t3091 * t9014 - 0.998997796796625e3 * t2276 * t9017 + 0.75479833535745000000e3 * t3098 * t9020 + 0.379936885195980e3 * t2222 * t9023 + 0.800199900e2 * t3163 * t25562 + 0.800199900e2 * t3163 * t25565 - 0.480119940e2 * t2363 * t25595 - 0.58325681600000000001e3 * t9070 * t8931 - 0.13584140336426400e5 * t3208 * t26009 - 0.1044933872032800e4 * t3212 * t26028 - 0.16003998000e4 * t11936 * t8622 - 0.1600399800e3 * t26212 * t25634 + 0.245398965720048e3 * t2343 * t26172 + 0.1118877532412220e4 * t3139 * t26217 + 0.3444761092443552e4 * t8854 * t26220 + 0.531911639274372e3 * t2358 * t26217 + 0.1074200293699380e4 * t8867 * t26403 + 0.238711176377640e3 * t3198 * t26406 + 0.5747136296180400e4 * t8874 * t26403 + 0.1044933872032800e4 * t2348 * t26406 - 0.5433656134570560e4 * t8880 * t26299 - 0.2044991381000400e4 * t3021 * t9293 - 0.1022495690500200e4 * t3021 * t8888 + 0.715746983350140e3 * t6623 * t9296 + 0.357873491675070e3 * t6623 * t8894 - 0.1937678114499498e4 * t8819 * t25508 + 0.683886393352764e3 * t7006 * t25495 + 0.1604177959716360e4 * t8825 * t25508 - 0.591012932527080e3 * t8828 * t25495 + 0.15002928327119824000e6 * t27088 * t8565 - 0.57703570488922399999e5 * t27091 * t8569 - 0.29969933903898750e5 * t6597 * t8843 + 0.2797193831030550e4 * t2353 * t26190 + 0.71927841369357000000e5 * t21061 * t25500 + 0.19564372852465104000e6 * t26852 * t25514 - 0.73366398196744140000e5 * t26855 * t25500 + 0.110447652526471386e6 * t26859 * t25514 - 0.38981524421107548e5 * t21084 * t25500 - 0.452804677880880e3 * t3208 * t25877 - 0.150934892626960e3 * t3208 * t25880 + 0.71765856092574e2 * t3143 * t25883 - 0.75987377039196e2 * t2358 * t25886 + 0.7314537104229600e4 * t27068 * t25475 + 0.21258673115832180000e6 * t27071 * t8565 + t26630 + t26729 - 0.40020000000000000000e2 * t25527 + t26209 - 0.32016e2 * t25563 - 0.32016e2 * t25566 + t26578 - 0.120060e3 * t25655 + 0.24012e2 * t25569 + 0.12006e2 * t25572 + 0.48024e2 * t25649 + 0.24012e2 * t25652 - 0.21610800000000000000e3 * t25515 + t26315 + t26273 + 0.36018000000000000000e2 * t25505 - 0.30015e2 * t25744 - 0.18009000000000000000e2 * t25519 - 0.90045000000000000000e1 * t25521 + t27124 + t26677 + 0.18009000000000000000e2 * t25509 + t26948 + 0.40020000000000000000e3 * t25644 + 0.20010000000000000000e3 * t25646 + t27289 + 0.48024e2 * t25560 + t26456 + t27067 - 0.17342000000000000000e3 * t25577 + t26358 + t26150 + t26802 - 0.32016e2 * t25640 + t25981 - 0.36018000000000000000e2 * t25663 + t26523 - 0.66625888888888888890e3 * t25551 - 0.53360000000000000001e3 * t25553 + t26097 + t26833 + t26771 + t26999 + 0.10805400000000000000e3 * t25523 - 0.80040000000000000000e2 * t25525 + t27234 + t27332 - 0.486902709762e0 * t798 * t354 * t25747 + 0.324601806508e0 * t1151 * t1154 * t25747 + 0.80631088736587200000e3 * t9125 * t8961 * t4811 - 0.20157772184146800000e5 * t26234 * t3033 * t418 + t27178 + t26500 + 0.72036000000000000000e3 * t25531 + 0.40020000000000000000e2 * t25533 + 0.1334e1 * t25754 + t26041 - 0.2001e1 * t25749 + 0.33350000000000000001e2 * t25751 - 0.64032e2 * t25556 + t26892 + t25928 + t26402 - 0.60030e2 * t25657 + 0.60030e2 * t25659 + 0.12006e2 * t25575 + t25874 + t27428 + t27381 - 0.60030e2 * t25637, t27478);
25587   t27487 = t6316 * t1078;
25588   t27493 = -t674 * t1078 * t7250 + 0.6e1 * t2000 * t2001 * t3243 - t674 * t6541 * t1162 - 0.3e1 * t674 * t2997 * t2472 - 0.3e1 * t674 * t8711 * t885 + t674 * (-0.1540e4 / 0.6561e4 * t24 * t6297 - 0.209e3 / 0.243e3 * t40 * sigma[2] * t6329 * t231 + 0.2809e4 / 0.480e3 * t420 * t221 * t6334 * t231 - 0.18837e5 / 0.12800e5 * t2927 * t6342 + 0.29403e5 / 0.256000e6 * t8549 * t6350 - 0.19683e5 / 0.1280000e7 * t16789 * t6345 / t814 * t231 + 0.2e1 * t6538 * t1075 + 0.6e1 * t2131 * t2994 + 0.6e1 * t739 * t8708 + 0.2e1 * t270 * t25817) * t363 + 0.1174e1 * t27479 - 0.3e1 * t674 * t2134 * t3243 - 0.3e1 * t674 * t742 * t9395 + 0.18e2 * t27487 * t6321 - 0.24e2 * t20016 * t1079 * t6317;
25589   t27525 = -0.2e1 * t1079 * t2000 * t6541 - 0.6e1 * t1162 * t6316 * t6317 - 0.6e1 * t2000 * t2134 * t2998 + 0.6e1 * t2000 * t2134 * t3000 + 0.6e1 * t2000 * t2134 * t3002 - 0.6e1 * t2000 * t742 * t8712 + 0.12e2 * t2000 * t742 * t8714 + 0.6e1 * t2000 * t742 * t8717 + 0.18e2 * t2001 * t2998 * t6316 - 0.18e2 * t2001 * t3000 * t6316 - t277 * t27479;
25590   t27544 = -0.80541612095716256867e2 * t25211 + 0.29687400000000000000e2 * t25213 - 0.3e1 / 0.8e1 * t8 * t212 * (t27493 + t27525) * t377 + 0.41232500000000000000e0 * t25215 - 0.32985999999999999999e1 * t25217 + 0.24739500000000000000e1 * t25219 - 0.65972000000000000001e1 * t25221 + 0.12369750000000000000e1 * t25223 - 0.3e1 / 0.2e1 * t648 * t25115 * t668 + t24623 + 0.12369750000000000000e1 * t6084 * t8457 * t8458 * t19926 - 0.82465000000000000000e0 * t24867;
25591   t27588 = -0.3e1 / 0.8e1 * t25252 + 0.48453229891695600000e3 * t19710 * t25086 * t21902 - 0.24492105000000000000e4 * t3261 * t7280 * t19746 * t367 + 0.14469678309420115281e1 * t2500 * t7288 * t3274 * t238 * t376 + 0.29440005000000000000e3 * t3261 * t3263 * t25763 * t376 - 0.11410061713559803056e3 * t2500 * t3275 * t238 * t2504 - 0.16699162500000000000e3 * t3261 * t9419 * t9445 + 0.90609313607680788977e2 * t2500 * t9423 * t2502 * t2504 - 0.24162483628714877060e3 * t2500 * t9413 * t238 * t2504 - 0.65726558181610899501e3 * t2500 * t12540 / t214 * t21949 + 0.66796650000000000000e3 * t3261 * t21928 * t9430 - 0.18603872112111576789e1 * t2500 * t21938 * t9435;
25592   t27606 = t1165 * t7278 * t5830;
25593   t27611 = t1165 * t19 * t38;
25594   t27635 = 0.33398325000000000000e2 * t3261 * t2475 * t2486 * t19 * t3264 - 0.90609313607680788975e2 * t2500 * t2475 * t3274 * t214 * t2504 + 0.24162483628714877061e3 * t2500 * t3246 * t1170 * t2502 * t2504 - 0.59374800000000000000e3 * t3261 * t27606 * t7283 + 0.16536775210765846035e1 * t2500 * t27611 * t7290 - 0.32986000000000000000e1 * t24870 * t7300 - 0.27488333333333333333e0 * t18900 * t898 * t1171 * t22023 - 0.16493000000000000000e1 * t6047 * t898 * t3268 * t7298 + 0.23090200000000000000e2 * t8450 * t7315 + 0.12369750000000000000e1 * t19333 * t9455 - 0.49479000000000000000e1 * t1953 * t898 * t3268 * t7305 + 0.37109250000000000000e1 * t19640 * t3256;
25595   t27666 = 0.37109250000000000000e1 * t6199 * t9461 + 0.12369750000000000000e1 * t1953 * t898 * t1171 * t22044 - 0.19791600000000000000e2 * t25151 * t1988 - 0.11874960000000000000e3 * t8450 * t7311 - 0.98958000000000000000e1 * t6199 * t9451 - 0.98958000000000000000e1 * t8450 * t7307 + 0.11545100000000000000e2 * t1953 * t898 * t9484 * t1986 + 0.10390590000000000000e4 * t894 * t22014 * t6329 * t376 * sigma[2] * t193 - 0.12113307472923900000e3 * t3261 * t9491 * t6260 - t24603 + 0.82465000000000000000e0 * t24895 + 0.16493000000000000000e1 * t24899 - 0.61848750000000000000e0 * t24915;
25596   t27682 = -t24581 - 0.9e1 / 0.8e1 * t9401 - 0.3e1 * t9404 - t9406 / 0.2e1 + t10 * (t25336 + t25370 + t25399 + t25428 + t27544 + t27588 + t27635 + t27666) - 0.3e1 / 0.2e1 * t9409 - t8435 - 0.3e1 / 0.4e1 * t8447 + 0.24162483628714877061e3 * t9416 + 0.66796650000000000000e2 * t9421 - 0.18121862721536157795e3 * t9426 + 0.66796650000000000000e3 * t9432 - 0.18603872112111576789e1 * t9437 + 0.90609313607680788977e2 * t9441 + 0.22265550000000000000e2 * t8481 - 0.60406209071787192650e2 * t8494 - 0.16699162500000000000e3 * t9447 + t24577;
25597   t27701 = -0.98958000000000000000e1 * t9452 + 0.12369750000000000000e1 * t9456 + 0.74218500000000000000e1 * t9458 + 0.37109250000000000000e1 * t9462 - 0.19791600000000000000e2 * t9464 + 0.24739500000000000000e1 * t8463 + 0.27831937500000000000e1 * t9467 + 0.17317650000000000000e2 * t9469 - 0.14843700000000000000e2 * t9473 - 0.89062200000000000000e2 * t9475 + 0.89062200000000000000e2 * t9479 - 0.24162483628714877060e3 * t9482 + 0.86588250000000000000e1 * t9487 - 0.74218500000000000000e1 * t9489 + 0.36339922418771700000e3 * t9496 - 0.49479000000000000000e1 * t8455 + 0.18554625000000000000e1 * t8473 - 0.24739500000000000000e1 * t8487;
25598   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25599     v4rho3sigma[11] = t27682 + t27701;
25600 
25601   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25602     v4rho3lapl[0] = 0.0e0;
25603 
25604   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25605     v4rho3lapl[1] = 0.0e0;
25606 
25607   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25608     v4rho3lapl[2] = 0.0e0;
25609 
25610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25611     v4rho3lapl[3] = 0.0e0;
25612 
25613   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25614     v4rho3lapl[4] = 0.0e0;
25615 
25616   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25617     v4rho3lapl[5] = 0.0e0;
25618 
25619   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25620     v4rho3lapl[6] = 0.0e0;
25621 
25622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25623     v4rho3lapl[7] = 0.0e0;
25624 
25625   t27711 = t1244 * t5836 * t5830;
25626   t27716 = t1244 * t19 * t38;
25627   t27724 = t1874 * t10290;
25628   t27727 = t3547 * t1180 * t10273;
25629   t27730 = t9514 * t1864;
25630   t27732 = t1179 * t9524;
25631   t27736 = t634 * t398 * t1244;
25632   t27737 = t27736 * t644;
25633   t27740 = t634 * t18 * t3541;
25634   t27741 = t27740 * t644;
25635   t27749 = t9514 * t1870;
25636   t27754 = t8 * t18 * t10274;
25637   t27758 = -t3286 * t9517 * t5711 / 0.2e1 + 0.24162483628714877061e3 * t10287 * t3541 * t1035 * t1876 * t1878 - 0.59374800000000000000e3 * t13075 * t27711 * t5841 + 0.16536775210765846035e1 * t10287 * t27716 * t5848 - 0.24162483628714877060e3 * t10287 * t10288 * t61 * t1878 + 0.32216644838286502747e3 * t27724 - 0.74218500000000000000e1 * t27727 * t644 - 0.11874960000000000000e3 * t27730 + 0.32216644838286502747e3 * t27732 * t5774 - 0.32986000000000000000e1 * t27737 - 0.19791600000000000000e2 * t27741 - 0.19241833333333333333e2 * t3549 * t5793 + 0.17317650000000000000e2 * t10279 * t1870 + 0.20781180000000000000e3 * t3549 * t5786 + 0.23090200000000000000e2 * t27749 - 0.89062200000000000000e2 * t10279 * t1864 - 0.3e1 / 0.2e1 * t27754 + 0.23090200000000000000e2 * t9525 * t5821;
25638   t27761 = t8 * t1356 * t1245 / 0.9e1;
25639   t27794 = t1181 * t1438 * t1425;
25640   t27797 = t3314 * t438;
25641   t27798 = t27797 * t1425;
25642   t27801 = t3314 * t463;
25643   t27802 = t27801 * t1425;
25644   t27812 = t1181 * t1453 * t1425;
25645   t27816 = t1181 * t1418 * t1425;
25646   t27827 = 0.25266501025753104000e6 * t17699 * t9936 - 0.26332333575226560000e6 * t23392 * t9856 - 0.36922958569603260000e6 * t17645 * t9856 + 0.35460425795093001000e6 * t23406 * t9859 + 0.114942725923608000e6 * t11386 * t10234 + 0.20898677440656000e5 * t5279 * t10209 + 0.103342832773306560e6 * t11359 * t10136 + 0.15957349178231160e5 * t5246 * t10133 + 0.30674870715006000000e3 * t7671 * t27794 + 0.2400599700e3 * t7686 * t27798 - 0.960239880e2 * t5455 * t27802 - 0.2987412960e3 * t7692 * t27798 + 0.1280319840e3 * t7695 * t27802 + 0.2507841292878720e4 * t5461 * t27802 - 0.95104590255038700000e4 * t22278 * t27812 - 0.31002849831991968e5 * t22281 * t27816 - 0.4787204753469348e4 * t17797 * t27812 + 0.28875203274894480e5 * t22182 * t27816 + 0.4728103460216640e4 * t22185 * t27812 - 0.72460640194315200000e4 * t8291 * t27798;
25647   t27857 = t1181 * t19;
25648   t27858 = t27857 * t5476;
25649   t27861 = t27857 * t4815;
25650   t27874 = -0.15171421432001120000e5 * t23726 * t3482 + 0.43763715669234000000e4 * t7811 * t10209 + 0.21881857834617000000e4 * t7808 * t9751 - 0.34482817777082400e5 * t22558 * t27816 - 0.20245414671903960000e5 * t22260 * t27858 + 0.70858951351663860000e4 * t17867 * t27861 + 0.4801199400e3 * t22501 * t27816 - 0.6269603232196800e4 * t17899 * t27812 + 0.38035592941993920e5 * t22571 * t27816 + 0.7314537104229600e4 * t22171 * t27812 + 0.54545279705095725000e5 * t22176 * t27816;
25651   t27917 = 0.89909801711696250000e4 * t17790 * t27812 - 0.54345480145736400000e5 * t22275 * t27816 + 0.12890403524392560000e4 * t7699 * t27798 - 0.48339013216472100000e3 * t5458 * t27802 - 0.13129114700770200000e4 * t7705 * t27798 + 0.52516458803080800000e3 * t7708 * t27802 - 0.6896563555416480e4 * t7712 * t27798 + 0.17738839522049184000e5 * t22267 * t27858 - 0.64504870989269760000e4 * t22313 * t27861 + 0.21676908638604240000e5 * t22519 * t9650 + 0.58282254358511400000e4 * t22522 * t27816 - 0.75869180235114840000e4 * t17779 * t9646 + 0.85889638002016800000e3 * t17783 * t27812 - 0.51738281939310120000e4 * t22488 * t27816 - 0.80631088736587200000e3 * t22495 * t27812 - 0.99224787600000000000e3 * t17800 * t9646 - 0.8962238880e3 * t22516 * t27816 - 0.2560639680e3 * t22465 * t27812 + 0.45116412335373960000e4 * t22472 * t27816 + 0.96678026432944200000e3 * t17773 * t27812;
25652   t27939 = t1470 * t9609;
25653   t27941 = t4908 * t9615;
25654   t27943 = t84 * t9569;
25655   t27945 = t2544 * t27943 * t438;
25656   t27947 = t113 * t9569;
25657   t27949 = t1429 * t27947 * t463;
25658   t27951 = t7568 * t9590;
25659   t27959 = t126 * t9569;
25660   t27960 = t27959 * t463;
25661   t27961 = t2574 * t27960;
25662   t27963 = t7571 * t9597;
25663   t27965 = t27947 * t438;
25664   t27966 = t2565 * t27965;
25665   t27968 = -0.120060e3 * t27939 + 0.60030e2 * t27941 - 0.12006e2 * t27945 + 0.6003e1 * t27949 + 0.26680000000000000000e3 * t27951 - 0.12678530980664640000e6 * t11394 * t10212 - 0.24381790347432000000e5 * t7943 * t10215 - 0.181817599016985750e6 * t11342 * t10212 - 0.8004e1 * t27961 - 0.13340000000000000000e3 * t27963 + 0.16008e2 * t27966;
25666   t27977 = t1181 * t1483 * t1425;
25667   t28006 = t9894 * t1438;
25668   t28009 = t3456 * t4832;
25669   t28012 = t9900 * t1483;
25670   t28015 = t3456 * t4885;
25671   t28018 = 0.77895188208888840000e5 * t22207 * t9646 - 0.36230320097157600000e4 * t8291 * t27794 + 0.13586370036434100000e4 * t8294 * t27977 + 0.134482989330621360e6 * t22304 * t27858 - 0.48902905211135040e5 * t17882 * t27861 - 0.142633473532477200e6 * t22310 * t27858 + 0.54859028281722000e5 * t22368 * t27861 - 0.20139795583419960000e6 * t22372 * t27858 + 0.71927841369357000000e5 * t17870 * t27861 + 0.19564372852465104000e6 * t22236 * t27858 - 0.73366398196744140000e5 * t22241 * t27861 + 0.110447652526471386e6 * t22246 * t27858 - 0.38981524421107548e5 * t17873 * t27861 + 0.1440359820e3 * t17761 * t27812 + 0.39400862168472000000e4 * t7746 * t10088 + 0.19700431084236000000e4 * t7746 * t9720 - 0.160417795971636e3 * t2805 * t28006 - 0.53472598657212e2 * t2805 * t28009 + 0.59101293252708e2 * t2809 * t28012 - 0.25329125679732e2 * t1625 * t28015;
25672   t28042 = t9888 * t1438;
25673   t28045 = t3375 * t4832;
25674   t28048 = t9894 * t1483;
25675   t28051 = t9880 * t1483;
25676   t28054 = t3369 * t4885;
25677   t28067 = -0.2279621311175880e4 * t5246 * t9776 + 0.215297568277722e3 * t2799 * t28042 + 0.71765856092574e2 * t2799 * t28045 - 0.75987377039196e2 * t1625 * t28048 - 0.208986774406560e3 * t1641 * t28051 - 0.69662258135520e2 * t1641 * t28054 + 0.426239059966560e3 * t2791 * t28042 + 0.142079686655520e3 * t2791 * t28045 - 0.159839647487460e3 * t2795 * t28048 - 0.47742235275528e2 * t2766 * t28051 - 0.15914078425176e2 * t2766 * t28054;
25678   t28082 = t9874 * t1438;
25679   t28085 = t3363 * t4832;
25680   t28092 = t17738 * t1181;
25681   t28098 = t3369 * t4891;
25682   t28103 = t3456 * t4945;
25683   t28108 = t10191 * t4891;
25684   t28117 = 0.218391179254855200e6 * t8260 * t3479 - 0.79414974274492800e5 * t17385 * t3482 + 0.22988545184721600e5 * t2617 * t10122 + 0.11494272592360800e5 * t2617 * t9751 - 0.8359470976262400e4 * t5279 * t10125 - 0.4179735488131200e4 * t5279 * t9754 + 0.574713629618040e3 * t2770 * t28082 + 0.191571209872680e3 * t2770 * t28085 + 0.17246093979770040000e5 * t11302 * t10188 + 0.26877029578862400000e4 * t7902 * t10192 - 0.233713300685760e3 * t2823 * t28092 * t4891 - 0.4801199400e3 * t5252 * t9586 + 0.640159920e2 * t1630 * t28098 - 0.19427418119503800e5 * t11292 * t10201 - 0.3330414534772080e4 * t22905 * t28103 - 0.2862987933400560e4 * t5232 * t10185 + 0.245398965720048e3 * t1615 * t28108 + 0.18115160048578800000e6 * t11352 * t10136 + 0.357873491675070e3 * t5232 * t9720 + 0.29874129600000000000e4 * t11180 * t10224;
25685   t28124 = t3363 * t4885;
25686   t28131 = t150 * t9569;
25687   t28132 = t28131 * t438;
25688   t28135 = t164 * t9569;
25689   t28136 = t28135 * t463;
25690   t28144 = t17049 * t9631;
25691   t28147 = t4810 * t9608 * t4811;
25692   t28149 = t7568 * t9636;
25693   t28151 = t9589 * t4811;
25694   t28152 = t7518 * t28151;
25695   t28154 = t3369 * t17095;
25696   t28157 = t9894 * t4811;
25697   t28160 = t3456 * t17095;
25698   t28163 = t3363 * t17095;
25699   t28172 = -0.61230600000000000000e3 * t28144 - 0.10805400000000000000e3 * t28147 - 0.53360000000000000001e3 * t28149 + 0.18009000000000000000e3 * t28152 - 0.4296801174797520e4 * t7960 * t28154 - 0.10122707335951980000e4 * t5492 * t28157 - 0.38361515396990400e5 * t7922 * t28160 - 0.6721679160e3 * t7996 * t28163 - 0.12378692699862180000e6 * t23167 * t3457 + 0.31701530085012900000e5 * t7823 * t10133 + 0.12076773365719200000e5 * t7820 * t9773;
25700   t28178 = t1429 * t3309 * t4885;
25701   t28180 = t1443 * t3320;
25702   t28182 = t23878 * t3327;
25703   t28185 = t16993 * t3302 * t418;
25704   t28219 = 0.2001e1 * t28178 + 0.97826666666666666669e3 * t28180 - 0.48913333333333333334e3 * t28182 + 0.54027000000000000000e3 * t28185 - 0.96250677582981600000e5 * t11377 * t10201 - 0.15760344867388800000e5 * t7746 * t10185 + 0.89590098596208000000e2 * t7682 * t27977 - 0.480119940e2 * t5455 * t27977 - 0.40827977120000000001e4 * t22512 * t9650 + 0.17497704480000000000e4 * t22462 * t9646 - 0.1493706480e3 * t7692 * t27794 + 0.640159920e2 * t7695 * t27977 + 0.19765285404068592000e5 * t22469 * t9650 - 0.74119820265257220000e4 * t17764 * t9646 + 0.64452017621962800000e3 * t7699 * t27794 - 0.24169506608236050000e3 * t5458 * t27977 - 0.24507680774771040000e5 * t22480 * t9650 + 0.6339265490332320e4 * t7719 * t27798 - 0.2438179034743200e4 * t8281 * t27802 + 0.83915814930916500000e4 * t8285 * t27798;
25705   t28232 = t10102 * t1453;
25706   t28238 = t5119 * t3314;
25707   t28245 = t9589 * t1418;
25708   t28248 = t9874 * t1453;
25709   t28251 = t9894 * t1453;
25710   t28254 = t9894 * t1418;
25711   t28257 = t9888 * t1453;
25712   t28260 = t3504 * t4891;
25713   t28263 = t3375 * t4945;
25714   t28270 = t9596 * t1418;
25715   t28273 = t9880 * t1453;
25716   t28276 = -0.1600399800e3 * t7940 * t28245 - 0.480119940e2 * t1630 * t28248 - 0.1198797356155950e4 * t1620 * t28251 - 0.555069089128680e3 * t7972 * t28254 + 0.1044933872032800e4 * t1641 * t28257 - 0.2983673419765920e4 * t2795 * t28260 + 0.17223805462217760e5 * t22884 * t28263 - 0.1418431038064992e4 * t1625 * t28260 - 0.16362615189106872e5 * t23141 * t28103 + 0.2240559720e3 * t7996 * t28270 + 0.640159920e2 * t2752 * t28273;
25717   t28283 = t9874 * t1418;
25718   t28290 = t3456 * t17086;
25719   t28295 = t3467 * t17086;
25720   t28298 = t3504 * t17086;
25721   t28301 = t9900 * t7509;
25722   t28309 = t3456 * t17069;
25723   t28312 = t3467 * t16958;
25724   t28317 = t9596 * t7509;
25725   t28324 = t9894 * t7509;
25726   t28327 = t9649 * t22909;
25727   t28330 = -0.1002586940786088e4 * t7952 * t28270 - 0.214840058739876e3 * t1635 * t28273 + 0.1074200293699380e4 * t7960 * t28283 + 0.238711176377640e3 * t2766 * t28257 + 0.5747136296180400e4 * t7983 * t28283 - 0.13584140336426400e5 * t2777 * t28290 - 0.16783162986183300e5 * t2785 * t28290 + 0.9042497867664324e4 * t2799 * t28295 - 0.8983396574411616e4 * t2805 * t28298 + 0.408998276200080e3 * t2813 * t28301 - 0.86603761976334399999e3 * t8216 * t9901 - 0.342779507672448e3 * t2819 * t10102 * t7509 - 0.555069089128680e3 * t7972 * t28309 + 0.204499138100040e3 * t2813 * t28312 + 0.49612393800000000000e3 * t5602 * t9639 + 0.1600399800e3 * t2742 * t28317 - 0.58325681600000000001e3 * t8249 * t9869 - 0.12982531368148140000e5 * t8234 * t9889 - 0.5114868719598720e4 * t2791 * t28324 + 0.39419643382331520000e4 * t22937 * t28327;
25728   t28333 = t17094 * t28327;
25729   t28335 = t22913 * t28327;
25730   t28337 = t9874 * t7509;
25731   t28342 = t9880 * t7509;
25732   t28357 = t3369 * t17086;
25733   t28362 = t3375 * t17086;
25734   t28373 = t3363 * t17086;
25735   t28380 = 0.1542507784526016e4 * t2819 * t10191 * t17086 + 0.4481119440e3 * t2748 * t28357 - 0.1718720469919008e4 * t2756 * t28357 + 0.2387111763776400e4 * t2762 * t28362 - 0.36104322831562062000e5 * t17669 * t9864 - 0.22988545184721600e5 * t7983 * t28154 + 0.11494272592360800e5 * t2770 * t28362 + 0.19923890259677191200e6 * t18205 * t9859 - 0.2400599700e3 * t2742 * t28373 - 0.53773433280000000000e4 * t17721 * t9642 + 0.80660149920000000001e4 * t23380 * t9931;
25736   t28388 = t3326 * t17095;
25737   t28391 = t3375 * t17095;
25738   t28400 = t3467 * t17095;
25739   t28407 = t9596 * t1438;
25740   t28410 = t3326 * t4832;
25741   t28413 = t9874 * t1483;
25742   t28428 = t27959 * t438;
25743   t28431 = -0.37865560352903145000e5 * t18182 * t9931 + 0.44901572276634084000e5 * t23386 * t9936 + 0.3200799600e3 * t7940 * t28388 + 0.27168280672852800e5 * t7990 * t28391 + 0.36363519803397150e5 * t7948 * t28391 + 0.17902040518595520e5 * t2791 * t28295 - 0.20668566554661312e5 * t7931 * t28160 + 0.20212642292426136e5 * t7965 * t28400 - 0.2240559720e3 * t2748 * t28337 + 0.24706606755085740000e4 * t5576 * t9869 - 0.143226705826584e3 * t2756 * t28407 - 0.47742235275528e2 * t2756 * t28410 + 0.53710014684969e2 * t1635 * t28413 - 0.4296801174797520e4 * t2610 * t10112 - 0.2148400587398760e4 * t2610 * t10143 + 0.1611300440549070e4 * t5273 * t10115 + 0.805650220274535e3 * t5273 * t10146 - 0.400099950e2 * t2742 * t27965 + 0.160039980e2 * t1630 * t27960 + 0.373426620e2 * t2748 * t28428;
25744   t28432 = t137 * t9569;
25745   t28433 = t28432 * t463;
25746   t28438 = t28135 * t438;
25747   t28441 = t177 * t9569;
25748   t28442 = t28441 * t463;
25749   t28449 = t28441 * t438;
25750   t28452 = t609 * t9569;
25751   t28453 = t28452 * t463;
25752   t28477 = t9589 * t1438;
25753   t28480 = t3309 * t4832;
25754   t28485 = -0.29214162585720e2 * t2813 * t28449 - 0.29214162585720e2 * t2813 * t28006 + 0.11279103083843490e5 * t17382 * t3471 + 0.12167698716952380e5 * t17379 * t3468 - 0.36008995500e4 * t7506 * t3320 + 0.14403598200e4 * t17370 * t3327 - 0.8001999000e3 * t2570 * t9590 - 0.4000999500e3 * t2570 * t9593 - 0.400099950e2 * t2742 * t28477 - 0.133366650e2 * t2742 * t28480 - 0.17505486267693600000e4 * t7811 * t10125;
25755   t28494 = t3467 * t4885;
25756   t28503 = t3309 * t4945;
25757   t28506 = t3456 * t4891;
25758   t28509 = t3369 * t4945;
25759   t28512 = t3467 * t4891;
25760   t28517 = t7571 * t9600;
25761   t28519 = t4908 * t9580;
25762   t28522 = t1429 * t9596 * t1453;
25763   t28524 = t23808 * t9583;
25764   t28526 = t7592 * t28245;
25765   t28528 = t7568 * t9593;
25766   t28530 = t2574 * t28248;
25767   t28532 = t2574 * t28098;
25768   t28534 = -0.87527431338468000000e3 * t7811 * t9754 + 0.119355588188820e3 * t2762 * t28082 + 0.39785196062940e2 * t2762 * t28085 + 0.19700431084236e2 * t2809 * t28494 - 0.90575800242894000000e4 * t7823 * t10174 - 0.45287900121447000000e4 * t7823 * t9776 + 0.1418431038064992e4 * t2809 * t28108 - 0.1600399800e3 * t22889 * t28503 - 0.2089867744065600e4 * t1641 * t28506 - 0.19923405826758720e5 * t23128 * t28509 + 0.2438179034743200e4 * t2781 * t28512 - 0.29090815842717720e5 * t22899 * t28509 - 0.66700000000000000000e2 * t28517 - 0.60030e2 * t28519 - 0.12006e2 * t28522 + 0.40020000000000000000e3 * t28524 + 0.48024e2 * t28526 + 0.13340000000000000000e3 * t28528 + 0.24012e2 * t28530 - 0.32016e2 * t28532;
25769   t28535 = t7571 * t9586;
25770   t28538 = t1429 * t3363 * t4891;
25771   t28540 = t23898 * t28503;
25772   t28542 = t22438 * t9646;
25773   t28544 = t17090 * t27861;
25774   t28546 = t22423 * t27858;
25775   t28548 = t22533 * t27861;
25776   t28550 = t22540 * t27858;
25777   t28552 = t7603 * t27798;
25778   t28554 = t7603 * t27794;
25779   t28557 = t7608 * t27802;
25780   t28559 = t7608 * t27977;
25781   t28561 = t22413 * t9650;
25782   t28563 = t17066 * t9646;
25783   t28565 = t7614 * t27798;
25784   t28567 = t7614 * t27794;
25785   t28569 = t3504 * t16919;
25786   t28574 = t3375 * t17069;
25787   t28577 = t3456 * t16958;
25788   t28580 = t3456 * t17076;
25789   t28583 = 0.40020000000000000000e2 * t28557 + 0.20010000000000000000e2 * t28559 + 0.19209600000000000000e3 * t28561 - 0.96048000000000000000e2 * t28563 + 0.36018000000000000000e2 * t28565 + 0.18009000000000000000e2 * t28567 - 0.472810346021664e3 * t2809 * t28569 - 0.14492128038863040000e6 * t7820 * t9904 + 0.6393585899498400e4 * t7922 * t28574 - 0.2557434359799360e4 * t2791 * t28577 - 0.2557434359799360e4 * t2791 * t28580;
25790   t28589 = t3467 * t16919;
25791   t28612 = t3467 * t17076;
25792   t28619 = t3309 * t17069;
25793   t28622 = t3326 * t16958;
25794   t28627 = t3363 * t17069;
25795   t28630 = t3369 * t16958;
25796   t28633 = t3369 * t17076;
25797   t28636 = 0.1118877532412220e4 * t2795 * t28589 - 0.10143470530543341600e6 * t18259 * t3376 - 0.77507124579979920e5 * t2633 * t9904 + 0.3444761092443552e4 * t7931 * t28574 - 0.1291785409666332e4 * t2799 * t28577 - 0.1291785409666332e4 * t2799 * t28580 + 0.531911639274372e3 * t1625 * t28589 + 0.92867206720577893333e5 * t23274 * t3518 + 0.74861638120096800000e5 * t7855 * t9920 - 0.2887520327489448e4 * t7965 * t28309 + 0.1122924571801452e4 * t2805 * t28312 + 0.1122924571801452e4 * t2805 * t28612 + 0.23188014880000000000e4 * t18251 * t3323 + 0.16003998000e4 * t2570 * t9636 - 0.1600399800e3 * t7940 * t28619 + 0.800199900e2 * t2742 * t28622 - 0.17505486267693600000e5 * t7808 * t9912 + 0.1074200293699380e4 * t7960 * t28627 - 0.477422352755280e3 * t2762 * t28630 - 0.477422352755280e3 * t2762 * t28633;
25798   t28637 = t3375 * t16919;
25799   t28659 = t3369 * t17069;
25800   t28662 = t3375 * t16958;
25801   t28665 = t3375 * t17076;
25802   t28668 = t3456 * t16919;
25803   t28684 = t22536 * t27812;
25804   t28686 = -0.5433656134570560e4 * t7990 * t28659 + 0.2264023389404400e4 * t2777 * t28662 + 0.2264023389404400e4 * t2777 * t28665 - 0.1044933872032800e4 * t2781 * t28668 + 0.18479239245633570000e6 * t18212 * t3370 + 0.139859691551527500e6 * t2625 * t9949 + 0.18608285460780862000e5 * t18239 * t3518 + 0.3885483623900760e4 * t7972 * t28400 - 0.3599184830560704e4 * t7978 * t3504 * t17095 + 0.3007760822358264e4 * t7952 * t28163 - 0.60030000000000000000e2 * t28684;
25805   t28729 = -0.1219089517371600e4 * t8281 * t27977 + 0.21258673115832180000e6 * t22232 * t9650 - 0.75923832556543500000e5 * t17786 * t9646 + 0.41957907465458250000e4 * t8285 * t27794 - 0.14984966951949375000e4 * t5449 * t27977 - 0.20772050189037024000e6 * t22204 * t9650 - 0.10736204750252100000e3 * t5446 * t27977 - 0.19052827634793568000e5 * t22530 * t9650 + 0.69283009581067519999e4 * t22491 * t9646 - 0.24637277113957200000e3 * t7678 * t27794 - 0.11755247227963621200e6 * t22219 * t9650 + 0.41489107863401016000e5 * t17793 * t9646 - 0.1937678114499498e4 * t8298 * t27794 + 0.683886393352764e3 * t5452 * t27977 + 0.10801464928756824000e6 * t22192 * t9650 - 0.39794870790156720000e5 * t22160 * t9646 + 0.1604177959716360e4 * t8304 * t27794 - 0.591012932527080e3 * t8307 * t27977 + 0.24806196900000000000e4 * t22498 * t9650 + 0.1200299850e3 * t7686 * t27794;
25806   t28740 = t17085 * t27812;
25807   t28742 = t22419 * t27816;
25808   t28755 = t3326 * t17069;
25809   t28758 = t3363 * t16958;
25810   t28761 = t3363 * t17076;
25811   t28764 = t3369 * t16919;
25812   t28771 = t9888 * t7509;
25813   t28778 = 0.2245849143602904e4 * t2805 * t28301 + 0.10838454319302120000e4 * t5548 * t9895 - 0.1002586940786088e4 * t7952 * t28755 + 0.429680117479752e3 * t2756 * t28758 + 0.429680117479752e3 * t2756 * t28761 - 0.214840058739876e3 * t1635 * t28764 - 0.21658176621196470667e5 * t23436 * t3364 + 0.11540714097784480000e5 * t8195 * t9881 + 0.4528046778808800e4 * t2777 * t28771 + 0.15184766511308700000e5 * t5535 * t9881 + 0.5594387662061100e4 * t2785 * t28771;
25814   t28788 = t3326 * t4945;
25815   t28791 = t3375 * t4891;
25816   t28794 = t3363 * t4945;
25817   t28822 = my_piecewise3(t65, -0.440e3 / 0.27e2 * t1375, 0);
25818   t28832 = -0.171389753836224e3 * t2819 * t3504 * t17076 + 0.2999320692133920e4 * t22860 * t3467 * t4945 - 0.2005173881572176e4 * t23156 * t28788 + 0.358066764566460e3 * t1635 * t28791 + 0.2864534116531680e4 * t23136 * t28794 - 0.477422352755280e3 * t2766 * t28506 + 0.17241408888541200e5 * t23161 * t28794 + 0.2797193831030550e4 * t1620 * t28512 + 0.29836734197659200e5 * t22877 * t28263 + 0.3734266200e3 * t23150 * t28788 - 0.1066933200e3 * t2752 * t28791 - 0.3759701027947830e4 * t5115 * t3410 + 0.37928553580002800000e4 * t8128 * t3413 - 0.81272634491439999999e3 * t2690 * t10036 - 0.268550073424845e3 * t1744 * t10027 + 0.21881857834617000000e3 * t2683 * t10030 + 0.1044933872032800e4 * t1776 * t10033 - 0.26673330e1 * t560 * t114 * t28822 + 0.17782220e1 * t952 * t954 * t28822 - 0.5967779409441e1 * t568 * t127 * t28822;
25819   t28885 = -0.90997229293852000000e4 * t8104 * t3431 - 0.1738242673850340e4 * t5033 * t3434 - 0.7201799100e3 * t5108 * t3404 + 0.19853743568623200e5 * t5058 * t3416 - 0.18150888369754933333e5 * t8123 * t3419 - 0.23975947123119000e5 * t5073 * t3422 + 0.20631154499770300000e5 * t8099 * t3425 + 0.13936237559410133333e4 * t8118 * t3437 + 0.87725618666666666667e3 * t8094 * t3407 - 0.998997796796625e3 * t1710 * t10039 + 0.75479833535745000000e3 * t2735 * t10042;
25820   t28920 = t3326 * t418;
25821   t28925 = t3363 * t418;
25822   t28930 = 0.379936885195980e3 * t1721 * t10045 - 0.28143472977480000000e3 * t2662 * t10048 - 0.51124784525010e2 * t1763 * t10051 + 0.37329207748419999999e2 * t2670 * t10054 - 0.800199900e2 * t1732 * t10021 + 0.71128880000000000001e2 * t2676 * t10024 + 0.8962238880e3 * t22929 * t28327 - 0.38671210573177680000e4 * t17844 * t28327 + 0.52516458803080800000e4 * t22934 * t28327 - 0.42944819001008400000e4 * t17885 * t28327 + 0.23252137373993976e5 * t17820 * t28327 - 0.22458491436029040e5 * t22942 * t28327 + 0.27586254221665920e5 * t17858 * t28327 - 0.31696327451661600e5 * t22926 * t28327 - 0.41957907465458250000e5 * t17905 * t28327 + 0.43476384116589120000e5 * t22920 * t28327 - 0.57614392800e4 * t23687 * t28920 + 0.26586457269059655000e5 * t18168 * t28920 - 0.30722128399802268000e5 * t23694 * t28925 - 0.171160168238972640e6 * t18177 * t28925;
25823   t28931 = t3369 * t418;
25824   t28936 = t3375 * t418;
25825   t28941 = t3456 * t418;
25826   t28953 = t28432 * t438;
25827   t28957 = t28131 * t463;
25828   t28969 = t1786 * t9569;
25829   t28977 = t4908 * t9618;
25830   t28979 = t12628 * t9612;
25831   t28981 = t23861 * t3310;
25832   t28983 = -0.47742235275528e2 * t2766 * t28957 + 0.574713629618040e3 * t2770 * t28953 - 0.208986774406560e3 * t1641 * t28957 + 0.10224956905002e2 * t1615 * t28453 + 0.21423719229528e2 * t2819 * t28452 * t438 - 0.7790443356192e1 * t2823 * t28969 * t463 - 0.9738054195240e1 * t2813 * t28009 + 0.3200799600e3 * t5252 * t9597 + 0.30015e2 * t28977 - 0.12006e2 * t28979 + 0.12006e2 * t28981;
25833   t28989 = t2544 * t9608 * t1438;
25834   t28992 = t2544 * t3302 * t4832;
25835   t28995 = t1429 * t9589 * t1483;
25836   t28997 = t3309 * t418;
25837   t29000 = t16813 * t3310;
25838   t29002 = t1470 * t9612;
25839   t29004 = t23913 * t28997;
25840   t29006 = t2565 * t28477;
25841   t29008 = t2565 * t28480;
25842   t29010 = t9596 * t1483;
25843   t29011 = t2574 * t29010;
25844   t29013 = t3326 * t4885;
25845   t29014 = t2574 * t29013;
25846   t29016 = t4854 * t3303;
25847   t29018 = t4938 * t27802;
25848   t29020 = t4938 * t27977;
25849   t29022 = t22435 * t9650;
25850   t29025 = t2544 * t9589 * t7509;
25851   t29028 = t2544 * t3309 * t16958;
25852   t29031 = t2544 * t3309 * t17076;
25853   t29034 = t1429 * t3326 * t16919;
25854   t29036 = t22963 * t3323;
25855   t29038 = -0.12006e2 * t28989 - 0.4002e1 * t28992 + 0.6003e1 * t28995 + 0.40330074960e4 * t18159 * t28997 + 0.120060e3 * t29000 - 0.60030e2 * t29002 - 0.12606300000000000000e4 * t29004 + 0.16008e2 * t29006 + 0.5336e1 * t29008 - 0.8004e1 * t29011 - 0.2668e1 * t29014 - 0.240120e3 * t29016 - 0.18009000000000000000e2 * t29018 - 0.90045000000000000000e1 * t29020 - 0.69368000000000000001e3 * t29022 + 0.24012e2 * t29025 + 0.12006e2 * t29028 + 0.12006e2 * t29031 - 0.12006e2 * t29034 - 0.66625888888888888890e3 * t29036;
25856   t29039 = t4823 * t9628;
25857   t29042 = t1423 * t27943 * t1425;
25858   t29044 = t7506 * t9639;
25859   t29046 = t27947 * t1425;
25860   t29047 = t2570 * t29046;
25861   t29049 = t2565 * t28317;
25862   t29051 = t7592 * t28619;
25863   t29053 = t2565 * t28622;
25864   t29062 = t22983 * t9642;
25865   t29064 = t7592 * t28388;
25866   t29066 = t3326 * t17076;
25867   t29067 = t2565 * t29066;
25868   t29069 = t3363 * t16919;
25869   t29070 = t2574 * t29069;
25870   t29072 = t17052 * t3306;
25871   t29074 = t1470 * t9625;
25872   t29076 = t22998 * t3306;
25873   t29086 = 0.16208100000000000000e4 * t29062 - 0.96048e2 * t29064 - 0.32016e2 * t29067 + 0.24012e2 * t29070 + 0.20943800000000000000e3 * t29072 + 0.120060e3 * t29074 + 0.18009000000000000000e2 * t29076 + 0.119122461411739200e6 * t17283 * t1213 - 0.12907298396270174815e6 * t23226 * t1216 + 0.18109568949798374444e6 * t22684 * t1222 - 0.19204797600e4 * t17269 * t1201;
25874   t29103 = t4847 * t1182;
25875   t29105 = t4865 * t1182;
25876   t29107 = t22710 * t1185;
25877   t29109 = t7534 * t3330;
25878   t29111 = t459 * t9570;
25879   t29114 = t433 * t85 * t28822;
25880   t29116 = t2561 * t9575;
25881   t29119 = t927 * t929 * t28822;
25882   t29121 = t7551 * t3315;
25883   t29123 = t1463 * t3315;
25884   t29127 = t9880 * t1418;
25885   t29132 = -0.16292037787773930e5 * t17240 * t1207 - 0.183815594610579000e6 * t17305 * t1219 + 0.33140789274074074074e4 * t22681 * t1204 + 0.20649990282445968889e5 * t23223 * t1210 + 0.16878332155285605925e5 * t23735 * t1234 - 0.101063211462130680e6 * t22253 * t27858 + 0.37233814749206040e5 * t22256 * t27861 - 0.120060e3 * t29103 - 0.60030e2 * t29105 + 0.51630740740740740742e3 * t29107 + 0.24456666666666666668e3 * t29109 - 0.30015e2 * t29111 - 0.2001e1 * t29114 + 0.33350000000000000001e2 * t29116 + 0.1334e1 * t29119 - 0.12006e2 * t29121 - 0.120060e3 * t29123 - 0.1044933872032800e4 * t2781 * t28251 - 0.7272703960679430e4 * t7948 * t29127 + 0.1600399800e3 * t5252 * t9600;
25886   t29137 = t9888 * t1418;
25887   t29140 = t9900 * t1453;
25888   t29177 = t28135 * t1425;
25889   t29182 = -0.29863366198736000000e3 * t7902 * t9730 + 0.21423719229528e2 * t2819 * t9900 * t1438 + 0.7141239743176e1 * t2819 * t3467 * t4832 - 0.7790443356192e1 * t2823 * t10102 * t1483 + 0.3408318968334e1 * t1615 * t28494 + 0.30659722630702293333e5 * t1688 * t3501 - 0.11148990047528106666e5 * t22753 * t3505 + 0.16424851409304800000e4 * t7899 * t10099 + 0.82124257046523999999e3 * t7899 * t9727 - 0.22643950060723500000e3 * t2633 * t29177 - 0.113981065558794e3 * t1546 * t29177;
25890   t29186 = t28441 * t1425;
25891   t29191 = t9596 * t4811;
25892   t29196 = t9874 * t4811;
25893   t29201 = t9880 * t4811;
25894   t29206 = t9888 * t4811;
25895   t29218 = t9880 * t1438;
25896   t29221 = t3369 * t4832;
25897   t29224 = t9888 * t1483;
25898   t29227 = t3375 * t4885;
25899   t29236 = 0.84430418932440e2 * t2641 * t29186 - 0.5041259370e3 * t5519 * t28151 + 0.5761439280e3 * t8041 * t29191 - 0.24169506608236050000e4 * t5614 * t29191 + 0.23632406461386360000e4 * t8048 * t29196 + 0.12225726302783760e5 * t5622 * t29196 - 0.10971805656344400e5 * t8055 * t29201 - 0.14385568273871400000e5 * t5475 * t29201 + 0.12227733032790690000e5 * t8004 * t29206 + 0.80631088736587200000e3 * t8019 * t9900 * t4811 + 0.14314939667002800e5 * t2641 * t9920 + 0.9989977967966250e4 * t5240 * t10162 + 0.4994988983983125e4 * t5240 * t9707 - 0.559438766206110e3 * t2785 * t29218 - 0.186479588735370e3 * t2785 * t29221 + 0.199799559359325e3 * t1620 * t29224 + 0.66599853119775e2 * t1620 * t29227 + 0.33009847199632480000e6 * t1672 * t3453 + 0.24153546731438400000e5 * t7820 * t10171 - 0.34764853477006800e5 * t8266 * t3464;
25900   t29280 = -0.13985969155152750e5 * t2625 * t9704 - 0.21338664000000000000e3 * t7779 * t10146 + 0.373426620e2 * t2748 * t28407 + 0.124475540e2 * t2748 * t28410 - 0.160039980e2 * t2752 * t28413 - 0.53346660e1 * t2752 * t28124 - 0.30077608223582640e5 * t8249 * t3474 - 0.23596154880681413333e6 * t1664 * t3490 + 0.90754441848774666666e5 * t23628 * t3450 - 0.21130884967774400000e5 * t7766 * t10159 + 0.53346660e1 * t1630 * t29013;
25901   t29305 = t2544 * t3326 * t17086;
25902   t29308 = t2565 * t28373;
25903   t29321 = t27959 * t1425;
25904   t29326 = t28432 * t1425;
25905   t29331 = t28131 * t1425;
25906   t29334 = 0.96048e2 * t29308 + 0.15337435357503000000e2 * t1555 * t29186 - 0.11198762324526000000e2 * t2652 * t28452 * t1425 + 0.6496920736851258e4 * t5484 * t29206 - 0.5319116392743720e4 * t8011 * t28157 + 0.240059970e2 * t1513 * t29046 - 0.213386640e2 * t2610 * t29321 + 0.80565022027453500000e2 * t1522 * t29321 - 0.65645573503851000000e2 * t2617 * t29326 - 0.313480161609840e3 * t1530 * t29326 + 0.243817903474320e3 * t2625 * t29331;
25907   t29380 = -0.480119940e2 * t1630 * t29069 - 0.36971211182222222223e4 * t23112 * t3358 - 0.29874129600000000000e4 * t7776 * t9907 + 0.2240559720e3 * t7996 * t28755 - 0.1120279860e3 * t2748 * t28758 - 0.1120279860e3 * t2748 * t28761 + 0.640159920e2 * t2752 * t28764 + 0.17718337066630329000e5 * t18245 * t3358 + 0.12890403524392560e5 * t2610 * t9907 - 0.7272703960679430e4 * t7948 * t28659 + 0.2797193831030550e4 * t2785 * t28662;
25908   t29387 = t10253 * t1490;
25909   t29390 = t1188 * t4956;
25910   t29391 = t29390 * t184;
25911   t29394 = t9658 * t184;
25912   t29395 = t29394 * t466;
25913   t29398 = t10253 * t1486;
25914   t29403 = t9677 * t5673;
25915   t29408 = t3529 * t4950;
25916   t29428 = -0.180e3 * t27939 + 0.90e2 * t27941 - 0.18e2 * t27945 + 0.9e1 * t27949 + 0.400e3 * t27951 - 0.12e2 * t27961 - 0.200e3 * t27963 + 0.24e2 * t27966 - 0.918e3 * t28144 - 0.162e3 * t28147 - 0.800e3 * t28149;
25917   t29441 = 0.270e3 * t28152 + 0.3e1 * t28178 + 0.4400e4 / 0.3e1 * t28180 - 0.2200e4 / 0.3e1 * t28182 + 0.810e3 * t28185 - 0.54e2 * t28333 + 0.240e3 * t28335 - 0.100e3 * t28517 - 0.90e2 * t28519 - 0.18e2 * t28522 + 0.600e3 * t28524 + 0.72e2 * t28526;
25918   t29454 = 0.200e3 * t28528 + 0.36e2 * t28530 - 0.48e2 * t28532 + 0.300e3 * t28535 + 0.18e2 * t28538 + 0.48e2 * t28540 + 0.520e3 * t28542 + 0.162e3 * t28544 + 0.1080e4 * t28546 - 0.540e3 * t28548 - 0.324e3 * t28550;
25919   t29467 = -0.120e3 * t28552 - 0.60e2 * t28554 + 0.60e2 * t28557 + 0.30e2 * t28559 + 0.288e3 * t28561 - 0.144e3 * t28563 + 0.54e2 * t28565 + 0.27e2 * t28567 - 0.90e2 * t28684 + 0.27e2 * t28740 - 0.180e3 * t28742 + 0.45e2 * t28977;
25920   t29481 = -0.18e2 * t28979 + 0.18e2 * t28981 - 0.18e2 * t28989 - 0.6e1 * t28992 + 0.9e1 * t28995 + 0.180e3 * t29000 - 0.90e2 * t29002 - 0.1890e4 * t29004 + 0.24e2 * t29006 + 0.8e1 * t29008 - 0.12e2 * t29011;
25921   t29494 = -0.4e1 * t29014 - 0.360e3 * t29016 - 0.27e2 * t29018 - 0.27e2 / 0.2e1 * t29020 - 0.1040e4 * t29022 + 0.36e2 * t29025 + 0.18e2 * t29028 + 0.18e2 * t29031 - 0.18e2 * t29034 - 0.8990e4 / 0.9e1 * t29036 + 0.144e3 * t29039 + 0.27e2 / 0.2e1 * t29042;
25922   t29508 = -0.260e3 * t29044 - 0.15e2 * t29047 - 0.96e2 * t29049 + 0.72e2 * t29051 - 0.48e2 * t29053 + 0.2430e4 * t29062 - 0.144e3 * t29064 - 0.48e2 * t29067 + 0.36e2 * t29070 + 0.314e3 * t29072 + 0.180e3 * t29074 + 0.27e2 * t29076;
25923   t29521 = -0.180e3 * t29103 - 0.90e2 * t29105 + 0.20900e5 / 0.27e2 * t29107 + 0.1100e4 / 0.3e1 * t29109 - 0.45e2 * t29111 - 0.3e1 * t29114 + 0.50e2 * t29116 + 0.2e1 * t29119 - 0.18e2 * t29121 - 0.180e3 * t29123 - 0.36e2 * t29305 + 0.144e3 * t29308;
25924   t29524 = t29428 + t29441 + t29454 + t29467 + t29481 + t29494 + t29508 + t29521;
25925   t29536 = t184 * t29524 * t616 * t617 - 0.24e2 * t23950 * t29391 - t24084 * t29391 - 0.12e2 * t24086 * t29391 - 0.36e2 * t24093 * t29391 - 0.6e1 * t2835 * t29395 - 0.6e1 * t2835 * t29398 - 0.2e1 * t2835 * t29408 - 0.3e1 * t2843 * t29395 - 0.3e1 * t2843 * t29398 - t2843 * t29408 + 0.18e2 * t8315 * t29387 + 0.18e2 * t8323 * t29387 + 0.3e1 * t8335 * t29387 + 0.18e2 * t8315 * t29403 + 0.18e2 * t8323 * t29403 + 0.3e1 * t8335 * t29403;
25926   t29537 = my_piecewise3(t102, -0.3875356228998996e4 * t8298 * t27798 + 0.1367772786705528e4 * t5452 * t27802 + 0.3208355919432720e4 * t8304 * t27798 - 0.13139881127443840000e5 * t7899 * t9923 + 0.800199900e2 * t2742 * t29066 + 0.2797193831030550e4 * t2785 * t28665 - 0.1198797356155950e4 * t1620 * t28668 - 0.17962523051873182333e6 * t23240 * t3376 + 0.204499138100040e3 * t2813 * t28612 - 0.81799655240016e2 * t1615 * t28569 - 0.16312034248109575111e5 * t23534 * t3523 + 0.29969933903898750000e3 * t1538 * t29331 - 0.42677328000000000000e3 * t7779 * t10115 + 0.160039980e2 * t1630 * t29010 + 0.61407933066666666667e4 * t1649 * t3474 - 0.26317685600000000000e4 * t22459 * t3471 + 0.99580432000000000001e3 * t7776 * t10112 + 0.49790216000000000001e3 * t7776 * t10143 - 0.27971938310305500e5 * t2625 * t10159 + 0.81272634491439999999e4 * t7943 * t10162 + 0.40636317245720000000e4 * t7943 * t9707 - 0.452804677880880e3 * t2777 * t29218 - 0.150934892626960e3 * t2777 * t29221 + 0.174155645338800e3 * t2781 * t29224 + 0.58051881779600e2 * t2781 * t29227 - 0.335663259723666000e6 * t8195 * t3490 + 0.119879735615595000e6 * t17373 * t3450 - 0.10565442483887200000e5 * t7766 * t9704 - 0.2887520327489448e4 * t7965 * t28254 - 0.472810346021664e3 * t2809 * t28232 - 0.3222600881098140e4 * t5273 * t10227 - 0.59726732397471999999e3 * t7902 * t10103 - 0.5433656134570560e4 * t7990 * t29127 + 0.6393585899498400e4 * t7922 * t29137 + 0.1118877532412220e4 * t2795 * t29140 + 0.3444761092443552e4 * t7931 * t29137 + 0.531911639274372e3 * t1625 * t29140 + 0.19693672051155300000e5 * t11336 * t10234 - 0.95041550595800977777e5 * t23754 * t1228 - 0.19120669412353740e5 * t17330 * t1231 + 0.102836250259711920e6 * t17204 * t1225 + 0.117020560640361840e6 * t23614 * t28941 + 0.23282226872689554000e5 * t18145 * t28941 + 0.53710014684969e2 * t1635 * t28433 + 0.119355588188820e3 * t2762 * t28953 - 0.143226705826584e3 * t2756 * t28428 - 0.23232692762302311000e6 * t23607 * t28936 - 0.129938414737025160e6 * t18136 * t28936 + 0.11018169670683420e5 * t5093 * t3428 - 0.2583570819332664e4 * t2799 * t28324 + 0.56849815414509600000e4 * t8266 * t9895 + 0.98030723099084160000e4 * t22549 * t9646 - 0.65645573503851000000e3 * t7705 * t27794 + 0.26258229401540400000e3 * t7708 * t27977 - 0.14023012562680176000e6 * t22555 * t9650 + 0.50992772955200640000e5 * t17776 * t9646 - 0.69148513105668360000e4 * t5589 * t9889 + 0.10565442483887200000e6 * t7766 * t9949 + 0.238711176377640e3 * t2766 * t28637 - 0.12327897614715856000e6 * t18218 * t3364 - 0.91954180738886400e5 * t2617 * t9912 - 0.18084995735328648000e6 * t23415 * t9864 + 0.5747136296180400e4 * t7983 * t28627 - 0.2298854518472160e4 * t2770 * t28630 - 0.2298854518472160e4 * t2770 * t28633 + 0.1044933872032800e4 * t1641 * t28637 + 0.13083088094577585778e6 * t23440 * t3370 + 0.215297568277722e3 * t2799 * t28438 - 0.75987377039196e2 * t1625 * t28442 - 0.160417795971636e3 * t2805 * t28449 + 0.59101293252708e2 * t2809 * t28453 - 0.2044991381000400e4 * t2641 * t10094 + 0.715746983350140e3 * t5232 * t10088 - 0.160039980e2 * t2752 * t28433 + 0.199799559359325e3 * t1620 * t28136 + 0.426239059966560e3 * t2791 * t28438 - 0.159839647487460e3 * t2795 * t28442 + 0.859360234959504e3 * t2756 * t28337 - 0.24507680774771040000e4 * t8260 * t9875 - 0.954844705510560e3 * t2762 * t28342 - 0.12748193238800160000e5 * t5561 * t9875 - 0.4597709036944320e4 * t2770 * t28342 + 0.31446124607269008000e5 * t23422 * t9917 - 0.1635993104800320e4 * t2813 * t28298 - 0.4801199400e3 * t17832 * t28327 + 0.1253920646439360e4 * t5461 * t27977 + 0.15002928327119824000e6 * t22567 * t9650 - 0.57703570488922399999e5 * t22188 * t9646 + 0.3169632745166160e4 * t7719 * t27794 - 0.81799655240016e2 * t1615 * t28232 - 0.1022495690500200e4 * t2641 * t9740 - 0.29969933903898750000e4 * t5449 * t27802 - 0.3448281777708240e4 * t7712 * t27794 + 0.85354656000000000000e3 * t7779 * t10227 - 0.15038804111791320e5 * t11328 * t10224 - 0.29969933903898750e5 * t5240 * t10215 + 0.17903338228323e2 * t1635 * t28124 + 0.37928553580002800000e5 * t1656 * t3479 + 0.43763715669234000000e4 * t7808 * t10122 - 0.452804677880880e3 * t2777 * t28132 + 0.174155645338800e3 * t2781 * t28136 - 0.559438766206110e3 * t2785 * t28132 + 0.10224956905002e2 * t1615 * t28012 - 0.4559242622351760e4 * t5246 * t10174 - 0.17289473565831880000e6 * t1680 * t3464 + 0.63698060505696400000e5 * t22648 * t3468 - 0.10694519731442400000e5 * t7855 * t10094 - 0.53472598657212000000e4 * t7855 * t9740 - 0.53279882495820e2 * t2795 * t28015 + 0.187308884401618140e6 * t8234 * t3453 - 0.66109018024100520e5 * t17376 * t3457 + 0.12917854096663320e5 * t2633 * t10171 + 0.6458927048331660e4 * t2633 * t9773 + 0.10082518740e4 * t17876 * t27861 + 0.40330074960e4 * t22396 * t27858 - 0.17284317840e4 * t22287 * t27861 - 0.19335605286588840000e5 * t22291 * t27858 + 0.72508519824708150000e4 * t17879 * t27861 + 0.23632406461386360000e5 * t22297 * t27858 - 0.94529625845545440000e4 * t22300 * t27861 - 0.59081016153465900000e4 * t22484 * t27816 - 0.13129114700770200000e4 * t22552 * t27812 - 0.25206296850e4 * t22333 * t27858 - 0.1182025865054160e4 * t8307 * t27802 + 0.61349741430012000000e3 * t7671 * t27798 - 0.21472409500504200000e3 * t5446 * t27802 - 0.49274554227914400000e3 * t7678 * t27798 + 0.17918019719241600000e3 * t7682 * t27802 - 0.16003998000e4 * t11170 * t9583 + 0.27172740072868200000e4 * t8294 * t27802 + 0.175548890501510400e6 * t23701 * t28931 + 0.24455466065581380000e6 * t18127 * t28931 + t29132 - 0.24012e2 * t29305 + t28885 + t28686 + t28832 - 0.10005000000000000000e2 * t29047 + t28431 - 0.40020000000000000000e2 * t28554 + t28018 + t27827 - 0.21610800000000000000e3 * t28550 - 0.80040000000000000000e2 * t28552 + t28930 + t29280 + t29086 + t28583 + t28636 + t28330 - 0.12006000000000000000e3 * t28742 + 0.12006e2 * t28538 + 0.32016e2 * t28540 + t28983 - 0.36018000000000000000e2 * t28333 + t28276 + 0.90045000000000000000e1 * t29042 - 0.17342000000000000000e3 * t29044 + 0.16008000000000000000e3 * t28335 + 0.18009000000000000000e2 * t28740 + t27917 + 0.96048000000000000000e2 * t29039 + t29334 + t28534 + 0.20010000000000000000e3 * t28535 + t28117 + t29038 + t28380 + t28172 + t28729 - 0.32016e2 * t29053 + t29380 + t28067 + 0.72036000000000000000e3 * t28546 - 0.36018000000000000000e3 * t28548 + t28485 + t29236 + t27968 + t27874 + 0.34684000000000000001e3 * t28542 + 0.10805400000000000000e3 * t28544 + t28778 + t28219 + t29182 - 0.20157772184146800000e5 * t23622 * t3467 * t418 - 0.2596814452064e1 * t2823 * t3504 * t4885 + 0.449898103820088e3 * t7978 * t3467 * t17069 - 0.171389753836224e3 * t2819 * t3504 * t16958 + 0.70113990205728e2 * t2823 * t10191 * t16919 + 0.449898103820088e3 * t7978 * t9900 * t1418 + 0.70113990205728e2 * t2823 * t28238 * t1453 + 0.3978519606294e1 * t964 * t967 * t28822 + 0.17415564533880e2 * t577 * t138 * t28822 - 0.11610376355920e2 * t977 * t980 * t28822 - 0.13319970623955e2 * t586 * t151 * t28822 + 0.8879980415970e1 * t990 * t993 * t28822 + 0.4221520946622e1 * t595 * t165 * t28822 - 0.2814347297748e1 * t1003 * t1006 * t28822 - 0.486902709762e0 * t604 * t178 * t28822 + 0.324601806508e0 * t1016 * t1019 * t28822 - 0.64032e2 * t29049 + 0.48024e2 * t29051, t29536);
25927   t29614 = 0.3e1 / 0.100e3 * t1499 * t9658 * t466 * t91 + 0.3e1 / 0.100e3 * t1499 * t3333 * t1486 * t91 - 0.3e1 / 0.100e3 * t4970 * t3333 * t1490 * t91 + t1499 * t1188 * t4950 * t91 / 0.100e3 + t17136 * t29390 * t91 / 0.100e3 - 0.9e1 / 0.100e3 * t9659 * t2587 - 0.9e1 / 0.100e3 * t3334 * t1500 - 0.9e1 / 0.100e3 * t3334 * t7629 + 0.9e1 / 0.50e2 * t3334 * t7633 - 0.9e1 / 0.100e3 * t1189 * t4967 + 0.3e1 / 0.20e2 * t1189 * t24224 - 0.3e1 / 0.100e3 * t1189 * t24228 - t1189 * t24194 / 0.10e2 + t56 * t29524 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t12703 * t4967 + 0.9e1 / 0.50e2 * t12685 * t4967 - t470 * t29524 * t91 / 0.100e3;
25928   t29619 = 0.6e1 * t1369 * t1370 * t3538 - 0.3e1 * t405 * t477 * t10270 - 0.3e1 * t405 * t1506 * t3538 - t405 * t4977 * t1241 + 0.6e1 * t405 * t1503 * t3346 * t187 + 0.1174e1 * t29537 - 0.6e1 * t405 * t3347 * t1846 + 0.6e1 * t1369 * t3354 * t1506 - 0.2e1 * t405 * t1195 * t5696 + 0.36e2 * t9531 * t3292 * t477 * t1506 + 0.2e1 * t405 * t4974 * t1194 * t187 + 0.6e1 * t405 * t474 * t9685 * t187 - 0.6e1 * t405 * t9549 * t621 - 0.12e2 * t405 * t9553 * t621 - 0.6e1 * t405 * t3296 * t1846 + 0.2e1 * t405 * t94 * t29614 * t187;
25929   t29623 = t1369 * t1503;
25930   t29641 = t3346 * t621;
25931   t29646 = t16741 * t94;
25932   t29650 = t9685 * t187;
25933   t29654 = t1194 * t1846;
25934   t29658 = t4747 * t474;
25935   t29670 = -0.6e1 * t1241 * t4747 * t4748 + 0.36e2 * t1370 * t9531 * t9538 - 0.36e2 * t1370 * t9531 * t9542 - 0.12e2 * t1506 * t3291 * t9538 + 0.12e2 * t1506 * t3291 * t9542 + 0.24e2 * t29641 * t3291 * t477 - 0.48e2 * t29646 * t3292 * t4748 - 0.12e2 * t29650 * t3291 * t477 + 0.12e2 * t29654 * t3291 * t477 - 0.4e1 * t3291 * t3292 * t4977 - 0.6e1 * t405 * t621 * t9686 - t101 * t29537 - 0.12e2 * t29623 * t3293 + 0.36e2 * t29658 * t9532 - 0.24e2 * t9535 * t9539 + 0.24e2 * t9535 * t9543 - 0.12e2 * t9535 * t9546;
25936   t29679 = t3547 * t1324 * t1244;
25937   t29683 = t3547 * t384 * t3541;
25938   t29689 = t634 * t1338 * t1244;
25939   t29690 = t29689 * t1343;
25940   t29692 = t3546 * t3285;
25941   t29693 = t16 * t1244;
25942   t29698 = t8 * t398 * t3542;
25943   t29701 = t1325 * t9504 * t1327;
25944   t29705 = t385 * t397 * t1244 * t392;
25945   t29713 = t5733 * t1244;
25946   t29717 = t1323 * t3541;
25947   t29721 = t15 * t10273;
25948   t29727 = t385 * t17 * t3541 * t392;
25949   t29730 = t385 * t9504 * t1350;
25950   t29732 = t27761 - 0.3e1 / 0.8e1 * t1179 * t1180 * (t29619 + t29670) * t204 - 0.11874960000000000000e3 * t9525 * t5883 - 0.32986000000000000000e1 * t29679 * t5865 - 0.19791600000000000000e2 * t29683 * t1343 - 0.98958000000000000000e1 * t9525 * t5879 - 0.26388800000000000000e2 * t29690 - 0.32302153261130400000e3 * t29692 * t29693 * t5891 - t29698 / 0.2e1 - 0.2e1 / 0.3e1 * t29701 - 0.2e1 / 0.3e1 * t29705 - 0.3e1 / 0.2e1 * t3286 * t9521 * t1350 - t3286 * t3287 * t5753 / 0.2e1 + t3286 * t29713 * t5737 / 0.9e1 - t3286 * t29717 * t1327 / 0.2e1 - 0.3e1 / 0.2e1 * t3286 * t29721 * t392 - 0.4e1 * t29727 - 0.2e1 * t29730;
25951   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25952     v4rho3tau[0] = t27758 + t29732;
25953 
25954   t29734 = t1885 * t10293 * t1887;
25955   t29738 = t648 * t397 * t1313 * t651;
25956   t29741 = t648 * t10293 * t1896;
25957   t29745 = t8 * t1900 * t1314 / 0.9e1;
25958   t29746 = t5716 * t1313;
25959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25960     v4rho3tau[1] = -0.2e1 / 0.3e1 * t29734 - 0.2e1 / 0.3e1 * t29738 - 0.2e1 * t29741 + t29745 + t3286 * t29746 * t5720 / 0.9e1 - t3286 * t10300 * t5707 / 0.2e1 - t3286 * t3554 * t5816 / 0.2e1;
25961 
25962   t29763 = t10322 * t4;
25963   t29770 = t3547 * t1324 * t1244 * t638;
25964   t29776 = 0.87962666666666666666e1 * t29689 * t1918;
25965   t29782 = t1355 * t632 * t4;
25966   t29783 = t29782 * t9524;
25967   t29786 = 0.10738881612762167582e3 * t27724 + 0.10738881612762167582e3 * t27732 * t6031 - 0.39583200000000000000e2 * t27730 - 0.21990666666666666666e1 * t27737 - 0.65972000000000000000e1 * t27741 + 0.76967333333333333333e1 * t27749 - t29763 * t384 * t1245 / 0.2e1 - t27754 / 0.2e1 - 0.21990666666666666666e1 * t29770 * t5982 - 0.39583200000000000000e2 * t9525 * t6063 - t29776 - 0.65972000000000000000e1 * t29683 * t1918 + 0.76967333333333333333e1 * t9525 * t6035 - 0.65972000000000000000e1 * t29783 * t6042 + t27761;
25968   t29795 = 0.4e1 / 0.9e1 * t10311 * t10314;
25969   t29807 = 0.4e1 / 0.3e1 * t10311 * t10317;
25970   t29813 = t1922 * t2 * t3285;
25971   t29814 = t29813 * t10324;
25972   t29816 = t397 * t2;
25973   t29817 = t29816 * t3285;
25974   t29818 = t29817 * t3558;
25975   t29822 = -0.87962666666666666666e1 * t29690 - t3286 * t9517 * t5955 / 0.6e1 - t3286 * t29717 * t1906 / 0.3e1 - t29795 + t3286 * t29713 * t5940 / 0.9e1 - t10323 * t9517 * t5947 / 0.3e1 - t29698 / 0.3e1 - t3286 * t29721 * t663 / 0.2e1 - t29807 - 0.2e1 / 0.9e1 * t29701 - 0.4e1 / 0.9e1 * t29705 - t10323 * t9521 * t1924 + t29814 / 0.6e1 - 0.2e1 / 0.9e1 * t29818 - 0.4e1 / 0.3e1 * t29727 - 0.2e1 / 0.3e1 * t29730;
25976   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25977     v4rho3tau[2] = t29786 + t29822;
25978 
25979   t29828 = t397 * t632 * t4 * t3820;
25980   t29829 = t29828 * t902;
25981   t29831 = t10344 * t10348;
25982   t29833 = 0.87962666666666666666e1 * t29831 * t1956;
25983   t29837 = t29817 * t3562;
25984   t29840 = 0.4e1 / 0.9e1 * t10311 * t10330;
25985   t29844 = t29816 * t4;
25986   t29845 = t29844 * t3817;
25987   t29848 = 0.4e1 / 0.3e1 * t10311 * t10340;
25988   t29852 = t29813 * t10333;
25989   t29855 = t3547 * t1884 * t1313;
25990   t29866 = t1883 * t3815;
25991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25992     v4rho3tau[3] = -0.2e1 / 0.3e1 * t29741 + t29745 - 0.32986000000000000000e1 * t10349 * t6055 - 0.10995333333333333333e1 * t29829 - t29833 + t3286 * t29746 * t5933 / 0.9e1 - 0.2e1 / 0.9e1 * t29837 - t29840 + t29763 * t647 * t1314 / 0.2e1 - t29845 / 0.6e1 - t29848 - t3286 * t10339 * t1896 / 0.2e1 - t29852 / 0.6e1 - 0.10995333333333333333e1 * t29855 * t6050 - 0.2e1 / 0.9e1 * t29734 - 0.4e1 / 0.9e1 * t29738 - t3286 * t10300 * t5959 / 0.6e1 + t10323 * t10300 * t5963 / 0.3e1 - t3286 * t29866 * t1887 / 0.6e1;
25993 
25994   t29875 = t10311 * t10353;
25995   t29888 = t10311 * t10356;
25996   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25997     v4rho3tau[4] = -0.4e1 / 0.9e1 * t29818 - t29795 - t29807 - t29776 - 0.4e1 / 0.3e1 * t29814 - 0.2e1 / 0.9e1 * t29705 + t27761 - t29698 / 0.6e1 - 0.10995333333333333333e1 * t27737 - 0.2e1 / 0.9e1 * t29875 + t3286 * t29713 * t6154 / 0.9e1 - t3286 * t29717 * t1968 / 0.6e1 - 0.10995333333333333333e1 * t29679 * t6204 - t10323 * t9517 * t6094 / 0.3e1 - 0.2e1 / 0.3e1 * t29888 - t3286 * t9517 * t6158 / 0.6e1 - t3286 * t9521 * t1974 / 0.2e1 - 0.32986000000000000000e1 * t9525 * t6209 - t3286 * t3287 * t6166 / 0.2e1;
25998 
25999   t29901 = t10336 * t11115;
26000   t29904 = t2500 * t11130;
26001   t29906 = t1179 * t10348;
26002   t29910 = t10345 * t2490;
26003   t29912 = t10345 * t2496;
26004   t29914 = t10344 * t11118;
26005   t29915 = t29914 * t902;
26006   t29931 = t3547 * t1884 * t1313 * t896;
26007   t29934 = t29831 * t1988;
26008   t29936 = -t29901 / 0.2e1 - t29845 / 0.3e1 + 0.10738881612762167582e3 * t29904 + 0.10738881612762167582e3 * t29906 * t6132 - 0.21990666666666666667e1 * t29829 - 0.39583200000000000000e2 * t29910 + 0.76967333333333333333e1 * t29912 - 0.65972000000000000000e1 * t29915 - t3286 * t10300 * t6150 / 0.6e1 + t3286 * t29746 * t6139 / 0.9e1 + t10323 * t10300 * t6143 / 0.3e1 - t3286 * t29866 * t1931 / 0.3e1 + t29745 - 0.21990666666666666667e1 * t29931 * t6089 - 0.87962666666666666666e1 * t29934;
26009   t29941 = t29782 * t10348;
26010   t29945 = t3547 * t647 * t3815;
26011   t29948 = t10311 * t10364;
26012   t29950 = t10311 * t10368;
26013   t29952 = t210 * t11113;
26014   t29958 = t10311 * t10361;
26015   t29966 = -t29833 - 0.39583200000000000000e2 * t10349 * t6221 + 0.76967333333333333333e1 * t10349 * t6225 + 0.65972000000000000000e1 * t29941 * t6216 - 0.65972000000000000000e1 * t29945 * t1956 - 0.4e1 / 0.3e1 * t29948 - 0.2e1 / 0.3e1 * t29950 - t3286 * t29952 * t651 / 0.2e1 + t10323 * t10339 * t1939 - 0.2e1 / 0.9e1 * t29958 - t29840 - t3286 * t3554 * t6107 / 0.2e1 - 0.4e1 / 0.9e1 * t29837 - t29848 + 0.4e1 / 0.3e1 * t29852 - 0.2e1 / 0.9e1 * t29738;
26016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26017     v4rho3tau[5] = t29936 + t29966;
26018 
26019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26020     v4rho3tau[6] = -0.2e1 / 0.3e1 * t29818 - 0.2e1 / 0.3e1 * t29875 - 0.2e1 * t29888 + t27761 + t3286 * t29713 * t6253 / 0.9e1 - t3286 * t9517 * t7262 / 0.2e1 - t3286 * t3287 * t6240 / 0.2e1;
26021 
26022   t29990 = t3661 * t20212;
26023   t30003 = t3655 * t20217;
26024   t30006 = t3661 * t20079;
26025   t30011 = t3600 * t25558;
26026   t30014 = t3637 * t20339;
26027   t30017 = t3637 * t20217;
26028   t30020 = t3643 * t20079;
26029   t30027 = -0.36922958569603260000e6 * t20780 * t10623 + 0.35460425795093001000e6 * t27169 * t10626 + 0.19923890259677191200e6 * t20841 * t10626 - 0.18084995735328648000e6 * t27175 * t10631 - 0.36104322831562062000e5 * t20680 * t10631 + 0.9042497867664324e4 * t3143 * t29990 + 0.31446124607269008000e5 * t27195 * t10636 - 0.53773433280000000000e4 * t20744 * t10421 + 0.80660149920000000001e4 * t27180 * t10641 - 0.37865560352903145000e5 * t20865 * t10641 + 0.44901572276634084000e5 * t27186 * t10646 - 0.1291785409666332e4 * t3143 * t30003 + 0.531911639274372e3 * t2358 * t30006 + 0.12890403524392560e5 * t3040 * t10594 - 0.1002586940786088e4 * t8859 * t30011 + 0.429680117479752e3 * t3188 * t30014 + 0.429680117479752e3 * t3188 * t30017 - 0.214840058739876e3 * t2368 * t30020 - 0.21658176621196470667e5 * t26079 * t3638 - 0.17505486267693600000e5 * t9343 * t10599;
26030   t30030 = t3649 * t25558;
26031   t30033 = t3655 * t20339;
26032   t30036 = t3637 * t25558;
26033   t30039 = t3643 * t20339;
26034   t30042 = t3643 * t20217;
26035   t30045 = t3649 * t20079;
26036   t30067 = t3655 * t25558;
26037   t30070 = t3661 * t20339;
26038   t30073 = t3661 * t20217;
26039   t30076 = t3788 * t20079;
26040   t30083 = -0.2298854518472160e4 * t3202 * t30039 - 0.171389753836224e3 * t3169 * t3788 * t20217 + 0.70113990205728e2 * t3174 * t10955 * t20079 + 0.92867206720577893333e5 * t27376 * t3656 + 0.74861638120096800000e5 * t9215 * t10585 - 0.2887520327489448e4 * t8902 * t30067 + 0.1122924571801452e4 * t3150 * t30070 + 0.1122924571801452e4 * t3150 * t30073 - 0.472810346021664e3 * t3154 * t30076 + 0.18608285460780862000e5 * t20792 * t3656 + 0.14314939667002800e5 * t3021 * t10585;
26041   t30102 = t10484 * t2066;
26042   t30105 = t3600 * t6448;
26043   t30108 = t10547 * t2111;
26044   t30111 = t3637 * t6501;
26045   t30126 = t10553 * t2066;
26046   t30131 = -0.555069089128680e3 * t8909 * t30067 + 0.204499138100040e3 * t3158 * t30070 - 0.30077608223582640e5 * t9070 * t3734 + 0.11279103083843490e5 * t21503 * t3737 - 0.4296801174797520e4 * t3040 * t11045 - 0.2148400587398760e4 * t3040 * t11000 + 0.1611300440549070e4 * t6645 * t11049 + 0.805650220274535e3 * t6645 * t11003 - 0.143226705826584e3 * t3188 * t30102 - 0.47742235275528e2 * t3188 * t30105 + 0.53710014684969e2 * t2368 * t30108 + 0.17903338228323e2 * t2368 * t30111 + 0.37928553580002800000e5 * t2383 * t3744 - 0.15171421432001120000e5 * t25828 * t3747 - 0.27971938310305500e5 * t3005 * t11066 - 0.13985969155152750e5 * t3005 * t10975 + 0.9989977967966250e4 * t6597 * t11069 + 0.4994988983983125e4 * t6597 * t10978 - 0.559438766206110e3 * t3216 * t30126 + 0.17246093979770040000e5 * t12095 * t10952;
26047   t30142 = t3600 * t418;
26048   t30145 = t3637 * t418;
26049   t30150 = t10761 * t2081;
26050   t30153 = t10565 * t2047;
26051   t30162 = t7167 * t3588;
26052   t30172 = t10559 * t2047;
26053   t30177 = t10571 * t2081;
26054   t30184 = -0.81799655240016e2 * t2343 * t30150 + 0.449898103820088e3 * t9242 * t10571 * t2047 + 0.70113990205728e2 * t3174 * t30162 * t2081 - 0.45287900121447000000e4 * t9194 * t10765 - 0.16003998000e4 * t11936 * t10494 - 0.4801199400e3 * t6607 * t10436 + 0.6393585899498400e4 * t8847 * t30172 - 0.90575800242894000000e4 * t9194 * t10739 + 0.1118877532412220e4 * t3139 * t30177 + 0.3444761092443552e4 * t8854 * t30172 + 0.531911639274372e3 * t2358 * t30177;
26055   t30188 = t3643 * t25584;
26056   t30191 = t3655 * t25584;
26057   t30194 = t3637 * t25584;
26058   t30199 = t3649 * t25584;
26059   t30206 = t10553 * t4811;
26060   t30209 = t10559 * t4811;
26061   t30214 = t10565 * t4811;
26062   t30222 = t10417 * t4811;
26063   t30225 = t10484 * t4811;
26064   t30230 = t10547 * t4811;
26065   t30237 = t3649 * t20212;
26066   t30240 = -0.22988545184721600e5 * t8874 * t30188 - 0.38361515396990400e5 * t8847 * t30191 - 0.6721679160e3 * t9104 * t30194 + 0.3007760822358264e4 * t8859 * t30194 + 0.27168280672852800e5 * t8880 * t30199 + 0.36363519803397150e5 * t8921 * t30199 - 0.12982531368148140000e5 * t9078 * t10560 - 0.14385568273871400000e5 * t6773 * t30206 + 0.12227733032790690000e5 * t9155 * t30209 + 0.6496920736851258e4 * t6871 * t30209 - 0.5319116392743720e4 * t9162 * t30214 - 0.10122707335951980000e4 * t6979 * t30214 + 0.80631088736587200000e3 * t9125 * t10571 * t4811 - 0.5041259370e3 * t6885 * t30222 + 0.5761439280e3 * t9132 * t30225 - 0.24169506608236050000e4 * t6906 * t30225 + 0.23632406461386360000e4 * t9141 * t30230 + 0.12225726302783760e5 * t6959 * t30230 - 0.10971805656344400e5 * t9148 * t30206 + 0.11494272592360800e5 * t3202 * t30237;
26067   t30243 = t10553 * t8625;
26068   t30246 = t3583 * t25558;
26069   t30249 = t3600 * t20339;
26070   t30252 = t10565 * t8625;
26071   t30276 = t10484 * t8625;
26072   t30281 = t10571 * t8625;
26073   t30293 = -0.13139881127443840000e5 * t9311 * t10612 + 0.449898103820088e3 * t9242 * t3661 * t25558 - 0.171389753836224e3 * t3169 * t3788 * t20339 + 0.49612393800000000000e3 * t6992 * t10418 + 0.1600399800e3 * t3163 * t30276 + 0.56849815414509600000e4 * t9166 * t10566 + 0.2245849143602904e4 * t3150 * t30281 + 0.10838454319302120000e4 * t7085 * t10566 + 0.408998276200080e3 * t3158 * t30281 - 0.86603761976334399999e3 * t8966 * t10572 - 0.342779507672448e3 * t3169 * t10761 * t8625;
26074   t30302 = t6463 * t1251;
26075   t30304 = t6481 * t1251;
26076   t30306 = t25735 * t1254;
26077   t30308 = t2091 * t3589;
26078   t30316 = t313 * t10442;
26079   t30317 = t30316 * t1425;
26080   t30320 = t353 * t10442;
26081   t30321 = t30320 * t1425;
26082   t30326 = t803 * t10442;
26083   t30332 = t3600 * t25584;
26084   t30335 = t340 * t10442;
26085   t30336 = t30335 * t1425;
26086   t30339 = t3788 * t20212;
26087   t30342 = t3661 * t25584;
26088   t30348 = -0.2557434359799360e4 * t3222 * t30003 + 0.23188014880000000000e4 * t21612 * t3597 + 0.16003998000e4 * t2967 * t10414 - 0.120060e3 * t30302 - 0.60030e2 * t30304 + 0.51630740740740740742e3 * t30306 - 0.120060e3 * t30308 - 0.183815594610579000e6 * t21703 * t1288 + 0.33140789274074074074e4 * t26924 * t1273 - 0.12907298396270174815e6 * t26786 * t1285 - 0.313480161609840e3 * t2187 * t30317 + 0.84430418932440e2 * t3021 * t30321 + 0.15337435357503000000e2 * t2160 * t30321 - 0.11198762324526000000e2 * t3032 * t30326 * t1425 - 0.20668566554661312e5 * t8854 * t30191 + 0.3200799600e3 * t8914 * t30332 - 0.113981065558794e3 * t2203 * t30336 - 0.8983396574411616e4 * t3150 * t30339 + 0.3885483623900760e4 * t8909 * t30342 - 0.3599184830560704e4 * t9242 * t3788 * t25584;
26089   t30351 = t326 * t10442;
26090   t30352 = t30351 * t1425;
26091   t30361 = t289 * t10442;
26092   t30362 = t30361 * t1425;
26093   t30365 = t302 * t10442;
26094   t30366 = t30365 * t1425;
26095   t30376 = t10559 * t8625;
26096   t30385 = t10547 * t8625;
26097   t30400 = 0.4528046778808800e4 * t3208 * t30376 + 0.15184766511308700000e5 * t6970 * t10554 + 0.5594387662061100e4 * t3216 * t30376 - 0.58325681600000000001e3 * t9070 * t10544 - 0.2240559720e3 * t3180 * t30385 + 0.24706606755085740000e4 * t6897 * t10544 + 0.859360234959504e3 * t3188 * t30385 - 0.24507680774771040000e4 * t9091 * t10548 - 0.954844705510560e3 * t3194 * t30243 + 0.1118877532412220e4 * t3139 * t30006 - 0.10143470530543341600e6 * t20833 * t3650;
26098   t30415 = t3643 * t6448;
26099   t30418 = t10559 * t2111;
26100   t30421 = t3649 * t6501;
26101   t30438 = t10553 * t2111;
26102   t30441 = t3643 * t6501;
26103   t30444 = t3649 * t6448;
26104   t30447 = t10484 * t2111;
26105   t30450 = t3600 * t6501;
26106   t30453 = -0.77507124579979920e5 * t3013 * t10575 + 0.3444761092443552e4 * t8854 * t30030 - 0.1291785409666332e4 * t3143 * t30033 - 0.335663259723666000e6 * t8991 * t3754 + 0.119879735615595000e6 * t21486 * t3757 - 0.150934892626960e3 * t3208 * t30415 + 0.174155645338800e3 * t3212 * t30418 + 0.58051881779600e2 * t3212 * t30421 - 0.23596154880681413333e6 * t2391 * t3754 + 0.90754441848774666666e5 * t25865 * t3757 - 0.21130884967774400000e5 * t9364 * t11066 - 0.10565442483887200000e5 * t9364 * t10975 + 0.81272634491439999999e4 * t9282 * t11069 + 0.40636317245720000000e4 * t9282 * t10978 - 0.452804677880880e3 * t3208 * t30126 - 0.208986774406560e3 * t2348 * t30438 - 0.69662258135520e2 * t2348 * t30441 + 0.142079686655520e3 * t3222 * t30444 + 0.160039980e2 * t2363 * t30447 + 0.53346660e1 * t2363 * t30450;
26107   t30476 = my_piecewise3(t242, -0.440e3 / 0.27e2 * t2006, 0);
26108   t30510 = -0.26673330e1 * t754 * t290 * t30476 + 0.17782220e1 * t1087 * t1089 * t30476 - 0.5967779409441e1 * t762 * t303 * t30476 + 0.3978519606294e1 * t1099 * t1102 * t30476 + 0.17415564533880e2 * t771 * t314 * t30476 - 0.11610376355920e2 * t1112 * t1115 * t30476 - 0.13319970623955e2 * t780 * t327 * t30476 + 0.8879980415970e1 * t1125 * t1128 * t30476 + 0.4221520946622e1 * t789 * t341 * t30476 - 0.2814347297748e1 * t1138 * t1141 * t30476 - 0.486902709762e0 * t798 * t354 * t30476;
26109   t30530 = t10553 * t2047;
26110   t30533 = t10565 * t2081;
26111   t30540 = t10547 * t2081;
26112   t30543 = t10484 * t2047;
26113   t30546 = t10553 * t2081;
26114   t30553 = t10547 * t2047;
26115   t30560 = 0.324601806508e0 * t1151 * t1154 * t30476 - 0.18150888369754933333e5 * t8734 * t3681 - 0.23975947123119000e5 * t6841 * t3684 + 0.20631154499770300000e5 * t8977 * t3687 + 0.87725618666666666667e3 * t8974 * t3727 - 0.3759701027947830e4 * t6916 * t3671 + 0.37928553580002800000e4 * t8729 * t3675 + 0.19853743568623200e5 * t7125 * t3678 - 0.5433656134570560e4 * t8880 * t30530 - 0.1044933872032800e4 * t3212 * t30533 - 0.7272703960679430e4 * t8921 * t30530 - 0.1198797356155950e4 * t2353 * t30533 - 0.480119940e2 * t2363 * t30540 + 0.2240559720e3 * t9104 * t30543 + 0.640159920e2 * t3184 * t30546 - 0.1002586940786088e4 * t8859 * t30543 - 0.214840058739876e3 * t2368 * t30546 + 0.1074200293699380e4 * t8867 * t30553 + 0.103342832773306560e6 * t12065 * t10913 + 0.15957349178231160e5 * t6603 * t10910;
26116   t30561 = t10417 * t2047;
26117   t30566 = t3649 * t6509;
26118   t30569 = t3600 * t6398;
26119   t30572 = t3643 * t6398;
26120   t30575 = t3661 * t6509;
26121   t30582 = t3655 * t6509;
26122   t30585 = t10559 * t2081;
26123   t30593 = t10955 * t6509;
26124   t30596 = t3655 * t6398;
26125   t30606 = t3637 * t6398;
26126   t30613 = t3649 * t6398;
26127   t30616 = 0.5747136296180400e4 * t8874 * t30553 + 0.1044933872032800e4 * t2348 * t30585 + 0.1418431038064992e4 * t3154 * t30593 - 0.3330414534772080e4 * t26177 * t30596 + 0.245398965720048e3 * t2343 * t30593 + 0.2999320692133920e4 * t26184 * t3661 * t6398 + 0.358066764566460e3 * t2368 * t30566 + 0.2864534116531680e4 * t26683 * t30606 - 0.477422352755280e3 * t3198 * t30582 + 0.17241408888541200e5 * t26714 * t30606 + 0.29836734197659200e5 * t26592 * t30613;
26128   t30622 = t3788 * t6509;
26129   t30633 = t21234 * t1250;
26130   t30637 = t3583 * t6398;
26131   t30640 = t3643 * t6509;
26132   t30645 = t3655 * t20079;
26133   t30652 = t3643 * t25558;
26134   t30655 = t10428 * t25661;
26135   t30668 = 0.3734266200e3 * t25990 * t30569 - 0.1418431038064992e4 * t2358 * t30622 - 0.16362615189106872e5 * t26202 * t30596 + 0.31701530085012900000e5 * t9194 * t10910 - 0.2983673419765920e4 * t3139 * t30622 + 0.17223805462217760e5 * t26604 * t30613 - 0.233713300685760e3 * t3174 * t30633 * t6509 - 0.1600399800e3 * t26212 * t30637 + 0.640159920e2 * t2363 * t30640 + 0.17718337066630329000e5 * t20856 * t3632 - 0.1044933872032800e4 * t3212 * t30645 + 0.18479239245633570000e6 * t21551 * t3644 + 0.139859691551527500e6 * t3005 * t10655 - 0.7272703960679430e4 * t8921 * t30652 - 0.41957907465458250000e5 * t21032 * t30655 + 0.8962238880e3 * t26901 * t30655 - 0.38671210573177680000e4 * t21097 * t30655 - 0.66109018024100520e5 * t21489 * t3768 + 0.6458927048331660e4 * t3013 * t10772 + 0.71765856092574e2 * t3143 * t30444;
26136   t30669 = t30361 * t703;
26137   t30672 = t30365 * t728;
26138   t30675 = t30365 * t703;
26139   t30680 = t30335 * t703;
26140   t30683 = t10559 * t2066;
26141   t30686 = t30320 * t728;
26142   t30689 = t30320 * t703;
26143   t30692 = t30326 * t728;
26144   t30702 = t10565 * t2111;
26145   t30707 = t10417 * t2066;
26146   t30710 = t3583 * t6448;
26147   t30721 = t25611 * t3580;
26148   t30725 = 0.10224956905002e2 * t2343 * t30692 - 0.159839647487460e3 * t3139 * t30686 - 0.159839647487460e3 * t3139 * t30702 + 0.12917854096663320e5 * t3013 * t10736 - 0.400099950e2 * t3163 * t30707 - 0.133366650e2 * t3163 * t30710 + 0.426239059966560e3 * t3222 * t30680 + 0.21423719229528e2 * t3169 * t10571 * t2066 + 0.7141239743176e1 * t3169 * t3661 * t6448 + 0.18009000000000000000e2 * t30721 + 0.29874129600000000000e4 * t11923 * t10927;
26149   t30754 = t8634 * t30222;
26150   t30756 = t3637 * t20212;
26151   t30757 = t2962 * t30756;
26152   t30759 = t3637 * t20079;
26153   t30760 = t2971 * t30759;
26154   t30762 = t6414 * t10406;
26155   t30764 = t260 * t10442;
26156   t30766 = t2052 * t30764 * t1425;
26157   t30768 = t20358 * t3580;
26158   t30771 = t2941 * t3600 * t20212;
26159   t30773 = 0.85354656000000000000e3 * t9107 * t10930 - 0.181817599016985750e6 * t12048 * t11078 - 0.29969933903898750e5 * t6597 * t10922 - 0.4179735488131200e4 * t6657 * t10968 + 0.43476384116589120000e5 * t26895 * t30655 + 0.23252137373993976e5 * t21152 * t30655 - 0.22458491436029040e5 * t26883 * t30655 + 0.39419643382331520000e4 * t26898 * t30655 - 0.4801199400e3 * t21161 * t30655 + 0.52516458803080800000e4 * t26908 * t30655 + 0.27586254221665920e5 * t21019 * t30655 - 0.42944819001008400000e4 * t21006 * t30655 - 0.31696327451661600e5 * t26913 * t30655 + 0.18009000000000000000e3 * t30754 + 0.96048e2 * t30757 + 0.24012e2 * t30760 + 0.96048000000000000000e2 * t30762 + 0.90045000000000000000e1 * t30766 + 0.20943800000000000000e3 * t30768 - 0.24012e2 * t30771;
26160   t30774 = t8651 * t10418;
26161   t30776 = t25580 * t10421;
26162   t30778 = t2098 * t10402;
26163   t30781 = t2941 * t10417 * t8625;
26164   t30784 = t2941 * t3583 * t20339;
26165   t30787 = t2941 * t3583 * t20217;
26166   t30790 = t2057 * t3600 * t20079;
26167   t30792 = t25550 * t3597;
26168   t30794 = t8667 * t10414;
26169   t30796 = t2967 * t30362;
26170   t30799 = t8621 * t30332;
26171   t30801 = t2962 * t30276;
26172   t30803 = t8621 * t30246;
26173   t30805 = t2962 * t30249;
26174   t30807 = t3600 * t20217;
26175   t30808 = t2962 * t30807;
26176   t30810 = t20100 * t10409;
26177   t30813 = t6430 * t10405 * t4811;
26178   t30823 = -0.96048e2 * t30799 - 0.64032e2 * t30801 + 0.48024e2 * t30803 - 0.32016e2 * t30805 - 0.32016e2 * t30808 - 0.61230600000000000000e3 * t30810 - 0.10805400000000000000e3 * t30813 - 0.1120279860e3 * t3180 * t30017 + 0.640159920e2 * t3184 * t30020 + 0.800199900e2 * t3163 * t30807 - 0.480119940e2 * t2363 * t30759;
26179   t30838 = t1250 * t2047 * t1425;
26180   t30842 = t1250 * t2081 * t1425;
26181   t30859 = t1250 * t19;
26182   t30860 = t30859 * t6405;
26183   t30875 = -0.36971211182222222223e4 * t27372 * t3632 - 0.29874129600000000000e4 * t9099 * t10594 + 0.2240559720e3 * t9104 * t30011 - 0.1120279860e3 * t3180 * t30014 - 0.34482817777082400e5 * t27119 * t30838 + 0.4728103460216640e4 * t26827 * t30842 + 0.58282254358511400000e4 * t26327 * t30838 + 0.85889638002016800000e3 * t21072 * t30842 - 0.51738281939310120000e4 * t26424 * t30838 - 0.80631088736587200000e3 * t26429 * t30842 + 0.4801199400e3 * t26337 * t30838 + 0.1440359820e3 * t21058 * t30842 - 0.95104590255038700000e4 * t27056 * t30842 + 0.54859028281722000e5 * t26842 * t30860 - 0.6269603232196800e4 * t21041 * t30842 + 0.38035592941993920e5 * t27096 * t30838 + 0.7314537104229600e4 * t27068 * t30842 + 0.54545279705095725000e5 * t27076 * t30838 + 0.89909801711696250000e4 * t21048 * t30842 + 0.77895188208888840000e5 * t26740 * t10425;
26184   t30892 = t30859 * t6774;
26185   t30920 = -0.19335605286588840000e5 * t26994 * t30892 + 0.72508519824708150000e4 * t21078 * t30860 + 0.23632406461386360000e5 * t27005 * t30892 - 0.94529625845545440000e4 * t27008 * t30860 + 0.134482989330621360e6 * t27012 * t30892 - 0.48902905211135040e5 * t21075 * t30860 - 0.142633473532477200e6 * t26839 * t30892 - 0.101063211462130680e6 * t26866 * t30892 + 0.37233814749206040e5 * t26346 * t30860 - 0.20245414671903960000e5 * t27016 * t30892 + 0.70858951351663860000e4 * t21144 * t30860;
26186   t30935 = t3588 * t728;
26187   t30936 = t30935 * t1425;
26188   t30939 = t3588 * t703;
26189   t30940 = t30939 * t1425;
26190   t30958 = t1250 * t2111 * t1425;
26191   t30966 = t1250 * t2066 * t1425;
26192   t30971 = 0.28875203274894480e5 * t26824 * t30838 - 0.4787204753469348e4 * t21000 * t30842 - 0.31002849831991968e5 * t27035 * t30838 + 0.17738839522049184000e5 * t27023 * t30892 - 0.64504870989269760000e4 * t27026 * t30860 - 0.25206296850e4 * t27030 * t30892 - 0.2438179034743200e4 * t8800 * t30936 + 0.83915814930916500000e4 * t8804 * t30940 - 0.29969933903898750000e4 * t7012 * t30936 - 0.20139795583419960000e6 * t26846 * t30892 + 0.71927841369357000000e5 * t21061 * t30860 + 0.19564372852465104000e6 * t26852 * t30892 - 0.73366398196744140000e5 * t26855 * t30860 + 0.110447652526471386e6 * t26859 * t30892 - 0.38981524421107548e5 * t21084 * t30860 + 0.13586370036434100000e4 * t8813 * t30958 - 0.11755247227963621200e6 * t27059 * t10429 + 0.41489107863401016000e5 * t21051 * t10425 - 0.1937678114499498e4 * t8819 * t30966 + 0.2400599700e3 * t8755 * t30940;
26193   t31015 = 0.1604177959716360e4 * t8825 * t30966 - 0.591012932527080e3 * t8828 * t30958 + 0.21676908638604240000e5 * t26830 * t10429 - 0.75869180235114840000e4 * t21089 * t10425 + 0.30674870715006000000e3 * t8749 * t30966 - 0.10736204750252100000e3 * t7003 * t30958 - 0.19052827634793568000e5 * t26616 * t10429 + 0.69283009581067519999e4 * t26619 * t10425 - 0.24637277113957200000e3 * t8762 * t30966 + 0.89590098596208000000e2 * t8767 * t30958 + 0.24806196900000000000e4 * t26332 * t10429;
26194   t31059 = -0.99224787600000000000e3 * t21054 * t10425 + 0.1200299850e3 * t8755 * t30966 - 0.72460640194315200000e4 * t8810 * t30940 + 0.27172740072868200000e4 * t8813 * t30936 - 0.3875356228998996e4 * t8819 * t30940 + 0.1367772786705528e4 * t7006 * t30936 + 0.3208355919432720e4 * t8825 * t30940 - 0.1182025865054160e4 * t8828 * t30936 + 0.61349741430012000000e3 * t8749 * t30940 - 0.21472409500504200000e3 * t7003 * t30936 - 0.49274554227914400000e3 * t8762 * t30940 + 0.17918019719241600000e3 * t8767 * t30936 + 0.3169632745166160e4 * t8797 * t30966 - 0.1219089517371600e4 * t8800 * t30958 + 0.21258673115832180000e6 * t27071 * t10429 - 0.75923832556543500000e5 * t21044 * t10425 + 0.41957907465458250000e4 * t8804 * t30966 - 0.14984966951949375000e4 * t7012 * t30958 - 0.20772050189037024000e6 * t26737 * t10429 - 0.36230320097157600000e4 * t8810 * t30966;
26195   t31103 = 0.98030723099084160000e4 * t27049 * t10425 - 0.65645573503851000000e3 * t8784 * t30966 + 0.26258229401540400000e3 * t8787 * t30958 - 0.14023012562680176000e6 * t27114 * t10429 + 0.50992772955200640000e5 * t21037 * t10425 - 0.3448281777708240e4 * t8791 * t30966 + 0.683886393352764e3 * t7006 * t30958 + 0.10801464928756824000e6 * t26350 * t10429 - 0.39794870790156720000e5 * t26353 * t10425 + 0.1253920646439360e4 * t7009 * t30958 + 0.15002928327119824000e6 * t27088 * t10429;
26196   t31134 = t8576 * t30958;
26197   t31136 = t8563 * t30940;
26198   t31138 = t8563 * t30966;
26199   t31140 = t25513 * t30892;
26200   t31142 = t25471 * t10425;
26201   t31144 = t6359 * t30936;
26202   t31146 = -0.57703570488922399999e5 * t27091 * t10425 + 0.63698060505696400000e5 * t25894 * t3778 - 0.10694519731442400000e5 * t9215 * t10748 - 0.53472598657212000000e4 * t9215 * t10884 + 0.61407933066666666667e4 * t2376 * t3734 - 0.26317685600000000000e4 * t26487 * t3737 + 0.99580432000000000001e3 * t9099 * t11045 + 0.49790216000000000001e3 * t9099 * t11000 - 0.42677328000000000000e3 * t9107 * t11049 - 0.21338664000000000000e3 * t9107 * t11003 + 0.373426620e2 * t3180 * t30102 + 0.124475540e2 * t3180 * t30105 - 0.160039980e2 * t3184 * t30108 - 0.53346660e1 * t3184 * t30111 + 0.20010000000000000000e2 * t31134 + 0.36018000000000000000e2 * t31136 + 0.18009000000000000000e2 * t31138 - 0.21610800000000000000e3 * t31140 + 0.34684000000000000001e3 * t31142 - 0.18009000000000000000e2 * t31144;
26203   t31147 = t6359 * t30958;
26204   t31149 = t20206 * t30860;
26205   t31151 = t8573 * t30966;
26206   t31153 = t8573 * t30940;
26207   t31155 = t8576 * t30936;
26208   t31157 = t25530 * t30892;
26209   t31159 = t25498 * t30860;
26210   t31161 = t25474 * t30842;
26211   t31168 = t3655 * t20212;
26212   t31173 = t3643 * t20212;
26213   t31193 = -0.13584140336426400e5 * t3208 * t31168 - 0.16783162986183300e5 * t3216 * t31168 + 0.4481119440e3 * t3180 * t31173 - 0.1718720469919008e4 * t3188 * t31173 + 0.2387111763776400e4 * t3194 * t30237 - 0.1635993104800320e4 * t3158 * t30339 + 0.1542507784526016e4 * t3169 * t10955 * t20212 - 0.2400599700e3 * t3163 * t30756 + 0.17902040518595520e5 * t3222 * t29990 - 0.186479588735370e3 * t3216 * t30415 + 0.199799559359325e3 * t2353 * t30418;
26214   t31222 = t3643 * t418;
26215   t31225 = t30351 * t703;
26216   t31228 = t30335 * t728;
26217   t31233 = t3649 * t418;
26218   t31238 = t3655 * t418;
26219   t31243 = 0.66599853119775e2 * t2353 * t30421 + 0.33009847199632480000e6 * t2399 * t3765 - 0.12378692699862180000e6 * t26447 * t3768 + 0.24153546731438400000e5 * t9191 * t10736 + 0.12076773365719200000e5 * t9191 * t10772 + 0.426239059966560e3 * t3222 * t30683 - 0.15038804111791320e5 * t12121 * t10927 - 0.3222600881098140e4 * t6645 * t10930 + 0.19693672051155300000e5 * t12130 * t10937 + 0.43763715669234000000e4 * t9346 * t10940 + 0.18115160048578800000e6 * t12058 * t10913 + 0.1600399800e3 * t6607 * t10488 + 0.175548890501510400e6 * t26260 * t31222 - 0.559438766206110e3 * t3216 * t31225 + 0.199799559359325e3 * t2353 * t31228 + 0.24455466065581380000e6 * t20543 * t31222 - 0.23232692762302311000e6 * t26267 * t31233 - 0.129938414737025160e6 * t20560 * t31233 + 0.117020560640361840e6 * t26279 * t31238 + 0.23282226872689554000e5 * t20613 * t31238;
26220   t31247 = t3583 * t418;
26221   t31252 = t30316 * t703;
26222   t31255 = t30351 * t728;
26223   t31269 = t25478 * t10429;
26224   t31271 = t20225 * t10425;
26225   t31273 = t20211 * t30842;
26226   t31275 = t25486 * t10429;
26227   t31277 = t25490 * t30838;
26228   t31291 = 0.19209600000000000000e3 * t31269 - 0.96048000000000000000e2 * t31271 + 0.18009000000000000000e2 * t31273 - 0.69368000000000000001e3 * t31275 - 0.12006000000000000000e3 * t31277 + 0.20649990282445968889e5 * t26878 * t1279 + 0.18109568949798374444e6 * t26793 * t1291 - 0.16292037787773930e5 * t21628 * t1276 + 0.16878332155285605925e5 * t27352 * t1303 - 0.19120669412353740e5 * t21772 * t1300 + 0.11018169670683420e5 * t6926 * t3690;
26229   t31300 = t30316 * t728;
26230   t31314 = t2330 * t10442;
26231   t31318 = t3655 * t6501;
26232   t31323 = t3649 * t20339;
26233   t31326 = t3649 * t20217;
26234   t31341 = -0.19204797600e4 * t21649 * t1270 - 0.12678530980664640000e6 * t12150 * t11078 - 0.24381790347432000000e5 * t9282 * t10922 - 0.160039980e2 * t3184 * t31300 - 0.143226705826584e3 * t3188 * t30675 + 0.53710014684969e2 * t2368 * t31300 + 0.119355588188820e3 * t3194 * t31252 - 0.47742235275528e2 * t3198 * t31255 + 0.21423719229528e2 * t3169 * t30326 * t703 - 0.7790443356192e1 * t3174 * t31314 * t728 - 0.53279882495820e2 * t3139 * t31318 + 0.187308884401618140e6 * t9078 * t3765 + 0.2797193831030550e4 * t3216 * t31323 + 0.2797193831030550e4 * t3216 * t31326 - 0.1198797356155950e4 * t2353 * t30645 - 0.17962523051873182333e6 * t26013 * t3650 - 0.2298854518472160e4 * t3202 * t30042 + 0.1044933872032800e4 * t2348 * t30045 + 0.102836250259711920e6 * t21669 * t1294 + 0.71128880000000000001e2 * t3112 * t10798;
26235   t31369 = t10547 * t2066;
26236   t31372 = t3637 * t6448;
26237   t31381 = t3661 * t6501;
26238   t31388 = 0.22988545184721600e5 * t3047 * t11056 + 0.11494272592360800e5 * t3047 * t11018 - 0.8359470976262400e4 * t6657 * t11059 + 0.574713629618040e3 * t3202 * t31369 + 0.191571209872680e3 * t3202 * t31372 - 0.75987377039196e2 * t2358 * t30702 - 0.25329125679732e2 * t2358 * t31318 - 0.17289473565831880000e6 * t2408 * t3775 + 0.3408318968334e1 * t2343 * t31381 + 0.30659722630702293333e5 * t2416 * t3785 - 0.11148990047528106666e5 * t26561 * t3789;
26239   t31426 = t10565 * t2066;
26240   t31429 = t3655 * t6448;
26241   t31432 = t10571 * t2111;
26242   t31435 = 0.16424851409304800000e4 * t9311 * t10758 + 0.82124257046523999999e3 * t9311 * t10902 - 0.59726732397471999999e3 * t9314 * t10762 - 0.29863366198736000000e3 * t9314 * t10905 + 0.43763715669234000000e4 * t9343 * t11056 + 0.21881857834617000000e4 * t9343 * t11018 - 0.17505486267693600000e4 * t9346 * t11059 - 0.87527431338468000000e3 * t9346 * t10968 + 0.119355588188820e3 * t3194 * t31369 + 0.39785196062940e2 * t3194 * t31372 - 0.47742235275528e2 * t3198 * t30438 - 0.34764853477006800e5 * t9166 * t3775 + 0.12167698716952380e5 * t21279 * t3778 - 0.2044991381000400e4 * t3021 * t10748 - 0.1022495690500200e4 * t3021 * t10884 + 0.715746983350140e3 * t6623 * t10751 + 0.357873491675070e3 * t6623 * t10887 - 0.29214162585720e2 * t3158 * t31426 - 0.9738054195240e1 * t3158 * t31429 + 0.10224956905002e2 * t2343 * t31432;
26243   t31465 = t8670 * t10436;
26244   t31467 = t2971 * t30640;
26245   t31469 = t6367 * t10491;
26246   t31472 = t2057 * t10484 * t2081;
26247   t31474 = t25643 * t10494;
26248   t31477 = t2057 * t3583 * t6501;
26249   t31479 = t2071 * t3594;
26250   t31481 = t25673 * t3601;
26251   t31483 = -0.53472598657212e2 * t3150 * t31429 + 0.59101293252708e2 * t3154 * t31432 + 0.19700431084236e2 * t3154 * t31381 + 0.20010000000000000000e3 * t31465 - 0.32016e2 * t31467 - 0.60030e2 * t31469 - 0.12006e2 * t31472 + 0.40020000000000000000e3 * t31474 + 0.2001e1 * t31477 + 0.97826666666666666669e3 * t31479 - 0.48913333333333333334e3 * t31481;
26252   t31486 = t8667 * t10481;
26253   t31488 = t25711 * t31247;
26254   t31490 = t2971 * t30540;
26255   t31492 = t2098 * t10462;
26256   t31494 = t6367 * t10468;
26257   t31497 = t2941 * t30764 * t703;
26258   t31500 = t2057 * t30361 * t728;
26259   t31502 = t8667 * t10478;
26260   t31504 = t8670 * t10485;
26261   t31506 = t2962 * t30669;
26262   t31509 = t2971 * t30450;
26263   t31512 = t20242 * t3576 * t418;
26264   t31514 = t2971 * t30672;
26265   t31516 = t6470 * t3577;
26266   t31518 = t20253 * t3584;
26267   t31520 = t2098 * t10465;
26268   t31522 = t6367 * t10471;
26269   t31524 = t13166 * t10465;
26270   t31526 = t25626 * t3584;
26271   t31529 = t2941 * t10405 * t2066;
26272   t31532 = t2941 * t3576 * t6448;
26273   t31534 = -0.2668e1 * t31509 + 0.54027000000000000000e3 * t31512 - 0.8004e1 * t31514 - 0.240120e3 * t31516 + 0.120060e3 * t31518 - 0.60030e2 * t31520 + 0.30015e2 * t31522 - 0.12006e2 * t31524 + 0.12006e2 * t31526 - 0.12006e2 * t31529 - 0.4002e1 * t31532;
26274   t31537 = t2057 * t10417 * t2111;
26275   t31539 = t25633 * t30637;
26276   t31541 = t8621 * t30561;
26277   t31544 = t2057 * t3637 * t6509;
26278   t31546 = t8670 * t10488;
26279   t31548 = t2962 * t30707;
26280   t31550 = t2962 * t30710;
26281   t31552 = t2971 * t30447;
26282   t31554 = t8579 * t3589;
26283   t31556 = t724 * t10443;
26284   t31560 = t698 * t261 * t30476;
26285   t31562 = t2958 * t10448;
26286   t31565 = t1062 * t1064 * t30476;
26287   t31567 = t8582 * t3604;
26288   t31579 = t25665 * t30655;
26289   t31581 = t20195 * t30655;
26290   t31583 = -0.2001e1 * t31560 + 0.33350000000000000001e2 * t31562 + 0.1334e1 * t31565 + 0.24456666666666666668e3 * t31567 + 0.13083088094577585778e6 * t26052 * t3644 + 0.10565442483887200000e6 * t9364 * t10655 - 0.5433656134570560e4 * t8880 * t30652 + 0.2264023389404400e4 * t3208 * t31323 + 0.2264023389404400e4 * t3208 * t31326 + 0.16008000000000000000e3 * t31579 - 0.36018000000000000000e2 * t31581;
26291   t31601 = -0.180e3 * t30302 - 0.90e2 * t30304 + 0.20900e5 / 0.27e2 * t30306 - 0.180e3 * t30308 + 0.27e2 * t30721 + 0.270e3 * t30754 + 0.144e3 * t30757 + 0.36e2 * t30760 + 0.144e3 * t30762 + 0.27e2 / 0.2e1 * t30766 + 0.314e3 * t30768;
26292   t31614 = -0.36e2 * t30771 - 0.260e3 * t30774 + 0.2430e4 * t30776 + 0.180e3 * t30778 + 0.36e2 * t30781 + 0.18e2 * t30784 + 0.18e2 * t30787 - 0.18e2 * t30790 - 0.8990e4 / 0.9e1 * t30792 - 0.800e3 * t30794 - 0.15e2 * t30796 - 0.144e3 * t30799;
26293   t31627 = -0.96e2 * t30801 + 0.72e2 * t30803 - 0.48e2 * t30805 - 0.48e2 * t30808 - 0.918e3 * t30810 - 0.162e3 * t30813 + 0.30e2 * t31134 + 0.54e2 * t31136 + 0.27e2 * t31138 - 0.324e3 * t31140 + 0.520e3 * t31142;
26294   t31640 = -0.27e2 * t31144 - 0.27e2 / 0.2e1 * t31147 + 0.162e3 * t31149 - 0.60e2 * t31151 - 0.120e3 * t31153 + 0.60e2 * t31155 + 0.1080e4 * t31157 - 0.540e3 * t31159 - 0.90e2 * t31161 + 0.288e3 * t31269 - 0.144e3 * t31271 + 0.27e2 * t31273;
26295   t31654 = -0.1040e4 * t31275 - 0.180e3 * t31277 + 0.300e3 * t31465 - 0.48e2 * t31467 - 0.90e2 * t31469 - 0.18e2 * t31472 + 0.600e3 * t31474 + 0.3e1 * t31477 + 0.4400e4 / 0.3e1 * t31479 - 0.2200e4 / 0.3e1 * t31481 + 0.200e3 * t31486;
26296   t31667 = -0.1890e4 * t31488 + 0.36e2 * t31490 - 0.180e3 * t31492 + 0.90e2 * t31494 - 0.18e2 * t31497 + 0.9e1 * t31500 + 0.400e3 * t31502 - 0.200e3 * t31504 + 0.24e2 * t31506 - 0.4e1 * t31509 + 0.810e3 * t31512 - 0.12e2 * t31514;
26297   t31681 = -0.360e3 * t31516 + 0.180e3 * t31518 - 0.90e2 * t31520 + 0.45e2 * t31522 - 0.18e2 * t31524 + 0.18e2 * t31526 - 0.18e2 * t31529 - 0.6e1 * t31532 + 0.9e1 * t31537 + 0.48e2 * t31539 + 0.72e2 * t31541 + 0.18e2 * t31544;
26298   t31694 = -0.100e3 * t31546 + 0.24e2 * t31548 + 0.8e1 * t31550 - 0.12e2 * t31552 - 0.18e2 * t31554 - 0.45e2 * t31556 - 0.3e1 * t31560 + 0.50e2 * t31562 + 0.2e1 * t31565 + 0.1100e4 / 0.3e1 * t31567 + 0.240e3 * t31579 - 0.54e2 * t31581;
26299   t31697 = t31601 + t31614 + t31627 + t31640 + t31654 + t31667 + t31681 + t31694;
26300   t31701 = t10517 * t7229;
26301   t31704 = t3803 * t6520;
26302   t31711 = t10498 * t731;
26303   t31712 = t31711 * t360;
26304   t31715 = t3607 * t2114;
26305   t31716 = t31715 * t360;
26306   t31719 = t3607 * t2118;
26307   t31720 = t31719 * t360;
26308   t31723 = t1257 * t6514;
26309   t31724 = t31723 * t360;
26310   t31741 = t31697 * t360 * t616 * t881 - t27446 * t31704 - 0.12e2 * t27452 * t31704 - 0.36e2 * t27459 * t31704 - 0.24e2 * t27471 * t31704 + 0.18e2 * t9372 * t31701 + 0.18e2 * t9380 * t31701 + 0.3e1 * t9392 * t31701 - 0.6e1 * t3232 * t31712 - 0.3e1 * t3240 * t31712 - 0.6e1 * t3232 * t31716 - 0.3e1 * t3240 * t31716 + 0.18e2 * t9372 * t31720 + 0.18e2 * t9380 * t31720 + 0.3e1 * t9392 * t31720 - 0.2e1 * t3232 * t31724 - t3240 * t31724;
26311   t31742 = my_piecewise3(t278, 0.13936237559410133333e4 * t8745 * t3699 - 0.7201799100e3 * t7110 * t3724 + 0.379936885195980e3 * t2222 * t10783 - 0.28143472977480000000e3 * t3104 * t10786 - 0.51124784525010e2 * t2248 * t10789 + 0.37329207748419999999e2 * t3077 * t10792 - 0.2887520327489448e4 * t8902 * t30153 - 0.1066933200e3 * t3184 * t30566 - 0.2005173881572176e4 * t26689 * t30569 - 0.19923405826758720e5 * t26701 * t30572 + 0.2438179034743200e4 * t3212 * t30575 - 0.29090815842717720e5 * t26195 * t30572 + 0.238711176377640e3 * t3198 * t30045 - 0.12327897614715856000e6 * t21563 * t3638 - 0.91954180738886400e5 * t3047 * t10599 + 0.5747136296180400e4 * t8874 * t30036 + 0.1074200293699380e4 * t8867 * t30036 - 0.477422352755280e3 * t3194 * t30039 - 0.477422352755280e3 * t3194 * t30042 + 0.26586457269059655000e5 * t20584 * t30142 - 0.30722128399802268000e5 * t26253 * t30145 - 0.171160168238972640e6 * t20599 * t30145 - 0.472810346021664e3 * t3154 * t30150 - 0.555069089128680e3 * t8909 * t30153 + 0.26877029578862400000e4 * t9314 * t10956 - 0.96250677582981600000e5 * t12073 * t10919 - 0.15760344867388800000e5 * t9218 * t10945 - 0.19427418119503800e5 * t12087 * t10919 - 0.2862987933400560e4 * t6623 * t10945 + 0.10082518740e4 * t21081 * t30860 + 0.40330074960e4 * t26872 * t30892 - 0.17284317840e4 * t26875 * t30860 + 0.96678026432944200000e3 * t21069 * t30842 - 0.59081016153465900000e4 * t27108 * t30838 - 0.13129114700770200000e4 * t27111 * t30842 + 0.40330074960e4 * t20570 * t31247 - 0.57614392800e4 * t26242 * t30142 + 0.574713629618040e3 * t3202 * t31252 - 0.208986774406560e3 * t2348 * t31255 - 0.452804677880880e3 * t3208 * t31225 + 0.174155645338800e3 * t3212 * t31228 + 0.114942725923608000e6 * t12142 * t10937 + 0.20898677440656000e5 * t6657 * t10940 + 0.2797193831030550e4 * t2353 * t30575 - 0.2089867744065600e4 * t2348 * t30582 + 0.238711176377640e3 * t3198 * t30585 - 0.14492128038863040000e6 * t9191 * t10575 + 0.6393585899498400e4 * t8847 * t30030 - 0.2557434359799360e4 * t3222 * t30033 - 0.400099950e2 * t3163 * t30669 + 0.160039980e2 * t2363 * t30672 + 0.373426620e2 * t3180 * t30675 - 0.1600399800e3 * t8914 * t30561 + 0.39400862168472000000e4 * t9218 * t10751 + 0.19700431084236000000e4 * t9218 * t10887 - 0.160417795971636e3 * t3150 * t31426 - 0.480119940e2 * t6997 * t30958 - 0.40827977120000000001e4 * t26343 * t10429 - 0.268550073424845e3 * t2245 * t10801 + 0.21881857834617000000e3 * t3084 * t10804 + 0.1044933872032800e4 * t2262 * t10807 - 0.81272634491439999999e3 * t3091 * t10810 - 0.998997796796625e3 * t2276 * t10813 + 0.119122461411739200e6 * t21691 * t1282 - 0.95041550595800977777e5 * t25860 * t1297 - 0.15914078425176e2 * t3198 * t30441 + 0.218391179254855200e6 * t9091 * t3744 - 0.79414974274492800e5 * t21510 * t3747 + 0.25266501025753104000e6 * t21571 * t10646 - 0.26332333575226560000e6 * t27388 * t10623 + 0.17497704480000000000e4 * t27064 * t10425 - 0.1493706480e3 * t8771 * t30966 + 0.640159920e2 * t8774 * t30958 + 0.19765285404068592000e5 * t26658 * t10429 - 0.74119820265257220000e4 * t21066 * t10425 + 0.64452017621962800000e3 * t8778 * t30966 - 0.24169506608236050000e3 * t7000 * t30958 - 0.24507680774771040000e5 * t27046 * t10429 - 0.36008995500e4 * t8651 * t3594 + 0.14403598200e4 * t21492 * t3601 - 0.8001999000e3 * t2967 * t10478 - 0.4000999500e3 * t2967 * t10481 + 0.3200799600e3 * t6607 * t10485 - 0.65645573503851000000e2 * t3047 * t30317 + 0.11540714097784480000e5 * t8991 * t10554 + 0.240059970e2 * t2170 * t30362 - 0.213386640e2 * t3040 * t30366 + 0.80565022027453500000e2 * t2179 * t30366 + 0.243817903474320e3 * t3005 * t30352 + 0.29969933903898750000e3 * t2195 * t30352 - 0.22643950060723500000e3 * t3013 * t30336 + 0.20212642292426136e5 * t8902 * t30342 - 0.4296801174797520e4 * t8867 * t30188 - 0.81799655240016e2 * t2343 * t30076 - 0.16312034248109575111e5 * t27155 * t3662 + 0.800199900e2 * t3163 * t30249 - 0.5114868719598720e4 * t3222 * t30252 - 0.69148513105668360000e4 * t6862 * t10560 - 0.2583570819332664e4 * t3143 * t30252 + 0.204499138100040e3 * t3158 * t30073 - 0.12748193238800160000e5 * t6950 * t10548 - 0.4597709036944320e4 * t3202 * t30243 - 0.1600399800e3 * t8914 * t30246 + 0.59101293252708e2 * t3154 * t30692 - 0.29214162585720e2 * t3158 * t30689 - 0.4559242622351760e4 * t6603 * t10739 + 0.215297568277722e3 * t3143 * t30680 + 0.215297568277722e3 * t3143 * t30683 - 0.75987377039196e2 * t2358 * t30686 - 0.160417795971636e3 * t3150 * t30689 + 0.45116412335373960000e4 * t27040 * t30838 - 0.2560639680e3 * t26436 * t30842 - 0.54345480145736400000e5 * t27053 * t30838 - 0.8962238880e3 * t26433 * t30838 - 0.90997229293852000000e4 * t8984 * t3693 - 0.1738242673850340e4 * t6821 * t3696 - 0.2279621311175880e4 * t6603 * t10765 - 0.800199900e2 * t2233 * t10795 + 0.75479833535745000000e3 * t3098 * t10779 + 0.1280319840e3 * t8774 * t30936 + 0.12890403524392560000e4 * t8778 * t30940 - 0.48339013216472100000e3 * t7000 * t30936 - 0.13129114700770200000e4 * t8784 * t30940 + 0.52516458803080800000e3 * t8787 * t30936 - 0.6896563555416480e4 * t8791 * t30940 + 0.2507841292878720e4 * t7009 * t30936 + 0.6339265490332320e4 * t8797 * t30940 - 0.960239880e2 * t6997 * t30936 - 0.2987412960e3 * t8771 * t30940 + t31435 + 0.6003e1 * t31500 + 0.26680000000000000000e3 * t31502 + t31534 + 0.60030e2 * t31494 + t30875 - 0.12006e2 * t30790 - 0.17342000000000000001e3 * t30774 + t30131 + t30510 + 0.5336e1 * t31550 - 0.8004e1 * t31552 + 0.24012e2 * t31490 - 0.120060e3 * t31492 + t30725 + t30668 + 0.16208100000000000000e4 * t30776 + 0.120060e3 * t30778 + 0.16008e2 * t31506 - 0.66625888888888888890e3 * t30792 - 0.53360000000000000001e3 * t30794 + t30348 - 0.30015e2 * t31556 + t31291 + t30971 + 0.12006e2 * t31544 + 0.13340000000000000000e3 * t31486 - 0.12006e2 * t31554 + t30920 - 0.13340000000000000000e3 * t31504 + t31243 - 0.12006e2 * t31497 - 0.20157772184146800000e5 * t26234 * t3661 * t418 - 0.7790443356192e1 * t3174 * t10761 * t2111 - 0.2596814452064e1 * t3174 * t3788 * t6501 + t31103 + t30400 + 0.6003e1 * t31537 + 0.32016e2 * t31539 + 0.72036000000000000000e3 * t31157 + t31146 + 0.12006e2 * t30784 - 0.12606300000000000000e4 * t31488 + t31583 + t30616 + 0.24012e2 * t30781 + t30560 + t30773 + t31015 - 0.40020000000000000000e2 * t31151 + t30240 + t31341 - 0.66700000000000000000e2 * t31546 + 0.16008e2 * t31548 + t31059 - 0.36018000000000000000e3 * t31159 - 0.60030000000000000000e2 * t31161 + t31388 - 0.90045000000000000000e1 * t31147 + 0.10805400000000000000e3 * t31149 + t30083 - 0.80040000000000000000e2 * t31153 + 0.40020000000000000000e2 * t31155 + 0.48024e2 * t31541 - 0.10005000000000000000e2 * t30796 + t30823 + t30453 + t31193 + t31483 + t30293 + t30184 + 0.12006e2 * t30787 + t30027, t31741);
26312   t31744 = t3620 * t885;
26313   t31751 = t1263 * t2472;
26314   t31757 = t2000 * t2131;
26315   t31778 = t6316 * t739;
26316   t31786 = 0.1174e1 * t31742 + 0.24e2 * t3565 * t31744 * t742 - t277 * t31742 + 0.24e2 * t10375 * t10383 + 0.12e2 * t3565 * t31751 * t742 - 0.24e2 * t10375 * t10379 - 0.12e2 * t31757 * t3567 - 0.6e1 * t674 * t3621 * t2472 - 0.6e1 * t674 * t10526 * t885 - 0.4e1 * t3565 * t3566 * t6541 - 0.2e1 * t674 * t1264 * t7250 + 0.36e2 * t10371 * t10378 * t2001 - 0.36e2 * t10371 * t10382 * t2001 + 0.36e2 * t31778 * t10372 - 0.12e2 * t10375 * t10386 + 0.12e2 * t3565 * t10382 * t2134;
26317   t31789 = t10525 * t363;
26318   t31872 = 0.9e1 / 0.50e2 * t13210 * t6531 + 0.3e1 / 0.100e3 * t2127 * t31711 * t267 + 0.3e1 / 0.100e3 * t2127 * t31715 * t267 - 0.3e1 / 0.100e3 * t6534 * t31719 * t267 + t2127 * t31723 * t267 / 0.100e3 + t20412 * t1257 * t6520 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t10499 * t2984 - 0.9e1 / 0.100e3 * t3608 * t2128 - 0.9e1 / 0.100e3 * t3608 * t8686 + 0.9e1 / 0.50e2 * t3608 * t8690 - 0.9e1 / 0.100e3 * t1258 * t6531 + 0.3e1 / 0.20e2 * t1258 * t25810 - 0.3e1 / 0.100e3 * t1258 * t25814 - t1258 * t25780 / 0.10e2 - t735 * t31697 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t13228 * t6531 + t56 * t31697 * t267 / 0.100e3;
26319   t31883 = t20016 * t270;
26320   t31887 = -t674 * t6541 * t1310 - 0.12e2 * t3565 * t31789 * t742 + 0.36e2 * t10371 * t3566 * t742 * t2134 + 0.6e1 * t674 * t739 * t10525 * t363 - 0.6e1 * t674 * t3570 * t2472 + 0.6e1 * t2000 * t2001 * t3812 - 0.6e1 * t674 * t10389 * t885 - 0.3e1 * t674 * t742 * t11110 - 0.3e1 * t674 * t2134 * t3812 + 0.6e1 * t674 * t2131 * t3620 * t363 + 0.6e1 * t2000 * t3628 * t2134 + 0.2e1 * t674 * t6538 * t1263 * t363 - 0.12e2 * t674 * t10393 * t885 + 0.2e1 * t674 * t270 * t31872 * t363 - 0.12e2 * t3565 * t10378 * t2134 - 0.6e1 * t6316 * t6317 * t1310 - 0.48e2 * t31883 * t3566 * t6317;
26321   t31896 = t211 * t1313;
26322   t31908 = t1313 * t7278 * t5830;
26323   t31913 = t1313 * t19 * t38;
26324   t31933 = -0.3e1 / 0.2e1 * t29901 - 0.3e1 / 0.8e1 * t1179 * t1249 * (t31786 + t31887) * t377 - t3286 * t10300 * t7258 / 0.2e1 - 0.32302153261130400000e3 * t29692 * t31896 * t6260 - t29845 / 0.2e1 + 0.32216644838286502747e3 * t29904 + 0.24162483628714877061e3 * t11127 * t3815 * t1170 * t2502 * t2504 - 0.59374800000000000000e3 * t13598 * t31908 * t7283 + 0.16536775210765846035e1 * t11127 * t31913 * t7290 - 0.24162483628714877060e3 * t11127 * t11128 * t238 * t2504 - 0.32986000000000000000e1 * t29829 - 0.11874960000000000000e3 * t29910 + 0.23090200000000000000e2 * t29912 - 0.19791600000000000000e2 * t29915 - 0.3e1 / 0.2e1 * t3286 * t10339 * t1992 - t3286 * t3554 * t6265 / 0.2e1 + 0.23090200000000000000e2 * t10349 * t7315 + t29745;
26325   t31953 = t3547 * t1249 * t11113;
26326   t31970 = -0.26388800000000000000e2 * t29934 - 0.32986000000000000000e1 * t29855 * t7300 - 0.19791600000000000000e2 * t29945 * t1988 - 0.98958000000000000000e1 * t10349 * t7307 - 0.11874960000000000000e3 * t10349 * t7311 - 0.3e1 / 0.2e1 * t3286 * t29952 * t668 + t3286 * t29746 * t6248 / 0.9e1 - t3286 * t29866 * t1979 / 0.2e1 - 0.74218500000000000000e1 * t31953 * t902 - 0.89062200000000000000e2 * t11119 * t2490 + 0.32216644838286502747e3 * t29906 * t6285 - 0.4e1 * t29948 - 0.2e1 * t29950 - 0.2e1 / 0.3e1 * t29958 - 0.2e1 / 0.3e1 * t29837 - 0.19241833333333333333e2 * t3821 * t6292 + 0.20781180000000000000e3 * t3821 * t6300 + 0.17317650000000000000e2 * t11119 * t2496;
26327   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26328     v4rho3tau[7] = t31933 + t31970;
26329 
26330   t31972 = t11747 / 0.4e1;
26331   t31973 = 0.75507761339733990814e1 * t11749;
26332   t31991 = t397 * t4020;
26333   t31993 = t385 * t31991 * t392;
26334   t31996 = 0.25169253779911330271e1 * t18612 * t4042;
26335   t32038 = t16627 * t1035;
26336   t32039 = t11766 * t203;
26337   t32044 = t4811 * t4039;
26338   t32045 = t26 * t203;
26339   t32050 = t5764 * t4030;
26340   t32052 = t2879 * t1867;
26341   t32059 = 0.24226614945847800000e3 * t2866 * t1030 * t4027 * t7369 - 0.90849806046929250000e2 * t2866 * t624 * t11792 * t11796 - t1325 * t11742 * t1327 / 0.6e1 - t31993 / 0.3e1 - t31996 + 0.44531100000000000000e3 * t2866 * t24379 * t7415 - 0.12402581408074384526e1 * t1874 * t24384 * t7420 + 0.44531100000000000000e2 * t2866 * t2849 * t1860 * t19 * t2869 - 0.12081241814357438530e3 * t1874 * t2849 * t2879 * t26 * t1878 - 0.16699162500000000000e3 * t2866 * t18590 * t11768 + 0.46509680280278941972e0 * t1874 * t18601 * t11773 + 0.60406209071787192652e2 * t1874 * t11751 * t26 * t1878 + 0.11326164200960098622e2 * t1874 * t1849 * t4039 * t195 * t1878 + 0.80541612095716256868e2 * t1874 * t4020 * t1035 * t1876 * t1878 + 0.52880681250000000000e3 * t2866 * t5838 * t1035 * t7413 * t203 - 0.22265550000000000000e3 * t1340 * t32038 * t32039 * t391 + 0.62012907040371922630e0 * t5769 * t32044 * t32045 * t391 - 0.27831937500000000000e1 * t32050 - 0.90849806046929250000e2 * t636 * t32052 * t1860 * t18607 + 0.11132775000000000000e2 * t1855 * t11819;
26342   t32060 = t11772 * t19;
26343   t32077 = t24497 * t1038;
26344   t32093 = t16662 * t11804;
26345   t32096 = 0.92773125000000000000e0 * t5778 * t4030;
26346   t32107 = t8 * t1356 * t4021 / 0.12e2;
26347   t32109 = t8 * t398 * t11738;
26348   t32111 = t11303 * t1438;
26349   t32114 = t11322 * t1483;
26350   t32117 = t2653 * t7542;
26351   t32121 = 0.681663793666800e3 * t2641 * t11638;
26352   t32123 = 0.238582327783380e3 * t5232 * t11641;
26353   t32124 = t11297 * t1438;
26354   t32126 = 0.9738054195240e1 * t2813 * t32124;
26355   t32127 = t11372 * t1438;
26356   t32129 = 0.142079686655520e3 * t2791 * t32127;
26357   t32130 = t11297 * t1483;
26358   t32132 = 0.53279882495820e2 * t2795 * t32130;
26359   t32139 = t11293 * t1438;
26360   t32142 = t11303 * t1483;
26361   t32145 = t2642 * t7542;
26362   t32149 = 0.4305951365554440e4 * t2633 * t11581;
26363   t32151 = 0.1519747540783920e4 * t5246 * t11584;
26364   t32153 = 0.71765856092574e2 * t2799 * t32127;
26365   t32155 = 0.19908910799157333333e3 * t7902 * t11555;
26366   t32158 = 0.7141239743176e1 * t2819 * t11312 * t1438;
26367   t32159 = 0.788017243369440e3 * t11645 * t32111 - 0.315206897347776e3 * t4349 * t32114 + 0.78801724336944e2 * t4349 * t32117 - t32121 + t32123 - t32126 + t32129 - t32132 - 0.11472934697433240000e6 * t5648 * t11497 + 0.47241495812960400000e5 * t1546 * t11501 - 0.13497570232274400000e5 * t1546 * t11504 - 0.1811516004857880e4 * t11588 * t32139 + 0.745918354941480e3 * t4342 * t32142 - 0.213119529983280e3 * t4342 * t32145 + t32149 - t32151 + t32153 - t32155 + t32158;
26368   t32162 = 0.2596814452064e1 * t2823 * t11554 * t1483;
26369   t32163 = t11460 * t1015;
26370   t32164 = t32163 * t3912;
26371   t32181 = 0.2667333000e3 * t2570 * t11223;
26372   t32183 = 0.1066933200e3 * t5252 * t11227;
26373   t32184 = t11312 * t1483;
26374   t32186 = 0.3408318968334e1 * t1615 * t32184;
26375   t32199 = t1513 * t11217;
26376   t32201 = t1513 * t11220;
26377   t32203 = t11181 * t1438;
26378   t32204 = t11212 * t32203;
26379   t32206 = -t32162 - 0.99544553995786666667e4 * t32164 * t11560 + 0.38952216780960000000e4 * t12798 * t11564 - 0.86560481735466666667e3 * t12798 * t11568 - 0.119453464794944e3 * t11559 * t11322 * t1438 + 0.46742660137152e2 * t4316 * t11563 * t1483 - 0.10387257808256e2 * t4316 * t2824 * t7542 - t32181 + t32183 + t32186 + 0.22472183064548840000e5 * t11302 * t11542 - 0.85608316436376533333e4 * t7899 * t11545 + 0.21402079109094133334e4 * t7899 * t11548 + 0.293115431276724e3 * t7978 * t32111 - 0.111663021438752e3 * t2819 * t32114 + 0.27915755359688e2 * t2819 * t32117 + 0.37352000000000000000e3 * t32199 - 0.24901333333333333334e3 * t32201 - 0.26680e2 * t32204;
26380   t32208 = t11216 * t1483;
26381   t32209 = t4281 * t32208;
26382   t32211 = t12628 * t11189;
26383   t32213 = t12628 * t11192;
26384   t32215 = t1470 * t11189;
26385   t32217 = t1470 * t11192;
26386   t32220 = t2544 * t11171 * t1483;
26387   t32223 = t2544 * t2545 * t7542;
26388   t32225 = t11389 * t1453;
26389   t32226 = t2574 * t32225;
26390   t32227 = 0.8004e1 * t32226;
26391   t32229 = t1429 * t11226 * t1453;
26392   t32230 = 0.4002e1 * t32229;
26393   t32231 = t2531 * t68;
26394   t32232 = t32231 * t483;
26395   t32233 = t11181 * t1418;
26396   t32234 = t32232 * t32233;
26397   t32236 = t11343 * t1453;
26398   t32237 = t4281 * t32236;
26399   t32239 = t11185 * t1418;
26400   t32240 = t7592 * t32239;
26401   t32241 = 0.16008e2 * t32240;
26402   t32243 = 0.54749504697682666666e3 * t7899 * t11551;
26403   t32244 = 0.56286945954960e2 * t11299;
26404   t32245 = 0.10224956905002000000e2 * t11307;
26405   t32246 = 0.74658415496840000000e1 * t11314;
26406   t32247 = 0.160039980e2 * t11326;
26407   t32248 = 0.142257760e2 * t11332;
26408   t32249 = 0.53710014684969000000e2 * t11340;
26409   t32250 = 0.16008e2 * t32209 + 0.8004e1 * t32211 - 0.16008e2 * t32213 + 0.40020e2 * t32215 - 0.80040e2 * t32217 + 0.4002e1 * t32220 - 0.8004e1 * t32223 + t32227 - t32230 - 0.106720e3 * t32234 - 0.64032e2 * t32237 + t32241 + t32243 + t32244 + t32245 - t32246 + t32247 - t32248 + t32249;
26410   t32251 = 0.162545268982880e3 * t11349;
26411   t32252 = 0.19979955935932500000e3 * t11357;
26412   t32253 = 0.15095966707149000000e3 * t11374;
26413   t32254 = 0.75987377039196e2 * t11380;
26414   t32255 = 0.43763715669234000000e2 * t11391;
26415   t32256 = 0.208986774406560e3 * t11397;
26416   t32258 = 0.38469046992614933333e4 * t8195 * t11348;
26417   t32259 = t11303 * t7509;
26418   t32262 = t2653 * t22197;
26419   t32265 = t2642 * t22156;
26420   t32269 = 0.18949938471503200000e4 * t8266 * t11298;
26421   t32270 = t11312 * t7509;
26422   t32272 = 0.748616381200968e3 * t2805 * t32270;
26423   t32273 = t2634 * t22197;
26424   t32277 = 0.42493977462667200000e4 * t5561 * t11390;
26425   t32278 = t11347 * t7509;
26426   t32280 = 0.1532569678981440e4 * t2770 * t32278;
26427   t32281 = t22566 * t148;
26428   t32284 = t11353 * t7509;
26429   t32287 = t2626 * t22156;
26430   t32292 = t32251 + t32252 - t32253 - t32254 - t32255 - t32256 + t32258 + 0.26240974204202352e5 * t7965 * t32259 + 0.2915663800466928e4 * t2805 * t32262 - 0.7497421201200672e4 * t7965 * t32265 + t32269 + t32272 + 0.636563137007040e3 * t4326 * t32273 - t32277 - t32280 + 0.96172617481537333333e5 * t32281 * t11344 + 0.34831129067760000e5 * t7990 * t32284 - 0.13932451627104000e5 * t7990 * t32287 + 0.5805188177960000e4 * t2777 * t32273;
26431   t32295 = t2626 * t22197;
26432   t32299 = 0.81692269249236800000e3 * t8260 * t11390;
26433   t32301 = 0.318281568503520e3 * t2762 * t32278;
26434   t32307 = t26 * t3907 * t3909;
26435   t32308 = t32307 * t11320;
26436   t32319 = t11322 * t7509;
26437   t32322 = t2653 * t22156;
26438   t32325 = t2824 * t22197;
26439   t32329 = 0.36128181064340400000e3 * t5548 * t11298;
26440   t32331 = 0.136332758733360e3 * t2813 * t32270;
26441   t32332 = t22529 * t2651;
26442   t32342 = 0.28867920658778133333e3 * t8216 * t11313;
26443   t32343 = -0.1209469960313376e4 * t2762 * t32295 - t32299 - t32301 + 0.91028528592006720000e4 * t5622 * t11344 + 0.3501097253538720e4 * t11613 * t32284 + 0.54533103493344000001e4 * t32308 * t11323 + 0.2150162366308992e4 * t11559 * t11563 * t7509 - 0.477813859179776e3 * t11559 * t2824 * t22156 - 0.32072301805136208000e5 * t5492 * t11304 - 0.12608275893911040e5 * t11645 * t32319 + 0.3152068973477760e4 * t11645 * t32322 - 0.1260827589391104e4 * t4349 * t32325 + t32329 + t32331 - 0.12413205883274597333e5 * t32332 * t11304 - 0.4689846900427584e4 * t7978 * t32319 + 0.1172461725106896e4 * t7978 * t32322 - 0.446652085755008e3 * t2819 * t32325 - t32342;
26444   t32346 = 0.114259835890816e3 * t2819 * t11554 * t7509;
26445   t32347 = 0.60030000000000000000e1 * t11177;
26446   t32348 = 0.66700000000000000000e1 * t11187;
26447   t32349 = t3851 * t463;
26448   t32350 = t32349 * t1425;
26449   t32351 = t4938 * t32350;
26450   t32352 = 0.60030000000000000000e1 * t32351;
26451   t32353 = t2675 * t106;
26452   t32354 = t32353 * t954;
26453   t32355 = t3844 * t438;
26454   t32356 = t32355 * t1425;
26455   t32357 = t32354 * t32356;
26456   t32359 = t953 * t137;
26457   t32360 = t11179 * t32359;
26458   t32361 = t3844 * t463;
26459   t32362 = t32361 * t1425;
26460   t32363 = t32360 * t32362;
26461   t32365 = t922 * t2557;
26462   t32366 = t32365 * t1425;
26463   t32367 = t12619 * t32366;
26464   t32369 = t3851 * t438;
26465   t32370 = t32369 * t1425;
26466   t32371 = t7603 * t32370;
26467   t32372 = 0.26680000000000000000e2 * t32371;
26468   t32373 = t7608 * t32350;
26469   t32374 = 0.13340000000000000000e2 * t32373;
26470   t32375 = t17094 * t32362;
26471   t32377 = t7614 * t32366;
26472   t32379 = t22419 * t32356;
26473   t32381 = t22913 * t32362;
26474   t32383 = t7603 * t32366;
26475   t32385 = t7614 * t32370;
26476   t32386 = 0.12006000000000000000e2 * t32385;
26477   t32392 = 0.995804320e2 * t7692 * t32370;
26478   t32395 = -t32346 + t32347 - t32348 - t32352 + 0.18676000000000000000e3 * t32357 - 0.11205600000000000000e3 * t32363 + 0.74704000000000000000e2 * t32367 - t32372 + t32374 - 0.12006000000000000000e2 * t32375 + 0.24012000000000000000e2 * t32377 - 0.14007000000000000000e3 * t32379 + 0.93380000000000000000e2 * t32381 - 0.93380000000000000000e2 * t32383 + t32386 + 0.36363519803397150000e5 * t22176 * t32356 - 0.13985969155152750000e5 * t17905 * t32362 - t32392 + 0.38854836239007600000e4 * t22522 * t32356;
26479   t32419 = t2682 * t143;
26480   t32420 = t32419 * t967;
26481   t32423 = t966 * t150;
26482   t32424 = t11335 * t32423;
26483   t32430 = 0.42968011747975200000e3 * t7699 * t32370;
26484   t32432 = 0.16113004405490700000e3 * t5458 * t32350;
26485   t32439 = -0.14314939667002800000e4 * t17885 * t32362 + 0.40899827620008000000e3 * t7671 * t32366 + 0.3200799600e3 * t22501 * t32356 - 0.1600399800e3 * t17832 * t32362 + 0.1600399800e3 * t7686 * t32366 + 0.30077608223582640000e4 * t22472 * t32356 - 0.12890403524392560000e4 * t17844 * t32362 + 0.85936023495950400000e3 * t7699 * t32366 - 0.22988545184721600e5 * t22558 * t32356 + 0.9195418073888640e4 * t17858 * t32362 - 0.4597709036944320e4 * t7712 * t32366 + 0.8535465600e3 * t32420 * t32356 - 0.4267732800e3 * t32424 * t32362 + 0.2133866400e3 * t12773 * t32366 + t32430 - t32432 - 0.74835953794390140000e4 * t22484 * t32356 + 0.33260423908617840000e4 * t22934 * t32362 - 0.16630211954308920000e4 * t7705 * t32366;
26486   t32441 = 0.43763715669234000000e3 * t7705 * t32370;
26487   t32443 = 0.17505486267693600000e3 * t7708 * t32350;
26488   t32444 = t2689 * t963;
26489   t32445 = t32444 * t980;
26490   t32448 = t979 * t164;
26491   t32449 = t11393 * t32448;
26492   t32457 = 0.812726344914400e3 * t8281 * t32350;
26493   t32458 = t2734 * t976;
26494   t32459 = t32458 * t993;
26495   t32462 = t992 * t177;
26496   t32463 = t11351 * t32462;
26497   t32469 = 0.27971938310305500000e4 * t8285 * t32370;
26498   t32471 = 0.99899779679662500000e3 * t5449 * t32350;
26499   t32487 = 0.800199900e2 * t7686 * t32370;
26500   t32488 = -t32441 + t32443 + 0.45514264296003360000e4 * t32445 * t32356 - 0.20688301952728800000e4 * t32449 * t32362 + 0.82753207810915200000e3 * t12996 * t32366 + 0.55943876620611000000e4 * t8285 * t32366 - t32457 - 0.26007243037260800e5 * t32459 * t32356 + 0.11145961301683200e5 * t32463 * t32362 - 0.3715320433894400e4 * t12751 * t32366 + t32469 - t32471 - 0.70196245188242850000e5 * t22275 * t32356 + 0.28078498075297140000e5 * t22920 * t32362 - 0.93594993584323800000e4 * t8291 * t32366 - 0.20668566554661312e5 * t22281 * t32356 + 0.7750712457997992e4 * t17820 * t32362 - 0.2583570819332664e4 * t8298 * t32366 + 0.25968144520640000000e3 * t12739 * t32366 + t32487;
26501   t32493 = 0.320079960e2 * t5455 * t32350;
26502   t32501 = 0.2298854518472160e4 * t7712 * t32370;
26503   t32503 = 0.835947097626240e3 * t5461 * t32350;
26504   t32511 = 0.2113088496777440e4 * t7719 * t32370;
26505   t32517 = 0.1069451973144240e4 * t8304 * t32370;
26506   t32519 = 0.394008621684720e3 * t8307 * t32350;
26507   t32520 = t2669 * t1002;
26508   t32521 = t32520 * t1019;
26509   t32524 = t1018 * t1786;
26510   t32525 = t11301 * t32524;
26511   t32531 = 0.20449913810004000000e3 * t7671 * t32370;
26512   t32533 = 0.426773280e2 * t7695 * t32350;
26513   t32534 = -t32493 - 0.11096105280e4 * t22516 * t32356 + 0.5548052640e3 * t22929 * t32362 - 0.3698701760e3 * t7692 * t32366 - t32501 + t32503 + 0.48763580694864000e5 * t22571 * t32356 - 0.20318158622860000e5 * t22926 * t32362 + 0.8127263449144000e4 * t7719 * t32366 + t32511 - 0.14578319002334640e5 * t22942 * t32362 + 0.4165234000667040e4 * t8304 * t32366 + t32517 - t32519 - 0.17336379354127680e5 * t32521 * t32356 + 0.6934551741651072e4 * t32525 * t32362 - 0.1733637935412768e4 * t12766 * t32366 + t32531 + t32533;
26514   t32536 = 0.24153546731438400000e4 * t8291 * t32370;
26515   t32538 = 0.90575800242894000000e3 * t8294 * t32350;
26516   t32539 = t2661 * t157;
26517   t32540 = t32539 * t1006;
26518   t32543 = t1005 * t609;
26519   t32544 = t11376 * t32543;
26520   t32550 = 0.1291785409666332e4 * t8298 * t32370;
26521   t32552 = 0.455924262235176e3 * t5452 * t32350;
26522   t32556 = 0.71574698335014000000e2 * t5446 * t32350;
26523   t32564 = 0.16424851409304800000e3 * t7678 * t32370;
26524   t32566 = 0.59726732397472000000e2 * t7682 * t32350;
26525   t32567 = t11317 * t1015;
26526   t32568 = t32567 * t12738;
26527   t32571 = t11320 * t5119;
26528   t32572 = t11318 * t32571;
26529   t32575 = 0.8004e1 * t11205;
26530   t32576 = 0.4002e1 * t11208;
26531   t32577 = 0.10672e2 * t11224;
26532   t32578 = -t32536 + t32538 + 0.34418804092299720000e5 * t32540 * t32356 - 0.14172448743888120000e5 * t32544 * t32362 + 0.40492710696823200000e4 * t12759 * t32366 - t32550 + t32552 + 0.37487106006003360e5 * t22182 * t32356 - t32556 - 0.67416549193646520000e4 * t22488 * t32356 + 0.25682494930912960000e4 * t22937 * t32362 - 0.64206237327282400000e3 * t7678 * t32366 - t32564 + t32566 + 0.29863366198736000000e4 * t32568 * t32356 - 0.11685665034288000000e4 * t32572 * t32362 - t32575 + t32576 + t32577;
26533   t32580 = 0.5336e1 * t11228;
26534   t32593 = t11171 * t1438;
26535   t32596 = t11181 * t1483;
26536   t32599 = 0.533466600e2 * t11422;
26537   t32600 = 0.50319889023830000000e3 * t11426;
26538   t32601 = 0.253291256797320e3 * t11430;
26539   t32602 = 0.179033382283230e3 * t11432;
26540   t32603 = 0.14587905223078000000e3 * t11437;
26541   t32604 = 0.696622581355200e3 * t11441;
26542   t32605 = 0.54181756327626666666e3 * t11445;
26543   t32606 = 0.18762315318320000000e3 * t11447;
26544   t32607 = 0.34083189683340e2 * t11451;
26545   t32608 = 0.24886138498946666666e2 * t11455;
26546   t32609 = -t32580 - 0.185023029709560e3 * t7972 * t32139 + 0.68166379366680e2 * t2813 * t32142 - 0.19476108390480e2 * t2813 * t32145 - 0.10669332000e4 * t11170 * t11195 + 0.5334666000e3 * t2570 * t11198 - 0.5334666000e3 * t2570 * t11201 - 0.533466600e2 * t7940 * t32593 + 0.266733300e2 * t2742 * t32596 - t32599 + t32600 + t32601 - t32602 + t32603 + t32604 - t32605 - t32606 - t32607 + t32608;
26547   t32610 = 0.665998531197750e3 * t11474;
26548   t32611 = 0.47419253333333333334e2 * t11482;
26549   t32612 = t2552 * t7542;
26550   t32625 = t2575 * t7542;
26551   t32634 = t11216 * t1438;
26552   t32637 = t11343 * t1483;
26553   t32640 = t2618 * t7542;
26554   t32649 = t11343 * t1438;
26555   t32652 = t11353 * t1483;
26556   t32655 = -t32610 + t32611 - 0.266733300e2 * t2742 * t32612 - 0.10025869407860880e5 * t11328 * t11213 + 0.4296801174797520e4 * t2610 * t11217 - 0.2864534116531680e4 * t2610 * t11220 - 0.334195646928696e3 * t7952 * t32203 + 0.143226705826584e3 * t2756 * t32208 - 0.95484470551056e2 * t2756 * t32625 + 0.76628483949072000e5 * t11386 * t11519 - 0.30651393579628800e5 * t2617 * t11522 + 0.15325696789814400e5 * t2617 * t11525 + 0.1915712098726800e4 * t7983 * t32634 - 0.766284839490720e3 * t2770 * t32637 + 0.383142419745360e3 * t2770 * t32640 - 0.121211732677990500e6 * t11342 * t11530 + 0.46619897183842500e5 * t2625 * t11533 - 0.18647958873537000e5 * t2625 * t11536 - 0.2424234653559810e4 * t7948 * t32649 + 0.932397943676850e3 * t2785 * t32652;
26557   t32658 = t11216 * t1453;
26558   t32665 = t11293 * t1418;
26559   t32670 = t11322 * t1453;
26560   t32676 = t2544 * t11181 * t1453;
26561   t32678 = t11171 * t1418;
26562   t32679 = t23898 * t32678;
26563   t32681 = t2565 * t32658;
26564   t32683 = t11303 * t1453;
26565   t32686 = t11353 * t1418;
26566   t32690 = 0.27090878163813333333e4 * t7943 * t11539;
26567   t32691 = t11297 * t1453;
26568   t32693 = 0.348311290677600e3 * t2781 * t32691;
26569   t32694 = t3957 * t132;
26570   t32695 = t32694 * t509;
26571   t32700 = t11343 * t1418;
26572   t32703 = t11293 * t1453;
26573   t32706 = t11216 * t1418;
26574   t32709 = -0.800199900e2 * t2742 * t32658 - 0.2005173881572176e4 * t23156 * t32233 - 0.12951612079669200e5 * t11292 * t11497 - 0.3330414534772080e4 * t22905 * t32665 + 0.4771646555667600e4 * t2641 * t11501 - 0.545331034933440e3 * t2813 * t32670 - 0.1363327587333600e4 * t2641 * t11504 - 0.8004e1 * t32676 + 0.56028e2 * t32679 + 0.56028e2 * t32681 + 0.11561734501592940e5 * t2791 * t32683 + 0.17223805462217760e5 * t22884 * t32686 + t32690 - t32693 + 0.21130884967774400e5 * t32695 * t32686 + 0.4876358069486400e4 * t4334 * t32683 - 0.29090815842717720e5 * t22899 * t32700 - 0.5594387662061100e4 * t2785 * t32703 + 0.17241408888541200e5 * t23161 * t32706;
26575   t32710 = t11353 * t1453;
26576   t32717 = t11372 * t1453;
26577   t32719 = 0.79570392125880e2 * t2766 * t32717;
26578   t32720 = t3941 * t120;
26579   t32721 = t32720 * t501;
26580   t32724 = t11372 * t1418;
26581   t32726 = 0.1148253697481184e4 * t7931 * t32724;
26582   t32727 = t11312 * t1453;
26583   t32729 = 0.177303879758124e3 * t1625 * t32727;
26584   t32734 = t11226 * t1418;
26585   t32736 = 0.334195646928696e3 * t7952 * t32734;
26586   t32737 = t11347 * t1453;
26587   t32739 = 0.71613352913292e2 * t1635 * t32737;
26588   t32745 = 0.746853240e2 * t7996 * t32734;
26589   t32747 = 0.213386640e2 * t2752 * t32737;
26590   t32748 = t3926 * t107;
26591   t32749 = t32748 * t492;
26592   t32752 = t11347 * t1418;
26593   t32754 = 0.2424234653559810e4 * t7948 * t32752;
26594   t32756 = 0.399599118718650e3 * t1620 * t32691;
26595   t32759 = 0.3831424197453600e4 * t2770 * t32710 - 0.572906823306336e3 * t2756 * t32236 - 0.1600399800e3 * t22889 * t32678 + t32719 - 0.3501097253538720e4 * t32721 * t32700 + t32726 + t32729 - 0.31864040105102856e5 * t23141 * t32665 - 0.2133866400e3 * t4356 * t32710 - t32736 - t32739 + 0.5442614821410192e4 * t23136 * t32706 + 0.3014165955888108e4 * t2799 * t32683 + t32745 + t32747 - 0.5974825920e3 * t32749 * t32706 - t32754 - t32756 + 0.57808672507964700e5 * t22877 * t32686;
26596   t32761 = 0.20010e2 * t11230;
26597   t32762 = 0.22233333333333333334e2 * t11234;
26598   t32763 = t2575 * t22156;
26599   t32770 = t2557 * t2557;
26600   t32775 = 0.68770514999234333333e4 * t8099 * t3992;
26601   t32782 = 0.12642851193334266667e4 * t8128 * t3938;
26602   t32788 = 0.23049504368556120000e4 * t5589 * t11373;
26603   t32789 = t11297 * t7509;
26604   t32791 = 0.861190273110888e3 * t2799 * t32789;
26605   t32792 = t22191 * t175;
26606   t32795 = t2618 * t22156;
26607   t32801 = 0.82355355850285800000e3 * t5576 * t11331;
26608   t32802 = t11389 * t7509;
26609   t32804 = 0.286453411653168e3 * t2756 * t32802;
26610   t32805 = -t32761 + t32762 + 0.5548052640e3 * t7996 * t32763 - 0.11222991612908413333e6 * t1679 * t3886 + 0.38014434755555555556e4 * t1648 * t3920 + 0.462337720e2 * t2747 * t954 * t32770 + t32775 + 0.24021417267335106667e5 * t1655 * t3935 + 0.151183745039172e3 * t2761 * t967 * t32770 + t32782 - 0.14251941345213173333e5 * t5560 * t3944 - 0.1400438901415488e4 * t11613 * t32287 - t32788 - t32791 + 0.70114772344561840000e5 * t32792 * t11294 - 0.3414186240e3 * t11693 * t32795 + 0.1707093120e3 * t4356 * t32295 + t32801 + t32804;
26611   t32806 = t22479 * t135;
26612   t32809 = t11343 * t7509;
26613   t32814 = t2634 * t22156;
26614   t32817 = t2642 * t22197;
26615   t32823 = 0.19441893866666666667e3 * t8249 * t11331;
26616   t32825 = 0.746853240e2 * t2748 * t32802;
26617   t32831 = 0.50615888371029000000e4 * t5535 * t11348;
26618   t32836 = 0.7991982374373000e4 * t5073 * t3963;
26619   t32837 = t11372 * t7509;
26620   t32839 = 0.1864795887353700e4 * t2785 * t32837;
26621   t32840 = t22203 * t162;
26622   t32843 = t11293 * t7509;
26623   t32854 = -0.15521531157354992000e5 * t32806 * t11337 - 0.5442614821410192e4 * t7960 * t32809 + 0.2721307410705096e4 * t7960 * t32795 + 0.4593014789924736e4 * t7931 * t32814 - 0.1722380546221776e4 * t2799 * t32817 + 0.72256362128680800000e4 * t8011 * t11294 - t32823 - t32825 + 0.18137864400000000000e4 * t5614 * t11337 + 0.6828372480e3 * t11693 * t32809 + t32831 + 0.232207527118400e3 * t3958 * t3959 * t32770 - t32836 + t32839 - 0.13415282413753078000e6 * t32840 * t11354 - 0.49550290721112600e5 * t7922 * t32843 + 0.16516763573704200e5 * t7922 * t32814 - 0.6606705429481680e4 * t2791 * t32817 - 0.39184157426545404000e5 * t8004 * t11354 - 0.13779044369774208e5 * t7931 * t32843;
26624   t32860 = 0.1509348926269600e4 * t2777 * t32837;
26625   t32861 = t11216 * t7509;
26626   t32866 = t2618 * t22197;
26627   t32869 = t11181 * t7509;
26628   t32872 = t2552 * t22156;
26629   t32875 = t2575 * t22197;
26630   t32888 = t4869 * t11167;
26631   t32891 = t2544 * t2552 * t22197;
26632   t32893 = t22434 * t111;
26633   t32894 = t32893 * t11172;
26634   t32896 = t7592 * t32869;
26635   t32898 = t7592 * t32872;
26636   t32900 = t2565 * t32875;
26637   t32902 = t4823 * t11176;
26638   t32903 = 0.32016000000000000000e2 * t32902;
26639   t32904 = t32860 + 0.2005173881572176e4 * t7952 * t32861 - 0.1336782587714784e4 * t7952 * t32763 + 0.572906823306336e3 * t2756 * t32866 + 0.2133866400e3 * t7940 * t32869 - 0.2133866400e3 * t7940 * t32872 + 0.1066933200e3 * t2742 * t32875 + 0.65884284680228640000e4 * t8041 * t11182 + 0.2590322415933840e4 * t7972 * t32259 - 0.740092118838240e3 * t7972 * t32265 + 0.272665517466720e3 * t2813 * t32262 + 0.82687323000000000000e3 * t7518 * t11172 + 0.64032000000000000000e2 * t32888 + 0.16008e2 * t32891 - 0.40464666666666666667e3 * t32894 - 0.112056e3 * t32896 + 0.112056e3 * t32898 - 0.74704e2 * t32900 + t32903;
26640   t32906 = t2544 * t11185 * t7509;
26641   t32907 = 0.8004e1 * t32906;
26642   t32908 = t442 * t438;
26643   t32909 = t32908 * t444;
26644   t32910 = t32909 * t11167;
26645   t32936 = t32907 + 0.12006000000000000000e2 * t32910 - 0.50156825857574400001e5 * t5475 * t11354 - 0.19505432277945600e5 * t11659 * t32843 + 0.6501810759315200e4 * t11659 * t32814 - 0.2786490325420800e4 * t4334 * t32817 + 0.70862243719440600000e5 * t8055 * t11344 + 0.24242346535598100e5 * t7948 * t32284 - 0.9696938614239240e4 * t7948 * t32287 + 0.3729591774707400e4 * t2785 * t32273 - 0.46743375208933920000e5 * t8048 * t11337 - 0.15325696789814400e5 * t7983 * t32809 + 0.7662848394907200e4 * t7983 * t32795 - 0.3065139357962880e4 * t2770 * t32295 - t3891 - t3900 + t3906 - t3919 + t3925;
26646   t32942 = 0.1253233675982610e4 * t5115 * t3932;
26647   t32954 = 0.29241872888888888889e3 * t8094 * t3923;
26648   t32962 = -t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 - 0.213386640e2 * t3927 * t3928 * t32770 - t32942 + 0.550558785790140e3 * t2790 * t993 * t32770 + 0.62436294800539380e5 * t8233 * t3969 + 0.143531712185148e3 * t1803 * t165 * t32770 - 0.11588284492335600e5 * t8265 * t3972 + t32954 - 0.372959177470740e3 * t1795 * t151 * t32770 + 0.79466575947185777779e5 * t5534 * t3960 - 0.27858811333333333333e4 * t5575 * t3929;
26649   t32967 = 0.6617914522874400e4 * t5058 * t3947;
26650   t32968 = 0.116103763559200e3 * t11540;
26651   t32973 = t11353 * t1438;
26652   t32976 = t11293 * t1483;
26653   t32979 = t2634 * t7542;
26654   t32983 = 0.33193477333333333334e3 * t7776 * t11686;
26655   t32984 = t2626 * t7542;
26656   t32995 = t11554 * t1453;
26657   t32997 = 0.27266551746672e2 * t1615 * t32995;
26658   t32998 = t11303 * t1418;
26659   t33002 = 0.1811218711523520e4 * t7990 * t32752;
26660   t33009 = -0.63656313700704e2 * t3942 * t3943 * t32770 + t32967 + t32968 - 0.25835708193326640e5 * t2633 * t11663 + 0.8611902731108880e4 * t2633 * t11666 + 0.1148253697481184e4 * t7931 * t32973 - 0.430595136555444e3 * t2799 * t32976 + 0.143531712185148e3 * t2799 * t32979 + t32983 - 0.372959177470740e3 * t2785 * t32984 - 0.16254526898288000000e6 * t11394 * t11530 + 0.67727195409533333333e5 * t7766 * t11533 - 0.27090878163813333334e5 * t7766 * t11536 - 0.3483112906776000e4 * t7990 * t32649 - t32997 + 0.5862308625534480e4 * t22860 * t32998 - t33002 + 0.48594396674448800000e5 * t7855 * t11501 - 0.5831327600933856e4 * t2805 * t32670 - 0.13884113335556800000e5 * t7855 * t11504;
26661   t33012 = t11297 * t1418;
26662   t33014 = 0.962506775829816e3 * t7965 * t33012;
26663   t33017 = t11389 * t1418;
26664   t33019 = 0.1915712098726800e4 * t7983 * t33017;
26665   t33021 = 0.348311290677600e3 * t1641 * t32717;
26666   t33029 = 0.358066764566460e3 * t7960 * t33017;
26667   t33030 = t11563 * t1453;
26668   t33035 = 0.149966034606696e3 * t7978 * t11312 * t1418;
26669   t33036 = t5119 * t3851;
26670   t33039 = 0.23371330068576e2 * t2823 * t33036 * t1453;
26671   t33040 = t3908 * t171;
26672   t33041 = t33040 * t3912;
26673   t33046 = 0.157603448673888e3 * t2809 * t32995;
26674   t33047 = t3892 * t158;
26675   t33048 = t33047 * t527;
26676   t33054 = 0.185023029709560e3 * t7972 * t33012;
26677   t33055 = t4281 * t32866;
26678   t33057 = t7506 * t11186;
26679   t33058 = 0.57806666666666666668e2 * t33057;
26680   t33061 = -t33014 - 0.954844705510560e3 * t4326 * t32703 + t33019 + t33021 - 0.38314241974536000e5 * t23128 * t32700 - 0.8707782266940000e4 * t2777 * t32703 + 0.1511837450391720e4 * t2762 * t32710 + t33029 + 0.1004967192948768e4 * t2819 * t33030 + t33035 + t33039 - 0.2627976225488768e4 * t33041 * t11322 * t1418 - t33046 + 0.14972327624019360e5 * t33048 * t32998 + 0.2836862076129984e4 * t4349 * t33030 - t33054 + 0.64032e2 * t33055 - t33058 - 0.2774026320e3 * t2748 * t32866;
26681   t33063 = 0.43275104560493800000e4 * t8234 * t11373;
26682   t33065 = 0.1704956239866240e4 * t2791 * t32789;
26683   t33078 = 0.16537464600000000000e3 * t5602 * t11186;
26684   t33079 = t11226 * t7509;
26685   t33081 = 0.533466600e2 * t2742 * t33079;
26686   t33082 = t22511 * t124;
26687   t33087 = 0.14282479486352e2 * t11552;
26688   t33088 = 0.5193628904128e1 * t11556;
26689   t33089 = 0.266733300e2 * t11571;
26690   t33090 = 0.106693320e2 * t11573;
26691   t33091 = 0.284159373311040e3 * t11582;
26692   t33092 = 0.106559764991640e3 * t11585;
26693   t33093 = 0.143531712185148e3 * t11598;
26694   t33094 = 0.50658251359464e2 * t11600;
26695   t33095 = -t33063 - t33065 + 0.64788337114917120000e5 * t5484 * t11294 + 0.25361224068010320e5 * t11588 * t32259 - 0.7246064019431520e4 * t11588 * t32265 + 0.2983673419765920e4 * t4342 * t32262 + 0.186970640548608e3 * t4316 * t7936 * t22197 + t33078 + t33081 - 0.25274462026666666667e4 * t33082 * t11182 - 0.8322078960e3 * t7996 * t32861 + t33087 - t33088 - t33089 + t33090 + t33091 - t33092 + t33093 - t33094;
26696   t33097 = 0.79570392125880e2 * t11607;
26697   t33098 = 0.31828156850352e2 * t11610;
26698   t33099 = 0.383142419745360e3 * t11620;
26699   t33100 = 0.139324516271040e3 * t11622;
26700   t33101 = 0.301869785253920e3 * t11632;
26701   t33102 = 0.106945197314424e3 * t11639;
26702   t33103 = 0.39400862168472e2 * t11642;
26703   t33104 = 0.19476108390480e2 * t11654;
26704   t33105 = 0.6816637936668e1 * t11656;
26705   t33106 = 0.372959177470740e3 * t11669;
26706   t33107 = 0.133199706239550e3 * t11671;
26707   t33108 = 0.248951080e2 * t11687;
26708   t33109 = 0.106693320e2 * t11690;
26709   t33110 = 0.95484470551056e2 * t11700;
26710   t33111 = 0.35806676456646e2 * t11702;
26711   t33113 = 0.537100146849690e3 * t5273 * t11689;
26712   t33114 = t11226 * t1438;
26713   t33116 = 0.47742235275528e2 * t2756 * t33114;
26714   t33117 = t11389 * t1483;
26715   t33119 = 0.17903338228323e2 * t1635 * t33117;
26716   t33122 = t33097 - t33098 + t33099 - t33100 - t33101 - t33102 + t33103 - t33104 + t33105 - t33106 + t33107 + t33108 - t33109 - t33110 + t33111 + t33113 - t33116 + t33119 - 0.93594993584323800000e5 * t7820 * t11663;
26717   t33133 = t22296 * t501;
26718   t33134 = t11216 * t4811;
26719   t33137 = t11389 * t4811;
26720   t33139 = 0.78774688204621200000e3 * t8048 * t33137;
26721   t33140 = t974 * t576;
26722   t33141 = t33140 * t148;
26723   t33142 = t11343 * t4811;
26724   t33146 = 0.4075242100927920e4 * t5622 * t33137;
26725   t33147 = t22309 * t509;
26726   t33150 = t11347 * t4811;
26727   t33152 = 0.3657268552114800e4 * t8055 * t33150;
26728   t33153 = t988 * t585;
26729   t33154 = t33153 * t162;
26730   t33155 = t11353 * t4811;
26731   t33159 = 0.47951894246238000000e4 * t5475 * t33150;
26732   t33160 = t22235 * t518;
26733   t33165 = t11293 * t4811;
26734   t33168 = t11171 * t4811;
26735   t33171 = t11181 * t4811;
26736   t33178 = 0.31198331194774600000e5 * t7820 * t11666 + 0.4129190893426050e4 * t7922 * t32973 - 0.1651676357370420e4 * t2791 * t32976 + 0.550558785790140e3 * t2791 * t32979 + 0.68895221848871040e5 * t11359 * t11660 + 0.14967190758878028000e5 * t33133 * t33134 + t33139 - 0.86890868201460960000e4 * t33141 * t33142 + t33146 - 0.91431713802870000e5 * t33147 * t33142 - t33152 + 0.47370335532153600e5 * t33154 * t33155 - t33159 + 0.12635324133883713000e6 * t33160 * t33155 + 0.36815884175490462e5 * t17624 * t33155 - 0.67484715573013200000e4 * t17604 * t33165 - 0.8402098950e3 * t17595 * t33168 - 0.64452017621962800000e4 * t17582 * t33171 + 0.44827663110207120e5 * t17590 * t33134 - 0.67132651944733200000e5 * t17616 * t33142;
26737   t33203 = 0.19700431084236e2 * t2809 * t32184;
26738   t33215 = 0.70436283225914666666e4 * t7766 * t11631;
26739   t33216 = t11347 * t1438;
26740   t33218 = 0.150934892626960e3 * t2777 * t33216;
26741   t33222 = 0.2786490325420800e4 * t5279 * t11609;
26742   t33223 = t11389 * t1438;
26743   t33225 = 0.191571209872680e3 * t2770 * t33223;
26744   t33226 = -0.95484470551056e2 * t1751 * t127 * t32770 + 0.72797059751618400e5 * t8259 * t3981 + 0.383142419745360e3 * t1759 * t138 * t32770 - 0.111887753241222000e6 * t8194 * t3984 - 0.19476108390480e2 * t1781 * t178 * t32770 - 0.12002998500e4 * t7505 * t3975 - 0.266733300e2 * t1812 * t114 * t32770 - 0.10025869407860880e5 * t8248 * t3978 + t33203 + 0.57787931180425600000e5 * t5627 * t11542 - 0.23115172472170240000e5 * t1555 * t11545 + 0.57787931180425600000e4 * t1555 * t11548 + 0.1451297044490000e4 * t2777 * t32652 - 0.580518817796000e3 * t2777 * t32984 - t33215 - t33218 + 0.728915950116732e3 * t2805 * t32142 - t33222 + t33225;
26745   t33227 = t11347 * t1483;
26746   t33229 = 0.69662258135520e2 * t1641 * t33227;
26747   t33231 = 0.186479588735370e3 * t2785 * t33216;
26748   t33232 = t11372 * t1483;
26749   t33234 = 0.66599853119775e2 * t1620 * t33232;
26750   t33240 = 0.35648399104808000000e4 * t7855 * t11638;
26751   t33242 = 0.13133620722824000000e4 * t7746 * t11641;
26752   t33244 = 0.53472598657212e2 * t2805 * t32124;
26753   t33245 = t7534 * t3860;
26754   t33246 = 0.81522222222222222225e2 * t33245;
26755   t33247 = t1442 * t3848;
26756   t33250 = t2564 * t929 * t32770;
26757   t33252 = t1463 * t3852;
26758   t33253 = 0.40020e2 * t33252;
26759   t33254 = t7551 * t3852;
26760   t33255 = 0.4002e1 * t33254;
26761   t33259 = 0.14587905223078000000e4 * t7808 * t11606;
26762   t33261 = 0.58351620892312000000e3 * t7811 * t11609;
26763   t33263 = 0.39785196062940e2 * t2762 * t33223;
26764   t33265 = 0.15914078425176e2 * t2766 * t33227;
26765   t33268 = -t33229 - t33231 + t33234 + 0.23398748396080950000e6 * t11352 * t11660 - 0.208261700033352e3 * t2805 * t32145 - t33240 + t33242 - t33244 + t33246 + 0.57065555555555555556e3 * t33247 + 0.18676e2 * t33250 - t33253 - t33255 + 0.151183745039172e3 * t2762 * t32640 + t33259 - t33261 + t33263 - t33265 - 0.15171421432001120000e5 * t5514 * t11530;
26766   t33281 = 0.7662848394907200e4 * t2617 * t11606;
26767   t33283 = 0.14225776000000000000e3 * t7779 * t11689;
26768   t33285 = 0.124475540e2 * t2748 * t33114;
26769   t33287 = 0.53346660e1 * t2752 * t33117;
26770   t33301 = 0.1432267058265840e4 * t2610 * t11686;
26771   t33305 = 0.30332409764617333333e4 * t8104 * t3889;
26772   t33308 = 0.68961006509096000000e4 * t1530 * t11533 - 0.27584402603638400000e4 * t1530 * t11536 - 0.350109725353872e3 * t11613 * t32649 + 0.159140784251760e3 * t4326 * t32652 - 0.63656313700704e2 * t4326 * t32984 + t33281 - t33283 + t33285 - t33287 - 0.28451552000000000000e4 * t5505 * t11519 + 0.14225776000000000000e4 * t1522 * t11522 - 0.71128880000000000000e3 * t1522 * t11525 - 0.853546560e2 * t11693 * t32634 + 0.426773280e2 * t4356 * t32637 - 0.213386640e2 * t4356 * t32640 - t33301 + 0.21318859649762643333e6 * t1671 * t3966 - t33305 + 0.51527571969212826667e5 * t5547 * t3895;
26773   t33313 = 0.60502961232516444444e4 * t8123 * t3954;
26774   t33317 = t11226 * t4811;
26775   t33319 = 0.1920479760e3 * t8041 * t33317;
26776   t33320 = t961 * t119;
26777   t33321 = t33320 * t135;
26778   t33325 = 0.80565022027453500000e3 * t5614 * t33317;
26779   t33326 = t11372 * t4811;
26780   t33328 = 0.40759110109302300000e4 * t8004 * t33326;
26781   t33329 = t1000 * t594;
26782   t33330 = t33329 * t175;
26783   t33334 = 0.2165640245617086e4 * t5484 * t33326;
26784   t33335 = t22252 * t527;
26785   t33338 = t11297 * t4811;
26786   t33340 = 0.1773038797581240e4 * t8011 * t33338;
26787   t33341 = t1013 * t603;
26788   t33342 = t33341 * t2651;
26789   t33343 = t11303 * t4811;
26790   t33347 = 0.33742357786506600000e3 * t5492 * t33338;
26791   t33348 = t22265 * t3912;
26792   t33353 = 0.26877029578862400000e3 * t8019 * t11312 * t4811;
26793   t33354 = t168 * t1646;
26794   t33355 = t33354 * t3909;
26795   t33356 = t33355 * t14562;
26796   t33360 = t11185 * t4811;
26797   t33362 = 0.1680419790e3 * t5519 * t33360;
26798   t33363 = t22395 * t492;
26799   t33366 = t2565 * t33079;
26800   t33367 = 0.21344e2 * t33366;
26801   t33369 = t16937 * t11166 * t4811;
26802   t33371 = -0.580518817796000e3 * t2776 * t980 * t32770 - t33313 - 0.208261700033352e3 * t2804 * t1006 * t32770 + t33319 - 0.17604397800e4 * t33321 * t33134 - t33325 + t33328 - 0.60739066045234800000e5 * t33330 * t33165 + t33334 - 0.65602435510505880e5 * t33335 * t33165 - t33340 + 0.29905254385870248e5 * t33342 * t33343 - t33347 + 0.11557122718910832000e5 * t33348 * t33343 + t33353 - 0.50637881815248000000e4 * t33356 * t11322 * t4811 - t33362 + 0.24966236880e4 * t33363 * t33171 - t33367 - 0.72036000000000000000e2 * t33369;
26803   t33374 = t22422 * t483;
26804   t33375 = t33374 * t33168;
26805   t33378 = t4810 * t11175 * t4811;
26806   t33379 = 0.36018000000000000000e2 * t33378;
26807   t33380 = t551 * t170;
26808   t33381 = t33380 * t124;
26809   t33382 = t33381 * t33171;
26810   t33384 = t7518 * t33360;
26811   t33385 = 0.60030000000000000000e2 * t33384;
26812   t33386 = t5519 * t11182;
26813   t33388 = t11212 * t32861;
26814   t33390 = t11212 * t32763;
26815   t33396 = 0.2400599700e3 * t5108 * t3917;
26816   t33403 = 0.46454125198033777776e3 * t8118 * t3904;
26817   t33408 = 0.579414224616780e3 * t5033 * t3898;
26818   t33415 = 0.3672723223561140e4 * t5093 * t4001;
26819   t33416 = t5601 * t3857;
26820   t33419 = t3855 * t3856 * t32770;
26821   t33421 = 0.42021000000000000000e3 * t33375 - t33379 - 0.44822400000000000000e3 * t33382 + t33385 + 0.44822400000000000000e3 * t33386 + 0.160080e3 * t33388 - 0.106720e3 * t33390 - 0.10387257808256e2 * t3910 * t3913 * t32770 - t33396 + 0.19975273835154524444e5 * t1687 * t3901 + 0.27915755359688e2 * t2818 * t1019 * t32770 + t33403 + 0.78801724336944e2 * t3893 * t3894 * t32770 - t33408 - 0.10348137178077040000e6 * t5588 * t3998 - 0.213119529983280e3 * t3996 * t3997 * t32770 + t33415 - 0.66403555555555555556e3 * t33416 - 0.10672e2 * t33419;
26822   t33422 = t16866 * t3845;
26823   t33424 = t4853 * t3845;
26824   t33427 = t1417 * t85 * t32770;
26825   t33429 = t8017 * t3909;
26826   t33434 = t43 * t1438;
26827   t33435 = t33434 * t3845;
26828   t33438 = 0.160039980e2 * t1630 * t32225;
26829   t33441 = t4281 * t32625;
26830   t33443 = t7568 * t11223;
26831   t33444 = 0.88933333333333333335e2 * t33443;
26832   t33445 = t7571 * t11227;
26833   t33446 = 0.44466666666666666667e2 * t33445;
26834   t33447 = t11185 * t1438;
26835   t33448 = t2565 * t33447;
26836   t33449 = 0.5336e1 * t33448;
26837   t33450 = t11226 * t1483;
26838   t33451 = t2574 * t33450;
26839   t33452 = 0.2668e1 * t33451;
26840   t33453 = t23808 * t11195;
26841   t33455 = t7568 * t11198;
26842   t33457 = t7568 * t11201;
26843   t33459 = t7592 * t32593;
26844   t33461 = t2565 * t32596;
26845   t33463 = t2565 * t32612;
26846   t33465 = -0.40020e2 * t33422 - 0.80040e2 * t33424 - 0.8004e1 * t33427 - 0.88003156431057777779e4 * t33429 * t3914 - 0.15125740308129111111e6 * t1663 * t3950 - 0.4002e1 * t33435 - t33438 + 0.6935065800e3 * t23150 * t32233 - 0.10672e2 * t33441 + t33444 - t33446 + t33449 - t33452 + 0.46690000000000000000e3 * t33453 - 0.31126666666666666666e3 * t33455 + 0.31126666666666666666e3 * t33457 + 0.28014e2 * t33459 - 0.18676e2 * t33461 + 0.18676e2 * t33463;
26847   t33467 = t1470 * t11204;
26848   t33468 = 0.40020e2 * t33467;
26849   t33469 = t4908 * t11207;
26850   t33470 = 0.20010e2 * t33469;
26851   t33472 = t2544 * t11175 * t1438;
26852   t33473 = 0.4002e1 * t33472;
26853   t33475 = t1429 * t11185 * t1483;
26854   t33476 = 0.2001e1 * t33475;
26855   t33477 = t5657 * t11213;
26856   t33482 = 0.2131195299832800e4 * t7922 * t32724;
26857   t33484 = 0.372959177470740e3 * t2795 * t32727;
26858   t33485 = t3995 * t144;
26859   t33486 = t33485 * t518;
26860   t33496 = 0.533466600e2 * t7940 * t32239;
26861   t33498 = 0.25329125679732e2 * t1625 * t32130;
26862   t33504 = 0.133366650e2 * t2742 * t33447;
26863   t33506 = 0.53346660e1 * t1630 * t33450;
26864   t33511 = -t33468 + t33470 - t33473 + t33476 - 0.62253333333333333334e3 * t33477 + 0.2774026320e3 * t2748 * t32236 + t33482 + t33484 - 0.28984256077726080e5 * t33486 * t32665 - 0.5967346839531840e4 * t4342 * t32670 - 0.467426601371520e3 * t4316 * t17738 * t3844 * t1453 - t33496 - t33498 - 0.12495702002001120000e6 * t11377 * t11497 - 0.1874355300300168e4 * t7965 * t32139 - t33504 + t33506 + 0.36987017600000000000e4 * t11180 * t11213 - 0.18493508800000000000e4 * t7776 * t11217;
26865   t33521 = 0.80511822438128000000e4 * t7820 * t11581;
26866   t33523 = 0.30191933414298000000e4 * t7823 * t11584;
26867   t33535 = 0.58051881779600e2 * t2781 * t33232;
26868   t33549 = 0.9323979436768500e4 * t2625 * t11631;
26869   t33551 = 0.3329992655988750e4 * t5240 * t11539;
26870   t33552 = 0.12329005866666666667e4 * t7776 * t11220 + 0.1387013160e3 * t7996 * t32203 - 0.693506580e2 * t2748 * t32208 + 0.462337720e2 * t2748 * t32625 + t33521 - t33523 + 0.24945317931463380000e5 * t11336 * t11519 - 0.11086807969539280000e5 * t7808 * t11522 + 0.55434039847696400000e4 * t7808 * t11525 + 0.680326852676274e3 * t7960 * t32634 - 0.302367490078344e3 * t2762 * t32637 + t33535 + 0.86690810124202666667e5 * t5639 * t11660 - 0.37153204338944000000e5 * t1538 * t11663 + 0.12384401446314666667e5 * t1538 * t11666 + 0.1625452689828800e4 * t11659 * t32973 - 0.696622581355200e3 * t4334 * t32976 + 0.232207527118400e3 * t4334 * t32979 - t33549 + t33551;
26871   t33558 = t11713 * t1490;
26872   t33561 = t2836 * t7639;
26873   t33566 = t11722 * t1490;
26874   t33580 = 0.12e2 * t32226;
26875   t33581 = 0.6e1 * t32229;
26876   t33584 = 0.24e2 * t32240;
26877   t33585 = 0.9e1 * t11177;
26878   t33586 = 0.10e2 * t11187;
26879   t33587 = 0.9e1 * t32351;
26880   t33591 = t33580 - t33581 - 0.160e3 * t32234 - 0.96e2 * t32237 + t33584 + t33585 - t33586 - t33587 + 0.280e3 * t32357 - 0.168e3 * t32363 + 0.112e3 * t32367;
26881   t33593 = 0.40e2 * t32371;
26882   t33594 = 0.20e2 * t32373;
26883   t33600 = 0.18e2 * t32385;
26884   t33601 = 0.12e2 * t11205;
26885   t33602 = 0.6e1 * t11208;
26886   t33603 = 0.16e2 * t11224;
26887   t33604 = -t33593 + t33594 - 0.18e2 * t32375 + 0.36e2 * t32377 - 0.210e3 * t32379 + 0.140e3 * t32381 - 0.140e3 * t32383 + t33600 - t33601 + t33602 + t33603;
26888   t33605 = 0.8e1 * t11228;
26889   t33609 = 0.30e2 * t11230;
26890   t33610 = 0.100e3 / 0.3e1 * t11234;
26891   t33616 = -t33605 - 0.12e2 * t32676 + 0.84e2 * t32679 + 0.84e2 * t32681 - t33609 + t33610 + 0.96e2 * t32888 + 0.24e2 * t32891 - 0.1820e4 / 0.3e1 * t32894 - 0.168e3 * t32896 + 0.168e3 * t32898;
26892   t33620 = 0.48e2 * t32902;
26893   t33621 = 0.12e2 * t32906;
26894   t33624 = 0.260e3 / 0.3e1 * t33057;
26895   t33625 = 0.1100e4 / 0.9e1 * t33245;
26896   t33628 = -0.112e3 * t32900 + t33620 + t33621 + 0.18e2 * t32910 - t3854 + t3862 + 0.96e2 * t33055 - t33624 + t33625 + 0.7700e4 / 0.9e1 * t33247 + 0.28e2 * t33250;
26897   t33629 = 0.60e2 * t33252;
26898   t33630 = 0.6e1 * t33254;
26899   t33631 = 0.32e2 * t33366;
26900   t33634 = 0.54e2 * t33378;
26901   t33636 = 0.90e2 * t33384;
26902   t33640 = -t33629 - t33630 - t33631 - 0.108e3 * t33369 + 0.630e3 * t33375 - t33634 - 0.672e3 * t33382 + t33636 + 0.672e3 * t33386 + 0.240e3 * t33388 - 0.160e3 * t33390;
26903   t33649 = 0.400e3 / 0.3e1 * t33443;
26904   t33650 = 0.200e3 / 0.3e1 * t33445;
26905   t33651 = 0.8e1 * t33448;
26906   t33652 = 0.4e1 * t33451;
26907   t33653 = -0.8960e4 / 0.9e1 * t33416 - 0.16e2 * t33419 - 0.60e2 * t33422 - 0.120e3 * t33424 - 0.12e2 * t33427 - 0.6e1 * t33435 - 0.16e2 * t33441 + t33649 - t33650 + t33651 - t33652;
26908   t33660 = 0.60e2 * t33467;
26909   t33661 = 0.30e2 * t33469;
26910   t33662 = 0.6e1 * t33472;
26911   t33663 = 0.3e1 * t33475;
26912   t33665 = 0.700e3 * t33453 - 0.1400e4 / 0.3e1 * t33455 + 0.1400e4 / 0.3e1 * t33457 + 0.42e2 * t33459 - 0.28e2 * t33461 + 0.28e2 * t33463 - t33660 + t33661 - t33662 + t33663 - 0.2800e4 / 0.3e1 * t33477;
26913   t33668 = 0.560e3 * t32199 - 0.1120e4 / 0.3e1 * t32201 - 0.40e2 * t32204 + 0.24e2 * t32209 + 0.12e2 * t32211 - 0.24e2 * t32213 + 0.60e2 * t32215 - 0.120e3 * t32217 + 0.6e1 * t32220 - 0.12e2 * t32223 + t33591 + t33604 + t33616 + t33628 + t33640 + t33653 + t33665;
26914   t33672 = t11713 * t1486;
26915   t33677 = t2582 * t2582;
26916   t33682 = t2836 * t7620;
26917   t33689 = -0.4e1 * t1830 * t184 * t33677 * t616 + t184 * t33668 * t616 * t617 - 0.24e2 * t23950 * t33558 - 0.12e2 * t24086 * t33558 - 0.36e2 * t24093 * t33558 - 0.4e1 * t2835 * t33682 + 0.24e2 * t8315 * t33561 + 0.24e2 * t8323 * t33561 + 0.6e1 * t8315 * t33566 + 0.6e1 * t8315 * t33672 + 0.6e1 * t8323 * t33672;
26918   t33691 = t11244 * t184 * t466;
26919   t33694 = t11722 * t1486;
26920   t33713 = -0.2e1 * t1839 * t184 * t1841 * t33677 - t24084 * t33558 - 0.4e1 * t2835 * t33691 - 0.2e1 * t2835 * t33694 - 0.2e1 * t2843 * t33682 - 0.2e1 * t2843 * t33691 - t2843 * t33694 + 0.4e1 * t8335 * t33561 + 0.6e1 * t8323 * t33566 + t8335 * t33566 + t8335 * t33672;
26921   t33715 = my_piecewise3(t102, t32395 + t32534 + t33226 + t33421 + t32292 + t32439 + t32488 + t32854 + t32250 + t33178 + t32709 + t32759 + t32578 + t33095 + t33371 + t32609 + t33268 + t33552 + t33511 + t33061 + t32343 + t33308 + t32805 + t33122 + t33009 + t32904 + t32206 + t32655 + t33465 + t32159 + t32962 + t32936, t33689 + t33713);
26922   t33740 = t2597 * t2597;
26923   t33779 = 0.6e1 / 0.25e2 * t24187 * t7640 - t4970 * t3863 * t1490 * t91 / 0.100e3 + t1499 * t33677 * t91 / 0.50e2 + t1499 * t937 * t7620 / 0.50e2 - t4970 * t3867 * t1486 * t91 / 0.100e3 + t17136 * t3867 * t1490 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t3864 * t1500 - 0.3e1 / 0.100e3 * t3864 * t7629 + 0.3e1 / 0.50e2 * t3864 * t7633 - 0.3e1 / 0.50e2 * t56 * t33677 * t1492 - 0.3e1 / 0.25e2 * t934 * t7640;
26924   t33780 = t1492 * t7620;
26925   t33784 = t1490 * t87 * t91;
26926   t33788 = t89 * t1486 * t91;
26927   t33792 = t1498 * t1490 * t91;
26928   t33815 = -0.3e1 / 0.50e2 * t934 * t33780 + 0.3e1 / 0.20e2 * t3868 * t33784 + 0.3e1 / 0.50e2 * t3868 * t33788 - t3868 * t33792 / 0.10e2 + t1499 * t11244 * t466 * t91 / 0.50e2 + t1499 * t3863 * t1486 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t11245 * t2587 - t24184 * t7640 / 0.25e2 - 0.3e1 / 0.100e3 * t3868 * t1495 - t470 * t33668 * t91 / 0.100e3 + t56 * t33668 * t91 / 0.100e3;
26929   t33850 = 0.1174e1 * t33715 - 0.2e1 * t405 * t11276 * t621 + t405 * (0.19e2 / 0.162e3 * t37 * t39 * t1380 * t52 - 0.41e2 / 0.32e2 * t420 * t1385 * sigma[0] * t52 + 0.1323e4 / 0.3200e4 * t1391 * t1395 * t41 * t19 * t1397 - 0.78003e5 / 0.2048000e7 * t11155 * t7496 + 0.59049e5 / 0.10240000e8 * t16789 * t1392 / t961 * t52 + 0.4e1 * t33740 + 0.4e1 * t940 * t7651 + 0.2e1 * t1503 * t3877 + 0.4e1 * t474 * t11273 + 0.2e1 * t94 * (t33779 + t33815)) * t187 - 0.24e2 * t16741 * t3825 * t1370 - t405 * t3880 * t1846 - 0.2e1 * t405 * t477 * t11734 - t405 * t1506 * t4017 - 0.2e1 * t405 * t943 * t8338 - 0.4e1 * t405 * t2600 * t2846 - 0.12e2 * t4747 * t3883 * t1370 + 0.6e1 * t4747 * t3825 * t1506 - 0.12e2 * t4747 * t11139 * t477 - 0.4e1 * t1369 * t944 * t7654;
26930   t33851 = t2600 * t2600;
26931   t33891 = -0.2e1 * t1027 * t405 * t7654 - 0.4e1 * t11277 * t1369 * t477 + 0.4e1 * t11279 * t1369 * t477 + 0.8e1 * t11284 * t1369 * t477 + 0.8e1 * t11287 * t1369 * t477 + 0.2e1 * t1369 * t1370 * t4017 - 0.2e1 * t1369 * t1506 * t3881 + 0.4e1 * t1369 * t1506 * t3883 + 0.2e1 * t1369 * t1846 * t3824 - 0.4e1 * t1369 * t187 * t33851 + 0.8e1 * t1369 * t2600 * t2603 + 0.6e1 * t1370 * t3881 * t4747 - t101 * t33715 + 0.24e2 * t24117 * t7472;
26932   t33897 = -0.41747906250000000000e1 * t5758 * t4030 - 0.46386562500000000000e0 * t5758 * t4035 + 0.50338507559822660543e1 * t16649 * t11803 * t16650 + 0.10067701511964532109e2 * t32093 + t32096 + 0.57725500000000000000e1 * t2855 * t7355 - 0.55663875000000000000e1 * t1340 * t1862 * t4028 * t5877 - 0.11132775000000000000e2 * t5874 * t11784 + t32107 - t32109 / 0.4e1 - 0.3e1 / 0.8e1 * t8 * t18 * (t33850 + t33891) * t204;
26933   t33900 = t7346 * t2875;
26934   t33903 = 0.10308125000000000000e0 * t5778 * t4035;
26935   t33904 = t1364 * t11826;
26936   t33906 = t1364 * t11819;
26937   t33920 = 0.41232500000000000000e0 * t24501 * t1038;
26938   t33921 = t5764 * t4035;
26939   t33927 = t634 * t18 * t11737;
26940   t33931 = t634 * t398 * t4020;
26941   t33932 = t33931 * t644;
26942   t33939 = t5857 * t11778;
26943   t33945 = t7438 * t11758;
26944   t33947 = t5857 * t11763;
26945   t33956 = t7438 * t11769;
26946   t33958 = t5857 * t11774;
26947   t33960 = -0.49479000000000000000e1 * t33927 * t644 - 0.16493000000000000000e1 * t33932 + 0.54261293660325432299e0 * t1874 * t5846 * t4039 * t1876 * t203 + 0.20135403023929064217e2 * t33939 - 0.10067701511964532108e2 * t1874 * t4040 * t1876 * t1878 + 0.14843700000000000000e2 * t33945 - 0.40270806047858128434e2 * t33947 - 0.11132775000000000000e3 * t2866 * t11757 * t7429 + 0.60406209071787192651e2 * t1874 * t11761 * t1876 * t1878 - 0.55663875000000000000e2 * t33956 + 0.15503226760092980657e0 * t33958;
26948   t33962 = t5857 * t11753;
26949   t33964 = t11793 * t11794;
26950   t33968 = t190 * t14740;
26951   t33973 = t17 * t11737;
26952   t33979 = t7438 * t11797;
26953   t33996 = t634 * t1338 * t4020;
26954   t34003 = t5870 * t11789;
26955   t34017 = t5870 * t11784;
26956   t34023 = t24464 * t2859;
26957   t34025 = -0.65972000000000000000e1 * t33996 * t1343 + 0.14843700000000000000e2 * t1340 * t1862 * t11817 * t1341 - 0.41232500000000000000e0 * t34003 + 0.16493000000000000000e1 * t1340 * t640 * t11824 * t1341 + 0.49479000000000000000e1 * t24456 * t2859 + 0.24739500000000000000e1 * t7444 * t7460 - 0.18554625000000000000e1 * t5862 * t1862 * t4028 * t5863 - 0.37109250000000000000e1 * t34017 - 0.65972000000000000000e1 * t7444 * t7454 + 0.82465000000000000000e0 * t24460 * t7448 + 0.16493000000000000000e1 * t34023;
26958   t34032 = -0.3e1 / 0.4e1 * t11740 - t11744 - t31972 + t31973 + 0.22652328401920197244e2 * t11754 + 0.44531100000000000000e2 * t11759 - 0.12081241814357438530e3 * t11764 - 0.16699162500000000000e3 * t11770 + 0.46509680280278941972e0 * t11775 + 0.60406209071787192652e2 * t11779 + t10 * (-0.12369750000000000000e1 * t5874 * t11789 - 0.29687400000000000000e2 * t11808 * t1864 + 0.18554625000000000000e1 * t24486 * t1038 + 0.30203104535893596326e2 * t16640 * t11804 + 0.59374800000000000000e2 * t7444 * t7377 + 0.57725500000000000000e1 * t11808 * t1870 + 0.12369750000000000000e1 * t1855 * t11826 - 0.16108322419143251374e3 * t24515 * t7382 - 0.49479000000000000000e1 * t7350 * t2875 - t385 * t11742 * t1350 / 0.2e1 - 0.16655797775270362500e3 * t2866 * t11793 * t7369 + 0.80541612095716256869e2 * t5769 * t32060 * t5773 + 0.15101552267946798163e2 * t5769 * t11803 * t16667 - 0.12113307472923900000e3 * t16710 * t33964 * t16713 - t385 * t33973 * t392 + t33960 + t33903 + 0.41232500000000000000e0 * t33904 - t33920 - 0.30924375000000000000e0 * t33921 - 0.16493000000000000000e1 * t33900 + t33897 + 0.75507761339733990814e1 * t33962 + t32059 + 0.12369750000000000000e1 * t32077 + 0.37109250000000000000e1 * t33906 - 0.38964712500000000000e3 * t636 * t16556 * t1380 * t18607 - 0.14431375000000000000e1 * t636 * t640 * t32052 * t203 + 0.24647459318104087313e3 * t1874 * t33968 * t27 * t18607 - 0.20616250000000000000e0 * t5862 * t640 * t4033 * t5863 - 0.61848750000000000000e0 * t1340 * t640 * t4033 * t5877 - 0.12988237500000000000e2 * t636 * t1862 * t4027 * t1375 * t203 + t34025 - 0.30283268682309750000e2 * t33979) + 0.49479000000000000000e1 * t11781 - 0.11132775000000000000e2 * t11785;
26959   t34035 = 0.27831937500000000000e1 * t11800;
26960   t34042 = 0.30924375000000000000e0 * t11822;
26961   t34044 = 0.12369750000000000000e1 * t11829;
26962   t34046 = -0.12369750000000000000e1 * t11790 - 0.90849806046929250000e2 * t11798 - t34035 + 0.30203104535893596326e2 * t11805 - 0.49479000000000000000e1 * t11809 + 0.37109250000000000000e1 * t11811 - 0.83495812500000000000e1 * t11813 - 0.92773125000000000000e0 * t11815 + 0.11132775000000000000e2 * t11820 - t34042 + 0.12369750000000000000e1 * t11827 + t34044 - 0.49479000000000000000e1 * t11831;
26963   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26964     v4rho2sigma2[0] = t34032 + t34046;
26965 
26966   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26967     v4rho2sigma2[1] = 0.0e0;
26968 
26969   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26970     v4rho2sigma2[2] = 0.0e0;
26971 
26972   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26973     v4rho2sigma2[3] = 0.0e0;
26974 
26975   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26976     v4rho2sigma2[4] = 0.0e0;
26977 
26978   t34047 = t11841 / 0.4e1;
26979   t34049 = 0.12369750000000000000e1 * t11845;
26980   t34051 = 0.27831937500000000000e1 * t11851;
26981   t34053 = 0.30924375000000000000e0 * t11857;
26982   t34055 = 0.75507761339733990814e1 * t11864;
26983   t34060 = t6070 * t11848;
26984   t34065 = t397 * t4242;
26985   t34067 = t648 * t34065 * t651;
26986   t34071 = t8 * t1900 * t4243 / 0.12e2;
26987   t34079 = t6070 * t11854;
26988   t34083 = t24874 * t2895;
26989   t34088 = t19269 * t11861;
26990   t34095 = 0.10308125000000000000e0 * t6027 * t4257;
26991   t34097 = 0.92773125000000000000e0 * t6027 * t4252;
26992   t34105 = 0.41232500000000000000e0 * t24898 * t1173;
26993   t34110 = 0.25169253779911330271e1 * t19572 * t4264;
26994   t34111 = -0.18554625000000000000e1 * t6047 * t2488 * t4250 * t6048 - 0.37109250000000000000e1 * t34060 - t1885 * t11836 * t1887 / 0.6e1 - t34067 / 0.3e1 + t34071 - t648 * t11836 * t1896 / 0.2e1 - 0.20616250000000000000e0 * t6047 * t898 * t4255 * t6048 - 0.41232500000000000000e0 * t34079 + 0.82465000000000000000e0 * t24870 * t8366 + 0.16493000000000000000e1 * t34083 + 0.50338507559822660543e1 * t19272 * t11860 * t19273 + 0.10067701511964532109e2 * t34088 - 0.61848750000000000000e0 * t1953 * t898 * t4255 * t6053 + t34095 + t34097 - 0.55663875000000000000e1 * t1953 * t2488 * t4250 * t6053 + 0.24739500000000000000e1 * t8450 * t8372 - t34105 + 0.15101552267946798163e2 * t6127 * t11860 * t19296 - t34110;
26995   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
26996     v4rho2sigma2[5] = -t11838 - t34047 + 0.49479000000000000000e1 * t11843 + t34049 - 0.11132775000000000000e2 * t11849 - t34051 - 0.12369750000000000000e1 * t11855 - t34053 + 0.30203104535893596326e2 * t11862 + t34055 + t10 * t34111;
26997 
26998   t34113 = -t11870 - t11741 - t11745 - t31972 + t31973 + t11755 + t11760 - t11765 - t11771 + t11776 + t11780 + t11872 - t11876 - t11880 + t11782;
26999   t34115 = t385 * t31991 * t663;
27000   t34143 = -t34115 / 0.6e1 - t1325 * t11742 * t1906 / 0.6e1 - t31993 / 0.6e1 - t31996 - 0.13915968750000000000e1 * t32050 + 0.61848750000000000000e0 * t32077 + 0.50338507559822660543e1 * t32093 + t32096 - 0.18554625000000000000e1 * t18766 * t24 * t4027 * t29 * t203 * t5980 + 0.82465000000000000000e0 * t24803 * t8400 - 0.20616250000000000000e0 * t5977 * t193 * t2879 * t8399 - t385 * t33973 * t663 / 0.2e1 - t385 * t1922 * t4020 * t1924 / 0.2e1;
27001   t34157 = t32107 - t32109 / 0.8e1 - 0.82465000000000000000e0 * t33900 + t33903 + 0.20616250000000000000e0 * t33904 + 0.18554625000000000000e1 * t33906 - t33920 - 0.15462187500000000000e0 * t33921 - 0.82465000000000000000e0 * t33932 - 0.60566537364619500001e2 * t16710 * t33964 * t18936 + 0.10067701511964532108e2 * t33939 + 0.74218500000000000000e1 * t33945 - 0.20135403023929064217e2 * t33947 - 0.27831937500000000000e2 * t33956;
27002   t34170 = t5870 * t11878;
27003   t34190 = t5870 * t11874;
27004   t34192 = 0.77516133800464903287e-1 * t33958 + 0.37753880669866995407e1 * t33962 - 0.15141634341154875000e2 * t33979 - 0.61848750000000000000e0 * t5874 * t11878 - 0.55663875000000000000e1 * t5874 * t11874 - 0.32986000000000000000e1 * t33996 * t1918 + 0.24739500000000000000e1 * t24456 * t2906 - 0.20616250000000000000e0 * t34170 + 0.82465000000000000000e0 * t1340 * t640 * t11824 * t1916 - 0.61848750000000000000e0 * t6039 * t640 * t4033 * t6040 + 0.74218500000000000000e1 * t1340 * t1862 * t11817 * t1916 - 0.55663875000000000000e1 * t6039 * t1862 * t4028 * t6040 + 0.24739500000000000000e1 * t24757 * t8420 - 0.18554625000000000000e1 * t34190;
27005   t34193 = t24464 * t2906;
27006   t34221 = t16662 * t11881;
27007   t34225 = 0.82465000000000000000e0 * t34193 - 0.32986000000000000000e1 * t7444 * t8413 + 0.50338507559822660543e1 * t16649 * t11803 * t18866 - 0.20616250000000000000e0 * t34003 + 0.29687400000000000000e2 * t7444 * t8409 - 0.80541612095716256868e2 * t24515 * t8416 - 0.11132775000000000000e3 * t1340 * t32038 * t32039 * t662 + 0.31006453520185961315e0 * t5769 * t32044 * t32045 * t662 + 0.40270806047858128434e2 * t5769 * t32060 * t6030 + 0.15101552267946798163e2 * t16640 * t11881 + 0.15101552267946798163e2 * t18811 * t11803 * t18812 + 0.50338507559822660543e1 * t34221 - 0.18554625000000000000e1 * t34017 + 0.82465000000000000000e0 * t34023;
27008   t34229 = -t11786 - t11791 - t11799 + t11883 - t34035 + t11806 - t11810 + t11812 - t11814 - t11816 + t11821 - t34042 + t11828 + t34044 - t11832 + t10 * (t34143 + t34157 + t34192 + t34225);
27009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27010     v4rho2sigma2[6] = t34113 + t34229;
27011 
27012   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27013     v4rho2sigma2[7] = 0.0e0;
27014 
27015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27016     v4rho2sigma2[8] = 0.0e0;
27017 
27018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27019     v4rho2sigma2[9] = 0.0e0;
27020 
27021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27022     v4rho2sigma2[10] = 0.0e0;
27023 
27024   t34236 = t648 * t34065 * t668;
27025   t34250 = t6193 * t12520;
27026   t34252 = -t34067 / 0.6e1 - t1885 * t11836 * t1931 / 0.6e1 + t34071 + 0.50338507559822660543e1 * t34088 + t34095 + t34097 - t34105 - t34236 / 0.6e1 + 0.82465000000000000000e0 * t25227 * t8460 - 0.18554625000000000000e1 * t19776 * t24 * t4249 * t217 * t376 * t6087 - t34110 - 0.20616250000000000000e0 * t6084 * t193 * t3274 * t8459 + 0.10067701511964532109e2 * t34250;
27027   t34253 = t6193 * t12525;
27028   t34255 = t8480 * t12511;
27029   t34257 = t6193 * t12516;
27030   t34259 = t8480 * t12500;
27031   t34261 = t6193 * t12505;
27032   t34263 = t12540 * t12541;
27033   t34267 = t17 * t12493;
27034   t34276 = t8 * t655 * t12494;
27035   t34278 = t24874 * t3256;
27036   t34280 = t6070 * t12533;
27037   t34292 = 0.37753880669866995407e1 * t34253 - 0.27831937500000000000e2 * t34255 + 0.77516133800464903287e-1 * t34257 + 0.74218500000000000000e1 * t34259 - 0.20135403023929064217e2 * t34261 - 0.60566537364619500000e2 * t19710 * t34263 * t19713 - t648 * t34267 * t651 / 0.2e1 + t648 * t1922 * t4242 * t1939 / 0.2e1 - t34276 / 0.8e1 + 0.82465000000000000000e0 * t34278 - 0.18554625000000000000e1 * t34280 - 0.24739500000000000000e1 * t25136 * t8467 + 0.74218500000000000000e1 * t1953 * t2488 * t12556 * t1954 + 0.55663875000000000000e1 * t6213 * t2488 * t4250 * t6214;
27038   t34304 = t6070 * t12529;
27039   t34311 = t634 * t1951 * t4242;
27040   t34327 = 0.82465000000000000000e0 * t1953 * t898 * t12549 * t1954 - 0.32986000000000000000e1 * t8450 * t8484 + 0.61848750000000000000e0 * t6213 * t898 * t4255 * t6214 - 0.20616250000000000000e0 * t34304 - 0.61848750000000000000e0 * t6199 * t11854 - 0.55663875000000000000e1 * t6199 * t11848 - 0.32986000000000000000e1 * t34311 * t1956 + 0.24739500000000000000e1 * t25151 * t2895 + 0.50338507559822660543e1 * t19272 * t11860 * t19635 + 0.82465000000000000000e0 * t34083 - 0.18554625000000000000e1 * t34060 - 0.20616250000000000000e0 * t34079 - 0.15101552267946798163e2 * t19726 * t11860 * t19727 + 0.29687400000000000000e2 * t8450 * t8477;
27041   t34330 = t1960 * t12551;
27042   t34332 = t8454 * t3270;
27043   t34334 = t12514 * t19;
27044   t34340 = t19744 * t1170;
27045   t34341 = t12508 * t376;
27046   t34346 = t4811 * t4261;
27047   t34347 = t214 * t376;
27048   t34353 = t634 * t655 * t4242;
27049   t34354 = t34353 * t902;
27050   t34356 = t25192 * t1173;
27051   t34358 = t19269 * t12561;
27052   t34360 = t1960 * t12558;
27053   t34362 = t6124 * t4257;
27054   t34364 = t6124 * t4252;
27055   t34366 = t8480 * t12544;
27056   t34368 = -0.80541612095716256868e2 * t25160 * t8491 + 0.20616250000000000000e0 * t34330 - 0.82465000000000000000e0 * t34332 + 0.40270806047858128435e2 * t6127 * t34334 * t6131 + 0.15101552267946798163e2 * t19741 * t11861 - 0.11132775000000000000e3 * t1953 * t34340 * t34341 * t650 + 0.31006453520185961315e0 * t6127 * t34346 * t34347 * t650 - 0.82465000000000000000e0 * t34354 + 0.61848750000000000000e0 * t34356 + 0.50338507559822660543e1 * t34358 + 0.18554625000000000000e1 * t34360 - 0.15462187500000000000e0 * t34362 - 0.13915968750000000000e1 * t34364 - 0.15141634341154875000e2 * t34366;
27057   t34372 = -t11888 - t11839 - t34047 + t10 * (t34252 + t34292 + t34327 + t34368) - t12497 + t34055 + t12502 - t12507 - t12513 + t12518 + t12522 + t12527 - t12531 - t12535 + t12538;
27058   t34373 = -t11856 + t11844 - t11850 - t12546 - t12548 + t12553 - t12555 + t12560 + t12563 - t12567 + t12569 - t12571 + t34049 - t34051 - t34053 + t11863;
27059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27060     v4rho2sigma2[11] = t34372 + t34373;
27061 
27062   t34415 = 0.50338507559822660543e1 * t16649 * t11803 * t19288 - 0.61848750000000000000e0 * t1340 * t640 * t4033 * t6207 - 0.55663875000000000000e1 * t1340 * t1862 * t4028 * t6207 + 0.24739500000000000000e1 * t7444 * t8513 - t1325 * t11742 * t1968 / 0.6e1 - t34115 / 0.3e1 - 0.41232500000000000000e0 * t34170 - 0.37109250000000000000e1 * t34190 + 0.16493000000000000000e1 * t34193 + 0.10067701511964532109e2 * t34221 + t32107 + t32096 + 0.15101552267946798163e2 * t5769 * t11803 * t19292 - t385 * t11742 * t1974 / 0.2e1 - t31996 - 0.20616250000000000000e0 * t5862 * t640 * t4033 * t6202 - 0.18554625000000000000e1 * t5862 * t1862 * t4028 * t6202 + 0.82465000000000000000e0 * t24460 * t8508 - t33920 + t33903;
27063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27064     v4rho2sigma2[12] = -t11869 - t31972 + 0.49479000000000000000e1 * t11871 + t34044 - 0.11132775000000000000e2 * t11875 - t34035 - 0.12369750000000000000e1 * t11879 - t34042 + 0.30203104535893596326e2 * t11882 + t31973 + t10 * t34415;
27065 
27066   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27067     v4rho2sigma2[13] = 0.0e0;
27068 
27069   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27070     v4rho2sigma2[14] = 0.0e0;
27071 
27072   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27073     v4rho2sigma2[15] = 0.0e0;
27074 
27075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27076     v4rho2sigma2[16] = 0.0e0;
27077 
27078   t34463 = t34071 + 0.54261293660325432299e0 * t2500 * t7288 * t4261 * t2502 * t376 - t648 * t34267 * t668 - t648 * t11836 * t1992 / 0.2e1 + t34095 + t34097 - t34105 - t34236 / 0.3e1 - t1885 * t11836 * t1979 / 0.6e1 - 0.11132775000000000000e2 * t6199 * t12533 + 0.82465000000000000000e0 * t24870 * t9455 - 0.18554625000000000000e1 * t6047 * t2488 * t4250 * t7298 - 0.20616250000000000000e0 * t6047 * t898 * t4255 * t7298 + 0.16493000000000000000e1 * t1953 * t898 * t12549 * t1986 + 0.24739500000000000000e1 * t8450 * t9461 - 0.55663875000000000000e1 * t1953 * t2488 * t4250 * t7305 + 0.49479000000000000000e1 * t25151 * t3256 - 0.65972000000000000000e1 * t8450 * t9451 - 0.12369750000000000000e1 * t6199 * t12529 - 0.61848750000000000000e0 * t1953 * t898 * t4255 * t7305;
27079   t34484 = t634 * t212 * t12493;
27080   t34502 = t3274 * t2493;
27081   t34525 = 0.62012907040371922630e0 * t6127 * t34346 * t34347 * t667 + 0.59374800000000000000e2 * t8450 * t9478 - 0.16108322419143251374e3 * t25160 * t9481 - 0.90849806046929250000e2 * t894 * t34502 * t2486 * t21949 + 0.80541612095716256869e2 * t6127 * t34334 * t6284 + 0.12369750000000000000e1 * t2481 * t12551 - 0.12988237500000000000e2 * t894 * t2488 * t4249 * t2006 * t376 + 0.11132775000000000000e2 * t2481 * t12558 + 0.18554625000000000000e1 * t25339 * t1173 - 0.41747906250000000000e1 * t6279 * t4252 + 0.30203104535893596326e2 * t19741 * t12561;
27082   t34572 = t366 * t15028;
27083   t34596 = 0.44531100000000000000e3 * t3261 * t27606 * t9430 - 0.12402581408074384526e1 * t2500 * t27611 * t9435 - 0.12113307472923900000e3 * t19710 * t34263 * t21902 + 0.24647459318104087313e3 * t2500 * t34572 * t215 * t21949 - 0.10067701511964532108e2 * t2500 * t4262 * t2502 * t2504 - 0.11132775000000000000e3 * t3261 * t12499 * t9445 + 0.60406209071787192651e2 * t2500 * t12503 * t2502 * t2504 + 0.52880681250000000000e3 * t3261 * t7280 * t1170 * t9428 * t376 + 0.20135403023929064217e2 * t34250 + 0.75507761339733990814e1 * t34253 - 0.55663875000000000000e2 * t34255;
27084   t34631 = t12049 * t8625;
27085   t34634 = t3048 * t25503;
27086   t34637 = t728 * t2954;
27087   t34638 = t3006 * t34637;
27088   t34642 = t214 * t4178 * t4180;
27089   t34643 = t34642 * t12113;
27090   t34656 = 0.16537464600000000000e3 * t6992 * t11929;
27091   t34657 = t11995 * t8625;
27092   t34659 = 0.533466600e2 * t3163 * t34657;
27093   t34660 = t26342 * t300;
27094   t34663 = t11985 * t8625;
27095   t34666 = t2972 * t25503;
27096   t34671 = 0.114259835890816e3 * t3169 * t12405 * t8625;
27097   t34672 = t3022 * t34637;
27098   t34675 = t3014 * t25503;
27099   t34679 = 0.43275104560493800000e4 * t9078 * t12069;
27100   t34680 = t12090 * t8625;
27101   t34682 = 0.1704956239866240e4 * t3222 * t34680;
27102   t34685 = t12096 * t8625;
27103   t34688 = 0.6828372480e3 * t12438 * t34631 - 0.3414186240e3 * t12438 * t34634 + 0.1707093120e3 * t4433 * t34638 + 0.54533103493344000001e4 * t34643 * t12116 + 0.2150162366308992e4 * t12410 * t12414 * t8625 - 0.477813859179776e3 * t12410 * t3175 * t25503 + 0.186970640548608e3 * t4424 * t9247 * t34637 + t34656 + t34659 - 0.25274462026666666667e4 * t34660 * t11925 - 0.8322078960e3 * t9104 * t34663 + 0.5548052640e3 * t9104 * t34666 - t34671 - 0.6606705429481680e4 * t3222 * t34672 + 0.16516763573704200e5 * t8847 * t34675 - t34679 - t34682 + 0.64788337114917120000e5 * t6871 * t12075 + 0.25361224068010320e5 * t12396 * t34685;
27104   t34689 = t3022 * t25503;
27105   t34692 = t3033 * t34637;
27106   t34695 = t3048 * t34637;
27107   t34699 = 0.19441893866666666667e3 * t9070 * t12124;
27108   t34700 = t12145 * t8625;
27109   t34702 = 0.746853240e2 * t3180 * t34700;
27110   t34705 = t2949 * t25503;
27111   t34708 = t2972 * t34637;
27112   t34714 = 0.50615888371029000000e4 * t6970 * t12054;
27113   t34715 = t12068 * t8625;
27114   t34717 = 0.1864795887353700e4 * t3216 * t34715;
27115   t34718 = t26736 * t338;
27116   t34723 = t12074 * t8625;
27117   t34736 = -0.7246064019431520e4 * t12396 * t34689 + 0.2983673419765920e4 * t4457 * t34692 - 0.2774026320e3 * t3180 * t34695 - t34699 - t34702 + 0.18137864400000000000e4 * t6906 * t12131 - 0.2133866400e3 * t8914 * t34705 + 0.1066933200e3 * t3163 * t34708 - 0.2786490325420800e4 * t4449 * t34672 + t34714 + t34717 - 0.13415282413753078000e6 * t34718 * t12060 - 0.39184157426545404000e5 * t9155 * t12060 - 0.13779044369774208e5 * t8854 * t34723 + 0.4593014789924736e4 * t8854 * t34675 - 0.49550290721112600e5 * t8847 * t34723 - 0.15325696789814400e5 * t8874 * t34631 + 0.7662848394907200e4 * t8874 * t34634 - 0.3065139357962880e4 * t3202 * t34638;
27118   t34750 = t11924 * t8625;
27119   t34756 = 0.81692269249236800000e3 * t9091 * t12146;
27120   t34759 = t12115 * t8625;
27121   t34762 = t3033 * t25503;
27122   t34765 = t3175 * t34637;
27123   t34769 = 0.36128181064340400000e3 * t7085 * t12091;
27124   t34770 = t12105 * t8625;
27125   t34772 = 0.136332758733360e3 * t3158 * t34770;
27126   t34773 = t26615 * t3031;
27127   t34776 = t3014 * t34637;
27128   t34780 = 0.42493977462667200000e4 * t6950 * t12146;
27129   t34781 = t12053 * t8625;
27130   t34783 = 0.1532569678981440e4 * t3202 * t34781;
27131   t34784 = -0.1722380546221776e4 * t3143 * t34672 + 0.72256362128680800000e4 * t9162 * t12075 + 0.2590322415933840e4 * t8909 * t34685 - 0.740092118838240e3 * t8909 * t34689 + 0.272665517466720e3 * t3158 * t34692 + 0.82687323000000000000e3 * t8634 * t11938 + 0.2133866400e3 * t8914 * t34750 - 0.1209469960313376e4 * t3194 * t34638 - t34756 - 0.32072301805136208000e5 * t6979 * t12097 - 0.12608275893911040e5 * t12362 * t34759 + 0.3152068973477760e4 * t12362 * t34762 - 0.1260827589391104e4 * t4465 * t34765 + t34769 + t34772 - 0.12413205883274597333e5 * t34773 * t12097 + 0.636563137007040e3 * t4441 * t34776 - t34780 - t34783;
27132   t34785 = t27087 * t324;
27133   t34795 = 0.28867920658778133333e3 * t8966 * t12106;
27134   t34796 = t27045 * t311;
27135   t34804 = 0.1509348926269600e4 * t3208 * t34715;
27136   t34812 = 0.318281568503520e3 * t3194 * t34781;
27137   t34815 = t12059 * t8625;
27138   t34818 = t3006 * t25503;
27139   t34822 = 0.13133620722824000000e4 * t9218 * t12358;
27140   t34823 = t12090 * t2066;
27141   t34825 = 0.53472598657212e2 * t3150 * t34823;
27142   t34826 = t12105 * t2111;
27143   t34828 = 0.19700431084236e2 * t3154 * t34826;
27144   t34829 = 0.96172617481537333333e5 * t34785 * t12050 - 0.4689846900427584e4 * t9242 * t34759 + 0.1172461725106896e4 * t9242 * t34762 - 0.446652085755008e3 * t3169 * t34765 - t34795 - 0.15521531157354992000e5 * t34796 * t12131 - 0.5442614821410192e4 * t8867 * t34631 + 0.2721307410705096e4 * t8867 * t34634 + t34804 - 0.50156825857574400001e5 * t6773 * t12060 - 0.19505432277945600e5 * t12333 * t34723 + 0.6501810759315200e4 * t12333 * t34675 - t34812 + 0.91028528592006720000e4 * t6959 * t12050 + 0.3501097253538720e4 * t12309 * t34815 - 0.1400438901415488e4 * t12309 * t34818 + t34822 - t34825 + t34828;
27145   t34838 = t12096 * t2066;
27146   t34841 = t12090 * t2111;
27147   t34843 = 0.25329125679732e2 * t2358 * t34841;
27148   t34850 = t12074 * t2066;
27149   t34853 = t12096 * t2111;
27150   t34856 = t3022 * t8590;
27151   t34860 = 0.35648399104808000000e4 * t9215 * t12355;
27152   t34861 = t12115 * t2111;
27153   t34864 = t3033 * t8590;
27154   t34873 = t11985 * t2066;
27155   t34876 = t12049 * t2111;
27156   t34879 = 0.57787931180425600000e5 * t7089 * t12363 - 0.23115172472170240000e5 * t2160 * t12366 + 0.57787931180425600000e4 * t2160 * t12369 + 0.788017243369440e3 * t12362 * t34838 - t34843 - 0.12495702002001120000e6 * t12073 * t12284 + 0.48594396674448800000e5 * t9215 * t12288 - 0.13884113335556800000e5 * t9215 * t12291 - 0.1874355300300168e4 * t8902 * t34850 + 0.728915950116732e3 * t3150 * t34853 - 0.208261700033352e3 * t3150 * t34856 - t34860 - 0.111663021438752e3 * t3169 * t34861 + 0.27915755359688e2 * t3169 * t34864 + 0.24945317931463380000e5 * t12130 * t12239 - 0.11086807969539280000e5 * t9343 * t12242 + 0.55434039847696400000e4 * t9343 * t12245 + 0.680326852676274e3 * t8867 * t34873 - 0.302367490078344e3 * t3194 * t34876;
27157   t34881 = 0.4305951365554440e4 * t3013 * t12343;
27158   t34883 = 0.1519747540783920e4 * t6603 * t12346;
27159   t34884 = t12068 * t2066;
27160   t34886 = 0.71765856092574e2 * t3143 * t34884;
27161   t34896 = 0.681663793666800e3 * t3021 * t12355;
27162   t34898 = 0.238582327783380e3 * t6623 * t12358;
27163   t34900 = 0.9738054195240e1 * t3158 * t34823;
27164   t34902 = 0.3408318968334e1 * t2343 * t34826;
27165   t34915 = t12049 * t2066;
27166   t34918 = t12059 * t2111;
27167   t34921 = t34881 - t34883 + t34886 - 0.16254526898288000000e6 * t12150 * t12248 + 0.67727195409533333333e5 * t9364 * t12255 - 0.315206897347776e3 * t4465 * t34861 + 0.78801724336944e2 * t4465 * t34864 - t34896 + t34898 - t34900 + t34902 + 0.22472183064548840000e5 * t12095 * t12363 - 0.85608316436376533333e4 * t9311 * t12366 + 0.21402079109094133334e4 * t9311 * t12369 + 0.293115431276724e3 * t9242 * t34838 + 0.68961006509096000000e4 * t2187 * t12255 - 0.27584402603638400000e4 * t2187 * t12258 - 0.350109725353872e3 * t12309 * t34915 + 0.159140784251760e3 * t4441 * t34918;
27168   t34923 = t3006 * t8590;
27169   t34927 = 0.7662848394907200e4 * t3047 * t12302;
27170   t34929 = 0.2786490325420800e4 * t6657 * t12305;
27171   t34930 = t12145 * t2066;
27172   t34932 = 0.191571209872680e3 * t3202 * t34930;
27173   t34933 = t12053 * t2111;
27174   t34935 = 0.69662258135520e2 * t2348 * t34933;
27175   t34936 = t3014 * t8590;
27176   t34940 = 0.9323979436768500e4 * t3005 * t12267;
27177   t34942 = 0.3329992655988750e4 * t6597 * t12270;
27178   t34943 = t12053 * t2066;
27179   t34945 = 0.186479588735370e3 * t3216 * t34943;
27180   t34946 = t3048 * t8590;
27181   t34950 = 0.14587905223078000000e4 * t9343 * t12302;
27182   t34952 = 0.58351620892312000000e3 * t9346 * t12305;
27183   t34954 = 0.39785196062940e2 * t3194 * t34930;
27184   t34956 = 0.15914078425176e2 * t3198 * t34933;
27185   t34960 = 0.70436283225914666666e4 * t9364 * t12267;
27186   t34962 = 0.27090878163813333333e4 * t9282 * t12270;
27187   t34964 = 0.150934892626960e3 * t3208 * t34943;
27188   t34965 = t12068 * t2111;
27189   t34967 = 0.58051881779600e2 * t3212 * t34965;
27190   t34968 = -0.63656313700704e2 * t4441 * t34923 + t34927 - t34929 + t34932 - t34935 + 0.232207527118400e3 * t4449 * t34936 - t34940 + t34942 - t34945 + 0.151183745039172e3 * t3194 * t34946 + t34950 - t34952 + t34954 - t34956 - 0.15171421432001120000e5 * t7053 * t12248 - t34960 + t34962 - t34964 + t34967;
27191   t34975 = t12059 * t2066;
27192   t34978 = t12074 * t2111;
27193   t34989 = t11937 * t2066;
27194   t35012 = 0.86690810124202666667e5 * t7061 * t12273 - 0.37153204338944000000e5 * t2195 * t12278 + 0.12384401446314666667e5 * t2195 * t12281 + 0.1625452689828800e4 * t12333 * t34975 - 0.696622581355200e3 * t4449 * t34978 + 0.1451297044490000e4 * t3208 * t34918 - 0.580518817796000e3 * t3208 * t34923 + 0.5334666000e3 * t2967 * t11979 - 0.5334666000e3 * t2967 * t11982 - 0.533466600e2 * t8914 * t34989 - 0.27090878163813333334e5 * t9364 * t12258 - 0.3483112906776000e4 * t8880 * t34915 - 0.430595136555444e3 * t3143 * t34978 + 0.143531712185148e3 * t3143 * t34936 - 0.12951612079669200e5 * t12087 * t12284 + 0.4771646555667600e4 * t3021 * t12288 - 0.1363327587333600e4 * t3021 * t12291 - 0.185023029709560e3 * t8909 * t34850 + 0.68166379366680e2 * t3158 * t34853 - 0.19476108390480e2 * t3158 * t34856;
27195   t35035 = 0.66599853119775e2 * t2353 * t34965;
27196   t35048 = t11924 * t2111;
27197   t35051 = t2949 * t8590;
27198   t35056 = -0.10669332000e4 * t11936 * t11976 + 0.1915712098726800e4 * t8874 * t34873 - 0.766284839490720e3 * t3202 * t34876 + 0.383142419745360e3 * t3202 * t34946 - 0.121211732677990500e6 * t12048 * t12248 + 0.46619897183842500e5 * t3005 * t12255 - 0.18647958873537000e5 * t3005 * t12258 - 0.2424234653559810e4 * t8921 * t34915 + 0.932397943676850e3 * t3216 * t34918 + t35035 + 0.23398748396080950000e6 * t12058 * t12273 + 0.4129190893426050e4 * t8847 * t34975 + 0.68895221848871040e5 * t12065 * t12273 - 0.25835708193326640e5 * t3013 * t12278 + 0.8611902731108880e4 * t3013 * t12281 + 0.1148253697481184e4 * t8854 * t34975 + 0.266733300e2 * t3163 * t35048 - 0.266733300e2 * t3163 * t35051 - 0.10025869407860880e5 * t12121 * t11967;
27199   t35061 = t11924 * t2066;
27200   t35064 = t11985 * t2111;
27201   t35067 = t2972 * t8590;
27202   t35076 = 0.162545268982880e3 * t12055;
27203   t35077 = 0.19979955935932500000e3 * t12063;
27204   t35078 = 0.15095966707149000000e3 * t12070;
27205   t35079 = 0.75987377039196e2 * t12078;
27206   t35080 = 0.56286945954960e2 * t12092;
27207   t35081 = 0.10224956905002000000e2 * t12100;
27208   t35082 = 0.74658415496840000000e1 * t12107;
27209   t35083 = 0.160039980e2 * t12119;
27210   t35084 = 0.142257760e2 * t12125;
27211   t35085 = 0.53710014684969000000e2 * t12140;
27212   t35086 = 0.43763715669234000000e2 * t12147;
27213   t35087 = 0.4296801174797520e4 * t3040 * t11986 - 0.2864534116531680e4 * t3040 * t11989 - 0.334195646928696e3 * t8859 * t35061 + 0.143226705826584e3 * t3188 * t35064 - 0.95484470551056e2 * t3188 * t35067 + 0.76628483949072000e5 * t12142 * t12239 - 0.30651393579628800e5 * t3047 * t12242 + 0.15325696789814400e5 * t3047 * t12245 + t35076 + t35077 - t35078 - t35079 + t35080 + t35081 - t35082 + t35083 - t35084 + t35085 - t35086;
27214   t35089 = 0.208986774406560e3 * t12153;
27215   t35090 = t4066 * t703;
27216   t35091 = t35090 * t1425;
27217   t35094 = t4066 * t728;
27218   t35095 = t35094 * t1425;
27219   t35098 = t1057 * t2954;
27220   t35099 = t35098 * t1425;
27221   t35108 = t4073 * t703;
27222   t35109 = t35108 * t1425;
27223   t35111 = 0.42968011747975200000e3 * t8778 * t35109;
27224   t35112 = t4073 * t728;
27225   t35113 = t35112 * t1425;
27226   t35115 = 0.16113004405490700000e3 * t7000 * t35113;
27227   t35117 = 0.812726344914400e3 * t8800 * t35113;
27228   t35118 = t3097 * t1111;
27229   t35119 = t35118 * t1128;
27230   t35122 = t1127 * t353;
27231   t35123 = t12057 * t35122;
27232   t35129 = 0.27971938310305500000e4 * t8804 * t35109;
27233   t35131 = 0.99899779679662500000e3 * t7012 * t35113;
27234   t35140 = -t35089 - 0.22988545184721600e5 * t27119 * t35091 + 0.9195418073888640e4 * t21019 * t35095 - 0.4597709036944320e4 * t8791 * t35099 + 0.36363519803397150000e5 * t27076 * t35091 - 0.13985969155152750000e5 * t21032 * t35095 + 0.55943876620611000000e4 * t8804 * t35099 + t35111 - t35115 - t35117 - 0.26007243037260800e5 * t35119 * t35091 + 0.11145961301683200e5 * t35123 * t35095 - 0.3715320433894400e4 * t13514 * t35099 + t35129 - t35131 - 0.70196245188242850000e5 * t27053 * t35091 - 0.20668566554661312e5 * t27035 * t35091 + 0.7750712457997992e4 * t21152 * t35095 - 0.2583570819332664e4 * t8819 * t35099;
27235   t35154 = 0.24153546731438400000e4 * t8810 * t35109;
27236   t35156 = 0.90575800242894000000e3 * t8813 * t35113;
27237   t35157 = t3103 * t333;
27238   t35158 = t35157 * t1141;
27239   t35161 = t1140 * t803;
27240   t35162 = t12072 * t35161;
27241   t35168 = 0.16424851409304800000e3 * t8762 * t35109;
27242   t35170 = 0.59726732397472000000e2 * t8767 * t35113;
27243   t35171 = t12110 * t1150;
27244   t35172 = t35171 * t13538;
27245   t35175 = t12113 * t7167;
27246   t35176 = t12111 * t35175;
27247   t35182 = 0.800199900e2 * t8755 * t35109;
27248   t35184 = 0.320079960e2 * t6997 * t35113;
27249   t35189 = 0.38854836239007600000e4 * t26327 * t35091 - 0.14314939667002800000e4 * t21006 * t35095 + 0.40899827620008000000e3 * t8749 * t35099 + 0.3200799600e3 * t26337 * t35091 - 0.1600399800e3 * t21161 * t35095 - 0.93594993584323800000e4 * t8810 * t35099 - t35154 + t35156 + 0.34418804092299720000e5 * t35158 * t35091 - 0.14172448743888120000e5 * t35162 * t35095 + 0.40492710696823200000e4 * t13521 * t35099 - t35168 + t35170 + 0.29863366198736000000e4 * t35172 * t35091 - 0.11685665034288000000e4 * t35176 * t35095 + 0.25968144520640000000e3 * t13539 * t35099 + t35182 - t35184 - 0.11096105280e4 * t26433 * t35091 + 0.5548052640e3 * t26901 * t35095;
27250   t35201 = 0.1291785409666332e4 * t8819 * t35109;
27251   t35203 = 0.455924262235176e3 * t7006 * t35113;
27252   t35211 = 0.1069451973144240e4 * t8825 * t35109;
27253   t35213 = 0.394008621684720e3 * t8828 * t35113;
27254   t35214 = t3076 * t1137;
27255   t35215 = t35214 * t1154;
27256   t35218 = t1153 * t2330;
27257   t35219 = t12094 * t35218;
27258   t35225 = 0.20449913810004000000e3 * t8749 * t35109;
27259   t35227 = 0.71574698335014000000e2 * t7003 * t35113;
27260   t35234 = 0.1600399800e3 * t8755 * t35099 + 0.30077608223582640000e4 * t27040 * t35091 - 0.12890403524392560000e4 * t21097 * t35095 + 0.85936023495950400000e3 * t8778 * t35099 - t35201 + t35203 + 0.37487106006003360e5 * t26824 * t35091 - 0.14578319002334640e5 * t26883 * t35095 + 0.4165234000667040e4 * t8825 * t35099 + t35211 - t35213 - 0.17336379354127680e5 * t35215 * t35091 + 0.6934551741651072e4 * t35219 * t35095 - 0.1733637935412768e4 * t13528 * t35099 + t35225 - t35227 - 0.67416549193646520000e4 * t26424 * t35091 + 0.25682494930912960000e4 * t26898 * t35095 - 0.64206237327282400000e3 * t8762 * t35099;
27261   t35238 = 0.995804320e2 * t8771 * t35109;
27262   t35240 = 0.426773280e2 * t8774 * t35113;
27263   t35241 = t3083 * t319;
27264   t35242 = t35241 * t1102;
27265   t35245 = t1101 * t326;
27266   t35246 = t12129 * t35245;
27267   t35253 = t1088 * t313;
27268   t35254 = t11922 * t35253;
27269   t35255 = t35254 * t35095;
27270   t35257 = t13194 * t35099;
27271   t35259 = t8573 * t35109;
27272   t35260 = 0.26680000000000000000e2 * t35259;
27273   t35261 = t8576 * t35113;
27274   t35262 = 0.13340000000000000000e2 * t35261;
27275   t35263 = t20195 * t35095;
27276   t35265 = t8563 * t35099;
27277   t35267 = t25490 * t35091;
27278   t35269 = t25665 * t35095;
27279   t35278 = 0.43763715669234000000e3 * t8784 * t35109;
27280   t35279 = -0.3698701760e3 * t8771 * t35099 - t35238 + t35240 + 0.8535465600e3 * t35242 * t35091 - 0.4267732800e3 * t35246 * t35095 + 0.2133866400e3 * t13546 * t35099 + 0.28078498075297140000e5 * t26895 * t35095 - 0.11205600000000000000e3 * t35255 + 0.74704000000000000000e2 * t35257 - t35260 + t35262 - 0.12006000000000000000e2 * t35263 + 0.24012000000000000000e2 * t35265 - 0.14007000000000000000e3 * t35267 + 0.93380000000000000000e2 * t35269 - 0.74835953794390140000e4 * t27108 * t35091 + 0.33260423908617840000e4 * t26908 * t35095 - 0.16630211954308920000e4 * t8784 * t35099 - t35278;
27281   t35282 = 0.17505486267693600000e3 * t8787 * t35113;
27282   t35283 = t3090 * t1098;
27283   t35284 = t35283 * t1115;
27284   t35287 = t1114 * t340;
27285   t35288 = t12149 * t35287;
27286   t35294 = 0.2298854518472160e4 * t8791 * t35109;
27287   t35296 = 0.835947097626240e3 * t7009 * t35113;
27288   t35304 = 0.2113088496777440e4 * t8797 * t35109;
27289   t35305 = t223 * t2066;
27290   t35306 = t35305 * t4067;
27291   t35308 = t6469 * t4067;
27292   t35310 = t2954 * t2954;
27293   t35312 = t2961 * t1064 * t35310;
27294   t35314 = t2091 * t4074;
27295   t35315 = 0.40020e2 * t35314;
27296   t35316 = t8579 * t4074;
27297   t35317 = 0.4002e1 * t35316;
27298   t35318 = t6991 * t4079;
27299   t35320 = t20166 * t4067;
27300   t35323 = t4077 * t4078 * t35310;
27301   t35325 = t8582 * t4082;
27302   t35326 = 0.81522222222222222225e2 * t35325;
27303   t35327 = t35282 + 0.45514264296003360000e4 * t35284 * t35091 - 0.20688301952728800000e4 * t35288 * t35095 + 0.82753207810915200000e3 * t13507 * t35099 - t35294 + t35296 + 0.48763580694864000e5 * t27096 * t35091 - 0.20318158622860000e5 * t26913 * t35095 + 0.8127263449144000e4 * t8797 * t35099 + t35304 - 0.4002e1 * t35306 - 0.80040e2 * t35308 + 0.18676e2 * t35312 - t35315 - t35317 - 0.66403555555555555556e3 * t35318 - 0.40020e2 * t35320 - 0.10672e2 * t35323 + t35326;
27304   t35328 = t8573 * t35099;
27305   t35330 = t8563 * t35109;
27306   t35331 = 0.12006000000000000000e2 * t35330;
27307   t35332 = t6359 * t35113;
27308   t35333 = 0.60030000000000000000e1 * t35332;
27309   t35334 = t3111 * t282;
27310   t35335 = t35334 * t1089;
27311   t35336 = t35335 * t35091;
27312   t35345 = 0.38469046992614933333e4 * t8991 * t12054;
27313   t35346 = t9123 * t4180;
27314   t35350 = t2046 * t261 * t35310;
27315   t35352 = t2070 * t4070;
27316   t35360 = 0.3672723223561140e4 * t6926 * t4153;
27317   t35365 = 0.2400599700e3 * t7110 * t4188;
27318   t35372 = 0.29241872888888888889e3 * t8974 * t4194;
27319   t35375 = -0.93380000000000000000e2 * t35328 + t35331 - t35333 + 0.18676000000000000000e3 * t35336 + 0.34831129067760000e5 * t8880 * t34815 - 0.13932451627104000e5 * t8880 * t34818 + 0.5805188177960000e4 * t3208 * t34776 + t35345 - 0.88003156431057777779e4 * t35346 * t4185 - 0.8004e1 * t35350 + 0.57065555555555555556e3 * t35352 - 0.10348137178077040000e6 * t6861 * t4150 - 0.213119529983280e3 * t4148 * t4149 * t35310 + t35360 - 0.10387257808256e2 * t4181 * t4184 * t35310 - t35365 + 0.38014434755555555556e4 * t2375 * t4191 + 0.462337720e2 * t3179 * t1089 * t35310 + t35372 - 0.27858811333333333333e4 * t6896 * t4200;
27320   t35381 = t2941 * t11928 * t8625;
27321   t35382 = 0.8004e1 * t35381;
27322   t35383 = t2962 * t34708;
27323   t35385 = t6414 * t11942;
27324   t35386 = 0.32016000000000000000e2 * t35385;
27325   t35387 = t8621 * t34705;
27326   t35389 = t1135 * t788;
27327   t35390 = t35389 * t351;
27328   t35391 = t12074 * t4811;
27329   t35394 = t35382 - 0.74704e2 * t35383 + t35386 + 0.112056e3 * t35387 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 - 0.60739066045234800000e5 * t35390 * t35391;
27330   t35395 = t12068 * t4811;
27331   t35397 = 0.2165640245617086e4 * t6871 * t35395;
27332   t35398 = t12059 * t4811;
27333   t35403 = t11937 * t4811;
27334   t35406 = t344 * t2373;
27335   t35407 = t35406 * t4180;
27336   t35408 = t35407 * t14909;
27337   t35412 = t11928 * t4811;
27338   t35414 = 0.1680419790e3 * t6885 * t35412;
27339   t35415 = t26871 * t838;
27340   t35416 = t11924 * t4811;
27341   t35419 = t11995 * t4811;
27342   t35421 = 0.1920479760e3 * t9132 * t35419;
27343   t35422 = t1096 * t295;
27344   t35423 = t35422 * t311;
27345   t35424 = t11985 * t4811;
27346   t35431 = t12049 * t4811;
27347   t35435 = 0.80565022027453500000e3 * t6906 * t35419;
27348   t35436 = t27004 * t847;
27349   t35439 = t12145 * t4811;
27350   t35441 = 0.78774688204621200000e3 * t9141 * t35439;
27351   t35442 = t1109 * t770;
27352   t35443 = t35442 * t324;
27353   t35447 = 0.4075242100927920e4 * t6959 * t35439;
27354   t35448 = t26838 * t855;
27355   t35451 = t12053 * t4811;
27356   t35453 = 0.3657268552114800e4 * t9148 * t35451;
27357   t35454 = t35397 + 0.36815884175490462e5 * t20760 * t35398 - 0.67484715573013200000e4 * t21331 * t35391 - 0.8402098950e3 * t20748 * t35403 - 0.50637881815248000000e4 * t35408 * t12115 * t4811 - t35414 + 0.24966236880e4 * t35415 * t35416 + t35421 - 0.17604397800e4 * t35423 * t35424 - 0.64452017621962800000e4 * t20735 * t35416 + 0.44827663110207120e5 * t20811 * t35424 - 0.67132651944733200000e5 * t20784 * t35431 - t35435 + 0.14967190758878028000e5 * t35436 * t35424 + t35441 - 0.86890868201460960000e4 * t35443 * t35431 + t35447 - 0.91431713802870000e5 * t35448 * t35431 - t35453;
27358   t35456 = t1123 * t779;
27359   t35457 = t35456 * t338;
27360   t35461 = 0.47951894246238000000e4 * t6773 * t35451;
27361   t35462 = t26851 * t864;
27362   t35466 = 0.40759110109302300000e4 * t9155 * t35395;
27363   t35474 = 0.68770514999234333333e4 * t8977 * t4144;
27364   t35475 = 0.54181756327626666666e3 * t12161;
27365   t35476 = 0.665998531197750e3 * t12165;
27366   t35477 = 0.179033382283230e3 * t12182;
27367   t35482 = 0.1253233675982610e4 * t6916 * t4108;
27368   t35487 = 0.30332409764617333333e4 * t8984 * t4159;
27369   t35496 = 0.579414224616780e3 * t6821 * t4168;
27370   t35499 = 0.47370335532153600e5 * t35457 * t35398 - t35461 + 0.12635324133883713000e6 * t35462 * t35398 + t35466 - 0.213386640e2 * t4198 * t4199 * t35310 + 0.550558785790140e3 * t3221 * t1128 * t35310 + t35474 - t35475 - t35476 - t35477 - 0.372959177470740e3 * t2292 * t327 * t35310 - t35482 - 0.208261700033352e3 * t3149 * t1141 * t35310 - t35487 + 0.51527571969212826667e5 * t7084 * t4165 - 0.15125740308129111111e6 * t2390 * t4126 + 0.78801724336944e2 * t4163 * t4164 * t35310 - t35496 + 0.19975273835154524444e5 * t2415 * t4172;
27371   t35504 = 0.46454125198033777776e3 * t8745 * t4175;
27372   t35513 = 0.60502961232516444444e4 * t8734 * t4129;
27373   t35520 = 0.7991982374373000e4 * t6841 * t4138;
27374   t35525 = 0.12642851193334266667e4 * t8729 * t4114;
27375   t35532 = 0.6617914522874400e4 * t7125 * t4123;
27376   t35547 = 0.27915755359688e2 * t3168 * t1154 * t35310 + t35504 + 0.24021417267335106667e5 * t2382 * t4111 - 0.11222991612908413333e6 * t2407 * t4156 - 0.580518817796000e3 * t3207 * t1115 * t35310 - t35513 + 0.79466575947185777779e5 * t6969 * t4135 + 0.232207527118400e3 * t4133 * t4134 * t35310 - t35520 + 0.151183745039172e3 * t3193 * t1102 * t35310 + t35525 - 0.14251941345213173333e5 * t6949 * t4120 - 0.63656313700704e2 * t4118 * t4119 * t35310 + t35532 - 0.95484470551056e2 * t2313 * t303 * t35310 + 0.72797059751618400e5 * t9090 * t4218 + 0.383142419745360e3 * t2284 * t314 * t35310 - 0.111887753241222000e6 * t8990 * t4221 + 0.21318859649762643333e6 * t2398 * t4141 + 0.62436294800539380e5 * t9077 * t4206;
27377   t35567 = 0.149966034606696e3 * t9242 * t12105 * t2047;
27378   t35569 = 0.19908910799157333333e3 * t9314 * t12406;
27379   t35570 = t7167 * t4073;
27380   t35573 = 0.23371330068576e2 * t3174 * t35570 * t2081;
27381   t35574 = 0.47419253333333333334e2 * t12184;
27382   t35575 = 0.50319889023830000000e3 * t12188;
27383   t35576 = 0.253291256797320e3 * t12192;
27384   t35577 = 0.18762315318320000000e3 * t12196;
27385   t35578 = 0.34083189683340e2 * t12200;
27386   t35579 = 0.24886138498946666666e2 * t12206;
27387   t35580 = 0.14587905223078000000e3 * t12210;
27388   t35581 = 0.696622581355200e3 * t12214;
27389   t35582 = 0.533466600e2 * t12221;
27390   t35585 = 0.143531712185148e3 * t2300 * t341 * t35310 - 0.11588284492335600e5 * t9165 * t4209 - 0.19476108390480e2 * t2325 * t354 * t35310 - 0.12002998500e4 * t8650 * t4212 - 0.266733300e2 * t2304 * t290 * t35310 - 0.10025869407860880e5 * t9069 * t4215 + t35567 - t35569 + t35573 + t35574 + t35575 + t35576 - t35577 - t35578 + t35579 + t35580 + t35581 - t35582 + 0.31198331194774600000e5 * t9191 * t12281;
27391   t35586 = t12068 * t2047;
27392   t35588 = 0.2131195299832800e4 * t8847 * t35586;
27393   t35589 = t12105 * t2081;
27394   t35591 = 0.372959177470740e3 * t3139 * t35589;
27395   t35592 = t4147 * t320;
27396   t35593 = t35592 * t864;
27397   t35594 = t12074 * t2047;
27398   t35597 = t12115 * t2081;
27399   t35600 = t12049 * t2081;
27400   t35603 = t11995 * t2047;
27401   t35605 = 0.746853240e2 * t9104 * t35603;
27402   t35606 = t12053 * t2081;
27403   t35608 = 0.213386640e2 * t3184 * t35606;
27404   t35609 = t4197 * t283;
27405   t35610 = t35609 * t838;
27406   t35611 = t11985 * t2047;
27407   t35614 = t12059 * t2081;
27408   t35617 = t4179 * t347;
27409   t35618 = t35617 * t4183;
27410   t35626 = t11928 * t2047;
27411   t35628 = 0.533466600e2 * t8914 * t35626;
27412   t35629 = t12145 * t2081;
27413   t35631 = 0.160039980e2 * t2363 * t35629;
27414   t35632 = t11924 * t2047;
27415   t35636 = 0.54749504697682666666e3 * t9311 * t12402;
27416   t35641 = t11937 * t2047;
27417   t35644 = t11985 * t2081;
27418   t35647 = t35588 + t35591 - 0.28984256077726080e5 * t35593 * t35594 - 0.5967346839531840e4 * t4457 * t35597 + 0.2774026320e3 * t3180 * t35600 + t35605 + t35608 - 0.5974825920e3 * t35610 * t35611 - 0.2133866400e3 * t4433 * t35614 - 0.2627976225488768e4 * t35618 * t12115 * t2047 - 0.467426601371520e3 * t4424 * t21234 * t4066 * t2081 - t35628 - t35631 + 0.6935065800e3 * t25990 * t35632 + t35636 - 0.3330414534772080e4 * t26177 * t35594 - 0.545331034933440e3 * t3158 * t35597 - 0.1600399800e3 * t26212 * t35641 - 0.800199900e2 * t3163 * t35644;
27419   t35649 = t12096 * t2081;
27420   t35652 = t12053 * t2047;
27421   t35654 = 0.2424234653559810e4 * t8921 * t35652;
27422   t35655 = t12090 * t2081;
27423   t35657 = 0.399599118718650e3 * t2353 * t35655;
27424   t35658 = t12059 * t2047;
27425   t35669 = t12049 * t2047;
27426   t35672 = t12074 * t2081;
27427   t35676 = 0.334195646928696e3 * t8859 * t35603;
27428   t35678 = 0.71613352913292e2 * t2368 * t35606;
27429   t35687 = 0.66700000000000000000e1 * t11930;
27430   t35688 = 0.60030000000000000000e1 * t11943;
27431   t35689 = 0.95484470551056e2 * t12262;
27432   t35690 = 0.4876358069486400e4 * t4449 * t35649 - t35654 - t35657 + 0.57808672507964700e5 * t26592 * t35658 + 0.17223805462217760e5 * t26604 * t35658 + 0.3014165955888108e4 * t3143 * t35649 - 0.93594993584323800000e5 * t9191 * t12278 + 0.11561734501592940e5 * t3222 * t35649 - 0.29090815842717720e5 * t26195 * t35669 - 0.5594387662061100e4 * t3216 * t35672 - t35676 - t35678 - 0.2005173881572176e4 * t26689 * t35632 - 0.572906823306336e3 * t3188 * t35600 + 0.17241408888541200e5 * t26714 * t35611 + 0.3831424197453600e4 * t3202 * t35614 - t35687 + t35688 - t35689;
27433   t35691 = 0.35806676456646e2 * t12265;
27434   t35692 = 0.372959177470740e3 * t12268;
27435   t35693 = 0.133199706239550e3 * t12271;
27436   t35694 = 0.79570392125880e2 * t12303;
27437   t35695 = 0.31828156850352e2 * t12306;
27438   t35696 = 0.383142419745360e3 * t12318;
27439   t35697 = 0.139324516271040e3 * t12320;
27440   t35698 = 0.301869785253920e3 * t12328;
27441   t35699 = 0.116103763559200e3 * t12330;
27442   t35703 = 0.82355355850285800000e3 * t6897 * t12124;
27443   t35705 = 0.286453411653168e3 * t3188 * t34700;
27444   t35717 = 0.18949938471503200000e4 * t9166 * t12091;
27445   t35719 = 0.748616381200968e3 * t3150 * t34770;
27446   t35720 = t25529 * t748;
27447   t35721 = t35720 * t35403;
27448   t35723 = t35691 - t35692 + t35693 + t35694 - t35695 + t35696 - t35697 - t35698 + t35699 + 0.3729591774707400e4 * t3216 * t34776 + t35703 + t35705 + 0.65884284680228640000e4 * t9132 * t11925 + 0.2005173881572176e4 * t8859 * t34663 - 0.1336782587714784e4 * t8859 * t34666 + 0.572906823306336e3 * t3188 * t34695 - 0.46743375208933920000e5 * t9141 * t12131 + t35717 + t35719 + 0.42021000000000000000e3 * t35721;
27449   t35728 = t6430 * t11941 * t4811;
27450   t35729 = 0.36018000000000000000e2 * t35728;
27451   t35730 = t26865 * t873;
27452   t35733 = t12090 * t4811;
27453   t35735 = 0.1773038797581240e4 * t9162 * t35733;
27454   t35736 = t1148 * t797;
27455   t35737 = t35736 * t3031;
27456   t35738 = t12096 * t4811;
27457   t35742 = 0.33742357786506600000e3 * t6979 * t35733;
27458   t35743 = t27021 * t4183;
27459   t35748 = 0.26877029578862400000e3 * t9125 * t12105 * t4811;
27460   t35756 = t2941 * t2949 * t34637;
27461   t35758 = t25485 * t287;
27462   t35759 = t35758 * t11938;
27463   t35761 = t8621 * t34750;
27464   t35763 = t707 * t703;
27465   t35764 = t35763 * t709;
27466   t35765 = t35764 * t11933;
27467   t35768 = 0.23049504368556120000e4 * t6862 * t12069;
27468   t35770 = 0.861190273110888e3 * t3143 * t34680;
27469   t35771 = t26349 * t351;
27470   t35778 = -t35729 - 0.65602435510505880e5 * t35730 * t35391 - t35735 + 0.29905254385870248e5 * t35737 * t35738 - t35742 + 0.11557122718910832000e5 * t35743 * t35738 + t35748 + 0.70862243719440600000e5 * t9148 * t12050 + 0.24242346535598100e5 * t8921 * t34815 - 0.9696938614239240e4 * t8921 * t34818 + 0.16008e2 * t35756 - 0.40464666666666666667e3 * t35759 - 0.112056e3 * t35761 + 0.12006000000000000000e2 * t35765 - t35768 - t35770 + 0.70114772344561840000e5 * t35771 * t12075 + 0.26240974204202352e5 * t8902 * t34685 - 0.7497421201200672e4 * t8902 * t34689;
27471   t35781 = t4395 * t34695;
27472   t35783 = t11966 * t34666;
27473   t35785 = t8651 * t11929;
27474   t35786 = 0.57806666666666666668e2 * t35785;
27475   t35787 = t2962 * t34657;
27476   t35788 = 0.21344e2 * t35787;
27477   t35789 = t6485 * t11933;
27478   t35791 = 0.143531712185148e3 * t12344;
27479   t35792 = 0.50658251359464e2 * t12347;
27480   t35793 = 0.106945197314424e3 * t12356;
27481   t35794 = 0.39400862168472e2 * t12359;
27482   t35795 = 0.19476108390480e2 * t12372;
27483   t35796 = 0.6816637936668e1 * t12377;
27484   t35797 = 0.284159373311040e3 * t12391;
27485   t35798 = 0.106559764991640e3 * t12393;
27486   t35799 = 0.14282479486352e2 * t12403;
27487   t35800 = 0.5193628904128e1 * t12407;
27488   t35801 = 0.266733300e2 * t12421;
27489   t35802 = 0.106693320e2 * t12423;
27490   t35803 = 0.248951080e2 * t12431;
27491   t35804 = 0.2915663800466928e4 * t3150 * t34692 + 0.64032e2 * t35781 - 0.106720e3 * t35783 - t35786 - t35788 + 0.64032000000000000000e2 * t35789 + t35791 - t35792 - t35793 + t35794 - t35795 + t35796 + t35797 - t35798 + t35799 - t35800 - t35801 + t35802 + t35803;
27492   t35806 = 0.106693320e2 * t12435;
27493   t35807 = t12090 * t2047;
27494   t35809 = 0.962506775829816e3 * t8902 * t35807;
27495   t35810 = t11995 * t2111;
27496   t35811 = t2971 * t35810;
27497   t35812 = 0.2668e1 * t35811;
27498   t35813 = t2962 * t35644;
27499   t35816 = t2057 * t11995 * t2081;
27500   t35817 = 0.4002e1 * t35816;
27501   t35818 = t2928 * t245;
27502   t35819 = t35818 * t748;
27503   t35820 = t35819 * t35632;
27504   t35822 = t2170 * t11986;
27505   t35824 = t4395 * t35600;
27506   t35826 = t2170 * t11989;
27507   t35828 = t8621 * t35626;
27508   t35829 = 0.16008e2 * t35828;
27509   t35830 = t2971 * t35629;
27510   t35831 = 0.8004e1 * t35830;
27511   t35833 = t2941 * t11924 * t2081;
27512   t35835 = t25633 * t35641;
27513   t35838 = 0.1148253697481184e4 * t8854 * t35586;
27514   t35840 = 0.177303879758124e3 * t2358 * t35589;
27515   t35845 = t2962 * t35048;
27516   t35847 = t2962 * t35051;
27517   t35849 = -t35806 - t35809 - t35812 + 0.56028e2 * t35813 - t35817 - 0.106720e3 * t35820 + 0.37352000000000000000e3 * t35822 - 0.64032e2 * t35824 - 0.24901333333333333334e3 * t35826 + t35829 + t35831 - 0.8004e1 * t35833 + 0.56028e2 * t35835 + t35838 + t35840 - 0.31864040105102856e5 * t26202 * t35594 - 0.5831327600933856e4 * t3150 * t35597 - 0.18676e2 * t35845 + 0.18676e2 * t35847;
27518   t35850 = t2098 * t11959;
27519   t35851 = 0.40020e2 * t35850;
27520   t35852 = t6367 * t11962;
27521   t35853 = 0.20010e2 * t35852;
27522   t35855 = t2941 * t11941 * t2066;
27523   t35856 = 0.4002e1 * t35855;
27524   t35858 = t2057 * t11928 * t2111;
27525   t35859 = 0.2001e1 * t35858;
27526   t35860 = t7069 * t11967;
27527   t35862 = t13166 * t11970;
27528   t35864 = t13166 * t11973;
27529   t35866 = t4395 * t35064;
27530   t35868 = t4395 * t35067;
27531   t35870 = t8667 * t11992;
27532   t35871 = 0.88933333333333333335e2 * t35870;
27533   t35872 = t8670 * t11996;
27534   t35873 = 0.44466666666666666667e2 * t35872;
27535   t35874 = t11928 * t2066;
27536   t35875 = t2962 * t35874;
27537   t35876 = 0.5336e1 * t35875;
27538   t35887 = t11966 * t35061;
27539   t35889 = t2098 * t11970;
27540   t35891 = t2098 * t11973;
27541   t35894 = t2941 * t11937 * t2111;
27542   t35896 = -t35851 + t35853 - t35856 + t35859 - 0.62253333333333333334e3 * t35860 + 0.8004e1 * t35862 - 0.16008e2 * t35864 + 0.16008e2 * t35866 - 0.10672e2 * t35868 + t35871 - t35873 + t35876 + 0.38952216780960000000e4 * t13362 * t12415 - 0.86560481735466666667e3 * t13362 * t12418 - 0.119453464794944e3 * t12410 * t12115 * t2066 + 0.46742660137152e2 * t4424 * t12414 * t2111 - 0.26680e2 * t35887 + 0.40020e2 * t35889 - 0.80040e2 * t35891 + 0.4002e1 * t35894;
27543   t35900 = t2941 * t2942 * t8590;
27544   t35902 = t25643 * t11976;
27545   t35904 = t8667 * t11979;
27546   t35906 = t8667 * t11982;
27547   t35908 = t8621 * t34989;
27548   t35910 = t11995 * t2066;
27549   t35912 = 0.124475540e2 * t3180 * t35910;
27550   t35913 = t12145 * t2111;
27551   t35915 = 0.53346660e1 * t3184 * t35913;
27552   t35924 = 0.7141239743176e1 * t3169 * t12105 * t2066;
27553   t35927 = 0.2596814452064e1 * t3174 * t12405 * t2111;
27554   t35928 = t12217 * t1150;
27555   t35929 = t35928 * t4183;
27556   t35932 = t6885 * t11925;
27557   t35934 = t822 * t346;
27558   t35935 = t35934 * t300;
27559   t35936 = t35935 * t35416;
27560   t35938 = t8634 * t35412;
27561   t35939 = 0.60030000000000000000e2 * t35938;
27562   t35941 = t20348 * t11932 * t4811;
27563   t35943 = t11966 * t34663;
27564   t35945 = 0.22233333333333333334e2 * t11948;
27565   t35946 = -0.8004e1 * t35900 + 0.46690000000000000000e3 * t35902 - 0.31126666666666666666e3 * t35904 + 0.31126666666666666666e3 * t35906 + 0.28014e2 * t35908 + t35912 - t35915 - 0.28451552000000000000e4 * t7077 * t12239 + 0.14225776000000000000e4 * t2179 * t12242 - 0.71128880000000000000e3 * t2179 * t12245 + t35924 - t35927 - 0.99544553995786666667e4 * t35929 * t12411 + 0.44822400000000000000e3 * t35932 - 0.44822400000000000000e3 * t35936 + t35939 - 0.72036000000000000000e2 * t35941 + 0.160080e3 * t35943 + t35945;
27566   t35947 = 0.20010e2 * t11954;
27567   t35948 = 0.8004e1 * t11960;
27568   t35949 = 0.4002e1 * t11963;
27569   t35950 = 0.10672e2 * t11993;
27570   t35951 = 0.5336e1 * t11997;
27571   t35957 = 0.1811218711523520e4 * t8880 * t35652;
27572   t35959 = 0.348311290677600e3 * t3212 * t35655;
27573   t35960 = t4132 * t308;
27574   t35961 = t35960 * t855;
27575   t35964 = t12068 * t2081;
27576   t35966 = 0.79570392125880e2 * t3198 * t35964;
27577   t35967 = t4117 * t296;
27578   t35968 = t35967 * t847;
27579   t35973 = t12145 * t2047;
27580   t35975 = 0.1915712098726800e4 * t8874 * t35973;
27581   t35977 = 0.348311290677600e3 * t2348 * t35964;
27582   t35981 = 0.1432267058265840e4 * t3040 * t12261;
27583   t35983 = 0.537100146849690e3 * t6645 * t12264;
27584   t35985 = 0.47742235275528e2 * t3188 * t35910;
27585   t35986 = -t35947 - t35948 + t35949 + t35950 - t35951 - 0.38314241974536000e5 * t26701 * t35669 - 0.8707782266940000e4 * t3208 * t35672 - t35957 - t35959 + 0.21130884967774400e5 * t35961 * t35658 + t35966 - 0.3501097253538720e4 * t35968 * t35669 - 0.954844705510560e3 * t4441 * t35672 + t35975 + t35977 - 0.372959177470740e3 * t3216 * t34923 - t35981 + t35983 - t35985;
27586   t35989 = 0.17903338228323e2 * t2368 * t35913;
27587   t35990 = t12414 * t2081;
27588   t35996 = 0.80511822438128000000e4 * t9191 * t12343;
27589   t35998 = 0.30191933414298000000e4 * t9194 * t12346;
27590   t36000 = 0.142079686655520e3 * t3222 * t34884;
27591   t36002 = 0.53279882495820e2 * t3139 * t34841;
27592   t36022 = 0.358066764566460e3 * t8867 * t35973;
27593   t36023 = t12405 * t2081;
27594   t36025 = 0.157603448673888e3 * t3154 * t36023;
27595   t36026 = t4162 * t334;
27596   t36027 = t36026 * t873;
27597   t36028 = t12096 * t2047;
27598   t36031 = t35989 + 0.1004967192948768e4 * t3169 * t35990 + 0.5442614821410192e4 * t26683 * t35611 + t35996 - t35998 + t36000 - t36002 - 0.11472934697433240000e6 * t7044 * t12284 + 0.47241495812960400000e5 * t2203 * t12288 - 0.13497570232274400000e5 * t2203 * t12291 - 0.1811516004857880e4 * t12396 * t34850 + 0.426773280e2 * t4433 * t34876 - 0.213386640e2 * t4433 * t34946 - 0.1651676357370420e4 * t3222 * t34978 + 0.550558785790140e3 * t3222 * t34936 + 0.1511837450391720e4 * t3194 * t35614 + t36022 - t36025 + 0.14972327624019360e5 * t36027 * t36028;
27599   t36035 = 0.185023029709560e3 * t8909 * t35807;
27600   t36037 = 0.27266551746672e2 * t2343 * t36023;
27601   t36050 = 0.2667333000e3 * t2967 * t11992;
27602   t36052 = 0.1066933200e3 * t6607 * t11996;
27603   t36054 = 0.133366650e2 * t3163 * t35874;
27604   t36056 = 0.53346660e1 * t2363 * t35810;
27605   t36070 = 0.33193477333333333334e3 * t9099 * t12261;
27606   t36072 = 0.14225776000000000000e3 * t9107 * t12264;
27607   t36073 = 0.2836862076129984e4 * t4465 * t35990 - t36035 - t36037 + 0.5862308625534480e4 * t26184 * t36028 - 0.853546560e2 * t12438 * t34873 + 0.745918354941480e3 * t4457 * t34853 - 0.213119529983280e3 * t4457 * t34856 - 0.10387257808256e2 * t4424 * t3175 * t8590 - t36050 + t36052 - t36054 + t36056 + 0.36987017600000000000e4 * t11923 * t11967 - 0.18493508800000000000e4 * t9099 * t11986 + 0.12329005866666666667e4 * t9099 * t11989 + 0.1387013160e3 * t9104 * t35061 - 0.693506580e2 * t3180 * t35064 + 0.462337720e2 * t3180 * t35067 + t36070 - t36072;
27608   t36079 = t2990 * t9376;
27609   t36084 = t12478 * t2118;
27610   t36087 = t12469 * t2118;
27611   t36094 = 0.40e2 * t35259;
27612   t36095 = 0.20e2 * t35261;
27613   t36104 = 0.60e2 * t35314;
27614   t36105 = 0.6e1 * t35316;
27615   t36109 = 0.1100e4 / 0.9e1 * t35325;
27616   t36111 = 0.18e2 * t35330;
27617   t36112 = 0.9e1 * t35332;
27618   t36114 = 0.28e2 * t35312 - t36104 - t36105 - 0.8960e4 / 0.9e1 * t35318 - 0.60e2 * t35320 - 0.16e2 * t35323 + t36109 - 0.140e3 * t35328 + t36111 - t36112 + 0.280e3 * t35336;
27619   t36118 = 0.12e2 * t35381;
27620   t36120 = 0.48e2 * t35385;
27621   t36122 = 0.10e2 * t11930;
27622   t36123 = 0.9e1 * t11943;
27623   t36125 = -0.12e2 * t35350 + 0.7700e4 / 0.9e1 * t35352 + t36118 - 0.112e3 * t35383 + t36120 + 0.168e3 * t35387 - t4076 + t4084 - t36122 + t36123 + 0.630e3 * t35721;
27624   t36126 = 0.54e2 * t35728;
27625   t36133 = 0.260e3 / 0.3e1 * t35785;
27626   t36134 = 0.32e2 * t35787;
27627   t36136 = 0.4e1 * t35811;
27628   t36137 = -t36126 + 0.24e2 * t35756 - 0.1820e4 / 0.3e1 * t35759 - 0.168e3 * t35761 + 0.18e2 * t35765 + 0.96e2 * t35781 - 0.160e3 * t35783 - t36133 - t36134 + 0.96e2 * t35789 - t36136;
27629   t36141 = 0.6e1 * t35816;
27630   t36146 = 0.24e2 * t35828;
27631   t36147 = 0.12e2 * t35830;
27632   t36151 = 0.84e2 * t35813 - t36141 - 0.160e3 * t35820 + 0.560e3 * t35822 - 0.96e2 * t35824 - 0.1120e4 / 0.3e1 * t35826 + t36146 + t36147 - 0.12e2 * t35833 + 0.84e2 * t35835 - 0.28e2 * t35845;
27633   t36153 = 0.60e2 * t35850;
27634   t36154 = 0.30e2 * t35852;
27635   t36155 = 0.6e1 * t35855;
27636   t36156 = 0.3e1 * t35858;
27637   t36162 = 0.400e3 / 0.3e1 * t35870;
27638   t36163 = 0.28e2 * t35847 - t36153 + t36154 - t36155 + t36156 - 0.2800e4 / 0.3e1 * t35860 + 0.12e2 * t35862 - 0.24e2 * t35864 + 0.24e2 * t35866 - 0.16e2 * t35868 + t36162;
27639   t36165 = 0.200e3 / 0.3e1 * t35872;
27640   t36166 = 0.8e1 * t35875;
27641   t36176 = -t36165 + t36166 - 0.40e2 * t35887 + 0.60e2 * t35889 - 0.120e3 * t35891 + 0.6e1 * t35894 - 0.12e2 * t35900 + 0.700e3 * t35902 - 0.1400e4 / 0.3e1 * t35904 + 0.1400e4 / 0.3e1 * t35906 + 0.42e2 * t35908;
27642   t36179 = 0.90e2 * t35938;
27643   t36182 = 0.100e3 / 0.3e1 * t11948;
27644   t36183 = 0.30e2 * t11954;
27645   t36184 = 0.12e2 * t11960;
27646   t36185 = 0.6e1 * t11963;
27647   t36186 = 0.16e2 * t11993;
27648   t36187 = 0.8e1 * t11997;
27649   t36188 = 0.672e3 * t35932 - 0.672e3 * t35936 + t36179 - 0.108e3 * t35941 + 0.240e3 * t35943 + t36182 - t36183 - t36184 + t36185 + t36186 - t36187;
27650   t36191 = -0.168e3 * t35255 + 0.112e3 * t35257 - t36094 + t36095 - 0.18e2 * t35263 + 0.36e2 * t35265 - 0.210e3 * t35267 + 0.140e3 * t35269 - 0.6e1 * t35306 - 0.120e3 * t35308 + t36114 + t36125 + t36137 + t36151 + t36163 + t36176 + t36188;
27651   t36196 = t12000 * t731;
27652   t36197 = t36196 * t360;
27653   t36200 = t4085 * t2114;
27654   t36201 = t36200 * t360;
27655   t36204 = t2979 * t2979;
27656   t36209 = -0.2e1 * t1839 * t2467 * t360 * t36204 + t360 * t36191 * t616 * t881 - t27446 * t36087 - 0.24e2 * t27471 * t36087 - 0.2e1 * t3240 * t36197 - t3240 * t36201 + 0.24e2 * t9372 * t36079 + 0.24e2 * t9380 * t36079 + 0.4e1 * t9392 * t36079 + 0.6e1 * t9372 * t36084 + t9392 * t36084;
27657   t36210 = t3233 * t8677;
27658   t36213 = t4089 * t2114;
27659   t36214 = t36213 * t360;
27660   t36236 = -0.4e1 * t2458 * t360 * t36204 * t616 - 0.12e2 * t27452 * t36087 - 0.36e2 * t27459 * t36087 - 0.4e1 * t3232 * t36197 - 0.2e1 * t3232 * t36201 - 0.4e1 * t3232 * t36210 - 0.2e1 * t3240 * t36210 + 0.6e1 * t9380 * t36084 + 0.6e1 * t9372 * t36214 + 0.6e1 * t9380 * t36214 + t9392 * t36214;
27661   t36238 = my_piecewise3(t278, t36073 + t36031 + t35986 + t35946 + t35896 + t35849 + t35804 + t35778 + t35723 + t34688 + t35394 + t35087 + t35499 + t35140 + t35454 + t34968 + t35189 + t35547 + t34829 + t34879 + t35056 + t35647 + t35375 + t35234 + t35327 + t35690 + t34736 + t35012 + t34784 + t35585 + t35279 + t34921, t36209 + t36236);
27662   t36245 = t2997 * t2997;
27663   t36275 = 0.1174e1 * t36238 - t674 * t2134 * t4239 - 0.2e1 * t674 * t742 * t12490 - 0.4e1 * t2000 * t36245 * t363 + 0.8e1 * t2000 * t3000 * t2997 + 0.24e2 * t27487 * t8528 + 0.4e1 * t2000 * t12035 * t742 + 0.4e1 * t2000 * t4105 * t2134 - 0.4e1 * t2000 * t12033 * t742 - 0.2e1 * t2000 * t4103 * t2134 + 0.2e1 * t2000 * t2001 * t4239 - 0.12e2 * t6316 * t4105 * t2001 + 0.2e1 * t2000 * t4046 * t2472;
27664   t36314 = t2994 * t2994;
27665   t36353 = -t25772 * t8697 / 0.25e2 + 0.6e1 / 0.25e2 * t25769 * t8697 + t56 * t36191 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4090 * t2123 - t735 * t36191 * t267 / 0.100e3 + t2127 * t36196 * t267 / 0.50e2 + t2127 * t36200 * t267 / 0.100e3 - t6534 * t4085 * t2118 * t267 / 0.100e3 + t2127 * t36204 * t267 / 0.50e2 + t2127 * t1072 * t8677 / 0.50e2 - t6534 * t36213 * t267 / 0.100e3;
27666   t36371 = t2120 * t8677;
27667   t36375 = t2118 * t263 * t267;
27668   t36379 = t265 * t2114 * t267;
27669   t36383 = t2126 * t2118 * t267;
27670   t36386 = t20412 * t4089 * t2118 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t12001 * t2984 - 0.3e1 / 0.100e3 * t4086 * t2128 - 0.3e1 / 0.100e3 * t4086 * t8686 + 0.3e1 / 0.50e2 * t4086 * t8690 - 0.3e1 / 0.50e2 * t56 * t36204 * t2120 - 0.3e1 / 0.25e2 * t1069 * t8697 - 0.3e1 / 0.50e2 * t1069 * t36371 + 0.3e1 / 0.20e2 * t4090 * t36375 + 0.3e1 / 0.50e2 * t4090 * t36379 - t4090 * t36383 / 0.10e2;
27671   t36411 = -0.4e1 * t674 * t2997 * t3243 - 0.2e1 * t674 * t1078 * t9395 + 0.6e1 * t6316 * t4047 * t2134 + 0.8e1 * t2000 * t12040 * t742 + 0.8e1 * t2000 * t12043 * t742 - 0.2e1 * t674 * t12032 * t885 + t674 * (0.19e2 / 0.162e3 * t37 * t39 * t2011 * t231 - 0.41e2 / 0.32e2 * t420 * t2016 * sigma[2] * t231 + 0.1323e4 / 0.3200e4 * t1391 * t2024 * t221 * t19 * t2026 - 0.78003e5 / 0.2048000e7 * t11911 * t8552 + 0.59049e5 / 0.10240000e8 * t16789 * t2021 / t1096 * t231 + 0.4e1 * t36314 + 0.4e1 * t1075 * t8708 + 0.2e1 * t2131 * t4099 + 0.4e1 * t739 * t12029 + 0.2e1 * t270 * (t36353 + t36386)) * t363 - 0.12e2 * t6316 * t11895 * t742 - 0.4e1 * t2000 * t1079 * t8711 - 0.24e2 * t20016 * t4047 * t2001 + 0.6e1 * t6316 * t4103 * t2001 - t674 * t4102 * t2472 - 0.2e1 * t674 * t8711 * t1162 - t277 * t36238;
27672   t36417 = -0.90849806046929250000e2 * t3261 * t888 * t12539 * t12543 + 0.41232500000000000000e0 * t34330 - 0.16493000000000000000e1 * t34332 - 0.16493000000000000000e1 * t34354 + 0.12369750000000000000e1 * t34356 + 0.10067701511964532109e2 * t34358 + 0.37109250000000000000e1 * t34360 - 0.30924375000000000000e0 * t34362 - 0.27831937500000000000e1 * t34364 - 0.30283268682309750000e2 * t34366 - 0.3e1 / 0.8e1 * t8 * t212 * (t36275 + t36411) * t377;
27673   t36431 = -t11887 - t34047 + t10 * (-0.29687400000000000000e2 * t12565 * t2490 - 0.49479000000000000000e1 * t34484 * t902 - 0.49479000000000000000e1 * t9472 * t3270 - 0.65972000000000000000e1 * t34311 * t1988 - 0.46386562500000000000e0 * t6279 * t4257 + 0.57725500000000000000e1 * t12565 * t2496 + 0.57725500000000000000e1 * t3252 * t9486 + t36417 + t34463 + 0.15503226760092980657e0 * t34257 + 0.14843700000000000000e2 * t34259 + t34525 + t34596 - t34110 - 0.40270806047858128434e2 * t34261 - 0.38964712500000000000e3 * t894 * t22014 * t2011 * t21949 - 0.22265550000000000000e3 * t1953 * t34340 * t34341 * t667 - 0.14431375000000000000e1 * t894 * t898 * t34502 * t376 + 0.60406209071787192652e2 * t2500 * t12523 * t214 * t2504 + 0.24226614945847800000e3 * t3261 * t1165 * t4249 * t9494 + 0.14843700000000000000e2 * t1953 * t2488 * t12556 * t1986 + 0.11326164200960098622e2 * t2500 * t2475 * t4261 * t368 * t2504 + 0.44531100000000000000e2 * t3261 * t3246 * t2486 * t19 * t3264 - 0.12081241814357438530e3 * t2500 * t3246 * t3274 * t214 * t2504 + 0.80541612095716256868e2 * t2500 * t4242 * t1170 * t2502 * t2504 - 0.41232500000000000000e0 * t34304 + 0.50338507559822660543e1 * t19272 * t11860 * t21882 + 0.15101552267946798163e2 * t6127 * t11860 * t21886 - 0.16699162500000000000e3 * t3261 * t21928 * t12510 + 0.46509680280278941972e0 * t2500 * t21938 * t12515 - 0.16655797775270362500e3 * t3261 * t12540 * t9494 + 0.16493000000000000000e1 * t34278 - 0.37109250000000000000e1 * t34280 - t34276 / 0.4e1) - 0.3e1 / 0.4e1 * t12496 + t34055 + 0.44531100000000000000e2 * t12501 - 0.12081241814357438530e3 * t12506 - 0.16699162500000000000e3 * t12512 + 0.46509680280278941972e0 * t12517 + 0.60406209071787192652e2 * t12521 + 0.22652328401920197244e2 * t12526 - 0.12369750000000000000e1 * t12530 - 0.11132775000000000000e2 * t12534;
27674   t36442 = 0.49479000000000000000e1 * t12537 - 0.90849806046929250000e2 * t12545 - 0.92773125000000000000e0 * t12547 + 0.12369750000000000000e1 * t12552 - 0.49479000000000000000e1 * t12554 + 0.11132775000000000000e2 * t12559 + 0.30203104535893596326e2 * t12562 - 0.49479000000000000000e1 * t12566 + 0.37109250000000000000e1 * t12568 - 0.83495812500000000000e1 * t12570 + t34049 - t34051 - t34053;
27675   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
27676     v4rho2sigma2[17] = t36431 + t36442;
27677 
27678   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27679     v4rho2sigmalapl[0] = 0.0e0;
27680 
27681   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27682     v4rho2sigmalapl[1] = 0.0e0;
27683 
27684   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27685     v4rho2sigmalapl[2] = 0.0e0;
27686 
27687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27688     v4rho2sigmalapl[3] = 0.0e0;
27689 
27690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27691     v4rho2sigmalapl[4] = 0.0e0;
27692 
27693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27694     v4rho2sigmalapl[5] = 0.0e0;
27695 
27696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27697     v4rho2sigmalapl[6] = 0.0e0;
27698 
27699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27700     v4rho2sigmalapl[7] = 0.0e0;
27701 
27702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27703     v4rho2sigmalapl[8] = 0.0e0;
27704 
27705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27706     v4rho2sigmalapl[9] = 0.0e0;
27707 
27708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27709     v4rho2sigmalapl[10] = 0.0e0;
27710 
27711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27712     v4rho2sigmalapl[11] = 0.0e0;
27713 
27714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27715     v4rho2sigmalapl[12] = 0.0e0;
27716 
27717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27718     v4rho2sigmalapl[13] = 0.0e0;
27719 
27720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27721     v4rho2sigmalapl[14] = 0.0e0;
27722 
27723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27724     v4rho2sigmalapl[15] = 0.0e0;
27725 
27726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27727     v4rho2sigmalapl[16] = 0.0e0;
27728 
27729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
27730     v4rho2sigmalapl[17] = 0.0e0;
27731 
27732   t36447 = t27740 * t1038;
27733   t36452 = t3547 * t1180 * t13060;
27734   t36458 = 0.41232500000000000000e0 * t27736 * t1038;
27735   t36459 = t9514 * t2875;
27736   t36461 = t10344 * t13065;
27737   t36462 = t36461 * t644;
27738   t36484 = t12620 * t7509;
27739   t36490 = t12620 * t4811;
27740   t36513 = -0.49550290721112600e5 * t7921 * t32462 * t36484 + 0.25361224068010320e5 * t11587 * t17796 * t36484 - 0.8402098950e3 * t22333 * t36490 + 0.24966236880e4 * t22396 * t36490 - 0.17604397800e4 * t33320 * t138 * t36490 - 0.67484715573013200000e4 * t22260 * t36490 + 0.11557122718910832000e5 * t22267 * t36490 - 0.50637881815248000000e4 * t33355 * t14562 * t1786 * t36490 - 0.64452017621962800000e4 * t22291 * t36490 + 0.47370335532153600e5 * t33153 * t165 * t36490 - 0.67132651944733200000e5 * t22372 * t36490;
27741   t36520 = t33434 * t77 * t4275;
27742   t36522 = t12628 * t12632;
27743   t36524 = t12628 * t12635;
27744   t36527 = t2544 * t27943 * t922;
27745   t36532 = t2544 * t9608 * t2557;
27746   t36535 = t2544 * t3302 * t7542;
27747   t36537 = t27947 * t922;
27748   t36538 = t2565 * t36537;
27749   t36540 = t9589 * t2557;
27750   t36541 = t2565 * t36540;
27751   t36543 = 0.12635324133883713000e6 * t22236 * t36490 - 0.60739066045234800000e5 * t33329 * t178 * t36490 - 0.4002e1 * t36520 - 0.8004e1 * t36522 - 0.8004e1 * t36524 - 0.4002e1 * t36527 + 0.19975273835154524444e5 * t1688 * t4313 - 0.8004e1 * t36532 - 0.4002e1 * t36535 + 0.9338e1 * t36538 + 0.18676e2 * t36541;
27752   t36545 = t3309 * t7542;
27753   t36546 = t2565 * t36545;
27754   t36548 = t27959 * t922;
27755   t36549 = t4281 * t36548;
27756   t36551 = t9596 * t2557;
27757   t36552 = t4281 * t36551;
27758   t36554 = t3326 * t7542;
27759   t36555 = t4281 * t36554;
27760   t36559 = t28131 * t922;
27761   t36562 = t9880 * t2557;
27762   t36565 = t3369 * t7542;
27763   t36568 = t28135 * t922;
27764   t36571 = t9888 * t2557;
27765   t36574 = t3375 * t7542;
27766   t36577 = 0.9338e1 * t36546 - 0.5336e1 * t36549 - 0.10672e2 * t36552 - 0.5336e1 * t36555 - 0.11588284492335600e5 * t8266 * t4310 - 0.290259408898000e3 * t2777 * t36559 - 0.580518817796000e3 * t2777 * t36562 - 0.290259408898000e3 * t2777 * t36565 + 0.116103763559200e3 * t4334 * t36568 + 0.232207527118400e3 * t4334 * t36571 + 0.116103763559200e3 * t4334 * t36574;
27767   t36590 = t28441 * t922;
27768   t36593 = t9894 * t2557;
27769   t36596 = t3456 * t7542;
27770   t36605 = -0.186479588735370e3 * t2785 * t36559 - 0.372959177470740e3 * t2785 * t36562 - 0.186479588735370e3 * t2785 * t36565 + 0.275279392895070e3 * t2791 * t36568 + 0.550558785790140e3 * t2791 * t36571 + 0.275279392895070e3 * t2791 * t36574 - 0.106559764991640e3 * t4342 * t36590 - 0.213119529983280e3 * t4342 * t36593 - 0.106559764991640e3 * t4342 * t36596 + 0.71765856092574e2 * t2799 * t36568 + 0.143531712185148e3 * t2799 * t36571 + 0.71765856092574e2 * t2799 * t36574;
27771   t36614 = t28452 * t922;
27772   t36617 = t9900 * t2557;
27773   t36620 = t3467 * t7542;
27774   t36633 = -0.104130850016676e3 * t2805 * t36590 - 0.208261700033352e3 * t2805 * t36593 - 0.104130850016676e3 * t2805 * t36596 + 0.39400862168472e2 * t4349 * t36614 + 0.78801724336944e2 * t4349 * t36617 + 0.39400862168472e2 * t4349 * t36620 - 0.133366650e2 * t2742 * t36537 - 0.266733300e2 * t2742 * t36540 - 0.133366650e2 * t2742 * t36545 + 0.231168860e2 * t2748 * t36548 + 0.462337720e2 * t2748 * t36551;
27775   t36636 = t28432 * t922;
27776   t36639 = t9874 * t2557;
27777   t36642 = t3363 * t7542;
27778   t36653 = t12620 * t1472;
27779   t36656 = t12620 * t22909;
27780   t36661 = 0.231168860e2 * t2748 * t36554 - 0.106693320e2 * t4356 * t36636 - 0.213386640e2 * t4356 * t36639 - 0.106693320e2 * t4356 * t36642 - 0.9738054195240e1 * t2813 * t36590 - 0.19476108390480e2 * t2813 * t36593 + 0.383142419745360e3 * t2770 * t36639 + 0.191571209872680e3 * t2770 * t36642 + 0.36363519803397150000e5 * t22176 * t36653 - 0.13985969155152750000e5 * t17905 * t36656 - 0.74835953794390140000e4 * t22484 * t36653;
27781   t36688 = 0.33260423908617840000e4 * t22934 * t36656 + 0.45514264296003360000e4 * t32445 * t36653 - 0.20688301952728800000e4 * t32449 * t36656 - 0.9738054195240e1 * t2813 * t36596 + 0.13957877679844e2 * t2819 * t36614 + 0.27915755359688e2 * t2819 * t36617 + 0.13957877679844e2 * t2819 * t36620 - 0.5193628904128e1 * t4316 * t28969 * t922 - 0.10387257808256e2 * t4316 * t10102 * t2557 - 0.5193628904128e1 * t4316 * t3504 * t7542 - 0.47742235275528e2 * t2756 * t36548;
27782   t36707 = -0.95484470551056e2 * t2756 * t36551 - 0.47742235275528e2 * t2756 * t36554 + 0.75591872519586e2 * t2762 * t36636 + 0.151183745039172e3 * t2762 * t36639 + 0.75591872519586e2 * t2762 * t36642 - 0.31828156850352e2 * t4326 * t36559 - 0.63656313700704e2 * t4326 * t36562 - 0.31828156850352e2 * t4326 * t36565 + 0.191571209872680e3 * t2770 * t36636 - t32121 + t32123 - t32126;
27783   t36711 = t32129 - t32132 + t32149 - t32151 + t32153 - t32155 + t32158 - t32162 - t32181 + t32183 + t32186;
27784   t36713 = t32908 * t7613 * t12621;
27785   t36729 = t32227 - t32230 + t32241 + t32243 + 0.12006000000000000000e2 * t36713 - 0.19505432277945600e5 * t11658 * t17789 * t36484 + 0.24242346535598100e5 * t5135 * t590 * t36484 + 0.4305951365554440e4 * t2633 * t12827 - 0.69420566677784000000e4 * t7855 * t12830 - 0.69420566677784000000e4 * t7855 * t12833 + 0.7662848394907200e4 * t2617 * t12862;
27786   t36753 = -0.13545439081906666667e5 * t7766 * t12891 - 0.13545439081906666667e5 * t7766 * t12821 + 0.61922007231573333334e4 * t1538 * t12824 + 0.61922007231573333334e4 * t1538 * t12827 - 0.9323979436768500e4 * t2625 * t12891 - 0.9323979436768500e4 * t2625 * t12821 - 0.35564440000000000000e3 * t1522 * t12862 - 0.681663793666800e3 * t2641 * t12830 + 0.15599165597387300000e5 * t7820 * t12824 + 0.15599165597387300000e5 * t7820 * t12827 - 0.67487851161372000000e4 * t1546 * t12830;
27787   t36778 = -0.67487851161372000000e4 * t1546 * t12833 + 0.4305951365554440e4 * t2633 * t12824 + 0.6934551741651072e4 * t32525 * t36656 + 0.3200799600e3 * t22501 * t36653 - 0.1600399800e3 * t17832 * t36656 - 0.11096105280e4 * t22516 * t36653 + 0.5548052640e3 * t22929 * t36656 + 0.8535465600e3 * t32420 * t36653 - 0.4267732800e3 * t32424 * t36656 - 0.43280240867733333334e3 * t12798 * t12880 - 0.1432267058265840e4 * t2610 * t12644 - 0.1432267058265840e4 * t2610 * t12647;
27788   t36803 = 0.27717019923848200000e4 * t7808 * t12859 + 0.28893965590212800000e4 * t1555 * t12845 + 0.28893965590212800000e4 * t1555 * t12848 - 0.2667333000e3 * t2570 * t12638 - 0.2667333000e3 * t2570 * t12641 + 0.61645029333333333334e3 * t7776 * t12644 + 0.61645029333333333334e3 * t7776 * t12647 - 0.35564440000000000000e3 * t1522 * t12859 + 0.62436294800539380e5 * t8234 * t4335 + 0.27717019923848200000e4 * t7808 * t12862 - 0.13792201301819200000e4 * t1530 * t12891;
27789   t36816 = -0.13792201301819200000e4 * t1530 * t12821 + 0.7662848394907200e4 * t2617 * t12859 - 0.681663793666800e3 * t2641 * t12833 + 0.10701039554547066667e4 * t7899 * t12845 + 0.10701039554547066667e4 * t7899 * t12848 - 0.43280240867733333334e3 * t12798 * t12877 + t32244 + t32245 - t32246 + t32247 - t32248;
27790   t36826 = t32249 + t32251 + t32252 - t32253 - t32254 - t32255 - t32256 - 0.12002998500e4 * t7506 * t4278 - 0.10348137178077040000e6 * t5589 * t4310 - 0.11222991612908413333e6 * t1680 * t4310 + 0.51527571969212826667e5 * t5548 * t4313;
27791   t36850 = t3326 * t22177;
27792   t36851 = t32232 * t36850;
27793   t36853 = -0.27858811333333333333e4 * t5576 * t4323 - 0.15125740308129111111e6 * t1664 * t4327 - 0.88003156431057777779e4 * t33429 * t3912 * t4317 - 0.10025869407860880e5 * t8249 * t4282 + 0.24021417267335106667e5 * t1656 * t4323 + 0.38014434755555555556e4 * t1649 * t4282 - 0.111887753241222000e6 * t8195 * t4327 + 0.21318859649762643333e6 * t1672 * t4335 - 0.14251941345213173333e5 * t5561 * t4327 + 0.72797059751618400e5 * t8260 * t4323 + 0.79466575947185777779e5 * t5535 * t4335 - 0.106720e3 * t36851;
27794   t36858 = t3369 * t22172;
27795   t36859 = t4281 * t36858;
27796   t36862 = t2544 * t3326 * t22172;
27797   t36864 = t3309 * t22177;
27798   t36865 = t23898 * t36864;
27799   t36867 = t7568 * t12657;
27800   t36869 = t3363 * t22172;
27801   t36870 = t2565 * t36869;
27802   t36872 = t3369 * t22177;
27803   t36875 = t3456 * t22172;
27804   t36878 = t3363 * t22177;
27805   t36881 = t3375 * t22172;
27806   t36888 = -0.64032e2 * t36859 - 0.8004e1 * t36862 + 0.56028e2 * t36865 - 0.31126666666666666666e3 * t36867 + 0.56028e2 * t36870 - 0.3501097253538720e4 * t32721 * t36872 - 0.954844705510560e3 * t4326 * t36875 + 0.17241408888541200e5 * t23161 * t36878 + 0.3831424197453600e4 * t2770 * t36881 - 0.38314241974536000e5 * t23128 * t36872 - 0.8707782266940000e4 * t2777 * t36875;
27807   t36907 = t3456 * t22163;
27808   t36910 = t3467 * t22167;
27809   t36915 = -0.2627976225488768e4 * t33041 * t3504 * t22177 - 0.467426601371520e3 * t4316 * t28092 * t22172 - 0.2005173881572176e4 * t23156 * t36850 - 0.572906823306336e3 * t2756 * t36858 + 0.5442614821410192e4 * t23136 * t36878 + 0.1511837450391720e4 * t2762 * t36881 - 0.12951612079669200e5 * t11292 * t12914 + 0.4771646555667600e4 * t2641 * t12917 - 0.185023029709560e3 * t7972 * t36907 + 0.68166379366680e2 * t2813 * t36910 + 0.22472183064548840000e5 * t11302 * t12922;
27810   t36917 = t3467 * t22163;
27811   t36920 = 0.293115431276724e3 * t7978 * t36917 + t32258 + t32269 + t32272 - t32277 - t32280 - t32299 - t32301 + t32329 + t32331 - t32342;
27812   t36921 = t5602 * t4282;
27813   t36923 = t16867 * t4275;
27814   t36925 = t1470 * t12632;
27815   t36927 = t1443 * t4278;
27816   t36929 = t1470 * t12635;
27817   t36931 = t7568 * t12638;
27818   t36933 = t7568 * t12641;
27819   t36935 = t1513 * t12644;
27820   t36937 = t1513 * t12647;
27821   t36939 = t4854 * t4275;
27822   t36941 = t3504 * t22172;
27823   t36944 = -t32346 - 0.66403555555555555556e3 * t36921 - 0.40020e2 * t36923 - 0.40020e2 * t36925 + 0.57065555555555555556e3 * t36927 - 0.40020e2 * t36929 + 0.15563333333333333333e3 * t36931 + 0.15563333333333333333e3 * t36933 - 0.12450666666666666667e3 * t36935 - 0.12450666666666666667e3 * t36937 - 0.80040e2 * t36939 - 0.545331034933440e3 * t2813 * t36941;
27824   t36947 = t3467 * t22177;
27825   t36950 = t3375 * t22177;
27826   t36953 = t3467 * t22172;
27827   t36960 = t3456 * t22177;
27828   t36963 = t3369 * t22197;
27829   t36966 = t9880 * t7604;
27830   t36969 = t9888 * t12656;
27831   t36972 = t3369 * t22156;
27832   t36975 = t3375 * t22197;
27833   t36978 = 0.5862308625534480e4 * t22860 * t36947 + 0.21130884967774400e5 * t32695 * t36950 + 0.4876358069486400e4 * t4334 * t36953 - 0.29090815842717720e5 * t22899 * t36872 - 0.5594387662061100e4 * t2785 * t36875 - 0.3330414534772080e4 * t22905 * t36960 - 0.1532569678981440e4 * t2770 * t36963 - 0.6966225813552000e4 * t7990 * t36966 + 0.2902594088980000e4 * t2777 * t36969 - 0.6966225813552000e4 * t7990 * t36972 + 0.2902594088980000e4 * t2777 * t36975;
27834   t36979 = t9888 * t7604;
27835   t36982 = t9894 * t12656;
27836   t36985 = t3375 * t22156;
27837   t36988 = t3456 * t22197;
27838   t36995 = t9894 * t7604;
27839   t36998 = t9900 * t12656;
27840   t37001 = t3456 * t22156;
27841   t37004 = t3467 * t22197;
27842   t37009 = 0.3250905379657600e4 * t11659 * t36979 - 0.1393245162710400e4 * t4334 * t36982 + 0.3250905379657600e4 * t11659 * t36985 - 0.1393245162710400e4 * t4334 * t36988 - 0.4848469307119620e4 * t7948 * t36966 + 0.1864795887353700e4 * t2785 * t36969 - 0.3623032009715760e4 * t11588 * t36995 + 0.1491836709882960e4 * t4342 * t36998 - 0.3623032009715760e4 * t11588 * t37001 + 0.1491836709882960e4 * t4342 * t37004 + 0.2296507394962368e4 * t7931 * t36979;
27843   t37023 = t3363 * t22156;
27844   t37026 = -0.861190273110888e3 * t2799 * t36982 + 0.2296507394962368e4 * t7931 * t36985 - 0.861190273110888e3 * t2799 * t36988 - 0.3748710600600336e4 * t7965 * t36995 + 0.1457831900233464e4 * t2805 * t36998 - 0.3748710600600336e4 * t7965 * t37001 + 0.3831424197453600e4 * t7983 * t37023 + t32347 - t32348 - t32352 - t32372;
27845   t37028 = t1181 * t2557 * t1425;
27846   t37031 = t3314 * t922;
27847   t37032 = t37031 * t1425;
27848   t37051 = t32374 + t32386 - 0.2298854518472160e4 * t7712 * t37028 + 0.4063631724572000e4 * t7719 * t37032 + 0.4063631724572000e4 * t7719 * t37028 - 0.1857660216947200e4 * t12751 * t37032 - 0.1857660216947200e4 * t12751 * t37028 + 0.27971938310305500000e4 * t8285 * t37032 + 0.42968011747975200000e3 * t7699 * t37028 - 0.83151059771544600000e3 * t7705 * t37032 - 0.83151059771544600000e3 * t7705 * t37028 + 0.41376603905457600000e3 * t12996 * t37032;
27849   t37077 = 0.41376603905457600000e3 * t12996 * t37028 - 0.2298854518472160e4 * t7712 * t37032 + 0.27971938310305500000e4 * t8285 * t37028 - 0.46797496792161900000e4 * t8291 * t37032 - 0.46797496792161900000e4 * t8291 * t37028 + 0.20246355348411600000e4 * t12759 * t37032 + 0.20246355348411600000e4 * t12759 * t37028 - 0.1291785409666332e4 * t8298 * t37032 - 0.1291785409666332e4 * t8298 * t37028 + 0.2082617000333520e4 * t8304 * t37032 + 0.2082617000333520e4 * t8304 * t37028;
27850   t37100 = -0.866818967706384e3 * t12766 * t37032 - 0.866818967706384e3 * t12766 * t37028 + 0.800199900e2 * t7686 * t37032 + 0.800199900e2 * t7686 * t37028 - 0.1849350880e3 * t7692 * t37032 - 0.1849350880e3 * t7692 * t37028 + 0.853546560e2 * t4356 * t36963 - 0.4848469307119620e4 * t7948 * t36972 + 0.1864795887353700e4 * t2785 * t36975 + 0.8258381786852100e4 * t7922 * t36979 - 0.3303352714740840e4 * t2791 * t36982;
27851   t37106 = t9589 * t7604;
27852   t37109 = t9596 * t12656;
27853   t37112 = t3309 * t22156;
27854   t37115 = t3326 * t22197;
27855   t37118 = t9596 * t7604;
27856   t37121 = t9874 * t12656;
27857   t37124 = t3326 * t22156;
27858   t37127 = t3363 * t22197;
27859   t37130 = t9874 * t7604;
27860   t37133 = 0.8258381786852100e4 * t7922 * t36985 - 0.3303352714740840e4 * t2791 * t36988 - 0.1066933200e3 * t7940 * t37106 + 0.533466600e2 * t2742 * t37109 - 0.1066933200e3 * t7940 * t37112 + 0.533466600e2 * t2742 * t37115 + 0.2774026320e3 * t7996 * t37118 - 0.1387013160e3 * t2748 * t37121 + 0.2774026320e3 * t7996 * t37124 - 0.1387013160e3 * t2748 * t37127 - 0.1707093120e3 * t11693 * t37130;
27861   t37134 = t9880 * t12656;
27862   t37139 = 0.853546560e2 * t4356 * t37134 - 0.1707093120e3 * t11693 * t37023 - t32392 + t32430 - t32432 - t32441 + t32443 - t32457 + t32469 - t32471 + t32487 - t32493;
27863   t37142 = -t32501 + t32503 + t32511 + t32517 - t32519 + t32531 + t32533 - t32536 + t32538 - t32550 + t32552;
27864   t37145 = t9900 * t7604;
27865   t37148 = t10102 * t12656;
27866   t37151 = t3467 * t22156;
27867   t37154 = t3504 * t22197;
27868   t37166 = -t32556 - t32564 + t32566 + 0.136332758733360e3 * t2813 * t37004 + 0.586230862553448e3 * t7978 * t37145 - 0.223326042877504e3 * t2819 * t37148 + 0.586230862553448e3 * t7978 * t37151 - 0.223326042877504e3 * t2819 * t37154 - 0.238906929589888e3 * t11559 * t10102 * t7604 + 0.93485320274304e2 * t4316 * t28238 * t12656 - 0.238906929589888e3 * t11559 * t3504 * t22156;
27869   t37191 = 0.93485320274304e2 * t4316 * t10191 * t22197 - 0.668391293857392e3 * t7952 * t37118 + 0.286453411653168e3 * t2756 * t37121 - 0.668391293857392e3 * t7952 * t37124 + 0.286453411653168e3 * t2756 * t37127 + 0.1360653705352548e4 * t7960 * t37130 + 0.1457831900233464e4 * t2805 * t37004 + 0.1576034486738880e4 * t11645 * t37145 - 0.630413794695552e3 * t4349 * t37148 + 0.1576034486738880e4 * t11645 * t37151 - 0.630413794695552e3 * t4349 * t37154;
27870   t37216 = -0.11472934697433240000e6 * t5648 * t12914 + 0.47241495812960400000e5 * t1546 * t12917 - 0.1811516004857880e4 * t11588 * t36907 + 0.745918354941480e3 * t4342 * t36910 + 0.68895221848871040e5 * t11359 * t12941 - 0.25835708193326640e5 * t2633 * t12944 - 0.604734980156688e3 * t2762 * t37134 + 0.1360653705352548e4 * t7960 * t37023 - 0.604734980156688e3 * t2762 * t36963 - 0.700219450707744e3 * t11613 * t36966 + 0.318281568503520e3 * t4326 * t36969 - 0.700219450707744e3 * t11613 * t36972;
27871   t37240 = t3504 * t22167;
27872   t37245 = 0.318281568503520e3 * t4326 * t36975 + 0.3831424197453600e4 * t7983 * t37130 - 0.1532569678981440e4 * t2770 * t37134 - 0.370046059419120e3 * t7972 * t36995 + 0.136332758733360e3 * t2813 * t36998 - 0.370046059419120e3 * t7972 * t37001 + 0.57787931180425600000e5 * t5627 * t12922 - 0.23115172472170240000e5 * t1555 * t12964 + 0.788017243369440e3 * t11645 * t36917 - 0.315206897347776e3 * t4349 * t37240 - 0.10669332000e4 * t11170 * t12669;
27873   t37248 = t3375 * t22163;
27874   t37251 = t3456 * t22167;
27875   t37264 = t3363 * t22163;
27876   t37267 = t3309 * t22163;
27877   t37270 = t3326 * t22167;
27878   t37273 = 0.5334666000e3 * t2570 * t12657 + 0.4129190893426050e4 * t7922 * t37248 - 0.1651676357370420e4 * t2791 * t37251 - 0.430595136555444e3 * t2799 * t37251 - 0.12495702002001120000e6 * t11377 * t12914 + 0.48594396674448800000e5 * t7855 * t12917 - 0.1874355300300168e4 * t7965 * t36907 + 0.728915950116732e3 * t2805 * t36910 + 0.680326852676274e3 * t7960 * t37264 - 0.533466600e2 * t7940 * t37267 + 0.266733300e2 * t2742 * t37270;
27879   t37279 = t3326 * t22163;
27880   t37282 = t3363 * t22167;
27881   t37291 = t3369 * t22167;
27882   t37300 = 0.36987017600000000000e4 * t11180 * t12660 - 0.18493508800000000000e4 * t7776 * t12663 + 0.1387013160e3 * t7996 * t37279 - 0.693506580e2 * t2748 * t37282 - 0.28451552000000000000e4 * t5505 * t12931 + 0.14225776000000000000e4 * t1522 * t12934 - 0.853546560e2 * t11693 * t37264 + 0.426773280e2 * t4356 * t37291 + 0.1148253697481184e4 * t7931 * t37248 - 0.16254526898288000000e6 * t11394 * t12925 + 0.67727195409533333333e5 * t7766 * t12928;
27883   t37325 = t3369 * t22163;
27884   t37328 = -0.111663021438752e3 * t2819 * t37240 - 0.99544553995786666667e4 * t32164 * t12967 + 0.38952216780960000000e4 * t12798 * t12970 - 0.119453464794944e3 * t11559 * t3504 * t22163 + 0.46742660137152e2 * t4316 * t10191 * t22167 - 0.10025869407860880e5 * t11328 * t12660 + 0.4296801174797520e4 * t2610 * t12663 - 0.334195646928696e3 * t7952 * t37279 + 0.143226705826584e3 * t2756 * t37282 + 0.24945317931463380000e5 * t11336 * t12931 - 0.11086807969539280000e5 * t7808 * t12934 - 0.2424234653559810e4 * t7948 * t37325;
27885   t37331 = t3375 * t22167;
27886   t37352 = 0.932397943676850e3 * t2785 * t37331 - 0.302367490078344e3 * t2762 * t37291 - 0.15171421432001120000e5 * t5514 * t12925 + 0.68961006509096000000e4 * t1530 * t12928 - 0.350109725353872e3 * t11613 * t37325 + 0.159140784251760e3 * t4326 * t37331 + 0.76628483949072000e5 * t11386 * t12931 - 0.30651393579628800e5 * t2617 * t12934 + 0.1915712098726800e4 * t7983 * t37264 - 0.766284839490720e3 * t2770 * t37291 - t32575;
27887   t37353 = t32576 + t32577 - t32580 - t32599 + t32600 + t32601 - t32602 + t32603 + t32604 - t32605 - t32606;
27888   t37355 = -t32607 + t32608 - t32610 + t32611 + t32690 - t32693 + t32719 + t32726 + t32729 - t32736 - t32739;
27889   t37372 = t32745 + t32747 - t32754 - t32756 - 0.3483112906776000e4 * t7990 * t37325 + 0.1451297044490000e4 * t2777 * t37331 + 0.86690810124202666667e5 * t5639 * t12941 - 0.37153204338944000000e5 * t1538 * t12944 + 0.1625452689828800e4 * t11659 * t37248 - 0.696622581355200e3 * t4334 * t37251 - 0.121211732677990500e6 * t11342 * t12925 + 0.46619897183842500e5 * t2625 * t12928;
27890   t37386 = t2565 * t37115;
27891   t37388 = t11212 * t37118;
27892   t37390 = t4281 * t37121;
27893   t37392 = t11212 * t37124;
27894   t37394 = t4281 * t37127;
27895   t37396 = t2565 * t37270;
27896   t37398 = -0.93594993584323800000e5 * t7820 * t12944 + 0.11561734501592940e5 * t2791 * t36953 - 0.28984256077726080e5 * t33486 * t36960 - 0.5967346839531840e4 * t4342 * t36941 + 0.17223805462217760e5 * t22884 * t36950 - 0.37352e2 * t37386 - 0.53360e2 * t37388 + 0.32016e2 * t37390 - 0.53360e2 * t37392 + 0.32016e2 * t37394 - 0.18676e2 * t37396;
27897   t37399 = t5657 * t12660;
27898   t37401 = t1513 * t12663;
27899   t37403 = t11212 * t37279;
27900   t37405 = t12628 * t12666;
27901   t37411 = t4281 * t37282;
27902   t37413 = t1470 * t12666;
27903   t37416 = t2544 * t3309 * t22167;
27904   t37418 = t23808 * t12669;
27905   t37420 = t7592 * t37267;
27906   t37422 = -0.62253333333333333334e3 * t37399 + 0.37352000000000000000e3 * t37401 - 0.26680e2 * t37403 + 0.8004e1 * t37405 + 0.23398748396080950000e6 * t11352 * t12941 + 0.57808672507964700e5 * t22877 * t36950 + 0.16008e2 * t37411 + 0.40020e2 * t37413 + 0.4002e1 * t37416 + 0.46690000000000000000e3 * t37418 + 0.28014e2 * t37420;
27907   t37425 = t2544 * t9589 * t12656;
27908   t37428 = t2544 * t3309 * t22197;
27909   t37430 = t7592 * t37106;
27910   t37432 = t2565 * t37109;
27911   t37434 = t7592 * t37112;
27912   t37442 = t10191 * t22172;
27913   t37449 = 0.8004e1 * t37425 + 0.8004e1 * t37428 + 0.56028e2 * t37430 - 0.37352e2 * t37432 + 0.56028e2 * t37434 - 0.31864040105102856e5 * t23141 * t36960 - 0.5831327600933856e4 * t2805 * t36941 + 0.14972327624019360e5 * t33048 * t36947 + 0.2836862076129984e4 * t4349 * t37442 - 0.1600399800e3 * t22889 * t36864 - 0.800199900e2 * t2742 * t36869;
27914   t37464 = 0.6935065800e3 * t23150 * t36850 + 0.2774026320e3 * t2748 * t36858 - 0.5974825920e3 * t32749 * t36878 - 0.2133866400e3 * t4356 * t36881 - 0.85608316436376533333e4 * t7899 * t12964 + 0.1004967192948768e4 * t2819 * t37442 + 0.3014165955888108e4 * t2799 * t36953 - t32761 + t32762 + t32775 + t32782 - t32788;
27915   t37467 = -t32791 + t32801 + t32804 - t32823 - t32825 + t32831 - t32836 + t32839 + t32860 + t32903 + t32907;
27916   t37489 = -0.12608275893911040e5 * t11644 * t17782 * t36484 + 0.2133866400e3 * t5182 * t564 * t36484 - 0.8322078960e3 * t7995 * t32359 * t36484 + 0.6828372480e3 * t11692 * t17772 * t36484 - 0.4689846900427584e4 * t7977 * t32524 * t36484 - 0.13779044369774208e5 * t5170 * t599 * t36484 + 0.26240974204202352e5 * t7964 * t32543 * t36484 - t3891 - t3900 + t3906 - t3919;
27917   t37494 = t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.2590322415933840e4 * t5157 * t610 * t36484;
27918   t37504 = t17876 * t12621;
27919   t37506 = t22413 * t12621;
27920   t37508 = t22435 * t12621;
27921   t37510 = 0.72256362128680800000e4 * t22519 * t12621 - 0.12413205883274597333e5 * t22530 * t12621 + 0.54533103493344000001e4 * t32307 * t12738 * t12621 + 0.65884284680228640000e4 * t22469 * t12621 + 0.44822400000000000000e3 * t37504 + 0.64032000000000000000e2 * t37506 - 0.40464666666666666667e3 * t37508 - t32942 + t32954 + t32967 + t32968 + t32983;
27922   t37515 = t17094 * t36656;
27923   t37517 = -t32997 - t33002 - t33014 + t33019 + t33021 + t33029 + t33035 + t33039 - t33046 - t33054 - 0.12006000000000000000e2 * t37515;
27924   t37518 = t22419 * t36653;
27925   t37520 = t22913 * t36656;
27926   t37522 = t7614 * t37032;
27927   t37524 = t7614 * t37028;
27928   t37526 = t7603 * t37032;
27929   t37528 = t7603 * t37028;
27930   t37530 = -0.14007000000000000000e3 * t37518 + 0.93380000000000000000e2 * t37520 - t33058 - t33063 - t33065 + t33078 + t33081 + 0.12006000000000000000e2 * t37522 + 0.12006000000000000000e2 * t37524 - 0.46690000000000000000e2 * t37526 - 0.46690000000000000000e2 * t37528;
27931   t37532 = t12619 * t37032;
27932   t37534 = t12619 * t37028;
27933   t37537 = t33380 * t127 * t36490;
27934   t37539 = t22540 * t36490;
27935   t37541 = t22423 * t36490;
27936   t37545 = t7591 * t928 * t126 * t36484;
27937   t37548 = t11211 * t17760 * t36484;
27938   t37563 = 0.37352000000000000000e2 * t37532 + 0.37352000000000000000e2 * t37534 - 0.44822400000000000000e3 * t37537 - 0.72036000000000000000e2 * t37539 + 0.42021000000000000000e3 * t37541 - 0.112056e3 * t37545 + 0.160080e3 * t37548 + 0.2150162366308992e4 * t11558 * t3912 * t5119 * t36484 + 0.2005173881572176e4 * t5149 * t572 * t36484 - 0.5442614821410192e4 * t7959 * t32423 * t36484 + 0.3501097253538720e4 * t11612 * t17898 * t36484;
27939   t37570 = -0.15325696789814400e5 * t5192 * t581 * t36484 + 0.34831129067760000e5 * t7989 * t32448 * t36484 + t33087 - t33088 - t33089 + t33090 + t33091 - t33092 + t33093 - t33094 + t33097 - t33098;
27940   t37573 = t33099 - t33100 - t33101 - t33102 + t33103 - t33104 + t33105 - t33106 + t33107 + t33108 - t33109;
27941   t37592 = -t33110 + t33111 + 0.44827663110207120e5 * t22304 * t36490 - 0.91431713802870000e5 * t22310 * t36490 + 0.1066933200e3 * t12773 * t37032 + 0.1066933200e3 * t12773 * t37028 + 0.20449913810004000000e3 * t7671 * t37032 + 0.20449913810004000000e3 * t7671 * t37028 - 0.32103118663641200000e3 * t7678 * t37032 - 0.32103118663641200000e3 * t7678 * t37028 + 0.12984072260320000000e3 * t12739 * t37032;
27942   t37617 = 0.12984072260320000000e3 * t12739 * t37028 + 0.42968011747975200000e3 * t7699 * t37032 + 0.14967190758878028000e5 * t22297 * t36490 - 0.86890868201460960000e4 * t33140 * t151 * t36490 - 0.70196245188242850000e5 * t22275 * t36653 + 0.28078498075297140000e5 * t22920 * t36656 + 0.34418804092299720000e5 * t32540 * t36653 - 0.14172448743888120000e5 * t32544 * t36656 - 0.20668566554661312e5 * t22281 * t36653 + 0.7750712457997992e4 * t17820 * t36656 + 0.37487106006003360e5 * t22182 * t36653;
27943   t37634 = -0.14578319002334640e5 * t22942 * t36656 - 0.17336379354127680e5 * t32521 * t36653 - 0.22988545184721600e5 * t22558 * t36653 + 0.9195418073888640e4 * t17858 * t36656 + 0.48763580694864000e5 * t22571 * t36653 - 0.20318158622860000e5 * t22926 * t36656 - 0.26007243037260800e5 * t32459 * t36653 + 0.11145961301683200e5 * t32463 * t36656 + t33113 - t33116 + t33119 + t33139;
27944   t37654 = t33146 - t33152 - t33159 + 0.38854836239007600000e4 * t22522 * t36653 - 0.14314939667002800000e4 * t17885 * t36656 - 0.67416549193646520000e4 * t22488 * t36653 + 0.25682494930912960000e4 * t22937 * t36656 + 0.29863366198736000000e4 * t32568 * t36653 - 0.11685665034288000000e4 * t32572 * t36656 + 0.30077608223582640000e4 * t22472 * t36653 - 0.12890403524392560000e4 * t17844 * t36656;
27945   t37655 = t32354 * t36653;
27946   t37657 = t32360 * t36656;
27947   t37659 = 0.18676000000000000000e3 * t37655 - 0.11205600000000000000e3 * t37657 + t33203 - t33215 - t33218 - t33222 + t33225 - t33229 - t33231 + t33234 - t33240;
27948   t37661 = t33242 - t33244 + t33246 - t33253 - t33255 + t33259 - t33261 + t33263 - t33265 + t33281 - t33283;
27949   t37677 = t33285 - t33287 - t33301 - t33305 - t33313 + 0.36815884175490462e5 * t22246 * t36490 - 0.65602435510505880e5 * t22253 * t36490 + 0.29905254385870248e5 * t33341 * t7677 * t36490 + 0.82687323000000000000e3 * t22498 * t12621 - 0.25274462026666666667e4 * t22512 * t12621 + 0.18137864400000000000e4 * t17879 * t12621 - 0.13415282413753078000e6 * t22204 * t12621;
27950   t37700 = 0.64788337114917120000e5 * t17873 * t12621 - 0.39184157426545404000e5 * t22219 * t12621 + 0.70114772344561840000e5 * t22192 * t12621 - 0.32072301805136208000e5 * t17867 * t12621 - 0.46743375208933920000e5 * t22555 * t12621 + 0.96172617481537333333e5 * t22567 * t12621 - 0.50156825857574400001e5 * t17870 * t12621 + 0.70862243719440600000e5 * t22232 * t12621 - 0.15521531157354992000e5 * t22480 * t12621 + 0.91028528592006720000e4 * t17882 * t12621 + t33319;
27951   t37701 = -t33325 + t33328 + t33334 - t33340 - t33347 + t33353 - t33362 - t33367 - t33379 + t33385 - t33396;
27952   t37703 = t33403 - t33408 + t33415 - t33438 + t33444 - t33446 + t33449 - t33452 - t33468 + t33470 - t33473;
27953   t37704 = t33476 + t33482 + t33484 - t33496 - t33498 - t33504 + t33506 + t33521 - t33523 + t33535 - t33549 + t33551;
27954   t37711 = t3529 * t7639;
27955   t37714 = t3529 * t7647;
27956   t37717 = t13044 * t1486;
27957   t37720 = t4285 * t1490;
27958   t37721 = t37720 * t184;
27959   t37724 = t12673 * t184;
27960   t37725 = t37724 * t466;
27961   t37728 = t3529 * t7620;
27962   t37731 = t10253 * t2582;
27963   t37734 = t29394 * t933;
27964   t37737 = t10253 * t2593;
27965   t37746 = t9677 * t2836;
27966   t37749 = -0.24e2 * t23950 * t37714 - 0.12e2 * t24086 * t37714 - 0.2e1 * t2835 * t37717 - 0.4e1 * t2835 * t37725 - 0.2e1 * t2835 * t37728 - 0.4e1 * t2835 * t37731 - 0.2e1 * t2835 * t37734 + 0.12e2 * t8315 * t37711 + 0.12e2 * t8323 * t37711 + 0.6e1 * t8323 * t37721 + 0.12e2 * t8315 * t37737 + 0.12e2 * t8323 * t37737 + 0.6e1 * t8323 * t37746;
27967   t37772 = -0.6e1 * t36520 - 0.12e2 * t36522 - 0.12e2 * t36524 - 0.6e1 * t36527 - 0.12e2 * t36532 - 0.6e1 * t36535 + 0.14e2 * t36538 + 0.28e2 * t36541 + 0.14e2 * t36546 - 0.8e1 * t36549 - 0.16e2 * t36552 - 0.8e1 * t36555;
27968   t37783 = t33580 - t33581 + t33584 + 0.18e2 * t36713 - 0.160e3 * t36851 - 0.96e2 * t36859 - 0.12e2 * t36862 + 0.84e2 * t36865 - 0.1400e4 / 0.3e1 * t36867 + 0.84e2 * t36870 - 0.8960e4 / 0.9e1 * t36921 - 0.60e2 * t36923 - 0.60e2 * t36925;
27969   t37792 = 0.7700e4 / 0.9e1 * t36927 - 0.60e2 * t36929 + 0.700e3 / 0.3e1 * t36931 + 0.700e3 / 0.3e1 * t36933 - 0.560e3 / 0.3e1 * t36935 - 0.560e3 / 0.3e1 * t36937 - 0.120e3 * t36939 + t33585 - t33586 - t33587 - t33593 + t33594 + t33600;
27970   t37802 = -t33601 + t33602 + t33603 - t33605 - 0.56e2 * t37386 - 0.80e2 * t37388 + 0.48e2 * t37390 - 0.80e2 * t37392 + 0.48e2 * t37394 - 0.28e2 * t37396 - 0.2800e4 / 0.3e1 * t37399 + 0.560e3 * t37401 - 0.40e2 * t37403;
27971   t37816 = 0.12e2 * t37405 + 0.24e2 * t37411 + 0.60e2 * t37413 + 0.6e1 * t37416 + 0.700e3 * t37418 + 0.42e2 * t37420 + 0.12e2 * t37425 + 0.12e2 * t37428 + 0.84e2 * t37430 - 0.56e2 * t37432 + 0.84e2 * t37434 - t33609;
27972   t37824 = t33610 + t33620 + t33621 - t3854 + t3862 + 0.672e3 * t37504 + 0.96e2 * t37506 - 0.1820e4 / 0.3e1 * t37508 - 0.18e2 * t37515 - 0.210e3 * t37518 + 0.140e3 * t37520 - t33624 + 0.18e2 * t37522;
27973   t37838 = 0.18e2 * t37524 - 0.70e2 * t37526 - 0.70e2 * t37528 + 0.56e2 * t37532 + 0.56e2 * t37534 - 0.672e3 * t37537 - 0.108e3 * t37539 + 0.630e3 * t37541 - 0.168e3 * t37545 + 0.240e3 * t37548 + 0.280e3 * t37655 - 0.168e3 * t37657 + t33625;
27974   t37839 = -t33629 - t33630 - t33631 - t33634 + t33636 + t33649 - t33650 + t33651 - t33652 - t33660 + t33661 - t33662 + t33663;
27975   t37842 = t37772 + t37783 + t37792 + t37802 + t37816 + t37824 + t37838 + t37839;
27976   t37856 = t184 * t37842 * t616 * t617 - t24084 * t37714 - 0.36e2 * t24093 * t37714 - t2843 * t37717 - 0.2e1 * t2843 * t37725 - t2843 * t37728 - 0.2e1 * t2843 * t37731 - t2843 * t37734 + 0.2e1 * t8335 * t37711 + 0.6e1 * t8315 * t37721 + t8335 * t37721 + 0.2e1 * t8335 * t37737 + 0.6e1 * t8315 * t37746 + t8335 * t37746;
27977   t37858 = my_piecewise3(t102, t37704 + t37701 + t37703 + t37700 + t37677 + t37661 + t37659 + t37654 + t37634 + t37617 + t37592 + t37573 + t37570 + t37563 + t37530 + t37517 + t37510 + t37494 + t37489 + t37467 + t37464 + t37449 + t37422 + t37398 + t37372 + t37353 + t37355 + t37352 + t37328 + t37300 + t37273 + t37245 + t37216 + t37191 + t37166 + t37142 + t37139 + t37133 + t37100 + t37077 + t37051 + t37026 + t37009 + t36978 + t36944 + t36920 + t36915 + t36888 + t36853 + t36826 + t36816 + t36803 + t36778 + t36753 + t36729 + t36711 + t36707 + t36688 + t36661 + t36633 + t36605 + t36577 + t36543 + t36513, t37749 + t37856);
27978   t37898 = 0.2e1 * t1369 * t1370 * t4372 + 0.1174e1 * t37858 + 0.8e1 * t12596 * t9543 + 0.8e1 * t9535 * t12590 - 0.4e1 * t12596 * t9546 + 0.2e1 * t1369 * t4308 * t1506 - 0.8e1 * t9535 * t12611 - 0.4e1 * t405 * t12614 * t621 + 0.12e2 * t9531 * t3292 * t943 * t1506 - 0.24e2 * t9531 * t9542 * t12581 + 0.24e2 * t9531 * t3292 * t2600 * t477 - 0.48e2 * t29646 * t3292 * t943 * t1370 - 0.4e1 * t405 * t12599 * t621 + 0.4e1 * t405 * t2597 * t3346 * t187 - t405 * t7654 * t1241;
27979   t37916 = t4300 * t621;
27980   t37931 = t3346 * t1027;
27981   t37935 = t1194 * t2846;
27982   t37944 = 0.2e1 * t187 * t405 * t940 * t9685 - t10270 * t405 * t943 + 0.12e2 * t12610 * t1370 * t9531 + 0.4e1 * t12714 * t1506 * t3291 + 0.4e1 * t12730 * t1369 * t477 + 0.4e1 * t12732 * t1369 * t477 - 0.2e1 * t13056 * t405 * t477 - 0.2e1 * t2600 * t3538 * t405 + 0.8e1 * t29641 * t3291 * t943 - 0.4e1 * t29650 * t3291 * t943 + 0.8e1 * t3291 * t37916 * t477 + 0.8e1 * t3291 * t37931 * t477 + 0.8e1 * t3291 * t37935 * t477 - t101 * t37858 + 0.8e1 * t9535 * t12715;
27983   t37976 = t12706 * t187;
27984   t37985 = t1369 * t2597;
27985   t37988 = -0.12e2 * t9531 * t12714 * t1370 - t405 * t1506 * t4372 - 0.2e1 * t405 * t4301 * t1846 + 0.24e2 * t9531 * t9538 * t12581 + 0.24e2 * t29658 * t12582 - 0.4e1 * t405 * t12603 * t621 - 0.2e1 * t405 * t4271 * t1846 + 0.2e1 * t405 * t1503 * t4300 * t187 - 0.4e1 * t3291 * t12610 * t1506 - 0.4e1 * t29623 * t4268 - 0.8e1 * t9535 * t12593 - 0.8e1 * t3291 * t37976 * t477 - 0.8e1 * t12596 * t9539 - 0.4e1 * t3291 * t3292 * t7654 - 0.8e1 * t37985 * t3293;
27986   t38001 = t4747 * t940;
27987   t38042 = t17136 * t1188;
27988   t38062 = -t470 * t37842 * t91 / 0.100e3 + t56 * t37842 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4286 * t1500 + 0.3e1 / 0.50e2 * t12685 * t7644 + t38042 * t7648 / 0.100e3 - t12703 * t7644 / 0.100e3 - t12703 * t7640 / 0.50e2 + 0.3e1 / 0.20e2 * t1189 * t1490 * t4290 + 0.3e1 / 0.25e2 * t12685 * t7640 - 0.3e1 / 0.50e2 * t1189 * t7640 - 0.3e1 / 0.50e2 * t3334 * t11250 - 0.3e1 / 0.100e3 * t1189 * t7644 - 0.3e1 / 0.50e2 * t3334 * t2594;
27989   t38071 = t1189 * t1498;
27990   t38105 = -0.3e1 / 0.100e3 * t9659 * t4290 - 0.3e1 / 0.100e3 * t4286 * t7629 + 0.3e1 / 0.50e2 * t4286 * t7633 - 0.3e1 / 0.50e2 * t12674 * t2587 - t38071 * t7648 / 0.10e2 + 0.3e1 / 0.25e2 * t3334 * t89 * t2594 - 0.3e1 / 0.100e3 * t1189 * t33780 + t1499 * t1188 * t7620 * t91 / 0.100e3 + t1499 * t3333 * t2582 * t91 / 0.50e2 + t1499 * t9658 * t933 * t91 / 0.100e3 + t1499 * t12673 * t466 * t91 / 0.50e2 + t1499 * t4285 * t1486 * t91 / 0.100e3 - t4970 * t37720 * t91 / 0.100e3 - t4970 * t3333 * t2594 / 0.50e2;
27991   t38114 = -0.8e1 * t3291 * t9538 * t2600 - 0.2e1 * t405 * t1195 * t8338 + 0.4e1 * t3291 * t29654 * t943 + 0.8e1 * t3291 * t9542 * t2600 + 0.12e2 * t38001 * t9532 - 0.8e1 * t9535 * t12587 - 0.4e1 * t405 * t12707 * t621 - 0.4e1 * t405 * t9553 * t1027 - 0.4e1 * t405 * t3296 * t2846 - 0.2e1 * t405 * t9549 * t1027 + 0.4e1 * t405 * t474 * t12706 * t187 - 0.4e1 * t405 * t3347 * t2846 - 0.6e1 * t4747 * t4308 * t1370 + 0.2e1 * t405 * t7651 * t1194 * t187 + 0.2e1 * t405 * t94 * (t38062 + t38105) * t187 - 0.2e1 * t405 * t9686 * t1027;
27992   t38121 = t10311 * t12578;
27993   t38123 = 0.92773125000000000000e0 * t27727 * t1038 - 0.29687400000000000000e2 * t13066 * t1864 + 0.24739500000000000000e1 * t36447 + 0.29687400000000000000e2 * t9525 * t7377 - 0.49479000000000000000e1 * t36452 * t644 - 0.80541612095716256867e2 * t27732 * t7382 + t36458 - 0.32986000000000000000e1 * t36459 - 0.65972000000000000000e1 * t36462 + 0.28862750000000000000e1 * t3549 * t7355 - 0.24739500000000000000e1 * t10279 * t2875 + 0.57725500000000000000e1 * t13066 * t1870 + 0.22265550000000000000e3 * t13075 * t27711 * t7415 - 0.62012907040371922630e0 * t10287 * t27716 * t7420 + 0.30203104535893596326e2 * t10287 * t13083 * t1876 * t1878 - 0.3e1 / 0.8e1 * t1179 * t1180 * (t37898 + t37944 + t37988 + t38114) * t204 - 0.4e1 / 0.3e1 * t38121;
27994   t38143 = t2866 * t13078;
27995   t38145 = t1874 * t13085;
27996   t38151 = t3547 * t384 * t4375;
27997   t38158 = t29689 * t2859;
27998   t38164 = t10336 * t13062;
27999   t38165 = t15 * t13060;
28000   t38172 = t29844 * t4377 / 0.6e1;
28001   t38173 = t1323 * t4375;
28002   t38177 = 0.12113307472923900000e3 * t13075 * t1244 * t4027 * t7369 + 0.22265550000000000000e2 * t13075 * t3541 * t1860 * t19 * t2869 - 0.60406209071787192650e2 * t10287 * t3541 * t2879 * t26 * t1878 + 0.80541612095716256868e2 * t10287 * t4375 * t1035 * t1876 * t1878 + 0.29687400000000000000e2 * t38143 - 0.80541612095716256867e2 * t38145 - 0.55663875000000000000e2 * t13075 * t13077 * t7429 - 0.65972000000000000000e1 * t38151 * t1343 + 0.41232500000000000000e0 * t29679 * t7448 - 0.32986000000000000000e1 * t9525 * t7454 + 0.32986000000000000000e1 * t38158 + 0.24739500000000000000e1 * t29683 * t2859 + 0.12369750000000000000e1 * t9525 * t7460 - t38164 - t3286 * t38165 * t392 - t3286 * t12577 * t1350 / 0.2e1 - t38172 - t3286 * t38173 * t1327 / 0.6e1;
28003   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28004     v4rho2sigmatau[0] = t38123 + t38177;
28005 
28006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28007     v4rho2sigmatau[1] = 0.0e0;
28008 
28009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28010     v4rho2sigmatau[2] = 0.0e0;
28011 
28012   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28013     v4rho2sigmatau[3] = 0.0e0;
28014 
28015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28016     v4rho2sigmatau[4] = 0.0e0;
28017 
28018   t38179 = t29844 * t4491 / 0.6e1;
28019   t38180 = t10311 * t13091;
28020   t38182 = t1883 * t4489;
28021   t38190 = 0.41232500000000000000e0 * t29828 * t1173;
28022   t38191 = t29831 * t2895;
28023   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28024     v4rho2sigmatau[5] = -t38179 - 0.4e1 / 0.3e1 * t38180 - t3286 * t38182 * t1887 / 0.6e1 - t3286 * t13090 * t1896 / 0.2e1 + t38190 + 0.32986000000000000000e1 * t38191 + 0.41232500000000000000e0 * t29855 * t8366 + 0.12369750000000000000e1 * t10349 * t8372;
28025 
28026   t38200 = t10311 * t13098;
28027   t38214 = -t38172 - 0.2e1 / 0.3e1 * t38121 - t38164 / 0.2e1 - 0.32986000000000000000e1 * t36462 - 0.2e1 / 0.3e1 * t38200 - t3286 * t38173 * t1906 / 0.6e1 - t3286 * t38165 * t663 / 0.2e1 - 0.32986000000000000000e1 * t38151 * t1918 - t10323 * t12577 * t1924 / 0.2e1 + t36458 + 0.16493000000000000000e1 * t38158;
28028   t38219 = t29689 * t2906;
28029   t38233 = 0.12369750000000000000e1 * t36447 + 0.14843700000000000000e2 * t38143 - 0.16493000000000000000e1 * t36459 - 0.40270806047858128434e2 * t38145 + 0.16493000000000000000e1 * t38219 + 0.41232500000000000000e0 * t29770 * t8400 + 0.12369750000000000000e1 * t29683 * t2906 + 0.14843700000000000000e2 * t9525 * t8409 - 0.16493000000000000000e1 * t9525 * t8413 - 0.40270806047858128434e2 * t27732 * t8416 + 0.12369750000000000000e1 * t29783 * t8420;
28030   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28031     v4rho2sigmatau[6] = t38214 + t38233;
28032 
28033   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28034     v4rho2sigmatau[7] = 0.0e0;
28035 
28036   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28037     v4rho2sigmatau[8] = 0.0e0;
28038 
28039   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28040     v4rho2sigmatau[9] = 0.0e0;
28041 
28042   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28043     v4rho2sigmatau[10] = 0.0e0;
28044 
28045   t38235 = t10311 * t13103;
28046   t38243 = t10336 * t13587;
28047   t38245 = t210 * t13585;
28048   t38249 = t10344 * t13590;
28049   t38250 = t38249 * t902;
28050   t38253 = t3547 * t647 * t4489;
28051   t38257 = -t38179 - 0.2e1 / 0.3e1 * t38180 - 0.2e1 / 0.3e1 * t38235 - t3286 * t38182 * t1931 / 0.6e1 + t10323 * t13090 * t1939 / 0.2e1 - t38243 / 0.2e1 - t3286 * t38245 * t651 / 0.2e1 - 0.32986000000000000000e1 * t38250 - 0.32986000000000000000e1 * t38253 * t1956 + t38190 + 0.16493000000000000000e1 * t38191;
28052   t38258 = t29831 * t3256;
28053   t38264 = t29914 * t1173;
28054   t38268 = t3261 * t13601;
28055   t38272 = t10345 * t3270;
28056   t38276 = t2500 * t13608;
28057   t38280 = 0.16493000000000000000e1 * t38258 + 0.41232500000000000000e0 * t29931 * t8460 - 0.12369750000000000000e1 * t29941 * t8467 + 0.12369750000000000000e1 * t38264 + 0.12369750000000000000e1 * t29945 * t2895 + 0.14843700000000000000e2 * t38268 + 0.14843700000000000000e2 * t10349 * t8477 - 0.16493000000000000000e1 * t38272 - 0.16493000000000000000e1 * t10349 * t8484 - 0.40270806047858128433e2 * t38276 - 0.40270806047858128433e2 * t29906 * t8491;
28058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28059     v4rho2sigmatau[11] = t38257 + t38280;
28060 
28061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28062     v4rho2sigmatau[12] = -t38172 - 0.4e1 / 0.3e1 * t38200 - t3286 * t38173 * t1968 / 0.6e1 - t3286 * t12577 * t1974 / 0.2e1 + t36458 + 0.32986000000000000000e1 * t38219 + 0.41232500000000000000e0 * t29679 * t8508 + 0.12369750000000000000e1 * t9525 * t8513;
28063 
28064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28065     v4rho2sigmatau[13] = 0.0e0;
28066 
28067   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28068     v4rho2sigmatau[14] = 0.0e0;
28069 
28070   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28071     v4rho2sigmatau[15] = 0.0e0;
28072 
28073   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28074     v4rho2sigmatau[16] = 0.0e0;
28075 
28076   t38310 = t3547 * t1249 * t13585;
28077   t38326 = -t38179 + t38190 - 0.65972000000000000000e1 * t38250 + 0.24739500000000000000e1 * t38264 - 0.32986000000000000000e1 * t38272 + 0.12113307472923900000e3 * t13598 * t1313 * t4249 * t9494 - t3286 * t38245 * t668 - t3286 * t13090 * t1992 / 0.2e1 + 0.92773125000000000000e0 * t31953 * t1173 - 0.29687400000000000000e2 * t13591 * t2490 - 0.49479000000000000000e1 * t38310 * t902 + 0.28862750000000000000e1 * t3821 * t9486 - 0.24739500000000000000e1 * t11119 * t3270 + 0.57725500000000000000e1 * t13591 * t2496 + 0.29687400000000000000e2 * t10349 * t9478 - 0.80541612095716256867e2 * t29906 * t9481 - 0.62012907040371922630e0 * t11127 * t31913 * t9435;
28078   t38367 = t1258 * t2126;
28079   t38382 = t13198 * t731;
28080   t38397 = t2071 * t4392;
28081   t38399 = t6992 * t4396;
28082   t38401 = t6470 * t4389;
28083   t38403 = 0.7700e4 / 0.9e1 * t38397 - 0.8960e4 / 0.9e1 * t38399 - 0.120e3 * t38401 - t36094 + t36095 - t36104 - t36105 + t36109 + t36111 - t36112 + t36118 + t36120;
28084   t38404 = t3600 * t25491;
28085   t38405 = t35819 * t38404;
28086   t38407 = t1057 * t2081;
28087   t38408 = t3643 * t38407;
28088   t38409 = t4395 * t38408;
28089   t38412 = t2941 * t3600 * t38407;
28090   t38414 = t3583 * t25491;
28091   t38415 = t25633 * t38414;
28092   t38417 = t3637 * t38407;
28093   t38418 = t2962 * t38417;
28094   t38420 = t3583 * t8590;
28095   t38421 = t2962 * t38420;
28096   t38423 = t20167 * t4389;
28097   t38425 = t2098 * t13169;
28098   t38427 = t2098 * t13172;
28099   t38429 = t8667 * t13175;
28100   t38431 = t8667 * t13178;
28101   t38433 = -t4076 + t4084 - 0.160e3 * t38405 - 0.96e2 * t38409 - 0.12e2 * t38412 + 0.84e2 * t38415 + 0.84e2 * t38418 + 0.14e2 * t38421 - 0.60e2 * t38423 - 0.60e2 * t38425 - 0.60e2 * t38427 + 0.700e3 / 0.3e1 * t38429 + 0.700e3 / 0.3e1 * t38431;
28102   t38435 = t2170 * t13160;
28103   t38437 = t2170 * t13163;
28104   t38439 = t30365 * t1057;
28105   t38440 = t4395 * t38439;
28106   t38442 = t10484 * t2954;
28107   t38443 = t4395 * t38442;
28108   t38445 = t3600 * t8590;
28109   t38446 = t4395 * t38445;
28110   t38449 = t35305 * t253 * t4389;
28111   t38451 = t13166 * t13169;
28112   t38453 = t13166 * t13172;
28113   t38456 = t2941 * t30764 * t1057;
28114   t38459 = t2941 * t10405 * t2954;
28115   t38462 = t2941 * t3576 * t8590;
28116   t38464 = t21081 * t13189;
28117   t38467 = t13188 * t8625;
28118   t38468 = t11965 * t21057 * t38467;
28119   t38470 = -0.560e3 / 0.3e1 * t38435 - 0.560e3 / 0.3e1 * t38437 - 0.8e1 * t38440 - 0.16e2 * t38443 - 0.8e1 * t38446 - 0.6e1 * t38449 - 0.12e2 * t38451 - 0.12e2 * t38453 - 0.6e1 * t38456 - 0.12e2 * t38459 - 0.6e1 * t38462 + 0.672e3 * t38464 + 0.240e3 * t38468;
28120   t38471 = t3588 * t1057;
28121   t38472 = t38471 * t1425;
28122   t38473 = t13194 * t38472;
28123   t38476 = t1250 * t2954 * t1425;
28124   t38477 = t13194 * t38476;
28125   t38480 = t35763 * t8562 * t13189;
28126   t38482 = t8563 * t38472;
28127   t38484 = t8563 * t38476;
28128   t38486 = t8573 * t38472;
28129   t38488 = t8573 * t38476;
28130   t38490 = t13188 * t4811;
28131   t38491 = t25513 * t38490;
28132   t38493 = t25530 * t38490;
28133   t38496 = t35934 * t303 * t38490;
28134   t38498 = t25478 * t13189;
28135   t38500 = t25486 * t13189;
28136   t38504 = t8620 * t1063 * t302 * t38467;
28137   t38506 = 0.56e2 * t38473 + 0.56e2 * t38477 + 0.18e2 * t38480 + 0.18e2 * t38482 + 0.18e2 * t38484 - 0.70e2 * t38486 - 0.70e2 * t38488 - 0.108e3 * t38491 + 0.630e3 * t38493 - 0.672e3 * t38496 + 0.96e2 * t38498 - 0.1820e4 / 0.3e1 * t38500 - 0.168e3 * t38504;
28138   t38509 = t13188 * t2100;
28139   t38510 = t35335 * t38509;
28140   t38512 = t13188 * t25661;
28141   t38513 = t35254 * t38512;
28142   t38515 = t20195 * t38512;
28143   t38517 = t25490 * t38509;
28144   t38519 = t25665 * t38512;
28145   t38521 = t3600 * t34637;
28146   t38522 = t2962 * t38521;
28147   t38524 = t2098 * t13145;
28148   t38526 = t13166 * t13145;
28149   t38529 = t2941 * t10417 * t13144;
28150   t38532 = t2941 * t3583 * t34637;
28151   t38534 = t1057 * t2111;
28152   t38536 = t2941 * t3583 * t38534;
28153   t38538 = t25643 * t13148;
28154   t38540 = 0.280e3 * t38510 - 0.168e3 * t38513 - 0.18e2 * t38515 - 0.210e3 * t38517 + 0.140e3 * t38519 - 0.56e2 * t38522 + 0.60e2 * t38524 + 0.12e2 * t38526 + 0.12e2 * t38529 + 0.12e2 * t38532 + 0.6e1 * t38536 + 0.700e3 * t38538;
28155   t38541 = t8667 * t13151;
28156   t38543 = t10417 * t8564;
28157   t38544 = t8621 * t38543;
28158   t38546 = t3583 * t25503;
28159   t38547 = t8621 * t38546;
28160   t38549 = t3583 * t25507;
28161   t38550 = t8621 * t38549;
28162   t38552 = t10484 * t13144;
28163   t38553 = t2962 * t38552;
28164   t38555 = t3600 * t38534;
28165   t38556 = t2962 * t38555;
28166   t38558 = t7069 * t13154;
28167   t38560 = t2170 * t13157;
28168   t38562 = t10484 * t8564;
28169   t38563 = t11966 * t38562;
28170   t38565 = t3600 * t25503;
28171   t38566 = t11966 * t38565;
28172   t38568 = t3600 * t25507;
28173   t38569 = t11966 * t38568;
28174   t38571 = t10547 * t13144;
28175   t38572 = t4395 * t38571;
28176   t38574 = t3637 * t34637;
28177   t38575 = t4395 * t38574;
28178   t38577 = -0.1400e4 / 0.3e1 * t38541 + 0.84e2 * t38544 + 0.84e2 * t38547 + 0.42e2 * t38550 - 0.56e2 * t38553 - 0.28e2 * t38556 - 0.2800e4 / 0.3e1 * t38558 + 0.560e3 * t38560 - 0.80e2 * t38563 - 0.80e2 * t38566 - 0.40e2 * t38569 + 0.48e2 * t38572 + 0.48e2 * t38575;
28179   t38579 = t3637 * t38534;
28180   t38580 = t4395 * t38579;
28181   t38582 = t30361 * t1057;
28182   t38583 = t2962 * t38582;
28183   t38585 = t10417 * t2954;
28184   t38586 = t2962 * t38585;
28185   t38588 = 0.24e2 * t38580 - t36122 + t36123 + 0.14e2 * t38583 + 0.28e2 * t38586 - t36126 - t36133 - t36134 - t36136 - t36141 + t36146 + t36147 - t36153;
28186   t38589 = t36154 - t36155 + t36156 + t36162 - t36165 + t36166 + t36179 + t36182 - t36183 - t36184 + t36185 + t36186 - t36187;
28187   t38592 = t38403 + t38433 + t38470 + t38506 + t38540 + t38577 + t38588 + t38589;
28188   t38596 = -t38367 * t8705 / 0.10e2 + 0.3e1 / 0.50e2 * t13210 * t8701 + 0.3e1 / 0.25e2 * t3608 * t265 * t2991 + 0.3e1 / 0.20e2 * t1258 * t2118 * t4404 + 0.3e1 / 0.25e2 * t13210 * t8697 - 0.3e1 / 0.100e3 * t1258 * t36371 + t2127 * t38382 * t267 / 0.50e2 - t6534 * t3607 * t2991 / 0.50e2 - t13228 * t8697 / 0.50e2 - 0.3e1 / 0.50e2 * t1258 * t8697 - 0.3e1 / 0.50e2 * t3608 * t12006 - 0.3e1 / 0.100e3 * t1258 * t8701 - t735 * t38592 * t267 / 0.100e3;
28189   t38597 = t4399 * t2114;
28190   t38605 = t1257 * t8677;
28191   t38609 = t10498 * t1068;
28192   t38613 = t3607 * t2979;
28193   t38617 = t4399 * t2118;
28194   t38623 = t20412 * t1257;
28195   t38637 = t2127 * t38597 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t13199 * t2984 - 0.3e1 / 0.100e3 * t4400 * t8686 + t2127 * t38605 * t267 / 0.100e3 + t2127 * t38609 * t267 / 0.100e3 + t2127 * t38613 * t267 / 0.50e2 - t6534 * t38617 * t267 / 0.100e3 - t13228 * t8701 / 0.100e3 + t38623 * t8705 / 0.100e3 - 0.3e1 / 0.100e3 * t10499 * t4404 - 0.3e1 / 0.50e2 * t3608 * t2991 - 0.3e1 / 0.100e3 * t4400 * t2128 + 0.3e1 / 0.50e2 * t4400 * t8690 + t56 * t38592 * t267 / 0.100e3;
28196   t38646 = t6316 * t1075;
28197   t38680 = -t674 * t8711 * t1310 + 0.2e1 * t674 * t270 * (t38596 + t38637) * t363 - 0.4e1 * t674 * t13128 * t885 + 0.12e2 * t38646 * t10372 - 0.2e1 * t674 * t10389 * t1162 - 0.2e1 * t674 * t742 * t13581 + 0.4e1 * t2000 * t13255 * t742 - 0.2e1 * t674 * t1264 * t9395 - 0.24e2 * t10371 * t10382 * t13106 + 0.24e2 * t31778 * t13107 - 0.12e2 * t10371 * t13239 * t2001 + 0.2e1 * t2000 * t4422 * t2134 + 0.4e1 * t2000 * t13257 * t742 - 0.2e1 * t674 * t2997 * t3812 - t674 * t1078 * t11110;
28198   t38707 = t4414 * t885;
28199   t38725 = t13231 * t363;
28200   t38729 = 0.2e1 * t1263 * t363 * t674 * t8708 + 0.4e1 * t13231 * t363 * t674 * t739 + 0.2e1 * t2131 * t363 * t4414 * t674 + 0.12e2 * t10371 * t13135 * t2001 - 0.4e1 * t10393 * t1162 * t674 - 0.2e1 * t10526 * t1162 * t674 - 0.4e1 * t13124 * t674 * t885 - 0.4e1 * t13135 * t2134 * t3565 + 0.4e1 * t13239 * t2134 * t3565 - 0.2e1 * t2472 * t4385 * t674 - 0.4e1 * t3243 * t3570 * t674 + 0.8e1 * t3565 * t38707 * t742 - 0.8e1 * t3565 * t38725 * t742 + 0.8e1 * t10375 * t13240 - 0.4e1 * t13121 * t10386;
28201   t38741 = t2000 * t2994;
28202   t38747 = t3620 * t1162;
28203   t38761 = t34656 + t34659 - t34671 - t34679 - t34682 - t34699 - t34702 + t34714 + t34717 - t34756 + t34769;
28204   t38762 = t34772 - t34780 - t34783 - t34795 + t34804 - t34812 + t34822 - t34825 + t34828 - t34843 - t34860;
28205   t38764 = t34881 - t34883 + t34886 - t34896 + t34898 - t34900 + t34902 + t34927 - t34929 + t34932 - t34935;
28206   t38765 = -t34940 + t34942 - t34945 + t34950 - t34952 + t34954 - t34956 - t34960 + t34962 - t34964 + t34967 + t35035;
28207   t38768 = t3661 * t8590;
28208   t38788 = t30335 * t1057;
28209   t38791 = t10559 * t2954;
28210   t38794 = t3649 * t8590;
28211   t38797 = 0.13957877679844e2 * t3169 * t38768 - 0.5193628904128e1 * t4424 * t31314 * t1057 - 0.10387257808256e2 * t4424 * t10761 * t2954 - 0.5193628904128e1 * t4424 * t3788 * t8590 - 0.133366650e2 * t3163 * t38582 - 0.266733300e2 * t3163 * t38585 - 0.133366650e2 * t3163 * t38420 + 0.231168860e2 * t3180 * t38439 + 0.71765856092574e2 * t3143 * t38788 + 0.143531712185148e3 * t3143 * t38791 + 0.71765856092574e2 * t3143 * t38794;
28212   t38798 = t30320 * t1057;
28213   t38801 = t10565 * t2954;
28214   t38804 = t3655 * t8590;
28215   t38807 = t30326 * t1057;
28216   t38810 = t10571 * t2954;
28217   t38813 = -0.104130850016676e3 * t3150 * t38798 - 0.208261700033352e3 * t3150 * t38801 - 0.104130850016676e3 * t3150 * t38804 + 0.39400862168472e2 * t4465 * t38807 + 0.78801724336944e2 * t4465 * t38810 + t35076 + t35077 - t35078 - t35079 + t35080 + t35081;
28218   t38824 = -t35082 + t35083 - t35084 + t35085 - t35086 - t35089 + 0.57065555555555555556e3 * t38397 - 0.67487851161372000000e4 * t2203 * t13271 + 0.4305951365554440e4 * t3013 * t13274 + 0.4305951365554440e4 * t3013 * t13277 - 0.69420566677784000000e4 * t9215 * t13268;
28219   t38837 = -0.69420566677784000000e4 * t9215 * t13271 + 0.28893965590212800000e4 * t2160 * t13285 + 0.28893965590212800000e4 * t2160 * t13288 - 0.681663793666800e3 * t3021 * t13268 - 0.681663793666800e3 * t3021 * t13271 - 0.66403555555555555556e3 * t38399 - 0.80040e2 * t38401 + t35111 - t35115 - t35117 + t35129 - t35131;
28220   t38841 = -t35154 + t35156 - t35168 + t35170 + t35182 - t35184 - t35201 + t35203 + t35211 - t35213 + t35225;
28221   t38842 = -t35227 - t35238 + t35240 - t35260 + t35262 - t35278 + t35282 - t35294 + t35296 + t35304 - t35315;
28222   t38844 = -t35317 + t35326 + t35331 - t35333 + t35345 + t35360 - t35365 + t35372 + t35382 + t35386 - t4110;
28223   t38845 = t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203;
28224   t38868 = t4205 + 0.51527571969212826667e5 * t7085 * t4466 + 0.21318859649762643333e6 * t2399 * t4450 - 0.10348137178077040000e6 * t6862 * t4458 + 0.62436294800539380e5 * t9078 * t4450 - 0.11588284492335600e5 * t9166 * t4458 - 0.11222991612908413333e6 * t2408 * t4458 + 0.38014434755555555556e4 * t2376 * t4396 - 0.27858811333333333333e4 * t6897 * t4434 - 0.10025869407860880e5 * t9070 * t4396 + 0.72797059751618400e5 * t9091 * t4434;
28225   t38892 = 0.24021417267335106667e5 * t2383 * t4434 - 0.14251941345213173333e5 * t6950 * t4442 - 0.12002998500e4 * t8651 * t4392 + 0.79466575947185777779e5 * t6970 * t4450 - 0.111887753241222000e6 * t8991 * t4442 + 0.19975273835154524444e5 * t2416 * t4466 - 0.15125740308129111111e6 * t2391 * t4442 - 0.88003156431057777779e4 * t35346 * t4183 * t4425 + 0.27717019923848200000e4 * t9343 * t13311 + 0.27717019923848200000e4 * t9343 * t13316 - 0.13792201301819200000e4 * t2187 * t13327;
28226   t38906 = t3637 * t8590;
28227   t38915 = t30316 * t1057;
28228   t38918 = -0.13792201301819200000e4 * t2187 * t13330 + 0.7662848394907200e4 * t3047 * t13311 + 0.7662848394907200e4 * t3047 * t13316 + 0.15599165597387300000e5 * t9191 * t13274 + 0.15599165597387300000e5 * t9191 * t13277 - 0.67487851161372000000e4 * t2203 * t13268 - 0.106693320e2 * t4433 * t38906 - 0.47742235275528e2 * t3188 * t38439 - 0.95484470551056e2 * t3188 * t38442 - 0.47742235275528e2 * t3188 * t38445 + 0.75591872519586e2 * t3194 * t38915;
28229   t38919 = t10547 * t2954;
28230   t38924 = t30351 * t1057;
28231   t38927 = t10553 * t2954;
28232   t38930 = t3643 * t8590;
28233   t38943 = 0.151183745039172e3 * t3194 * t38919 + 0.75591872519586e2 * t3194 * t38906 - 0.31828156850352e2 * t4441 * t38924 - 0.63656313700704e2 * t4441 * t38927 - 0.31828156850352e2 * t4441 * t38930 + 0.61645029333333333334e3 * t9099 * t13163 - 0.35564440000000000000e3 * t2179 * t13311 - 0.35564440000000000000e3 * t2179 * t13316 - 0.1432267058265840e4 * t3040 * t13160 - 0.1432267058265840e4 * t3040 * t13163 + t35397 - t35414;
28234   t38949 = t3661 * t34637;
28235   t38952 = t3661 * t38534;
28236   t38957 = t35421 - t35435 + t35441 + t35447 - t35453 - t35461 + t35466 - 0.106720e3 * t38405 + 0.1491836709882960e4 * t4457 * t38949 + 0.745918354941480e3 * t4457 * t38952 + 0.68895221848871040e5 * t12065 * t13398;
28237   t38960 = t10559 * t8564;
28238   t38975 = -0.25835708193326640e5 * t3013 * t13403 + 0.2296507394962368e4 * t8854 * t38960 - 0.64032e2 * t38409 - 0.8004e1 * t38412 + 0.56028e2 * t38415 + 0.56028e2 * t38418 + t35474 + 0.191571209872680e3 * t3202 * t38915 + 0.383142419745360e3 * t3202 * t38919 + 0.191571209872680e3 * t3202 * t38906 - 0.290259408898000e3 * t3208 * t38924;
28239   t38999 = -0.580518817796000e3 * t3208 * t38927 - 0.290259408898000e3 * t3208 * t38930 + 0.116103763559200e3 * t4449 * t38788 + 0.232207527118400e3 * t4449 * t38791 + 0.116103763559200e3 * t4449 * t38794 - 0.186479588735370e3 * t3216 * t38924 - 0.372959177470740e3 * t3216 * t38927 - 0.186479588735370e3 * t3216 * t38930 + 0.275279392895070e3 * t3222 * t38788 + 0.550558785790140e3 * t3222 * t38791 + 0.275279392895070e3 * t3222 * t38794;
28240   t39019 = -0.106559764991640e3 * t4457 * t38798 - 0.213119529983280e3 * t4457 * t38801 - 0.106559764991640e3 * t4457 * t38804 + 0.462337720e2 * t3180 * t38442 + 0.231168860e2 * t3180 * t38445 - 0.106693320e2 * t4433 * t38915 - 0.213386640e2 * t4433 * t38919 + 0.9338e1 * t38421 - 0.40020e2 * t38423 - 0.40020e2 * t38425 - 0.40020e2 * t38427 + 0.15563333333333333333e3 * t38429;
28241   t39033 = 0.15563333333333333333e3 * t38431 - 0.12450666666666666667e3 * t38435 - 0.12450666666666666667e3 * t38437 - 0.5336e1 * t38440 - 0.10672e2 * t38443 - 0.5336e1 * t38446 - 0.4002e1 * t38449 - 0.8004e1 * t38451 - 0.8004e1 * t38453 - 0.4002e1 * t38456 - 0.8004e1 * t38459;
28242   t39035 = t10565 * t13144;
28243   t39038 = t3655 * t34637;
28244   t39041 = t3655 * t38534;
28245   t39048 = t10565 * t8564;
28246   t39051 = t3655 * t25503;
28247   t39054 = t3655 * t25507;
28248   t39057 = t10571 * t13144;
28249   t39060 = -0.4002e1 * t38462 - 0.3303352714740840e4 * t3222 * t39035 - 0.3303352714740840e4 * t3222 * t39038 - 0.1651676357370420e4 * t3222 * t39041 - 0.11472934697433240000e6 * t7044 * t13406 + 0.47241495812960400000e5 * t2203 * t13395 - 0.3623032009715760e4 * t12396 * t39048 - 0.3623032009715760e4 * t12396 * t39051 - 0.1811516004857880e4 * t12396 * t39054 + 0.1491836709882960e4 * t4457 * t39057 - t35475;
28250   t39062 = -t35476 - t35477 - t35482 - t35487 - t35496 + t35504 - t35513 - t35520 + t35525 + t35532 + t35567;
28251   t39064 = -t35569 + t35573 + t35574 + t35575 + t35576 - t35577 - t35578 + t35579 + t35580 + t35581 - t35582 + 0.44822400000000000000e3 * t38464;
28252   t39079 = 0.160080e3 * t38468 + 0.37352000000000000000e2 * t38473 + 0.37352000000000000000e2 * t38477 + 0.12006000000000000000e2 * t38480 + 0.12006000000000000000e2 * t38482 + 0.12006000000000000000e2 * t38484 - 0.46690000000000000000e2 * t38486 - 0.46690000000000000000e2 * t38488 - 0.72036000000000000000e2 * t38491 + 0.42021000000000000000e3 * t38493 - 0.44822400000000000000e3 * t38496;
28253   t39083 = t3637 * t25503;
28254   t39086 = t3637 * t25507;
28255   t39095 = t3649 * t25503;
28256   t39098 = t3649 * t25507;
28257   t39103 = 0.64032000000000000000e2 * t38498 - 0.40464666666666666667e3 * t38500 - 0.112056e3 * t38504 + 0.3831424197453600e4 * t8874 * t39083 + 0.1915712098726800e4 * t8874 * t39086 + 0.23398748396080950000e6 * t12058 * t13398 - 0.93594993584323800000e5 * t9191 * t13403 + 0.8258381786852100e4 * t8847 * t38960 + 0.8258381786852100e4 * t8847 * t39095 + 0.4129190893426050e4 * t8847 * t39098 - 0.3748710600600336e4 * t8902 * t39051;
28258   t39117 = t10571 * t8564;
28259   t39120 = t3661 * t25503;
28260   t39123 = t10547 * t8564;
28261   t39130 = -0.1874355300300168e4 * t8902 * t39054 + 0.1457831900233464e4 * t3150 * t39057 + 0.1457831900233464e4 * t3150 * t38949 + 0.728915950116732e3 * t3150 * t38952 + 0.57787931180425600000e5 * t7089 * t13419 - 0.23115172472170240000e5 * t2160 * t13422 + 0.1576034486738880e4 * t12362 * t39117 + 0.1576034486738880e4 * t12362 * t39120 + 0.3831424197453600e4 * t8874 * t39123 + 0.1148253697481184e4 * t8854 * t39098 - 0.861190273110888e3 * t3143 * t39035;
28262   t39155 = -0.861190273110888e3 * t3143 * t39038 - 0.430595136555444e3 * t3143 * t39041 - 0.12495702002001120000e6 * t12073 * t13406 + 0.48594396674448800000e5 * t9215 * t13395 - 0.3748710600600336e4 * t8902 * t39048 - 0.12951612079669200e5 * t12087 * t13406 + 0.4771646555667600e4 * t3021 * t13395 - 0.370046059419120e3 * t8909 * t39048 - 0.370046059419120e3 * t8909 * t39051 - 0.185023029709560e3 * t8909 * t39054 + 0.136332758733360e3 * t3158 * t39057 + 0.136332758733360e3 * t3158 * t38949;
28263   t39162 = t3643 * t38534;
28264   t39175 = t3661 * t25507;
28265   t39178 = t10761 * t13144;
28266   t39181 = t3788 * t34637;
28267   t39184 = 0.68166379366680e2 * t3158 * t38952 + 0.2296507394962368e4 * t8854 * t39095 + 0.426773280e2 * t4433 * t39162 - 0.10025869407860880e5 * t12121 * t13154 + 0.4296801174797520e4 * t3040 * t13157 - 0.668391293857392e3 * t8859 * t38562 - 0.668391293857392e3 * t8859 * t38565 - 0.334195646928696e3 * t8859 * t38568 + 0.788017243369440e3 * t12362 * t39175 - 0.630413794695552e3 * t4465 * t39178 - 0.630413794695552e3 * t4465 * t39181;
28268   t39185 = t3788 * t38534;
28269   t39206 = t10553 * t13144;
28270   t39209 = -0.315206897347776e3 * t4465 * t39185 + 0.1387013160e3 * t9104 * t38568 - 0.1387013160e3 * t3180 * t38571 - 0.1387013160e3 * t3180 * t38574 - 0.693506580e2 * t3180 * t38579 - 0.28451552000000000000e4 * t7077 * t13434 + 0.14225776000000000000e4 * t2179 * t13437 - 0.1707093120e3 * t12438 * t39123 - 0.1707093120e3 * t12438 * t39083 - 0.853546560e2 * t12438 * t39086 + 0.853546560e2 * t4433 * t39206;
28271   t39211 = t3643 * t34637;
28272   t39218 = t3637 * t25491;
28273   t39221 = t3661 * t25491;
28274   t39224 = t10955 * t38407;
28275   t39235 = t3655 * t38407;
28276   t39238 = t3649 * t25491;
28277   t39241 = 0.853546560e2 * t4433 * t39211 + 0.6935065800e3 * t25990 * t38404 + 0.2774026320e3 * t3180 * t38408 - 0.5974825920e3 * t35610 * t39218 + 0.5862308625534480e4 * t26184 * t39221 + 0.1004967192948768e4 * t3169 * t39224 - 0.2627976225488768e4 * t35618 * t3788 * t25491 - 0.467426601371520e3 * t4424 * t30633 * t38407 - 0.1600399800e3 * t26212 * t38414 - 0.8707782266940000e4 * t3208 * t39235 + 0.21130884967774400e5 * t35961 * t39238;
28278   t39242 = t3661 * t38407;
28279   t39245 = t3643 * t25491;
28280   t39252 = t3649 * t38407;
28281   t39269 = 0.4876358069486400e4 * t4449 * t39242 - 0.29090815842717720e5 * t26195 * t39245 - 0.5594387662061100e4 * t3216 * t39235 - 0.30651393579628800e5 * t3047 * t13437 + 0.3831424197453600e4 * t3202 * t39252 - 0.38314241974536000e5 * t26701 * t39245 + 0.266733300e2 * t3163 * t38555 + 0.36987017600000000000e4 * t11923 * t13154 - 0.18493508800000000000e4 * t9099 * t13157 + 0.2774026320e3 * t9104 * t38562 + 0.2774026320e3 * t9104 * t38565 - 0.15171421432001120000e5 * t7053 * t13448;
28282   t39277 = t10553 * t8564;
28283   t39280 = t3643 * t25503;
28284   t39283 = t3643 * t25507;
28285   t39286 = t10559 * t13144;
28286   t39289 = t3649 * t34637;
28287   t39292 = t3649 * t38534;
28288   t39303 = 0.68961006509096000000e4 * t2187 * t13451 - 0.700219450707744e3 * t12309 * t39277 - 0.700219450707744e3 * t12309 * t39280 - 0.350109725353872e3 * t12309 * t39283 + 0.318281568503520e3 * t4441 * t39286 + 0.318281568503520e3 * t4441 * t39289 + 0.159140784251760e3 * t4441 * t39292 + 0.76628483949072000e5 * t12142 * t13434 - 0.954844705510560e3 * t4441 * t39235 + 0.17241408888541200e5 * t26714 * t39218 + 0.57808672507964700e5 * t26592 * t39238;
28289   t39306 = t3655 * t25491;
28290   t39327 = 0.11561734501592940e5 * t3222 * t39242 - 0.28984256077726080e5 * t35593 * t39306 - 0.2133866400e3 * t4433 * t39252 - 0.2005173881572176e4 * t26689 * t38404 - 0.572906823306336e3 * t3188 * t38408 + 0.5442614821410192e4 * t26683 * t39218 + 0.1511837450391720e4 * t3194 * t39252 - 0.3501097253538720e4 * t35968 * t39245 - 0.800199900e2 * t3163 * t38417 + 0.143226705826584e3 * t3188 * t38579 + 0.24945317931463380000e5 * t12130 * t13434;
28291   t39347 = -0.11086807969539280000e5 * t9343 * t13437 + 0.1360653705352548e4 * t8867 * t39123 + 0.1360653705352548e4 * t8867 * t39083 + 0.680326852676274e3 * t8867 * t39086 - 0.604734980156688e3 * t3194 * t39206 - 0.604734980156688e3 * t3194 * t39211 - 0.302367490078344e3 * t3194 * t39162 + 0.18676000000000000000e3 * t38510 - 0.11205600000000000000e3 * t38513 - 0.12006000000000000000e2 * t38515 - 0.14007000000000000000e3 * t38517;
28292   t39371 = 0.93380000000000000000e2 * t38519 + 0.29863366198736000000e4 * t35172 * t38509 - 0.11685665034288000000e4 * t35176 * t38512 + 0.3200799600e3 * t26337 * t38509 + 0.9195418073888640e4 * t21019 * t38512 + 0.48763580694864000e5 * t27096 * t38509 - 0.20318158622860000e5 * t26913 * t38512 - 0.26007243037260800e5 * t35119 * t38509 + 0.11145961301683200e5 * t35123 * t38512 + 0.36363519803397150000e5 * t27076 * t38509 - 0.13985969155152750000e5 * t21032 * t38512 - 0.67416549193646520000e4 * t26424 * t38509;
28293   t39376 = 0.25682494930912960000e4 * t26898 * t38512 + t35588 + t35591 + t35605 + t35608 - t35628 - t35631 + t35636 - t35654 - t35657 - t35676;
28294   t39381 = t3788 * t38407;
28295   t39398 = -t35678 + 0.2836862076129984e4 * t4465 * t39224 - 0.3330414534772080e4 * t26177 * t39306 - 0.545331034933440e3 * t3158 * t39381 - 0.5967346839531840e4 * t4457 * t39381 + 0.17223805462217760e5 * t26604 * t39238 + 0.3014165955888108e4 * t3143 * t39242 - 0.31864040105102856e5 * t26202 * t39306 - 0.5831327600933856e4 * t3150 * t39381 + 0.14972327624019360e5 * t36027 * t39221 + 0.286453411653168e3 * t3188 * t38571;
28296   t39429 = 0.286453411653168e3 * t3188 * t38574 + 0.54533103493344000001e4 * t34642 * t13538 * t13189 + 0.2150162366308992e4 * t12409 * t4183 * t7167 * t38467 + 0.82687323000000000000e3 * t26332 * t13189 - 0.50156825857574400001e5 * t21061 * t13189 - 0.19505432277945600e5 * t12332 * t21047 * t38467 + 0.70862243719440600000e5 * t27071 * t13189 + 0.24242346535598100e5 * t6945 * t784 * t38467 - 0.15325696789814400e5 * t7174 * t775 * t38467 + 0.96172617481537333333e5 * t27088 * t13189 + 0.34831129067760000e5 * t8879 * t35287 * t38467;
28297   t39461 = 0.25361224068010320e5 * t12395 * t20999 * t38467 + 0.65884284680228640000e4 * t26658 * t13189 + 0.2005173881572176e4 * t7191 * t766 * t38467 - 0.15521531157354992000e5 * t27046 * t13189 - 0.5442614821410192e4 * t8866 * t35245 * t38467 + 0.91028528592006720000e4 * t21075 * t13189 + 0.3501097253538720e4 * t12308 * t21028 * t38467 + 0.2133866400e3 * t7179 * t758 * t38467 - 0.25274462026666666667e4 * t26343 * t13189 - 0.8322078960e3 * t9103 * t35253 * t38467 + 0.18137864400000000000e4 * t21078 * t13189 + 0.6828372480e3 * t12437 * t20992 * t38467;
28298   t39484 = -0.12413205883274597333e5 * t26616 * t13189 - 0.4689846900427584e4 * t9241 * t35218 * t38467 - 0.46743375208933920000e5 * t27114 * t13189 - 0.13415282413753078000e6 * t26737 * t13189 - 0.49550290721112600e5 * t8846 * t35122 * t38467 + 0.64788337114917120000e5 * t21084 * t13189 - 0.37352e2 * t38522 + 0.40020e2 * t38524 + 0.8004e1 * t38526 + 0.8004e1 * t38529 + 0.8004e1 * t38532;
28299   t39496 = 0.4002e1 * t38536 + 0.46690000000000000000e3 * t38538 - 0.31126666666666666666e3 * t38541 + 0.56028e2 * t38544 + 0.56028e2 * t38547 + 0.28014e2 * t38550 - 0.37352e2 * t38553 - 0.18676e2 * t38556 - 0.62253333333333333334e3 * t38558 + 0.37352000000000000000e3 * t38560 - 0.53360e2 * t38563;
28300   t39517 = -0.53360e2 * t38566 - 0.26680e2 * t38569 + 0.32016e2 * t38572 + 0.32016e2 * t38575 + 0.16008e2 * t38580 - 0.83151059771544600000e3 * t8784 * t38472 - 0.83151059771544600000e3 * t8784 * t38476 + 0.41376603905457600000e3 * t13507 * t38472 - 0.12608275893911040e5 * t12361 * t21015 * t38467 + 0.72256362128680800000e4 * t26830 * t13189 + 0.2590322415933840e4 * t7160 * t804 * t38467;
28301   t39530 = -0.39184157426545404000e5 * t27059 * t13189 - 0.13779044369774208e5 * t7209 * t793 * t38467 + 0.70114772344561840000e5 * t26350 * t13189 + 0.26240974204202352e5 * t8901 * t35161 * t38467 - 0.32072301805136208000e5 * t21144 * t13189 - t35687 + t35688 - t35689 + t35691 - t35692 + t35693 + t35694;
28302   t39545 = -t35695 + t35696 - t35697 - t35698 + t35699 + 0.20449913810004000000e3 * t8749 * t38472 + 0.20449913810004000000e3 * t8749 * t38476 - 0.32103118663641200000e3 * t8762 * t38472 - 0.32103118663641200000e3 * t8762 * t38476 + 0.12984072260320000000e3 * t13539 * t38472 + 0.12984072260320000000e3 * t13539 * t38476;
28303   t39568 = 0.800199900e2 * t8755 * t38472 + 0.800199900e2 * t8755 * t38476 - 0.1849350880e3 * t8771 * t38472 + 0.41376603905457600000e3 * t13507 * t38476 - 0.2298854518472160e4 * t8791 * t38472 - 0.2298854518472160e4 * t8791 * t38476 + 0.4063631724572000e4 * t8797 * t38472 + 0.4063631724572000e4 * t8797 * t38476 - 0.1857660216947200e4 * t13514 * t38472 - 0.1857660216947200e4 * t13514 * t38476 + 0.27971938310305500000e4 * t8804 * t38472;
28304   t39592 = 0.27971938310305500000e4 * t8804 * t38476 - 0.46797496792161900000e4 * t8810 * t38472 - 0.46797496792161900000e4 * t8810 * t38476 + 0.20246355348411600000e4 * t13521 * t38472 + 0.20246355348411600000e4 * t13521 * t38476 - 0.1291785409666332e4 * t8819 * t38472 - 0.1849350880e3 * t8771 * t38476 + 0.1066933200e3 * t13546 * t38472 + 0.1066933200e3 * t13546 * t38476 + 0.42968011747975200000e3 * t8778 * t38472 + 0.42968011747975200000e3 * t8778 * t38476;
28305   t39620 = -0.67132651944733200000e5 * t26846 * t38490 + 0.12635324133883713000e6 * t26852 * t38490 - 0.60739066045234800000e5 * t35389 * t354 * t38490 + 0.36815884175490462e5 * t26859 * t38490 - 0.65602435510505880e5 * t26866 * t38490 + 0.29905254385870248e5 * t35736 * t8761 * t38490 - 0.86890868201460960000e4 * t35442 * t327 * t38490 + 0.44827663110207120e5 * t27012 * t38490 - 0.91431713802870000e5 * t26839 * t38490 - 0.64452017621962800000e4 * t26994 * t38490 + 0.14967190758878028000e5 * t27005 * t38490 - 0.1291785409666332e4 * t8819 * t38476;
28306   t39651 = 0.2082617000333520e4 * t8825 * t38472 + 0.2082617000333520e4 * t8825 * t38476 - 0.866818967706384e3 * t13528 * t38472 - 0.866818967706384e3 * t13528 * t38476 - 0.67484715573013200000e4 * t27016 * t38490 + 0.11557122718910832000e5 * t27023 * t38490 - 0.50637881815248000000e4 * t35407 * t14909 * t2330 * t38490 - 0.8402098950e3 * t27030 * t38490 + 0.24966236880e4 * t26872 * t38490 - 0.17604397800e4 * t35422 * t314 * t38490 + 0.47370335532153600e5 * t35456 * t341 * t38490;
28307   t39674 = 0.39400862168472e2 * t4465 * t38768 - 0.9738054195240e1 * t3158 * t38798 - 0.19476108390480e2 * t3158 * t38801 - 0.9738054195240e1 * t3158 * t38804 + 0.13957877679844e2 * t3169 * t38807 + 0.27915755359688e2 * t3169 * t38810 - 0.13545439081906666667e5 * t9364 * t13327 - 0.13545439081906666667e5 * t9364 * t13330 + 0.61922007231573333334e4 * t2195 * t13274 + 0.61922007231573333334e4 * t2195 * t13277 - 0.9323979436768500e4 * t3005 * t13327;
28308   t39694 = -0.9323979436768500e4 * t3005 * t13330 + 0.10701039554547066667e4 * t9311 * t13285 + 0.10701039554547066667e4 * t9311 * t13288 - 0.43280240867733333334e3 * t13362 * t13299 - 0.43280240867733333334e3 * t13362 * t13302 - 0.2667333000e3 * t2967 * t13175 - 0.2667333000e3 * t2967 * t13178 + 0.61645029333333333334e3 * t9099 * t13160 + 0.9338e1 * t38583 + 0.18676e2 * t38586 + t35703;
28309   t39695 = t35705 + t35717 + t35719 - t35729 - t35735 - t35742 + t35748 - t35768 - t35770 - t35786 - t35788 + t35791;
28310   t39698 = -t35792 - t35793 + t35794 - t35795 + t35796 + t35797 - t35798 + t35799 - t35800 - t35801 + t35802;
28311   t39717 = t35803 - t35806 - 0.85608316436376533333e4 * t9311 * t13422 - 0.1532569678981440e4 * t3202 * t39206 - 0.1532569678981440e4 * t3202 * t39211 - 0.766284839490720e3 * t3202 * t39162 - 0.16254526898288000000e6 * t12150 * t13448 + 0.67727195409533333333e5 * t9364 * t13451 - 0.6966225813552000e4 * t8880 * t39277 - 0.6966225813552000e4 * t8880 * t39280 - 0.121211732677990500e6 * t12048 * t13448;
28312   t39741 = 0.46619897183842500e5 * t3005 * t13451 - 0.4848469307119620e4 * t8921 * t39277 - 0.4848469307119620e4 * t8921 * t39280 - 0.2424234653559810e4 * t8921 * t39283 + 0.1864795887353700e4 * t3216 * t39286 + 0.1864795887353700e4 * t3216 * t39289 + 0.932397943676850e3 * t3216 * t39292 + 0.22472183064548840000e5 * t12095 * t13419 + 0.2902594088980000e4 * t3208 * t39286 + 0.2902594088980000e4 * t3208 * t39289 + 0.1451297044490000e4 * t3208 * t39292;
28313   t39766 = 0.86690810124202666667e5 * t7061 * t13398 - 0.37153204338944000000e5 * t2195 * t13403 + 0.3250905379657600e4 * t12333 * t38960 + 0.3250905379657600e4 * t12333 * t39095 + 0.1625452689828800e4 * t12333 * t39098 - 0.1393245162710400e4 * t4449 * t39035 - 0.1393245162710400e4 * t4449 * t39038 - 0.696622581355200e3 * t4449 * t39041 - 0.10669332000e4 * t11936 * t13148 + 0.5334666000e3 * t2967 * t13151 - 0.1066933200e3 * t8914 * t38543 - 0.1066933200e3 * t8914 * t38546;
28314   t39796 = -0.533466600e2 * t8914 * t38549 + 0.533466600e2 * t3163 * t38552 + 0.533466600e2 * t3163 * t38521 - 0.3483112906776000e4 * t8880 * t39283 - 0.111663021438752e3 * t3169 * t39185 - 0.99544553995786666667e4 * t35929 * t13478 + 0.38952216780960000000e4 * t13362 * t13481 - 0.238906929589888e3 * t12410 * t10761 * t8564 - 0.238906929589888e3 * t12410 * t3788 * t25503 - 0.119453464794944e3 * t12410 * t3788 * t25507 + 0.93485320274304e2 * t4424 * t30162 * t13144;
28315   t39813 = 0.93485320274304e2 * t4424 * t10955 * t34637 + 0.46742660137152e2 * t4424 * t10955 * t38534 + 0.586230862553448e3 * t9242 * t39117 + 0.586230862553448e3 * t9242 * t39120 + 0.293115431276724e3 * t9242 * t39175 - 0.223326042877504e3 * t3169 * t39178 - 0.223326042877504e3 * t3169 * t39181 - t35809 - t35812 - t35817 + t35829;
28316   t39815 = t35831 + t35838 + t35840 - t35851 + t35853 - t35856 + t35859 + t35871 - t35873 + t35876 + t35912;
28317   t39820 = -t35915 + t35924 - t35927 + t35939 + t35945 - t35947 - t35948 + t35949 + t35950 - t35951 - 0.70196245188242850000e5 * t27053 * t38509 + 0.28078498075297140000e5 * t26895 * t38512;
28318   t39845 = 0.34418804092299720000e5 * t35158 * t38509 - 0.14172448743888120000e5 * t35162 * t38512 - 0.20668566554661312e5 * t27035 * t38509 + 0.7750712457997992e4 * t21152 * t38512 + 0.37487106006003360e5 * t26824 * t38509 - 0.14578319002334640e5 * t26883 * t38512 - 0.17336379354127680e5 * t35215 * t38509 + 0.6934551741651072e4 * t35219 * t38512 + 0.38854836239007600000e4 * t26327 * t38509 - 0.14314939667002800000e4 * t21006 * t38512 - 0.1600399800e3 * t21161 * t38512;
28319   t39868 = -0.11096105280e4 * t26433 * t38509 + 0.5548052640e3 * t26901 * t38512 + 0.8535465600e3 * t35242 * t38509 - 0.4267732800e3 * t35246 * t38512 + 0.30077608223582640000e4 * t27040 * t38509 - 0.12890403524392560000e4 * t21097 * t38512 - 0.74835953794390140000e4 * t27108 * t38509 + 0.33260423908617840000e4 * t26908 * t38512 + 0.45514264296003360000e4 * t35284 * t38509 - 0.20688301952728800000e4 * t35288 * t38512 - 0.22988545184721600e5 * t27119 * t38509;
28320   t39870 = -t35957 - t35959 + t35966 + t35975 + t35977 - t35981 + t35983 - t35985 + t35989 + t35996 - t35998;
28321   t39871 = t36000 - t36002 + t36022 - t36025 - t36035 - t36037 - t36050 + t36052 - t36054 + t36056 + t36070 - t36072;
28322   t39878 = t38597 * t360;
28323   t39880 = t38617 * t360;
28324   t39882 = t38382 * t360;
28325   t39888 = t13220 * t7229;
28326   t39891 = t4410 * t21795;
28327   t39893 = t13224 * t7229;
28328   t39897 = t4410 * t2114 * t360;
28329   t39909 = t360 * t38592 * t616 * t881 - t27446 * t39891 - 0.36e2 * t27459 * t39891 - t3240 * t39878 - 0.2e1 * t3240 * t39882 + t9392 * t39880 + 0.12e2 * t9380 * t39888 + 0.2e1 * t9392 * t39888 + 0.12e2 * t9380 * t39893 + 0.2e1 * t9392 * t39893 + 0.6e1 * t9372 * t39897 + 0.6e1 * t9380 * t39897 + t9392 * t39897;
28330   t39918 = t38605 * t360;
28331   t39920 = t38613 * t360;
28332   t39931 = t38609 * t360;
28333   t39939 = -0.12e2 * t27452 * t39891 - 0.24e2 * t27471 * t39891 - 0.2e1 * t3232 * t39878 - 0.4e1 * t3232 * t39882 - 0.2e1 * t3232 * t39918 - 0.4e1 * t3232 * t39920 - 0.2e1 * t3232 * t39931 - t3240 * t39918 - 0.2e1 * t3240 * t39920 - t3240 * t39931 + 0.6e1 * t9372 * t39880 + 0.6e1 * t9380 * t39880 + 0.12e2 * t9372 * t39888 + 0.12e2 * t9372 * t39893;
28334   t39941 = my_piecewise3(t278, t39871 + t39868 + t39870 + t39845 + t39820 + t39815 + t39813 + t39796 + t39766 + t39741 + t39717 + t39698 + t39694 + t39695 + t39674 + t39651 + t39620 + t39592 + t39568 + t39545 + t39530 + t39517 + t39496 + t39484 + t39461 + t39429 + t39398 + t39376 + t39371 + t39347 + t39327 + t39303 + t39269 + t39241 + t39209 + t39184 + t39155 + t39130 + t39103 + t39079 + t39062 + t39064 + t39060 + t39033 + t39019 + t38999 + t38975 + t38957 + t38943 + t38918 + t38892 + t38868 + t38845 + t38842 + t38844 + t38841 + t38837 + t38824 + t38813 + t38797 + t38762 + t38764 + t38765 + t38761, t39909 + t39939);
28335   t39955 = 0.12e2 * t10371 * t1078 * t2134 * t3566 + 0.24e2 * t10371 * t2997 * t3566 * t742 - 0.48e2 * t1078 * t2001 * t31883 * t3566 + 0.8e1 * t1078 * t31744 * t3565 + 0.4e1 * t1078 * t31751 * t3565 - 0.4e1 * t13139 * t674 * t885 - 0.6e1 * t2001 * t4422 * t6316 - t2134 * t4486 * t674 - 0.4e1 * t3565 * t3566 * t8711 + 0.8e1 * t3565 * t38747 * t742 + 0.8e1 * t10375 * t13115 - 0.8e1 * t10375 * t13136 - 0.8e1 * t13121 * t10379 - t277 * t39941 - 0.8e1 * t38741 * t3567;
28336   t39994 = t1263 * t3243;
28337   t40001 = 0.24e2 * t10371 * t10378 * t13106 - 0.4e1 * t3565 * t31789 * t1078 + 0.4e1 * t674 * t2994 * t3620 * t363 + 0.2e1 * t674 * t1075 * t10525 * t363 - 0.8e1 * t10375 * t13118 - 0.4e1 * t674 * t3621 * t3243 + 0.1174e1 * t39941 + 0.8e1 * t13121 * t10383 - 0.2e1 * t674 * t4415 * t2472 - 0.4e1 * t674 * t13232 * t885 - 0.8e1 * t3565 * t10378 * t2997 + 0.8e1 * t3565 * t10382 * t2997 - 0.8e1 * t10375 * t13112 - 0.4e1 * t31757 * t4382 + 0.8e1 * t3565 * t39994 * t742 + 0.2e1 * t2000 * t2001 * t4486;
28338   t40012 = 0.30203104535893596326e2 * t11127 * t13606 * t2502 * t2504 + 0.22265550000000000000e2 * t13598 * t3815 * t2486 * t19 * t3264 - 0.60406209071787192650e2 * t11127 * t3815 * t3274 * t214 * t2504 + 0.80541612095716256868e2 * t11127 * t4489 * t1170 * t2502 * t2504 - 0.55663875000000000000e2 * t13598 * t13600 * t9445 + 0.29687400000000000000e2 * t38268 - 0.80541612095716256867e2 * t38276 + 0.22265550000000000000e3 * t13598 * t31908 * t9430 + 0.24739500000000000000e1 * t29945 * t3256 - 0.65972000000000000000e1 * t38253 * t1988 + 0.41232500000000000000e0 * t29855 * t9455 - 0.32986000000000000000e1 * t10349 * t9451 + 0.12369750000000000000e1 * t10349 * t9461 + 0.32986000000000000000e1 * t38258 - 0.3e1 / 0.8e1 * t1179 * t1249 * (t38680 + t38729 + t39955 + t40001) * t377 - t38243 - t3286 * t38182 * t1979 / 0.6e1 - 0.4e1 / 0.3e1 * t38235;
28339   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28340     v4rho2sigmatau[17] = t38326 + t40012;
28341 
28342   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28343     v4rho2lapl2[0] = 0.0e0;
28344 
28345   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28346     v4rho2lapl2[1] = 0.0e0;
28347 
28348   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28349     v4rho2lapl2[2] = 0.0e0;
28350 
28351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28352     v4rho2lapl2[3] = 0.0e0;
28353 
28354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28355     v4rho2lapl2[4] = 0.0e0;
28356 
28357   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28358     v4rho2lapl2[5] = 0.0e0;
28359 
28360   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28361     v4rho2lapl2[6] = 0.0e0;
28362 
28363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28364     v4rho2lapl2[7] = 0.0e0;
28365 
28366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28367     v4rho2lapl2[8] = 0.0e0;
28368 
28369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28370     v4rho2lapltau[0] = 0.0e0;
28371 
28372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28373     v4rho2lapltau[1] = 0.0e0;
28374 
28375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28376     v4rho2lapltau[2] = 0.0e0;
28377 
28378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28379     v4rho2lapltau[3] = 0.0e0;
28380 
28381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28382     v4rho2lapltau[4] = 0.0e0;
28383 
28384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28385     v4rho2lapltau[5] = 0.0e0;
28386 
28387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28388     v4rho2lapltau[6] = 0.0e0;
28389 
28390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28391     v4rho2lapltau[7] = 0.0e0;
28392 
28393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28394     v4rho2lapltau[8] = 0.0e0;
28395 
28396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28397     v4rho2lapltau[9] = 0.0e0;
28398 
28399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28400     v4rho2lapltau[10] = 0.0e0;
28401 
28402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
28403     v4rho2lapltau[11] = 0.0e0;
28404 
28405   t40014 = t29844 * t4612 / 0.6e1;
28406   t40015 = t10311 * t13614;
28407   t40017 = t10336 * t14025;
28408   t40018 = t10344 * t14028;
28409   t40019 = t40018 * t644;
28410   t40021 = t1323 * t4610;
28411   t40025 = t15 * t14023;
28412   t40029 = t3547 * t384 * t4610;
28413   t40044 = t4528 * t621;
28414   t40051 = t9542 * t3346;
28415   t40062 = t4501 * t1506;
28416   t40068 = t13635 * t477;
28417   t40071 = t4501 * t1370;
28418   t40074 = 0.4e1 * t13720 * t187 * t405 * t474 + 0.2e1 * t1503 * t187 * t405 * t4528 - 0.4e1 * t13638 * t1506 * t3291 + 0.2e1 * t1369 * t1370 * t4607 + 0.8e1 * t1369 * t1846 * t4497 - 0.16e2 * t1503 * t3291 * t4501 - 0.2e1 * t1846 * t405 * t4496 + 0.8e1 * t3291 * t40044 * t477 + 0.24e2 * t13617 * t40062 - 0.48e2 * t13617 * t40068 - 0.8e1 * t405 * t40051 + 0.12e2 * t4747 * t40071;
28419   t40080 = t3292 * t9685;
28420   t40089 = t3346 * t3346;
28421   t40094 = t1194 * t3538;
28422   t40098 = t3346 * t1241;
28423   t40105 = t1369 * t1194;
28424   t40113 = -0.16e2 * t1369 * t187 * t40089 * t95 - 0.4e1 * t10270 * t1195 * t405 - 0.4e1 * t13642 * t405 * t621 - 0.24e2 * t1370 * t13728 * t9531 - 0.4e1 * t13721 * t405 * t621 - 0.2e1 * t14020 * t405 * t477 - t1506 * t405 * t4607 + 0.16e2 * t3291 * t40094 * t477 + 0.16e2 * t3291 * t40098 * t477 + 0.16e2 * t9535 * t13729 + 0.4e1 * t405 * t40080 - 0.16e2 * t40105 * t9539;
28425   t40131 = t3309 * t27797;
28426   t40132 = t7592 * t40131;
28427   t40134 = t3326 * t27801;
28428   t40135 = t2565 * t40134;
28429   t40137 = t13667 * t7509;
28430   t40138 = t11212 * t40137;
28431   t40140 = t3326 * t27797;
28432   t40141 = t11212 * t40140;
28433   t40144 = t2544 * t3309 * t27801;
28434   t40146 = t32909 * t13675;
28435   t40149 = t16937 * t13674 * t4811;
28436   t40151 = t13646 * t4811;
28437   t40152 = t33374 * t40151;
28438   t40154 = t13657 * t4811;
28439   t40155 = t33381 * t40154;
28440   t40157 = t5519 * t13681;
28441   t40160 = t4869 * t13675;
28442   t40162 = t32893 * t13678;
28443   t40164 = t13657 * t7509;
28444   t40165 = t7592 * t40164;
28445   t40167 = t4504 * t36;
28446   t40168 = t40167 * t1514;
28447   t40169 = t32354 * t40168;
28448   t40171 = t40167 * t1448;
28449   t40172 = t32360 * t40171;
28450   t40175 = t9645 * t22 * t3314;
28451   t40176 = t12619 * t40175;
28452   t40178 = t17094 * t40171;
28453   t40180 = t7614 * t40175;
28454   t40182 = t22419 * t40168;
28455   t40184 = t22913 * t40171;
28456   t40186 = t7603 * t40175;
28457   t40188 = 0.96e2 * t40160 - 0.1820e4 / 0.3e1 * t40162 - 0.168e3 * t40165 + 0.280e3 * t40169 - 0.168e3 * t40172 + 0.112e3 * t40176 - 0.18e2 * t40178 + 0.36e2 * t40180 - 0.210e3 * t40182 + 0.140e3 * t40184 - 0.140e3 * t40186;
28458   t40190 = t33580 - t33581 + t33584 + t33585 - t33586 - t33587 - t33593 + t33594 + t33600 - t33601 + t33602;
28459   t40191 = t3309 * t9569;
28460   t40192 = t2565 * t40191;
28461   t40194 = t13746 * t1453;
28462   t40195 = t4281 * t40194;
28463   t40198 = t2544 * t13646 * t1483;
28464   t40200 = t12628 * t13650;
28465   t40203 = t2544 * t3302 * t9569;
28466   t40205 = t23808 * t13654;
28467   t40207 = t7568 * t13658;
28468   t40209 = t33603 - t33605 - t33609 + t33610 + 0.28e2 * t40192 - 0.96e2 * t40195 + 0.6e1 * t40198 - 0.24e2 * t40200 - 0.12e2 * t40203 + 0.700e3 * t40205 - 0.1400e4 / 0.3e1 * t40207;
28469   t40212 = t7568 * t13661;
28470   t40214 = t13646 * t1438;
28471   t40215 = t7592 * t40214;
28472   t40217 = t13657 * t1483;
28473   t40218 = t2565 * t40217;
28474   t40220 = t5657 * t13664;
28475   t40222 = t1513 * t13668;
28476   t40224 = t1513 * t13671;
28477   t40226 = t13657 * t1438;
28478   t40227 = t11212 * t40226;
28479   t40229 = t13667 * t1483;
28480   t40230 = t4281 * t40229;
28481   t40232 = t3326 * t9569;
28482   t40233 = t4281 * t40232;
28483   t40235 = t1470 * t13647;
28484   t40237 = t1470 * t13650;
28485   t40239 = 0.1400e4 / 0.3e1 * t40212 + 0.42e2 * t40215 - 0.28e2 * t40218 - 0.2800e4 / 0.3e1 * t40220 + 0.560e3 * t40222 - 0.1120e4 / 0.3e1 * t40224 - 0.40e2 * t40227 + 0.24e2 * t40230 - 0.16e2 * t40233 + 0.60e2 * t40235 - 0.120e3 * t40237;
28486   t40240 = t12628 * t13647;
28487   t40242 = t3314 * t3314;
28488   t40244 = t3855 * t3856 * t40242;
28489   t40246 = t4853 * t4505;
28490   t40248 = t16866 * t4505;
28491   t40250 = t33434 * t4505;
28492   t40252 = t13667 * t1453;
28493   t40253 = t2565 * t40252;
28494   t40255 = t13657 * t1418;
28495   t40256 = t32232 * t40255;
28496   t40259 = t2544 * t13657 * t1453;
28497   t40261 = t13646 * t1418;
28498   t40262 = t23898 * t40261;
28499   t40264 = 0.12e2 * t40240 - 0.16e2 * t40244 - 0.120e3 * t40246 - 0.60e2 * t40248 - 0.6e1 * t40250 + 0.84e2 * t40253 - 0.160e3 * t40256 - 0.12e2 * t40259 + 0.84e2 * t40262 + t33620 + t33621;
28500   t40267 = t1417 * t85 * t40242;
28501   t40269 = t1442 * t4508;
28502   t40272 = t2564 * t929 * t40242;
28503   t40274 = t5601 * t4511;
28504   t40276 = t3363 * t27801;
28505   t40277 = t4281 * t40276;
28506   t40279 = -t3854 + t3862 - 0.12e2 * t40267 + 0.7700e4 / 0.9e1 * t40269 + 0.28e2 * t40272 - 0.8960e4 / 0.9e1 * t40274 - t33624 + 0.96e2 * t40277 + t33625 - t33629 - t33630;
28507   t40280 = -t33631 - t33634 + t33636 + t33649 - t33650 + t33651 - t33652 - t33660 + t33661 - t33662 + t33663;
28508   t40283 = 0.168e3 * t40132 - 0.112e3 * t40135 + 0.240e3 * t40138 - 0.160e3 * t40141 + 0.24e2 * t40144 + 0.18e2 * t40146 - 0.108e3 * t40149 + 0.630e3 * t40152 - 0.672e3 * t40155 + 0.672e3 * t40157 + t40188 + t40190 + t40209 + t40239 + t40264 + t40279 + t40280;
28509   t40287 = t13693 * t466;
28510   t40291 = t4514 * t1486;
28511   t40295 = t4514 * t1490;
28512   t40299 = t3333 * t3333;
28513   t40306 = t4518 * t1486;
28514   t40310 = t4518 * t1490;
28515   t40320 = t56 * t40283 * t91 / 0.100e3 + t1499 * t40287 * t91 / 0.50e2 + t1499 * t40291 * t91 / 0.100e3 - t4970 * t40295 * t91 / 0.100e3 + t1499 * t40299 * t91 / 0.50e2 + t1499 * t1191 * t9658 / 0.50e2 - t4970 * t40306 * t91 / 0.100e3 + t17136 * t40310 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t13694 * t2587 - 0.3e1 / 0.100e3 * t4515 * t1500 - 0.3e1 / 0.100e3 * t4515 * t7629;
28516   t40346 = 0.3e1 / 0.50e2 * t4515 * t7633 - 0.3e1 / 0.50e2 * t56 * t40299 * t1492 - 0.3e1 / 0.25e2 * t1189 * t9674 - 0.3e1 / 0.50e2 * t1189 * t1492 * t9658 + 0.3e1 / 0.20e2 * t4519 * t33784 + 0.3e1 / 0.50e2 * t4519 * t33788 - t4519 * t33792 / 0.10e2 - 0.3e1 / 0.100e3 * t4519 * t1495 - t470 * t40283 * t91 / 0.100e3 - t12703 * t9674 / 0.25e2 + 0.6e1 / 0.25e2 * t12685 * t9674;
28517   t40390 = -0.26007243037260800e5 * t32459 * t40168 + 0.11145961301683200e5 * t32463 * t40171 - 0.3715320433894400e4 * t12751 * t40175 - 0.70196245188242850000e5 * t22275 * t40168 + 0.8535465600e3 * t32420 * t40168 - 0.4267732800e3 * t32424 * t40171 + 0.2133866400e3 * t12773 * t40175 - 0.74835953794390140000e4 * t22484 * t40168 + 0.34418804092299720000e5 * t32540 * t40168 - 0.14172448743888120000e5 * t32544 * t40171 + 0.40492710696823200000e4 * t12759 * t40175 + 0.28078498075297140000e5 * t22920 * t40171 - 0.93594993584323800000e4 * t8291 * t40175 - 0.20668566554661312e5 * t22281 * t40168 + 0.7750712457997992e4 * t17820 * t40171 - 0.2583570819332664e4 * t8298 * t40175 + 0.38854836239007600000e4 * t22522 * t40168 - 0.14314939667002800000e4 * t17885 * t40171 + 0.40899827620008000000e3 * t7671 * t40175;
28518   t40421 = t13667 * t1438;
28519   t40424 = t13746 * t1483;
28520   t40427 = t3363 * t9569;
28521   t40432 = 0.3200799600e3 * t22501 * t40168 - 0.1600399800e3 * t17832 * t40171 + 0.1600399800e3 * t7686 * t40175 + 0.33260423908617840000e4 * t22934 * t40171 - 0.16630211954308920000e4 * t7705 * t40175 + 0.45514264296003360000e4 * t32445 * t40168 - 0.20688301952728800000e4 * t32449 * t40171 + 0.82753207810915200000e3 * t12996 * t40175 + 0.48763580694864000e5 * t22571 * t40168 - 0.20318158622860000e5 * t22926 * t40171 + 0.8127263449144000e4 * t7719 * t40175 - 0.95484470551056e2 * t2756 * t40232 + 0.76628483949072000e5 * t11386 * t13743 - 0.30651393579628800e5 * t2617 * t13747 + 0.15325696789814400e5 * t2617 * t13750 + 0.1915712098726800e4 * t7983 * t40421 - 0.766284839490720e3 * t2770 * t40424 + 0.383142419745360e3 * t2770 * t40427 - 0.121211732677990500e6 * t11342 * t13753;
28522   t40434 = t13746 * t1438;
28523   t40445 = t13760 * t1438;
28524   t40448 = t13777 * t1483;
28525   t40451 = t3375 * t9569;
28526   t40465 = -0.2424234653559810e4 * t7948 * t40434 - 0.853546560e2 * t11693 * t40421 + 0.68895221848871040e5 * t11359 * t13774 - 0.25835708193326640e5 * t2633 * t13778 + 0.8611902731108880e4 * t2633 * t13781 + 0.1148253697481184e4 * t7931 * t40445 - 0.430595136555444e3 * t2799 * t40448 + 0.143531712185148e3 * t2799 * t40451 + 0.112056e3 * t40132 - 0.74704e2 * t40135 + 0.160080e3 * t40138 - 0.106720e3 * t40141 + 0.16008e2 * t40144 + 0.12006000000000000000e2 * t40146 - 0.72036000000000000000e2 * t40149 + 0.42021000000000000000e3 * t40152 - 0.44822400000000000000e3 * t40155 + 0.44822400000000000000e3 * t40157 + 0.64032000000000000000e2 * t40160;
28527   t40502 = -0.40464666666666666667e3 * t40162 - 0.112056e3 * t40165 - 0.17336379354127680e5 * t32521 * t40168 + 0.6934551741651072e4 * t32525 * t40171 - 0.1733637935412768e4 * t12766 * t40175 - 0.67416549193646520000e4 * t22488 * t40168 + 0.25682494930912960000e4 * t22937 * t40171 - 0.64206237327282400000e3 * t7678 * t40175 + 0.29863366198736000000e4 * t32568 * t40168 + 0.30077608223582640000e4 * t22472 * t40168 - 0.12890403524392560000e4 * t17844 * t40171 + 0.85936023495950400000e3 * t7699 * t40175 - 0.22988545184721600e5 * t22558 * t40168 + 0.9195418073888640e4 * t17858 * t40171 - 0.4597709036944320e4 * t7712 * t40175 + 0.36363519803397150000e5 * t22176 * t40168 - 0.13985969155152750000e5 * t17905 * t40171 + 0.55943876620611000000e4 * t8285 * t40175 - 0.11685665034288000000e4 * t32572 * t40171;
28528   t40519 = t13851 * t7509;
28529   t40522 = t3456 * t27797;
28530   t40525 = t3467 * t27801;
28531   t40528 = t3456 * t27801;
28532   t40531 = t13777 * t7509;
28533   t40534 = t3375 * t27797;
28534   t40539 = t13760 * t7509;
28535   t40542 = t3375 * t27801;
28536   t40545 = t3369 * t27797;
28537   t40550 = 0.25968144520640000000e3 * t12739 * t40175 - 0.11096105280e4 * t22516 * t40168 + 0.5548052640e3 * t22929 * t40171 - 0.3698701760e3 * t7692 * t40175 + 0.37487106006003360e5 * t22182 * t40168 - 0.14578319002334640e5 * t22942 * t40171 + 0.4165234000667040e4 * t8304 * t40175 + 0.26240974204202352e5 * t7965 * t40519 - 0.7497421201200672e4 * t7965 * t40522 + 0.2915663800466928e4 * t2805 * t40525 - 0.2786490325420800e4 * t4334 * t40528 - 0.49550290721112600e5 * t7922 * t40531 + 0.16516763573704200e5 * t7922 * t40534 - 0.6606705429481680e4 * t2791 * t40528 + 0.24242346535598100e5 * t7948 * t40539 + 0.3729591774707400e4 * t2785 * t40542 - 0.9696938614239240e4 * t7948 * t40545 + 0.18676000000000000000e3 * t40169 - 0.11205600000000000000e3 * t40172;
28538   t40563 = t13777 * t1438;
28539   t40568 = t13851 * t1438;
28540   t40571 = t13870 * t1483;
28541   t40574 = t3467 * t9569;
28542   t40587 = 0.74704000000000000000e2 * t40176 - 0.12006000000000000000e2 * t40178 + 0.24012000000000000000e2 * t40180 - 0.14007000000000000000e3 * t40182 + 0.93380000000000000000e2 * t40184 - 0.93380000000000000000e2 * t40186 - 0.12951612079669200e5 * t11292 * t13848 + 0.4771646555667600e4 * t2641 * t13852 - 0.1363327587333600e4 * t2641 * t13855 - 0.185023029709560e3 * t7972 * t40563 + 0.57787931180425600000e4 * t1555 * t13874 + 0.788017243369440e3 * t11645 * t40568 - 0.315206897347776e3 * t4349 * t40571 + 0.78801724336944e2 * t4349 * t40574 + 0.22472183064548840000e5 * t11302 * t13878 - 0.16254526898288000000e6 * t11394 * t13753 + 0.67727195409533333333e5 * t7766 * t13761 - 0.27090878163813333334e5 * t7766 * t13764 - 0.3483112906776000e4 * t7990 * t40434;
28543   t40589 = t13760 * t1483;
28544   t40592 = t3369 * t9569;
28545   t40609 = t13851 * t1483;
28546   t40612 = t3456 * t9569;
28547   t40631 = 0.1451297044490000e4 * t2777 * t40589 - 0.580518817796000e3 * t2777 * t40592 + 0.86690810124202666667e5 * t5639 * t13774 - 0.37153204338944000000e5 * t1538 * t13778 + 0.12384401446314666667e5 * t1538 * t13781 + 0.1625452689828800e4 * t11659 * t40445 + 0.48594396674448800000e5 * t7855 * t13852 - 0.13884113335556800000e5 * t7855 * t13855 - 0.1874355300300168e4 * t7965 * t40563 + 0.728915950116732e3 * t2805 * t40609 - 0.208261700033352e3 * t2805 * t40612 + 0.57787931180425600000e5 * t5627 * t13878 - 0.23115172472170240000e5 * t1555 * t13871 - 0.11472934697433240000e6 * t5648 * t13848 + 0.47241495812960400000e5 * t1546 * t13852 - 0.13497570232274400000e5 * t1546 * t13855 - 0.1811516004857880e4 * t11588 * t40563 + 0.745918354941480e3 * t4342 * t40609 - 0.213119529983280e3 * t4342 * t40612;
28548   t40637 = t13777 * t1418;
28549   t40640 = t13870 * t1453;
28550   t40647 = t13851 * t1418;
28551   t40650 = t13888 * t1453;
28552   t40653 = t17738 * t4504;
28553   t40661 = t13667 * t1418;
28554   t40668 = -0.12495702002001120000e6 * t11377 * t13848 - 0.2627976225488768e4 * t33041 * t13870 * t1418 - 0.28984256077726080e5 * t33486 * t40637 - 0.5967346839531840e4 * t4342 * t40640 - 0.31864040105102856e5 * t23141 * t40637 - 0.5831327600933856e4 * t2805 * t40640 + 0.5862308625534480e4 * t22860 * t40647 + 0.1004967192948768e4 * t2819 * t40650 - 0.467426601371520e3 * t4316 * t40653 * t1453 + 0.6935065800e3 * t23150 * t40255 + 0.2774026320e3 * t2748 * t40194 - 0.5974825920e3 * t32749 * t40661 + 0.14972327624019360e5 * t33048 * t40647 + 0.2836862076129984e4 * t4349 * t40650 - t32121 + t32123 - t32126 + t32129 - t32132 + t32149;
28555   t40680 = t13760 * t1418;
28556   t40683 = t13851 * t1453;
28557   t40688 = -t32151 + t32153 - t32155 + t32158 - t32162 - t32181 + t32183 + t32186 + t32227 - t32230 + t32241 + t32243 - 0.1600399800e3 * t22889 * t40261 - 0.800199900e2 * t2742 * t40252 - 0.2005173881572176e4 * t23156 * t40255 - 0.572906823306336e3 * t2756 * t40194 + 0.17223805462217760e5 * t22884 * t40680 + 0.3014165955888108e4 * t2799 * t40683 - 0.3330414534772080e4 * t22905 * t40637;
28558   t40691 = -0.545331034933440e3 * t2813 * t40640 + t32244 + t32245 - t32246 + t32247 - t32248 + t32249 + t32251 + t32252 - t32253 - t32254 - t32255 - t32256 + t32258 + t32269 + t32272 - t32277 - t32280 - t32299;
28559   t40693 = t13746 * t4811;
28560   t40696 = t13777 * t4811;
28561   t40701 = t13851 * t4811;
28562   t40711 = t13667 * t4811;
28563   t40714 = -t32301 + t32329 + t32331 - t32342 - t32346 + t32347 - t32348 - t32352 - t32372 + t32374 + t32386 - 0.67132651944733200000e5 * t17616 * t40693 - 0.60739066045234800000e5 * t33330 * t40696 - 0.65602435510505880e5 * t33335 * t40696 + 0.29905254385870248e5 * t33342 * t40701 + 0.11557122718910832000e5 * t33348 * t40701 - 0.50637881815248000000e4 * t33356 * t13870 * t4811 + 0.24966236880e4 * t33363 * t40154 - 0.17604397800e4 * t33321 * t40711;
28564   t40721 = t13760 * t4811;
28565   t40730 = 0.14967190758878028000e5 * t33133 * t40711 - 0.86890868201460960000e4 * t33141 * t40693 - 0.91431713802870000e5 * t33147 * t40693 + 0.47370335532153600e5 * t33154 * t40721 + 0.12635324133883713000e6 * t33160 * t40721 + 0.36815884175490462e5 * t17624 * t40721 - 0.67484715573013200000e4 * t17604 * t40696 - t32392 + t32430 - t32432 - t32441 + t32443 - t32457 + t32469 - t32471 + t32487 - t32493 - t32501 + t32503 + t32511;
28566   t40748 = t13870 * t7509;
28567   t40751 = t3467 * t27797;
28568   t40754 = t32517 - t32519 + t32531 + t32533 - t32536 + t32538 - t32550 + t32552 - t32556 - t32564 + t32566 + 0.2150162366308992e4 * t11559 * t13888 * t7509 - 0.477813859179776e3 * t11559 * t3504 * t27797 + 0.186970640548608e3 * t4316 * t10191 * t27801 - 0.8322078960e3 * t7996 * t40137 + 0.5548052640e3 * t7996 * t40140 - 0.2774026320e3 * t2748 * t40276 - 0.12608275893911040e5 * t11645 * t40748 + 0.3152068973477760e4 * t11645 * t40751;
28569   t40755 = t3504 * t27801;
28570   t40794 = -0.1260827589391104e4 * t4349 * t40755 - 0.4689846900427584e4 * t7978 * t40748 + 0.1172461725106896e4 * t7978 * t40751 - 0.446652085755008e3 * t2819 * t40755 + 0.25361224068010320e5 * t11588 * t40519 - 0.7246064019431520e4 * t11588 * t40522 + 0.2983673419765920e4 * t4342 * t40525 + 0.2133866400e3 * t7940 * t40164 - 0.2133866400e3 * t7940 * t40131 + 0.1066933200e3 * t2742 * t40134 + 0.2005173881572176e4 * t7952 * t40137 - 0.1336782587714784e4 * t7952 * t40140 + 0.572906823306336e3 * t2756 * t40276 - 0.13779044369774208e5 * t7931 * t40531 + 0.4593014789924736e4 * t7931 * t40534 - 0.1722380546221776e4 * t2799 * t40528 + 0.2590322415933840e4 * t7972 * t40519 - 0.740092118838240e3 * t7972 * t40522 + 0.272665517466720e3 * t2813 * t40525;
28571   t40796 = t13777 * t1453;
28572   t40809 = -t32575 + t32576 + t32577 - t32580 - 0.5594387662061100e4 * t2785 * t40796 - 0.18647958873537000e5 * t2625 * t13764 + 0.4876358069486400e4 * t4334 * t40683 + 0.57808672507964700e5 * t22877 * t40680 + 0.11561734501592940e5 * t2791 * t40683 + 0.46619897183842500e5 * t2625 * t13761 - t32599 + t32600 + t32601 - t32602 + t32603 + t32604 - t32605 - t32606 - t32607;
28573   t40810 = t32608 - t32610 + t32611 + t32690 - t32693 + t32719 + t32726 + t32729 - t32736 - t32739 + t32745 + t32747 - t32754 - t32756 - t32761 + t32762 + t32775 + t32782 - t32788 - t32791;
28574   t40833 = t32801 + t32804 - t32823 - t32825 + t32831 - 0.10025869407860880e5 * t11328 * t13664 + 0.4296801174797520e4 * t2610 * t13668 - 0.2864534116531680e4 * t2610 * t13671 - 0.334195646928696e3 * t7952 * t40226 + 0.143226705826584e3 * t2756 * t40229 - t32836 + 0.18676e2 * t40192 - 0.64032e2 * t40195 + 0.4002e1 * t40198 - 0.16008e2 * t40200 - 0.8004e1 * t40203 + 0.46690000000000000000e3 * t40205 - 0.31126666666666666666e3 * t40207 + 0.31126666666666666666e3 * t40212;
28575   t40836 = t13760 * t1453;
28576   t40839 = t13746 * t1418;
28577   t40863 = 0.28014e2 * t40215 - 0.18676e2 * t40218 + 0.1511837450391720e4 * t2762 * t40836 - 0.3501097253538720e4 * t32721 * t40839 - 0.62253333333333333334e3 * t40220 + 0.37352000000000000000e3 * t40222 - 0.24901333333333333334e3 * t40224 - 0.26680e2 * t40227 + 0.16008e2 * t40230 - 0.10672e2 * t40233 + 0.40020e2 * t40235 - 0.80040e2 * t40237 + 0.8004e1 * t40240 + 0.159140784251760e3 * t4326 * t40589 - 0.63656313700704e2 * t4326 * t40592 + 0.14225776000000000000e4 * t1522 * t13747 - 0.2133866400e3 * t4356 * t40836 - 0.71128880000000000000e3 * t1522 * t13750 + 0.5442614821410192e4 * t23136 * t40661;
28578   t40899 = 0.426773280e2 * t4356 * t40424 - 0.213386640e2 * t4356 * t40427 + 0.24945317931463380000e5 * t11336 * t13743 - 0.11086807969539280000e5 * t7808 * t13747 + 0.55434039847696400000e4 * t7808 * t13750 + 0.680326852676274e3 * t7960 * t40421 - 0.302367490078344e3 * t2762 * t40424 + 0.151183745039172e3 * t2762 * t40427 - 0.15171421432001120000e5 * t5514 * t13753 + 0.68961006509096000000e4 * t1530 * t13761 - 0.27584402603638400000e4 * t1530 * t13764 - 0.350109725353872e3 * t11613 * t40434 + t32839 + t32860 - 0.10672e2 * t40244 - 0.80040e2 * t40246 + 0.151183745039172e3 * t2761 * t967 * t40242 - 0.14251941345213173333e5 * t5560 * t4584 - 0.63656313700704e2 * t3942 * t3943 * t40242;
28579   t40936 = -0.15125740308129111111e6 * t1663 * t4588 - 0.213386640e2 * t3927 * t3928 * t40242 + 0.24021417267335106667e5 * t1655 * t4581 - 0.40020e2 * t40248 - 0.4002e1 * t40250 - 0.372959177470740e3 * t1795 * t151 * t40242 + 0.56028e2 * t40253 - 0.106720e3 * t40256 - 0.8004e1 * t40259 + 0.56028e2 * t40262 + t32903 + t32907 - 0.208261700033352e3 * t2804 * t1006 * t40242 + 0.51527571969212826667e5 * t5547 * t4566 + 0.78801724336944e2 * t3893 * t3894 * t40242 + 0.19975273835154524444e5 * t1687 * t4569 - 0.580518817796000e3 * t2776 * t980 * t40242 + 0.79466575947185777779e5 * t5534 * t4536 + 0.232207527118400e3 * t3958 * t3959 * t40242 + 0.21318859649762643333e6 * t1671 * t4539;
28580   t40944 = 0.550558785790140e3 * t2790 * t993 * t40242 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 - t32942 + t32954 + t32967 + 0.38952216780960000000e4 * t12798 * t13889;
28581   t40986 = -0.86560481735466666667e3 * t12798 * t13892 - 0.119453464794944e3 * t11559 * t13870 * t1438 + 0.46742660137152e2 * t4316 * t13888 * t1483 - 0.10387257808256e2 * t4316 * t3504 * t9569 + 0.36987017600000000000e4 * t11180 * t13664 - 0.18493508800000000000e4 * t7776 * t13668 + 0.12329005866666666667e4 * t7776 * t13671 + 0.1387013160e3 * t7996 * t40226 - 0.693506580e2 * t2748 * t40229 + 0.462337720e2 * t2748 * t40232 - 0.28451552000000000000e4 * t5505 * t13743 - 0.372959177470740e3 * t2785 * t40592 - 0.19476108390480e2 * t2813 * t40612 - 0.10669332000e4 * t11170 * t13654 + 0.5334666000e3 * t2570 * t13658 - 0.5334666000e3 * t2570 * t13661 - 0.533466600e2 * t7940 * t40214 + 0.266733300e2 * t2742 * t40217 - 0.266733300e2 * t2742 * t40191;
28582   t41006 = -0.85608316436376533333e4 * t7899 * t13871 + 0.21402079109094133334e4 * t7899 * t13874 + 0.293115431276724e3 * t7978 * t40568 - 0.111663021438752e3 * t2819 * t40571 + 0.27915755359688e2 * t2819 * t40574 - 0.99544553995786666667e4 * t32164 * t13885 + 0.68166379366680e2 * t2813 * t40609 + t32968 + t32983 - 0.8004e1 * t40267 + 0.57065555555555555556e3 * t40269 + 0.18676e2 * t40272 - 0.66403555555555555556e3 * t40274 - t32997 - t33002 - t33014 + t33019 + t33021 + t33029;
28583   t41007 = t33035 + t33039 - t33046 - t33054 - t33058 - t33063 - t33065 + t33078 + t33081 + t33087 - t33088 - t33089 + t33090 + t33091 - t33092 + t33093 - t33094 + t33097 - t33098 + t33099;
28584   t41028 = -t33100 - t33101 - t33102 + t33103 - t33104 + t33105 - t33106 + t33107 + t33108 - t33109 - t33110 + t33111 - 0.10387257808256e2 * t3910 * t3913 * t40242 + 0.38014434755555555556e4 * t1648 * t4575 + 0.462337720e2 * t2747 * t954 * t40242 - 0.27858811333333333333e4 * t5575 * t4578 - 0.10348137178077040000e6 * t5588 * t4560 - 0.213119529983280e3 * t3996 * t3997 * t40242 - 0.11222991612908413333e6 * t1679 * t4563;
28585   t41071 = 0.143531712185148e3 * t1803 * t165 * t40242 - 0.11588284492335600e5 * t8265 * t4545 - 0.19476108390480e2 * t1781 * t178 * t40242 - 0.12002998500e4 * t7505 * t4548 - 0.266733300e2 * t1812 * t114 * t40242 - 0.10025869407860880e5 * t8248 * t4551 + 0.27915755359688e2 * t2818 * t1019 * t40242 - 0.88003156431057777779e4 * t33429 * t4572 - 0.95484470551056e2 * t1751 * t127 * t40242 + 0.72797059751618400e5 * t8259 * t4554 + 0.383142419745360e3 * t1759 * t138 * t40242 - 0.111887753241222000e6 * t8194 * t4557 + 0.62436294800539380e5 * t8233 * t4542 - 0.29090815842717720e5 * t22899 * t40839 - 0.954844705510560e3 * t4326 * t40796 - 0.38314241974536000e5 * t23128 * t40839 - 0.8707782266940000e4 * t2777 * t40796 + 0.21130884967774400e5 * t32695 * t40680 + t33113;
28586   t41099 = -t33116 + t33119 + t33139 + t33146 - t33152 - t33159 + 0.70862243719440600000e5 * t8055 * t13929 + 0.64788337114917120000e5 * t5484 * t13932 - 0.39184157426545404000e5 * t8004 * t13956 + 0.72256362128680800000e4 * t8011 * t13932 + 0.82687323000000000000e3 * t7518 * t13678 + 0.65884284680228640000e4 * t8041 * t13681 + 0.91028528592006720000e4 * t5622 * t13929 + 0.96172617481537333333e5 * t32281 * t13929 - 0.50156825857574400001e5 * t5475 * t13956 - 0.25274462026666666667e4 * t33082 * t13681 + 0.70114772344561840000e5 * t32792 * t13932 - 0.32072301805136208000e5 * t5492 * t13937 - 0.12413205883274597333e5 * t32332 * t13937;
28587   t41127 = t3369 * t27801;
28588   t41130 = t3363 * t27797;
28589   t41133 = t13746 * t7509;
28590   t41142 = 0.54533103493344000001e4 * t32308 * t13942 - 0.46743375208933920000e5 * t8048 * t13922 + 0.3501097253538720e4 * t11613 * t40539 - 0.1400438901415488e4 * t11613 * t40545 + 0.636563137007040e3 * t4326 * t40542 + 0.34831129067760000e5 * t7990 * t40539 - 0.13932451627104000e5 * t7990 * t40545 + 0.5805188177960000e4 * t2777 * t40542 - 0.19505432277945600e5 * t11659 * t40531 + 0.6501810759315200e4 * t11659 * t40534 + 0.64032e2 * t40277 - 0.8402098950e3 * t17595 * t40151 - 0.64452017621962800000e4 * t17582 * t40154 + 0.44827663110207120e5 * t17590 * t40711 + 0.1707093120e3 * t4356 * t41127 - 0.3414186240e3 * t11693 * t41130 - 0.5442614821410192e4 * t7960 * t41133 + 0.2721307410705096e4 * t7960 * t41130 - 0.1209469960313376e4 * t2762 * t41127 + 0.6828372480e3 * t11693 * t41133;
28591   t41151 = t33203 - t33215 - t33218 - t33222 + t33225 - t33229 - t33231 + t33234 - t33240 + t33242 - t33244 + t33246 - t33253 - t33255 - 0.13415282413753078000e6 * t32840 * t13956 + 0.18137864400000000000e4 * t5614 * t13922 - 0.15521531157354992000e5 * t32806 * t13922 + t33259 - t33261;
28592   t41172 = t33263 - t33265 + t33281 - t33283 + t33285 - t33287 - t33301 - t33305 - t33313 - 0.696622581355200e3 * t4334 * t40448 + 0.232207527118400e3 * t4334 * t40451 + 0.23398748396080950000e6 * t11352 * t13774 - 0.93594993584323800000e5 * t7820 * t13778 + 0.31198331194774600000e5 * t7820 * t13781 + 0.4129190893426050e4 * t7922 * t40445 - 0.1651676357370420e4 * t2791 * t40448 + 0.550558785790140e3 * t2791 * t40451 + 0.932397943676850e3 * t2785 * t40589 + 0.17241408888541200e5 * t23161 * t40661;
28593   t41182 = 0.3831424197453600e4 * t2770 * t40836 + t33319 - t33325 + t33328 + t33334 - t33340 - t33347 + t33353 - t33362 - t33367 - t33379 + t33385 - t33396 + t33403 - t33408 + t33415 - 0.15325696789814400e5 * t7983 * t41133 + 0.7662848394907200e4 * t7983 * t41130 - 0.3065139357962880e4 * t2770 * t41127;
28594   t41183 = -t33438 + t33444 - t33446 + t33449 - t33452 - t33468 + t33470 - t33473 + t33476 + t33482 + t33484 - t33496 - t33498 - t33504 + t33506 + t33521 - t33523 + t33535 - t33549 + t33551;
28595   t41189 = t40287 * t184;
28596   t41192 = t40291 * t184;
28597   t41194 = t40295 * t184;
28598   t41200 = t3529 * t9658;
28599   t41203 = t40306 * t184;
28600   t41205 = t40310 * t184;
28601   t41217 = -0.4e1 * t1830 * t184 * t40299 * t616 - 0.2e1 * t1839 * t184 * t1841 * t40299 - t24084 * t41205 - 0.36e2 * t24093 * t41205 - 0.4e1 * t2835 * t41200 - 0.2e1 * t2843 * t41189 - t2843 * t41192 - 0.2e1 * t2843 * t41200 + t8335 * t41194 + 0.6e1 * t8323 * t41203 + t8335 * t41203;
28602   t41230 = t3529 * t9673;
28603   t41242 = t184 * t40283 * t616 * t617 - 0.24e2 * t23950 * t41205 - 0.12e2 * t24086 * t41205 - 0.4e1 * t2835 * t41189 - 0.2e1 * t2835 * t41192 + 0.6e1 * t8315 * t41194 + 0.6e1 * t8323 * t41194 + 0.6e1 * t8315 * t41203 + 0.24e2 * t8315 * t41230 + 0.24e2 * t8323 * t41230 + 0.4e1 * t8335 * t41230;
28604   t41244 = my_piecewise3(t102, t41183 + t41182 + t41172 + t41151 + t41142 + t41099 + t41071 + t41028 + t41006 + t41007 + t40986 + t40944 + t40936 + t40899 + t40863 + t40833 + t40809 + t40810 + t40794 + t40754 + t40730 + t40714 + t40688 + t40691 + t40668 + t40631 + t40587 + t40550 + t40502 + t40465 + t40432 + t40390, t41217 + t41242);
28605   t41259 = -0.64e2 * t3291 * t3292 * t9553 + 0.96e2 * t13617 * t3292 * t477 * t3346 + 0.96e2 * t9531 * t4501 * t477 * t474 - 0.16e2 * t13624 * t40080 - 0.4e1 * t405 * t9686 * t1241 + 0.2e1 * t405 * t94 * (t40320 + t40346) * t187 - t101 * t41244 + 0.8e1 * t3291 * t13728 * t1506 + 0.32e2 * t3291 * t13635 * t474 - 0.8e1 * t9535 * t13639 + 0.12e2 * t9531 * t13638 * t1370 - 0.4e1 * t1369 * t40062;
28606   t41272 = t13720 * t187;
28607   t41285 = t16741 * t95;
28608   t41294 = -0.2e1 * t405 * t4529 * t1846 + 0.1174e1 * t41244 - 0.16e2 * t1369 * t1401 * t4496 * t187 + 0.8e1 * t1369 * t40068 + 0.32e2 * t13624 * t40051 - 0.8e1 * t3291 * t41272 * t477 - 0.8e1 * t405 * t9553 * t1241 - 0.8e1 * t405 * t3296 * t3538 - 0.4e1 * t405 * t9549 * t1241 - 0.96e2 * t41285 * t40071 + 0.4e1 * t405 * t40089 * t187 - 0.8e1 * t405 * t3347 * t3538;
28609   t41302 = t3547 * t1180 * t14023;
28610   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28611     v4rho2tau2[0] = -t40014 - 0.4e1 / 0.3e1 * t40015 - t40017 - 0.65972000000000000000e1 * t40019 - t3286 * t40021 * t1327 / 0.6e1 - t3286 * t40025 * t392 - 0.65972000000000000000e1 * t40029 * t1343 - t3286 * t13613 * t1350 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1180 * (t40074 + t40113 + t41259 + t41294) * t204 - 0.49479000000000000000e1 * t41302 * t644 - 0.29687400000000000000e2 * t14029 * t1864 + 0.57725500000000000000e1 * t14029 * t1870 + 0.80541612095716256868e2 * t10287 * t4610 * t1035 * t1876 * t1878;
28612 
28613   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28614     v4rho2tau2[1] = 0.0e0;
28615 
28616   t41315 = t29844 * t4731 / 0.6e1;
28617   t41316 = t10311 * t14034;
28618   t41318 = t1883 * t4729;
28619   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28620     v4rho2tau2[2] = -t41315 - 0.4e1 / 0.3e1 * t41316 - t3286 * t41318 * t1887 / 0.6e1 - t3286 * t14033 * t1896 / 0.2e1;
28621 
28622   t41328 = t10311 * t14037;
28623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28624     v4rho2tau2[3] = -t40014 - 0.2e1 / 0.3e1 * t40015 - t40017 / 0.2e1 - 0.32986000000000000000e1 * t40019 - 0.2e1 / 0.3e1 * t41328 - t3286 * t40021 * t1906 / 0.6e1 - t3286 * t40025 * t663 / 0.2e1 - 0.32986000000000000000e1 * t40029 * t1918 - t10323 * t13613 * t1924 / 0.2e1;
28625 
28626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28627     v4rho2tau2[4] = 0.0e0;
28628 
28629   t41342 = t10311 * t14041;
28630   t41350 = t10336 * t14452;
28631   t41352 = t210 * t14450;
28632   t41356 = t10344 * t14455;
28633   t41357 = t41356 * t902;
28634   t41360 = t3547 * t647 * t4729;
28635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28636     v4rho2tau2[5] = -t41315 - 0.2e1 / 0.3e1 * t41316 - 0.2e1 / 0.3e1 * t41342 - t3286 * t41318 * t1931 / 0.6e1 + t10323 * t14033 * t1939 / 0.2e1 - t41350 / 0.2e1 - t3286 * t41352 * t651 / 0.2e1 - 0.32986000000000000000e1 * t41357 - 0.32986000000000000000e1 * t41360 * t1956;
28637 
28638   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28639     v4rho2tau2[6] = -t40014 - 0.4e1 / 0.3e1 * t41328 - t3286 * t40021 * t1968 / 0.6e1 - t3286 * t13613 * t1974 / 0.2e1;
28640 
28641   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28642     v4rho2tau2[7] = 0.0e0;
28643 
28644   t41384 = t3620 * t3620;
28645   t41388 = t34656 + t34659 - t34671 - t34679 - t34682 - t34699 - t34702 + t34714 + t34717 - t34756 + t34769 + t34772 - t34780 - t34783 - t34795 + t34804 - t34812 + t34822 - t34825;
28646   t41389 = t34828 - t34843 - t34860 + t34881 - t34883 + t34886 - t34896 + t34898 - t34900 + t34902 + t34927 - t34929 + t34932 - t34935 - t34940 + t34942 - t34945 + t34950 - t34952;
28647   t41391 = t14174 * t2081;
28648   t41394 = t14226 * t2047;
28649   t41399 = t14073 * t2111;
28650   t41400 = t4395 * t41399;
28651   t41402 = t3600 * t10442;
28652   t41403 = t4395 * t41402;
28653   t41405 = t2098 * t14081;
28654   t41407 = t2098 * t14084;
28655   t41409 = t13166 * t14081;
28656   t41412 = t2941 * t14080 * t2111;
28657   t41414 = t13166 * t14084;
28658   t41417 = t2941 * t3576 * t10442;
28659   t41419 = t25643 * t14087;
28660   t41421 = t8667 * t14091;
28661   t41423 = t8667 * t14094;
28662   t41425 = t14080 * t2066;
28663   t41426 = t8621 * t41425;
28664   t41428 = t14090 * t2111;
28665   t41429 = t2962 * t41428;
28666   t41431 = t3583 * t10442;
28667   t41432 = t2962 * t41431;
28668   t41434 = t34954 - t34956 + 0.4876358069486400e4 * t4449 * t41391 + 0.57808672507964700e5 * t26592 * t41394 + 0.11561734501592940e5 * t3222 * t41391 + 0.16008e2 * t41400 - 0.10672e2 * t41403 + 0.40020e2 * t41405 - 0.80040e2 * t41407 + 0.8004e1 * t41409 + 0.4002e1 * t41412 - 0.16008e2 * t41414 - 0.8004e1 * t41417 + 0.46690000000000000000e3 * t41419 - 0.31126666666666666666e3 * t41421 + 0.31126666666666666666e3 * t41423 + 0.28014e2 * t41426 - 0.18676e2 * t41429 + 0.18676e2 * t41432;
28669   t41435 = t7069 * t14097;
28670   t41437 = t14184 * t2081;
28671   t41440 = t14170 * t2047;
28672   t41445 = t14174 * t2047;
28673   t41448 = t14073 * t2081;
28674   t41449 = t2962 * t41448;
28675   t41451 = t14090 * t2047;
28676   t41452 = t35819 * t41451;
28677   t41454 = t2170 * t14074;
28678   t41456 = t14210 * t2081;
28679   t41457 = t4395 * t41456;
28680   t41459 = t2170 * t14077;
28681   t41462 = t2941 * t14090 * t2081;
28682   t41464 = t14080 * t2047;
28683   t41465 = t25633 * t41464;
28684   t41467 = t14090 * t2066;
28685   t41468 = t11966 * t41467;
28686   t41470 = t21234 * t4623;
28687   t41476 = t14073 * t2047;
28688   t41479 = t14226 * t2081;
28689   t41484 = t14287 * t2081;
28690   t41487 = -0.62253333333333333334e3 * t41435 - 0.5967346839531840e4 * t4457 * t41437 - 0.31864040105102856e5 * t26202 * t41440 - 0.5831327600933856e4 * t3150 * t41437 + 0.14972327624019360e5 * t36027 * t41445 + 0.56028e2 * t41449 - 0.106720e3 * t41452 + 0.37352000000000000000e3 * t41454 - 0.64032e2 * t41457 - 0.24901333333333333334e3 * t41459 - 0.8004e1 * t41462 + 0.56028e2 * t41465 - 0.26680e2 * t41468 - 0.467426601371520e3 * t4424 * t41470 * t2081 + 0.2774026320e3 * t3180 * t41456 - 0.5974825920e3 * t35610 * t41476 - 0.2133866400e3 * t4433 * t41479 + 0.5442614821410192e4 * t26683 * t41476 + 0.2836862076129984e4 * t4465 * t41484;
28691   t41505 = t14210 * t2047;
28692   t41508 = t14170 * t2081;
28693   t41527 = 0.5862308625534480e4 * t26184 * t41445 + 0.1004967192948768e4 * t3169 * t41484 - 0.2627976225488768e4 * t35618 * t14184 * t2047 + 0.6935065800e3 * t25990 * t41451 - 0.86560481735466666667e3 * t13362 * t14291 + 0.17241408888541200e5 * t26714 * t41476 + 0.3831424197453600e4 * t3202 * t41479 - 0.29090815842717720e5 * t26195 * t41505 - 0.5594387662061100e4 * t3216 * t41508 + 0.4296801174797520e4 * t3040 * t14074 - 0.572906823306336e3 * t3188 * t41456 - 0.2864534116531680e4 * t3040 * t14077 + 0.38952216780960000000e4 * t13362 * t14288 + 0.17223805462217760e5 * t26604 * t41394 + 0.3014165955888108e4 * t3143 * t41391 - 0.3330414534772080e4 * t26177 * t41440 - 0.545331034933440e3 * t3158 * t41437 - t34960 + t34962;
28694   t41528 = t3588 * t3588;
28695   t41569 = -t34964 + t34967 + t35035 - 0.19476108390480e2 * t2325 * t354 * t41528 - 0.12002998500e4 * t8650 * t4703 - 0.95484470551056e2 * t2313 * t303 * t41528 - 0.10387257808256e2 * t4181 * t4184 * t41528 + 0.72797059751618400e5 * t9090 * t4691 + 0.79466575947185777779e5 * t6969 * t4670 + 0.232207527118400e3 * t4133 * t4134 * t41528 + 0.21318859649762643333e6 * t2398 * t4673 + 0.383142419745360e3 * t2284 * t314 * t41528 - 0.111887753241222000e6 * t8990 * t4694 - 0.372959177470740e3 * t2292 * t327 * t41528 + 0.62436294800539380e5 * t9077 * t4697 + 0.143531712185148e3 * t2300 * t341 * t41528 - 0.11588284492335600e5 * t9165 * t4700 + 0.550558785790140e3 * t3221 * t1128 * t41528 - 0.10348137178077040000e6 * t6861 * t4676;
28696   t41619 = -0.213119529983280e3 * t4148 * t4149 * t41528 - 0.11222991612908413333e6 * t2407 * t4679 - 0.208261700033352e3 * t3149 * t1141 * t41528 + 0.51527571969212826667e5 * t7084 * t4682 - 0.266733300e2 * t2304 * t290 * t41528 - 0.10025869407860880e5 * t9069 * t4707 - 0.580518817796000e3 * t3207 * t1115 * t41528 + 0.151183745039172e3 * t3193 * t1102 * t41528 - 0.14251941345213173333e5 * t6949 * t4664 - 0.63656313700704e2 * t4118 * t4119 * t41528 - 0.15125740308129111111e6 * t2390 * t4667 + 0.78801724336944e2 * t4163 * t4164 * t41528 + 0.19975273835154524444e5 * t2415 * t4685 + 0.27915755359688e2 * t3168 * t1154 * t41528 - 0.88003156431057777779e4 * t35346 * t4688 + 0.38014434755555555556e4 * t2375 * t4655 + 0.462337720e2 * t3179 * t1089 * t41528 - 0.27858811333333333333e4 * t6896 * t4658 - 0.213386640e2 * t4198 * t4199 * t41528;
28697   t41622 = t20166 * t4624;
28698   t41624 = t35305 * t4624;
28699   t41626 = t3637 * t30939;
28700   t41629 = t3788 * t30935;
28701   t41634 = t14184 * t8625;
28702   t41637 = t3661 * t30939;
28703   t41646 = t3661 * t30935;
28704   t41653 = t3643 * t30935;
28705   t41658 = 0.24021417267335106667e5 * t2382 * t4661 - 0.40020e2 * t41622 - 0.4002e1 * t41624 + 0.2721307410705096e4 * t8867 * t41626 - 0.1260827589391104e4 * t4465 * t41629 - 0.12413205883274597333e5 * t34773 * t14384 - 0.4689846900427584e4 * t9242 * t41634 + 0.1172461725106896e4 * t9242 * t41637 - 0.446652085755008e3 * t3169 * t41629 + 0.54533103493344000001e4 * t34643 * t14389 - 0.25274462026666666667e4 * t34660 * t14108 + 0.2983673419765920e4 * t4457 * t41646 + 0.70114772344561840000e5 * t35771 * t14379 + t35076 + t35077 - t35078 - t35079 - 0.3414186240e3 * t12438 * t41626 + 0.1707093120e3 * t4433 * t41653 - 0.15521531157354992000e5 * t34796 * t14316;
28706   t41662 = t14210 * t8625;
28707   t41665 = t14073 * t8625;
28708   t41668 = t3600 * t30939;
28709   t41671 = t3637 * t30935;
28710   t41681 = t14170 * t4811;
28711   t41686 = t14174 * t4811;
28712   t41691 = -0.5442614821410192e4 * t8867 * t41662 - 0.8322078960e3 * t9104 * t41665 + 0.5548052640e3 * t9104 * t41668 - 0.2774026320e3 * t3180 * t41671 + 0.18137864400000000000e4 * t6906 * t14316 + 0.6828372480e3 * t12438 * t41662 + t35080 + t35081 - t35082 + t35083 - t35084 + t35085 - t35086 - t35089 + 0.2150162366308992e4 * t12410 * t14287 * t8625 - 0.60739066045234800000e5 * t35390 * t41681 - 0.65602435510505880e5 * t35730 * t41681 + 0.29905254385870248e5 * t35737 * t41686 + 0.11557122718910832000e5 * t35743 * t41686;
28713   t41695 = t14073 * t4811;
28714   t41698 = t14210 * t4811;
28715   t41701 = t14226 * t4811;
28716   t41706 = t14080 * t4811;
28717   t41709 = t14090 * t4811;
28718   t41713 = t4623 * t36 * t2161;
28719   t41714 = t35335 * t41713;
28720   t41717 = t1250 * t3588 * t1425;
28721   t41723 = t4623 * t728 * t1425;
28722   t41742 = -0.50637881815248000000e4 * t35408 * t14184 * t4811 + 0.44827663110207120e5 * t20811 * t41695 - 0.67132651944733200000e5 * t20784 * t41698 + 0.36815884175490462e5 * t20760 * t41701 - 0.67484715573013200000e4 * t21331 * t41681 - 0.8402098950e3 * t20748 * t41706 - 0.64452017621962800000e4 * t20735 * t41709 + 0.18676000000000000000e3 * t41714 + 0.82753207810915200000e3 * t13507 * t41717 + 0.48763580694864000e5 * t27096 * t41713 - 0.20318158622860000e5 * t26913 * t41723 - 0.67416549193646520000e4 * t26424 * t41713 + 0.25682494930912960000e4 * t26898 * t41723 - 0.64206237327282400000e3 * t8762 * t41717 + 0.29863366198736000000e4 * t35172 * t41713 - 0.11096105280e4 * t26433 * t41713 + 0.5548052640e3 * t26901 * t41723 - 0.3698701760e3 * t8771 * t41717 + 0.8535465600e3 * t35242 * t41713;
28723   t41774 = -0.4267732800e3 * t35246 * t41723 + 0.2133866400e3 * t13546 * t41717 - 0.74835953794390140000e4 * t27108 * t41713 + 0.33260423908617840000e4 * t26908 * t41723 - 0.16630211954308920000e4 * t8784 * t41717 + 0.45514264296003360000e4 * t35284 * t41713 - 0.20688301952728800000e4 * t35288 * t41723 - 0.12890403524392560000e4 * t21097 * t41723 + 0.85936023495950400000e3 * t8778 * t41717 - 0.11685665034288000000e4 * t35176 * t41723 + 0.25968144520640000000e3 * t13539 * t41717 - 0.22988545184721600e5 * t27119 * t41713 + 0.9195418073888640e4 * t21019 * t41723 - 0.4597709036944320e4 * t8791 * t41717 + 0.36363519803397150000e5 * t27076 * t41713 + t35111 - t35115 - t35117 + t35129;
28724   t41775 = t25665 * t41723;
28725   t41777 = t8573 * t41717;
28726   t41779 = t25490 * t41713;
28727   t41785 = -t35131 + 0.93380000000000000000e2 * t41775 - 0.93380000000000000000e2 * t41777 - t35154 + t35156 - t35168 + t35170 + t35182 - t35184 - 0.14007000000000000000e3 * t41779 - t35201 + t35203 + t35211 - t35213 + t35225 - t35227 - t35238 + t35240 + 0.8127263449144000e4 * t8797 * t41717 - 0.26007243037260800e5 * t35119 * t41713;
28728   t41790 = t35254 * t41723;
28729   t41792 = t13194 * t41717;
28730   t41794 = t20195 * t41723;
28731   t41796 = t8563 * t41717;
28732   t41822 = t3649 * t30935;
28733   t41827 = 0.11145961301683200e5 * t35123 * t41723 - 0.11205600000000000000e3 * t41790 + 0.74704000000000000000e2 * t41792 - 0.12006000000000000000e2 * t41794 + 0.24012000000000000000e2 * t41796 - 0.2583570819332664e4 * t8819 * t41717 + 0.38854836239007600000e4 * t26327 * t41713 - 0.14314939667002800000e4 * t21006 * t41723 + 0.40899827620008000000e3 * t8749 * t41717 + 0.3200799600e3 * t26337 * t41713 - 0.1600399800e3 * t21161 * t41723 + 0.1600399800e3 * t8755 * t41717 + 0.30077608223582640000e4 * t27040 * t41713 - 0.13985969155152750000e5 * t21032 * t41723 + 0.55943876620611000000e4 * t8804 * t41717 - 0.20668566554661312e5 * t27035 * t41713 + 0.7750712457997992e4 * t21152 * t41723 + 0.3729591774707400e4 * t3216 * t41822 + 0.2005173881572176e4 * t8859 * t41665;
28734   t41832 = t14174 * t8625;
28735   t41835 = t3655 * t30939;
28736   t41856 = t14226 * t8625;
28737   t41859 = t3643 * t30939;
28738   t41872 = 0.572906823306336e3 * t3188 * t41671 - 0.1336782587714784e4 * t8859 * t41668 + 0.2590322415933840e4 * t8909 * t41832 - 0.740092118838240e3 * t8909 * t41835 + 0.272665517466720e3 * t3158 * t41646 + 0.186970640548608e3 * t4424 * t10955 * t30935 - 0.477813859179776e3 * t12410 * t3788 * t30939 - 0.46743375208933920000e5 * t9141 * t14316 - 0.15325696789814400e5 * t8874 * t41662 + 0.7662848394907200e4 * t8874 * t41626 - 0.3065139357962880e4 * t3202 * t41653 + 0.70862243719440600000e5 * t9148 * t14319 + 0.24242346535598100e5 * t8921 * t41856 - 0.9696938614239240e4 * t8921 * t41859 - 0.17604397800e4 * t35423 * t41695 + 0.14967190758878028000e5 * t35436 * t41695 - 0.86890868201460960000e4 * t35443 * t41698 - 0.91431713802870000e5 * t35448 * t41698 + 0.47370335532153600e5 * t35457 * t41701;
28739   t41878 = t14170 * t8625;
28740   t41881 = t3649 * t30939;
28741   t41884 = t3655 * t30935;
28742   t41891 = t6485 * t14101;
28743   t41893 = t35758 * t14104;
28744   t41895 = t6885 * t14108;
28745   t41911 = 0.12635324133883713000e6 * t35462 * t41701 - 0.39184157426545404000e5 * t9155 * t14324 - 0.13779044369774208e5 * t8854 * t41878 + 0.4593014789924736e4 * t8854 * t41881 - 0.1722380546221776e4 * t3143 * t41884 + 0.72256362128680800000e4 * t9162 * t14379 + 0.24966236880e4 * t35415 * t41709 + 0.64032000000000000000e2 * t41891 - 0.40464666666666666667e3 * t41893 + 0.44822400000000000000e3 * t41895 - 0.1209469960313376e4 * t3194 * t41653 + 0.91028528592006720000e4 * t6959 * t14319 + 0.3501097253538720e4 * t12309 * t41856 - 0.1400438901415488e4 * t12309 * t41859 + 0.636563137007040e3 * t4441 * t41822 + 0.96172617481537333333e5 * t34785 * t14319 + 0.34831129067760000e5 * t8880 * t41856 - t35260 + t35262;
28746   t41932 = -t35278 + t35282 - t35294 + t35296 + t35304 - t35315 - t35317 + t35326 - 0.14172448743888120000e5 * t35162 * t41723 + 0.40492710696823200000e4 * t13521 * t41717 + 0.37487106006003360e5 * t26824 * t41713 - 0.14578319002334640e5 * t26883 * t41723 + 0.4165234000667040e4 * t8825 * t41717 - 0.17336379354127680e5 * t35215 * t41713 + 0.6934551741651072e4 * t35219 * t41723 - 0.1733637935412768e4 * t13528 * t41717 + t35331 - t35333 - 0.3715320433894400e4 * t13514 * t41717 - 0.70196245188242850000e5 * t27053 * t41713;
28747   t41955 = 0.28078498075297140000e5 * t26895 * t41723 - 0.93594993584323800000e4 * t8810 * t41717 + 0.34418804092299720000e5 * t35158 * t41713 + t35345 - 0.800199900e2 * t3163 * t41448 - 0.2005173881572176e4 * t26689 * t41451 - 0.27090878163813333334e5 * t9364 * t14232 + 0.21130884967774400e5 * t35961 * t41394 - 0.28984256077726080e5 * t35593 * t41440 - 0.1600399800e3 * t26212 * t41464 + t35360 - t35365 + t35372 + t35382 + t35386 - t4110 + t4116 + t4125 - t4131;
28748   t41956 = -t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205 + t35397 - t35414 + t35421 - t35435 + t35441 + t35447 - t35453 - t35461 + t35466;
28749   t41958 = t14210 * t2111;
28750   t41973 = t35474 - t35475 - t35476 - t35477 - t35482 - t35487 - t35496 + t35504 - t35513 - t35520 + t35525 + t35532 - 0.766284839490720e3 * t3202 * t41958 + 0.1511837450391720e4 * t3194 * t41479 - 0.3501097253538720e4 * t35968 * t41505 - 0.954844705510560e3 * t4441 * t41508 - 0.38314241974536000e5 * t26701 * t41505 - 0.12951612079669200e5 * t12087 * t14171 + 0.4771646555667600e4 * t3021 * t14175;
28751   t41976 = t14170 * t2066;
28752   t41979 = t14174 * t2111;
28753   t41982 = t3655 * t10442;
28754   t42001 = t14073 * t2066;
28755   t42008 = t14210 * t2066;
28756   t42011 = t14226 * t2111;
28757   t42014 = t3643 * t10442;
28758   t42023 = -0.1363327587333600e4 * t3021 * t14178 - 0.185023029709560e3 * t8909 * t41976 + 0.68166379366680e2 * t3158 * t41979 - 0.19476108390480e2 * t3158 * t41982 + 0.143226705826584e3 * t3188 * t41399 - 0.95484470551056e2 * t3188 * t41402 + 0.46742660137152e2 * t4424 * t14287 * t2111 - 0.10387257808256e2 * t4424 * t3788 * t10442 + 0.76628483949072000e5 * t12142 * t14207 - 0.30651393579628800e5 * t3047 * t14211 + 0.15325696789814400e5 * t3047 * t14214 + 0.1915712098726800e4 * t8874 * t42001 + 0.46619897183842500e5 * t3005 * t14227 - 0.18647958873537000e5 * t3005 * t14232 - 0.2424234653559810e4 * t8921 * t42008 + 0.932397943676850e3 * t3216 * t42011 - 0.372959177470740e3 * t3216 * t42014 + 0.68895221848871040e5 * t12065 * t14235 - 0.25835708193326640e5 * t3013 * t14238 + 0.8611902731108880e4 * t3013 * t14241;
28759   t42026 = t14226 * t2066;
28760   t42029 = t14170 * t2111;
28761   t42032 = t3649 * t10442;
28762   t42047 = t3637 * t10442;
28763   t42058 = t14090 * t8625;
28764   t42061 = t3583 * t30939;
28765   t42064 = 0.1148253697481184e4 * t8854 * t42026 - 0.430595136555444e3 * t3143 * t42029 + 0.143531712185148e3 * t3143 * t42032 + t35567 + 0.1625452689828800e4 * t12333 * t42026 - t35569 + t35573 - 0.696622581355200e3 * t4449 * t42029 + 0.232207527118400e3 * t4449 * t42032 + 0.23398748396080950000e6 * t12058 * t14235 - 0.93594993584323800000e5 * t9191 * t14238 + 0.31198331194774600000e5 * t9191 * t14241 + 0.383142419745360e3 * t3202 * t42047 - 0.121211732677990500e6 * t12048 * t14223 + 0.25361224068010320e5 * t12396 * t41832 - 0.7246064019431520e4 * t12396 * t41835 + 0.82687323000000000000e3 * t8634 * t14104 + 0.2133866400e3 * t8914 * t42058 - 0.2133866400e3 * t8914 * t42061;
28766   t42065 = t3600 * t30935;
28767   t42086 = 0.1066933200e3 * t3163 * t42065 + 0.65884284680228640000e4 * t9132 * t14108 - 0.13932451627104000e5 * t8880 * t41859 + 0.5805188177960000e4 * t3208 * t41822 - 0.50156825857574400001e5 * t6773 * t14324 - 0.19505432277945600e5 * t12333 * t41878 + t35574 + t35575 + t35576 - t35577 - t35578 + t35579 + t35580 + t35581 - t35582 + 0.6501810759315200e4 * t12333 * t41881 - 0.2786490325420800e4 * t4449 * t41884 - 0.13415282413753078000e6 * t34718 * t14324 - 0.49550290721112600e5 * t8847 * t41878;
28768   t42094 = t8621 * t42061;
28769   t42096 = t2962 * t42065;
28770   t42098 = t35764 * t14101;
28771   t42101 = t20348 * t14100 * t4811;
28772   t42103 = t35720 * t41706;
28773   t42105 = t35935 * t41709;
28774   t42107 = t11966 * t41665;
28775   t42109 = t4395 * t41671;
28776   t42111 = t11966 * t41668;
28777   t42114 = t2941 * t3583 * t30935;
28778   t42128 = 0.16516763573704200e5 * t8847 * t41881 - 0.6606705429481680e4 * t3222 * t41884 + 0.64788337114917120000e5 * t6871 * t14379 + 0.112056e3 * t42094 - 0.74704e2 * t42096 + 0.12006000000000000000e2 * t42098 - 0.72036000000000000000e2 * t42101 + 0.42021000000000000000e3 * t42103 - 0.44822400000000000000e3 * t42105 + 0.160080e3 * t42107 + 0.64032e2 * t42109 - 0.106720e3 * t42111 + 0.16008e2 * t42114 + 0.26240974204202352e5 * t8902 * t41832 - 0.7497421201200672e4 * t8902 * t41835 + 0.2915663800466928e4 * t3150 * t41646 - 0.32072301805136208000e5 * t6979 * t14384 - 0.12608275893911040e5 * t12362 * t41634 + 0.3152068973477760e4 * t12362 * t41637;
28779   t42129 = t8621 * t42058;
28780   t42155 = -0.112056e3 * t42129 + t35588 - 0.5334666000e3 * t2967 * t14094 - 0.533466600e2 * t8914 * t41425 + t35591 + 0.266733300e2 * t3163 * t41428 + t35605 - 0.266733300e2 * t3163 * t41431 + t35608 - 0.10025869407860880e5 * t12121 * t14097 - 0.334195646928696e3 * t8859 * t41467 - 0.580518817796000e3 * t3208 * t42014 + 0.86690810124202666667e5 * t7061 * t14235 - t35628 - 0.37153204338944000000e5 * t2195 * t14238 - t35631 + 0.12384401446314666667e5 * t2195 * t14241 + t35636 + 0.728915950116732e3 * t3150 * t41979 - 0.208261700033352e3 * t3150 * t41982;
28781   t42165 = t14174 * t2066;
28782   t42168 = t14184 * t2111;
28783   t42191 = 0.57787931180425600000e5 * t7089 * t14181 - 0.23115172472170240000e5 * t2160 * t14185 + 0.57787931180425600000e4 * t2160 * t14188 - t35654 + 0.788017243369440e3 * t12362 * t42165 - t35657 - 0.315206897347776e3 * t4465 * t42168 - 0.10669332000e4 * t11936 * t14087 + 0.5334666000e3 * t2967 * t14091 + 0.550558785790140e3 * t3222 * t42032 - 0.11472934697433240000e6 * t7044 * t14171 + 0.47241495812960400000e5 * t2203 * t14175 - 0.13497570232274400000e5 * t2203 * t14178 - 0.1811516004857880e4 * t12396 * t41976 + 0.745918354941480e3 * t4457 * t41979 - 0.213119529983280e3 * t4457 * t41982 - t35676 - 0.12495702002001120000e6 * t12073 * t14171 - t35678;
28784   t42198 = 0.48594396674448800000e5 * t9215 * t14175 - 0.13884113335556800000e5 * t9215 * t14178 - 0.1874355300300168e4 * t8902 * t41976 - t35687 + t35688 - t35689 + t35691 - t35692 + t35693 + t35694 - t35695 + t35696 - t35697 - t35698 + t35699 + t35703 + t35705 + t35717 + t35719;
28785   t42200 = -t35729 - t35735 - t35742 + t35748 - t35768 - t35770 - t35786 - t35788 + t35791 - t35792 - t35793 + t35794 - t35795 + t35796 + t35797 - t35798 + t35799 - t35800 - t35801;
28786   t42203 = t3661 * t10442;
28787   t42235 = t35802 + t35803 - t35806 - 0.111663021438752e3 * t3169 * t42168 - t35809 + 0.27915755359688e2 * t3169 * t42203 - 0.99544553995786666667e4 * t35929 * t14197 - 0.119453464794944e3 * t12410 * t14184 * t2066 + 0.36987017600000000000e4 * t11923 * t14097 - 0.18493508800000000000e4 * t9099 * t14074 + 0.12329005866666666667e4 * t9099 * t14077 + 0.1387013160e3 * t9104 * t41467 - 0.693506580e2 * t3180 * t41399 + 0.462337720e2 * t3180 * t41402 - 0.28451552000000000000e4 * t7077 * t14207 + 0.14225776000000000000e4 * t2179 * t14211 - 0.71128880000000000000e3 * t2179 * t14214 + 0.4129190893426050e4 * t8847 * t42026 - 0.1651676357370420e4 * t3222 * t42029 + 0.159140784251760e3 * t4441 * t42011;
28788   t42262 = -t35812 - 0.63656313700704e2 * t4441 * t42014 - 0.16254526898288000000e6 * t12150 * t14223 - t35817 + 0.67727195409533333333e5 * t9364 * t14227 - 0.3483112906776000e4 * t8880 * t42008 + 0.78801724336944e2 * t4465 * t42203 + t35829 + 0.22472183064548840000e5 * t12095 * t14181 + t35831 - 0.85608316436376533333e4 * t9311 * t14185 + 0.21402079109094133334e4 * t9311 * t14188 + t35838 + 0.293115431276724e3 * t9242 * t42165 + t35840 + 0.24945317931463380000e5 * t12130 * t14207 - 0.11086807969539280000e5 * t9343 * t14211 + 0.55434039847696400000e4 * t9343 * t14214 - t35851;
28789   t42285 = 0.680326852676274e3 * t8867 * t42001 + t35853 - t35856 - 0.302367490078344e3 * t3194 * t41958 + t35859 + 0.151183745039172e3 * t3194 * t42047 - 0.15171421432001120000e5 * t7053 * t14223 + 0.68961006509096000000e4 * t2187 * t14227 - 0.27584402603638400000e4 * t2187 * t14232 - 0.350109725353872e3 * t12309 * t42008 + t35871 - t35873 + t35876 + 0.1451297044490000e4 * t3208 * t42011 - 0.853546560e2 * t12438 * t42001 + 0.426773280e2 * t4433 * t41958 - 0.213386640e2 * t4433 * t42047 + t35912 - t35915;
28790   t42289 = t35924 - t35927 + t35939 + t35945 - t35947 - t35948 + t35949 + t35950 - t35951 - t35957 - t35959 + t35966 + t35975 + t35977 - 0.8707782266940000e4 * t3208 * t41508 - t35981 + t35983 - t35985 + t35989;
28791   t42291 = t4077 * t4078 * t41528;
28792   t42293 = t6469 * t4624;
28793   t42296 = t2046 * t261 * t41528;
28794   t42298 = t2070 * t4627;
28795   t42301 = t2961 * t1064 * t41528;
28796   t42303 = t6991 * t4630;
28797   t42305 = -0.10672e2 * t42291 - 0.80040e2 * t42293 + t35996 - t35998 + t36000 - t36002 + t36022 - t36025 - t36035 - t36037 - t36050 + t36052 - t36054 + t36056 + t36070 - t36072 - 0.8004e1 * t42296 + 0.57065555555555555556e3 * t42298 + 0.18676e2 * t42301 - 0.66403555555555555556e3 * t42303;
28798   t42311 = t14426 * t2114;
28799   t42314 = t4637 * t2118;
28800   t42315 = t42314 * t360;
28801   t42318 = t3607 * t3607;
28802   t42323 = t3803 * t10498;
28803   t42330 = t14120 * t360;
28804   t42331 = t42330 * t731;
28805   t42334 = t14435 * t2114;
28806   t42337 = t4633 * t2118;
28807   t42338 = t42337 * t360;
28808   t42343 = -0.4e1 * t2458 * t360 * t42318 * t616 - t27446 * t42315 - 0.12e2 * t27452 * t42315 - 0.36e2 * t27459 * t42315 - 0.4e1 * t3232 * t42323 - 0.4e1 * t3232 * t42331 - 0.2e1 * t3232 * t42334 + 0.6e1 * t42311 * t9372 + 0.6e1 * t42311 * t9380 + t42311 * t9392 + 0.6e1 * t42338 * t9380;
28809   t42354 = t3616 * t11093;
28810   t42387 = 0.1400e4 / 0.3e1 * t41423 + 0.42e2 * t41426 - 0.28e2 * t41429 + 0.28e2 * t41432 - 0.2800e4 / 0.3e1 * t41435 + 0.84e2 * t41449 - 0.160e3 * t41452 + 0.560e3 * t41454 - 0.96e2 * t41457 - 0.1120e4 / 0.3e1 * t41459 - 0.12e2 * t41462;
28811   t42400 = 0.84e2 * t41465 - 0.40e2 * t41468 - 0.60e2 * t41622 - 0.6e1 * t41624 + 0.280e3 * t41714 + 0.140e3 * t41775 - 0.140e3 * t41777 - 0.210e3 * t41779 - 0.168e3 * t41790 + 0.112e3 * t41792 - 0.18e2 * t41794;
28812   t42405 = 0.36e2 * t41796 + 0.96e2 * t41891 - 0.1820e4 / 0.3e1 * t41893 + 0.672e3 * t41895 - t36094 + t36095 - t36104 - t36105 + t36109 + t36111 - t36112;
28813   t42415 = t36118 + t36120 - t4076 + t4084 + 0.168e3 * t42094 - 0.112e3 * t42096 + 0.18e2 * t42098 - 0.108e3 * t42101 + 0.630e3 * t42103 - 0.672e3 * t42105 + 0.240e3 * t42107;
28814   t42420 = 0.96e2 * t42109 - 0.160e3 * t42111 + 0.24e2 * t42114 - 0.168e3 * t42129 - t36122 + t36123 - t36126 - t36133 - t36134 - t36136 - t36141;
28815   t42422 = t36146 + t36147 - t36153 + t36154 - t36155 + t36156 + t36162 - t36165 + t36166 + t36179 + t36182;
28816   t42429 = -t36183 - t36184 + t36185 + t36186 - t36187 - 0.16e2 * t42291 - 0.120e3 * t42293 - 0.12e2 * t42296 + 0.7700e4 / 0.9e1 * t42298 + 0.28e2 * t42301 - 0.8960e4 / 0.9e1 * t42303;
28817   t42432 = 0.24e2 * t41400 - 0.16e2 * t41403 + 0.60e2 * t41405 - 0.120e3 * t41407 + 0.12e2 * t41409 + 0.6e1 * t41412 - 0.24e2 * t41414 - 0.12e2 * t41417 + 0.700e3 * t41419 - 0.1400e4 / 0.3e1 * t41421 + t42387 + t42400 + t42405 + t42415 + t42420 + t42422 + t42429;
28818   t42436 = -0.2e1 * t1839 * t2467 * t360 * t42318 + t360 * t42432 * t616 * t881 - 0.24e2 * t27471 * t42315 - 0.2e1 * t3240 * t42323 - 0.2e1 * t3240 * t42331 - t3240 * t42334 + 0.6e1 * t42338 * t9372 + t42338 * t9392 + 0.24e2 * t42354 * t9372 + 0.24e2 * t42354 * t9380 + 0.4e1 * t42354 * t9392;
28819   t42438 = my_piecewise3(t278, t42305 + t42289 + t42285 + t42262 + t42235 + t42200 + t42198 + t42191 + t42155 + t42128 + t42086 + t42064 + t42023 + t41973 + t41955 + t41956 + t41932 + t41911 + t41872 + t41827 + t41785 + t41774 + t41742 + t41691 + t41658 + t41619 + t41569 + t41527 + t41487 + t41434 + t41388 + t41389, t42343 + t42436);
28820   t42470 = -t674 * t2134 * t4726 + 0.4e1 * t674 * t41384 * t363 + 0.1174e1 * t42438 + 0.96e2 * t14044 * t3566 * t742 * t3620 + 0.96e2 * t10371 * t4620 * t742 * t739 - 0.4e1 * t674 * t14148 * t885 - 0.16e2 * t2000 * t2030 * t4615 * t363 - 0.4e1 * t3565 * t14065 * t2134 - 0.8e1 * t674 * t10393 * t1310 - 0.8e1 * t674 * t3570 * t3812 - 0.4e1 * t674 * t10389 * t1310 - 0.4e1 * t674 * t10526 * t1310;
28821   t42477 = t4620 * t2134;
28822   t42486 = t14147 * t363;
28823   t42490 = t10382 * t3620;
28824   t42493 = t3566 * t10525;
28825   t42506 = -0.64e2 * t10393 * t3565 * t3566 - 0.4e1 * t11110 * t1264 * t674 + 0.32e2 * t14062 * t3565 * t739 + 0.8e1 * t2000 * t2472 * t4616 - 0.16e2 * t2131 * t3565 * t4620 - 0.8e1 * t3565 * t42486 * t742 - 0.8e1 * t3621 * t3812 * t674 - 0.8e1 * t10375 * t14066 + 0.24e2 * t14044 * t42477 + 0.32e2 * t14051 * t42490 - 0.16e2 * t14051 * t42493 - 0.8e1 * t42490 * t674;
28826   t42523 = t14062 * t742;
28827   t42535 = t4647 * t885;
28828   t42546 = 0.4e1 * t14147 * t363 * t674 * t739 - 0.16e2 * t2000 * t271 * t363 * t41384 + 0.2e1 * t2131 * t363 * t4647 * t674 + 0.12e2 * t10371 * t14065 * t2001 - 0.24e2 * t10371 * t14155 * t2001 + 0.2e1 * t2000 * t2001 * t4726 - 0.2e1 * t2472 * t4615 * t674 - 0.2e1 * t2472 * t4648 * t674 + 0.8e1 * t3565 * t42535 * t742 - 0.4e1 * t2000 * t42477 + 0.8e1 * t2000 * t42523 + 0.4e1 * t42493 * t674;
28829   t42554 = t20016 * t271;
28830   t42555 = t4620 * t2001;
28831   t42558 = t1263 * t3812;
28832   t42564 = t2000 * t1263;
28833   t42567 = t3620 * t1310;
28834   t42606 = t2127 * t4633 * t2114 * t267 / 0.100e3 - t6534 * t42337 * t267 / 0.100e3 + t2127 * t42318 * t267 / 0.50e2 + t2127 * t1260 * t10498 / 0.50e2 - t6534 * t4637 * t2114 * t267 / 0.100e3 + t20412 * t42314 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t14121 * t2984 - 0.3e1 / 0.100e3 * t4634 * t2128 - 0.3e1 / 0.100e3 * t4634 * t8686 + 0.3e1 / 0.50e2 * t4634 * t8690 - 0.3e1 / 0.50e2 * t56 * t42318 * t2120;
28835   t42634 = -0.3e1 / 0.25e2 * t1258 * t10514 - 0.3e1 / 0.50e2 * t1258 * t2120 * t10498 + 0.3e1 / 0.20e2 * t4638 * t36375 + 0.3e1 / 0.50e2 * t4638 * t36379 - t4638 * t36383 / 0.10e2 + t2127 * t14120 * t731 * t267 / 0.50e2 + t56 * t42432 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t4638 * t2123 - t735 * t42432 * t267 / 0.100e3 - t13228 * t10514 / 0.25e2 + 0.6e1 / 0.25e2 * t13210 * t10514;
28836   t42643 = -0.2e1 * t674 * t742 * t14447 - t277 * t42438 + 0.8e1 * t3565 * t14155 * t2134 - 0.96e2 * t42554 * t42555 + 0.16e2 * t3565 * t42558 * t742 - 0.48e2 * t14044 * t42523 - 0.16e2 * t42564 * t10379 + 0.16e2 * t3565 * t42567 * t742 + 0.16e2 * t10375 * t14156 + 0.12e2 * t6316 * t42555 + 0.2e1 * t674 * t270 * (t42606 + t42634) * t363 - 0.4e1 * t674 * t14069 * t885;
28837   t42651 = t3547 * t1249 * t14450;
28838   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
28839     v4rho2tau2[8] = -t41315 - 0.4e1 / 0.3e1 * t41342 - t41350 - 0.65972000000000000000e1 * t41357 - t3286 * t41318 * t1979 / 0.6e1 - t3286 * t41352 * t668 - 0.65972000000000000000e1 * t41360 * t1988 - t3286 * t14033 * t1992 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1249 * (t42470 + t42506 + t42546 + t42643) * t377 - 0.49479000000000000000e1 * t42651 * t902 - 0.29687400000000000000e2 * t14456 * t2490 + 0.57725500000000000000e1 * t14456 * t2496 + 0.80541612095716256868e2 * t11127 * t4729 * t1170 * t2502 * t2504;
28840 
28841   t42665 = t14725 * t19;
28842   t42671 = t4811 * t14724;
28843   t42672 = t195 * t203;
28844   t42677 = t16627 * t2879;
28845   t42678 = t5832 * t203;
28846   t42699 = 0.56781128779330781250e1 * t5888 * t1331 * t14742;
28847   t42701 = 0.11326164200960098622e2 * t5857 * t14710;
28848   t42702 = 0.69579843750000000000e0 * t1855 * t14732 - 0.45304656803840394488e2 * t5769 * t42665 * t5773 + 0.62621859375000000000e1 * t1855 * t14720 - 0.11627420070069735493e0 * t5769 * t42671 * t42672 * t391 + 0.41747906250000000000e2 * t1340 * t42677 * t42678 * t391 - 0.13915968750000000000e1 * t7350 * t4035 + 0.45304656803840394488e2 * t24515 * t11804 + 0.27831937500000000000e1 * t33927 * t1038 - 0.12524371875000000000e2 * t7350 * t4030 + 0.34068677267598468750e2 * t636 * t4039 * t1860 * t203 * t193 * t641 + t42699 + t42701;
28849   t42715 = 0.1e1 / t1392;
28850   t42755 = 0.11326164200960098622e2 * t5857 * t14737;
28851   t42756 = -0.87205650525523016199e-1 * t1874 * t18601 * t14726 - 0.67956985205760591732e2 * t1874 * t14735 * t26 * t1878 - 0.33978492602880295866e2 * t1874 * t624 * t14724 * t195 * t1878 - 0.92427972442890327423e2 * t1874 * t190 * t42715 * t60 * t18607 - 0.25048743750000000000e3 * t2866 * t24379 * t11768 + 0.69764520420418412959e0 * t1874 * t24384 * t11773 + 0.90609313607680788976e2 * t1874 * t14708 * t26 * t1878 + 0.33978492602880295866e2 * t1874 * t2849 * t4039 * t195 * t1878 + 0.31310929687500000000e2 * t2866 * t18590 * t14714 - 0.75578230455453280704e0 * t1874 * t5846 * t14724 * t26 * t203 + 0.33398325000000000000e2 * t2866 * t4020 * t1860 * t19 * t2869 - 0.90609313607680788976e2 * t1874 * t4020 * t2879 * t26 * t1878 - t42755;
28852   t42759 = 0.29068550175174338733e-1 * t5857 * t14727;
28853   t42761 = 0.10436976562500000000e2 * t7438 * t14715;
28854   t42794 = t8 * t398 * t14698 / 0.8e1;
28855   t42795 = t17 * t14697;
28856   t42799 = -t42759 + t42761 - 0.18554625000000000000e1 * t7444 * t11789 + 0.37109250000000000000e1 * t33996 * t2859 - 0.16699162500000000000e2 * t7444 * t11784 + 0.92773125000000000000e0 * t1340 * t640 * t14730 * t1341 + 0.14611767187500000000e3 * t636 * t16556 * t4027 * t412 * t203 * t193 + 0.83495812500000000000e1 * t1340 * t1862 * t14718 * t1341 + 0.17034338633799234375e3 * t2866 * t33968 * t11796 + 0.22712451511732312500e2 * t16710 * t33968 * t16713 - 0.13627470907039387500e3 * t2866 * t1030 * t11792 * t11796 - t42794 - t385 * t42795 * t392 / 0.2e1;
28857   t42832 = -0.6e1 * t11276 * t1369 * t944 - 0.2e1 * t1369 * t14531 * t477 + 0.12e2 * t1369 * t2600 * t3883 - 0.6e1 * t1369 * t2601 * t3880 + 0.6e1 * t1369 * t2603 * t3880 + 0.6e1 * t1369 * t2846 * t3824 - 0.6e1 * t14459 * t4747 * t621 - 0.24e2 * t14460 * t16741 * t477 - 0.18e2 * t14466 * t4747 * t477 + 0.18e2 * t2600 * t3825 * t4747 + 0.18e2 * t11142 * t24117;
28858   t42854 = t1513 * t14502;
28859   t42856 = t12628 * t14490;
28860   t42859 = t2544 * t7527 * t3851;
28861   t42861 = t126 * t14483;
28862   t42862 = t42861 * t438;
28863   t42863 = t32232 * t42862;
28864   t42865 = t137 * t14483;
28865   t42866 = t42865 * t463;
28866   t42867 = t11212 * t42866;
28867   t42869 = t11181 * t2557;
28868   t42870 = t11212 * t42869;
28869   t42872 = t7513 * t3851;
28870   t42873 = t2565 * t42872;
28871   t42875 = t42865 * t438;
28872   t42876 = t23156 * t42875;
28873   t42878 = t150 * t14483;
28874   t42879 = t42878 * t463;
28875   t42880 = t7952 * t42879;
28876   t42882 = t11216 * t2557;
28877   t42883 = t7952 * t42882;
28878   t42885 = t7580 * t3851;
28879   t42886 = t4281 * t42885;
28880   t42888 = -0.280e3 * t42854 - 0.18e2 * t42856 - 0.18e2 * t42859 - 0.384e3 * t42863 + 0.288e3 * t42867 - 0.288e3 * t42870 + 0.42e2 * t42873 + 0.288e3 * t42876 - 0.192e3 * t42880 + 0.144e3 * t42883 - 0.24e2 * t42886;
28881   t42891 = t442 * t14483 * t444 * t447;
28882   t42893 = t113 * t14483;
28883   t42894 = t42893 * t438;
28884   t42895 = t23898 * t42894;
28885   t42897 = t42861 * t463;
28886   t42898 = t7592 * t42897;
28887   t42900 = t11171 * t2557;
28888   t42901 = t7592 * t42900;
28889   t42904 = t42 * t14483 * t85;
28890   t42906 = 0.9e1 * t42891 + 0.108e3 * t42895 - 0.108e3 * t42898 + 0.162e3 * t42901 - 0.30e2 * t42904 + t11178 - t11188 - t11206 + t11209 + t11225 - t11229 - t11231;
28891   t42908 = t1470 * t14490;
28892   t42910 = t7568 * t14496;
28893   t42912 = t922 * t3851;
28894   t42913 = t42912 * t1425;
28895   t42914 = t12619 * t42913;
28896   t42916 = t7614 * t42913;
28897   t42918 = t7603 * t42913;
28898   t42920 = t15060 * t2558;
28899   t42922 = t14484 * t464;
28900   t42924 = t5656 * t14493;
28901   t42926 = t7691 * t14499;
28902   t42928 = t11235 - 0.90e2 * t42908 + 0.350e3 * t42910 - t3854 + t3862 + 0.84e2 * t42914 + 0.27e2 * t42916 - 0.105e3 * t42918 - 0.18e2 * t42920 + 0.6e1 * t42922 - 0.1120e4 * t42924 + 0.720e3 * t42926;
28903   t42929 = t23807 * t14487;
28904   t42931 = t42865 * t1425;
28905   t42932 = t18368 * t42931;
28906   t42934 = t2575 * t32369;
28907   t42935 = t11212 * t42934;
28908   t42937 = t2618 * t32349;
28909   t42938 = t4281 * t42937;
28910   t42940 = t22418 * t111;
28911   t42941 = t42893 * t1425;
28912   t42942 = t42940 * t42941;
28913   t42945 = t2544 * t2552 * t32349;
28914   t42947 = t32353 * t953;
28915   t42948 = t42861 * t1425;
28916   t42949 = t42947 * t42948;
28917   t42951 = t2552 * t32369;
28918   t42952 = t7592 * t42951;
28919   t42954 = t2575 * t32349;
28920   t42955 = t2565 * t42954;
28921   t42957 = 0.450e3 * t42929 - t14492 + t14498 - t14504 - 0.216e3 * t42932 - 0.120e3 * t42935 + 0.72e2 * t42938 - 0.135e3 * t42942 + 0.18e2 * t42945 + 0.336e3 * t42949 + 0.126e3 * t42952 - 0.84e2 * t42955;
28922   t42959 = t42888 + t42906 + t42928 + t42957;
28923   t42978 = t4960 * t2582;
28924   t42982 = t1498 * t466 * t91;
28925   t43010 = t56 * t42959 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t14506 * t2587 - 0.9e1 / 0.100e3 * t11245 * t4290 - 0.9e1 / 0.100e3 * t3864 * t2594 - 0.9e1 / 0.100e3 * t3864 * t11250 + 0.9e1 / 0.50e2 * t3864 * t89 * t2594 - 0.9e1 / 0.100e3 * t3868 * t2590 + 0.3e1 / 0.20e2 * t14512 * t2587 + 0.9e1 / 0.50e2 * t3868 * t42978 - t14512 * t42982 / 0.10e2 - t470 * t42959 * t91 / 0.100e3 + t1499 * t14505 * t466 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t11244 * t933 * t91 + 0.3e1 / 0.100e3 * t1499 * t3863 * t2582 * t91 - 0.3e1 / 0.100e3 * t4970 * t3863 * t2594 - 0.3e1 / 0.100e3 * t4970 * t3874 * t2582 + t17136 * t14511 * t466 * t91 / 0.100e3;
28926   t43056 = -0.18676000000000000000e3 * t42854 - 0.12006e2 * t42856 - 0.12006e2 * t42859 - 0.256128e3 * t42863 + 0.192096e3 * t42867 - 0.192096e3 * t42870 + 0.28014e2 * t42873 + 0.192096e3 * t42876 - 0.128064e3 * t42880 + 0.96048e2 * t42883 - 0.16008e2 * t42886 + 0.60030000000000000000e1 * t42891 + 0.72036e2 * t42895 - 0.72036e2 * t42898 + 0.108054e3 * t42901 - 0.20010e2 * t42904 + 0.16982962545542625000e6 * t11351 * t14604 + t11300 + t11308 - t11315;
28927   t43057 = t11554 * t12656;
28928   t43058 = t4349 * t43057;
28929   t43061 = t11297 * t7604;
28930   t43062 = t7972 * t43061;
28931   t43064 = t11312 * t12656;
28932   t43065 = t2813 * t43064;
28933   t43067 = t11312 * t7604;
28934   t43068 = t7978 * t43067;
28935   t43070 = t2819 * t43057;
28936   t43072 = t22487 * t2651;
28937   t43073 = t609 * t14483;
28938   t43074 = t43073 * t1425;
28939   t43078 = t11559 * t11554 * t7604;
28940   t43081 = t4316 * t33036 * t12656;
28941   t43083 = t7940 * t42951;
28942   t43085 = t2742 * t42954;
28943   t43087 = t11347 * t12656;
28944   t43088 = t2770 * t43087;
28945   t43090 = t11347 * t7604;
28946   t43091 = t7990 * t43090;
28947   t43093 = -0.555069089128680e3 * t43062 + 0.204499138100040e3 * t43065 + 0.879346293830172e3 * t43068 - 0.334989064316256e3 * t43070 - 0.49386541851159660000e4 * t43072 * t43074 - 0.358360394384832e3 * t43078 + 0.140227980411456e3 * t43081 - 0.1600399800e3 * t43083 + 0.800199900e2 * t43085 - 0.2298854518472160e4 * t43088 - 0.10449338720328000e5 * t43091;
28948   t43096 = t11372 * t12656;
28949   t43097 = t2777 * t43096;
28950   t43099 = t11645 * t43067;
28951   t43102 = t11431 - t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456 - t11475 + t11483 - t11487;
28952   t43104 = t7996 * t42934;
28953   t43106 = t2748 * t42937;
28954   t43108 = t22515 * t124;
28955   t43113 = t22570 * t148;
28956   t43114 = t42878 * t1425;
28957   t43117 = t11372 * t7604;
28958   t43118 = t11659 * t43117;
28959   t43120 = t11297 * t12656;
28960   t43121 = t4334 * t43120;
28961   t43123 = t7948 * t43090;
28962   t43125 = t2785 * t43096;
28963   t43128 = t22274 * t162;
28964   t43129 = t164 * t14483;
28965   t43130 = t43129 * t1425;
28966   t43135 = t11389 * t7604;
28967   t43136 = t11693 * t43135;
28968   t43138 = t4356 * t43087;
28969   t43140 = t7952 * t42934;
28970   t43142 = t4326 * t43096;
28971   t43144 = t7983 * t43135;
28972   t43150 = t177 * t14483;
28973   t43151 = t43150 * t1425;
28974   t43154 = -0.50948887636627875000e5 * t43128 * t43130 - 0.60030e2 * t42908 + 0.23345000000000000000e3 * t42910 - 0.2560639680e3 * t43136 + 0.1280319840e3 * t43138 - 0.1002586940786088e4 * t43140 + 0.477422352755280e3 * t43142 + 0.5747136296180400e4 * t43144 + 0.18181759901698575000e5 * t18363 * t43114 - 0.10334283277330656e5 * t18302 * t43130 + 0.19427418119503800000e4 * t18380 * t43151;
28975   t43162 = t2756 * t42937;
28976   t43164 = t7960 * t43135;
28977   t43166 = t2762 * t43087;
28978   t43168 = t22483 * t135;
28979   t43171 = t11613 * t43090;
28980   t43173 = t7671 * t42913;
28981   t43175 = t7678 * t42913;
28982   t43177 = t12739 * t42913;
28983   t43180 = t7686 * t42913;
28984   t43182 = t7692 * t42913;
28985   t43184 = t8291 * t42913;
28986   t43186 = t12759 * t42913;
28987   t43188 = t8298 * t42913;
28988   t43190 = t8304 * t42913;
28989   t43192 = t12751 * t42913;
28990   t43194 = t8285 * t42913;
28991   t43196 = t12773 * t42913;
28992   t43198 = t7699 * t42913;
28993   t43200 = t7705 * t42913;
28994   t43202 = 0.1200299850e3 * t43180 - 0.2774026320e3 * t43182 - 0.70196245188242850000e4 * t43184 + 0.30369533022617400000e4 * t43186 - 0.1937678114499498e4 * t43188 + 0.3123925500500280e4 * t43190 - 0.2786490325420800e4 * t43192 + 0.41957907465458250000e4 * t43194 + 0.1600399800e3 * t43196 + 0.64452017621962800000e3 * t43198 - 0.12472658965731690000e4 * t43200;
28995   t43204 = t12996 * t42913;
28996   t43206 = t7712 * t42913;
28997   t43208 = t7719 * t42913;
28998   t43210 = t12766 * t42913;
28999   t43219 = t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.16462180617053220000e5 * t11301 * t14610 + 0.25606396800000000000e4 * t11179 * t14613 + 0.7957039212588000e4 * t7718 * t14616;
29000   t43235 = t11541 - t14622 + t14623 - t14624 + t11553 - t11557 - t11572 + t11574 + t11583 - t11586 + t11599;
29001   t43240 = t32520 * t1018;
29002   t43243 = t11460 * t171;
29003   t43244 = t43243 * t3912;
29004   t43245 = t1786 * t14483;
29005   t43246 = t43245 * t1425;
29006   t43249 = t32567 * t11320;
29007   t43253 = t27 * t14558 * t14559;
29008   t43255 = 0.1e1 / t160 / t134;
29009   t43256 = t43253 * t43255;
29010   t43257 = t5119 * t14483;
29011   t43261 = -t11670 + t11672 + t11688 - t11691 - t11701 + t11703 - 0.15664285453771080000e5 * t18380 * t43074 - 0.24704340579631944e5 * t43240 * t43074 + 0.7564965536346624e4 * t43244 * t43246 + 0.42847438459056000000e4 * t43249 * t43246 - 0.12620518237031040000e4 * t43256 * t43257 * t1425;
29012   t43266 = t32419 * t966;
29013   t43271 = t32444 * t979;
29014   t43274 = t2805 * t43064;
29015   t43276 = t22181 * t175;
29016   t43279 = t7922 * t43117;
29017   t43281 = t2791 * t43120;
29018   t43283 = t11588 * t43061;
29019   t43285 = t4342 * t43064;
29020   t43287 = t32539 * t1005;
29021   t43291 = t7931 * t43117;
29022   t43293 = t2799 * t43120;
29023   t43295 = t7965 * t43061;
29024   t43299 = t32458 * t992;
29025   t43304 = t43129 * t463;
29026   t43307 = t11343 * t2557;
29027   t43310 = t43245 * t438;
29028   t43313 = t43257 * t463;
29029   t43316 = t11322 * t2557;
29030   t43319 = 0.3444761092443552e4 * t43291 - 0.1291785409666332e4 * t43293 - 0.5623065900900504e4 * t43295 - 0.23871117637764000000e4 * t18363 * t43130 - 0.36224374230470400e5 * t43299 * t43130 + 0.12539206464393600e5 * t18302 * t43151 + 0.4774223527552800e4 * t11613 * t43304 - 0.2864534116531680e4 * t11613 * t43307 - 0.7541149168793856e4 * t33041 * t43310 + 0.3085015569052032e4 * t11559 * t43313 - 0.1028338523017344e4 * t11559 * t43316;
29031   t43321 = t14558 * t3909;
29032   t43322 = t43321 * t14562;
29033   t43339 = t42878 * t438;
29034   t43349 = t43150 * t463;
29035   t43352 = t11353 * t2557;
29036   t43355 = t43129 * t438;
29037   t43362 = t43150 * t438;
29038   t43365 = t43073 * t463;
29039   t43368 = t11293 * t2557;
29040   t43371 = t43073 * t438;
29041   t43374 = t43245 * t463;
29042   t43377 = t11303 * t2557;
29043   t43380 = -0.1909689411021120e4 * t7948 * t43349 + 0.954844705510560e3 * t7948 * t43352 + 0.58864608124514400e5 * t32695 * t43355 - 0.27168280672852800e5 * t11659 * t43349 + 0.13584140336426400e5 * t11659 * t43352 - 0.20898677440656000e5 * t22884 * t43362 + 0.9752716138972800e4 * t7931 * t43365 - 0.4179735488131200e4 * t7931 * t43368 + 0.26853060777893280e5 * t22905 * t43371 - 0.11934693679063680e5 * t7972 * t43374 + 0.4475510129648880e4 * t7972 * t43377;
29044   t43389 = t11459 * t603;
29045   t43390 = t43389 * t2651;
29046   t43397 = t2610 * t14502;
29047   t43399 = t7808 * t14635;
29048   t43401 = t1530 * t14631;
29049   t43403 = t2617 * t14635;
29050   t43406 = t11372 * t2557;
29051   t43407 = t2791 * t43406;
29052   t43409 = t11297 * t2557;
29053   t43410 = t4342 * t43409;
29054   t43418 = t2799 * t43406;
29055   t43420 = t2805 * t43409;
29056   t43428 = t7766 * t14631;
29057   t43430 = 0.825838178685210e3 * t43407 - 0.319679294974920e3 * t43410 - 0.81837899513579520e5 * t33486 * t43362 + 0.35804081037191040e5 * t11588 * t43365 - 0.15344606158796160e5 * t11588 * t43368 + 0.215297568277722e3 * t43418 - 0.312392550050028e3 * t43420 - 0.46504274747987952e5 * t23141 * t43362 + 0.19148819013877392e5 * t7965 * t43365 - 0.8206636720233168e4 * t7965 * t43368 - 0.20318158622860000000e5 * t43428;
29058   t43432 = t1555 * t14648;
29059   t43434 = t2641 * t14651;
29060   t43436 = t7899 * t14648;
29061   t43438 = t12798 * t14656;
29062   t43440 = t2570 * t14496;
29063   t43442 = t7776 * t14502;
29064   t43444 = t1538 * t14628;
29065   t43446 = t2625 * t14631;
29066   t43448 = t1522 * t14635;
29067   t43473 = -0.1600399800e3 * t7940 * t42900 - 0.2005173881572176e4 * t23156 * t42862 + 0.17223805462217760e5 * t22884 * t43355 - 0.6889522184887104e4 * t7931 * t43349 + 0.3444761092443552e4 * t7931 * t43352 - 0.3330414534772080e4 * t22905 * t43362 + 0.1295161207966920e4 * t7972 * t43365 - 0.555069089128680e3 * t7972 * t43368 - 0.1600399800e3 * t22889 * t42894 - 0.14407200000000000000e3 * t42932 - 0.80040e2 * t42935;
29068   t43485 = t11389 * t2557;
29069   t43486 = t4356 * t43485;
29070   t43488 = t2756 * t42885;
29071   t43490 = t2762 * t43485;
29072   t43515 = 0.7734242114635536e4 * t23136 * t42875 - 0.3867121057317768e4 * t7960 * t42879 + 0.2900340792988326e4 * t7960 * t42882 - 0.29090815842717720e5 * t22899 * t43339 + 0.12121173267799050e5 * t7948 * t43304 - 0.7272703960679430e4 * t7948 * t43307 + 0.83915814930916500e5 * t22877 * t43355 - 0.35963920684678500e5 * t7922 * t43349 + 0.1002586940786088e4 * t7952 * t42866 - 0.1002586940786088e4 * t7952 * t42869 + 0.17241408888541200e5 * t23161 * t42875;
29073   t43527 = t4334 * t43406;
29074   t43529 = t11347 * t2557;
29075   t43530 = t2785 * t43529;
29076   t43532 = t7820 * t14628;
29077   t43534 = t1546 * t14651;
29078   t43536 = t2633 * t14628;
29079   t43539 = t7855 * t14651;
29080   t43541 = t4326 * t43529;
29081   t43543 = t2770 * t43485;
29082   t43545 = t2777 * t43529;
29083   t43547 = t11312 * t2557;
29084   t43548 = t4349 * t43547;
29085   t43550 = t2813 * t43409;
29086   t43552 = t2819 * t43547;
29087   t43561 = t4316 * t11554 * t2557;
29088   t43563 = -0.10413085001667600000e5 * t43539 - 0.95484470551056e2 * t43541 + 0.574713629618040e3 * t43543 - 0.870778226694000e3 * t43545 + 0.118202586505416e3 * t43548 - 0.29214162585720e2 * t43550 + 0.41873633039532e2 * t43552 + 0.8588963800201680e4 * t22860 * t43371 - 0.3435585520080672e4 * t7978 * t43374 + 0.1288344570030252e4 * t7978 * t43377 - 0.15580886712384e2 * t43561;
29089   t43566 = t2742 * t42872;
29090   t43568 = t2748 * t42885;
29091   t43592 = t168 * t987 * t14559;
29092   t43611 = -0.25216551787822080e5 * t7676 * t14552 - 0.14282479486352000000e5 * t32163 * t14555 + 0.4206839412343680e4 * t43592 * t14564 - 0.37342662000000000000e4 * t5504 * t14567 + 0.17070931200e4 * t7704 * t14570 - 0.20688301952728800000e5 * t5513 * t14573 - 0.16197084278729280000e6 * t5647 * t14576 - 0.91184852447035200000e5 * t11376 * t14579 + 0.17724304846039770000e5 * t11335 * t14607 - 0.60605866338995250e5 * t7718 * t14582 + 0.34447610924435520e5 * t8290 * t14585;
29093   t43620 = -t14647 + t14650 - t14653 + t14655 - t14658 + t14660 - t14662 + t14664 - t14666 - t14668 + t14670;
29094   t43627 = t14511 * t184 * t466;
29095   t43630 = t11713 * t2582;
29096   t43635 = t2836 * t11262;
29097   t43638 = t8319 * t3863;
29098   t43643 = t2836 * t11244;
29099   t43651 = t14505 * t184 * t466;
29100   t43667 = t184 * t42959 * t616 * t617 - 0.24e2 * t23950 * t43627 - t24084 * t43627 - 0.12e2 * t24086 * t43627 - 0.36e2 * t24093 * t43627 - 0.6e1 * t2835 * t43638 - 0.6e1 * t2835 * t43643 - 0.2e1 * t2835 * t43651 - 0.3e1 * t2843 * t43638 - 0.3e1 * t2843 * t43643 - t2843 * t43651 + 0.18e2 * t43630 * t8315 + 0.18e2 * t43630 * t8323 + 0.3e1 * t43630 * t8335 + 0.18e2 * t43635 * t8315 + 0.18e2 * t43635 * t8323 + 0.3e1 * t43635 * t8335;
29101   t43668 = my_piecewise3(t102, 0.2243647686583296e4 * t43322 * t43257 * t438 + 0.280455960822912e3 * t15216 * t11563 * t2557 + t43620 + t43611 + 0.693506580e2 * t43568 - 0.400099950e2 * t43566 + t43563 - 0.10123177674205800000e5 * t43534 + 0.6458927048331660e4 * t43536 - 0.559438766206110e3 * t43530 + 0.23398748396080950000e5 * t43532 + 0.348311290677600e3 * t43527 + t43515 + 0.226775617558758e3 * t43490 - 0.320079960e2 * t43486 - 0.143226705826584e3 * t43488 + t43473 - 0.13985969155152750e5 * t43446 - 0.53346660000000000000e3 * t43448 + 0.92467544000000000000e3 * t43442 + 0.92883010847360000000e4 * t43444 - 0.64920361301600000000e3 * t43438 - 0.4000999500e3 * t43440 + 0.43340948385319200000e4 * t43432 - 0.1022495690500200e4 * t43434 + 0.16051559331820600000e4 * t43436 + t43430 + 0.11494272592360800e5 * t43403 - 0.2148400587398760e4 * t43397 + 0.41575529885772300000e4 * t43399 - 0.20688301952728800000e4 * t43401 + t43380 + t43319 - 0.5434548014573640e4 * t43283 + 0.2237755064824440e4 * t43285 + 0.12387572680278150e5 * t43279 - 0.4955029072111260e4 * t43281 + 0.2186747850350196e4 * t43274 + t43261 + t43235 + t43219 + 0.6095447586858000e4 * t43208 - 0.1300228451559576e4 * t43210 + 0.62064905858186400000e3 * t43204 - 0.3448281777708240e4 * t43206 + t43202 + 0.19476108390480000000e3 * t43177 + 0.30674870715006000000e3 * t43173 - 0.48154677995461800000e3 * t43175 - 0.1050329176061616e4 * t43171 + 0.2040980558028822e4 * t43164 - 0.907102470235032e3 * t43166 + 0.429680117479752e3 * t43162 + t43154 - 0.2089867744065600e4 * t43121 - 0.7272703960679430e4 * t43123 + 0.2797193831030550e4 * t43125 + 0.4876358069486400e4 * t43118 + 0.4161039480e3 * t43104 - 0.2080519740e3 * t43106 + 0.2364051730108320e4 * t43099 + t43102 + 0.4353891133470000e4 * t43097 + t43093 - 0.945620692043328e3 * t43058 + t43056 - 0.56028e2 * t42955 + 0.84042e2 * t42952 + 0.12006e2 * t42945 + 0.22411200000000000000e3 * t42949 - 0.90045000000000000000e2 * t42942 + 0.48024e2 * t42938 + 0.480240e3 * t42926 + 0.30015000000000000000e3 * t42929 + 0.4002e1 * t42922 - 0.74704000000000000000e3 * t42924 - 0.70035000000000000000e2 * t42918 - 0.12006e2 * t42920 + 0.56028000000000000000e2 * t42914 + 0.18009000000000000000e2 * t42916 + t11327 - t14633 - 0.15683918040e4 * t32749 * t42875 + 0.8962238880e3 * t11693 * t42879 - 0.6721679160e3 * t11693 * t42882 + 0.7681919040e3 * t23161 * t43339 - 0.4267732800e3 * t7983 * t43304 + 0.2560639680e3 * t7983 * t43307 - 0.9548447055105600e4 * t32721 * t43339 + 0.11202798600e4 * t43266 * t42931 - 0.5121279360e3 * t18227 * t43114 + 0.62064905858186400000e4 * t43271 * t43114 + 0.27355455734110560e5 * t43276 * t43151 + 0.48591252836187840000e5 * t43287 * t43151 + 0.38314241974536000e5 * t7704 * t14598 - 0.11703259366767360000e6 * t11393 * t14601 + 0.1600399800e3 * t18390 * t42941 + 0.15038804111791320000e4 * t18368 * t42948 - 0.53172914538119310000e4 * t43168 * t42931 - 0.7681919040e3 * t43108 * t42948 - 0.11494272592360800e5 * t18227 * t42931 + 0.35109778100302080e5 * t43113 * t43114 + t3925 + t3906 - t11423 - t14639 + t14641 + t11358 - t3900 - t11601 - t11375 - t11611 + t11489 - 0.6475806039834600e4 * t8303 * t14588 - 0.5334666000e3 * t7602 * t14592 - 0.5012934703930440e4 * t7691 * t14595 + 0.9602398800e3 * t23150 * t42862 - 0.5761439280e3 * t7996 * t42866 + 0.5761439280e3 * t7996 * t42869 + 0.3819378822042240e4 * t22899 * t43355 + 0.12074791410156800000e6 * t5638 * t14539 - 0.41797354881312000e5 * t8290 * t14542 + 0.52214284845903600e5 * t8303 * t14545 + 0.82347801932106480000e5 * t5626 * t14548 - 0.7662848394907200e4 * t7983 * t42879 + 0.5747136296180400e4 * t7983 * t42882 - 0.55172508443331840e5 * t23128 * t43339 + 0.25078412928787200e5 * t7990 * t43304 - 0.15047047757272320e5 * t7990 * t43307 + 0.17981960342339250e5 * t7922 * t43352 + 0.1066933200e3 * t7940 * t42897 + 0.42671133728455176e5 * t33048 * t43371 - 0.17966793148823232e5 * t11645 * t43374 + 0.6737547430808712e4 * t11645 * t43377 - 0.13238689688606592e5 * t43390 * t43310 + 0.5673724152259968e4 * t15188 * t43313 - 0.1891241384086656e4 * t15188 * t43316 - t3891 + t11402 - t11404 - t11381 - t11410 + t11411 + t11608 - t11633 - t3919 + t11341 - t14643 + t14645 + t14630 - t11640 + t11643 - t14637 + t11427 - t11392 + t11657 - t11655 - t11333 - t11398 + t11350 + t11621 - t11623 - t3934 - 0.934853202743040e3 * t15216 * t17738 * t14483 * t463 + t11418 - t11419, t43667);
29102   t43671 = t405 * (0.27e2 / 0.160e3 * t420 * t422 * t52 - 0.243e3 / 0.2560e4 * t1391 * t2532 * t24 * sigma[0] * t52 + 0.24057e5 / 0.2048000e7 * t14475 * t11159 - 0.177147e6 / 0.81920000e8 * t16789 * t421 / t2681 * t52 + 0.6e1 * t2597 * t3877 + 0.6e1 * t940 * t11273 + 0.2e1 * t474 * t14527 + 0.2e1 * t94 * t43010) * t187 - t405 * t14530 * t621 + 0.6e1 * t1369 * t14533 * t477 - 0.3e1 * t405 * t11276 * t1027 - 0.3e1 * t405 * t3880 * t2846 + 0.6e1 * t1369 * t14536 * t477 - 0.3e1 * t405 * t2600 * t4017 - 0.3e1 * t405 * t943 * t11734 - t405 * t477 * t14694 - t101 * t43668 + 0.1174e1 * t43668;
29103   t43678 = 0.41747906250000000000e1 * t7346 * t4030;
29104   t43680 = t634 * t18 * t14697;
29105   t43684 = 0.23193281250000000000e0 * t1364 * t14732;
29106   t43691 = 0.20873953125000000000e1 * t1364 * t14720;
29107   t43700 = 0.46386562500000000000e0 * t7346 * t4035;
29108   t43704 = 0.92773125000000000000e0 * t33931 * t1038;
29109   t43710 = -0.3e1 / 0.8e1 * t8 * t18 * (t42832 + t43671) * t204 - t43678 - 0.24739500000000000000e1 * t43680 * t644 + t43684 - 0.92773125000000000000e0 * t636 * t640 * t4039 * t641 * t203 + t43691 - 0.83495812500000000000e1 * t636 * t1862 * t11792 * t407 * t203 + 0.16699162500000000000e2 * t2855 * t11819 - t43700 + 0.18554625000000000000e1 * t2855 * t11826 + t43704 - 0.37109250000000000000e1 * t11808 * t2875 + 0.17034338633799234375e2 * t5888 * t1335 * t14742;
29110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29111     v4rhosigma3[0] = -t14701 + t14703 - t14705 - t14707 + t14712 + t14717 + t14722 - t14729 + t14734 - t14739 + t14745 + t10 * (t42702 + t42756 + t42799 + t43710);
29112 
29113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29114     v4rhosigma3[1] = 0.0e0;
29115 
29116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29117     v4rhosigma3[2] = 0.0e0;
29118 
29119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29120     v4rhosigma3[3] = 0.0e0;
29121 
29122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29123     v4rhosigma3[4] = 0.0e0;
29124 
29125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29126     v4rhosigma3[5] = 0.0e0;
29127 
29128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29129     v4rhosigma3[6] = 0.0e0;
29130 
29131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29132     v4rhosigma3[7] = 0.0e0;
29133 
29134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29135     v4rhosigma3[8] = 0.0e0;
29136 
29137   t43714 = t17 * t14985;
29138   t43720 = t8 * t655 * t14986 / 0.8e1;
29139   t43724 = 0.92773125000000000000e0 * t34353 * t1173;
29140   t43728 = 0.41747906250000000000e1 * t8454 * t4252;
29141   t43732 = 0.46386562500000000000e0 * t8454 * t4257;
29142   t43736 = 0.11326164200960098622e2 * t6193 * t14998;
29143   t43737 = t19744 * t3274;
29144   t43738 = t7274 * t376;
29145   t43743 = -t648 * t43714 * t651 / 0.2e1 - t43720 + 0.37109250000000000000e1 * t34311 * t2895 + t43724 - 0.16699162500000000000e2 * t8450 * t11848 - t43728 - 0.18554625000000000000e1 * t8450 * t11854 - t43732 + 0.45304656803840394488e2 * t25160 * t11861 + t43736 + 0.41747906250000000000e2 * t1953 * t43737 * t43738 * t650;
29146   t43745 = 0.10436976562500000000e2 * t8480 * t15003;
29147   t43751 = 0.20873953125000000000e1 * t1960 * t15008;
29148   t43752 = t4811 * t15012;
29149   t43753 = t368 * t376;
29150   t43759 = 0.29068550175174338733e-1 * t6193 * t15015;
29151   t43765 = 0.23193281250000000000e0 * t1960 * t15020;
29152   t43766 = t15013 * t19;
29153   t43771 = 0.11326164200960098622e2 * t6193 * t15025;
29154   t43777 = 0.56781128779330781250e1 * t6257 * t1891 * t15030;
29155   t43778 = t43745 + 0.83495812500000000000e1 * t1953 * t2488 * t15006 * t1954 + t43751 - 0.11627420070069735493e0 * t6127 * t43752 * t43753 * t650 - t43759 + 0.92773125000000000000e0 * t1953 * t898 * t15018 * t1954 + t43765 - 0.45304656803840394488e2 * t6127 * t43766 * t6131 - t43771 + 0.22712451511732312500e2 * t19710 * t34572 * t19713 + t43777;
29156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29157     v4rhosigma3[9] = -t14989 + t14991 - t14993 - t14995 + t15000 + t15005 + t15010 - t15017 + t15022 - t15027 + t15033 + t10 * (t43743 + t43778);
29158 
29159   t43796 = -t385 * t42795 * t663 / 0.2e1 - t42794 + 0.37109250000000000000e1 * t33996 * t2906 + t43704 - 0.16699162500000000000e2 * t7444 * t11874 - t43678 - 0.18554625000000000000e1 * t7444 * t11878 - t43700 + 0.45304656803840394488e2 * t24515 * t11881 + t42701 + 0.41747906250000000000e2 * t1340 * t42677 * t42678 * t662;
29160   t43815 = t42761 + 0.83495812500000000000e1 * t1340 * t1862 * t14718 * t1916 + t43691 - 0.11627420070069735493e0 * t5769 * t42671 * t42672 * t662 - t42759 + 0.92773125000000000000e0 * t1340 * t640 * t14730 * t1916 + t43684 - 0.45304656803840394488e2 * t5769 * t42665 * t6030 - t42755 + 0.22712451511732312500e2 * t16710 * t33968 * t18936 + t42699;
29161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29162     v4rhosigma3[10] = -t14701 + t14703 - t14705 - t14707 + t14712 + t14717 + t14722 - t14729 + t14734 - t14739 + t14745 + t10 * (t43796 + t43815);
29163 
29164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29165     v4rhosigma3[11] = 0.0e0;
29166 
29167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29168     v4rhosigma3[12] = 0.0e0;
29169 
29170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29171     v4rhosigma3[13] = 0.0e0;
29172 
29173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29174     v4rhosigma3[14] = 0.0e0;
29175 
29176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29177     v4rhosigma3[15] = 0.0e0;
29178 
29179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29180     v4rhosigma3[16] = 0.0e0;
29181 
29182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29183     v4rhosigma3[17] = 0.0e0;
29184 
29185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29186     v4rhosigma3[18] = 0.0e0;
29187 
29188   t43873 = -0.6e1 * t1079 * t12032 * t2000 - 0.6e1 * t14747 * t6316 * t885 - 0.24e2 * t14748 * t20016 * t742 - 0.18e2 * t14754 * t6316 * t742 - 0.2e1 * t14819 * t2000 * t742 + 0.12e2 * t2000 * t2997 * t4105 - 0.6e1 * t2000 * t2998 * t4102 + 0.6e1 * t2000 * t3000 * t4102 + 0.6e1 * t2000 * t3243 * t4046 + 0.18e2 * t2997 * t4047 * t6316 + 0.18e2 * t11898 * t27487;
29189   t43895 = t1057 * t4073;
29190   t43896 = t43895 * t1425;
29191   t43897 = t8563 * t43896;
29192   t43899 = t8573 * t43896;
29193   t43901 = t13194 * t43896;
29194   t43903 = t313 * t14771;
29195   t43904 = t43903 * t728;
29196   t43905 = t11966 * t43904;
29197   t43907 = t11924 * t2954;
29198   t43908 = t11966 * t43907;
29199   t43910 = t8629 * t4073;
29200   t43911 = t2962 * t43910;
29201   t43913 = t43903 * t703;
29202   t43914 = t26689 * t43913;
29203   t43916 = t326 * t14771;
29204   t43917 = t43916 * t728;
29205   t43918 = t8859 * t43917;
29206   t43920 = t11985 * t2954;
29207   t43921 = t8859 * t43920;
29208   t43923 = t8602 * t4073;
29209   t43924 = t4395 * t43923;
29210   t43926 = t302 * t14771;
29211   t43927 = t43926 * t703;
29212   t43928 = t35819 * t43927;
29213   t43930 = 0.27e2 * t43897 - 0.105e3 * t43899 + 0.84e2 * t43901 + 0.288e3 * t43905 - 0.288e3 * t43908 + 0.42e2 * t43911 + 0.288e3 * t43914 - 0.192e3 * t43918 + 0.144e3 * t43921 - 0.24e2 * t43924 - 0.384e3 * t43928;
29214   t43931 = t43903 * t1425;
29215   t43932 = t20665 * t43931;
29216   t43934 = t2972 * t35108;
29217   t43935 = t11966 * t43934;
29218   t43937 = t3048 * t35112;
29219   t43938 = t4395 * t43937;
29220   t43940 = t25489 * t287;
29221   t43941 = t289 * t14771;
29222   t43942 = t43941 * t1425;
29223   t43943 = t43940 * t43942;
29224   t43946 = t2941 * t2949 * t35112;
29225   t43948 = t35334 * t1088;
29226   t43949 = t43926 * t1425;
29227   t43950 = t43948 * t43949;
29228   t43952 = t2949 * t35108;
29229   t43953 = t8621 * t43952;
29230   t43955 = t2972 * t35112;
29231   t43956 = t2962 * t43955;
29232   t43958 = -t14780 + t14786 - t14792 - 0.216e3 * t43932 - 0.120e3 * t43935 + 0.72e2 * t43938 - 0.135e3 * t43943 + 0.18e2 * t43946 + 0.336e3 * t43950 + 0.126e3 * t43953 - 0.84e2 * t43956 - t4076;
29233   t43961 = t222 * t14771 * t261;
29234   t43963 = t15338 * t2955;
29235   t43965 = t14772 * t729;
29236   t43967 = t7068 * t14781;
29237   t43969 = t8770 * t14787;
29238   t43971 = t25642 * t14775;
29239   t43975 = t707 * t14771 * t709 * t712;
29240   t43977 = t43941 * t703;
29241   t43978 = t25633 * t43977;
29242   t43980 = t43926 * t728;
29243   t43981 = t8621 * t43980;
29244   t43983 = t11937 * t2954;
29245   t43984 = t8621 * t43983;
29246   t43986 = t13166 * t14778;
29247   t43988 = t4084 - 0.30e2 * t43961 - 0.18e2 * t43963 + 0.6e1 * t43965 - 0.1120e4 * t43967 + 0.720e3 * t43969 + 0.450e3 * t43971 + 0.9e1 * t43975 + 0.108e3 * t43978 - 0.108e3 * t43981 + 0.162e3 * t43984 - 0.18e2 * t43986;
29248   t43990 = t2941 * t8643 * t4073;
29249   t43992 = t2098 * t14778;
29250   t43994 = t8667 * t14784;
29251   t43996 = t2170 * t14790;
29252   t43998 = -0.18e2 * t43990 - 0.90e2 * t43992 + 0.350e3 * t43994 - 0.280e3 * t43996 - t11931 + t11944 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
29253   t44000 = t43930 + t43958 + t43988 + t43998;
29254   t44019 = t6524 * t2979;
29255   t44023 = t2126 * t731 * t267;
29256   t44051 = t56 * t44000 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t14794 * t2984 - 0.9e1 / 0.100e3 * t12001 * t4404 - 0.9e1 / 0.100e3 * t4086 * t2991 - 0.9e1 / 0.100e3 * t4086 * t12006 + 0.9e1 / 0.50e2 * t4086 * t265 * t2991 - 0.9e1 / 0.100e3 * t4090 * t2987 + 0.3e1 / 0.20e2 * t14800 * t2984 + 0.9e1 / 0.50e2 * t4090 * t44019 - t14800 * t44023 / 0.10e2 - t735 * t44000 * t267 / 0.100e3 + t2127 * t14793 * t731 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t12000 * t1068 * t267 + 0.3e1 / 0.100e3 * t2127 * t4085 * t2979 * t267 - 0.3e1 / 0.100e3 * t6534 * t4085 * t2991 - 0.3e1 / 0.100e3 * t6534 * t4096 * t2979 + t20412 * t14799 * t731 * t267 / 0.100e3;
29257   t44083 = t3163 * t43910;
29258   t44091 = t3188 * t43923;
29259   t44095 = t12056 + t12064 - t12071 - t12079 + t12093 + t12101 - t12108 + t12120 - t12126 + t12141 - t12148 - t12154 + 0.1066933200e3 * t8914 * t43980 - 0.1600399800e3 * t8914 * t43983 - 0.400099950e2 * t44083 - 0.2005173881572176e4 * t26689 * t43927 + 0.1002586940786088e4 * t8859 * t43904 - 0.1002586940786088e4 * t8859 * t43907 - 0.143226705826584e3 * t44091 + 0.17241408888541200e5 * t26714 * t43913;
29260   t44100 = t803 * t14771;
29261   t44101 = t44100 * t728;
29262   t44104 = t12074 * t2954;
29263   t44107 = t8955 * t4073;
29264   t44108 = t3158 * t44107;
29265   t44112 = t340 * t14771;
29266   t44113 = t44112 * t703;
29267   t44116 = t353 * t14771;
29268   t44117 = t44116 * t728;
29269   t44120 = t12059 * t2954;
29270   t44123 = t44116 * t703;
29271   t44131 = t12410 * t12405 * t8564;
29272   t44134 = t4424 * t35570 * t13144;
29273   t44136 = t9104 * t43934;
29274   t44138 = t3180 * t43937;
29275   t44140 = t12068 * t8564;
29276   t44141 = t8847 * t44140;
29277   t44143 = t12090 * t13144;
29278   t44144 = t3222 * t44143;
29279   t44146 = t44112 * t1425;
29280   t44149 = t35118 * t1127;
29281   t44152 = 0.18009000000000000000e2 * t43897 - 0.70035000000000000000e2 * t43899 + 0.56028000000000000000e2 * t43901 - 0.358360394384832e3 * t44131 + 0.140227980411456e3 * t44134 + 0.4161039480e3 * t44136 - 0.2080519740e3 * t44138 + 0.12387572680278150e5 * t44141 - 0.4955029072111260e4 * t44144 - 0.23871117637764000000e4 * t20802 * t44146 - 0.36224374230470400e5 * t44149 * t44146;
29282   t44155 = t44116 * t1425;
29283   t44158 = t35157 * t1140;
29284   t44161 = t44100 * t1425;
29285   t44164 = t35214 * t1153;
29286   t44167 = t12217 * t347;
29287   t44168 = t44167 * t4183;
29288   t44169 = t2330 * t14771;
29289   t44170 = t44169 * t1425;
29290   t44173 = t35171 * t12113;
29291   t44177 = t215 * t14905 * t14906;
29292   t44179 = 0.1e1 / t336 / t310;
29293   t44180 = t44177 * t44179;
29294   t44181 = t7167 * t14771;
29295   t44185 = t35241 * t1101;
29296   t44188 = t43916 * t1425;
29297   t44191 = t26823 * t351;
29298   t44195 = t26423 * t3031;
29299   t44198 = t26432 * t300;
29300   t44201 = t12090 * t8564;
29301   t44202 = t8902 * t44201;
29302   t44204 = t12105 * t13144;
29303   t44205 = t3150 * t44204;
29304   t44207 = t12105 * t8564;
29305   t44208 = t12362 * t44207;
29306   t44210 = t12405 * t13144;
29307   t44211 = t4465 * t44210;
29308   t44213 = t12053 * t8564;
29309   t44214 = t12309 * t44213;
29310   t44216 = t12068 * t13144;
29311   t44217 = t4441 * t44216;
29312   t44219 = t8880 * t44213;
29313   t44221 = t3208 * t44216;
29314   t44223 = t12333 * t44140;
29315   t44225 = -0.49386541851159660000e4 * t44195 * t44161 - 0.7681919040e3 * t44198 * t43949 - 0.5623065900900504e4 * t44202 + 0.2186747850350196e4 * t44205 + 0.2364051730108320e4 * t44208 - 0.945620692043328e3 * t44211 - 0.1050329176061616e4 * t44214 + 0.477422352755280e3 * t44217 - 0.10449338720328000e5 * t44219 + 0.4353891133470000e4 * t44221 + 0.4876358069486400e4 * t44223;
29316   t44227 = t4449 * t44143;
29317   t44229 = t8854 * t44140;
29318   t44231 = t3143 * t44143;
29319   t44235 = t8909 * t44201;
29320   t44237 = t3158 * t44204;
29321   t44239 = t27107 * t311;
29322   t44242 = t27095 * t324;
29323   t44245 = t27052 * t338;
29324   t44248 = t35283 * t1114;
29325   t44252 = t12145 * t8564;
29326   t44253 = t12438 * t44252;
29327   t44255 = t12053 * t13144;
29328   t44256 = t4433 * t44255;
29329   t44258 = t9242 * t44207;
29330   t44260 = t3169 * t44210;
29331   t44262 = t12396 * t44201;
29332   t44264 = t4457 * t44204;
29333   t44268 = t8914 * t43952;
29334   t44270 = t3163 * t43955;
29335   t44274 = t8859 * t43934;
29336   t44276 = -0.2560639680e3 * t44253 + 0.1280319840e3 * t44256 + 0.879346293830172e3 * t44258 - 0.334989064316256e3 * t44260 - 0.5434548014573640e4 * t44262 + 0.2237755064824440e4 * t44264 - 0.10334283277330656e5 * t21214 * t44146 - 0.1600399800e3 * t44268 + 0.800199900e2 * t44270 + 0.15038804111791320000e4 * t20665 * t43949 - 0.1002586940786088e4 * t44274;
29337   t44280 = t3188 * t43937;
29338   t44284 = t8874 * t44252;
29339   t44286 = t3202 * t44255;
29340   t44290 = t8921 * t44213;
29341   t44292 = t3216 * t44216;
29342   t44294 = t8867 * t44252;
29343   t44296 = t3194 * t44255;
29344   t44303 = 0.192096e3 * t43905 - 0.192096e3 * t43908 - t14833 + t14836 - t14839 + t14841 + t14844 - t14847 - t14849 + t14851 - t14854;
29345   t44312 = t9311 * t14834;
29346   t44314 = t13362 * t14837;
29347   t44316 = t9099 * t14790;
29348   t44318 = 0.192096e3 * t43914 - 0.128064e3 * t43918 + 0.96048e2 * t43921 - 0.16008e2 * t43924 - 0.256128e3 * t43928 - t14874 + t14875 - t14876 + 0.16051559331820600000e4 * t44312 - 0.64920361301600000000e3 * t44314 + 0.92467544000000000000e3 * t44316;
29349   t44321 = t9191 * t14842;
29350   t44323 = t2203 * t14845;
29351   t44325 = t2160 * t14834;
29352   t44327 = t2187 * t14852;
29353   t44329 = t9364 * t14852;
29354   t44331 = t2195 * t14842;
29355   t44333 = t3013 * t14842;
29356   t44335 = t3021 * t14845;
29357   t44337 = t2179 * t14831;
29358   t44339 = t9215 * t14845;
29359   t44350 = -0.14407200000000000000e3 * t43932 - 0.80040e2 * t43935 + 0.48024e2 * t43938 - 0.90045000000000000000e2 * t43943 + 0.12006e2 * t43946 + 0.22411200000000000000e3 * t43950 + 0.84042e2 * t43953 - 0.56028e2 * t43956 - t4110 + t4116 + t4125;
29360   t44353 = t9343 * t14831;
29361   t44355 = t2967 * t14784;
29362   t44357 = t3040 * t14790;
29363   t44359 = t3047 * t14831;
29364   t44361 = t3005 * t14852;
29365   t44363 = t12096 * t2954;
29366   t44372 = t44100 * t703;
29367   t44375 = t4205 + 0.41575529885772300000e4 * t44353 - 0.4000999500e3 * t44355 - 0.2148400587398760e4 * t44357 + 0.11494272592360800e5 * t44359 - 0.13985969155152750e5 * t44361 + 0.4475510129648880e4 * t8909 * t44363 - 0.81837899513579520e5 * t35593 * t44123 + 0.35804081037191040e5 * t12396 * t44101 - 0.15344606158796160e5 * t12396 * t44104 + 0.26853060777893280e5 * t26177 * t44372;
29368   t44380 = t44169 * t728;
29369   t44405 = t43916 * t703;
29370   t44408 = t44112 * t728;
29371   t44411 = t12049 * t2954;
29372   t44428 = -0.6721679160e3 * t12438 * t43920 + 0.7681919040e3 * t26714 * t44405 - 0.4267732800e3 * t8874 * t44408 + 0.2560639680e3 * t8874 * t44411 - 0.46504274747987952e5 * t26202 * t44123 + 0.19148819013877392e5 * t8902 * t44101 - 0.8206636720233168e4 * t8902 * t44104 + 0.8588963800201680e4 * t26184 * t44372 - 0.3435585520080672e4 * t9242 * t44380 + 0.3819378822042240e4 * t26195 * t44113 - 0.1909689411021120e4 * t8921 * t44117;
29373   t44444 = t12216 * t797;
29374   t44445 = t44444 * t3031;
29375   t44446 = t44169 * t703;
29376   t44449 = t44181 * t728;
29377   t44452 = t12115 * t2954;
29378   t44462 = t14905 * t4180;
29379   t44463 = t44462 * t14909;
29380   t44472 = t8943 * t4073;
29381   t44473 = t3216 * t44472;
29382   t44475 = t12145 * t2954;
29383   t44476 = t3194 * t44475;
29384   t44478 = -0.7541149168793856e4 * t35618 * t44446 + 0.3085015569052032e4 * t12410 * t44449 - 0.1028338523017344e4 * t12410 * t44452 + 0.2243647686583296e4 * t44463 * t44181 * t703 - 0.934853202743040e3 * t15511 * t21234 * t14771 * t728 - 0.20010e2 * t43961 - 0.559438766206110e3 * t44473 + 0.226775617558758e3 * t44476 - t12162 - t12166 - t12183;
29385   t44486 = t8755 * t43896;
29386   t44488 = t8778 * t43896;
29387   t44490 = t8791 * t43896;
29388   t44492 = t8804 * t43896;
29389   t44494 = t8784 * t43896;
29390   t44497 = t13546 * t43896;
29391   t44499 = t8762 * t43896;
29392   t44501 = t13539 * t43896;
29393   t44503 = t8771 * t43896;
29394   t44505 = t8810 * t43896;
29395   t44507 = t13521 * t43896;
29396   t44509 = t8825 * t43896;
29397   t44511 = t13528 * t43896;
29398   t44513 = t13507 * t43896;
29399   t44515 = t8797 * t43896;
29400   t44517 = t13514 * t43896;
29401   t44519 = 0.1600399800e3 * t44497 - 0.48154677995461800000e3 * t44499 + 0.19476108390480000000e3 * t44501 - 0.2774026320e3 * t44503 - 0.70196245188242850000e4 * t44505 + 0.30369533022617400000e4 * t44507 + 0.3123925500500280e4 * t44509 - 0.1300228451559576e4 * t44511 + 0.62064905858186400000e3 * t44513 + 0.6095447586858000e4 * t44515 - 0.2786490325420800e4 * t44517;
29402   t44521 = t8819 * t43896;
29403   t44523 = t8749 * t43896;
29404   t44536 = t344 * t1122 * t14906;
29405   t44557 = -0.18676000000000000000e3 * t43996 + 0.4206839412343680e4 * t44536 * t14911 - 0.37342662000000000000e4 * t7076 * t14914 + 0.17070931200e4 * t8783 * t14917 - 0.91184852447035200000e5 * t12072 * t14920 + 0.16462180617053220000e5 * t12094 * t14923 + 0.7957039212588000e4 * t8796 * t14879 + 0.12074791410156800000e6 * t7060 * t14882 - 0.41797354881312000e5 * t8809 * t14885 - 0.16197084278729280000e6 * t7043 * t14888 + 0.52214284845903600e5 * t8824 * t14891;
29406   t44590 = -0.14282479486352000000e5 * t35928 * t14901 + 0.34447610924435520e5 * t8809 * t14956 - 0.6475806039834600e4 * t8824 * t14941 - 0.5334666000e3 * t8572 * t14944 + t12185 + t12189 + t12193 - t12197 - t12201 + t12207 + t12211;
29407   t44592 = t3208 * t44472;
29408   t44594 = t12068 * t2954;
29409   t44595 = t4449 * t44594;
29410   t44597 = t3143 * t44594;
29411   t44626 = -0.3867121057317768e4 * t8867 * t43917 + 0.2900340792988326e4 * t8867 * t43920 - 0.55172508443331840e5 * t26701 * t44405 + 0.25078412928787200e5 * t8880 * t44408 - 0.15047047757272320e5 * t8880 * t44411 + 0.83915814930916500e5 * t26592 * t44113 - 0.35963920684678500e5 * t8847 * t44117 + 0.17981960342339250e5 * t8847 * t44120 - t12226 + t12230 - t12263;
29412   t44630 = -t12348 - t12357 + t12360 - t12373 + t12378 + t12392 - t12394 + t12404 - t12408 - t12422 + t12424;
29413   t44632 = t3202 * t44475;
29414   t44641 = t4433 * t44475;
29415   t44643 = t12105 * t2954;
29416   t44644 = t3169 * t44643;
29417   t44647 = t4424 * t12405 * t2954;
29418   t44649 = t3180 * t43923;
29419   t44651 = t3222 * t44594;
29420   t44653 = t4457 * t44107;
29421   t44655 = t3150 * t44107;
29422   t44657 = t4465 * t44643;
29423   t44659 = t4441 * t44472;
29424   t44661 = 0.12121173267799050e5 * t8921 * t44408 - 0.7272703960679430e4 * t8921 * t44411 - 0.320079960e2 * t44641 + 0.41873633039532e2 * t44644 - 0.15580886712384e2 * t44647 + 0.693506580e2 * t44649 + 0.825838178685210e3 * t44651 - 0.319679294974920e3 * t44653 - 0.312392550050028e3 * t44655 + 0.118202586505416e3 * t44657 - 0.95484470551056e2 * t44659;
29425   t44668 = t14799 * t360 * t731;
29426   t44671 = t12469 * t2979;
29427   t44676 = t3233 * t12018;
29428   t44679 = t9376 * t4085;
29429   t44684 = t3233 * t12000;
29430   t44692 = t14793 * t360 * t731;
29431   t44708 = t360 * t44000 * t616 * t881 - t27446 * t44668 - 0.12e2 * t27452 * t44668 - 0.36e2 * t27459 * t44668 - 0.24e2 * t27471 * t44668 - 0.6e1 * t3232 * t44679 - 0.6e1 * t3232 * t44684 - 0.2e1 * t3232 * t44692 - 0.3e1 * t3240 * t44679 - 0.3e1 * t3240 * t44684 - t3240 * t44692 + 0.18e2 * t44671 * t9372 + 0.18e2 * t44671 * t9380 + 0.3e1 * t44671 * t9392 + 0.18e2 * t44676 * t9372 + 0.18e2 * t44676 * t9380 + 0.3e1 * t44676 * t9392;
29432   t44709 = my_piecewise3(t278, -0.12620518237031040000e4 * t44180 * t44181 * t1425 + 0.280455960822912e3 * t15511 * t12414 * t2954 + t44661 + 0.574713629618040e3 * t44632 + t44630 + t44626 + 0.348311290677600e3 * t44595 + 0.215297568277722e3 * t44597 - 0.870778226694000e3 * t44592 + t44590 + t44557 - 0.1937678114499498e4 * t44521 + 0.30674870715006000000e3 * t44523 + t44519 - 0.12472658965731690000e4 * t44494 + 0.64452017621962800000e3 * t44488 - 0.3448281777708240e4 * t44490 + 0.41957907465458250000e4 * t44492 + 0.1200299850e3 * t44486 + t44478 + t44428 + t44375 + t44350 - 0.10413085001667600000e5 * t44339 - 0.1022495690500200e4 * t44335 - 0.53346660000000000000e3 * t44337 + 0.92883010847360000000e4 * t44331 + 0.6458927048331660e4 * t44333 + 0.43340948385319200000e4 * t44325 - 0.20688301952728800000e4 * t44327 - 0.20318158622860000000e5 * t44329 + 0.23398748396080950000e5 * t44321 - 0.10123177674205800000e5 * t44323 + t44318 + t44303 + 0.2040980558028822e4 * t44294 - 0.907102470235032e3 * t44296 - 0.7272703960679430e4 * t44290 + 0.2797193831030550e4 * t44292 + 0.5747136296180400e4 * t44284 - 0.2298854518472160e4 * t44286 + 0.429680117479752e3 * t44280 + t44276 - 0.555069089128680e3 * t44235 + 0.204499138100040e3 * t44237 + 0.3444761092443552e4 * t44229 - 0.1291785409666332e4 * t44231 - 0.2089867744065600e4 * t44227 + t44225 + t44152 - 0.29214162585720e2 * t44108 + t44095 + 0.23345000000000000000e3 * t43994 - 0.12006e2 * t43990 - 0.60030e2 * t43992 - 0.12006e2 * t43986 - 0.72036e2 * t43981 + 0.108054e3 * t43984 + 0.60030000000000000000e1 * t43975 + 0.72036e2 * t43978 + 0.480240e3 * t43969 + 0.30015000000000000000e3 * t43971 + 0.4002e1 * t43965 - 0.74704000000000000000e3 * t43967 - 0.12006e2 * t43963 + 0.28014e2 * t43911 + t12462 - t12463 + t14858 - t12449 - t12451 + t12215 - t12222 + t12331 + t12319 - t12321 - t4131 - t14871 + t14873 + 0.7734242114635536e4 * t26683 * t43913 - 0.29090815842717720e5 * t26195 * t44405 + 0.82347801932106480000e5 * t7088 * t14894 - 0.25216551787822080e5 * t8760 * t14898 + 0.1288344570030252e4 * t9242 * t44363 + 0.9602398800e3 * t25990 * t43927 - 0.5761439280e3 * t9104 * t43904 + 0.5761439280e3 * t9104 * t43907 - 0.5012934703930440e4 * t8770 * t14947 + 0.38314241974536000e5 * t8783 * t14950 - 0.60605866338995250e5 * t8796 * t14953 + 0.25606396800000000000e4 * t11922 * t14926 + 0.17724304846039770000e5 * t12129 * t14929 - 0.11703259366767360000e6 * t12149 * t14932 + 0.16982962545542625000e6 * t12057 * t14935 - 0.20688301952728800000e5 * t7052 * t14938 - 0.9548447055105600e4 * t35968 * t44405 + 0.4774223527552800e4 * t12309 * t44408 - 0.2864534116531680e4 * t12309 * t44411 + 0.42671133728455176e5 * t36027 * t44372 - 0.17966793148823232e5 * t12362 * t44380 + 0.6737547430808712e4 * t12362 * t44363 - 0.13238689688606592e5 * t44445 * t44446 + 0.5673724152259968e4 * t15494 * t44449 - 0.1891241384086656e4 * t15494 * t44452 - 0.15683918040e4 * t35610 * t43913 + 0.8962238880e3 * t12438 * t43917 + 0.954844705510560e3 * t8921 * t44120 - 0.11934693679063680e5 * t8909 * t44380 + 0.58864608124514400e5 * t35961 * t44113 - 0.27168280672852800e5 * t12333 * t44117 + 0.13584140336426400e5 * t12333 * t44120 - 0.20898677440656000e5 * t26604 * t44123 + 0.9752716138972800e4 * t8854 * t44101 - 0.4179735488131200e4 * t8854 * t44104 + t12272 + t12453 - t12436 - t4203 + t12446 - t4170 + t12345 - t14865 + t12266 + t14861 - t14863 - t14867 + t14869 + t4146 + t4155 + t12432 - t4190 + t4177 - t12329 + t4196 - t4161 - t12269 - t4140 - t14856 - 0.11494272592360800e5 * t20723 * t43931 + 0.18181759901698575000e5 * t20802 * t44188 + 0.1600399800e3 * t20655 * t43942 + 0.19427418119503800000e4 * t20695 * t44155 - 0.53172914538119310000e4 * t44239 * t43931 + 0.35109778100302080e5 * t44242 * t44188 - 0.50948887636627875000e5 * t44245 * t44146 + 0.62064905858186400000e4 * t44248 * t44188 - 0.24704340579631944e5 * t44164 * t44161 + 0.7564965536346624e4 * t44168 * t44170 + 0.42847438459056000000e4 * t44173 * t44170 + 0.11202798600e4 * t44185 * t43931 - 0.5121279360e3 * t20723 * t44188 + 0.27355455734110560e5 * t44191 * t44155 - 0.7662848394907200e4 * t8874 * t43917 + 0.5747136296180400e4 * t8874 * t43920 + 0.1295161207966920e4 * t8909 * t44101 - 0.555069089128680e3 * t8909 * t44104 - 0.6889522184887104e4 * t8854 * t44117 + 0.3444761092443552e4 * t8854 * t44120 - 0.3330414534772080e4 * t26177 * t44123 - 0.1600399800e3 * t26212 * t43977 + 0.17223805462217760e5 * t26604 * t44113 + 0.12539206464393600e5 * t21214 * t44155 + 0.48591252836187840000e5 * t44158 * t44155 - 0.15664285453771080000e5 * t20695 * t44161 + t12304 - t12307, t44708);
29433   t44712 = t674 * (0.27e2 / 0.160e3 * t420 * t687 * t231 - 0.243e3 / 0.2560e4 * t1391 * t2929 * t24 * sigma[2] * t231 + 0.24057e5 / 0.2048000e7 * t14763 * t11915 - 0.177147e6 / 0.81920000e8 * t16789 * t686 / t3082 * t231 + 0.6e1 * t2994 * t4099 + 0.6e1 * t1075 * t12029 + 0.2e1 * t739 * t14815 + 0.2e1 * t270 * t44051) * t363 - t674 * t14818 * t885 + 0.6e1 * t2000 * t14821 * t742 - 0.3e1 * t674 * t12032 * t1162 - 0.3e1 * t674 * t4102 * t3243 + 0.6e1 * t2000 * t14824 * t742 - 0.3e1 * t674 * t2997 * t4239 - 0.3e1 * t674 * t1078 * t12490 - t674 * t742 * t14982 - t277 * t44709 + 0.1174e1 * t44709;
29434   t44721 = t43777 + 0.17034338633799234375e2 * t6257 * t1944 * t15030 + 0.83495812500000000000e1 * t1953 * t2488 * t15006 * t1986 - 0.18554625000000000000e1 * t8450 * t12529 - 0.16699162500000000000e2 * t8450 * t12533 + 0.37109250000000000000e1 * t34311 * t3256 + 0.92773125000000000000e0 * t1953 * t898 * t15018 * t1986 + 0.14611767187500000000e3 * t894 * t22014 * t4249 * t681 * t376 * t193 - 0.3e1 / 0.8e1 * t8 * t212 * (t43873 + t44712) * t377 + t43751 + t43765 - t648 * t43714 * t668 / 0.2e1;
29435   t44732 = 0.1e1 / t2021;
29436   t44760 = t43736 + t43745 - t43759 - t43771 + 0.22712451511732312500e2 * t19710 * t34572 * t21902 - 0.13627470907039387500e3 * t3261 * t1165 * t12539 * t12543 + 0.17034338633799234375e3 * t3261 * t34572 * t12543 - 0.92427972442890327423e2 * t2500 * t366 * t44732 * t237 * t21949 - 0.75578230455453280704e0 * t2500 * t7288 * t15012 * t214 * t376 - 0.87205650525523016199e-1 * t2500 * t21938 * t15014 - 0.67956985205760591732e2 * t2500 * t15023 * t214 * t2504 - 0.33978492602880295866e2 * t2500 * t888 * t15012 * t368 * t2504 + 0.33398325000000000000e2 * t3261 * t4242 * t2486 * t19 * t3264;
29437   t44806 = -0.90609313607680788976e2 * t2500 * t4242 * t3274 * t214 * t2504 - 0.25048743750000000000e3 * t3261 * t27606 * t12510 + 0.69764520420418412959e0 * t2500 * t27611 * t12515 + 0.90609313607680788976e2 * t2500 * t14996 * t214 * t2504 + 0.33978492602880295866e2 * t2500 * t3246 * t4261 * t368 * t2504 + 0.31310929687500000000e2 * t3261 * t21928 * t15002 - t43720 + 0.69579843750000000000e0 * t2481 * t15020 - 0.45304656803840394488e2 * t6127 * t43766 * t6284 + 0.62621859375000000000e1 * t2481 * t15008 - 0.11627420070069735493e0 * t6127 * t43752 * t43753 * t667 + 0.41747906250000000000e2 * t1953 * t43737 * t43738 * t667 + 0.34068677267598468750e2 * t894 * t4261 * t2486 * t376 * t193 * t899;
29438   t44828 = t634 * t212 * t14985;
29439   t44835 = 0.16699162500000000000e2 * t3252 * t12558 + 0.18554625000000000000e1 * t3252 * t12551 - 0.37109250000000000000e1 * t12565 * t3270 - 0.92773125000000000000e0 * t894 * t898 * t4261 * t899 * t376 - 0.83495812500000000000e1 * t894 * t2488 * t12539 * t676 * t376 - 0.13915968750000000000e1 * t9472 * t4257 + 0.45304656803840394488e2 * t25160 * t12561 - 0.24739500000000000000e1 * t44828 * t902 + 0.27831937500000000000e1 * t34484 * t1173 - 0.12524371875000000000e2 * t9472 * t4252 + t43724 - t43728 - t43732;
29440   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29441     v4rhosigma3[19] = -t14989 + t14991 - t14993 - t14995 + t15000 + t15005 + t15010 - t15017 + t15022 - t15027 + t15033 + t10 * (t44721 + t44760 + t44806 + t44835);
29442 
29443   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29444     v4rhosigma2lapl[0] = 0.0e0;
29445 
29446   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29447     v4rhosigma2lapl[1] = 0.0e0;
29448 
29449   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29450     v4rhosigma2lapl[2] = 0.0e0;
29451 
29452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29453     v4rhosigma2lapl[3] = 0.0e0;
29454 
29455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29456     v4rhosigma2lapl[4] = 0.0e0;
29457 
29458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29459     v4rhosigma2lapl[5] = 0.0e0;
29460 
29461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29462     v4rhosigma2lapl[6] = 0.0e0;
29463 
29464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29465     v4rhosigma2lapl[7] = 0.0e0;
29466 
29467   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29468     v4rhosigma2lapl[8] = 0.0e0;
29469 
29470   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29471     v4rhosigma2lapl[9] = 0.0e0;
29472 
29473   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29474     v4rhosigma2lapl[10] = 0.0e0;
29475 
29476   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29477     v4rhosigma2lapl[11] = 0.0e0;
29478 
29479   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29480     v4rhosigma2lapl[12] = 0.0e0;
29481 
29482   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29483     v4rhosigma2lapl[13] = 0.0e0;
29484 
29485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29486     v4rhosigma2lapl[14] = 0.0e0;
29487 
29488   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29489     v4rhosigma2lapl[15] = 0.0e0;
29490 
29491   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29492     v4rhosigma2lapl[16] = 0.0e0;
29493 
29494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29495     v4rhosigma2lapl[17] = 0.0e0;
29496 
29497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29498     v4rhosigma2lapl[18] = 0.0e0;
29499 
29500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29501     v4rhosigma2lapl[19] = 0.0e0;
29502 
29503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29504     v4rhosigma2lapl[20] = 0.0e0;
29505 
29506   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29507     v4rhosigma2lapl[21] = 0.0e0;
29508 
29509   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29510     v4rhosigma2lapl[22] = 0.0e0;
29511 
29512   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
29513     v4rhosigma2lapl[23] = 0.0e0;
29514 
29515   t44840 = t10336 * t15299 / 0.2e1;
29516   t44877 = 0.15101552267946798163e2 * t1874 * t15310;
29517   t44878 = -t44840 - 0.55663875000000000000e1 * t9525 * t11784 + 0.24739500000000000000e1 * t38151 * t2859 - 0.61848750000000000000e0 * t9525 * t11789 - 0.45424903023464625000e2 * t13075 * t1244 * t11792 * t11796 + 0.22265550000000000000e2 * t13075 * t4375 * t1860 * t19 * t2869 - 0.60406209071787192651e2 * t10287 * t4375 * t2879 * t26 * t1878 - 0.83495812500000000000e2 * t13075 * t27711 * t11768 + 0.23254840140139470986e0 * t10287 * t27716 * t11773 + 0.30203104535893596326e2 * t10287 * t15308 * t26 * t1878 + 0.11326164200960098622e2 * t10287 * t3541 * t4039 * t195 * t1878 + t44877;
29518   t44891 = t4300 * t1027;
29519   t44913 = t1181 * t3844 * t1425;
29520   t44914 = t22419 * t44913;
29521   t44917 = t1181 * t3851 * t1425;
29522   t44918 = t7614 * t44917;
29523   t44920 = t32354 * t44913;
29524   t44922 = t7603 * t44917;
29525   t44924 = t18367 * t3928;
29526   t44925 = t44924 * t44913;
29527   t44927 = t3456 * t32369;
29528   t44928 = t11588 * t44927;
29529   t44930 = t3467 * t32349;
29530   t44931 = t4342 * t44930;
29531   t44933 = t3467 * t32355;
29532   t44936 = t3504 * t32361;
29533   t44939 = t3467 * t32365;
29534   t44942 = -0.12450666666666666667e3 * t42854 - 0.8004e1 * t42856 - 0.8004e1 * t42859 + 0.18676e2 * t42873 - 0.10672e2 * t42886 - 0.90045000000000000000e2 * t44914 + 0.60030000000000000000e1 * t44918 + 0.22411200000000000000e3 * t44920 - 0.23345000000000000000e2 * t44922 - 0.14407200000000000000e3 * t44925 - 0.1811516004857880e4 * t44928 + 0.745918354941480e3 * t44931 + 0.26853060777893280e5 * t22905 * t44933 - 0.11934693679063680e5 * t7972 * t44936 + 0.2983673419765920e4 * t7972 * t44939;
29535   t44943 = t3375 * t32369;
29536   t44944 = t7931 * t44943;
29537   t44946 = t3456 * t32349;
29538   t44947 = t2799 * t44946;
29539   t44949 = t3456 * t32355;
29540   t44952 = t3467 * t32361;
29541   t44955 = t3456 * t32365;
29542   t44958 = t3504 * t32365;
29543   t44961 = t3309 * t32369;
29544   t44962 = t7940 * t44961;
29545   t44964 = t3326 * t32349;
29546   t44965 = t2742 * t44964;
29547   t44967 = t3326 * t32355;
29548   t44970 = t7922 * t44943;
29549   t44972 = t2791 * t44946;
29550   t44982 = 0.1148253697481184e4 * t44944 - 0.430595136555444e3 * t44947 - 0.46504274747987952e5 * t23141 * t44949 + 0.19148819013877392e5 * t7965 * t44952 - 0.5471091146822112e4 * t7965 * t44955 - 0.1260827589391104e4 * t15188 * t44958 - 0.533466600e2 * t44962 + 0.266733300e2 * t44965 + 0.9602398800e3 * t23150 * t44967 + 0.4129190893426050e4 * t44970 - 0.1651676357370420e4 * t44972 - 0.81837899513579520e5 * t33486 * t44949 + 0.35804081037191040e5 * t11588 * t44952 - 0.10229737439197440e5 * t11588 * t44955 + 0.8588963800201680e4 * t22860 * t44933;
29551   t44988 = t3467 * t32369;
29552   t44989 = t7978 * t44988;
29553   t44991 = t3363 * t32361;
29554   t44994 = t3326 * t32365;
29555   t44997 = t3326 * t32369;
29556   t44998 = t7996 * t44997;
29557   t45000 = t3363 * t32349;
29558   t45001 = t2748 * t45000;
29559   t45003 = t3363 * t32355;
29560   t45006 = t3369 * t32361;
29561   t45009 = t3363 * t32365;
29562   t45012 = t7965 * t44927;
29563   t45014 = t2805 * t44930;
29564   t45022 = -0.3435585520080672e4 * t7978 * t44936 + 0.858896380020168e3 * t7978 * t44939 + 0.293115431276724e3 * t44989 - 0.5761439280e3 * t7996 * t44991 + 0.3840959520e3 * t7996 * t44994 + 0.1387013160e3 * t44998 - 0.693506580e2 * t45001 - 0.15683918040e4 * t32749 * t45003 + 0.8962238880e3 * t11693 * t45006 - 0.4481119440e3 * t11693 * t45009 - 0.1874355300300168e4 * t45012 + 0.728915950116732e3 * t45014 + 0.42671133728455176e5 * t33048 * t44933 - 0.17966793148823232e5 * t11645 * t44936 + 0.4491698287205808e4 * t11645 * t44939;
29565   t45023 = t11645 * t44988;
29566   t45025 = t3504 * t32349;
29567   t45026 = t4349 * t45025;
29568   t45028 = t3504 * t32355;
29569   t45031 = t10191 * t32361;
29570   t45035 = t11559 * t3504 * t32369;
29571   t45038 = t4316 * t10191 * t32349;
29572   t45049 = t7952 * t44997;
29573   t45051 = t2756 * t45000;
29574   t45059 = t3363 * t32369;
29575   t45060 = t7960 * t45059;
29576   t45062 = t11693 * t45059;
29577   t45064 = 0.788017243369440e3 * t45023 - 0.315206897347776e3 * t45026 - 0.13238689688606592e5 * t43390 * t45028 + 0.5673724152259968e4 * t15188 * t45031 - 0.119453464794944e3 * t45035 + 0.46742660137152e2 * t45038 + 0.2243647686583296e4 * t43322 * t10191 * t32355 - 0.934853202743040e3 * t15216 * t28092 * t32361 + 0.186970640548608e3 * t15216 * t10191 * t32365 - 0.334195646928696e3 * t45049 + 0.143226705826584e3 * t45051 + 0.7734242114635536e4 * t23136 * t45003 - 0.3867121057317768e4 * t7960 * t45006 + 0.1933560528658884e4 * t7960 * t45009 + 0.680326852676274e3 * t45060 - 0.853546560e2 * t45062;
29578   t45067 = t3369 * t32349;
29579   t45068 = t4356 * t45067;
29580   t45070 = t3369 * t32355;
29581   t45073 = t3375 * t32361;
29582   t45076 = t3369 * t32365;
29583   t45079 = t7972 * t44927;
29584   t45081 = t2813 * t44930;
29585   t45083 = 0.426773280e2 * t45068 + 0.7681919040e3 * t23161 * t45070 - 0.4267732800e3 * t7983 * t45073 + 0.1707093120e3 * t7983 * t45076 - 0.185023029709560e3 * t45079 + 0.68166379366680e2 * t45081 + t15136 - t15142 + t15147 - t15151 + t15156 - t15162 + t15166 - t15171 + t15176;
29586   t45090 = -t15180 + t15185 - t15193 + t15197 - t15201 - t15205 + t15209 - t15215 - t15221 - t15226 + t15228 - t15233 + 0.3831424197453600e4 * t7983 * t45009 - 0.3330414534772080e4 * t22905 * t44949 + 0.17241408888541200e5 * t23161 * t45003;
29587   t45096 = -0.7662848394907200e4 * t7983 * t45006 + t11300 + t11308 - t11315 + t11327 - t11333 + t11341 + t11350 + t11358 - t11375 - t11381 - t11392 - t11398 - 0.630413794695552e3 * t43058 - 0.370046059419120e3 * t43062;
29588   t45108 = t9894 * t3851;
29589   t45109 = t4342 * t45108;
29590   t45111 = t9900 * t3844;
29591   t45114 = t9888 * t3851;
29592   t45115 = t2799 * t45114;
29593   t45117 = 0.136332758733360e3 * t43065 + 0.586230862553448e3 * t43068 - 0.223326042877504e3 * t43070 - 0.238906929589888e3 * t43078 + 0.93485320274304e2 * t43081 - 0.1066933200e3 * t43083 + 0.533466600e2 * t43085 - 0.1532569678981440e4 * t43088 - 0.6966225813552000e4 * t43091 + 0.2902594088980000e4 * t43097 + 0.1576034486738880e4 * t43099 + t11402 - t11404 - 0.106559764991640e3 * t45109 + 0.1491836709882960e4 * t7972 * t45111 + 0.71765856092574e2 * t45115;
29594   t45121 = t9894 * t3844;
29595   t45124 = t9888 * t3844;
29596   t45127 = t9589 * t3844;
29597   t45130 = t9596 * t3844;
29598   t45133 = t9874 * t3844;
29599   t45138 = t9880 * t3844;
29600   t45141 = t9880 * t3851;
29601   t45142 = t2777 * t45141;
29602   t45146 = t4334 * t45114;
29603   t45150 = t2805 * t45108;
29604   t45154 = t9900 * t3851;
29605   t45155 = t4349 * t45154;
29606   t45157 = t10102 * t3844;
29607   t45160 = -0.2735545573411056e4 * t7965 * t45121 + 0.1148253697481184e4 * t7931 * t45124 - 0.533466600e2 * t7940 * t45127 - 0.334195646928696e3 * t7952 * t45130 + 0.1915712098726800e4 * t7983 * t45133 - 0.185023029709560e3 * t7972 * t45121 - 0.2424234653559810e4 * t7948 * t45138 - 0.290259408898000e3 * t45142 + 0.4528046778808800e4 * t11659 * t45124 + 0.116103763559200e3 * t45146 - 0.1393245162710400e4 * t7931 * t45121 - 0.104130850016676e3 * t45150 + 0.2245849143602904e4 * t11645 * t45111 + 0.39400862168472e2 * t45155 - 0.630413794695552e3 * t15188 * t45157;
29608   t45161 = t9589 * t3851;
29609   t45162 = t2742 * t45161;
29610   t45166 = t9596 * t3851;
29611   t45167 = t2748 * t45166;
29612   t45171 = t9874 * t3851;
29613   t45172 = t4356 * t45171;
29614   t45176 = t2813 * t45108;
29615   t45180 = t2819 * t45154;
29616   t45184 = t2791 * t45114;
29617   t45188 = -0.133366650e2 * t45162 + 0.1920479760e3 * t7996 * t45130 + 0.231168860e2 * t45167 - 0.2240559720e3 * t11693 * t45133 - 0.106693320e2 * t45172 + 0.853546560e2 * t7983 * t45138 - 0.9738054195240e1 * t45176 + 0.429448190010084e3 * t7978 * t45111 + 0.13957877679844e2 * t45180 - 0.342779507672448e3 * t11559 * t45157 + 0.275279392895070e3 * t45184 - 0.5114868719598720e4 * t11588 * t45121 - t11410 + t11411 + t11418;
29618   t45190 = t1546 * t15169;
29619   t45194 = -t11419 - t11423 + t11427 + t11431 - t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456 - t11475 + t11483 - 0.33743925580686000000e4 * t45190 + 0.52214284845903600e5 * t11292 * t15172;
29620   t45195 = t2633 * t15154;
29621   t45199 = t2785 * t45141;
29622   t45216 = t4316 * t10102 * t3851;
29623   t45221 = t2756 * t45166;
29624   t45225 = t2762 * t45171;
29625   t45229 = 0.2152975682777220e4 * t45195 - 0.91184852447035200000e5 * t11377 * t15157 - 0.186479588735370e3 * t45199 + 0.5993986780779750e4 * t7922 * t45124 - 0.60605866338995250e5 * t11342 * t15137 + 0.34447610924435520e5 * t11359 * t15143 - 0.5334666000e3 * t11170 * t15063 - 0.5012934703930440e4 * t11328 * t15070 + 0.38314241974536000e5 * t11386 * t15077 - 0.6475806039834600e4 * t11292 * t15157 - 0.5193628904128e1 * t45216 + 0.93485320274304e2 * t15216 * t28238 * t3844 - 0.47742235275528e2 * t45221 + 0.966780264329442e3 * t7960 * t45133 + 0.75591872519586e2 * t45225 - 0.954844705510560e3 * t11613 * t45138;
29626   t45232 = t4326 * t45141;
29627   t45236 = t2770 * t45171;
29628   t45242 = t7899 * t15183;
29629   t45244 = t7776 * t15081;
29630   t45248 = t1522 * t15134;
29631   t45250 = t7855 * t15169;
29632   t45254 = t1555 * t15183;
29633   t45258 = t2570 * t15074;
29634   t45262 = -0.31828156850352e2 * t45232 + 0.318281568503520e3 * t7948 * t45124 + 0.191571209872680e3 * t45236 - 0.5015682585757440e4 * t7990 * t45138 + 0.16462180617053220000e5 * t11302 * t15172 + 0.53505197772735333333e3 * t45242 + 0.30822514666666666667e3 * t45244 - 0.37342662000000000000e4 * t5505 * t15077 - 0.17782220000000000000e3 * t45248 - 0.34710283338892000000e4 * t45250 + 0.82347801932106480000e5 * t5627 * t15172 + 0.14446982795106400000e4 * t45254 - 0.25216551787822080e5 * t11309 * t15189 - 0.1333666500e3 * t45258 + 0.25606396800000000000e4 * t11180 * t15070;
29635   t45263 = t7820 * t15154;
29636   t45271 = t1530 * t15140;
29637   t45275 = t2617 * t15134;
29638   t45279 = t7766 * t15140;
29639   t45285 = t12798 * t15213;
29640   t45287 = t43592 * t14562;
29641   t45290 = t2610 * t15081;
29642   t45294 = 0.77995827986936500000e4 * t45263 - 0.16197084278729280000e6 * t5648 * t15157 + 0.16982962545542625000e6 * t11352 * t15143 - 0.20688301952728800000e5 * t5514 * t15137 - 0.68961006509096000000e3 * t45271 + 0.7957039212588000e4 * t11342 * t15143 + 0.3831424197453600e4 * t45275 - 0.11703259366767360000e6 * t11394 * t15137 - 0.67727195409533333333e4 * t45279 + 0.12074791410156800000e6 * t5639 * t15143 - 0.14282479486352000000e5 * t32164 * t15189 - 0.21640120433866666667e3 * t45285 + 0.4206839412343680e4 * t45287 * t15217 - 0.716133529132920e3 * t45290 + 0.17724304846039770000e5 * t11336 * t15077;
29643   t45296 = t7808 * t15134;
29644   t45300 = t2641 * t15169;
29645   t45302 = t1538 * t15154;
29646   t45306 = t2625 * t15140;
29647   t45315 = 0.13858509961924100000e4 * t45296 + 0.17070931200e4 * t11386 * t15137 - 0.340831896833400e3 * t45300 + 0.30961003615786666667e4 * t45302 - 0.41797354881312000e5 * t11359 * t15157 - 0.4661989718384250e4 * t45306 - t11487 + t11489 + 0.2774026320e3 * t43104 - 0.1387013160e3 * t43106 + 0.3250905379657600e4 * t43118 - 0.1393245162710400e4 * t43121 - 0.4848469307119620e4 * t43123 + 0.1864795887353700e4 * t43125 - 0.40020e2 * t42908;
29648   t45332 = 0.15563333333333333333e3 * t42910 - 0.1707093120e3 * t43136 + 0.853546560e2 * t43138 - 0.668391293857392e3 * t43140 + 0.318281568503520e3 * t43142 + 0.3831424197453600e4 * t43144 + 0.286453411653168e3 * t43162 + 0.1360653705352548e4 * t43164 - 0.604734980156688e3 * t43166 - 0.700219450707744e3 * t43171 + 0.20449913810004000000e3 * t43173 - 0.32103118663641200000e3 * t43175 + 0.12984072260320000000e3 * t43177 + 0.800199900e2 * t43180 - 0.1849350880e3 * t43182 - 0.46797496792161900000e4 * t43184;
29649   t45349 = 0.20246355348411600000e4 * t43186 - 0.1291785409666332e4 * t43188 + 0.2082617000333520e4 * t43190 - 0.1857660216947200e4 * t43192 + 0.27971938310305500000e4 * t43194 + 0.1066933200e3 * t43196 + 0.42968011747975200000e3 * t43198 - 0.83151059771544600000e3 * t43200 + 0.41376603905457600000e3 * t43204 - 0.2298854518472160e4 * t43206 + 0.4063631724572000e4 * t43208 - 0.866818967706384e3 * t43210 - t3891 - t3900 + t3906;
29650   t45353 = -t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.37352000000000000000e2 * t42914 + 0.12006000000000000000e2 * t42916 - 0.46690000000000000000e2 * t42918 + t11541;
29651   t45365 = t3375 * t32355;
29652   t45368 = t3456 * t32361;
29653   t45371 = t3375 * t32365;
29654   t45374 = t3309 * t32355;
29655   t45377 = t3326 * t32361;
29656   t45380 = t3309 * t32365;
29657   t45385 = -t15249 + t15250 - t15251 + 0.1295161207966920e4 * t7972 * t44952 - 0.370046059419120e3 * t7972 * t44955 - 0.29090815842717720e5 * t22899 * t45070 + 0.12121173267799050e5 * t7948 * t45073 - 0.4848469307119620e4 * t7948 * t45076 + 0.17223805462217760e5 * t22884 * t45365 - 0.6889522184887104e4 * t7931 * t45368 + 0.2296507394962368e4 * t7931 * t45371 - 0.1600399800e3 * t22889 * t45374 + 0.1066933200e3 * t7940 * t45377 - 0.1066933200e3 * t7940 * t45380 - 0.2005173881572176e4 * t23156 * t44967;
29658   t45394 = t11659 * t44943;
29659   t45396 = t4334 * t44946;
29660   t45404 = t3369 * t32369;
29661   t45405 = t7948 * t45404;
29662   t45407 = t3375 * t32349;
29663   t45408 = t2785 * t45407;
29664   t45416 = t2762 * t45067;
29665   t45420 = 0.1002586940786088e4 * t7952 * t44991 - 0.668391293857392e3 * t7952 * t44994 - 0.27168280672852800e5 * t11659 * t45368 + 0.9056093557617600e4 * t11659 * t45371 + 0.1625452689828800e4 * t45394 - 0.696622581355200e3 * t45396 - 0.20898677440656000e5 * t22884 * t44949 + 0.9752716138972800e4 * t7931 * t44952 - 0.2786490325420800e4 * t7931 * t44955 - 0.2424234653559810e4 * t45405 + 0.932397943676850e3 * t45408 + 0.83915814930916500e5 * t22877 * t45365 - 0.35963920684678500e5 * t7922 * t45368 + 0.11987973561559500e5 * t7922 * t45371 - 0.302367490078344e3 * t45416 - 0.9548447055105600e4 * t32721 * t45070;
29666   t45423 = t11553 - t11557 - t11572 + t11574 + t11583 - t11586 + t11599 - t11601 + t11608 - t11611 + t11621 - t11623 - t11633 - t11640 + t11643;
29667   t45436 = t7952 * t45133;
29668   t45438 = -t11655 + t11657 - t11670 + t11672 + t11688 - t11691 - t11701 + t11703 + 0.18181759901698575000e5 * t22176 * t44913 - 0.10334283277330656e5 * t22281 * t44913 + 0.1600399800e3 * t22501 * t44913 + 0.15038804111791320000e4 * t22472 * t44913 - 0.11494272592360800e5 * t22558 * t44913 + 0.19427418119503800000e4 * t22522 * t44913 + 0.32016e2 * t45436;
29669   t45440 = t4281 * t45166;
29670   t45442 = t15617 * t77;
29671   t45443 = t45442 * t12635;
29672   t45446 = t15060 * t77 * t3310;
29673   t45448 = t7592 * t45127;
29674   t45450 = t12628 * t15067;
29675   t45453 = t2544 * t9608 * t3851;
29676   t45455 = t11212 * t45130;
29677   t45457 = t23808 * t15063;
29678   t45466 = -0.5336e1 * t45440 - 0.8004e1 * t45443 + 0.4002e1 * t45446 + 0.36018e2 * t45448 - 0.4002e1 * t45450 - 0.4002e1 * t45453 - 0.64032e2 * t45455 + 0.30015000000000000000e3 * t45457 + 0.1457831900233464e4 * t43274 + 0.8258381786852100e4 * t43279 - 0.3303352714740840e4 * t43281 - 0.3623032009715760e4 * t43283 + 0.1491836709882960e4 * t43285 + 0.2296507394962368e4 * t43291 - 0.861190273110888e3 * t43293;
29679   t45468 = t1513 * t15081;
29680   t45470 = t1470 * t15067;
29681   t45472 = t5657 * t15070;
29682   t45474 = t7568 * t15074;
29683   t45476 = t11328 * t15077;
29684   t45478 = t2565 * t45161;
29685   t45480 = t12619 * t44917;
29686   t45490 = -0.3748710600600336e4 * t43295 - 0.62253333333333333334e2 * t45468 - 0.20010e2 * t45470 - 0.74704000000000000000e3 * t45472 + 0.77816666666666666667e2 * t45474 + 0.480240e3 * t45476 + 0.9338e1 * t45478 + 0.18676000000000000000e2 * t45480 - 0.1432267058265840e4 * t43397 + 0.27717019923848200000e4 * t43399 - 0.13792201301819200000e4 * t43401 + 0.7662848394907200e4 * t43403 + 0.550558785790140e3 * t43407 - 0.213119529983280e3 * t43410 + 0.143531712185148e3 * t43418 - 0.208261700033352e3 * t43420;
29687   t45504 = t23898 * t45374;
29688   t45506 = t7592 * t45377;
29689   t45508 = t7592 * t45380;
29690   t45511 = t2544 * t3309 * t32349;
29691   t45513 = t32232 * t44967;
29692   t45515 = -0.13545439081906666667e5 * t43428 + 0.28893965590212800000e4 * t43432 - 0.681663793666800e3 * t43434 + 0.10701039554547066667e4 * t43436 - 0.43280240867733333333e3 * t43438 - 0.2667333000e3 * t43440 + 0.61645029333333333333e3 * t43442 + 0.61922007231573333333e4 * t43444 - 0.9323979436768500e4 * t43446 - 0.35564440000000000000e3 * t43448 + 0.72036e2 * t45504 - 0.72036e2 * t45506 + 0.72036e2 * t45508 + 0.4002e1 * t45511 - 0.256128e3 * t45513;
29693   t45516 = t11212 * t44991;
29694   t45518 = t11212 * t44994;
29695   t45520 = t7592 * t44961;
29696   t45522 = t2565 * t44964;
29697   t45524 = t23156 * t45003;
29698   t45526 = t7952 * t45006;
29699   t45528 = t7952 * t45009;
29700   t45532 = t442 * t3844 * t444 * t3306;
29701   t45534 = t11212 * t44997;
29702   t45536 = t4281 * t45000;
29703   t45543 = 0.192096e3 * t45516 - 0.128064e3 * t45518 + 0.28014e2 * t45520 - 0.18676e2 * t45522 + 0.192096e3 * t45524 - 0.128064e3 * t45526 + 0.64032e2 * t45528 + 0.60030000000000000000e1 * t45532 - 0.26680e2 * t45534 + 0.16008e2 * t45536 - 0.53360e2 * t42935 + 0.32016e2 * t42938 + 0.8004e1 * t42945 + 0.56028e2 * t42952 - 0.37352e2 * t42955;
29704   t45560 = -0.213386640e2 * t43486 - 0.95484470551056e2 * t43488 + 0.151183745039172e3 * t43490 + 0.232207527118400e3 * t43527 - 0.372959177470740e3 * t43530 + 0.15599165597387300000e5 * t43532 - 0.67487851161372000000e4 * t43534 + 0.4305951365554440e4 * t43536 - 0.69420566677784000000e4 * t43539 - 0.63656313700704e2 * t43541 + 0.383142419745360e3 * t43543 - 0.580518817796000e3 * t43545 + 0.78801724336944e2 * t43548 - 0.19476108390480e2 * t43550 + 0.27915755359688e2 * t43552;
29705   t45564 = t18226 * t3943;
29706   t45567 = t7671 * t44917;
29707   t45571 = t7678 * t44917;
29708   t45575 = t12739 * t44917;
29709   t45578 = t43253 * t43255 * t5119;
29710   t45581 = t7699 * t44917;
29711   t45585 = t7705 * t44917;
29712   t45589 = t12996 * t44917;
29713   t45591 = t18362 * t3959;
29714   t45594 = -0.10387257808256e2 * t43561 - 0.266733300e2 * t43566 + 0.462337720e2 * t43568 - 0.5121279360e3 * t45564 * t44913 + 0.10224956905002000000e3 * t45567 - 0.49386541851159660000e4 * t22488 * t44913 - 0.16051559331820600000e3 * t45571 + 0.42847438459056000000e4 * t32568 * t44913 + 0.64920361301600000000e2 * t45575 - 0.12620518237031040000e4 * t45578 * t44913 + 0.21484005873987600000e3 * t45581 - 0.53172914538119310000e4 * t22484 * t44913 - 0.41575529885772300000e3 * t45585 + 0.62064905858186400000e4 * t32445 * t44913 + 0.20688301952728800000e3 * t45589 - 0.23871117637764000000e4 * t45591 * t44913;
29715   t45597 = t7712 * t44917;
29716   t45605 = t11613 * t45404;
29717   t45607 = t4326 * t45407;
29718   t45615 = t7983 * t45059;
29719   t45617 = t2770 * t45067;
29720   t45625 = t7990 * t45404;
29721   t45627 = -0.1149427259236080e4 * t45597 + 0.35109778100302080e5 * t22571 * t44913 + 0.4774223527552800e4 * t11613 * t45073 - 0.1909689411021120e4 * t11613 * t45076 - 0.350109725353872e3 * t45605 + 0.159140784251760e3 * t45607 + 0.3819378822042240e4 * t22899 * t45365 - 0.1909689411021120e4 * t7948 * t45368 + 0.636563137007040e3 * t7948 * t45371 + 0.1915712098726800e4 * t45615 - 0.766284839490720e3 * t45617 - 0.55172508443331840e5 * t23128 * t45070 + 0.25078412928787200e5 * t7990 * t45073 - 0.10031365171514880e5 * t7990 * t45076 - 0.3483112906776000e4 * t45625;
29722   t45628 = t2777 * t45407;
29723   t45632 = t2819 * t45025;
29724   t45640 = 0.1451297044490000e4 * t45628 + 0.58864608124514400e5 * t32695 * t45365 - 0.111663021438752e3 * t45632 - 0.7541149168793856e4 * t33041 * t45028 + 0.3085015569052032e4 * t11559 * t45031 - 0.685559015344896e3 * t11559 * t44958 + t15252 - t15253 - t15254 - t15255 + t15256 - t15257 + t15258 - t15260 + t15261 - t15262;
29725   t45643 = t42 * t3844 * t1182;
29726   t45645 = t15060 * t3315;
29727   t45647 = t8291 * t44917;
29728   t45651 = t12759 * t44917;
29729   t45653 = t18379 * t3894;
29730   t45656 = t8298 * t44917;
29731   t45660 = t8304 * t44917;
29732   t45664 = t12766 * t44917;
29733   t45666 = t43243 * t3913;
29734   t45669 = t7686 * t44917;
29735   t45671 = t15263 - t15264 - 0.20010e2 * t45643 - 0.4002e1 * t45645 - 0.23398748396080950000e4 * t45647 + 0.48591252836187840000e5 * t32540 * t44913 + 0.10123177674205800000e4 * t45651 - 0.15664285453771080000e5 * t45653 * t44913 - 0.645892704833166e3 * t45656 + 0.27355455734110560e5 * t22182 * t44913 + 0.1041308500166760e4 * t45660 - 0.24704340579631944e5 * t32521 * t44913 - 0.433409483853192e3 * t45664 + 0.7564965536346624e4 * t45666 * t44913 + 0.400099950e2 * t45669;
29736   t45674 = t7692 * t44917;
29737   t45678 = t12773 * t44917;
29738   t45680 = t7719 * t44917;
29739   t45684 = t12751 * t44917;
29740   t45686 = t18301 * t3997;
29741   t45689 = t8285 * t44917;
29742   t45693 = -0.7681919040e3 * t22516 * t44913 - 0.924675440e2 * t45674 + 0.11202798600e4 * t32420 * t44913 + 0.533466600e2 * t45678 + 0.2031815862286000e4 * t45680 - 0.36224374230470400e5 * t32459 * t44913 - 0.928830108473600e3 * t45684 + 0.12539206464393600e5 * t45686 * t44913 + 0.13985969155152750000e4 * t45689 - 0.50948887636627875000e5 * t22275 * t44913 + t15265 - t15266 + t15267 - t15268 - t15269 + t15270;
29743   t45700 = t15084 * t184 * t466;
29744   t45703 = t10253 * t3867;
29745   t45706 = t3529 * t11244;
29746   t45709 = t10253 * t3863;
29747   t45714 = t13044 * t2582;
29748   t45717 = t37724 * t933;
29749   t45728 = -0.2e1 * t2835 * t45700 - 0.2e1 * t2835 * t45706 - 0.2e1 * t2835 * t45709 - 0.4e1 * t2835 * t45714 - 0.4e1 * t2835 * t45717 - t2843 * t45700 - t2843 * t45706 - t2843 * t45709 - 0.2e1 * t2843 * t45714 - 0.2e1 * t2843 * t45717 + 0.6e1 * t45703 * t8315 + 0.6e1 * t45703 * t8323 + t45703 * t8335;
29750   t45739 = -0.560e3 / 0.3e1 * t42854 - 0.12e2 * t42856 - 0.12e2 * t42859 + 0.28e2 * t42873 - 0.16e2 * t42886 - 0.135e3 * t44914 + 0.9e1 * t44918 + 0.336e3 * t44920 - 0.35e2 * t44922 - 0.216e3 * t44925 - t15069 + t15076 - t15083 + t11178 - t11188 - t11206 + t11209;
29751   t45748 = t11225 - t11229 - t11231 + t11235 - 0.60e2 * t42908 + 0.700e3 / 0.3e1 * t42910 - t3854 + t3862 + 0.56e2 * t42914 + 0.18e2 * t42916 - 0.70e2 * t42918 - t15066 + t15073 - t15080 + 0.48e2 * t45436 - 0.8e1 * t45440 - 0.12e2 * t45443;
29752   t45767 = 0.6e1 * t45446 + 0.54e2 * t45448 - 0.6e1 * t45450 - 0.6e1 * t45453 - 0.96e2 * t45455 + 0.450e3 * t45457 - 0.280e3 / 0.3e1 * t45468 - 0.30e2 * t45470 - 0.1120e4 * t45472 + 0.350e3 / 0.3e1 * t45474 + 0.720e3 * t45476 + 0.14e2 * t45478 + 0.28e2 * t45480 + 0.108e3 * t45504 - 0.108e3 * t45506 + 0.108e3 * t45508 + 0.6e1 * t45511;
29753   t45786 = -0.384e3 * t45513 + 0.288e3 * t45516 - 0.192e3 * t45518 + 0.42e2 * t45520 - 0.28e2 * t45522 + 0.288e3 * t45524 - 0.192e3 * t45526 + 0.96e2 * t45528 + 0.9e1 * t45532 - 0.40e2 * t45534 + 0.24e2 * t45536 - 0.80e2 * t42935 + 0.48e2 * t42938 + 0.12e2 * t42945 + 0.84e2 * t42952 - 0.56e2 * t42955 - 0.30e2 * t45643 - 0.6e1 * t45645;
29754   t45788 = t45739 + t45748 + t45767 + t45786;
29755   t45792 = t15111 * t5673;
29756   t45795 = t3529 * t11262;
29757   t45801 = t3529 * t933 * t2582;
29758   t45806 = t13044 * t2593;
29759   t45821 = t184 * t45788 * t616 * t617 - 0.24e2 * t23950 * t45792 - t24084 * t45792 - 0.12e2 * t24086 * t45792 - 0.36e2 * t24093 * t45792 + 0.6e1 * t45795 * t8315 + 0.6e1 * t45795 * t8323 + t45795 * t8335 + 0.12e2 * t45801 * t8315 + 0.12e2 * t45801 * t8323 + 0.2e1 * t45801 * t8335 + 0.12e2 * t45806 * t8315 + 0.12e2 * t45806 * t8323 + 0.2e1 * t45806 * t8335;
29760   t45823 = my_piecewise3(t102, t45693 + t45671 + t45640 + t45627 + t45594 + t45560 + t45543 + t45515 + t45490 + t45466 + t45438 + t45423 + t45420 + t45385 + t45353 + t45349 + t45332 + t45315 + t45294 + t45262 + t45229 + t45194 + t45188 + t45160 + t45117 + t45096 + t45090 + t45083 + t45064 + t45022 + t44982 + t44942, t45728 + t45821);
29761   t45842 = -0.2e1 * t405 * t2600 * t4372 + 0.2e1 * t1369 * t3824 * t3538 - 0.4e1 * t405 * t12614 * t1027 - 0.2e1 * t405 * t15116 * t621 + 0.8e1 * t3291 * t44891 * t477 - 0.4e1 * t405 * t4301 * t2846 - 0.2e1 * t405 * t3347 * t4017 - 0.2e1 * t405 * t3296 * t4017 - 0.4e1 * t3291 * t9538 * t3880 + 0.1174e1 * t45823 - t405 * t11276 * t1241 + 0.12e2 * t9531 * t3292 * t3880 * t477 + 0.24e2 * t9531 * t3292 * t943 * t2600 - 0.2e1 * t405 * t943 * t13056 + 0.2e1 * t405 * t474 * t15115 * t187;
29762   t45859 = t1369 * t3877;
29763   t45883 = -t405 * t477 * t15294 - 0.6e1 * t4747 * t15126 * t477 - 0.2e1 * t405 * t1195 * t11734 + 0.4e1 * t1369 * t4308 * t2600 + 0.12e2 * t29658 * t15035 + 0.12e2 * t9531 * t9538 * t3824 - 0.4e1 * t45859 * t3293 + 0.4e1 * t3291 * t9542 * t3880 + 0.8e1 * t12596 * t12715 - 0.4e1 * t3291 * t3292 * t11276 + 0.24e2 * t9531 * t12610 * t12581 + 0.24e2 * t38001 * t12582 - 0.48e2 * t29646 * t3292 * t3824 * t477 - 0.24e2 * t9531 * t12714 * t12581 - t101 * t45823;
29764   t45900 = t15115 * t187;
29765   t45930 = 0.2e1 * t405 * t3877 * t3346 * t187 - 0.4e1 * t9535 * t15046 + 0.8e1 * t3291 * t12714 * t2600 + 0.2e1 * t405 * t11273 * t1194 * t187 - 0.8e1 * t12596 * t12611 - 0.4e1 * t3291 * t45900 * t477 + 0.4e1 * t405 * t940 * t12706 * t187 + 0.2e1 * t1369 * t15129 * t477 - 0.12e2 * t9531 * t9542 * t3824 - 0.8e1 * t12596 * t12587 + 0.4e1 * t405 * t2597 * t4300 * t187 - 0.2e1 * t405 * t15049 * t621 + 0.4e1 * t1369 * t15131 * t477 - 0.8e1 * t37985 * t4268 + 0.8e1 * t12596 * t12590;
29766   t45950 = t1194 * t4017;
29767   t45997 = -0.3e1 / 0.100e3 * t3334 * t3874 - t470 * t45788 * t91 / 0.100e3 + 0.3e1 / 0.25e2 * t12685 * t11266 - t38071 * t11270 / 0.10e2 + 0.3e1 / 0.25e2 * t4286 * t89 * t2594 + 0.3e1 / 0.20e2 * t1189 * t3867 * t2587 + 0.3e1 / 0.50e2 * t12685 * t11263 - t12703 * t11266 / 0.50e2 + t38042 * t11270 / 0.100e3 - t4970 * t4285 * t2594 / 0.50e2 - t12703 * t11263 / 0.100e3 - 0.3e1 / 0.100e3 * t1189 * t87 * t11244 * t91 - 0.3e1 / 0.100e3 * t1189 * t11263;
29768   t46039 = -0.3e1 / 0.50e2 * t1189 * t11266 - 0.3e1 / 0.100e3 * t3334 * t15093 + t56 * t45788 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t4286 * t11250 - 0.3e1 / 0.50e2 * t12674 * t4290 - 0.3e1 / 0.50e2 * t4286 * t2594 - 0.3e1 / 0.100e3 * t15085 * t2587 + t1499 * t1188 * t11244 * t91 / 0.100e3 - t4970 * t3333 * t3867 * t91 / 0.100e3 + t1499 * t3333 * t3863 * t91 / 0.100e3 + t1499 * t12673 * t933 * t91 / 0.50e2 + t1499 * t4285 * t2582 * t91 / 0.50e2 + 0.3e1 / 0.50e2 * t3334 * t15097 + t1499 * t15084 * t466 * t91 / 0.100e3;
29769   t46053 = -0.8e1 * t12596 * t12593 - 0.8e1 * t3291 * t37976 * t943 - 0.8e1 * t9535 * t15040 - 0.4e1 * t405 * t12599 * t1027 - 0.4e1 * t405 * t15053 * t621 - 0.4e1 * t405 * t12603 * t1027 - 0.4e1 * t405 * t4271 * t2846 + 0.4e1 * t3291 * t45950 * t477 + 0.8e1 * t3291 * t37935 * t943 + 0.8e1 * t3291 * t37931 * t943 + 0.8e1 * t9535 * t15043 + 0.8e1 * t3291 * t37916 * t943 + 0.2e1 * t405 * t94 * (t45997 + t46039) * t187 - t405 * t3880 * t3538 - 0.8e1 * t3291 * t12610 * t2600 - 0.4e1 * t405 * t12707 * t1027;
29770   t46060 = t15 * t15297;
29771   t46065 = t3547 * t1180 * t15297;
29772   t46075 = 0.55663875000000000000e1 * t9514 * t4030;
29773   t46079 = 0.24739500000000000000e1 * t36461 * t1038;
29774   t46087 = 0.61848750000000000000e0 * t9514 * t4035;
29775   t46088 = -0.3e1 / 0.8e1 * t1179 * t1180 * (t45842 + t45883 + t45930 + t46053) * t204 - t3286 * t46060 * t392 / 0.2e1 - 0.24739500000000000000e1 * t46065 * t644 + 0.18554625000000000000e1 * t36452 * t1038 + 0.61848750000000000000e0 * t3549 * t11826 - 0.24739500000000000000e1 * t13066 * t2875 - t46075 + 0.55663875000000000000e1 * t3549 * t11819 + t46079 - 0.41747906250000000000e1 * t10279 * t4030 - 0.46386562500000000000e0 * t10279 * t4035 + 0.15101552267946798163e2 * t27732 * t11804 - t46087;
29776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29777     v4rhosigma2tau[0] = t44878 + t46088;
29778 
29779   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29780     v4rhosigma2tau[1] = 0.0e0;
29781 
29782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29783     v4rhosigma2tau[2] = 0.0e0;
29784 
29785   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29786     v4rhosigma2tau[3] = 0.0e0;
29787 
29788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29789     v4rhosigma2tau[4] = 0.0e0;
29790 
29791   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29792     v4rhosigma2tau[5] = 0.0e0;
29793 
29794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29795     v4rhosigma2tau[6] = 0.0e0;
29796 
29797   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29798     v4rhosigma2tau[7] = 0.0e0;
29799 
29800   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29801     v4rhosigma2tau[8] = 0.0e0;
29802 
29803   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29804     v4rhosigma2tau[9] = 0.0e0;
29805 
29806   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29807     v4rhosigma2tau[10] = 0.0e0;
29808 
29809   t46090 = t10336 * t15577 / 0.2e1;
29810   t46091 = t210 * t15575;
29811   t46096 = 0.24739500000000000000e1 * t38249 * t1173;
29812   t46100 = 0.55663875000000000000e1 * t10345 * t4252;
29813   t46104 = 0.61848750000000000000e0 * t10345 * t4257;
29814   t46108 = 0.15101552267946798163e2 * t2500 * t15588;
29815   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29816     v4rhosigma2tau[11] = -t46090 - t3286 * t46091 * t651 / 0.2e1 + t46096 + 0.24739500000000000000e1 * t38253 * t2895 - t46100 - 0.55663875000000000000e1 * t10349 * t11848 - t46104 - 0.61848750000000000000e0 * t10349 * t11854 + t46108 + 0.15101552267946798163e2 * t29906 * t11861;
29817 
29818   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29819     v4rhosigma2tau[12] = -t44840 - t3286 * t46060 * t663 / 0.2e1 + t46079 + 0.24739500000000000000e1 * t38151 * t2906 - t46075 - 0.55663875000000000000e1 * t9525 * t11874 - t46087 - 0.61848750000000000000e0 * t9525 * t11878 + t44877 + 0.15101552267946798163e2 * t27732 * t11881;
29820 
29821   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29822     v4rhosigma2tau[13] = 0.0e0;
29823 
29824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29825     v4rhosigma2tau[14] = 0.0e0;
29826 
29827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29828     v4rhosigma2tau[15] = 0.0e0;
29829 
29830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29831     v4rhosigma2tau[16] = 0.0e0;
29832 
29833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29834     v4rhosigma2tau[17] = 0.0e0;
29835 
29836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29837     v4rhosigma2tau[18] = 0.0e0;
29838 
29839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29840     v4rhosigma2tau[19] = 0.0e0;
29841 
29842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29843     v4rhosigma2tau[20] = 0.0e0;
29844 
29845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29846     v4rhosigma2tau[21] = 0.0e0;
29847 
29848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
29849     v4rhosigma2tau[22] = 0.0e0;
29850 
29851   t46126 = t4414 * t1162;
29852   t46168 = 0.24e2 * t10371 * t1078 * t2997 * t3566 + 0.12e2 * t10371 * t3566 * t4102 * t742 - 0.12e2 * t10371 * t10382 * t4046 - 0.8e1 * t1078 * t3565 * t38725 - 0.4e1 * t1162 * t13139 * t674 - 0.4e1 * t1162 * t13232 * t674 + 0.8e1 * t13239 * t2997 * t3565 - 0.6e1 * t15404 * t6316 * t742 + 0.2e1 * t15407 * t2000 * t742 + 0.4e1 * t15409 * t2000 * t742 - 0.4e1 * t3243 * t4415 * t674 + 0.8e1 * t3565 * t46126 * t742 - 0.2e1 * t3570 * t4239 * t674 - 0.4e1 * t10375 * t15324 - 0.8e1 * t13121 * t13136;
29853   t46190 = t3661 * t35112;
29854   t46191 = t3150 * t46190;
29855   t46193 = t3661 * t35090;
29856   t46196 = t3788 * t35094;
29857   t46199 = t3661 * t35098;
29858   t46202 = t3661 * t35108;
29859   t46203 = t12362 * t46202;
29860   t46217 = -0.5012934703930440e4 * t12121 * t15348 + 0.728915950116732e3 * t46191 + 0.42671133728455176e5 * t36027 * t46193 - 0.17966793148823232e5 * t12362 * t46196 + 0.4491698287205808e4 * t12362 * t46199 + 0.788017243369440e3 * t46203 - 0.5334666000e3 * t11936 * t15341 + 0.16982962545542625000e6 * t12058 * t15452 + 0.34447610924435520e5 * t12065 * t15452 + 0.38314241974536000e5 * t12142 * t15355 - 0.6475806039834600e4 * t12087 * t15467 - 0.60605866338995250e5 * t12048 * t15443 - t15413 + t15415 - t15417;
29861   t46221 = t12056 + t12064 - t12071 - t12079 + t12093 + t12101 - t12108 + t12120 - t12126 + t12141 - t12148 - t12154 - 0.266733300e2 * t44083 - 0.95484470551056e2 * t44091 - 0.19476108390480e2 * t44108;
29862   t46238 = 0.12006000000000000000e2 * t43897 - 0.46690000000000000000e2 * t43899 + 0.37352000000000000000e2 * t43901 - 0.238906929589888e3 * t44131 + 0.93485320274304e2 * t44134 + 0.2774026320e3 * t44136 - 0.1387013160e3 * t44138 + 0.8258381786852100e4 * t44141 - 0.3303352714740840e4 * t44144 - 0.3748710600600336e4 * t44202 + 0.1457831900233464e4 * t44205 + 0.1576034486738880e4 * t44208 - 0.630413794695552e3 * t44211 - 0.700219450707744e3 * t44214 + 0.318281568503520e3 * t44217;
29863   t46255 = -0.6966225813552000e4 * t44219 + 0.2902594088980000e4 * t44221 + 0.3250905379657600e4 * t44223 - 0.1393245162710400e4 * t44227 + 0.2296507394962368e4 * t44229 - 0.861190273110888e3 * t44231 - 0.370046059419120e3 * t44235 + 0.136332758733360e3 * t44237 - 0.1707093120e3 * t44253 + 0.853546560e2 * t44256 + 0.586230862553448e3 * t44258 - 0.223326042877504e3 * t44260 - 0.3623032009715760e4 * t44262 + 0.1491836709882960e4 * t44264 - 0.1066933200e3 * t44268 + 0.533466600e2 * t44270;
29864   t46266 = -0.668391293857392e3 * t44274 + 0.286453411653168e3 * t44280 + 0.3831424197453600e4 * t44284 - 0.1532569678981440e4 * t44286 - 0.4848469307119620e4 * t44290 + 0.1864795887353700e4 * t44292 + 0.1360653705352548e4 * t44294 - 0.604734980156688e3 * t44296 - t15418 + t15419 - t15420 + t15421 + t15423 - t15424 - t15425;
29865   t46269 = t15426 - t15427 - t15428 + t15429 + t15430 - t15431 + 0.18676e2 * t43911 - t15432 - t15433 + t15436 - t15437 + t15438 - 0.10672e2 * t43924 - t15439 + t15440;
29866   t46273 = t2160 * t15491;
29867   t46277 = t3021 * t15477;
29868   t46281 = t9311 * t15491;
29869   t46283 = t9191 * t15464;
29870   t46293 = -t15441 + 0.82347801932106480000e5 * t7089 * t15480 + 0.14446982795106400000e4 * t46273 - 0.25216551787822080e5 * t12102 * t15495 - 0.340831896833400e3 * t46277 + 0.16462180617053220000e5 * t12095 * t15480 + 0.53505197772735333333e3 * t46281 + 0.77995827986936500000e4 * t46283 - 0.16197084278729280000e6 * t7044 * t15467 + 0.10701039554547066667e4 * t44312 - 0.43280240867733333333e3 * t44314 + 0.61645029333333333333e3 * t44316 + 0.15599165597387300000e5 * t44321 - 0.67487851161372000000e4 * t44323 + 0.28893965590212800000e4 * t44325;
29871   t46300 = t9343 * t15455;
29872   t46304 = t9099 * t15359;
29873   t46309 = t3655 * t35094;
29874   t46312 = t3649 * t35098;
29875   t46315 = t3649 * t35090;
29876   t46318 = t3600 * t35090;
29877   t46321 = t3637 * t35094;
29878   t46324 = -0.13792201301819200000e4 * t44327 - 0.13545439081906666667e5 * t44329 + 0.61922007231573333333e4 * t44331 + 0.4305951365554440e4 * t44333 - 0.681663793666800e3 * t44335 - 0.35564440000000000000e3 * t44337 + 0.13858509961924100000e4 * t46300 - 0.20688301952728800000e5 * t7053 * t15443 + 0.30822514666666666667e3 * t46304 - 0.37342662000000000000e4 * t7077 * t15355 - 0.69420566677784000000e4 * t44339 - 0.35963920684678500e5 * t8847 * t46309 + 0.11987973561559500e5 * t8847 * t46312 + 0.17223805462217760e5 * t26604 * t46315 - 0.2005173881572176e4 * t26689 * t46318 + 0.1002586940786088e4 * t8859 * t46321;
29879   t46328 = t3600 * t35098;
29880   t46331 = t3637 * t35090;
29881   t46334 = t3643 * t35094;
29882   t46337 = t3637 * t35098;
29883   t46340 = t3643 * t35090;
29884   t46343 = t3649 * t35094;
29885   t46346 = t3643 * t35098;
29886   t46349 = t3655 * t35090;
29887   t46352 = t3661 * t35094;
29888   t46355 = t3655 * t35098;
29889   t46358 = t3583 * t35090;
29890   t46361 = t3600 * t35094;
29891   t46364 = t3583 * t35098;
29892   t46370 = -0.668391293857392e3 * t8859 * t46328 + 0.17241408888541200e5 * t26714 * t46331 - 0.7662848394907200e4 * t8874 * t46334 + 0.3831424197453600e4 * t8874 * t46337 - 0.29090815842717720e5 * t26195 * t46340 + 0.12121173267799050e5 * t8921 * t46343 - 0.4848469307119620e4 * t8921 * t46346 - 0.3330414534772080e4 * t26177 * t46349 + 0.1295161207966920e4 * t8909 * t46352 - 0.370046059419120e3 * t8909 * t46355 - 0.1600399800e3 * t26212 * t46358 + 0.1066933200e3 * t8914 * t46361 - 0.1066933200e3 * t8914 * t46364 + 0.83915814930916500e5 * t26592 * t46315 - 0.53360e2 * t43935;
29893   t46375 = 0.32016e2 * t43938 + 0.8004e1 * t43946 + 0.56028e2 * t43953 - 0.37352e2 * t43956 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190;
29894   t46378 = t2187 * t15449;
29895   t46382 = t3047 * t15455;
29896   t46386 = t2179 * t15455;
29897   t46390 = t3040 * t15359;
29898   t46397 = t4196 - t4203 + t4205 + 0.27717019923848200000e4 * t44353 - 0.68961006509096000000e3 * t46378 + 0.7957039212588000e4 * t12048 * t15452 + 0.3831424197453600e4 * t46382 - 0.11703259366767360000e6 * t12150 * t15443 - 0.17782220000000000000e3 * t46386 + 0.17070931200e4 * t12142 * t15443 - 0.716133529132920e3 * t46390 + 0.17724304846039770000e5 * t12130 * t15355 - 0.2667333000e3 * t44355 - 0.1432267058265840e4 * t44357 + 0.7662848394907200e4 * t44359;
29899   t46399 = -0.9323979436768500e4 * t44361 - t15451 + t15457 - t15461 + t15466 - t15471 + t15473 - t15479 + t15484 - t15488 + t15493 - t15499 + t15505 - t15510 - t15516 + t15535;
29900   t46403 = t222 * t4066 * t1251;
29901   t46413 = -t15539 - t15543 + t15547 - 0.20010e2 * t46403 - 0.372959177470740e3 * t44473 + 0.151183745039172e3 * t44476 - t12162 - t12166 - t12183 + 0.800199900e2 * t44486 + 0.42968011747975200000e3 * t44488 - 0.2298854518472160e4 * t44490 + 0.27971938310305500000e4 * t44492 - 0.83151059771544600000e3 * t44494 + 0.1066933200e3 * t44497;
29902   t46429 = -0.32103118663641200000e3 * t44499 + 0.12984072260320000000e3 * t44501 - 0.1849350880e3 * t44503 - 0.46797496792161900000e4 * t44505 + 0.20246355348411600000e4 * t44507 + 0.2082617000333520e4 * t44509 - 0.866818967706384e3 * t44511 + 0.41376603905457600000e3 * t44513 + 0.4063631724572000e4 * t44515 - 0.1857660216947200e4 * t44517 - 0.1291785409666332e4 * t44521 + 0.20449913810004000000e3 * t44523 - 0.8004e1 * t43986 - 0.8004e1 * t43990 - 0.40020e2 * t43992;
29903   t46433 = t3637 * t35112;
29904   t46434 = t3188 * t46433;
29905   t46442 = 0.15563333333333333333e3 * t43994 - 0.12450666666666666667e3 * t43996 + t12185 + t12189 + t12193 - t12197 - t12201 + t12207 + t12211 + t12215 - t12222 + 0.143226705826584e3 * t46434 + 0.7734242114635536e4 * t26683 * t46331 - 0.3867121057317768e4 * t8867 * t46334 + 0.1933560528658884e4 * t8867 * t46337;
29906   t46443 = t3637 * t35108;
29907   t46444 = t8867 * t46443;
29908   t46446 = t3643 * t35112;
29909   t46447 = t3194 * t46446;
29910   t46453 = t3600 * t35108;
29911   t46454 = t9104 * t46453;
29912   t46456 = t3180 * t46433;
29913   t46466 = t15338 * t3589;
29914   t46471 = 0.680326852676274e3 * t46444 - 0.302367490078344e3 * t46447 - 0.9548447055105600e4 * t35968 * t46340 + 0.4774223527552800e4 * t12309 * t46343 + 0.1387013160e3 * t46454 - 0.693506580e2 * t46456 - 0.15683918040e4 * t35610 * t46331 + 0.8962238880e3 * t12438 * t46334 - 0.6889522184887104e4 * t8854 * t46309 + 0.2296507394962368e4 * t8854 * t46312 - 0.4002e1 * t46466 - 0.580518817796000e3 * t44592 + 0.232207527118400e3 * t44595 + 0.143531712185148e3 * t44597 - t12226 + t12230;
29915   t46478 = t3643 * t35108;
29916   t46479 = t12309 * t46478;
29917   t46481 = t3649 * t35112;
29918   t46482 = t4441 * t46481;
29919   t46490 = t8874 * t46443;
29920   t46492 = t3202 * t46446;
29921   t46500 = t12438 * t46443;
29922   t46502 = t4433 * t46446;
29923   t46508 = -0.1909689411021120e4 * t12309 * t46346 - 0.350109725353872e3 * t46479 + 0.159140784251760e3 * t46482 + 0.3819378822042240e4 * t26195 * t46315 - 0.1909689411021120e4 * t8921 * t46309 + 0.636563137007040e3 * t8921 * t46312 + 0.1915712098726800e4 * t46490 - 0.766284839490720e3 * t46492 - 0.55172508443331840e5 * t26701 * t46340 + 0.25078412928787200e5 * t8880 * t46343 - 0.4481119440e3 * t12438 * t46337 - 0.853546560e2 * t46500 + 0.426773280e2 * t46502 + 0.7681919040e3 * t26714 * t46340 - 0.4267732800e3 * t8874 * t46343;
29924   t46511 = t8859 * t46453;
29925   t46513 = t10565 * t4073;
29926   t46514 = t3158 * t46513;
29927   t46516 = t10571 * t4066;
29928   t46519 = t10571 * t4073;
29929   t46520 = t3169 * t46519;
29930   t46522 = t10761 * t4066;
29931   t46526 = t4424 * t10761 * t4073;
29932   t46531 = t10417 * t4073;
29933   t46532 = t3163 * t46531;
29934   t46534 = t10484 * t4066;
29935   t46537 = t10553 * t4073;
29936   t46538 = t3208 * t46537;
29937   t46540 = t10559 * t4066;
29938   t46543 = t10559 * t4073;
29939   t46544 = t4449 * t46543;
29940   t46546 = t10565 * t4066;
29941   t46549 = t3216 * t46537;
29942   t46551 = 0.1707093120e3 * t8874 * t46346 - 0.334195646928696e3 * t46511 - 0.9738054195240e1 * t46514 + 0.429448190010084e3 * t9242 * t46516 + 0.13957877679844e2 * t46520 - 0.342779507672448e3 * t12410 * t46522 - 0.5193628904128e1 * t46526 + 0.93485320274304e2 * t15511 * t30162 * t4066 - 0.133366650e2 * t46532 + 0.1920479760e3 * t9104 * t46534 - 0.290259408898000e3 * t46538 + 0.4528046778808800e4 * t12333 * t46540 + 0.116103763559200e3 * t46544 - 0.1393245162710400e4 * t8854 * t46546 - 0.186479588735370e3 * t46549;
29943   t46553 = t3222 * t46543;
29944   t46557 = t4457 * t46513;
29945   t46561 = t3143 * t46543;
29946   t46565 = t3150 * t46513;
29947   t46569 = t4465 * t46519;
29948   t46573 = t10484 * t4073;
29949   t46574 = t3180 * t46573;
29950   t46576 = t10547 * t4066;
29951   t46577 = t8859 * t46576;
29952   t46579 = t4395 * t46573;
29953   t46582 = t2941 * t10405 * t4073;
29954   t46584 = t11966 * t46534;
29955   t46586 = 0.275279392895070e3 * t46553 - 0.5114868719598720e4 * t12396 * t46546 - 0.106559764991640e3 * t46557 + 0.1491836709882960e4 * t8909 * t46516 + 0.71765856092574e2 * t46561 - 0.2735545573411056e4 * t8902 * t46546 - 0.104130850016676e3 * t46565 + 0.2245849143602904e4 * t12362 * t46516 + 0.39400862168472e2 * t46569 - 0.630413794695552e3 * t15494 * t46522 + 0.231168860e2 * t46574 + 0.32016e2 * t46577 - 0.5336e1 * t46579 - 0.4002e1 * t46582 - 0.64032e2 * t46584;
29956   t46587 = t2962 * t46531;
29957   t46589 = t2098 * t15345;
29958   t46591 = t7069 * t15348;
29959   t46593 = t8667 * t15352;
29960   t46595 = t12121 * t15355;
29961   t46597 = t2203 * t15477;
29962   t46601 = t3013 * t15464;
29963   t46605 = t9215 * t15477;
29964   t46607 = t9364 * t15449;
29965   t46611 = t2195 * t15464;
29966   t46615 = t3005 * t15449;
29967   t46617 = 0.9338e1 * t46587 - 0.20010e2 * t46589 - 0.74704000000000000000e3 * t46591 + 0.77816666666666666667e2 * t46593 + 0.480240e3 * t46595 - 0.33743925580686000000e4 * t46597 + 0.52214284845903600e5 * t12087 * t15480 + 0.2152975682777220e4 * t46601 - 0.91184852447035200000e5 * t12073 * t15467 - 0.34710283338892000000e4 * t46605 - 0.67727195409533333333e4 * t46607 + 0.12074791410156800000e6 * t7061 * t15452 + 0.30961003615786666667e4 * t46611 - 0.41797354881312000e5 * t12065 * t15467 - 0.4661989718384250e4 * t46615 - t12263;
29968   t46622 = t13362 * t15508;
29969   t46624 = t44536 * t14909;
29970   t46627 = t2967 * t15352;
29971   t46631 = t2170 * t15359;
29972   t46633 = t12266 - t12269 + t12272 + t12304 - t12307 + t12319 - t12321 - t12329 + t12331 - 0.14282479486352000000e5 * t35929 * t15495 - 0.21640120433866666667e3 * t46622 + 0.4206839412343680e4 * t46624 * t15512 - 0.1333666500e3 * t46627 + 0.25606396800000000000e4 * t11923 * t15348 - 0.62253333333333333334e2 * t46631;
29973   t46634 = t25643 * t15341;
29974   t46636 = t15855 * t253;
29975   t46637 = t46636 * t13172;
29976   t46640 = t15338 * t253 * t3584;
29977   t46642 = t10417 * t4066;
29978   t46643 = t8621 * t46642;
29979   t46645 = t13166 * t15345;
29980   t46649 = t10547 * t4073;
29981   t46650 = t4433 * t46649;
29982   t46652 = t10553 * t4066;
29983   t46655 = t3188 * t46573;
29984   t46659 = t3194 * t46649;
29985   t46663 = t4441 * t46537;
29986   t46667 = t3202 * t46649;
29987   t46669 = 0.30015000000000000000e3 * t46634 - 0.8004e1 * t46637 + 0.4002e1 * t46640 + 0.36018e2 * t46643 - 0.4002e1 * t46645 - 0.2240559720e3 * t12438 * t46576 - 0.106693320e2 * t46650 + 0.853546560e2 * t8874 * t46652 - 0.47742235275528e2 * t46655 + 0.966780264329442e3 * t8867 * t46576 + 0.75591872519586e2 * t46659 - 0.954844705510560e3 * t12309 * t46652 - 0.31828156850352e2 * t46663 + 0.318281568503520e3 * t8921 * t46540 + 0.191571209872680e3 * t46667;
29988   t46687 = -0.5015682585757440e4 * t8880 * t46652 - 0.2424234653559810e4 * t8921 * t46652 - 0.334195646928696e3 * t8859 * t46534 + 0.1915712098726800e4 * t8874 * t46576 - 0.185023029709560e3 * t8909 * t46546 - 0.533466600e2 * t8914 * t46642 + 0.5993986780779750e4 * t8847 * t46540 + 0.1148253697481184e4 * t8854 * t46540 + t12345 - t12348 - t12357 + t12360 - t12373 + t12378 + t12392;
29989   t46688 = t8621 * t46361;
29990   t46690 = t8621 * t46364;
29991   t46693 = t2941 * t3583 * t35112;
29992   t46695 = t35819 * t46318;
29993   t46697 = t11966 * t46321;
29994   t46699 = t11966 * t46328;
29995   t46701 = t3583 * t35108;
29996   t46702 = t8621 * t46701;
29997   t46704 = t3600 * t35112;
29998   t46705 = t2962 * t46704;
29999   t46707 = t26689 * t46331;
30000   t46709 = -t12394 + t12404 - t12408 - t12422 + t12424 + t12432 - t12436 - 0.72036e2 * t46688 + 0.72036e2 * t46690 + 0.4002e1 * t46693 - 0.256128e3 * t46695 + 0.192096e3 * t46697 - 0.128064e3 * t46699 + 0.28014e2 * t46702 - 0.18676e2 * t46705 + 0.192096e3 * t46707;
30001   t46713 = t8859 * t46334;
30002   t46715 = t8859 * t46337;
30003   t46720 = t8914 * t46701;
30004   t46722 = t3163 * t46704;
30005   t46730 = t11966 * t46453;
30006   t46732 = t4395 * t46433;
30007   t46736 = t707 * t4066 * t709 * t3580;
30008   t46738 = t25633 * t46358;
30009   t46740 = t3788 * t35112;
30010   t46741 = t3169 * t46740;
30011   t46743 = t3788 * t35090;
30012   t46746 = t10955 * t35094;
30013   t46749 = -0.128064e3 * t46713 + 0.64032e2 * t46715 + 0.186970640548608e3 * t15511 * t10955 * t35098 - 0.533466600e2 * t46720 + 0.266733300e2 * t46722 + 0.9602398800e3 * t25990 * t46318 - 0.5761439280e3 * t9104 * t46321 + 0.3840959520e3 * t9104 * t46328 - 0.26680e2 * t46730 + 0.16008e2 * t46732 + 0.60030000000000000000e1 * t46736 + 0.72036e2 * t46738 - 0.111663021438752e3 * t46741 - 0.7541149168793856e4 * t35618 * t46743 + 0.3085015569052032e4 * t12410 * t46746;
30014   t46750 = t3788 * t35098;
30015   t46754 = t12410 * t3788 * t35108;
30016   t46757 = t4424 * t10955 * t35112;
30017   t46766 = t1250 * t4073 * t1425;
30018   t46767 = t8563 * t46766;
30019   t46770 = t1250 * t4066 * t1425;
30020   t46771 = t35335 * t46770;
30021   t46773 = t8573 * t46766;
30022   t46775 = t20664 * t4199;
30023   t46776 = t46775 * t46770;
30024   t46778 = t13194 * t46766;
30025   t46780 = t25490 * t46770;
30026   t46782 = -0.685559015344896e3 * t12410 * t46750 - 0.119453464794944e3 * t46754 + 0.46742660137152e2 * t46757 + 0.2243647686583296e4 * t44463 * t10955 * t35090 - 0.934853202743040e3 * t15511 * t30633 * t35094 + 0.60030000000000000000e1 * t46767 + 0.22411200000000000000e3 * t46771 - 0.23345000000000000000e2 * t46773 - 0.14407200000000000000e3 * t46776 + 0.18676000000000000000e2 * t46778 - 0.90045000000000000000e2 * t46780 + t12446 - t12449 - t12451 + t12453;
30027   t46784 = t4465 * t46740;
30028   t46792 = t3655 * t35108;
30029   t46793 = t8909 * t46792;
30030   t46795 = t3158 * t46190;
30031   t46803 = t8921 * t46478;
30032   t46811 = t12462 - t12463 - 0.315206897347776e3 * t46784 - 0.13238689688606592e5 * t44445 * t46743 + 0.5673724152259968e4 * t15494 * t46746 - 0.1260827589391104e4 * t15494 * t46750 - 0.185023029709560e3 * t46793 + 0.68166379366680e2 * t46795 - 0.20898677440656000e5 * t26604 * t46349 + 0.9752716138972800e4 * t8854 * t46352 - 0.2786490325420800e4 * t8854 * t46355 - 0.2424234653559810e4 * t46803 - 0.46504274747987952e5 * t26202 * t46349 + 0.19148819013877392e5 * t8902 * t46352 - 0.5471091146822112e4 * t8902 * t46355;
30033   t46812 = t8902 * t46792;
30034   t46816 = t8880 * t46478;
30035   t46818 = t3208 * t46481;
30036   t46826 = t3649 * t35108;
30037   t46827 = t12333 * t46826;
30038   t46829 = t3655 * t35112;
30039   t46830 = t4449 * t46829;
30040   t46838 = t12396 * t46792;
30041   t46840 = t4457 * t46190;
30042   t46846 = -0.1874355300300168e4 * t46812 - 0.10031365171514880e5 * t8880 * t46346 - 0.3483112906776000e4 * t46816 + 0.1451297044490000e4 * t46818 + 0.58864608124514400e5 * t35961 * t46315 - 0.27168280672852800e5 * t12333 * t46309 + 0.9056093557617600e4 * t12333 * t46312 + 0.1625452689828800e4 * t46827 - 0.696622581355200e3 * t46830 - 0.81837899513579520e5 * t35593 * t46349 + 0.35804081037191040e5 * t12396 * t46352 - 0.10229737439197440e5 * t12396 * t46355 - 0.1811516004857880e4 * t46838 + 0.745918354941480e3 * t46840 + 0.26853060777893280e5 * t26177 * t46193 - 0.11934693679063680e5 * t8909 * t46196;
30043   t46851 = t8854 * t46826;
30044   t46853 = t3143 * t46829;
30045   t46855 = t9242 * t46202;
30046   t46857 = t3216 * t46481;
30047   t46859 = t8847 * t46826;
30048   t46861 = t3222 * t46829;
30049   t46874 = 0.2983673419765920e4 * t8909 * t46199 + 0.1148253697481184e4 * t46851 - 0.430595136555444e3 * t46853 + 0.293115431276724e3 * t46855 + 0.932397943676850e3 * t46857 + 0.4129190893426050e4 * t46859 - 0.1651676357370420e4 * t46861 + 0.8588963800201680e4 * t26184 * t46193 - 0.3435585520080672e4 * t9242 * t46196 + 0.858896380020168e3 * t9242 * t46199 + 0.383142419745360e3 * t44632 - 0.213386640e2 * t44641 + 0.27915755359688e2 * t44644 - 0.10387257808256e2 * t44647 + 0.462337720e2 * t44649;
30050   t46880 = t8762 * t46766;
30051   t46884 = t8778 * t46766;
30052   t46888 = t8784 * t46766;
30053   t46892 = t13507 * t46766;
30054   t46894 = t20801 * t4134;
30055   t46897 = t8791 * t46766;
30056   t46901 = t8797 * t46766;
30057   t46903 = 0.550558785790140e3 * t44651 - 0.213119529983280e3 * t44653 - 0.208261700033352e3 * t44655 + 0.78801724336944e2 * t44657 - 0.63656313700704e2 * t44659 - 0.16051559331820600000e3 * t46880 + 0.42847438459056000000e4 * t35172 * t46770 + 0.21484005873987600000e3 * t46884 - 0.53172914538119310000e4 * t27108 * t46770 - 0.41575529885772300000e3 * t46888 + 0.62064905858186400000e4 * t35284 * t46770 + 0.20688301952728800000e3 * t46892 - 0.23871117637764000000e4 * t46894 * t46770 - 0.1149427259236080e4 * t46897 + 0.35109778100302080e5 * t27096 * t46770 + 0.2031815862286000e4 * t46901;
30058   t46907 = t13514 * t46766;
30059   t46909 = t21213 * t4149;
30060   t46912 = t8771 * t46766;
30061   t46916 = t13546 * t46766;
30062   t46918 = t20722 * t4119;
30063   t46935 = t13539 * t46766;
30064   t46937 = -0.36224374230470400e5 * t35119 * t46770 - 0.928830108473600e3 * t46907 + 0.12539206464393600e5 * t46909 * t46770 - 0.924675440e2 * t46912 + 0.11202798600e4 * t35242 * t46770 + 0.533466600e2 * t46916 - 0.5121279360e3 * t46918 * t46770 + 0.18181759901698575000e5 * t27076 * t46770 + 0.15038804111791320000e4 * t27040 * t46770 - 0.11494272592360800e5 * t27119 * t46770 + 0.19427418119503800000e4 * t26327 * t46770 + 0.1600399800e3 * t26337 * t46770 - 0.50948887636627875000e5 * t27053 * t46770 - 0.10334283277330656e5 * t27035 * t46770 + 0.64920361301600000000e2 * t46935;
30065   t46939 = t44177 * t44179 * t7167;
30066   t46942 = t8755 * t46766;
30067   t46946 = t8804 * t46766;
30068   t46948 = t8810 * t46766;
30069   t46952 = t13521 * t46766;
30070   t46954 = t20694 * t4164;
30071   t46957 = t8819 * t46766;
30072   t46961 = t8825 * t46766;
30073   t46965 = t13528 * t46766;
30074   t46967 = t44167 * t4184;
30075   t46970 = t8749 * t46766;
30076   t46974 = -0.12620518237031040000e4 * t46939 * t46770 + 0.400099950e2 * t46942 - 0.7681919040e3 * t26433 * t46770 + 0.13985969155152750000e4 * t46946 - 0.23398748396080950000e4 * t46948 + 0.48591252836187840000e5 * t35158 * t46770 + 0.10123177674205800000e4 * t46952 - 0.15664285453771080000e5 * t46954 * t46770 - 0.645892704833166e3 * t46957 + 0.27355455734110560e5 * t26824 * t46770 + 0.1041308500166760e4 * t46961 - 0.24704340579631944e5 * t35215 * t46770 - 0.433409483853192e3 * t46965 + 0.7564965536346624e4 * t46967 * t46770 + 0.10224956905002000000e3 * t46970 - 0.49386541851159660000e4 * t26424 * t46770;
30077   t46980 = t3607 * t4089;
30078   t46981 = t46980 * t360;
30079   t46994 = -t15347 + t15354 - t15361 + 0.18e2 * t43897 - 0.70e2 * t43899 + 0.56e2 * t43901 + 0.28e2 * t43911 - 0.16e2 * t43924 - t15344 + t15351 - t15358 - 0.80e2 * t43935 + 0.48e2 * t43938 + 0.12e2 * t43946 + 0.84e2 * t43953 - 0.56e2 * t43956 - t4076;
30080   t47009 = t4084 - 0.30e2 * t46403 - 0.12e2 * t43986 - 0.12e2 * t43990 - 0.60e2 * t43992 + 0.700e3 / 0.3e1 * t43994 - 0.560e3 / 0.3e1 * t43996 - 0.6e1 * t46466 - t11931 + t11944 + 0.48e2 * t46577 - 0.8e1 * t46579 - 0.6e1 * t46582 - 0.96e2 * t46584 + 0.14e2 * t46587 - 0.30e2 * t46589 - 0.1120e4 * t46591;
30081   t47028 = 0.350e3 / 0.3e1 * t46593 + 0.720e3 * t46595 - 0.280e3 / 0.3e1 * t46631 + 0.450e3 * t46634 - 0.12e2 * t46637 + 0.6e1 * t46640 + 0.54e2 * t46643 - 0.6e1 * t46645 - 0.108e3 * t46688 + 0.108e3 * t46690 + 0.6e1 * t46693 - 0.384e3 * t46695 + 0.288e3 * t46697 - 0.192e3 * t46699 + 0.42e2 * t46702 - 0.28e2 * t46705 + 0.288e3 * t46707;
30082   t47041 = -0.192e3 * t46713 + 0.96e2 * t46715 - 0.40e2 * t46730 + 0.24e2 * t46732 + 0.9e1 * t46736 + 0.108e3 * t46738 + 0.9e1 * t46767 + 0.336e3 * t46771 - 0.35e2 * t46773 - 0.216e3 * t46776 + 0.28e2 * t46778 - 0.135e3 * t46780 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
30083   t47043 = t46994 + t47009 + t47028 + t47041;
30084   t47047 = t3803 * t12000;
30085   t47051 = t15362 * t360 * t731;
30086   t47057 = t13198 * t360 * t1068;
30087   t47060 = t13569 * t2979;
30088   t47063 = t15381 * t7229;
30089   t47066 = t15385 * t7229;
30090   t47068 = t4410 * t9376;
30091   t47071 = t15389 * t7229;
30092   t47077 = t360 * t47043 * t616 * t881 - t27446 * t47071 - 0.12e2 * t27452 * t47071 - 0.2e1 * t3232 * t47047 - 0.2e1 * t3232 * t47051 - 0.4e1 * t3232 * t47057 - 0.4e1 * t3232 * t47060 + 0.6e1 * t46981 * t9372 + 0.6e1 * t46981 * t9380 + 0.2e1 * t47063 * t9392 + t47066 * t9392 + 0.12e2 * t47068 * t9380 + 0.2e1 * t47068 * t9392;
30093   t47091 = t11093 * t4085;
30094   t47103 = -0.36e2 * t27459 * t47071 - 0.24e2 * t27471 * t47071 - 0.2e1 * t3232 * t47091 - t3240 * t47047 - t3240 * t47051 - 0.2e1 * t3240 * t47057 - 0.2e1 * t3240 * t47060 - t3240 * t47091 + t46981 * t9392 + 0.12e2 * t47063 * t9372 + 0.12e2 * t47063 * t9380 + 0.6e1 * t47066 * t9372 + 0.6e1 * t47066 * t9380 + 0.12e2 * t47068 * t9372;
30095   t47105 = my_piecewise3(t278, t46442 + t46429 + t46413 + t46397 + t46399 + t46375 + t46370 + t46324 + t46293 + t46269 + t46266 + t46255 + t46238 + t46221 + t46217 + t46974 + t46749 + t46633 + t46846 + t46471 + t46782 + t46709 + t46687 + t46811 + t46508 + t46937 + t46874 + t46669 + t46617 + t46551 + t46586 + t46903, t47077 + t47103);
30096   t47118 = t1263 * t4239;
30097   t47131 = 0.24e2 * t38646 * t13107 - 0.24e2 * t10371 * t13239 * t13106 - 0.48e2 * t31883 * t3566 * t4046 * t742 + 0.24e2 * t10371 * t13135 * t13106 + 0.2e1 * t674 * t739 * t15393 * t363 - 0.4e1 * t674 * t4385 * t3243 - t277 * t47105 + 0.8e1 * t3565 * t38747 * t1078 + 0.8e1 * t3565 * t39994 * t1078 + 0.8e1 * t10375 * t15321 + 0.8e1 * t3565 * t38707 * t1078 + 0.4e1 * t3565 * t47118 * t742 - 0.4e1 * t674 * t13128 * t1162 - 0.2e1 * t674 * t15327 * t885 - 0.4e1 * t3565 * t3566 * t12032;
30098   t47184 = t56 * t47043 * t267 / 0.100e3 - t735 * t47043 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t15363 * t2984 - 0.3e1 / 0.50e2 * t13199 * t4404 - 0.3e1 / 0.50e2 * t4400 * t2991 + t2127 * t1257 * t12000 * t267 / 0.100e3 - t6534 * t46980 * t267 / 0.100e3 + t2127 * t13198 * t1068 * t267 / 0.50e2 + t2127 * t4399 * t2979 * t267 / 0.50e2 + t2127 * t3607 * t4085 * t267 / 0.100e3 - t38367 * t12026 / 0.10e2 + t2127 * t15362 * t731 * t267 / 0.100e3 + 0.3e1 / 0.25e2 * t13210 * t12022;
30099   t47218 = 0.3e1 / 0.50e2 * t13210 * t12019 + 0.3e1 / 0.20e2 * t1258 * t4089 * t2984 + 0.3e1 / 0.25e2 * t4400 * t265 * t2991 - 0.3e1 / 0.100e3 * t1258 * t12019 - 0.3e1 / 0.100e3 * t1258 * t263 * t12000 * t267 + 0.3e1 / 0.50e2 * t3608 * t15375 - 0.3e1 / 0.50e2 * t4400 * t12006 - 0.3e1 / 0.50e2 * t1258 * t12022 - 0.3e1 / 0.100e3 * t3608 * t15371 + t38623 * t12026 / 0.100e3 - t6534 * t4399 * t2991 / 0.50e2 - t13228 * t12022 / 0.50e2 - t13228 * t12019 / 0.100e3 - 0.3e1 / 0.100e3 * t3608 * t4096;
30100   t47237 = t15393 * t363;
30101   t47247 = -t674 * t4102 * t3812 - 0.4e1 * t3565 * t10378 * t4102 - 0.8e1 * t10375 * t15318 + 0.12e2 * t10371 * t10378 * t4046 + 0.12e2 * t31778 * t15313 + 0.2e1 * t674 * t270 * (t47184 + t47218) * t363 - 0.8e1 * t13121 * t13112 - 0.4e1 * t674 * t13124 * t1162 - 0.4e1 * t674 * t15331 * t885 - 0.8e1 * t38741 * t4382 - 0.2e1 * t674 * t2997 * t4486 - 0.4e1 * t3565 * t47237 * t742 + 0.8e1 * t13121 * t13240 + 0.4e1 * t2000 * t4422 * t2997 + 0.1174e1 * t47105;
30102   t47282 = t2000 * t4099;
30103   t47296 = -t674 * t742 * t15572 + 0.2e1 * t2000 * t4046 * t3812 - 0.2e1 * t674 * t1078 * t13581 + 0.2e1 * t674 * t12029 * t1263 * t363 - 0.2e1 * t674 * t1264 * t12490 - 0.2e1 * t674 * t3621 * t4239 - t674 * t12032 * t1310 - 0.8e1 * t3565 * t13135 * t2997 - 0.2e1 * t674 * t15394 * t885 - 0.8e1 * t13121 * t13118 + 0.8e1 * t13121 * t13115 + 0.2e1 * t674 * t4099 * t3620 * t363 - 0.4e1 * t47282 * t3567 + 0.4e1 * t3565 * t10382 * t4102 + 0.4e1 * t674 * t1075 * t13231 * t363 + 0.4e1 * t674 * t2994 * t4414 * t363;
30104   t47335 = -0.3e1 / 0.8e1 * t1179 * t1249 * (t46168 + t47131 + t47247 + t47296) * t377 - 0.61848750000000000000e0 * t10349 * t12529 - 0.55663875000000000000e1 * t10349 * t12533 + 0.24739500000000000000e1 * t38253 * t3256 - 0.83495812500000000000e2 * t13598 * t31908 * t12510 + 0.23254840140139470986e0 * t11127 * t31913 * t12515 + 0.30203104535893596326e2 * t11127 * t15586 * t214 * t2504 + 0.11326164200960098622e2 * t11127 * t3815 * t4261 * t368 * t2504 + 0.22265550000000000000e2 * t13598 * t4489 * t2486 * t19 * t3264 + 0.18554625000000000000e1 * t38310 * t1173 + 0.15101552267946798163e2 * t29906 * t12561 - 0.41747906250000000000e1 * t11119 * t4252;
30105   t47339 = t3547 * t1249 * t15575;
30106   t47360 = -0.46386562500000000000e0 * t11119 * t4257 - 0.24739500000000000000e1 * t47339 * t902 + 0.61848750000000000000e0 * t3821 * t12551 + 0.55663875000000000000e1 * t3821 * t12558 - 0.24739500000000000000e1 * t13591 * t3270 + t46096 - t46100 - t46104 + t46108 - 0.60406209071787192651e2 * t11127 * t4489 * t3274 * t214 * t2504 - 0.45424903023464625000e2 * t13598 * t1313 * t12539 * t12543 - t46090 - t3286 * t46091 * t668 / 0.2e1;
30107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30108     v4rhosigma2tau[23] = t47335 + t47360;
30109 
30110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30111     v4rhosigmalapl2[0] = 0.0e0;
30112 
30113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30114     v4rhosigmalapl2[1] = 0.0e0;
30115 
30116   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30117     v4rhosigmalapl2[2] = 0.0e0;
30118 
30119   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30120     v4rhosigmalapl2[3] = 0.0e0;
30121 
30122   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30123     v4rhosigmalapl2[4] = 0.0e0;
30124 
30125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30126     v4rhosigmalapl2[5] = 0.0e0;
30127 
30128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30129     v4rhosigmalapl2[6] = 0.0e0;
30130 
30131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30132     v4rhosigmalapl2[7] = 0.0e0;
30133 
30134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30135     v4rhosigmalapl2[8] = 0.0e0;
30136 
30137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30138     v4rhosigmalapl2[9] = 0.0e0;
30139 
30140   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30141     v4rhosigmalapl2[10] = 0.0e0;
30142 
30143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30144     v4rhosigmalapl2[11] = 0.0e0;
30145 
30146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30147     v4rhosigmalapl2[12] = 0.0e0;
30148 
30149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30150     v4rhosigmalapl2[13] = 0.0e0;
30151 
30152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30153     v4rhosigmalapl2[14] = 0.0e0;
30154 
30155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30156     v4rhosigmalapl2[15] = 0.0e0;
30157 
30158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30159     v4rhosigmalapl2[16] = 0.0e0;
30160 
30161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30162     v4rhosigmalapl2[17] = 0.0e0;
30163 
30164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30165     v4rhosigmalapltau[0] = 0.0e0;
30166 
30167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30168     v4rhosigmalapltau[1] = 0.0e0;
30169 
30170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30171     v4rhosigmalapltau[2] = 0.0e0;
30172 
30173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30174     v4rhosigmalapltau[3] = 0.0e0;
30175 
30176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30177     v4rhosigmalapltau[4] = 0.0e0;
30178 
30179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30180     v4rhosigmalapltau[5] = 0.0e0;
30181 
30182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30183     v4rhosigmalapltau[6] = 0.0e0;
30184 
30185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30186     v4rhosigmalapltau[7] = 0.0e0;
30187 
30188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30189     v4rhosigmalapltau[8] = 0.0e0;
30190 
30191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30192     v4rhosigmalapltau[9] = 0.0e0;
30193 
30194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30195     v4rhosigmalapltau[10] = 0.0e0;
30196 
30197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30198     v4rhosigmalapltau[11] = 0.0e0;
30199 
30200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30201     v4rhosigmalapltau[12] = 0.0e0;
30202 
30203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30204     v4rhosigmalapltau[13] = 0.0e0;
30205 
30206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30207     v4rhosigmalapltau[14] = 0.0e0;
30208 
30209   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30210     v4rhosigmalapltau[15] = 0.0e0;
30211 
30212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30213     v4rhosigmalapltau[16] = 0.0e0;
30214 
30215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30216     v4rhosigmalapltau[17] = 0.0e0;
30217 
30218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30219     v4rhosigmalapltau[18] = 0.0e0;
30220 
30221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30222     v4rhosigmalapltau[19] = 0.0e0;
30223 
30224   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30225     v4rhosigmalapltau[20] = 0.0e0;
30226 
30227   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30228     v4rhosigmalapltau[21] = 0.0e0;
30229 
30230   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30231     v4rhosigmalapltau[22] = 0.0e0;
30232 
30233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30234     v4rhosigmalapltau[23] = 0.0e0;
30235 
30236   t47362 = t10336 * t15824 / 0.2e1;
30237   t47363 = t15 * t15822;
30238   t47381 = t3309 * t37031;
30239   t47384 = t13657 * t7604;
30240   t47387 = t13667 * t12656;
30241   t47390 = t3326 * t37031;
30242   t47399 = t13667 * t7604;
30243   t47402 = t13746 * t12656;
30244   t47405 = t13851 * t7604;
30245   t47408 = -0.62253333333333333334e2 * t42854 - 0.4002e1 * t42856 - 0.4002e1 * t42859 + 0.9338e1 * t42873 - 0.5336e1 * t42886 - 0.1066933200e3 * t7940 * t47381 + 0.9602398800e3 * t23150 * t47384 - 0.5761439280e3 * t7996 * t47387 + 0.3840959520e3 * t7996 * t47390 - 0.2005173881572176e4 * t23156 * t47384 + 0.1002586940786088e4 * t7952 * t47387 - 0.668391293857392e3 * t7952 * t47390 + 0.7734242114635536e4 * t23136 * t47399 - 0.3867121057317768e4 * t7960 * t47402 + 0.42671133728455176e5 * t33048 * t47405;
30246   t47409 = t13870 * t12656;
30247   t47412 = t3467 * t37031;
30248   t47415 = t13870 * t7604;
30249   t47418 = t13888 * t12656;
30250   t47421 = t3504 * t37031;
30251   t47441 = -0.17966793148823232e5 * t11645 * t47409 + 0.4491698287205808e4 * t11645 * t47412 - 0.13238689688606592e5 * t43390 * t47415 + 0.5673724152259968e4 * t15188 * t47418 - 0.1260827589391104e4 * t15188 * t47421 - 0.7541149168793856e4 * t33041 * t47415 + 0.3085015569052032e4 * t11559 * t47418 - 0.685559015344896e3 * t11559 * t47421 + 0.2243647686583296e4 * t43322 * t13888 * t7604 - 0.934853202743040e3 * t15216 * t40653 * t12656 + 0.12006000000000000000e2 * t44918 - 0.46690000000000000000e2 * t44922 - 0.3623032009715760e4 * t44928 + 0.1491836709882960e4 * t44931 + 0.2296507394962368e4 * t44944;
30252   t47458 = -0.861190273110888e3 * t44947 - 0.1066933200e3 * t44962 + 0.533466600e2 * t44965 + 0.8258381786852100e4 * t44970 - 0.3303352714740840e4 * t44972 + 0.586230862553448e3 * t44989 + 0.2774026320e3 * t44998 - 0.1387013160e3 * t45001 - 0.3748710600600336e4 * t45012 + 0.1457831900233464e4 * t45014 + 0.1576034486738880e4 * t45023 - 0.630413794695552e3 * t45026 - 0.238906929589888e3 * t45035 + 0.93485320274304e2 * t45038 - 0.668391293857392e3 * t45049;
30253   t47465 = 0.286453411653168e3 * t45051 + 0.1360653705352548e4 * t45060 - 0.1707093120e3 * t45062 + 0.853546560e2 * t45068 - 0.370046059419120e3 * t45079 + 0.136332758733360e3 * t45081 + t15744 - t15745 + t15746 - t15747 + t15748 - t15749 + t15751 - t15752 + t15753 - t15754;
30254   t47468 = t3363 * t37031;
30255   t47473 = t11212 * t47390;
30256   t47475 = t23156 * t47399;
30257   t47477 = t15755 - t15756 + t15757 - t15758 - t15759 + t15760 - t15761 - t15765 - t15766 + t15767 - t15768 + 0.1933560528658884e4 * t7960 * t47468 + 0.17241408888541200e5 * t23161 * t47399 - 0.128064e3 * t47473 + 0.192096e3 * t47475;
30258   t47478 = t7952 * t47402;
30259   t47480 = t7952 * t47468;
30260   t47484 = t442 * t922 * t444 * t13675;
30261   t47486 = t13646 * t7604;
30262   t47487 = t23898 * t47486;
30263   t47489 = t13657 * t12656;
30264   t47490 = t7592 * t47489;
30265   t47492 = t7592 * t47381;
30266   t47494 = t32232 * t47384;
30267   t47496 = t11212 * t47387;
30268   t47498 = -0.128064e3 * t47478 + 0.64032e2 * t47480 + 0.60030000000000000000e1 * t47484 + 0.72036e2 * t47487 - 0.72036e2 * t47490 + 0.72036e2 * t47492 - 0.256128e3 * t47494 + 0.192096e3 * t47496 + t11300 + t11308 - t11315 + t11327 - t11333 + t11341 + t11350;
30269   t47508 = t23808 * t15620;
30270   t47510 = t5657 * t15624;
30271   t47512 = t11328 * t15630;
30272   t47517 = t11358 - t11375 - t11381 - t11392 - t11398 + 0.38314241974536000e5 * t11386 * t15630 - 0.11703259366767360000e6 * t11394 * t15696 - 0.60605866338995250e5 * t11342 * t15696 + 0.16982962545542625000e6 * t11352 * t15701 + 0.30015000000000000000e3 * t47508 - 0.74704000000000000000e3 * t47510 + 0.480240e3 * t47512 - 0.315206897347776e3 * t43058 - 0.185023029709560e3 * t43062 + 0.68166379366680e2 * t43065;
30273   t47540 = 0.293115431276724e3 * t43068 - 0.111663021438752e3 * t43070 - 0.119453464794944e3 * t43078 + 0.46742660137152e2 * t43081 - 0.533466600e2 * t43083 + 0.266733300e2 * t43085 - 0.766284839490720e3 * t43088 - 0.3483112906776000e4 * t43091 + 0.1451297044490000e4 * t43097 + 0.788017243369440e3 * t43099 + 0.52214284845903600e5 * t11292 * t15714 + 0.82347801932106480000e5 * t5627 * t15714 - 0.20688301952728800000e5 * t5514 * t15696 + 0.7957039212588000e4 * t11342 * t15701 + 0.12074791410156800000e6 * t5639 * t15701 - 0.41797354881312000e5 * t11359 * t15709;
30274   t47570 = -0.16197084278729280000e6 * t5648 * t15709 + 0.25606396800000000000e4 * t11180 * t15624 - 0.5012934703930440e4 * t11328 * t15624 + 0.17724304846039770000e5 * t11336 * t15630 - 0.25216551787822080e5 * t11309 * t15719 - 0.14282479486352000000e5 * t32164 * t15719 + 0.4206839412343680e4 * t45287 * t15724 - 0.37342662000000000000e4 * t5505 * t15630 + 0.34447610924435520e5 * t11359 * t15701 - 0.91184852447035200000e5 * t11377 * t15709 - 0.6475806039834600e4 * t11292 * t15709 + 0.16462180617053220000e5 * t11302 * t15714 - 0.5334666000e3 * t11170 * t15620 + t11402 - t11404;
30275   t47571 = t45442 * t13647;
30276   t47573 = t45442 * t13650;
30277   t47575 = t13646 * t2557;
30278   t47576 = t7592 * t47575;
30279   t47578 = t13657 * t2557;
30280   t47579 = t11212 * t47578;
30281   t47581 = t13667 * t2557;
30282   t47582 = t7952 * t47581;
30283   t47586 = t13777 * t2557;
30284   t47591 = t13851 * t2557;
30285   t47602 = t13746 * t2557;
30286   t47607 = 0.4002e1 * t47571 - 0.8004e1 * t47573 + 0.36018e2 * t47576 - 0.64032e2 * t47579 + 0.32016e2 * t47582 + 0.17070931200e4 * t11386 * t15696 - 0.2735545573411056e4 * t7965 * t47586 - 0.185023029709560e3 * t7972 * t47586 + 0.429448190010084e3 * t7978 * t47591 - 0.533466600e2 * t7940 * t47575 + 0.1920479760e3 * t7996 * t47578 - 0.334195646928696e3 * t7952 * t47578 + 0.966780264329442e3 * t7960 * t47581 + 0.853546560e2 * t7983 * t47602 + 0.1915712098726800e4 * t7983 * t47581;
30287   t47613 = t13760 * t2557;
30288   t47630 = t13870 * t2557;
30289   t47642 = -0.5015682585757440e4 * t7990 * t47602 - 0.2424234653559810e4 * t7948 * t47602 + 0.5993986780779750e4 * t7922 * t47613 - 0.954844705510560e3 * t11613 * t47602 + 0.318281568503520e3 * t7948 * t47613 + 0.4528046778808800e4 * t11659 * t47613 - 0.1393245162710400e4 * t7931 * t47586 - 0.5114868719598720e4 * t11588 * t47586 + 0.1491836709882960e4 * t7972 * t47591 + 0.2245849143602904e4 * t11645 * t47591 - 0.630413794695552e3 * t15188 * t47630 - 0.342779507672448e3 * t11559 * t47630 + 0.93485320274304e2 * t15216 * t13888 * t2557 - 0.2240559720e3 * t11693 * t47581 + 0.1148253697481184e4 * t7931 * t47613;
30290   t47655 = -0.213119529983280e3 * t45109 + 0.143531712185148e3 * t45115 - 0.580518817796000e3 * t45142 + 0.232207527118400e3 * t45146 - 0.208261700033352e3 * t45150 + 0.78801724336944e2 * t45155 - 0.266733300e2 * t45162 + 0.462337720e2 * t45167 - 0.213386640e2 * t45172 - 0.19476108390480e2 * t45176 + 0.27915755359688e2 * t45180 + 0.550558785790140e3 * t45184 - t11410 + t11411 + t11418 - t11419;
30291   t47661 = -t11423 + t11427 + t11431 - t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456 - t11475 + t11483 - 0.67487851161372000000e4 * t45190 + 0.4305951365554440e4 * t45195 - 0.372959177470740e3 * t45199;
30292   t47677 = -0.10387257808256e2 * t45216 - 0.95484470551056e2 * t45221 + 0.151183745039172e3 * t45225 - 0.63656313700704e2 * t45232 + 0.383142419745360e3 * t45236 + 0.10701039554547066667e4 * t45242 + 0.61645029333333333333e3 * t45244 - 0.35564440000000000000e3 * t45248 - 0.69420566677784000000e4 * t45250 + 0.28893965590212800000e4 * t45254 - 0.2667333000e3 * t45258 + 0.15599165597387300000e5 * t45263 - 0.13792201301819200000e4 * t45271 + 0.7662848394907200e4 * t45275 - 0.13545439081906666667e5 * t45279;
30293   t47692 = -0.43280240867733333333e3 * t45285 - 0.1432267058265840e4 * t45290 + 0.27717019923848200000e4 * t45296 - 0.681663793666800e3 * t45300 + 0.61922007231573333333e4 * t45302 - 0.9323979436768500e4 * t45306 - t11487 + t11489 + 0.1387013160e3 * t43104 - 0.693506580e2 * t43106 + 0.1625452689828800e4 * t43118 - 0.696622581355200e3 * t43121 - 0.2424234653559810e4 * t43123 + 0.932397943676850e3 * t43125 - 0.20010e2 * t42908;
30294   t47698 = t4504 * t922 * t1425;
30295   t47723 = 0.77816666666666666667e2 * t42910 - 0.853546560e2 * t43136 + 0.426773280e2 * t43138 - 0.334195646928696e3 * t43140 - 0.23871117637764000000e4 * t45591 * t47698 - 0.36224374230470400e5 * t32459 * t47698 + 0.12539206464393600e5 * t45686 * t47698 + 0.48591252836187840000e5 * t32540 * t47698 - 0.15664285453771080000e5 * t45653 * t47698 - 0.12620518237031040000e4 * t45578 * t47698 + 0.11202798600e4 * t32420 * t47698 - 0.10334283277330656e5 * t22281 * t47698 + 0.27355455734110560e5 * t22182 * t47698 + 0.19427418119503800000e4 * t22522 * t47698 - 0.49386541851159660000e4 * t22488 * t47698 + 0.1600399800e3 * t22501 * t47698;
30296   t47755 = -0.7681919040e3 * t22516 * t47698 + 0.15038804111791320000e4 * t22472 * t47698 - 0.53172914538119310000e4 * t22484 * t47698 - 0.11494272592360800e5 * t22558 * t47698 + 0.35109778100302080e5 * t22571 * t47698 - 0.5121279360e3 * t45564 * t47698 + 0.62064905858186400000e4 * t32445 * t47698 - 0.24704340579631944e5 * t32521 * t47698 + 0.7564965536346624e4 * t45666 * t47698 + 0.42847438459056000000e4 * t32568 * t47698 + 0.18181759901698575000e5 * t22176 * t47698 - 0.50948887636627875000e5 * t22275 * t47698 + 0.159140784251760e3 * t43142 + 0.1915712098726800e4 * t43144 + 0.143226705826584e3 * t43162;
30297   t47771 = 0.680326852676274e3 * t43164 - 0.302367490078344e3 * t43166 - 0.350109725353872e3 * t43171 + 0.10224956905002000000e3 * t43173 - 0.16051559331820600000e3 * t43175 + 0.64920361301600000000e2 * t43177 + 0.400099950e2 * t43180 - 0.924675440e2 * t43182 - 0.23398748396080950000e4 * t43184 + 0.10123177674205800000e4 * t43186 - 0.645892704833166e3 * t43188 + 0.1041308500166760e4 * t43190 - 0.928830108473600e3 * t43192 + 0.13985969155152750000e4 * t43194 + 0.533466600e2 * t43196;
30298   t47779 = 0.21484005873987600000e3 * t43198 - 0.41575529885772300000e3 * t43200 + 0.20688301952728800000e3 * t43204 - 0.1149427259236080e4 * t43206 + 0.2031815862286000e4 * t43208 - 0.433409483853192e3 * t43210 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956;
30299   t47780 = t13760 * t7604;
30300   t47783 = t13777 * t12656;
30301   t47786 = t3375 * t37031;
30302   t47793 = t13746 * t7604;
30303   t47796 = t13760 * t12656;
30304   t47799 = t3369 * t37031;
30305   t47808 = -t3965 - t3989 + t3991 + t3994 + t4003 + 0.83915814930916500e5 * t22877 * t47780 - 0.35963920684678500e5 * t7922 * t47783 + 0.11987973561559500e5 * t7922 * t47786 - 0.7662848394907200e4 * t7983 * t47402 + 0.3831424197453600e4 * t7983 * t47468 - 0.55172508443331840e5 * t23128 * t47793 + 0.25078412928787200e5 * t7990 * t47796 - 0.10031365171514880e5 * t7990 * t47799 - 0.29090815842717720e5 * t22899 * t47793 + 0.12121173267799050e5 * t7948 * t47796 - 0.4848469307119620e4 * t7948 * t47799;
30306   t47814 = t32354 * t47698;
30307   t47816 = t44924 * t47698;
30308   t47818 = t22419 * t47698;
30309   t47825 = 0.18676000000000000000e2 * t42914 + 0.60030000000000000000e1 * t42916 - 0.23345000000000000000e2 * t42918 + 0.22411200000000000000e3 * t47814 - 0.14407200000000000000e3 * t47816 - 0.90045000000000000000e2 * t47818 + t11541 - t15774 + t15775 - t15776 + 0.3250905379657600e4 * t45394 - 0.1393245162710400e4 * t45396 - 0.4848469307119620e4 * t45405 + 0.1864795887353700e4 * t45408 - 0.604734980156688e3 * t45416;
30310   t47834 = -t11655 + t11657 - t11670 + t11672 + t11688 - t11691 - t11701 + t11703 - 0.10672e2 * t45440 - 0.8004e1 * t45450 - 0.8004e1 * t45453 + 0.728915950116732e3 * t43274 + 0.4129190893426050e4 * t43279 - 0.1651676357370420e4 * t43281 - 0.1811516004857880e4 * t43283;
30311   t47845 = t42 * t922 * t4505;
30312   t47853 = 0.745918354941480e3 * t43285 + 0.1148253697481184e4 * t43291 - 0.430595136555444e3 * t43293 - 0.1874355300300168e4 * t43295 - 0.12450666666666666667e3 * t45468 - 0.40020e2 * t45470 + 0.15563333333333333333e3 * t45474 + 0.18676e2 * t45478 + 0.37352000000000000000e2 * t45480 - 0.20010e2 * t47845 - 0.716133529132920e3 * t43397 + 0.13858509961924100000e4 * t43399 - 0.68961006509096000000e3 * t43401 + 0.3831424197453600e4 * t43403 + 0.275279392895070e3 * t43407 - 0.106559764991640e3 * t43410;
30313   t47873 = 0.71765856092574e2 * t43418 - 0.104130850016676e3 * t43420 - 0.67727195409533333333e4 * t43428 + 0.14446982795106400000e4 * t43432 - 0.340831896833400e3 * t43434 + 0.53505197772735333333e3 * t43436 - 0.21640120433866666667e3 * t43438 - 0.1333666500e3 * t43440 + 0.30822514666666666667e3 * t43442 + 0.30961003615786666667e4 * t43444 - 0.4661989718384250e4 * t43446 - 0.17782220000000000000e3 * t43448 + 0.8004e1 * t45511 + 0.58864608124514400e5 * t32695 * t47780 + 0.56028e2 * t45520;
30314   t47879 = t13777 * t7604;
30315   t47882 = t13851 * t12656;
30316   t47885 = t3456 * t37031;
30317   t47906 = -0.37352e2 * t45522 - 0.27168280672852800e5 * t11659 * t47783 + 0.9056093557617600e4 * t11659 * t47786 - 0.20898677440656000e5 * t22884 * t47879 + 0.9752716138972800e4 * t7931 * t47882 - 0.2786490325420800e4 * t7931 * t47885 - 0.81837899513579520e5 * t33486 * t47879 + 0.35804081037191040e5 * t11588 * t47882 - 0.10229737439197440e5 * t11588 * t47885 + 0.26853060777893280e5 * t22905 * t47405 - 0.11934693679063680e5 * t7972 * t47409 + 0.2983673419765920e4 * t7972 * t47412 - 0.4267732800e3 * t7983 * t47796 + 0.1707093120e3 * t7983 * t47799 - 0.9548447055105600e4 * t32721 * t47793;
30318   t47936 = 0.4774223527552800e4 * t11613 * t47796 - 0.1909689411021120e4 * t11613 * t47799 + 0.3819378822042240e4 * t22899 * t47780 - 0.1909689411021120e4 * t7948 * t47783 - 0.53360e2 * t45534 + 0.32016e2 * t45536 + 0.636563137007040e3 * t7948 * t47786 + 0.186970640548608e3 * t15216 * t10191 * t37031 - 0.15683918040e4 * t32749 * t47399 + 0.8962238880e3 * t11693 * t47402 - 0.4481119440e3 * t11693 * t47468 + 0.17223805462217760e5 * t22884 * t47780 - 0.6889522184887104e4 * t7931 * t47783 + 0.2296507394962368e4 * t7931 * t47786 - 0.26680e2 * t42935;
30319   t47953 = 0.16008e2 * t42938 + 0.4002e1 * t42945 + 0.28014e2 * t42952 - 0.18676e2 * t42955 - 0.106693320e2 * t43486 - 0.47742235275528e2 * t43488 + 0.75591872519586e2 * t43490 + 0.116103763559200e3 * t43527 - 0.186479588735370e3 * t43530 + 0.77995827986936500000e4 * t43532 - 0.33743925580686000000e4 * t43534 + 0.2152975682777220e4 * t43536 - 0.34710283338892000000e4 * t43539 - 0.31828156850352e2 * t43541 + 0.191571209872680e3 * t43543 - 0.290259408898000e3 * t43545;
30320   t47980 = 0.39400862168472e2 * t43548 - 0.9738054195240e1 * t43550 + 0.13957877679844e2 * t43552 - 0.5193628904128e1 * t43561 - 0.133366650e2 * t43566 + 0.231168860e2 * t43568 + 0.7681919040e3 * t23161 * t47793 - 0.46504274747987952e5 * t23141 * t47879 + 0.19148819013877392e5 * t7965 * t47882 - 0.5471091146822112e4 * t7965 * t47885 - 0.3330414534772080e4 * t22905 * t47879 + 0.1295161207966920e4 * t7972 * t47882 - 0.370046059419120e3 * t7972 * t47885 + 0.8588963800201680e4 * t22860 * t47405 - 0.3435585520080672e4 * t7978 * t47409;
30321   t48000 = 0.858896380020168e3 * t7978 * t47412 - 0.1600399800e3 * t22889 * t47486 + 0.1066933200e3 * t7940 * t47489 + 0.20449913810004000000e3 * t45567 - 0.32103118663641200000e3 * t45571 + 0.12984072260320000000e3 * t45575 + 0.42968011747975200000e3 * t45581 - 0.83151059771544600000e3 * t45585 + 0.41376603905457600000e3 * t45589 - 0.2298854518472160e4 * t45597 - 0.700219450707744e3 * t45605 + 0.318281568503520e3 * t45607 + 0.3831424197453600e4 * t45615 - 0.1532569678981440e4 * t45617 - 0.6966225813552000e4 * t45625 + 0.2902594088980000e4 * t45628;
30322   t48004 = t43 * t2557 * t4505;
30323   t48007 = -0.223326042877504e3 * t45632 + t15777 - t15778 - t15779 - t15780 + t15781 - t15782 + t15783 - t15785 + t15786 - t15787 + t15788 - t15789 - 0.4002e1 * t48004 - 0.46797496792161900000e4 * t45647;
30324   t48018 = 0.20246355348411600000e4 * t45651 - 0.1291785409666332e4 * t45656 + 0.2082617000333520e4 * t45660 - 0.866818967706384e3 * t45664 + 0.800199900e2 * t45669 - 0.1849350880e3 * t45674 + 0.1066933200e3 * t45678 + 0.4063631724572000e4 * t45680 - 0.1857660216947200e4 * t45684 + 0.27971938310305500000e4 * t45689 + t15790 - t15791 + t15792 - t15793 - t15794 + t15795;
30325   t48024 = t14008 * t2582;
30326   t48028 = t13693 * t184 * t933;
30327   t48031 = t4518 * t2582;
30328   t48032 = t48031 * t184;
30329   t48035 = t3342 * t13044;
30330   t48038 = t13999 * t2593;
30331   t48041 = t3529 * t12695;
30332   t48044 = t3529 * t12673;
30333   t48049 = t10253 * t4285;
30334   t48058 = -0.24e2 * t23950 * t48038 - 0.2e1 * t2835 * t48024 - 0.2e1 * t2835 * t48028 - 0.4e1 * t2835 * t48044 - 0.4e1 * t2835 * t48049 - t2843 * t48024 - 0.2e1 * t2843 * t48044 - 0.2e1 * t2843 * t48049 + 0.6e1 * t48032 * t8315 + 0.6e1 * t48032 * t8323 + t48032 * t8335 + 0.2e1 * t48035 * t8335 + 0.12e2 * t48041 * t8315;
30335   t48064 = t14008 * t2593;
30336   t48069 = t15635 * t466;
30337   t48070 = t48069 * t184;
30338   t48096 = -0.280e3 / 0.3e1 * t42854 - 0.6e1 * t42856 - 0.6e1 * t42859 + 0.14e2 * t42873 - 0.8e1 * t42886 + 0.18e2 * t44918 - 0.70e2 * t44922 - t15623 + t15627 - t15633 - 0.192e3 * t47473 + 0.288e3 * t47475 - 0.192e3 * t47478 + 0.96e2 * t47480 + 0.9e1 * t47484 + 0.108e3 * t47487 - 0.108e3 * t47490;
30339   t48108 = 0.108e3 * t47492 - 0.384e3 * t47494 + 0.288e3 * t47496 + 0.450e3 * t47508 - 0.1120e4 * t47510 + 0.720e3 * t47512 + t11178 - t11188 + 0.6e1 * t47571 - 0.12e2 * t47573 + 0.54e2 * t47576 - 0.96e2 * t47579 + 0.48e2 * t47582 - t11206 + t11209 + t11225 - t11229;
30340   t48120 = -t11231 + t11235 - 0.30e2 * t42908 + 0.350e3 / 0.3e1 * t42910 - t3854 + t3862 + 0.28e2 * t42914 + 0.9e1 * t42916 - 0.35e2 * t42918 + 0.336e3 * t47814 - 0.216e3 * t47816 - 0.135e3 * t47818 - t15628 + t15629 - t15634 - 0.16e2 * t45440 - 0.12e2 * t45450;
30341   t48139 = -0.12e2 * t45453 - 0.560e3 / 0.3e1 * t45468 - 0.60e2 * t45470 + 0.700e3 / 0.3e1 * t45474 + 0.28e2 * t45478 + 0.56e2 * t45480 - 0.30e2 * t47845 + 0.12e2 * t45511 + 0.84e2 * t45520 - 0.56e2 * t45522 - 0.80e2 * t45534 + 0.48e2 * t45536 - 0.40e2 * t42935 + 0.24e2 * t42938 + 0.6e1 * t42945 + 0.42e2 * t42952 - 0.28e2 * t42955 - 0.6e1 * t48004;
30342   t48141 = t48096 + t48108 + t48120 + t48139;
30343   t48147 = t184 * t48141 * t616 * t617 - t24084 * t48038 - 0.12e2 * t24086 * t48038 - 0.36e2 * t24093 * t48038 - 0.2e1 * t2835 * t48070 - t2843 * t48028 - t2843 * t48070 + 0.12e2 * t48035 * t8315 + 0.12e2 * t48035 * t8323 + 0.12e2 * t48041 * t8323 + 0.2e1 * t48041 * t8335 + 0.6e1 * t48064 * t8315 + 0.6e1 * t48064 * t8323 + t48064 * t8335;
30344   t48149 = my_piecewise3(t102, t45423 + t47755 + t47642 + t47677 + t48000 + t47936 + t47661 + t47906 + t47771 + t47808 + t47953 + t47873 + t47779 + t47607 + t47655 + t47692 + t48018 + t47825 + t47980 + t47458 + t47853 + t47441 + t47498 + t47834 + t47517 + t47570 + t47477 + t47465 + t47540 + t47723 + t47408 + t48007, t48058 + t48147);
30345   t48154 = t9542 * t4300;
30346   t48157 = t15607 * t477;
30347   t48166 = t1194 * t4372;
30348   t48181 = t3292 * t12706;
30349   t48192 = -t405 * t2600 * t4607 - t405 * t477 * t15819 - 0.2e1 * t405 * t4496 * t2846 - t405 * t943 * t14020 + 0.1174e1 * t48149 + 0.16e2 * t3291 * t15607 * t474 + 0.16e2 * t13624 * t48154 - 0.24e2 * t13617 * t48157 - 0.2e1 * t405 * t13721 * t1027 - 0.2e1 * t405 * t4529 * t2846 + 0.8e1 * t3291 * t48166 * t477 - 0.2e1 * t405 * t15613 * t621 + 0.2e1 * t405 * t940 * t13720 * t187 + 0.2e1 * t405 * t2597 * t4528 * t187 - 0.16e2 * t13624 * t48181 + 0.48e2 * t9531 * t4501 * t940 * t477 + 0.48e2 * t9531 * t4501 * t943 * t474;
30350   t48205 = t13635 * t943;
30351   t48253 = -t4519 * t1498 * t2594 / 0.10e2 + 0.3e1 / 0.25e2 * t12685 * t12696 - t470 * t48141 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t4519 * t2590 + t1499 * t4514 * t2582 * t91 / 0.100e3 + t1499 * t48069 * t91 / 0.100e3 + t1499 * t13693 * t933 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t1189 * t1492 * t12673 - 0.3e1 / 0.50e2 * t1189 * t12696 + 0.3e1 / 0.50e2 * t4519 * t42978 - 0.3e1 / 0.50e2 * t1189 * t12692 - 0.3e1 / 0.100e3 * t4515 * t11250 - 0.3e1 / 0.50e2 * t3334 * t15641;
30352   t48275 = t4970 * t4514;
30353   t48283 = t4515 * t89;
30354   t48290 = -0.3e1 / 0.100e3 * t13694 * t4290 - 0.3e1 / 0.100e3 * t4515 * t2594 - 0.3e1 / 0.100e3 * t15636 * t2587 - t4970 * t48031 * t91 / 0.100e3 + t1499 * t3339 * t4285 / 0.50e2 + t1499 * t1191 * t12673 / 0.50e2 + 0.3e1 / 0.20e2 * t4519 * t933 * t2587 + t56 * t48141 * t91 / 0.100e3 - t48275 * t2594 / 0.100e3 + 0.3e1 / 0.25e2 * t12685 * t12692 + t17136 * t4518 * t2594 / 0.100e3 + 0.3e1 / 0.50e2 * t48283 * t2594 - t12703 * t12696 / 0.50e2 - t12703 * t12692 / 0.50e2;
30355   t48296 = t4501 * t2600;
30356   t48299 = t9538 * t4300;
30357   t48308 = t15664 * t187;
30358   t48314 = t4528 * t1027;
30359   t48321 = 0.48e2 * t13617 * t3292 * t943 * t3346 - 0.32e2 * t3291 * t3292 * t12603 - 0.4e1 * t3291 * t13638 * t2600 - 0.16e2 * t9535 * t15594 - 0.24e2 * t13617 * t48205 - 0.24e2 * t9531 * t13728 * t12581 - 0.4e1 * t3291 * t41272 * t943 - 0.4e1 * t9535 * t15610 - 0.4e1 * t405 * t4301 * t3538 + 0.2e1 * t405 * t94 * (t48253 + t48290) * t187 + 0.24e2 * t13617 * t48296 - 0.16e2 * t13624 * t48299 + 0.16e2 * t3291 * t13635 * t940 - 0.16e2 * t3291 * t4501 * t2597 - 0.4e1 * t3291 * t48308 * t477 - 0.4e1 * t12596 * t13639 + 0.4e1 * t3291 * t48314 * t477 + 0.4e1 * t3291 * t40044 * t943;
30360   t48347 = t4300 * t1241;
30361   t48371 = 0.8e1 * t3291 * t40098 * t943 + 0.8e1 * t3291 * t40094 * t943 + 0.8e1 * t9535 * t15672 + 0.2e1 * t405 * t474 * t15664 * t187 + 0.2e1 * t1369 * t15684 * t477 - 0.4e1 * t405 * t3347 * t4372 - 0.4e1 * t405 * t1195 * t13056 - 0.4e1 * t405 * t3296 * t4372 + 0.8e1 * t3291 * t48347 * t477 + 0.8e1 * t12596 * t13729 + 0.8e1 * t3291 * t13728 * t2600 - 0.96e2 * t41285 * t4501 * t12581 - 0.4e1 * t405 * t48154 + 0.4e1 * t405 * t48181 - 0.2e1 * t405 * t13642 * t1027 - 0.2e1 * t405 * t15665 * t621 - 0.8e1 * t40105 * t12587;
30362   t48372 = t12714 * t3346;
30363   t48419 = -0.4e1 * t405 * t48372 - 0.8e1 * t40105 * t12611 + 0.12e2 * t4747 * t4496 * t2517 + 0.4e1 * t1369 * t48157 - 0.4e1 * t405 * t4271 * t3538 - 0.4e1 * t405 * t12603 * t1241 - 0.4e1 * t405 * t12599 * t1241 - 0.4e1 * t405 * t12707 * t1241 - 0.4e1 * t1369 * t48296 + 0.4e1 * t1369 * t48205 - 0.4e1 * t405 * t12614 * t1241 + 0.48e2 * t13617 * t3292 * t4300 * t477 + 0.4e1 * t405 * t48299 + 0.8e1 * t1369 * t4497 * t2846 - 0.32e2 * t3291 * t3292 * t12614 + 0.12e2 * t9531 * t13638 * t12581 + 0.16e2 * t13624 * t48372 - t101 * t48149;
30364   t48427 = t3547 * t1180 * t15822;
30365   t48431 = 0.12369750000000000000e1 * t40018 * t1038;
30366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30367     v4rhosigmatau2[0] = -t47362 - t3286 * t47363 * t392 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1180 * (t48192 + t48321 + t48371 + t48419) * t204 - 0.24739500000000000000e1 * t48427 * t644 + t48431 + 0.12369750000000000000e1 * t40029 * t2859 + 0.92773125000000000000e0 * t41302 * t1038 + 0.11132775000000000000e2 * t13075 * t4610 * t1860 * t19 * t2869 - 0.12369750000000000000e1 * t14029 * t2875 - 0.30203104535893596325e2 * t10287 * t4610 * t2879 * t26 * t1878;
30368 
30369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30370     v4rhosigmatau2[1] = 0.0e0;
30371 
30372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30373     v4rhosigmatau2[2] = 0.0e0;
30374 
30375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30376     v4rhosigmatau2[3] = 0.0e0;
30377 
30378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30379     v4rhosigmatau2[4] = 0.0e0;
30380 
30381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30382     v4rhosigmatau2[5] = 0.0e0;
30383 
30384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30385     v4rhosigmatau2[6] = 0.0e0;
30386 
30387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30388     v4rhosigmatau2[7] = 0.0e0;
30389 
30390   t48449 = t10336 * t16063 / 0.2e1;
30391   t48450 = t210 * t16061;
30392   t48455 = 0.12369750000000000000e1 * t41356 * t1173;
30393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30394     v4rhosigmatau2[8] = -t48449 - t3286 * t48450 * t651 / 0.2e1 + t48455 + 0.12369750000000000000e1 * t41360 * t2895;
30395 
30396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30397     v4rhosigmatau2[9] = -t47362 - t3286 * t47363 * t663 / 0.2e1 + t48431 + 0.12369750000000000000e1 * t40029 * t2906;
30398 
30399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30400     v4rhosigmatau2[10] = 0.0e0;
30401 
30402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30403     v4rhosigmatau2[11] = 0.0e0;
30404 
30405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30406     v4rhosigmatau2[12] = 0.0e0;
30407 
30408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30409     v4rhosigmatau2[13] = 0.0e0;
30410 
30411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30412     v4rhosigmatau2[14] = 0.0e0;
30413 
30414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30415     v4rhosigmatau2[15] = 0.0e0;
30416 
30417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30418     v4rhosigmatau2[16] = 0.0e0;
30419 
30420   t48470 = t14210 * t2954;
30421   t48473 = t14073 * t2954;
30422   t48479 = t4623 * t1057 * t1425;
30423   t48502 = 0.853546560e2 * t8874 * t48470 + 0.966780264329442e3 * t8867 * t48473 - 0.954844705510560e3 * t12309 * t48470 - 0.7681919040e3 * t26433 * t48479 + 0.11202798600e4 * t35242 * t48479 - 0.5121279360e3 * t46918 * t48479 - 0.53172914538119310000e4 * t27108 * t48479 + 0.62064905858186400000e4 * t35284 * t48479 - 0.23871117637764000000e4 * t46894 * t48479 + 0.35109778100302080e5 * t27096 * t48479 - 0.36224374230470400e5 * t35119 * t48479 + 0.12539206464393600e5 * t46909 * t48479 - 0.50948887636627875000e5 * t27053 * t48479 + 0.1457831900233464e4 * t46191 + 0.1576034486738880e4 * t46203;
30424   t48504 = t223 * t2954 * t4624;
30425   t48506 = t46775 * t48479;
30426   t48508 = -0.4002e1 * t48504 - 0.14407200000000000000e3 * t48506 - t15924 + t15925 - t15926 + t12056 + t12064 - t12071 - t12079 + t12093 + t12101 - t12108 + t12120 - t12126 + t12141;
30427   t48518 = t222 * t1057 * t4624;
30428   t48520 = t35335 * t48479;
30429   t48522 = t25490 * t48479;
30430   t48524 = t7069 * t15862;
30431   t48526 = t12121 * t15868;
30432   t48528 = t14090 * t2954;
30433   t48529 = t11966 * t48528;
30434   t48531 = t8859 * t48473;
30435   t48533 = t25643 * t15858;
30436   t48535 = -t12148 - t12154 + 0.38314241974536000e5 * t12142 * t15868 + 0.25606396800000000000e4 * t11923 * t15862 - 0.133366650e2 * t44083 - 0.47742235275528e2 * t44091 - 0.9738054195240e1 * t44108 - 0.20010e2 * t48518 + 0.22411200000000000000e3 * t48520 - 0.90045000000000000000e2 * t48522 - 0.74704000000000000000e3 * t48524 + 0.480240e3 * t48526 - 0.64032e2 * t48529 + 0.32016e2 * t48531 + 0.30015000000000000000e3 * t48533;
30437   t48536 = t46636 * t14081;
30438   t48538 = t46636 * t14084;
30439   t48540 = t14080 * t2954;
30440   t48541 = t8621 * t48540;
30441   t48566 = 0.4002e1 * t48536 - 0.8004e1 * t48538 + 0.36018e2 * t48541 + 0.60030000000000000000e1 * t43897 - 0.23345000000000000000e2 * t43899 + 0.18676000000000000000e2 * t43901 + 0.7564965536346624e4 * t46967 * t48479 - 0.49386541851159660000e4 * t26424 * t48479 + 0.42847438459056000000e4 * t35172 * t48479 - 0.12620518237031040000e4 * t46939 * t48479 - 0.11494272592360800e5 * t27119 * t48479 + 0.18181759901698575000e5 * t27076 * t48479 - 0.10334283277330656e5 * t27035 * t48479 + 0.19427418119503800000e4 * t26327 * t48479 + 0.1600399800e3 * t26337 * t48479 + 0.15038804111791320000e4 * t27040 * t48479;
30442   t48588 = 0.48591252836187840000e5 * t35158 * t48479 - 0.15664285453771080000e5 * t46954 * t48479 + 0.27355455734110560e5 * t26824 * t48479 - 0.24704340579631944e5 * t35215 * t48479 - 0.119453464794944e3 * t44131 + 0.46742660137152e2 * t44134 + 0.1387013160e3 * t44136 - 0.693506580e2 * t44138 + 0.4129190893426050e4 * t44141 - 0.1651676357370420e4 * t44144 - 0.1874355300300168e4 * t44202 + 0.728915950116732e3 * t44205 + 0.788017243369440e3 * t44208 - 0.315206897347776e3 * t44211 - 0.350109725353872e3 * t44214;
30443   t48604 = 0.159140784251760e3 * t44217 - 0.3483112906776000e4 * t44219 + 0.1451297044490000e4 * t44221 + 0.1625452689828800e4 * t44223 - 0.696622581355200e3 * t44227 + 0.1148253697481184e4 * t44229 - 0.430595136555444e3 * t44231 - 0.185023029709560e3 * t44235 + 0.68166379366680e2 * t44237 - 0.853546560e2 * t44253 + 0.426773280e2 * t44256 + 0.293115431276724e3 * t44258 - 0.111663021438752e3 * t44260 - 0.1811516004857880e4 * t44262 + 0.745918354941480e3 * t44264;
30444   t48616 = -0.533466600e2 * t44268 + 0.266733300e2 * t44270 - 0.334195646928696e3 * t44274 + 0.143226705826584e3 * t44280 + 0.1915712098726800e4 * t44284 - 0.766284839490720e3 * t44286 - 0.2424234653559810e4 * t44290 + 0.932397943676850e3 * t44292 + 0.680326852676274e3 * t44294 - 0.302367490078344e3 * t44296 - t15927 + t15928 - t15929 + t15930 + t15931;
30445   t48619 = -t15932 - t15933 + t15935 - t15936 - t15937 + t15938 + t15939 - t15940 + 0.9338e1 * t43911 - t15941 - t15942 + t15943 - t15944 + t15945 - 0.5336e1 * t43924 - t15948;
30446   t48623 = t3643 * t38471;
30447   t48626 = t14226 * t8564;
30448   t48629 = t14170 * t13144;
30449   t48632 = t3649 * t38471;
30450   t48635 = t14170 * t8564;
30451   t48638 = t14174 * t13144;
30452   t48641 = t3655 * t38471;
30453   t48644 = t14080 * t8564;
30454   t48647 = t14090 * t13144;
30455   t48650 = t3583 * t38471;
30456   t48653 = t14090 * t8564;
30457   t48656 = t14073 * t13144;
30458   t48659 = t3600 * t38471;
30459   t48662 = t15949 - t15950 - 0.4848469307119620e4 * t8921 * t48623 + 0.17223805462217760e5 * t26604 * t48626 - 0.6889522184887104e4 * t8854 * t48629 + 0.2296507394962368e4 * t8854 * t48632 - 0.3330414534772080e4 * t26177 * t48635 + 0.1295161207966920e4 * t8909 * t48638 - 0.370046059419120e3 * t8909 * t48641 - 0.1600399800e3 * t26212 * t48644 + 0.1066933200e3 * t8914 * t48647 - 0.1066933200e3 * t8914 * t48650 - 0.2005173881572176e4 * t26689 * t48653 + 0.1002586940786088e4 * t8859 * t48656 - 0.668391293857392e3 * t8859 * t48659;
30460   t48665 = t14184 * t13144;
30461   t48668 = t3661 * t38471;
30462   t48671 = t14184 * t8564;
30463   t48674 = t14287 * t13144;
30464   t48677 = t3788 * t38471;
30465   t48680 = t14174 * t8564;
30466   t48696 = t14210 * t8564;
30467   t48699 = t14226 * t13144;
30468   t48702 = -0.81837899513579520e5 * t35593 * t48635 - 0.17966793148823232e5 * t12362 * t48665 + 0.4491698287205808e4 * t12362 * t48668 - 0.13238689688606592e5 * t44445 * t48671 + 0.5673724152259968e4 * t15494 * t48674 - 0.1260827589391104e4 * t15494 * t48677 + 0.8588963800201680e4 * t26184 * t48680 - 0.3435585520080672e4 * t9242 * t48665 + 0.858896380020168e3 * t9242 * t48668 - 0.7541149168793856e4 * t35618 * t48671 + 0.3085015569052032e4 * t12410 * t48674 - 0.685559015344896e3 * t12410 * t48677 + 0.2243647686583296e4 * t44463 * t14287 * t8564 - 0.29090815842717720e5 * t26195 * t48696 + 0.12121173267799050e5 * t8921 * t48699;
30469   t48704 = t14073 * t8564;
30470   t48707 = t14210 * t13144;
30471   t48710 = t3637 * t38471;
30472   t48737 = 0.7734242114635536e4 * t26683 * t48704 - 0.3867121057317768e4 * t8867 * t48707 + 0.1933560528658884e4 * t8867 * t48710 - 0.9548447055105600e4 * t35968 * t48696 + 0.4774223527552800e4 * t12309 * t48699 - 0.1909689411021120e4 * t12309 * t48623 + 0.35804081037191040e5 * t12396 * t48638 - 0.10229737439197440e5 * t12396 * t48641 + 0.26853060777893280e5 * t26177 * t48680 - 0.11934693679063680e5 * t8909 * t48665 + 0.2983673419765920e4 * t8909 * t48668 - 0.46504274747987952e5 * t26202 * t48635 + 0.19148819013877392e5 * t8902 * t48638 - 0.5471091146822112e4 * t8902 * t48641 + 0.42671133728455176e5 * t36027 * t48680;
30473   t48770 = -0.7662848394907200e4 * t8874 * t48707 + 0.3831424197453600e4 * t8874 * t48710 + 0.9602398800e3 * t25990 * t48653 - 0.5761439280e3 * t9104 * t48656 + 0.3840959520e3 * t9104 * t48659 - 0.15683918040e4 * t35610 * t48704 + 0.8962238880e3 * t12438 * t48707 - 0.4481119440e3 * t12438 * t48710 + 0.7681919040e3 * t26714 * t48696 - 0.4267732800e3 * t8874 * t48699 + 0.1707093120e3 * t8874 * t48623 - 0.934853202743040e3 * t15511 * t41470 * t13144 + 0.186970640548608e3 * t15511 * t10955 * t38471 + 0.17241408888541200e5 * t26714 * t48704 + 0.28893965590212800000e4 * t46273 - 0.681663793666800e3 * t46277;
30474   t48788 = 0.10701039554547066667e4 * t46281 + 0.15599165597387300000e5 * t46283 + 0.53505197772735333333e3 * t44312 - 0.21640120433866666667e3 * t44314 + 0.30822514666666666667e3 * t44316 + 0.77995827986936500000e4 * t44321 - 0.33743925580686000000e4 * t44323 + 0.14446982795106400000e4 * t44325 - 0.68961006509096000000e3 * t44327 - 0.67727195409533333333e4 * t44329 + 0.30961003615786666667e4 * t44331 + 0.2152975682777220e4 * t44333 - 0.340831896833400e3 * t44335 - 0.17782220000000000000e3 * t44337 + 0.27717019923848200000e4 * t46300;
30475   t48817 = 0.61645029333333333333e3 * t46304 - 0.34710283338892000000e4 * t44339 + 0.3819378822042240e4 * t26195 * t48626 - 0.1909689411021120e4 * t8921 * t48629 + 0.636563137007040e3 * t8921 * t48632 - 0.55172508443331840e5 * t26701 * t48696 + 0.25078412928787200e5 * t8880 * t48699 - 0.10031365171514880e5 * t8880 * t48623 + 0.58864608124514400e5 * t35961 * t48626 - 0.27168280672852800e5 * t12333 * t48629 + 0.9056093557617600e4 * t12333 * t48632 - 0.20898677440656000e5 * t26604 * t48635 + 0.9752716138972800e4 * t8854 * t48638 - 0.2786490325420800e4 * t8854 * t48641 + 0.83915814930916500e5 * t26592 * t48626;
30476   t48828 = -0.35963920684678500e5 * t8847 * t48629 + 0.11987973561559500e5 * t8847 * t48632 - 0.26680e2 * t43935 + 0.16008e2 * t43938 + 0.4002e1 * t43946 + 0.28014e2 * t43953 - 0.18676e2 * t43956 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161;
30477   t48838 = -t4170 + t4177 - t4190 + t4196 - t4203 + t4205 + 0.13858509961924100000e4 * t44353 - 0.13792201301819200000e4 * t46378 + 0.7662848394907200e4 * t46382 - 0.35564440000000000000e3 * t46386 - 0.1432267058265840e4 * t46390 - 0.1333666500e3 * t44355 - 0.716133529132920e3 * t44357 + 0.3831424197453600e4 * t44359 - 0.4661989718384250e4 * t44361 - t15952;
30478   t48843 = t15953 - t15954 + t15955 - t15959 + t15960 - t15961 + t15962 - t15963 + t15964 - t15965 + t15966 - t15967 - t15968 + t15970 - t15971;
30479   t48854 = -t15972 + t15973 - 0.186479588735370e3 * t44473 + 0.75591872519586e2 * t44476 - t12162 - t12166 - t12183 + 0.400099950e2 * t44486 + 0.21484005873987600000e3 * t44488 - 0.1149427259236080e4 * t44490 + 0.13985969155152750000e4 * t44492 - 0.41575529885772300000e3 * t44494 + 0.533466600e2 * t44497 - 0.16051559331820600000e3 * t44499 + 0.64920361301600000000e2 * t44501;
30480   t48871 = -0.924675440e2 * t44503 - 0.23398748396080950000e4 * t44505 + 0.10123177674205800000e4 * t44507 + 0.1041308500166760e4 * t44509 - 0.433409483853192e3 * t44511 + 0.20688301952728800000e3 * t44513 + 0.2031815862286000e4 * t44515 - 0.928830108473600e3 * t44517 - 0.645892704833166e3 * t44521 + 0.10224956905002000000e3 * t44523 - 0.4002e1 * t43986 - 0.4002e1 * t43990 - 0.20010e2 * t43992 + 0.77816666666666666667e2 * t43994 - 0.62253333333333333334e2 * t43996;
30481   t48904 = -0.5012934703930440e4 * t12121 * t15862 - 0.16197084278729280000e6 * t7044 * t15999 - 0.37342662000000000000e4 * t7077 * t15868 + 0.17070931200e4 * t12142 * t15983 + 0.17724304846039770000e5 * t12130 * t15868 - 0.20688301952728800000e5 * t7053 * t15983 + 0.7957039212588000e4 * t12048 * t15992 + 0.52214284845903600e5 * t12087 * t16017 - 0.91184852447035200000e5 * t12073 * t15999 + 0.82347801932106480000e5 * t7089 * t16017 - 0.25216551787822080e5 * t12102 * t16024 + 0.16462180617053220000e5 * t12095 * t16017 - 0.14282479486352000000e5 * t35929 * t16024 + 0.4206839412343680e4 * t46624 * t16031 - 0.60605866338995250e5 * t12048 * t15983 + 0.34447610924435520e5 * t12065 * t15992;
30482   t48915 = -0.6475806039834600e4 * t12087 * t15999 - 0.5334666000e3 * t11936 * t15858 + t12185 + t12189 + t12193 - t12197 - t12201 + t12207 + t12211 + t12215 - t12222 + 0.286453411653168e3 * t46434 + 0.1360653705352548e4 * t46444 - 0.604734980156688e3 * t46447 + 0.2774026320e3 * t46454;
30483   t48919 = t707 * t1057 * t709 * t14101;
30484   t48921 = t25633 * t48644;
30485   t48923 = t8621 * t48647;
30486   t48925 = t8621 * t48650;
30487   t48927 = t35819 * t48653;
30488   t48929 = t11966 * t48656;
30489   t48931 = t11966 * t48659;
30490   t48933 = t26689 * t48704;
30491   t48935 = t8859 * t48707;
30492   t48937 = t8859 * t48710;
30493   t48947 = -0.1387013160e3 * t46456 + 0.60030000000000000000e1 * t48919 + 0.72036e2 * t48921 - 0.72036e2 * t48923 + 0.72036e2 * t48925 - 0.256128e3 * t48927 + 0.192096e3 * t48929 - 0.128064e3 * t48931 + 0.192096e3 * t48933 - 0.128064e3 * t48935 + 0.64032e2 * t48937 + 0.16982962545542625000e6 * t12058 * t15992 - 0.11703259366767360000e6 * t12150 * t15983 + 0.12074791410156800000e6 * t7061 * t15992 - 0.41797354881312000e5 * t12065 * t15999;
30494   t48962 = -0.290259408898000e3 * t44592 + 0.116103763559200e3 * t44595 + 0.71765856092574e2 * t44597 - t12226 + t12230 - 0.700219450707744e3 * t46479 + 0.318281568503520e3 * t46482 + 0.3831424197453600e4 * t46490 - 0.1532569678981440e4 * t46492 - 0.1707093120e3 * t46500 + 0.853546560e2 * t46502 - 0.668391293857392e3 * t46511 - 0.19476108390480e2 * t46514 + 0.27915755359688e2 * t46520 - 0.10387257808256e2 * t46526;
30495   t48979 = -0.266733300e2 * t46532 - 0.580518817796000e3 * t46538 + 0.232207527118400e3 * t46544 - 0.372959177470740e3 * t46549 + 0.550558785790140e3 * t46553 - 0.213119529983280e3 * t46557 + 0.143531712185148e3 * t46561 - 0.208261700033352e3 * t46565 + 0.78801724336944e2 * t46569 + 0.462337720e2 * t46574 - 0.10672e2 * t46579 - 0.8004e1 * t46582 + 0.18676e2 * t46587 - 0.40020e2 * t46589 + 0.15563333333333333333e3 * t46593 - 0.67487851161372000000e4 * t46597;
30496   t48988 = 0.4305951365554440e4 * t46601 - 0.69420566677784000000e4 * t46605 - 0.13545439081906666667e5 * t46607 + 0.61922007231573333333e4 * t46611 - 0.9323979436768500e4 * t46615 - t12263 + t12266 - t12269 + t12272 + t12304 - t12307 + t12319 - t12321 - t12329 + t12331;
30497   t49000 = t14226 * t2954;
30498   t49003 = t14170 * t2954;
30499   t49012 = -0.43280240867733333333e3 * t46622 - 0.2667333000e3 * t46627 - 0.12450666666666666667e3 * t46631 - 0.8004e1 * t46645 - 0.213386640e2 * t46650 - 0.95484470551056e2 * t46655 + 0.151183745039172e3 * t46659 - 0.63656313700704e2 * t46663 + 0.383142419745360e3 * t46667 - 0.2424234653559810e4 * t8921 * t48470 + 0.1148253697481184e4 * t8854 * t49000 - 0.185023029709560e3 * t8909 * t49003 - 0.533466600e2 * t8914 * t48540 - 0.334195646928696e3 * t8859 * t48528 - 0.5114868719598720e4 * t12396 * t49003;
30500   t49014 = t14174 * t2954;
30501   t49021 = t14184 * t2954;
30502   t49037 = 0.1491836709882960e4 * t8909 * t49014 - 0.2735545573411056e4 * t8902 * t49003 + 0.2245849143602904e4 * t12362 * t49014 - 0.630413794695552e3 * t15494 * t49021 + 0.429448190010084e3 * t9242 * t49014 - 0.342779507672448e3 * t12410 * t49021 + 0.93485320274304e2 * t15511 * t14287 * t2954 + 0.1915712098726800e4 * t8874 * t48473 + 0.1920479760e3 * t9104 * t48528 - 0.2240559720e3 * t12438 * t48473 + t12345 - t12348 - t12357 + t12360 - t12373;
30503   t49045 = t12378 + t12392 - t12394 + t12404 - t12408 - t12422 + t12424 + t12432 - t12436 + 0.8004e1 * t46693 + 0.56028e2 * t46702 - 0.37352e2 * t46705 - 0.1066933200e3 * t46720 + 0.533466600e2 * t46722 - 0.53360e2 * t46730 + 0.32016e2 * t46732;
30504   t49064 = -0.223326042877504e3 * t46741 - 0.238906929589888e3 * t46754 + 0.93485320274304e2 * t46757 + 0.12006000000000000000e2 * t46767 - 0.46690000000000000000e2 * t46773 + 0.37352000000000000000e2 * t46778 + 0.318281568503520e3 * t8921 * t49000 - 0.5015682585757440e4 * t8880 * t48470 + 0.4528046778808800e4 * t12333 * t49000 - 0.1393245162710400e4 * t8854 * t49003 + 0.5993986780779750e4 * t8847 * t49000 + t12446 - t12449 - t12451 + t12453;
30505   t49079 = t12462 - t12463 - 0.630413794695552e3 * t46784 - 0.370046059419120e3 * t46793 + 0.136332758733360e3 * t46795 - 0.4848469307119620e4 * t46803 - 0.3748710600600336e4 * t46812 - 0.6966225813552000e4 * t46816 + 0.2902594088980000e4 * t46818 + 0.3250905379657600e4 * t46827 - 0.1393245162710400e4 * t46830 - 0.3623032009715760e4 * t46838 + 0.1491836709882960e4 * t46840 + 0.2296507394962368e4 * t46851 - 0.861190273110888e3 * t46853 + 0.586230862553448e3 * t46855;
30506   t49096 = 0.1864795887353700e4 * t46857 + 0.8258381786852100e4 * t46859 - 0.3303352714740840e4 * t46861 + 0.191571209872680e3 * t44632 - 0.106693320e2 * t44641 + 0.13957877679844e2 * t44644 - 0.5193628904128e1 * t44647 + 0.231168860e2 * t44649 + 0.275279392895070e3 * t44651 - 0.106559764991640e3 * t44653 - 0.104130850016676e3 * t44655 + 0.39400862168472e2 * t44657 - 0.31828156850352e2 * t44659 - 0.32103118663641200000e3 * t46880 + 0.42968011747975200000e3 * t46884;
30507   t49113 = -0.83151059771544600000e3 * t46888 + 0.41376603905457600000e3 * t46892 - 0.2298854518472160e4 * t46897 + 0.4063631724572000e4 * t46901 - 0.1857660216947200e4 * t46907 - 0.1849350880e3 * t46912 + 0.1066933200e3 * t46916 + 0.12984072260320000000e3 * t46935 + 0.800199900e2 * t46942 + 0.27971938310305500000e4 * t46946 - 0.46797496792161900000e4 * t46948 + 0.20246355348411600000e4 * t46952 - 0.1291785409666332e4 * t46957 + 0.2082617000333520e4 * t46961 - 0.866818967706384e3 * t46965 + 0.20449913810004000000e3 * t46970;
30508   t49119 = t3803 * t13198;
30509   t49122 = t4637 * t2979;
30510   t49123 = t49122 * t360;
30511   t49125 = t4633 * t2979;
30512   t49126 = t49125 * t360;
30513   t49142 = -0.6e1 * t48504 - 0.216e3 * t48506 - t15861 + t15865 - t15871 - 0.30e2 * t48518 + 0.336e3 * t48520 - 0.135e3 * t48522 - 0.1120e4 * t48524 + 0.720e3 * t48526 - 0.96e2 * t48529 + 0.48e2 * t48531 + 0.450e3 * t48533 + 0.6e1 * t48536 - 0.12e2 * t48538 + 0.54e2 * t48541 + 0.9e1 * t43897;
30514   t49155 = -0.35e2 * t43899 + 0.28e2 * t43901 + 0.14e2 * t43911 - 0.8e1 * t43924 - t15866 + t15867 - t15872 - 0.40e2 * t43935 + 0.24e2 * t43938 + 0.6e1 * t43946 + 0.42e2 * t43953 - 0.28e2 * t43956 - t4076 + t4084 - 0.6e1 * t43986 - 0.6e1 * t43990 - 0.30e2 * t43992;
30515   t49172 = 0.350e3 / 0.3e1 * t43994 - 0.280e3 / 0.3e1 * t43996 + 0.9e1 * t48919 + 0.108e3 * t48921 - 0.108e3 * t48923 + 0.108e3 * t48925 - 0.384e3 * t48927 + 0.288e3 * t48929 - 0.192e3 * t48931 + 0.288e3 * t48933 - 0.192e3 * t48935 + 0.96e2 * t48937 - t11931 + t11944 - 0.16e2 * t46579 - 0.12e2 * t46582 + 0.28e2 * t46587;
30516   t49185 = -0.60e2 * t46589 + 0.700e3 / 0.3e1 * t46593 - 0.560e3 / 0.3e1 * t46631 - 0.12e2 * t46645 + 0.12e2 * t46693 + 0.84e2 * t46702 - 0.56e2 * t46705 - 0.80e2 * t46730 + 0.48e2 * t46732 + 0.18e2 * t46767 - 0.70e2 * t46773 + 0.56e2 * t46778 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
30517   t49187 = t49142 + t49155 + t49172 + t49185;
30518   t49193 = t3616 * t13569;
30519   t49196 = t4410 * t11093;
30520   t49199 = t15898 * t7229;
30521   t49202 = t14435 * t2990;
30522   t49212 = t360 * t49187 * t616 * t881 - t27446 * t49199 - 0.12e2 * t27452 * t49199 - 0.24e2 * t27471 * t49199 - 0.2e1 * t3240 * t49119 - t3240 * t49126 + 0.6e1 * t49123 * t9372 + t49123 * t9392 + 0.12e2 * t49193 * t9380 + 0.12e2 * t49196 * t9380 + 0.2e1 * t49196 * t9392 + 0.6e1 * t49202 * t9372 + 0.6e1 * t49202 * t9380;
30523   t49222 = t11093 * t4399;
30524   t49229 = t42330 * t1068;
30525   t49237 = t15873 * t360;
30526   t49238 = t49237 * t731;
30527   t49242 = -0.36e2 * t27459 * t49199 - 0.4e1 * t3232 * t49119 - 0.2e1 * t3232 * t49126 - 0.4e1 * t3232 * t49222 - 0.2e1 * t3232 * t49229 - 0.2e1 * t3232 * t49238 - 0.2e1 * t3240 * t49222 - t3240 * t49229 - t3240 * t49238 + 0.6e1 * t49123 * t9380 + 0.12e2 * t49193 * t9372 + 0.2e1 * t49193 * t9392 + 0.12e2 * t49196 * t9372 + t49202 * t9392;
30528   t49244 = my_piecewise3(t278, t48502 + t48604 + t48979 + t49064 + t48817 + t49037 + t48838 + t49113 + t49096 + t48854 + t49045 + t48588 + t48770 + t49012 + t48915 + t48962 + t48566 + t48988 + t48904 + t48535 + t48737 + t48508 + t48619 + t48702 + t48788 + t48662 + t48871 + t48828 + t48947 + t48843 + t48616 + t49079, t49212 + t49242);
30529   t49246 = t13239 * t3620;
30530   t49252 = t15845 * t742;
30531   t49300 = t4634 * t265;
30532   t49306 = t2127 * t14120 * t1068 * t267 / 0.100e3 + t2127 * t49125 * t267 / 0.100e3 + t2127 * t3613 * t4399 / 0.50e2 - 0.3e1 / 0.100e3 * t4638 * t2987 + 0.3e1 / 0.50e2 * t4638 * t44019 + t2127 * t15873 * t731 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t1258 * t2120 * t13198 - 0.3e1 / 0.50e2 * t1258 * t13221 - 0.3e1 / 0.100e3 * t4634 * t12006 - 0.3e1 / 0.50e2 * t3608 * t15879 - 0.3e1 / 0.50e2 * t1258 * t13217 + 0.3e1 / 0.50e2 * t49300 * t2991 - t4638 * t2126 * t2991 / 0.10e2;
30533   t49339 = t6534 * t4633;
30534   t49342 = t56 * t49187 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t14121 * t4404 - 0.3e1 / 0.100e3 * t4634 * t2991 + t2127 * t1260 * t13198 / 0.50e2 - t6534 * t49122 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t15874 * t2984 - t735 * t49187 * t267 / 0.100e3 + t20412 * t4637 * t2991 / 0.100e3 + 0.3e1 / 0.20e2 * t4638 * t1068 * t2984 + 0.3e1 / 0.25e2 * t13210 * t13221 + 0.3e1 / 0.25e2 * t13210 * t13217 - t13228 * t13217 / 0.50e2 - t13228 * t13221 / 0.50e2 - t49339 * t2991 / 0.100e3;
30535   t49364 = -t674 * t2997 * t4726 - t674 * t1078 * t14447 + 0.1174e1 * t49244 - 0.4e1 * t674 * t49246 - 0.4e1 * t674 * t4415 * t3812 + 0.4e1 * t2000 * t49252 + 0.8e1 * t10375 * t15910 + 0.2e1 * t674 * t1075 * t14147 * t363 + 0.48e2 * t10371 * t4620 * t1075 * t742 - 0.24e2 * t10371 * t14155 * t13106 - 0.2e1 * t674 * t15851 * t885 + 0.2e1 * t674 * t270 * (t49306 + t49342) * t363 - 0.4e1 * t10375 * t15848 + 0.48e2 * t14044 * t3566 * t1078 * t3620 - 0.96e2 * t42554 * t4620 * t13106 + 0.48e2 * t10371 * t4620 * t1078 * t739 - 0.4e1 * t3565 * t42486 * t1078;
30536   t49380 = t4620 * t2997;
30537   t49383 = t14062 * t1078;
30538   t49392 = t3566 * t13231;
30539   t49395 = t10382 * t4414;
30540   t49401 = t1263 * t4486;
30541   t49416 = 0.2e1 * t674 * t739 * t15902 * t363 - t674 * t742 * t16058 - 0.4e1 * t674 * t13124 * t1310 - 0.4e1 * t674 * t13128 * t1310 - 0.4e1 * t674 * t4385 * t3812 - 0.4e1 * t2000 * t49380 + 0.4e1 * t2000 * t49383 + 0.12e2 * t10371 * t14065 * t13106 - 0.4e1 * t674 * t3570 * t4486 + 0.4e1 * t674 * t49392 - 0.4e1 * t674 * t49395 - 0.4e1 * t674 * t13232 * t1310 + 0.8e1 * t3565 * t49401 * t742 - 0.2e1 * t674 * t4615 * t3243 - 0.24e2 * t14044 * t49252 + 0.16e2 * t14051 * t49395 - 0.16e2 * t14051 * t49392 + 0.8e1 * t13121 * t14156;
30542   t49435 = t4647 * t1162;
30543   t49439 = t10378 * t4414;
30544   t49462 = 0.8e1 * t3565 * t14155 * t2997 - 0.4e1 * t13121 * t14066 + 0.4e1 * t3565 * t42535 * t1078 + 0.2e1 * t2000 * t15922 * t742 - 0.4e1 * t674 * t3621 * t4486 - 0.4e1 * t674 * t1264 * t13581 + 0.4e1 * t3565 * t49435 * t742 + 0.4e1 * t674 * t49439 - t277 * t49244 - 0.16e2 * t14051 * t49439 + 0.16e2 * t14051 * t49246 + 0.16e2 * t3565 * t15845 * t739 - 0.8e1 * t42564 * t13112 + 0.12e2 * t6316 * t4615 * t2914 - 0.8e1 * t42564 * t13136 + 0.8e1 * t2000 * t4616 * t3243 + 0.24e2 * t14044 * t49380;
30545   t49476 = t15902 * t363;
30546   t49503 = t4414 * t1310;
30547   t49519 = 0.16e2 * t3565 * t14062 * t1075 - 0.16e2 * t3565 * t4620 * t2994 - 0.16e2 * t10375 * t15832 - 0.24e2 * t14044 * t49383 + 0.8e1 * t3565 * t42567 * t1078 - 0.4e1 * t3565 * t49476 * t742 - 0.32e2 * t3565 * t3566 * t13139 + 0.48e2 * t14044 * t3566 * t4414 * t742 + 0.2e1 * t674 * t2994 * t4647 * t363 + 0.8e1 * t3565 * t42558 * t1078 - 0.32e2 * t3565 * t3566 * t13128 - 0.2e1 * t674 * t14069 * t1162 - 0.2e1 * t674 * t15903 * t885 + 0.8e1 * t3565 * t49503 * t742 - 0.4e1 * t674 * t13139 * t1310 - 0.2e1 * t674 * t14148 * t1162 - 0.2e1 * t674 * t4648 * t3243 - 0.4e1 * t3565 * t14065 * t2997;
30548   t49527 = t3547 * t1249 * t16061;
30549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30550     v4rhosigmatau2[17] = -t48449 - t3286 * t48450 * t668 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1249 * (t49364 + t49416 + t49462 + t49519) * t377 - 0.24739500000000000000e1 * t49527 * t902 + t48455 + 0.12369750000000000000e1 * t41360 * t3256 + 0.92773125000000000000e0 * t42651 * t1173 + 0.11132775000000000000e2 * t13598 * t4729 * t2486 * t19 * t3264 - 0.12369750000000000000e1 * t14456 * t3270 - 0.30203104535893596325e2 * t11127 * t4729 * t3274 * t214 * t2504;
30551 
30552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30553     v4rholapl3[0] = 0.0e0;
30554 
30555   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30556     v4rholapl3[1] = 0.0e0;
30557 
30558   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30559     v4rholapl3[2] = 0.0e0;
30560 
30561   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30562     v4rholapl3[3] = 0.0e0;
30563 
30564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30565     v4rholapl3[4] = 0.0e0;
30566 
30567   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30568     v4rholapl3[5] = 0.0e0;
30569 
30570   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30571     v4rholapl3[6] = 0.0e0;
30572 
30573   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30574     v4rholapl3[7] = 0.0e0;
30575 
30576   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30577     v4rholapl2tau[0] = 0.0e0;
30578 
30579   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30580     v4rholapl2tau[1] = 0.0e0;
30581 
30582   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30583     v4rholapl2tau[2] = 0.0e0;
30584 
30585   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30586     v4rholapl2tau[3] = 0.0e0;
30587 
30588   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30589     v4rholapl2tau[4] = 0.0e0;
30590 
30591   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30592     v4rholapl2tau[5] = 0.0e0;
30593 
30594   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30595     v4rholapl2tau[6] = 0.0e0;
30596 
30597   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30598     v4rholapl2tau[7] = 0.0e0;
30599 
30600   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30601     v4rholapl2tau[8] = 0.0e0;
30602 
30603   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30604     v4rholapl2tau[9] = 0.0e0;
30605 
30606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30607     v4rholapl2tau[10] = 0.0e0;
30608 
30609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30610     v4rholapl2tau[11] = 0.0e0;
30611 
30612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30613     v4rholapltau2[0] = 0.0e0;
30614 
30615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30616     v4rholapltau2[1] = 0.0e0;
30617 
30618   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30619     v4rholapltau2[2] = 0.0e0;
30620 
30621   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30622     v4rholapltau2[3] = 0.0e0;
30623 
30624   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30625     v4rholapltau2[4] = 0.0e0;
30626 
30627   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30628     v4rholapltau2[5] = 0.0e0;
30629 
30630   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30631     v4rholapltau2[6] = 0.0e0;
30632 
30633   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30634     v4rholapltau2[7] = 0.0e0;
30635 
30636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30637     v4rholapltau2[8] = 0.0e0;
30638 
30639   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30640     v4rholapltau2[9] = 0.0e0;
30641 
30642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30643     v4rholapltau2[10] = 0.0e0;
30644 
30645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
30646     v4rholapltau2[11] = 0.0e0;
30647 
30648   t49546 = t10336 * t16269;
30649   t49548 = t15 * t16267;
30650   t49554 = t164 * t16089;
30651   t49555 = t49554 * t463;
30652   t49558 = t13746 * t3314;
30653   t49561 = t177 * t16089;
30654   t49562 = t49561 * t438;
30655   t49565 = t609 * t16089;
30656   t49566 = t49565 * t463;
30657   t49569 = t126 * t16089;
30658   t49570 = t49569 * t438;
30659   t49573 = t137 * t16089;
30660   t49574 = t49573 * t463;
30661   t49577 = t13657 * t3314;
30662   t49580 = t49573 * t438;
30663   t49583 = t150 * t16089;
30664   t49584 = t49583 * t463;
30665   t49587 = t13667 * t3314;
30666   t49590 = t49583 * t438;
30667   t49595 = t13777 * t3314;
30668   t49598 = t113 * t16089;
30669   t49599 = t49598 * t438;
30670   t49602 = t49569 * t463;
30671   t49605 = t13646 * t3314;
30672   t49610 = 0.18009000000000000000e2 * t44918 - 0.70035000000000000000e2 * t44922 + 0.12121173267799050e5 * t7948 * t49555 - 0.7272703960679430e4 * t7948 * t49558 - 0.81837899513579520e5 * t33486 * t49562 + 0.35804081037191040e5 * t11588 * t49566 - 0.2005173881572176e4 * t23156 * t49570 + 0.1002586940786088e4 * t7952 * t49574 - 0.1002586940786088e4 * t7952 * t49577 + 0.17241408888541200e5 * t23161 * t49580 - 0.7662848394907200e4 * t7983 * t49584 + 0.5747136296180400e4 * t7983 * t49587 - 0.29090815842717720e5 * t22899 * t49590 + 0.9752716138972800e4 * t7931 * t49566 - 0.4179735488131200e4 * t7931 * t49595 - 0.1600399800e3 * t22889 * t49599 + 0.1066933200e3 * t7940 * t49602 - 0.1600399800e3 * t7940 * t49605 - 0.5434548014573640e4 * t44928 + 0.2237755064824440e4 * t44931;
30673   t49633 = 0.2186747850350196e4 * t45014 + 0.2364051730108320e4 * t45023 - 0.945620692043328e3 * t45026 - 0.358360394384832e3 * t45035 + 0.140227980411456e3 * t45038 - 0.1002586940786088e4 * t45049 + 0.429680117479752e3 * t45051 + 0.2040980558028822e4 * t45060 - 0.2560639680e3 * t45062 + 0.1280319840e3 * t45068 - 0.555069089128680e3 * t45079;
30674   t49637 = t13760 * t3314;
30675   t49648 = t49554 * t438;
30676   t49651 = t49561 * t463;
30677   t49654 = t11212 * t49574;
30678   t49656 = t11212 * t49577;
30679   t49659 = t23156 * t49580;
30680   t49661 = t7952 * t49584;
30681   t49663 = t7952 * t49587;
30682   t49669 = 0.192096e3 * t49659 - 0.128064e3 * t49661 + 0.96048e2 * t49663 - 0.46504274747987952e5 * t23141 * t49562 + 0.19148819013877392e5 * t7965 * t49566 + t16141 - t16142 + t16143 - t16144 + t16145 - t16146;
30683   t49684 = -t16158 - t16159 - t16160 + t16161 - t16162 - 0.27168280672852800e5 * t11659 * t49651 + 0.13584140336426400e5 * t11659 * t49637 - 0.20898677440656000e5 * t22884 * t49562 - 0.1909689411021120e4 * t7948 * t49651 + 0.954844705510560e3 * t7948 * t49637 + 0.58864608124514400e5 * t32695 * t49648;
30684   t49698 = -t11375 - t11381 - t11392 - t11398 + t11402 - t11404 - 0.319679294974920e3 * t45109 + 0.215297568277722e3 * t45115 - 0.870778226694000e3 * t45142 + 0.348311290677600e3 * t45146 - 0.312392550050028e3 * t45150;
30685   t49708 = -t11419 - t11423 + t11427 + t11431 - t11433 + t11438 + t11442 - t11446 - t11448 - t11452 + t11456;
30686   t49731 = 0.16051559331820600000e4 * t45242 + 0.92467544000000000000e3 * t45244 - 0.53346660000000000000e3 * t45248 - 0.10413085001667600000e5 * t45250 + 0.43340948385319200000e4 * t45254 - 0.4000999500e3 * t45258 + 0.23398748396080950000e5 * t45263 - 0.20688301952728800000e4 * t45271 + 0.11494272592360800e5 * t45275 - 0.20318158622860000000e5 * t45279 - 0.64920361301600000000e3 * t45285;
30687   t49755 = t442 * t16089 * t444 * t447;
30688   t49757 = t23898 * t49599;
30689   t49759 = t7592 * t49602;
30690   t49761 = t7592 * t49605;
30691   t49764 = t32232 * t49570;
30692   t49772 = t49565 * t438;
30693   t49775 = t1786 * t16089;
30694   t49776 = t49775 * t463;
30695   t49779 = t13851 * t3314;
30696   t49790 = -0.256128e3 * t49764 - 0.9548447055105600e4 * t32721 * t49590 + 0.4774223527552800e4 * t11613 * t49555 - 0.2864534116531680e4 * t11613 * t49558 + 0.8588963800201680e4 * t22860 * t49772 - 0.3435585520080672e4 * t7978 * t49776 + 0.1288344570030252e4 * t7978 * t49779 + 0.9602398800e3 * t23150 * t49570 - 0.5761439280e3 * t7996 * t49574 + 0.5761439280e3 * t7996 * t49577 + 0.7734242114635536e4 * t23136 * t49580;
30697   t49798 = t49775 * t438;
30698   t49801 = t5119 * t16089;
30699   t49802 = t49801 * t463;
30700   t49805 = t13870 * t3314;
30701   t49811 = t17738 * t16089;
30702   t49843 = 0.8962238880e3 * t11693 * t49584 - 0.6721679160e3 * t11693 * t49587 + 0.7681919040e3 * t23161 * t49590 - 0.4267732800e3 * t7983 * t49555 + 0.2560639680e3 * t7983 * t49558 + 0.42671133728455176e5 * t33048 * t49772 - 0.17966793148823232e5 * t11645 * t49776 + 0.6737547430808712e4 * t11645 * t49779 - 0.13238689688606592e5 * t43390 * t49798 + 0.5673724152259968e4 * t15188 * t49802 - 0.1891241384086656e4 * t15188 * t49805;
30703   t49858 = -t11572 + t11574 + t11583 - t11586 + t11599 - t11601 + t11608 - t11611 + t11621 - t11623 - t11633;
30704   t49870 = t42 * t16089 * t85;
30705   t49876 = -0.16008e2 * t45440 - 0.12006e2 * t45450 - 0.12006e2 * t45453 - 0.18676000000000000000e3 * t45468 - 0.60030e2 * t45470 + 0.23345000000000000000e3 * t45474 + 0.28014e2 * t45478 + 0.56028000000000000000e2 * t45480 - 0.20010e2 * t49870 - 0.60605866338995250e5 * t7718 * t16220 - 0.16197084278729280000e6 * t5647 * t16223;
30706   t49896 = t7691 * t16101;
30707   t49899 = t43 * t4504 * t3315;
30708   t49902 = t16090 * t464;
30709   t49919 = 0.4002e1 * t49902 - 0.91184852447035200000e5 * t11376 * t16165 + 0.12006e2 * t45511 + 0.84042e2 * t45520 - 0.56028e2 * t45522 - 0.80040e2 * t45534 + 0.48024e2 * t45536 + 0.16462180617053220000e5 * t11301 * t16232 + 0.25606396800000000000e4 * t11179 * t16235 + 0.17724304846039770000e5 * t11335 * t16168 - 0.11703259366767360000e6 * t11393 * t16171;
30710   t49925 = t23807 * t16093;
30711   t49927 = t5656 * t16097;
30712   t49944 = t49561 * t1425;
30713   t49947 = t49554 * t1425;
30714   t49950 = t49598 * t1425;
30715   t49951 = t42940 * t49950;
30716   t49953 = t49569 * t1425;
30717   t49954 = t42947 * t49953;
30718   t49956 = t49573 * t1425;
30719   t49957 = t18368 * t49956;
30720   t49969 = -0.20688301952728800000e5 * t5513 * t16199 + 0.27355455734110560e5 * t43276 * t49944 - 0.50948887636627875000e5 * t43128 * t49947 - 0.90045000000000000000e2 * t49951 + 0.22411200000000000000e3 * t49954 - 0.14407200000000000000e3 * t49957 - 0.23871117637764000000e4 * t18363 * t49947 - 0.36224374230470400e5 * t43299 * t49947 + 0.12539206464393600e5 * t18302 * t49944 + 0.1600399800e3 * t18390 * t49950 + 0.15038804111791320000e4 * t18368 * t49953;
30721   t49974 = t49583 * t1425;
30722   t49981 = t49565 * t1425;
30723   t49997 = t49775 * t1425;
30724   t50015 = -0.24704340579631944e5 * t43240 * t49981 + 0.7564965536346624e4 * t43244 * t49997 + 0.42847438459056000000e4 * t43249 * t49997 - 0.12620518237031040000e4 * t43256 * t49801 * t1425 + 0.11202798600e4 * t43266 * t49956 - 0.5121279360e3 * t18227 * t49974 + 0.62064905858186400000e4 * t43271 * t49974 + 0.30674870715006000000e3 * t45567 - 0.48154677995461800000e3 * t45571 + 0.19476108390480000000e3 * t45575 + 0.64452017621962800000e3 * t45581;
30725   t50039 = -0.70196245188242850000e4 * t45647 + 0.30369533022617400000e4 * t45651 - 0.1937678114499498e4 * t45656 + 0.3123925500500280e4 * t45660 - 0.1300228451559576e4 * t45664 + 0.1200299850e3 * t45669 - 0.2774026320e3 * t45674 + 0.1600399800e3 * t45678 + 0.6095447586858000e4 * t45680 - 0.2786490325420800e4 * t45684 + 0.41957907465458250000e4 * t45689;
30726   t50045 = t16113 * t184;
30727   t50046 = t50045 * t466;
30728   t50049 = t13999 * t3333;
30729   t50054 = t3529 * t13709;
30730   t50057 = t10253 * t4514;
30731   t50062 = t3529 * t13693;
30732   t50069 = t16105 * t184;
30733   t50070 = t50069 * t466;
30734   t50080 = 0.27e2 * t44918 - 0.105e3 * t44922 + 0.288e3 * t49654 - 0.288e3 * t49656 + 0.288e3 * t49659 - 0.192e3 * t49661 + 0.144e3 * t49663 - t16096 + t16100 - t16104 + t11178;
30735   t50084 = -t11188 - t11206 + t11209 + t11225 - t11229 - t11231 + t11235 - t3854 + t3862 + 0.9e1 * t49755 + 0.108e3 * t49757 - 0.108e3 * t49759;
30736   t50098 = 0.162e3 * t49761 - 0.384e3 * t49764 - 0.24e2 * t45440 - 0.18e2 * t45450 - 0.18e2 * t45453 - 0.280e3 * t45468 - 0.90e2 * t45470 + 0.350e3 * t45474 + 0.42e2 * t45478 + 0.84e2 * t45480 - 0.30e2 * t49870 + 0.720e3 * t49896;
30737   t50111 = -0.18e2 * t49899 + 0.6e1 * t49902 + 0.18e2 * t45511 + 0.126e3 * t45520 - 0.84e2 * t45522 - 0.120e3 * t45534 + 0.72e2 * t45536 + 0.450e3 * t49925 - 0.1120e4 * t49927 - 0.135e3 * t49951 + 0.336e3 * t49954 - 0.216e3 * t49957;
30738   t50113 = t50080 + t50084 + t50098 + t50111;
30739   t50127 = t184 * t50113 * t616 * t617 - 0.24e2 * t23950 * t50046 - t24084 * t50046 - 0.12e2 * t24086 * t50046 - 0.36e2 * t24093 * t50046 - 0.6e1 * t2835 * t50057 - 0.6e1 * t2835 * t50062 - 0.2e1 * t2835 * t50070 - 0.3e1 * t2843 * t50057 - 0.3e1 * t2843 * t50062 - t2843 * t50070 + 0.18e2 * t50049 * t8315 + 0.18e2 * t50049 * t8323 + 0.3e1 * t50049 * t8335 + 0.18e2 * t50054 * t8315 + 0.18e2 * t50054 * t8323 + 0.3e1 * t50054 * t8335;
30740   t50128 = my_piecewise3(t102, 0.2243647686583296e4 * t43322 * t49801 * t438 - 0.934853202743040e3 * t15216 * t49811 * t463 + 0.280455960822912e3 * t15216 * t13888 * t3314 - 0.334989064316256e3 * t45632 + 0.4353891133470000e4 * t45628 - 0.10449338720328000e5 * t45625 - 0.2298854518472160e4 * t45617 + 0.5747136296180400e4 * t45615 + 0.477422352755280e3 * t45607 - 0.1050329176061616e4 * t45605 - 0.3448281777708240e4 * t45597 + 0.62064905858186400000e3 * t45589 - 0.12472658965731690000e4 * t45585 - 0.907102470235032e3 * t45416 - 0.7272703960679430e4 * t45405 + 0.2797193831030550e4 * t45408 - 0.2089867744065600e4 * t45396 + 0.4876358069486400e4 * t45394 - 0.13985969155152750e5 * t45306 + 0.92883010847360000000e4 * t45302 - 0.1022495690500200e4 * t45300 + 0.41575529885772300000e4 * t45296 - 0.2148400587398760e4 * t45290 + 0.574713629618040e3 * t45236 - 0.95484470551056e2 * t45232 + 0.226775617558758e3 * t45225 - 0.143226705826584e3 * t45221 - 0.15580886712384e2 * t45216 - 0.559438766206110e3 * t45199 + 0.6458927048331660e4 * t45195 - 0.10123177674205800000e5 * t45190 + 0.825838178685210e3 * t45184 + 0.41873633039532e2 * t45180 - 0.29214162585720e2 * t45176 - 0.320079960e2 * t45172 + 0.693506580e2 * t45167 - 0.400099950e2 * t45162 + 0.118202586505416e3 * t45155 + 0.204499138100040e3 * t45081 - 0.5623065900900504e4 * t45012 - 0.2080519740e3 * t45001 + 0.4161039480e3 * t44998 + 0.879346293830172e3 * t44989 + 0.12387572680278150e5 * t44970 - 0.4955029072111260e4 * t44972 + 0.800199900e2 * t44965 - 0.1600399800e3 * t44962 - 0.1291785409666332e4 * t44947 + 0.3444761092443552e4 * t44944 + 0.192096e3 * t49654 + t11327 + t3906 + t49708 + t11358 + t49858 - t11691 + t49633 - t3900 - t16150 + t16151 - t16152 + t11541 + t16147 - t16148 + t16149 + t11489 - t3891 - t11410 + t11411 - 0.12006e2 * t49899 + t49698 + t49731 - t11475 - t11557 + t49969 + t11341 - t16156 + t16157 + t11483 + t16153 - t16154 - t11640 + t11643 + t11308 + 0.30015000000000000000e3 * t49925 - 0.74704000000000000000e3 * t49927 + t11657 - t11487 + 0.72036e2 * t49757 - 0.72036e2 * t49759 - t11315 + t49669 - t11655 + t49876 + t49843 + t11300 + t11688 + t50039 + 0.108054e3 * t49761 - t11333 + 0.7957039212588000e4 * t7718 * t16202 + 0.12074791410156800000e6 * t5638 * t16205 - 0.41797354881312000e5 * t8290 * t16208 - 0.5334666000e3 * t7602 * t16211 - 0.5012934703930440e4 * t7691 * t16214 + 0.38314241974536000e5 * t7704 * t16217 + 0.34447610924435520e5 * t8290 * t16226 - 0.6475806039834600e4 * t8303 * t16229 - 0.555069089128680e3 * t7972 * t49595 + 0.3819378822042240e4 * t22899 * t49648 - 0.11494272592360800e5 * t18227 * t49956 - 0.7541149168793856e4 * t33041 * t49798 + 0.3085015569052032e4 * t11559 * t49802 - 0.1028338523017344e4 * t11559 * t49805 - 0.15683918040e4 * t32749 * t49580 + 0.35109778100302080e5 * t43113 * t49974 + 0.19427418119503800000e4 * t18380 * t49944 - 0.15664285453771080000e5 * t18380 * t49981 + 0.25078412928787200e5 * t7990 * t49555 - 0.15047047757272320e5 * t7990 * t49558 + 0.83915814930916500e5 * t22877 * t49648 - 0.35963920684678500e5 * t7922 * t49651 + 0.17981960342339250e5 * t7922 * t49637 - 0.25216551787822080e5 * t7676 * t16183 - 0.14282479486352000000e5 * t32163 * t16186 + 0.4206839412343680e4 * t43592 * t16189 - 0.37342662000000000000e4 * t5504 * t16192 + 0.17070931200e4 * t7704 * t16195 + 0.3444761092443552e4 * t7931 * t49637 - 0.3330414534772080e4 * t22905 * t49562 + 0.1295161207966920e4 * t7972 * t49566 - 0.8206636720233168e4 * t7965 * t49595 - 0.15344606158796160e5 * t11588 * t49595 + 0.17223805462217760e5 * t22884 * t49648 - 0.6889522184887104e4 * t7931 * t49651 + 0.18181759901698575000e5 * t18363 * t49974 + 0.48591252836187840000e5 * t43287 * t49944 - 0.10334283277330656e5 * t18302 * t49947 - 0.49386541851159660000e4 * t43072 * t49981 - 0.7681919040e3 * t43108 * t49953 - 0.53172914538119310000e4 * t43168 * t49956 + t11553 + t49684 + t11350 - 0.192096e3 * t49656 + 0.480240e3 * t49896 + t50015 - t11701 + t11703 + t49610 + 0.26853060777893280e5 * t22905 * t49772 - 0.11934693679063680e5 * t7972 * t49776 + 0.4475510129648880e4 * t7972 * t49779 + 0.16982962545542625000e6 * t11351 * t16174 + 0.52214284845903600e5 * t8303 * t16177 + 0.82347801932106480000e5 * t5626 * t16180 - 0.3867121057317768e4 * t7960 * t49584 + 0.2900340792988326e4 * t7960 * t49587 - 0.55172508443331840e5 * t23128 * t49590 + t49790 + 0.60030000000000000000e1 * t49755 + t49919 + t11418 + t15247 - t11670 + t11672, t50127);
30741   t50136 = t16741 * t16068;
30742   t50137 = t16069 * t187;
30743   t50138 = t50137 * t477;
30744   t50143 = t474 * t16069 * t187;
30745   t50146 = t13728 * t3346;
30746   t50158 = t16086 * t477;
30747   t50161 = t9542 * t4528;
30748   t50164 = t3292 * t13720;
30749   t50167 = t4501 * t3346;
30750   t50170 = t1194 * t4607;
30751   t50174 = t4528 * t1241;
30752   t50178 = t4747 * t16068;
30753   t50185 = 0.1174e1 * t50128 - t405 * t477 * t16264 + 0.72e2 * t13617 * t3292 * t4528 * t477 - 0.192e3 * t50136 * t50138 - t101 * t50128 - 0.24e2 * t1369 * t50143 - 0.12e2 * t405 * t50146 + 0.24e2 * t1369 * t4497 * t3538 + 0.24e2 * t1369 * t16074 * t621 - 0.48e2 * t4747 * t16070 * t621 + 0.12e2 * t1369 * t50158 - 0.6e1 * t405 * t50161 + 0.6e1 * t405 * t50164 - 0.72e2 * t3291 * t50167 + 0.12e2 * t3291 * t50170 * t477 + 0.12e2 * t3291 * t50174 * t477 + 0.144e3 * t50178 * t50167 + 0.72e2 * t9531 * t50138 + 0.48e2 * t13624 * t50146;
30754   t50195 = t9538 * t4528;
30755   t50244 = t56 * t50113 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t16106 * t2587 - 0.9e1 / 0.100e3 * t13694 * t16110 - 0.9e1 / 0.100e3 * t4515 * t3343 - 0.9e1 / 0.100e3 * t4515 * t13699 + 0.9e1 / 0.50e2 * t48283 * t3343 - 0.9e1 / 0.100e3 * t4519 * t3339 + 0.3e1 / 0.20e2 * t16114 * t2587 + 0.9e1 / 0.50e2 * t4519 * t4960 * t3333 - t16114 * t42982 / 0.10e2 - t470 * t50113 * t91 / 0.100e3 + t1499 * t16105 * t466 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t13693 * t1188 * t91 + 0.3e1 / 0.100e3 * t1499 * t4514 * t3333 * t91 - 0.3e1 / 0.100e3 * t48275 * t3343 - 0.3e1 / 0.100e3 * t4970 * t4525 * t3333 + t17136 * t16113 * t466 * t91 / 0.100e3;
30756   t50260 = t16129 * t187;
30757   t50290 = 0.48e2 * t3291 * t16086 * t474 - 0.72e2 * t13617 * t50158 + 0.24e2 * t13624 * t50161 - 0.24e2 * t13624 * t50164 + 0.6e1 * t405 * t50195 + 0.2e1 * t405 * t94 * t50244 * t187 + 0.2e1 * t405 * t474 * t16129 * t187 - 0.6e1 * t405 * t13721 * t1241 - 0.24e2 * t13624 * t50195 - 0.12e2 * t40105 * t13639 - 0.4e1 * t3291 * t50260 * t477 - 0.48e2 * t3291 * t3292 * t13642 - 0.6e1 * t405 * t13642 * t1241 - 0.2e1 * t405 * t16130 * t621 - 0.6e1 * t405 * t3296 * t4607 - 0.6e1 * t405 * t1195 * t14020 - 0.6e1 * t405 * t4529 * t3538 - 0.6e1 * t405 * t3347 * t4607 + 0.144e3 * t13617 * t50143 - 0.6e1 * t405 * t4496 * t3538;
30758   t50297 = t3547 * t1180 * t16267;
30759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30760     v4rhotau3[0] = -t49546 / 0.2e1 - t3286 * t49548 * t392 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1180 * (t50185 + t50290) * t204 - 0.24739500000000000000e1 * t50297 * t644;
30761 
30762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30763     v4rhotau3[1] = 0.0e0;
30764 
30765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30766     v4rhotau3[2] = 0.0e0;
30767 
30768   t50300 = t10336 * t16473;
30769   t50301 = t210 * t16471;
30770   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30771     v4rhotau3[3] = -t3286 * t50301 * t651 / 0.2e1 - t50300 / 0.2e1;
30772 
30773   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30774     v4rhotau3[4] = -t3286 * t49548 * t663 / 0.2e1 - t49546 / 0.2e1;
30775 
30776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30777     v4rhotau3[5] = 0.0e0;
30778 
30779   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30780     v4rhotau3[6] = 0.0e0;
30781 
30782   t50316 = t14155 * t3620;
30783   t50319 = t16290 * t742;
30784   t50322 = t10382 * t4647;
30785   t50330 = t10378 * t4647;
30786   t50341 = t16333 * t363;
30787   t50361 = t739 * t16273 * t363;
30788   t50367 = t1263 * t4726;
30789   t50371 = 0.72e2 * t14044 * t3566 * t4647 * t742 - 0.12e2 * t674 * t50316 + 0.12e2 * t2000 * t50319 - 0.6e1 * t674 * t50322 - 0.12e2 * t42564 * t14066 + 0.48e2 * t3565 * t16290 * t739 + 0.6e1 * t674 * t50330 + 0.24e2 * t2000 * t4616 * t3812 + 0.24e2 * t2000 * t16278 * t885 + 0.48e2 * t14051 * t50316 - 0.4e1 * t3565 * t50341 * t742 - 0.48e2 * t3565 * t3566 * t14069 - 0.6e1 * t674 * t3621 * t4726 - 0.6e1 * t674 * t1264 * t14447 - 0.6e1 * t674 * t3570 * t4726 - 0.48e2 * t6316 * t16274 * t885 - 0.24e2 * t2000 * t50361 - 0.6e1 * t674 * t4615 * t3812 + 0.12e2 * t3565 * t50367 * t742;
30790   t50387 = t222 * t16293 * t261;
30791   t50389 = t25642 * t16297;
30792   t50391 = t7068 * t16301;
30793   t50393 = t8770 * t16305;
30794   t50396 = t223 * t4623 * t3589;
30795   t50398 = t16294 * t729;
30796   t50400 = -t16300 + t16304 - t16308 - 0.30e2 * t50387 + 0.450e3 * t50389 - 0.1120e4 * t50391 + 0.720e3 * t50393 - 0.18e2 * t50396 + 0.6e1 * t50398 - t4076 + t4084;
30797   t50401 = t313 * t16293;
30798   t50402 = t50401 * t703;
30799   t50403 = t26689 * t50402;
30800   t50405 = t326 * t16293;
30801   t50406 = t50405 * t728;
30802   t50407 = t8859 * t50406;
30803   t50409 = t14073 * t3588;
30804   t50410 = t8859 * t50409;
30805   t50412 = t289 * t16293;
30806   t50413 = t50412 * t1425;
30807   t50414 = t43940 * t50413;
30808   t50416 = t302 * t16293;
30809   t50417 = t50416 * t1425;
30810   t50418 = t43948 * t50417;
30811   t50420 = t50401 * t1425;
30812   t50421 = t20665 * t50420;
30813   t50427 = 0.288e3 * t50403 - 0.192e3 * t50407 + 0.144e3 * t50410 - 0.135e3 * t50414 + 0.336e3 * t50418 - 0.216e3 * t50421 - t11931 + t11944 - 0.24e2 * t46579 - 0.18e2 * t46582 + 0.42e2 * t46587 - 0.90e2 * t46589;
30814   t50442 = t707 * t16293 * t709 * t712;
30815   t50444 = 0.350e3 * t46593 - 0.280e3 * t46631 - 0.18e2 * t46645 + 0.18e2 * t46693 + 0.126e3 * t46702 - 0.84e2 * t46705 - 0.120e3 * t46730 + 0.72e2 * t46732 + 0.27e2 * t46767 - 0.105e3 * t46773 + 0.84e2 * t46778 + 0.9e1 * t50442;
30816   t50445 = t50412 * t703;
30817   t50446 = t25633 * t50445;
30818   t50448 = t50416 * t728;
30819   t50449 = t8621 * t50448;
30820   t50451 = t14080 * t3588;
30821   t50452 = t8621 * t50451;
30822   t50454 = t50416 * t703;
30823   t50455 = t35819 * t50454;
30824   t50457 = t50401 * t728;
30825   t50458 = t11966 * t50457;
30826   t50460 = t14090 * t3588;
30827   t50461 = t11966 * t50460;
30828   t50463 = 0.108e3 * t50446 - 0.108e3 * t50449 + 0.162e3 * t50452 - 0.384e3 * t50455 + 0.288e3 * t50458 - 0.288e3 * t50461 + t11949 - t11955 - t11961 + t11964 + t11994 - t11998;
30829   t50465 = t50400 + t50427 + t50444 + t50463;
30830   t50512 = t56 * t50465 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t16310 * t2984 - 0.9e1 / 0.100e3 * t14121 * t16314 - 0.9e1 / 0.100e3 * t4634 * t3617 - 0.9e1 / 0.100e3 * t4634 * t14126 + 0.9e1 / 0.50e2 * t49300 * t3617 - 0.9e1 / 0.100e3 * t4638 * t3613 + 0.3e1 / 0.20e2 * t16318 * t2984 + 0.9e1 / 0.50e2 * t4638 * t6524 * t3607 - t16318 * t44023 / 0.10e2 - t735 * t50465 * t267 / 0.100e3 + t2127 * t16309 * t731 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t14120 * t1257 * t267 + 0.3e1 / 0.100e3 * t2127 * t4633 * t3607 * t267 - 0.3e1 / 0.100e3 * t49339 * t3617 - 0.3e1 / 0.100e3 * t6534 * t4644 * t3607 + t20412 * t16317 * t731 * t267 / 0.100e3;
30831   t50517 = t3566 * t14147;
30832   t50520 = t4647 * t1310;
30833   t50530 = t340 * t16293;
30834   t50531 = t50530 * t1425;
30835   t50534 = t353 * t16293;
30836   t50535 = t50534 * t1425;
30837   t50540 = t2330 * t16293;
30838   t50541 = t50540 * t1425;
30839   t50546 = t7167 * t16293;
30840   t50552 = t50405 * t1425;
30841   t50559 = 0.2186747850350196e4 * t46191 + 0.2364051730108320e4 * t46203 + 0.38314241974536000e5 * t8783 * t16414 - 0.60605866338995250e5 * t8796 * t16417 - 0.36224374230470400e5 * t44149 * t50531 + 0.12539206464393600e5 * t21214 * t50535 + 0.48591252836187840000e5 * t44158 * t50535 + 0.7564965536346624e4 * t44168 * t50541 + 0.42847438459056000000e4 * t44173 * t50541 - 0.12620518237031040000e4 * t44180 * t50546 * t1425 + 0.11202798600e4 * t44185 * t50420 - 0.5121279360e3 * t20723 * t50552 + 0.62064905858186400000e4 * t44248 * t50552 - 0.23871117637764000000e4 * t20802 * t50531 - t16344 + t16345 - t16346 + t12056 + t12064 - t12071;
30842   t50563 = t803 * t16293;
30843   t50564 = t50563 * t703;
30844   t50567 = t50534 * t703;
30845   t50570 = t50563 * t728;
30846   t50573 = t14170 * t3588;
30847   t50590 = 0.8588963800201680e4 * t26184 * t50564 - 0.81837899513579520e5 * t35593 * t50567 + 0.35804081037191040e5 * t12396 * t50570 - 0.15344606158796160e5 * t12396 * t50573 - 0.1600399800e3 * t26212 * t50445 + 0.1066933200e3 * t8914 * t50448 - 0.1600399800e3 * t8914 * t50451 - 0.2005173881572176e4 * t26689 * t50454 + 0.1002586940786088e4 * t8859 * t50457 - 0.20898677440656000e5 * t26604 * t50567 + 0.9752716138972800e4 * t8854 * t50570;
30848   t50632 = 0.480240e3 * t50393 + 0.52214284845903600e5 * t8824 * t16368 + 0.82347801932106480000e5 * t7088 * t16371 - 0.25216551787822080e5 * t8760 * t16374 - 0.14282479486352000000e5 * t35928 * t16377 + 0.4206839412343680e4 * t44536 * t16380 - 0.37342662000000000000e4 * t7076 * t16383 + 0.17070931200e4 * t8783 * t16386 - 0.20688301952728800000e5 * t7052 * t16389 + 0.7957039212588000e4 * t8796 * t16392 + 0.12074791410156800000e6 * t7060 * t16395;
30849   t50655 = 0.16051559331820600000e4 * t46281 + 0.23398748396080950000e5 * t46283 + 0.41575529885772300000e4 * t46300 + 0.92467544000000000000e3 * t46304 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155;
30850   t50668 = -0.2148400587398760e4 * t46390 + 0.1600399800e3 * t20655 * t50413 + 0.15038804111791320000e4 * t20665 * t50417 - t16348 + t16349 - t16350 + t16351 - t16352 + t16353 - t16354 + t16355;
30851   t50671 = t21234 * t16293;
30852   t50684 = t50405 * t703;
30853   t50687 = t50530 * t728;
30854   t50690 = t14210 * t3588;
30855   t50693 = -t12162 - t12166 - t12183 - 0.934853202743040e3 * t15511 * t50671 * t728 + 0.280455960822912e3 * t15511 * t14287 * t3588 - 0.15683918040e4 * t35610 * t50402 + 0.8962238880e3 * t12438 * t50406 - 0.6721679160e3 * t12438 * t50409 + 0.7681919040e3 * t26714 * t50684 - 0.4267732800e3 * t8874 * t50687 + 0.2560639680e3 * t8874 * t50690;
30856   t50702 = t50530 * t703;
30857   t50705 = t50534 * t728;
30858   t50708 = t14226 * t3588;
30859   t50723 = t50540 * t728;
30860   t50726 = t14174 * t3588;
30861   t50735 = t50540 * t703;
30862   t50738 = t50546 * t728;
30863   t50741 = t14184 * t3588;
30864   t50744 = -0.128064e3 * t50407 + 0.96048e2 * t50410 + 0.26853060777893280e5 * t26177 * t50564 - 0.11934693679063680e5 * t8909 * t50723 + 0.4475510129648880e4 * t8909 * t50726 + 0.42671133728455176e5 * t36027 * t50564 - 0.17966793148823232e5 * t12362 * t50723 + 0.6737547430808712e4 * t12362 * t50726 - 0.13238689688606592e5 * t44445 * t50735 + 0.5673724152259968e4 * t15494 * t50738 - 0.1891241384086656e4 * t15494 * t50741;
30865   t50764 = -t12197 - t12201 + t12207 + t12211 + t12215 - t12222 + 0.429680117479752e3 * t46434 + 0.2040980558028822e4 * t46444 - 0.907102470235032e3 * t46447 + 0.4161039480e3 * t46454 - 0.2080519740e3 * t46456;
30866   t50769 = t50563 * t1425;
30867   t50800 = -t12226 + t12230 - 0.1050329176061616e4 * t46479 + 0.477422352755280e3 * t46482 + 0.5747136296180400e4 * t46490 - 0.2298854518472160e4 * t46492 - 0.2560639680e3 * t46500 + 0.1280319840e3 * t46502 - 0.1002586940786088e4 * t46511 - 0.29214162585720e2 * t46514 + 0.41873633039532e2 * t46520;
30868   t50824 = 0.693506580e2 * t46574 - 0.16008e2 * t46579 - 0.12006e2 * t46582 + 0.28014e2 * t46587 - 0.60030e2 * t46589 + 0.23345000000000000000e3 * t46593 - 0.10123177674205800000e5 * t46597 + 0.6458927048331660e4 * t46601 - 0.10413085001667600000e5 * t46605 - 0.20318158622860000000e5 * t46607 + 0.92883010847360000000e4 * t46611;
30869   t50838 = t12331 - 0.64920361301600000000e3 * t46622 - 0.4000999500e3 * t46627 - 0.18676000000000000000e3 * t46631 - 0.12006e2 * t46645 - 0.320079960e2 * t46650 - 0.143226705826584e3 * t46655 + 0.226775617558758e3 * t46659 - 0.95484470551056e2 * t46663 + 0.574713629618040e3 * t46667 + t12345;
30870   t50849 = t12424 + t12432 - t12436 + 0.12006e2 * t46693 + 0.84042e2 * t46702 - 0.56028e2 * t46705 - 0.1600399800e3 * t46720 + 0.800199900e2 * t46722 - 0.80040e2 * t46730 + 0.48024e2 * t46732 - 0.334989064316256e3 * t46741;
30871   t50884 = 0.60030000000000000000e1 * t50442 + 0.72036e2 * t50446 - 0.72036e2 * t50449 + 0.108054e3 * t50452 - 0.256128e3 * t50455 + 0.192096e3 * t50458 - 0.192096e3 * t50461 - 0.35963920684678500e5 * t8847 * t50705 + 0.17981960342339250e5 * t8847 * t50708 - 0.46504274747987952e5 * t26202 * t50567 - 0.3330414534772080e4 * t26177 * t50567;
30872   t50927 = 0.1288344570030252e4 * t9242 * t50726 + 0.17241408888541200e5 * t26714 * t50402 - 0.7662848394907200e4 * t8874 * t50406 + 0.5747136296180400e4 * t8874 * t50409 - 0.29090815842717720e5 * t26195 * t50684 + 0.12121173267799050e5 * t8921 * t50687 - 0.7272703960679430e4 * t8921 * t50690 + 0.17223805462217760e5 * t26604 * t50702 - 0.6889522184887104e4 * t8854 * t50705 + 0.3444761092443552e4 * t8854 * t50708 + t12446;
30873   t50947 = -0.10449338720328000e5 * t46816 + 0.4353891133470000e4 * t46818 + 0.4876358069486400e4 * t46827 - 0.2089867744065600e4 * t46830 - 0.5434548014573640e4 * t46838 + 0.2237755064824440e4 * t46840 + 0.3444761092443552e4 * t46851 - 0.1291785409666332e4 * t46853 + 0.879346293830172e3 * t46855 + 0.2797193831030550e4 * t46857 + 0.12387572680278150e5 * t46859;
30874   t50973 = -0.2774026320e3 * t46912 + 0.1600399800e3 * t46916 + 0.19476108390480000000e3 * t46935 + 0.1200299850e3 * t46942 + 0.41957907465458250000e4 * t46946 - 0.70196245188242850000e4 * t46948 + 0.30369533022617400000e4 * t46952 - 0.1937678114499498e4 * t46957 + 0.3123925500500280e4 * t46961 - 0.1300228451559576e4 * t46965 + 0.30674870715006000000e3 * t46970;
30875   t50979 = t16317 * t360;
30876   t50980 = t50979 * t731;
30877   t50983 = t14426 * t3607;
30878   t50988 = t3803 * t14136;
30879   t50991 = t11093 * t4633;
30880   t50996 = t3803 * t14120;
30881   t51003 = t16309 * t360;
30882   t51004 = t51003 * t731;
30883   t51020 = t360 * t50465 * t616 * t881 - t27446 * t50980 - 0.12e2 * t27452 * t50980 - 0.36e2 * t27459 * t50980 - 0.24e2 * t27471 * t50980 - 0.6e1 * t3232 * t50991 - 0.6e1 * t3232 * t50996 - 0.2e1 * t3232 * t51004 - 0.3e1 * t3240 * t50991 - 0.3e1 * t3240 * t50996 - t3240 * t51004 + 0.18e2 * t50983 * t9372 + 0.18e2 * t50983 * t9380 + 0.3e1 * t50983 * t9392 + 0.18e2 * t50988 * t9372 + 0.18e2 * t50988 * t9380 + 0.3e1 * t50988 * t9392;
30884   t51021 = my_piecewise3(t278, 0.2243647686583296e4 * t44463 * t50546 * t703 - 0.53346660000000000000e3 * t46386 + 0.11494272592360800e5 * t46382 - 0.20688301952728800000e4 * t46378 - 0.1022495690500200e4 * t46277 + 0.43340948385319200000e4 * t46273 - 0.870778226694000e3 * t46538 - t12154 + t12462 - t12463 + t12101 + t50838 - t12373 + t50668 - 0.14407200000000000000e3 * t50421 + t50744 - 0.20010e2 * t50387 - 0.48154677995461800000e3 * t46880 - 0.15580886712384e2 * t46526 - 0.2786490325420800e4 * t46907 + t50764 - 0.555069089128680e3 * t46793 + t50800 + t50824 - t12449 - t12451 + t50849 + 0.56028000000000000000e2 * t46778 - 0.400099950e2 * t46532 + t50973 + t50927 - t12357 + t12360 + t12404 - 0.12472658965731690000e4 * t46888 + t12319 - t12321 + t50632 + 0.118202586505416e3 * t46569 - 0.4955029072111260e4 * t46861 - t12348 + 0.62064905858186400000e3 * t46892 - 0.5623065900900504e4 * t46812 + 0.64452017621962800000e3 * t46884 + t12272 - t16365 - t16366 + t16367 - 0.358360394384832e3 * t46754 + 0.140227980411456e3 * t46757 - t12079 + t12453 + t50655 - t4203 + t4205 + t12193 - t4170 - 0.312392550050028e3 * t46565 - t12263 + t12266 + t50590 - t12108 + t16357 - t16358 + t16359 + t12392 - t12394 + t12120 - t12148 - t12126 + t12141 + 0.215297568277722e3 * t46561 - t16356 + 0.204499138100040e3 * t46795 - t4190 - t12422 - t16360 - t16361 + t12378 + t4177 - t12408 + 0.30015000000000000000e3 * t50389 - 0.74704000000000000000e3 * t50391 + t50947 + t50559 + 0.825838178685210e3 * t46553 - 0.13985969155152750e5 * t46615 - 0.70035000000000000000e2 * t46773 - 0.3448281777708240e4 * t46897 + t50693 - t12329 + t16364 + t4196 + t12185 - t4161 + 0.18009000000000000000e2 * t46767 + 0.348311290677600e3 * t46544 - 0.559438766206110e3 * t46549 - 0.945620692043328e3 * t46784 - 0.90045000000000000000e2 * t50414 - t12269 - 0.7272703960679430e4 * t46803 + 0.4774223527552800e4 * t12309 * t50687 - 0.2864534116531680e4 * t12309 * t50690 + 0.3819378822042240e4 * t26195 * t50702 - 0.1909689411021120e4 * t8921 * t50705 + 0.954844705510560e3 * t8921 * t50708 + 0.58864608124514400e5 * t35961 * t50702 - 0.27168280672852800e5 * t12333 * t50705 + 0.13584140336426400e5 * t12333 * t50708 - 0.9548447055105600e4 * t35968 * t50684 - 0.7681919040e3 * t44198 * t50417 - 0.15664285453771080000e5 * t20695 * t50769 - 0.24704340579631944e5 * t44164 * t50769 - 0.8206636720233168e4 * t8902 * t50573 + 0.9602398800e3 * t25990 * t50454 - 0.5761439280e3 * t9104 * t50457 + 0.5761439280e3 * t9104 * t50460 + 0.19148819013877392e5 * t8902 * t50570 - 0.4179735488131200e4 * t8854 * t50573 - 0.41797354881312000e5 * t8809 * t16398 - 0.16197084278729280000e6 * t7043 * t16401 - 0.5334666000e3 * t8572 * t16405 - 0.5012934703930440e4 * t8770 * t16408 + 0.16462180617053220000e5 * t12094 * t16411 + 0.25606396800000000000e4 * t11922 * t16438 - 0.7541149168793856e4 * t35618 * t50735 + 0.3085015569052032e4 * t12410 * t50738 - 0.1028338523017344e4 * t12410 * t50741 - 0.11703259366767360000e6 * t12149 * t16429 + 0.16982962545542625000e6 * t12057 * t16432 - 0.91184852447035200000e5 * t12072 * t16435 - 0.49386541851159660000e4 * t44195 * t50769 - 0.11494272592360800e5 * t20723 * t50420 + 0.83915814930916500e5 * t26592 * t50702 - 0.3435585520080672e4 * t9242 * t50723 + 0.18181759901698575000e5 * t20802 * t50552 - 0.10334283277330656e5 * t21214 * t50531 + 0.19427418119503800000e4 * t20695 * t50535 - 0.53172914538119310000e4 * t44239 * t50420 + 0.35109778100302080e5 * t44242 * t50552 - 0.50948887636627875000e5 * t44245 * t50531 + 0.27355455734110560e5 * t44191 * t50535 + 0.1295161207966920e4 * t8909 * t50570 - 0.555069089128680e3 * t8909 * t50573 + 0.7734242114635536e4 * t26683 * t50402 - 0.3867121057317768e4 * t8867 * t50406 + 0.2900340792988326e4 * t8867 * t50409 - 0.55172508443331840e5 * t26701 * t50684 + 0.25078412928787200e5 * t8880 * t50687 - 0.15047047757272320e5 * t8880 * t50690 - 0.1002586940786088e4 * t8859 * t50460 + 0.6095447586858000e4 * t46901 + 0.22411200000000000000e3 * t50418 + 0.192096e3 * t50403 + t12189 - 0.12006e2 * t50396 + 0.4002e1 * t50398 + t50884 + t12093 - 0.319679294974920e3 * t46557 + 0.34447610924435520e5 * t8809 * t16420 - 0.6475806039834600e4 * t8824 * t16423 + 0.17724304846039770000e5 * t12129 * t16426 + t12304 - t12307, t51020);
30885   t51027 = t4620 * t3620;
30886   t51030 = t16273 * t363;
30887   t51031 = t51030 * t742;
30888   t51042 = t6316 * t16272;
30889   t51048 = t20016 * t16272;
30890   t51051 = -t674 * t742 * t16468 - 0.6e1 * t674 * t4648 * t3812 - 0.6e1 * t674 * t14148 * t1310 - 0.6e1 * t674 * t14069 * t1310 - 0.2e1 * t674 * t16334 * t885 + 0.2e1 * t674 * t270 * t50512 * t363 + 0.6e1 * t674 * t50517 + 0.12e2 * t3565 * t50520 * t742 + 0.1174e1 * t51021 + 0.2e1 * t674 * t739 * t16333 * t363 - 0.72e2 * t3565 * t51027 + 0.72e2 * t10371 * t51031 - 0.72e2 * t14044 * t50319 - 0.24e2 * t14051 * t50517 + 0.24e2 * t14051 * t50322 - 0.24e2 * t14051 * t50330 + 0.144e3 * t51042 * t51027 - t277 * t51021 + 0.144e3 * t14044 * t50361 - 0.192e3 * t51048 * t51031;
30891   t51058 = t3547 * t1249 * t16471;
30892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30893     v4rhotau3[7] = -t50300 / 0.2e1 - t3286 * t50301 * t668 / 0.2e1 - 0.3e1 / 0.8e1 * t1179 * t1249 * (t50371 + t51051) * t377 - 0.24739500000000000000e1 * t51058 * t902;
30894 
30895   t51101 = 0.1e1 / t194 / t1392;
30896   t51140 = t3824 * t3824;
30897   t51150 = t3880 * t3880;
30898   t51175 = t3877 * t3877;
30899   t51179 = t11181 * t3851;
30900   t51180 = t11212 * t51179;
30901   t51182 = t3851 * t3851;
30902   t51184 = t2564 * t929 * t51182;
30903   t51185 = 0.42e2 * t51184;
30904   t51186 = t11216 * t3851;
30905   t51187 = t7952 * t51186;
30906   t51190 = t3855 * t3856 * t51182;
30907   t51191 = 0.24e2 * t51190;
30908   t51192 = t11171 * t3851;
30909   t51193 = t7592 * t51192;
30910   t51196 = t1417 * t85 * t51182;
30911   t51197 = 0.18e2 * t51196;
30912   t51198 = t15060 * t3852;
30913   t51200 = t3844 * t3844;
30914   t51202 = t929 * t66;
30915   t51203 = t926 * t51200 * t51202;
30916   t51206 = t32231 * t3856 * t51200;
30917   t51209 = t17466 * t572 * t51200;
30918   t51212 = t23135 * t32423 * t51200;
30919   t51217 = -0.576e3 * t51180 + t51185 + 0.288e3 * t51187 - t51191 + 0.324e3 * t51193 - t51197 - t3854 + t3862 - 0.36e2 * t51198 + 0.120e3 * t51203 - 0.600e3 * t51206 + 0.864e3 * t51209 - 0.384e3 * t51212 - 0.32e2 * t14503 - 0.24e2 * t14491 + 0.56e2 * t14497;
30920   t51225 = t3863 * t3863;
30921   t51231 = t3867 * t3867;
30922   t51232 = t56 * t51231;
30923   t51254 = t56 * t51217 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t14506 * t4290 - 0.9e1 / 0.50e2 * t3864 * t3874 - 0.9e1 / 0.100e3 * t56 * t51225 * t1492 + 0.9e1 / 0.25e2 * t3864 * t15097 + 0.3e1 / 0.20e2 * t51232 * t1492 - t51232 * t17119 / 0.10e2 - t470 * t51217 * t91 / 0.100e3 + t1499 * t14505 * t933 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t1499 * t51225 * t91 - 0.3e1 / 0.50e2 * t4970 * t3863 * t3867 * t91 + t17136 * t51231 * t91 / 0.100e3;
30924   t51269 = 0.28014e2 * t51184;
30925   t51270 = 0.16008e2 * t51190;
30926   t51271 = 0.12006e2 * t51196;
30927   t51293 = t26 * t33354 * t1015;
30928   t51297 = t51269 - t51270 - t51271 - 0.24012e2 * t51198 + 0.80040e2 * t51203 - 0.400200e3 * t51206 + 0.576288e3 * t51209 - 0.256128e3 * t51212 - 0.3819378822042240e4 * t22876 * t32462 * t51200 - 0.75235238786361600e5 * t17407 * t599 * t51200 + 0.19505432277945600e5 * t23140 * t32543 * t51200 - 0.23869387358127360e5 * t22859 * t32524 * t51200 - 0.49172275986253056e5 * t43389 * t7681 * t51200 + 0.11347448304519936e5 * t51293 * t32571 * t51200;
30929   t51304 = t26 * t168 * t130 * t157 * t120;
30930   t51306 = 0.1e1 / t160 / t500;
30931   t51307 = t51306 * t17738;
30932   t51350 = 0.8413678824687360e4 * t43321 * t14563 * t51200 - 0.1869706405486080e4 * t51304 * t51307 * t51200 + 0.25606396800e4 * t17517 * t581 * t51200 - 0.8535465600e3 * t23127 * t32448 * t51200 + 0.108158161466514600e6 * t22876 * t993 * t51200 - 0.60283319117762160e5 * t23140 * t1006 * t51200 + 0.11179286216135520e5 * t22859 * t1019 * t51200 + 0.11736265200e4 * t23149 * t954 * t51200 + 0.9739415996207712e4 * t23135 * t967 * t51200 - 0.70498205233146240e5 * t23127 * t980 * t51200 + 0.109021433982088800e6 * t32694 * t3959 * t51200 - 0.153765740882936520e6 * t33485 * t3997 * t51200 - 0.17282689169741136e5 * t32720 * t3943 * t51200 - 0.14412320208955200e5 * t33040 * t3913 * t51200 - 0.27206796600e4 * t32748 * t3928 * t51200;
30933   t51352 = t11693 * t51186;
30934   t51354 = t11372 * t3844;
30935   t51355 = t11659 * t51354;
30936   t51357 = t11312 * t3844;
30937   t51358 = t11645 * t51357;
30938   t51360 = t11343 * t3851;
30939   t51361 = t7948 * t51360;
30940   t51363 = t11554 * t3844;
30941   t51364 = t15188 * t51363;
30942   t51366 = t7978 * t51357;
30943   t51368 = t11559 * t51363;
30944   t51370 = t7983 * t51360;
30945   t51372 = t7960 * t51186;
30946   t51374 = t11613 * t51360;
30947   t51376 = t7948 * t51354;
30948   t51378 = t7931 * t51354;
30949   t51380 = t11293 * t3851;
30950   t51381 = t7972 * t51380;
30951   t51383 = t7940 * t51192;
30952   t51385 = t7952 * t51179;
30953   t51387 = -0.13443358320e4 * t51352 + 0.27168280672852800e5 * t51355 + 0.13475094861617424e5 * t51358 - 0.14545407921358860e5 * t51361 - 0.3782482768173312e4 * t51364 + 0.2576689140060504e4 * t51366 - 0.2056677046034688e4 * t51368 + 0.5121279360e3 * t51370 + 0.5800681585976652e4 * t51372 - 0.5729068233063360e4 * t51374 + 0.1909689411021120e4 * t51376 + 0.6889522184887104e4 * t51378 - 0.1110138178257360e4 * t51381 - 0.3200799600e3 * t51383 - 0.2005173881572176e4 * t51385;
30954   t51388 = t7983 * t51186;
30955   t51390 = t7990 * t51360;
30956   t51392 = t7931 * t51380;
30957   t51394 = t7922 * t51354;
30958   t51396 = t11588 * t51380;
30959   t51398 = t7972 * t51357;
30960   t51401 = t15216 * t33036 * t3844;
30961   t51403 = t7996 * t51179;
30962   t51405 = t7965 * t51380;
30963   t51407 = 0.11494272592360800e5 * t51388 - 0.30094095514544640e5 * t51390 - 0.8359470976262400e4 * t51392 + 0.35963920684678500e5 * t51394 - 0.30689212317592320e5 * t51396 + 0.8951020259297760e4 * t51398 + 0.560911921645824e3 * t51401 + 0.11522878560e4 * t51403 - 0.16413273440466336e5 * t51405 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934;
30964   t51416 = t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.192096e3 * t51187 + 0.216108e3 * t51193 - 0.384192e3 * t51180 - 0.16008e2 * t14491 + 0.37352e2 * t14497 - 0.21344e2 * t14503;
30965   t51419 = 0.312392550050028e3 * t2804 * t1006 * t51182;
30966   t51422 = 0.825838178685210e3 * t2790 * t993 * t51182;
30967   t51425 = 0.319679294974920e3 * t3996 * t3997 * t51182;
30968   t51428 = 0.215297568277722e3 * t1803 * t165 * t51182;
30969   t51437 = 0.15580886712384e2 * t3910 * t3913 * t51182;
30970   t51440 = 0.400099950e2 * t1812 * t114 * t51182;
30971   t51443 = 0.693506580e2 * t2747 * t954 * t51182;
30972   t51449 = 0.118202586505416e3 * t3893 * t3894 * t51182;
30973   t51452 = 0.29214162585720e2 * t1781 * t178 * t51182;
30974   t51455 = 0.41873633039532e2 * t2818 * t1019 * t51182;
30975   t51458 = 0.320079960e2 * t3927 * t3928 * t51182;
30976   t51461 = 0.143226705826584e3 * t1751 * t127 * t51182;
30977   t51462 = -t51419 + t51422 - t51425 + t51428 + 0.98461222852275360e5 * t17440 * t610 * t51200 + 0.80968771756209960e5 * t33047 * t3894 * t51200 - t51437 - t51440 + t51443 + 0.13367825877147840e5 * t17462 * t590 * t51200 + t51449 - t51452 + t51455 - t51458 - t51461;
30978   t51466 = 0.226775617558758e3 * t2761 * t967 * t51182;
30979   t51469 = 0.95484470551056e2 * t3942 * t3943 * t51182;
30980   t51472 = 0.574713629618040e3 * t1759 * t138 * t51182;
30981   t51475 = 0.870778226694000e3 * t2776 * t980 * t51182;
30982   t51490 = 0.348311290677600e3 * t3958 * t3959 * t51182;
30983   t51493 = 0.559438766206110e3 * t1795 * t151 * t51182;
30984   t51503 = t51466 - t51469 + t51472 - t51475 - 0.3330414534772080e4 * t17440 * t178 * t51200 - 0.1600399800e3 * t17451 * t114 * t51200 - 0.2005173881572176e4 * t17466 * t127 * t51200 + 0.17241408888541200e5 * t17517 * t138 * t51200 + t51490 - t51493 - 0.29090815842717720e5 * t17462 * t151 * t51200 + 0.17223805462217760e5 * t17407 * t165 * t51200 + 0.464415054236800e3 * t14629 - 0.745918354941480e3 * t14632 - 0.426773280e2 * t14636;
30985   t51519 = -0.190968941102112e3 * t14638 + 0.302367490078344e3 * t14640 - 0.127312627401408e3 * t14642 + 0.766284839490720e3 * t14644 - 0.1161037635592000e4 * t14646 + 0.157603448673888e3 * t14649 - 0.38952216780960e2 * t14652 + 0.55831510719376e2 * t14654 - 0.20774515616512e2 * t14657 + 0.1101117571580280e4 * t14659 - 0.426239059966560e3 * t14661 + 0.287063424370296e3 * t14663 - 0.416523400066704e3 * t14665 - 0.533466600e2 * t14667 + 0.924675440e2 * t14669;
30986   t51527 = t11713 * t3863;
30987   t51540 = t2836 * t14505;
30988   t51561 = -0.6e1 * t1830 * t184 * t51225 * t616 - 0.3e1 * t1839 * t184 * t1841 * t51225 - 0.36e2 * t1839 * t184 * t51231 * t5691 - 0.12e2 * t184 * t18537 * t51231 * t5689 - t184 * t18554 * t18556 * t51231 + t184 * t51217 * t616 * t617 - 0.24e2 * t184 * t51231 * t5678 * t616 - 0.8e1 * t2835 * t51540 - 0.4e1 * t2843 * t51540 + 0.36e2 * t51527 * t8315 + 0.36e2 * t51527 * t8323 + 0.6e1 * t51527 * t8335;
30989   t51562 = my_piecewise3(t102, t51297 + t51350 + t51387 + t51407 + t51416 + t51462 + t51503 + t51519, t51561);
30990   t51565 = -0.24e2 * t16741 * t51140 * t187 + 0.36e2 * t4747 * t3825 * t3880 - 0.24e2 * t4747 * t14459 * t1027 - 0.6e1 * t1369 * t51150 * t187 + 0.24e2 * t1369 * t3883 * t3880 - 0.8e1 * t1369 * t944 * t14530 + 0.12e2 * t1369 * t3824 * t4017 + t405 * (0.729e3 / 0.51200e5 * t1391 * t3837 * t24 * t52 - 0.6561e4 / 0.2048000e7 * t4779 * sigma[0] * t14478 + 0.531441e6 / 0.655360000e9 * t16789 * t41 / t130 * t52 + 0.6e1 * t51175 + 0.8e1 * t940 * t14527 + 0.2e1 * t94 * t51254) * t187 - 0.4e1 * t405 * t14530 * t1027 - 0.6e1 * t405 * t3880 * t4017 - 0.4e1 * t405 * t943 * t14694 - t101 * t51562 + 0.1174e1 * t51562;
30991   t51570 = 0.34660489666083872784e2 * t1874 * t190 / t4780 * t28 * t18607 - 0.17394960937500000000e1 * t636 * t640 * t14724 * t196 * t203 - 0.15655464843750000000e2 * t636 * t1862 * t14740 * t29 * t203 - 0.54794126953125000000e2 * t636 * t16556 * t11792 * t45 * t203 * t193 + 0.27831937500000000000e1 * t2855 * t14732 + 0.25048743750000000000e2 * t2855 * t14720 - 0.27831937500000000000e1 * t11808 * t4035 - 0.12775753975349425781e2 * t636 * t14724 * t1860 * t203 * t193 * t196 - 0.93932789062500000000e2 * t2866 * t5838 * t4039 * t5832 * t203 + 0.54503531578451885124e0 * t1874 * t5846 * t51101 * t195 * t203 + 0.12741934726080110950e3 * t1874 * t190 * t51101 * t195 * t1878 + 0.67956985205760591732e2 * t1874 * t4020 * t4039 * t195 * t1878 + 0.12524371875000000000e3 * t2866 * t24379 * t14714 - 0.34882260210209206480e0 * t1874 * t24384 * t14726 - 0.13591397041152118347e3 * t1874 * t1030 * t14724 * t195 * t1878 - 0.25048743750000000000e2 * t11808 * t4030 + 0.37109250000000000000e1 * t43680 * t1038 - 0.11498178577814483203e3 * t5888 * t386 * t42715 * t638 * t203 + 0.68137354535196937499e2 * t5888 * t2510 * t14742 - 0.3e1 / 0.8e1 * t8 * t18 * t51565 * t204;
30992   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30993     v4sigma4[0] = t10 * t51570;
30994 
30995   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30996     v4sigma4[1] = 0.0e0;
30997 
30998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
30999     v4sigma4[2] = 0.0e0;
31000 
31001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31002     v4sigma4[3] = 0.0e0;
31003 
31004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31005     v4sigma4[4] = 0.0e0;
31006 
31007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31008     v4sigma4[5] = 0.0e0;
31009 
31010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31011     v4sigma4[6] = 0.0e0;
31012 
31013   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31014     v4sigma4[7] = 0.0e0;
31015 
31016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31017     v4sigma4[8] = 0.0e0;
31018 
31019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31020     v4sigma4[9] = 0.0e0;
31021 
31022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31023     v4sigma4[10] = 0.0e0;
31024 
31025   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31026     v4sigma4[11] = 0.0e0;
31027 
31028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31029     v4sigma4[12] = 0.0e0;
31030 
31031   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31032     v4sigma4[13] = 0.0e0;
31033 
31034   t51571 = t4046 * t4046;
31035   t51581 = t4102 * t4102;
31036   t51606 = t4099 * t4099;
31037   t51610 = t11985 * t4073;
31038   t51611 = t8859 * t51610;
31039   t51613 = t4073 * t4073;
31040   t51615 = t4077 * t4078 * t51613;
31041   t51616 = 0.24e2 * t51615;
31042   t51617 = t11937 * t4073;
31043   t51618 = t8621 * t51617;
31044   t51621 = t2046 * t261 * t51613;
31045   t51622 = 0.18e2 * t51621;
31046   t51623 = t11924 * t4073;
31047   t51624 = t11966 * t51623;
31048   t51627 = t2961 * t1064 * t51613;
31049   t51628 = 0.42e2 * t51627;
31050   t51632 = t15338 * t4074;
31051   t51634 = t4066 * t4066;
31052   t51636 = t1064 * t243;
31053   t51637 = t1061 * t51634 * t51636;
31054   t51640 = t35818 * t4078 * t51634;
31055   t51643 = t21113 * t766 * t51634;
31056   t51646 = t26682 * t35245 * t51634;
31057   t51648 = 0.288e3 * t51611 - t51616 + 0.324e3 * t51618 - t51622 - 0.576e3 * t51624 + t51628 - 0.32e2 * t14791 + 0.56e2 * t14785 - 0.24e2 * t14779 - 0.36e2 * t51632 + 0.120e3 * t51637 - 0.600e3 * t51640 + 0.864e3 * t51643 - 0.384e3 * t51646 - t4076 + t4084;
31058   t51656 = t4085 * t4085;
31059   t51662 = t4089 * t4089;
31060   t51663 = t56 * t51662;
31061   t51685 = t56 * t51648 * t267 / 0.100e3 - 0.3e1 / 0.25e2 * t14794 * t4404 - 0.9e1 / 0.50e2 * t4086 * t4096 - 0.9e1 / 0.100e3 * t56 * t51656 * t2120 + 0.9e1 / 0.25e2 * t4086 * t15375 + 0.3e1 / 0.20e2 * t51663 * t2120 - t51663 * t20395 / 0.10e2 - t735 * t51648 * t267 / 0.100e3 + t2127 * t14793 * t1068 * t267 / 0.25e2 + 0.3e1 / 0.100e3 * t2127 * t51656 * t267 - 0.3e1 / 0.50e2 * t6534 * t4085 * t4089 * t267 + t20412 * t51662 * t267 / 0.100e3;
31062   t51709 = 0.16008e2 * t51615;
31063   t51710 = 0.12006e2 * t51621;
31064   t51711 = 0.28014e2 * t51627;
31065   t51717 = t12115 * t4073;
31066   t51718 = t15494 * t51717;
31067   t51720 = t12410 * t51717;
31068   t51723 = t15511 * t12414 * t4073;
31069   t51725 = 0.80968771756209960e5 * t36026 * t4164 * t51634 - 0.14412320208955200e5 * t35617 * t4184 * t51634 - 0.27206796600e4 * t35609 * t4199 * t51634 - t51709 - t51710 + t51711 - 0.24012e2 * t51632 + 0.80040e2 * t51637 - 0.400200e3 * t51640 + 0.576288e3 * t51643 - 0.256128e3 * t51646 - 0.3782482768173312e4 * t51718 - 0.2056677046034688e4 * t51720 + 0.560911921645824e3 * t51723;
31070   t51726 = t12438 * t51610;
31071   t51728 = t12074 * t4073;
31072   t51729 = t12396 * t51728;
31073   t51731 = t12096 * t4073;
31074   t51732 = t8909 * t51731;
31075   t51734 = t12362 * t51731;
31076   t51736 = t8867 * t51610;
31077   t51738 = t12049 * t4073;
31078   t51739 = t8880 * t51738;
31079   t51741 = t8874 * t51738;
31080   t51743 = t8902 * t51728;
31081   t51745 = t9242 * t51731;
31082   t51747 = t9104 * t51623;
31083   t51749 = t12059 * t4073;
31084   t51750 = t8847 * t51749;
31085   t51752 = t12309 * t51738;
31086   t51754 = t8921 * t51738;
31087   t51756 = t8909 * t51728;
31088   t51758 = t8914 * t51617;
31089   t51760 = -0.13443358320e4 * t51726 - 0.30689212317592320e5 * t51729 + 0.8951020259297760e4 * t51732 + 0.13475094861617424e5 * t51734 + 0.5800681585976652e4 * t51736 - 0.30094095514544640e5 * t51739 + 0.5121279360e3 * t51741 - 0.16413273440466336e5 * t51743 + 0.2576689140060504e4 * t51745 + 0.11522878560e4 * t51747 + 0.35963920684678500e5 * t51750 - 0.5729068233063360e4 * t51752 - 0.14545407921358860e5 * t51754 - 0.1110138178257360e4 * t51756 - 0.3200799600e3 * t51758;
31090   t51762 = t8859 * t51623;
31091   t51764 = t8874 * t51610;
31092   t51766 = t8854 * t51749;
31093   t51768 = t8921 * t51749;
31094   t51770 = t12333 * t51749;
31095   t51772 = t8854 * t51728;
31096   t51783 = -0.2005173881572176e4 * t51762 + 0.11494272592360800e5 * t51764 + 0.6889522184887104e4 * t51766 + 0.1909689411021120e4 * t51768 + 0.27168280672852800e5 * t51770 - 0.8359470976262400e4 * t51772 - 0.426773280e2 * t14832 + 0.55831510719376e2 * t14835 - 0.20774515616512e2 * t14838 + 0.924675440e2 * t14840 + 0.1101117571580280e4 * t14843 - 0.426239059966560e3 * t14846 - 0.416523400066704e3 * t14848 + 0.157603448673888e3 * t14850 - 0.127312627401408e3 * t14853;
31097   t51799 = -0.1161037635592000e4 * t14855 + 0.464415054236800e3 * t14857 + 0.287063424370296e3 * t14860 - 0.38952216780960e2 * t14862 - 0.533466600e2 * t14864 - 0.190968941102112e3 * t14866 + 0.766284839490720e3 * t14868 - 0.745918354941480e3 * t14870 + 0.302367490078344e3 * t14872 - 0.16008e2 * t14779 + 0.37352e2 * t14785 - 0.21344e2 * t14791 + 0.192096e3 * t51611 + 0.216108e3 * t51618 - 0.384192e3 * t51624;
31098   t51804 = 0.574713629618040e3 * t2284 * t314 * t51613;
31099   t51810 = 0.559438766206110e3 * t2292 * t327 * t51613;
31100   t51813 = 0.226775617558758e3 * t3193 * t1102 * t51613;
31101   t51822 = 0.29214162585720e2 * t2325 * t354 * t51613;
31102   t51828 = 0.400099950e2 * t2304 * t290 * t51613;
31103   t51834 = 0.143226705826584e3 * t2313 * t303 * t51613;
31104   t51840 = 0.15580886712384e2 * t4181 * t4184 * t51613;
31105   t51843 = 0.693506580e2 * t3179 * t1089 * t51613;
31106   t51844 = t51804 - 0.29090815842717720e5 * t21226 * t327 * t51634 - t51810 + t51813 + 0.17223805462217760e5 * t21768 * t341 * t51634 - 0.3330414534772080e4 * t20516 * t354 * t51634 - t51822 - 0.1600399800e3 * t20500 * t290 * t51634 - t51828 - 0.2005173881572176e4 * t21113 * t303 * t51634 - t51834 + 0.17241408888541200e5 * t21177 * t314 * t51634 - t51840 + t51843;
31107   t51847 = 0.825838178685210e3 * t3221 * t1128 * t51613;
31108   t51850 = 0.319679294974920e3 * t4148 * t4149 * t51613;
31109   t51853 = 0.312392550050028e3 * t3149 * t1141 * t51613;
31110   t51856 = 0.118202586505416e3 * t4163 * t4164 * t51613;
31111   t51859 = 0.95484470551056e2 * t4118 * t4119 * t51613;
31112   t51862 = 0.870778226694000e3 * t3207 * t1115 * t51613;
31113   t51865 = 0.348311290677600e3 * t4133 * t4134 * t51613;
31114   t51868 = 0.215297568277722e3 * t2300 * t341 * t51613;
31115   t51871 = 0.320079960e2 * t4198 * t4199 * t51613;
31116   t51874 = 0.41873633039532e2 * t3168 * t1154 * t51613;
31117   t51890 = t51847 - t51850 - t51853 + t51856 - t51859 - t51862 + t51865 + t51868 - t51871 + t51874 - 0.60283319117762160e5 * t26201 * t1141 * t51634 + 0.11179286216135520e5 * t26183 * t1154 * t51634 + 0.11736265200e4 * t25989 * t1089 * t51634 + 0.9739415996207712e4 * t26682 * t1102 * t51634 - 0.70498205233146240e5 * t26700 * t1115 * t51634;
31118   t51895 = 0.108158161466514600e6 * t26591 * t1128 * t51634 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196 - t4203 + t4205;
31119   t51924 = t214 * t35406 * t1150;
31120   t51934 = t214 * t344 * t306 * t333 * t296;
31121   t51936 = 0.1e1 / t336 / t846;
31122   t51937 = t51936 * t21234;
31123   t51950 = 0.13367825877147840e5 * t21226 * t784 * t51634 + 0.109021433982088800e6 * t35960 * t4134 * t51634 - 0.153765740882936520e6 * t35592 * t4149 * t51634 - 0.3819378822042240e4 * t26591 * t35122 * t51634 - 0.75235238786361600e5 * t21768 * t793 * t51634 + 0.19505432277945600e5 * t26201 * t35161 * t51634 + 0.98461222852275360e5 * t20516 * t804 * t51634 - 0.23869387358127360e5 * t26183 * t35218 * t51634 - 0.49172275986253056e5 * t44444 * t8766 * t51634 + 0.11347448304519936e5 * t51924 * t35175 * t51634 + 0.8413678824687360e4 * t44462 * t14910 * t51634 - 0.1869706405486080e4 * t51934 * t51937 * t51634 + 0.25606396800e4 * t21177 * t775 * t51634 - 0.8535465600e3 * t26700 * t35287 * t51634 - 0.17282689169741136e5 * t35967 * t4119 * t51634;
31124   t51958 = t12469 * t4085;
31125   t51971 = t3233 * t14793;
31126   t51992 = -0.3e1 * t1839 * t2467 * t360 * t51656 - 0.36e2 * t1839 * t360 * t51662 * t7245 - t18554 * t21830 * t360 * t51662 - 0.12e2 * t21813 * t360 * t51662 * t5689 - 0.6e1 * t2458 * t360 * t51656 * t616 + t360 * t51648 * t616 * t881 - 0.24e2 * t360 * t51662 * t616 * t7234 - 0.8e1 * t3232 * t51971 - 0.4e1 * t3240 * t51971 + 0.36e2 * t51958 * t9372 + 0.36e2 * t51958 * t9380 + 0.6e1 * t51958 * t9392;
31127   t51993 = my_piecewise3(t278, t51725 + t51760 + t51783 + t51799 + t51844 + t51890 + t51895 + t51950, t51992);
31128   t51996 = -0.24e2 * t20016 * t51571 * t363 + 0.36e2 * t6316 * t4047 * t4102 - 0.24e2 * t6316 * t14747 * t1162 - 0.6e1 * t2000 * t51581 * t363 + 0.24e2 * t2000 * t4105 * t4102 - 0.8e1 * t2000 * t1079 * t14818 + 0.12e2 * t2000 * t4046 * t4239 + t674 * (0.729e3 / 0.51200e5 * t1391 * t4059 * t24 * t231 - 0.6561e4 / 0.2048000e7 * t4779 * sigma[2] * t14766 + 0.531441e6 / 0.655360000e9 * t16789 * t221 / t306 * t231 + 0.6e1 * t51606 + 0.8e1 * t1075 * t14815 + 0.2e1 * t270 * t51685) * t363 - 0.4e1 * t674 * t14818 * t1162 - 0.6e1 * t674 * t4102 * t4239 - 0.4e1 * t674 * t1078 * t14982 - t277 * t51993 + 0.1174e1 * t51993;
31129   t52023 = 0.1e1 / t367 / t2021;
31130   t52080 = -0.3e1 / 0.8e1 * t8 * t212 * t51996 * t377 - 0.12775753975349425781e2 * t894 * t15012 * t2486 * t376 * t193 * t369 - 0.93932789062500000000e2 * t3261 * t7280 * t4261 * t7274 * t376 + 0.37109250000000000000e1 * t44828 * t1173 - 0.25048743750000000000e2 * t12565 * t4252 + 0.34660489666083872784e2 * t2500 * t366 / t6345 * t216 * t21949 + 0.12741934726080110950e3 * t2500 * t366 * t52023 * t368 * t2504 + 0.54503531578451885124e0 * t2500 * t7288 * t52023 * t368 * t376 + 0.67956985205760591732e2 * t2500 * t4242 * t4261 * t368 * t2504 + 0.12524371875000000000e3 * t3261 * t27606 * t15002 - 0.34882260210209206480e0 * t2500 * t27611 * t15014 - 0.13591397041152118347e3 * t2500 * t1165 * t15012 * t368 * t2504 - 0.17394960937500000000e1 * t894 * t898 * t15012 * t369 * t376 - 0.54794126953125000000e2 * t894 * t22014 * t12539 * t225 * t376 * t193 - 0.15655464843750000000e2 * t894 * t2488 * t15028 * t217 * t376 + 0.27831937500000000000e1 * t3252 * t15020 + 0.25048743750000000000e2 * t3252 * t15008 - 0.27831937500000000000e1 * t12565 * t4257 - 0.11498178577814483203e3 * t6257 * t649 * t44732 * t896 * t376 + 0.68137354535196937499e2 * t6257 * t2887 * t15030;
31131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31132     v4sigma4[14] = t10 * t52080;
31133 
31134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31135     v4sigma3lapl[0] = 0.0e0;
31136 
31137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31138     v4sigma3lapl[1] = 0.0e0;
31139 
31140   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31141     v4sigma3lapl[2] = 0.0e0;
31142 
31143   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31144     v4sigma3lapl[3] = 0.0e0;
31145 
31146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31147     v4sigma3lapl[4] = 0.0e0;
31148 
31149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31150     v4sigma3lapl[5] = 0.0e0;
31151 
31152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31153     v4sigma3lapl[6] = 0.0e0;
31154 
31155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31156     v4sigma3lapl[7] = 0.0e0;
31157 
31158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31159     v4sigma3lapl[8] = 0.0e0;
31160 
31161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31162     v4sigma3lapl[9] = 0.0e0;
31163 
31164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31165     v4sigma3lapl[10] = 0.0e0;
31166 
31167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31168     v4sigma3lapl[11] = 0.0e0;
31169 
31170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31171     v4sigma3lapl[12] = 0.0e0;
31172 
31173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31174     v4sigma3lapl[13] = 0.0e0;
31175 
31176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31177     v4sigma3lapl[14] = 0.0e0;
31178 
31179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31180     v4sigma3lapl[15] = 0.0e0;
31181 
31182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31183     v4sigma3lapl[16] = 0.0e0;
31184 
31185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31186     v4sigma3lapl[17] = 0.0e0;
31187 
31188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31189     v4sigma3lapl[18] = 0.0e0;
31190 
31191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31192     v4sigma3lapl[19] = 0.0e0;
31193 
31194   t52090 = t51269 - t51270 - t51271 - 0.12006e2 * t51198 + t15136 - t15142 + t15147 - t15151 + t15156 - t15162 + t15166 - t15171 + t15176 - t15180 + t15185 - t15193 + t15197 - t15201 - t15205 + t15209;
31195   t52091 = t3363 * t42912;
31196   t52092 = t7960 * t52091;
31197   t52093 = 0.2900340792988326e4 * t52092;
31198   t52094 = t3456 * t42912;
31199   t52095 = t7972 * t52094;
31200   t52096 = 0.555069089128680e3 * t52095;
31201   t52097 = t3326 * t42912;
31202   t52098 = t7952 * t52097;
31203   t52099 = 0.1002586940786088e4 * t52098;
31204   t52100 = t7983 * t52091;
31205   t52101 = 0.5747136296180400e4 * t52100;
31206   t52102 = t3369 * t42912;
31207   t52103 = t7948 * t52102;
31208   t52104 = 0.7272703960679430e4 * t52103;
31209   t52106 = t3375 * t42912;
31210   t52107 = t7931 * t52106;
31211   t52108 = 0.3444761092443552e4 * t52107;
31212   t52109 = t3309 * t42912;
31213   t52110 = t7940 * t52109;
31214   t52111 = 0.1600399800e3 * t52110;
31215   t52112 = t3467 * t42912;
31216   t52113 = t7978 * t52112;
31217   t52114 = 0.1288344570030252e4 * t52113;
31218   t52118 = t3504 * t14483;
31219   t52121 = t3467 * t14483;
31220   t52126 = t51293 * t11320;
31221   t52127 = t10191 * t14483;
31222   t52130 = t7952 * t52091;
31223   t52131 = 0.96048e2 * t52130;
31224   t52132 = t52108 - t52111 + t52114 - 0.6721679160e3 * t51352 + 0.13584140336426400e5 * t51355 + 0.6737547430808712e4 * t51358 - 0.23869387358127360e5 * t22860 * t52118 + 0.80968771756209960e5 * t33048 * t52121 - 0.49172275986253056e5 * t43390 * t52118 + 0.11347448304519936e5 * t52126 * t52127 + t52131;
31225   t52135 = t7592 * t52109;
31226   t52136 = 0.108054e3 * t52135;
31227   t52137 = t11212 * t52097;
31228   t52138 = 0.192096e3 * t52137;
31229   t52159 = 0.3444761092443552e4 * t51378 - 0.555069089128680e3 * t51381 - 0.1600399800e3 * t51383 - 0.1002586940786088e4 * t51385 + 0.5747136296180400e4 * t51388 - 0.15047047757272320e5 * t51390 - 0.4179735488131200e4 * t51392 + 0.17981960342339250e5 * t51394 - 0.15344606158796160e5 * t51396 + 0.4475510129648880e4 * t51398 + 0.280455960822912e3 * t51401;
31230   t52167 = -t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.96048e2 * t51187 + 0.108054e3 * t51193 - 0.192096e3 * t51180 - t14622 + t14623;
31231   t52175 = t3375 * t14483;
31232   t52178 = t3456 * t14483;
31233   t52181 = t3326 * t14483;
31234   t52184 = t3363 * t14483;
31235   t52199 = t3369 * t14483;
31236   t52202 = t23156 * t52184;
31237   t52204 = t23136 * t52199;
31238   t52206 = t45442 * t15067;
31239   t52207 = 0.12006e2 * t52206;
31240   t52211 = t926 * t14483 * t928 * t3309 * t66;
31241   t52213 = t32232 * t52181;
31242   t52221 = 0.17223805462217760e5 * t22884 * t52175 - 0.1600399800e3 * t22889 * t3309 * t14483 - 0.29090815842717720e5 * t22899 * t52199 + 0.576288e3 * t52202 - 0.256128e3 * t52204 - t52207 + 0.80040e2 * t52211 - 0.400200e3 * t52213 + 0.13367825877147840e5 * t22899 * t52175 - 0.3819378822042240e4 * t22877 * t52178 + 0.109021433982088800e6 * t32695 * t52175;
31243   t52237 = t51304 * t51306;
31244   t52248 = t7931 * t52094;
31245   t52249 = 0.4179735488131200e4 * t52248;
31246   t52250 = t11659 * t52106;
31247   t52251 = 0.13584140336426400e5 * t52250;
31248   t52252 = t3504 * t42912;
31249   t52253 = t15188 * t52252;
31250   t52254 = 0.1891241384086656e4 * t52253;
31251   t52255 = t7996 * t52097;
31252   t52256 = 0.5761439280e3 * t52255;
31253   t52257 = t7965 * t52094;
31254   t52258 = 0.8206636720233168e4 * t52257;
31255   t52259 = t11645 * t52112;
31256   t52260 = 0.6737547430808712e4 * t52259;
31257   t52261 = t7922 * t52106;
31258   t52262 = 0.17981960342339250e5 * t52261;
31259   t52263 = t11588 * t52094;
31260   t52264 = 0.15344606158796160e5 * t52263;
31261   t52265 = t7972 * t52112;
31262   t52266 = 0.4475510129648880e4 * t52265;
31263   t52267 = t7948 * t52106;
31264   t52268 = 0.954844705510560e3 * t52267;
31265   t52269 = -0.70498205233146240e5 * t23128 * t52199 - t52249 + t52251 - t52254 + t52256 - t52258 + t52260 + t52262 - t52264 + t52266 + t52268;
31266   t52272 = t7990 * t52102;
31267   t52273 = 0.15047047757272320e5 * t52272;
31268   t52274 = t11613 * t52102;
31269   t52275 = 0.2864534116531680e4 * t52274;
31270   t52277 = t15216 * t10191 * t42912;
31271   t52278 = 0.280455960822912e3 * t52277;
31272   t52279 = t11559 * t52252;
31273   t52280 = 0.1028338523017344e4 * t52279;
31274   t52281 = t11693 * t52091;
31275   t52282 = 0.6721679160e3 * t52281;
31276   t52283 = t7983 * t52102;
31277   t52284 = 0.2560639680e3 * t52283;
31278   t52286 = -t51437 - t51440 + t51443 + t51449 - t51452 + t51455 - t51458 - t51461 + t51466 - t51469 + t51472;
31279   t52293 = t4296 * t11722;
31280   t52296 = t3529 * t14511;
31281   t52301 = t15084 * t933;
31282   t52302 = t52301 * t184;
31283   t52305 = t4285 * t3863;
31284   t52306 = t52305 * t184;
31285   t52309 = t4285 * t3867;
31286   t52310 = t52309 * t184;
31287   t52313 = t1188 * t14505;
31288   t52314 = t52313 * t184;
31289   t52319 = 0.18e2 * t52206;
31290   t52325 = 0.864e3 * t52202 - 0.384e3 * t52204 - t52319 + 0.120e3 * t52211 - 0.600e3 * t52213 - 0.288e3 * t51180 + t51185 + 0.144e3 * t51187 - t51191 + 0.162e3 * t51193 - t51197;
31291   t52327 = 0.144e3 * t52130;
31292   t52328 = 0.162e3 * t52135;
31293   t52329 = 0.288e3 * t52137;
31294   t52330 = -t3854 + t3862 - 0.18e2 * t51198 - t14504 - t14492 + t14498 + t52327 + t52328 - t52329 - t15069 + t15076 - t15083;
31295   t52331 = t52325 + t52330;
31296   t52351 = t184 * t52331 * t616 * t617 - 0.24e2 * t23950 * t52296 - t24084 * t52296 - 0.12e2 * t24086 * t52296 - 0.36e2 * t24093 * t52296 - 0.6e1 * t2835 * t52302 - 0.6e1 * t2835 * t52306 - 0.2e1 * t2835 * t52314 - 0.3e1 * t2843 * t52302 - 0.3e1 * t2843 * t52306 - t2843 * t52314 + 0.18e2 * t52293 * t8315 + 0.18e2 * t52293 * t8323 + 0.3e1 * t52293 * t8335 + 0.18e2 * t52310 * t8315 + 0.18e2 * t52310 * t8323 + 0.3e1 * t52310 * t8335;
31297   t52352 = my_piecewise3(t102, -0.1869706405486080e4 * t52237 * t28092 * t14483 + t43620 - t14633 - 0.1028338523017344e4 * t51368 + 0.2560639680e3 * t51370 + t3925 + t3906 - t52282 + t52284 + t52159 - t14639 + t14641 + t3949 - t3900 + t52093 + t52167 - t52273 + t3940 - t52280 - t3891 - 0.7272703960679430e4 * t51361 - 0.1891241384086656e4 * t51364 + t52286 - t14624 - t3919 - t14643 + t14645 + t52136 - t52138 + t14630 + 0.1288344570030252e4 * t51366 + t52101 + t52132 - t14637 + 0.954844705510560e3 * t51376 + 0.5761439280e3 * t51403 - t52104 - 0.27206796600e4 * t32749 * t52184 + 0.25606396800e4 * t23161 * t52199 - 0.8535465600e3 * t23128 * t52175 - 0.14412320208955200e5 * t33041 * t52118 + 0.8413678824687360e4 * t43322 * t52127 - 0.17282689169741136e5 * t32721 * t52199 - 0.153765740882936520e6 * t33486 * t52178 + 0.98461222852275360e5 * t22905 * t52121 + 0.11179286216135520e5 * t22860 * t52121 + 0.108158161466514600e6 * t22877 * t52175 - 0.60283319117762160e5 * t23141 * t52178 + 0.11736265200e4 * t23150 * t52181 + 0.9739415996207712e4 * t23136 * t52184 - 0.2005173881572176e4 * t23156 * t52181 + 0.17241408888541200e5 * t23161 * t52184 - 0.3330414534772080e4 * t22905 * t52178 - 0.75235238786361600e5 * t22884 * t52178 + 0.19505432277945600e5 * t23141 * t52121 - t51425 - t51419 + t51422 + t52269 - t52096 - t52099 + t52090 - t52275 + t52278 + 0.2900340792988326e4 * t51372 - 0.2864534116531680e4 * t51374 - 0.8206636720233168e4 * t51405 - t3934 + t52221 - t15233 + t15228 - t15226 - t51493 + t51490 - t51475 + t51428 - t15215 - t15221, t52351);
31298   t52387 = -0.3e1 * t405 * t3880 * t4372 - 0.3e1 * t405 * t943 * t15294 - t405 * t14530 * t1241 + 0.1174e1 * t52352 + 0.36e2 * t9531 * t12610 * t3824 + 0.36e2 * t38001 * t15035 - 0.24e2 * t12596 * t15040 - 0.12e2 * t45859 * t4268 - 0.36e2 * t9531 * t12714 * t3824 + 0.6e1 * t405 * t3877 * t4300 * t187 - 0.12e2 * t12596 * t15046 + 0.24e2 * t12596 * t15043 - 0.6e1 * t405 * t15116 * t1027 + 0.6e1 * t405 * t940 * t15115 * t187 - 0.12e2 * t3291 * t45900 * t943 - 0.6e1 * t405 * t4301 * t4017;
31299   t52446 = -0.3e1 / 0.100e3 * t12703 * t14521 + 0.9e1 / 0.50e2 * t12685 * t14521 - 0.9e1 / 0.100e3 * t15085 * t4290 - 0.9e1 / 0.100e3 * t4286 * t3874 - 0.9e1 / 0.100e3 * t4286 * t15093 + 0.9e1 / 0.50e2 * t4286 * t15097 - 0.9e1 / 0.100e3 * t1189 * t14521 + 0.3e1 / 0.20e2 * t1189 * t14511 * t87 * t91 - 0.3e1 / 0.100e3 * t1189 * t87 * t14505 * t91 - t1189 * t1498 * t14511 * t91 / 0.10e2 + 0.3e1 / 0.100e3 * t1499 * t52301 * t91 + 0.3e1 / 0.100e3 * t1499 * t52305 * t91 - 0.3e1 / 0.100e3 * t4970 * t52309 * t91 + t1499 * t52313 * t91 / 0.100e3 + t17136 * t1188 * t14511 * t91 / 0.100e3 + t56 * t52331 * t91 / 0.100e3 - t470 * t52331 * t91 / 0.100e3;
31300   t52489 = 0.6e1 * t1369 * t4308 * t3880 - 0.2e1 * t405 * t1195 * t14694 - t101 * t52352 - 0.6e1 * t405 * t15049 * t1027 + 0.2e1 * t405 * t94 * t52446 * t187 - 0.6e1 * t405 * t4271 * t4017 - 0.12e2 * t405 * t15053 * t1027 + 0.24e2 * t3291 * t44891 * t943 - 0.12e2 * t3291 * t12610 * t3880 + 0.6e1 * t1369 * t3824 * t4372 + 0.12e2 * t3291 * t12714 * t3880 + 0.12e2 * t3291 * t45950 * t943 - 0.4e1 * t3291 * t3292 * t14530 + 0.36e2 * t9531 * t3292 * t943 * t3880 + 0.2e1 * t405 * t14527 * t1194 * t187 - 0.48e2 * t29646 * t3292 * t14459 - 0.6e1 * t4747 * t14459 * t1241;
31301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31302     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t1179 * t1180 * (t52387 + t52489) * t204 + 0.27831937500000000000e1 * t46065 * t1038 - 0.12524371875000000000e2 * t13066 * t4030 - 0.13915968750000000000e1 * t13066 * t4035 + 0.33978492602880295866e2 * t10287 * t4375 * t4039 * t195 * t1878 + 0.31310929687500000000e2 * t13075 * t27711 * t14714 + 0.62621859375000000000e1 * t3549 * t14720 - 0.87205650525523016199e-1 * t10287 * t27716 * t14726 + 0.69579843750000000000e0 * t3549 * t14732 - 0.33978492602880295866e2 * t10287 * t1244 * t14724 * t195 * t1878 + 0.17034338633799234375e2 * t29692 * t29693 * t14742;
31303 
31304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31305     v4sigma3tau[1] = 0.0e0;
31306 
31307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31308     v4sigma3tau[2] = 0.0e0;
31309 
31310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31311     v4sigma3tau[3] = 0.0e0;
31312 
31313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31314     v4sigma3tau[4] = 0.0e0;
31315 
31316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31317     v4sigma3tau[5] = 0.0e0;
31318 
31319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31320     v4sigma3tau[6] = 0.0e0;
31321 
31322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31323     v4sigma3tau[7] = 0.0e0;
31324 
31325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31326     v4sigma3tau[8] = 0.0e0;
31327 
31328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31329     v4sigma3tau[9] = 0.0e0;
31330 
31331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31332     v4sigma3tau[10] = 0.0e0;
31333 
31334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31335     v4sigma3tau[11] = 0.0e0;
31336 
31337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31338     v4sigma3tau[12] = 0.0e0;
31339 
31340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31341     v4sigma3tau[13] = 0.0e0;
31342 
31343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31344     v4sigma3tau[14] = 0.0e0;
31345 
31346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31347     v4sigma3tau[15] = 0.0e0;
31348 
31349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31350     v4sigma3tau[16] = 0.0e0;
31351 
31352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31353     v4sigma3tau[17] = 0.0e0;
31354 
31355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31356     v4sigma3tau[18] = 0.0e0;
31357 
31358   t52538 = -t15413 + t15415 - t15417 - t51709 - t51710 + t51711 - 0.12006e2 * t51632 - 0.1891241384086656e4 * t51718 - 0.1028338523017344e4 * t51720 + 0.280455960822912e3 * t51723 - 0.6721679160e3 * t51726 - 0.15344606158796160e5 * t51729 + 0.4475510129648880e4 * t51732 + 0.6737547430808712e4 * t51734 + 0.2900340792988326e4 * t51736 - 0.15047047757272320e5 * t51739 + 0.2560639680e3 * t51741 - 0.8206636720233168e4 * t51743 + 0.1288344570030252e4 * t51745 + 0.5761439280e3 * t51747;
31359   t52551 = -0.4179735488131200e4 * t51772 - t14833 + t14836 - t14839 + t14841 + t14844 - t14847 - t14849 + t14851 - t14854 - t14856;
31360   t52558 = -t14876 + 0.96048e2 * t51611 + 0.108054e3 * t51618 - 0.192096e3 * t51624 + t51804 - t51810 + t51813 - t51822 - t51828 - t51834 - t51840;
31361   t52561 = t51874 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177;
31362   t52566 = -t15479 + t15484 - t15488 + t15493 - t15499 + t15505 - t15510 - t15516 + t15535 - t15539 - t15543;
31363   t52568 = t3643 * t14771;
31364   t52571 = t3600 * t14771;
31365   t52574 = t3637 * t14771;
31366   t52579 = t3649 * t14771;
31367   t52591 = t3661 * t14771;
31368   t52596 = t3655 * t14771;
31369   t52601 = t3583 * t43895;
31370   t52602 = t8621 * t52601;
31371   t52603 = 0.108054e3 * t52602;
31372   t52604 = t3600 * t43895;
31373   t52605 = t11966 * t52604;
31374   t52606 = 0.192096e3 * t52605;
31375   t52607 = t9104 * t52604;
31376   t52608 = 0.5761439280e3 * t52607;
31377   t52609 = t3637 * t43895;
31378   t52610 = t12438 * t52609;
31379   t52611 = 0.6721679160e3 * t52610;
31380   t52612 = t8859 * t52604;
31381   t52613 = 0.1002586940786088e4 * t52612;
31382   t52614 = t8859 * t52609;
31383   t52615 = 0.96048e2 * t52614;
31384   t52616 = t3788 * t14771;
31385   t52619 = 0.11179286216135520e5 * t26184 * t52591 + 0.11736265200e4 * t25990 * t52571 - 0.153765740882936520e6 * t35593 * t52596 - 0.60283319117762160e5 * t26202 * t52596 + t52603 - t52606 + t52608 - t52611 - t52613 + t52615 - 0.23869387358127360e5 * t26184 * t52616;
31386   t52626 = t51924 * t12113;
31387   t52627 = t10955 * t14771;
31388   t52634 = t51934 * t51936;
31389   t52638 = t26689 * t52574;
31390   t52640 = t26683 * t52568;
31391   t52642 = t46636 * t15345;
31392   t52643 = 0.12006e2 * t52642;
31393   t52647 = t1061 * t14771 * t1063 * t3583 * t243;
31394   t52650 = t35819 * t52571;
31395   t52673 = -0.400200e3 * t52650 + 0.13367825877147840e5 * t26195 * t52579 - 0.3819378822042240e4 * t26592 * t52596 + 0.109021433982088800e6 * t35961 * t52579 - 0.75235238786361600e5 * t26604 * t52596 + 0.19505432277945600e5 * t26202 * t52591 + 0.98461222852275360e5 * t26177 * t52591 - 0.3330414534772080e4 * t26177 * t52596 - 0.1600399800e3 * t26212 * t3583 * t14771 + 0.17223805462217760e5 * t26604 * t52579 - 0.27206796600e4 * t35610 * t52574;
31396   t52675 = t3643 * t43895;
31397   t52676 = t8921 * t52675;
31398   t52678 = t8874 * t52609;
31399   t52680 = t3655 * t43895;
31400   t52681 = t8909 * t52680;
31401   t52683 = t8914 * t52601;
31402   t52685 = t3649 * t43895;
31403   t52686 = t8847 * t52685;
31404   t52688 = t8854 * t52685;
31405   t52690 = t8921 * t52685;
31406   t52692 = t12309 * t52675;
31407   t52694 = t8874 * t52675;
31408   t52696 = t8867 * t52609;
31409   t52699 = t8854 * t52680;
31410   t52701 = t3788 * t43895;
31411   t52702 = t15494 * t52701;
31412   t52704 = t3661 * t43895;
31413   t52705 = t9242 * t52704;
31414   t52707 = t12410 * t52701;
31415   t52710 = t15511 * t10955 * t43895;
31416   t52712 = t8909 * t52704;
31417   t52714 = t8902 * t52680;
31418   t52716 = t12362 * t52704;
31419   t52718 = t12396 * t52680;
31420   t52720 = t8880 * t52675;
31421   t52722 = t12333 * t52685;
31422   t52724 = -0.4179735488131200e4 * t52699 - 0.1891241384086656e4 * t52702 + 0.1288344570030252e4 * t52705 - 0.1028338523017344e4 * t52707 + 0.280455960822912e3 * t52710 + 0.4475510129648880e4 * t52712 - 0.8206636720233168e4 * t52714 + 0.6737547430808712e4 * t52716 - 0.15344606158796160e5 * t52718 - 0.15047047757272320e5 * t52720 + 0.13584140336426400e5 * t52722;
31423   t52725 = -0.7272703960679430e4 * t52676 + 0.5747136296180400e4 * t52678 - 0.555069089128680e3 * t52681 - 0.1600399800e3 * t52683 + 0.17981960342339250e5 * t52686 + 0.3444761092443552e4 * t52688 + 0.954844705510560e3 * t52690 - 0.2864534116531680e4 * t52692 + 0.2560639680e3 * t52694 + 0.2900340792988326e4 * t52696 + t52724;
31424   t52733 = 0.144e3 * t51611 - t51616 + 0.162e3 * t51618 - t51622 - 0.288e3 * t51624 + t51628 - t14792 + t14786 - t14780 - 0.18e2 * t51632 + t15354;
31425   t52734 = 0.144e3 * t52614;
31426   t52737 = 0.162e3 * t52602;
31427   t52738 = 0.288e3 * t52605;
31428   t52739 = 0.18e2 * t52642;
31429   t52742 = -t15361 - t15347 - t4076 + t4084 + t52734 + 0.864e3 * t52638 - 0.384e3 * t52640 + t52737 - t52738 - t52739 + 0.120e3 * t52647 - 0.600e3 * t52650;
31430   t52743 = t52733 + t52742;
31431   t52747 = t15362 * t1068;
31432   t52748 = t52747 * t360;
31433   t52751 = t4399 * t4085;
31434   t52752 = t52751 * t360;
31435   t52755 = t4399 * t4089;
31436   t52756 = t52755 * t360;
31437   t52759 = t1257 * t14793;
31438   t52760 = t52759 * t360;
31439   t52762 = t1257 * t14799;
31440   t52763 = t52762 * t360;
31441   t52765 = t15385 * t3233;
31442   t52788 = t360 * t52743 * t616 * t881 - t27446 * t52763 - 0.12e2 * t27452 * t52763 - 0.36e2 * t27459 * t52763 - 0.24e2 * t27471 * t52763 - 0.6e1 * t3232 * t52748 - 0.6e1 * t3232 * t52752 - 0.2e1 * t3232 * t52760 - 0.3e1 * t3240 * t52748 - 0.3e1 * t3240 * t52752 - t3240 * t52760 + 0.18e2 * t52756 * t9372 + 0.18e2 * t52756 * t9380 + 0.3e1 * t52756 * t9392 + 0.18e2 * t52765 * t9372 + 0.18e2 * t52765 * t9380 + 0.3e1 * t52765 * t9392;
31443   t52789 = my_piecewise3(t278, -0.1869706405486080e4 * t52634 * t30633 * t14771 - t14874 + t14875 + t51865 + t51868 - 0.256128e3 * t52640 - t52643 + 0.3444761092443552e4 * t51766 + 0.954844705510560e3 * t51768 + t14858 + t51847 + t52561 + t52538 + t51843 - t14871 + t14873 + 0.13584140336426400e5 * t51770 - t51853 + t51856 - t4203 + t4205 - t14865 - t51862 + t14861 - t14863 + t52566 - t14867 + t14869 - t4190 + t52619 + 0.576288e3 * t52638 + 0.80040e2 * t52647 + t15457 - 0.7272703960679430e4 * t51754 + t52558 - t15461 - t51871 - t51859 + t52673 - 0.1002586940786088e4 * t51762 + 0.5747136296180400e4 * t51764 - t51850 + t15466 - 0.2005173881572176e4 * t26689 * t52571 + 0.17241408888541200e5 * t26714 * t52574 + 0.25606396800e4 * t26714 * t52568 - 0.8535465600e3 * t26701 * t52579 - 0.17282689169741136e5 * t35968 * t52568 + 0.108158161466514600e6 * t26592 * t52579 + 0.9739415996207712e4 * t26683 * t52574 - 0.70498205233146240e5 * t26701 * t52568 + 0.80968771756209960e5 * t36027 * t52591 - 0.49172275986253056e5 * t44445 * t52616 + 0.11347448304519936e5 * t52626 * t52627 - 0.14412320208955200e5 * t35618 * t52616 + 0.8413678824687360e4 * t44463 * t52627 - 0.29090815842717720e5 * t26195 * t52568 + t52551 + t4196 + t15547 + t52725 + 0.17981960342339250e5 * t51750 - 0.2864534116531680e4 * t51752 + t15473 - t15471 - 0.555069089128680e3 * t51756 - 0.1600399800e3 * t51758 - t15451, t52788);
31444   t52829 = 0.1174e1 * t52789 - t277 * t52789 - 0.3e1 * t674 * t1078 * t15572 - 0.3e1 * t674 * t4102 * t4486 - 0.6e1 * t674 * t4415 * t4239 - 0.6e1 * t674 * t15394 * t1162 - 0.12e2 * t3565 * t47237 * t1078 - 0.36e2 * t10371 * t13239 * t4046 - 0.4e1 * t3565 * t3566 * t14818 + 0.24e2 * t13121 * t15321 + 0.36e2 * t38646 * t15313 + 0.36e2 * t10371 * t13135 * t4046 - 0.12e2 * t13121 * t15324 - 0.24e2 * t13121 * t15318 - 0.12e2 * t47282 * t4382 + 0.24e2 * t3565 * t46126 * t1078;
31445   t52922 = -0.3e1 / 0.100e3 * t6534 * t52755 * t267 + t2127 * t52759 * t267 / 0.100e3 + t20412 * t52762 * t267 / 0.100e3 - 0.9e1 / 0.100e3 * t15363 * t4404 - 0.9e1 / 0.100e3 * t4400 * t4096 - 0.9e1 / 0.100e3 * t4400 * t15371 + 0.9e1 / 0.50e2 * t4400 * t15375 - 0.9e1 / 0.100e3 * t1258 * t14809 + 0.3e1 / 0.20e2 * t1258 * t14799 * t263 * t267 - 0.3e1 / 0.100e3 * t1258 * t263 * t14793 * t267 - t1258 * t2126 * t14799 * t267 / 0.10e2 + 0.3e1 / 0.100e3 * t2127 * t52747 * t267 + 0.3e1 / 0.100e3 * t2127 * t52751 * t267 + t56 * t52743 * t267 / 0.100e3 + 0.9e1 / 0.50e2 * t13210 * t14809 - 0.3e1 / 0.100e3 * t13228 * t14809 - t735 * t52743 * t267 / 0.100e3;
31446   t52933 = 0.12e2 * t3565 * t47118 * t1078 - t674 * t14818 * t1310 - 0.6e1 * t6316 * t14747 * t1310 + 0.6e1 * t2000 * t4422 * t4102 + 0.6e1 * t674 * t4099 * t4414 * t363 - 0.2e1 * t674 * t1264 * t14982 + 0.2e1 * t674 * t14815 * t1263 * t363 - 0.6e1 * t674 * t15327 * t1162 + 0.6e1 * t674 * t1075 * t15393 * t363 + 0.6e1 * t2000 * t4046 * t4486 - 0.6e1 * t674 * t4385 * t4239 - 0.12e2 * t674 * t15331 * t1162 + 0.36e2 * t10371 * t3566 * t1078 * t4102 + 0.12e2 * t3565 * t13239 * t4102 + 0.2e1 * t674 * t270 * t52922 * t363 - 0.48e2 * t31883 * t3566 * t14747 - 0.12e2 * t3565 * t13135 * t4102;
31447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31448     v4sigma3tau[19] = -0.3e1 / 0.8e1 * t1179 * t1249 * (t52829 + t52933) * t377 + 0.27831937500000000000e1 * t47339 * t1173 - 0.12524371875000000000e2 * t13591 * t4252 - 0.13915968750000000000e1 * t13591 * t4257 + 0.33978492602880295866e2 * t11127 * t4489 * t4261 * t368 * t2504 + 0.31310929687500000000e2 * t13598 * t31908 * t15002 + 0.62621859375000000000e1 * t3821 * t15008 - 0.87205650525523016199e-1 * t11127 * t31913 * t15014 + 0.69579843750000000000e0 * t3821 * t15020 - 0.33978492602880295866e2 * t11127 * t1313 * t15012 * t368 * t2504 + 0.17034338633799234375e2 * t29692 * t31896 * t15030;
31449 
31450   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31451     v4sigma2lapl2[0] = 0.0e0;
31452 
31453   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31454     v4sigma2lapl2[1] = 0.0e0;
31455 
31456   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31457     v4sigma2lapl2[2] = 0.0e0;
31458 
31459   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31460     v4sigma2lapl2[3] = 0.0e0;
31461 
31462   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31463     v4sigma2lapl2[4] = 0.0e0;
31464 
31465   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31466     v4sigma2lapl2[5] = 0.0e0;
31467 
31468   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31469     v4sigma2lapl2[6] = 0.0e0;
31470 
31471   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31472     v4sigma2lapl2[7] = 0.0e0;
31473 
31474   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31475     v4sigma2lapl2[8] = 0.0e0;
31476 
31477   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31478     v4sigma2lapl2[9] = 0.0e0;
31479 
31480   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31481     v4sigma2lapl2[10] = 0.0e0;
31482 
31483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31484     v4sigma2lapl2[11] = 0.0e0;
31485 
31486   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31487     v4sigma2lapl2[12] = 0.0e0;
31488 
31489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31490     v4sigma2lapl2[13] = 0.0e0;
31491 
31492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31493     v4sigma2lapl2[14] = 0.0e0;
31494 
31495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31496     v4sigma2lapl2[15] = 0.0e0;
31497 
31498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31499     v4sigma2lapl2[16] = 0.0e0;
31500 
31501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31502     v4sigma2lapl2[17] = 0.0e0;
31503 
31504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31505     v4sigma2lapltau[0] = 0.0e0;
31506 
31507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31508     v4sigma2lapltau[1] = 0.0e0;
31509 
31510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31511     v4sigma2lapltau[2] = 0.0e0;
31512 
31513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31514     v4sigma2lapltau[3] = 0.0e0;
31515 
31516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31517     v4sigma2lapltau[4] = 0.0e0;
31518 
31519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31520     v4sigma2lapltau[5] = 0.0e0;
31521 
31522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31523     v4sigma2lapltau[6] = 0.0e0;
31524 
31525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31526     v4sigma2lapltau[7] = 0.0e0;
31527 
31528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31529     v4sigma2lapltau[8] = 0.0e0;
31530 
31531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31532     v4sigma2lapltau[9] = 0.0e0;
31533 
31534   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31535     v4sigma2lapltau[10] = 0.0e0;
31536 
31537   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31538     v4sigma2lapltau[11] = 0.0e0;
31539 
31540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31541     v4sigma2lapltau[12] = 0.0e0;
31542 
31543   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31544     v4sigma2lapltau[13] = 0.0e0;
31545 
31546   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31547     v4sigma2lapltau[14] = 0.0e0;
31548 
31549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31550     v4sigma2lapltau[15] = 0.0e0;
31551 
31552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31553     v4sigma2lapltau[16] = 0.0e0;
31554 
31555   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31556     v4sigma2lapltau[17] = 0.0e0;
31557 
31558   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31559     v4sigma2lapltau[18] = 0.0e0;
31560 
31561   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31562     v4sigma2lapltau[19] = 0.0e0;
31563 
31564   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31565     v4sigma2lapltau[20] = 0.0e0;
31566 
31567   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31568     v4sigma2lapltau[21] = 0.0e0;
31569 
31570   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31571     v4sigma2lapltau[22] = 0.0e0;
31572 
31573   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31574     v4sigma2lapltau[23] = 0.0e0;
31575 
31576   t52968 = t3292 * t15115;
31577   t52971 = t12714 * t4300;
31578   t52997 = t4300 * t4300;
31579   t53014 = t43 * t3851 * t4505;
31580   t53019 = t51185 - t51191 - t51197 - 0.6e1 * t51198 - t15623 + t15627 - t15633 - 0.6e1 * t53014 + 0.192e3 * t52130 + 0.216e3 * t52135 - 0.384e3 * t52137 - t3854 + t3862;
31581   t53027 = t926 * t3844 * t928 * t13646 * t66;
31582   t53029 = t13646 * t3851;
31583   t53030 = t7592 * t53029;
31584   t53032 = t13657 * t3844;
31585   t53033 = t32232 * t53032;
31586   t53035 = t13657 * t3851;
31587   t53036 = t11212 * t53035;
31588   t53038 = t13667 * t3844;
31589   t53039 = t23156 * t53038;
31590   t53041 = t13667 * t3851;
31591   t53042 = t7952 * t53041;
31592   t53044 = t13746 * t3844;
31593   t53045 = t23136 * t53044;
31594   t53047 = 0.48e2 * t51187 + 0.54e2 * t51193 - 0.96e2 * t51180 - t15066 + t15073 - t15080 - 0.24e2 * t52206 + 0.120e3 * t53027 + 0.54e2 * t53030 - 0.600e3 * t53033 - 0.96e2 * t53036 + 0.864e3 * t53039 + 0.48e2 * t53042 - 0.384e3 * t53045;
31595   t53048 = t53019 + t53047;
31596   t53056 = t4518 * t3867;
31597   t53068 = t4285 * t4285;
31598   t53074 = -t12703 * t15104 / 0.25e2 + 0.6e1 / 0.25e2 * t12685 * t15104 + t56 * t53048 * t91 / 0.100e3 - t4970 * t4518 * t3863 * t91 / 0.100e3 + t17136 * t53056 * t91 / 0.100e3 - 0.3e1 / 0.50e2 * t15636 * t4290 - 0.3e1 / 0.100e3 * t4515 * t3874 - 0.3e1 / 0.100e3 * t4515 * t15093 + 0.3e1 / 0.50e2 * t4515 * t15097 - 0.3e1 / 0.50e2 * t56 * t53068 * t1492 - 0.3e1 / 0.25e2 * t1189 * t15104;
31599   t53113 = -0.3e1 / 0.50e2 * t1189 * t1492 * t15084 + 0.3e1 / 0.20e2 * t4519 * t3867 * t87 * t91 + 0.3e1 / 0.50e2 * t4519 * t89 * t3863 * t91 - t4519 * t1498 * t3867 * t91 / 0.10e2 + t1499 * t15635 * t933 * t91 / 0.50e2 + t1499 * t4514 * t3863 * t91 / 0.100e3 - t4970 * t4514 * t3867 * t91 / 0.100e3 + t1499 * t53068 * t91 / 0.50e2 + t1499 * t1191 * t15084 / 0.50e2 - 0.3e1 / 0.100e3 * t4519 * t3871 - t470 * t53048 * t91 / 0.100e3;
31600   t53119 = 0.4e1 * t405 * t52968 - 0.8e1 * t405 * t52971 - 0.64e2 * t3291 * t3292 * t15053 + 0.4e1 * t405 * t940 * t15664 * t187 + 0.2e1 * t405 * t3877 * t4528 * t187 + 0.96e2 * t9531 * t4501 * t943 * t940 + 0.96e2 * t13617 * t3292 * t943 * t4300 - 0.16e2 * t1369 * t3842 * t4496 * t187 - 0.16e2 * t1369 * t95 * t52997 * t187 - 0.8e1 * t405 * t4301 * t4372 - 0.4e1 * t405 * t15116 * t1241 + 0.2e1 * t405 * t94 * (t53074 + t53113) * t187;
31601   t53128 = t4501 * t3824;
31602   t53153 = -0.4e1 * t1027 * t15613 * t405 - 0.4e1 * t1027 * t15665 * t405 - 0.4e1 * t1195 * t15294 * t405 - 0.4e1 * t1241 * t15049 * t405 - 0.8e1 * t1241 * t15053 * t405 - 0.8e1 * t3291 * t48308 * t943 - t3880 * t405 * t4607 - 0.2e1 * t4017 * t405 * t4529 - 0.8e1 * t405 * t4271 * t4372 - 0.8e1 * t12596 * t15610 - 0.16e2 * t15040 * t40105 - 0.96e2 * t41285 * t53128;
31603   t53155 = t4501 * t3880;
31604   t53158 = t15607 * t943;
31605   t53187 = t51269 - t51270 - t51271 - 0.4002e1 * t51198 + t15744 - t15745 + t15746 - t15747 + t15748 - t15749 + t15751 - t15752;
31606   t53188 = t15753 - t15754 + t15755 - t15756 + t15757 - t15758 - t15759 + t15760 - t15761 - t15765 - t15766 + t15767;
31607   t53201 = -t15768 + 0.3867121057317768e4 * t52092 - 0.740092118838240e3 * t52095 - 0.1336782587714784e4 * t52098 + 0.7662848394907200e4 * t52100 - 0.9696938614239240e4 * t52103 + 0.4593014789924736e4 * t52107 - 0.2133866400e3 * t52110 - 0.4002e1 * t53014 + 0.1717792760040336e4 * t52113 - 0.2240559720e3 * t51352 + 0.4528046778808800e4 * t51355;
31608   t53214 = 0.2245849143602904e4 * t51358 + 0.128064e3 * t52130 + 0.144072e3 * t52135 - 0.256128e3 * t52137 - 0.2424234653559810e4 * t51361 - 0.630413794695552e3 * t51364 + 0.429448190010084e3 * t51366 - 0.342779507672448e3 * t51368 + 0.853546560e2 * t51370 + 0.966780264329442e3 * t51372 - 0.954844705510560e3 * t51374 + 0.318281568503520e3 * t51376;
31609   t53229 = 0.1148253697481184e4 * t51378 - 0.185023029709560e3 * t51381 - 0.533466600e2 * t51383 - 0.334195646928696e3 * t51385 + 0.1915712098726800e4 * t51388 - 0.5015682585757440e4 * t51390 - 0.1393245162710400e4 * t51392 + 0.5993986780779750e4 * t51394 - 0.5114868719598720e4 * t51396 + 0.1491836709882960e4 * t51398 + 0.93485320274304e2 * t51401 + 0.1920479760e3 * t51403;
31610   t53231 = -0.2735545573411056e4 * t51405 - t3891 - t3900 + t3906 - t3919 + t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989;
31611   t53239 = t13760 * t3844;
31612   t53242 = t3991 + t3994 + t4003 + 0.32016e2 * t51187 + 0.36018e2 * t51193 - 0.64032e2 * t51180 - t15249 + t15250 - t15251 - 0.16008e2 * t52206 - 0.27206796600e4 * t32749 * t53038 + 0.17223805462217760e5 * t22884 * t53239;
31613   t53243 = t13777 * t3844;
31614   t53251 = t13851 * t3844;
31615   t53254 = t13870 * t3844;
31616   t53269 = t13760 * t3851;
31617   t53270 = t7931 * t53269;
31618   t53274 = -0.3330414534772080e4 * t22905 * t53243 - 0.1600399800e3 * t22889 * t13646 * t3844 - 0.153765740882936520e6 * t33486 * t53243 + 0.80968771756209960e5 * t33048 * t53251 - 0.14412320208955200e5 * t33041 * t53254 + 0.25606396800e4 * t23161 * t53044 - 0.17282689169741136e5 * t32721 * t53044 + 0.109021433982088800e6 * t32695 * t53239 - 0.2005173881572176e4 * t23156 * t53032 + 0.17241408888541200e5 * t23161 * t53038 - 0.29090815842717720e5 * t22899 * t53044 + 0.1148253697481184e4 * t53270 - 0.60283319117762160e5 * t23141 * t53243;
31619   t53278 = t13777 * t3851;
31620   t53279 = t7965 * t53278;
31621   t53281 = t7972 * t53278;
31622   t53283 = t13746 * t3851;
31623   t53284 = t7983 * t53283;
31624   t53288 = t11613 * t53283;
31625   t53290 = t7990 * t53283;
31626   t53292 = t7948 * t53283;
31627   t53296 = t7922 * t53269;
31628   t53300 = t7948 * t53269;
31629   t53304 = -0.2735545573411056e4 * t53279 - 0.185023029709560e3 * t53281 + 0.853546560e2 * t53284 - 0.8535465600e3 * t23128 * t53239 - 0.954844705510560e3 * t53288 - 0.5015682585757440e4 * t53290 - 0.2424234653559810e4 * t53292 + 0.108158161466514600e6 * t22877 * t53239 + 0.5993986780779750e4 * t53296 + 0.13367825877147840e5 * t22899 * t53239 + 0.318281568503520e3 * t53300 - 0.3819378822042240e4 * t22877 * t53243;
31630   t53305 = t11659 * t53269;
31631   t53309 = t7931 * t53278;
31632   t53313 = t11588 * t53278;
31633   t53317 = t13851 * t3851;
31634   t53318 = t7972 * t53317;
31635   t53322 = t11645 * t53317;
31636   t53326 = t13870 * t3851;
31637   t53327 = t15188 * t53326;
31638   t53329 = t13888 * t3844;
31639   t53332 = 0.4528046778808800e4 * t53305 - 0.75235238786361600e5 * t22884 * t53243 - 0.1393245162710400e4 * t53309 + 0.19505432277945600e5 * t23141 * t53251 - 0.5114868719598720e4 * t53313 + 0.98461222852275360e5 * t22905 * t53251 + 0.1491836709882960e4 * t53318 - 0.23869387358127360e5 * t22860 * t53254 + 0.2245849143602904e4 * t53322 - 0.49172275986253056e5 * t43390 * t53254 - 0.630413794695552e3 * t53327 + 0.11347448304519936e5 * t52126 * t53329;
31640   t53334 = t11559 * t53326;
31641   t53339 = t15216 * t13888 * t3851;
31642   t53344 = t11693 * t53041;
31643   t53348 = t7978 * t53317;
31644   t53350 = t7940 * t53029;
31645   t53354 = t7996 * t53035;
31646   t53356 = t7952 * t53035;
31647   t53360 = -0.342779507672448e3 * t53334 + 0.8413678824687360e4 * t43322 * t53329 + 0.93485320274304e2 * t53339 - 0.1869706405486080e4 * t52237 * t40653 * t3844 - 0.2240559720e3 * t53344 + 0.11179286216135520e5 * t22860 * t53251 + 0.429448190010084e3 * t53348 - 0.533466600e2 * t53350 + 0.11736265200e4 * t23150 * t53032 + 0.1920479760e3 * t53354 - 0.334195646928696e3 * t53356 + 0.9739415996207712e4 * t23136 * t53038;
31648   t53361 = t7960 * t53041;
31649   t53363 = t7983 * t53041;
31650   t53377 = 0.966780264329442e3 * t53361 + 0.1915712098726800e4 * t53363 - 0.70498205233146240e5 * t23128 * t53044 - 0.5572980650841600e4 * t52248 + 0.18112187115235200e5 * t52250 - 0.2521655178782208e4 * t52253 + 0.7681919040e3 * t52255 - 0.10942182293644224e5 * t52257 + 0.8983396574411616e4 * t52259 + 0.23975947123119000e5 * t52261 - 0.20459474878394880e5 * t52263 + 0.5967346839531840e4 * t52265 + 0.1273126274014080e4 * t52267;
31651   t53392 = -0.20062730343029760e5 * t52272 - 0.3819378822042240e4 * t52274 + 0.373941281097216e3 * t52277 - 0.1371118030689792e4 * t52279 - 0.8962238880e3 * t52281 + 0.3414186240e3 * t52283 + 0.80040e2 * t53027 + 0.36018e2 * t53030 - 0.400200e3 * t53033 - 0.64032e2 * t53036 + 0.576288e3 * t53039 + 0.32016e2 * t53042;
31652   t53394 = -0.256128e3 * t53045 - t51419 + t51422 - t51425 + t51428 - t51437 - t51440 + t51443 + t51449 - t51452 + t51455 - t51458;
31653   t53396 = -t51461 + t51466 - t51469 + t51472 - t51475 + t51490 - t51493 + t15252 - t15253 - t15254 - t15255 + t15256;
31654   t53397 = -t15257 + t15258 - t15260 + t15261 - t15262 + t15263 - t15264 + t15265 - t15266 + t15267 - t15268 - t15269 + t15270;
31655   t53402 = t13999 * t3863;
31656   t53405 = t53056 * t184;
31657   t53415 = t4296 * t13044;
31658   t53424 = t14008 * t3867;
31659   t53427 = t3529 * t15084;
31660   t53431 = -0.4e1 * t1830 * t184 * t53068 * t616 + t184 * t53048 * t616 * t617 - 0.24e2 * t23950 * t53405 - 0.36e2 * t24093 * t53405 - 0.2e1 * t2843 * t53427 + 0.6e1 * t53402 * t8315 + t53402 * t8335 + 0.24e2 * t53415 * t8315 + 0.24e2 * t53415 * t8323 + 0.4e1 * t53415 * t8335 + 0.6e1 * t53424 * t8315;
31661   t53440 = t15635 * t184 * t933;
31662   t53443 = t14008 * t3863;
31663   t53456 = -0.2e1 * t1839 * t184 * t1841 * t53068 - t24084 * t53405 - 0.12e2 * t24086 * t53405 - 0.4e1 * t2835 * t53427 - 0.4e1 * t2835 * t53440 - 0.2e1 * t2835 * t53443 - 0.2e1 * t2843 * t53440 - t2843 * t53443 + 0.6e1 * t53402 * t8323 + 0.6e1 * t53424 * t8323 + t53424 * t8335;
31664   t53458 = my_piecewise3(t102, t53187 + t53188 + t53201 + t53214 + t53229 + t53231 + t53242 + t53274 + t53304 + t53332 + t53360 + t53377 + t53392 + t53394 + t53396 + t53397, t53431 + t53456);
31665   t53460 = -0.4e1 * t13638 * t3291 * t3880 + 0.12e2 * t13638 * t3824 * t9531 - 0.24e2 * t13728 * t3824 * t9531 + 0.32e2 * t15607 * t3291 * t940 - 0.2e1 * t15819 * t405 * t943 - 0.16e2 * t3291 * t3877 * t4501 + 0.8e1 * t3291 * t48314 * t943 - t101 * t53458 + 0.24e2 * t13617 * t53155 - 0.48e2 * t13617 * t53158 - 0.16e2 * t13624 * t52968 + 0.32e2 * t13624 * t52971;
31666   t53491 = 0.16e2 * t3291 * t48347 * t943 + 0.16e2 * t3291 * t48166 * t943 + 0.16e2 * t12596 * t15672 + 0.8e1 * t3291 * t13728 * t3880 + 0.4e1 * t405 * t52997 * t187 + 0.2e1 * t1369 * t3824 * t4607 + 0.8e1 * t1369 * t4497 * t4017 + 0.12e2 * t4747 * t53128 + 0.1174e1 * t53458 - 0.4e1 * t1369 * t53155 + 0.8e1 * t1369 * t53158 - 0.2e1 * t405 * t4496 * t4017;
31667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31668     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t1179 * t1180 * (t53119 + t53153 + t53460 + t53491) * t204 + 0.18554625000000000000e1 * t48427 * t1038 - 0.41747906250000000000e1 * t14029 * t4030 - 0.46386562500000000000e0 * t14029 * t4035 + 0.11326164200960098622e2 * t10287 * t4610 * t4039 * t195 * t1878;
31669 
31670   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31671     v4sigma2tau2[1] = 0.0e0;
31672 
31673   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31674     v4sigma2tau2[2] = 0.0e0;
31675 
31676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31677     v4sigma2tau2[3] = 0.0e0;
31678 
31679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31680     v4sigma2tau2[4] = 0.0e0;
31681 
31682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31683     v4sigma2tau2[5] = 0.0e0;
31684 
31685   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31686     v4sigma2tau2[6] = 0.0e0;
31687 
31688   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31689     v4sigma2tau2[7] = 0.0e0;
31690 
31691   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31692     v4sigma2tau2[8] = 0.0e0;
31693 
31694   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31695     v4sigma2tau2[9] = 0.0e0;
31696 
31697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31698     v4sigma2tau2[10] = 0.0e0;
31699 
31700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31701     v4sigma2tau2[11] = 0.0e0;
31702 
31703   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31704     v4sigma2tau2[12] = 0.0e0;
31705 
31706   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31707     v4sigma2tau2[13] = 0.0e0;
31708 
31709   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31710     v4sigma2tau2[14] = 0.0e0;
31711 
31712   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31713     v4sigma2tau2[15] = 0.0e0;
31714 
31715   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31716     v4sigma2tau2[16] = 0.0e0;
31717 
31718   t53515 = -t15924 + t15925 - t15926 - t51709 - t51710 + t51711 - 0.4002e1 * t51632 - 0.630413794695552e3 * t51718 - 0.342779507672448e3 * t51720 + 0.93485320274304e2 * t51723 - 0.2240559720e3 * t51726 - 0.5114868719598720e4 * t51729;
31719   t53528 = 0.1491836709882960e4 * t51732 + 0.2245849143602904e4 * t51734 + 0.966780264329442e3 * t51736 - 0.5015682585757440e4 * t51739 + 0.853546560e2 * t51741 - 0.2735545573411056e4 * t51743 + 0.429448190010084e3 * t51745 + 0.1920479760e3 * t51747 + 0.5993986780779750e4 * t51750 - 0.954844705510560e3 * t51752 - 0.2424234653559810e4 * t51754 - 0.185023029709560e3 * t51756;
31720   t53537 = -0.533466600e2 * t51758 - 0.334195646928696e3 * t51762 + 0.1915712098726800e4 * t51764 + 0.1148253697481184e4 * t51766 + 0.318281568503520e3 * t51768 + 0.4528046778808800e4 * t51770 - 0.1393245162710400e4 * t51772 - t15418 + t15419 - t15420 + t15421 + t15423;
31721   t53538 = -t15424 - t15425 + t15426 - t15427 - t15428 + t15429 + t15430 - t15431 - t15432 - t15433 + t15436 - t15437;
31722   t53541 = t14210 * t4073;
31723   t53542 = t8874 * t53541;
31724   t53544 = t14226 * t4066;
31725   t53547 = t14073 * t4073;
31726   t53548 = t8867 * t53547;
31727   t53550 = t14210 * t4066;
31728   t53553 = t12309 * t53541;
31729   t53557 = t14226 * t4073;
31730   t53558 = t8921 * t53557;
31731   t53560 = t14170 * t4066;
31732   t53563 = t15438 - t15439 + t15440 - t15441 + 0.853546560e2 * t53542 - 0.8535465600e3 * t26701 * t53544 + 0.966780264329442e3 * t53548 - 0.17282689169741136e5 * t35968 * t53550 - 0.954844705510560e3 * t53553 + 0.13367825877147840e5 * t26195 * t53544 + 0.318281568503520e3 * t53558 - 0.3819378822042240e4 * t26592 * t53560;
31733   t53564 = t8880 * t53541;
31734   t53568 = t12333 * t53557;
31735   t53572 = t14170 * t4073;
31736   t53573 = t8854 * t53572;
31737   t53575 = t14174 * t4066;
31738   t53578 = t8847 * t53557;
31739   t53580 = t14090 * t4073;
31740   t53581 = t9104 * t53580;
31741   t53583 = t14073 * t4066;
31742   t53586 = t12438 * t53547;
31743   t53592 = -0.5015682585757440e4 * t53564 + 0.109021433982088800e6 * t35961 * t53544 + 0.4528046778808800e4 * t53568 - 0.75235238786361600e5 * t26604 * t53560 - 0.1393245162710400e4 * t53573 + 0.19505432277945600e5 * t26202 * t53575 + 0.5993986780779750e4 * t53578 + 0.1920479760e3 * t53581 - 0.27206796600e4 * t35610 * t53583 - 0.2240559720e3 * t53586 + 0.25606396800e4 * t26714 * t53550 - 0.3330414534772080e4 * t26177 * t53560;
31744   t53597 = t14090 * t4066;
31745   t53600 = t8921 * t53541;
31746   t53615 = t1061 * t4066 * t1063 * t14080 * t243;
31747   t53617 = t14080 * t4073;
31748   t53618 = t8621 * t53617;
31749   t53620 = t35819 * t53597;
31750   t53622 = t11966 * t53580;
31751   t53624 = -0.1600399800e3 * t26212 * t14080 * t4066 - 0.2005173881572176e4 * t26689 * t53597 - 0.2424234653559810e4 * t53600 + 0.108158161466514600e6 * t26592 * t53544 + 0.17241408888541200e5 * t26714 * t53583 - 0.153765740882936520e6 * t35593 * t53560 - 0.29090815842717720e5 * t26195 * t53550 + 0.17223805462217760e5 * t26604 * t53544 + 0.80040e2 * t53615 + 0.36018e2 * t53618 - 0.400200e3 * t53620 - 0.64032e2 * t53622;
31752   t53625 = t26689 * t53583;
31753   t53627 = t8859 * t53547;
31754   t53629 = t26683 * t53550;
31755   t53634 = 0.576288e3 * t53625 + 0.32016e2 * t53627 - 0.256128e3 * t53629 + 0.32016e2 * t51611 + 0.36018e2 * t51618 - 0.64032e2 * t51624 + t51804 - t51810 + t51813 - t51822 - t51828 - t51834 - t51840;
31756   t53638 = t51843 + t51847 - t51850 - t51853 + t51856 - t51859 - t51862 + t51865 + t51868 - t51871 + t51874 - t4110;
31757   t53640 = t4205 - t15952 + t15953 - t15954 + t15955 - t15959 + t15960 - t15961 + t15962 - t15963 + t15964 - t15965;
31758   t53643 = t8909 * t53572;
31759   t53647 = t8914 * t53617;
31760   t53651 = t8859 * t53580;
31761   t53653 = t15966 - t15967 - t15968 + t15970 - t15971 - t15972 + t15973 - 0.60283319117762160e5 * t26202 * t53560 - 0.185023029709560e3 * t53643 + 0.11179286216135520e5 * t26184 * t53575 - 0.533466600e2 * t53647 + 0.11736265200e4 * t25990 * t53597 - 0.334195646928696e3 * t53651;
31762   t53658 = t12396 * t53572;
31763   t53662 = t14174 * t4073;
31764   t53663 = t8909 * t53662;
31765   t53665 = t14184 * t4066;
31766   t53668 = t8902 * t53572;
31767   t53672 = t12362 * t53662;
31768   t53676 = t14184 * t4073;
31769   t53677 = t15494 * t53676;
31770   t53679 = t14287 * t4066;
31771   t53682 = t9242 * t53662;
31772   t53684 = 0.9739415996207712e4 * t26683 * t53583 - 0.5114868719598720e4 * t53658 + 0.98461222852275360e5 * t26177 * t53575 + 0.1491836709882960e4 * t53663 - 0.23869387358127360e5 * t26184 * t53665 - 0.2735545573411056e4 * t53668 + 0.80968771756209960e5 * t36027 * t53575 + 0.2245849143602904e4 * t53672 - 0.49172275986253056e5 * t44445 * t53665 - 0.630413794695552e3 * t53677 + 0.11347448304519936e5 * t52626 * t53679 + 0.429448190010084e3 * t53682;
31773   t53687 = t12410 * t53676;
31774   t53692 = t15511 * t14287 * t4073;
31775   t53697 = t8874 * t53547;
31776   t53701 = t8854 * t53557;
31777   t53704 = t223 * t4073 * t4624;
31778   t53709 = -0.14412320208955200e5 * t35618 * t53665 - 0.342779507672448e3 * t53687 + 0.8413678824687360e4 * t44463 * t53679 + 0.93485320274304e2 * t53692 - 0.1869706405486080e4 * t52634 * t41470 * t4066 + 0.1915712098726800e4 * t53697 - 0.70498205233146240e5 * t26701 * t53550 + 0.1148253697481184e4 * t53701 - 0.4002e1 * t53704 + 0.144072e3 * t52602 - 0.256128e3 * t52605 + 0.7681919040e3 * t52607;
31779   t53723 = -0.8962238880e3 * t52610 - 0.1336782587714784e4 * t52612 + 0.128064e3 * t52614 - 0.16008e2 * t52642 - 0.9696938614239240e4 * t52676 + 0.7662848394907200e4 * t52678 - 0.740092118838240e3 * t52681 - 0.2133866400e3 * t52683 + 0.23975947123119000e5 * t52686 + 0.4593014789924736e4 * t52688 + 0.1273126274014080e4 * t52690 - 0.3819378822042240e4 * t52692;
31780   t53737 = 0.3414186240e3 * t52694 + 0.3867121057317768e4 * t52696 - 0.5572980650841600e4 * t52699 - 0.2521655178782208e4 * t52702 + 0.1717792760040336e4 * t52705 - 0.1371118030689792e4 * t52707 + 0.373941281097216e3 * t52710 + 0.5967346839531840e4 * t52712 - 0.10942182293644224e5 * t52714 + 0.8983396574411616e4 * t52716 - 0.20459474878394880e5 * t52718 - 0.20062730343029760e5 * t52720 + 0.18112187115235200e5 * t52722;
31781   t53742 = t4633 * t4085;
31782   t53743 = t53742 * t360;
31783   t53745 = t4633 * t4089;
31784   t53746 = t53745 * t360;
31785   t53748 = t4399 * t4399;
31786   t53753 = t3803 * t15362;
31787   t53756 = t4637 * t4085;
31788   t53757 = t53756 * t360;
31789   t53759 = t4637 * t4089;
31790   t53760 = t53759 * t360;
31791   t53766 = -t15861 + t15865 - t15871 - t51616 - t51622 + t51628 - 0.6e1 * t51632 - t15344 + t15351 - t15358 + 0.120e3 * t53615 + 0.54e2 * t53618 - 0.600e3 * t53620;
31792   t53779 = -0.96e2 * t53622 + 0.864e3 * t53625 + 0.48e2 * t53627 - 0.384e3 * t53629 + 0.48e2 * t51611 + 0.54e2 * t51618 - 0.96e2 * t51624 - t4076 + t4084 - 0.6e1 * t53704 + 0.216e3 * t52602 - 0.384e3 * t52605 + 0.192e3 * t52614 - 0.24e2 * t52642;
31793   t53780 = t53766 + t53779;
31794   t53784 = t4410 * t13569;
31795   t53793 = -0.2e1 * t1839 * t2467 * t360 * t53748 + t360 * t53780 * t616 * t881 - t27446 * t53760 - 0.24e2 * t27471 * t53760 - t3240 * t53743 - 0.2e1 * t3240 * t53753 + t53746 * t9392 + t53757 * t9392 + 0.24e2 * t53784 * t9372 + 0.24e2 * t53784 * t9380 + 0.4e1 * t53784 * t9392;
31796   t53810 = t49237 * t1068;
31797   t53819 = -0.4e1 * t2458 * t360 * t53748 * t616 - 0.12e2 * t27452 * t53760 - 0.36e2 * t27459 * t53760 - 0.2e1 * t3232 * t53743 - 0.4e1 * t3232 * t53753 - 0.4e1 * t3232 * t53810 - 0.2e1 * t3240 * t53810 + 0.6e1 * t53746 * t9372 + 0.6e1 * t53746 * t9380 + 0.6e1 * t53757 * t9372 + 0.6e1 * t53757 * t9380;
31798   t53821 = my_piecewise3(t278, t53515 + t53528 + t53537 + t53538 + t53563 + t53592 + t53624 + t53634 + t53638 + t38845 + t53640 + t53653 + t53684 + t53709 + t53723 + t53737, t53793 + t53819);
31799   t53831 = t15845 * t1078;
31800   t53834 = t4620 * t4102;
31801   t53857 = 0.1174e1 * t53821 - 0.2e1 * t674 * t1078 * t16058 - 0.2e1 * t674 * t4615 * t4239 - t674 * t4102 * t4726 - 0.48e2 * t14044 * t53831 + 0.24e2 * t14044 * t53834 - 0.16e2 * t3565 * t4620 * t4099 + 0.32e2 * t3565 * t15845 * t1075 + 0.96e2 * t10371 * t4620 * t1078 * t1075 + 0.96e2 * t14044 * t3566 * t1078 * t4414 - 0.2e1 * t674 * t4648 * t4239 - 0.8e1 * t674 * t4385 * t4486;
31802   t53864 = t4620 * t4046;
31803   t53880 = t4414 * t4414;
31804   t53891 = t3566 * t15393;
31805   t53896 = -0.16e2 * t2000 * t363 * t4064 * t4615 + 0.2e1 * t363 * t4099 * t4647 * t674 + 0.16e2 * t1078 * t3565 * t49401 + 0.16e2 * t1078 * t3565 * t49503 - 0.4e1 * t1310 * t15327 * t674 - 0.8e1 * t1310 * t15331 * t674 + 0.8e1 * t2000 * t4239 * t4616 + 0.4e1 * t363 * t53880 * t674 - 0.8e1 * t4415 * t4486 * t674 - 0.8e1 * t13121 * t15848 - 0.16e2 * t14051 * t53891 - 0.96e2 * t42554 * t53864;
31806   t53933 = -0.16e2 * t2000 * t271 * t363 * t53880 + 0.12e2 * t10371 * t14065 * t4046 + 0.8e1 * t1078 * t3565 * t49435 - 0.8e1 * t1078 * t3565 * t49476 - 0.4e1 * t1162 * t15851 * t674 - 0.4e1 * t1162 * t15903 * t674 - 0.4e1 * t1264 * t15572 * t674 - 0.4e1 * t14065 * t3565 * t4102 - 0.64e2 * t15331 * t3565 * t3566 + 0.2e1 * t2000 * t4046 * t4726 + 0.8e1 * t2000 * t53831 - 0.4e1 * t2000 * t53834;
31807   t53934 = t13239 * t4414;
31808   t53978 = t56 * t53780 * t267 / 0.100e3 + 0.6e1 / 0.25e2 * t13210 * t15382 - t13228 * t15382 / 0.25e2 + 0.3e1 / 0.20e2 * t4638 * t4089 * t263 * t267 + 0.3e1 / 0.50e2 * t4638 * t265 * t4085 * t267 - t4638 * t2126 * t4089 * t267 / 0.10e2 + t2127 * t15873 * t1068 * t267 / 0.50e2 + t2127 * t53742 * t267 / 0.100e3 - t6534 * t53745 * t267 / 0.100e3 + t2127 * t53748 * t267 / 0.50e2 + t2127 * t1260 * t15362 / 0.50e2;
31809   t54006 = -t6534 * t53756 * t267 / 0.100e3 + t20412 * t53759 * t267 / 0.100e3 - 0.3e1 / 0.50e2 * t15874 * t4404 - 0.3e1 / 0.100e3 * t4634 * t4096 - 0.3e1 / 0.100e3 * t4634 * t15371 + 0.3e1 / 0.50e2 * t4634 * t15375 - 0.3e1 / 0.50e2 * t56 * t53748 * t2120 - 0.3e1 / 0.25e2 * t1258 * t15382 - 0.3e1 / 0.50e2 * t1258 * t2120 * t15362 - 0.3e1 / 0.100e3 * t4638 * t4093 - t735 * t53780 * t267 / 0.100e3;
31810   t54030 = -0.8e1 * t674 * t53934 - 0.16e2 * t42564 * t15318 + 0.16e2 * t13121 * t15910 + 0.32e2 * t14051 * t53934 + 0.2e1 * t674 * t270 * (t53978 + t54006) * t363 - t277 * t53821 + 0.4e1 * t674 * t1075 * t15902 * t363 + 0.4e1 * t674 * t53891 + 0.12e2 * t6316 * t53864 - 0.4e1 * t674 * t15394 * t1310 + 0.8e1 * t3565 * t14155 * t4102 - 0.24e2 * t10371 * t14155 * t4046;
31811   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31812     v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t1179 * t1249 * (t53857 + t53896 + t53933 + t54030) * t377 + 0.18554625000000000000e1 * t49527 * t1173 - 0.41747906250000000000e1 * t14456 * t4252 - 0.46386562500000000000e0 * t14456 * t4257 + 0.11326164200960098622e2 * t11127 * t4729 * t4261 * t368 * t2504;
31813 
31814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31815     v4sigmalapl3[0] = 0.0e0;
31816 
31817   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31818     v4sigmalapl3[1] = 0.0e0;
31819 
31820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31821     v4sigmalapl3[2] = 0.0e0;
31822 
31823   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31824     v4sigmalapl3[3] = 0.0e0;
31825 
31826   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31827     v4sigmalapl3[4] = 0.0e0;
31828 
31829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31830     v4sigmalapl3[5] = 0.0e0;
31831 
31832   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31833     v4sigmalapl3[6] = 0.0e0;
31834 
31835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31836     v4sigmalapl3[7] = 0.0e0;
31837 
31838   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31839     v4sigmalapl3[8] = 0.0e0;
31840 
31841   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31842     v4sigmalapl3[9] = 0.0e0;
31843 
31844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31845     v4sigmalapl3[10] = 0.0e0;
31846 
31847   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31848     v4sigmalapl3[11] = 0.0e0;
31849 
31850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31851     v4sigmalapl2tau[0] = 0.0e0;
31852 
31853   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31854     v4sigmalapl2tau[1] = 0.0e0;
31855 
31856   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31857     v4sigmalapl2tau[2] = 0.0e0;
31858 
31859   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31860     v4sigmalapl2tau[3] = 0.0e0;
31861 
31862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31863     v4sigmalapl2tau[4] = 0.0e0;
31864 
31865   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31866     v4sigmalapl2tau[5] = 0.0e0;
31867 
31868   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31869     v4sigmalapl2tau[6] = 0.0e0;
31870 
31871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31872     v4sigmalapl2tau[7] = 0.0e0;
31873 
31874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31875     v4sigmalapl2tau[8] = 0.0e0;
31876 
31877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31878     v4sigmalapl2tau[9] = 0.0e0;
31879 
31880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31881     v4sigmalapl2tau[10] = 0.0e0;
31882 
31883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31884     v4sigmalapl2tau[11] = 0.0e0;
31885 
31886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31887     v4sigmalapl2tau[12] = 0.0e0;
31888 
31889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31890     v4sigmalapl2tau[13] = 0.0e0;
31891 
31892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31893     v4sigmalapl2tau[14] = 0.0e0;
31894 
31895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31896     v4sigmalapl2tau[15] = 0.0e0;
31897 
31898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31899     v4sigmalapl2tau[16] = 0.0e0;
31900 
31901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31902     v4sigmalapl2tau[17] = 0.0e0;
31903 
31904   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31905     v4sigmalapltau2[0] = 0.0e0;
31906 
31907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31908     v4sigmalapltau2[1] = 0.0e0;
31909 
31910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31911     v4sigmalapltau2[2] = 0.0e0;
31912 
31913   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31914     v4sigmalapltau2[3] = 0.0e0;
31915 
31916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31917     v4sigmalapltau2[4] = 0.0e0;
31918 
31919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31920     v4sigmalapltau2[5] = 0.0e0;
31921 
31922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31923     v4sigmalapltau2[6] = 0.0e0;
31924 
31925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31926     v4sigmalapltau2[7] = 0.0e0;
31927 
31928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31929     v4sigmalapltau2[8] = 0.0e0;
31930 
31931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31932     v4sigmalapltau2[9] = 0.0e0;
31933 
31934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31935     v4sigmalapltau2[10] = 0.0e0;
31936 
31937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31938     v4sigmalapltau2[11] = 0.0e0;
31939 
31940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31941     v4sigmalapltau2[12] = 0.0e0;
31942 
31943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31944     v4sigmalapltau2[13] = 0.0e0;
31945 
31946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31947     v4sigmalapltau2[14] = 0.0e0;
31948 
31949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31950     v4sigmalapltau2[15] = 0.0e0;
31951 
31952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31953     v4sigmalapltau2[16] = 0.0e0;
31954 
31955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
31956     v4sigmalapltau2[17] = 0.0e0;
31957 
31958   t54048 = t51269 - t51270 - t51271 + t16141 - t16142 + t16143 - t16144 + t16145 - t16146 + t16147 - t16148 + t16149 - t16150 + t16151 - t16152 + t16153 - t16154 - t16156 + t16157 - t16158;
31959   t54051 = -t52111 - 0.12006e2 * t53014 + t52114 + t52131 + t52136 - t52138 - t3891 - t3900 + t3906 - t3919 + t3925;
31960   t54063 = t15775 - t15776 - t52207 + 0.3444761092443552e4 * t53270 - 0.8206636720233168e4 * t53279 - 0.555069089128680e3 * t53281 + 0.2560639680e3 * t53284 - 0.2864534116531680e4 * t53288 - 0.15047047757272320e5 * t53290 - 0.7272703960679430e4 * t53292 + 0.17981960342339250e5 * t53296;
31961   t54082 = 0.1288344570030252e4 * t53348 - 0.1600399800e3 * t53350 + 0.5761439280e3 * t53354 - 0.1002586940786088e4 * t53356 + 0.2900340792988326e4 * t53361 + 0.5747136296180400e4 * t53363 - t52249 + t52251 - t52254 + t52256 - t52258;
31962   t54091 = t926 * t16089 * t928 * t113 * t66 * t922;
31963   t54093 = t49569 * t922;
31964   t54094 = t32232 * t54093;
31965   t54096 = t49573 * t922;
31966   t54097 = t23156 * t54096;
31967   t54099 = t49554 * t922;
31968   t54102 = t49561 * t922;
31969   t54109 = t49565 * t922;
31970   t54117 = t52284 + 0.80040e2 * t54091 - 0.400200e3 * t54094 + 0.576288e3 * t54097 + 0.17223805462217760e5 * t22884 * t54099 - 0.60283319117762160e5 * t23141 * t54102 - 0.3330414534772080e4 * t22905 * t54102 - 0.75235238786361600e5 * t22884 * t54102 + 0.19505432277945600e5 * t23141 * t54109 - 0.1600399800e3 * t22889 * t49598 * t922 - 0.2005173881572176e4 * t23156 * t54093;
31971   t54121 = t49583 * t922;
31972   t54124 = t23136 * t54121;
31973   t54126 = t49801 * t922;
31974   t54153 = t49775 * t922;
31975   t54166 = -0.70498205233146240e5 * t23128 * t54121 + 0.109021433982088800e6 * t32695 * t54099 + 0.108158161466514600e6 * t22877 * t54099 - 0.153765740882936520e6 * t33486 * t54102 + 0.98461222852275360e5 * t22905 * t54109 - 0.23869387358127360e5 * t22860 * t54153 + 0.80968771756209960e5 * t33048 * t54109 - 0.49172275986253056e5 * t43390 * t54153 + 0.11347448304519936e5 * t52126 * t54126 + 0.11179286216135520e5 * t22860 * t54109 - 0.14412320208955200e5 * t33041 * t54153;
31976   t54185 = t50045 * t933;
31977   t54188 = t13999 * t4285;
31978   t54193 = t3529 * t15653;
31979   t54196 = t13044 * t4514;
31980   t54201 = t3529 * t15635;
31981   t54208 = t50069 * t933;
31982   t54219 = -t52319 - 0.384e3 * t54124 + 0.162e3 * t53030 - 0.288e3 * t53036 + 0.144e3 * t53042 - 0.18e2 * t53014 + 0.120e3 * t54091 - 0.600e3 * t54094 + 0.864e3 * t54097 + t51185 - t51191;
31983   t54220 = -t51197 - t3854 + t3862 - t15634 - t15628 + t15629 + t52327 + t52328 - t52329 - t16096 + t16100 - t16104;
31984   t54221 = t54219 + t54220;
31985   t54235 = t184 * t54221 * t616 * t617 - 0.24e2 * t23950 * t54185 - t24084 * t54185 - 0.12e2 * t24086 * t54185 - 0.36e2 * t24093 * t54185 - 0.6e1 * t2835 * t54196 - 0.6e1 * t2835 * t54201 - 0.2e1 * t2835 * t54208 - 0.3e1 * t2843 * t54196 - 0.3e1 * t2843 * t54201 - t2843 * t54208 + 0.18e2 * t54188 * t8315 + 0.18e2 * t54188 * t8323 + 0.3e1 * t54188 * t8335 + 0.18e2 * t54193 * t8315 + 0.18e2 * t54193 * t8323 + 0.3e1 * t54193 * t8335;
31986   t54236 = my_piecewise3(t102, -0.1869706405486080e4 * t52237 * t49811 * t922 + t54166 - 0.256128e3 * t54124 + t54117 + t54082 + t54063 + t54051 + t54048 - t16159 - t16160 - t52282 + t3949 + t52093 - 0.6721679160e3 * t53344 + t4003 - t52273 + t3940 + 0.4475510129648880e4 * t53318 - t52280 - 0.192096e3 * t53036 + 0.280455960822912e3 * t53339 + t16161 - t16162 - t3956 + t52286 - 0.1891241384086656e4 * t53327 + t52108 - 0.1028338523017344e4 * t53334 + t52101 - t3989 - t52104 - t51425 - t51419 + t51422 + t15796 + t52266 + t52268 - t15780 + t15781 - t15782 + t52260 - t52096 - t52099 - 0.15344606158796160e5 * t53313 - 0.4179735488131200e4 * t53309 + 0.13584140336426400e5 * t53305 + t52262 - t52264 + t15783 - t15774 + t3991 + t3994 + 0.96048e2 * t53042 - t3965 + t15777 - t15778 - t15779 + 0.954844705510560e3 * t53300 + 0.11736265200e4 * t23150 * t54093 - 0.27206796600e4 * t32749 * t54096 + 0.9739415996207712e4 * t23136 * t54096 + 0.17241408888541200e5 * t23161 * t54096 - 0.29090815842717720e5 * t22899 * t54121 + 0.8413678824687360e4 * t43322 * t54126 + 0.25606396800e4 * t23161 * t54121 - 0.8535465600e3 * t23128 * t54099 + 0.13367825877147840e5 * t22899 * t54099 - 0.3819378822042240e4 * t22877 * t54102 - 0.17282689169741136e5 * t32721 * t54121 + 0.6737547430808712e4 * t53322 - t52275 + t52278 - t3934 + 0.108054e3 * t53030 - t51493 + t51490 - t51475 + t51428, t54235);
31987   t54244 = t4501 * t4300;
31988   t54247 = t12610 * t4528;
31989   t54318 = t56 * t54221 * t91 / 0.100e3 - 0.3e1 / 0.100e3 * t16106 * t4290 - 0.9e1 / 0.100e3 * t15636 * t16110 - 0.9e1 / 0.100e3 * t4515 * t4297 - 0.9e1 / 0.100e3 * t4515 * t15641 + 0.9e1 / 0.50e2 * t48283 * t4297 - 0.9e1 / 0.100e3 * t4519 * t4293 + 0.3e1 / 0.20e2 * t16114 * t4290 + 0.9e1 / 0.50e2 * t4519 * t4960 * t4285 - t16114 * t1498 * t933 * t91 / 0.10e2 - t470 * t54221 * t91 / 0.100e3 + t1499 * t16105 * t933 * t91 / 0.100e3 + 0.3e1 / 0.100e3 * t1499 * t15635 * t1188 * t91 + 0.3e1 / 0.100e3 * t1499 * t4514 * t4285 * t91 - 0.3e1 / 0.100e3 * t48275 * t4297 - 0.3e1 / 0.100e3 * t4970 * t4525 * t4285 + t17136 * t16113 * t933 * t91 / 0.100e3;
31990   t54334 = t12714 * t4528;
31991   t54337 = t16086 * t943;
31992   t54340 = -t101 * t54236 + 0.24e2 * t1369 * t16074 * t1027 - 0.6e1 * t405 * t4496 * t4372 + 0.144e3 * t50178 * t54244 - 0.24e2 * t13624 * t54247 - 0.12e2 * t40105 * t15610 - 0.4e1 * t3291 * t50260 * t943 - 0.6e1 * t405 * t15665 * t1241 - 0.6e1 * t405 * t15613 * t1241 - 0.6e1 * t405 * t4301 * t4607 - 0.6e1 * t405 * t1195 * t15819 - 0.6e1 * t405 * t4271 * t4607 + 0.2e1 * t405 * t94 * t54318 * t187 + 0.1174e1 * t54236 - 0.48e2 * t3291 * t3292 * t15613 + 0.72e2 * t13617 * t3292 * t4528 * t943 + 0.12e2 * t3291 * t50174 * t943 + 0.24e2 * t13624 * t54334 - 0.72e2 * t13617 * t54337;
31993   t54345 = t3292 * t15664;
31994   t54348 = t50137 * t940;
31995   t54351 = t50137 * t943;
31996   t54371 = t13728 * t4300;
31997   t54393 = 0.2e1 * t16129 * t187 * t405 * t940 - 0.48e2 * t1027 * t16070 * t4747 - 0.2e1 * t1027 * t16130 * t405 + 0.24e2 * t1369 * t4372 * t4497 + 0.48e2 * t16086 * t3291 * t940 - t16264 * t405 * t943 + 0.12e2 * t3291 * t50170 * t943 - 0.6e1 * t405 * t4372 * t4529 + 0.144e3 * t13617 * t54348 - 0.24e2 * t13624 * t54345 + 0.48e2 * t13624 * t54371 + 0.12e2 * t1369 * t54337 - 0.24e2 * t1369 * t54348 - 0.72e2 * t3291 * t54244 + 0.6e1 * t405 * t54247 - 0.6e1 * t405 * t54334 + 0.6e1 * t405 * t54345 - 0.12e2 * t405 * t54371 - 0.192e3 * t50136 * t54351 + 0.72e2 * t54351 * t9531;
31998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
31999     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t1179 * t1180 * (t54340 + t54393) * t204 + 0.92773125000000000000e0 * t50297 * t1038;
32000 
32001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32002     v4sigmatau3[1] = 0.0e0;
32003 
32004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32005     v4sigmatau3[2] = 0.0e0;
32006 
32007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32008     v4sigmatau3[3] = 0.0e0;
32009 
32010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32011     v4sigmatau3[4] = 0.0e0;
32012 
32013   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32014     v4sigmatau3[5] = 0.0e0;
32015 
32016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32017     v4sigmatau3[6] = 0.0e0;
32018 
32019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32020     v4sigmatau3[7] = 0.0e0;
32021 
32022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32023     v4sigmatau3[8] = 0.0e0;
32024 
32025   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32026     v4sigmatau3[9] = 0.0e0;
32027 
32028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32029     v4sigmatau3[10] = 0.0e0;
32030 
32031   t54405 = t1061 * t16293 * t1063 * t289 * t243 * t1057;
32032   t54407 = t50416 * t1057;
32033   t54408 = t35819 * t54407;
32034   t54410 = t50401 * t1057;
32035   t54411 = t26689 * t54410;
32036   t54413 = t50405 * t1057;
32037   t54414 = t26683 * t54413;
32038   t54416 = 0.80040e2 * t54405 - 0.400200e3 * t54408 + 0.576288e3 * t54411 - 0.256128e3 * t54414 - t16344 + t16345 - t16346 - t51709 - t51710 + t51711 - t15927 + t15928 - t15929 + t15930 + t15931 - t15932 - t15933 + t15935 - t15936 - t15937;
32039   t54428 = -t15950 + 0.2560639680e3 * t53542 + 0.2900340792988326e4 * t53548 - 0.2864534116531680e4 * t53553 + 0.954844705510560e3 * t53558 - 0.15047047757272320e5 * t53564 + 0.13584140336426400e5 * t53568 - 0.4179735488131200e4 * t53573 + 0.17981960342339250e5 * t53578 + 0.5761439280e3 * t53581 - 0.6721679160e3 * t53586;
32040   t54436 = -t51840 + t51843 + t51847 - t51850 - t51853 + t51856 - t51859 - t51862 + t51865 + t51868 - t51871;
32041   t54439 = t4177 - t4190 + t4196 - t4203 + t4205 - t16348 + t16349 - t16350 + t16351 - t16352 + t16353;
32042   t54453 = -t16366 + t16367 - 0.555069089128680e3 * t53643 - 0.1600399800e3 * t53647 - 0.1002586940786088e4 * t53651 - 0.15344606158796160e5 * t53658 + 0.4475510129648880e4 * t53663 - 0.8206636720233168e4 * t53668 + 0.6737547430808712e4 * t53672 - 0.1891241384086656e4 * t53677 + 0.1288344570030252e4 * t53682;
32043   t54461 = t50534 * t1057;
32044   t54466 = t50530 * t1057;
32045   t54483 = t52615 - 0.3330414534772080e4 * t26177 * t54461 - 0.29090815842717720e5 * t26195 * t54413 + 0.108158161466514600e6 * t26592 * t54466 + 0.17223805462217760e5 * t26604 * t54466 - 0.60283319117762160e5 * t26202 * t54461 - 0.27206796600e4 * t35610 * t54410 + 0.25606396800e4 * t26714 * t54413 - 0.8535465600e3 * t26701 * t54466 - 0.17282689169741136e5 * t35968 * t54413 + 0.13367825877147840e5 * t26195 * t54466;
32046   t54495 = t50563 * t1057;
32047   t54502 = t50546 * t1057;
32048   t54511 = t50540 * t1057;
32049   t54532 = -0.14412320208955200e5 * t35618 * t54511 + 0.19505432277945600e5 * t26202 * t54495 - 0.3819378822042240e4 * t26592 * t54461 + 0.109021433982088800e6 * t35961 * t54466 - 0.75235238786361600e5 * t26604 * t54461 - t52643 + 0.98461222852275360e5 * t26177 * t54495 - 0.23869387358127360e5 * t26184 * t54511 + 0.80968771756209960e5 * t36027 * t54495 - 0.49172275986253056e5 * t44445 * t54511 + 0.11347448304519936e5 * t52626 * t54502;
32050   t54537 = t50979 * t1068;
32051   t54540 = t14426 * t4399;
32052   t54545 = t3803 * t15891;
32053   t54548 = t13569 * t4633;
32054   t54553 = t3803 * t15873;
32055   t54560 = t51003 * t1068;
32056   t54566 = -t51616 - t51622 + t51628 - t15872 + t15867 - t15866 + 0.162e3 * t53618 - 0.288e3 * t53622 + 0.144e3 * t53627 + t16304 - t16308;
32057   t54572 = -t16300 - 0.18e2 * t53704 + 0.120e3 * t54405 - t4076 + t4084 + t52734 - 0.600e3 * t54408 + 0.864e3 * t54411 - 0.384e3 * t54414 + t52737 - t52738 - t52739;
32058   t54573 = t54566 + t54572;
32059   t54587 = t360 * t54573 * t616 * t881 - t27446 * t54537 - 0.12e2 * t27452 * t54537 - 0.36e2 * t27459 * t54537 - 0.24e2 * t27471 * t54537 - 0.6e1 * t3232 * t54548 - 0.6e1 * t3232 * t54553 - 0.2e1 * t3232 * t54560 - 0.3e1 * t3240 * t54548 - 0.3e1 * t3240 * t54553 - t3240 * t54560 + 0.18e2 * t54540 * t9372 + 0.18e2 * t54540 * t9380 + 0.3e1 * t54540 * t9392 + 0.18e2 * t54545 * t9372 + 0.18e2 * t54545 * t9380 + 0.3e1 * t54545 * t9392;
32060   t54588 = my_piecewise3(t278, -0.1600399800e3 * t26212 * t50412 * t1057 - 0.1869706405486080e4 * t52634 * t50671 * t1057 + t54532 + t54483 + t54453 + t54439 + t54436 + t54428 + t54416 + 0.3444761092443552e4 * t53701 - 0.12006e2 * t53704 + 0.5747136296180400e4 * t53697 + 0.280455960822912e3 * t53692 - 0.1028338523017344e4 * t53687 + 0.96048e2 * t53627 - 0.192096e3 * t53622 + 0.108054e3 * t53618 - 0.7272703960679430e4 * t53600 - t51828 + t51804 - t51822 + t51874 + t4125 - t51834 - t4131 - t52606 + t52608 - t16365 - t52613 - t4170 + t16357 - t16358 + t16359 + t52603 - t4110 + t4146 + t4116 + t4155 - t51810 + t51813 - t16354 + t16355 - t16356 - t16360 - t16361 + 0.11736265200e4 * t25990 * t54407 - 0.2005173881572176e4 * t26689 * t54407 + 0.9739415996207712e4 * t26683 * t54410 + 0.11179286216135520e5 * t26184 * t54495 + 0.17241408888541200e5 * t26714 * t54410 - 0.70498205233146240e5 * t26701 * t54413 + 0.8413678824687360e4 * t44463 * t54502 - 0.153765740882936520e6 * t35593 * t54461 - t52611 - t15948 + t15949 + t15945 + t15938 - t15942 + t15943 - t15944 + t16364 - t4161 + t52725 - t4140 + t15939 - t15940 - t15941, t54587);
32061   t54590 = t16290 * t1078;
32062   t54593 = t14155 * t4414;
32063   t54596 = t13239 * t4647;
32064   t54599 = t3566 * t15902;
32065   t54650 = t56 * t54573 * t267 / 0.100e3 - 0.3e1 / 0.100e3 * t16310 * t4404 - 0.9e1 / 0.100e3 * t15874 * t16314 - 0.9e1 / 0.100e3 * t4634 * t4411 - 0.9e1 / 0.100e3 * t4634 * t15879 + 0.9e1 / 0.50e2 * t49300 * t4411 - 0.9e1 / 0.100e3 * t4638 * t4407 + 0.3e1 / 0.20e2 * t16318 * t4404 + 0.9e1 / 0.50e2 * t4638 * t6524 * t4399 - t16318 * t2126 * t1068 * t267 / 0.10e2 - t735 * t54573 * t267 / 0.100e3 + t2127 * t16309 * t1068 * t267 / 0.100e3 + 0.3e1 / 0.100e3 * t2127 * t15873 * t1257 * t267 + 0.3e1 / 0.100e3 * t2127 * t4633 * t4399 * t267 - 0.3e1 / 0.100e3 * t49339 * t4411 - 0.3e1 / 0.100e3 * t6534 * t4644 * t4399 + t20412 * t16317 * t1068 * t267 / 0.100e3;
32066   t54668 = t1075 * t16273 * t363;
32067   t54681 = t4620 * t4414;
32068   t54694 = 0.1174e1 * t54588 + 0.12e2 * t2000 * t54590 - 0.12e2 * t674 * t54593 - 0.6e1 * t674 * t54596 + 0.6e1 * t674 * t54599 + 0.2e1 * t674 * t270 * t54650 * t363 - 0.6e1 * t674 * t1264 * t16058 - 0.6e1 * t674 * t4385 * t4726 - 0.6e1 * t674 * t4415 * t4726 - 0.48e2 * t6316 * t16274 * t1162 - 0.24e2 * t2000 * t54668 - 0.6e1 * t674 * t4648 * t4486 + 0.72e2 * t14044 * t3566 * t4647 * t1078 - 0.48e2 * t3565 * t3566 * t15851 - 0.72e2 * t3565 * t54681 + 0.48e2 * t14051 * t54593 - 0.72e2 * t14044 * t54590 + 0.48e2 * t3565 * t16290 * t1075 + 0.24e2 * t2000 * t16278 * t1162;
32069   t54695 = t13135 * t4647;
32070   t54708 = t51030 * t1078;
32071   t54746 = 0.6e1 * t674 * t54695 + 0.2e1 * t674 * t1075 * t16333 * t363 - 0.24e2 * t14051 * t54599 + 0.24e2 * t14051 * t54596 - 0.24e2 * t14051 * t54695 + 0.72e2 * t10371 * t54708 - 0.192e3 * t51048 * t54708 + 0.144e3 * t14044 * t54668 - t277 * t54588 + 0.144e3 * t51042 * t54681 - 0.12e2 * t42564 * t15848 + 0.12e2 * t3565 * t50520 * t1078 - 0.6e1 * t674 * t15903 * t1310 - 0.2e1 * t674 * t16334 * t1162 - 0.6e1 * t674 * t15851 * t1310 + 0.24e2 * t2000 * t4616 * t4486 - 0.4e1 * t3565 * t50341 * t1078 - 0.6e1 * t674 * t4615 * t4486 - t674 * t1078 * t16468 + 0.12e2 * t3565 * t50367 * t1078;
32072   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32073     v4sigmatau3[11] = -0.3e1 / 0.8e1 * t1179 * t1249 * (t54694 + t54746) * t377 + 0.92773125000000000000e0 * t51058 * t1173;
32074 
32075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32076     v4lapl4[0] = 0.0e0;
32077 
32078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32079     v4lapl4[1] = 0.0e0;
32080 
32081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32082     v4lapl4[2] = 0.0e0;
32083 
32084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32085     v4lapl4[3] = 0.0e0;
32086 
32087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32088     v4lapl4[4] = 0.0e0;
32089 
32090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32091     v4lapl3tau[0] = 0.0e0;
32092 
32093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32094     v4lapl3tau[1] = 0.0e0;
32095 
32096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32097     v4lapl3tau[2] = 0.0e0;
32098 
32099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32100     v4lapl3tau[3] = 0.0e0;
32101 
32102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32103     v4lapl3tau[4] = 0.0e0;
32104 
32105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32106     v4lapl3tau[5] = 0.0e0;
32107 
32108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32109     v4lapl3tau[6] = 0.0e0;
32110 
32111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32112     v4lapl3tau[7] = 0.0e0;
32113 
32114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32115     v4lapl2tau2[0] = 0.0e0;
32116 
32117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32118     v4lapl2tau2[1] = 0.0e0;
32119 
32120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32121     v4lapl2tau2[2] = 0.0e0;
32122 
32123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32124     v4lapl2tau2[3] = 0.0e0;
32125 
32126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32127     v4lapl2tau2[4] = 0.0e0;
32128 
32129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32130     v4lapl2tau2[5] = 0.0e0;
32131 
32132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32133     v4lapl2tau2[6] = 0.0e0;
32134 
32135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32136     v4lapl2tau2[7] = 0.0e0;
32137 
32138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32139     v4lapl2tau2[8] = 0.0e0;
32140 
32141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32142     v4lapltau3[0] = 0.0e0;
32143 
32144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32145     v4lapltau3[1] = 0.0e0;
32146 
32147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32148     v4lapltau3[2] = 0.0e0;
32149 
32150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32151     v4lapltau3[3] = 0.0e0;
32152 
32153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32154     v4lapltau3[4] = 0.0e0;
32155 
32156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32157     v4lapltau3[5] = 0.0e0;
32158 
32159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32160     v4lapltau3[6] = 0.0e0;
32161 
32162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
32163     v4lapltau3[7] = 0.0e0;
32164 
32165   t54765 = t51269 - t51270 - t51271 + 0.302367490078344e3 * t15135 - 0.127312627401408e3 * t15141 + 0.766284839490720e3 * t15146 - 0.1161037635592000e4 * t15150 + 0.464415054236800e3 * t15155 - 0.745918354941480e3 * t15161 + 0.1101117571580280e4 * t15165 - 0.426239059966560e3 * t15170 + 0.287063424370296e3 * t15175 - 0.416523400066704e3 * t15179 + 0.157603448673888e3 * t15184;
32166   t54777 = -0.533466600e2 * t15192 + 0.924675440e2 * t15196 - 0.426773280e2 * t15200 - 0.38952216780960e2 * t15204 + 0.55831510719376e2 * t15208 - 0.20774515616512e2 * t15214 - 0.190968941102112e3 * t15220 - 0.16008e2 * t15068 + 0.37352e2 * t15075 - 0.21344e2 * t15082 - 0.24012e2 * t53014 - t3891 - t3900 + t3906 - t3919;
32167   t54784 = t3925 - t3934 + t3940 + t3949 - t3956 - t3965 - t3989 + t3991 + t3994 + t4003 + 0.6889522184887104e4 * t53270 - 0.16413273440466336e5 * t53279 - 0.1110138178257360e4 * t53281 + 0.5121279360e3 * t53284 - 0.5729068233063360e4 * t53288;
32168   t54800 = -0.30094095514544640e5 * t53290 - 0.14545407921358860e5 * t53292 + 0.35963920684678500e5 * t53296 + 0.1909689411021120e4 * t53300 + 0.27168280672852800e5 * t53305 - 0.8359470976262400e4 * t53309 - 0.30689212317592320e5 * t53313 + 0.8951020259297760e4 * t53318 + 0.13475094861617424e5 * t53322 - 0.3782482768173312e4 * t53327 - 0.2056677046034688e4 * t53334 + 0.560911921645824e3 * t53339 - 0.13443358320e4 * t53344 + 0.2576689140060504e4 * t53348 - 0.3200799600e3 * t53350;
32169   t54807 = t4504 * t4504;
32170   t54838 = 0.11522878560e4 * t53354 - 0.2005173881572176e4 * t53356 + 0.5800681585976652e4 * t53361 + 0.11494272592360800e5 * t53363 + 0.17223805462217760e5 * t17407 * t165 * t54807 - 0.3330414534772080e4 * t17440 * t178 * t54807 + 0.11179286216135520e5 * t22859 * t1019 * t54807 + 0.11736265200e4 * t23149 * t954 * t54807 + 0.9739415996207712e4 * t23135 * t967 * t54807 - 0.70498205233146240e5 * t23127 * t980 * t54807 - 0.60283319117762160e5 * t23140 * t1006 * t54807 - 0.14412320208955200e5 * t33040 * t3913 * t54807 - 0.27206796600e4 * t32748 * t3928 * t54807 - 0.17282689169741136e5 * t32720 * t3943 * t54807;
32171   t54884 = 0.109021433982088800e6 * t32694 * t3959 * t54807 - 0.153765740882936520e6 * t33485 * t3997 * t54807 - 0.23869387358127360e5 * t22859 * t32524 * t54807 - 0.49172275986253056e5 * t43389 * t7681 * t54807 + 0.11347448304519936e5 * t51293 * t32571 * t54807 + 0.8413678824687360e4 * t43321 * t14563 * t54807 - 0.1869706405486080e4 * t51304 * t51307 * t54807 + 0.25606396800e4 * t17517 * t581 * t54807 - 0.8535465600e3 * t23127 * t32448 * t54807 + 0.13367825877147840e5 * t17462 * t590 * t54807 - 0.3819378822042240e4 * t22876 * t32462 * t54807 - 0.75235238786361600e5 * t17407 * t599 * t54807 + 0.19505432277945600e5 * t23140 * t32543 * t54807 - 0.1600399800e3 * t17451 * t114 * t54807 - 0.2005173881572176e4 * t17466 * t127 * t54807;
32172   t54902 = t926 * t54807 * t51202;
32173   t54905 = t32231 * t3856 * t54807;
32174   t54908 = t17466 * t572 * t54807;
32175   t54911 = t23135 * t32423 * t54807;
32176   t54916 = 0.17241408888541200e5 * t17517 * t138 * t54807 - 0.29090815842717720e5 * t17462 * t151 * t54807 + 0.108158161466514600e6 * t22876 * t993 * t54807 + 0.98461222852275360e5 * t17440 * t610 * t54807 + 0.80968771756209960e5 * t33047 * t3894 * t54807 + 0.80040e2 * t54902 - 0.400200e3 * t54905 + 0.576288e3 * t54908 - 0.256128e3 * t54911 + 0.216108e3 * t53030 - 0.384192e3 * t53036 + 0.192096e3 * t53042 - t51419 + t51422 - t51425;
32177   t54917 = t51428 - t51437 - t51440 + t51443 + t51449 - t51452 + t51455 - t51458 - t51461 + t51466 - t51469 + t51472 - t51475 + t51490 - t51493;
32178   t54921 = t4518 * t4518;
32179   t54926 = t13999 * t4514;
32180   t54933 = t4514 * t4514;
32181   t54940 = t3529 * t16105;
32182   t54958 = 0.324e3 * t53030 - 0.576e3 * t53036 + 0.288e3 * t53042 - 0.36e2 * t53014 + 0.120e3 * t54902 - 0.600e3 * t54905 + 0.864e3 * t54908 - 0.384e3 * t54911 + t51185 - t51191 - t51197 - t3854 + t3862 - 0.24e2 * t15068 + 0.56e2 * t15075 - 0.32e2 * t15082;
32183   t54973 = -0.6e1 * t1830 * t184 * t54933 * t616 - 0.3e1 * t1839 * t184 * t1841 * t54933 - 0.36e2 * t1839 * t184 * t54921 * t5691 - 0.12e2 * t184 * t18537 * t54921 * t5689 - t184 * t18554 * t18556 * t54921 - 0.24e2 * t184 * t54921 * t5678 * t616 + t184 * t54958 * t616 * t617 - 0.8e1 * t2835 * t54940 - 0.4e1 * t2843 * t54940 + 0.36e2 * t54926 * t8315 + 0.36e2 * t54926 * t8323 + 0.6e1 * t54926 * t8335;
32184   t54974 = my_piecewise3(t102, t54765 + t54777 + t54784 + t54800 + t54838 + t54884 + t54916 + t54917, t54973);
32185   t54976 = t3292 * t16129;
32186   t54979 = t13728 * t4528;
32187   t54998 = t4501 * t4528;
32188   t55002 = t4528 * t4528;
32189   t55011 = t4496 * t4496;
32190   t55035 = t56 * t54921;
32191   t55057 = t56 * t54958 * t91 / 0.100e3 - 0.3e1 / 0.25e2 * t16106 * t16110 - 0.9e1 / 0.50e2 * t4515 * t4525 - 0.9e1 / 0.100e3 * t56 * t54933 * t1492 + 0.9e1 / 0.25e2 * t4515 * t89 * t4518 * t91 + 0.3e1 / 0.20e2 * t55035 * t1492 - t55035 * t17119 / 0.10e2 - t470 * t54958 * t91 / 0.100e3 + t1499 * t16105 * t1188 * t91 / 0.25e2 + 0.3e1 / 0.100e3 * t1499 * t54933 * t91 - 0.3e1 / 0.50e2 * t4970 * t4514 * t4518 * t91 + t17136 * t54921 * t91 / 0.100e3;
32192   t55065 = t95 * t95;
32193   t55076 = -0.24e2 * t1369 * t187 * t55002 * t95 - 0.384e3 * t16741 * t187 * t55011 * t55065 + 0.2e1 * t187 * t405 * t55057 * t94 + 0.288e3 * t187 * t4747 * t55011 * t95 - 0.192e3 * t1241 * t16070 * t4747 - 0.8e1 * t1241 * t16130 * t405 - 0.24e2 * t1369 * t187 * t55011 + 0.6e1 * t187 * t405 * t55002 - 0.32e2 * t13624 * t54976 + 0.96e2 * t13624 * t54979 + 0.288e3 * t50178 * t54998;
32194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32195     v4tau4[0] = -0.3e1 / 0.8e1 * t1179 * t1180 * (-t101 * t54974 + 0.8e1 * t405 * t54976 - 0.24e2 * t405 * t54979 + 0.96e2 * t1369 * t16074 * t1241 - 0.12e2 * t405 * t4496 * t4607 + 0.48e2 * t1369 * t4497 * t4607 + 0.1174e1 * t54974 - 0.8e1 * t405 * t1195 * t16264 - 0.12e2 * t405 * t4529 * t4607 - 0.144e3 * t3291 * t54998 + t55076) * t204;
32196 
32197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32198     v4tau4[1] = 0.0e0;
32199 
32200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32201     v4tau4[2] = 0.0e0;
32202 
32203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32204     v4tau4[3] = 0.0e0;
32205 
32206   t55091 = t4620 * t4647;
32207   t55094 = t4647 * t4647;
32208   t55099 = t3566 * t16333;
32209   t55102 = t14155 * t4647;
32210   t55111 = t4623 * t4623;
32211   t55136 = -0.16008e2 * t15346 + 0.37352e2 * t15353 - 0.21344e2 * t15360 - t51709 - t51710 + t51711 + 0.98461222852275360e5 * t20516 * t804 * t55111 + 0.80968771756209960e5 * t36026 * t4164 * t55111 - 0.14412320208955200e5 * t35617 * t4184 * t55111 - 0.27206796600e4 * t35609 * t4199 * t55111 - 0.17282689169741136e5 * t35967 * t4119 * t55111 + 0.109021433982088800e6 * t35960 * t4134 * t55111 - 0.153765740882936520e6 * t35592 * t4149 * t55111 - 0.29090815842717720e5 * t21226 * t327 * t55111;
32212   t55164 = 0.17223805462217760e5 * t21768 * t341 * t55111 - 0.3330414534772080e4 * t20516 * t354 * t55111 - 0.1600399800e3 * t20500 * t290 * t55111 - 0.2005173881572176e4 * t21113 * t303 * t55111 + 0.11179286216135520e5 * t26183 * t1154 * t55111 + 0.17241408888541200e5 * t21177 * t314 * t55111 + 0.5121279360e3 * t53542 + 0.5800681585976652e4 * t53548 - 0.5729068233063360e4 * t53553 + 0.1909689411021120e4 * t53558 - 0.30094095514544640e5 * t53564 + 0.27168280672852800e5 * t53568 - 0.8359470976262400e4 * t53573 + 0.35963920684678500e5 * t53578 + 0.11522878560e4 * t53581;
32213   t55198 = -0.13443358320e4 * t53586 - 0.14545407921358860e5 * t53600 + 0.216108e3 * t53618 - 0.384192e3 * t53622 + 0.192096e3 * t53627 + 0.13367825877147840e5 * t21226 * t784 * t55111 - 0.3819378822042240e4 * t26591 * t35122 * t55111 - 0.75235238786361600e5 * t21768 * t793 * t55111 + 0.19505432277945600e5 * t26201 * t35161 * t55111 + 0.11736265200e4 * t25989 * t1089 * t55111 + 0.9739415996207712e4 * t26682 * t1102 * t55111 - 0.70498205233146240e5 * t26700 * t1115 * t55111 + 0.108158161466514600e6 * t26591 * t1128 * t55111 - 0.60283319117762160e5 * t26201 * t1141 * t55111 + t51804;
32214   t55199 = -t51810 + t51813 - t51822 - t51828 - t51834 - t51840 + t51843 + t51847 - t51850 - t51853 + t51856 - t51859 - t51862 + t51865 + t51868;
32215   t55202 = -t51871 + t51874 - t4110 + t4116 + t4125 - t4131 - t4140 + t4146 + t4155 - t4161 - t4170 + t4177 - t4190 + t4196;
32216   t55216 = -t4203 + t4205 - 0.127312627401408e3 * t15450 + 0.766284839490720e3 * t15456 - 0.1161037635592000e4 * t15460 + 0.464415054236800e3 * t15465 - 0.745918354941480e3 * t15470 + 0.1101117571580280e4 * t15472 - 0.426239059966560e3 * t15478 + 0.287063424370296e3 * t15483 - 0.416523400066704e3 * t15487 + 0.157603448673888e3 * t15492 - 0.38952216780960e2 * t15498 + 0.55831510719376e2 * t15504 - 0.20774515616512e2 * t15509;
32217   t55233 = -0.533466600e2 * t15515 + 0.924675440e2 * t15534 - 0.426773280e2 * t15538 - 0.190968941102112e3 * t15542 + 0.302367490078344e3 * t15546 - 0.1110138178257360e4 * t53643 - 0.3200799600e3 * t53647 - 0.2005173881572176e4 * t53651 - 0.30689212317592320e5 * t53658 + 0.8951020259297760e4 * t53663 - 0.16413273440466336e5 * t53668 + 0.13475094861617424e5 * t53672 - 0.3782482768173312e4 * t53677 + 0.2576689140060504e4 * t53682 - 0.2056677046034688e4 * t53687;
32218   t55239 = t1061 * t55111 * t51636;
32219   t55242 = t35818 * t4078 * t55111;
32220   t55245 = t21113 * t766 * t55111;
32221   t55248 = t26682 * t35245 * t55111;
32222   t55271 = 0.560911921645824e3 * t53692 + 0.11494272592360800e5 * t53697 + 0.6889522184887104e4 * t53701 - 0.24012e2 * t53704 + 0.80040e2 * t55239 - 0.400200e3 * t55242 + 0.576288e3 * t55245 - 0.256128e3 * t55248 - 0.23869387358127360e5 * t26183 * t35218 * t55111 - 0.49172275986253056e5 * t44444 * t8766 * t55111 + 0.11347448304519936e5 * t51924 * t35175 * t55111 + 0.8413678824687360e4 * t44462 * t14910 * t55111 - 0.1869706405486080e4 * t51934 * t51937 * t55111 + 0.25606396800e4 * t21177 * t775 * t55111 - 0.8535465600e3 * t26700 * t35287 * t55111;
32223   t55275 = t4637 * t4637;
32224   t55280 = t14426 * t4633;
32225   t55287 = t4633 * t4633;
32226   t55294 = t3803 * t16309;
32227   t55312 = -t51616 - t51622 + t51628 + 0.324e3 * t53618 - 0.576e3 * t53622 + 0.288e3 * t53627 + 0.56e2 * t15353 - 0.32e2 * t15360 - 0.24e2 * t15346 - 0.36e2 * t53704 - t4076 + t4084 + 0.120e3 * t55239 - 0.600e3 * t55242 + 0.864e3 * t55245 - 0.384e3 * t55248;
32228   t55327 = -0.3e1 * t1839 * t2467 * t360 * t55287 - 0.36e2 * t1839 * t360 * t55275 * t7245 - t18554 * t21830 * t360 * t55275 - 0.12e2 * t21813 * t360 * t55275 * t5689 - 0.6e1 * t2458 * t360 * t55287 * t616 - 0.24e2 * t360 * t55275 * t616 * t7234 + t360 * t55312 * t616 * t881 - 0.8e1 * t3232 * t55294 - 0.4e1 * t3240 * t55294 + 0.36e2 * t55280 * t9372 + 0.36e2 * t55280 * t9380 + 0.6e1 * t55280 * t9392;
32229   t55328 = my_piecewise3(t278, t55136 + t55164 + t55198 + t55199 + t55202 + t55216 + t55233 + t55271, t55327);
32230   t55330 = t4615 * t4615;
32231   t55342 = t271 * t271;
32232   t55377 = t56 * t55275;
32233   t55399 = t56 * t55312 * t267 / 0.100e3 - 0.3e1 / 0.25e2 * t16310 * t16314 - 0.9e1 / 0.50e2 * t4634 * t4644 - 0.9e1 / 0.100e3 * t56 * t55287 * t2120 + 0.9e1 / 0.25e2 * t4634 * t265 * t4637 * t267 + 0.3e1 / 0.20e2 * t55377 * t2120 - t55377 * t20395 / 0.10e2 - t735 * t55312 * t267 / 0.100e3 + t2127 * t16309 * t1257 * t267 / 0.25e2 + 0.3e1 / 0.100e3 * t2127 * t55287 * t267 - 0.3e1 / 0.50e2 * t6534 * t4633 * t4637 * t267 + t20412 * t55275 * t267 / 0.100e3;
32234   t55404 = -0.384e3 * t20016 * t363 * t55330 * t55342 + 0.2e1 * t270 * t363 * t55399 * t674 - 0.192e3 * t1310 * t16274 * t6316 + 0.96e2 * t1310 * t16278 * t2000 - 0.24e2 * t2000 * t363 * t55330 + 0.48e2 * t2000 * t4616 * t4726 + 0.6e1 * t363 * t55094 * t674 - t277 * t55328 + 0.288e3 * t51042 * t55091 + 0.8e1 * t55099 * t674 - 0.24e2 * t55102 * t674;
32235   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
32236     v4tau4[4] = -0.3e1 / 0.8e1 * t1179 * t1249 * (-0.8e1 * t674 * t1264 * t16468 - 0.8e1 * t674 * t16334 * t1310 - 0.12e2 * t674 * t4648 * t4726 - 0.144e3 * t3565 * t55091 - 0.24e2 * t2000 * t271 * t55094 * t363 - 0.32e2 * t14051 * t55099 + 0.96e2 * t14051 * t55102 - 0.12e2 * t674 * t4615 * t4726 + 0.1174e1 * t55328 + 0.288e3 * t6316 * t271 * t55330 * t363 + t55404) * t377;
32237 
32238 #ifndef XC_DONT_COMPILE_MXC
32239 
32240   if(order < 5) return;
32241 
32242 
32243 #endif
32244 
32245 #endif
32246 
32247 #endif
32248 
32249 #endif
32250 
32251 #endif
32252 
32253 
32254 }
32255 
32256