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_xc_b97mv.mpl
11   Type of functional: mgga_exc
12 */
13 
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16 
17 
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t2, t3, t4, t5, t6, t7, t8, t9;
24   double t10, t11, t12, t13, t14, t15, t17, t18;
25   double t20, t21, t25, t26, t27, t28, t30, t31;
26   double t32, t33, t36, t37, t38, t39, t40, t41;
27   double t42, t43, t45, t46, t47, t48, t49, t50;
28   double t52, t53, t54, t57, t60, t62, t64, t66;
29   double t67, t70, t72, t73, t74, t75, t76, t78;
30   double t80, t83, t84, t85, t87, t88, t89, t90;
31   double t94, t95, t96, t97, t98, t99, t100, t101;
32   double t102, t105, t106, t107, t108, t109, t112, t114;
33   double t115, t117, t118, t121, t123, t125, t128, t129;
34   double t133, t135, t136, t140, t141, t142, t144, t145;
35   double t146, t150, t151, t152, t153, t155, t157, t158;
36   double t159, t160, t163, t164, t165, t166, t167, t168;
37   double t169, t170, t171, t174, t175;
38 
39 #ifndef XC_DONT_COMPILE_VXC
40   double t176, t178, t181, t185, t187, t188, t191, t192;
41   double t193, t195, t199, t201, t202, t203, t204, t206;
42   double t207, t208, t209, t212, t213, t217, t218, t221;
43   double t222, t223, t226, t228, t231, t232, t233, t235;
44   double t237, t238, t239, t242, t243, t244, t247, t249;
45   double t251, t254, t258, t259, t260, t261, t262, t264;
46   double t268, t269, t273, t274, t275, t276, t279, t280;
47   double t283, t289, t290, t291, t298, t299, t304, t305;
48   double t306, t308, t309, t310, t313, t315, t316, t321;
49   double t322, t323, t331, t332, t336, t339, t341, t342;
50   double t344, t346, t347, t348, t351, t353, t355, t356;
51   double t359, t360, t361, t364, t365, t366, t367, t370;
52   double t371, t372, t373, t374, t375, t378, t383, t384;
53   double t388, t391, t396, t399, t402, t405, t407, t412;
54   double t417, t419, t422, t425, t427, t429, t433, t438;
55   double t439, t441, t442, t444, t446, t449, t452, t455;
56   double t458, t459, t461, t468, t470, t472, t474, t475;
57   double t478, t481, t482, t485, t486, t489, t490;
58 
59 #ifndef XC_DONT_COMPILE_FXC
60   double t500, t503, t505, t506, t507, t509, t510, t512;
61   double t513, t514, t515, t518, t519, t520, t524, t525;
62   double t526, t529, t533, t534, t535, t542, t544, t545;
63   double t547, t548, t549, t552, t553, t554, t559, t561;
64   double t562, t563, t564, t565, t569, t571, t577, t579;
65   double t582, t583, t585, t587, t588, t589, t591, t593;
66   double t595, t596, t597, t598, t599, t600, t601, t606;
67   double t607, t608, t611, t612, t617, t619, t626, t627;
68   double t628, t629, t631, t632, t633, t634, t635, t636;
69   double t637, t638, t640, t641, t643, t649, t650, t651;
70   double t652, t653, t656, t661, t665, t666, t667, t668;
71   double t669, t670, t673, t674, t675, t678, t683, t684;
72   double t687, t688, t691, t696, t697, t700, t705, t711;
73   double t714, t715, t716, t721, t725, t726, t727, t728;
74   double t729, t734, t735, t736, t739, t742, t744, t745;
75   double t752, t753, t756, t757, t758, t759, t760, t761;
76   double t767, t776, t777, t778, t780, t787, t788, t789;
77   double t793, t796, t799, t800, t801, t804, t805, t808;
78   double t809, t810, t813, t814, t818, t821, t822, t825;
79   double t830, t831, t833, t836, t837, t840, t841, t844;
80   double t845, t846, t847, t850, t851, t852, t853, t856;
81   double t860, t861, t862, t863, t864, t867, t870, t871;
82   double t872, t873, t876, t879, t882, t883, t885, t892;
83   double t899, t903, t904, t907, t908, t913, t915, t917;
84   double t919, t921, t922, t926, t930, t933, t940, t941;
85   double t946, t947, t948, t951, t960, t963, t964, t966;
86   double t969, t972, t976, t978, t982, t985, t992, t993;
87   double t996, t999, t1000, t1001, t1004, t1005, t1009, t1011;
88   double t1013, t1014, t1016, t1017, t1019, t1023, t1024, t1025;
89   double t1028, t1029, t1032, t1033, t1036, t1042, t1044, t1046;
90   double t1048, t1050, t1051, t1058, t1059, t1060, t1065, t1068;
91   double t1083, t1084, t1086, t1087, t1088, t1089, t1092, t1097;
92   double t1100, t1103, t1104, t1105, t1108, t1109, t1112, t1115;
93   double t1118, t1119, t1122, t1123, t1126, t1127, t1130, t1133;
94   double t1136, t1137, t1140, t1141, t1145, t1146, t1148, t1155;
95   double t1158, t1160, t1169, t1178, t1180, t1182, t1186, t1188;
96   double t1196, t1197, t1200, t1201, t1203, t1206, t1211, t1215;
97   double t1218, t1219, t1223, t1234, t1236, t1239, t1244, t1247;
98   double t1248, t1250, t1251, t1253, t1255, t1256, t1263, t1266;
99   double t1270, t1272, t1281, t1283, t1288, t1293, t1294, t1295;
100   double t1298, t1299, t1302, t1303, t1306, t1307, t1312, t1313;
101 
102 #ifndef XC_DONT_COMPILE_KXC
103   double t1315, t1316, t1317, t1319, t1321, t1322, t1324, t1325;
104   double t1327, t1328, t1329, t1332, t1334, t1336, t1339, t1341;
105   double t1346, t1347, t1350, t1351, t1354, t1355, t1360, t1361;
106   double t1370, t1371, t1372, t1373, t1375, t1376, t1378, t1379;
107   double t1382, t1383, t1384, t1385, t1386, t1387, t1389, t1390;
108   double t1391, t1394, t1395, t1397, t1398, t1399, t1400, t1403;
109   double t1406, t1409, t1414, t1415, t1416, t1417, t1418, t1422;
110   double t1426, t1427, t1432, t1437, t1440, t1441, t1445, t1448;
111   double t1449, t1452, t1453, t1455, t1457, t1458, t1460, t1461;
112   double t1465, t1466, t1467, t1470, t1472, t1475, t1477, t1478;
113   double t1481, t1483, t1486, t1487, t1490, t1491, t1498, t1505;
114   double t1506, t1508, t1509, t1511, t1514, t1515, t1516, t1519;
115   double t1522, t1525, t1526, t1528, t1530, t1532, t1535, t1539;
116   double t1548, t1552, t1565, t1568, t1569, t1572, t1576, t1577;
117   double t1586, t1589, t1592, t1595, t1597, t1598, t1607, t1608;
118   double t1612, t1613, t1615, t1616, t1626, t1627, t1628, t1631;
119   double t1634, t1635, t1636, t1637, t1638, t1640, t1641, t1643;
120   double t1645, t1646, t1648, t1649, t1651, t1654, t1655, t1656;
121   double t1657, t1660, t1661, t1664, t1665, t1668, t1669, t1672;
122   double t1673, t1676, t1677, t1678, t1679, t1682, t1685, t1689;
123   double t1690, t1691, t1692, t1693, t1697, t1698, t1701, t1704;
124   double t1708, t1709, t1710, t1711, t1712, t1713, t1716, t1719;
125   double t1722, t1723, t1724, t1727, t1728, t1729, t1732, t1733;
126   double t1734, t1737, t1743, t1755, t1760, t1761, t1762, t1765;
127   double t1768, t1775, t1778, t1779, t1782, t1783, t1786, t1789;
128   double t1792, t1793, t1794, t1797, t1798, t1801, t1804, t1805;
129   double t1806, t1809, t1812, t1813, t1816, t1818, t1819, t1820;
130   double t1824, t1825, t1830, t1831, t1836, t1837, t1838, t1841;
131   double t1842, t1847, t1848, t1849, t1850, t1853, t1856, t1857;
132   double t1860, t1863, t1864, t1865, t1868, t1871, t1878, t1879;
133   double t1883, t1884, t1885, t1888, t1891, t1898, t1901, t1902;
134   double t1903, t1906, t1916, t1921, t1923, t1926, t1929, t1938;
135   double t1939, t1940, t1942, t1967, t1970, t1972, t1973, t1982;
136   double t1983, t1991, t1993, t1997, t1998, t1999, t2006, t2007;
137   double t2013, t2016, t2019, t2023, t2027, t2035, t2037, t2040;
138   double t2042, t2043, t2045, t2047, t2049, t2050, t2052, t2053;
139   double t2055, t2056, t2058, t2059, t2061, t2062, t2068, t2093;
140   double t2094, t2099, t2100, t2105, t2106, t2114, t2125, t2130;
141   double t2131, t2132, t2134, t2135, t2137, t2144, t2147, t2150;
142   double t2151, t2156, t2161, t2170, t2174, t2175, t2176, t2181;
143   double t2186, t2191, t2192, t2195, t2198, t2203, t2206, t2207;
144   double t2208, t2209, t2219, t2222, t2224, t2227, t2230, t2237;
145   double t2238, t2239, t2240, t2243, t2245, t2251, t2255, t2256;
146   double t2258, t2260, t2263, t2265, t2268, t2270, t2273, t2279;
147   double t2281, t2284, t2286, t2287, t2289, t2291, t2293, t2294;
148   double t2296, t2297, t2299, t2300, t2302, t2303, t2306, t2309;
149   double t2317, t2318, t2325, t2326, t2329, t2340, t2345, t2356;
150   double t2366, t2367, t2368, t2370, t2371, t2373, t2376, t2379;
151   double t2382, t2385, t2395, t2396, t2397, t2400, t2403, t2404;
152   double t2407, t2408, t2409, t2412, t2415, t2416, t2419, t2420;
153   double t2423, t2426, t2427, t2430, t2433, t2436, t2439, t2442;
154   double t2443, t2446, t2448, t2449, t2450, t2453, t2456, t2459;
155   double t2466, t2469, t2472, t2473, t2476, t2477, t2480, t2481;
156   double t2484, t2485, t2486, t2489, t2492, t2495, t2496, t2499;
157   double t2502, t2503, t2506, t2509, t2510, t2513, t2514, t2517;
158   double t2518, t2521, t2524, t2527, t2529, t2530, t2531, t2534;
159   double t2537, t2538, t2540, t2543, t2546, t2559, t2563, t2567;
160   double t2569, t2571, t2573, t2575, t2576, t2582, t2583, t2601;
161   double t2602, t2616, t2625, t2626, t2627, t2629, t2631, t2637;
162   double t2638, t2639, t2642, t2646, t2660, t2663, t2666, t2667;
163   double t2670, t2671, t2675, t2683, t2687, t2697, t2704, t2706;
164   double t2708, t2710, t2712, t2713, t2719, t2724, t2725, t2730;
165   double t2753, t2754, t2756, t2757, t2768, t2771, t2774, t2777;
166   double t2782, t2791, t2794, t2797, t2800, t2803, t2804, t2808;
167   double t2810, t2812, t2813, t2816, t2818, t2822, t2824, t2827;
168   double t2830, t2840, t2842, t2844, t2846, t2848, t2849, t2856;
169   double t2857, t2860, t2861, t2864, t2867, t2888, t2889, t2891;
170   double t2900, t2901, t2904, t2905, t2908, t2909, t2914, t2917;
171   double t2918, t2921, t2926, t2929, t2934, t2937, t2940, t2943;
172   double t2944, t2947, t2948, t2951, t2952, t2955, t2956, t2959;
173   double t2960, t2963, t2966, t2969, t2974, t2977, t2980, t2983;
174   double t2986, t2989, t2996, t2997, t2998, t3001, t3003, t3006;
175   double t3012, t3015, t3018, t3019, t3030, t3039, t3041, t3047;
176   double t3048, t3055, t3056, t3059, t3060, t3064, t3065, t3066;
177   double t3073, t3076, t3079, t3080, t3086, t3101, t3103, t3109;
178   double t3117, t3120, t3121, t3125, t3132, t3135, t3138, t3142;
179   double t3157, t3159, t3162, t3167, t3172, t3173, t3178, t3185;
180   double t3186, t3188, t3189, t3191, t3194, t3195, t3196, t3200;
181   double t3203, t3206, t3210, t3211, t3215, t3224, t3226, t3227;
182   double t3234, t3237, t3238, t3241, t3242, t3243, t3246, t3247;
183   double t3250, t3253, t3254, t3257, t3262, t3263, t3268, t3269;
184 
185 #ifndef XC_DONT_COMPILE_LXC
186   double t3274, t3291, t3292, t3295, t3298, t3299, t3305, t3309;
187   double t3310, t3330, t3333, t3340, t3341, t3345, t3352, t3357;
188   double t3358, t3361, t3366, t3380, t3386, t3396, t3408, t3410;
189   double t3411, t3413, t3425, t3428, t3433, t3469, t3472, t3476;
190   double t3510, t3550, t3588, t3627, t3628, t3629, t3643, t3644;
191   double t3646, t3647, t3663, t3671, t3676, t3683, t3686, t3687;
192   double t3694, t3695, t3707, t3710, t3714, t3715, t3724, t3735;
193   double t3736, t3738, t3740, t3742, t3743, t3748, t3751, t3757;
194   double t3758, t3760, t3762, t3764, t3768, t3771, t3774, t3777;
195   double t3779, t3791, t3804, t3833, t3842, t3845, t3859, t3860;
196   double t3864, t3876, t3885, t3888, t3892, t3893, t3897, t3901;
197   double t3902, t3907, t3908, t3909, t3914, t3921, t3929, t3935;
198   double t3939, t3940, t3944, t3951, t3956, t3959, t3966, t3967;
199   double t3968, t4008, t4020, t4038, t4064, t4066, t4076, t4077;
200   double t4082, t4092, t4096, t4104, t4107, t4139, t4143, t4151;
201   double t4154, t4156, t4159, t4161, t4164, t4166, t4169, t4170;
202   double t4173, t4178, t4184, t4190, t4191, t4192, t4195, t4197;
203   double t4198, t4201, t4206, t4209, t4212, t4217, t4225, t4229;
204   double t4233, t4237, t4242, t4251, t4272, t4276, t4277, t4280;
205   double t4288, t4293, t4310, t4315, t4332, t4347, t4396, t4403;
206   double t4408, t4411, t4418, t4419, t4422, t4423, t4427, t4436;
207   double t4452, t4463, t4471, t4473, t4474, t4477, t4488, t4493;
208   double t4496, t4516, t4552, t4561, t4566, t4570, t4600, t4627;
209   double t4629, t4633, t4650, t4663, t4666, t4669, t4702, t4706;
210   double t4710, t4715, t4720, t4721, t4726, t4735, t4761, t4766;
211   double t4783, t4787, t4798, t4846, t4851, t4860, t4865, t4868;
212   double t4874, t4875, t4876, t4887, t4888, t4889, t4893, t4914;
213   double t4938, t4952, t4967, t4968, t4969, t4988, t4993, t4994;
214   double t4995, t5008, t5009, t5012, t5022, t5025, t5040, t5086;
215   double t5114, t5118, t5129, t5143, t5158, t5182, t5210, t5213;
216   double t5216, t5227, t5235, t5270, t5274, t5299, t5305, t5325;
217   double t5328, t5331, t5333, t5335, t5340, t5342, t5344, t5358;
218   double t5366, t5373, t5381, t5384, t5385, t5396, t5409, t5412;
219   double t5415, t5418, t5425, t5430, t5443, t5462, t5467, t5483;
220   double t5494, t5497, t5504, t5524, t5527, t5531, t5535, t5539;
221   double t5565, t5577, t5587, t5594, t5595, t5601, t5612, t5625;
222   double t5635, t5636, t5662, t5669, t5674, t5681, t5688, t5689;
223   double t5721, t5722, t5723, t5727, t5730, t5741, t5753, t5766;
224   double t5769, t5801, t5825, t5830, t5838, t5864, t5867, t5868;
225   double t5901, t5917, t5925, t5940, t5965, t5977, t6016, t6039;
226   double t6044, t6052, t6090, t6094, t6109, t6112, t6125, t6142;
227   double t6146, t6148, t6159, t6161, t6190, t6197, t6198, t6207;
228   double t6211, t6214, t6217, t6226, t6251, t6260, t6275, t6317;
229   double t6318, t6340, t6350, t6352, t6355, t6371, t6377, t6388;
230   double t6402, t6405, t6408, t6423, t6431, t6434, t6445, t6449;
231   double t6452, t6455, t6458, t6474, t6488, t6511, t6534, t6537;
232   double t6546, t6551, t6552, t6555, t6556, t6557, t6560, t6601;
233   double t6606, t6614, t6617, t6623, t6630, t6638, t6646, t6664;
234   double t6682, t6685, t6686, t6689, t6694, t6703, t6709, t6719;
235   double t6751, t6764, t6772, t6779, t6807, t6819, t6823, t6826;
236   double t6831, t6856, t6895, t6926, t6940, t6953, t6971, t6972;
237   double t6996, t7002, t7021, t7042, t7066, t7069, t7076, t7106;
238   double t7129, t7140, t7144, t7146, t7186, t7188, t7197, t7200;
239   double t7204, t7225, t7251, t7254, t7266, t7269, t7272, t7292;
240   double t7295, t7301, t7304, t7311, t7318, t7322, t7349, t7353;
241   double t7366, t7370, t7395, t7402, t7405, t7421, t7441, t7479;
242   double t7535, t7536, t7557, t7578, t7595, t7623, t7653, t7663;
243   double t7679, t7683, t7685, t7704, t7705, t7724, t7738, t7747;
244   double t7754, t7771;
245 #endif
246 
247 #endif
248 
249 #endif
250 
251 #endif
252 
253 #endif
254 
255 
256 
257   t2 = M_CBRT3;
258   t3 = 0.1e1 / M_PI;
259   t4 = POW_1_3(t3);
260   t5 = t2 * t4;
261   t6 = M_CBRT4;
262   t7 = t6 * t6;
263   t8 = t5 * t7;
264   t9 = M_CBRT2;
265   t10 = t9 * t9;
266   t11 = POW_1_3(rho[0]);
267   t12 = t10 * t11;
268   t13 = sigma[0] * t10;
269   t14 = rho[0] * rho[0];
270   t15 = t11 * t11;
271   t17 = 0.1e1 / t15 / t14;
272   t18 = t13 * t17;
273   t20 = 0.1e1 + 0.4e-2 * t18;
274   t21 = 0.1e1 / t20;
275   t25 = sigma[0] * sigma[0];
276   t26 = t25 * t9;
277   t27 = t14 * t14;
278   t28 = t27 * rho[0];
279   t30 = 0.1e1 / t11 / t28;
280   t31 = t20 * t20;
281   t32 = 0.1e1 / t31;
282   t33 = t30 * t32;
283   t36 = M_CBRT6;
284   t37 = t36 * t36;
285   t38 = M_PI * M_PI;
286   t39 = POW_1_3(t38);
287   t40 = t39 * t39;
288   t41 = t37 * t40;
289   t42 = 0.3e1 / 0.10e2 * t41;
290   t43 = tau[0] * t10;
291   t45 = 0.1e1 / t15 / rho[0];
292   t46 = t43 * t45;
293   t47 = t42 - t46;
294   t48 = t42 + t46;
295   t49 = 0.1e1 / t48;
296   t50 = t47 * t49;
297   t52 = t50 * sigma[0];
298   t53 = t10 * t17;
299   t54 = t53 * t21;
300   t57 = 0.1000e1 + 0.5232e-2 * t13 * t17 * t21 + 0.60832e-4 * t26 * t33 + 0.416e0 * t50 + 0.12280e-1 * t52 * t54;
301   t60 = 0.3e1 / 0.16e2 * t8 * t12 * t57;
302   t62 = t7 / t11;
303   t64 = t5 * t62 * t9;
304   t66 = 0.1e1 + 0.51370000000000000000e-1 * t64;
305   t67 = sqrt(t64);
306   t70 = POW_3_2(t64);
307   t72 = t2 * t2;
308   t73 = t4 * t4;
309   t74 = t72 * t73;
310   t75 = 0.1e1 / t15;
311   t76 = t6 * t75;
312   t78 = t74 * t76 * t10;
313   t80 = 0.70594500000000000000e1 * t67 + 0.15494250000000000000e1 * t64 + 0.42077500000000000000e0 * t70 + 0.15629250000000000000e0 * t78;
314   t83 = 0.1e1 + 0.32163958997385070134e2 / t80;
315   t84 = log(t83);
316   t85 = t66 * t84;
317   t87 = 0.1e1 + 0.2e0 * t18;
318   t88 = t87 * t87;
319   t89 = 0.1e1 / t88;
320   t90 = t30 * t89;
321   t94 = t47 * t47;
322   t95 = t94 * t47;
323   t96 = t48 * t48;
324   t97 = t96 * t48;
325   t98 = 0.1e1 / t97;
326   t99 = t95 * t98;
327   t100 = t99 * t25;
328   t101 = t9 * t30;
329   t102 = t101 * t89;
330   t105 = t94 * t94;
331   t106 = t96 * t96;
332   t107 = 0.1e1 / t106;
333   t108 = t105 * t107;
334   t109 = t108 * t25;
335   t112 = 0.1000e1 - 0.14840e0 * t26 * t90 - 0.5668e1 * t50 - 0.163976e1 * t100 * t102 - 0.162912e1 * t109 * t102;
336   t114 = 0.31090700000000000000e-1 * t85 * t112;
337   t115 = t5 * t62;
338   t117 = 0.1e1 + 0.53425000000000000000e-1 * t115;
339   t118 = sqrt(t115);
340   t121 = POW_3_2(t115);
341   t123 = t74 * t76;
342   t125 = 0.37978500000000000000e1 * t118 + 0.89690000000000000000e0 * t115 + 0.20477500000000000000e0 * t121 + 0.12323500000000000000e0 * t123;
343   t128 = 0.1e1 + 0.16081979498692535067e2 / t125;
344   t129 = log(t128);
345   t133 = -0.621814e-1 * t117 * t129 + 0.31090700000000000000e-1 * t85;
346   t135 = 0.1e1 + 0.6e-2 * t18;
347   t136 = 0.1e1 / t135;
348   t140 = t25 * sigma[0];
349   t141 = t27 * t27;
350   t142 = 0.1e1 / t141;
351   t144 = t135 * t135;
352   t145 = t144 * t135;
353   t146 = 0.1e1 / t145;
354   t150 = 0.3e1 / 0.5e1 * t41 * t46;
355   t151 = tau[0] * tau[0];
356   t152 = t151 * t9;
357   t153 = t14 * rho[0];
358   t155 = 0.1e1 / t11 / t153;
359   t157 = 0.4e1 * t152 * t155;
360   t158 = t150 - t157;
361   t159 = t150 + t157;
362   t160 = 0.1e1 / t159;
363   t163 = t158 * t158;
364   t164 = t163 * t158;
365   t165 = t159 * t159;
366   t166 = t165 * t159;
367   t167 = 0.1e1 / t166;
368   t168 = t164 * t167;
369   t169 = t168 * t25;
370   t170 = 0.1e1 / t144;
371   t171 = t101 * t170;
372   t174 = 0.1000e1 + 0.9438e-2 * t13 * t17 * t136 - 0.5441472e-5 * t140 * t142 * t146 + 0.2535e1 * t158 * t160 - 0.462744e-3 * t169 * t171;
373   t175 = t133 * t174;
374   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
375     zk[0] = -t60 - t114 + t175;
376 
377 #ifndef XC_DONT_COMPILE_VXC
378 
379   if(order < 1) return;
380 
381 
382   t176 = t10 * t75;
383   t178 = t8 * t176 * t57;
384   t181 = 0.1e1 / t15 / t153;
385   t185 = t27 * t14;
386   t187 = 0.1e1 / t11 / t185;
387   t188 = t187 * t32;
388   t191 = t141 * rho[0];
389   t192 = 0.1e1 / t191;
390   t193 = t140 * t192;
391   t195 = 0.1e1 / t31 / t20;
392   t199 = t43 * t17 * t49;
393   t201 = 0.1e1 / t96;
394   t202 = t47 * t201;
395   t203 = t43 * t17;
396   t204 = t202 * t203;
397   t206 = tau[0] * t9;
398   t207 = t206 * t30;
399   t208 = t49 * sigma[0];
400   t209 = t208 * t21;
401   t212 = t202 * sigma[0];
402   t213 = t21 * tau[0];
403   t217 = t10 * t181;
404   t218 = t217 * t21;
405   t221 = t50 * t25;
406   t222 = t9 * t187;
407   t223 = t222 * t32;
408   t226 = -0.13952000000000000000e-1 * t13 * t181 * t21 - 0.21282133333333333333e-3 * t26 * t188 + 0.25954986666666666667e-5 * t193 * t195 + 0.69333333333333333333e0 * t199 + 0.69333333333333333333e0 * t204 + 0.40933333333333333333e-1 * t207 * t209 + 0.40933333333333333333e-1 * t212 * t101 * t213 - 0.32746666666666666667e-1 * t52 * t218 + 0.26197333333333333334e-3 * t221 * t223;
409   t228 = t8 * t12 * t226;
410   t231 = 0.1e1 / t11 / rho[0];
411   t232 = t231 * t9;
412   t233 = t84 * t112;
413   t235 = t8 * t232 * t233;
414   t237 = t80 * t80;
415   t238 = 0.1e1 / t237;
416   t239 = t66 * t238;
417   t242 = 0.1e1 / t67 * t2 * t4;
418   t243 = t7 * t231;
419   t244 = t243 * t9;
420   t247 = t5 * t244;
421   t249 = sqrt(t64);
422   t251 = t249 * t2 * t4;
423   t254 = t6 * t45;
424   t258 = -0.11765750000000000000e1 * t242 * t244 - 0.51647500000000000000e0 * t247 - 0.21038750000000000000e0 * t251 * t244 - 0.10419500000000000000e0 * t74 * t254 * t10;
425   t259 = 0.1e1 / t83;
426   t260 = t258 * t259;
427   t261 = t260 * t112;
428   t262 = t239 * t261;
429   t264 = t187 * t89;
430   t268 = 0.1e1 / t88 / t87;
431   t269 = t193 * t268;
432   t273 = t94 * t98;
433   t274 = t273 * t25;
434   t275 = t142 * t89;
435   t276 = t275 * tau[0];
436   t279 = t95 * t107;
437   t280 = t279 * t25;
438   t283 = t222 * t89;
439   t289 = 0.1e1 / t106 / t48;
440   t290 = t105 * t289;
441   t291 = t290 * t25;
442   t298 = 0.79146666666666666667e0 * t26 * t264 - 0.31658666666666666668e0 * t269 - 0.94466666666666666667e1 * t199 - 0.94466666666666666667e1 * t204 - 0.1639760e2 * t274 * t276 - 0.38119200000000000000e2 * t280 * t276 + 0.87453866666666666667e1 * t100 * t283 - 0.34981546666666666668e1 * t99 * t269 - 0.21721600000000000000e2 * t291 * t276 + 0.86886400000000000000e1 * t109 * t283 - 0.34754560000000000001e1 * t108 * t269;
443   t299 = t85 * t298;
444   t304 = t125 * t125;
445   t305 = 0.1e1 / t304;
446   t306 = t117 * t305;
447   t308 = 0.1e1 / t118 * t2;
448   t309 = t4 * t7;
449   t310 = t309 * t231;
450   t313 = t5 * t243;
451   t315 = sqrt(t115);
452   t316 = t315 * t2;
453   t321 = -0.63297500000000000000e0 * t308 * t310 - 0.29896666666666666667e0 * t313 - 0.10238750000000000000e0 * t316 * t310 - 0.82156666666666666667e-1 * t74 * t254;
454   t322 = 0.1e1 / t128;
455   t323 = t321 * t322;
456   t331 = 0.11073470983333333333e-2 * t5 * t243 * t129 + 0.10000000000000000000e1 * t306 * t323 - 0.53237641966666666666e-3 * t8 * t232 * t84 - 0.10000000000000000000e1 * t239 * t260;
457   t332 = t331 * t174;
458   t336 = t187 * t170;
459   t339 = t193 * t146;
460   t341 = t25 * t25;
461   t342 = t141 * t153;
462   t344 = 0.1e1 / t15 / t342;
463   t346 = t144 * t144;
464   t347 = 0.1e1 / t346;
465   t348 = t347 * t10;
466   t351 = t41 * t203;
467   t353 = 0.1e1 / t11 / t27;
468   t355 = 0.40e2 / 0.3e1 * t152 * t353;
469   t356 = -t351 + t355;
470   t359 = 0.1e1 / t165;
471   t360 = t158 * t359;
472   t361 = -t351 - t355;
473   t364 = t163 * t167;
474   t365 = t364 * t25;
475   t366 = t170 * t356;
476   t367 = t101 * t366;
477   t370 = t165 * t165;
478   t371 = 0.1e1 / t370;
479   t372 = t164 * t371;
480   t373 = t372 * t25;
481   t374 = t170 * t361;
482   t375 = t101 * t374;
483   t378 = t222 * t170;
484   t383 = -0.25168000000000000000e-1 * t13 * t181 * t136 + 0.30201600000000000000e-3 * t26 * t336 + 0.43531776e-4 * t339 - 0.26119065600000000000e-6 * t341 * t344 * t348 + 0.2535e1 * t356 * t160 - 0.2535e1 * t360 * t361 - 0.1388232e-2 * t365 * t367 + 0.1388232e-2 * t373 * t375 + 0.24679680000000000000e-2 * t169 * t378 - 0.29615616000000000000e-4 * t168 * t339;
485   t384 = t133 * t383;
486   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
487     vrho[0] = -t60 - t114 + t175 + rho[0] * (-t178 / 0.16e2 - 0.3e1 / 0.16e2 * t228 + 0.53237641966666666666e-3 * t235 + 0.10000000000000000000e1 * t262 - 0.31090700000000000000e-1 * t299 + t332 + t384);
488 
489   t388 = sigma[0] * t9;
490   t391 = t25 * t142;
491   t396 = t101 * t32;
492   t399 = 0.5232e-2 * t54 + 0.79808e-4 * t388 * t33 - 0.973312e-6 * t391 * t195 + 0.12280e-1 * t50 * t54 - 0.98240e-4 * t52 * t396;
493   t402 = 0.3e1 / 0.16e2 * t8 * t12 * t399;
494   t405 = t391 * t268;
495   t407 = t99 * sigma[0];
496   t412 = t108 * sigma[0];
497   t417 = -0.29680e0 * t388 * t90 + 0.118720e0 * t405 - 0.327952e1 * t407 * t102 + 0.1311808e1 * t99 * t405 - 0.325824e1 * t412 * t102 + 0.1303296e1 * t108 * t405;
498   t419 = 0.31090700000000000000e-1 * t85 * t417;
499   t422 = t30 * t170;
500   t425 = t391 * t146;
501   t427 = t141 * t14;
502   t429 = 0.1e1 / t15 / t427;
503   t433 = t168 * sigma[0];
504   t438 = 0.9438e-2 * t53 * t136 - 0.113256e-3 * t388 * t422 - 0.16324416e-4 * t425 + 0.97946496e-7 * t140 * t429 * t348 - 0.925488e-3 * t433 * t171 + 0.11105856e-4 * t168 * t425;
505   t439 = t133 * t438;
506   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
507     vsigma[0] = rho[0] * (-t402 - t419 + t439);
508 
509   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
510     vlapl[0] = 0.0e0;
511 
512   t441 = t10 * t45;
513   t442 = t441 * t49;
514   t444 = t202 * t441;
515   t446 = t9 * t353;
516   t449 = t446 * t21;
517   t452 = -0.416e0 * t442 - 0.416e0 * t444 - 0.24560e-1 * t446 * t209 - 0.24560e-1 * t212 * t449;
518   t455 = 0.3e1 / 0.16e2 * t8 * t12 * t452;
519   t458 = t27 * t153;
520   t459 = 0.1e1 / t458;
521   t461 = t25 * t459 * t89;
522   t468 = 0.5668e1 * t442 + 0.5668e1 * t444 + 0.983856e1 * t273 * t461 + 0.2287152e2 * t279 * t461 + 0.1303296e2 * t290 * t461;
523   t470 = 0.31090700000000000000e-1 * t85 * t468;
524   t472 = 0.3e1 / 0.5e1 * t41 * t441;
525   t474 = 0.8e1 * t206 * t155;
526   t475 = t472 - t474;
527   t478 = t472 + t474;
528   t481 = t170 * t475;
529   t482 = t101 * t481;
530   t485 = t170 * t478;
531   t486 = t101 * t485;
532   t489 = 0.2535e1 * t475 * t160 - 0.2535e1 * t360 * t478 - 0.1388232e-2 * t365 * t482 + 0.1388232e-2 * t373 * t486;
533   t490 = t133 * t489;
534   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
535     vtau[0] = rho[0] * (-t455 - t470 + t490);
536 
537 #ifndef XC_DONT_COMPILE_FXC
538 
539   if(order < 2) return;
540 
541 
542   t500 = t8 * t441 * t57;
543   t503 = t8 * t176 * t226;
544   t505 = 0.1e1 / t427;
545   t506 = t140 * t505;
546   t507 = t506 * t195;
547   t509 = t43 * t181;
548   t510 = t202 * t509;
549   t512 = t47 * t98;
550   t513 = t512 * sigma[0];
551   t514 = t142 * t21;
552   t515 = t514 * t151;
553   t518 = t202 * t25;
554   t519 = t192 * t32;
555   t520 = t519 * tau[0];
556   t524 = 0.1e1 / t11 / t458;
557   t525 = t9 * t524;
558   t526 = t525 * t32;
559   t529 = t206 * t187;
560   t533 = 0.1e1 / t15 / t27;
561   t534 = t10 * t533;
562   t535 = t534 * t21;
563   t542 = t43 * t181 * t49;
564   t544 = t152 * t30;
565   t545 = t512 * t544;
566   t547 = t151 * t142;
567   t548 = t201 * sigma[0];
568   t549 = t548 * t21;
569   t552 = tau[0] * t192;
570   t553 = t49 * t25;
571   t554 = t553 * t32;
572   t559 = t141 * t27;
573   t561 = 0.1e1 / t15 / t559;
574   t562 = t341 * t561;
575   t563 = t31 * t31;
576   t564 = 0.1e1 / t563;
577   t565 = t564 * t10;
578   t569 = t152 * t30 * t201;
579   t571 = t524 * t32;
580   t577 = -0.32439864888888888889e-4 * t507 - 0.18488888888888888889e1 * t510 + 0.27288888888888888889e0 * t513 * t515 + 0.17464888888888888889e-2 * t518 * t520 - 0.23577600000000000001e-2 * t221 * t526 - 0.32746666666666666667e0 * t529 * t209 + 0.12007111111111111111e0 * t52 * t535 + 0.51157333333333333333e-1 * t13 * t533 * t21 - 0.18488888888888888889e1 * t542 + 0.46222222222222222222e1 * t545 + 0.27288888888888888888e0 * t547 * t549 + 0.17464888888888888889e-2 * t552 * t554 + 0.11177528888888888890e-4 * t50 * t507 + 0.83055957333333333337e-7 * t562 * t565 + 0.46222222222222222222e1 * t569 + 0.10502257777777777777e-2 * t26 * t571 - 0.32746666666666666667e0 * t212 * t222 * t213;
581   t579 = t8 * t12 * t577;
582   t582 = 0.1e1 / t11 / t14;
583   t583 = t582 * t9;
584   t585 = t8 * t583 * t233;
585   t587 = t9 * t238;
586   t588 = t587 * t261;
587   t589 = t313 * t588;
588   t591 = t84 * t298;
589   t593 = t8 * t232 * t591;
590   t595 = t237 * t80;
591   t596 = 0.1e1 / t595;
592   t597 = t66 * t596;
593   t598 = t258 * t258;
594   t599 = t598 * t259;
595   t600 = t599 * t112;
596   t601 = t597 * t600;
597   t606 = 0.1e1 / t67 / t64 * t72 * t73;
598   t607 = t6 * t17;
599   t608 = t607 * t10;
600   t611 = t7 * t582;
601   t612 = t611 * t9;
602   t617 = 0.1e1/sqrt(t64);
603   t619 = t617 * t72 * t73;
604   t626 = -0.78438333333333333333e0 * t606 * t608 + 0.15687666666666666667e1 * t242 * t612 + 0.68863333333333333333e0 * t5 * t612 + 0.14025833333333333333e0 * t619 * t608 + 0.28051666666666666667e0 * t251 * t612 + 0.17365833333333333333e0 * t74 * t608;
605   t627 = t626 * t259;
606   t628 = t627 * t112;
607   t629 = t239 * t628;
608   t631 = t237 * t237;
609   t632 = 0.1e1 / t631;
610   t633 = t66 * t632;
611   t634 = t83 * t83;
612   t635 = 0.1e1 / t634;
613   t636 = t598 * t635;
614   t637 = t636 * t112;
615   t638 = t633 * t637;
616   t640 = t260 * t298;
617   t641 = t239 * t640;
618   t643 = t506 * t268;
619   t649 = t99 * t341;
620   t650 = t88 * t88;
621   t651 = 0.1e1 / t650;
622   t652 = t561 * t651;
623   t653 = t652 * t10;
624   t656 = t108 * t341;
625   t661 = t192 * t89 * tau[0];
626   t665 = 0.1e1 / t106 / t96;
627   t666 = t105 * t665;
628   t667 = t666 * t25;
629   t668 = t429 * t89;
630   t669 = t151 * t10;
631   t670 = t668 * t669;
632   t673 = t290 * t140;
633   t674 = t344 * t268;
634   t675 = t674 * t43;
635   t678 = t525 * t89;
636   t683 = 0.50140216888888888891e2 * t99 * t643 + 0.49814869333333333335e2 * t108 * t643 + 0.45377422222222222224e1 * t643 - 0.55970474666666666669e1 * t649 * t653 - 0.55607296000000000002e1 * t656 * t653 + 0.25191111111111111111e2 * t510 + 0.28962133333333333333e3 * t291 * t661 - 0.18101333333333333333e3 * t667 * t670 - 0.46339413333333333334e2 * t673 * t675 - 0.55028053333333333333e2 * t109 * t678 + 0.21863466666666666667e3 * t274 * t661;
637   t684 = t512 * t25;
638   t687 = t94 * t107;
639   t688 = t687 * t25;
640   t691 = t273 * t140;
641   t696 = t95 * t289;
642   t697 = t696 * t25;
643   t700 = t279 * t140;
644   t705 = t524 * t89;
645   t711 = t651 * t10;
646   t714 = -0.54658666666666666667e2 * t684 * t670 - 0.27258400000000000000e3 * t688 * t670 - 0.34981546666666666668e2 * t691 * t675 + 0.50825600000000000000e3 * t280 * t661 - 0.39893866666666666667e3 * t697 * t670 - 0.81320960000000000002e2 * t700 * t675 - 0.55387448888888888889e2 * t100 * t678 - 0.50126222222222222222e1 * t26 * t705 + 0.25191111111111111111e2 * t542 - 0.62977777777777777778e2 * t545 - 0.62977777777777777778e2 * t569 - 0.50653866666666666669e0 * t562 * t711;
647   t715 = t683 + t714;
648   t716 = t85 * t715;
649   t721 = t231 * t305;
650   t725 = t304 * t125;
651   t726 = 0.1e1 / t725;
652   t727 = t117 * t726;
653   t728 = t321 * t321;
654   t729 = t728 * t322;
655   t734 = 0.1e1 / t118 / t115 * t72;
656   t735 = t73 * t6;
657   t736 = t735 * t17;
658   t739 = t309 * t582;
659   t742 = t5 * t611;
660   t744 = 0.1e1/sqrt(t115);
661   t745 = t744 * t72;
662   t752 = -0.42198333333333333333e0 * t734 * t736 + 0.84396666666666666666e0 * t308 * t739 + 0.39862222222222222223e0 * t742 + 0.68258333333333333333e-1 * t745 * t736 + 0.13651666666666666667e0 * t316 * t739 + 0.13692777777777777778e0 * t74 * t607;
663   t753 = t752 * t322;
664   t756 = t304 * t304;
665   t757 = 0.1e1 / t756;
666   t758 = t117 * t757;
667   t759 = t128 * t128;
668   t760 = 0.1e1 / t759;
669   t761 = t728 * t760;
670   t767 = t587 * t260;
671   t776 = -0.14764627977777777777e-2 * t5 * t611 * t129 - 0.35616666666666666666e-1 * t8 * t721 * t323 - 0.20000000000000000000e1 * t727 * t729 + 0.10000000000000000000e1 * t306 * t753 + 0.16081979498692535067e2 * t758 * t761 + 0.70983522622222222221e-3 * t8 * t583 * t84 + 0.34246666666666666666e-1 * t313 * t767 + 0.20000000000000000000e1 * t597 * t599 - 0.10000000000000000000e1 * t239 * t627 - 0.32163958997385070134e2 * t633 * t636;
672   t777 = t776 * t174;
673   t778 = t331 * t383;
674   t780 = t506 * t146;
675   t787 = 0.8e1 / 0.3e1 * t41 * t509;
676   t788 = 0.520e3 / 0.9e1 * t544;
677   t789 = t787 - t788;
678   t793 = t356 * t359;
679   t796 = t787 + t788;
680   t799 = t364 * t140;
681   t800 = t192 * t146;
682   t801 = t800 * t356;
683   t804 = t372 * t140;
684   t805 = t800 * t361;
685   t808 = t168 * t341;
686   t809 = t561 * t347;
687   t810 = t809 * t10;
688   t813 = t170 * t796;
689   t814 = t101 * t813;
690   t818 = t525 * t170;
691   t821 = t170 * t789;
692   t822 = t101 * t821;
693   t825 = t524 * t170;
694   t830 = t341 * sigma[0];
695   t831 = t141 * t458;
696   t833 = 0.1e1 / t11 / t831;
697   t836 = 0.1e1 / t346 / t135;
698   t837 = t836 * t9;
699   t840 = t158 * t167;
700   t841 = t361 * t361;
701   t844 = t840 * t25;
702   t845 = t356 * t356;
703   t846 = t170 * t845;
704   t847 = t101 * t846;
705   t850 = t163 * t371;
706   t851 = t850 * t26;
707   t852 = t356 * t361;
708   t853 = t422 * t852;
709   t856 = t222 * t366;
710   t860 = 0.1e1 / t370 / t159;
711   t861 = t164 * t860;
712   t862 = t861 * t25;
713   t863 = t170 * t841;
714   t864 = t101 * t863;
715   t867 = t222 * t374;
716   t870 = -0.15630464000000000000e-1 * t169 * t818 - 0.1388232e-2 * t365 * t822 - 0.27181440000000000000e-2 * t26 * t825 + 0.51367495680000000000e-5 * t562 * t348 - 0.33432403968000000000e-7 * t830 * t833 * t837 + 0.5070e1 * t840 * t841 - 0.2776464e-2 * t844 * t847 + 0.8329392e-2 * t851 * t853 + 0.14807808000000000000e-1 * t365 * t856 - 0.5552928e-2 * t862 * t864 - 0.14807808000000000000e-1 * t373 * t867;
717   t871 = 0.42449049600000000000e-3 * t168 * t780 + 0.92282666666666666667e-1 * t13 * t533 * t136 + 0.2535e1 * t789 * t160 - 0.37245696000000000000e-3 * t780 - 0.5070e1 * t793 * t361 - 0.2535e1 * t360 * t796 - 0.17769369600000000000e-3 * t799 * t801 + 0.17769369600000000000e-3 * t804 * t805 - 0.14215495680000000000e-5 * t808 * t810 + 0.1388232e-2 * t373 * t814 + t870;
718   t872 = t133 * t871;
719   t873 = t500 / 0.24e2 - t503 / 0.8e1 - 0.3e1 / 0.16e2 * t579 - 0.70983522622222222221e-3 * t585 - 0.34246666666666666666e-1 * t589 + 0.10647528393333333333e-2 * t593 - 0.20000000000000000000e1 * t601 + 0.10000000000000000000e1 * t629 + 0.32163958997385070134e2 * t638 + 0.20000000000000000000e1 * t641 - 0.31090700000000000000e-1 * t716 + t777 + 0.2e1 * t778 + t872;
720   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
721     v2rho2[0] = -t178 / 0.8e1 - 0.3e1 / 0.8e1 * t228 + 0.10647528393333333333e-2 * t235 + 0.20000000000000000000e1 * t262 - 0.62181400000000000000e-1 * t299 + 0.2e1 * t332 + 0.2e1 * t384 + rho[0] * t873;
722 
723   t876 = t8 * t176 * t399;
724   t879 = t32 * sigma[0];
725   t882 = t25 * t192;
726   t883 = t882 * t195;
727   t885 = t140 * t344;
728   t892 = t202 * t9;
729   t899 = t50 * t9;
730   t903 = tau[0] * t142;
731   t904 = t208 * t32;
732   t907 = t142 * t32;
733   t908 = t907 * tau[0];
734   t913 = -0.13952000000000000000e-1 * t218 - 0.31402666666666666667e-3 * t222 * t879 + 0.11191637333333333333e-4 * t883 - 0.31145984000000000001e-7 * t885 * t565 + 0.40933333333333333333e-1 * t206 * t30 * t49 * t21 + 0.40933333333333333333e-1 * t892 * t30 * t21 * tau[0] - 0.32746666666666666667e-1 * t50 * t218 + 0.78592000000000000001e-3 * t899 * t188 * sigma[0] - 0.32746666666666666667e-3 * t903 * t904 - 0.32746666666666666667e-3 * t212 * t908 - 0.41915733333333333335e-5 * t50 * t883;
735   t915 = t8 * t12 * t913;
736   t917 = t84 * t417;
737   t919 = t8 * t232 * t917;
738   t921 = t260 * t417;
739   t922 = t239 * t921;
740   t926 = t882 * t268;
741   t930 = t273 * sigma[0];
742   t933 = t279 * sigma[0];
743   t940 = t429 * t268;
744   t941 = t940 * t43;
745   t946 = t99 * t140;
746   t947 = t344 * t651;
747   t948 = t947 * t10;
748   t951 = t290 * sigma[0];
749   t960 = t108 * t140;
750   t963 = 0.15829333333333333333e1 * t388 * t264 - 0.15829333333333333334e1 * t926 + 0.18995200000000000000e0 * t885 * t711 - 0.3279520e2 * t930 * t276 - 0.76238400000000000000e2 * t933 * t276 + 0.17490773333333333333e2 * t407 * t283 - 0.17490773333333333334e2 * t99 * t926 + 0.6559040e1 * t274 * t941 + 0.15247680000000000000e2 * t280 * t941 + 0.20988928000000000000e1 * t946 * t948 - 0.43443200000000000000e2 * t951 * t276 + 0.17377280000000000000e2 * t412 * t283 - 0.17377280000000000000e2 * t108 * t926 + 0.86886400000000000000e1 * t291 * t941 + 0.20852736000000000000e1 * t960 * t948;
751   t964 = t85 * t963;
752   t966 = t331 * t438;
753   t969 = t170 * sigma[0];
754   t972 = t882 * t146;
755   t976 = t141 * t185;
756   t978 = 0.1e1 / t11 / t976;
757   t982 = t364 * sigma[0];
758   t985 = t372 * sigma[0];
759   t992 = t142 * t146;
760   t993 = t992 * t356;
761   t996 = t992 * t361;
762   t999 = t168 * t140;
763   t1000 = t344 * t347;
764   t1001 = t1000 * t10;
765   t1004 = -0.25168000000000000000e-1 * t217 * t136 + 0.90604800000000000000e-3 * t222 * t969 + 0.12334694400000000000e-3 * t972 - 0.18283345920000000000e-5 * t885 * t348 + 0.12537151488000000000e-7 * t341 * t978 * t837 - 0.2776464e-2 * t982 * t367 + 0.2776464e-2 * t985 * t375 + 0.49359360000000000000e-2 * t433 * t378 - 0.14807808000000000000e-3 * t168 * t972 + 0.33317568e-4 * t365 * t993 - 0.33317568e-4 * t373 * t996 + 0.53308108800000000000e-6 * t999 * t1001;
766   t1005 = t133 * t1004;
767   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
768     v2rhosigma[0] = -t402 - t419 + t439 + rho[0] * (-t876 / 0.16e2 - 0.3e1 / 0.16e2 * t915 + 0.53237641966666666666e-3 * t919 + 0.10000000000000000000e1 * t922 - 0.31090700000000000000e-1 * t964 + t966 + t1005);
769 
770   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
771     v2rholapl[0] = 0.0e0;
772 
773   t1009 = t8 * t176 * t452;
774   t1011 = t53 * t49;
775   t1013 = t201 * tau[0];
776   t1014 = t446 * t1013;
777   t1016 = t206 * t353;
778   t1017 = t512 * t1016;
779   t1019 = t202 * t53;
780   t1023 = t459 * t201;
781   t1024 = sigma[0] * t21;
782   t1025 = t1024 * tau[0];
783   t1028 = t142 * t49;
784   t1029 = t25 * t32;
785   t1032 = t459 * t21;
786   t1033 = t1032 * tau[0];
787   t1036 = t101 * t21;
788   t1042 = 0.69333333333333333333e0 * t1011 - 0.27733333333333333334e1 * t1014 - 0.27733333333333333333e1 * t1017 + 0.69333333333333333333e0 * t1019 + 0.10642666666666666667e0 * t101 * t209 - 0.16373333333333333333e0 * t1023 * t1025 - 0.52394666666666666668e-3 * t1028 * t1029 - 0.16373333333333333333e0 * t513 * t1033 + 0.10642666666666666667e0 * t212 * t1036 - 0.52394666666666666668e-3 * t202 * t391 * t32;
789   t1044 = t8 * t12 * t1042;
790   t1046 = t84 * t468;
791   t1048 = t8 * t232 * t1046;
792   t1050 = t260 * t468;
793   t1051 = t239 * t1050;
794   t1058 = 0.1e1 / t15 / t191;
795   t1059 = t1058 * t89;
796   t1060 = t1059 * t43;
797   t1065 = t391 * t89;
798   t1068 = t940 * t10;
799   t1083 = -0.94466666666666666667e1 * t1011 + 0.37786666666666666666e2 * t1014 + 0.37786666666666666667e2 * t1017 - 0.94466666666666666667e1 * t1019 + 0.32795200000000000000e2 * t684 * t1060 + 0.16355040e3 * t688 * t1060 - 0.6886992e2 * t273 * t1065 + 0.10494464000000000000e2 * t691 * t1068 + 0.23936320000000000000e3 * t697 * t1060 - 0.16010064e3 * t279 * t1065 + 0.24396288000000000001e2 * t700 * t1068 + 0.10860800000000000000e3 * t667 * t1060 - 0.9123072e2 * t290 * t1065 + 0.13901824000000000000e2 * t673 * t1068;
800   t1084 = t85 * t1083;
801   t1086 = t331 * t489;
802   t1087 = t41 * t53;
803   t1088 = 0.80e2 / 0.3e1 * t1016;
804   t1089 = -t1087 + t1088;
805   t1092 = t475 * t359;
806   t1097 = t478 * t361;
807   t1100 = -t1087 - t1088;
808   t1103 = t840 * t26;
809   t1104 = t475 * t356;
810   t1105 = t422 * t1104;
811   t1108 = t475 * t361;
812   t1109 = t422 * t1108;
813   t1112 = t222 * t481;
814   t1115 = t800 * t475;
815   t1118 = t170 * t1089;
816   t1119 = t101 * t1118;
817   t1122 = t478 * t356;
818   t1123 = t422 * t1122;
819   t1126 = t861 * t26;
820   t1127 = t422 * t1097;
821   t1130 = t222 * t485;
822   t1133 = t800 * t478;
823   t1136 = t170 * t1100;
824   t1137 = t101 * t1136;
825   t1140 = 0.2535e1 * t1089 * t160 - 0.2535e1 * t1092 * t361 - 0.2535e1 * t793 * t478 + 0.5070e1 * t840 * t1097 - 0.2535e1 * t360 * t1100 - 0.2776464e-2 * t1103 * t1105 + 0.4164696e-2 * t851 * t1109 + 0.74039040000000000000e-2 * t365 * t1112 - 0.88846848000000000000e-4 * t799 * t1115 - 0.1388232e-2 * t365 * t1119 + 0.4164696e-2 * t851 * t1123 - 0.5552928e-2 * t1126 * t1127 - 0.74039040000000000000e-2 * t373 * t1130 + 0.88846848000000000000e-4 * t804 * t1133 + 0.1388232e-2 * t373 * t1137;
826   t1141 = t133 * t1140;
827   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
828     v2rhotau[0] = -t455 - t470 + t490 + rho[0] * (-t1009 / 0.16e2 - 0.3e1 / 0.16e2 * t1044 + 0.53237641966666666666e-3 * t1048 + 0.10000000000000000000e1 * t1051 - 0.31090700000000000000e-1 * t1084 + t1086 + t1141);
829 
830   t1145 = sigma[0] * t142;
831   t1146 = t1145 * t195;
832   t1148 = t25 * t429;
833   t1155 = 0.37952e-4 * t396 - 0.3223552e-5 * t1146 + 0.11679744e-7 * t1148 * t565 - 0.196480e-3 * t50 * t396 + 0.1571840e-5 * t50 * t1146;
834   t1158 = 0.3e1 / 0.16e2 * t8 * t12 * t1155;
835   t1160 = t1145 * t268;
836   t1169 = t429 * t651 * t10;
837   t1178 = -0.29680e0 * t102 + 0.474880e0 * t1160 - 0.712320e-1 * t1148 * t711 - 0.327952e1 * t99 * t102 + 0.5247232e1 * t99 * t1160 - 0.7870848e0 * t100 * t1169 - 0.325824e1 * t108 * t102 + 0.5213184e1 * t108 * t1160 - 0.7819776e0 * t109 * t1169;
838   t1180 = 0.31090700000000000000e-1 * t85 * t1178;
839   t1182 = t1145 * t146;
840   t1186 = t141 * t28;
841   t1188 = 0.1e1 / t11 / t1186;
842   t1196 = t429 * t347;
843   t1197 = t1196 * t10;
844   t1200 = -0.226512e-3 * t171 - 0.29930688e-4 * t1182 + 0.587678976e-6 * t1148 * t348 - 0.4701431808e-8 * t140 * t1188 * t837 - 0.925488e-3 * t168 * t171 + 0.44423424e-4 * t168 * t1182 - 0.199905408e-6 * t169 * t1197;
845   t1201 = t133 * t1200;
846   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
847     v2sigma2[0] = rho[0] * (-t1158 - t1180 + t1201);
848 
849   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
850     v2sigmalapl[0] = 0.0e0;
851 
852   t1203 = t49 * t21;
853   t1206 = t459 * t49;
854   t1211 = sigma[0] * t459;
855   t1215 = -0.24560e-1 * t446 * t1203 + 0.196480e-3 * t1206 * t879 - 0.24560e-1 * t202 * t449 + 0.196480e-3 * t202 * t1211 * t32;
856   t1218 = 0.3e1 / 0.16e2 * t8 * t12 * t1215;
857   t1219 = t1211 * t89;
858   t1223 = t1058 * t268 * t10;
859   t1234 = 0.1967712e2 * t273 * t1219 - 0.3935424e1 * t274 * t1223 + 0.4574304e2 * t279 * t1219 - 0.9148608e1 * t280 * t1223 + 0.2606592e2 * t290 * t1219 - 0.5213184e1 * t291 * t1223;
860   t1236 = 0.31090700000000000000e-1 * t85 * t1234;
861   t1239 = t992 * t475;
862   t1244 = t992 * t478;
863   t1247 = -0.2776464e-2 * t982 * t482 + 0.33317568e-4 * t365 * t1239 + 0.2776464e-2 * t985 * t486 - 0.33317568e-4 * t373 * t1244;
864   t1248 = t133 * t1247;
865   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
866     v2sigmatau[0] = rho[0] * (-t1218 - t1236 + t1248);
867 
868   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
869     v2lapl2[0] = 0.0e0;
870 
871   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
872     v2lapltau[0] = 0.0e0;
873 
874   t1250 = t9 * t155;
875   t1251 = t1250 * t201;
876   t1253 = t512 * t1250;
877   t1255 = 0.1e1 / t185;
878   t1256 = t1255 * t201;
879   t1263 = 0.1664e1 * t1251 + 0.1664e1 * t1253 + 0.98240e-1 * t1256 * t1024 + 0.98240e-1 * t512 * sigma[0] * t1255 * t21;
880   t1266 = 0.3e1 / 0.16e2 * t8 * t12 * t1263;
881   t1270 = 0.1e1 / t15 / t141;
882   t1272 = t1270 * t89 * t10;
883   t1281 = -0.22672e2 * t1251 - 0.22672e2 * t1253 - 0.1967712e2 * t684 * t1272 - 0.9813024e2 * t688 * t1272 - 0.14361792e3 * t697 * t1272 - 0.6516480e2 * t667 * t1272;
884   t1283 = 0.31090700000000000000e-1 * t85 * t1281;
885   t1288 = t478 * t478;
886   t1293 = t475 * t475;
887   t1294 = t170 * t1293;
888   t1295 = t101 * t1294;
889   t1298 = t475 * t478;
890   t1299 = t422 * t1298;
891   t1302 = t10 * t1270;
892   t1303 = t1302 * t170;
893   t1306 = t170 * t1288;
894   t1307 = t101 * t1306;
895   t1312 = -0.20280e2 * t1250 * t160 - 0.5070e1 * t1092 * t478 + 0.5070e1 * t840 * t1288 - 0.20280e2 * t360 * t1250 - 0.2776464e-2 * t844 * t1295 + 0.8329392e-2 * t851 * t1299 + 0.11105856e-1 * t365 * t1303 - 0.5552928e-2 * t862 * t1307 + 0.11105856e-1 * t373 * t1303;
896   t1313 = t133 * t1312;
897   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
898     v2tau2[0] = rho[0] * (-t1266 - t1283 + t1313);
899 
900 #ifndef XC_DONT_COMPILE_KXC
901 
902   if(order < 3) return;
903 
904 
905   t1315 = t9 * t596;
906   t1316 = t1315 * t600;
907   t1317 = t313 * t1316;
908   t1319 = t742 * t588;
909   t1321 = t587 * t628;
910   t1322 = t313 * t1321;
911   t1324 = t587 * t640;
912   t1325 = t313 * t1324;
913   t1327 = t9 * t632;
914   t1328 = t1327 * t637;
915   t1329 = t313 * t1328;
916   t1332 = t8 * t1250 * t233;
917   t1334 = t84 * t715;
918   t1336 = t8 * t232 * t1334;
919   t1339 = t8 * t583 * t591;
920   t1341 = t331 * t871;
921   t1346 = 0.1e1 / t67 / t78 * t3 / 0.4e1;
922   t1347 = 0.1e1 / t27;
923   t1350 = t6 * t181;
924   t1351 = t1350 * t10;
925   t1354 = t7 * t155;
926   t1355 = t1354 * t9;
927   t1360 = 0.1e1/POW_3_2(t64);
928   t1361 = t1360 * t3;
929   t1370 = -0.94126000000000000000e1 * t1346 * t1347 + 0.31375333333333333334e1 * t606 * t1351 - 0.36604555555555555556e1 * t242 * t1355 - 0.16068111111111111111e1 * t5 * t1355 + 0.56103333333333333332e0 * t1361 * t1347 - 0.56103333333333333332e0 * t619 * t1351 - 0.65453888888888888890e0 * t251 * t1355 - 0.46308888888888888888e0 * t74 * t1351;
930   t1371 = t1370 * t259;
931   t1372 = t1371 * t112;
932   t1373 = t239 * t1372;
933   t1375 = t627 * t298;
934   t1376 = t239 * t1375;
935   t1378 = t599 * t298;
936   t1379 = t597 * t1378;
937   t1382 = 0.1e1 / t631 / t80;
938   t1383 = t66 * t1382;
939   t1384 = t598 * t258;
940   t1385 = t1384 * t635;
941   t1386 = t1385 * t112;
942   t1387 = t1383 * t1386;
943   t1389 = 0.10274000000000000000e0 * t1317 + 0.68493333333333333332e-1 * t1319 - 0.51369999999999999999e-1 * t1322 - 0.10274000000000000000e0 * t1325 - 0.16522625736956710527e1 * t1329 + 0.16562821945185185185e-2 * t1332 + 0.15971292590000000000e-2 * t1336 - 0.21295056786666666666e-2 * t1339 + 0.3e1 * t1341 + 0.10000000000000000000e1 * t1373 + 0.30000000000000000000e1 * t1376 - 0.60000000000000000000e1 * t1379 - 0.19298375398431042081e3 * t1387;
944   t1390 = t636 * t298;
945   t1391 = t633 * t1390;
946   t1394 = 0.1e1 / t631 / t237;
947   t1395 = t66 * t1394;
948   t1397 = 0.1e1 / t634 / t83;
949   t1398 = t1384 * t1397;
950   t1399 = t1398 * t112;
951   t1400 = t1395 * t1399;
952   t1403 = t8 * t53 * t57;
953   t1406 = t8 * t441 * t226;
954   t1409 = t8 * t176 * t577;
955   t1414 = t47 * t107;
956   t1415 = t1414 * sigma[0];
957   t1416 = t429 * t21;
958   t1417 = t151 * tau[0];
959   t1418 = t1417 * t10;
960   t1422 = t344 * t32;
961   t1426 = t202 * t140;
962   t1427 = t561 * t195;
963   t1432 = 0.1e1 / t15 / t28;
964   t1437 = t43 * t533 * t49;
965   t1440 = 0.1e1 / t15 / t1186;
966   t1441 = t341 * t1440;
967   t1445 = t152 * t187 * t201;
968   t1448 = 0.1e1 / t11 / t141;
969   t1449 = t1448 * t32;
970   t1452 = t1417 * t142;
971   t1453 = t1414 * t1452;
972   t1455 = t141 * t141;
973   t1457 = 0.1e1 / t11 / t1455;
974   t1458 = t830 * t1457;
975   t1460 = 0.1e1 / t563 / t20;
976   t1461 = t1460 * t9;
977   t1465 = tau[0] * t561 * t49;
978   t1466 = t140 * t195;
979   t1467 = t1466 * t10;
980   t1470 = t50 * t341;
981   t1472 = t1440 * t564 * t10;
982   t1475 = 0.24741925925925925926e1 * t212 * t525 * t213 + 0.13644444444444444444e1 * t1415 * t1416 * t1418 + 0.87324444444444444446e-2 * t684 * t1422 * t669 + 0.55887644444444444448e-4 * t1426 * t1427 * t43 - 0.23873422222222222222e0 * t13 * t1432 * t21 + 0.67792592592592592593e1 * t1437 - 0.20901178026666666668e-5 * t1441 * t565 - 0.36977777777777777778e2 * t1445 - 0.66102992592592592586e-2 * t26 * t1449 + 0.46222222222222222222e2 * t1453 + 0.70874416924444444450e-8 * t1458 * t1461 + 0.55887644444444444448e-4 * t1465 * t1467 + 0.35768092444444444449e-6 * t1470 * t1472;
983   t1477 = t98 * sigma[0];
984   t1478 = t1477 * t21;
985   t1481 = t669 * t344;
986   t1483 = t201 * t25 * t32;
987   t1486 = t10 * t1432;
988   t1487 = t1486 * t21;
989   t1490 = t192 * t21;
990   t1491 = t1490 * t151;
991   t1498 = t9 * t1448;
992   t1505 = t43 * t533;
993   t1506 = t202 * t1505;
994   t1508 = t152 * t187;
995   t1509 = t512 * t1508;
996   t1511 = tau[0] * t505;
997   t1514 = 0.1e1 / t342;
998   t1515 = t140 * t1514;
999   t1516 = t1515 * t195;
1000   t1519 = t151 * t192;
1001   t1522 = t1452 * t98;
1002   t1525 = 0.13644444444444444444e1 * t1418 * t429 * t1478 + 0.87324444444444444444e-2 * t1481 * t1483 - 0.56033185185185185185e0 * t52 * t1487 - 0.43662222222222222222e1 * t513 * t1491 - 0.30563555555555555556e-1 * t518 * t505 * t32 * tau[0] + 0.19851757037037037038e-1 * t221 * t1498 * t32 + 0.24741925925925925926e1 * t206 * t524 * t209 + 0.67792592592592592593e1 * t1506 - 0.36977777777777777778e2 * t1509 - 0.30563555555555555556e-1 * t1511 * t554 - 0.21237304888888888891e-3 * t50 * t1516 - 0.43662222222222222222e1 * t1519 * t549 + 0.46222222222222222222e2 * t1522 + 0.36920828207407407407e-3 * t1516;
1003   t1526 = t1475 + t1525;
1004   t1528 = t8 * t12 * t1526;
1005   t1530 = t776 * t383;
1006   t1532 = t1384 * t259;
1007   t1535 = t260 * t626;
1008   t1539 = t626 * t635 * t258;
1009   t1548 = t231 * t757;
1010   t1552 = t582 * t305;
1011   t1565 = t587 * t627;
1012   t1568 = -0.60000000000000000000e1 * t633 * t1532 + 0.60000000000000000000e1 * t597 * t1535 - 0.96491876992155210402e2 * t633 * t1539 + 0.34450798614814814813e-2 * t5 * t1354 * t129 - 0.16562821945185185185e-2 * t8 * t1250 * t84 - 0.85917975471764868594e0 * t8 * t1548 * t761 + 0.71233333333333333332e-1 * t8 * t1552 * t323 - 0.53424999999999999999e-1 * t8 * t721 * t753 + 0.10685000000000000000e0 * t8 * t231 * t726 * t729 - 0.68493333333333333332e-1 * t742 * t767 + 0.51369999999999999999e-1 * t313 * t1565;
1013   t1569 = t1327 * t636;
1014   t1572 = t752 * t760;
1015   t1576 = t728 * t321;
1016   t1577 = t1576 * t322;
1017   t1586 = 0.1e1 / t118 / t123 * t3 / 0.4e1;
1018   t1589 = t735 * t181;
1019   t1592 = t309 * t155;
1020   t1595 = t5 * t1354;
1021   t1597 = 0.1e1/POW_3_2(t115);
1022   t1598 = t1597 * t3;
1023   t1607 = -0.25319000000000000000e1 * t1586 * t1347 + 0.16879333333333333333e1 * t734 * t1589 - 0.19692555555555555555e1 * t308 * t1592 - 0.93011851851851851854e0 * t1595 + 0.13651666666666666667e0 * t1598 * t1347 - 0.27303333333333333333e0 * t745 * t1589 - 0.31853888888888888890e0 * t316 * t1592 - 0.36514074074074074075e0 * t74 * t1350;
1024   t1608 = t1607 * t322;
1025   t1612 = 0.1e1 / t756 / t304;
1026   t1613 = t117 * t1612;
1027   t1615 = 0.1e1 / t759 / t128;
1028   t1616 = t1576 * t1615;
1029   t1626 = 0.1e1 / t756 / t125;
1030   t1627 = t117 * t1626;
1031   t1628 = t1576 * t760;
1032   t1631 = t1315 * t599;
1033   t1634 = 0.16522625736956710527e1 * t313 * t1569 + 0.48245938496077605201e2 * t758 * t1572 * t321 + 0.60000000000000000000e1 * t758 * t1577 - 0.60000000000000000000e1 * t727 * t323 * t752 + 0.10000000000000000000e1 * t306 * t1608 + 0.51726012919273400301e3 * t1613 * t1616 + 0.19298375398431042081e3 * t1383 * t1385 - 0.10000000000000000000e1 * t239 * t1371 - 0.20690405167709360120e4 * t1395 * t1398 - 0.96491876992155210402e2 * t1627 * t1628 - 0.10274000000000000000e0 * t313 * t1631;
1034   t1635 = t1568 + t1634;
1035   t1636 = t1635 * t174;
1036   t1637 = t260 * t715;
1037   t1638 = t239 * t1637;
1038   t1640 = t1532 * t112;
1039   t1641 = t633 * t1640;
1040   t1643 = t633 * t626;
1041   t1645 = t635 * t112 * t258;
1042   t1646 = t1643 * t1645;
1043   t1648 = t597 * t258;
1044   t1649 = t1648 * t628;
1045   t1651 = t1515 * t146;
1046   t1654 = t158 * t371;
1047   t1655 = t1654 * t26;
1048   t1656 = t845 * t361;
1049   t1657 = t422 * t1656;
1050   t1660 = t796 * t356;
1051   t1661 = t422 * t1660;
1052   t1664 = t796 * t361;
1053   t1665 = t422 * t1664;
1054   t1668 = t789 * t356;
1055   t1669 = t422 * t1668;
1056   t1672 = t789 * t361;
1057   t1673 = t422 * t1672;
1058   t1676 = t163 * t860;
1059   t1677 = t1676 * t26;
1060   t1678 = t356 * t841;
1061   t1679 = t422 * t1678;
1062   t1682 = t336 * t852;
1063   t1685 = t525 * t374;
1064   t1689 = 0.88e2 / 0.9e1 * t41 * t1505;
1065   t1690 = 0.8320e4 / 0.27e2 * t1508;
1066   t1691 = -t1689 + t1690;
1067   t1692 = t170 * t1691;
1068   t1693 = t101 * t1692;
1069   t1697 = t850 * t140;
1070   t1698 = t800 * t852;
1071   t1701 = t222 * t821;
1072   t1704 = t222 * t846;
1073   t1708 = 0.1e1 / t370 / t165;
1074   t1709 = t164 * t1708;
1075   t1710 = t1709 * t25;
1076   t1711 = t841 * t361;
1077   t1712 = t170 * t1711;
1078   t1713 = t101 * t1712;
1079   t1716 = t222 * t863;
1080   t1719 = t222 * t813;
1081   t1722 = t364 * t341;
1082   t1723 = t356 * t10;
1083   t1724 = t809 * t1723;
1084   t1727 = t372 * t341;
1085   t1728 = t361 * t10;
1086   t1729 = t809 * t1728;
1087   t1732 = -t1689 - t1690;
1088   t1733 = t170 * t1732;
1089   t1734 = t101 * t1733;
1090   t1737 = t525 * t366;
1091   t1743 = 0.15992432640000000000e-2 * t1697 * t1698 + 0.22211712000000000000e-1 * t365 * t1701 + 0.44423424000000000000e-1 * t844 * t1704 + 0.27764640e-1 * t1710 * t1713 + 0.88846848000000000000e-1 * t862 * t1716 - 0.22211712000000000000e-1 * t373 * t1719 - 0.12793946112000000000e-4 * t1722 * t1724 + 0.12793946112000000000e-4 * t1727 * t1729 + 0.1388232e-2 * t373 * t1734 - 0.14067417600000000000e0 * t365 * t1737 + 0.22886101333333333333e-1 * t26 * t1448 * t170;
1092   t1755 = t356 * t167;
1093   t1760 = t341 * t25;
1094   t1761 = t1455 * t153;
1095   t1762 = 0.1e1 / t1761;
1096   t1765 = 0.1e1 / t346 / t144;
1097   t1768 = t789 * t359;
1098   t1775 = -0.82943428608000000000e-4 * t1441 * t348 + 0.15210e2 * t840 * t1664 + 0.11701341388800000000e-5 * t1458 * t837 - 0.43065244444444444445e0 * t13 * t1432 * t136 + 0.35506083840000000000e-2 * t1651 + 0.15210e2 * t1755 * t841 - 0.15210e2 * t1654 * t1711 - 0.53491846348800000000e-8 * t1760 * t1762 * t1765 - 0.7605e1 * t1768 * t361 - 0.7605e1 * t793 * t796 - 0.2535e1 * t360 * t1732;
1099   t1778 = t505 * t146;
1100   t1779 = t1778 * t361;
1101   t1782 = t1440 * t347;
1102   t1783 = t1782 * t10;
1103   t1786 = t800 * t789;
1104   t1789 = t800 * t796;
1105   t1792 = t168 * t830;
1106   t1793 = t1457 * t836;
1107   t1794 = t1793 * t9;
1108   t1797 = t840 * t140;
1109   t1798 = t800 * t845;
1110   t1801 = t1498 * t170;
1111   t1804 = t845 * t356;
1112   t1805 = t1804 * t167;
1113   t1806 = t1805 * t25;
1114   t1809 = t1778 * t356;
1115   t1812 = t861 * t140;
1116   t1813 = t800 * t841;
1117   t1816 = 0.2535e1 * t1691 * t160 - 0.38204144640000000000e-2 * t804 * t1779 + 0.38381838336000000000e-4 * t808 * t1783 - 0.26654054400000000000e-3 * t799 * t1786 + 0.26654054400000000000e-3 * t804 * t1789 - 0.18195834470400000000e-6 * t1792 * t1794 - 0.53308108800000000000e-3 * t1797 * t1798 + 0.11462340266666666667e0 * t169 * t1801 - 0.2776464e-2 * t1806 * t171 + 0.38204144640000000000e-2 * t799 * t1809 - 0.10661621760000000000e-2 * t1812 * t1813;
1118   t1818 = -0.52452546560000000000e-2 * t168 * t1651 + 0.24988176e-1 * t1655 * t1657 + 0.12494088e-1 * t851 * t1661 - 0.16658784e-1 * t1126 * t1665 - 0.8329392e-2 * t1103 * t1669 + 0.12494088e-1 * t851 * t1673 - 0.49976352e-1 * t1677 * t1679 - 0.13327027200000000000e0 * t851 * t1682 + 0.14067417600000000000e0 * t373 * t1685 - 0.1388232e-2 * t365 * t1693 + t1743 + t1775 + t1816;
1119   t1819 = t133 * t1818;
1120   t1820 = t1448 * t89;
1121   t1824 = 0.1e1 / t650 / t87;
1122   t1825 = t1824 * t9;
1123   t1830 = t561 * t268;
1124   t1831 = t1830 * t43;
1125   t1836 = t696 * t140;
1126   t1837 = t978 * t268;
1127   t1838 = t1837 * t152;
1128   t1841 = t344 * t89;
1129   t1842 = t1841 * t669;
1130   t1847 = t1414 * t25;
1131   t1848 = t1188 * t89;
1132   t1849 = t1417 * t9;
1133   t1850 = t1848 * t1849;
1134   t1853 = t512 * t140;
1135   t1856 = t94 * t289;
1136   t1857 = t1856 * t25;
1137   t1860 = t687 * t140;
1138   t1863 = t273 * t341;
1139   t1864 = t833 * t651;
1140   t1865 = t1864 * t206;
1141   t1868 = t279 * t341;
1142   t1871 = t290 * t341;
1143   t1878 = t95 * t665;
1144   t1879 = t1878 * t25;
1145   t1883 = 0.1e1 / t106 / t97;
1146   t1884 = t105 * t1883;
1147   t1885 = t1884 * t25;
1148   t1888 = t666 * t140;
1149   t1891 = 0.36759229629629629629e2 * t26 * t1820 - 0.21612316444444444446e1 * t1458 * t1825 + 0.13676544000000000001e2 * t1441 * t711 + 0.20736844800000000001e4 * t700 * t1831 + 0.11816550400000000000e4 * t673 * t1831 - 0.25532074666666666667e4 * t1836 * t1838 + 0.13118080000000000000e4 * t684 * t1842 + 0.65420160000000000001e4 * t688 * t1842 - 0.23638133333333333334e4 * t1847 * t1850 - 0.34981546666666666668e3 * t1853 * t1838 - 0.76238400000000000000e4 * t1857 * t1850 - 0.17445376000000000000e4 * t1860 * t1838 - 0.16791142400000000001e3 * t1863 * t1865 - 0.39034060800000000001e3 * t1868 * t1865 - 0.22242918400000000001e3 * t1871 * t1865 + 0.95745280000000000000e4 * t697 * t1842 + 0.43443200000000000000e4 * t667 * t1842 - 0.90624888888888888889e4 * t1879 * t1850 - 0.36202666666666666666e4 * t1885 * t1850 - 0.11584853333333333334e4 * t1888 * t1838;
1150   t1898 = t505 * t89 * tau[0];
1151   t1901 = t1849 * t1188;
1152   t1902 = t98 * t25;
1153   t1903 = t1902 * t89;
1154   t1906 = t1498 * t89;
1155   t1916 = t1440 * t651 * t10;
1156   t1921 = t99 * t830;
1157   t1923 = t1457 * t1824 * t9;
1158   t1926 = t108 * t830;
1159   t1929 = t1515 * t268;
1160   t1938 = 0.89202944000000000004e3 * t691 * t1831 - 0.92367407407407407407e2 * t1437 + 0.50382222222222222222e3 * t1445 - 0.62977777777777777778e3 * t1453 - 0.58618858666666666667e4 * t280 * t1898 - 0.18219555555555555556e3 * t1901 * t1903 + 0.40617462518518518519e3 * t100 * t1906 + 0.40353905777777777778e3 * t109 * t1906 - 0.25215864888888888889e4 * t274 * t1898 - 0.33402993777777777778e4 * t291 * t1898 + 0.15112028160000000001e3 * t649 * t1916 + 0.15013969920000000000e3 * t656 * t1916 - 0.23880735857777777780e2 * t1921 * t1923 - 0.23725779626666666668e2 * t1926 * t1923 - 0.61956205985185185188e3 * t99 * t1929 - 0.61554187377777777780e3 * t108 * t1929 - 0.92367407407407407407e2 * t1506 + 0.50382222222222222222e3 * t1509 - 0.62977777777777777778e3 * t1522 - 0.56071016296296296298e2 * t1929;
1161   t1939 = t1891 + t1938;
1162   t1940 = t85 * t1939;
1163   t1942 = 0.96491876992155210402e2 * t1391 + 0.20690405167709360120e4 * t1400 - 0.5e1 / 0.72e2 * t1403 + t1406 / 0.8e1 - 0.3e1 / 0.16e2 * t1409 - 0.3e1 / 0.16e2 * t1528 + 0.3e1 * t1530 + t1636 + 0.30000000000000000000e1 * t1638 + 0.60000000000000000000e1 * t1641 + 0.96491876992155210402e2 * t1646 - 0.60000000000000000000e1 * t1649 + t1819 - 0.31090700000000000000e-1 * t1940;
1164   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1165     v3rho3[0] = rho[0] * (t1389 + t1942) - 0.10274000000000000000e0 * t589 + 0.3e1 * t872 + 0.6e1 * t778 + 0.3e1 * t777 - 0.93272100000000000000e-1 * t716 - 0.60000000000000000000e1 * t601 - 0.9e1 / 0.16e2 * t579 - 0.3e1 / 0.8e1 * t503 + 0.31942585179999999999e-2 * t593 + t500 / 0.8e1 + 0.30000000000000000000e1 * t629 + 0.60000000000000000000e1 * t641 + 0.96491876992155210402e2 * t638 - 0.21295056786666666666e-2 * t585;
1166 
1167   t1967 = t8 * t441 * t399;
1168   t1970 = t8 * t176 * t913;
1169   t1972 = t50 * t140;
1170   t1973 = t561 * t564;
1171   t1982 = t32 * tau[0];
1172   t1983 = t1982 * sigma[0];
1173   t1991 = t151 * t429;
1174   t1993 = t879 * t10;
1175   t1997 = tau[0] * t344 * t49;
1176   t1998 = t25 * t195;
1177   t1999 = t1998 * t10;
1178   t2006 = t505 * t195;
1179   t2007 = t2006 * t25;
1180   t2013 = t140 * t561;
1181   t2016 = t341 * t833;
1182   t2019 = t201 * t21;
1183   t2023 = t429 * t32;
1184   t2027 = t344 * t195;
1185   t2035 = -0.13413034666666666668e-6 * t1972 * t1973 * t10 - 0.32746666666666666667e0 * t206 * t187 * t49 * t21 + 0.61127111111111111113e-2 * t202 * t192 * t1983 + 0.12007111111111111111e0 * t50 * t535 - 0.56760888888888888890e-2 * t899 * t571 * sigma[0] - 0.10915555555555555556e-2 * t1991 * t201 * t1993 - 0.13971911111111111112e-4 * t1997 * t1999 + 0.61127111111111111113e-2 * t552 * t904 + 0.27288888888888888889e0 * t512 * t515 + 0.71256746666666666670e-4 * t50 * t2007 + 0.51157333333333333333e-1 * t535 + 0.16911928888888888889e-2 * t525 * t879 + 0.72150220800000000002e-6 * t2013 * t565 - 0.26577906346666666668e-8 * t2016 * t1461 + 0.27288888888888888888e0 * t547 * t2019 - 0.11412320711111111111e-3 * t2007 - 0.10915555555555555556e-2 * t513 * t2023 * t669 - 0.13971911111111111112e-4 * t518 * t2027 * t43 - 0.32746666666666666667e0 * t892 * t187 * t21 * tau[0];
1186   t2037 = t8 * t12 * t2035;
1187   t2040 = t8 * t583 * t917;
1188   t2042 = t587 * t921;
1189   t2043 = t313 * t2042;
1190   t2045 = t84 * t963;
1191   t2047 = t8 * t232 * t2045;
1192   t2049 = t599 * t417;
1193   t2050 = t597 * t2049;
1194   t2052 = t627 * t417;
1195   t2053 = t239 * t2052;
1196   t2055 = t636 * t417;
1197   t2056 = t633 * t2055;
1198   t2058 = t260 * t963;
1199   t2059 = t239 * t2058;
1200   t2061 = t25 * t505;
1201   t2062 = t2061 * t268;
1202   t2068 = t833 * t1824 * t9;
1203   t2093 = 0.19473060977777777779e3 * t99 * t2062 + 0.19346705066666666667e3 * t108 * t2062 + 0.88971673600000000003e1 * t656 * t2068 - 0.52472320000000000001e2 * t946 * t653 + 0.89552759466666666669e1 * t649 * t2068 - 0.52131840000000000000e2 * t960 * t653 + 0.57924266666666666667e3 * t951 * t661 - 0.11005610666666666667e3 * t412 * t678 + 0.43726933333333333333e3 * t930 * t661 + 0.10165120000000000000e4 * t933 * t661 - 0.11077489777777777778e3 * t407 * t678 - 0.10025244444444444444e2 * t388 * t705 - 0.47488000000000000001e1 * t2013 * t711 + 0.81046186666666666669e0 * t2016 * t1825;
1204   t2094 = t696 * sigma[0];
1205   t2099 = t1188 * t268;
1206   t2100 = t2099 * t152;
1207   t2105 = t978 * t651;
1208   t2106 = t2105 * t206;
1209   t2114 = t666 * sigma[0];
1210   t2125 = t687 * sigma[0];
1211   t2130 = -0.79787733333333333333e3 * t2094 * t670 - 0.44726528000000000000e3 * t280 * t675 + 0.43726933333333333333e2 * t684 * t2100 + 0.21806720000000000000e3 * t688 * t2100 + 0.41977856000000000001e2 * t691 * t2106 + 0.17623324444444444446e2 * t2062 + 0.31915093333333333333e3 * t697 * t2100 + 0.97585152000000000002e2 * t700 * t2106 - 0.36202666666666666667e3 * t2114 * t670 - 0.25486677333333333333e3 * t291 * t675 + 0.14481066666666666667e3 * t667 * t2100 + 0.55607296000000000001e2 * t673 * t2106 - 0.10931733333333333333e3 * t513 * t670 - 0.54516800000000000000e3 * t2125 * t670 - 0.19239850666666666667e3 * t274 * t675;
1212   t2131 = t2093 + t2130;
1213   t2132 = t85 * t2131;
1214   t2134 = t776 * t438;
1215   t2135 = t331 * t1004;
1216   t2137 = t1778 * t25;
1217   t2144 = t992 * t789;
1218   t2147 = t992 * t796;
1219   t2150 = t833 * t836;
1220   t2151 = t2150 * t9;
1221   t2156 = t992 * t845;
1222   t2161 = t992 * t841;
1223   t2170 = 0.16486026240000000000e-2 * t168 * t2137 + 0.88846848000000000000e-3 * t373 * t805 - 0.13327027200000000000e-4 * t999 * t810 + 0.33317568e-4 * t365 * t2144 - 0.33317568e-4 * t373 * t2147 + 0.68234379264000000000e-7 * t808 * t2151 - 0.31260928000000000000e-1 * t433 * t818 + 0.66635136e-4 * t844 * t2156 - 0.88846848000000000000e-3 * t365 * t801 + 0.133270272e-3 * t862 * t2161 - 0.65436800000000000000e-2 * t525 * t969 + 0.27251223552000000000e-4 * t2013 * t348 - 0.41372599910400000000e-6 * t2016 * t837;
1224   t2174 = t1455 * t14;
1225   t2175 = 0.1e1 / t2174;
1226   t2176 = t830 * t2175;
1227   t2181 = t840 * sigma[0];
1228   t2186 = t861 * sigma[0];
1229   t2191 = t850 * t25;
1230   t2192 = t992 * t852;
1231   t2195 = t1000 * t1723;
1232   t2198 = t1000 * t1728;
1233   t2203 = t850 * t388;
1234   t2206 = 0.92282666666666666667e-1 * t534 * t136 - 0.10521354240000000000e-2 * t2137 + 0.20059442380800000000e-8 * t2176 * t1765 + 0.2776464e-2 * t985 * t814 - 0.5552928e-2 * t2181 * t847 + 0.29615616000000000000e-1 * t982 * t856 - 0.11105856e-1 * t2186 * t864 - 0.29615616000000000000e-1 * t985 * t867 - 0.199905408e-3 * t2191 * t2192 + 0.31984865280000000000e-5 * t799 * t2195 - 0.31984865280000000000e-5 * t804 * t2198 - 0.2776464e-2 * t982 * t822 + 0.16658784e-1 * t2203 * t853;
1235   t2207 = t2170 + t2206;
1236   t2208 = t133 * t2207;
1237   t2209 = t1967 / 0.24e2 - t1970 / 0.8e1 - 0.3e1 / 0.16e2 * t2037 - 0.70983522622222222221e-3 * t2040 - 0.34246666666666666666e-1 * t2043 + 0.10647528393333333333e-2 * t2047 - 0.20000000000000000000e1 * t2050 + 0.10000000000000000000e1 * t2053 + 0.32163958997385070134e2 * t2056 + 0.20000000000000000000e1 * t2059 - 0.31090700000000000000e-1 * t2132 + t2134 + 0.2e1 * t2135 + t2208;
1238   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1239     v3rho2sigma[0] = -t876 / 0.8e1 - 0.3e1 / 0.8e1 * t915 + 0.10647528393333333333e-2 * t919 + 0.20000000000000000000e1 * t922 - 0.62181400000000000000e-1 * t964 + 0.2e1 * t966 + 0.2e1 * t1005 + rho[0] * t2209;
1240 
1241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1242     v3rho2lapl[0] = 0.0e0;
1243 
1244   t2219 = t8 * t441 * t452;
1245   t2222 = t8 * t176 * t1042;
1246   t2224 = t222 * t21;
1247   t2227 = t514 * tau[0];
1248   t2230 = t1058 * t21;
1249   t2237 = t1058 * t98;
1250   t2238 = t2237 * sigma[0];
1251   t2239 = t21 * t151;
1252   t2240 = t2239 * t10;
1253   t2243 = t429 * t201;
1254   t2245 = t1982 * t10;
1255   t2251 = t512 * t207;
1256   t2255 = t459 * t98;
1257   t2256 = t2255 * t151;
1258   t2258 = t217 * t49;
1259   t2260 = t101 * t1013;
1260   t2263 = t1414 * t459 * t151;
1261   t2265 = t192 * t49;
1262   t2268 = t202 * t217;
1263   t2270 = t142 * t201;
1264   t2273 = t344 * t49;
1265   t2279 = -0.56760888888888888891e0 * t212 * t2224 + 0.18556444444444444444e1 * t513 * t2227 - 0.81866666666666666665e0 * t1415 * t2230 * t669 - 0.34929777777777777778e-2 * t684 * t2023 * t43 - 0.81866666666666666665e0 * t2238 * t2240 - 0.34929777777777777779e-2 * t2243 * t25 * t2245 - 0.11177528888888888890e-4 * t1426 * t2027 * t10 + 0.16640000000000000000e2 * t2251 - 0.56760888888888888891e0 * t222 * t209 - 0.27733333333333333333e2 * t2256 - 0.18488888888888888889e1 * t2258 + 0.16640000000000000000e2 * t2260 - 0.27733333333333333333e2 * t2263 + 0.64620088888888888891e-2 * t2265 * t1029 - 0.18488888888888888889e1 * t2268 + 0.18556444444444444445e1 * t2270 * t1025 - 0.11177528888888888890e-4 * t2273 * t1467 + 0.64620088888888888891e-2 * t202 * t882 * t32;
1266   t2281 = t8 * t12 * t2279;
1267   t2284 = t8 * t583 * t1046;
1268   t2286 = t587 * t1050;
1269   t2287 = t313 * t2286;
1270   t2289 = t84 * t1083;
1271   t2291 = t8 * t232 * t2289;
1272   t2293 = t599 * t468;
1273   t2294 = t597 * t2293;
1274   t2296 = t627 * t468;
1275   t2297 = t239 * t2296;
1276   t2299 = t636 * t468;
1277   t2300 = t633 * t2299;
1278   t2302 = t260 * t1083;
1279   t2303 = t239 * t2302;
1280   t2306 = t674 * t10;
1281   t2309 = t2105 * t9;
1282   t2317 = 0.1e1 / t11 / t559;
1283   t2318 = t152 * t2317;
1284   t2325 = t2317 * t89;
1285   t2326 = t2325 * t152;
1286   t2329 = t2099 * t206;
1287   t2340 = -0.22672000000000000000e3 * t2251 - 0.43100108800000000002e3 * t700 * t2306 + 0.78068121600000000006e2 * t1868 * t2309 - 0.24559889066666666667e3 * t673 * t2306 + 0.44485836800000000001e2 * t1871 * t2309 + 0.10931733333333333333e3 * t2318 * t1903 - 0.18540219733333333333e3 * t691 * t2306 + 0.33582284800000000001e2 * t1863 * t2309 + 0.21721600000000000000e4 * t1885 * t2326 + 0.46339413333333333334e3 * t1888 * t2329 + 0.14182880000000000000e4 * t1847 * t2326 + 0.13992618666666666667e3 * t1853 * t2329 + 0.45743040000000000000e4 * t1857 * t2326 + 0.69781504000000000002e3 * t1860 * t2329;
1288   t2345 = t668 * t43;
1289   t2356 = t882 * t89;
1290   t2366 = 0.54374933333333333334e4 * t1879 * t2326 + 0.10212829866666666667e4 * t1836 * t2329 - 0.18101333333333333333e4 * t667 * t2345 - 0.54658666666666666667e3 * t684 * t2345 - 0.27258400000000000000e4 * t688 * t2345 - 0.39893866666666666667e4 * t697 * t2345 + 0.37786666666666666667e3 * t2256 + 0.25191111111111111111e2 * t2258 + 0.72984576e3 * t290 * t2356 + 0.55095936e3 * t273 * t2356 + 0.128080512e4 * t279 * t2356 - 0.22672000000000000000e3 * t2260 + 0.37786666666666666667e3 * t2263 + 0.25191111111111111111e2 * t2268;
1291   t2367 = t2340 + t2366;
1292   t2368 = t85 * t2367;
1293   t2370 = t776 * t489;
1294   t2371 = t331 * t1140;
1295   t2373 = t1778 * t475;
1296   t2376 = t800 * t1089;
1297   t2379 = t1778 * t478;
1298   t2382 = t800 * t1100;
1299   t2385 = t1089 * t359;
1300   t2395 = 0.8e1 / 0.3e1 * t41 * t217;
1301   t2396 = 0.1040e4 / 0.9e1 * t207;
1302   t2397 = t2395 + t2396;
1303   t2400 = t475 * t167;
1304   t2403 = t1104 * t361;
1305   t2404 = t422 * t2403;
1306   t2407 = 0.12734714880000000000e-2 * t799 * t2373 - 0.17769369600000000000e-3 * t799 * t2376 - 0.12734714880000000000e-2 * t804 * t2379 + 0.17769369600000000000e-3 * t804 * t2382 - 0.5070e1 * t2385 * t361 - 0.2535e1 * t1092 * t796 - 0.2535e1 * t1768 * t478 - 0.5070e1 * t793 * t1100 - 0.2535e1 * t360 * t2397 + 0.5070e1 * t2400 * t841 + 0.16658784e-1 * t1655 * t2404;
1307   t2408 = t1122 * t361;
1308   t2409 = t422 * t2408;
1309   t2412 = t222 * t1136;
1310   t2415 = t478 * t10;
1311   t2416 = t809 * t2415;
1312   t2419 = t170 * t2397;
1313   t2420 = t101 * t2419;
1314   t2423 = t525 * t485;
1315   t2426 = t845 * t167;
1316   t2427 = t2426 * t25;
1317   t2430 = t525 * t481;
1318   t2433 = t800 * t1104;
1319   t2436 = t800 * t1108;
1320   t2439 = t222 * t1118;
1321   t2442 = t475 * t10;
1322   t2443 = t809 * t2442;
1323   t2446 = -0.33317568e-1 * t1677 * t2409 - 0.14807808000000000000e-1 * t373 * t2412 + 0.42646487040000000000e-5 * t1727 * t2416 + 0.1388232e-2 * t373 * t2420 + 0.46891392000000000000e-1 * t373 * t2423 - 0.2776464e-2 * t2427 * t482 - 0.46891392000000000000e-1 * t365 * t2430 - 0.35538739200000000000e-3 * t1797 * t2433 + 0.53308108800000000000e-3 * t1697 * t2436 + 0.14807808000000000000e-1 * t365 * t2439 - 0.42646487040000000000e-5 * t1722 * t2443;
1324   t2448 = t2395 - t2396;
1325   t2449 = t170 * t2448;
1326   t2450 = t101 * t2449;
1327   t2453 = t800 * t1122;
1328   t2456 = t800 * t1097;
1329   t2459 = t478 * t841;
1330   t2466 = t1100 * t361;
1331   t2469 = t478 * t796;
1332   t2472 = t1089 * t356;
1333   t2473 = t422 * t2472;
1334   t2476 = t475 * t789;
1335   t2477 = t422 * t2476;
1336   t2480 = t1089 * t361;
1337   t2481 = t422 * t2480;
1338   t2484 = -0.1388232e-2 * t365 * t2450 + 0.53308108800000000000e-3 * t1697 * t2453 - 0.71077478400000000000e-3 * t1812 * t2456 - 0.15210e2 * t1654 * t2459 + 0.2535e1 * t2448 * t160 + 0.10140e2 * t1755 * t1097 + 0.10140e2 * t840 * t2466 + 0.5070e1 * t840 * t2469 - 0.5552928e-2 * t1103 * t2473 - 0.2776464e-2 * t1103 * t2477 + 0.8329392e-2 * t851 * t2481;
1339   t2485 = t475 * t796;
1340   t2486 = t422 * t2485;
1341   t2489 = t336 * t1097;
1342   t2492 = t336 * t1104;
1343   t2495 = t475 * t841;
1344   t2496 = t422 * t2495;
1345   t2499 = t336 * t1108;
1346   t2502 = t478 * t845;
1347   t2503 = t422 * t2502;
1348   t2506 = t336 * t1122;
1349   t2509 = t1709 * t26;
1350   t2510 = t422 * t2459;
1351   t2513 = t1100 * t356;
1352   t2514 = t422 * t2513;
1353   t2517 = t478 * t789;
1354   t2518 = t422 * t2517;
1355   t2521 = t422 * t2466;
1356   t2524 = t422 * t2469;
1357   t2527 = 0.4164696e-2 * t851 * t2486 + 0.59231232000000000000e-1 * t1126 * t2489 + 0.29615616000000000000e-1 * t1103 * t2492 - 0.16658784e-1 * t1677 * t2496 - 0.44423424000000000000e-1 * t851 * t2499 + 0.8329392e-2 * t1655 * t2503 - 0.44423424000000000000e-1 * t851 * t2506 + 0.27764640e-1 * t2509 * t2510 + 0.8329392e-2 * t851 * t2514 + 0.4164696e-2 * t851 * t2518 - 0.11105856e-1 * t1126 * t2521 - 0.5552928e-2 * t1126 * t2524;
1358   t2529 = t2407 + t2446 + t2484 + t2527;
1359   t2530 = t133 * t2529;
1360   t2531 = t2219 / 0.24e2 - t2222 / 0.8e1 - 0.3e1 / 0.16e2 * t2281 - 0.70983522622222222221e-3 * t2284 - 0.34246666666666666666e-1 * t2287 + 0.10647528393333333333e-2 * t2291 - 0.20000000000000000000e1 * t2294 + 0.10000000000000000000e1 * t2297 + 0.32163958997385070134e2 * t2300 + 0.20000000000000000000e1 * t2303 - 0.31090700000000000000e-1 * t2368 + t2370 + 0.2e1 * t2371 + t2530;
1361   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1362     v3rho2tau[0] = -t1009 / 0.8e1 - 0.3e1 / 0.8e1 * t1044 + 0.10647528393333333333e-2 * t1048 + 0.20000000000000000000e1 * t1051 - 0.62181400000000000000e-1 * t1084 + 0.2e1 * t1086 + 0.2e1 * t1141 + rho[0] * t2531;
1363 
1364   t2534 = t8 * t176 * t1155;
1365   t2537 = t192 * t195;
1366   t2538 = t2537 * sigma[0];
1367   t2540 = t25 * t344;
1368   t2543 = t140 * t978;
1369   t2546 = t49 * t32;
1370   t2559 = t429 * t195;
1371   t2563 = t344 * t564;
1372   t2567 = -0.20241066666666666667e-3 * t223 + 0.27407701333333333333e-4 * t2538 - 0.22773760000000000000e-6 * t2540 * t565 + 0.99667148800000000003e-9 * t2543 * t1461 - 0.65493333333333333333e-3 * t903 * t2546 - 0.65493333333333333333e-3 * t202 * t908 + 0.10478933333333333333e-2 * t50 * t223 - 0.20957866666666666667e-4 * t50 * t2538 + 0.26197333333333333333e-5 * t43 * t429 * t208 * t195 + 0.26197333333333333333e-5 * t212 * t2559 * t43 + 0.50298880000000000002e-7 * t221 * t2563 * t10;
1373   t2569 = t8 * t12 * t2567;
1374   t2571 = t84 * t1178;
1375   t2573 = t8 * t232 * t2571;
1376   t2575 = t260 * t1178;
1377   t2576 = t239 * t2575;
1378   t2582 = t192 * t268;
1379   t2583 = t2582 * sigma[0];
1380   t2601 = t1188 * t651;
1381   t2602 = t2601 * t206;
1382   t2616 = t978 * t1824 * t9;
1383   t2625 = 0.34754560000000000000e2 * t951 * t941 - 0.10426368000000000000e2 * t291 * t2602 + 0.26236160e2 * t930 * t941 + 0.60990720000000000000e2 * t933 * t941 - 0.78708480e1 * t274 * t2602 - 0.18297216000000000000e2 * t280 * t2602 + 0.16791142400000000000e2 * t100 * t948 - 0.33582284800000000001e1 * t946 * t2616 + 0.17377280000000000000e2 * t108 * t283 + 0.16682188800000000000e2 * t109 * t948 - 0.33364377600000000001e1 * t960 * t2616;
1384   t2626 = -0.3279520e2 * t273 * t276 - 0.76238400000000000000e2 * t279 * t276 - 0.48974165333333333334e2 * t99 * t2583 - 0.43443200000000000000e2 * t290 * t276 - 0.48656384000000000000e2 * t108 * t2583 - 0.44322133333333333334e1 * t2583 + 0.15829333333333333333e1 * t283 + 0.15196160000000000000e1 * t2540 * t711 - 0.30392320000000000001e0 * t2543 * t1825 + 0.17490773333333333333e2 * t99 * t283 + t2625;
1385   t2627 = t85 * t2626;
1386   t2629 = t331 * t1200;
1387   t2631 = t800 * sigma[0];
1388   t2637 = t1455 * rho[0];
1389   t2638 = 0.1e1 / t2637;
1390   t2639 = t341 * t2638;
1391   t2642 = t364 * t9;
1392   t2646 = t372 * t9;
1393   t2660 = t1196 * t1723;
1394   t2663 = t1196 * t1728;
1395   t2666 = t978 * t836;
1396   t2667 = t2666 * t9;
1397   t2670 = 0.12080640000000000000e-2 * t378 + 0.22494873600000000000e-3 * t2631 - 0.77052487680000000000e-5 * t2540 * t348 + 0.13790866636800000000e-6 * t2543 * t837 - 0.75222908928000000000e-9 * t2639 * t1765 - 0.2776464e-2 * t2642 * t422 * t356 + 0.2776464e-2 * t2646 * t422 * t361 + 0.49359360000000000000e-2 * t168 * t378 - 0.41461862400000000000e-3 * t168 * t2631 + 0.133270272e-3 * t982 * t993 - 0.133270272e-3 * t985 * t996 + 0.42646487040000000000e-5 * t169 * t1001 - 0.599716224e-6 * t365 * t2660 + 0.599716224e-6 * t373 * t2663 - 0.25587892224000000000e-7 * t999 * t2667;
1398   t2671 = t133 * t2670;
1399   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1400     v3rhosigma2[0] = -t1158 - t1180 + t1201 + rho[0] * (-t2534 / 0.16e2 - 0.3e1 / 0.16e2 * t2569 + 0.53237641966666666666e-3 * t2573 + 0.10000000000000000000e1 * t2576 - 0.31090700000000000000e-1 * t2627 + t2629 + t2671);
1401 
1402   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1403     v3rhosigmalapl[0] = 0.0e0;
1404 
1405   t2675 = t8 * t176 * t1215;
1406   t2683 = t1058 * t201;
1407   t2687 = t429 * t49;
1408   t2697 = t1058 * t32;
1409   t2704 = 0.10642666666666666667e0 * t101 * t1203 - 0.16373333333333333333e0 * t1023 * t213 - 0.18993066666666666667e-2 * t1028 * t879 + 0.65493333333333333334e-3 * t2683 * sigma[0] * t2245 + 0.41915733333333333335e-5 * t2687 * t1999 - 0.16373333333333333333e0 * t512 * t1033 + 0.10642666666666666667e0 * t202 * t1036 - 0.18993066666666666667e-2 * t202 * t907 * sigma[0] + 0.65493333333333333333e-3 * t513 * t2697 * t43 + 0.41915733333333333335e-5 * t518 * t2559 * t10;
1410   t2706 = t8 * t12 * t2704;
1411   t2708 = t84 * t1234;
1412   t2710 = t8 * t232 * t2708;
1413   t2712 = t260 * t1234;
1414   t2713 = t239 * t2712;
1415   t2719 = t1145 * t89;
1416   t2724 = t2317 * t268;
1417   t2725 = t2724 * t206;
1418   t2730 = t2601 * t9;
1419   t2753 = 0.65590400000000000000e2 * t513 * t1060 + 0.32710080e3 * t2125 * t1060 - 0.13773984e3 * t273 * t2719 + 0.59031360000000000001e2 * t274 * t1068 - 0.26236160000000000000e2 * t684 * t2725 - 0.130840320e3 * t688 * t2725 - 0.12593356800000000000e2 * t691 * t2730 + 0.47872640000000000000e3 * t2094 * t1060 - 0.32020128e3 * t279 * t2719 + 0.13722912000000000000e3 * t280 * t1068 - 0.19149056000000000000e3 * t697 * t2725 - 0.29275545600000000001e2 * t700 * t2730 + 0.21721600000000000000e3 * t2114 * t1060 - 0.18246144e3 * t290 * t2719 + 0.78197760000000000001e2 * t291 * t1068 - 0.86886400000000000000e2 * t667 * t2725 - 0.16682188800000000001e2 * t673 * t2730;
1420   t2754 = t85 * t2753;
1421   t2756 = t331 * t1247;
1422   t2757 = t840 * t388;
1423   t2768 = t992 * t1104;
1424   t2771 = t992 * t1108;
1425   t2774 = t1000 * t2442;
1426   t2777 = t992 * t1089;
1427   t2782 = t861 * t388;
1428   t2791 = t992 * t1122;
1429   t2794 = t992 * t1097;
1430   t2797 = t1000 * t2415;
1431   t2800 = t992 * t1100;
1432   t2803 = -0.5552928e-2 * t2757 * t1105 + 0.8329392e-2 * t2203 * t1109 + 0.14807808000000000000e-1 * t982 * t1112 - 0.44423424000000000000e-3 * t365 * t1115 - 0.2776464e-2 * t982 * t1119 + 0.66635136e-4 * t844 * t2768 - 0.99952704e-4 * t2191 * t2771 + 0.15992432640000000000e-5 * t799 * t2774 + 0.33317568e-4 * t365 * t2777 + 0.8329392e-2 * t2203 * t1123 - 0.11105856e-1 * t2782 * t1127 - 0.14807808000000000000e-1 * t985 * t1130 + 0.44423424000000000000e-3 * t373 * t1133 + 0.2776464e-2 * t985 * t1137 - 0.99952704e-4 * t2191 * t2791 + 0.133270272e-3 * t862 * t2794 - 0.15992432640000000000e-5 * t804 * t2797 - 0.33317568e-4 * t373 * t2800;
1433   t2804 = t133 * t2803;
1434   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1435     v3rhosigmatau[0] = -t1218 - t1236 + t1248 + rho[0] * (-t2675 / 0.16e2 - 0.3e1 / 0.16e2 * t2706 + 0.53237641966666666666e-3 * t2710 + 0.10000000000000000000e1 * t2713 - 0.31090700000000000000e-1 * t2754 + t2756 + t2804);
1436 
1437   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1438     v3rholapl2[0] = 0.0e0;
1439 
1440   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1441     v3rholapltau[0] = 0.0e0;
1442 
1443   t2808 = t8 * t176 * t1263;
1444   t2810 = t446 * t201;
1445   t2812 = t1255 * t98;
1446   t2813 = t2812 * tau[0];
1447   t2816 = t1414 * t1255 * tau[0];
1448   t2818 = t512 * t446;
1449   t2822 = t1270 * t98;
1450   t2824 = t213 * t10;
1451   t2827 = t1029 * t10;
1452   t2830 = t1270 * t21;
1453   t2840 = -0.55466666666666666667e1 * t2810 + 0.16640000000000000000e2 * t2813 + 0.16640e2 * t2816 - 0.55466666666666666667e1 * t2818 - 0.589440e0 * t1023 * t1024 + 0.49120000000000000000e0 * t2822 * sigma[0] * t2824 + 0.10478933333333333334e-2 * t2683 * t2827 + 0.491200e0 * t1415 * t2830 * t43 - 0.589440e0 * t512 * t1211 * t21 + 0.10478933333333333334e-2 * t684 * t2697 * t10;
1454   t2842 = t8 * t12 * t2840;
1455   t2844 = t84 * t1281;
1456   t2846 = t8 * t232 * t2844;
1457   t2848 = t260 * t1281;
1458   t2849 = t239 * t2848;
1459   t2856 = 0.1e1 / t11 / t342;
1460   t2857 = t206 * t2856;
1461   t2860 = t2856 * t89;
1462   t2861 = t2860 * t206;
1463   t2864 = t1059 * t10;
1464   t2867 = t2724 * t9;
1465   t2888 = 0.75573333333333333333e2 * t2810 - 0.22672000000000000000e3 * t2813 - 0.226720e3 * t2816 + 0.75573333333333333333e2 * t2818 - 0.65590400000000000000e2 * t2857 * t1903 - 0.85097280000000000000e3 * t1847 * t2861 + 0.17053504000000000000e3 * t684 * t2864 - 0.41977856000000000001e2 * t1853 * t2867 - 0.27445824000000000000e4 * t1857 * t2861 + 0.85046208000000000000e3 * t688 * t2864 - 0.20934451200000000001e3 * t1860 * t2867 - 0.32624960000000000000e4 * t1879 * t2861 + 0.12446886400000000000e4 * t697 * t2864 - 0.30638489600000000001e3 * t1836 * t2867 - 0.130329600e4 * t1885 * t2861 + 0.56476160000000000000e3 * t667 * t2864 - 0.13901824000000000000e3 * t1888 * t2867;
1466   t2889 = t85 * t2888;
1467   t2891 = t331 * t1312;
1468   t2900 = t1298 * t356;
1469   t2901 = t422 * t2900;
1470   t2904 = t1298 * t361;
1471   t2905 = t422 * t2904;
1472   t2908 = t10 * t1058;
1473   t2909 = t2908 * t170;
1474   t2914 = t800 * t1293;
1475   t2917 = t9 * t2317;
1476   t2918 = t2917 * t146;
1477   t2921 = t800 * t1288;
1478   t2926 = t1250 * t361;
1479   t2929 = t359 * t361;
1480   t2934 = t1288 * t361;
1481   t2937 = t478 * t1100;
1482   t2940 = -0.5070e1 * t2385 * t478 - 0.5070e1 * t1092 * t1100 + 0.5070e1 * t1755 * t1288 + 0.67600000000000000000e2 * t446 * t160 + 0.16658784e-1 * t1655 * t2901 - 0.33317568e-1 * t1677 * t2905 - 0.96250752000000000000e-1 * t365 * t2909 - 0.96250752000000000000e-1 * t373 * t2909 - 0.17769369600000000000e-3 * t1797 * t2914 + 0.71077478400000000000e-3 * t799 * t2918 - 0.35538739200000000000e-3 * t1812 * t2921 + 0.71077478400000000000e-3 * t804 * t2918 + 0.40560e2 * t840 * t2926 + 0.20280e2 * t1250 * t2929 + 0.10140e2 * t2400 * t1097 - 0.15210e2 * t1654 * t2934 + 0.10140e2 * t840 * t2937;
1483   t2943 = t1293 * t361;
1484   t2944 = t422 * t2943;
1485   t2947 = t475 * t1089;
1486   t2948 = t422 * t2947;
1487   t2951 = t1089 * t478;
1488   t2952 = t422 * t2951;
1489   t2955 = t475 * t1100;
1490   t2956 = t422 * t2955;
1491   t2959 = t1288 * t356;
1492   t2960 = t422 * t2959;
1493   t2963 = t422 * t2934;
1494   t2966 = t422 * t2937;
1495   t2969 = t336 * t1298;
1496   t2974 = t222 * t1294;
1497   t2977 = t222 * t1306;
1498   t2980 = t1755 * t25;
1499   t2983 = t800 * t1298;
1500   t2986 = t1302 * t366;
1501   t2989 = t1302 * t374;
1502   t2996 = -0.20280e2 * t793 * t1250 + 0.8329392e-2 * t1655 * t2944 - 0.5552928e-2 * t1103 * t2948 + 0.8329392e-2 * t851 * t2952 + 0.8329392e-2 * t851 * t2956 - 0.16658784e-1 * t1677 * t2960 + 0.27764640e-1 * t2509 * t2963 - 0.11105856e-1 * t1126 * t2966 - 0.44423424000000000000e-1 * t851 * t2969 + 0.67600000000000000000e2 * t360 * t446 + 0.14807808000000000000e-1 * t844 * t2974 + 0.29615616000000000000e-1 * t862 * t2977 - 0.2776464e-2 * t2980 * t1295 + 0.53308108800000000000e-3 * t1697 * t2983 + 0.22211712e-1 * t844 * t2986 - 0.33317568e-1 * t2191 * t2989 + 0.33317568e-1 * t2191 * t2986 - 0.44423424e-1 * t862 * t2989;
1503   t2997 = t2940 + t2996;
1504   t2998 = t133 * t2997;
1505   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1506     v3rhotau2[0] = -t1266 - t1283 + t1313 + rho[0] * (-t2808 / 0.16e2 - 0.3e1 / 0.16e2 * t2842 + 0.53237641966666666666e-3 * t2846 + 0.10000000000000000000e1 * t2849 - 0.31090700000000000000e-1 * t2889 + t2891 + t2998);
1507 
1508   t3001 = t142 * t195;
1509   t3003 = sigma[0] * t429;
1510   t3006 = t25 * t1188;
1511   t3012 = t429 * t564 * t10;
1512   t3015 = -0.3830784e-5 * t3001 + 0.62042112e-7 * t3003 * t565 - 0.373751808e-9 * t3006 * t1461 + 0.4715520e-5 * t50 * t3001 - 0.18862080e-7 * t52 * t3012;
1513   t3018 = 0.3e1 / 0.16e2 * t8 * t12 * t3015;
1514   t3019 = t142 * t268;
1515   t3030 = t1188 * t1824 * t9;
1516   t3039 = 0.712320e0 * t3019 - 0.4273920e0 * t3003 * t711 + 0.11397120e0 * t3006 * t1825 + 0.7870848e1 * t99 * t3019 - 0.47225088e1 * t407 * t1169 + 0.125933568e1 * t100 * t3030 + 0.7819776e1 * t108 * t3019 - 0.46918656e1 * t412 * t1169 + 0.125116416e1 * t109 * t3030;
1517   t3041 = 0.31090700000000000000e-1 * t85 * t3039;
1518   t3047 = 0.1e1 / t1455;
1519   t3048 = t140 * t3047;
1520   t3055 = t1188 * t836;
1521   t3056 = t3055 * t9;
1522   t3059 = -0.24494400e-4 * t992 + 0.1714110336e-5 * t3003 * t348 - 0.42312886272e-7 * t3006 * t837 + 0.282085908480e-9 * t3048 * t1765 + 0.66635136e-4 * t168 * t992 - 0.1199432448e-5 * t433 * t1197 + 0.9595459584e-8 * t169 * t3056;
1523   t3060 = t133 * t3059;
1524   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1525     v3sigma3[0] = rho[0] * (-t3018 - t3041 + t3060);
1526 
1527   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1528     v3sigma2lapl[0] = 0.0e0;
1529 
1530   t3064 = t1058 * t49;
1531   t3065 = sigma[0] * t195;
1532   t3066 = t3065 * t10;
1533   t3073 = t1058 * t195 * t10;
1534   t3076 = 0.392960e-3 * t1206 * t32 - 0.1571840e-5 * t3064 * t3066 + 0.392960e-3 * t202 * t459 * t32 - 0.1571840e-5 * t212 * t3073;
1535   t3079 = 0.3e1 / 0.16e2 * t8 * t12 * t3076;
1536   t3080 = t459 * t89;
1537   t3086 = t2317 * t651 * t9;
1538   t3101 = 0.1967712e2 * t273 * t3080 - 0.15741696e2 * t930 * t1223 + 0.47225088e1 * t274 * t3086 + 0.4574304e2 * t279 * t3080 - 0.36594432e2 * t933 * t1223 + 0.109783296e2 * t280 * t3086 + 0.2606592e2 * t290 * t3080 - 0.20852736e2 * t951 * t1223 + 0.62558208e1 * t291 * t3086;
1539   t3103 = 0.31090700000000000000e-1 * t85 * t3101;
1540   t3109 = t1196 * t2442;
1541   t3117 = t1196 * t2415;
1542   t3120 = -0.2776464e-2 * t2642 * t422 * t475 + 0.133270272e-3 * t982 * t1239 - 0.599716224e-6 * t365 * t3109 + 0.2776464e-2 * t2646 * t422 * t478 - 0.133270272e-3 * t985 * t1244 + 0.599716224e-6 * t373 * t3117;
1543   t3121 = t133 * t3120;
1544   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1545     v3sigma2tau[0] = rho[0] * (-t3079 - t3103 + t3121);
1546 
1547   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1548     v3sigmalapl2[0] = 0.0e0;
1549 
1550   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1551     v3sigmalapltau[0] = 0.0e0;
1552 
1553   t3125 = t1270 * t201;
1554   t3132 = t1270 * t32 * t10;
1555   t3135 = 0.98240e-1 * t1256 * t21 - 0.392960e-3 * t3125 * t1993 + 0.98240e-1 * t512 * t1255 * t21 - 0.392960e-3 * t513 * t3132;
1556   t3138 = 0.3e1 / 0.16e2 * t8 * t12 * t3135;
1557   t3142 = t2856 * t268 * t9;
1558   t3157 = -0.3935424e2 * t513 * t1272 + 0.15741696e2 * t684 * t3142 - 0.19626048e3 * t2125 * t1272 + 0.78504192e2 * t688 * t3142 - 0.28723584e3 * t2094 * t1272 + 0.114894336e3 * t697 * t3142 - 0.13032960e3 * t2114 * t1272 + 0.52131840e2 * t667 * t3142;
1559   t3159 = 0.31090700000000000000e-1 * t85 * t3157;
1560   t3162 = t992 * t1293;
1561   t3167 = t992 * t1298;
1562   t3172 = t9 * t2856;
1563   t3173 = t3172 * t146;
1564   t3178 = t992 * t1288;
1565   t3185 = -0.5552928e-2 * t2181 * t1295 + 0.66635136e-4 * t844 * t3162 + 0.16658784e-1 * t2203 * t1299 - 0.199905408e-3 * t2191 * t3167 + 0.22211712e-1 * t982 * t1303 - 0.266540544e-3 * t365 * t3173 - 0.11105856e-1 * t2186 * t1307 + 0.133270272e-3 * t862 * t3178 + 0.22211712e-1 * t985 * t1303 - 0.266540544e-3 * t373 * t3173;
1566   t3186 = t133 * t3185;
1567   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1568     v3sigmatau2[0] = rho[0] * (-t3138 - t3159 + t3186);
1569 
1570   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1571     v3lapl3[0] = 0.0e0;
1572 
1573   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1574     v3lapl2tau[0] = 0.0e0;
1575 
1576   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1577     v3lapltau2[0] = 0.0e0;
1578 
1579   t3188 = 0.1e1 / t28;
1580   t3189 = t3188 * t98;
1581   t3191 = t1414 * t3188;
1582   t3194 = 0.1e1 / t15 / t458;
1583   t3195 = t3194 * t98;
1584   t3196 = t1024 * t10;
1585   t3200 = t3194 * t21 * t10;
1586   t3203 = -0.9984e1 * t3189 - 0.9984e1 * t3191 - 0.294720e0 * t3195 * t3196 - 0.294720e0 * t1415 * t3200;
1587   t3206 = 0.3e1 / 0.16e2 * t8 * t12 * t3203;
1588   t3210 = 0.1e1 / t11 / t427;
1589   t3211 = t9 * t3210;
1590   t3215 = t3210 * t89 * t9;
1591   t3224 = 0.136032e3 * t3189 + 0.136032e3 * t3191 + 0.3935424e2 * t3211 * t1903 + 0.51058368e3 * t1847 * t3215 + 0.164674944e4 * t1857 * t3215 + 0.195749760e4 * t1879 * t3215 + 0.78197760e3 * t1885 * t3215;
1592   t3226 = 0.31090700000000000000e-1 * t85 * t3224;
1593   t3227 = t359 * t478;
1594   t3234 = t1288 * t478;
1595   t3237 = t478 * t9;
1596   t3238 = t3237 * t155;
1597   t3241 = t1293 * t475;
1598   t3242 = t3241 * t167;
1599   t3243 = t3242 * t25;
1600   t3246 = t1293 * t478;
1601   t3247 = t422 * t3246;
1602   t3250 = t1302 * t481;
1603   t3253 = t475 * t1288;
1604   t3254 = t422 * t3253;
1605   t3257 = t1302 * t485;
1606   t3262 = t170 * t3234;
1607   t3263 = t101 * t3262;
1608   t3268 = 0.60840e2 * t1250 * t3227 + 0.15210e2 * t2400 * t1288 - 0.60840e2 * t1092 * t1250 - 0.15210e2 * t1654 * t3234 + 0.121680e3 * t840 * t3238 - 0.2776464e-2 * t3243 * t171 + 0.24988176e-1 * t1655 * t3247 + 0.66635136e-1 * t844 * t3250 - 0.49976352e-1 * t1677 * t3254 - 0.99952704e-1 * t2191 * t3257 + 0.99952704e-1 * t2191 * t3250 + 0.27764640e-1 * t1710 * t3263 - 0.133270272e0 * t862 * t3257;
1609   t3269 = t133 * t3268;
1610   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1611     v3tau3[0] = rho[0] * (-t3206 - t3226 + t3269);
1612 
1613 #ifndef XC_DONT_COMPILE_LXC
1614 
1615   if(order < 4) return;
1616 
1617 
1618   t3274 = t7 * t353;
1619   t3291 = t626 * t626;
1620   t3292 = t3291 * t259;
1621   t3295 = t3291 * t635;
1622   t3298 = t598 * t598;
1623   t3299 = t3298 * t259;
1624   t3305 = t728 * t728;
1625   t3309 = -0.57895126195293126241e3 * t1627 * t1572 * t728 - 0.11483599538271604938e-1 * t5 * t3274 * t129 + 0.31035607751564040180e4 * t1613 * t752 * t1615 * t728 + 0.36000000000000000000e2 * t758 * t729 * t752 - 0.80000000000000000000e1 * t727 * t323 * t1607 - 0.36000000000000000000e2 * t633 * t599 * t626 + 0.60000000000000000000e1 * t597 * t3292 - 0.96491876992155210402e2 * t633 * t3295 + 0.24000000000000000000e2 * t1383 * t3299 + 0.55209406483950617283e-2 * t8 * t446 * t84 - 0.24000000000000000000e2 * t1627 * t3305 * t322;
1626   t3310 = t752 * t752;
1627   t3330 = t756 * t756;
1628   t3333 = t759 * t759;
1629   t3340 = t66 / t631 / t595;
1630   t3341 = t3298 * t1397;
1631   t3345 = t3 / rho[0];
1632   t3352 = t5 * t7 * t9;
1633   t3357 = t6 * t533;
1634   t3358 = t3357 * t10;
1635   t3361 = t3274 * t9;
1636   t3366 = pow(t64, -0.25e1);
1637   t3380 = (-0.81706597222222222222e-1 / t67 / t3345 * t3 * t30 * t3352 + 0.75300800000000000001e2 * t1346 * t3188 - 0.13944592592592592593e2 * t606 * t3358 + 0.12201518518518518519e2 * t242 * t3361 + 0.53560370370370370370e1 * t5 * t3361 + 0.28051666666666666666e0 * t3366 * t3 * t30 * t3352 - 0.44882666666666666666e1 * t1361 * t3188 + 0.24934814814814814815e1 * t619 * t3358 + 0.21817962962962962963e1 * t251 * t3361 + 0.16979925925925925926e1 * t74 * t3358) * t259;
1638   t3386 = t3298 * t635;
1639   t3396 = -0.60000000000000000000e1 * t727 * t3310 * t322 + 0.48245938496077605201e2 * t758 * t3310 * t760 - 0.62071215503128080361e4 * t117 / t756 / t725 * t3305 * t1615 - 0.12865583598954028054e3 * t633 * t1370 * t635 * t258 + 0.11579025239058625248e4 * t1383 * t636 * t626 + 0.24955700379505800916e5 * t117 / t3330 * t3305 / t3333 + 0.24828486201251232145e5 * t3340 * t3341 - 0.10000000000000000000e1 * t239 * t3380 + 0.57895126195293126241e3 * t1613 * t3305 * t760 - 0.11579025239058625248e4 * t1395 * t3386 - 0.42740000000000000000e0 * t8 * t1548 * t1577 - 0.36846163202829085480e2 * t8 * t231 * t1612 * t1616;
1640   t3408 = t631 * t631;
1641   t3410 = t66 / t3408;
1642   t3411 = t634 * t634;
1643   t3413 = t3298 / t3411;
1644   t3425 = t735 * t533;
1645   t3428 = t309 * t353;
1646   t3433 = pow(t115, -0.25e1);
1647   t3469 = 0.14246666666666666666e0 * t8 * t1552 * t753 - 0.71233333333333333332e-1 * t8 * t721 * t1608 - 0.22161481481481481481e0 * t8 * t155 * t305 * t323 - 0.19964560303604640732e6 * t3410 * t3413 + 0.10000000000000000000e1 * t306 * (-0.43956597222222222223e-1 / t118 / t3345 * t3 * t30 * t8 + 0.20255200000000000000e2 * t1586 * t3188 - 0.75019259259259259258e1 * t734 * t3425 + 0.65641851851851851850e1 * t308 * t3428 + 0.31003950617283950618e1 * t5 * t3274 + 0.68258333333333333335e-1 * t3433 * t3 * t30 * t8 - 0.10921333333333333333e1 * t1598 * t3188 + 0.12134814814814814815e1 * t745 * t3425 + 0.10617962962962962963e1 * t316 * t3428 + 0.13388493827160493828e1 * t74 * t3357) * t322 - 0.41096000000000000000e0 * t313 * t1315 * t1535 + 0.66090502947826842110e1 * t313 * t1327 * t1539 + 0.21309037037037037036e0 * t1595 * t767 - 0.34367190188705947437e1 * t313 * t757 * t321 * t1572 + 0.42740000000000000000e0 * t313 * t726 * t752 * t323 + 0.41096000000000000000e0 * t313 * t1327 * t1532;
1648   t3472 = t9 * t1382;
1649   t3476 = t9 * t1394;
1650   t3510 = 0.27397333333333333333e0 * t742 * t1631 - 0.13218100589565368422e2 * t313 * t3472 * t1385 + 0.14171548179536397724e3 * t313 * t3476 * t1398 - 0.13698666666666666666e0 * t742 * t1565 - 0.44060335298551228073e1 * t742 * t1569 + 0.68493333333333333332e-1 * t313 * t587 * t1371 + 0.22911460125803964958e1 * t8 * t582 * t757 * t761 + 0.68734380377411894876e1 * t8 * t231 * t1626 * t1628 - 0.28493333333333333333e0 * t8 * t582 * t726 * t729 + 0.80000000000000000000e1 * t597 * t260 * t1370 + 0.64327917994770140268e2 * t758 * t1607 * t760 * t321 - 0.12414243100625616072e5 * t1395 * t626 * t1397 * t598;
1651   t3550 = (t3309 + t3396 + t3469 + t3510) * t174 + 0.5e1 / 0.27e2 * t8 * t217 * t57 - 0.60000000000000000000e1 * t597 * t3292 * t112 + 0.96491876992155210402e2 * t633 * t3295 * t112 - 0.24000000000000000000e2 * t1383 * t3299 * t112 + 0.24000000000000000000e2 * t633 * t1532 * t298 + 0.11579025239058625248e4 * t1395 * t3386 * t112 + 0.60000000000000000000e1 * t239 * t627 * t715 - 0.42590113573333333333e-2 * t8 * t583 * t1334 - 0.55209406483950617283e-2 * t8 * t446 * t233 + 0.66251287780740740739e-2 * t8 * t1250 * t591 + 0.19298375398431042080e3 * t633 * t636 * t715 + 0.40000000000000000000e1 * t239 * t260 * t1939;
1652   t3588 = 0.40000000000000000000e1 * t239 * t1371 * t298 + 0.82761620670837440481e4 * t1395 * t1398 * t298 + 0.19964560303604640732e6 * t3410 * t3413 * t112 + 0.10000000000000000000e1 * t239 * t3380 * t112 + 0.4e1 * t1635 * t383 + 0.6e1 * t776 * t871 + 0.36000000000000000000e2 * t633 * t598 * t628 - 0.11579025239058625248e4 * t1383 * t626 * t637 - t8 * t176 * t1526 / 0.4e1 + 0.12865583598954028054e3 * t633 * t1370 * t1645 - 0.5e1 / 0.18e2 * t8 * t53 * t226 - 0.77193501593724168322e3 * t1383 * t1385 * t298 - 0.12000000000000000000e2 * t597 * t599 * t715;
1653   t3627 = 0.1e1 / t559;
1654   t3628 = t140 * t3627;
1655   t3629 = t3628 * t195;
1656   t3643 = t47 * t289;
1657   t3644 = t3643 * sigma[0];
1658   t3646 = t151 * t151;
1659   t3647 = t3646 * t9;
1660   t3663 = t202 * t341;
1661   t3671 = t341 * t564 * t9;
1662   t3676 = 0.1e1 / t11 / t2637;
1663   t3683 = t107 * sigma[0] * t21;
1664   t3686 = t1849 * t978;
1665   t3687 = t1902 * t32;
1666   t3694 = 0.1e1 / t11 / t191;
1667   t3695 = t9 * t3694;
1668   t3707 = 0.55790617283950617284e2 * t151 * t505 * t549 + 0.42459085432098765433e0 * tau[0] * t1514 * t554 + 0.31831118380246913583e-2 * t50 * t3629 - 0.20011851851851851852e2 * t212 * t1498 * t213 - 0.36385185185185185185e2 * t1415 * t344 * t21 * t1418 - 0.25033007407407407408e0 * t684 * t561 * t32 * t669 + 0.18192592592592592592e2 * t3644 * t1188 * t21 * t3647 + 0.11643259259259259259e0 * t1847 * t978 * t32 * t1849 + 0.74516859259259259263e-3 * t1853 * t833 * t195 * t152 - 0.17138877629629629631e-2 * t1426 * t1440 * t195 * t43 + 0.47690789925925925931e-5 * t3663 * t1457 * t564 * t206 + 0.47690789925925925931e-5 * tau[0] * t1457 * t49 * t3671 + 0.30522105552592592597e-7 * t50 * t830 * t3676 * t1460 * t9 + 0.18192592592592592592e2 * t3647 * t1188 * t3683 + 0.11643259259259259259e0 * t3686 * t3687 - 0.20011851851851851852e2 * t206 * t1448 * t209 - 0.17738505481481481482e0 * t221 * t3695 * t32 + 0.55790617283950617284e2 * t513 * t505 * t21 * t151 + 0.42459085432098765433e0 * t518 * t1514 * t32 * tau[0];
1669   t3710 = t1466 * t9;
1670   t3714 = 0.1e1 / t15 / t185;
1671   t3715 = t10 * t3714;
1672   t3724 = 0.1e1 / t15 / t976;
1673   t3735 = t152 * t524;
1674   t3736 = t512 * t3735;
1675   t3738 = t3646 * t429;
1676   t3740 = t3643 * t3738 * t10;
1677   t3742 = t43 * t1432;
1678   t3743 = t202 * t3742;
1679   t3748 = t341 * t3724;
1680   t3751 = t830 * t3676;
1681   t3757 = t1417 * t192;
1682   t3758 = t3757 * t98;
1683   t3760 = t1455 * t27;
1684   t3762 = t1760 / t3760;
1685   t3764 = 0.1e1 / t563 / t31;
1686   t3768 = t1414 * t3757;
1687   t3771 = t152 * t524 * t201;
1688   t3774 = t43 * t1432 * t49;
1689   t3777 = t3738 * t107 * t10;
1690   t3779 = 0.74516859259259259263e-3 * t151 * t833 * t201 * t3710 + 0.31752138271604938272e1 * t52 * t3715 * t21 - 0.17138877629629629631e-2 * tau[0] * t1440 * t49 * t1467 - 0.11684243531851851853e-4 * t1470 * t3724 * t564 * t10 - 0.36385185185185185185e2 * t1418 * t344 * t1478 - 0.25033007407407407408e0 * t669 * t561 * t1483 + 0.27938765432098765432e3 * t3736 + 0.30814814814814814815e3 * t3740 - 0.31636543209876543210e2 * t3743 + 0.49992830419753086414e-1 * t26 * t3694 * t32 + 0.40379608329481481484e-4 * t3748 * t565 - 0.29411826680414814818e-6 * t3751 * t1461 + 0.13528272592592592592e1 * t13 * t3714 * t21 - 0.73955555555555555556e3 * t3758 + 0.75599378052740740749e-9 * t3762 * t3764 - 0.43433305378765432098e-2 * t3629 - 0.73955555555555555556e3 * t3768 + 0.27938765432098765432e3 * t3771 - 0.31636543209876543210e2 * t3774 + 0.30814814814814814815e3 * t3777;
1691   t3791 = 0.27397333333333333333e0 * t742 * t1324 - 0.20548000000000000000e0 * t313 * t587 * t1637 - 0.27397333333333333333e0 * t742 * t1316 - 0.41096000000000000000e0 * t313 * t1327 * t1640 - 0.66090502947826842110e1 * t247 * t632 * t626 * t1645 + 0.41096000000000000000e0 * t247 * t596 * t258 * t628 + 0.38596750796862084160e3 * t1643 * t635 * t298 * t258 + 0.12414243100625616072e5 * t1395 * t626 * t1397 * t112 * t598 - 0.80000000000000000000e1 * t1648 * t1372 - 0.24000000000000000000e2 * t1648 * t1375 - 0.3e1 / 0.16e2 * t8 * t12 * (t3707 + t3779) + t8 * t441 * t577 / 0.4e1 + 0.21295056786666666667e-2 * t8 * t232 * t84 * t1939;
1692   t3804 = t1514 * t146;
1693   t3833 = t796 * t841;
1694   t3842 = t3762 * t1765;
1695   t3845 = t3628 * t146;
1696   t3859 = t840 * t341;
1697   t3860 = t845 * t10;
1698   t3864 = 0.15281657856000000000e-1 * t1797 * t1778 * t845 - 0.91260e2 * t1654 * t3833 + 0.24403638518518518519e1 * t13 * t3714 * t136 - 0.20449838933333333333e0 * t26 * t3694 * t170 - 0.29113335152640000000e-7 * t168 * t3842 + 0.65033698986666666667e-1 * t168 * t3845 - 0.71077478400000000000e-3 * t1805 * t339 + 0.13754808320000000000e1 * t365 * t1498 * t366 - 0.11253934080000000000e1 * t862 * t525 * t863 - 0.13754808320000000000e1 * t373 * t1498 * t374 - 0.51175784448000000000e-4 * t3859 * t809 * t3860;
1699   t3876 = 0.1e1 / t346 / t145 * t10;
1700   t3885 = t1732 * t361;
1701   t3888 = t1654 * t140;
1702   t3892 = t861 * t341;
1703   t3893 = t841 * t10;
1704   t3897 = t796 * t10;
1705   t3901 = t372 * t830;
1706   t3902 = t361 * t9;
1707   t3907 = 0.1232e4 / 0.27e2 * t41 * t3742;
1708   t3908 = 0.158080e6 / 0.81e2 * t3735;
1709   t3909 = t3907 + t3908;
1710   t3914 = 0.46058206003200000000e-3 * t1722 * t1782 * t1723 - 0.51352172494848000000e-9 * t341 * t140 / t15 / t1455 / t185 * t3876 + 0.13039893934080000000e-2 * t3748 * t348 - 0.29728949796864000000e-4 * t3751 * t837 + 0.60840e2 * t1755 * t1664 + 0.20280e2 * t840 * t3885 + 0.63969730560000000000e-2 * t3888 * t800 * t1656 - 0.10235156889600000000e-3 * t3892 * t809 * t3893 + 0.25587892224000000000e-4 * t1727 * t809 * t3897 + 0.21835001364480000000e-5 * t3901 * t1793 * t3902 + 0.1388232e-2 * t373 * t101 * t170 * t3909;
1711   t3921 = t3907 - t3908;
1712   t3929 = t1804 * t371 * t25;
1713   t3935 = t789 * t10;
1714   t3939 = t364 * t830;
1715   t3940 = t356 * t9;
1716   t3944 = t1676 * t140;
1717   t3951 = t796 * t796;
1718   t3956 = -0.28134835200000000000e0 * t365 * t525 * t821 + 0.28134835200000000000e0 * t373 * t525 * t813 - 0.1388232e-2 * t365 * t101 * t170 * t3921 - 0.16658784e-1 * t2427 * t822 + 0.33317568e-1 * t3929 * t375 - 0.45844973568000000000e-1 * t1697 * t1778 * t852 - 0.25587892224000000000e-4 * t1722 * t809 * t3935 - 0.21835001364480000000e-5 * t3939 * t1793 * t3940 - 0.12793946112000000000e-1 * t3944 * t800 * t1678 - 0.42646487040000000000e-2 * t1812 * t800 * t1664 - 0.16658784e-1 * t862 * t101 * t170 * t3951;
1719   t3959 = t789 * t789;
1720   t3966 = t164 / t370 / t166;
1721   t3967 = t3966 * t25;
1722   t3968 = t841 * t841;
1723   t4008 = t1709 * t140;
1724   t4020 = t163 * t1708 * t26;
1725   t4038 = -0.199905408e0 * t1677 * t422 * t1660 * t361 + 0.99952704e-1 * t1655 * t422 * t852 * t789 + 0.2535e1 * t3921 * t160 + 0.71077478400000000000e-2 * t4008 * t800 * t1711 + 0.30563315712000000000e-1 * t1812 * t1778 * t841 + 0.49976352e-1 * t1655 * t422 * t845 * t796 + 0.333175680e0 * t4020 * t422 * t1711 * t356 + 0.166587840e0 * t2509 * t422 * t3833 + 0.10661621760000000000e1 * t1677 * t336 * t1678 + 0.35538739200000000000e0 * t1126 * t336 * t1664 + 0.24988176e-1 * t851 * t422 * t796 * t789;
1726   t4064 = t850 * t562;
1727   t4066 = t347 * t356 * t1728;
1728   t4076 = t158 * t860;
1729   t4077 = t4076 * t26;
1730   t4082 = 0.17769369600000000000e0 * t1103 * t336 * t1668 - 0.26654054400000000000e0 * t851 * t336 * t1672 + 0.16658784e-1 * t851 * t422 * t1732 * t356 - 0.22211712e-1 * t1126 * t422 * t3885 + 0.16880901120000000000e1 * t851 * t825 * t852 - 0.11105856e-1 * t1103 * t422 * t1691 * t356 + 0.16658784e-1 * t851 * t422 * t1691 * t361 + 0.15352735334400000000e-3 * t4064 * t4066 - 0.26654054400000000000e0 * t851 * t336 * t1660 - 0.99952704e-1 * t1677 * t422 * t789 * t841 - 0.199905408e0 * t4077 * t422 * t845 * t841;
1731   t4092 = t1691 * t359;
1732   t4096 = t789 * t167;
1733   t4104 = t356 * t371;
1734   t4107 = -0.53308108800000000000e0 * t1655 * t336 * t1656 - 0.15210e2 * t1768 * t796 - 0.10140e2 * t793 * t1732 - 0.2535e1 * t360 * t3909 - 0.10140e2 * t4092 * t361 - 0.37591981738666666667e-1 * t3845 + 0.30420e2 * t4096 * t841 + 0.28885597028352000000e-6 * t3842 + 0.15210e2 * t840 * t3951 + 0.60840e2 * t4076 * t3968 - 0.60840e2 * t4104 * t1711;
1735   t4139 = t3724 * t651 * t10;
1736   t4143 = t3676 * t1824 * t9;
1737   t4151 = t1514 * t89 * tau[0];
1738   t4154 = t3643 * t25;
1739   t4156 = t3047 * t89 * t3646;
1740   t4159 = t1414 * t140;
1741   t4161 = t2638 * t268 * t1417;
1742   t4164 = t512 * t341;
1743   t4166 = t2175 * t651 * t151;
1744   t4169 = t94 * t665;
1745   t4170 = t4169 * t25;
1746   t4173 = t687 * t341;
1747   t4178 = t1762 * t1824 * tau[0];
1748   t4184 = t666 * t341;
1749   t4190 = -0.27662639407407407409e3 * t3748 * t711 - 0.30566098109629629631e4 * t649 * t4139 + 0.10348318871703703705e4 * t1921 * t4143 - 0.30367762204444444445e4 * t656 * t4139 + 0.10281171171555555556e4 * t1926 * t4143 + 0.38783514548148148148e5 * t291 * t4151 - 0.82343111111111111112e5 * t4154 * t4156 - 0.20171207111111111112e5 * t4159 * t4161 - 0.22388189866666666668e4 * t4164 * t4166 - 0.21768888888888888889e6 * t4170 * t4156 - 0.11165040640000000000e5 * t4173 * t4166 - 0.95522943431111111120e3 * t273 * t830 * t4178 - 0.22206043477333333335e4 * t279 * t830 * t4178 - 0.74143061333333333338e4 * t4184 * t4166 - 0.12653749134222222223e4 * t290 * t830 * t4178;
1750   t4191 = t95 * t1883;
1751   t4192 = t4191 * t25;
1752   t4195 = t106 * t106;
1753   t4197 = t105 / t4195;
1754   t4198 = t4197 * t25;
1755   t4201 = t1884 * t140;
1756   t4206 = t1856 * t140;
1757   t4209 = t1878 * t140;
1758   t4212 = t696 * t341;
1759   t4217 = t3695 * t89;
1760   t4225 = t561 * t89 * t669;
1761   t4229 = t1440 * t268 * t43;
1762   t4233 = t978 * t89 * t1849;
1763   t4237 = t833 * t268 * t152;
1764   t4242 = -0.22952000000000000000e6 * t4192 * t4156 - 0.84472888888888888887e5 * t4198 * t4156 - 0.30892942222222222224e5 * t4201 * t4161 + 0.29277611140740740741e5 * t274 * t4151 - 0.65056768000000000001e5 * t4206 * t4161 - 0.77333238518518518520e5 * t4209 * t4161 - 0.16340527786666666668e5 * t4212 * t4166 + 0.68019674074074074074e4 * t3686 * t1903 - 0.33847885432098765432e4 * t100 * t4217 - 0.33628254814814814815e4 * t109 * t4217 + 0.68061125688888888889e5 * t280 * t4151 - 0.23709714962962962963e5 * t684 * t4225 - 0.17086542127407407408e5 * t691 * t4229 + 0.88249031111111111113e5 * t1847 * t4233 + 0.13759408355555555556e5 * t1853 * t4237 + 0.28462336000000000000e6 * t1857 * t4233;
1765   t4251 = t1457 * t651 * t206;
1766   t4272 = t3628 * t268;
1767   t4276 = 0.1e1 / t650 / t88;
1768   t4277 = t3762 * t4276;
1769   t4280 = -0.11824088177777777778e6 * t688 * t4225 - 0.17305072829629629630e6 * t697 * t4225 - 0.39720771128888888890e5 * t700 * t4229 + 0.69403388586666666671e4 * t1863 * t4251 + 0.16134078464000000001e5 * t1868 * t4251 + 0.91937396053333333336e4 * t1871 * t4251 + 0.10042616035555555556e6 * t1836 * t4237 + 0.68618478933333333335e5 * t1860 * t4237 - 0.78519561481481481481e5 * t667 * t4225 - 0.22634229001481481482e5 * t673 * t4229 + 0.33833291851851851853e6 * t1879 * t4233 + 0.13515662222222222222e6 * t1885 * t4233 + 0.45567089777777777779e5 * t1888 * t4237 + 0.76318439348148148151e4 * t108 * t4272 - 0.12736392457481481483e3 * t99 * t4277;
1770   t4288 = t107 * t25 * t89;
1771   t4293 = t98 * t140 * t268;
1772   t4310 = -0.12653749134222222223e3 * t108 * t4277 - 0.38066567901234567902e4 * t3736 - 0.41985185185185185185e4 * t3740 + 0.43104790123456790123e3 * t3743 - 0.97013333333333333336e4 * t3646 * t3047 * t4288 - 0.15547354074074074075e4 * t1417 * t2638 * t4293 + 0.76816885254320987658e4 * t99 * t4272 + 0.10076444444444444444e5 * t3758 + 0.69520086913580246916e3 * t4272 - 0.11526568770370370372e2 * t4277 + 0.10076444444444444444e5 * t3768 - 0.38066567901234567901e4 * t3771 - 0.30632691358024691357e3 * t26 * t3694 * t89 + 0.93653371259259259268e2 * t3751 * t1825 + 0.43104790123456790123e3 * t3774 - 0.41985185185185185185e4 * t3777;
1773   t4315 = -0.24828486201251232145e5 * t3340 * t3341 * t112 + 0.4e1 * t331 * t1818 + t133 * (0.59231232000000000000e-1 * t1806 * t378 + t3956 + 0.35538739200000000000e-3 * t804 * t800 * t1732 - 0.62943055872000000000e-1 * t799 * t3804 * t356 + 0.62943055872000000000e-1 * t804 * t3804 * t361 - 0.35538739200000000000e-3 * t799 * t800 * t1691 + 0.76408289280000000000e-2 * t799 * t1778 * t789 - 0.76408289280000000000e-2 * t804 * t1778 * t796 - 0.95519502222222222225e0 * t169 * t3695 * t170 - 0.59231232000000000000e0 * t1710 * t222 * t1712 + 0.29615616000000000000e-1 * t365 * t222 * t1692 - 0.46058206003200000000e-3 * t1727 * t1782 * t1728 - 0.29615616000000000000e-1 * t373 * t222 * t1733 - 0.56269670400000000000e0 * t844 * t525 * t846 - 0.21323243520000000000e-2 * t1797 * t800 * t1668 + 0.31984865280000000000e-2 * t1697 * t800 * t1672 + 0.31984865280000000000e-2 * t1697 * t800 * t1660 + 0.78848616038400000000e-5 * t1792 * t3676 * t836 * t9 - 0.77632401408000000000e-3 * t808 * t3724 * t347 * t10 - 0.8329392e-2 * t844 * t101 * t170 * t3959 - 0.166587840e0 * t3967 * t101 * t170 * t3968 + t4038 + t4082 + t4107 + t3914 + t3864) + 0.41096000000000000000e0 * t313 * t1315 * t1378 + 0.13218100589565368422e2 * t313 * t3472 * t1386 - 0.68493333333333333332e-1 * t313 * t587 * t1372 - 0.20548000000000000000e0 * t313 * t587 * t1375 - 0.21309037037037037036e0 * t1595 * t588 + 0.13698666666666666666e0 * t742 * t1321 + 0.44060335298551228073e1 * t742 * t1328 - 0.66090502947826842111e1 * t313 * t1327 * t1390 - 0.14171548179536397724e3 * t313 * t3476 * t1399 - 0.31090700000000000000e-1 * t85 * (t4190 + t4242 + t4280 + t4310);
1774   t4332 = rho[0] * (t3550 + t3588 + t3791 + t4315) + 0.41096000000000000000e0 * t1317 + 0.27397333333333333333e0 * t1319 - 0.20548000000000000000e0 * t1322 - 0.41096000000000000000e0 * t1325 - 0.66090502947826842111e1 * t1329 + 0.66251287780740740739e-2 * t1332 + 0.63885170359999999999e-2 * t1336 - 0.85180227146666666664e-2 * t1339 + 0.12e2 * t1341 + 0.40000000000000000000e1 * t1373 + 0.12000000000000000000e2 * t1376 - 0.24000000000000000000e2 * t1379 - 0.77193501593724168322e3 * t1387;
1775   t4347 = 0.38596750796862084160e3 * t1391 + 0.82761620670837440481e4 * t1400 - 0.5e1 / 0.18e2 * t1403 + t1406 / 0.2e1 - 0.3e1 / 0.4e1 * t1409 - 0.3e1 / 0.4e1 * t1528 + 0.12e2 * t1530 + 0.4e1 * t1636 + 0.12000000000000000000e2 * t1638 + 0.24000000000000000000e2 * t1641 + 0.38596750796862084160e3 * t1646 - 0.24000000000000000000e2 * t1649 + 0.4e1 * t1819 - 0.12436280000000000000e0 * t1940;
1776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1777     v4rho4[0] = t4332 + t4347;
1778 
1779   t4396 = t1856 * sigma[0];
1780   t4403 = -0.40497838080000000000e4 * t700 * t1865 - 0.23077027840000000000e4 * t673 * t1865 + 0.36847229155555555557e4 * t274 * t1831 + 0.85658077866666666668e4 * t280 * t1831 - 0.15319244800000000000e5 * t697 * t1838 + 0.26236159999999999999e4 * t513 * t1842 + 0.13084032000000000000e5 * t2125 * t1842 - 0.47276266666666666666e4 * t1415 * t1850 - 0.20988928000000000000e4 * t684 * t1838 - 0.15247680000000000000e5 * t4396 * t1850 - 0.10467225600000000000e5 * t688 * t1838 + 0.48810848711111111112e4 * t291 * t1831;
1781   t4408 = t1878 * sigma[0];
1782   t4411 = t1884 * sigma[0];
1783   t4418 = t3047 * t268;
1784   t4419 = t4418 * t1417;
1785   t4422 = t2638 * t651;
1786   t4423 = t4422 * t151;
1787   t4427 = t2175 * t1824 * tau[0];
1788   t4436 = 0.19149056000000000000e5 * t2094 * t1842 + 0.86886400000000000000e4 * t2114 * t1842 - 0.18124977777777777778e5 * t4408 * t1850 - 0.72405333333333333334e4 * t4411 * t1850 - 0.69509120000000000000e4 * t667 * t1838 - 0.17420810240000000001e4 * t691 * t1865 + 0.28962133333333333334e4 * t1885 * t4419 + 0.13901824000000000000e4 * t1888 * t4423 + 0.62454497280000000003e3 * t1868 * t4427 + 0.35588669440000000002e3 * t1871 * t4427 - 0.36119612984888888891e3 * t649 * t1923 + 0.26865827840000000001e3 * t1863 * t4427;
1789   t4452 = t1477 * t89;
1790   t4463 = 0.81234925037037037039e3 * t407 * t1906 - 0.50431729777777777778e4 * t930 * t1898 - 0.66805987555555555556e4 * t951 * t1898 + 0.80707811555555555558e3 * t412 * t1906 - 0.35885241685333333335e3 * t656 * t1923 + 0.97621836231111111114e3 * t946 * t1916 + 0.96988392106666666667e3 * t960 * t1916 - 0.36439111111111111110e3 * t1901 * t4452 + 0.18910506666666666666e4 * t1847 * t4419 + 0.41977856000000000001e3 * t1853 * t4423 + 0.60990720000000000000e4 * t1857 * t4419 + 0.72499911111111111111e4 * t1879 * t4419;
1791   t4471 = t25 * t1514 * t268;
1792   t4473 = t830 * t1762;
1793   t4474 = t4473 * t4276;
1794   t4477 = t1902 * t268;
1795   t4488 = t140 * t1440;
1796   t4493 = t341 * t1457;
1797   t4496 = 0.30638489600000000000e4 * t1836 * t4423 + 0.20934451200000000000e4 * t1860 * t4423 - 0.11723771733333333334e5 * t933 * t1898 - 0.19762043259259259261e3 * t4471 + 0.43224632888888888891e1 * t4474 + 0.14575644444444444444e3 * t1417 * t3047 * t4477 + 0.47451559253333333336e2 * t108 * t4474 + 0.47761471715555555558e2 * t99 * t4474 - 0.21836258797037037038e4 * t99 * t4471 - 0.21694568675555555556e4 * t108 * t4471 + 0.88348785777777777782e2 * t4488 * t711 + 0.73518459259259259256e2 * t388 * t1820 - 0.32688628622222222224e2 * t4493 * t1825;
1798   t4516 = -0.60000000000000000000e1 * t1648 * t2052 - 0.5e1 / 0.72e2 * t8 * t53 * t399 + 0.16562821945185185185e-2 * t8 * t1250 * t917 + 0.96491876992155210402e2 * t1643 * t635 * t417 * t258 + 0.3e1 * t776 * t1004 + t1635 * t438 + 0.3e1 * t331 * t2207 - 0.31090700000000000000e-1 * t85 * (t4403 + t4436 + t4463 + t4496) - 0.60000000000000000000e1 * t597 * t599 * t963 - 0.19298375398431042081e3 * t1383 * t1385 * t417 + 0.30000000000000000000e1 * t239 * t627 * t963 + 0.96491876992155210402e2 * t633 * t636 * t963 + 0.20690405167709360120e4 * t1395 * t1398 * t417;
1799   t4552 = t1709 * sigma[0];
1800   t4561 = 0.61410941337600000000e-6 * t1722 * t2150 * t3940 + 0.399810816e-3 * t862 * t992 * t1664 + 0.19190919168000000000e-4 * t1812 * t1000 * t3893 - 0.47977297920000000000e-5 * t804 * t1000 * t3897 - 0.61410941337600000000e-6 * t1727 * t2150 * t3902 - 0.2776464e-2 * t982 * t1693 + 0.2776464e-2 * t985 * t1734 - 0.28134835200000000000e0 * t982 * t1737 + 0.28134835200000000000e0 * t985 * t1685 + 0.55529280e-1 * t4552 * t1713 + 0.17769369600000000000e0 * t2186 * t1716 + 0.11994324480000000000e-3 * t804 * t1729 + 0.44423424000000000000e-1 * t982 * t1701;
1801   t4566 = t1654 * t25;
1802   t4570 = t1676 * t25;
1803   t4600 = -0.44423424000000000000e-1 * t985 * t1719 + 0.88846848000000000000e-1 * t2181 * t1704 - 0.599716224e-3 * t4566 * t992 * t1656 + 0.1199432448e-2 * t4570 * t992 * t1678 + 0.79962163200000000000e-2 * t2191 * t1698 + 0.95954595840000000000e-5 * t1797 * t1000 * t3860 - 0.11994324480000000000e-3 * t799 * t1724 + 0.199905408e-3 * t844 * t992 * t1668 - 0.299858112e-3 * t2191 * t992 * t1672 - 0.299858112e-3 * t2191 * t992 * t1660 + 0.47977297920000000000e-5 * t799 * t1000 * t3935 + 0.22924680533333333333e0 * t433 * t1801 - 0.666351360e-3 * t1710 * t992 * t1711 - 0.53308108800000000000e-2 * t862 * t1813;
1804   t4627 = t3804 * t25;
1805   t4629 = t4473 * t1765;
1806   t4633 = -0.13327027200000000000e-2 * t365 * t1786 + 0.13327027200000000000e-2 * t373 * t1789 + 0.14837423616000000000e-1 * t365 * t1809 - 0.14837423616000000000e-1 * t373 * t1779 - 0.26654054400000000000e-2 * t844 * t1798 - 0.5552928e-2 * t1805 * sigma[0] * t171 + 0.24794193715200000000e-3 * t999 * t1783 - 0.27521199636480000000e-5 * t808 * t1794 + 0.33317568e-4 * t365 * t992 * t1691 - 0.33317568e-4 * t373 * t992 * t1732 - 0.43065244444444444445e0 * t1486 * t136 + 0.10102558720000000000e-1 * t4627 - 0.10230315614208000000e-6 * t4629 - 0.39568466534400000000e-3 * t4488 * t348;
1807   t4650 = t1676 * t388;
1808   t4663 = t1654 * t388;
1809   t4666 = t850 * t885;
1810   t4669 = 0.19257064685568000000e-9 * t1760 / t15 / t1455 / t28 * t3876 + 0.50940032000000000000e-1 * t1498 * t969 + 0.98319552675840000000e-5 * t4493 * t837 + 0.10917500682240000000e-7 * t168 * t4629 - 0.18486725632000000000e-1 * t168 * t4627 + 0.66635136e-4 * t1805 * t425 - 0.99952704e-1 * t4650 * t1679 - 0.26654054400000000000e0 * t2203 * t1682 - 0.16658784e-1 * t2757 * t1669 + 0.24988176e-1 * t2203 * t1673 + 0.24988176e-1 * t2203 * t1661 - 0.33317568e-1 * t2782 * t1665 + 0.49976352e-1 * t4663 * t1657 - 0.28786378752000000000e-4 * t4666 * t4066;
1811   t4702 = t1188 * t32;
1812   t4706 = t978 * t195;
1813   t4710 = t833 * t564;
1814   t4715 = t32 * t151;
1815   t4720 = t195 * tau[0];
1816   t4721 = t25 * t10;
1817   t4726 = t1514 * t195 * t25;
1818   t4735 = 0.41217137777777777780e-3 * t1465 * t1999 + 0.39792002844444444448e-5 * t1972 * t1472 - 0.80920651851851851855e-1 * t202 * t505 * t1983 + 0.24741925925925925926e1 * t892 * t524 * t21 * tau[0] - 0.10915555555555555556e-1 * t1415 * t4702 * t1849 - 0.13971911111111111112e-3 * t684 * t4706 * t152 - 0.13413034666666666668e-5 * t1426 * t4710 * t206 + 0.34929777777777777779e-1 * t512 * t344 * t4715 * t13 + 0.41217137777777777780e-3 * t202 * t561 * t4720 * t4721 + 0.12133896343703703704e-2 * t4726 - 0.28349766769777777780e-9 * t4473 * t3764 - 0.23873422222222222222e0 * t1487 - 0.80920651851851851855e-1 * t1511 * t904 - 0.95474725925925925930e-3 * t50 * t4726;
1819   t4761 = t879 * t9;
1820   t4766 = t1998 * t9;
1821   t4783 = t201 * t32;
1822   t4787 = 0.13644444444444444444e1 * t1418 * t429 * t98 * t21 - 0.43662222222222222222e1 * t512 * t1491 + 0.24741925925925925926e1 * t206 * t524 * t49 * t21 - 0.56033185185185185185e0 * t50 * t1487 - 0.12790970595555555556e-4 * t4488 * t565 - 0.11310724740740740740e-1 * t1498 * t879 + 0.10232097814755555556e-6 * t4493 * t1461 - 0.43662222222222222222e1 * t1519 * t2019 + 0.44186168888888888890e-1 * t899 * t1449 * sigma[0] - 0.10915555555555555556e-1 * t1417 * t1188 * t98 * t4761 - 0.13971911111111111112e-3 * t151 * t978 * t201 * t4766 + 0.13644444444444444444e1 * t1414 * t429 * t21 * t1417 * t10 - 0.13413034666666666668e-5 * t206 * t833 * t49 * t140 * t564 - 0.11445789582222222224e-7 * t1470 * t1457 * t1460 * t9 + 0.34929777777777777779e-1 * t1481 * t4783 * sigma[0];
1823   t4798 = 0.30000000000000000000e1 * t239 * t260 * t2131 + 0.10000000000000000000e1 * t239 * t1371 * t417 - 0.21295056786666666666e-2 * t8 * t583 * t2045 + 0.60000000000000000000e1 * t633 * t1532 * t417 + t133 * (t4561 + t4600 + t4633 + t4669) + 0.10274000000000000000e0 * t313 * t1315 * t2049 + 0.68493333333333333332e-1 * t742 * t2042 - 0.51369999999999999999e-1 * t313 * t587 * t2052 - 0.10274000000000000000e0 * t313 * t587 * t2058 - 0.16522625736956710527e1 * t313 * t1327 * t2055 + 0.15971292590000000000e-2 * t8 * t232 * t84 * t2131 - 0.3e1 / 0.16e2 * t8 * t12 * (t4735 + t4787) + t8 * t441 * t913 / 0.8e1 - 0.3e1 / 0.16e2 * t8 * t176 * t2035;
1824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1825     v4rho3sigma[0] = 0.3e1 * t2208 - 0.60000000000000000000e1 * t2050 - 0.9e1 / 0.16e2 * t2037 + 0.6e1 * t2135 + 0.3e1 * t2134 + 0.30000000000000000000e1 * t2053 + 0.60000000000000000000e1 * t2059 + 0.96491876992155210402e2 * t2056 - 0.93272100000000000000e-1 * t2132 - 0.3e1 / 0.8e1 * t1970 + 0.31942585179999999999e-2 * t2047 + t1967 / 0.8e1 - 0.21295056786666666666e-2 * t2040 + rho[0] * (t4516 + t4798) - 0.10274000000000000000e0 * t2043;
1826 
1827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1828     v4rho3lapl[0] = 0.0e0;
1829 
1830   t4846 = t478 * t1732;
1831   t4851 = t1100 * t841;
1832   t4860 = t2397 * t361;
1833   t4865 = t1100 * t796;
1834   t4868 = t478 * t1711;
1835   t4874 = 0.88e2 / 0.9e1 * t41 * t534;
1836   t4875 = 0.16640e5 / 0.27e2 * t529;
1837   t4876 = -t4874 - t4875;
1838   t4887 = 0.5070e1 * t840 * t4846 - 0.45630e2 * t4104 * t2459 - 0.45630e2 * t1654 * t4851 + 0.15210e2 * t2400 * t1664 + 0.15210e2 * t4096 * t1097 + 0.30420e2 * t1755 * t2466 + 0.15210e2 * t840 * t4860 + 0.15210e2 * t1755 * t2469 + 0.15210e2 * t840 * t4865 + 0.60840e2 * t4076 * t4868 - 0.7605e1 * t793 * t2397 - 0.2535e1 * t360 * t4876 - 0.8329392e-2 * t1103 * t422 * t2448 * t356 + 0.12494088e-1 * t851 * t422 * t2448 * t361;
1839   t4888 = t347 * t478;
1840   t4889 = t4888 * t1723;
1841   t4893 = t4888 * t1728;
1842   t4914 = t3966 * t26;
1843   t4938 = 0.38381838336000000000e-4 * t4064 * t4889 - 0.51175784448000000000e-4 * t861 * t562 * t4893 + 0.12494088e-1 * t851 * t422 * t2397 * t356 - 0.16658784e-1 * t1126 * t422 * t4860 + 0.12494088e-1 * t851 * t422 * t1100 * t789 + 0.4164696e-2 * t851 * t422 * t478 * t1691 + 0.42202252800000000000e0 * t851 * t825 * t1122 - 0.166587840e0 * t4914 * t422 * t4868 - 0.28134835200000000000e0 * t1103 * t825 * t1104 + 0.83293920e-1 * t4020 * t422 * t475 * t1711 + 0.26654054400000000000e0 * t1677 * t336 * t2495 + 0.42202252800000000000e0 * t851 * t825 * t1108 - 0.13327027200000000000e0 * t1655 * t336 * t2502 - 0.2776464e-2 * t1103 * t422 * t475 * t1691;
1844   t4952 = t1755 * t26;
1845   t4967 = t1654 * t193;
1846   t4968 = t146 * t475;
1847   t4969 = t4968 * t852;
1848   t4988 = 0.12494088e-1 * t851 * t422 * t1089 * t796 + 0.4164696e-2 * t851 * t422 * t475 * t1732 - 0.8329392e-2 * t1103 * t422 * t1089 * t789 - 0.8329392e-2 * t4952 * t2477 - 0.16658784e-1 * t1126 * t422 * t4865 - 0.5552928e-2 * t1126 * t422 * t4846 + 0.17769369600000000000e0 * t1126 * t336 * t2466 + 0.88846848000000000000e-1 * t1126 * t336 * t2469 + 0.31984865280000000000e-2 * t4967 * t4969 + 0.88846848000000000000e-1 * t1103 * t336 * t2472 + 0.44423424000000000000e-1 * t1103 * t336 * t2476 - 0.49976352e-1 * t1677 * t422 * t1089 * t841 - 0.13327027200000000000e0 * t851 * t336 * t2480 - 0.66635136000000000000e-1 * t851 * t336 * t2485;
1849   t4993 = t1676 * t193;
1850   t4994 = t146 * t478;
1851   t4995 = t4994 * t852;
1852   t5008 = t347 * t475;
1853   t5009 = t5008 * t1723;
1854   t5012 = t5008 * t1728;
1855   t5022 = t845 * t371 * t26;
1856   t5025 = -t4874 + t4875;
1857   t5040 = 0.24988176e-1 * t1655 * t422 * t1100 * t845 - 0.63969730560000000000e-2 * t4993 * t4995 - 0.13327027200000000000e0 * t851 * t336 * t2513 - 0.66635136000000000000e-1 * t851 * t336 * t2517 + 0.83293920e-1 * t2509 * t422 * t4851 - 0.25587892224000000000e-4 * t840 * t562 * t5009 + 0.38381838336000000000e-4 * t4064 * t5012 - 0.44423424000000000000e0 * t2509 * t336 * t2459 - 0.56269670400000000000e0 * t1126 * t825 * t1097 + 0.24988176e-1 * t5022 * t1109 + 0.2535e1 * t5025 * t160 - 0.26654054400000000000e-3 * t799 * t800 * t2448 - 0.38204144640000000000e-2 * t804 * t1778 * t1100 + 0.26654054400000000000e-3 * t804 * t800 * t2397 - 0.53308108800000000000e-3 * t2426 * t140 * t1115;
1858   t5086 = 0.38204144640000000000e-2 * t799 * t1778 * t1089 - 0.15735763968000000000e-1 * t799 * t3804 * t475 + 0.1388232e-2 * t373 * t101 * t170 * t4876 + 0.15281657856000000000e-1 * t1812 * t1778 * t1097 + 0.76408289280000000000e-2 * t1797 * t1778 * t1104 - 0.31984865280000000000e-2 * t3944 * t800 * t2495 - 0.11461243392000000000e-1 * t1697 * t1778 * t1108 + 0.15992432640000000000e-2 * t3888 * t800 * t2502 - 0.11461243392000000000e-1 * t1697 * t1778 * t1122 + 0.53308108800000000000e-2 * t4008 * t800 * t2459 - 0.10661621760000000000e-2 * t1797 * t800 * t2472 - 0.53308108800000000000e-3 * t1797 * t800 * t2476 + 0.15992432640000000000e-2 * t1697 * t800 * t2480 + 0.79962163200000000000e-3 * t1697 * t800 * t2485;
1859   t5114 = t1089 * t10;
1860   t5118 = t475 * t9;
1861   t5129 = 0.22211712000000000000e-1 * t365 * t222 * t2449 + 0.34387020800000000000e0 * t365 * t1498 * t481 - 0.34387020800000000000e0 * t373 * t1498 * t485 + 0.44423424000000000000e-1 * t2427 * t1112 + 0.8329392e-2 * t3929 * t486 - 0.14067417600000000000e0 * t365 * t525 * t1118 + 0.11514551500800000000e-3 * t1722 * t1782 * t2442 + 0.14067417600000000000e0 * t373 * t525 * t1136 - 0.11514551500800000000e-3 * t1727 * t1782 * t2415 - 0.8329392e-2 * t2427 * t1119 - 0.12793946112000000000e-4 * t1722 * t809 * t5114 - 0.54587503411200000000e-6 * t3939 * t1793 * t5118 - 0.1388232e-2 * t365 * t101 * t170 * t5025 + 0.15992432640000000000e-2 * t1697 * t800 * t2513;
1862   t5143 = t1100 * t10;
1863   t5158 = t1097 * t796;
1864   t5182 = 0.79962163200000000000e-3 * t1697 * t800 * t2517 - 0.21323243520000000000e-2 * t1812 * t800 * t2466 - 0.10661621760000000000e-2 * t1812 * t800 * t2469 - 0.22211712000000000000e-1 * t373 * t222 * t2419 + 0.12793946112000000000e-4 * t1727 * t809 * t5143 + 0.54587503411200000000e-6 * t3901 * t1793 * t3237 - 0.49976352e-1 * t1677 * t422 * t2517 * t361 - 0.49976352e-1 * t1677 * t422 * t1122 * t796 + 0.83293920e-1 * t2509 * t422 * t5158 + 0.24988176e-1 * t1655 * t422 * t2476 * t361 + 0.24988176e-1 * t1655 * t422 * t1104 * t796 - 0.49976352e-1 * t1677 * t422 * t1108 * t796 - 0.99952704e-1 * t4077 * t422 * t2502 * t361 + 0.24988176e-1 * t1655 * t422 * t1122 * t789;
1865   t5210 = t1089 * t167;
1866   t5213 = t475 * t371;
1867   t5216 = t2448 * t359;
1868   t5227 = -0.99952704e-1 * t1677 * t422 * t2513 * t361 + 0.53308108800000000000e0 * t1677 * t336 * t2408 + 0.49976352e-1 * t1655 * t422 * t2472 * t361 - 0.99952704e-1 * t4077 * t422 * t1104 * t841 - 0.26654054400000000000e0 * t1655 * t336 * t2403 + 0.249881760e0 * t4020 * t422 * t1122 * t841 + 0.15735763968000000000e-1 * t804 * t3804 * t478 - 0.45630e2 * t1654 * t5158 + 0.15210e2 * t5210 * t841 - 0.15210e2 * t5213 * t1711 - 0.7605e1 * t5216 * t361 - 0.7605e1 * t2385 * t796 - 0.2535e1 * t1092 * t1732 - 0.2535e1 * t4092 * t478 - 0.7605e1 * t1768 * t1100;
1869   t5235 = 0.10274000000000000000e0 * t313 * t1315 * t2293 + 0.30000000000000000000e1 * t239 * t260 * t2367 + 0.96491876992155210402e2 * t633 * t636 * t1083 + 0.20690405167709360120e4 * t1395 * t1398 * t468 + 0.30000000000000000000e1 * t239 * t627 * t1083 - 0.19298375398431042081e3 * t1383 * t1385 * t468 + 0.10000000000000000000e1 * t239 * t1371 * t468 - 0.60000000000000000000e1 * t597 * t599 * t1083 + 0.60000000000000000000e1 * t633 * t1532 * t468 - 0.21295056786666666666e-2 * t8 * t583 * t2289 + t133 * (t4887 + t4938 + t4988 + t5040 + t5086 + t5129 + t5182 + t5227) + 0.3e1 * t776 * t1140 + t1635 * t489;
1870   t5270 = t512 * t529;
1871   t5274 = t3643 * t1058 * t1417 * t10;
1872   t5299 = t4720 * t9;
1873   t5305 = 0.35948562962962962964e1 * t525 * t209 + 0.26826069333333333336e-3 * t561 * t49 * t1467 - 0.71536184888888888898e-6 * t833 * t49 * t3671 - 0.10107259259259259259e3 * t5270 - 0.18488888888888888889e3 * t5274 - 0.18629214814814814815e2 * t552 * t549 - 0.70267069629629629632e-1 * t202 * t2061 * t32 + 0.17192000000000000000e2 * t1415 * t1416 * t669 + 0.78592000000000000001e-1 * t684 * t1422 * t43 - 0.10915555555555555555e2 * t3644 * t2317 * t21 * t1849 - 0.52394666666666666667e-1 * t1847 * t4702 * t152 - 0.22355057777777777779e-3 * t1853 * t4706 * t206 - 0.22355057777777777779e-3 * t978 * t201 * t140 * t5299 - 0.71536184888888888898e-6 * t3663 * t4710 * t9;
1874   t5325 = t152 * t1188;
1875   t5328 = t1414 * t547;
1876   t5331 = t1058 * t107 * t1418;
1877   t5333 = t222 * t1013;
1878   t5335 = t202 * t534;
1879   t5340 = t547 * t98;
1880   t5342 = t534 * t49;
1881   t5344 = 0.78592000000000000003e-1 * t344 * t201 * t25 * t2245 + 0.26826069333333333336e-3 * t1426 * t1427 * t10 + 0.35948562962962962964e1 * t212 * t525 * t21 - 0.18629214814814814814e2 * t513 * t1490 * tau[0] + 0.17192000000000000000e2 * t669 * t429 * t1478 - 0.10915555555555555555e2 * t1849 * t2317 * t3683 - 0.52394666666666666667e-1 * t5325 * t3687 + 0.36053333333333333333e3 * t5328 - 0.18488888888888888888e3 * t5331 - 0.10107259259259259259e3 * t5333 + 0.67792592592592592593e1 * t5335 - 0.70267069629629629632e-1 * t505 * t49 * t1029 + 0.36053333333333333333e3 * t5340 + 0.67792592592592592593e1 * t5342;
1882   t5358 = t2061 * t89;
1883   t5366 = 0.1e1 / t831;
1884   t5373 = t2176 * t1824;
1885   t5381 = t1848 * t152;
1886   t5384 = -0.656861184e4 * t290 * t5358 - 0.495863424e4 * t273 * t5358 - 0.1152724608e5 * t279 * t5358 + 0.13771140740740740740e4 * t5270 + 0.58208000000000000000e4 * t1417 * t5366 * t4288 + 0.69963093333333333334e3 * t151 * t3047 * t4293 + 0.33309065216000000004e3 * t279 * t5373 + 0.18980623701333333334e3 * t290 * t5373 + 0.14328441514666666668e3 * t273 * t5373 + 0.25191111111111111111e4 * t5274 - 0.41130352000000000001e5 * t1847 * t5381;
1887   t5385 = t1837 * t206;
1888   t5396 = t1841 * t43;
1889   t5409 = t4422 * tau[0];
1890   t5412 = -0.42677486933333333334e4 * t1853 * t5385 - 0.13265481600000000000e6 * t1857 * t5381 - 0.21283358720000000000e5 * t1860 * t5385 - 0.15768730666666666667e6 * t1879 * t5381 - 0.31149131093333333335e5 * t1836 * t5385 + 0.76667889777777777778e4 * t684 * t5396 + 0.38234449066666666667e5 * t688 * t5396 + 0.55957796977777777778e5 * t697 * t5396 + 0.25390136888888888889e5 * t667 * t5396 - 0.62992639999999999999e5 * t1885 * t5381 - 0.14133521066666666667e5 * t1888 * t5385 + 0.67164569600000000003e3 * t4164 * t5409;
1891   t5415 = t5366 * t89 * t1417;
1892   t5418 = t4418 * t151;
1893   t5425 = t1864 * t9;
1894   t5430 = t1830 * t10;
1895   t5443 = 0.13061333333333333333e6 * t4170 * t5415 + 0.29275545600000000001e5 * t4206 * t5418 + 0.33495121920000000002e4 * t4173 * t5409 + 0.49021583360000000003e4 * t4212 * t5409 - 0.24981798912000000002e4 * t1868 * t5425 - 0.31702026666666666667e4 * t5325 * t1903 + 0.63945381546666666669e4 * t700 * t5430 + 0.36438225351111111112e4 * t673 * t5430 - 0.14235467776000000000e4 * t1871 * t5425 + 0.27507156195555555555e4 * t691 * t5430 - 0.10746331136000000000e4 * t1863 * t5425 + 0.13771200000000000000e6 * t4192 * t5415;
1896   t5462 = 0.50683733333333333333e5 * t4198 * t5415 + 0.13901824000000000000e5 * t4201 * t5418 + 0.34799957333333333334e5 * t4209 * t5418 + 0.22242918400000000000e4 * t4184 * t5409 + 0.49405866666666666667e5 * t4154 * t5415 + 0.90770432000000000003e4 * t4159 * t5418 - 0.49122666666666666667e4 * t5328 + 0.25191111111111111112e4 * t5331 + 0.13771140740740740741e4 * t5333 - 0.92367407407407407407e2 * t5335 - 0.49122666666666666667e4 * t5340 - 0.92367407407407407407e2 * t5342;
1897   t5467 = 0.3e1 * t331 * t2529 + 0.15971292590000000000e-2 * t8 * t232 * t84 * t2367 + 0.16562821945185185185e-2 * t8 * t1250 * t1046 + 0.68493333333333333332e-1 * t742 * t2286 - 0.51369999999999999999e-1 * t313 * t587 * t2296 - 0.10274000000000000000e0 * t313 * t587 * t2302 - 0.16522625736956710527e1 * t313 * t1327 * t2299 + t8 * t441 * t1042 / 0.8e1 - 0.3e1 / 0.16e2 * t8 * t176 * t2279 - 0.3e1 / 0.16e2 * t8 * t12 * (t5305 + t5344) - 0.5e1 / 0.72e2 * t8 * t53 * t452 - 0.60000000000000000000e1 * t1648 * t2296 + 0.96491876992155210402e2 * t1643 * t635 * t468 * t258 - 0.31090700000000000000e-1 * t85 * (t5384 + t5412 + t5443 + t5462);
1898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1899     v4rho3tau[0] = 0.3e1 * t2530 + 0.6e1 * t2371 + 0.3e1 * t2370 + 0.31942585179999999999e-2 * t2291 + t2219 / 0.8e1 - 0.60000000000000000000e1 * t2294 - 0.3e1 / 0.8e1 * t2222 - 0.9e1 / 0.16e2 * t2281 - 0.93272100000000000000e-1 * t2368 + 0.30000000000000000000e1 * t2297 + 0.60000000000000000000e1 * t2303 + 0.96491876992155210402e2 * t2300 - 0.21295056786666666666e-2 * t2284 - 0.10274000000000000000e0 * t2287 + rho[0] * (t5235 + t5467);
1900 
1901   t5483 = t2006 * sigma[0];
1902   t5494 = t140 * t833;
1903   t5497 = t512 * t429;
1904   t5504 = t564 * t25;
1905   t5524 = t341 * t2175;
1906   t5527 = t202 * t344;
1907   t5531 = t1188 * t195;
1908   t5535 = t978 * t564;
1909   t5539 = 0.23333091555555555556e-3 * t50 * t5483 + 0.87324444444444444443e-2 * t552 * t2546 - 0.21831111111111111112e-2 * t1991 * t4783 * t10 + 0.12819342222222222222e-2 * t526 + 0.35339851093333333334e-5 * t1973 * t4721 - 0.33719233194666666668e-7 * t5494 * t1461 - 0.21831111111111111111e-2 * t5497 * t4715 * t10 - 0.66366577777777777776e-2 * t50 * t526 - 0.12574720000000000000e-5 * t50 * t561 * t5504 * t10 + 0.17464888888888888889e-4 * t5325 * t548 * t195 + 0.33532586666666666668e-6 * t206 * t978 * t553 * t564 + 0.42921710933333333336e-8 * t1972 * t833 * t1460 * t9 - 0.76845511111111111111e-4 * t1997 * t3066 + 0.87324444444444444443e-2 * t202 * t520 - 0.25530550044444444444e-3 * t5483 + 0.10631162538666666667e-9 * t5524 * t3764 - 0.76845511111111111111e-4 * t5527 * t4720 * t13 + 0.17464888888888888889e-4 * t513 * t5531 * t152 + 0.33532586666666666668e-6 * t518 * t5535 * t206;
1910   t5565 = t5524 * t4276;
1911   t5577 = t505 * t268 * sigma[0];
1912   t5587 = t89 * t151 * t10;
1913   t5594 = t3047 * t651;
1914   t5595 = t5594 * t151;
1915   t5601 = t2638 * t1824 * tau[0];
1916   t5612 = -0.17910551893333333334e2 * t99 * t5565 - 0.17794334720000000001e2 * t108 * t5565 - 0.11077489777777777778e3 * t99 * t678 - 0.11005610666666666667e3 * t108 * t678 + 0.10165120000000000000e4 * t279 * t661 + 0.47808113777777777779e3 * t99 * t5577 + 0.57924266666666666667e3 * t290 * t661 + 0.47497898666666666667e3 * t108 * t5577 + 0.43726933333333333333e3 * t273 * t661 - 0.10931733333333333333e3 * t5497 * t5587 - 0.24820394666666666666e2 * t652 * t4721 + 0.10839927466666666667e2 * t5494 * t1825 - 0.38298112000000000000e3 * t697 * t5595 - 0.17377280000000000000e3 * t667 * t5595 - 0.88971673600000000002e2 * t673 * t5601 - 0.52472320000000000000e2 * t684 * t5595 - 0.26168064000000000000e3 * t688 * t5595 - 0.67164569600000000002e2 * t691 * t5601 - 0.15613624320000000000e3 * t700 * t5601;
1917   t5625 = t651 * t25 * t10;
1918   t5635 = t268 * tau[0];
1919   t5636 = t5635 * t13;
1920   t5662 = 0.11977681578666666667e3 * t946 * t2068 + 0.11899961344000000000e3 * t960 * t2068 - 0.54516800000000000000e3 * t687 * t429 * t5587 - 0.79787733333333333333e3 * t696 * t429 * t5587 - 0.27425532586666666666e3 * t99 * t561 * t5625 - 0.36202666666666666667e3 * t666 * t429 * t5587 - 0.27247575040000000000e3 * t108 * t561 * t5625 - 0.13011353600000000000e4 * t279 * t344 * t5636 - 0.74143061333333333333e3 * t290 * t344 * t5636 + 0.12766037333333333333e4 * t2094 * t2100 + 0.57924266666666666667e3 * t2114 * t2100 + 0.47266201600000000000e3 * t291 * t2106 + 0.17490773333333333333e3 * t513 * t2100 + 0.87226880000000000000e3 * t2125 * t2100 + 0.35681177600000000000e3 * t274 * t2106 + 0.82947379200000000001e3 * t280 * t2106 - 0.55970474666666666667e3 * t273 * t344 * t5636 - 0.16209237333333333334e1 * t5565 + 0.43266844444444444446e2 * t5577 - 0.10025244444444444444e2 * t678;
1921   t5669 = t850 * t1148;
1922   t5674 = t840 * t9;
1923   t5681 = t861 * t9;
1924   t5688 = t372 * t192;
1925   t5689 = t146 * t361;
1926   t5721 = 0.3598297344e-5 * t5669 * t4066 + 0.533081088e-3 * t2186 * t2161 - 0.5552928e-2 * t5674 * t422 * t845 + 0.29615616000000000000e-1 * t2642 * t336 * t356 - 0.11105856e-1 * t5681 * t422 * t841 + 0.2776464e-2 * t2646 * t422 * t796 + 0.24877117440000000000e-2 * t5688 * t5689 * sigma[0] - 0.29615616000000000000e-1 * t2646 * t336 * t361 + 0.266540544e-3 * t2181 * t2156 + 0.10069210828800000000e-3 * t809 * t4721 - 0.29629627269120000000e-5 * t5494 * t837 - 0.72213992570880000000e-10 * t830 / t15 / t3760 * t3876 - 0.69655928832000000000e-4 * t168 * t561 * t347 * t25 * t10 + 0.133270272e-3 * t982 * t2144 - 0.133270272e-3 * t985 * t2147 + 0.91263482265600000000e-6 * t999 * t2151 - 0.2776464e-2 * t2642 * t422 * t789;
1927   t5722 = t364 * t192;
1928   t5723 = t146 * t356;
1929   t5727 = t1778 * sigma[0];
1930   t5730 = t5524 * t1765;
1931   t5741 = t850 * t9;
1932   t5753 = t850 * sigma[0];
1933   t5766 = -0.24877117440000000000e-2 * t5722 * t5723 * sigma[0] + 0.40474675200000000000e-2 * t168 * t5727 - 0.40940627558400000000e-8 * t168 * t5730 - 0.31260928000000000000e-1 * t168 * t818 - 0.15352735334400000000e-6 * t799 * t2666 * t3940 + 0.599716224e-6 * t373 * t1196 * t3897 + 0.16658784e-1 * t5741 * t853 - 0.1199432448e-5 * t844 * t1196 * t3860 - 0.2398864896e-5 * t862 * t1196 * t3893 + 0.15352735334400000000e-6 * t804 * t2666 * t3902 - 0.799621632e-3 * t5753 * t2192 + 0.25587892224000000000e-4 * t365 * t2195 - 0.25587892224000000000e-4 * t373 * t2198 - 0.599716224e-6 * t365 * t1196 * t3935 - 0.19472225280000000000e-2 * t5727 + 0.34853281136640000000e-7 * t5730 - 0.76510720000000000000e-2 * t818;
1934   t5769 = t8 * t441 * t1155 / 0.24e2 - t8 * t176 * t2567 / 0.8e1 - 0.3e1 / 0.16e2 * t8 * t12 * t5539 - 0.70983522622222222221e-3 * t8 * t583 * t2571 - 0.34246666666666666666e-1 * t313 * t587 * t2575 + 0.10647528393333333333e-2 * t8 * t232 * t84 * t2626 - 0.20000000000000000000e1 * t597 * t599 * t1178 + 0.10000000000000000000e1 * t239 * t627 * t1178 + 0.32163958997385070134e2 * t633 * t636 * t1178 + 0.20000000000000000000e1 * t239 * t260 * t2626 - 0.31090700000000000000e-1 * t85 * (t5612 + t5662) + t776 * t1200 + 0.2e1 * t331 * t2670 + t133 * (t5721 + t5766);
1935   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1936     v4rho2sigma2[0] = -t2534 / 0.8e1 - 0.3e1 / 0.8e1 * t2569 + 0.10647528393333333333e-2 * t2573 + 0.20000000000000000000e1 * t2576 - 0.62181400000000000000e-1 * t2627 + 0.2e1 * t2629 + 0.2e1 * t2671 + rho[0] * t5769;
1937 
1938   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1939     v4rho2sigmalapl[0] = 0.0e0;
1940 
1941   t5801 = t2317 * t32;
1942   t5825 = t2317 * t98;
1943   t5830 = t1188 * t201;
1944   t5838 = -0.81866666666666666665e0 * t2237 * t2240 - 0.85228657777777777781e-4 * t2273 * t1999 + 0.26826069333333333335e-6 * t978 * t49 * t140 * t564 * t9 + 0.17464888888888888890e-1 * t202 * t519 * sigma[0] - 0.56760888888888888891e0 * t222 * t1203 - 0.14408533333333333333e-1 * t5497 * t1982 * t13 + 0.65493333333333333333e-2 * t1415 * t5801 * t152 + 0.55887644444444444446e-4 * t684 * t5531 * t206 + 0.18556444444444444444e1 * t512 * t2227 - 0.81866666666666666665e0 * t1414 * t1058 * t2240 - 0.56760888888888888891e0 * t202 * t2224 - 0.85228657777777777781e-4 * t5527 * t1999 + 0.26826069333333333335e-6 * t1426 * t5535 * t9 - 0.14408533333333333333e-1 * t2243 * t32 * tau[0] * sigma[0] * t10 + 0.65493333333333333334e-2 * t5825 * sigma[0] * t4715 * t9 + 0.55887644444444444447e-4 * t5830 * t25 * t5299 + 0.18556444444444444445e1 * t2270 * t213 + 0.17464888888888888890e-1 * t2265 * t879;
1945   t5864 = t5594 * tau[0];
1946   t5867 = t5366 * t268;
1947   t5868 = t5867 * t151;
1948   t5901 = -0.16791142400000000000e3 * t1853 * t5864 - 0.36594432000000000000e4 * t1857 * t5868 - 0.83737804800000000002e3 * t1860 * t5864 - 0.18053253120000000000e4 * t280 * t2306 + 0.82947379200000000002e3 * t700 * t2309 - 0.43499946666666666666e4 * t1879 * t5868 - 0.12255395840000000000e4 * t1836 * t5864 - 0.10287349760000000000e4 * t291 * t2306 + 0.47266201600000000002e3 * t673 * t2309 - 0.17377280000000000000e4 * t1885 * t5868 - 0.55607296000000000003e3 * t1888 * t5864 + 0.21863466666666666667e3 * t2318 * t4452 - 0.77659033600000000001e3 * t274 * t2306 + 0.35681177600000000001e3 * t691 * t2309 - 0.11346304000000000000e4 * t1847 * t5868 - 0.36202666666666666667e4 * t2114 * t2345 - 0.79787733333333333333e4 * t2094 * t2345;
1949   t5917 = t2639 * t1824;
1950   t5925 = sigma[0] * t192 * t89;
1951   t5940 = 0.28365760000000000000e4 * t1415 * t2326 + 0.85704789333333333335e3 * t684 * t2329 + 0.91486080000000000000e4 * t4396 * t2326 + 0.42741171200000000000e4 * t688 * t2329 + 0.43443200000000000000e4 * t4411 * t2326 + 0.28382890666666666667e4 * t667 * t2329 - 0.87453866666666666667e2 * t151 * t5366 * t4477 - 0.53731655680000000002e2 * t273 * t5917 - 0.12490899456000000001e3 * t279 * t5917 - 0.71177338880000000006e2 * t290 * t5917 + 0.145969152e4 * t290 * t5925 + 0.110191872e4 * t273 * t5925 + 0.256161024e4 * t279 * t5925 + 0.10874986666666666667e5 * t4408 * t2326 + 0.62553582933333333334e4 * t697 * t2329 - 0.10931733333333333333e4 * t513 * t2345 - 0.54516800000000000000e4 * t2125 * t2345;
1952   t5965 = t1709 * t388;
1953   t5977 = -0.66635136e-1 * t4650 * t2409 + 0.33317568e-1 * t4663 * t2404 - 0.95954595840000000000e-5 * t4666 * t5012 - 0.11105856e-1 * t2757 * t2473 - 0.5552928e-2 * t2757 * t2477 + 0.16658784e-1 * t2203 * t2481 + 0.8329392e-2 * t2203 * t2486 + 0.16658784e-1 * t4663 * t2503 - 0.88846848000000000000e-1 * t2203 * t2506 + 0.55529280e-1 * t5965 * t2510 + 0.11846246400000000000e0 * t2782 * t2489 - 0.49458078720000000000e-2 * t373 * t2379 + 0.88846848000000000000e-3 * t373 * t2382 - 0.33317568e-4 * t373 * t992 * t2397;
1954   t6016 = 0.66635136e-4 * t2427 * t1239 + 0.49458078720000000000e-2 * t365 * t2373 - 0.88846848000000000000e-3 * t365 * t2376 + 0.33317568e-4 * t365 * t992 * t2448 + 0.16658784e-1 * t2203 * t2514 + 0.8329392e-2 * t2203 * t2518 - 0.22211712e-1 * t2782 * t2521 - 0.99952704e-4 * t2191 * t992 * t2485 + 0.2776464e-2 * t985 * t2420 - 0.199905408e-3 * t2191 * t992 * t2513 - 0.99952704e-4 * t2191 * t992 * t2517 + 0.266540544e-3 * t862 * t992 * t2466 + 0.133270272e-3 * t862 * t992 * t2469 - 0.31984865280000000000e-5 * t804 * t1000 * t5143 - 0.20470313779200000000e-6 * t1727 * t2150 * t3237;
1955   t6039 = t1676 * t391;
1956   t6044 = t1654 * t391;
1957   t6052 = -0.17769369600000000000e-2 * t844 * t2433 + 0.26654054400000000000e-2 * t2191 * t2436 + 0.29615616000000000000e-1 * t982 * t2439 - 0.39981081600000000000e-4 * t799 * t2443 - 0.2776464e-2 * t982 * t2450 + 0.133270272e-3 * t844 * t992 * t2472 + 0.66635136e-4 * t844 * t992 * t2476 - 0.199905408e-3 * t2191 * t992 * t2480 - 0.11105856e-1 * t2782 * t2524 + 0.799621632e-3 * t6039 * t4995 - 0.95954595840000000000e-5 * t4666 * t4889 - 0.399810816e-3 * t6044 * t4969 + 0.63969730560000000000e-5 * t840 * t885 * t5009 + 0.93782784000000000000e-1 * t985 * t2423;
1958   t6090 = -0.199905408e-3 * t4566 * t992 * t2502 - 0.666351360e-3 * t1710 * t992 * t2459 + 0.399810816e-3 * t4570 * t992 * t2495 - 0.5552928e-2 * t2426 * sigma[0] * t482 - 0.93782784000000000000e-1 * t982 * t2430 + 0.31984865280000000000e-5 * t799 * t1000 * t5114 + 0.20470313779200000000e-6 * t1722 * t2150 * t5118 + 0.26654054400000000000e-2 * t2191 * t2453 - 0.35538739200000000000e-2 * t862 * t2456 - 0.29615616000000000000e-1 * t985 * t2412 + 0.39981081600000000000e-4 * t804 * t2416 + 0.12793946112000000000e-4 * t861 * t885 * t4893 + 0.59231232000000000000e-1 * t2757 * t2492 - 0.33317568e-1 * t4650 * t2496 - 0.88846848000000000000e-1 * t2203 * t2499;
1959   t6094 = t8 * t441 * t1215 / 0.24e2 - t8 * t176 * t2704 / 0.8e1 - 0.3e1 / 0.16e2 * t8 * t12 * t5838 - 0.70983522622222222221e-3 * t8 * t583 * t2708 - 0.34246666666666666666e-1 * t313 * t587 * t2712 + 0.10647528393333333333e-2 * t8 * t232 * t84 * t2753 - 0.20000000000000000000e1 * t597 * t599 * t1234 + 0.10000000000000000000e1 * t239 * t627 * t1234 + 0.32163958997385070134e2 * t633 * t636 * t1234 + 0.20000000000000000000e1 * t239 * t260 * t2753 - 0.31090700000000000000e-1 * t85 * (t5901 + t5940) + t776 * t1247 + 0.2e1 * t331 * t2803 + t133 * (t5977 + t6016 + t6052 + t6090);
1960   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1961     v4rho2sigmatau[0] = -t2675 / 0.8e1 - 0.3e1 / 0.8e1 * t2706 + 0.10647528393333333333e-2 * t2710 + 0.20000000000000000000e1 * t2713 - 0.62181400000000000000e-1 * t2754 + 0.2e1 * t2756 + 0.2e1 * t2804 + rho[0] * t6094;
1962 
1963   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1964     v4rho2lapl2[0] = 0.0e0;
1965 
1966   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1967     v4rho2lapltau[0] = 0.0e0;
1968 
1969   t6109 = t101 * t201;
1970   t6112 = t1270 * t107 * t669;
1971   t6125 = t1982 * t9;
1972   t6142 = t1414 * t459 * tau[0];
1973   t6146 = t3643 * t1270 * t151 * t10;
1974   t6148 = t512 * t101;
1975   t6159 = t2255 * tau[0];
1976   t6161 = 0.24035555555555555556e2 * t6109 + 0.11093333333333333333e3 * t6112 + 0.44710115555555555560e-4 * t1853 * t5531 * t9 - 0.72042666666666666667e1 * t2238 * t2824 + 0.65493333333333333333e1 * t2856 * t107 * sigma[0] * t2239 * t9 + 0.20957866666666666668e-1 * t5825 * t25 * t6125 + 0.4126080e1 * t512 * t1145 * t21 - 0.16416995555555555556e-1 * t684 * t2023 * t10 + 0.65493333333333333333e1 * t3644 * t2856 * t21 * t152 + 0.20957866666666666668e-1 * t1847 * t5801 * t206 - 0.15530666666666666667e3 * t6142 + 0.11093333333333333333e3 * t6146 + 0.24035555555555555556e2 * t6148 + 0.4126080e1 * t2270 * t1024 - 0.16416995555555555556e-1 * t2243 * t2827 + 0.44710115555555555560e-4 * t5830 * t3710 - 0.72042666666666666667e1 * t1415 * t2230 * t43 - 0.15530666666666666667e3 * t6159;
1977   t6190 = 0.1e1 / t976;
1978   t6197 = t341 * t3047;
1979   t6198 = t6197 * t651;
1980   t6207 = t668 * t10;
1981   t6211 = t6190 * t89 * t151;
1982   t6214 = t5867 * tau[0];
1983   t6217 = t2099 * t9;
1984   t6226 = 0.21160533333333333333e4 * t6159 - 0.15114666666666666667e4 * t6146 - 0.32748444444444444444e3 * t6109 - 0.34924800000000000000e4 * t151 * t6190 * t4288 - 0.27985237333333333334e3 * tau[0] * t5366 * t4293 - 0.13432913920000000001e3 * t512 * t6198 - 0.66990243840000000005e3 * t687 * t6198 - 0.98043166720000000006e3 * t696 * t6198 - 0.44485836800000000001e3 * t666 * t6198 - 0.54593621333333333333e4 * t667 * t6207 - 0.78368000000000000000e5 * t4170 * t6211 - 0.11710218240000000000e5 * t4206 * t6214 + 0.43962347520000000002e4 * t1860 * t6217 - 0.82627200000000000000e5 * t4192 * t6211 - 0.13919982933333333333e5 * t4209 * t6214 + 0.64340828160000000002e4 * t1836 * t6217;
1985   t6251 = t2325 * t206;
1986   t6260 = -0.30410240000000000000e5 * t4198 * t6211 - 0.55607296000000000001e4 * t4201 * t6214 + 0.29193830400000000000e4 * t1888 * t6217 - 0.29643520000000000000e5 * t4154 * t6211 - 0.36308172800000000002e4 * t4159 * t6214 + 0.88153497600000000002e3 * t1853 * t6217 - 0.82211334400000000000e4 * t688 * t6207 - 0.12031990186666666667e5 * t697 * t6207 + 0.13118080000000000000e4 * t206 * t2317 * t1903 - 0.16485053866666666667e4 * t684 * t6207 - 0.15114666666666666667e4 * t6112 + 0.21160533333333333333e4 * t6142 - 0.32748444444444444444e3 * t6148 + 0.17019456000000000000e5 * t1847 * t6251 + 0.54891648000000000000e5 * t1857 * t6251 + 0.65249920000000000001e5 * t1879 * t6251 + 0.26065920000000000000e5 * t1885 * t6251;
1987   t6275 = t1097 * t1100;
1988   t6317 = 0.166587840e0 * t4020 * t422 * t2959 * t361 - 0.66635136e-1 * t1677 * t422 * t1122 * t1100 + 0.111058560e0 * t2509 * t422 * t6275 + 0.33317568e-1 * t1655 * t422 * t1108 * t1089 + 0.33317568e-1 * t1655 * t422 * t2951 * t356 + 0.33317568e-1 * t1655 * t422 * t2955 * t356 + 0.16658784e-1 * t1655 * t422 * t1298 * t789 - 0.66635136e-1 * t1677 * t422 * t2951 * t361 - 0.66635136e-1 * t1677 * t422 * t2955 * t361 - 0.33317568e-1 * t1677 * t422 * t1298 * t796 + 0.166587840e0 * t4020 * t422 * t1298 * t841 + 0.35538739200000000000e0 * t1677 * t336 * t2904 - 0.17769369600000000000e0 * t1655 * t336 * t2900;
1989   t6318 = t478 * t2397;
1990   t6340 = t1288 * t796;
1991   t6350 = 0.10140e2 * t840 * t6318 - 0.20280e2 * t1768 * t1250 + 0.20280e2 * t5210 * t1097 + 0.20280e2 * t2400 * t2466 - 0.30420e2 * t4104 * t2934 + 0.20280e2 * t1755 * t2937 + 0.13520000000000000000e3 * t793 * t446 - 0.13520000000000000000e3 * t446 * t2929 + 0.20280e2 * t1250 * t359 * t796 + 0.10140e2 * t2400 * t2469 - 0.15210e2 * t1654 * t6340 - 0.29293333333333333333e3 * t360 * t101 - 0.40560e2 * t1250 * t167 * t841 - 0.30420e2 * t5213 * t2459;
1992   t6352 = t1288 * t841;
1993   t6355 = t6197 * t347;
1994   t6371 = t9 * t1188 * t146;
1995   t6377 = t10 * t429 * t170;
1996   t6388 = 0.60840e2 * t4076 * t6352 + 0.68234379264000000000e-4 * t372 * t6355 + 0.81120e2 * t1755 * t2926 + 0.40560e2 * t840 * t1250 * t796 + 0.68234379264000000000e-4 * t364 * t6355 + 0.22211712e-1 * t2427 * t1303 - 0.35538739200000000000e-3 * t1755 * t140 * t2914 - 0.14926270464000000000e-1 * t799 * t6371 - 0.14926270464000000000e-1 * t804 * t6371 + 0.93042393600000000000e0 * t365 * t6377 + 0.93042393600000000000e0 * t373 * t6377 + 0.25469429760000000000e-2 * t1797 * t1778 * t1293 + 0.50938859520000000000e-2 * t1812 * t1778 * t1288;
1997   t6402 = t2908 * t366;
1998   t6405 = t1302 * t863;
1999   t6408 = t2908 * t374;
2000   t6423 = t1089 * t1089;
2001   t6431 = -0.121680e3 * t1654 * t1250 * t841 - 0.27040000000000000000e3 * t840 * t446 * t361 - 0.133270272e0 * t4076 * t26 * t30 * t481 * t2408 + 0.29615616000000000000e-1 * t2980 * t2974 - 0.38500300800000000000e0 * t844 * t6402 + 0.133270272e0 * t4570 * t6405 + 0.57750451200000000000e0 * t2191 * t6408 + 0.66635136e-1 * t4566 * t1302 * t846 - 0.57750451200000000000e0 * t2191 * t6402 + 0.222117120e0 * t1710 * t6405 + 0.77000601600000000000e0 * t862 * t6408 - 0.93782784000000000000e-1 * t844 * t525 * t1294 - 0.5552928e-2 * t844 * t101 * t170 * t6423 - 0.18756556800000000000e0 * t862 * t525 * t1306;
2002   t6434 = t1100 * t1100;
2003   t6445 = t1288 * t10;
2004   t6449 = t1302 * t813;
2005   t6452 = t2917 * t5689;
2006   t6455 = t1302 * t821;
2007   t6458 = t2917 * t5723;
2008   t6474 = -0.11105856e-1 * t862 * t101 * t170 * t6434 + 0.35538739200000000000e-2 * t4008 * t800 * t2934 - 0.14215495680000000000e-2 * t1812 * t800 * t2937 - 0.17058594816000000000e-4 * t3892 * t809 * t6445 - 0.33317568e-1 * t2191 * t6449 - 0.42646487040000000000e-2 * t1697 * t6452 + 0.33317568e-1 * t2191 * t6455 + 0.42646487040000000000e-2 * t1697 * t6458 - 0.44423424e-1 * t862 * t6449 - 0.56861982720000000000e-2 * t1812 * t6452 + 0.10661621760000000000e-2 * t3888 * t800 * t2943 - 0.76408289280000000000e-2 * t1697 * t1778 * t1298 - 0.2776464e-2 * t4096 * t25 * t1295;
2009   t6488 = t1293 * t10;
2010   t6511 = 0.10661621760000000000e-2 * t1697 * t800 * t2951 + 0.10661621760000000000e-2 * t1697 * t800 * t2955 + 0.22211712e-1 * t844 * t6455 + 0.28430991360000000000e-2 * t1797 * t6458 - 0.71077478400000000000e-3 * t1797 * t800 * t2947 - 0.85292974080000000000e-5 * t3859 * t809 * t6488 - 0.21323243520000000000e-2 * t3944 * t800 * t2959 - 0.29293333333333333333e3 * t101 * t160 + 0.10140e2 * t840 * t6434 - 0.5070e1 * t5216 * t478 - 0.10140e2 * t2385 * t1100 - 0.5070e1 * t1092 * t2397 + 0.5070e1 * t4096 * t1288 - 0.33317568e-1 * t4077 * t422 * t1288 * t845;
2011   t6534 = t4968 * t1122;
2012   t6537 = t4968 * t1097;
2013   t6546 = t4104 * t26;
2014   t6551 = 0.17769369600000000000e0 * t1677 * t336 * t2959 - 0.166587840e0 * t4914 * t422 * t6352 - 0.29615616000000000000e0 * t2509 * t336 * t2934 - 0.33317568e-1 * t4077 * t422 * t1293 * t841 - 0.88846848000000000000e-1 * t1655 * t336 * t2943 + 0.16658784e-1 * t5022 * t1299 + 0.28134835200000000000e0 * t851 * t825 * t1298 + 0.21323243520000000000e-2 * t4967 * t6534 - 0.42646487040000000000e-2 * t4993 * t6537 - 0.88846848000000000000e-1 * t851 * t336 * t2951 - 0.88846848000000000000e-1 * t851 * t336 * t2955 + 0.16658784e-1 * t6546 * t2944 - 0.11105856e-1 * t4952 * t2948;
2015   t6552 = t5008 * t2415;
2016   t6555 = t1654 * t4721;
2017   t6556 = t1270 * t170;
2018   t6557 = t6556 * t852;
2019   t6560 = t1676 * t4721;
2020   t6601 = 0.25587892224000000000e-4 * t4064 * t6552 - 0.133270272e0 * t6555 * t6557 - 0.266540544e0 * t6560 * t6557 + 0.8329392e-2 * t1655 * t422 * t1293 * t796 + 0.59231232000000000000e-1 * t1103 * t336 * t2947 - 0.5552928e-2 * t1103 * t422 * t475 * t2448 + 0.8329392e-2 * t851 * t422 * t2448 * t478 + 0.16658784e-1 * t851 * t422 * t1089 * t1100 + 0.8329392e-2 * t851 * t422 * t475 * t2397 - 0.16658784e-1 * t1677 * t422 * t1288 * t789 + 0.27764640e-1 * t2509 * t422 * t6340 + 0.11846246400000000000e0 * t1126 * t336 * t2937 - 0.11105856e-1 * t1126 * t422 * t6318 - 0.60840e2 * t1654 * t6275;
2021   t6606 = t8 * t441 * t1263 / 0.24e2 - t8 * t176 * t2840 / 0.8e1 - 0.3e1 / 0.16e2 * t8 * t12 * t6161 - 0.70983522622222222221e-3 * t8 * t583 * t2844 - 0.34246666666666666666e-1 * t313 * t587 * t2848 + 0.10647528393333333333e-2 * t8 * t232 * t84 * t2888 - 0.20000000000000000000e1 * t597 * t599 * t1281 + 0.10000000000000000000e1 * t239 * t627 * t1281 + 0.32163958997385070134e2 * t633 * t636 * t1281 + 0.20000000000000000000e1 * t239 * t260 * t2888 - 0.31090700000000000000e-1 * t85 * (t6226 + t6260) + t776 * t1312 + 0.2e1 * t331 * t2997 + t133 * (t6317 + t6350 + t6388 + t6431 + t6474 + t6511 + t6551 + t6601);
2022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2023     v4rho2tau2[0] = -t2808 / 0.8e1 - 0.3e1 / 0.8e1 * t2842 + 0.10647528393333333333e-2 * t2846 + 0.20000000000000000000e1 * t2849 - 0.62181400000000000000e-1 * t2889 + 0.2e1 * t2891 + 0.2e1 * t2998 + rho[0] * t6606;
2024 
2025   t6614 = t25 * t978;
2026   t6617 = t140 * t2638;
2027   t6623 = t202 * t429;
2028   t6630 = t564 * sigma[0];
2029   t6638 = t1188 * t564;
2030   t6646 = 0.30646272e-4 * t2537 - 0.78436761600000000000e-6 * t2563 * t13 + 0.10277617664000000000e-7 * t6614 * t1461 - 0.39866859520000000001e-10 * t6617 * t3764 + 0.78592000000000000000e-5 * t43 * t2687 * t195 + 0.78592000000000000000e-5 * t6623 * t4720 * t10 - 0.37724160e-4 * t50 * t2537 + 0.35209216000000000000e-6 * t50 * t344 * t6630 * t10 - 0.62873600000000000000e-7 * t206 * t1188 * t208 * t564 - 0.62873600000000000000e-7 * t212 * t6638 * t206 - 0.16095641600000000001e-8 * t221 * t978 * t1460 * t9;
2031   t6664 = t6617 * t4276;
2032   t6682 = t3047 * t1824 * tau[0];
2033   t6685 = t273 * t429;
2034   t6686 = t5635 * t10;
2035   t6689 = t279 * t429;
2036   t6694 = t651 * sigma[0] * t10;
2037   t6703 = t290 * t429;
2038   t6709 = -0.33431552000000000001e1 * t6614 * t1825 - 0.36700815360000000001e2 * t109 * t2616 + 0.16682188800000000000e2 * t291 * t6682 + 0.39354240e2 * t6685 * t6686 + 0.91486080000000000000e2 * t6689 * t6686 + 0.62966784000000000000e2 * t99 * t344 * t6694 - 0.36940513280000000001e2 * t100 * t2616 + 0.1259335680e2 * t274 * t6682 + 0.29275545600000000000e2 * t280 * t6682 + 0.52131840000000000000e2 * t6703 * t6686 + 0.62558208000000000000e2 * t108 * t344 * t6694;
2039   t6719 = t6617 * t1765;
2040   t6751 = 0.195955200e-3 * t800 - 0.19459574784000000000e-4 * t1000 * t13 + 0.78357793996800000000e-6 * t6614 * t837 - 0.11283436339200000000e-7 * t6719 + 0.27080247214080000000e-10 * t341 / t15 / t1761 * t3876 + 0.199905408e-3 * t364 * t993 - 0.199905408e-3 * t372 * t996 - 0.533081088e-3 * t168 * t800 + 0.15992432640000000000e-4 * t168 * t344 * t347 * sigma[0] * t10 - 0.3598297344e-5 * t982 * t2660 + 0.3598297344e-5 * t985 * t2663 - 0.28146681446400000000e-6 * t169 * t2667 + 0.28786378752e-7 * t365 * t3055 * t3940 - 0.28786378752e-7 * t373 * t3055 * t3902 + 0.15352735334400000000e-8 * t168 * t6719;
2041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2042     v4rhosigma3[0] = -t3018 - t3041 + t3060 + rho[0] * (-t8 * t176 * t3015 / 0.16e2 - 0.3e1 / 0.16e2 * t8 * t12 * t6646 + 0.53237641966666666666e-3 * t8 * t232 * t84 * t3039 + 0.10000000000000000000e1 * t239 * t260 * t3039 - 0.31090700000000000000e-1 * t85 * (-0.472250880e2 * t930 * t2602 - 0.10978329600000000000e3 * t933 * t2602 - 0.62558208000000000000e2 * t951 * t2602 - 0.5698560e1 * t2582 + 0.60784640000000000002e0 * t6664 - 0.62966784e2 * t99 * t2582 + 0.67164569600000000002e1 * t99 * t6664 - 0.62558208e2 * t108 * t2582 + 0.66728755200000000002e1 * t108 * t6664 + 0.56985600000000000000e1 * t947 * t13 + t6709) + t331 * t3059 + t133 * t6751);
2043 
2044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2045     v4rhosigma2lapl[0] = 0.0e0;
2046 
2047   t6764 = t2317 * t201;
2048   t6772 = t512 * t1058;
2049   t6779 = t2317 * t195;
2050   t6807 = t3048 * t1824;
2051   t6819 = t5366 * t651 * tau[0];
2052   t6823 = t89 * tau[0] * t10;
2053   t6826 = -0.10494464000000000000e3 * t513 * t2725 - 0.523361280e3 * t2125 * t2725 - 0.76596224000000000000e3 * t2094 * t2725 - 0.34754560000000000000e3 * t2114 * t2725 - 0.13773984e3 * t273 * t275 + 0.20149370880000000001e2 * t273 * t6807 - 0.32020128e3 * t279 * t275 + 0.46840872960000000001e2 * t279 * t6807 - 0.18246144e3 * t290 * t275 + 0.26691502080000000001e2 * t290 * t6807 + 0.10426368000000000000e3 * t667 * t6819 + 0.65590400000000000000e2 * t6772 * t6823;
2054   t6831 = t268 * sigma[0] * t10;
2055   t6856 = 0.32710080e3 * t687 * t1058 * t6823 + 0.17315865600000000000e3 * t6685 * t6831 - 0.10861770240000000000e3 * t274 * t2730 + 0.31483392000000000000e2 * t684 * t6819 + 0.1570083840e3 * t688 * t6819 + 0.47872640000000000000e3 * t696 * t1058 * t6823 + 0.40253875200000000000e3 * t6689 * t6831 - 0.25250158080000000000e3 * t280 * t2730 + 0.22978867200000000000e3 * t697 * t6819 + 0.21721600000000000000e3 * t666 * t1058 * t6823 + 0.22938009600000000000e3 * t6703 * t6831 - 0.14388387840000000000e3 * t291 * t2730;
2056   t6895 = -0.14807808000000000000e-1 * t2646 * t336 * t478 - 0.2776464e-2 * t2642 * t422 * t1089 - 0.12438558720000000000e-2 * t5722 * t4968 * sigma[0] + 0.133270272e-3 * t982 * t2777 + 0.2776464e-2 * t2646 * t422 * t1100 + 0.12438558720000000000e-2 * t5688 * t4994 * sigma[0] - 0.133270272e-3 * t985 * t2800 + 0.14807808000000000000e-1 * t2642 * t336 * t475 + 0.266540544e-3 * t2181 * t2768 - 0.399810816e-3 * t5753 * t2771 + 0.12793946112000000000e-4 * t365 * t2774 - 0.599716224e-6 * t365 * t1196 * t5114 - 0.76763676672000000000e-7 * t799 * t2666 * t5118;
2057   t6926 = 0.8329392e-2 * t5741 * t1123 - 0.11105856e-1 * t5681 * t1127 - 0.399810816e-3 * t5753 * t2791 + 0.533081088e-3 * t2186 * t2794 - 0.12793946112000000000e-4 * t373 * t2797 + 0.599716224e-6 * t373 * t1196 * t5143 + 0.76763676672000000000e-7 * t804 * t2666 * t3237 - 0.5552928e-2 * t5674 * t1105 + 0.8329392e-2 * t5741 * t1109 - 0.1199432448e-5 * t840 * t1148 * t5009 + 0.1799148672e-5 * t5669 * t5012 + 0.1799148672e-5 * t5669 * t4889 - 0.2398864896e-5 * t861 * t1148 * t4893;
2058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2059     v4rhosigma2tau[0] = -t3079 - t3103 + t3121 + rho[0] * (-t8 * t176 * t3076 / 0.16e2 - 0.3e1 / 0.16e2 * t8 * t12 * (-0.2750720e-2 * t1028 * t32 + 0.13098666666666666667e-2 * t2683 * t2245 + 0.23577600000000000000e-4 * t2687 * t3066 - 0.10478933333333333333e-4 * t6764 * sigma[0] * t5299 - 0.10059776000000000000e-6 * t1188 * t49 * t5504 * t9 + 0.13098666666666666667e-2 * t6772 * t2245 - 0.2750720e-2 * t202 * t907 + 0.23577600000000000000e-4 * t6623 * t3066 - 0.10478933333333333333e-4 * t513 * t6779 * t206 - 0.10059776000000000000e-6 * t518 * t6638 * t9) + 0.53237641966666666666e-3 * t8 * t232 * t84 * t3101 + 0.10000000000000000000e1 * t239 * t260 * t3101 - 0.31090700000000000000e-1 * t85 * (t6826 + t6856) + t331 * t3120 + t133 * (t6895 + t6926));
2060 
2061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2062     v4rhosigmalapl2[0] = 0.0e0;
2063 
2064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2065     v4rhosigmalapltau[0] = 0.0e0;
2066 
2067   t6940 = t2856 * t98;
2068   t6953 = t2856 * t32;
2069   t6971 = t140 * t5366;
2070   t6972 = t6971 * t651;
2071   t6996 = 0.50373427200000000002e2 * t512 * t6972 + 0.25121341440000000001e3 * t687 * t6972 + 0.36766187520000000001e3 * t696 * t6972 + 0.16682188800000000001e3 * t666 * t6972 + 0.52472320000000000000e2 * tau[0] * t6190 * t4477 + 0.24893772800000000000e4 * t2094 * t2864 - 0.65249920000000000000e4 * t4408 * t2861 + 0.11295232000000000000e4 * t2114 * t2864 - 0.260659200e4 * t4411 * t2861 + 0.34107008000000000000e3 * t513 * t2864 - 0.17019456000000000000e4 * t1415 * t2861;
2072   t7002 = t6190 * t268 * tau[0];
2073   t7021 = 0.17009241600000000000e4 * t2125 * t2864 - 0.54891648000000000000e4 * t4396 * t2861 + 0.26099968000000000000e4 * t1879 * t7002 - 0.86886400000000000001e3 * t667 * t2867 + 0.1042636800e4 * t1885 * t7002 - 0.13118080000000000000e3 * t2857 * t4452 - 0.26236160000000000000e3 * t684 * t2867 + 0.68077824000000000000e3 * t1847 * t7002 - 0.13084032000000000000e4 * t688 * t2867 + 0.21956659200000000000e4 * t1857 * t7002 - 0.19149056000000000000e4 * t697 * t2867;
2074   t7042 = t6971 * t347;
2075   t7066 = t3172 * t5723;
2076   t7069 = t3172 * t5689;
2077   t7076 = 0.133270272e-3 * t844 * t992 * t2947 + 0.31984865280000000000e-5 * t1797 * t1000 * t6488 + 0.26654054400000000000e-2 * t2191 * t2983 - 0.199905408e-3 * t2191 * t992 * t2951 - 0.199905408e-3 * t2191 * t992 * t2955 + 0.44423424e-1 * t2181 * t2986 - 0.66635136e-1 * t5753 * t2989 - 0.533081088e-3 * t844 * t7066 + 0.799621632e-3 * t2191 * t7069 + 0.59231232000000000000e-1 * t2186 * t2977 + 0.29615616000000000000e-1 * t2181 * t2974;
2078   t7106 = 0.399810816e-3 * t4570 * t992 * t2959 - 0.666351360e-3 * t1710 * t992 * t2934 + 0.266540544e-3 * t862 * t992 * t2937 + 0.63969730560000000000e-5 * t1812 * t1000 * t6445 + 0.66635136e-1 * t5753 * t2986 - 0.88846848e-1 * t2186 * t2989 - 0.799621632e-3 * t2191 * t7066 + 0.1066162176e-2 * t862 * t7069 - 0.5552928e-2 * t1755 * sigma[0] * t1295 - 0.199905408e-3 * t4566 * t992 * t2943 - 0.19250150400000000000e0 * t985 * t2909;
2079   t7129 = -0.88846848000000000000e-1 * t2203 * t2969 - 0.95954595840000000000e-5 * t4666 * t6552 - 0.33317568e-1 * t4650 * t2960 + 0.55529280e-1 * t5965 * t2963 - 0.22211712e-1 * t2782 * t2966 + 0.16658784e-1 * t4663 * t2944 - 0.11105856e-1 * t2757 * t2948 + 0.16658784e-1 * t2203 * t2952 + 0.16658784e-1 * t2203 * t2956 - 0.399810816e-3 * t6044 * t6534 + 0.799621632e-3 * t6039 * t6537;
2080   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2081     v4rhosigmatau2[0] = -t3138 - t3159 + t3186 + rho[0] * (-t8 * t176 * t3135 / 0.16e2 - 0.3e1 / 0.16e2 * t8 * t12 * (-0.589440e0 * t1023 * t21 + 0.49120000000000000000e0 * t2822 * t2824 + 0.44535466666666666667e-2 * t2683 * t1993 - 0.39296000000000000000e-2 * t6940 * sigma[0] * t6125 - 0.16766293333333333334e-4 * t6764 * t4766 + 0.491200e0 * t1414 * t1270 * t2824 - 0.589440e0 * t512 * t1032 + 0.44535466666666666667e-2 * t6772 * t1993 - 0.3929600e-2 * t1415 * t6953 * t206 - 0.16766293333333333334e-4 * t684 * t6779 * t9) + 0.53237641966666666666e-3 * t8 * t232 * t84 * t3157 + 0.10000000000000000000e1 * t239 * t260 * t3157 - 0.31090700000000000000e-1 * t85 * (t6996 + t7021) + t331 * t3185 + t133 * (0.33317568e-1 * t4663 * t2901 - 0.66635136e-1 * t4650 * t2905 + 0.44423424000000000000e-2 * t373 * t2918 - 0.88846848000000000000e-3 * t844 * t2914 + 0.66635136e-4 * t2980 * t3162 + 0.44423424000000000000e-2 * t365 * t2918 - 0.17769369600000000000e-2 * t862 * t2921 - 0.19250150400000000000e0 * t982 * t2909 - 0.25587892224000000000e-4 * t372 * t7042 - 0.25587892224000000000e-4 * t364 * t7042 + t7076 + t7106 + t7129));
2082 
2083   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2084     v4rholapl3[0] = 0.0e0;
2085 
2086   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2087     v4rholapl2tau[0] = 0.0e0;
2088 
2089   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2090     v4rholapltau2[0] = 0.0e0;
2091 
2092   t7140 = t3194 * t107 * t43;
2093   t7144 = t3643 * t3194 * tau[0] * t10;
2094   t7146 = t1414 * t1255;
2095   t7186 = 0.1e1 / t1186;
2096   t7188 = t25 * t89;
2097   t7197 = t7186 * t89 * tau[0];
2098   t7200 = t2860 * t9;
2099   t7204 = t140 * t6190 * t268;
2100   t7225 = -0.680160e3 * t2812 + 0.90688000000000000000e3 * t7140 + 0.90688000000000000000e3 * t7144 - 0.680160e3 * t7146 - 0.40666048000000000000e3 * t3172 * t1903 + 0.20954880000000000000e4 * t7186 * t107 * t7188 * tau[0] + 0.83955712000000000003e2 * t6190 * t98 * t140 * t268 + 0.17786112000000000000e5 * t4154 * t7197 - 0.52760313600000000000e4 * t1847 * t7200 + 0.10892451840000000000e4 * t1414 * t7204 + 0.47020800000000000000e5 * t4170 * t7197 - 0.17016410880000000000e5 * t1857 * t7200 + 0.35130654720000000001e4 * t1856 * t7204 + 0.49576320000000000000e5 * t4192 * t7197 - 0.20227475200000000000e5 * t1879 * t7200 + 0.41759948800000000001e4 * t1878 * t7204 + 0.18246144000000000000e5 * t4198 * t7197 - 0.80804352000000000000e4 * t1885 * t7200 + 0.16682188800000000001e4 * t1884 * t7204;
2101   t7251 = t2908 * t485;
2102   t7254 = t2908 * t481;
2103   t7266 = t3234 * t361;
2104   t7269 = t1288 * t1100;
2105   t7272 = -0.99952704e-1 * t1677 * t422 * t1298 * t1100 - 0.99952704e-1 * t4077 * t422 * t3246 * t361 + 0.49976352e-1 * t1655 * t422 * t1298 * t1089 - 0.99952704e-1 * t4077 * t422 * t3253 * t356 + 0.249881760e0 * t4020 * t422 * t3253 * t361 + 0.14807808000000000000e-1 * t3243 * t378 + 0.86625676800000000000e0 * t2191 * t7251 - 0.86625676800000000000e0 * t2191 * t7254 - 0.14807808000000000000e0 * t1710 * t222 * t3262 - 0.57750451200000000000e0 * t844 * t7254 + 0.30420e2 * t2400 * t2937 - 0.60840e2 * t2385 * t1250 + 0.60840e2 * t4076 * t7266 - 0.45630e2 * t1654 * t7269;
2106   t7292 = t1302 * t1118;
2107   t7295 = t2917 * t4968;
2108   t7301 = t1302 * t1136;
2109   t7304 = t2917 * t4994;
2110   t7311 = -0.121680e3 * t1250 * t167 * t478 * t361 + 0.121680e3 * t2400 * t2926 + 0.121680e3 * t1755 * t3238 + 0.121680e3 * t840 * t1100 * t9 * t155 - 0.17769369600000000000e-3 * t3242 * t339 - 0.40560000000000000000e3 * t840 * t3237 * t353 + 0.66635136e-1 * t2980 * t3250 + 0.66635136e-1 * t844 * t7292 + 0.42646487040000000000e-2 * t1797 * t7295 - 0.31984865280000000000e-2 * t3944 * t800 * t3253 - 0.99952704e-1 * t2191 * t7301 - 0.63969730560000000000e-2 * t1697 * t7304 + 0.99952704e-1 * t2191 * t7292 + 0.63969730560000000000e-2 * t1697 * t7295;
2111   t7318 = t1293 * t167 * t25;
2112   t7322 = t3241 * t371 * t25;
2113   t7349 = -0.133270272e0 * t862 * t7301 - 0.85292974080000000000e-2 * t1812 * t7304 - 0.8329392e-2 * t7318 * t1119 + 0.8329392e-2 * t7322 * t375 + 0.15992432640000000000e-2 * t3888 * t800 * t3246 + 0.11550090240000000000e1 * t862 * t7251 - 0.20280000000000000000e3 * t446 * t3227 + 0.20280000000000000000e3 * t1092 * t446 + 0.15210e2 * t5210 * t1288 - 0.15210e2 * t4104 * t3234 + 0.60840e2 * t1250 * t359 * t1100 - 0.45630e2 * t5213 * t2934 - 0.365040e3 * t1654 * t478 * t2926 + 0.17769369600000000000e-2 * t4008 * t800 * t3234;
2114   t7353 = t6556 * t1108;
2115   t7366 = t6556 * t1122;
2116   t7370 = t6556 * t1097;
2117   t7395 = 0.199905408e0 * t6555 * t6556 * t1104 - 0.399810816e0 * t6560 * t7353 + 0.83293920e-1 * t4020 * t422 * t3234 * t356 - 0.166587840e0 * t4914 * t422 * t7266 + 0.83293920e-1 * t2509 * t422 * t7269 - 0.399810816e0 * t6560 * t7366 + 0.666351360e0 * t1709 * t4721 * t7370 + 0.24988176e-1 * t6546 * t3247 + 0.24988176e-1 * t1655 * t422 * t1293 * t1100 - 0.199905408e0 * t6555 * t7353 - 0.49976352e-1 * t1677 * t422 * t1089 * t1288 - 0.199905408e0 * t6555 * t7366 + 0.399810816e0 * t6560 * t7370 - 0.13327027200000000000e0 * t1655 * t336 * t3246 + 0.26654054400000000000e0 * t1677 * t336 * t3253;
2118   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2119     v4rhotau3[0] = -t3206 - t3226 + t3269 + rho[0] * (-t8 * t176 * t3203 / 0.16e2 - 0.3e1 / 0.16e2 * t8 * t12 * (0.49920e2 * t2812 - 0.66560000000000000000e2 * t7140 - 0.66560000000000000000e2 * t7144 + 0.49920e2 * t7146 + 0.22595200000000000000e1 * t2822 * t3196 - 0.39296000000000000000e1 * t3210 * t107 * sigma[0] * t21 * t9 * tau[0] - 0.62873600000000000002e-2 * t6940 * t1029 * t9 - 0.39296000000000000000e1 * t3644 * t3210 * t21 * t206 + 0.22595200000000000000e1 * t1415 * t2830 * t10 - 0.62873600000000000002e-2 * t1847 * t6953 * t9) + 0.53237641966666666666e-3 * t8 * t232 * t84 * t3224 + 0.10000000000000000000e1 * t239 * t260 * t3224 - 0.31090700000000000000e-1 * t85 * t7225 + t331 * t3268 + t133 * (t7272 + t7311 + t7349 + t7395));
2120 
2121   t7402 = sigma[0] * t1188;
2122   t7405 = t25 * t3047;
2123   t7421 = t7405 * t4276;
2124   t7441 = t7405 * t1765;
2125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2126     v4sigma4[0] = rho[0] * (-0.3e1 / 0.16e2 * t8 * t12 * (0.108011520e-6 * t3012 - 0.2732851200e-8 * t7402 * t1461 + 0.14950072320e-10 * t7405 * t3764 - 0.75448320e-7 * t50 * t3012 + 0.603586560e-9 * t52 * t1188 * t1460 * t9) - 0.31090700000000000000e-1 * t85 * (-0.8547840e0 * t1169 + 0.91176960e0 * t7402 * t1825 - 0.227942400e0 * t7421 - 0.94450176e1 * t99 * t1169 + 0.1007468544e2 * t407 * t3030 - 0.2518671360e1 * t99 * t7421 - 0.93837312e1 * t108 * t1169 + 0.1000931328e2 * t412 * t3030 - 0.2502328320e1 * t108 * t7421) + t133 * (0.2155009536e-5 * t1197 - 0.166903068672e-6 * t7402 * t837 + 0.3385030901760e-8 * t7441 - 0.10155092705280e-10 * t140 / t15 / t2174 * t3876 - 0.2398864896e-5 * t168 * t1197 + 0.76763676672e-7 * t433 * t3056 - 0.575727575040e-9 * t168 * t7441));
2127 
2128   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2129     v4sigma3lapl[0] = 0.0e0;
2130 
2131   t7479 = t25 * t5366 * t1824;
2132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2133     v4sigma3tau[0] = rho[0] * (-0.3e1 / 0.16e2 * t8 * t12 * (-0.4715520e-5 * t3064 * t195 * t10 + 0.37724160e-7 * t2317 * t49 * t6630 * t9 - 0.4715520e-5 * t202 * t3073 + 0.37724160e-7 * t212 * t2317 * t564 * t9) - 0.31090700000000000000e-1 * t85 * (-0.23612544e2 * t273 * t1223 + 0.283350528e2 * t930 * t3086 - 0.755601408e1 * t273 * t7479 - 0.54891648e2 * t279 * t1223 + 0.658699776e2 * t933 * t3086 - 0.1756532736e2 * t279 * t7479 - 0.31279104e2 * t290 * t1223 + 0.375349248e2 * t951 * t3086 - 0.1000931328e2 * t290 * t7479) + t133 * (0.199905408e-3 * t364 * t1239 - 0.3598297344e-5 * t982 * t3109 + 0.28786378752e-7 * t365 * t3055 * t5118 - 0.199905408e-3 * t372 * t1244 + 0.3598297344e-5 * t985 * t3117 - 0.28786378752e-7 * t373 * t3055 * t3237));
2134 
2135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2136     v4sigma2lapl2[0] = 0.0e0;
2137 
2138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2139     v4sigma2lapltau[0] = 0.0e0;
2140 
2141   t7535 = t25 * t6190;
2142   t7536 = t7535 * t651;
2143   t7557 = -0.3935424e2 * t512 * t1272 + 0.62966784e2 * t513 * t3142 - 0.188900352e2 * t512 * t7536 - 0.19626048e3 * t687 * t1272 + 0.314016768e3 * t2125 * t3142 - 0.942050304e2 * t687 * t7536 - 0.28723584e3 * t696 * t1272 + 0.459577344e3 * t2094 * t3142 - 0.1378732032e3 * t696 * t7536 - 0.13032960e3 * t666 * t1272 + 0.208527360e3 * t2114 * t3142 - 0.625582080e2 * t666 * t7536;
2144   t7578 = t7535 * t347;
2145   t7595 = -0.5552928e-2 * t5674 * t422 * t1293 + 0.266540544e-3 * t2181 * t3162 - 0.1199432448e-5 * t844 * t1196 * t6488 + 0.16658784e-1 * t5741 * t1299 - 0.799621632e-3 * t5753 * t3167 + 0.3598297344e-5 * t5669 * t6552 + 0.22211712e-1 * t364 * t1303 - 0.1066162176e-2 * t982 * t3173 + 0.9595459584e-5 * t364 * t7578 - 0.11105856e-1 * t5681 * t422 * t1288 + 0.533081088e-3 * t2186 * t3178 - 0.2398864896e-5 * t862 * t1196 * t6445 + 0.22211712e-1 * t372 * t1303 - 0.1066162176e-2 * t985 * t3173 + 0.9595459584e-5 * t372 * t7578;
2146   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2147     v4sigma2tau2[0] = rho[0] * (-0.3e1 / 0.16e2 * t8 * t12 * (-0.785920e-3 * t3125 * t32 * t10 + 0.6287360e-5 * t2856 * t201 * t3065 * t9 - 0.785920e-3 * t512 * t3132 + 0.6287360e-5 * t513 * t2856 * t195 * t9) - 0.31090700000000000000e-1 * t85 * t7557 + t133 * t7595);
2148 
2149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2150     v4sigmalapl3[0] = 0.0e0;
2151 
2152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2153     v4sigmalapl2tau[0] = 0.0e0;
2154 
2155   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2156     v4sigmalapltau2[0] = 0.0e0;
2157 
2158   t7623 = t25 * t7186 * t268;
2159   t7653 = t3172 * t4968;
2160   t7663 = t3172 * t4994;
2161   t7679 = -0.5552928e-2 * t3242 * sigma[0] * t171 + 0.66635136e-4 * t3242 * t425 + 0.49976352e-1 * t4663 * t3247 - 0.599716224e-3 * t4566 * t992 * t3246 + 0.133270272e0 * t2181 * t3250 - 0.1599243264e-2 * t844 * t7653 - 0.99952704e-1 * t4650 * t3254 + 0.1199432448e-2 * t4570 * t992 * t3253 - 0.199905408e0 * t5753 * t3257 + 0.2398864896e-2 * t2191 * t7663 + 0.199905408e0 * t5753 * t3250 - 0.2398864896e-2 * t2191 * t7653 + 0.55529280e-1 * t4552 * t3263 - 0.666351360e-3 * t1710 * t992 * t3234 - 0.266540544e0 * t2186 * t3257 + 0.3198486528e-2 * t862 * t7663;
2162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2163     v4sigmatau3[0] = rho[0] * (-0.3e1 / 0.16e2 * t8 * t12 * (-0.294720e0 * t3195 * t21 * t10 + 0.2357760e-2 * t3210 * t98 * t4761 - 0.294720e0 * t1414 * t3200 + 0.2357760e-2 * t1415 * t3210 * t32 * t9) - 0.31090700000000000000e-1 * t85 * (0.7870848e2 * t3211 * t4452 - 0.31483392e2 * t7186 * t98 * t25 * t268 + 0.102116736e4 * t1415 * t3215 - 0.408466944e3 * t1414 * t7623 + 0.329349888e4 * t4396 * t3215 - 0.1317399552e4 * t1856 * t7623 + 0.391499520e4 * t4408 * t3215 - 0.1565998080e4 * t1878 * t7623 + 0.156395520e4 * t4411 * t3215 - 0.625582080e3 * t1884 * t7623) + t133 * t7679);
2164 
2165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2166     v4lapl4[0] = 0.0e0;
2167 
2168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2169     v4lapl3tau[0] = 0.0e0;
2170 
2171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2172     v4lapl2tau2[0] = 0.0e0;
2173 
2174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2175     v4lapltau3[0] = 0.0e0;
2176 
2177   t7683 = t3714 * t107 * t10;
2178   t7685 = t3643 * t3715;
2179   t7704 = t25 * t3627;
2180   t7705 = t7704 * t89;
2181   t7724 = t1302 * t1306;
2182   t7738 = t7704 * t170;
2183   t7747 = t1288 * t1288;
2184   t7754 = t6556 * t1298;
2185   t7771 = 0.973440e3 * t3715 * t359 + 0.33317568e-1 * t7322 * t486 + 0.399810816e0 * t4566 * t1302 * t1294 + 0.799621632e0 * t4570 * t7724 + 0.1332702720e1 * t1710 * t7724 - 0.243360e3 * t1250 * t167 * t1288 + 0.486720e3 * t2400 * t3238 - 0.730080e3 * t1654 * t1288 * t9 * t155 - 0.1066162176e1 * t840 * t7738 - 0.3198486528e1 * t850 * t7738 - 0.2132324352e1 * t861 * t7738 - 0.60840e2 * t5213 * t3234 + 0.60840e2 * t4076 * t7747 + 0.973440e3 * t840 * t3715 + 0.133270272e0 * t7318 * t1303 - 0.799621632e0 * t6555 * t7754 - 0.1599243264e1 * t6560 * t7754 - 0.199905408e0 * t4077 * t422 * t1293 * t1288 + 0.333175680e0 * t4020 * t422 * t475 * t3234 - 0.166587840e0 * t3967 * t101 * t170 * t7747;
2186   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2187     v4tau4[0] = rho[0] * (-0.3e1 / 0.16e2 * t8 * t12 * (0.39936e2 * t7683 + 0.39936e2 * t7685 + 0.2357760e1 * t3694 * t107 * t1024 * t9 + 0.2357760e1 * t3644 * t3694 * t21 * t9) - 0.31090700000000000000e-1 * t85 * (-0.544128e3 * t7683 - 0.544128e3 * t7685 - 0.125729280e4 * t3627 * t107 * t7188 - 0.1067166720e5 * t3643 * t7705 - 0.2821248000e5 * t4169 * t7705 - 0.2974579200e5 * t4191 * t7705 - 0.1094768640e5 * t4197 * t7705) + t133 * t7771);
2188 
2189 #ifndef XC_DONT_COMPILE_MXC
2190 
2191   if(order < 5) return;
2192 
2193 
2194 #endif
2195 
2196 #endif
2197 
2198 #endif
2199 
2200 #endif
2201 
2202 #endif
2203 
2204 
2205 }
2206 
2207 
2208 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 *))2209 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 *))
2210 {
2211 
2212 #ifndef XC_DONT_COMPILE_EXC
2213   double t2, t3, t4, t5, t6, t7, t8, t9;
2214   double t10, t11, t13, t14, t16, t17, t18, t20;
2215   double t21, t22, t24, t25, t26, t27, t30, t31;
2216   double t32, t33, t34, t36, t38, t39, t40, t41;
2217   double t42, t43, t47, t50, t53, t55, t56, t59;
2218   double t61, t62, t63, t64, t66, t68, t71, t72;
2219   double t73, t75, t76, t77, t78, t81, t82, t83;
2220   double t84, t85, t86, t89, t90, t91, t92, t95;
2221   double t97;
2222 
2223 #ifndef XC_DONT_COMPILE_VXC
2224   double t98, t100, t102, t104, t106, t108, t110, t111;
2225   double t112, t114, t115, t116, t117, t118, t120, t123;
2226   double t124, t126, t127, t128, t130, t131, t132, t135;
2227   double t136, t137, t144, t146, t148, t150, t151, t153;
2228   double t155, t156, t157, t159, t160, t161, t165, t167;
2229   double t168, t174, t175, t176, t177, t178, t180, t183;
2230   double t184, t188, t189, t190, t191, t192, t195, t196;
2231   double t204, t205, t206, t213, t214, t218, t220, t221;
2232   double t223, t230, t233, t234, t236, t246, t248, t250;
2233   double t252, t255, t256, t257, t264, t267, t270, t271;
2234   double t273, t280, t282;
2235 
2236 #ifndef XC_DONT_COMPILE_FXC
2237   double t289, t291, t294, t296, t297, t299, t300, t301;
2238   double t302, t305, t306, t307, t311, t312, t313, t316;
2239   double t317, t318, t319, t324, t325, t327, t328, t329;
2240   double t330, t333, t334, t337, t339, t341, t343, t344;
2241   double t346, t347, t350, t353, t354, t355, t358, t359;
2242   double t360, t365, t367, t370, t371, t373, t375, t376;
2243   double t377, t378, t381, t383, t384, t385, t386, t387;
2244   double t389, t393, t394, t395, t398, t402, t404, t405;
2245   double t413, t414, t415, t416, t418, t419, t420, t421;
2246   double t422, t423, t425, t427, t428, t430, t433, t434;
2247   double t435, t448, t450, t452, t461, t463, t464, t465;
2248   double t468, t469, t472, t473, t475, t477, t480, t481;
2249   double t484, t490, t491, t492, t495, t498, t499, t500;
2250   double t502, t505, t507, t509, t510, t512, t513, t515;
2251   double t518, t527, t528, t531, t532, t537, t539, t542;
2252   double t545, t547, t548, t550, t552, t554, t557, t564;
2253   double t565, t572, t583, t584, t589, t591, t593, t594;
2254   double t597, t599, t601, t604, t605, t608, t609, t612;
2255   double t613, t622, t624, t627, t630, t637, t639, t644;
2256   double t648, t663, t664, t668, t670, t671, t673, t680;
2257   double t683, t684, t686, t688, t702, t704, t708, t709;
2258   double t715, t719, t722, t723, t726, t727, t738, t740;
2259   double t743, t744, t746, t748, t749, t756, t759, t763;
2260   double t765, t774, t776;
2261 
2262 #ifndef XC_DONT_COMPILE_KXC
2263   double t779, t782, t785, t786, t787, t789, t790, t792;
2264   double t795, t798, t801, t802, t803, t805, t810, t811;
2265   double t814, t817, t821, t823, t824, t834, t835, t837;
2266   double t839, t840, t841, t842, t844, t846, t848, t849;
2267   double t852, t854, t856, t858, t860, t862, t863, t864;
2268   double t866, t867, t869, t870, t871, t872, t874, t875;
2269   double t877, t879, t880, t881, t884, t885, t887, t888;
2270   double t890, t891, t899, t900, t901, t906, t907, t908;
2271   double t914, t915, t916, t917, t921, t922, t923, t924;
2272   double t925, t928, t929, t931, t932, t933, t936, t937;
2273   double t946, t949, t952, t953, t954, t957, t960, t961;
2274   double t964, t968, t973, t974, t976, t978, t981, t986;
2275   double t990, t1000, t1002, t1005, t1007, t1008, t1009, t1012;
2276   double t1017, t1020, t1024, t1026, t1029, t1032, t1035, t1038;
2277   double t1039, t1040, t1043, t1044, t1045, t1048, t1049, t1050;
2278   double t1053, t1056, t1057, t1059, t1062, t1063, t1066, t1067;
2279   double t1068, t1071, t1072, t1080, t1089, t1094, t1095, t1097;
2280   double t1100, t1102, t1104, t1106, t1108, t1109, t1110, t1112;
2281   double t1113, t1114, t1116, t1117, t1118, t1120, t1140, t1143;
2282   double t1145, t1146, t1149, t1156, t1157, t1160, t1162, t1163;
2283   double t1165, t1166, t1168, t1169, t1171, t1174, t1189, t1190;
2284   double t1193, t1194, t1199, t1201, t1204, t1206, t1207, t1208;
2285   double t1211, t1214, t1216, t1217, t1220, t1223, t1225, t1226;
2286   double t1229, t1232, t1241, t1242, t1251, t1252, t1256, t1259;
2287   double t1260, t1271, t1276, t1293, t1294, t1295, t1297, t1305;
2288   double t1308, t1313, t1315, t1318, t1321, t1322, t1325, t1326;
2289   double t1333, t1335, t1337, t1340, t1341, t1344, t1346, t1347;
2290   double t1349, t1350, t1352, t1353, t1362, t1365, t1367, t1370;
2291   double t1372, t1373, t1374, t1377, t1380, t1382, t1383, t1386;
2292   double t1389, t1397, t1401, t1409, t1410, t1413, t1420, t1425;
2293   double t1428, t1429, t1442, t1453, t1454, t1455, t1457, t1460;
2294   double t1463, t1464, t1466, t1467, t1469, t1472, t1481, t1482;
2295   double t1485, t1486, t1491, t1493, t1496, t1499, t1501, t1503;
2296   double t1504, t1506, t1508, t1513, t1547, t1548, t1549, t1554;
2297   double t1558, t1563, t1566, t1567, t1577, t1578, t1584, t1586;
2298   double t1589, t1592, t1598, t1601, t1605, t1610, t1611, t1634;
2299   double t1635, t1640, t1643, t1644, t1647, t1649, t1653, t1659;
2300   double t1668, t1670, t1673, t1676, t1683, t1684, t1688, t1691;
2301   double t1695, t1716, t1717, t1721, t1723, t1724, t1726, t1733;
2302   double t1736, t1737, t1739, t1741, t1755, t1757, t1761, t1762;
2303   double t1768, t1772, t1775, t1776, t1779, t1782, t1783, t1798;
2304   double t1800, t1804, t1810, t1814, t1817, t1818, t1821, t1822;
2305   double t1837, t1839, t1841, t1842, t1844, t1847, t1848, t1855;
2306   double t1858, t1862, t1863, t1864, t1868, t1877, t1879;
2307 
2308 #ifndef XC_DONT_COMPILE_LXC
2309   double t1907, t1912, t1916, t1940, t1943, t1944, t1967, t1970;
2310   double t1976, t1998, t2024, t2025, t2027, t2028, t2029, t2031;
2311   double t2032, t2034, t2035, t2037, t2038, t2039, t2045, t2046;
2312   double t2047, t2052, t2053, t2058, t2063, t2066, t2069, t2070;
2313   double t2073, t2078, t2079, t2085, t2087, t2088, t2091, t2096;
2314   double t2098, t2099, t2101, t2103, t2111, t2117, t2121, t2124;
2315   double t2126, t2129, t2131, t2133, t2136, t2138, t2140, t2143;
2316   double t2144, t2147, t2150, t2155, t2157, t2164, t2174, t2175;
2317   double t2178, t2180, t2181, t2184, t2187, t2190, t2191, t2195;
2318   double t2212, t2216, t2229, t2234, t2252, t2254, t2257, t2259;
2319   double t2264, t2267, t2269, t2292, t2319, t2322, t2364, t2369;
2320   double t2410, t2425, t2437, t2438, t2471, t2494, t2500, t2506;
2321   double t2509, t2510, t2513, t2514, t2523, t2527, t2530, t2540;
2322   double t2557, t2559, t2560, t2563, t2564, t2579, t2588, t2599;
2323   double t2602, t2612, t2635, t2639, t2643, t2650, t2658, t2663;
2324   double t2667, t2675, t2692, t2706, t2720, t2753, t2772, t2798;
2325   double t2810, t2820, t2822, t2823, t2825, t2827, t2829, t2838;
2326   double t2843, t2848, t2868, t2875, t2880, t2889, t2893, t2898;
2327   double t2905, t2909, t2912, t2921, t2925, t2928, t2932, t2937;
2328   double t2956, t2974, t2982, t3011, t3014, t3026, t3029, t3031;
2329   double t3032, t3034, t3057, t3088, t3098, t3101, t3104, t3123;
2330   double t3130, t3131, t3137, t3162, t3168, t3172, t3185, t3223;
2331   double t3227, t3235, t3265, t3266, t3269, t3298, t3306, t3315;
2332   double t3318, t3325, t3340, t3344, t3371, t3389, t3391, t3398;
2333   double t3401, t3403, t3433, t3436, t3449, t3458, t3465, t3472;
2334   double t3482, t3485, t3502, t3506, t3513, t3515, t3516, t3518;
2335   double t3540, t3552, t3554, t3556, t3563, t3595, t3610, t3642;
2336   double t3651, t3654, t3669, t3679, t3696, t3711, t3742, t3749;
2337   double t3765, t3768, t3769, t3792, t3803, t3806, t3808, t3843;
2338   double t3853, t3856, t3860, t3881, t3886, t3888, t3889, t3891;
2339   double t3902, t3904, t3906, t3933, t3941, t3944, t3948, t3975;
2340   double t3983, t3986, t3990, t4011, t4022, t4037, t4041, t4060;
2341   double t4062, t4081;
2342 #endif
2343 
2344 #endif
2345 
2346 #endif
2347 
2348 #endif
2349 
2350 #endif
2351 
2352 
2353 
2354   t2 = M_CBRT3;
2355   t3 = 0.1e1 / M_PI;
2356   t4 = POW_1_3(t3);
2357   t5 = t2 * t4;
2358   t6 = M_CBRT4;
2359   t7 = t6 * t6;
2360   t8 = POW_1_3(rho[0]);
2361   t9 = t7 * t8;
2362   t10 = rho[0] * rho[0];
2363   t11 = t8 * t8;
2364   t13 = 0.1e1 / t11 / t10;
2365   t14 = sigma[0] * t13;
2366   t16 = 0.1e1 + 0.4e-2 * t14;
2367   t17 = 0.1e1 / t16;
2368   t18 = t14 * t17;
2369   t20 = sigma[0] * sigma[0];
2370   t21 = t10 * t10;
2371   t22 = t21 * rho[0];
2372   t24 = 0.1e1 / t8 / t22;
2373   t25 = t20 * t24;
2374   t26 = t16 * t16;
2375   t27 = 0.1e1 / t26;
2376   t30 = M_CBRT6;
2377   t31 = t30 * t30;
2378   t32 = M_PI * M_PI;
2379   t33 = POW_1_3(t32);
2380   t34 = t33 * t33;
2381   t36 = 0.3e1 / 0.10e2 * t31 * t34;
2382   t38 = 0.1e1 / t11 / rho[0];
2383   t39 = tau[0] * t38;
2384   t40 = t36 - t39;
2385   t41 = t36 + t39;
2386   t42 = 0.1e1 / t41;
2387   t43 = t40 * t42;
2388   t47 = 0.1000e1 + 0.5232e-2 * t18 + 0.30416e-4 * t25 * t27 + 0.416e0 * t43 + 0.12280e-1 * t43 * t18;
2389   t50 = 0.3e1 / 0.8e1 * t5 * t9 * t47;
2390   t53 = t5 * t7 / t8;
2391   t55 = 0.1e1 + 0.51370000000000000000e-1 * t53;
2392   t56 = sqrt(t53);
2393   t59 = POW_3_2(t53);
2394   t61 = t2 * t2;
2395   t62 = t4 * t4;
2396   t63 = t61 * t62;
2397   t64 = 0.1e1 / t11;
2398   t66 = t63 * t6 * t64;
2399   t68 = 0.70594500000000000000e1 * t56 + 0.15494250000000000000e1 * t53 + 0.42077500000000000000e0 * t59 + 0.15629250000000000000e0 * t66;
2400   t71 = 0.1e1 + 0.32163958997385070134e2 / t68;
2401   t72 = log(t71);
2402   t73 = t55 * t72;
2403   t75 = 0.1e1 + 0.2e0 * t14;
2404   t76 = t75 * t75;
2405   t77 = 0.1e1 / t76;
2406   t78 = t25 * t77;
2407   t81 = t40 * t40;
2408   t82 = t81 * t40;
2409   t83 = t41 * t41;
2410   t84 = t83 * t41;
2411   t85 = 0.1e1 / t84;
2412   t86 = t82 * t85;
2413   t89 = t81 * t81;
2414   t90 = t83 * t83;
2415   t91 = 0.1e1 / t90;
2416   t92 = t89 * t91;
2417   t95 = 0.1000e1 - 0.7420e-1 * t78 - 0.5668e1 * t43 - 0.81988e0 * t86 * t78 - 0.81456e0 * t92 * t78;
2418   t97 = 0.3109070e-1 * t73 * t95;
2419   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2420     zk[0] = -t50 - t97;
2421 
2422 #ifndef XC_DONT_COMPILE_VXC
2423 
2424   if(order < 1) return;
2425 
2426 
2427   t98 = t7 * t64;
2428   t100 = t5 * t98 * t47;
2429   t102 = t10 * rho[0];
2430   t104 = 0.1e1 / t11 / t102;
2431   t106 = sigma[0] * t104 * t17;
2432   t108 = t21 * t10;
2433   t110 = 0.1e1 / t8 / t108;
2434   t111 = t20 * t110;
2435   t112 = t111 * t27;
2436   t114 = t20 * sigma[0];
2437   t115 = t21 * t21;
2438   t116 = t115 * rho[0];
2439   t117 = 0.1e1 / t116;
2440   t118 = t114 * t117;
2441   t120 = 0.1e1 / t26 / t16;
2442   t123 = tau[0] * t13;
2443   t124 = t123 * t42;
2444   t126 = 0.1e1 / t83;
2445   t127 = t40 * t126;
2446   t128 = t127 * t123;
2447   t130 = tau[0] * t24;
2448   t131 = t42 * sigma[0];
2449   t132 = t131 * t17;
2450   t135 = t127 * sigma[0];
2451   t136 = t24 * t17;
2452   t137 = t136 * tau[0];
2453   t144 = -0.13952000000000000000e-1 * t106 - 0.10641066666666666667e-3 * t112 + 0.64887466666666666669e-6 * t118 * t120 + 0.69333333333333333333e0 * t124 + 0.69333333333333333333e0 * t128 + 0.20466666666666666667e-1 * t130 * t132 + 0.20466666666666666667e-1 * t135 * t137 - 0.32746666666666666667e-1 * t43 * t106 + 0.13098666666666666667e-3 * t43 * t112;
2454   t146 = t5 * t9 * t144;
2455   t148 = t5 * t7;
2456   t150 = 0.1e1 / t8 / rho[0];
2457   t151 = t150 * t72;
2458   t153 = t148 * t151 * t95;
2459   t155 = t68 * t68;
2460   t156 = 0.1e1 / t155;
2461   t157 = t55 * t156;
2462   t159 = 0.1e1 / t56 * t2;
2463   t160 = t4 * t7;
2464   t161 = t160 * t150;
2465   t165 = t5 * t7 * t150;
2466   t167 = sqrt(t53);
2467   t168 = t167 * t2;
2468   t174 = -0.11765750000000000000e1 * t159 * t161 - 0.51647500000000000000e0 * t165 - 0.21038750000000000000e0 * t168 * t161 - 0.10419500000000000000e0 * t63 * t6 * t38;
2469   t175 = 0.1e1 / t71;
2470   t176 = t174 * t175;
2471   t177 = t176 * t95;
2472   t178 = t157 * t177;
2473   t180 = t111 * t77;
2474   t183 = 0.1e1 / t76 / t75;
2475   t184 = t118 * t183;
2476   t188 = t81 * t85;
2477   t189 = t188 * t20;
2478   t190 = 0.1e1 / t115;
2479   t191 = t190 * t77;
2480   t192 = t191 * tau[0];
2481   t195 = t82 * t91;
2482   t196 = t195 * t20;
2483   t204 = 0.1e1 / t90 / t41;
2484   t205 = t89 * t204;
2485   t206 = t205 * t20;
2486   t213 = 0.39573333333333333333e0 * t180 - 0.79146666666666666669e-1 * t184 - 0.94466666666666666667e1 * t124 - 0.94466666666666666667e1 * t128 - 0.409940e1 * t189 * t192 - 0.95298000000000000000e1 * t196 * t192 + 0.43726933333333333333e1 * t86 * t180 - 0.87453866666666666669e0 * t86 * t184 - 0.54304000000000000000e1 * t206 * t192 + 0.43443200000000000000e1 * t92 * t180 - 0.86886400000000000003e0 * t92 * t184;
2487   t214 = t73 * t213;
2488   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2489     vrho[0] = -t50 - t97 + rho[0] * (-t100 / 0.8e1 - 0.3e1 / 0.8e1 * t146 + 0.53237641966666666666e-3 * t153 + 0.10000000000000000000e1 * t178 - 0.3109070e-1 * t214);
2490 
2491   t218 = t13 * t17;
2492   t220 = sigma[0] * t24;
2493   t221 = t220 * t27;
2494   t223 = t20 * t190;
2495   t230 = 0.5232e-2 * t218 + 0.39904e-4 * t221 - 0.243328e-6 * t223 * t120 + 0.12280e-1 * t43 * t218 - 0.49120e-4 * t43 * t221;
2496   t233 = 0.3e1 / 0.8e1 * t5 * t9 * t230;
2497   t234 = t220 * t77;
2498   t236 = t223 * t183;
2499   t246 = -0.14840e0 * t234 + 0.29680e-1 * t236 - 0.163976e1 * t86 * t234 + 0.327952e0 * t86 * t236 - 0.162912e1 * t92 * t234 + 0.325824e0 * t92 * t236;
2500   t248 = 0.3109070e-1 * t73 * t246;
2501   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2502     vsigma[0] = rho[0] * (-t233 - t248);
2503 
2504   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
2505     vlapl[0] = 0.0e0;
2506 
2507   t250 = t38 * t42;
2508   t252 = t127 * t38;
2509   t255 = 0.1e1 / t8 / t21;
2510   t256 = t255 * t42;
2511   t257 = sigma[0] * t17;
2512   t264 = -0.416e0 * t250 - 0.416e0 * t252 - 0.12280e-1 * t256 * t257 - 0.12280e-1 * t127 * sigma[0] * t255 * t17;
2513   t267 = 0.3e1 / 0.8e1 * t5 * t9 * t264;
2514   t270 = t21 * t102;
2515   t271 = 0.1e1 / t270;
2516   t273 = t20 * t271 * t77;
2517   t280 = 0.5668e1 * t250 + 0.5668e1 * t252 + 0.245964e1 * t188 * t273 + 0.571788e1 * t195 * t273 + 0.325824e1 * t205 * t273;
2518   t282 = 0.3109070e-1 * t73 * t280;
2519   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2520     vtau[0] = rho[0] * (-t267 - t282);
2521 
2522 #ifndef XC_DONT_COMPILE_FXC
2523 
2524   if(order < 2) return;
2525 
2526 
2527   t289 = t7 * t38;
2528   t291 = t5 * t289 * t47;
2529   t294 = t5 * t98 * t144;
2530   t296 = tau[0] * t104;
2531   t297 = t127 * t296;
2532   t299 = tau[0] * tau[0];
2533   t300 = t299 * t190;
2534   t301 = t126 * sigma[0];
2535   t302 = t301 * t17;
2536   t305 = tau[0] * t117;
2537   t306 = t42 * t20;
2538   t307 = t306 * t27;
2539   t311 = 0.1e1 / t8 / t270;
2540   t312 = t20 * t311;
2541   t313 = t312 * t27;
2542   t316 = t115 * t10;
2543   t317 = 0.1e1 / t316;
2544   t318 = t114 * t317;
2545   t319 = t318 * t120;
2546   t324 = t20 * t20;
2547   t325 = t115 * t21;
2548   t327 = 0.1e1 / t11 / t325;
2549   t328 = t324 * t327;
2550   t329 = t26 * t26;
2551   t330 = 0.1e1 / t329;
2552   t333 = t299 * t24;
2553   t334 = t333 * t126;
2554   t337 = 0.1e1 / t11 / t21;
2555   t339 = sigma[0] * t337 * t17;
2556   t341 = t296 * t42;
2557   t343 = t40 * t85;
2558   t344 = t343 * t333;
2559   t346 = t110 * t17;
2560   t347 = t346 * tau[0];
2561   t350 = tau[0] * t110;
2562   t353 = t343 * sigma[0];
2563   t354 = t190 * t17;
2564   t355 = t354 * t299;
2565   t358 = t127 * t20;
2566   t359 = t117 * t27;
2567   t360 = t359 * tau[0];
2568   t365 = -0.18488888888888888889e1 * t297 + 0.68222222222222222224e-1 * t300 * t302 + 0.43662222222222222224e-3 * t305 * t307 - 0.11788800000000000000e-2 * t43 * t313 + 0.27943822222222222224e-5 * t43 * t319 + 0.52511288888888888890e-3 * t313 - 0.81099662222222222226e-5 * t319 + 0.20763989333333333335e-7 * t328 * t330 + 0.23111111111111111112e1 * t334 + 0.51157333333333333333e-1 * t339 - 0.18488888888888888889e1 * t341 + 0.23111111111111111111e1 * t344 - 0.16373333333333333334e0 * t135 * t347 - 0.16373333333333333334e0 * t350 * t132 + 0.68222222222222222223e-1 * t353 * t355 + 0.43662222222222222224e-3 * t358 * t360 + 0.12007111111111111111e0 * t43 * t339;
2569   t367 = t5 * t9 * t365;
2570   t370 = 0.1e1 / t8 / t10;
2571   t371 = t370 * t72;
2572   t373 = t148 * t371 * t95;
2573   t375 = t156 * t174;
2574   t376 = t175 * t95;
2575   t377 = t375 * t376;
2576   t378 = t165 * t377;
2577   t381 = t148 * t151 * t213;
2578   t383 = t155 * t68;
2579   t384 = 0.1e1 / t383;
2580   t385 = t55 * t384;
2581   t386 = t174 * t174;
2582   t387 = t386 * t175;
2583   t389 = t385 * t387 * t95;
2584   t393 = 0.1e1 / t56 / t53 * t61;
2585   t394 = t62 * t6;
2586   t395 = t394 * t13;
2587   t398 = t160 * t370;
2588   t402 = t5 * t7 * t370;
2589   t404 = 0.1e1/sqrt(t53);
2590   t405 = t404 * t61;
2591   t413 = -0.78438333333333333333e0 * t393 * t395 + 0.15687666666666666667e1 * t159 * t398 + 0.68863333333333333333e0 * t402 + 0.14025833333333333333e0 * t405 * t395 + 0.28051666666666666667e0 * t168 * t398 + 0.17365833333333333333e0 * t63 * t6 * t13;
2592   t414 = t413 * t175;
2593   t415 = t414 * t95;
2594   t416 = t157 * t415;
2595   t418 = t155 * t155;
2596   t419 = 0.1e1 / t418;
2597   t420 = t55 * t419;
2598   t421 = t71 * t71;
2599   t422 = 0.1e1 / t421;
2600   t423 = t386 * t422;
2601   t425 = t420 * t423 * t95;
2602   t427 = t176 * t213;
2603   t428 = t157 * t427;
2604   t430 = t318 * t183;
2605   t433 = t76 * t76;
2606   t434 = 0.1e1 / t433;
2607   t435 = t328 * t434;
2608   t448 = t312 * t77;
2609   t450 = 0.12535054222222222222e2 * t86 * t430 - 0.13992618666666666667e1 * t86 * t435 + 0.12453717333333333334e2 * t92 * t430 - 0.13901824000000000000e1 * t92 * t435 + 0.25191111111111111111e2 * t297 - 0.31488888888888888890e2 * t334 + 0.11344355555555555556e1 * t430 - 0.12663466666666666667e0 * t435 + 0.25191111111111111111e2 * t341 - 0.31488888888888888889e2 * t344 - 0.25063111111111111111e1 * t448;
2610   t452 = t117 * t77 * tau[0];
2611   t461 = t343 * t20;
2612   t463 = 0.1e1 / t11 / t316;
2613   t464 = t463 * t77;
2614   t465 = t464 * t299;
2615   t468 = t81 * t91;
2616   t469 = t468 * t20;
2617   t472 = t188 * t114;
2618   t473 = t115 * t102;
2619   t475 = 0.1e1 / t11 / t473;
2620   t477 = t475 * t183 * tau[0];
2621   t480 = t82 * t204;
2622   t481 = t480 * t20;
2623   t484 = t195 * t114;
2624   t490 = 0.1e1 / t90 / t83;
2625   t491 = t89 * t490;
2626   t492 = t491 * t20;
2627   t495 = t205 * t114;
2628   t498 = 0.72405333333333333333e2 * t206 * t452 + 0.54658666666666666666e2 * t189 * t452 + 0.12706400000000000000e3 * t196 * t452 - 0.27514026666666666667e2 * t92 * t448 - 0.13664666666666666667e2 * t461 * t465 - 0.68146000000000000000e2 * t469 * t465 - 0.87453866666666666669e1 * t472 * t477 - 0.99734666666666666667e2 * t481 * t465 - 0.20330240000000000000e2 * t484 * t477 - 0.27693724444444444444e2 * t86 * t448 - 0.45253333333333333333e2 * t492 * t465 - 0.11584853333333333334e2 * t495 * t477;
2629   t499 = t450 + t498;
2630   t500 = t73 * t499;
2631   t502 = t291 / 0.12e2 - t294 / 0.4e1 - 0.3e1 / 0.8e1 * t367 - 0.70983522622222222221e-3 * t373 - 0.34246666666666666666e-1 * t378 + 0.10647528393333333333e-2 * t381 - 0.20000000000000000000e1 * t389 + 0.10000000000000000000e1 * t416 + 0.32163958997385070134e2 * t425 + 0.20000000000000000000e1 * t428 - 0.3109070e-1 * t500;
2632   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2633     v2rho2[0] = -t100 / 0.4e1 - 0.3e1 / 0.4e1 * t146 + 0.10647528393333333333e-2 * t153 + 0.20000000000000000000e1 * t178 - 0.6218140e-1 * t214 + rho[0] * t502;
2634 
2635   t505 = t5 * t98 * t230;
2636   t507 = t104 * t17;
2637   t509 = t110 * t27;
2638   t510 = t509 * sigma[0];
2639   t512 = t20 * t117;
2640   t513 = t512 * t120;
2641   t515 = t114 * t475;
2642   t518 = t42 * t17;
2643   t527 = tau[0] * t190;
2644   t528 = t131 * t27;
2645   t531 = t190 * t27;
2646   t532 = t531 * tau[0];
2647   t537 = -0.13952000000000000000e-1 * t507 - 0.15701333333333333333e-3 * t510 + 0.27979093333333333334e-5 * t513 - 0.77864960000000000002e-8 * t515 * t330 + 0.20466666666666666667e-1 * t130 * t518 + 0.20466666666666666667e-1 * t127 * t137 - 0.32746666666666666667e-1 * t43 * t507 + 0.39296000000000000000e-3 * t43 * t510 - 0.81866666666666666667e-4 * t527 * t528 - 0.81866666666666666667e-4 * t135 * t532 - 0.10478933333333333334e-5 * t43 * t513;
2648   t539 = t5 * t9 * t537;
2649   t542 = t148 * t151 * t246;
2650   t545 = t157 * t176 * t246;
2651   t547 = sigma[0] * t110;
2652   t548 = t547 * t77;
2653   t550 = t512 * t183;
2654   t552 = t515 * t434;
2655   t554 = t188 * sigma[0];
2656   t557 = t195 * sigma[0];
2657   t564 = t463 * t183;
2658   t565 = t564 * tau[0];
2659   t572 = t205 * sigma[0];
2660   t583 = 0.79146666666666666667e0 * t548 - 0.39573333333333333334e0 * t550 + 0.47488000000000000000e-1 * t552 - 0.819880e1 * t554 * t192 - 0.19059600000000000000e2 * t557 * t192 + 0.87453866666666666667e1 * t86 * t548 - 0.43726933333333333334e1 * t86 * t550 + 0.1639760e1 * t189 * t565 + 0.38119200000000000000e1 * t196 * t565 + 0.52472320000000000000e0 * t86 * t552 - 0.10860800000000000000e2 * t572 * t192 + 0.86886400000000000000e1 * t92 * t548 - 0.43443200000000000001e1 * t92 * t550 + 0.21721600000000000000e1 * t206 * t565 + 0.52131840000000000000e0 * t92 * t552;
2661   t584 = t73 * t583;
2662   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2663     v2rhosigma[0] = -t233 - t248 + rho[0] * (-t505 / 0.8e1 - 0.3e1 / 0.8e1 * t539 + 0.53237641966666666666e-3 * t542 + 0.10000000000000000000e1 * t545 - 0.3109070e-1 * t584);
2664 
2665   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2666     v2rholapl[0] = 0.0e0;
2667 
2668   t589 = t5 * t98 * t264;
2669   t591 = t13 * t42;
2670   t593 = t255 * t126;
2671   t594 = t593 * tau[0];
2672   t597 = t343 * t255 * tau[0];
2673   t599 = t127 * t13;
2674   t601 = t24 * t42;
2675   t604 = t271 * t126;
2676   t605 = t257 * tau[0];
2677   t608 = t190 * t42;
2678   t609 = t20 * t27;
2679   t612 = t271 * t17;
2680   t613 = t612 * tau[0];
2681   t622 = 0.69333333333333333333e0 * t591 - 0.13866666666666666667e1 * t594 - 0.13866666666666666667e1 * t597 + 0.69333333333333333333e0 * t599 + 0.53213333333333333333e-1 * t601 * t257 - 0.40933333333333333334e-1 * t604 * t605 - 0.13098666666666666667e-3 * t608 * t609 - 0.40933333333333333333e-1 * t353 * t613 + 0.53213333333333333333e-1 * t127 * t220 * t17 - 0.13098666666666666667e-3 * t127 * t223 * t27;
2682   t624 = t5 * t9 * t622;
2683   t627 = t148 * t151 * t280;
2684   t630 = t157 * t176 * t280;
2685   t637 = 0.1e1 / t11 / t116;
2686   t639 = t637 * t77 * tau[0];
2687   t644 = t223 * t77;
2688   t648 = t114 * t463 * t183;
2689   t663 = -0.94466666666666666667e1 * t591 + 0.18893333333333333333e2 * t594 + 0.18893333333333333333e2 * t597 - 0.94466666666666666667e1 * t599 + 0.81988000000000000000e1 * t461 * t639 + 0.4088760e2 * t469 * t639 - 0.1721748e2 * t188 * t644 + 0.26236160000000000001e1 * t188 * t648 + 0.59840800000000000000e2 * t481 * t639 - 0.4002516e2 * t195 * t644 + 0.60990720000000000002e1 * t195 * t648 + 0.27152000000000000000e2 * t492 * t639 - 0.2280768e2 * t205 * t644 + 0.34754560000000000001e1 * t205 * t648;
2690   t664 = t73 * t663;
2691   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2692     v2rhotau[0] = -t267 - t282 + rho[0] * (-t589 / 0.8e1 - 0.3e1 / 0.8e1 * t624 + 0.53237641966666666666e-3 * t627 + 0.10000000000000000000e1 * t630 - 0.3109070e-1 * t664);
2693 
2694   t668 = t24 * t27;
2695   t670 = sigma[0] * t190;
2696   t671 = t670 * t120;
2697   t673 = t20 * t463;
2698   t680 = 0.18976e-4 * t668 - 0.805888e-6 * t671 + 0.2919936e-8 * t673 * t330 - 0.98240e-4 * t43 * t668 + 0.392960e-6 * t43 * t671;
2699   t683 = 0.3e1 / 0.8e1 * t5 * t9 * t680;
2700   t684 = t24 * t77;
2701   t686 = t670 * t183;
2702   t688 = t673 * t434;
2703   t702 = -0.14840e0 * t684 + 0.118720e0 * t686 - 0.178080e-1 * t688 - 0.163976e1 * t86 * t684 + 0.1311808e1 * t86 * t686 - 0.1967712e0 * t86 * t688 - 0.162912e1 * t92 * t684 + 0.1303296e1 * t92 * t686 - 0.1954944e0 * t92 * t688;
2704   t704 = 0.3109070e-1 * t73 * t702;
2705   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2706     v2sigma2[0] = rho[0] * (-t683 - t704);
2707 
2708   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2709     v2sigmalapl[0] = 0.0e0;
2710 
2711   t708 = t271 * t42;
2712   t709 = sigma[0] * t27;
2713   t715 = sigma[0] * t271;
2714   t719 = -0.12280e-1 * t256 * t17 + 0.49120e-4 * t708 * t709 - 0.12280e-1 * t127 * t255 * t17 + 0.49120e-4 * t127 * t715 * t27;
2715   t722 = 0.3e1 / 0.8e1 * t5 * t9 * t719;
2716   t723 = t715 * t77;
2717   t726 = t20 * t637;
2718   t727 = t726 * t183;
2719   t738 = 0.491928e1 * t188 * t723 - 0.983856e0 * t188 * t727 + 0.1143576e2 * t195 * t723 - 0.2287152e1 * t195 * t727 + 0.651648e1 * t205 * t723 - 0.1303296e1 * t205 * t727;
2720   t740 = 0.3109070e-1 * t73 * t738;
2721   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2722     v2sigmatau[0] = rho[0] * (-t722 - t740);
2723 
2724   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2725     v2lapl2[0] = 0.0e0;
2726 
2727   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2728     v2lapltau[0] = 0.0e0;
2729 
2730   t743 = 0.1e1 / t8 / t102;
2731   t744 = t743 * t126;
2732   t746 = t343 * t743;
2733   t748 = 0.1e1 / t108;
2734   t749 = t748 * t126;
2735   t756 = 0.832e0 * t744 + 0.832e0 * t746 + 0.24560e-1 * t749 * t257 + 0.24560e-1 * t343 * sigma[0] * t748 * t17;
2736   t759 = 0.3e1 / 0.8e1 * t5 * t9 * t756;
2737   t763 = 0.1e1 / t11 / t115;
2738   t765 = t20 * t763 * t77;
2739   t774 = -0.11336e2 * t744 - 0.11336e2 * t746 - 0.491928e1 * t343 * t765 - 0.2453256e2 * t468 * t765 - 0.3590448e2 * t480 * t765 - 0.1629120e2 * t491 * t765;
2740   t776 = 0.3109070e-1 * t73 * t774;
2741   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2742     v2tau2[0] = rho[0] * (-t759 - t776);
2743 
2744 #ifndef XC_DONT_COMPILE_KXC
2745 
2746   if(order < 3) return;
2747 
2748 
2749   t779 = t157 * t176 * t499;
2750   t782 = t420 * t423 * t213;
2751   t785 = 0.1e1 / t418 / t155;
2752   t786 = t55 * t785;
2753   t787 = t386 * t174;
2754   t789 = 0.1e1 / t421 / t71;
2755   t790 = t787 * t789;
2756   t792 = t786 * t790 * t95;
2757   t795 = t157 * t414 * t213;
2758   t798 = t385 * t387 * t213;
2759   t801 = 0.1e1 / t418 / t68;
2760   t802 = t55 * t801;
2761   t803 = t787 * t422;
2762   t805 = t802 * t803 * t95;
2763   t810 = 0.1e1 / t56 / t66 * t3 / 0.4e1;
2764   t811 = 0.1e1 / t21;
2765   t814 = t394 * t104;
2766   t817 = t160 * t743;
2767   t821 = t5 * t7 * t743;
2768   t823 = 0.1e1/POW_3_2(t53);
2769   t824 = t823 * t3;
2770   t834 = -0.47063000000000000000e1 * t810 * t811 + 0.31375333333333333334e1 * t393 * t814 - 0.36604555555555555556e1 * t159 * t817 - 0.16068111111111111111e1 * t821 + 0.28051666666666666666e0 * t824 * t811 - 0.56103333333333333332e0 * t405 * t814 - 0.65453888888888888890e0 * t168 * t817 - 0.46308888888888888888e0 * t63 * t6 * t104;
2771   t835 = t834 * t175;
2772   t837 = t157 * t835 * t95;
2773   t839 = t420 * t413;
2774   t840 = t422 * t95;
2775   t841 = t840 * t174;
2776   t842 = t839 * t841;
2777   t844 = t787 * t175;
2778   t846 = t420 * t844 * t95;
2779   t848 = t385 * t174;
2780   t849 = t848 * t415;
2781   t852 = t148 * t151 * t499;
2782   t854 = 0.30000000000000000000e1 * t779 + 0.96491876992155210402e2 * t782 + 0.20690405167709360120e4 * t792 + 0.30000000000000000000e1 * t795 - 0.60000000000000000000e1 * t798 - 0.19298375398431042081e3 * t805 + 0.10000000000000000000e1 * t837 + 0.96491876992155210402e2 * t842 + 0.60000000000000000000e1 * t846 - 0.60000000000000000000e1 * t849 + 0.15971292590000000000e-2 * t852;
2783   t856 = t148 * t371 * t213;
2784   t858 = t7 * t13;
2785   t860 = t5 * t858 * t47;
2786   t862 = t384 * t386;
2787   t863 = t862 * t376;
2788   t864 = t165 * t863;
2789   t866 = t299 * t110;
2790   t867 = t343 * t866;
2791   t869 = t40 * t91;
2792   t870 = t299 * tau[0];
2793   t871 = t870 * t190;
2794   t872 = t869 * t871;
2795   t874 = tau[0] * t337;
2796   t875 = t127 * t874;
2797   t877 = t115 * t22;
2798   t879 = 0.1e1 / t11 / t877;
2799   t880 = t324 * t879;
2800   t881 = t880 * t434;
2801   t884 = t324 * sigma[0];
2802   t885 = t115 * t115;
2803   t887 = 0.1e1 / t8 / t885;
2804   t888 = t884 * t887;
2805   t890 = 0.1e1 / t433 / t75;
2806   t891 = t888 * t890;
2807   t899 = 0.1e1 / t8 / t115;
2808   t900 = t20 * t899;
2809   t901 = t900 * t77;
2810   t906 = 0.1e1 / t473;
2811   t907 = t114 * t906;
2812   t908 = t907 * t183;
2813   t914 = 0.1e1 / t8 / t877;
2814   t915 = t870 * t914;
2815   t916 = t85 * t20;
2816   t917 = t916 * t77;
2817   t921 = 0.1e1 / t90 / t84;
2818   t922 = t89 * t921;
2819   t923 = t922 * t20;
2820   t924 = t914 * t77;
2821   t925 = t924 * t870;
2822   t928 = t491 * t114;
2823   t929 = t115 * t108;
2824   t931 = 0.1e1 / t8 / t929;
2825   t932 = t931 * t183;
2826   t933 = t932 * t299;
2827   t936 = t475 * t77;
2828   t937 = t936 * t299;
2829   t946 = t869 * t20;
2830   t949 = t343 * t114;
2831   t952 = 0.25191111111111111111e3 * t867 - 0.15744444444444444444e3 * t872 - 0.92367407407407407407e2 * t875 + 0.37780070400000000000e2 * t86 * t881 - 0.29850919822222222222e1 * t86 * t891 + 0.37534924800000000001e2 * t92 * t881 - 0.29657224533333333333e1 * t92 * t891 + 0.20308731259259259259e3 * t86 * t901 + 0.20176952888888888889e3 * t92 * t901 - 0.15489051496296296296e3 * t86 * t908 - 0.15388546844444444445e3 * t92 * t908 - 0.22774444444444444445e2 * t915 * t917 - 0.45253333333333333333e3 * t923 * t925 - 0.14481066666666666667e3 * t928 * t933 + 0.23936320000000000001e4 * t481 * t937 + 0.10860800000000000000e4 * t492 * t937 + 0.32795200000000000000e3 * t461 * t937 + 0.16355040000000000000e4 * t469 * t937 - 0.29547666666666666666e3 * t946 * t925 - 0.43726933333333333335e2 * t949 * t933;
2832   t953 = t81 * t204;
2833   t954 = t953 * t20;
2834   t957 = t468 * t114;
2835   t960 = t82 * t490;
2836   t961 = t960 * t20;
2837   t964 = t480 * t114;
2838   t968 = t327 * t183 * tau[0];
2839   t973 = t188 * t324;
2840   t974 = t115 * t270;
2841   t976 = 0.1e1 / t8 / t974;
2842   t978 = t976 * t434 * tau[0];
2843   t981 = t195 * t324;
2844   t986 = t205 * t324;
2845   t990 = t317 * t77 * tau[0];
2846   t1000 = t866 * t126;
2847   t1002 = t871 * t85;
2848   t1005 = t874 * t42;
2849   t1007 = -0.95298000000000000001e3 * t954 * t925 - 0.21806720000000000000e3 * t957 * t933 - 0.11328111111111111111e4 * t961 * t925 - 0.31915093333333333334e3 * t964 * t933 + 0.22300736000000000000e3 * t472 * t968 + 0.51842112000000000001e3 * t484 * t968 - 0.20988928000000000000e2 * t973 * t978 - 0.48792576000000000000e2 * t981 * t978 + 0.29541376000000000001e3 * t495 * t968 - 0.27803648000000000001e2 * t986 * t978 - 0.83507484444444444445e3 * t206 * t990 - 0.63039662222222222221e3 * t189 * t990 - 0.14654714666666666666e4 * t196 * t990 + 0.18379614814814814815e2 * t901 + 0.34191360000000000002e1 * t881 - 0.27015395555555555556e0 * t891 + 0.25191111111111111112e3 * t1000 - 0.15744444444444444445e3 * t1002 - 0.14017754074074074075e2 * t908 - 0.92367407407407407407e2 * t1005;
2850   t1008 = t952 + t1007;
2851   t1009 = t73 * t1008;
2852   t1012 = t5 * t98 * t365;
2853   t1017 = t880 * t330;
2854   t1020 = tau[0] * t311;
2855   t1024 = 0.1e1 / t11 / t22;
2856   t1026 = sigma[0] * t1024 * t17;
2857   t1029 = t299 * t117;
2858   t1032 = tau[0] * t317;
2859   t1035 = t900 * t27;
2860   t1038 = t870 * t463;
2861   t1039 = t85 * sigma[0];
2862   t1040 = t1039 * t17;
2863   t1043 = t299 * t475;
2864   t1044 = t126 * t20;
2865   t1045 = t1044 * t27;
2866   t1048 = tau[0] * t327;
2867   t1049 = t42 * t114;
2868   t1050 = t1049 * t120;
2869   t1053 = t907 * t120;
2870   t1056 = -0.18488888888888888889e2 * t867 + 0.11555555555555555556e2 * t872 + 0.67792592592592592593e1 * t875 + 0.89420231111111111120e-7 * t43 * t1017 + 0.12370962962962962963e1 * t1020 * t132 - 0.56033185185185185185e0 * t43 * t1026 - 0.10915555555555555556e1 * t1029 * t302 - 0.76408888888888888892e-2 * t1032 * t307 + 0.99258785185185185185e-2 * t43 * t1035 + 0.34111111111111111112e0 * t1038 * t1040 + 0.21831111111111111112e-2 * t1043 * t1045 + 0.13971911111111111112e-4 * t1048 * t1050 - 0.53093262222222222225e-4 * t43 * t1053;
2871   t1057 = t127 * t114;
2872   t1059 = t327 * t120 * tau[0];
2873   t1062 = t117 * t17;
2874   t1063 = t1062 * t299;
2875   t1066 = t869 * sigma[0];
2876   t1067 = t463 * t17;
2877   t1068 = t1067 * t870;
2878   t1071 = t475 * t27;
2879   t1072 = t1071 * t299;
2880   t1080 = t311 * t17 * tau[0];
2881   t1089 = 0.1e1 / t329 / t16;
2882   t1094 = 0.13971911111111111112e-4 * t1057 * t1059 - 0.10915555555555555556e1 * t353 * t1063 + 0.34111111111111111112e0 * t1066 * t1068 + 0.21831111111111111112e-2 * t461 * t1072 - 0.76408888888888888892e-2 * t358 * t317 * t27 * tau[0] + 0.12370962962962962963e1 * t135 * t1080 - 0.18488888888888888890e2 * t1000 + 0.11555555555555555556e2 * t1002 + 0.67792592592592592593e1 * t1005 + 0.92302070518518518523e-4 * t1053 - 0.52252945066666666671e-6 * t1017 + 0.88593021155555555565e-9 * t888 * t1089 - 0.33051496296296296297e-2 * t1035 - 0.23873422222222222222e0 * t1026;
2883   t1095 = t1056 + t1094;
2884   t1097 = t5 * t9 * t1095;
2885   t1100 = t5 * t289 * t144;
2886   t1102 = t743 * t72;
2887   t1104 = t148 * t1102 * t95;
2888   t1106 = t402 * t377;
2889   t1108 = t156 * t413;
2890   t1109 = t1108 * t376;
2891   t1110 = t165 * t1109;
2892   t1112 = t175 * t213;
2893   t1113 = t375 * t1112;
2894   t1114 = t165 * t1113;
2895   t1116 = t419 * t386;
2896   t1117 = t1116 * t840;
2897   t1118 = t165 * t1117;
2898   t1120 = -0.21295056786666666666e-2 * t856 - 0.5e1 / 0.36e2 * t860 + 0.10274000000000000000e0 * t864 - 0.3109070e-1 * t1009 - 0.3e1 / 0.8e1 * t1012 - 0.3e1 / 0.8e1 * t1097 + t1100 / 0.4e1 + 0.16562821945185185185e-2 * t1104 + 0.68493333333333333332e-1 * t1106 - 0.51369999999999999999e-1 * t1110 - 0.10274000000000000000e0 * t1114 - 0.16522625736956710527e1 * t1118;
2899   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2900     v3rho3[0] = rho[0] * (t854 + t1120) + 0.30000000000000000000e1 * t416 + 0.60000000000000000000e1 * t428 + 0.96491876992155210402e2 * t425 - 0.3e1 / 0.4e1 * t294 - 0.9e1 / 0.8e1 * t367 - 0.9327210e-1 * t500 - 0.21295056786666666666e-2 * t373 + 0.31942585179999999999e-2 * t381 - 0.60000000000000000000e1 * t389 + t291 / 0.4e1 - 0.10274000000000000000e0 * t378;
2901 
2902   t1140 = t5 * t289 * t230;
2903   t1143 = t5 * t98 * t537;
2904   t1145 = t463 * t27;
2905   t1146 = t1145 * t299;
2906   t1149 = t475 * t120;
2907   t1156 = t27 * tau[0];
2908   t1157 = t1156 * sigma[0];
2909   t1160 = t337 * t17;
2910   t1162 = t311 * t27;
2911   t1163 = t1162 * sigma[0];
2912   t1165 = t317 * t120;
2913   t1166 = t1165 * t20;
2914   t1168 = t114 * t327;
2915   t1169 = t1168 * t330;
2916   t1171 = t324 * t976;
2917   t1174 = t126 * t17;
2918   t1189 = t299 * t463;
2919   t1190 = t301 * t27;
2920   t1193 = tau[0] * t475;
2921   t1194 = t306 * t120;
2922   t1199 = -0.27288888888888888889e-3 * t353 * t1146 - 0.34929777777777777780e-5 * t358 * t1149 * tau[0] - 0.16373333333333333334e0 * t127 * t347 + 0.15281777777777777778e-2 * t127 * t117 * t1157 + 0.51157333333333333333e-1 * t1160 + 0.84559644444444444442e-3 * t1163 - 0.28530801777777777779e-4 * t1166 + 0.18037555200000000001e-6 * t1169 - 0.33222382933333333335e-9 * t1171 * t1089 + 0.68222222222222222224e-1 * t300 * t1174 - 0.16373333333333333334e0 * t350 * t518 + 0.15281777777777777778e-2 * t305 * t528 + 0.68222222222222222223e-1 * t343 * t355 + 0.12007111111111111111e0 * t43 * t1160 - 0.28380444444444444445e-2 * t43 * t1163 + 0.17814186666666666668e-4 * t43 * t1166 - 0.27288888888888888890e-3 * t1189 * t1190 - 0.34929777777777777780e-5 * t1193 * t1194 - 0.33532586666666666670e-7 * t43 * t1169;
2923   t1201 = t5 * t9 * t1199;
2924   t1204 = t148 * t371 * t246;
2925   t1206 = t175 * t246;
2926   t1207 = t375 * t1206;
2927   t1208 = t165 * t1207;
2928   t1211 = t148 * t151 * t583;
2929   t1214 = t385 * t387 * t246;
2930   t1216 = t414 * t246;
2931   t1217 = t157 * t1216;
2932   t1220 = t420 * t423 * t246;
2933   t1223 = t157 * t176 * t583;
2934   t1225 = t20 * t317;
2935   t1226 = t1225 * t183;
2936   t1229 = t1168 * t434;
2937   t1232 = t1171 * t890;
2938   t1241 = sigma[0] * t311;
2939   t1242 = t1241 * t77;
2940   t1251 = t914 * t183;
2941   t1252 = t1251 * t299;
2942   t1256 = t931 * t434 * tau[0];
2943   t1259 = 0.48682652444444444446e2 * t86 * t1226 - 0.13118080000000000000e2 * t86 * t1229 + 0.11194094933333333333e1 * t86 * t1232 + 0.48366762666666666668e2 * t92 * t1226 - 0.13032960000000000000e2 * t92 * t1229 + 0.11121459200000000000e1 * t92 * t1232 - 0.55028053333333333333e2 * t92 * t1242 - 0.55387448888888888889e2 * t86 * t1242 + 0.44058311111111111112e1 * t1226 - 0.11872000000000000000e1 * t1229 + 0.10130773333333333333e0 * t1232 - 0.50126222222222222222e1 * t1242 + 0.39893866666666666667e2 * t481 * t1252 + 0.12198144000000000000e2 * t484 * t1256;
2944   t1260 = t491 * sigma[0];
2945   t1271 = t468 * sigma[0];
2946   t1276 = t480 * sigma[0];
2947   t1293 = -0.90506666666666666667e2 * t1260 * t465 - 0.63716693333333333335e2 * t206 * t477 + 0.18101333333333333333e2 * t492 * t1252 + 0.69509120000000000000e1 * t495 * t1256 - 0.27329333333333333333e2 * t353 * t465 - 0.13629200000000000000e3 * t1271 * t465 - 0.48099626666666666667e2 * t189 * t477 - 0.19946933333333333333e3 * t1276 * t465 - 0.11181632000000000000e3 * t196 * t477 + 0.54658666666666666667e1 * t461 * t1252 + 0.27258400000000000000e2 * t469 * t1252 + 0.52472320000000000000e1 * t472 * t1256 + 0.14481066666666666667e3 * t572 * t452 + 0.10931733333333333333e3 * t554 * t452 + 0.25412800000000000000e3 * t557 * t452;
2948   t1294 = t1259 + t1293;
2949   t1295 = t73 * t1294;
2950   t1297 = t1140 / 0.12e2 - t1143 / 0.4e1 - 0.3e1 / 0.8e1 * t1201 - 0.70983522622222222221e-3 * t1204 - 0.34246666666666666666e-1 * t1208 + 0.10647528393333333333e-2 * t1211 - 0.20000000000000000000e1 * t1214 + 0.10000000000000000000e1 * t1217 + 0.32163958997385070134e2 * t1220 + 0.20000000000000000000e1 * t1223 - 0.3109070e-1 * t1295;
2951   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2952     v3rho2sigma[0] = -t505 / 0.4e1 - 0.3e1 / 0.4e1 * t539 + 0.10647528393333333333e-2 * t542 + 0.20000000000000000000e1 * t545 - 0.6218140e-1 * t584 + rho[0] * t1297;
2953 
2954   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2955     v3rho2lapl[0] = 0.0e0;
2956 
2957   t1305 = t5 * t289 * t264;
2958   t1308 = t5 * t98 * t622;
2959   t1313 = t343 * t130;
2960   t1315 = t110 * t42;
2961   t1318 = t190 * t126;
2962   t1321 = t637 * t85;
2963   t1322 = t257 * t299;
2964   t1325 = t463 * t126;
2965   t1326 = t609 * tau[0];
2966   t1333 = t869 * t271 * t299;
2967   t1335 = t127 * t104;
2968   t1337 = t117 * t42;
2969   t1340 = t475 * t42;
2970   t1341 = t114 * t120;
2971   t1344 = t104 * t42;
2972   t1346 = t24 * t126;
2973   t1347 = t1346 * tau[0];
2974   t1349 = t271 * t85;
2975   t1350 = t1349 * t299;
2976   t1352 = t637 * t17;
2977   t1353 = t1352 * t299;
2978   t1362 = t354 * tau[0];
2979   t1365 = -0.27943822222222222224e-5 * t127 * t515 * t120 + 0.83200000000000000001e1 * t1313 - 0.28380444444444444444e0 * t1315 * t257 + 0.46391111111111111112e0 * t1318 * t605 - 0.20466666666666666667e0 * t1321 * t1322 - 0.87324444444444444448e-3 * t1325 * t1326 + 0.16155022222222222223e-2 * t127 * t512 * t27 - 0.69333333333333333335e1 * t1333 - 0.18488888888888888889e1 * t1335 + 0.16155022222222222223e-2 * t1337 * t609 - 0.27943822222222222224e-5 * t1340 * t1341 - 0.18488888888888888889e1 * t1344 + 0.83200000000000000002e1 * t1347 - 0.69333333333333333335e1 * t1350 - 0.20466666666666666666e0 * t1066 * t1353 - 0.87324444444444444446e-3 * t461 * t1145 * tau[0] - 0.28380444444444444444e0 * t127 * t547 * t17 + 0.46391111111111111111e0 * t353 * t1362;
2980   t1367 = t5 * t9 * t1365;
2981   t1370 = t148 * t371 * t280;
2982   t1372 = t175 * t280;
2983   t1373 = t375 * t1372;
2984   t1374 = t165 * t1373;
2985   t1377 = t148 * t151 * t663;
2986   t1380 = t385 * t387 * t280;
2987   t1382 = t414 * t280;
2988   t1383 = t157 * t1382;
2989   t1386 = t420 * t423 * t280;
2990   t1389 = t157 * t176 * t663;
2991   t1397 = t515 * t183;
2992   t1401 = t324 * t931 * t434;
2993   t1409 = 0.1e1 / t8 / t325;
2994   t1410 = t299 * t1409;
2995   t1413 = t512 * t77;
2996   t1420 = 0.25191111111111111111e2 * t1344 - 0.11336000000000000000e3 * t1313 + 0.94466666666666666665e2 * t1333 - 0.11336000000000000000e3 * t1347 + 0.94466666666666666665e2 * t1350 + 0.25191111111111111111e2 * t1335 - 0.10775027200000000000e3 * t195 * t1397 + 0.97585152000000000003e1 * t195 * t1401 - 0.61399722666666666669e2 * t205 * t1397 + 0.55607296000000000002e1 * t205 * t1401 + 0.13664666666666666667e2 * t1410 * t917 + 0.32020128e3 * t195 * t1413 + 0.18246144e3 * t205 * t1413 + 0.13773984e3 * t188 * t1413;
2997   t1425 = t1251 * tau[0];
2998   t1428 = t1409 * t77;
2999   t1429 = t1428 * t299;
3000   t1442 = t464 * tau[0];
3001   t1453 = -0.46350549333333333335e2 * t188 * t1397 + 0.41977856000000000002e1 * t188 * t1401 + 0.57924266666666666668e2 * t928 * t1425 + 0.17728600000000000000e3 * t946 * t1429 + 0.17490773333333333334e2 * t949 * t1425 + 0.57178800000000000000e3 * t954 * t1429 + 0.87226880000000000002e2 * t957 * t1425 + 0.67968666666666666666e3 * t961 * t1429 + 0.12766037333333333334e3 * t964 * t1425 - 0.45253333333333333333e3 * t492 * t1442 - 0.13664666666666666667e3 * t461 * t1442 - 0.68146000000000000000e3 * t469 * t1442 - 0.99734666666666666667e3 * t481 * t1442 + 0.27152000000000000000e3 * t923 * t1429;
3002   t1454 = t1420 + t1453;
3003   t1455 = t73 * t1454;
3004   t1457 = t1305 / 0.12e2 - t1308 / 0.4e1 - 0.3e1 / 0.8e1 * t1367 - 0.70983522622222222221e-3 * t1370 - 0.34246666666666666666e-1 * t1374 + 0.10647528393333333333e-2 * t1377 - 0.20000000000000000000e1 * t1380 + 0.10000000000000000000e1 * t1383 + 0.32163958997385070134e2 * t1386 + 0.20000000000000000000e1 * t1389 - 0.3109070e-1 * t1455;
3005   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3006     v3rho2tau[0] = -t589 / 0.4e1 - 0.3e1 / 0.4e1 * t624 + 0.10647528393333333333e-2 * t627 + 0.20000000000000000000e1 * t630 - 0.6218140e-1 * t664 + rho[0] * t1457;
3007 
3008   t1460 = t5 * t98 * t680;
3009   t1463 = t117 * t120;
3010   t1464 = t1463 * sigma[0];
3011   t1466 = t20 * t475;
3012   t1467 = t1466 * t330;
3013   t1469 = t114 * t931;
3014   t1472 = t42 * t27;
3015   t1481 = tau[0] * t463;
3016   t1482 = t131 * t120;
3017   t1485 = t463 * t120;
3018   t1486 = t1485 * tau[0];
3019   t1491 = -0.10120533333333333333e-3 * t509 + 0.68519253333333333334e-5 * t1464 - 0.56934400000000000001e-7 * t1467 + 0.12458393600000000000e-9 * t1469 * t1089 - 0.16373333333333333333e-3 * t527 * t1472 - 0.16373333333333333333e-3 * t127 * t532 + 0.52394666666666666667e-3 * t43 * t509 - 0.52394666666666666667e-5 * t43 * t1464 + 0.65493333333333333333e-6 * t1481 * t1482 + 0.65493333333333333333e-6 * t135 * t1486 + 0.12574720000000000000e-7 * t43 * t1467;
3020   t1493 = t5 * t9 * t1491;
3021   t1496 = t148 * t151 * t702;
3022   t1499 = t157 * t176 * t702;
3023   t1501 = t110 * t77;
3024   t1503 = t117 * t183;
3025   t1504 = t1503 * sigma[0];
3026   t1506 = t1466 * t434;
3027   t1508 = t1469 * t890;
3028   t1513 = t914 * t434 * tau[0];
3029   t1547 = -0.41705471999999999999e0 * t92 * t1508 + 0.87453866666666666667e1 * t86 * t1501 - 0.819880e1 * t188 * t192 - 0.19059600000000000000e2 * t195 * t192 - 0.12243541333333333333e2 * t86 * t1504 + 0.41977856000000000000e1 * t86 * t1506 - 0.41977855999999999999e0 * t86 * t1508 + 0.86886400000000000000e1 * t92 * t1501 - 0.10860800000000000000e2 * t205 * t192 - 0.12164096000000000000e2 * t92 * t1504 + 0.41705472000000000000e1 * t92 * t1506;
3030   t1548 = 0.79146666666666666667e0 * t1501 - 0.11080533333333333333e1 * t1504 + 0.37990400000000000000e0 * t1506 - 0.37990399999999999999e-1 * t1508 + 0.86886400000000000000e1 * t572 * t565 - 0.13032960000000000000e1 * t206 * t1513 + 0.6559040e1 * t554 * t565 + 0.15247680000000000000e2 * t557 * t565 - 0.9838560e0 * t189 * t1513 - 0.22871520000000000000e1 * t196 * t1513 + t1547;
3031   t1549 = t73 * t1548;
3032   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3033     v3rhosigma2[0] = -t683 - t704 + rho[0] * (-t1460 / 0.8e1 - 0.3e1 / 0.8e1 * t1493 + 0.53237641966666666666e-3 * t1496 + 0.10000000000000000000e1 * t1499 - 0.3109070e-1 * t1549);
3034 
3035   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3036     v3rhosigmalapl[0] = 0.0e0;
3037 
3038   t1554 = t5 * t98 * t719;
3039   t1558 = t17 * tau[0];
3040   t1563 = t637 * t126;
3041   t1566 = t463 * t42;
3042   t1567 = t20 * t120;
3043   t1577 = t637 * t27;
3044   t1578 = t1577 * tau[0];
3045   t1584 = 0.53213333333333333333e-1 * t601 * t17 - 0.40933333333333333334e-1 * t604 * t1558 - 0.47482666666666666667e-3 * t608 * t709 + 0.16373333333333333333e-3 * t1563 * t1157 + 0.10478933333333333334e-5 * t1566 * t1567 - 0.40933333333333333333e-1 * t343 * t613 + 0.53213333333333333333e-1 * t127 * t136 - 0.47482666666666666667e-3 * t127 * t531 * sigma[0] + 0.16373333333333333333e-3 * t353 * t1578 + 0.10478933333333333334e-5 * t127 * t673 * t120;
3046   t1586 = t5 * t9 * t1584;
3047   t1589 = t148 * t151 * t738;
3048   t1592 = t157 * t176 * t738;
3049   t1598 = t670 * t77;
3050   t1601 = t673 * t183;
3051   t1605 = t1409 * t183 * tau[0];
3052   t1610 = t114 * t914;
3053   t1611 = t1610 * t434;
3054   t1634 = 0.16397600000000000000e2 * t353 * t639 + 0.8177520e2 * t1271 * t639 - 0.3443496e2 * t188 * t1598 + 0.14757840000000000000e2 * t188 * t1601 - 0.32795200000000000000e1 * t461 * t1605 - 0.16355040e2 * t469 * t1605 - 0.15741696000000000000e1 * t188 * t1611 + 0.11968160000000000000e3 * t1276 * t639 - 0.8005032e2 * t195 * t1598 + 0.34307280000000000000e2 * t195 * t1601 - 0.23936320000000000000e2 * t481 * t1605 - 0.36594432000000000000e1 * t195 * t1611 + 0.54304000000000000000e2 * t1260 * t639 - 0.4561536e2 * t205 * t1598 + 0.19549440000000000000e2 * t205 * t1601 - 0.10860800000000000000e2 * t492 * t1605 - 0.20852736000000000000e1 * t205 * t1611;
3055   t1635 = t73 * t1634;
3056   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3057     v3rhosigmatau[0] = -t722 - t740 + rho[0] * (-t1554 / 0.8e1 - 0.3e1 / 0.8e1 * t1586 + 0.53237641966666666666e-3 * t1589 + 0.10000000000000000000e1 * t1592 - 0.3109070e-1 * t1635);
3058 
3059   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3060     v3rholapl2[0] = 0.0e0;
3061 
3062   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3063     v3rholapltau[0] = 0.0e0;
3064 
3065   t1640 = t5 * t98 * t756;
3066   t1643 = t748 * t85;
3067   t1644 = t1643 * tau[0];
3068   t1647 = t869 * t748 * tau[0];
3069   t1649 = t343 * t255;
3070   t1653 = t763 * t85;
3071   t1659 = t763 * t17 * tau[0];
3072   t1668 = -0.27733333333333333333e1 * t593 + 0.41600000000000000000e1 * t1644 + 0.4160e1 * t1647 - 0.27733333333333333333e1 * t1649 - 0.147360e0 * t604 * t257 + 0.12280000000000000000e0 * t1653 * t605 + 0.26197333333333333334e-3 * t1563 * t609 + 0.122800e0 * t1066 * t1659 - 0.147360e0 * t343 * t715 * t17 + 0.26197333333333333334e-3 * t343 * t726 * t27;
3073   t1670 = t5 * t9 * t1668;
3074   t1673 = t148 * t151 * t774;
3075   t1676 = t157 * t176 * t774;
3076   t1683 = 0.1e1 / t8 / t473;
3077   t1684 = tau[0] * t1683;
3078   t1688 = t1683 * t77 * tau[0];
3079   t1691 = t726 * t77;
3080   t1695 = t114 * t1409 * t183;
3081   t1716 = 0.37786666666666666667e2 * t593 - 0.56680000000000000000e2 * t1644 - 0.56680e2 * t1647 + 0.37786666666666666667e2 * t1649 - 0.81988000000000000000e1 * t1684 * t917 - 0.10637160000000000000e3 * t946 * t1688 + 0.42633760000000000000e2 * t343 * t1691 - 0.52472320000000000002e1 * t343 * t1695 - 0.34307280000000000000e3 * t954 * t1688 + 0.21261552000000000000e3 * t468 * t1691 - 0.26168064000000000001e2 * t468 * t1695 - 0.40781200000000000000e3 * t961 * t1688 + 0.31117216000000000000e3 * t480 * t1691 - 0.38298112000000000001e2 * t480 * t1695 - 0.16291200e3 * t923 * t1688 + 0.14119040000000000000e3 * t491 * t1691 - 0.17377280000000000001e2 * t491 * t1695;
3082   t1717 = t73 * t1716;
3083   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3084     v3rhotau2[0] = -t759 - t776 + rho[0] * (-t1640 / 0.8e1 - 0.3e1 / 0.8e1 * t1670 + 0.53237641966666666666e-3 * t1673 + 0.10000000000000000000e1 * t1676 - 0.3109070e-1 * t1717);
3085 
3086   t1721 = t190 * t120;
3087   t1723 = sigma[0] * t463;
3088   t1724 = t1723 * t330;
3089   t1726 = t20 * t914;
3090   t1733 = -0.957696e-6 * t1721 + 0.15510528e-7 * t1724 - 0.46718976e-10 * t1726 * t1089 + 0.1178880e-5 * t43 * t1721 - 0.4715520e-8 * t43 * t1724;
3091   t1736 = 0.3e1 / 0.8e1 * t5 * t9 * t1733;
3092   t1737 = t190 * t183;
3093   t1739 = t1723 * t434;
3094   t1741 = t1726 * t890;
3095   t1755 = 0.178080e0 * t1737 - 0.1068480e0 * t1739 + 0.1424640e-1 * t1741 + 0.1967712e1 * t86 * t1737 - 0.11806272e1 * t86 * t1739 + 0.15741696e0 * t86 * t1741 + 0.1954944e1 * t92 * t1737 - 0.11729664e1 * t92 * t1739 + 0.15639552e0 * t92 * t1741;
3096   t1757 = 0.3109070e-1 * t73 * t1755;
3097   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3098     v3sigma3[0] = rho[0] * (-t1736 - t1757);
3099 
3100   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3101     v3sigma2lapl[0] = 0.0e0;
3102 
3103   t1761 = t637 * t42;
3104   t1762 = sigma[0] * t120;
3105   t1768 = sigma[0] * t637;
3106   t1772 = 0.98240e-4 * t708 * t27 - 0.392960e-6 * t1761 * t1762 + 0.98240e-4 * t127 * t271 * t27 - 0.392960e-6 * t127 * t1768 * t120;
3107   t1775 = 0.3e1 / 0.8e1 * t5 * t9 * t1772;
3108   t1776 = t271 * t77;
3109   t1779 = t1768 * t183;
3110   t1782 = t20 * t1409;
3111   t1783 = t1782 * t434;
3112   t1798 = 0.491928e1 * t188 * t1776 - 0.3935424e1 * t188 * t1779 + 0.5903136e0 * t188 * t1783 + 0.1143576e2 * t195 * t1776 - 0.9148608e1 * t195 * t1779 + 0.13722912e1 * t195 * t1783 + 0.651648e1 * t205 * t1776 - 0.5213184e1 * t205 * t1779 + 0.7819776e0 * t205 * t1783;
3113   t1800 = 0.3109070e-1 * t73 * t1798;
3114   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3115     v3sigma2tau[0] = rho[0] * (-t1775 - t1800);
3116 
3117   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3118     v3sigmalapl2[0] = 0.0e0;
3119 
3120   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3121     v3sigmalapltau[0] = 0.0e0;
3122 
3123   t1804 = t763 * t126;
3124   t1810 = sigma[0] * t763;
3125   t1814 = 0.24560e-1 * t749 * t17 - 0.98240e-4 * t1804 * t709 + 0.24560e-1 * t343 * t748 * t17 - 0.98240e-4 * t343 * t1810 * t27;
3126   t1817 = 0.3e1 / 0.8e1 * t5 * t9 * t1814;
3127   t1818 = t1810 * t77;
3128   t1821 = t20 * t1683;
3129   t1822 = t1821 * t183;
3130   t1837 = -0.983856e1 * t343 * t1818 + 0.1967712e1 * t343 * t1822 - 0.4906512e2 * t468 * t1818 + 0.9813024e1 * t468 * t1822 - 0.7180896e2 * t480 * t1818 + 0.14361792e2 * t480 * t1822 - 0.3258240e2 * t491 * t1818 + 0.6516480e1 * t491 * t1822;
3131   t1839 = 0.3109070e-1 * t73 * t1837;
3132   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3133     v3sigmatau2[0] = rho[0] * (-t1817 - t1839);
3134 
3135   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3136     v3lapl3[0] = 0.0e0;
3137 
3138   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3139     v3lapl2tau[0] = 0.0e0;
3140 
3141   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3142     v3lapltau2[0] = 0.0e0;
3143 
3144   t1841 = 0.1e1 / t22;
3145   t1842 = t1841 * t85;
3146   t1844 = t869 * t1841;
3147   t1847 = 0.1e1 / t11 / t270;
3148   t1848 = t1847 * t85;
3149   t1855 = -0.2496e1 * t1842 - 0.2496e1 * t1844 - 0.73680e-1 * t1848 * t257 - 0.73680e-1 * t869 * sigma[0] * t1847 * t17;
3150   t1858 = 0.3e1 / 0.8e1 * t5 * t9 * t1855;
3151   t1862 = 0.1e1 / t8 / t316;
3152   t1863 = t1862 * t85;
3153   t1864 = t20 * t77;
3154   t1868 = t20 * t1862 * t77;
3155   t1877 = 0.34008e2 * t1842 + 0.34008e2 * t1844 + 0.491928e1 * t1863 * t1864 + 0.6382296e2 * t869 * t1868 + 0.20584368e3 * t953 * t1868 + 0.24468720e3 * t960 * t1868 + 0.9774720e2 * t922 * t1868;
3156   t1879 = 0.3109070e-1 * t73 * t1877;
3157   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3158     v3tau3[0] = rho[0] * (-t1858 - t1879);
3159 
3160 #ifndef XC_DONT_COMPILE_LXC
3161 
3162   if(order < 4) return;
3163 
3164 
3165   t1907 = t422 * t213;
3166   t1912 = t789 * t95;
3167   t1916 = 0.44060335298551228073e1 * t402 * t1117 - 0.21309037037037037036e0 * t821 * t377 + 0.13698666666666666666e0 * t402 * t1109 + 0.27397333333333333333e0 * t402 * t1113 - 0.41096000000000000000e0 * t165 * t419 * t787 * t376 + 0.41096000000000000000e0 * t165 * t862 * t1112 + 0.13218100589565368422e2 * t165 * t801 * t787 * t840 - 0.68493333333333333332e-1 * t165 * t156 * t834 * t376 - 0.20548000000000000000e0 * t165 * t1108 * t1112 - 0.66090502947826842111e1 * t165 * t1116 * t1907 - 0.14171548179536397724e3 * t165 * t785 * t787 * t1912;
3168   t1940 = t418 * t418;
3169   t1943 = t386 * t386;
3170   t1944 = t421 * t421;
3171   t1967 = t394 * t337;
3172   t1970 = t160 * t255;
3173   t1976 = pow(t53, -0.25e1);
3174   t1998 = -0.20548000000000000000e0 * t165 * t375 * t175 * t499 - 0.27397333333333333333e0 * t402 * t863 - 0.66090502947826842110e1 * t165 * t419 * t413 * t841 + 0.41096000000000000000e0 * t165 * t384 * t174 * t415 + 0.40000000000000000000e1 * t157 * t176 * t1008 + 0.19298375398431042080e3 * t420 * t423 * t499 + 0.60000000000000000000e1 * t157 * t414 * t499 + 0.19964560303604640732e6 * t55 / t1940 * t1943 / t1944 * t95 + 0.82761620670837440481e4 * t786 * t790 * t213 - 0.5e1 / 0.9e1 * t5 * t858 * t144 + 0.10000000000000000000e1 * t157 * (-0.81706597222222222223e-1 / t56 * rho[0] * t24 * t148 + 0.37650400000000000000e2 * t810 * t1841 - 0.13944592592592592593e2 * t393 * t1967 + 0.12201518518518518519e2 * t159 * t1970 + 0.53560370370370370370e1 * t5 * t7 * t255 + 0.14025833333333333333e0 * t1976 * t3 * t24 * t148 - 0.22441333333333333332e1 * t824 * t1841 + 0.24934814814814814815e1 * t405 * t1967 + 0.21817962962962962963e1 * t168 * t1970 + 0.16979925925925925926e1 * t63 * t6 * t337) * t175 * t95 + 0.40000000000000000000e1 * t157 * t835 * t213;
3175   t2024 = t870 * t117;
3176   t2025 = t2024 * t85;
3177   t2027 = t299 * t299;
3178   t2028 = t2027 * t463;
3179   t2029 = t2028 * t91;
3180   t2031 = t299 * t311;
3181   t2032 = t2031 * t126;
3182   t2034 = tau[0] * t1024;
3183   t2035 = t2034 * t42;
3184   t2037 = 0.1e1 / t325;
3185   t2038 = t114 * t2037;
3186   t2039 = t2038 * t183;
3187   t2045 = 0.1e1 / t8 / t116;
3188   t2046 = t20 * t2045;
3189   t2047 = t2046 * t77;
3190   t2052 = t324 / t11 / t929;
3191   t2053 = t2052 * t434;
3192   t2058 = t870 * t931;
3193   t2063 = 0.1e1 / t885;
3194   t2066 = t91 * t20 * t77;
3195   t2069 = t885 * rho[0];
3196   t2070 = 0.1e1 / t2069;
3197   t2073 = t85 * t114 * t183;
3198   t2078 = t884 / t8 / t2069;
3199   t2079 = t2078 * t890;
3200   t2085 = t324 * t20 / t885 / t21;
3201   t2087 = 0.1e1 / t433 / t76;
3202   t2088 = t2085 * t2087;
3203   t2091 = 0.25191111111111111112e4 * t2025 - 0.10496296296296296296e4 * t2029 - 0.19033283950617283951e4 * t2032 + 0.43104790123456790123e3 * t2035 + 0.19204221313580246914e4 * t86 * t2039 + 0.19079609837037037038e4 * t92 * t2039 - 0.16814127407407407407e4 * t92 * t2047 - 0.75919405511111111113e3 * t92 * t2053 - 0.16923942716049382716e4 * t86 * t2047 + 0.85024592592592592594e3 * t2058 * t917 - 0.76415245274074074074e3 * t86 * t2053 - 0.60633333333333333332e3 * t2027 * t2063 * t2066 - 0.97170962962962962967e2 * t870 * t2070 * t2073 + 0.12935398589629629630e3 * t86 * t2079 - 0.79602452859259259257e1 * t86 * t2088;
3204   t2096 = t869 * t2024;
3205   t2098 = t40 * t204;
3206   t2099 = t2098 * t2028;
3207   t2101 = t343 * t2031;
3208   t2103 = t127 * t2034;
3209   t2111 = t327 * t77 * t299;
3210   t2117 = t976 * t183 * t299;
3211   t2121 = t906 * t77 * tau[0];
3212   t2124 = t2098 * t20;
3213   t2126 = t2063 * t77 * t2027;
3214   t2129 = 0.12851463964444444444e3 * t92 * t2079 - 0.79085932088888888886e1 * t92 * t2088 + 0.25191111111111111111e4 * t2096 - 0.10496296296296296296e4 * t2099 - 0.19033283950617283950e4 * t2101 + 0.43104790123456790123e3 * t2103 - 0.15316345679012345679e3 * t2047 - 0.69156598518518518523e2 * t2053 + 0.17380021728395061729e3 * t2039 + 0.11706671407407407408e2 * t2079 - 0.72041054814814814814e0 * t2088 - 0.59274287407407407407e4 * t461 * t2111 - 0.29560220444444444444e5 * t469 * t2111 + 0.85773098666666666668e4 * t957 * t2117 + 0.96958786370370370371e4 * t206 * t2121 - 0.51464444444444444444e4 * t2124 * t2126;
3215   t2131 = t869 * t114;
3216   t2133 = t2070 * t183 * t870;
3217   t2136 = t343 * t324;
3218   t2138 = 0.1e1 / t885 / t10;
3219   t2140 = t2138 * t434 * t299;
3220   t2143 = t81 * t490;
3221   t2144 = t2143 * t20;
3222   t2147 = t953 * t114;
3223   t2150 = t468 * t324;
3224   t2155 = 0.1e1 / t885 / t102;
3225   t2157 = t2155 * t890 * tau[0];
3226   t2164 = t887 * t434 * tau[0];
3227   t2174 = t82 * t921;
3228   t2175 = t2174 * t20;
3229   t2178 = t90 * t90;
3230   t2180 = t89 / t2178;
3231   t2181 = t2180 * t20;
3232   t2184 = t922 * t114;
3233   t2187 = t960 * t114;
3234   t2190 = -0.12607004444444444445e4 * t2131 * t2133 - 0.13992618666666666667e3 * t2136 * t2140 - 0.13605555555555555556e5 * t2144 * t2126 - 0.40660480000000000000e4 * t2147 * t2133 - 0.69781504000000000000e3 * t2150 * t2140 - 0.59701839644444444444e2 * t188 * t884 * t2157 - 0.13878777173333333333e3 * t195 * t884 * t2157 + 0.11492174506666666667e4 * t986 * t2164 - 0.79085932088888888890e2 * t205 * t884 * t2157 + 0.73194027851851851851e4 * t189 * t2121 + 0.17015281422222222222e5 * t196 * t2121 - 0.14345000000000000000e5 * t2175 * t2126 - 0.52795555555555555555e4 * t2181 * t2126 - 0.19308088888888888889e4 * t2184 * t2133 - 0.48333274074074074076e4 * t2187 * t2133;
3235   t2191 = t491 * t324;
3236   t2195 = t931 * t77 * t870;
3237   t2212 = t480 * t324;
3238   t2216 = t879 * t183 * tau[0];
3239   t2229 = -0.46339413333333333334e3 * t2191 * t2140 + 0.35577920000000000000e5 * t954 * t2195 + 0.42291614814814814815e5 * t961 * t2195 + 0.86754235733333333333e3 * t973 * t2164 + 0.20167598080000000000e4 * t981 * t2164 + 0.16894577777777777778e5 * t923 * t2195 + 0.56958862222222222224e4 * t928 * t2117 - 0.43262682074074074075e5 * t481 * t2111 - 0.19629890370370370370e5 * t492 * t2111 - 0.10212829866666666667e4 * t2212 * t2140 - 0.42716355318518518518e4 * t472 * t2216 - 0.99301927822222222223e4 * t484 * t2216 - 0.56585572503703703706e4 * t495 * t2216 + 0.12553270044444444445e5 * t964 * t2117 + 0.11031128888888888889e5 * t946 * t2195 + 0.17199260444444444445e4 * t949 * t2117;
3240   t2234 = t413 * t413;
3241   t2252 = t2038 * t120;
3242   t2254 = t2046 * t27;
3243   t2257 = 0.1e1 / t11 / t108;
3244   t2259 = sigma[0] * t2257 * t17;
3245   t2264 = 0.1e1 / t329 / t26;
3246   t2267 = t2052 * t330;
3247   t2269 = t2078 * t1089;
3248   t2292 = -0.18488888888888888890e3 * t2025 + 0.77037037037037037040e2 * t2029 - 0.10858326344691358026e-2 * t2252 + 0.24996415209876543211e-1 * t2254 + 0.13528272592592592592e1 * t2259 + 0.13969382716049382716e3 * t2032 - 0.31636543209876543210e2 * t2035 + 0.47249611282962962969e-10 * t2085 * t2264 + 0.10094902082370370371e-4 * t2267 - 0.36764783350518518523e-7 * t2269 - 0.18488888888888888889e3 * t2096 + 0.77037037037037037040e2 * t2099 + 0.13969382716049382716e3 * t2101 - 0.31636543209876543210e2 * t2103 - 0.90962962962962962966e1 * t870 * t475 * t1040 + 0.13947654320987654322e2 * t299 * t317 * t302 + 0.10614771358024691358e0 * tau[0] * t906 * t307 + 0.22740740740740740741e1 * t2027 * t914 * t91 * sigma[0] * t17 + 0.14554074074074074075e-1 * t2058 * t916 * t27;
3249   t2319 = t126 * t114 * t120;
3250   t2322 = t2098 * sigma[0];
3251   t2364 = -0.29210608829629629633e-5 * t43 * t2267 - 0.10005925925925925926e2 * tau[0] * t899 * t132 + 0.31752138271604938272e1 * t43 * t2259 - 0.88692527407407407408e-1 * t43 * t2254 - 0.62582518518518518521e-1 * t299 * t327 * t1045 - 0.42847194074074074076e-3 * tau[0] * t879 * t1050 + 0.79577795950617283955e-3 * t43 * t2252 + 0.59613487407407407413e-6 * tau[0] * t887 * t42 * t324 * t330 + 0.38152631940740740746e-8 * t43 * t2269 + 0.93146074074074074080e-4 * t299 * t976 * t2319 + 0.22740740740740740741e1 * t2322 * t914 * t17 * t2027 + 0.14554074074074074075e-1 * t946 * t931 * t27 * t870 - 0.10005925925925925926e2 * t135 * t899 * t17 * tau[0] + 0.10614771358024691358e0 * t358 * t906 * t27 * tau[0] + 0.59613487407407407413e-6 * t127 * t324 * t887 * t330 * tau[0] + 0.93146074074074074080e-4 * t949 * t976 * t120 * t299 - 0.90962962962962962966e1 * t1066 * t475 * t17 * t870 - 0.62582518518518518522e-1 * t461 * t327 * t27 * t299 + 0.13947654320987654321e2 * t353 * t317 * t17 * t299 - 0.42847194074074074076e-3 * t1057 * t879 * t120 * tau[0];
3252   t2369 = -0.12000000000000000000e2 * t385 * t387 * t499 - 0.24828486201251232145e5 * t55 / t418 / t383 * t1943 * t789 * t95 - 0.77193501593724168322e3 * t802 * t803 * t213 + 0.24000000000000000000e2 * t420 * t844 * t213 + 0.11579025239058625248e4 * t786 * t1943 * t422 * t95 - 0.24000000000000000000e2 * t802 * t1943 * t175 * t95 - 0.3109070e-1 * t73 * (t2091 + t2129 + t2190 + t2229) + 0.96491876992155210402e2 * t420 * t2234 * t422 * t95 + t5 * t289 * t365 / 0.2e1 + 0.10e2 / 0.27e2 * t5 * t7 * t104 * t47 - 0.60000000000000000000e1 * t385 * t2234 * t175 * t95 - 0.3e1 / 0.8e1 * t5 * t9 * (t2292 + t2364);
3253   t2410 = -t5 * t98 * t1095 / 0.2e1 + 0.12414243100625616072e5 * t786 * t386 * t1912 * t413 + 0.38596750796862084160e3 * t420 * t174 * t1907 * t413 - 0.24000000000000000000e2 * t385 * t413 * t427 + 0.12865583598954028054e3 * t420 * t834 * t841 - 0.80000000000000000000e1 * t385 * t834 * t177 - 0.11579025239058625248e4 * t802 * t386 * t840 * t413 + 0.66251287780740740739e-2 * t148 * t1102 * t213 - 0.42590113573333333333e-2 * t148 * t371 * t499 + 0.21295056786666666667e-2 * t148 * t151 * t1008 + 0.36000000000000000000e2 * t420 * t386 * t415 - 0.55209406483950617283e-2 * t148 * t255 * t72 * t95;
3254   t2425 = rho[0] * (t1916 + t1998 + t2369 + t2410) + 0.12000000000000000000e2 * t779 + 0.38596750796862084160e3 * t782 + 0.82761620670837440481e4 * t792 + 0.12000000000000000000e2 * t795 - 0.24000000000000000000e2 * t798 - 0.77193501593724168322e3 * t805 + 0.40000000000000000000e1 * t837 + 0.38596750796862084160e3 * t842 + 0.24000000000000000000e2 * t846 - 0.24000000000000000000e2 * t849 + 0.63885170359999999999e-2 * t852;
3255   t2437 = -0.85180227146666666664e-2 * t856 - 0.5e1 / 0.9e1 * t860 + 0.41096000000000000000e0 * t864 - 0.12436280e0 * t1009 - 0.3e1 / 0.2e1 * t1012 - 0.3e1 / 0.2e1 * t1097 + t1100 + 0.66251287780740740739e-2 * t1104 + 0.27397333333333333333e0 * t1106 - 0.20548000000000000000e0 * t1110 - 0.41096000000000000000e0 * t1114 - 0.66090502947826842111e1 * t1118;
3256   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3257     v4rho4[0] = t2425 + t2437;
3258 
3259   t2438 = t422 * t246;
3260   t2471 = 0.96491876992155210402e2 * t839 * t2438 * t174 + 0.20690405167709360120e4 * t786 * t790 * t246 + 0.30000000000000000000e1 * t157 * t176 * t1294 + 0.96491876992155210402e2 * t420 * t423 * t583 + 0.10000000000000000000e1 * t157 * t835 * t246 + 0.30000000000000000000e1 * t157 * t414 * t583 - 0.60000000000000000000e1 * t385 * t387 * t583 - 0.19298375398431042081e3 * t802 * t803 * t246 + 0.16562821945185185185e-2 * t148 * t1102 * t246 + 0.60000000000000000000e1 * t420 * t844 * t246 - 0.60000000000000000000e1 * t848 * t1216;
3261   t2494 = sigma[0] * t899 * t77;
3262   t2500 = t20 * t906 * t183;
3263   t2506 = t114 * t879 * t434;
3264   t2509 = t324 * t887;
3265   t2510 = t2509 * t890;
3266   t2513 = t884 * t2155;
3267   t2514 = t2513 * t2087;
3268   t2523 = t1039 * t77;
3269   t2527 = t916 * t183;
3270   t2530 = 0.40617462518518518519e3 * t86 * t2494 + 0.40353905777777777778e3 * t92 * t2494 - 0.54236421688888888890e3 * t92 * t2500 - 0.54590646992592592594e3 * t86 * t2500 + 0.24405459057777777778e3 * t86 * t2506 - 0.45149516231111111110e2 * t86 * t2510 + 0.29850919822222222221e1 * t86 * t2514 + 0.24247098026666666667e3 * t92 * t2506 - 0.44856552106666666667e2 * t92 * t2510 + 0.29657224533333333333e1 * t92 * t2514 - 0.45548888888888888888e2 * t915 * t2523 + 0.91097777777777777779e1 * t870 * t2063 * t2527;
3271   t2540 = t2138 * t890 * tau[0];
3272   t2557 = 0.92118072888888888891e3 * t189 * t968 + 0.21414519466666666667e4 * t196 * t968 - 0.21776012800000000000e3 * t472 * t978 - 0.50622297600000000000e3 * t484 * t978 + 0.16791142400000000000e2 * t973 * t2540 + 0.39034060800000000000e2 * t981 * t2540 + 0.32710080000000000000e4 * t1271 * t937 + 0.47872640000000000001e4 * t1276 * t937 + 0.21721600000000000000e4 * t1260 * t937 + 0.65590399999999999999e3 * t353 * t937 - 0.19149056000000000000e4 * t481 * t933 - 0.12607932444444444444e4 * t554 * t990;
3273   t2559 = t2063 * t183;
3274   t2560 = t2559 * t870;
3275   t2563 = t2070 * t434;
3276   t2564 = t2563 * t299;
3277   t2579 = t953 * sigma[0];
3278   t2588 = 0.11819066666666666667e3 * t946 * t2560 + 0.26236160000000000000e2 * t949 * t2564 - 0.29309429333333333333e4 * t557 * t990 - 0.16701496888888888889e4 * t572 * t990 + 0.18101333333333333333e3 * t923 * t2560 + 0.86886400000000000000e2 * t928 * t2564 - 0.59095333333333333333e3 * t1066 * t925 - 0.26236160000000000000e3 * t461 * t933 - 0.19059600000000000000e4 * t2579 * t925 - 0.13084032000000000000e4 * t469 * t933 + 0.12202712177777777778e4 * t206 * t968 - 0.28846284800000000001e3 * t495 * t978;
3279   t2599 = t960 * sigma[0];
3280   t2602 = t922 * sigma[0];
3281   t2612 = 0.22242918399999999999e2 * t986 * t2540 + 0.38119200000000000001e3 * t954 * t2560 + 0.45312444444444444444e3 * t961 * t2560 + 0.19149056000000000000e3 * t964 * t2564 + 0.13084032000000000000e3 * t957 * t2564 - 0.22656222222222222222e4 * t2599 * t925 - 0.90506666666666666667e3 * t2602 * t925 - 0.86886400000000000002e3 * t492 * t933 + 0.22087196444444444445e2 * t2506 - 0.40860785777777777777e1 * t2510 + 0.27015395555555555554e0 * t2514 - 0.49405108148148148149e2 * t2500 + 0.36759229629629629629e2 * t2494;
3282   t2635 = t899 * t27 * sigma[0];
3283   t2639 = t906 * t120 * t20;
3284   t2643 = t879 * t330 * t114;
3285   t2650 = t2509 * t1089;
3286   t2658 = -0.13644444444444444445e-2 * t915 * t1039 * t27 - 0.17464888888888888890e-4 * t299 * t931 * t1044 * t120 - 0.10915555555555555556e1 * t343 * t1063 + 0.87324444444444444447e-2 * t1043 * t1190 - 0.20230162962962962963e-1 * t1032 * t528 + 0.10304284444444444445e-3 * t1048 * t1194 + 0.34111111111111111112e0 * t869 * t1068 + 0.22093084444444444444e-1 * t43 * t2635 - 0.23868681481481481483e-3 * t43 * t2639 + 0.99480007111111111121e-6 * t43 * t2643 - 0.16766293333333333335e-6 * tau[0] * t976 * t1049 * t330 - 0.14307236977777777780e-8 * t43 * t2650 + 0.12370962962962962963e1 * t127 * t1080 - 0.20230162962962962963e-1 * t127 * t317 * t1157;
3287   t2663 = t914 * t27;
3288   t2667 = t931 * t120;
3289   t2675 = t1024 * t17;
3290   t2692 = 0.10304284444444444445e-3 * t358 * t1059 + 0.87324444444444444445e-2 * t353 * t1072 - 0.13644444444444444444e-2 * t1066 * t2663 * t870 - 0.17464888888888888890e-4 * t461 * t2667 * t299 - 0.16766293333333333335e-6 * t1057 * t976 * t330 * tau[0] - 0.23873422222222222222e0 * t2675 - 0.56033185185185185185e0 * t43 * t2675 - 0.10915555555555555556e1 * t1029 * t1174 + 0.34111111111111111112e0 * t1038 * t85 * t17 + 0.12370962962962962963e1 * t1020 * t518 - 0.56553623703703703702e-2 * t2635 + 0.30334740859259259260e-3 * t2639 - 0.31977426488888888891e-5 * t2643 + 0.12790122268444444445e-7 * t2650 - 0.17718604231111111113e-10 * t2513 * t2264;
3291   t2706 = 0.15971292590000000000e-2 * t148 * t151 * t1294 - 0.21295056786666666666e-2 * t148 * t371 * t583 - 0.5e1 / 0.36e2 * t5 * t858 * t230 - 0.16522625736956710527e1 * t165 * t1116 * t2438 + 0.68493333333333333332e-1 * t402 * t1207 - 0.51369999999999999999e-1 * t165 * t1108 * t1206 - 0.10274000000000000000e0 * t165 * t375 * t175 * t583 - 0.3109070e-1 * t73 * (t2530 + t2557 + t2588 + t2612) - 0.3e1 / 0.8e1 * t5 * t9 * (t2658 + t2692) + t5 * t289 * t537 / 0.4e1 - 0.3e1 / 0.8e1 * t5 * t98 * t1199 + 0.10274000000000000000e0 * t165 * t862 * t1206;
3292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3293     v4rho3sigma[0] = rho[0] * (t2471 + t2706) + 0.96491876992155210402e2 * t1220 - 0.60000000000000000000e1 * t1214 + 0.31942585179999999999e-2 * t1211 + t1140 / 0.4e1 - 0.9327210e-1 * t1295 - 0.21295056786666666666e-2 * t1204 + 0.30000000000000000000e1 * t1217 + 0.60000000000000000000e1 * t1223 - 0.3e1 / 0.4e1 * t1143 - 0.9e1 / 0.8e1 * t1201 - 0.10274000000000000000e0 * t1208;
3294 
3295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3296     v4rho3lapl[0] = 0.0e0;
3297 
3298   t2720 = t422 * t280;
3299   t2753 = 0.96491876992155210402e2 * t839 * t2720 * t174 - 0.60000000000000000000e1 * t848 * t1382 + 0.60000000000000000000e1 * t420 * t844 * t280 + 0.15971292590000000000e-2 * t148 * t151 * t1454 + 0.68493333333333333332e-1 * t402 * t1373 - 0.51369999999999999999e-1 * t165 * t1108 * t1372 - 0.10274000000000000000e0 * t165 * t375 * t175 * t663 - 0.16522625736956710527e1 * t165 * t1116 * t2720 + 0.30000000000000000000e1 * t157 * t176 * t1454 + 0.96491876992155210402e2 * t420 * t423 * t663 + 0.20690405167709360120e4 * t786 * t790 * t280;
3300   t2772 = tau[0] * t931;
3301   t2798 = t337 * t42;
3302   t2810 = 0.67065173333333333338e-4 * t127 * t1168 * t120 - 0.17566767407407407408e-1 * t127 * t1225 * t27 - 0.27943822222222222224e-4 * t2772 * t2319 - 0.89420231111111111120e-7 * t127 * t1171 * t330 - 0.46573037037037037038e1 * t117 * t126 * t605 + 0.42980000000000000001e1 * t463 * t85 * t1322 + 0.19648000000000000001e-1 * t475 * t126 * t1326 - 0.13644444444444444445e1 * t1409 * t91 * t257 * t870 - 0.65493333333333333335e-2 * t914 * t85 * t609 * t299 + 0.17974281481481481481e1 * t127 * t1241 * t17 + 0.67792592592592592593e1 * t2798 + 0.19648000000000000000e-1 * t461 * t1071 * tau[0] - 0.13644444444444444444e1 * t2322 * t1409 * t17 * t870 - 0.65493333333333333334e-2 * t946 * t2663 * t299;
3303   t2820 = t300 * t85;
3304   t2822 = t870 * t637;
3305   t2823 = t2822 * t91;
3306   t2825 = t350 * t126;
3307   t2827 = t127 * t337;
3308   t2829 = t343 * t350;
3309   t2838 = t869 * t300;
3310   t2843 = t2098 * t2822;
3311   t2848 = -0.46573037037037037037e1 * t353 * t1062 * tau[0] - 0.27943822222222222224e-4 * t949 * t2667 * tau[0] + 0.42980000000000000000e1 * t1066 * t1067 * t299 + 0.90133333333333333335e2 * t2820 - 0.46222222222222222224e2 * t2823 - 0.50536296296296296297e2 * t2825 + 0.67792592592592592593e1 * t2827 - 0.50536296296296296297e2 * t2829 + 0.17974281481481481481e1 * t311 * t42 * t257 - 0.89420231111111111120e-7 * t976 * t42 * t324 * t330 + 0.90133333333333333334e2 * t2838 - 0.17566767407407407408e-1 * t317 * t42 * t609 - 0.46222222222222222223e2 * t2843 + 0.67065173333333333338e-4 * t327 * t42 * t1341;
3312   t2868 = t1225 * t77;
3313   t2875 = t1168 * t183;
3314   t2880 = 0.1e1 / t974;
3315   t2889 = t1171 * t434;
3316   t2893 = t884 * t2138 * t890;
3317   t2898 = -0.123965856e4 * t188 * t2868 - 0.164215296e4 * t205 * t2868 - 0.288181152e4 * t195 * t2868 + 0.15986345386666666667e4 * t195 * t2875 + 0.91095563377777777782e3 * t205 * t2875 + 0.36380000000000000000e3 * t870 * t2880 * t2066 + 0.43726933333333333335e2 * t299 * t2063 * t2073 + 0.68767890488888888891e3 * t188 * t2875 - 0.13432913920000000000e3 * t188 * t2889 + 0.89552759466666666670e1 * t188 * t2893 - 0.31227248640000000000e3 * t195 * t2889;
3318   t2905 = t299 * t914;
3319   t2909 = t924 * t299;
3320   t2912 = t932 * tau[0];
3321   t2921 = t936 * tau[0];
3322   t2925 = t2880 * t77 * t870;
3323   t2928 = 0.20818165760000000000e2 * t195 * t2893 - 0.17794334720000000001e3 * t205 * t2889 + 0.11862889813333333334e2 * t205 * t2893 - 0.39627533333333333334e3 * t2905 * t917 - 0.92367407407407407407e2 * t2798 - 0.19710913333333333333e5 * t961 * t2909 - 0.38936413866666666669e4 * t964 * t2912 - 0.78740800000000000000e4 * t923 * t2909 - 0.17666901333333333333e4 * t928 * t2912 - 0.51412939999999999999e4 * t946 * t2909 + 0.13989449244444444445e5 * t481 * t2921 + 0.86069999999999999999e4 * t2175 * t2925;
3324   t2932 = t2559 * t299;
3325   t2937 = t2563 * tau[0];
3326   t2956 = 0.31677333333333333333e4 * t2181 * t2925 + 0.86886400000000000002e3 * t2184 * t2932 + 0.21749973333333333334e4 * t2187 * t2932 + 0.13901824000000000000e3 * t2191 * t2937 + 0.63475342222222222222e4 * t492 * t2921 + 0.30878666666666666667e4 * t2124 * t2925 + 0.56731520000000000001e3 * t2131 * t2932 + 0.41977856000000000001e2 * t2136 * t2937 + 0.81633333333333333333e4 * t2144 * t2925 + 0.18297216000000000001e4 * t2147 * t2932 + 0.20934451200000000000e3 * t2150 * t2937 - 0.53346858666666666669e3 * t949 * t2912;
3327   t2974 = -0.16581852000000000000e5 * t954 * t2909 - 0.26604198400000000001e4 * t957 * t2912 + 0.19166972444444444445e4 * t461 * t2921 + 0.30638489600000000001e3 * t2212 * t2937 + 0.95586122666666666667e4 * t469 * t2921 - 0.12280666666666666667e4 * t2820 + 0.62977777777777777776e3 * t2823 + 0.68855703703703703704e3 * t2825 - 0.92367407407407407407e2 * t2827 + 0.68855703703703703704e3 * t2829 - 0.12280666666666666667e4 * t2838 + 0.62977777777777777777e3 * t2843;
3328   t2982 = 0.30000000000000000000e1 * t157 * t414 * t663 - 0.60000000000000000000e1 * t385 * t387 * t663 - 0.19298375398431042081e3 * t802 * t803 * t280 + 0.10000000000000000000e1 * t157 * t835 * t280 - 0.3e1 / 0.8e1 * t5 * t9 * (t2810 + t2848) + t5 * t289 * t622 / 0.4e1 - 0.3e1 / 0.8e1 * t5 * t98 * t1365 - 0.21295056786666666666e-2 * t148 * t371 * t663 - 0.5e1 / 0.36e2 * t5 * t858 * t264 + 0.16562821945185185185e-2 * t148 * t1102 * t280 - 0.3109070e-1 * t73 * (t2898 + t2928 + t2956 + t2974) + 0.10274000000000000000e0 * t165 * t862 * t1372;
3329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3330     v4rho3tau[0] = rho[0] * (t2753 + t2982) - 0.9327210e-1 * t1455 + 0.60000000000000000000e1 * t1389 + 0.96491876992155210402e2 * t1386 + 0.30000000000000000000e1 * t1383 - 0.3e1 / 0.4e1 * t1308 - 0.9e1 / 0.8e1 * t1367 + 0.31942585179999999999e-2 * t1377 - 0.60000000000000000000e1 * t1380 + t1305 / 0.4e1 - 0.21295056786666666666e-2 * t1370 - 0.10274000000000000000e0 * t1374;
3331 
3332   t3011 = t120 * tau[0] * sigma[0];
3333   t3014 = t914 * t120;
3334   t3026 = t1165 * sigma[0];
3335   t3029 = t327 * t330 * t20;
3336   t3031 = t114 * t976;
3337   t3032 = t3031 * t1089;
3338   t3034 = t324 * t2138;
3339   t3057 = 0.21831111111111111110e-2 * t127 * t360 - 0.19211377777777777778e-4 * t127 * t475 * t3011 + 0.21831111111111111111e-5 * t353 * t3014 * t299 + 0.41915733333333333334e-7 * t358 * t931 * t330 * tau[0] - 0.54577777777777777776e-3 * t1189 * t126 * t27 + 0.64096711111111111109e-3 * t1162 - 0.63826375111111111112e-4 * t3026 + 0.88349627733333333336e-6 * t3029 - 0.42149041493333333335e-8 * t3032 + 0.66444765866666666669e-11 * t3034 * t2264 - 0.19211377777777777778e-4 * t1193 * t1482 - 0.54577777777777777777e-3 * t343 * t1146 - 0.33183288888888888889e-2 * t43 * t1162 + 0.58332728888888888889e-4 * t43 * t3026 - 0.31436800000000000001e-6 * t43 * t3029 + 0.21831111111111111112e-5 * t2905 * t301 * t120 + 0.41915733333333333334e-7 * t2772 * t306 * t330 + 0.53652138666666666668e-9 * t43 * t3032 + 0.21831111111111111110e-2 * t305 * t1472;
3340   t3088 = t317 * t183 * sigma[0];
3341   t3098 = t327 * t434 * t20;
3342   t3101 = t3031 * t890;
3343   t3104 = t3034 * t2087;
3344   t3123 = 0.10931733333333333333e3 * t188 * t452 + 0.25412800000000000000e3 * t195 * t452 + 0.11952028444444444444e3 * t86 * t3088 - 0.27329333333333333333e2 * t343 * t465 - 0.13629200000000000000e3 * t468 * t465 - 0.19946933333333333333e3 * t480 * t465 - 0.68563831466666666666e2 * t86 * t3098 + 0.14972101973333333333e2 * t86 * t3101 - 0.11194094933333333333e1 * t86 * t3104 + 0.14481066666666666667e3 * t205 * t452 + 0.11874474666666666667e3 * t92 * t3088 - 0.90506666666666666667e2 * t491 * t465 - 0.68118937600000000000e2 * t92 * t3098 + 0.14874951680000000000e2 * t92 * t3101 - 0.11121459199999999999e1 * t92 * t3104 + 0.10816711111111111111e2 * t3088 - 0.62050986666666666666e1 * t3098 + 0.13549909333333333333e1 * t3101 - 0.10130773333333333333e0 * t3104;
3345   t3130 = t2063 * t434;
3346   t3131 = t3130 * t299;
3347   t3137 = t2070 * t890 * tau[0];
3348   t3162 = t311 * t77;
3349   t3168 = 0.15957546666666666667e3 * t1276 * t1252 + 0.72405333333333333333e2 * t1260 * t1252 + 0.59082752000000000000e2 * t206 * t1256 - 0.23936320000000000000e2 * t481 * t3131 - 0.10860800000000000000e2 * t492 * t3131 - 0.55607295999999999999e1 * t495 * t3137 + 0.21863466666666666667e2 * t353 * t1252 + 0.10903360000000000000e3 * t1271 * t1252 + 0.44601472000000000000e2 * t189 * t1256 + 0.10368422400000000000e3 * t196 * t1256 - 0.32795200000000000000e1 * t461 * t3131 - 0.16355040000000000000e2 * t469 * t3131 - 0.41977856000000000000e1 * t472 * t3137 - 0.97585151999999999998e1 * t484 * t3137 - 0.18535765333333333333e3 * t572 * t477 - 0.13992618666666666667e3 * t554 * t477 - 0.32528383999999999999e3 * t557 * t477 - 0.55387448888888888889e2 * t86 * t3162 - 0.55028053333333333333e2 * t92 * t3162 - 0.50126222222222222222e1 * t3162;
3350   t3172 = t5 * t289 * t680 / 0.12e2 - t5 * t98 * t1491 / 0.4e1 - 0.3e1 / 0.8e1 * t5 * t9 * t3057 - 0.70983522622222222221e-3 * t148 * t371 * t702 - 0.34246666666666666666e-1 * t165 * t375 * t175 * t702 + 0.10647528393333333333e-2 * t148 * t151 * t1548 - 0.20000000000000000000e1 * t385 * t387 * t702 + 0.10000000000000000000e1 * t157 * t414 * t702 + 0.32163958997385070134e2 * t420 * t423 * t702 + 0.20000000000000000000e1 * t157 * t176 * t1548 - 0.3109070e-1 * t73 * (t3123 + t3168);
3351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3352     v4rho2sigma2[0] = -t1460 / 0.4e1 - 0.3e1 / 0.4e1 * t1493 + 0.10647528393333333333e-2 * t1496 + 0.20000000000000000000e1 * t1499 - 0.6218140e-1 * t1549 + rho[0] * t3172;
3353 
3354   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3355     v4rho2sigmalapl[0] = 0.0e0;
3356 
3357   t3185 = t1409 * t27;
3358   t3223 = t1409 * t85;
3359   t3227 = t914 * t126;
3360   t3235 = 0.81866666666666666665e-3 * t1066 * t3185 * t299 + 0.69859555555555555558e-5 * t461 * t3014 * tau[0] + 0.46391111111111111111e0 * t343 * t1362 - 0.36021333333333333333e-2 * t343 * t463 * t1157 - 0.21307164444444444446e-4 * t1340 * t1567 + 0.33532586666666666670e-7 * t931 * t42 * t114 * t330 - 0.28380444444444444444e0 * t1315 * t17 + 0.46391111111111111112e0 * t1318 * t1558 + 0.43662222222222222223e-2 * t1337 * t709 - 0.20466666666666666667e0 * t1321 * t17 * t299 + 0.43662222222222222223e-2 * t127 * t359 * sigma[0] - 0.21307164444444444446e-4 * t127 * t1149 * t20 + 0.33532586666666666670e-7 * t127 * t1469 * t330 - 0.36021333333333333333e-2 * t1325 * t1157 + 0.81866666666666666665e-3 * t3223 * t709 * t299 + 0.69859555555555555558e-5 * t3227 * t1567 * tau[0] - 0.20466666666666666666e0 * t869 * t1353 - 0.28380444444444444444e0 * t127 * t346;
3361   t3265 = t2880 * t183;
3362   t3266 = t3265 * t299;
3363   t3269 = t3130 * tau[0];
3364   t3298 = -0.19946933333333333333e4 * t1276 * t1442 - 0.90506666666666666667e3 * t1260 * t1442 - 0.10860800000000000000e3 * t923 * t3266 - 0.34754560000000000000e2 * t928 * t3269 - 0.27187466666666666666e3 * t961 * t3266 - 0.76596224000000000000e2 * t964 * t3269 + 0.54304000000000000000e3 * t2602 * t1429 + 0.35478613333333333334e3 * t492 * t1425 - 0.70914400000000000000e2 * t946 * t3266 - 0.10494464000000000000e2 * t949 * t3269 - 0.22871520000000000000e3 * t954 * t3266 - 0.52336128000000000000e2 * t957 * t3269 + 0.13593733333333333333e4 * t2599 * t1429 + 0.78191978666666666667e3 * t481 * t1425 + 0.35457200000000000000e3 * t1066 * t1429 + 0.10713098666666666667e3 * t461 * t1425 + 0.11435760000000000000e4 * t2579 * t1429;
3365   t3306 = sigma[0] * t117 * t77;
3366   t3315 = t1466 * t183;
3367   t3318 = t1469 * t434;
3368   t3325 = t324 * t2070 * t890;
3369   t3340 = 0.53426464000000000000e3 * t469 * t1425 - 0.27329333333333333333e3 * t353 * t1442 - 0.13629200000000000000e4 * t1271 * t1442 + 0.36492288e3 * t205 * t3306 + 0.27547968e3 * t188 * t3306 + 0.64040256e3 * t195 * t3306 + 0.27329333333333333333e2 * t1410 * t2523 - 0.19414758400000000000e3 * t188 * t3315 + 0.44601472000000000000e2 * t188 * t3318 - 0.54658666666666666667e1 * t299 * t2880 * t2527 - 0.33582284799999999999e1 * t188 * t3325 - 0.45133132800000000000e3 * t195 * t3315 + 0.10368422400000000000e3 * t195 * t3318 - 0.78068121599999999999e1 * t195 * t3325 - 0.25718374400000000000e3 * t205 * t3315 + 0.59082752000000000000e2 * t205 * t3318 - 0.44485836799999999999e1 * t205 * t3325;
3370   t3344 = t5 * t289 * t719 / 0.12e2 - t5 * t98 * t1584 / 0.4e1 - 0.3e1 / 0.8e1 * t5 * t9 * t3235 - 0.70983522622222222221e-3 * t148 * t371 * t738 - 0.34246666666666666666e-1 * t165 * t375 * t175 * t738 + 0.10647528393333333333e-2 * t148 * t151 * t1634 - 0.20000000000000000000e1 * t385 * t387 * t738 + 0.10000000000000000000e1 * t157 * t414 * t738 + 0.32163958997385070134e2 * t420 * t423 * t738 + 0.20000000000000000000e1 * t157 * t176 * t1634 - 0.3109070e-1 * t73 * (t3298 + t3340);
3371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3372     v4rho2sigmatau[0] = -t1554 / 0.4e1 - 0.3e1 / 0.4e1 * t1586 + 0.10647528393333333333e-2 * t1589 + 0.20000000000000000000e1 * t1592 - 0.6218140e-1 * t1635 + rho[0] * t3344;
3373 
3374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3375     v4rho2lapl2[0] = 0.0e0;
3376 
3377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3378     v4rho2lapltau[0] = 0.0e0;
3379 
3380   t3371 = t869 * t271 * tau[0];
3381   t3389 = t2098 * t763 * t299;
3382   t3391 = t343 * t24;
3383   t3398 = t763 * t91 * t299;
3384   t3401 = t1349 * tau[0];
3385   t3403 = 0.81866666666666666667e0 * t2322 * t1683 * t17 * t299 + 0.26197333333333333334e-2 * t946 * t3185 * tau[0] + 0.1031520e1 * t343 * t670 * t17 - 0.18010666666666666667e1 * t1066 * t1352 * tau[0] - 0.38826666666666666666e2 * t3371 + 0.1031520e1 * t1318 * t257 - 0.18010666666666666667e1 * t1321 * t605 + 0.81866666666666666667e0 * t1683 * t91 * t1322 + 0.26197333333333333334e-2 * t3223 * t1326 - 0.41042488888888888890e-2 * t343 * t673 * t27 + 0.55887644444444444448e-5 * t343 * t1610 * t120 + 0.27733333333333333333e2 * t3389 + 0.12017777777777777778e2 * t3391 - 0.41042488888888888890e-2 * t1325 * t609 + 0.55887644444444444448e-5 * t3227 * t1341 + 0.27733333333333333333e2 * t3398 + 0.12017777777777777778e2 * t1346 - 0.38826666666666666666e2 * t3401;
3386   t3433 = t324 * t2063 * t434;
3387   t3436 = t1610 * t183;
3388   t3449 = 0.1e1 / t929;
3389   t3458 = t673 * t77;
3390   t3465 = -0.16374222222222222222e3 * t1346 + 0.52901333333333333334e3 * t3401 - 0.37786666666666666667e3 * t3398 - 0.83955712000000000003e1 * t343 * t3433 + 0.54952934400000000002e3 * t468 * t3436 - 0.41868902400000000002e2 * t468 * t3433 + 0.80426035200000000002e3 * t480 * t3436 - 0.61276979200000000002e2 * t480 * t3433 + 0.36492288000000000002e3 * t491 * t3436 - 0.27803648000000000002e2 * t491 * t3433 - 0.21828000000000000000e3 * t299 * t3449 * t2066 - 0.17490773333333333334e2 * tau[0] * t2880 * t2073 + 0.11019187200000000000e3 * t343 * t3436 - 0.30079975466666666667e4 * t480 * t3458 - 0.13648405333333333333e4 * t491 * t3458 - 0.41212634666666666667e3 * t343 * t3458;
3391   t3472 = t1428 * tau[0];
3392   t3482 = t3449 * t77 * t299;
3393   t3485 = t3265 * tau[0];
3394   t3502 = -0.20552833600000000000e4 * t468 * t3458 + 0.16397600000000000000e3 * tau[0] * t1409 * t917 - 0.16374222222222222222e3 * t3391 + 0.68614560000000000000e4 * t954 * t3472 + 0.81562399999999999999e4 * t961 * t3472 + 0.32582400000000000000e4 * t923 * t3472 + 0.21274320000000000000e4 * t946 * t3472 - 0.51642000000000000000e4 * t2175 * t3482 - 0.86999893333333333336e3 * t2187 * t3485 - 0.19006400000000000000e4 * t2181 * t3482 - 0.34754560000000000002e3 * t2184 * t3485 - 0.18527200000000000000e4 * t2124 * t3482 - 0.22692608000000000000e3 * t2131 * t3485 - 0.48980000000000000000e4 * t2144 * t3482 - 0.73188864000000000002e3 * t2147 * t3485 - 0.37786666666666666667e3 * t3389 + 0.52901333333333333334e3 * t3371;
3395   t3506 = t5 * t289 * t756 / 0.12e2 - t5 * t98 * t1668 / 0.4e1 - 0.3e1 / 0.8e1 * t5 * t9 * t3403 - 0.70983522622222222221e-3 * t148 * t371 * t774 - 0.34246666666666666666e-1 * t165 * t375 * t175 * t774 + 0.10647528393333333333e-2 * t148 * t151 * t1716 - 0.20000000000000000000e1 * t385 * t387 * t774 + 0.10000000000000000000e1 * t157 * t414 * t774 + 0.32163958997385070134e2 * t420 * t423 * t774 + 0.20000000000000000000e1 * t157 * t176 * t1716 - 0.3109070e-1 * t73 * (t3465 + t3502);
3396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3397     v4rho2tau2[0] = -t1640 / 0.4e1 - 0.3e1 / 0.4e1 * t1670 + 0.10647528393333333333e-2 * t1673 + 0.20000000000000000000e1 * t1676 - 0.6218140e-1 * t1717 + rho[0] * t3506;
3398 
3399   t3513 = t475 * t330 * sigma[0];
3400   t3515 = t20 * t931;
3401   t3516 = t3515 * t1089;
3402   t3518 = t114 * t2070;
3403   t3540 = 0.7661568e-5 * t1463 - 0.19609190400000000000e-6 * t3513 + 0.12847022080000000000e-8 * t3516 - 0.24916787200000000001e-11 * t3518 * t2264 + 0.19648000000000000000e-5 * t1481 * t42 * t120 + 0.19648000000000000000e-5 * t127 * t1486 - 0.9431040e-5 * t43 * t1463 + 0.88023040000000000001e-7 * t43 * t3513 - 0.78592000000000000000e-8 * tau[0] * t914 * t131 * t330 - 0.78592000000000000000e-8 * t135 * t914 * t330 * tau[0] - 0.20119552000000000001e-9 * t43 * t3516;
3404   t3552 = t475 * t434 * sigma[0];
3405   t3554 = t3515 * t890;
3406   t3556 = t3518 * t2087;
3407   t3563 = t2063 * t890 * tau[0];
3408   t3595 = -0.15741696e2 * t86 * t1503 + 0.9838560e1 * t188 * t565 + 0.22871520000000000000e2 * t195 * t565 + 0.15741696000000000000e2 * t86 * t3552 - 0.46175641600000000000e1 * t86 * t3554 + 0.41977855999999999999e0 * t86 * t3556 - 0.15639552e2 * t92 * t1503 + 0.13032960000000000000e2 * t205 * t565 + 0.15639552000000000000e2 * t92 * t3552 - 0.45876019200000000000e1 * t92 * t3554 + 0.41705471999999999999e0 * t92 * t3556;
3409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3410     v4rhosigma3[0] = -t1736 - t1757 + rho[0] * (-t5 * t98 * t1733 / 0.8e1 - 0.3e1 / 0.8e1 * t5 * t9 * t3540 + 0.53237641966666666666e-3 * t148 * t151 * t1755 + 0.10000000000000000000e1 * t157 * t176 * t1755 - 0.3109070e-1 * t73 * (-0.1424640e1 * t1503 + 0.14246400000000000000e1 * t3552 - 0.41789440000000000000e0 * t3554 + 0.37990399999999999999e-1 * t3556 - 0.59031360e1 * t554 * t1513 - 0.13722912000000000000e2 * t557 * t1513 + 0.78708480e0 * t189 * t3563 + 0.18297216000000000000e1 * t196 * t3563 - 0.78197760000000000000e1 * t572 * t1513 + 0.10426368000000000000e1 * t206 * t3563 + t3595));
3411 
3412   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3413     v4rhosigma2lapl[0] = 0.0e0;
3414 
3415   t3610 = t1409 * t126;
3416   t3642 = t114 * t2063 * t890;
3417   t3651 = t564 * sigma[0];
3418   t3654 = t1726 * t434;
3419   t3669 = 0.16682188800000000000e1 * t205 * t3642 - 0.3443496e2 * t188 * t191 + 0.16397600000000000000e2 * t343 * t639 + 0.8177520e2 * t468 * t639 + 0.43289664000000000000e2 * t188 * t3651 - 0.13577212800000000000e2 * t188 * t3654 + 0.12593356800000000000e1 * t188 * t3642 - 0.8005032e2 * t195 * t191 + 0.11968160000000000000e3 * t480 * t639 + 0.10063468800000000000e3 * t195 * t3651 - 0.31562697600000000000e2 * t195 * t3654 + 0.29275545600000000000e1 * t195 * t3642;
3420   t3679 = t2880 * t434 * tau[0];
3421   t3696 = -0.4561536e2 * t205 * t191 + 0.54304000000000000000e2 * t491 * t639 + 0.57345024000000000000e2 * t205 * t3651 - 0.17985484800000000000e2 * t205 * t3654 + 0.98130240e1 * t469 * t3679 - 0.95745280000000000000e2 * t1276 * t1605 + 0.14361792000000000000e2 * t481 * t3679 - 0.43443200000000000000e2 * t1260 * t1605 + 0.65164800000000000000e1 * t492 * t3679 - 0.13118080000000000000e2 * t353 * t1605 - 0.65420160e2 * t1271 * t1605 + 0.19677120000000000000e1 * t461 * t3679;
3422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3423     v4rhosigma2tau[0] = -t1775 - t1800 + rho[0] * (-t5 * t98 * t1772 / 0.8e1 - 0.3e1 / 0.8e1 * t5 * t9 * (-0.687680e-3 * t608 * t27 + 0.32746666666666666666e-3 * t1563 * t1156 + 0.58944000000000000000e-5 * t1566 * t1762 - 0.13098666666666666667e-5 * t3610 * t3011 - 0.12574720000000000000e-7 * t914 * t42 * t20 * t330 + 0.32746666666666666667e-3 * t343 * t1578 - 0.687680e-3 * t127 * t531 + 0.58944000000000000000e-5 * t127 * t1485 * sigma[0] - 0.13098666666666666667e-5 * t353 * t1409 * t120 * tau[0] - 0.12574720000000000000e-7 * t127 * t1726 * t330) + 0.53237641966666666666e-3 * t148 * t151 * t1798 + 0.10000000000000000000e1 * t157 * t176 * t1798 - 0.3109070e-1 * t73 * (t3669 + t3696));
3424 
3425   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3426     v4rhosigmalapl2[0] = 0.0e0;
3427 
3428   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3429     v4rhosigmalapltau[0] = 0.0e0;
3430 
3431   t3711 = t1683 * t85;
3432   t3742 = t1782 * t183;
3433   t3749 = t114 * t2880 * t434;
3434   t3765 = t3449 * t183 * tau[0];
3435   t3768 = -0.16397600000000000000e2 * t1684 * t2523 - 0.32795200000000000000e2 * t343 * t3742 + 0.32795200000000000000e1 * tau[0] * t3449 * t2527 + 0.31483392000000000000e1 * t343 * t3749 - 0.16355040000000000000e3 * t468 * t3742 + 0.15700838400000000000e2 * t468 * t3749 - 0.23936320000000000000e3 * t480 * t3742 + 0.22978867200000000000e2 * t480 * t3749 - 0.10860800000000000000e3 * t491 * t3742 + 0.10426368000000000000e2 * t491 * t3749 + 0.13722912000000000000e3 * t954 * t3765;
3436   t3769 = t1768 * t77;
3437   t3792 = 0.62234432000000000000e3 * t480 * t3769 - 0.81562400000000000000e3 * t2599 * t1688 + 0.16312480000000000000e3 * t961 * t3765 + 0.28238080000000000000e3 * t491 * t3769 - 0.32582400e3 * t2602 * t1688 + 0.65164800e2 * t923 * t3765 + 0.85267520000000000000e2 * t343 * t3769 - 0.21274320000000000000e3 * t1066 * t1688 + 0.42548640000000000000e2 * t946 * t3765 + 0.42523104000000000000e3 * t468 * t3769 - 0.68614560000000000000e3 * t2579 * t1688;
3438   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3439     v4rhosigmatau2[0] = -t1817 - t1839 + rho[0] * (-t5 * t98 * t1814 / 0.8e1 - 0.3e1 / 0.8e1 * t5 * t9 * (-0.147360e0 * t604 * t17 + 0.12280000000000000000e0 * t1653 * t1558 + 0.11133866666666666667e-2 * t1563 * t709 - 0.49120000000000000000e-3 * t3711 * t1157 - 0.20957866666666666667e-5 * t3610 * t1567 + 0.122800e0 * t869 * t1659 - 0.147360e0 * t343 * t612 + 0.11133866666666666667e-2 * t343 * t1577 * sigma[0] - 0.491200e-3 * t1066 * t1683 * t27 * tau[0] - 0.20957866666666666667e-5 * t343 * t1782 * t120) + 0.53237641966666666666e-3 * t148 * t151 * t1837 + 0.10000000000000000000e1 * t157 * t176 * t1837 - 0.3109070e-1 * t73 * (t3768 + t3792));
3440 
3441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3442     v4rholapl3[0] = 0.0e0;
3443 
3444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3445     v4rholapl2tau[0] = 0.0e0;
3446 
3447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3448     v4rholapltau2[0] = 0.0e0;
3449 
3450   t3803 = t1847 * t91 * tau[0];
3451   t3806 = t2098 * t1847 * tau[0];
3452   t3808 = t869 * t748;
3453   t3843 = 0.1e1 / t877;
3454   t3853 = t3843 * t77 * tau[0];
3455   t3856 = t1821 * t77;
3456   t3860 = t114 * t3449 * t183;
3457   t3881 = -0.170040e3 * t1643 + 0.22672000000000000000e3 * t3803 + 0.22672000000000000000e3 * t3806 - 0.170040e3 * t3808 - 0.50832560000000000000e2 * t3711 * t1864 + 0.13096800000000000000e3 * t3843 * t91 * t1864 * tau[0] + 0.52472320000000000002e1 * t3449 * t85 * t114 * t183 + 0.11116320000000000000e4 * t2124 * t3853 - 0.65950392000000000000e3 * t869 * t3856 + 0.68077824000000000002e2 * t869 * t3860 + 0.29388000000000000000e4 * t2144 * t3853 - 0.21270513600000000000e4 * t953 * t3856 + 0.21956659200000000001e3 * t953 * t3860 + 0.30985200000000000000e4 * t2175 * t3853 - 0.25284344000000000000e4 * t960 * t3856 + 0.26099968000000000001e3 * t960 * t3860 + 0.11403840000000000000e4 * t2181 * t3853 - 0.10100544000000000000e4 * t922 * t3856 + 0.10426368000000000000e3 * t922 * t3860;
3458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3459     v4rhotau3[0] = -t1858 - t1879 + rho[0] * (-t5 * t98 * t1855 / 0.8e1 - 0.3e1 / 0.8e1 * t5 * t9 * (0.12480e2 * t1643 - 0.16640000000000000000e2 * t3803 - 0.16640000000000000000e2 * t3806 + 0.12480e2 * t3808 + 0.56488000000000000000e0 * t1653 * t257 - 0.49120000000000000000e0 * t1862 * t91 * t605 - 0.78592000000000000002e-3 * t3711 * t609 - 0.49120000000000000000e0 * t2322 * t1862 * t17 * tau[0] + 0.56488000000000000000e0 * t869 * t1810 * t17 - 0.78592000000000000002e-3 * t869 * t1821 * t27) + 0.53237641966666666666e-3 * t148 * t151 * t1877 + 0.10000000000000000000e1 * t157 * t176 * t1877 - 0.3109070e-1 * t73 * t3881);
3460 
3461   t3886 = t463 * t330;
3462   t3888 = sigma[0] * t914;
3463   t3889 = t3888 * t1089;
3464   t3891 = t20 * t2063;
3465   t3902 = t463 * t434;
3466   t3904 = t3888 * t890;
3467   t3906 = t3891 * t2087;
3468   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3469     v4sigma4[0] = rho[0] * (-0.3e1 / 0.8e1 * t5 * t9 * (0.27002880e-7 * t3886 - 0.341606400e-9 * t3889 + 0.934379520e-12 * t3891 * t2264 - 0.18862080e-7 * t43 * t3886 + 0.75448320e-10 * t43 * t3889) - 0.3109070e-1 * t73 * (-0.2136960e0 * t3902 + 0.11397120e0 * t3904 - 0.14246400e-1 * t3906 - 0.23612544e1 * t86 * t3902 + 0.125933568e1 * t86 * t3904 - 0.157416960e0 * t86 * t3906 - 0.23459328e1 * t92 * t3902 + 0.125116416e1 * t92 * t3904 - 0.156395520e0 * t92 * t3906));
3470 
3471   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3472     v4sigma3lapl[0] = 0.0e0;
3473 
3474   t3933 = sigma[0] * t1409;
3475   t3941 = t637 * t183;
3476   t3944 = t3933 * t434;
3477   t3948 = t20 * t2880 * t890;
3478   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3479     v4sigma3tau[0] = rho[0] * (-0.3e1 / 0.8e1 * t5 * t9 * (-0.1178880e-5 * t1761 * t120 + 0.4715520e-8 * t1409 * t42 * sigma[0] * t330 - 0.1178880e-5 * t127 * t637 * t120 + 0.4715520e-8 * t127 * t3933 * t330) - 0.3109070e-1 * t73 * (-0.5903136e1 * t188 * t3941 + 0.35418816e1 * t188 * t3944 - 0.47225088e0 * t188 * t3948 - 0.13722912e2 * t195 * t3941 + 0.82337472e1 * t195 * t3944 - 0.109783296e1 * t195 * t3948 - 0.7819776e1 * t205 * t3941 + 0.46918656e1 * t205 * t3944 - 0.62558208e0 * t205 * t3948));
3480 
3481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3482     v4sigma2lapl2[0] = 0.0e0;
3483 
3484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3485     v4sigma2lapltau[0] = 0.0e0;
3486 
3487   t3975 = sigma[0] * t1683;
3488   t3983 = t763 * t77;
3489   t3986 = t3975 * t183;
3490   t3990 = t20 * t3449 * t434;
3491   t4011 = -0.983856e1 * t343 * t3983 + 0.7870848e1 * t343 * t3986 - 0.11806272e1 * t343 * t3990 - 0.4906512e2 * t468 * t3983 + 0.39252096e2 * t468 * t3986 - 0.58878144e1 * t468 * t3990 - 0.7180896e2 * t480 * t3983 + 0.57447168e2 * t480 * t3986 - 0.86170752e1 * t480 * t3990 - 0.3258240e2 * t491 * t3983 + 0.26065920e2 * t491 * t3986 - 0.39098880e1 * t491 * t3990;
3492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3493     v4sigma2tau2[0] = rho[0] * (-0.3e1 / 0.8e1 * t5 * t9 * (-0.196480e-3 * t1804 * t27 + 0.785920e-6 * t1683 * t126 * t1762 - 0.196480e-3 * t343 * t763 * t27 + 0.785920e-6 * t343 * t3975 * t120) - 0.3109070e-1 * t73 * t4011);
3494 
3495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3496     v4sigmalapl3[0] = 0.0e0;
3497 
3498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3499     v4sigmalapl2tau[0] = 0.0e0;
3500 
3501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3502     v4sigmalapltau2[0] = 0.0e0;
3503 
3504   t4022 = sigma[0] * t1862;
3505   t4037 = t4022 * t77;
3506   t4041 = t20 * t3843 * t183;
3507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3508     v4sigmatau3[0] = rho[0] * (-0.3e1 / 0.8e1 * t5 * t9 * (-0.73680e-1 * t1848 * t17 + 0.294720e-3 * t1863 * t709 - 0.73680e-1 * t869 * t1847 * t17 + 0.294720e-3 * t869 * t4022 * t27) - 0.3109070e-1 * t73 * (0.983856e1 * t1863 * sigma[0] * t77 - 0.1967712e1 * t3843 * t85 * t20 * t183 + 0.12764592e3 * t869 * t4037 - 0.25529184e2 * t869 * t4041 + 0.41168736e3 * t953 * t4037 - 0.82337472e2 * t953 * t4041 + 0.48937440e3 * t960 * t4037 - 0.97874880e2 * t960 * t4041 + 0.19549440e3 * t922 * t4037 - 0.39098880e2 * t922 * t4041));
3509 
3510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3511     v4lapl4[0] = 0.0e0;
3512 
3513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3514     v4lapl3tau[0] = 0.0e0;
3515 
3516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3517     v4lapl2tau2[0] = 0.0e0;
3518 
3519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3520     v4lapltau3[0] = 0.0e0;
3521 
3522   t4060 = t2257 * t91;
3523   t4062 = t2098 * t2257;
3524   t4081 = t20 * t2037 * t77;
3525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3526     v4tau4[0] = rho[0] * (-0.3e1 / 0.8e1 * t5 * t9 * (0.9984e1 * t4060 + 0.9984e1 * t4062 + 0.294720e0 * t2045 * t91 * t257 + 0.294720e0 * t2098 * sigma[0] * t2045 * t17) - 0.3109070e-1 * t73 * (-0.136032e3 * t4060 - 0.136032e3 * t4062 - 0.7858080e2 * t2037 * t91 * t1864 - 0.66697920e3 * t2098 * t4081 - 0.176328000e4 * t2143 * t4081 - 0.185911200e4 * t2174 * t4081 - 0.68423040e3 * t2180 * t4081));
3527 
3528 #ifndef XC_DONT_COMPILE_MXC
3529 
3530   if(order < 5) return;
3531 
3532 
3533 #endif
3534 
3535 #endif
3536 
3537 #endif
3538 
3539 #endif
3540 
3541 #endif
3542 
3543 
3544 }
3545 
3546 
3547 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 *))3548 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 *))
3549 {
3550 
3551 #ifndef XC_DONT_COMPILE_EXC
3552   double t2, t3, t4, t5, t6, t7, t9, t10;
3553   double t11, t12, t13, t14, t15, t16, t17, t18;
3554   double t19, t20, t21, t22, t23, t24, t26, t27;
3555   double t29, t30, t31, t33, t34, t35, t37, t38;
3556   double t39, t40, t43, t44, t45, t46, t47, t48;
3557   double t49, t51, t52, t53, t54, t55, t56, t60;
3558   double t61, t62, t64, t65, t67, t68, t69, t70;
3559   double t71, t72, t73, t75, t76, t78, t79, t80;
3560   double t82, t83, t84, t86, t87, t88, t89, t93;
3561   double t94, t95, t96, t97, t98, t102, t103, t104;
3562   double t106, t107, t108, t109, t110, t112, t114, t115;
3563   double t116, t119, t121, t122, t123, t124, t125, t126;
3564   double t127, t128, t130, t132, t135, t136, t138, t139;
3565   double t140, t141, t144, t145, t146, t147, t148, t149;
3566   double t152, t153, t154, t155, t158, t159, t161, t163;
3567   double t165, t166, t167, t170, t172, t174, t176, t179;
3568   double t180, t182, t183, t184, t185, t188, t189, t190;
3569   double t191, t192, t193, t196, t197, t198, t199, t202;
3570   double t203, t205, t206, t207, t209, t210, t213, t215;
3571   double t216, t218, t221, t222, t224, t225, t226, t227;
3572   double t228, t229, t230, t231, t233, t235, t238, t239;
3573   double t241, t246, t249, t250, t254, t259, t262, t263;
3574   double t264, t266, t267, t275, t276, t279, t280, t283;
3575   double t284, t285, t286, t287, t292, t294, t295, t296;
3576   double t297, t300, t301, t302, t303, t304, t305, t306;
3577   double t307, t310, t311;
3578 
3579 #ifndef XC_DONT_COMPILE_VXC
3580   double t312, t313, t314, t316, t317, t318, t319, t320;
3581   double t321, t323, t325, t326, t327, t329, t330, t331;
3582   double t333, t334, t335, t337, t339, t340, t341, t343;
3583   double t344, t345, t346, t347, t349, t352, t353, t355;
3584   double t356, t357, t359, t360, t361, t364, t365, t366;
3585   double t373, t374, t375, t376, t377, t378, t380, t381;
3586   double t382, t383, t384, t385, t387, t389, t390, t391;
3587   double t393, t394, t395, t396, t397, t399, t400, t402;
3588   double t403, t404, t405, t406, t407, t408, t409, t410;
3589   double t412, t413, t414, t415, t416, t417, t418, t419;
3590   double t421, t424, t426, t430, t431, t434, t435, t436;
3591   double t439, t440, t441, t442, t443, t444, t445, t448;
3592   double t449, t453, t454, t455, t456, t457, t460, t461;
3593   double t469, t470, t471, t478, t479, t480, t481, t482;
3594   double t483, t484, t486, t487, t488, t489, t490, t491;
3595   double t492, t493, t494, t496, t497, t498, t499, t500;
3596   double t501, t502, t503, t505, t508, t510, t515, t516;
3597   double t517, t520, t521, t522, t523, t524, t525, t526;
3598   double t529, t530, t531, t532, t534, t535, t536, t538;
3599   double t540, t541, t542, t545, t547, t548, t549, t551;
3600   double t552, t553, t555, t556, t557, t558, t560, t565;
3601   double t566, t571, t572, t573, t578, t579, t580, t586;
3602   double t587, t588, t593, t594, t595, t598, t599, t600;
3603   double t603, t605, t607, t608, t610, t612, t617, t618;
3604   double t625, t626, t629, t630, t633, t636, t639, t640;
3605   double t641, t645, t647, t648, t651, t652, t653, t656;
3606   double t660, t661, t662, t663, t666, t667, t668, t671;
3607   double t672, t673, t676, t677, t678, t680, t682, t683;
3608   double t684, t685, t687, t688, t689, t691, t692, t693;
3609   double t694, t696, t697, t698, t700, t701, t702, t704;
3610   double t706, t707, t708, t710, t711, t712, t713, t714;
3611   double t716, t719, t720, t722, t723, t724, t726, t727;
3612   double t728, t731, t732, t733, t740, t741, t742, t743;
3613   double t744, t745, t746, t747, t748, t749, t750, t752;
3614   double t753, t754, t755, t757, t763, t766, t767, t768;
3615   double t769, t770, t771, t772, t773, t774, t775, t776;
3616   double t778, t779, t780, t781, t783, t789, t792, t793;
3617   double t794, t795, t796, t797, t800, t801, t805, t806;
3618   double t807, t808, t809, t812, t813, t821, t822, t823;
3619   double t830, t831, t832, t833, t838, t839, t847, t848;
3620   double t855, t856, t859, t860, t870, t872, t873, t876;
3621   double t879, t882, t885, t886, t889, t890, t893, t894;
3622   double t895, t897, t899, t900, t902, t909, t910, t911;
3623   double t913, t914, t916, t926, t927, t929, t932, t934;
3624   double t942, t943, t945, t947, t948, t950, t957, t958;
3625   double t959, t961, t962, t964, t974, t975, t977, t980;
3626   double t982, t990, t991, t993, t995, t998, t999, t1000;
3627   double t1007, t1008, t1009, t1011, t1014, t1015, t1017, t1024;
3628   double t1025, t1027, t1029, t1030, t1032, t1033, t1036, t1039;
3629   double t1042, t1045, t1046, t1048, t1050, t1053, t1054, t1055;
3630   double t1062, t1063, t1064, t1066, t1069, t1070, t1072, t1079;
3631   double t1080, t1082, t1084, t1086, t1087, t1090, t1093, t1096;
3632   double t1099, t1100;
3633 
3634 #ifndef XC_DONT_COMPILE_FXC
3635   double t1102, t1103, t1104, t1106, t1108, t1109, t1110, t1111;
3636   double t1113, t1114, t1115, t1116, t1117, t1118, t1119, t1120;
3637   double t1121, t1122, t1126, t1127, t1128, t1130, t1131, t1133;
3638   double t1134, t1135, t1136, t1138, t1139, t1140, t1143, t1144;
3639   double t1145, t1150, t1154, t1155, t1156, t1159, t1160, t1161;
3640   double t1162, t1165, t1167, t1168, t1169, t1172, t1173, t1174;
3641   double t1179, t1180, t1182, t1183, t1184, t1185, t1188, t1190;
3642   double t1191, t1192, t1193, t1194, t1195, t1196, t1197, t1198;
3643   double t1199, t1200, t1201, t1202, t1203, t1204, t1205, t1206;
3644   double t1207, t1208, t1209, t1210, t1211, t1212, t1213, t1214;
3645   double t1215, t1216, t1217, t1218, t1219, t1220, t1221, t1222;
3646   double t1223, t1224, t1225, t1226, t1227, t1228, t1229, t1230;
3647   double t1231, t1232, t1233, t1234, t1235, t1237, t1238, t1240;
3648   double t1241, t1242, t1245, t1246, t1247, t1248, t1249, t1250;
3649   double t1251, t1252, t1254, t1255, t1256, t1257, t1258, t1260;
3650   double t1261, t1262, t1264, t1265, t1266, t1267, t1268, t1269;
3651   double t1271, t1278, t1282, t1283, t1285, t1286, t1287, t1290;
3652   double t1291, t1293, t1295, t1301, t1302, t1303, t1306, t1309;
3653   double t1312, t1315, t1316, t1319, t1322, t1325, t1326, t1327;
3654   double t1338, t1339, t1340, t1341, t1342, t1343, t1344, t1345;
3655   double t1346, t1347, t1348, t1349, t1351, t1352, t1353, t1356;
3656   double t1357, t1358, t1359, t1360, t1361, t1362, t1363, t1365;
3657   double t1366, t1367, t1368, t1369, t1371, t1372, t1373, t1375;
3658   double t1376, t1377, t1378, t1379, t1380, t1381, t1382, t1383;
3659   double t1384, t1385, t1386, t1387, t1388, t1389, t1391, t1392;
3660   double t1395, t1400, t1403, t1408, t1414, t1415, t1418, t1419;
3661   double t1421, t1422, t1425, t1428, t1431, t1432, t1433, t1434;
3662   double t1435, t1437, t1438, t1439, t1441, t1442, t1443, t1444;
3663   double t1446, t1447, t1448, t1450, t1451, t1452, t1453, t1454;
3664   double t1455, t1456, t1457, t1458, t1459, t1460, t1461, t1462;
3665   double t1463, t1464, t1465, t1466, t1468, t1469, t1472, t1477;
3666   double t1480, t1485, t1492, t1493, t1495, t1496, t1499, t1502;
3667   double t1505, t1506, t1507, t1508, t1509, t1510, t1511, t1512;
3668   double t1513, t1518, t1519, t1525, t1526, t1540, t1541, t1542;
3669   double t1543, t1544, t1545, t1546, t1548, t1549, t1550, t1552;
3670   double t1554, t1555, t1557, t1558, t1560, t1561, t1563, t1564;
3671   double t1565, t1567, t1568, t1570, t1571, t1572, t1575, t1578;
3672   double t1579, t1580, t1583, t1584, t1589, t1592, t1593, t1596;
3673   double t1597, t1604, t1605, t1611, t1615, t1616, t1617, t1618;
3674   double t1619, t1624, t1625, t1626, t1627, t1629, t1630, t1632;
3675   double t1634, t1635, t1636, t1638, t1641, t1643, t1644, t1647;
3676   double t1648, t1649, t1650, t1651, t1652, t1655, t1658, t1659;
3677   double t1660, t1661, t1662, t1663, t1665, t1672, t1673, t1675;
3678   double t1676, t1677, t1678, t1679, t1680, t1681, t1683, t1687;
3679   double t1691, t1692, t1701, t1702, t1705, t1706, t1709, t1710;
3680   double t1711, t1715, t1716, t1719, t1721, t1723, t1724, t1725;
3681   double t1728, t1730, t1731, t1732, t1734, t1735, t1737, t1738;
3682   double t1739, t1740, t1742, t1743, t1744, t1745, t1747, t1748;
3683   double t1749, t1751, t1752, t1753, t1754, t1756, t1757, t1758;
3684   double t1760, t1761, t1764, t1765, t1768, t1771, t1774, t1775;
3685   double t1776, t1777, t1780, t1784, t1785, t1794, t1797, t1801;
3686   double t1802, t1805, t1806, t1811, t1812, t1817, t1819, t1820;
3687   double t1824, t1827, t1828, t1836, t1839, t1840, t1844, t1845;
3688   double t1846, t1849, t1853, t1854, t1855, t1858, t1859, t1860;
3689   double t1861, t1868, t1870, t1880, t1881, t1883, t1885, t1888;
3690   double t1889, t1890, t1891, t1893, t1895, t1897, t1898, t1909;
3691   double t1910, t1914, t1916, t1917, t1918, t1919, t1921, t1922;
3692   double t1923, t1924, t1927, t1928, t1929, t1930, t1931, t1932;
3693   double t1934, t1942, t1948, t1950, t1953, t1957, t1958, t1959;
3694   double t1960, t1963, t1964, t1965, t1976, t1978, t1980, t1983;
3695   double t1986, t1989, t1993, t1994, t1996, t1997, t1998, t2001;
3696   double t2002, t2005, t2006, t2009, t2010, t2013, t2016, t2020;
3697   double t2021, t2022, t2024, t2027, t2031, t2033, t2034, t2035;
3698   double t2036, t2038, t2039, t2040, t2041, t2043, t2044, t2045;
3699   double t2047, t2048, t2051, t2054, t2062, t2063, t2066, t2074;
3700   double t2082, t2088, t2090, t2093, t2096, t2099, t2100, t2101;
3701   double t2104, t2107, t2112, t2114, t2115, t2116, t2120, t2121;
3702   double t2126, t2127, t2130, t2133, t2134, t2137, t2140, t2141;
3703   double t2142, t2145, t2148, t2149, t2150, t2153, t2154, t2155;
3704   double t2158, t2161, t2162, t2165, t2166, t2169, t2170, t2173;
3705   double t2176, t2177, t2183, t2184, t2187, t2188, t2191, t2192;
3706   double t2195, t2196, t2197, t2200, t2203, t2208, t2211, t2214;
3707   double t2215, t2216, t2217, t2218, t2219, t2221, t2222, t2224;
3708   double t2225, t2226, t2228, t2229, t2231, t2233, t2235, t2236;
3709   double t2238, t2240, t2242, t2244, t2246, t2248, t2249, t2250;
3710   double t2251, t2252, t2254, t2256, t2257, t2258, t2259, t2261;
3711   double t2263, t2264, t2265, t2267, t2269, t2270, t2272, t2273;
3712   double t2275, t2276, t2278, t2279, t2280, t2282, t2284, t2286;
3713   double t2288, t2290, t2292, t2294, t2296, t2298, t2300, t2301;
3714   double t2303, t2305, t2308, t2309, t2311, t2312, t2313, t2315;
3715   double t2316, t2318, t2320, t2322, t2323, t2325, t2326, t2329;
3716   double t2332, t2335, t2339, t2340, t2341, t2344, t2345, t2346;
3717   double t2347, t2348, t2351, t2352, t2353, t2357, t2358, t2359;
3718   double t2363, t2364, t2366, t2367, t2369, t2371, t2372, t2373;
3719   double t2376, t2377, t2378, t2382, t2383, t2384, t2387, t2388;
3720   double t2389, t2390, t2395, t2396, t2398, t2399, t2400, t2401;
3721   double t2404, t2406, t2407, t2410, t2411, t2412, t2413, t2414;
3722   double t2416, t2418, t2419, t2420, t2421, t2423, t2424, t2425;
3723   double t2426, t2427, t2428, t2429, t2430, t2432, t2439, t2442;
3724   double t2444, t2445, t2446, t2449, t2450, t2453, t2454, t2456;
3725   double t2458, t2461, t2462, t2465, t2471, t2472, t2473, t2476;
3726   double t2477, t2483, t2486, t2487, t2488, t2499, t2500, t2501;
3727   double t2502, t2503, t2504, t2505, t2506, t2507, t2508, t2509;
3728   double t2511, t2512, t2513, t2514, t2516, t2517, t2518, t2520;
3729   double t2521, t2522, t2524, t2525, t2526, t2527, t2528, t2529;
3730   double t2530, t2531, t2532, t2533, t2534, t2535, t2537, t2538;
3731   double t2539, t2540, t2542, t2543, t2544, t2546, t2547, t2548;
3732   double t2550, t2551, t2552, t2553, t2554, t2555, t2556, t2558;
3733   double t2559, t2560, t2561, t2563, t2564, t2565, t2567, t2568;
3734   double t2569, t2571, t2572, t2573, t2575, t2576, t2577, t2578;
3735   double t2579, t2580, t2581, t2582, t2583, t2584, t2585, t2586;
3736   double t2587, t2588, t2589, t2596, t2608, t2611, t2614, t2617;
3737   double t2618, t2619, t2620, t2621, t2643, t2646, t2647, t2650;
3738   double t2651, t2652, t2659, t2666, t2678, t2681, t2684, t2687;
3739   double t2688, t2689, t2692, t2693, t2698, t2701, t2702, t2705;
3740   double t2706, t2709, t2716, t2717, t2718, t2719, t2720, t2721;
3741   double t2722, t2723, t2728, t2733, t2735, t2736, t2751, t2754;
3742   double t2757, t2758, t2761, t2764, t2767, t2775, t2776, t2782;
3743   double t2785, t2788, t2789, t2792, t2795, t2796, t2799, t2800;
3744   double t2801, t2802, t2803, t2804, t2805, t2806, t2807, t2808;
3745   double t2809, t2810, t2811, t2812, t2813, t2814, t2815, t2816;
3746   double t2817, t2818, t2819, t2820, t2821, t2822, t2839, t2840;
3747   double t2841, t2842, t2843, t2844, t2845, t2847, t2848, t2849;
3748   double t2851, t2852, t2854, t2855, t2857, t2860, t2869, t2870;
3749   double t2873, t2874, t2879, t2880, t2881, t2882, t2883, t2884;
3750   double t2885, t2886, t2887, t2888, t2889, t2890, t2891, t2892;
3751   double t2894, t2896, t2898, t2901, t2908, t2909, t2916, t2927;
3752   double t2928, t2929, t2930, t2931, t2934, t2935, t2939, t2943;
3753   double t2949, t2958, t2964, t2965, t2968, t2971, t2972, t2977;
3754   double t2978, t2981, t2982, t2983, t2984, t2985, t2986, t2987;
3755   double t2989, t2990, t2991, t2992, t2993, t2994, t2995, t2996;
3756   double t2997, t2998, t2999, t3002, t3003, t3010, t3013, t3016;
3757   double t3019, t3023, t3026, t3029, t3033, t3034, t3037, t3038;
3758   double t3039, t3041, t3042, t3043, t3044, t3045, t3046, t3047;
3759   double t3048, t3049, t3050, t3053, t3054, t3061, t3067, t3068;
3760   double t3069, t3075, t3078, t3081, t3085, t3086, t3089, t3090;
3761   double t3091, t3093, t3094, t3095, t3097, t3098, t3100, t3101;
3762   double t3103, t3106, t3115, t3116, t3119, t3120, t3125, t3126;
3763   double t3127, t3128, t3129, t3130, t3131, t3132, t3133, t3134;
3764   double t3135, t3136, t3137, t3138, t3140, t3142, t3144, t3147;
3765   double t3154, t3155, t3162, t3173, t3174, t3175, t3176, t3177;
3766   double t3180, t3181, t3185, t3189, t3195, t3198, t3203, t3204;
3767   double t3209, t3212, t3215, t3216, t3221, t3222, t3225, t3226;
3768   double t3227, t3228, t3229, t3230, t3231, t3233, t3234, t3235;
3769   double t3237, t3238, t3240, t3241, t3243, t3245, t3248, t3249;
3770   double t3252, t3253, t3256, t3257, t3266, t3267, t3268, t3269;
3771   double t3270, t3271, t3272, t3273, t3274, t3275, t3276, t3277;
3772   double t3283, t3285, t3290, t3294, t3309, t3310, t3311, t3312;
3773   double t3313, t3315, t3317, t3318, t3321, t3326, t3329, t3332;
3774   double t3333, t3336, t3339, t3342, t3343, t3346, t3349, t3350;
3775   double t3353, t3359, t3360, t3366, t3367, t3370, t3371, t3372;
3776   double t3373, t3374, t3375, t3376, t3378, t3379, t3380, t3381;
3777   double t3382, t3383, t3384, t3385, t3386, t3387, t3388, t3391;
3778   double t3396, t3399, t3402, t3403, t3406, t3409, t3412, t3413;
3779   double t3416, t3417, t3418, t3421, t3422, t3425, t3431, t3432;
3780   double t3437, t3438, t3441, t3442, t3443, t3445, t3446, t3447;
3781   double t3448, t3449, t3450, t3451, t3452, t3453, t3454, t3455;
3782   double t3462, t3465, t3468, t3471, t3474, t3477, t3480, t3481;
3783   double t3484, t3487, t3490, t3493, t3498, t3499, t3502, t3503;
3784   double t3504, t3506, t3507, t3508, t3510, t3511, t3513, t3514;
3785   double t3516, t3518, t3521, t3522, t3525, t3526, t3529, t3530;
3786   double t3539, t3540, t3541, t3542, t3543, t3544, t3545, t3546;
3787   double t3547, t3548, t3549, t3550, t3556, t3558, t3563, t3567;
3788   double t3582, t3583, t3584, t3585, t3586, t3588, t3590, t3591;
3789   double t3598, t3601, t3604, t3607, t3610, t3613, t3616, t3619;
3790   double t3622, t3625, t3628, t3634, t3635, t3638, t3640, t3641;
3791   double t3643, t3650, t3651, t3652, t3654, t3655, t3657, t3659;
3792   double t3673, t3674, t3676, t3677, t3679, t3681, t3691, t3692;
3793   double t3694, t3695, t3697, t3712, t3713, t3715, t3716, t3718;
3794   double t3725, t3726, t3727, t3729, t3730, t3732, t3734, t3748;
3795   double t3749, t3751, t3752, t3754, t3756, t3766, t3767, t3771;
3796   double t3772, t3778, t3782, t3783, t3784, t3786, t3787, t3790;
3797   double t3791, t3802, t3803, t3805, t3806, t3809, t3815, t3818;
3798   double t3819, t3821, t3824, t3830, t3833, t3834, t3837, t3840;
3799   double t3843, t3846, t3849, t3850, t3856, t3860, t3861, t3862;
3800   double t3864, t3865, t3868, t3869, t3880, t3881, t3883, t3884;
3801   double t3887, t3890, t3893, t3896, t3897, t3900, t3901, t3903;
3802   double t3905, t3906, t3913, t3914, t3915, t3917, t3921, t3923;
3803   double t3932, t3933, t3935, t3938, t3941, t3942, t3945, t3951;
3804   double t3952, t3954, t3961, t3966, t3969, t3972, t3975, t3978;
3805   double t3983, t3985, t3986, t3988, t3990, t3991, t3998, t3999;
3806   double t4000, t4002, t4006, t4008, t4017, t4018, t4020, t4023;
3807   double t4026, t4027, t4030, t4036, t4037;
3808 
3809 #ifndef XC_DONT_COMPILE_KXC
3810   double t4045, t4047, t4048, t4051, t4052, t4053, t4054, t4057;
3811   double t4058, t4059, t4062, t4066, t4067, t4068, t4071, t4074;
3812   double t4075, t4076, t4079, t4080, t4081, t4084, t4086, t4087;
3813   double t4088, t4092, t4093, t4094, t4097, t4098, t4099, t4100;
3814   double t4103, t4104, t4107, t4109, t4112, t4113, t4114, t4122;
3815   double t4125, t4126, t4128, t4129, t4131, t4132, t4138, t4139;
3816   double t4141, t4142, t4144, t4147, t4149, t4151, t4153, t4154;
3817   double t4155, t4156, t4157, t4158, t4159, t4160, t4161, t4162;
3818   double t4163, t4164, t4165, t4166, t4167, t4168, t4169, t4170;
3819   double t4171, t4172, t4174, t4176, t4178, t4179, t4180, t4181;
3820   double t4183, t4184, t4186, t4187, t4188, t4189, t4191, t4192;
3821   double t4193, t4194, t4195, t4196, t4197, t4198, t4199, t4200;
3822   double t4201, t4202, t4203, t4204, t4205, t4206, t4207, t4208;
3823   double t4209, t4210, t4211, t4212, t4213, t4214, t4216, t4217;
3824   double t4218, t4219, t4220, t4221, t4222, t4223, t4224, t4225;
3825   double t4226, t4228, t4229, t4230, t4231, t4232, t4233, t4234;
3826   double t4235, t4237, t4238, t4239, t4240, t4241, t4244, t4245;
3827   double t4246, t4249, t4250, t4252, t4253, t4255, t4257, t4259;
3828   double t4261, t4263, t4264, t4265, t4268, t4270, t4271, t4272;
3829   double t4275, t4278, t4279, t4280, t4283, t4284, t4287, t4289;
3830   double t4291, t4292, t4294, t4297, t4298, t4299, t4300, t4302;
3831   double t4303, t4305, t4306, t4308, t4309, t4313, t4314, t4317;
3832   double t4320, t4322, t4323, t4334, t4339, t4340, t4343, t4350;
3833   double t4351, t4352, t4353, t4354, t4355, t4357, t4358, t4359;
3834   double t4361, t4362, t4363, t4364, t4365, t4366, t4367, t4368;
3835   double t4369, t4370, t4371, t4372, t4373, t4374, t4375, t4376;
3836   double t4377, t4378, t4379, t4380, t4381, t4382, t4383, t4384;
3837   double t4385, t4386, t4387, t4388, t4389, t4390, t4391, t4392;
3838   double t4393, t4395, t4396, t4397, t4399, t4400, t4401, t4402;
3839   double t4403, t4404, t4405, t4406, t4407, t4409, t4411, t4412;
3840   double t4414, t4415, t4417, t4419, t4421, t4423, t4424, t4427;
3841   double t4430, t4436, t4439, t4445, t4446, t4449, t4450, t4452;
3842   double t4454, t4456, t4457, t4458, t4459, t4460, t4461, t4462;
3843   double t4463, t4464, t4465, t4466, t4468, t4469, t4470, t4472;
3844   double t4474, t4477, t4483, t4486, t4491, t4493, t4514, t4516;
3845   double t4521, t4522, t4525, t4529, t4532, t4534, t4536, t4538;
3846   double t4540, t4541, t4545, t4546, t4547, t4550, t4552, t4553;
3847   double t4559, t4560, t4561, t4562, t4564, t4568, t4569, t4570;
3848   double t4572, t4573, t4575, t4576, t4579, t4582, t4584, t4586;
3849   double t4587, t4595, t4598, t4600, t4602, t4604, t4606, t4607;
3850   double t4608, t4611, t4612, t4615, t4617, t4619, t4621, t4624;
3851   double t4625, t4626, t4627, t4630, t4631, t4632, t4633, t4635;
3852   double t4636, t4637, t4639, t4640, t4642, t4644, t4645, t4648;
3853   double t4651, t4652, t4653, t4656, t4657, t4658, t4661, t4662;
3854   double t4664, t4665, t4669, t4671, t4672, t4673, t4684, t4689;
3855   double t4690, t4695, t4698, t4701, t4704, t4705, t4707, t4711;
3856   double t4714, t4715, t4723, t4726, t4727, t4729, t4730, t4731;
3857   double t4733, t4734, t4741, t4742, t4744, t4745, t4749, t4750;
3858   double t4751, t4754, t4764, t4766, t4770, t4771, t4773, t4774;
3859   double t4776, t4777, t4780, t4781, t4782, t4784, t4786, t4789;
3860   double t4790, t4793, t4796, t4799, t4800, t4811, t4812, t4816;
3861   double t4817, t4818, t4820, t4829, t4830, t4832, t4834, t4835;
3862   double t4837, t4838, t4841, t4842, t4845, t4853, t4860, t4864;
3863   double t4867, t4868, t4871, t4874, t4875, t4882, t4886, t4887;
3864   double t4888, t4889, t4890, t4892, t4894, t4895, t4896, t4898;
3865   double t4900, t4901, t4912, t4913, t4916, t4919, t4930, t4931;
3866   double t4934, t4935, t4938, t4941, t4944, t4947, t4950, t4953;
3867   double t4956, t4957, t4960, t4962, t4964, t4966, t4967, t4968;
3868   double t4971, t4974, t4975, t4976, t4977, t4978, t4979, t4981;
3869   double t4982, t4983, t4988, t4990, t4991, t4995, t4998, t5002;
3870   double t5005, t5006, t5007, t5008, t5011, t5014, t5017, t5021;
3871   double t5022, t5031, t5034, t5037, t5038, t5045, t5046, t5047;
3872   double t5050, t5051, t5052, t5059, t5069, t5073, t5077, t5078;
3873   double t5081, t5084, t5087, t5092, t5102, t5106, t5110, t5111;
3874   double t5118, t5125, t5129, t5133, t5140, t5141, t5145, t5158;
3875   double t5159, t5162, t5175, t5178, t5180, t5181, t5182, t5183;
3876   double t5184, t5187, t5188, t5189, t5190, t5191, t5192, t5193;
3877   double t5194, t5195, t5196, t5197, t5198, t5199, t5200, t5201;
3878   double t5202, t5203, t5204, t5205, t5206, t5207, t5208, t5209;
3879   double t5210, t5211, t5212, t5213, t5214, t5215, t5216, t5217;
3880   double t5219, t5220, t5222, t5223, t5224, t5225, t5226, t5227;
3881   double t5228, t5229, t5230, t5231, t5232, t5233, t5234, t5235;
3882   double t5236, t5237, t5238, t5239, t5241, t5242, t5244, t5245;
3883   double t5247, t5250, t5252, t5254, t5255, t5257, t5259, t5261;
3884   double t5263, t5264, t5265, t5266, t5268, t5269, t5270, t5272;
3885   double t5273, t5274, t5275, t5277, t5278, t5279, t5281, t5282;
3886   double t5283, t5284, t5286, t5287, t5288, t5290, t5291, t5293;
3887   double t5294, t5296, t5299, t5301, t5302, t5303, t5304, t5305;
3888   double t5306, t5307, t5308, t5309, t5310, t5311, t5312, t5313;
3889   double t5314, t5320, t5321, t5322, t5323, t5326, t5330, t5331;
3890   double t5338, t5343, t5344, t5346, t5347, t5348, t5351, t5354;
3891   double t5355, t5357, t5359, t5363, t5371, t5372, t5373, t5374;
3892   double t5375, t5378, t5381, t5384, t5387, t5390, t5391, t5394;
3893   double t5395, t5401, t5412, t5413, t5416, t5417, t5430, t5431;
3894   double t5432, t5433, t5434, t5435, t5436, t5437, t5438, t5439;
3895   double t5440, t5441, t5442, t5443, t5444, t5445, t5446, t5447;
3896   double t5448, t5449, t5464, t5485, t5486, t5487, t5488, t5489;
3897   double t5490, t5491, t5496, t5497, t5498, t5499, t5501, t5502;
3898   double t5503, t5504, t5505, t5506, t5507, t5508, t5509, t5510;
3899   double t5511, t5512, t5514, t5515, t5523, t5524, t5525, t5527;
3900   double t5528, t5529, t5531, t5532, t5535, t5536, t5537, t5539;
3901   double t5541, t5542, t5544, t5546, t5548, t5550, t5552, t5554;
3902   double t5559, t5564, t5569, t5572, t5573, t5574, t5577, t5580;
3903   double t5583, t5586, t5598, t5599, t5600, t5603, t5606, t5611;
3904   double t5614, t5615, t5624, t5628, t5635, t5639, t5640, t5643;
3905   double t5647, t5660, t5663, t5672, t5679, t5681, t5685, t5686;
3906   double t5689, t5692, t5693, t5697, t5698, t5699, t5702, t5709;
3907   double t5715, t5716, t5717, t5720, t5721, t5722, t5725, t5726;
3908   double t5727, t5730, t5731, t5732, t5735, t5736, t5737, t5740;
3909   double t5745, t5748, t5751, t5754, t5755, t5758, t5761, t5766;
3910   double t5771, t5774, t5777, t5778, t5779, t5782, t5785, t5786;
3911   double t5791, t5792, t5797, t5798, t5801, t5804, t5805, t5808;
3912   double t5811, t5816, t5818, t5819, t5821, t5822, t5824, t5825;
3913   double t5826, t5827, t5828, t5830, t5832, t5833, t5834, t5836;
3914   double t5838, t5839, t5840, t5842, t5844, t5846, t5847, t5848;
3915   double t5849, t5851, t5853, t5855, t5857, t5858, t5860, t5861;
3916   double t5863, t5864, t5866, t5867, t5869, t5875, t5877, t5879;
3917   double t5880, t5882, t5883, t5884, t5885, t5887, t5888, t5889;
3918   double t5890, t5892, t5893, t5894, t5895, t5897, t5898, t5899;
3919   double t5900, t5902, t5903, t5904, t5906, t5907, t5908, t5910;
3920   double t5911, t5912, t5913, t5915, t5916, t5917, t5919, t5921;
3921   double t5923, t5924, t5925, t5927, t5929, t5931, t5933, t5935;
3922   double t5936, t5938, t5940, t5942, t5943, t5945, t5947, t5948;
3923   double t5949, t5951, t5953, t5956, t5958, t5961, t5963, t5964;
3924   double t5966, t5968, t5970, t5971, t5973, t5974, t5975, t5977;
3925   double t5978, t5980, t5981, t5982, t5983, t5985, t5988, t5991;
3926   double t5996, t5998, t6001, t6010, t6011, t6016, t6019, t6020;
3927   double t6023, t6027, t6028, t6037, t6040, t6043, t6046, t6047;
3928   double t6050, t6052, t6053, t6056, t6058, t6059, t6060, t6062;
3929   double t6064, t6069, t6071, t6073, t6075, t6077, t6080, t6081;
3930   double t6088, t6090, t6092, t6093, t6094, t6096, t6097, t6098;
3931   double t6099, t6101, t6102, t6103, t6104, t6106, t6107, t6108;
3932   double t6109, t6111, t6112, t6113, t6115, t6116, t6117, t6119;
3933   double t6120, t6121, t6122, t6124, t6125, t6126, t6128, t6130;
3934   double t6132, t6133, t6137, t6139, t6141, t6145, t6146, t6150;
3935   double t6153, t6163, t6166, t6177, t6184, t6193, t6194, t6197;
3936   double t6200, t6201, t6231, t6236, t6239, t6242, t6250, t6251;
3937   double t6261, t6264, t6279, t6282, t6285, t6288, t6291, t6294;
3938   double t6295, t6297, t6300, t6303, t6307, t6320, t6322, t6323;
3939   double t6325, t6327, t6329, t6331, t6334, t6348, t6350, t6353;
3940   double t6356, t6361, t6376, t6385, t6386, t6396, t6403, t6404;
3941   double t6407, t6410, t6413, t6416, t6419, t6422, t6425, t6429;
3942   double t6430, t6440, t6442, t6444, t6446, t6448, t6467, t6471;
3943   double t6474, t6475, t6477, t6479, t6480, t6486, t6487, t6493;
3944   double t6496, t6497, t6498, t6499, t6500, t6502, t6504, t6505;
3945   double t6506, t6508, t6510, t6511, t6512, t6514, t6516, t6518;
3946   double t6520, t6521, t6522, t6524, t6526, t6527, t6530, t6532;
3947   double t6533, t6535, t6537, t6539, t6541, t6544, t6546, t6547;
3948   double t6549, t6551, t6552, t6554, t6555, t6557, t6558, t6560;
3949   double t6561, t6563, t6565, t6566, t6568, t6570, t6572, t6574;
3950   double t6576, t6577, t6579, t6580, t6581, t6583, t6585, t6587;
3951   double t6589, t6590, t6592, t6594, t6596, t6598, t6600, t6602;
3952   double t6604, t6606, t6607, t6609, t6610, t6612, t6613, t6615;
3953   double t6616, t6618, t6619, t6621, t6622, t6623, t6625, t6626;
3954   double t6628, t6630, t6631, t6633, t6634, t6636, t6638, t6640;
3955   double t6641, t6643, t6645, t6646, t6647, t6649, t6651, t6652;
3956   double t6654, t6655, t6657, t6658, t6660, t6661, t6663, t6665;
3957   double t6667, t6669, t6671, t6673, t6675, t6677, t6678, t6680;
3958   double t6681, t6687, t6692, t6695, t6698, t6699, t6701, t6704;
3959   double t6706, t6707, t6708, t6710, t6712, t6714, t6715, t6717;
3960   double t6718, t6719, t6721, t6723, t6725, t6726, t6729, t6730;
3961   double t6732, t6734, t6739, t6740, t6743, t6744, t6745, t6746;
3962   double t6747, t6748, t6749, t6750, t6751, t6752, t6753, t6754;
3963   double t6755, t6756, t6757, t6758, t6759, t6761, t6763, t6764;
3964   double t6765, t6766, t6767, t6768, t6769, t6770, t6772, t6779;
3965   double t6781, t6782, t6785, t6786, t6791, t6792, t6794, t6799;
3966   double t6802, t6803, t6806, t6807, t6814, t6815, t6818, t6819;
3967   double t6826, t6827, t6836, t6837, t6840, t6841, t6844, t6845;
3968   double t6850, t6851, t6854, t6857, t6860, t6861, t6864, t6868;
3969   double t6872, t6876, t6880, t6883, t6884, t6887, t6902, t6903;
3970   double t6906, t6907, t6916, t6920, t6922, t6928, t6933, t6934;
3971   double t6939, t6944, t6947, t6964, t6969, t6972, t6973, t6974;
3972   double t6975, t6978, t6981, t6984, t6987, t6996, t6997, t7016;
3973   double t7017, t7018, t7021, t7022, t7025, t7032, t7035, t7037;
3974   double t7038, t7039, t7040, t7042, t7044, t7046, t7047, t7048;
3975   double t7050, t7051, t7053, t7054, t7055, t7057, t7059, t7060;
3976   double t7061, t7063, t7066, t7068, t7069, t7071, t7073, t7074;
3977   double t7080, t7082, t7083, t7084, t7085, t7087, t7088, t7089;
3978   double t7090, t7092, t7093, t7094, t7096, t7098, t7099, t7100;
3979   double t7102, t7103, t7104, t7106, t7108, t7109, t7110, t7111;
3980   double t7113, t7114, t7115, t7116, t7120, t7121, t7122, t7123;
3981   double t7125, t7126, t7127, t7129, t7131, t7133, t7135, t7137;
3982   double t7138, t7139, t7141, t7142, t7144, t7146, t7147, t7149;
3983   double t7150, t7152, t7158, t7160, t7161, t7162, t7163, t7165;
3984   double t7166, t7167, t7168, t7170, t7171, t7172, t7174, t7176;
3985   double t7177, t7178, t7180, t7181, t7182, t7184, t7186, t7187;
3986   double t7188, t7189, t7191, t7192, t7193, t7194, t7196, t7197;
3987   double t7198, t7200, t7201, t7202, t7204, t7206, t7207, t7209;
3988   double t7210, t7212, t7214, t7216, t7217, t7219, t7221, t7223;
3989   double t7225, t7226, t7228, t7230, t7231, t7233, t7235, t7236;
3990   double t7238, t7240, t7241, t7243, t7246, t7248, t7251, t7252;
3991   double t7254, t7257, t7258, t7260, t7261, t7263, t7264, t7266;
3992   double t7267, t7269, t7271, t7273, t7275, t7280, t7281, t7283;
3993   double t7284, t7286, t7287, t7289, t7290, t7292, t7294, t7295;
3994   double t7296, t7298, t7299, t7301, t7303, t7304, t7305, t7307;
3995   double t7310, t7311, t7313, t7315, t7317, t7319, t7320, t7322;
3996   double t7324, t7325, t7327, t7331, t7334, t7336, t7345, t7368;
3997   double t7371, t7373, t7376, t7379, t7382, t7385, t7388, t7399;
3998   double t7404, t7407, t7412, t7415, t7417, t7418, t7419, t7420;
3999   double t7422, t7424, t7426, t7428, t7429, t7431, t7433, t7435;
4000   double t7437, t7439, t7441, t7443, t7445, t7447, t7449, t7451;
4001   double t7453, t7454, t7455, t7456, t7458, t7459, t7461, t7462;
4002   double t7463, t7465, t7467, t7469, t7471, t7473, t7475, t7477;
4003   double t7479, t7481, t7483, t7488, t7493, t7498, t7504, t7509;
4004   double t7512, t7518, t7519, t7522, t7530, t7531, t7533, t7536;
4005   double t7541, t7544, t7583, t7588, t7591, t7594, t7597, t7600;
4006   double t7603, t7609, t7612, t7624, t7632, t7634, t7637, t7641;
4007   double t7646, t7649, t7654, t7657, t7659, t7661, t7666, t7671;
4008   double t7684, t7697, t7702, t7705, t7706, t7713, t7714, t7717;
4009   double t7732, t7757, t7760, t7765, t7779, t7781, t7782, t7783;
4010   double t7785, t7788, t7791, t7792, t7794, t7797, t7798, t7799;
4011   double t7801, t7803, t7805, t7807, t7808, t7810, t7812, t7813;
4012   double t7815, t7816, t7818, t7820, t7822, t7823, t7824, t7826;
4013   double t7827, t7829, t7830, t7832, t7834, t7836, t7838, t7839;
4014   double t7841, t7842, t7844, t7845, t7847, t7849, t7850, t7852;
4015   double t7854, t7855, t7857, t7859, t7860, t7862, t7863, t7865;
4016   double t7866, t7868, t7869, t7872, t7875, t7878, t7881, t7884;
4017   double t7887, t7891, t7892, t7894, t7895, t7901, t7906, t7909;
4018   double t7930, t7943, t7944, t7945, t7946, t7947, t7948, t7949;
4019   double t7950, t7951, t7952, t7953, t7954, t7955, t7956, t7957;
4020   double t7958, t7959, t7960, t7962, t7963, t7964, t7965, t7970;
4021   double t7971, t7974, t7975, t7978, t7979, t7981, t7982, t7988;
4022   double t7989, t7990, t7991, t7993, t7994, t7995, t7998, t7999;
4023   double t8000, t8004, t8005, t8006, t8007, t8009, t8019, t8020;
4024   double t8028, t8034, t8037, t8040, t8044, t8045, t8046, t8047;
4025   double t8048, t8049, t8050, t8051, t8052, t8053, t8054, t8055;
4026   double t8056, t8057, t8058, t8059, t8060, t8061, t8062, t8063;
4027   double t8064, t8065, t8066, t8067, t8068, t8073, t8080, t8081;
4028   double t8082, t8083, t8085, t8086, t8087, t8089, t8090, t8091;
4029   double t8093, t8094, t8095, t8097, t8098, t8099, t8101, t8102;
4030   double t8103, t8104, t8106, t8112, t8115, t8125, t8129, t8132;
4031   double t8135, t8138, t8146, t8147, t8148, t8149, t8150, t8151;
4032   double t8152, t8154, t8155, t8160, t8161, t8162, t8163, t8164;
4033   double t8165, t8166, t8167, t8168, t8169, t8170, t8171, t8172;
4034   double t8173, t8174, t8175, t8176, t8177, t8178, t8179, t8180;
4035   double t8181, t8182, t8183, t8184, t8185, t8186, t8187, t8188;
4036   double t8189, t8190, t8191, t8198, t8199, t8206, t8208, t8210;
4037   double t8211, t8215, t8216, t8217, t8219, t8220, t8221, t8229;
4038   double t8236, t8237, t8240, t8243, t8246, t8255, t8258, t8267;
4039   double t8270, t8273, t8279, t8282, t8284, t8299, t8302, t8305;
4040   double t8314, t8318, t8322, t8325, t8328, t8338, t8339, t8356;
4041   double t8365, t8367, t8368, t8369, t8370, t8371, t8372, t8373;
4042   double t8375, t8376, t8377, t8379, t8380, t8381, t8384, t8386;
4043   double t8387, t8388, t8390, t8391, t8392, t8394, t8395, t8396;
4044   double t8398, t8399, t8400, t8402, t8403, t8404, t8406, t8407;
4045   double t8408, t8410, t8411, t8412, t8413, t8414, t8415, t8417;
4046   double t8421, t8438, t8440, t8444, t8448, t8453, t8469, t8470;
4047   double t8477, t8484, t8487, t8514, t8515, t8518, t8524, t8528;
4048   double t8531, t8534, t8547, t8548, t8551, t8554, t8557, t8560;
4049   double t8562, t8567, t8570, t8573, t8575, t8579, t8587, t8590;
4050   double t8591, t8592, t8593, t8594, t8596, t8597, t8598, t8599;
4051   double t8600, t8605, t8608, t8609, t8611, t8612, t8613, t8614;
4052   double t8620, t8621, t8622, t8625, t8626, t8628, t8629, t8631;
4053   double t8632, t8639, t8640, t8644, t8655, t8656, t8657, t8658;
4054   double t8661, t8662, t8664, t8665, t8666, t8670, t8677, t8678;
4055   double t8679, t8682, t8685, t8686, t8688, t8690, t8693, t8694;
4056   double t8697, t8700, t8704, t8705, t8706, t8709, t8712, t8717;
4057   double t8718, t8720, t8722, t8723, t8726, t8729, t8731, t8735;
4058   double t8736, t8737, t8738, t8739, t8740, t8741, t8742, t8743;
4059   double t8744, t8745, t8746, t8747, t8748, t8749, t8750, t8751;
4060   double t8752, t8753, t8754, t8755, t8756, t8757, t8758, t8760;
4061   double t8761, t8762, t8763, t8764, t8765, t8766, t8767, t8768;
4062   double t8769, t8770, t8771, t8772, t8773, t8774, t8775, t8776;
4063   double t8777, t8778, t8779, t8783, t8786, t8788, t8789, t8790;
4064   double t8792, t8793, t8795, t8796, t8797, t8799, t8800, t8801;
4065   double t8802, t8803, t8804, t8805, t8806, t8809, t8812, t8813;
4066   double t8814, t8817, t8818, t8819, t8822, t8825, t8826, t8827;
4067   double t8830, t8833, t8836, t8839, t8845, t8847, t8850, t8851;
4068   double t8852, t8855, t8856, t8859, t8861, t8864, t8865, t8880;
4069   double t8883, t8884, t8885, t8886, t8887, t8888, t8889, t8890;
4070   double t8891, t8903, t8905, t8914, t8917, t8918, t8921, t8924;
4071   double t8927, t8943, t8953, t8960, t8961, t8967, t8968, t8980;
4072   double t8989, t8992, t9003, t9009, t9016, t9017, t9020, t9029;
4073   double t9030, t9031, t9032, t9033, t9034, t9035, t9036, t9037;
4074   double t9038, t9039, t9040, t9041, t9042, t9043, t9044, t9045;
4075   double t9046, t9049, t9056, t9057, t9060, t9062, t9063, t9065;
4076   double t9066, t9068, t9069, t9071, t9074, t9089, t9090, t9093;
4077   double t9094, t9099, t9100, t9101, t9102, t9103, t9104, t9105;
4078   double t9106, t9107, t9108, t9110, t9111, t9112, t9113, t9115;
4079   double t9116, t9117, t9118, t9120, t9121, t9122, t9123, t9125;
4080   double t9126, t9127, t9128, t9129, t9130, t9131, t9132, t9133;
4081   double t9134, t9135, t9136, t9137, t9138, t9145, t9150, t9155;
4082   double t9160, t9163, t9166, t9173, t9183, t9184, t9188, t9204;
4083   double t9205, t9206, t9207, t9208, t9209, t9210, t9211, t9212;
4084   double t9213, t9214, t9215, t9216, t9217, t9218, t9219, t9220;
4085   double t9221, t9225, t9232, t9233, t9234, t9235, t9236, t9237;
4086   double t9238, t9239, t9240, t9241, t9242, t9243, t9244, t9251;
4087   double t9255, t9258, t9279, t9282, t9285, t9288, t9299, t9302;
4088   double t9305, t9308, t9311, t9329, t9330, t9331, t9332, t9333;
4089   double t9334, t9335, t9336, t9337, t9338, t9339, t9340, t9341;
4090   double t9342, t9343, t9344, t9345, t9346, t9347, t9348, t9349;
4091   double t9351, t9352, t9353, t9355, t9356, t9357, t9358, t9360;
4092   double t9361, t9362, t9364, t9365, t9366, t9368, t9369, t9371;
4093   double t9373, t9375, t9376, t9378, t9382, t9384, t9386, t9388;
4094   double t9390, t9392, t9394, t9395, t9396, t9398, t9399, t9400;
4095   double t9402, t9403, t9405, t9408, t9410, t9412, t9414, t9416;
4096   double t9418, t9420, t9422, t9423, t9428, t9440, t9441, t9444;
4097   double t9447, t9450, t9453, t9457, t9458, t9461, t9466, t9469;
4098   double t9482, t9485, t9487, t9490, t9494, t9495, t9499, t9500;
4099   double t9504, t9505, t9514, t9528, t9531, t9540, t9541, t9551;
4100   double t9555, t9557, t9558, t9559, t9560, t9562, t9565, t9566;
4101   double t9568, t9570, t9572, t9574, t9576, t9578, t9580, t9582;
4102   double t9584, t9585, t9587, t9590, t9591, t9593, t9595, t9597;
4103   double t9598, t9599, t9601, t9602, t9604, t9606, t9608, t9609;
4104   double t9611, t9614, t9616, t9617, t9620, t9621, t9623, t9624;
4105   double t9625, t9626, t9628, t9629, t9631, t9632, t9633, t9634;
4106   double t9637, t9640, t9643, t9646, t9647, t9650, t9651, t9654;
4107   double t9655, t9660, t9689, t9693, t9697, t9699, t9703, t9706;
4108   double t9712, t9715, t9721, t9724, t9736, t9741, t9744, t9747;
4109   double t9758, t9760, t9761, t9762, t9772, t9773, t9774, t9775;
4110   double t9776, t9777, t9778, t9779, t9780, t9781, t9782, t9783;
4111   double t9784, t9785, t9786, t9787, t9794, t9804, t9808, t9811;
4112   double t9815, t9816, t9827, t9832, t9835, t9838, t9851, t9852;
4113   double t9862, t9863, t9866, t9872, t9878, t9879, t9880, t9881;
4114   double t9882, t9883, t9884, t9885, t9887, t9888, t9889, t9891;
4115   double t9892, t9893, t9894, t9895, t9896, t9897, t9898, t9899;
4116   double t9910, t9911, t9912, t9913, t9914, t9915, t9916, t9918;
4117   double t9919, t9920, t9922, t9923, t9924, t9926, t9927, t9928;
4118   double t9929, t9930, t9931, t9932, t9933, t9934, t9946, t9949;
4119   double t9952, t9959, t9966, t9968, t9969, t9971, t9973, t9977;
4120   double t9978, t9987, t9988, t9992, t9995, t9998, t10001, t10004;
4121   double t10007, t10010, t10013, t10025, t10029, t10032, t10045, t10046;
4122   double t10047, t10048, t10049, t10050, t10051, t10052, t10053, t10054;
4123   double t10055, t10056, t10057, t10058, t10059, t10060, t10061, t10062;
4124   double t10063, t10064, t10065, t10070, t10071, t10074, t10075, t10078;
4125   double t10091, t10092, t10096, t10099, t10106, t10117, t10122, t10133;
4126   double t10134, t10135, t10136, t10137, t10138, t10139, t10142, t10149;
4127   double t10150, t10153, t10158, t10160, t10161, t10163, t10164, t10166;
4128   double t10180, t10181, t10184, t10185, t10190, t10191, t10192, t10193;
4129   double t10194, t10195, t10196, t10197, t10198, t10199, t10200, t10201;
4130   double t10202, t10203, t10207, t10217, t10218, t10219, t10220, t10222;
4131   double t10223, t10224, t10226, t10227, t10228, t10229, t10231, t10232;
4132   double t10233, t10234, t10235, t10236, t10237, t10238, t10239, t10240;
4133   double t10241, t10242, t10244, t10247, t10250, t10251, t10254, t10255;
4134   double t10264, t10266, t10267, t10269, t10270, t10272, t10275, t10276;
4135   double t10286, t10288, t10290, t10293, t10294, t10297, t10298, t10299;
4136   double t10300, t10301, t10302, t10303, t10304, t10305, t10306, t10307;
4137   double t10308, t10309, t10310, t10311, t10312, t10319, t10323, t10330;
4138   double t10337, t10341, t10354, t10361, t10362, t10367, t10372, t10373;
4139   double t10378, t10379, t10385, t10387, t10388, t10393, t10395, t10398;
4140   double t10406, t10410, t10416, t10425, t10431, t10441, t10453, t10464;
4141   double t10467, t10469, t10470, t10471, t10472, t10473, t10474, t10475;
4142   double t10476, t10477, t10478, t10479, t10480, t10481, t10482, t10484;
4143   double t10494, t10495, t10496, t10499, t10514, t10517, t10518, t10522;
4144   double t10536, t10545, t10546, t10547, t10548, t10549, t10550, t10551;
4145   double t10552, t10553, t10554, t10555, t10556, t10557, t10558, t10559;
4146   double t10560, t10561, t10565, t10572, t10573, t10574, t10575, t10576;
4147   double t10577, t10578, t10580, t10581, t10582, t10584, t10585, t10586;
4148   double t10587, t10589, t10590, t10591, t10592, t10593, t10594, t10595;
4149   double t10596, t10597, t10598, t10599, t10600, t10601, t10606, t10607;
4150   double t10612, t10613, t10616, t10621, t10622, t10629, t10630, t10635;
4151   double t10638, t10639, t10650, t10661, t10662, t10668, t10670, t10677;
4152   double t10680, t10692, t10695, t10701, t10704, t10711, t10716, t10717;
4153   double t10723, t10733, t10745, t10747, t10748, t10749, t10750, t10751;
4154   double t10752, t10753, t10754, t10755, t10756, t10757, t10758, t10759;
4155   double t10760, t10761, t10762, t10764, t10766, t10767, t10769, t10771;
4156   double t10772, t10773, t10775, t10776, t10778, t10780, t10782, t10784;
4157   double t10787, t10789, t10791, t10793, t10795, t10796, t10798, t10799;
4158   double t10801, t10804, t10805, t10810, t10811, t10816, t10821, t10822;
4159   double t10825, t10834, t10837, t10840, t10841, t10846, t10847, t10850;
4160   double t10853, t10854, t10857, t10866, t10867, t10886, t10891, t10893;
4161   double t10900, t10905, t10906, t10911, t10916, t10917, t10922, t10940;
4162   double t10941, t10947, t10950, t10961, t10964, t10967, t10970, t10973;
4163   double t10985, t10990, t10992, t10993, t10995, t10997, t10998, t11000;
4164   double t11001, t11002, t11004, t11006, t11008, t11010, t11012, t11014;
4165   double t11016, t11019, t11021, t11022, t11024, t11026, t11027, t11029;
4166   double t11031, t11033, t11036, t11039, t11044, t11051, t11058, t11061;
4167   double t11073, t11077, t11080, t11083, t11084, t11085, t11090, t11091;
4168   double t11094, t11099, t11100, t11103, t11104, t11107, t11120, t11121;
4169   double t11128, t11129, t11132, t11138, t11139, t11142, t11159, t11164;
4170   double t11171, t11174, t11175, t11178, t11181, t11182, t11187, t11192;
4171   double t11193, t11198, t11218, t11224, t11226, t11227, t11228, t11229;
4172   double t11230, t11232, t11233, t11236, t11237, t11239, t11241, t11243;
4173   double t11245, t11246, t11248, t11250, t11252, t11253, t11255, t11257;
4174   double t11258, t11260, t11262, t11264, t11266, t11268, t11269, t11271;
4175   double t11273, t11275, t11277, t11278, t11280, t11281, t11291, t11292;
4176   double t11293, t11294, t11302, t11305, t11312, t11315, t11320, t11326;
4177   double t11327, t11336, t11339, t11354, t11359, t11361, t11364, t11369;
4178   double t11372, t11377, t11382, t11391, t11405, t11411, t11417, t11420;
4179   double t11428, t11430, t11431, t11432, t11433, t11434, t11435, t11436;
4180   double t11437, t11438, t11439, t11440, t11441, t11442, t11443, t11444;
4181   double t11445, t11447, t11448, t11449, t11451, t11452, t11453, t11454;
4182   double t11455, t11456, t11457, t11458, t11459, t11460, t11461, t11462;
4183   double t11463, t11474, t11475, t11476, t11477, t11478, t11479, t11480;
4184   double t11481, t11482, t11483, t11484, t11485, t11486, t11487, t11488;
4185   double t11489, t11490, t11491, t11492, t11493, t11494, t11495, t11496;
4186   double t11497, t11498, t11506, t11507, t11510, t11514, t11526, t11528;
4187   double t11530, t11535, t11540, t11543, t11544, t11559, t11561, t11562;
4188   double t11564, t11565, t11567, t11569, t11570, t11571, t11572, t11573;
4189   double t11574, t11575, t11576, t11577, t11578, t11579, t11580, t11584;
4190   double t11587, t11588, t11599, t11602, t11603, t11613, t11616, t11619;
4191   double t11620, t11623, t11624, t11627, t11628, t11629, t11630, t11631;
4192   double t11632, t11634, t11635, t11636, t11638, t11639, t11640, t11642;
4193   double t11643, t11644, t11645, t11646, t11647, t11648, t11649, t11655;
4194   double t11661, t11664, t11673, t11676, t11679, t11685, t11686, t11701;
4195   double t11704, t11707, t11716, t11722, t11727, t11729, t11730, t11734;
4196   double t11738, t11743, t11748, t11753, t11758, t11761, t11766, t11769;
4197   double t11793, t11795, t11796, t11797, t11798, t11801, t11802, t11803;
4198   double t11804, t11805, t11806, t11807, t11809, t11810, t11812, t11813;
4199   double t11815, t11816, t11818, t11821, t11830, t11831, t11834, t11835;
4200   double t11840, t11841, t11842, t11843, t11844, t11845, t11846, t11847;
4201   double t11848, t11849, t11850, t11851, t11852, t11859, t11860, t11863;
4202   double t11866, t11887, t11898, t11899, t11900, t11901, t11902, t11903;
4203   double t11912, t11913, t11916, t11923, t11926, t11930, t11937, t11940;
4204   double t11947, t11957, t11958, t11961, t11962, t11964, t11967, t11972;
4205   double t11973, t11976, t11979, t11980, t12018, t12020, t12021, t12022;
4206   double t12023, t12024, t12025, t12026, t12028, t12029, t12030, t12031;
4207   double t12032, t12033, t12034, t12035, t12036, t12037, t12038, t12041;
4208   double t12042, t12055, t12064, t12074, t12078, t12079, t12082, t12083;
4209   double t12084, t12086, t12087, t12088, t12089, t12090, t12091, t12092;
4210   double t12093, t12094, t12095, t12098, t12099, t12112, t12130, t12134;
4211   double t12135, t12138, t12142, t12149, t12152, t12153, t12182, t12192;
4212   double t12194, t12195, t12196, t12198, t12199, t12201, t12202, t12204;
4213   double t12205, t12207, t12210, t12219, t12220, t12223, t12224, t12229;
4214   double t12230, t12231, t12232, t12233, t12234, t12235, t12236, t12237;
4215   double t12238, t12239, t12240, t12246, t12255, t12257, t12258, t12260;
4216   double t12262, t12287, t12288, t12289, t12290, t12291, t12292, t12301;
4217   double t12302, t12311, t12314, t12324, t12327, t12334, t12344, t12345;
4218   double t12348, t12349, t12350, t12351, t12352, t12353, t12354, t12356;
4219   double t12357, t12360, t12365, t12368, t12369, t12379, t12380, t12386;
4220   double t12387, t12388, t12389, t12390, t12391, t12392, t12393, t12394;
4221   double t12395, t12396, t12397, t12402, t12405, t12409, t12414, t12415;
4222   double t12438, t12439, t12440, t12441, t12442, t12443, t12446, t12449;
4223   double t12452, t12476, t12477, t12480, t12483, t12486, t12510, t12511;
4224   double t12512, t12515, t12517, t12520, t12523, t12526, t12529, t12530;
4225   double t12545, t12546, t12552, t12553, t12556, t12559, t12562, t12584;
4226   double t12585, t12587, t12589, t12592, t12595, t12599, t12602, t12616;
4227   double t12619, t12622, t12626, t12629, t12643, t12645, t12646, t12647;
4228   double t12648, t12649, t12650, t12651, t12653, t12654, t12655, t12656;
4229   double t12657, t12658, t12659, t12660, t12661, t12662, t12663, t12666;
4230   double t12669, t12673, t12676, t12677, t12688, t12691, t12694, t12697;
4231   double t12701, t12716, t12717, t12720, t12721, t12722, t12724, t12725;
4232   double t12726, t12727, t12728, t12729, t12730, t12731, t12732, t12733;
4233   double t12734, t12737, t12740, t12744, t12747, t12748, t12751, t12759;
4234   double t12760, t12763, t12766, t12769, t12773, t12788, t12789, t12793;
4235   double t12796, t12799, t12803, t12809, t12820, t12823, t12826, t12830;
4236   double t12847, t12850, t12853, t12856, t12859, t12862, t12865, t12868;
4237   double t12877, t12878, t12884, t12885, t12888, t12891, t12894, t12899;
4238   double t12916, t12917, t12919, t12920, t12921, t12923, t12924, t12927;
4239   double t12932, t12935, t12936, t12946, t12947, t12953, t12954, t12955;
4240   double t12956, t12957, t12958, t12959, t12960, t12961, t12962, t12963;
4241   double t12964, t12969, t12972, t12976, t12981, t12982, t13005, t13006;
4242   double t13007, t13008, t13009, t13010, t13013, t13016, t13019, t13022;
4243   double t13025, t13028, t13043, t13044, t13047, t13050, t13053, t13056;
4244   double t13059, t13077, t13078, t13079, t13082, t13083, t13084, t13085;
4245   double t13086, t13087, t13088, t13090, t13091, t13093, t13094, t13097;
4246   double t13099, t13103, t13109, t13118, t13119, t13120, t13121, t13122;
4247   double t13123, t13124, t13125, t13126, t13127, t13128, t13129, t13135;
4248   double t13136, t13140, t13143, t13147, t13168, t13169, t13170, t13171;
4249   double t13172, t13181, t13184, t13189, t13190, t13193, t13196, t13197;
4250   double t13200, t13203, t13210, t13211, t13222, t13232, t13239, t13240;
4251   double t13241, t13244, t13246, t13251, t13254, t13261, t13270, t13273;
4252   double t13276, t13279, t13302, t13307, t13310, t13321, t13326, t13327;
4253   double t13332, t13333, t13336, t13341, t13342, t13345, t13346, t13349;
4254   double t13354, t13355, t13366, t13371, t13378, t13381, t13383, t13385;
4255   double t13386, t13387, t13388, t13389, t13390, t13391, t13393, t13394;
4256   double t13395, t13396, t13397, t13398, t13399, t13400, t13401, t13402;
4257   double t13403, t13412, t13419, t13420, t13423, t13426, t13427, t13430;
4258   double t13433, t13440, t13441, t13446, t13447, t13452, t13462, t13468;
4259   double t13469, t13470, t13473, t13474, t13475, t13477, t13478, t13479;
4260   double t13480, t13481, t13482, t13483, t13484, t13485, t13486, t13495;
4261   double t13502, t13505, t13508, t13511, t13512, t13515, t13516, t13522;
4262   double t13527, t13538, t13546, t13547, t13548, t13556, t13563, t13570;
4263   double t13579, t13580, t13583, t13591, t13594, t13603, t13614, t13616;
4264   double t13619, t13622, t13625, t13628, t13631, t13645, t13648, t13652;
4265   double t13657, t13658, t13661, t13666, t13667, t13670, t13677, t13684;
4266   double t13686, t13688, t13689, t13690, t13692, t13693, t13695, t13696;
4267   double t13699, t13701, t13705, t13711, t13720, t13721, t13722, t13723;
4268   double t13724, t13725, t13726, t13727, t13728, t13729, t13730, t13731;
4269   double t13737, t13738, t13742, t13745, t13749, t13770, t13771, t13772;
4270   double t13773, t13774, t13783, t13786, t13791, t13794, t13797, t13800;
4271   double t13803, t13804, t13810, t13827, t13836, t13837, t13838, t13841;
4272   double t13843, t13844, t13846, t13853, t13854, t13855, t13857, t13858;
4273   double t13860, t13862, t13876, t13877, t13879, t13880, t13882, t13884;
4274   double t13894, t13895, t13897, t13899, t13914, t13915, t13917, t13932;
4275   double t13933, t13935, t13936, t13938, t13945, t13946, t13947, t13949;
4276   double t13950, t13952, t13954, t13968, t13969, t13971, t13972, t13974;
4277   double t13976, t13986, t13987, t13991, t13992, t13998, t14002, t14003;
4278   double t14004, t14006, t14007, t14010, t14013, t14014, t14029, t14030;
4279   double t14032, t14051, t14052, t14072, t14089, t14106, t14125, t14128;
4280   double t14129, t14135, t14139, t14140, t14141, t14143, t14144, t14147;
4281   double t14150, t14151, t14166, t14167, t14169, t14188, t14189, t14193;
4282   double t14199, t14203, t14204, t14205, t14207, t14208, t14211, t14212;
4283   double t14227, t14228, t14230, t14231, t14234, t14237, t14249, t14250;
4284   double t14252, t14255, t14258, t14264, t14267, t14270, t14276, t14286;
4285   double t14287, t14290, t14293, t14305, t14306, t14309, t14312, t14318;
4286   double t14324, t14325, t14328, t14331, t14337, t14340, t14343, t14349;
4287   double t14359, t14362, t14368, t14372, t14373, t14374, t14376, t14377;
4288   double t14380, t14381, t14396, t14397, t14399, t14400, t14403, t14406;
4289   double t14412, t14418, t14419, t14421, t14422, t14424, t14427, t14428;
4290   double t14435, t14436, t14437, t14439, t14443, t14444, t14445, t14449;
4291   double t14458, t14459, t14461, t14464, t14467, t14468, t14471, t14480;
4292   double t14481, t14483, t14486, t14492, t14500, t14514, t14517, t14520;
4293   double t14523, t14526, t14527, t14536, t14539, t14544, t14547, t14550;
4294   double t14556, t14569, t14570, t14571, t14573, t14576, t14577, t14584;
4295   double t14585, t14586, t14588, t14592, t14593, t14594, t14598, t14607;
4296   double t14608, t14610, t14613, t14616, t14617, t14620, t14629, t14630;
4297 
4298 #ifndef XC_DONT_COMPILE_LXC
4299   double t14634, t14636, t14644, t14648, t14649, t14651, t14652, t14653;
4300   double t14656, t14659, t14660, t14663, t14664, t14670, t14675, t14677;
4301   double t14681, t14682, t14688, t14693, t14697, t14702, t14703, t14710;
4302   double t14714, t14717, t14718, t14722, t14723, t14724, t14725, t14727;
4303   double t14729, t14730, t14731, t14732, t14743, t14751, t14752, t14756;
4304   double t14759, t14762, t14763, t14767, t14774, t14776, t14777, t14781;
4305   double t14782, t14785, t14791, t14796, t14801, t14807, t14809, t14811;
4306   double t14813, t14814, t14816, t14817, t14820, t14823, t14825, t14827;
4307   double t14829, t14832, t14836, t14837, t14839, t14840, t14842, t14843;
4308   double t14846, t14847, t14849, t14851, t14854, t14869, t14873, t14875;
4309   double t14885, t14887, t14889, t14890, t14892, t14896, t14899, t14903;
4310   double t14907, t14908, t14910, t14913, t14918, t14919, t14924, t14927;
4311   double t14928, t14933, t14937, t14941, t14957, t14971, t14973, t14983;
4312   double t14985, t14987, t14989, t14991, t14995, t14996, t14997, t14998;
4313   double t15000, t15002, t15004, t15006, t15008, t15009, t15010, t15012;
4314   double t15014, t15016, t15018, t15020, t15022, t15023, t15025, t15028;
4315   double t15029, t15031, t15034, t15036, t15038, t15040, t15043, t15045;
4316   double t15047, t15049, t15051, t15053, t15055, t15057, t15059, t15061;
4317   double t15063, t15065, t15067, t15070, t15073, t15076, t15080, t15083;
4318   double t15086, t15089, t15092, t15096, t15097, t15098, t15100, t15102;
4319   double t15104, t15107, t15108, t15110, t15113, t15115, t15117, t15119;
4320   double t15122, t15124, t15126, t15128, t15130, t15132, t15134, t15136;
4321   double t15138, t15140, t15142, t15143, t15145, t15147, t15149, t15151;
4322   double t15153, t15155, t15157, t15159, t15161, t15165, t15166, t15167;
4323   double t15168, t15170, t15172, t15174, t15176, t15178, t15181, t15185;
4324   double t15189, t15190, t15195, t15208, t15246, t15249, t15257, t15304;
4325   double t15330, t15333, t15337, t15341, t15345, t15355, t15366, t15369;
4326   double t15372, t15376, t15379, t15383, t15397, t15403, t15427, t15431;
4327   double t15435, t15436, t15437, t15455, t15458, t15465, t15466, t15471;
4328   double t15481, t15483, t15490, t15492, t15494, t15502, t15507, t15509;
4329   double t15511, t15526, t15532, t15534, t15542, t15543, t15546, t15552;
4330   double t15564, t15568, t15581, t15582, t15588, t15590, t15595, t15596;
4331   double t15598, t15599, t15615, t15618, t15622, t15623, t15630, t15635;
4332   double t15640, t15641, t15642, t15643, t15645, t15646, t15647, t15649;
4333   double t15653, t15655, t15656, t15657, t15659, t15661, t15667, t15670;
4334   double t15672, t15677, t15681, t15685, t15698, t15703, t15705, t15707;
4335   double t15709, t15710, t15716, t15721, t15723, t15725, t15727, t15729;
4336   double t15738, t15742, t15759, t15760, t15766, t15778, t15796, t15798;
4337   double t15800, t15811, t15824, t15825, t15830, t15832, t15838, t15842;
4338   double t15843, t15845, t15855, t15866, t15869, t15872, t15873, t15876;
4339   double t15877, t15879, t15881, t15884, t15885, t15886, t15887, t15894;
4340   double t15895, t15897, t15898, t15904, t15925, t15926, t15933, t15936;
4341   double t15939, t15941, t15954, t15959, t15968, t15969, t15971, t15972;
4342   double t15977, t15978, t15979, t15981, t15982, t15987, t15988, t15994;
4343   double t16001, t16004, t16007, t16010, t16012, t16014, t16016, t16017;
4344   double t16021, t16022, t16029, t16030, t16039, t16040, t16054, t16056;
4345   double t16057, t16060, t16061, t16066, t16078, t16113, t16115, t16119;
4346   double t16127, t16128, t16131, t16132, t16135, t16138, t16139, t16140;
4347   double t16141, t16145, t16156, t16159, t16165, t16168, t16174, t16181;
4348   double t16185, t16213, t16219, t16220, t16224, t16225, t16252, t16255;
4349   double t16258, t16259, t16263, t16270, t16273, t16274, t16278, t16282;
4350   double t16286, t16289, t16291, t16294, t16297, t16302, t16305, t16306;
4351   double t16307, t16310, t16320, t16322, t16325, t16335, t16339, t16355;
4352   double t16363, t16381, t16396, t16400, t16417, t16428, t16433, t16438;
4353   double t16439, t16440, t16442, t16444, t16446, t16449, t16450, t16455;
4354   double t16457, t16458, t16460, t16462, t16464, t16465, t16467, t16468;
4355   double t16470, t16471, t16473, t16475, t16477, t16479, t16480, t16482;
4356   double t16485, t16487, t16489, t16492, t16493, t16497, t16503, t16507;
4357   double t16513, t16533, t16536, t16542, t16544, t16557, t16558, t16559;
4358   double t16561, t16564, t16567, t16568, t16571, t16573, t16574, t16577;
4359   double t16580, t16583, t16586, t16590, t16593, t16596, t16603, t16618;
4360   double t16631, t16634, t16661, t16666, t16681, t16701, t16704, t16709;
4361   double t16716, t16717, t16727, t16755, t16761, t16769, t16772, t16779;
4362   double t16805, t16831, t16835, t16841, t16844, t16851, t16852, t16855;
4363   double t16876, t16878, t16880, t16883, t16890, t16895, t16900, t16903;
4364   double t16906, t16909, t16912, t16914, t16916, t16927, t16930, t16946;
4365   double t16964, t16977, t16979, t16993, t16995, t17005, t17008, t17011;
4366   double t17013, t17019, t17022, t17025, t17028, t17031, t17037, t17046;
4367   double t17051, t17055, t17056, t17060, t17062, t17080, t17103, t17110;
4368   double t17117, t17121, t17126, t17144, t17153, t17163, t17166, t17169;
4369   double t17172, t17175, t17177, t17179, t17181, t17183, t17185, t17187;
4370   double t17189, t17192, t17195, t17198, t17207, t17216, t17231, t17244;
4371   double t17256, t17270, t17282, t17295, t17307, t17318, t17322, t17324;
4372   double t17331, t17332, t17334, t17337, t17339, t17354, t17362, t17372;
4373   double t17382, t17394, t17400, t17404, t17405, t17406, t17421, t17423;
4374   double t17425, t17428, t17430, t17434, t17440, t17452, t17458, t17478;
4375   double t17481, t17504, t17505, t17509, t17523, t17529, t17530, t17532;
4376   double t17534, t17536, t17538, t17540, t17546, t17551, t17552, t17553;
4377   double t17557, t17558, t17579, t17580, t17581, t17582, t17583, t17585;
4378   double t17587, t17589, t17591, t17594, t17597, t17599, t17602, t17604;
4379   double t17607, t17609, t17611, t17613, t17615, t17617, t17619, t17621;
4380   double t17623, t17625, t17627, t17629, t17632, t17633, t17635, t17637;
4381   double t17639, t17641, t17643, t17645, t17655, t17657, t17659, t17661;
4382   double t17663, t17665, t17668, t17670, t17673, t17675, t17678, t17679;
4383   double t17682, t17685, t17686, t17701, t17702, t17704, t17706, t17708;
4384   double t17709, t17710, t17711, t17712, t17714, t17716, t17718, t17727;
4385   double t17728, t17732, t17734, t17738, t17742, t17743, t17750, t17753;
4386   double t17770, t17774, t17787, t17810, t17816, t17819, t17821, t17822;
4387   double t17829, t17850, t17853, t17862, t17872, t17874, t17879, t17886;
4388   double t17898, t17909, t17911, t17914, t17917, t17920, t17924, t17929;
4389   double t17934, t17938, t17940, t17942, t17945, t17947, t17950, t17953;
4390   double t17955, t17958, t17960, t17962, t17964, t17966, t17968, t17970;
4391   double t17972, t17974, t17976, t17978, t17979, t17980, t17981, t17982;
4392   double t17984, t17986, t17988, t17990, t17992, t17994, t17996, t17998;
4393   double t18000, t18011, t18012, t18013, t18015, t18017, t18019, t18021;
4394   double t18023, t18027, t18032, t18034, t18037, t18046, t18061, t18086;
4395   double t18087, t18089, t18110, t18111, t18114, t18116, t18118, t18123;
4396   double t18125, t18130, t18134, t18138, t18142, t18146, t18147, t18161;
4397   double t18163, t18174, t18175, t18176, t18177, t18178, t18181, t18204;
4398   double t18210, t18215, t18224, t18234, t18246, t18249, t18256, t18260;
4399   double t18262, t18273, t18286, t18287, t18293, t18294, t18296, t18299;
4400   double t18301, t18302, t18304, t18317, t18318, t18329, t18332, t18345;
4401   double t18358, t18360, t18361, t18366, t18372, t18376, t18388, t18394;
4402   double t18416, t18419, t18426, t18434, t18437, t18441, t18442, t18443;
4403   double t18448, t18449, t18451, t18452, t18453, t18454, t18455, t18460;
4404   double t18463, t18466, t18471, t18476, t18478, t18481, t18484, t18491;
4405   double t18494, t18509, t18521, t18534, t18537, t18540, t18543, t18547;
4406   double t18548, t18550, t18552, t18554, t18560, t18578, t18588, t18598;
4407   double t18608, t18609, t18619, t18625, t18629, t18635, t18640, t18642;
4408   double t18649, t18659, t18671, t18680, t18695, t18701, t18705, t18708;
4409   double t18711, t18714, t18717, t18720, t18730, t18735, t18737, t18738;
4410   double t18750, t18768, t18769, t18771, t18792, t18794, t18803, t18806;
4411   double t18808, t18813, t18826, t18833, t18835, t18836, t18840, t18846;
4412   double t18849, t18855, t18860, t18865, t18868, t18873, t18874, t18878;
4413   double t18889, t18908, t18938, t18939, t18972, t18980, t18997, t19017;
4414   double t19018, t19019, t19020, t19045, t19047, t19054, t19055, t19058;
4415   double t19060, t19061, t19062, t19063, t19064, t19066, t19067, t19068;
4416   double t19070, t19079, t19082, t19092, t19101, t19105, t19106, t19107;
4417   double t19109, t19110, t19112, t19113, t19131, t19151, t19153, t19158;
4418   double t19162, t19172, t19192, t19199, t19201, t19202, t19214, t19224;
4419   double t19239, t19240, t19242, t19248, t19249, t19252, t19253, t19258;
4420   double t19265, t19272, t19274, t19284, t19302, t19327, t19328, t19347;
4421   double t19370, t19374, t19386, t19389, t19390, t19392, t19394, t19395;
4422   double t19403, t19408, t19413, t19417, t19419, t19420, t19421, t19422;
4423   double t19423, t19424, t19425, t19426, t19427, t19449, t19452, t19454;
4424   double t19456, t19457, t19496, t19521, t19523, t19537, t19544, t19553;
4425   double t19577, t19579, t19581, t19583, t19585, t19587, t19589, t19590;
4426   double t19595, t19598, t19601, t19604, t19607, t19608, t19611, t19614;
4427   double t19615, t19618, t19621, t19624, t19625, t19628, t19629, t19634;
4428   double t19639, t19642, t19647, t19650, t19651, t19654, t19661, t19663;
4429   double t19666, t19667, t19672, t19677, t19682, t19685, t19686, t19689;
4430   double t19690, t19695, t19698, t19699, t19700, t19713, t19718, t19719;
4431   double t19722, t19723, t19729, t19732, t19733, t19736, t19739, t19750;
4432   double t19757, t19758, t19761, t19770, t19771, t19774, t19778, t19782;
4433   double t19789, t19810, t19827, t19834, t19838, t19839, t19852, t19857;
4434   double t19858, t19859, t19862, t19867, t19870, t19871, t19875, t19881;
4435   double t19890, t19893, t19897, t19902, t19932, t19939, t19940, t19947;
4436   double t19950, t19959, t19963, t19973, t19978, t19985, t19986, t19993;
4437   double t19997, t20001, t20005, t20010, t20013, t20018, t20023, t20029;
4438   double t20041, t20053, t20059, t20074, t20080, t20081, t20084, t20087;
4439   double t20092, t20102, t20112, t20114, t20117, t20120, t20122, t20125;
4440   double t20130, t20134, t20136, t20142, t20153, t20154, t20161, t20164;
4441   double t20165, t20166, t20167, t20170, t20171, t20174, t20175, t20176;
4442   double t20177, t20178, t20181, t20182, t20183, t20184, t20187, t20194;
4443   double t20197, t20203, t20213, t20221, t20222, t20226, t20229, t20232;
4444   double t20235, t20237, t20252, t20267, t20281, t20287, t20297, t20304;
4445   double t20306, t20309, t20321, t20339, t20378, t20394, t20397, t20405;
4446   double t20419, t20422, t20425, t20433, t20457, t20460, t20466, t20474;
4447   double t20478, t20487, t20491, t20498, t20500, t20502, t20504, t20506;
4448   double t20507, t20511, t20520, t20523, t20533, t20543, t20545, t20550;
4449   double t20558, t20564, t20579, t20594, t20602, t20609, t20622, t20642;
4450   double t20665, t20672, t20675, t20678, t20680, t20692, t20695, t20698;
4451   double t20701, t20709, t20742, t20771, t20774, t20777, t20779, t20781;
4452   double t20783, t20793, t20795, t20817, t20821, t20826, t20829, t20848;
4453   double t20854, t20865, t20868, t20872, t20881, t20890, t20895, t20903;
4454   double t20909, t20911, t20915, t20925, t20932, t20941, t20963, t20989;
4455   double t20990, t20994, t20996, t21001, t21006, t21008, t21019, t21020;
4456   double t21022, t21024, t21026, t21028, t21030, t21035, t21037, t21041;
4457   double t21043, t21047, t21050, t21061, t21077, t21091, t21093, t21095;
4458   double t21097, t21100, t21106, t21108, t21110, t21113, t21116, t21118;
4459   double t21120, t21123, t21125, t21127, t21130, t21133, t21135, t21138;
4460   double t21141, t21143, t21145, t21148, t21150, t21152, t21154, t21157;
4461   double t21159, t21162, t21164, t21166, t21168, t21170, t21172, t21174;
4462   double t21175, t21177, t21179, t21182, t21184, t21186, t21188, t21190;
4463   double t21200, t21202, t21223, t21240, t21256, t21267, t21270, t21272;
4464   double t21289, t21296, t21298, t21312, t21323, t21326, t21348, t21362;
4465   double t21372, t21377, t21382, t21388, t21391, t21395, t21399, t21404;
4466   double t21406, t21410, t21414, t21420, t21424, t21426, t21429, t21432;
4467   double t21434, t21436, t21438, t21440, t21442, t21444, t21446, t21449;
4468   double t21451, t21453, t21455, t21457, t21460, t21462, t21465, t21467;
4469   double t21471, t21474, t21477, t21481, t21483, t21485, t21487, t21489;
4470   double t21492, t21494, t21496, t21499, t21501, t21504, t21509, t21531;
4471   double t21544, t21558, t21565, t21568, t21570, t21573, t21575, t21577;
4472   double t21580, t21582, t21584, t21586, t21595, t21597, t21599, t21613;
4473   double t21615, t21617, t21619, t21632, t21637, t21645, t21665, t21667;
4474   double t21670, t21676, t21678, t21680, t21682, t21688, t21694, t21708;
4475   double t21719, t21723, t21727, t21730, t21738, t21756, t21759, t21767;
4476   double t21771, t21783, t21823, t21829, t21832, t21833, t21834, t21837;
4477   double t21838, t21841, t21844, t21847, t21850, t21855, t21858, t21862;
4478   double t21866, t21871, t21874, t21881, t21887, t21892, t21897, t21908;
4479   double t21911, t21920, t21929, t21932, t21939, t21944, t21951, t21953;
4480   double t21954, t21957, t21965, t21968, t21971, t21975, t21976, t21979;
4481   double t21983, t21984, t21995, t21996, t21999, t22000, t22004, t22013;
4482   double t22016, t22017, t22020, t22023, t22027, t22030, t22034, t22037;
4483   double t22044, t22051, t22058, t22062, t22066, t22070, t22083, t22088;
4484   double t22095, t22096, t22097, t22100, t22109, t22116, t22119, t22126;
4485   double t22127, t22130, t22131, t22134, t22139, t22142, t22143, t22146;
4486   double t22150, t22151, t22154, t22173, t22188, t22191, t22196, t22201;
4487   double t22204, t22209, t22212, t22217, t22221, t22224, t22229, t22235;
4488   double t22263, t22271, t22295, t22313, t22314, t22318, t22322, t22326;
4489   double t22333, t22354, t22367, t22372, t22383, t22387, t22391, t22403;
4490   double t22416, t22430, t22431, t22434, t22438, t22460, t22474, t22487;
4491   double t22509, t22510, t22513, t22516, t22521, t22528, t22541, t22548;
4492   double t22554, t22567, t22582, t22605, t22625, t22639, t22647, t22656;
4493   double t22663, t22675, t22684, t22695, t22702, t22704, t22707, t22710;
4494   double t22724, t22737, t22751, t22765, t22768, t22780, t22796, t22813;
4495   double t22816, t22830, t22832, t22836, t22862, t22868, t22888, t22891;
4496   double t22945, t22946, t22953, t22964, t22985, t22999, t23002, t23026;
4497   double t23042, t23054, t23068, t23082, t23085, t23098, t23109, t23111;
4498   double t23113, t23118, t23121, t23124, t23127, t23130, t23142, t23145;
4499   double t23163, t23188, t23189, t23191, t23193, t23207, t23232, t23255;
4500   double t23270, t23276, t23285, t23300, t23301, t23321, t23325, t23332;
4501   double t23355, t23384, t23407, t23436, t23468, t23499, t23509, t23524;
4502   double t23526, t23536, t23539, t23541, t23548, t23551, t23574, t23576;
4503   double t23581, t23584, t23617, t23645, t23665, t23674, t23678, t23685;
4504   double t23688, t23700, t23714, t23733, t23751, t23771, t23789, t23808;
4505   double t23826, t23847, t23865, t23884, t23902, t23922, t23940, t23959;
4506   double t23977, t24003, t24007, t24029, t24031, t24036, t24042, t24049;
4507   double t24068, t24073, t24078, t24090, t24116, t24129, t24134, t24135;
4508   double t24138, t24143, t24146, t24148, t24153, t24158, t24163, t24165;
4509   double t24175, t24177, t24179, t24181, t24183, t24185, t24187, t24189;
4510   double t24192, t24195, t24197, t24199, t24201, t24203, t24205, t24207;
4511   double t24210, t24212, t24215, t24217, t24220, t24222, t24225, t24227;
4512   double t24229, t24231, t24233, t24235, t24237, t24239, t24245, t24247;
4513   double t24249, t24251, t24253, t24255, t24257, t24259, t24264, t24273;
4514   double t24275, t24277, t24279, t24281, t24283, t24285, t24287, t24289;
4515   double t24291, t24293, t24295, t24297, t24299, t24302, t24304, t24307;
4516   double t24309, t24311, t24313, t24315, t24317, t24319, t24321, t24323;
4517   double t24326, t24328, t24330, t24332, t24341, t24344, t24347, t24351;
4518   double t24353, t24354, t24356, t24358, t24360, t24362, t24364, t24366;
4519   double t24373, t24378, t24381, t24384, t24387, t24394, t24401, t24407;
4520   double t24416, t24433, t24445, t24448, t24451, t24461, t24470, t24487;
4521   double t24494, t24497, t24500, t24503, t24506, t24512, t24540, t24565;
4522   double t24574, t24592, t24598, t24617, t24654, t24669, t24687, t24690;
4523   double t24700, t24705, t24727, t24733, t24763, t24807, t24808, t24812;
4524   double t24825, t24836, t24851, t24876, t24925, t24946, t24947, t24950;
4525   double t24975, t25001, t25018, t25026, t25035, t25048, t25070, t25073;
4526   double t25076, t25082, t25084, t25086, t25088, t25093, t25095, t25097;
4527   double t25100, t25109, t25148, t25188, t25206, t25236, t25257, t25259;
4528   double t25265, t25278, t25288, t25308, t25312, t25344, t25358, t25389;
4529   double t25392, t25448, t25469, t25470, t25477, t25479, t25482, t25485;
4530   double t25493, t25495, t25499, t25521, t25526, t25529, t25552, t25570;
4531   double t25597, t25599, t25601, t25615, t25627, t25630, t25642, t25657;
4532   double t25679, t25682, t25683, t25690, t25691, t25704, t25713, t25717;
4533   double t25724, t25732, t25735, t25738, t25741, t25743, t25744, t25748;
4534   double t25753, t25764, t25773, t25782, t25787, t25790, t25798, t25808;
4535   double t25811, t25812, t25815, t25816, t25819, t25820, t25823, t25827;
4536   double t25832, t25833, t25837, t25841, t25844, t25849, t25850, t25853;
4537   double t25862, t25865, t25869, t25874, t25877, t25886, t25887, t25900;
4538   double t25905, t25909, t25913, t25917, t25930, t25937, t25941, t25945;
4539   double t25952, t25962, t25972, t25981, t25985, t25989, t26002, t26017;
4540   double t26020, t26023, t26024, t26029, t26030, t26031, t26038, t26043;
4541   double t26046, t26051, t26060, t26062, t26063, t26068, t26074, t26077;
4542   double t26082, t26087, t26088, t26093, t26094, t26097, t26100, t26101;
4543   double t26106, t26109, t26114, t26117, t26130, t26133, t26134, t26139;
4544   double t26142, t26157, t26158, t26161, t26166, t26177, t26191, t26199;
4545   double t26207, t26210, t26228, t26229, t26242, t26263, t26275, t26300;
4546   double t26326, t26347, t26373, t26382, t26388, t26399, t26405, t26412;
4547   double t26421, t26430, t26433, t26436, t26446, t26472, t26493, t26495;
4548   double t26498, t26500, t26502, t26504, t26519, t26522, t26530, t26559;
4549   double t26568, t26579, t26585, t26596, t26606, t26615, t26630, t26644;
4550   double t26654, t26665, t26675, t26684, t26691, t26699, t26710, t26723;
4551   double t26730, t26754, t26767, t26790, t26815, t26820, t26844, t26849;
4552   double t26861, t26873, t26876, t26881, t26905, t26906, t26908, t26910;
4553   double t26912, t26914, t26915, t26917, t26919, t26921, t26923, t26924;
4554   double t26926, t26928, t26930, t26932, t26934, t26936, t26938, t26940;
4555   double t26942, t26944, t26946, t26948, t26950, t26953, t26954, t26956;
4556   double t26961, t26963, t26968, t26973, t26974, t26977, t26980, t26983;
4557   double t26986, t26988, t26990, t26992, t27002, t27005, t27007, t27009;
4558   double t27011, t27013, t27015, t27017, t27019, t27021, t27023, t27025;
4559   double t27027, t27029, t27031, t27033, t27035, t27037, t27039, t27041;
4560   double t27043, t27045, t27047, t27050, t27063, t27085, t27090, t27117;
4561   double t27126, t27128, t27129, t27133, t27134, t27135, t27140, t27141;
4562   double t27142, t27145, t27150, t27151, t27154, t27157, t27158, t27161;
4563   double t27165, t27166, t27167, t27174, t27175, t27182, t27183, t27185;
4564   double t27186, t27187, t27189, t27190, t27191, t27193, t27194, t27197;
4565   double t27201, t27205, t27209, t27213, t27220, t27222, t27225, t27226;
4566   double t27229, t27231, t27234, t27237, t27239, t27241, t27244, t27249;
4567   double t27251, t27254, t27256, t27257, t27260, t27263, t27273, t27283;
4568   double t27285, t27286, t27289, t27292, t27300, t27316, t27318, t27320;
4569   double t27323, t27328, t27340, t27358, t27384, t27396, t27398, t27400;
4570   double t27402, t27405, t27408, t27451, t27452, t27453, t27458, t27482;
4571   double t27485, t27510, t27552, t27585, t27586, t27592, t27595, t27596;
4572   double t27599, t27606, t27609, t27612, t27615, t27616, t27619, t27641;
4573   double t27670, t27672, t27673, t27677, t27681, t27686, t27690, t27694;
4574   double t27697, t27743, t27788, t27792, t27795, t27834, t27865, t27874;
4575   double t27881, t27926, t27956, t27968, t27971, t27996, t28009, t28010;
4576   double t28016, t28033, t28051, t28086, t28088, t28107, t28149, t28174;
4577   double t28186, t28187, t28199, t28207, t28210, t28230, t28249, t28251;
4578   double t28258, t28281, t28284, t28287, t28290, t28309, t28343, t28358;
4579   double t28372, t28381, t28405, t28412, t28430, t28446, t28452, t28460;
4580   double t28467, t28476, t28498, t28505, t28522, t28549, t28582, t28597;
4581   double t28611, t28623, t28636, t28648, t28652, t28660, t28662, t28686;
4582   double t28689, t28691, t28693, t28699, t28708, t28722, t28726, t28730;
4583   double t28737, t28738, t28758, t28762, t28770, t28774, t28791, t28794;
4584   double t28800, t28805, t28814, t28818, t28825, t28826, t28831, t28832;
4585   double t28838, t28847, t28854, t28857, t28868, t28869, t28872, t28877;
4586   double t28879, t28880, t28883, t28886, t28896, t28899, t28900, t28911;
4587   double t28933, t28972, t28987, t28991, t28992, t28994, t29018, t29031;
4588   double t29038, t29045, t29064, t29071, t29075, t29092, t29111, t29130;
4589   double t29137, t29140, t29158, t29163, t29166, t29169, t29170, t29189;
4590   double t29201, t29205, t29241, t29265, t29270, t29281, t29285, t29299;
4591   double t29301, t29302, t29305, t29312, t29313, t29316, t29321, t29324;
4592   double t29325, t29330, t29333, t29346, t29374, t29385, t29390, t29393;
4593   double t29400, t29441, t29472, t29493, t29497, t29535, t29537, t29543;
4594   double t29549, t29552, t29556, t29579, t29583, t29584, t29599, t29603;
4595   double t29604, t29605, t29606, t29607, t29608, t29609, t29610, t29613;
4596   double t29614, t29615, t29617, t29619, t29620, t29621, t29622, t29623;
4597   double t29624, t29625, t29626, t29627, t29628, t29660, t29673, t29674;
4598   double t29685, t29724, t29741, t29774, t29775, t29786, t29790, t29793;
4599   double t29796, t29803, t29814, t29824, t29832, t29851, t29855, t29859;
4600   double t29860, t29909, t29918, t29919, t29923, t29926, t29927, t29931;
4601   double t29962, t29979, t29983, t29986, t29991, t30002, t30005, t30007;
4602   double t30008, t30013, t30020, t30025, t30026, t30029, t30040, t30043;
4603   double t30046, t30047, t30050, t30053, t30056, t30059, t30063, t30071;
4604   double t30088, t30094, t30095, t30103, t30124, t30126, t30132, t30142;
4605   double t30156, t30176, t30183, t30188, t30189, t30190, t30191, t30192;
4606   double t30194, t30195, t30196, t30197, t30198, t30199, t30200, t30201;
4607   double t30202, t30203, t30205, t30206, t30207, t30208, t30209, t30210;
4608   double t30211, t30213, t30215, t30216, t30217, t30218, t30219, t30220;
4609   double t30239, t30242, t30255, t30259, t30292, t30301, t30324, t30328;
4610   double t30333, t30344, t30349, t30350, t30353, t30360, t30363, t30366;
4611   double t30369, t30380, t30383, t30386, t30402, t30404, t30407, t30413;
4612   double t30428, t30438, t30456, t30459, t30462, t30465, t30469, t30473;
4613   double t30476, t30501, t30505, t30509, t30512, t30515, t30518, t30521;
4614   double t30526, t30537, t30553, t30564, t30573, t30593, t30597, t30610;
4615   double t30636, t30658, t30661, t30668, t30695, t30704, t30711, t30714;
4616   double t30722, t30738, t30741, t30747, t30751, t30752, t30753, t30756;
4617   double t30757, t30760, t30789, t30793, t30832, t30841, t30862, t30869;
4618   double t30876, t30881, t30884, t30891, t30894, t30897, t30900, t30907;
4619   double t30910, t30913, t30918, t30921, t30925, t30940, t30945, t30979;
4620   double t30980, t30989, t30992, t31003, t31006, t31007, t31008, t31021;
4621   double t31024, t31027, t31030, t31040, t31041, t31048, t31077, t31078;
4622   double t31084, t31110, t31113, t31116, t31121, t31129, t31161, t31164;
4623   double t31181, t31187, t31215, t31229, t31243, t31249, t31261, t31264;
4624   double t31275, t31279, t31316, t31344, t31347, t31366, t31367, t31370;
4625   double t31373, t31374, t31377, t31380, t31383, t31384, t31390, t31393;
4626   double t31395, t31406, t31407, t31410, t31421, t31424, t31427, t31432;
4627   double t31433, t31434, t31443, t31444, t31467, t31468, t31472, t31475;
4628   double t31482, t31485, t31486, t31495, t31504, t31515, t31557, t31580;
4629   double t31584, t31588, t31607, t31654, t31669, t31671, t31673, t31675;
4630   double t31681, t31685, t31691, t31737, t31744, t31775, t31788, t31791;
4631   double t31794, t31807, t31824, t31829, t31831, t31835, t31836, t31870;
4632   double t31884, t31894, t31901, t31912, t31932, t31945, t31964, t31994;
4633   double t31998, t32006, t32037, t32044, t32045, t32050, t32053, t32056;
4634   double t32059, t32070, t32073, t32080, t32087, t32118, t32139, t32146;
4635   double t32149, t32156, t32159, t32162, t32166, t32169, t32170, t32199;
4636   double t32234, t32258, t32263, t32299, t32331, t32366, t32396, t32415;
4637   double t32419, t32426, t32427, t32448, t32453, t32457, t32458, t32480;
4638   double t32485, t32491, t32502, t32543, t32577, t32578, t32583, t32584;
4639   double t32587, t32588, t32596, t32609, t32618, t32635, t32641, t32644;
4640   double t32657, t32659, t32661, t32663, t32665, t32677, t32683, t32692;
4641   double t32724, t32734, t32747, t32754, t32761, t32764, t32803, t32805;
4642   double t32824, t32827, t32830, t32832, t32834, t32836, t32838, t32841;
4643   double t32848, t32853, t32862, t32865, t32878, t32881, t32883, t32894;
4644   double t32898, t32905, t32914, t32919, t32921, t32924, t32926, t32941;
4645   double t32948, t32989, t33026, t33032, t33034, t33036, t33047, t33056;
4646   double t33062, t33065, t33068, t33071, t33075, t33091, t33093, t33094;
4647   double t33101, t33112, t33115, t33118, t33121, t33126, t33127, t33128;
4648   double t33131, t33132, t33135, t33144, t33147, t33150, t33151, t33154;
4649   double t33157, t33158, t33161, t33162, t33165, t33170, t33177, t33179;
4650   double t33180, t33197, t33201, t33211, t33215, t33234, t33241, t33242;
4651   double t33245, t33248, t33249, t33256, t33271, t33272, t33275, t33280;
4652   double t33285, t33286, t33328, t33341, t33345, t33349, t33353, t33377;
4653   double t33383, t33425, t33474, t33488, t33492, t33497, t33515, t33529;
4654   double t33532, t33555, t33569, t33573, t33581, t33596, t33602, t33605;
4655   double t33608, t33634, t33635, t33644, t33660, t33671, t33674, t33719;
4656   double t33724, t33727, t33731, t33739, t33744, t33759, t33762, t33763;
4657   double t33768, t33772, t33775, t33782, t33790, t33793, t33794, t33797;
4658   double t33798, t33801, t33804, t33805, t33812, t33815, t33824, t33827;
4659   double t33828, t33832, t33835, t33842, t33843, t33848, t33858, t33904;
4660   double t33919, t33928, t33929, t33936, t33943, t33949, t33957, t33962;
4661   double t33973, t33988, t33996, t34000, t34009, t34010, t34011, t34012;
4662   double t34013, t34014, t34058, t34079, t34100, t34117, t34120, t34125;
4663   double t34132, t34137, t34139, t34142, t34148, t34172, t34175, t34177;
4664   double t34184, t34187, t34192, t34197, t34203, t34206, t34213, t34214;
4665   double t34217, t34222, t34225, t34228, t34235, t34250, t34253, t34259;
4666   double t34264, t34269, t34274, t34279, t34280, t34285, t34286, t34289;
4667   double t34292, t34311, t34317, t34320, t34323, t34324, t34329, t34330;
4668   double t34335, t34337, t34338, t34349, t34352, t34356, t34359, t34368;
4669   double t34373, t34378, t34385, t34405, t34408, t34412, t34418, t34421;
4670   double t34434, t34451, t34475, t34476, t34493, t34496, t34522, t34531;
4671   double t34539, t34546, t34551, t34554, t34557, t34562, t34565, t34566;
4672   double t34569, t34570, t34573, t34574, t34577, t34580, t34581, t34584;
4673   double t34587, t34590, t34593, t34594, t34597, t34598, t34601, t34604;
4674   double t34607, t34612, t34615, t34627, t34630, t34635, t34640, t34645;
4675   double t34652, t34657, t34664, t34667, t34674, t34681, t34682, t34685;
4676   double t34686, t34689, t34692, t34695, t34698, t34707, t34724, t34740;
4677   double t34746, t34750, t34762, t34768, t34771, t34772, t34784, t34806;
4678   double t34838, t34848, t34850, t34852, t34857, t34858, t34859, t34860;
4679   double t34861, t34862, t34863, t34866, t34868, t34869, t34870, t34871;
4680   double t34872, t34873, t34874, t34875, t34876, t34877, t34878, t34879;
4681   double t34880, t34882, t34883, t34884, t34885, t34886, t34887, t34888;
4682   double t34893, t34897, t34901, t34905, t34909, t34912, t34920, t34928;
4683   double t34931, t34932, t34935, t34946, t34956, t34959, t34968, t34973;
4684   double t34976, t34977, t34980, t34984, t35010, t35015, t35024, t35030;
4685   double t35041, t35048, t35051, t35070, t35089, t35092, t35095, t35102;
4686   double t35136, t35141, t35177, t35180, t35204, t35207, t35210, t35213;
4687   double t35216, t35221, t35225, t35228, t35233, t35236, t35243, t35248;
4688   double t35251, t35258, t35259, t35262, t35263, t35266, t35275, t35278;
4689   double t35281, t35286, t35301, t35303, t35306, t35316, t35317, t35320;
4690   double t35335, t35338, t35341, t35371, t35387, t35394, t35406, t35409;
4691   double t35416, t35419, t35430, t35441, t35446, t35460, t35461, t35464;
4692   double t35465, t35468, t35469, t35472, t35475, t35476, t35479, t35482;
4693   double t35487, t35488, t35491, t35494, t35495, t35498, t35499, t35502;
4694   double t35505, t35508, t35513, t35514, t35517, t35518, t35521, t35524;
4695   double t35527, t35530, t35536, t35560, t35576, t35604, t35615, t35633;
4696   double t35639, t35641, t35648, t35653, t35659, t35664, t35696, t35699;
4697   double t35701, t35703, t35710, t35714, t35715, t35716, t35718, t35719;
4698   double t35720, t35721, t35722, t35723, t35724, t35725, t35727, t35728;
4699   double t35730, t35731, t35732, t35733, t35734, t35735, t35736, t35739;
4700   double t35741, t35743, t35761, t35768, t35780, t35794, t35800, t35821;
4701   double t35827, t35830, t35870, t35897, t35898, t35911, t35931, t35947;
4702   double t35952, t35961, t35971, t35978, t35983, t35986, t35989, t35992;
4703   double t35997, t36000, t36006, t36007, t36014, t36021, t36022, t36025;
4704   double t36028, t36029, t36035, t36038, t36039, t36044, t36045, t36072;
4705   double t36078, t36084, t36089, t36092, t36105, t36108, t36111, t36122;
4706   double t36143, t36144, t36147, t36152, t36157, t36173, t36179, t36182;
4707   double t36186, t36189, t36192, t36195, t36200, t36204, t36208, t36213;
4708   double t36216, t36219, t36222, t36227, t36228, t36243, t36252, t36256;
4709   double t36263, t36283, t36298, t36301, t36306, t36307, t36312, t36321;
4710   double t36326, t36335, t36343, t36378, t36424, t36426, t36447, t36448;
4711   double t36453, t36461, t36466, t36467, t36478, t36483, t36486, t36500;
4712   double t36528, t36532, t36534, t36535, t36549, t36553, t36559, t36562;
4713   double t36565, t36569, t36572, t36575, t36581, t36583, t36590, t36593;
4714   double t36615, t36616, t36619, t36624, t36628, t36629, t36632, t36633;
4715   double t36640, t36646, t36651, t36654, t36664, t36667, t36672, t36687;
4716   double t36690, t36706, t36718, t36719, t36731, t36736, t36739, t36748;
4717   double t36749, t36752, t36765, t36776, t36777, t36784, t36788, t36791;
4718   double t36794, t36797, t36798, t36803, t36815, t36818, t36823, t36826;
4719   double t36827, t36852, t36861, t36893, t36929, t36931, t36936, t36937;
4720   double t36940, t36941, t36946, t36949, t36950, t36955, t36956, t36959;
4721   double t36960, t36965, t36970, t36971, t36974, t36975, t36976, t36983;
4722   double t36988, t36996, t36997, t37004, t37007, t37014, t37046, t37047;
4723   double t37048, t37055, t37056, t37063, t37067, t37071, t37074, t37078;
4724   double t37090, t37133, t37153, t37156, t37173, t37195, t37213, t37222;
4725   double t37249, t37262, t37264, t37267, t37270, t37277, t37303, t37315;
4726   double t37317, t37324, t37330, t37358, t37363, t37367, t37411, t37445;
4727   double t37450, t37456, t37459, t37466, t37467, t37480, t37485, t37488;
4728   double t37491, t37494, t37495, t37498, t37507, t37511, t37518, t37521;
4729   double t37524, t37527, t37530, t37535, t37550, t37593, t37609, t37610;
4730   double t37617, t37620, t37625, t37628, t37633, t37638, t37643, t37653;
4731   double t37660, t37675, t37681, t37722, t37723, t37773, t37796, t37827;
4732   double t37838, t37841, t37844, t37848, t37850, t37851, t37854, t37857;
4733   double t37860, t37869, t37872, t37879, t37882, t37885, t37886, t37895;
4734   double t37898, t37901, t37904, t37913, t37920, t37923, t37926, t37929;
4735   double t37968, t37969, t38012, t38061, t38112, t38165, t38205, t38210;
4736   double t38215, t38221, t38224, t38227, t38229, t38232, t38234, t38236;
4737   double t38238, t38240, t38243, t38248, t38259, t38264, t38267, t38274;
4738   double t38276, t38279, t38299, t38306, t38307, t38310, t38323, t38327;
4739   double t38338, t38365, t38391, t38435, t38441, t38475, t38502, t38540;
4740   double t38548, t38550, t38560, t38562, t38571, t38597, t38610, t38613;
4741   double t38620, t38624, t38627, t38630, t38644, t38672, t38675, t38679;
4742   double t38686, t38714, t38726, t38731, t38732, t38738, t38744, t38747;
4743   double t38748, t38771, t38775, t38776, t38791, t38797, t38818, t38823;
4744   double t38847, t38857, t38861, t38871, t38883, t38895, t38898, t38905;
4745   double t38906, t38908, t38911, t38913, t38915, t38919, t38922, t38925;
4746   double t38940, t38953, t38954, t38957, t38961, t38987, t39009, t39015;
4747   double t39022, t39032, t39035, t39038, t39055, t39060, t39067, t39068;
4748   double t39071, t39072, t39079, t39096, t39099, t39112, t39117, t39132;
4749   double t39136, t39167, t39195, t39201, t39206, t39210, t39211, t39213;
4750   double t39222, t39251, t39273, t39277, t39282, t39285, t39289, t39302;
4751   double t39305, t39308, t39309, t39312, t39350, t39361, t39387, t39388;
4752   double t39398, t39406, t39419, t39423, t39426, t39427, t39430, t39446;
4753   double t39457, t39467, t39474, t39519, t39527, t39554, t39555, t39558;
4754   double t39561, t39566, t39567, t39578, t39585, t39588, t39592, t39595;
4755   double t39598, t39611, t39623, t39629, t39642, t39646, t39656, t39659;
4756   double t39686, t39712, t39713, t39720, t39726, t39730, t39749, t39753;
4757   double t39790, t39791, t39796, t39799, t39802, t39806, t39809, t39824;
4758   double t39828, t39883, t39896, t39899, t39900, t39911, t39919, t39934;
4759   double t39971, t39975, t40003, t40006, t40010, t40021, t40024, t40027;
4760   double t40036, t40074, t40095, t40106, t40175, t40213, t40218, t40221;
4761   double t40223, t40225, t40244, t40257, t40260, t40271, t40279, t40294;
4762   double t40297, t40315, t40319, t40329, t40330, t40337, t40343, t40360;
4763   double t40361, t40365, t40389, t40392, t40394, t40395, t40397, t40399;
4764   double t40435, t40450, t40454, t40463, t40472, t40478, t40486, t40489;
4765   double t40496, t40505, t40518, t40519, t40522, t40527, t40562, t40576;
4766   double t40585, t40602, t40606, t40615, t40637, t40642, t40646, t40717;
4767   double t40772, t40775, t40776, t40779, t40781, t40786, t40787, t40794;
4768   double t40797, t40832, t40890, t40894, t40897, t40899, t40930, t40931;
4769   double t40934, t40937, t40944, t40947, t40950, t40953, t40958, t40959;
4770   double t40974, t40977, t40999, t41019, t41054, t41067, t41068, t41074;
4771   double t41111, t41115, t41117, t41122, t41141, t41144, t41147, t41158;
4772   double t41159, t41162, t41163, t41166, t41171, t41174, t41177, t41178;
4773   double t41185, t41200, t41203, t41248, t41296, t41301, t41317, t41321;
4774   double t41323, t41329, t41339, t41348, t41349, t41378, t41379, t41410;
4775   double t41413, t41414, t41417, t41422, t41425, t41427, t41428, t41431;
4776   double t41432, t41439, t41448, t41453, t41464, t41481, t41484, t41487;
4777   double t41490, t41501, t41520, t41537, t41543, t41547, t41561, t41571;
4778   double t41572, t41575, t41584, t41587, t41596, t41599, t41602, t41605;
4779   double t41608, t41611, t41620, t41621, t41624, t41627, t41630, t41633;
4780   double t41636, t41639, t41642, t41643, t41658, t41659, t41664, t41665;
4781   double t41670, t41681, t41682, t41685, t41686, t41693, t41710, t41717;
4782   double t41722, t41727, t41736, t41739, t41742, t41745, t41754, t41760;
4783   double t41779, t41784, t41785, t41786, t41822, t41835, t41864, t41867;
4784   double t41870, t41872, t41875, t41878, t41881, t41884, t41887, t41896;
4785   double t41899, t41902, t41905, t41908, t41909, t41932, t41935, t41938;
4786   double t41942, t41945, t41948, t41966, t41967, t41973, t41983, t41984;
4787   double t41996, t42002, t42013, t42035, t42047, t42052, t42053, t42086;
4788   double t42090, t42093, t42094, t42099, t42102, t42115, t42116, t42121;
4789   double t42122, t42154, t42159, t42162, t42164, t42165, t42168, t42171;
4790   double t42176, t42179, t42186, t42187, t42190, t42193, t42196, t42199;
4791   double t42202, t42203, t42204, t42233, t42256, t42274, t42278, t42281;
4792   double t42288, t42289, t42292, t42303, t42308, t42323, t42324, t42327;
4793   double t42328, t42331, t42336, t42339, t42342, t42345, t42379, t42407;
4794   double t42410, t42411, t42414, t42419, t42420, t42447, t42469, t42481;
4795   double t42482, t42485, t42486, t42489, t42490, t42493, t42496, t42501;
4796   double t42502, t42505, t42516, t42523, t42524, t42527, t42530, t42533;
4797   double t42534, t42537, t42538, t42541, t42544, t42551, t42552, t42555;
4798   double t42558, t42569, t42572, t42585, t42592, t42595, t42596, t42599;
4799   double t42608, t42611, t42612, t42615, t42618, t42621, t42626, t42643;
4800   double t42644, t42653, t42657, t42686, t42689, t42720, t42755, t42767;
4801   double t42769, t42786, t42792, t42797, t42848, t42857, t42879, t42882;
4802   double t42909, t42912, t42923, t42926, t42928, t42935, t42938, t42945;
4803   double t42948, t42953, t42956, t42959, t42966, t42977, t42988, t43001;
4804   double t43007, t43014, t43017, t43024, t43055, t43080, t43105, t43107;
4805   double t43132, t43139, t43144, t43149, t43150, t43153, t43156, t43159;
4806   double t43162, t43165, t43188, t43223, t43226, t43229, t43232, t43235;
4807   double t43240, t43245, t43258, t43270, t43291, t43303, t43356, t43376;
4808   double t43389, t43392, t43401, t43471, t43531, t43587, t43612, t43615;
4809   double t43618, t43621, t43624, t43627, t43642, t43651, t43670, t43674;
4810   double t43701, t43726, t43740, t43745, t43746, t43749, t43778, t43791;
4811   double t43794, t43801, t43818, t43833, t43837, t43846, t43851, t43852;
4812   double t43857, t43863, t43871, t43872, t43875, t43876, t43879, t43897;
4813   double t43901, t43948, t43961, t44002, t44006, t44010, t44011, t44017;
4814   double t44022, t44059, t44064, t44069, t44078, t44079, t44086, t44095;
4815   double t44097, t44104, t44107, t44120, t44134, t44146, t44158, t44161;
4816   double t44163, t44172, t44193, t44194, t44198, t44213, t44229, t44245;
4817   double t44247, t44256, t44261, t44264, t44266, t44279, t44280, t44283;
4818   double t44286, t44290, t44294, t44299, t44303, t44307, t44321, t44328;
4819   double t44333, t44337, t44363, t44366, t44369, t44390, t44393, t44396;
4820   double t44399, t44402, t44405, t44410, t44411, t44416, t44417, t44420;
4821   double t44421, t44427, t44428, t44431, t44432, t44439, t44449, t44454;
4822   double t44457, t44480, t44517, t44524, t44548, t44551, t44556, t44559;
4823   double t44564, t44569, t44572, t44578, t44585, t44590, t44604, t44609;
4824   double t44624, t44674, t44690, t44705, t44715, t44728, t44729, t44734;
4825   double t44741, t44760, t44765, t44769, t44781, t44791, t44797, t44807;
4826   double t44808, t44832, t44847, t44853, t44858, t44859, t44864, t44867;
4827   double t44871, t44876, t44881, t44905, t44906, t44920, t44946, t44952;
4828   double t44959, t44972, t44981, t44985, t44987, t45006, t45011, t45014;
4829   double t45032, t45036, t45045, t45090, t45097, t45098, t45101, t45104;
4830   double t45107, t45117, t45122, t45123, t45126, t45131, t45136, t45139;
4831   double t45141, t45144, t45154, t45161, t45172, t45175, t45176, t45180;
4832   double t45185, t45188, t45191, t45203, t45216, t45248, t45254, t45257;
4833   double t45273, t45276, t45279, t45283, t45284, t45289, t45293, t45296;
4834   double t45307, t45313, t45318, t45330, t45333, t45340, t45343, t45354;
4835   double t45355, t45368, t45383, t45386, t45389, t45393, t45394, t45426;
4836   double t45438, t45441, t45444, t45447, t45452, t45453, t45456, t45459;
4837   double t45466, t45468, t45471, t45474, t45479, t45488, t45491, t45500;
4838   double t45503, t45504, t45507, t45512, t45513, t45520, t45529, t45530;
4839   double t45533, t45536, t45545, t45548, t45553, t45558, t45589, t45626;
4840   double t45643, t45651, t45662, t45665, t45666, t45669, t45672, t45680;
4841   double t45683, t45686, t45689, t45692, t45711, t45753, t45758, t45762;
4842   double t45765, t45771, t45774, t45779, t45780, t45783, t45794, t45798;
4843   double t45801, t45806, t45809, t45814, t45823, t45826, t45834, t45837;
4844   double t45841, t45844, t45849, t45852, t45862, t45871, t45874, t45877;
4845   double t45904, t45914, t45945, t45979, t45982, t45985, t45992, t45999;
4846   double t46023, t46035, t46037, t46039, t46044, t46048, t46051, t46054;
4847   double t46057, t46065, t46069, t46076, t46077, t46084, t46087, t46093;
4848   double t46104, t46108, t46109, t46119, t46124, t46134, t46135, t46140;
4849   double t46148, t46154, t46157, t46163, t46164, t46167, t46168, t46171;
4850   double t46176, t46179, t46188, t46193, t46194, t46197, t46203, t46209;
4851   double t46210, t46219, t46220, t46239, t46258, t46263, t46273, t46277;
4852   double t46314, t46328, t46333, t46349, t46364, t46384, t46390, t46406;
4853   double t46427, t46428, t46471, t46475, t46481, t46484, t46487, t46505;
4854   double t46522, t46552, t46555, t46560, t46576, t46581, t46584, t46590;
4855   double t46593, t46597, t46603, t46608, t46612, t46631, t46666, t46673;
4856   double t46676, t46679, t46682, t46685, t46694, t46702, t46705, t46708;
4857   double t46713, t46716, t46717, t46726, t46729, t46734, t46737, t46744;
4858   double t46758, t46761, t46773, t46778, t46783, t46803, t46806, t46809;
4859   double t46813, t46816, t46819, t46826, t46829, t46832, t46841, t46845;
4860   double t46861, t46864, t46891, t46894, t46908, t46929, t46953, t46955;
4861   double t46958, t46961, t46990, t47008, t47062, t47087, t47090, t47091;
4862   double t47097, t47104, t47107, t47110, t47125, t47147, t47165, t47167;
4863   double t47184, t47187, t47192, t47200, t47257, t47268, t47273, t47278;
4864   double t47281, t47284, t47289, t47295, t47300, t47305, t47310, t47313;
4865   double t47361, t47396, t47400, t47417, t47432, t47445, t47448, t47455;
4866   double t47459, t47483, t47485, t47488, t47495, t47517, t47539, t47546;
4867   double t47547, t47554, t47556, t47557, t47559, t47581, t47598, t47609;
4868   double t47611, t47613, t47638, t47644, t47651, t47658, t47665, t47674;
4869   double t47687, t47697, t47701, t47704, t47721, t47736, t47740, t47756;
4870   double t47758, t47764, t47769, t47773, t47811, t47817, t47818, t47831;
4871   double t47835, t47857, t47867, t47871, t47892, t47927, t47957, t47967;
4872   double t47970, t47984, t47990, t48001, t48039, t48049, t48051, t48052;
4873   double t48054, t48076, t48090, t48092, t48094, t48124, t48133, t48145;
4874   double t48158, t48166, t48178, t48190, t48198, t48199, t48210, t48247;
4875   double t48250, t48254, t48271, t48281, t48298, t48344, t48389, t48394;
4876   double t48399, t48434, t48435, t48436, t48437, t48449, t48480, t48483;
4877   double t48522, t48532, t48535, t48538, t48541, t48544, t48547, t48562;
4878   double t48565, t48571, t48588, t48598, t48605, t48613, t48616, t48619;
4879   double t48622, t48631, t48634, t48643, t48646, t48648, t48651, t48678;
4880   double t48713, t48720, t48721, t48734, t48737, t48754, t48764, t48768;
4881   double t48769, t48778, t48799, t48818, t48821, t48829, t48843, t48844;
4882   double t48850, t48854, t48855, t48884, t48920, t48927, t48932, t48955;
4883   double t48959, t48962, t48963, t48995, t48998, t49006, t49009, t49012;
4884   double t49015, t49022, t49025, t49036, t49048, t49051, t49054, t49061;
4885   double t49064, t49067, t49076, t49115, t49134, t49159, t49160, t49172;
4886   double t49201, t49216, t49250, t49257, t49260, t49264, t49279, t49304;
4887   double t49350, t49395, t49404, t49405, t49416, t49447, t49451, t49472;
4888   double t49475, t49476, t49499, t49554, t49591, t49594, t49597, t49606;
4889   double t49611, t49613, t49616, t49623, t49655, t49658, t49661, t49662;
4890   double t49665, t49668, t49671, t49708, t49725, t49728, t49731, t49734;
4891   double t49745, t49748, t49751, t49754, t49757, t49758, t49767, t49780;
4892   double t49783, t49786, t49799, t49803, t49854, t49867, t49870, t49873;
4893   double t49876, t49879, t49900, t49903, t49909, t49912, t49943, t49947;
4894   double t49957, t49962, t49965, t49974, t49987, t49990, t49992, t49997;
4895   double t50000, t50010, t50013, t50016, t50019, t50022, t50025, t50030;
4896   double t50033, t50034, t50039, t50046, t50073, t50090, t50091, t50094;
4897   double t50097, t50100, t50113, t50114, t50117, t50122, t50123, t50130;
4898   double t50135, t50152, t50160, t50161, t50174, t50187, t50204, t50210;
4899   double t50213, t50216, t50217, t50218, t50221, t50226, t50229, t50252;
4900   double t50281, t50294, t50301, t50307, t50310, t50313, t50315, t50322;
4901   double t50331, t50334, t50349, t50355, t50360, t50363, t50370, t50373;
4902   double t50380, t50385, t50393, t50400, t50403, t50413, t50416, t50419;
4903   double t50422, t50436, t50452, t50455, t50459, t50462, t50465, t50478;
4904   double t50479, t50482, t50485, t50496, t50515, t50536, t50561, t50568;
4905   double t50575, t50578, t50581, t50590, t50597, t50602, t50606, t50609;
4906   double t50612, t50615, t50618, t50648, t50701, t50705, t50708, t50711;
4907   double t50714, t50746, t50749, t50752, t50755, t50756, t50765, t50768;
4908   double t50771, t50774, t50783, t50798, t50804, t50813, t50816, t50819;
4909   double t50822, t50825, t50846, t50876, t50879, t50882, t50891, t50907;
4910   double t50939, t50942, t50963, t50966, t50967, t50990, t50996, t50999;
4911   double t51002, t51042, t51097, t51106, t51107, t51114, t51117, t51119;
4912   double t51156, t51166, t51169, t51173, t51194, t51199, t51200, t51203;
4913   double t51204, t51223, t51227, t51231, t51234, t51239, t51274, t51277;
4914   double t51282, t51306, t51309, t51312, t51315, t51320, t51321, t51326;
4915   double t51339, t51340, t51343, t51344, t51349, t51350, t51353, t51394;
4916   double t51405, t51409, t51427, t51430, t51435, t51448, t51452, t51479;
4917   double t51482, t51489, t51490, t51496, t51499, t51506, t51511, t51532;
4918   double t51541, t51560, t51563, t51572, t51575, t51576, t51581, t51584;
4919   double t51598, t51599, t51604, t51609, t51612, t51615, t51617, t51639;
4920   double t51643, t51646, t51649, t51659, t51670, t51673, t51678, t51693;
4921   double t51717, t51722, t51730, t51731, t51747, t51759, t51762, t51767;
4922   double t51774, t51775, t51781, t51791, t51795, t51802, t51803, t51806;
4923   double t51807, t51812, t51813, t51823, t51865, t51872, t51875, t51882;
4924   double t51887, t51911, t51964, t51974, t51977, t51982, t51983, t51988;
4925   double t51993, t52006, t52009, t52014, t52017, t52027, t52035, t52038;
4926   double t52043, t52046, t52049, t52063, t52073, t52106, t52119, t52146;
4927   double t52158, t52161, t52166, t52177, t52184, t52202, t52206, t52213;
4928   double t52216, t52225, t52234, t52237, t52242, t52243, t52246, t52283;
4929   double t52286, t52291, t52294, t52335, t52348, t52351, t52353, t52390;
4930   double t52400, t52403, t52407, t52428, t52468, t52490, t52495, t52504;
4931   double t52509, t52511, t52512, t52514, t52526, t52528, t52530, t52548;
4932   double t52550, t52552, t52565, t52567, t52583, t52600, t52602, t52618;
4933   double t52620, t52621, t52623, t52635, t52637, t52639, t52657, t52659;
4934   double t52661, t52683, t52692, t52695, t52699, t52854, t52863, t52866;
4935   double t52870, t52918, t52927, t52930, t52934, t52955, t53005, t53008;
4936   double t53011, t53036, t53074, t53090, t53097, t53102, t53105, t53108;
4937   double t53113, t53120, t53131, t53142, t53200, t53203, t53206, t53231;
4938   double t53240, t53249, t53252, t53256, t53277, t53317, t53333, t53337;
4939   double t53381, t53384, t53393, t53398, t53401, t53414, t53433, t53444;
4940   double t53445, t53448, t53451, t53456, t53461, t53464, t53487, t53534;
4941   double t53537, t53546, t53551, t53554, t53567, t53586, t53597, t53598;
4942   double t53601, t53604, t53609, t53614, t53617, t53640, t53648, t53664;
4943   double t53668, t53712, t53714, t53734, t53749, t53788, t53791, t53815;
4944   double t53822, t53828, t53834, t53837, t53852, t53877, t53886, t53912;
4945   double t53924, t53937, t53938, t53940, t53960, t53975;
4946 #endif
4947 
4948 #endif
4949 
4950 #endif
4951 
4952 #endif
4953 
4954 #endif
4955 
4956 
4957 
4958   t2 = rho[0] - rho[1];
4959   t3 = rho[0] + rho[1];
4960   t4 = 0.1e1 / t3;
4961   t5 = t2 * t4;
4962   t6 = 0.1e1 + t5;
4963   t7 = M_CBRT3;
4964   t9 = 0.1e1 / M_PI;
4965   t10 = POW_1_3(t9);
4966   t11 = M_CBRT4;
4967   t12 = t11 * t11;
4968   t13 = t10 * t12;
4969   t14 = t6 * t7 * t13;
4970   t15 = M_CBRT2;
4971   t16 = t15 * t15;
4972   t17 = POW_1_3(t3);
4973   t18 = t16 * t17;
4974   t19 = 0.1e1 / t6;
4975   t20 = POW_1_3(t19);
4976   t21 = 0.1e1 / t20;
4977   t22 = rho[0] * rho[0];
4978   t23 = POW_1_3(rho[0]);
4979   t24 = t23 * t23;
4980   t26 = 0.1e1 / t24 / t22;
4981   t27 = sigma[0] * t26;
4982   t29 = 0.1e1 + 0.4e-2 * t27;
4983   t30 = 0.1e1 / t29;
4984   t31 = t27 * t30;
4985   t33 = sigma[0] * sigma[0];
4986   t34 = t22 * t22;
4987   t35 = t34 * rho[0];
4988   t37 = 0.1e1 / t23 / t35;
4989   t38 = t33 * t37;
4990   t39 = t29 * t29;
4991   t40 = 0.1e1 / t39;
4992   t43 = M_CBRT6;
4993   t44 = t43 * t43;
4994   t45 = M_PI * M_PI;
4995   t46 = POW_1_3(t45);
4996   t47 = t46 * t46;
4997   t48 = t44 * t47;
4998   t49 = 0.3e1 / 0.10e2 * t48;
4999   t51 = 0.1e1 / t24 / rho[0];
5000   t52 = tau[0] * t51;
5001   t53 = t49 - t52;
5002   t54 = t49 + t52;
5003   t55 = 0.1e1 / t54;
5004   t56 = t53 * t55;
5005   t60 = 0.1000e1 + 0.5232e-2 * t31 + 0.30416e-4 * t38 * t40 + 0.416e0 * t56 + 0.12280e-1 * t56 * t31;
5006   t61 = t21 * t60;
5007   t62 = t18 * t61;
5008   t64 = 0.3e1 / 0.32e2 * t14 * t62;
5009   t65 = 0.1e1 - t5;
5010   t67 = t65 * t7 * t13;
5011   t68 = 0.1e1 / t65;
5012   t69 = POW_1_3(t68);
5013   t70 = 0.1e1 / t69;
5014   t71 = rho[1] * rho[1];
5015   t72 = POW_1_3(rho[1]);
5016   t73 = t72 * t72;
5017   t75 = 0.1e1 / t73 / t71;
5018   t76 = sigma[2] * t75;
5019   t78 = 0.1e1 + 0.4e-2 * t76;
5020   t79 = 0.1e1 / t78;
5021   t80 = t76 * t79;
5022   t82 = sigma[2] * sigma[2];
5023   t83 = t71 * t71;
5024   t84 = t83 * rho[1];
5025   t86 = 0.1e1 / t72 / t84;
5026   t87 = t82 * t86;
5027   t88 = t78 * t78;
5028   t89 = 0.1e1 / t88;
5029   t93 = 0.1e1 / t73 / rho[1];
5030   t94 = tau[1] * t93;
5031   t95 = t49 - t94;
5032   t96 = t49 + t94;
5033   t97 = 0.1e1 / t96;
5034   t98 = t95 * t97;
5035   t102 = 0.1000e1 + 0.5232e-2 * t80 + 0.30416e-4 * t87 * t89 + 0.416e0 * t98 + 0.12280e-1 * t98 * t80;
5036   t103 = t70 * t102;
5037   t104 = t18 * t103;
5038   t106 = 0.3e1 / 0.32e2 * t67 * t104;
5039   t107 = t7 * t10;
5040   t108 = t107 * t12;
5041   t109 = 0.1e1 / t17;
5042   t110 = t109 * t15;
5043   t112 = t108 * t110 * t20;
5044   t114 = 0.1e1 + 0.51370000000000000000e-1 * t112;
5045   t115 = t6 * t114;
5046   t116 = sqrt(t112);
5047   t119 = POW_3_2(t112);
5048   t121 = t7 * t7;
5049   t122 = t10 * t10;
5050   t123 = t121 * t122;
5051   t124 = t123 * t11;
5052   t125 = t17 * t17;
5053   t126 = 0.1e1 / t125;
5054   t127 = t126 * t16;
5055   t128 = t20 * t20;
5056   t130 = t124 * t127 * t128;
5057   t132 = 0.70594500000000000000e1 * t116 + 0.15494250000000000000e1 * t112 + 0.42077500000000000000e0 * t119 + 0.15629250000000000000e0 * t130;
5058   t135 = 0.1e1 + 0.32163958997385070134e2 / t132;
5059   t136 = log(t135);
5060   t138 = 0.1e1 + 0.2e0 * t27;
5061   t139 = t138 * t138;
5062   t140 = 0.1e1 / t139;
5063   t141 = t38 * t140;
5064   t144 = t53 * t53;
5065   t145 = t144 * t53;
5066   t146 = t54 * t54;
5067   t147 = t146 * t54;
5068   t148 = 0.1e1 / t147;
5069   t149 = t145 * t148;
5070   t152 = t144 * t144;
5071   t153 = t146 * t146;
5072   t154 = 0.1e1 / t153;
5073   t155 = t152 * t154;
5074   t158 = 0.1000e1 - 0.7420e-1 * t141 - 0.5668e1 * t56 - 0.81988e0 * t149 * t141 - 0.81456e0 * t155 * t141;
5075   t159 = t136 * t158;
5076   t161 = 0.15545350000000000000e-1 * t115 * t159;
5077   t163 = t108 * t110 * t69;
5078   t165 = 0.1e1 + 0.51370000000000000000e-1 * t163;
5079   t166 = t65 * t165;
5080   t167 = sqrt(t163);
5081   t170 = POW_3_2(t163);
5082   t172 = t69 * t69;
5083   t174 = t124 * t127 * t172;
5084   t176 = 0.70594500000000000000e1 * t167 + 0.15494250000000000000e1 * t163 + 0.42077500000000000000e0 * t170 + 0.15629250000000000000e0 * t174;
5085   t179 = 0.1e1 + 0.32163958997385070134e2 / t176;
5086   t180 = log(t179);
5087   t182 = 0.1e1 + 0.2e0 * t76;
5088   t183 = t182 * t182;
5089   t184 = 0.1e1 / t183;
5090   t185 = t87 * t184;
5091   t188 = t95 * t95;
5092   t189 = t188 * t95;
5093   t190 = t96 * t96;
5094   t191 = t190 * t96;
5095   t192 = 0.1e1 / t191;
5096   t193 = t189 * t192;
5097   t196 = t188 * t188;
5098   t197 = t190 * t190;
5099   t198 = 0.1e1 / t197;
5100   t199 = t196 * t198;
5101   t202 = 0.1000e1 - 0.7420e-1 * t185 - 0.5668e1 * t98 - 0.81988e0 * t193 * t185 - 0.81456e0 * t199 * t185;
5102   t203 = t180 * t202;
5103   t205 = 0.15545350000000000000e-1 * t166 * t203;
5104   t206 = t12 * t109;
5105   t207 = t107 * t206;
5106   t209 = 0.1e1 + 0.53425000000000000000e-1 * t207;
5107   t210 = sqrt(t207);
5108   t213 = POW_3_2(t207);
5109   t215 = t11 * t126;
5110   t216 = t123 * t215;
5111   t218 = 0.37978500000000000000e1 * t210 + 0.89690000000000000000e0 * t207 + 0.20477500000000000000e0 * t213 + 0.12323500000000000000e0 * t216;
5112   t221 = 0.1e1 + 0.16081979498692535067e2 / t218;
5113   t222 = log(t221);
5114   t224 = 0.621814e-1 * t209 * t222;
5115   t225 = t2 * t2;
5116   t226 = t225 * t225;
5117   t227 = t3 * t3;
5118   t228 = t227 * t227;
5119   t229 = 0.1e1 / t228;
5120   t230 = t226 * t229;
5121   t231 = POW_1_3(t6);
5122   t233 = POW_1_3(t65);
5123   t235 = t231 * t6 + t233 * t65 - 0.2e1;
5124   t238 = 0.1e1 / (0.2e1 * t15 - 0.2e1);
5125   t239 = t235 * t238;
5126   t241 = 0.1e1 + 0.51370000000000000000e-1 * t207;
5127   t246 = 0.70594500000000000000e1 * t210 + 0.15494250000000000000e1 * t207 + 0.42077500000000000000e0 * t213 + 0.15629250000000000000e0 * t216;
5128   t249 = 0.1e1 + 0.32163958997385070134e2 / t246;
5129   t250 = log(t249);
5130   t254 = 0.1e1 + 0.27812500000000000000e-1 * t207;
5131   t259 = 0.51785000000000000000e1 * t210 + 0.90577500000000000000e0 * t207 + 0.11003250000000000000e0 * t213 + 0.12417750000000000000e0 * t216;
5132   t262 = 0.1e1 + 0.29608749977793437516e2 / t259;
5133   t263 = log(t262);
5134   t264 = t254 * t263;
5135   t266 = -0.3109070e-1 * t241 * t250 + t224 - 0.19751673498613801407e-1 * t264;
5136   t267 = t239 * t266;
5137   t275 = -t224 + t230 * t267 + 0.19751673498613801407e-1 * t239 * t264 + 0.15545350000000000000e-1 * t115 * t136 + 0.15545350000000000000e-1 * t166 * t180;
5138   t276 = t27 + t76;
5139   t279 = 0.1e1 + 0.30000000000000000000e-2 * t27 + 0.30000000000000000000e-2 * t76;
5140   t280 = 0.1e1 / t279;
5141   t283 = t276 * t276;
5142   t284 = t283 * t276;
5143   t285 = t279 * t279;
5144   t286 = t285 * t279;
5145   t287 = 0.1e1 / t286;
5146   t292 = 0.3e1 / 0.10e2 * t48 * (t52 + t94);
5147   t294 = 0.2e1 * t52 * t94;
5148   t295 = t292 - t294;
5149   t296 = t292 + t294;
5150   t297 = 0.1e1 / t296;
5151   t300 = t295 * t295;
5152   t301 = t300 * t295;
5153   t302 = t296 * t296;
5154   t303 = t302 * t296;
5155   t304 = 0.1e1 / t303;
5156   t305 = t301 * t304;
5157   t306 = 0.1e1 / t285;
5158   t307 = t283 * t306;
5159   t310 = 0.1000e1 + 0.47190000000000000000e-2 * t276 * t280 - 0.17004600000000000000e-6 * t284 * t287 + 0.2535e1 * t295 * t297 - 0.57843000000000000000e-4 * t305 * t307;
5160   t311 = t275 * t310;
5161   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
5162     zk[0] = -t64 - t106 - t161 - t205 + t311;
5163 
5164 #ifndef XC_DONT_COMPILE_VXC
5165 
5166   if(order < 1) return;
5167 
5168 
5169   t312 = 0.1e1 / t227;
5170   t313 = t2 * t312;
5171   t314 = t4 - t313;
5172   t316 = t314 * t7 * t13;
5173   t317 = t316 * t62;
5174   t318 = 0.3e1 / 0.32e2 * t317;
5175   t319 = t127 * t61;
5176   t320 = t14 * t319;
5177   t321 = t320 / 0.32e2;
5178   t323 = t19 * t7 * t13;
5179   t325 = 0.1e1 / t20 / t19;
5180   t326 = t325 * t60;
5181   t327 = t326 * t314;
5182   t329 = t323 * t18 * t327;
5183   t330 = t329 / 0.32e2;
5184   t331 = t22 * rho[0];
5185   t333 = 0.1e1 / t24 / t331;
5186   t334 = sigma[0] * t333;
5187   t335 = t334 * t30;
5188   t337 = t34 * t22;
5189   t339 = 0.1e1 / t23 / t337;
5190   t340 = t33 * t339;
5191   t341 = t340 * t40;
5192   t343 = t33 * sigma[0];
5193   t344 = t34 * t34;
5194   t345 = t344 * rho[0];
5195   t346 = 0.1e1 / t345;
5196   t347 = t343 * t346;
5197   t349 = 0.1e1 / t39 / t29;
5198   t352 = tau[0] * t26;
5199   t353 = t352 * t55;
5200   t355 = 0.1e1 / t146;
5201   t356 = t53 * t355;
5202   t357 = t356 * t352;
5203   t359 = tau[0] * t37;
5204   t360 = t55 * sigma[0];
5205   t361 = t360 * t30;
5206   t364 = t356 * sigma[0];
5207   t365 = t37 * t30;
5208   t366 = t365 * tau[0];
5209   t373 = -0.13952000000000000000e-1 * t335 - 0.10641066666666666667e-3 * t341 + 0.64887466666666666669e-6 * t347 * t349 + 0.69333333333333333333e0 * t353 + 0.69333333333333333333e0 * t357 + 0.20466666666666666667e-1 * t359 * t361 + 0.20466666666666666667e-1 * t364 * t366 - 0.32746666666666666667e-1 * t56 * t335 + 0.13098666666666666667e-3 * t56 * t341;
5210   t374 = t21 * t373;
5211   t375 = t18 * t374;
5212   t376 = t14 * t375;
5213   t377 = 0.3e1 / 0.32e2 * t376;
5214   t378 = -t314;
5215   t380 = t378 * t7 * t13;
5216   t381 = t380 * t104;
5217   t382 = 0.3e1 / 0.32e2 * t381;
5218   t383 = t127 * t103;
5219   t384 = t67 * t383;
5220   t385 = t384 / 0.32e2;
5221   t387 = t68 * t7 * t13;
5222   t389 = 0.1e1 / t69 / t68;
5223   t390 = t389 * t102;
5224   t391 = t390 * t378;
5225   t393 = t387 * t18 * t391;
5226   t394 = t393 / 0.32e2;
5227   t395 = t314 * t114;
5228   t396 = t395 * t159;
5229   t397 = 0.15545350000000000000e-1 * t396;
5230   t399 = 0.1e1 / t17 / t3;
5231   t400 = t399 * t15;
5232   t402 = t108 * t400 * t20;
5233   t403 = 0.17123333333333333333e-1 * t402;
5234   t404 = 0.1e1 / t128;
5235   t405 = t15 * t404;
5236   t406 = t6 * t6;
5237   t407 = 0.1e1 / t406;
5238   t408 = t407 * t314;
5239   t409 = t405 * t408;
5240   t410 = t207 * t409;
5241   t412 = -t403 - 0.17123333333333333333e-1 * t410;
5242   t413 = t6 * t412;
5243   t414 = t413 * t159;
5244   t415 = 0.15545350000000000000e-1 * t414;
5245   t416 = t132 * t132;
5246   t417 = 0.1e1 / t416;
5247   t418 = t115 * t417;
5248   t419 = 0.1e1 / t116;
5249   t421 = -t402 / 0.3e1 - t410 / 0.3e1;
5250   t424 = 0.51647500000000000000e0 * t402;
5251   t426 = sqrt(t112);
5252   t430 = 0.1e1 / t125 / t3;
5253   t431 = t430 * t16;
5254   t434 = 0.10419500000000000000e0 * t124 * t431 * t128;
5255   t435 = t16 * t21;
5256   t436 = t435 * t408;
5257   t439 = 0.35297250000000000000e1 * t419 * t421 - t424 - 0.51647500000000000000e0 * t410 + 0.63116250000000000000e0 * t426 * t421 - t434 - 0.10419500000000000000e0 * t216 * t436;
5258   t440 = 0.1e1 / t135;
5259   t441 = t439 * t440;
5260   t442 = t441 * t158;
5261   t443 = t418 * t442;
5262   t444 = 0.50000000000000000001e0 * t443;
5263   t445 = t340 * t140;
5264   t448 = 0.1e1 / t139 / t138;
5265   t449 = t347 * t448;
5266   t453 = t144 * t148;
5267   t454 = t453 * t33;
5268   t455 = 0.1e1 / t344;
5269   t456 = t455 * t140;
5270   t457 = t456 * tau[0];
5271   t460 = t145 * t154;
5272   t461 = t460 * t33;
5273   t469 = 0.1e1 / t153 / t54;
5274   t470 = t152 * t469;
5275   t471 = t470 * t33;
5276   t478 = 0.39573333333333333333e0 * t445 - 0.79146666666666666669e-1 * t449 - 0.94466666666666666667e1 * t353 - 0.94466666666666666667e1 * t357 - 0.409940e1 * t454 * t457 - 0.95298000000000000000e1 * t461 * t457 + 0.43726933333333333333e1 * t149 * t445 - 0.87453866666666666669e0 * t149 * t449 - 0.54304000000000000000e1 * t471 * t457 + 0.43443200000000000000e1 * t155 * t445 - 0.86886400000000000003e0 * t155 * t449;
5277   t479 = t136 * t478;
5278   t480 = t115 * t479;
5279   t481 = 0.15545350000000000000e-1 * t480;
5280   t482 = t378 * t165;
5281   t483 = t482 * t203;
5282   t484 = 0.15545350000000000000e-1 * t483;
5283   t486 = t108 * t400 * t69;
5284   t487 = 0.17123333333333333333e-1 * t486;
5285   t488 = 0.1e1 / t172;
5286   t489 = t15 * t488;
5287   t490 = t65 * t65;
5288   t491 = 0.1e1 / t490;
5289   t492 = t491 * t378;
5290   t493 = t489 * t492;
5291   t494 = t207 * t493;
5292   t496 = -t487 - 0.17123333333333333333e-1 * t494;
5293   t497 = t65 * t496;
5294   t498 = t497 * t203;
5295   t499 = 0.15545350000000000000e-1 * t498;
5296   t500 = t176 * t176;
5297   t501 = 0.1e1 / t500;
5298   t502 = t166 * t501;
5299   t503 = 0.1e1 / t167;
5300   t505 = -t486 / 0.3e1 - t494 / 0.3e1;
5301   t508 = 0.51647500000000000000e0 * t486;
5302   t510 = sqrt(t163);
5303   t515 = 0.10419500000000000000e0 * t124 * t431 * t172;
5304   t516 = t16 * t70;
5305   t517 = t516 * t492;
5306   t520 = 0.35297250000000000000e1 * t503 * t505 - t508 - 0.51647500000000000000e0 * t494 + 0.63116250000000000000e0 * t510 * t505 - t515 - 0.10419500000000000000e0 * t216 * t517;
5307   t521 = 0.1e1 / t179;
5308   t522 = t520 * t521;
5309   t523 = t522 * t202;
5310   t524 = t502 * t523;
5311   t525 = 0.50000000000000000001e0 * t524;
5312   t526 = t12 * t399;
5313   t529 = 0.11073470983333333333e-2 * t107 * t526 * t222;
5314   t530 = t218 * t218;
5315   t531 = 0.1e1 / t530;
5316   t532 = t209 * t531;
5317   t534 = 0.1e1 / t210 * t7;
5318   t535 = t13 * t399;
5319   t536 = t534 * t535;
5320   t538 = t107 * t526;
5321   t540 = sqrt(t207);
5322   t541 = t540 * t7;
5323   t542 = t541 * t535;
5324   t545 = t123 * t11 * t430;
5325   t547 = -0.63297500000000000000e0 * t536 - 0.29896666666666666667e0 * t538 - 0.10238750000000000000e0 * t542 - 0.82156666666666666667e-1 * t545;
5326   t548 = 0.1e1 / t221;
5327   t549 = t547 * t548;
5328   t551 = 0.10000000000000000000e1 * t532 * t549;
5329   t552 = t225 * t2;
5330   t553 = t552 * t229;
5331   t555 = 0.4e1 * t553 * t267;
5332   t556 = t228 * t3;
5333   t557 = 0.1e1 / t556;
5334   t558 = t226 * t557;
5335   t560 = 0.4e1 * t558 * t267;
5336   t565 = (0.4e1 / 0.3e1 * t231 * t314 + 0.4e1 / 0.3e1 * t233 * t378) * t238;
5337   t566 = t565 * t266;
5338   t571 = t246 * t246;
5339   t572 = 0.1e1 / t571;
5340   t573 = t241 * t572;
5341   t578 = -0.11765750000000000000e1 * t536 - 0.51647500000000000000e0 * t538 - 0.21038750000000000000e0 * t542 - 0.10419500000000000000e0 * t545;
5342   t579 = 0.1e1 / t249;
5343   t580 = t578 * t579;
5344   t586 = t259 * t259;
5345   t587 = 0.1e1 / t586;
5346   t588 = t254 * t587;
5347   t593 = -0.86308333333333333334e0 * t536 - 0.30192500000000000000e0 * t538 - 0.55016250000000000000e-1 * t542 - 0.82785000000000000000e-1 * t545;
5348   t594 = 0.1e1 / t262;
5349   t595 = t593 * t594;
5350   t598 = 0.53237641966666666666e-3 * t107 * t526 * t250 + 0.10000000000000000000e1 * t573 * t580 - t529 - t551 + 0.18311447306006545054e-3 * t107 * t526 * t263 + 0.58482236226346462070e0 * t588 * t595;
5351   t599 = t239 * t598;
5352   t600 = t230 * t599;
5353   t603 = t239 * t7;
5354   t605 = t13 * t399 * t263;
5355   t607 = 0.18311447306006545054e-3 * t603 * t605;
5356   t608 = t239 * t254;
5357   t610 = t587 * t593 * t594;
5358   t612 = 0.58482236226346462070e0 * t608 * t610;
5359   t617 = t417 * t439;
5360   t618 = t617 * t440;
5361   t625 = t501 * t520;
5362   t626 = t625 * t521;
5363   t629 = t529 + t551 + t555 - t560 + t230 * t566 + t600 + 0.19751673498613801407e-1 * t565 * t264 - t607 - t612 + 0.15545350000000000000e-1 * t395 * t136 + 0.15545350000000000000e-1 * t413 * t136 - 0.50000000000000000001e0 * t115 * t618 + 0.15545350000000000000e-1 * t482 * t180 + 0.15545350000000000000e-1 * t497 * t180 - 0.50000000000000000001e0 * t166 * t626;
5364   t630 = t629 * t310;
5365   t633 = t276 * t306;
5366   t636 = t283 * t287;
5367   t639 = t285 * t285;
5368   t640 = 0.1e1 / t639;
5369   t641 = t284 * t640;
5370   t645 = t48 * t352 / 0.2e1;
5371   t647 = 0.10e2 / 0.3e1 * t352 * t94;
5372   t648 = -t645 + t647;
5373   t651 = 0.1e1 / t302;
5374   t652 = t295 * t651;
5375   t653 = -t645 - t647;
5376   t656 = t300 * t304;
5377   t660 = t302 * t302;
5378   t661 = 0.1e1 / t660;
5379   t662 = t301 * t661;
5380   t663 = t307 * t653;
5381   t666 = t305 * t276;
5382   t667 = t306 * sigma[0];
5383   t668 = t667 * t333;
5384   t671 = t305 * t283;
5385   t672 = t287 * sigma[0];
5386   t673 = t672 * t333;
5387   t676 = -0.12584000000000000000e-1 * t334 * t280 + 0.37752000000000000000e-4 * t633 * t334 + 0.13603680000000000000e-5 * t636 * t334 - 0.40811040000000000000e-8 * t641 * t334 + 0.2535e1 * t648 * t297 - 0.2535e1 * t652 * t653 - 0.17352900000000000000e-3 * t656 * t307 * t648 + 0.17352900000000000000e-3 * t662 * t663 + 0.30849600000000000000e-3 * t666 * t668 - 0.92548800000000000000e-6 * t671 * t673;
5388   t677 = t275 * t676;
5389   t678 = -t318 - t321 - t330 - t377 - t382 - t385 - t394 - t397 - t415 + t444 - t481 - t484 - t499 + t525 + t630 + t677;
5390   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5391     vrho[0] = t3 * t678 - t106 - t161 - t205 + t311 - t64;
5392 
5393   t680 = -t4 - t313;
5394   t682 = t680 * t7 * t13;
5395   t683 = t682 * t62;
5396   t684 = 0.3e1 / 0.32e2 * t683;
5397   t685 = t326 * t680;
5398   t687 = t323 * t18 * t685;
5399   t688 = t687 / 0.32e2;
5400   t689 = -t680;
5401   t691 = t689 * t7 * t13;
5402   t692 = t691 * t104;
5403   t693 = 0.3e1 / 0.32e2 * t692;
5404   t694 = t390 * t689;
5405   t696 = t387 * t18 * t694;
5406   t697 = t696 / 0.32e2;
5407   t698 = t71 * rho[1];
5408   t700 = 0.1e1 / t73 / t698;
5409   t701 = sigma[2] * t700;
5410   t702 = t701 * t79;
5411   t704 = t83 * t71;
5412   t706 = 0.1e1 / t72 / t704;
5413   t707 = t82 * t706;
5414   t708 = t707 * t89;
5415   t710 = t82 * sigma[2];
5416   t711 = t83 * t83;
5417   t712 = t711 * rho[1];
5418   t713 = 0.1e1 / t712;
5419   t714 = t710 * t713;
5420   t716 = 0.1e1 / t88 / t78;
5421   t719 = tau[1] * t75;
5422   t720 = t719 * t97;
5423   t722 = 0.1e1 / t190;
5424   t723 = t95 * t722;
5425   t724 = t723 * t719;
5426   t726 = tau[1] * t86;
5427   t727 = t97 * sigma[2];
5428   t728 = t727 * t79;
5429   t731 = t723 * sigma[2];
5430   t732 = t86 * t79;
5431   t733 = t732 * tau[1];
5432   t740 = -0.13952000000000000000e-1 * t702 - 0.10641066666666666667e-3 * t708 + 0.64887466666666666669e-6 * t714 * t716 + 0.69333333333333333333e0 * t720 + 0.69333333333333333333e0 * t724 + 0.20466666666666666667e-1 * t726 * t728 + 0.20466666666666666667e-1 * t731 * t733 - 0.32746666666666666667e-1 * t98 * t702 + 0.13098666666666666667e-3 * t98 * t708;
5433   t741 = t70 * t740;
5434   t742 = t18 * t741;
5435   t743 = t67 * t742;
5436   t744 = 0.3e1 / 0.32e2 * t743;
5437   t745 = t680 * t114;
5438   t746 = t745 * t159;
5439   t747 = 0.15545350000000000000e-1 * t746;
5440   t748 = t407 * t680;
5441   t749 = t405 * t748;
5442   t750 = t207 * t749;
5443   t752 = -t403 - 0.17123333333333333333e-1 * t750;
5444   t753 = t6 * t752;
5445   t754 = t753 * t159;
5446   t755 = 0.15545350000000000000e-1 * t754;
5447   t757 = -t402 / 0.3e1 - t750 / 0.3e1;
5448   t763 = t435 * t748;
5449   t766 = 0.35297250000000000000e1 * t419 * t757 - t424 - 0.51647500000000000000e0 * t750 + 0.63116250000000000000e0 * t426 * t757 - t434 - 0.10419500000000000000e0 * t216 * t763;
5450   t767 = t766 * t440;
5451   t768 = t767 * t158;
5452   t769 = t418 * t768;
5453   t770 = 0.50000000000000000001e0 * t769;
5454   t771 = t689 * t165;
5455   t772 = t771 * t203;
5456   t773 = 0.15545350000000000000e-1 * t772;
5457   t774 = t491 * t689;
5458   t775 = t489 * t774;
5459   t776 = t207 * t775;
5460   t778 = -t487 - 0.17123333333333333333e-1 * t776;
5461   t779 = t65 * t778;
5462   t780 = t779 * t203;
5463   t781 = 0.15545350000000000000e-1 * t780;
5464   t783 = -t486 / 0.3e1 - t776 / 0.3e1;
5465   t789 = t516 * t774;
5466   t792 = 0.35297250000000000000e1 * t503 * t783 - t508 - 0.51647500000000000000e0 * t776 + 0.63116250000000000000e0 * t510 * t783 - t515 - 0.10419500000000000000e0 * t216 * t789;
5467   t793 = t792 * t521;
5468   t794 = t793 * t202;
5469   t795 = t502 * t794;
5470   t796 = 0.50000000000000000001e0 * t795;
5471   t797 = t707 * t184;
5472   t800 = 0.1e1 / t183 / t182;
5473   t801 = t714 * t800;
5474   t805 = t188 * t192;
5475   t806 = t805 * t82;
5476   t807 = 0.1e1 / t711;
5477   t808 = t807 * t184;
5478   t809 = t808 * tau[1];
5479   t812 = t189 * t198;
5480   t813 = t812 * t82;
5481   t821 = 0.1e1 / t197 / t96;
5482   t822 = t196 * t821;
5483   t823 = t822 * t82;
5484   t830 = 0.39573333333333333333e0 * t797 - 0.79146666666666666669e-1 * t801 - 0.94466666666666666667e1 * t720 - 0.94466666666666666667e1 * t724 - 0.409940e1 * t806 * t809 - 0.95298000000000000000e1 * t813 * t809 + 0.43726933333333333333e1 * t193 * t797 - 0.87453866666666666669e0 * t193 * t801 - 0.54304000000000000000e1 * t823 * t809 + 0.43443200000000000000e1 * t199 * t797 - 0.86886400000000000003e0 * t199 * t801;
5485   t831 = t180 * t830;
5486   t832 = t166 * t831;
5487   t833 = 0.15545350000000000000e-1 * t832;
5488   t838 = (0.4e1 / 0.3e1 * t231 * t680 + 0.4e1 / 0.3e1 * t233 * t689) * t238;
5489   t839 = t838 * t266;
5490   t847 = t417 * t766;
5491   t848 = t847 * t440;
5492   t855 = t501 * t792;
5493   t856 = t855 * t521;
5494   t859 = t529 + t551 - t555 - t560 + t230 * t839 + t600 + 0.19751673498613801407e-1 * t838 * t264 - t607 - t612 + 0.15545350000000000000e-1 * t745 * t136 + 0.15545350000000000000e-1 * t753 * t136 - 0.50000000000000000001e0 * t115 * t848 + 0.15545350000000000000e-1 * t771 * t180 + 0.15545350000000000000e-1 * t779 * t180 - 0.50000000000000000001e0 * t166 * t856;
5495   t860 = t859 * t310;
5496   t870 = t48 * t719 / 0.2e1;
5497   t872 = 0.10e2 / 0.3e1 * t52 * t719;
5498   t873 = -t870 + t872;
5499   t876 = -t870 - t872;
5500   t879 = t307 * t873;
5501   t882 = t307 * t876;
5502   t885 = t306 * sigma[2];
5503   t886 = t885 * t700;
5504   t889 = t287 * sigma[2];
5505   t890 = t889 * t700;
5506   t893 = -0.12584000000000000000e-1 * t701 * t280 + 0.37752000000000000000e-4 * t633 * t701 + 0.13603680000000000000e-5 * t636 * t701 - 0.40811040000000000000e-8 * t641 * t701 + 0.2535e1 * t873 * t297 - 0.2535e1 * t652 * t876 - 0.17352900000000000000e-3 * t656 * t879 + 0.17352900000000000000e-3 * t662 * t882 + 0.30849600000000000000e-3 * t666 * t886 - 0.92548800000000000000e-6 * t671 * t890;
5507   t894 = t275 * t893;
5508   t895 = -t684 - t321 - t688 - t693 - t385 - t697 - t744 - t747 - t755 + t770 - t773 - t781 + t796 - t833 + t860 + t894;
5509   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5510     vrho[1] = t3 * t895 - t106 - t161 - t205 + t311 - t64;
5511 
5512   t897 = t26 * t30;
5513   t899 = sigma[0] * t37;
5514   t900 = t899 * t40;
5515   t902 = t33 * t455;
5516   t909 = 0.5232e-2 * t897 + 0.39904e-4 * t900 - 0.243328e-6 * t902 * t349 + 0.12280e-1 * t56 * t897 - 0.49120e-4 * t56 * t900;
5517   t910 = t21 * t909;
5518   t911 = t18 * t910;
5519   t913 = 0.3e1 / 0.32e2 * t14 * t911;
5520   t914 = t899 * t140;
5521   t916 = t902 * t448;
5522   t926 = -0.14840e0 * t914 + 0.29680e-1 * t916 - 0.163976e1 * t149 * t914 + 0.327952e0 * t149 * t916 - 0.162912e1 * t155 * t914 + 0.325824e0 * t155 * t916;
5523   t927 = t136 * t926;
5524   t929 = 0.15545350000000000000e-1 * t115 * t927;
5525   t932 = t633 * t26;
5526   t934 = t636 * t26;
5527   t942 = 0.47190000000000000000e-2 * t26 * t280 - 0.14157000000000000000e-4 * t932 - 0.51013800000000000000e-6 * t934 + 0.15304140000000000000e-8 * t641 * t26 - 0.11568600000000000000e-3 * t305 * t932 + 0.34705800000000000000e-6 * t305 * t934;
5528   t943 = t275 * t942;
5529   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5530     vsigma[0] = t3 * (-t913 - t929 + t943);
5531 
5532   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5533     vsigma[1] = 0.0e0;
5534 
5535   t945 = t75 * t79;
5536   t947 = sigma[2] * t86;
5537   t948 = t947 * t89;
5538   t950 = t82 * t807;
5539   t957 = 0.5232e-2 * t945 + 0.39904e-4 * t948 - 0.243328e-6 * t950 * t716 + 0.12280e-1 * t98 * t945 - 0.49120e-4 * t98 * t948;
5540   t958 = t70 * t957;
5541   t959 = t18 * t958;
5542   t961 = 0.3e1 / 0.32e2 * t67 * t959;
5543   t962 = t947 * t184;
5544   t964 = t950 * t800;
5545   t974 = -0.14840e0 * t962 + 0.29680e-1 * t964 - 0.163976e1 * t193 * t962 + 0.327952e0 * t193 * t964 - 0.162912e1 * t199 * t962 + 0.325824e0 * t199 * t964;
5546   t975 = t180 * t974;
5547   t977 = 0.15545350000000000000e-1 * t166 * t975;
5548   t980 = t633 * t75;
5549   t982 = t636 * t75;
5550   t990 = 0.47190000000000000000e-2 * t75 * t280 - 0.14157000000000000000e-4 * t980 - 0.51013800000000000000e-6 * t982 + 0.15304140000000000000e-8 * t641 * t75 - 0.11568600000000000000e-3 * t305 * t980 + 0.34705800000000000000e-6 * t305 * t982;
5551   t991 = t275 * t990;
5552   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5553     vsigma[2] = t3 * (-t961 - t977 + t991);
5554 
5555   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
5556     vlapl[0] = 0.0e0;
5557 
5558   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
5559     vlapl[1] = 0.0e0;
5560 
5561   t993 = t51 * t55;
5562   t995 = t356 * t51;
5563   t998 = 0.1e1 / t23 / t34;
5564   t999 = t998 * t55;
5565   t1000 = sigma[0] * t30;
5566   t1007 = -0.416e0 * t993 - 0.416e0 * t995 - 0.12280e-1 * t999 * t1000 - 0.12280e-1 * t356 * sigma[0] * t998 * t30;
5567   t1008 = t21 * t1007;
5568   t1009 = t18 * t1008;
5569   t1011 = 0.3e1 / 0.32e2 * t14 * t1009;
5570   t1014 = t34 * t331;
5571   t1015 = 0.1e1 / t1014;
5572   t1017 = t33 * t1015 * t140;
5573   t1024 = 0.5668e1 * t993 + 0.5668e1 * t995 + 0.245964e1 * t453 * t1017 + 0.571788e1 * t460 * t1017 + 0.325824e1 * t470 * t1017;
5574   t1025 = t136 * t1024;
5575   t1027 = 0.15545350000000000000e-1 * t115 * t1025;
5576   t1029 = 0.3e1 / 0.10e2 * t48 * t51;
5577   t1030 = t51 * tau[1];
5578   t1032 = 0.2e1 * t1030 * t93;
5579   t1033 = t1029 - t1032;
5580   t1036 = t1029 + t1032;
5581   t1039 = t307 * t1033;
5582   t1042 = t307 * t1036;
5583   t1045 = 0.2535e1 * t1033 * t297 - 0.2535e1 * t652 * t1036 - 0.17352900000000000000e-3 * t656 * t1039 + 0.17352900000000000000e-3 * t662 * t1042;
5584   t1046 = t275 * t1045;
5585   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5586     vtau[0] = t3 * (-t1011 - t1027 + t1046);
5587 
5588   t1048 = t93 * t97;
5589   t1050 = t723 * t93;
5590   t1053 = 0.1e1 / t72 / t83;
5591   t1054 = t1053 * t97;
5592   t1055 = sigma[2] * t79;
5593   t1062 = -0.416e0 * t1048 - 0.416e0 * t1050 - 0.12280e-1 * t1054 * t1055 - 0.12280e-1 * t723 * sigma[2] * t1053 * t79;
5594   t1063 = t70 * t1062;
5595   t1064 = t18 * t1063;
5596   t1066 = 0.3e1 / 0.32e2 * t67 * t1064;
5597   t1069 = t83 * t698;
5598   t1070 = 0.1e1 / t1069;
5599   t1072 = t82 * t1070 * t184;
5600   t1079 = 0.5668e1 * t1048 + 0.5668e1 * t1050 + 0.245964e1 * t805 * t1072 + 0.571788e1 * t812 * t1072 + 0.325824e1 * t822 * t1072;
5601   t1080 = t180 * t1079;
5602   t1082 = 0.15545350000000000000e-1 * t166 * t1080;
5603   t1084 = 0.3e1 / 0.10e2 * t48 * t93;
5604   t1086 = 0.2e1 * t52 * t93;
5605   t1087 = t1084 - t1086;
5606   t1090 = t1084 + t1086;
5607   t1093 = t307 * t1087;
5608   t1096 = t307 * t1090;
5609   t1099 = 0.2535e1 * t1087 * t297 - 0.2535e1 * t652 * t1090 - 0.17352900000000000000e-3 * t656 * t1093 + 0.17352900000000000000e-3 * t662 * t1096;
5610   t1100 = t275 * t1099;
5611   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5612     vtau[1] = t3 * (-t1066 - t1082 + t1100);
5613 
5614 #ifndef XC_DONT_COMPILE_FXC
5615 
5616   if(order < 2) return;
5617 
5618 
5619   t1102 = t227 * t3;
5620   t1103 = 0.1e1 / t1102;
5621   t1104 = t2 * t1103;
5622   t1106 = 0.2e1 * t312 - 0.2e1 * t1104;
5623   t1108 = t1106 * t7 * t13;
5624   t1109 = t1108 * t104;
5625   t1110 = 0.3e1 / 0.32e2 * t1109;
5626   t1111 = -t1106;
5627   t1113 = t1111 * t7 * t13;
5628   t1114 = t1113 * t62;
5629   t1115 = 0.3e1 / 0.32e2 * t1114;
5630   t1116 = t316 * t375;
5631   t1117 = 0.3e1 / 0.16e2 * t1116;
5632   t1118 = t127 * t374;
5633   t1119 = t14 * t1118;
5634   t1120 = t1119 / 0.16e2;
5635   t1121 = t339 * t30;
5636   t1122 = t1121 * tau[0];
5637   t1126 = 0.1e1 / t24 / t34;
5638   t1127 = sigma[0] * t1126;
5639   t1128 = t1127 * t30;
5640   t1130 = tau[0] * t333;
5641   t1131 = t1130 * t55;
5642   t1133 = t53 * t148;
5643   t1134 = tau[0] * tau[0];
5644   t1135 = t1134 * t37;
5645   t1136 = t1133 * t1135;
5646   t1138 = t1133 * sigma[0];
5647   t1139 = t455 * t30;
5648   t1140 = t1139 * t1134;
5649   t1143 = t356 * t33;
5650   t1144 = t346 * t40;
5651   t1145 = t1144 * tau[0];
5652   t1150 = tau[0] * t339;
5653   t1154 = 0.1e1 / t23 / t1014;
5654   t1155 = t33 * t1154;
5655   t1156 = t1155 * t40;
5656   t1159 = t344 * t22;
5657   t1160 = 0.1e1 / t1159;
5658   t1161 = t343 * t1160;
5659   t1162 = t1161 * t349;
5660   t1165 = t356 * t1130;
5661   t1167 = t1134 * t455;
5662   t1168 = t355 * sigma[0];
5663   t1169 = t1168 * t30;
5664   t1172 = tau[0] * t346;
5665   t1173 = t55 * t33;
5666   t1174 = t1173 * t40;
5667   t1179 = t33 * t33;
5668   t1180 = t344 * t34;
5669   t1182 = 0.1e1 / t24 / t1180;
5670   t1183 = t1179 * t1182;
5671   t1184 = t39 * t39;
5672   t1185 = 0.1e1 / t1184;
5673   t1188 = t1135 * t355;
5674   t1190 = -0.16373333333333333334e0 * t364 * t1122 + 0.51157333333333333333e-1 * t1128 - 0.18488888888888888889e1 * t1131 + 0.23111111111111111111e1 * t1136 + 0.68222222222222222223e-1 * t1138 * t1140 + 0.43662222222222222224e-3 * t1143 * t1145 + 0.12007111111111111111e0 * t56 * t1128 - 0.16373333333333333334e0 * t1150 * t361 - 0.11788800000000000000e-2 * t56 * t1156 + 0.27943822222222222224e-5 * t56 * t1162 - 0.18488888888888888889e1 * t1165 + 0.68222222222222222224e-1 * t1167 * t1169 + 0.43662222222222222224e-3 * t1172 * t1174 + 0.52511288888888888890e-3 * t1156 - 0.81099662222222222226e-5 * t1162 + 0.20763989333333333335e-7 * t1183 * t1185 + 0.23111111111111111112e1 * t1188;
5675   t1191 = t21 * t1190;
5676   t1192 = t18 * t1191;
5677   t1193 = t14 * t1192;
5678   t1194 = 0.3e1 / 0.32e2 * t1193;
5679   t1195 = t380 * t383;
5680   t1196 = t1195 / 0.16e2;
5681   t1197 = t431 * t103;
5682   t1198 = t67 * t1197;
5683   t1199 = t1198 / 0.48e2;
5684   t1200 = t316 * t319;
5685   t1201 = t1200 / 0.16e2;
5686   t1202 = t431 * t61;
5687   t1203 = t14 * t1202;
5688   t1204 = t1203 / 0.48e2;
5689   t1205 = t482 * t501;
5690   t1206 = t1205 * t523;
5691   t1207 = 0.10000000000000000000e1 * t1206;
5692   t1208 = t497 * t501;
5693   t1209 = t1208 * t523;
5694   t1210 = 0.10000000000000000000e1 * t1209;
5695   t1211 = t500 * t500;
5696   t1212 = 0.1e1 / t1211;
5697   t1213 = t166 * t1212;
5698   t1214 = t520 * t520;
5699   t1215 = t179 * t179;
5700   t1216 = 0.1e1 / t1215;
5701   t1217 = t1214 * t1216;
5702   t1218 = t1217 * t202;
5703   t1219 = t1213 * t1218;
5704   t1220 = 0.16081979498692535067e2 * t1219;
5705   t1221 = t416 * t132;
5706   t1222 = 0.1e1 / t1221;
5707   t1223 = t115 * t1222;
5708   t1224 = t439 * t439;
5709   t1225 = t1224 * t440;
5710   t1226 = t1225 * t158;
5711   t1227 = t1223 * t1226;
5712   t1228 = 0.10000000000000000000e1 * t1227;
5713   t1229 = t500 * t176;
5714   t1230 = 0.1e1 / t1229;
5715   t1231 = t166 * t1230;
5716   t1232 = t1214 * t521;
5717   t1233 = t1232 * t202;
5718   t1234 = t1231 * t1233;
5719   t1235 = 0.10000000000000000000e1 * t1234;
5720   t1237 = 0.1e1 / t17 / t227;
5721   t1238 = t1237 * t15;
5722   t1240 = t108 * t1238 * t20;
5723   t1241 = 0.22831111111111111111e-1 * t1240;
5724   t1242 = t538 * t409;
5725   t1245 = 0.1e1 / t128 / t19;
5726   t1246 = t15 * t1245;
5727   t1247 = t406 * t406;
5728   t1248 = 0.1e1 / t1247;
5729   t1249 = t314 * t314;
5730   t1250 = t1248 * t1249;
5731   t1251 = t1246 * t1250;
5732   t1252 = t207 * t1251;
5733   t1254 = t406 * t6;
5734   t1255 = 0.1e1 / t1254;
5735   t1256 = t1255 * t1249;
5736   t1257 = t405 * t1256;
5737   t1258 = t207 * t1257;
5738   t1260 = t407 * t1111;
5739   t1261 = t405 * t1260;
5740   t1262 = t207 * t1261;
5741   t1264 = t1241 + 0.11415555555555555555e-1 * t1242 - 0.11415555555555555555e-1 * t1252 + 0.34246666666666666666e-1 * t1258 - 0.17123333333333333333e-1 * t1262;
5742   t1265 = t6 * t1264;
5743   t1266 = t1265 * t159;
5744   t1267 = 0.15545350000000000000e-1 * t1266;
5745   t1268 = t413 * t479;
5746   t1269 = 0.31090700000000000000e-1 * t1268;
5747   t1271 = t346 * t140 * tau[0];
5748   t1278 = t1155 * t140;
5749   t1282 = t145 * t469;
5750   t1283 = t1282 * t33;
5751   t1285 = 0.1e1 / t24 / t1159;
5752   t1286 = t1285 * t140;
5753   t1287 = t1286 * t1134;
5754   t1290 = t460 * t343;
5755   t1291 = t344 * t331;
5756   t1293 = 0.1e1 / t24 / t1291;
5757   t1295 = t1293 * t448 * tau[0];
5758   t1301 = 0.1e1 / t153 / t146;
5759   t1302 = t152 * t1301;
5760   t1303 = t1302 * t33;
5761   t1306 = t470 * t343;
5762   t1309 = 0.72405333333333333333e2 * t471 * t1271 + 0.54658666666666666666e2 * t454 * t1271 + 0.12706400000000000000e3 * t461 * t1271 - 0.25063111111111111111e1 * t1278 + 0.25191111111111111111e2 * t1131 - 0.31488888888888888889e2 * t1136 - 0.99734666666666666667e2 * t1283 * t1287 - 0.20330240000000000000e2 * t1290 * t1295 - 0.27693724444444444444e2 * t149 * t1278 - 0.45253333333333333333e2 * t1303 * t1287 - 0.11584853333333333334e2 * t1306 * t1295;
5763   t1312 = t1133 * t33;
5764   t1315 = t144 * t154;
5765   t1316 = t1315 * t33;
5766   t1319 = t453 * t343;
5767   t1322 = t1161 * t448;
5768   t1325 = t139 * t139;
5769   t1326 = 0.1e1 / t1325;
5770   t1327 = t1183 * t1326;
5771   t1338 = -0.27514026666666666667e2 * t155 * t1278 - 0.13664666666666666667e2 * t1312 * t1287 - 0.68146000000000000000e2 * t1316 * t1287 - 0.87453866666666666669e1 * t1319 * t1295 + 0.12535054222222222222e2 * t149 * t1322 - 0.13992618666666666667e1 * t149 * t1327 + 0.12453717333333333334e2 * t155 * t1322 - 0.13901824000000000000e1 * t155 * t1327 + 0.25191111111111111111e2 * t1165 + 0.11344355555555555556e1 * t1322 - 0.12663466666666666667e0 * t1327 - 0.31488888888888888890e2 * t1188;
5772   t1339 = t1309 + t1338;
5773   t1340 = t136 * t1339;
5774   t1341 = t115 * t1340;
5775   t1342 = 0.15545350000000000000e-1 * t1341;
5776   t1343 = t1106 * t165;
5777   t1344 = t1343 * t203;
5778   t1345 = 0.15545350000000000000e-1 * t1344;
5779   t1346 = t378 * t496;
5780   t1347 = t1346 * t203;
5781   t1348 = 0.31090700000000000000e-1 * t1347;
5782   t1349 = -t1110 - t1115 - t1117 - t1120 - t1194 - t1196 + t1199 - t1201 + t1204 + t1207 + t1210 + t1220 - t1228 - t1235 - t1267 - t1269 - t1342 - t1345 - t1348;
5783   t1351 = t108 * t1238 * t69;
5784   t1352 = 0.22831111111111111111e-1 * t1351;
5785   t1353 = t538 * t493;
5786   t1356 = 0.1e1 / t172 / t68;
5787   t1357 = t15 * t1356;
5788   t1358 = t490 * t490;
5789   t1359 = 0.1e1 / t1358;
5790   t1360 = t378 * t378;
5791   t1361 = t1359 * t1360;
5792   t1362 = t1357 * t1361;
5793   t1363 = t207 * t1362;
5794   t1365 = t490 * t65;
5795   t1366 = 0.1e1 / t1365;
5796   t1367 = t1366 * t1360;
5797   t1368 = t489 * t1367;
5798   t1369 = t207 * t1368;
5799   t1371 = t491 * t1106;
5800   t1372 = t489 * t1371;
5801   t1373 = t207 * t1372;
5802   t1375 = t1352 + 0.11415555555555555555e-1 * t1353 - 0.11415555555555555555e-1 * t1363 + 0.34246666666666666666e-1 * t1369 - 0.17123333333333333333e-1 * t1373;
5803   t1376 = t65 * t1375;
5804   t1377 = t1376 * t203;
5805   t1378 = 0.15545350000000000000e-1 * t1377;
5806   t1379 = t1111 * t114;
5807   t1380 = t1379 * t159;
5808   t1381 = 0.15545350000000000000e-1 * t1380;
5809   t1382 = t314 * t412;
5810   t1383 = t1382 * t159;
5811   t1384 = 0.31090700000000000000e-1 * t1383;
5812   t1385 = t395 * t479;
5813   t1386 = 0.31090700000000000000e-1 * t1385;
5814   t1387 = t395 * t417;
5815   t1388 = t1387 * t442;
5816   t1389 = 0.10000000000000000000e1 * t1388;
5817   t1391 = 0.1e1 / t116 / t112;
5818   t1392 = t421 * t421;
5819   t1395 = 0.4e1 / 0.9e1 * t1240;
5820   t1400 = t1395 + 0.2e1 / 0.9e1 * t1242 - 0.2e1 / 0.9e1 * t1252 + 0.2e1 / 0.3e1 * t1258 - t1262 / 0.3e1;
5821   t1403 = 0.68863333333333333333e0 * t1240;
5822   t1408 = 0.1e1/sqrt(t112);
5823   t1414 = 0.1e1 / t125 / t227;
5824   t1415 = t1414 * t16;
5825   t1418 = 0.17365833333333333333e0 * t124 * t1415 * t128;
5826   t1419 = t545 * t436;
5827   t1421 = t16 * t325;
5828   t1422 = t1421 * t1250;
5829   t1425 = t435 * t1256;
5830   t1428 = t435 * t1260;
5831   t1431 = -0.17648625000000000000e1 * t1391 * t1392 + 0.35297250000000000000e1 * t419 * t1400 + t1403 + 0.34431666666666666666e0 * t1242 - 0.34431666666666666667e0 * t1252 + 0.10329500000000000000e1 * t1258 - 0.51647500000000000000e0 * t1262 + 0.31558125000000000000e0 * t1408 * t1392 + 0.63116250000000000000e0 * t426 * t1400 + t1418 + 0.13892666666666666667e0 * t1419 - 0.34731666666666666667e-1 * t216 * t1422 + 0.20839000000000000000e0 * t216 * t1425 - 0.10419500000000000000e0 * t216 * t1428;
5832   t1432 = t1431 * t440;
5833   t1433 = t1432 * t158;
5834   t1434 = t418 * t1433;
5835   t1435 = 0.50000000000000000001e0 * t1434;
5836   t1437 = t387 * t127 * t391;
5837   t1438 = t1437 / 0.48e2;
5838   t1439 = t390 * t1106;
5839   t1441 = t387 * t18 * t1439;
5840   t1442 = t1441 / 0.32e2;
5841   t1443 = t1366 * t7;
5842   t1444 = t1443 * t13;
5843   t1446 = 0.1e1 / t69 / t491;
5844   t1447 = t1446 * t102;
5845   t1448 = t1447 * t1360;
5846   t1450 = t1444 * t18 * t1448;
5847   t1451 = t1450 / 0.24e2;
5848   t1452 = t416 * t416;
5849   t1453 = 0.1e1 / t1452;
5850   t1454 = t115 * t1453;
5851   t1455 = t135 * t135;
5852   t1456 = 0.1e1 / t1455;
5853   t1457 = t1224 * t1456;
5854   t1458 = t1457 * t158;
5855   t1459 = t1454 * t1458;
5856   t1460 = 0.16081979498692535067e2 * t1459;
5857   t1461 = t413 * t417;
5858   t1462 = t1461 * t442;
5859   t1463 = 0.10000000000000000000e1 * t1462;
5860   t1464 = t441 * t478;
5861   t1465 = t418 * t1464;
5862   t1466 = 0.10000000000000000000e1 * t1465;
5863   t1468 = 0.1e1 / t167 / t163;
5864   t1469 = t505 * t505;
5865   t1472 = 0.4e1 / 0.9e1 * t1351;
5866   t1477 = t1472 + 0.2e1 / 0.9e1 * t1353 - 0.2e1 / 0.9e1 * t1363 + 0.2e1 / 0.3e1 * t1369 - t1373 / 0.3e1;
5867   t1480 = 0.68863333333333333333e0 * t1351;
5868   t1485 = 0.1e1/sqrt(t163);
5869   t1492 = 0.17365833333333333333e0 * t124 * t1415 * t172;
5870   t1493 = t545 * t517;
5871   t1495 = t16 * t389;
5872   t1496 = t1495 * t1361;
5873   t1499 = t516 * t1367;
5874   t1502 = t516 * t1371;
5875   t1505 = -0.17648625000000000000e1 * t1468 * t1469 + 0.35297250000000000000e1 * t503 * t1477 + t1480 + 0.34431666666666666666e0 * t1353 - 0.34431666666666666667e0 * t1363 + 0.10329500000000000000e1 * t1369 - 0.51647500000000000000e0 * t1373 + 0.31558125000000000000e0 * t1485 * t1469 + 0.63116250000000000000e0 * t510 * t1477 + t1492 + 0.13892666666666666667e0 * t1493 - 0.34731666666666666667e-1 * t216 * t1496 + 0.20839000000000000000e0 * t216 * t1499 - 0.10419500000000000000e0 * t216 * t1502;
5876   t1506 = t1505 * t521;
5877   t1507 = t1506 * t202;
5878   t1508 = t502 * t1507;
5879   t1509 = 0.50000000000000000001e0 * t1508;
5880   t1510 = t629 * t676;
5881   t1511 = 0.2e1 * t1510;
5882   t1512 = t231 * t231;
5883   t1513 = 0.1e1 / t1512;
5884   t1518 = t233 * t233;
5885   t1519 = 0.1e1 / t1518;
5886   t1525 = (0.4e1 / 0.9e1 * t1513 * t1249 + 0.4e1 / 0.3e1 * t231 * t1111 + 0.4e1 / 0.9e1 * t1519 * t1360 + 0.4e1 / 0.3e1 * t233 * t1106) * t238;
5887   t1526 = t1525 * t266;
5888   t1540 = t586 * t586;
5889   t1541 = 0.1e1 / t1540;
5890   t1542 = t593 * t593;
5891   t1543 = t1541 * t1542;
5892   t1544 = t262 * t262;
5893   t1545 = 0.1e1 / t1544;
5894   t1546 = t1543 * t1545;
5895   t1548 = 0.17315859105681463759e2 * t608 * t1546;
5896   t1549 = t586 * t259;
5897   t1550 = 0.1e1 / t1549;
5898   t1552 = t1550 * t1542 * t594;
5899   t1554 = 0.11696447245269292414e1 * t608 * t1552;
5900   t1555 = t552 * t557;
5901   t1557 = 0.32e2 * t1555 * t267;
5902   t1558 = t558 * t566;
5903   t1560 = t565 * t598;
5904   t1561 = t230 * t1560;
5905   t1563 = t228 * t227;
5906   t1564 = 0.1e1 / t1563;
5907   t1565 = t226 * t1564;
5908   t1567 = 0.20e2 * t1565 * t267;
5909   t1568 = t225 * t229;
5910   t1570 = 0.12e2 * t1568 * t267;
5911   t1571 = t1230 * t1214;
5912   t1572 = t1571 * t521;
5913   t1575 = t12 * t1237;
5914   t1578 = 0.14764627977777777777e-2 * t107 * t1575 * t222;
5915   t1579 = t1222 * t1224;
5916   t1580 = t1579 * t440;
5917   t1583 = t1453 * t1224;
5918   t1584 = t1583 * t1456;
5919   t1589 = t230 * t1526 + 0.15545350000000000000e-1 * t1343 * t180 + 0.31090700000000000000e-1 * t1346 * t180 + 0.15545350000000000000e-1 * t1376 * t180 + 0.15545350000000000000e-1 * t1379 * t136 + 0.31090700000000000000e-1 * t1382 * t136 + 0.15545350000000000000e-1 * t1265 * t136 - t1548 + t1554 - t1557 - 0.8e1 * t1558 + 0.2e1 * t1561 + t1567 + t1570 + 0.10000000000000000000e1 * t166 * t1572 - t1578 + 0.10000000000000000000e1 * t115 * t1580 - 0.16081979498692535067e2 * t115 * t1584 - 0.10000000000000000000e1 * t482 * t626;
5920   t1592 = t501 * t1505;
5921   t1593 = t1592 * t521;
5922   t1596 = t1212 * t1214;
5923   t1597 = t1596 * t1216;
5924   t1604 = t417 * t1431;
5925   t1605 = t1604 * t440;
5926   t1611 = t399 * t572;
5927   t1615 = t571 * t246;
5928   t1616 = 0.1e1 / t1615;
5929   t1617 = t241 * t1616;
5930   t1618 = t578 * t578;
5931   t1619 = t1618 * t579;
5932   t1624 = 0.1e1 / t210 / t207 * t121;
5933   t1625 = t122 * t11;
5934   t1626 = t1625 * t1414;
5935   t1627 = t1624 * t1626;
5936   t1629 = t13 * t1237;
5937   t1630 = t534 * t1629;
5938   t1632 = t107 * t1575;
5939   t1634 = 0.1e1/sqrt(t207);
5940   t1635 = t1634 * t121;
5941   t1636 = t1635 * t1626;
5942   t1638 = t541 * t1629;
5943   t1641 = t123 * t11 * t1414;
5944   t1643 = -0.78438333333333333333e0 * t1627 + 0.15687666666666666667e1 * t1630 + 0.68863333333333333333e0 * t1632 + 0.14025833333333333333e0 * t1636 + 0.28051666666666666667e0 * t1638 + 0.17365833333333333333e0 * t1641;
5945   t1644 = t1643 * t579;
5946   t1647 = t571 * t571;
5947   t1648 = 0.1e1 / t1647;
5948   t1649 = t241 * t1648;
5949   t1650 = t249 * t249;
5950   t1651 = 0.1e1 / t1650;
5951   t1652 = t1618 * t1651;
5952   t1655 = t399 * t531;
5953   t1658 = 0.35616666666666666666e-1 * t108 * t1655 * t549;
5954   t1659 = t530 * t218;
5955   t1660 = 0.1e1 / t1659;
5956   t1661 = t209 * t1660;
5957   t1662 = t547 * t547;
5958   t1663 = t1662 * t548;
5959   t1665 = 0.20000000000000000000e1 * t1661 * t1663;
5960   t1672 = -0.42198333333333333333e0 * t1627 + 0.84396666666666666666e0 * t1630 + 0.39862222222222222223e0 * t1632 + 0.68258333333333333333e-1 * t1636 + 0.13651666666666666667e0 * t1638 + 0.13692777777777777778e0 * t1641;
5961   t1673 = t1672 * t548;
5962   t1675 = 0.10000000000000000000e1 * t532 * t1673;
5963   t1676 = t530 * t530;
5964   t1677 = 0.1e1 / t1676;
5965   t1678 = t209 * t1677;
5966   t1679 = t221 * t221;
5967   t1680 = 0.1e1 / t1679;
5968   t1681 = t1662 * t1680;
5969   t1683 = 0.16081979498692535067e2 * t1678 * t1681;
5970   t1687 = t399 * t587;
5971   t1691 = t254 * t1550;
5972   t1692 = t1542 * t594;
5973   t1701 = -0.57538888888888888889e0 * t1627 + 0.11507777777777777778e1 * t1630 + 0.40256666666666666667e0 * t1632 + 0.36677500000000000000e-1 * t1636 + 0.73355000000000000000e-1 * t1638 + 0.13797500000000000000e0 * t1641;
5974   t1702 = t1701 * t594;
5975   t1705 = t254 * t1541;
5976   t1706 = t1542 * t1545;
5977   t1709 = -0.70983522622222222221e-3 * t107 * t1575 * t250 - 0.34246666666666666666e-1 * t108 * t1611 * t580 - 0.20000000000000000000e1 * t1617 * t1619 + 0.10000000000000000000e1 * t573 * t1644 + 0.32163958997385070134e2 * t1649 * t1652 + t1578 + t1658 + t1665 - t1675 - t1683 - 0.24415263074675393405e-3 * t107 * t1575 * t263 - 0.10843581300301739842e-1 * t108 * t1687 * t595 - 0.11696447245269292414e1 * t1691 * t1692 + 0.58482236226346462070e0 * t588 * t1702 + 0.17315859105681463759e2 * t1705 * t1706;
5978   t1710 = t239 * t1709;
5979   t1711 = t230 * t1710;
5980   t1715 = 0.8e1 * t558 * t599;
5981   t1716 = t553 * t566;
5982   t1719 = 0.8e1 * t553 * t599;
5983   t1721 = t13 * t1237 * t263;
5984   t1723 = 0.24415263074675393405e-3 * t603 * t1721;
5985   t1724 = t565 * t7;
5986   t1725 = t1724 * t605;
5987   t1728 = t587 * t1701 * t594;
5988   t1730 = 0.58482236226346462070e0 * t608 * t1728;
5989   t1731 = t565 * t254;
5990   t1732 = t1731 * t610;
5991   t1734 = t239 * t107;
5992   t1735 = t526 * t610;
5993   t1737 = 0.10843581300301739842e-1 * t1734 * t1735;
5994   t1738 = -0.10000000000000000000e1 * t497 * t626 - 0.50000000000000000001e0 * t166 * t1593 - 0.16081979498692535067e2 * t166 * t1597 - 0.10000000000000000000e1 * t395 * t618 - 0.10000000000000000000e1 * t413 * t618 - 0.50000000000000000001e0 * t115 * t1605 + t1711 + 0.19751673498613801407e-1 * t1525 * t264 - t1665 + t1675 + t1683 - t1715 + 0.8e1 * t1716 + t1719 - t1658 + t1723 - 0.36622894612013090108e-3 * t1725 - t1730 - 0.11696447245269292414e1 * t1732 + t1737;
5995   t1739 = t1589 + t1738;
5996   t1740 = t1739 * t310;
5997   t1742 = t323 * t127 * t327;
5998   t1743 = t1742 / 0.48e2;
5999   t1744 = t325 * t373;
6000   t1745 = t1744 * t314;
6001   t1747 = t323 * t18 * t1745;
6002   t1748 = t1747 / 0.16e2;
6003   t1749 = t326 * t1111;
6004   t1751 = t323 * t18 * t1749;
6005   t1752 = t1751 / 0.32e2;
6006   t1753 = t1255 * t7;
6007   t1754 = t1753 * t13;
6008   t1756 = 0.1e1 / t20 / t407;
6009   t1757 = t1756 * t60;
6010   t1758 = t1757 * t1249;
6011   t1760 = t1754 * t18 * t1758;
6012   t1761 = t1760 / 0.24e2;
6013   t1764 = t295 * t304;
6014   t1765 = t653 * t653;
6015   t1768 = t667 * t1126;
6016   t1771 = t672 * t1126;
6017   t1774 = t300 * t661;
6018   t1775 = t1774 * t283;
6019   t1776 = t306 * t648;
6020   t1777 = t1776 * t653;
6021   t1780 = t287 * t33;
6022   t1784 = t640 * t33;
6023   t1785 = t1784 * t1154;
6024   t1794 = t276 * t287;
6025   t1797 = t283 * t640;
6026   t1801 = 0.1e1 / t639 / t279;
6027   t1802 = t284 * t1801;
6028   t1805 = 0.46141333333333333333e-1 * t1127 * t280 + 0.5070e1 * t1764 * t1765 - 0.11311520000000000000e-2 * t666 * t1768 + 0.33934560000000000000e-5 * t671 * t1771 + 0.10411740000000000000e-2 * t1775 * t1777 + 0.98718720000000000000e-5 * t666 * t1780 * t1154 - 0.22211712000000000000e-7 * t671 * t1785 - 0.13842400000000000000e-3 * t633 * t1127 - 0.49880160000000000000e-5 * t636 * t1127 + 0.14964048000000000000e-7 * t641 * t1127 - 0.66512640000000000000e-5 * t1794 * t1155 + 0.65297664000000000000e-7 * t1797 * t1155 - 0.13059532800000000000e-9 * t1802 * t1155;
6029   t1806 = t648 * t648;
6030   t1811 = 0.1e1 / t660 / t296;
6031   t1812 = t301 * t1811;
6032   t1817 = 0.4e1 / 0.3e1 * t48 * t1130;
6033   t1819 = 0.80e2 / 0.9e1 * t1130 * t94;
6034   t1820 = t1817 + t1819;
6035   t1824 = t1155 * t306;
6036   t1827 = t1817 - t1819;
6037   t1828 = t307 * t1827;
6038   t1836 = t648 * t651;
6039   t1839 = t662 * t276;
6040   t1840 = t306 * t653;
6041   t1844 = t662 * t283;
6042   t1845 = t287 * t653;
6043   t1846 = t1845 * t334;
6044   t1849 = t656 * t276;
6045   t1853 = t656 * t283;
6046   t1854 = t287 * t648;
6047   t1855 = t1854 * t334;
6048   t1858 = -0.34705800000000000000e-3 * t1764 * t307 * t1806 - 0.69411600000000000000e-3 * t1812 * t307 * t1765 + 0.17352900000000000000e-3 * t662 * t307 * t1820 - 0.82265600000000000000e-3 * t305 * t1824 - 0.17352900000000000000e-3 * t656 * t1828 + 0.2535e1 * t1827 * t297 - 0.2535e1 * t652 * t1820 - 0.20134400000000000000e-3 * t1824 - 0.5070e1 * t1836 * t653 - 0.18509760000000000000e-2 * t1839 * t1840 * t334 + 0.55529280000000000000e-5 * t1844 * t1846 + 0.18509760000000000000e-2 * t1849 * t1776 * t334 - 0.55529280000000000000e-5 * t1853 * t1855;
6049   t1859 = t1805 + t1858;
6050   t1860 = t275 * t1859;
6051   t1861 = -t1378 - t1381 - t1384 - t1386 + t1389 + t1435 - t1438 - t1442 - t1451 + t1460 + t1463 + t1466 + t1509 + t1511 + t1740 - t1743 - t1748 - t1752 - t1761 + t1860;
6052   t1868 = t320 / 0.16e2;
6053   t1870 = t384 / 0.16e2;
6054   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6055     v2rho2[0] = t3 * (t1349 + t1861) + 0.2e1 * t677 + 0.2e1 * t630 + 0.10000000000000000000e1 * t524 + 0.10000000000000000000e1 * t443 - t1868 - t329 / 0.16e2 - t1870 - t393 / 0.16e2 - 0.31090700000000000000e-1 * t396 - 0.31090700000000000000e-1 * t414 - 0.31090700000000000000e-1 * t480 - 0.31090700000000000000e-1 * t483 - 0.31090700000000000000e-1 * t498 - 0.3e1 / 0.16e2 * t317 - 0.3e1 / 0.16e2 * t376 - 0.3e1 / 0.16e2 * t381;
6056 
6057   t1880 = t127 * t741;
6058   t1881 = t67 * t1880;
6059   t1883 = t682 * t319;
6060   t1885 = t691 * t383;
6061   t1888 = t2 * t1414 * t107;
6062   t1889 = t12 * t16;
6063   t1890 = t1889 * t103;
6064   t1891 = t1888 * t1890;
6065   t1893 = t380 * t742;
6066   t1895 = t682 * t375;
6067   t1897 = t1889 * t61;
6068   t1898 = t1888 * t1897;
6069   t1909 = -t1548 + t1554 - 0.4e1 * t1558 + t1561 + t1567 - t1570 - t1578 + t1711 - 0.50000000000000000001e0 * t745 * t618 - 0.50000000000000000001e0 * t753 * t618 - 0.50000000000000000001e0 * t395 * t848 - 0.50000000000000000001e0 * t413 * t848;
6070   t1910 = t1391 * t757;
6071   t1914 = t538 * t749;
6072   t1916 = t1248 * t680;
6073   t1917 = t1916 * t314;
6074   t1918 = t1246 * t1917;
6075   t1919 = t207 * t1918;
6076   t1921 = t1255 * t680;
6077   t1922 = t1921 * t314;
6078   t1923 = t405 * t1922;
6079   t1924 = t207 * t1923;
6080   t1927 = 0.1e1 / t17 / t1102;
6081   t1928 = t12 * t1927;
6082   t1929 = t107 * t1928;
6083   t1930 = t407 * t2;
6084   t1931 = t405 * t1930;
6085   t1932 = t1929 * t1931;
6086   t1934 = t1395 + t1242 / 0.9e1 + t1914 / 0.9e1 - 0.2e1 / 0.9e1 * t1919 + 0.2e1 / 0.3e1 * t1924 - 0.2e1 / 0.3e1 * t1932;
6087   t1942 = t1408 * t757;
6088   t1948 = t545 * t763;
6089   t1950 = t1421 * t1917;
6090   t1953 = t435 * t1922;
6091   t1957 = 0.1e1 / t125 / t1102;
6092   t1958 = t11 * t1957;
6093   t1959 = t123 * t1958;
6094   t1960 = t435 * t1930;
6095   t1963 = -0.17648625000000000000e1 * t1910 * t421 + 0.35297250000000000000e1 * t419 * t1934 + t1403 + 0.17215833333333333333e0 * t1242 + 0.17215833333333333333e0 * t1914 - 0.34431666666666666667e0 * t1919 + 0.10329500000000000000e1 * t1924 - 0.10329500000000000000e1 * t1932 + 0.31558125000000000000e0 * t1942 * t421 + 0.63116250000000000000e0 * t426 * t1934 + t1418 + 0.69463333333333333333e-1 * t1419 + 0.69463333333333333333e-1 * t1948 - 0.34731666666666666667e-1 * t216 * t1950 + 0.20839000000000000000e0 * t216 * t1953 - 0.20839000000000000000e0 * t1959 * t1960;
6096   t1964 = t417 * t1963;
6097   t1965 = t1964 * t440;
6098   t1976 = t553 * t839;
6099   t1978 = t558 * t839;
6100   t1980 = t1513 * t680;
6101   t1983 = t231 * t2;
6102   t1986 = t1519 * t689;
6103   t1989 = t233 * t2;
6104   t1993 = (0.4e1 / 0.9e1 * t1980 * t314 + 0.8e1 / 0.3e1 * t1983 * t1103 + 0.4e1 / 0.9e1 * t1986 * t378 - 0.8e1 / 0.3e1 * t1989 * t1103) * t238;
6105   t1994 = t1993 * t266;
6106   t1996 = t838 * t598;
6107   t1997 = t230 * t1996;
6108   t1998 = -0.50000000000000000001e0 * t115 * t1965 - 0.50000000000000000001e0 * t771 * t626 - 0.50000000000000000001e0 * t779 * t626 - 0.50000000000000000001e0 * t482 * t856 - 0.50000000000000000001e0 * t497 * t856 + 0.4e1 * t1976 - 0.4e1 * t1978 + t230 * t1994 + t1997 - t1665 + t1675 + t1683;
6109   t2001 = t766 * t1456;
6110   t2002 = t2001 * t439;
6111   t2005 = t838 * t254;
6112   t2006 = t2005 * t610;
6113   t2009 = t792 * t1216;
6114   t2010 = t2009 * t520;
6115   t2013 = t767 * t439;
6116   t2016 = t793 * t520;
6117   t2020 = -t1715 - 0.4e1 * t1716 - 0.16081979498692535067e2 * t1454 * t2002 - 0.58482236226346462070e0 * t2006 - t1658 + t1723 - 0.18311447306006545054e-3 * t1725 - 0.16081979498692535067e2 * t1213 * t2010 + 0.10000000000000000000e1 * t1223 * t2013 + 0.10000000000000000000e1 * t1231 * t2016 - t1730 - 0.58482236226346462070e0 * t1732;
6118   t2021 = t838 * t7;
6119   t2022 = t2021 * t605;
6120   t2024 = t689 * t496;
6121   t2027 = t378 * t778;
6122   t2031 = t538 * t775;
6123   t2033 = t1359 * t689;
6124   t2034 = t2033 * t378;
6125   t2035 = t1357 * t2034;
6126   t2036 = t207 * t2035;
6127   t2038 = t1366 * t689;
6128   t2039 = t2038 * t378;
6129   t2040 = t489 * t2039;
6130   t2041 = t207 * t2040;
6131   t2043 = t491 * t2;
6132   t2044 = t489 * t2043;
6133   t2045 = t1929 * t2044;
6134   t2047 = t1352 + 0.57077777777777777777e-2 * t1353 + 0.57077777777777777777e-2 * t2031 - 0.11415555555555555555e-1 * t2036 + 0.34246666666666666666e-1 * t2041 + 0.34246666666666666666e-1 * t2045;
6135   t2048 = t65 * t2047;
6136   t2051 = t680 * t412;
6137   t2054 = t314 * t752;
6138   t2062 = t1241 + 0.57077777777777777777e-2 * t1242 + 0.57077777777777777777e-2 * t1914 - 0.11415555555555555555e-1 * t1919 + 0.34246666666666666666e-1 * t1924 - 0.34246666666666666666e-1 * t1932;
6139   t2063 = t6 * t2062;
6140   t2066 = t1468 * t783;
6141   t2074 = t1472 + t1353 / 0.9e1 + t2031 / 0.9e1 - 0.2e1 / 0.9e1 * t2036 + 0.2e1 / 0.3e1 * t2041 + 0.2e1 / 0.3e1 * t2045;
6142   t2082 = t1485 * t783;
6143   t2088 = t545 * t789;
6144   t2090 = t1495 * t2034;
6145   t2093 = t516 * t2039;
6146   t2096 = t516 * t2043;
6147   t2099 = -0.17648625000000000000e1 * t2066 * t505 + 0.35297250000000000000e1 * t503 * t2074 + t1480 + 0.17215833333333333333e0 * t1353 + 0.17215833333333333333e0 * t2031 - 0.34431666666666666667e0 * t2036 + 0.10329500000000000000e1 * t2041 + 0.10329500000000000000e1 * t2045 + 0.31558125000000000000e0 * t2082 * t505 + 0.63116250000000000000e0 * t510 * t2074 + t1492 + 0.69463333333333333333e-1 * t1493 + 0.69463333333333333333e-1 * t2088 - 0.34731666666666666667e-1 * t216 * t2090 + 0.20839000000000000000e0 * t216 * t2093 + 0.20839000000000000000e0 * t1959 * t2096;
6148   t2100 = t501 * t2099;
6149   t2101 = t2100 * t521;
6150   t2104 = t114 * t136;
6151   t2107 = t165 * t180;
6152   t2112 = -0.18311447306006545054e-3 * t2022 + 0.15545350000000000000e-1 * t2024 * t180 + 0.15545350000000000000e-1 * t2027 * t180 + 0.15545350000000000000e-1 * t2048 * t180 + 0.15545350000000000000e-1 * t2051 * t136 + 0.15545350000000000000e-1 * t2054 * t136 + 0.15545350000000000000e-1 * t2063 * t136 - 0.50000000000000000001e0 * t166 * t2101 + 0.31090700000000000000e-1 * t1104 * t2104 - 0.31090700000000000000e-1 * t1104 * t2107 + 0.19751673498613801407e-1 * t1993 * t264 + t1737;
6153   t2114 = t1909 + t1998 + t2020 + t2112;
6154   t2115 = t2114 * t310;
6155   t2116 = t629 * t893;
6156   t2120 = -t1881 / 0.32e2 - t1883 / 0.32e2 - t1885 / 0.32e2 + 0.3e1 / 0.16e2 * t1891 - 0.3e1 / 0.32e2 * t1893 - 0.3e1 / 0.32e2 * t1895 - 0.3e1 / 0.16e2 * t1898 + t2115 + t2116 - t1119 / 0.32e2 - t1195 / 0.32e2 + t1199 - t1200 / 0.32e2;
6157   t2121 = t873 * t651;
6158   t2126 = t656 * t307;
6159   t2127 = t352 * t719;
6160   t2130 = t662 * t307;
6161   t2133 = t305 * t1794;
6162   t2134 = t701 * t334;
6163   t2137 = t305 * t1797;
6164   t2140 = t1797 * sigma[2];
6165   t2141 = t700 * sigma[0];
6166   t2142 = t2141 * t333;
6167   t2145 = t1802 * sigma[2];
6168   t2148 = t652 * tau[0];
6169   t2149 = t26 * tau[1];
6170   t2150 = t2149 * t75;
6171   t2153 = t1764 * t283;
6172   t2154 = t306 * t873;
6173   t2155 = t2154 * t648;
6174   t2158 = t2154 * t653;
6175   t2161 = t306 * t876;
6176   t2162 = t2161 * t648;
6177   t2165 = t1812 * t283;
6178   t2166 = t2161 * t653;
6179   t2169 = -0.2535e1 * t2121 * t653 - 0.2535e1 * t1836 * t876 + 0.96405000000000000000e-3 * t2126 * t2127 + 0.96405000000000000000e-3 * t2130 * t2127 + 0.98718720000000000000e-5 * t2133 * t2134 - 0.22211712000000000000e-7 * t2137 * t2134 + 0.65297664000000000000e-7 * t2140 * t2142 - 0.13059532800000000000e-9 * t2145 * t2142 - 0.14083333333333333333e2 * t2148 * t2150 - 0.34705800000000000000e-3 * t2153 * t2155 + 0.52058700000000000000e-3 * t1775 * t2158 + 0.52058700000000000000e-3 * t1775 * t2162 - 0.69411600000000000000e-3 * t2165 * t2166;
6180   t2170 = t1794 * sigma[2];
6181   t2173 = t2154 * t334;
6182   t2176 = t287 * t873;
6183   t2177 = t2176 * t334;
6184   t2183 = t287 * t876;
6185   t2184 = t2183 * t334;
6186   t2187 = t700 * t648;
6187   t2188 = t885 * t2187;
6188   t2191 = t700 * t653;
6189   t2192 = t885 * t2191;
6190   t2195 = t305 * sigma[0];
6191   t2196 = t333 * t306;
6192   t2197 = t2196 * t701;
6193   t2200 = t889 * t2187;
6194   t2203 = t889 * t2191;
6195   t2208 = t719 * t297;
6196   t2211 = t876 * t653;
6197   t2214 = -0.66512640000000000000e-5 * t2170 * t2142 + 0.92548800000000000000e-3 * t1849 * t2173 - 0.27764640000000000000e-5 * t1853 * t2177 - 0.92548800000000000000e-3 * t1839 * t2161 * t334 + 0.27764640000000000000e-5 * t1844 * t2184 + 0.92548800000000000000e-3 * t1849 * t2188 - 0.92548800000000000000e-3 * t1839 * t2192 - 0.82265600000000000000e-3 * t2195 * t2197 - 0.27764640000000000000e-5 * t1853 * t2200 + 0.27764640000000000000e-5 * t1844 * t2203 - 0.20134400000000000000e-3 * t701 * t668 - 0.14083333333333333333e2 * t352 * t2208 + 0.5070e1 * t1764 * t2211;
6198   t2215 = t2169 + t2214;
6199   t2216 = t275 * t2215;
6200   t2217 = t158 * t439;
6201   t2218 = t2001 * t2217;
6202   t2219 = t1454 * t2218;
6203   t2221 = t767 * t2217;
6204   t2222 = t1223 * t2221;
6205   t2224 = t202 * t520;
6206   t2225 = t793 * t2224;
6207   t2226 = t1231 * t2225;
6208   t2228 = t2009 * t2224;
6209   t2229 = t1213 * t2228;
6210   t2231 = t390 * t2;
6211   t2233 = t387 * t1415 * t2231;
6212   t2235 = t389 * t740;
6213   t2236 = t2235 * t378;
6214   t2238 = t387 * t18 * t2236;
6215   t2240 = t1744 * t680;
6216   t2242 = t323 * t18 * t2240;
6217   t2244 = t326 * t2;
6218   t2246 = t323 * t1415 * t2244;
6219   t2248 = t13 * t16;
6220   t2249 = t1443 * t2248;
6221   t2250 = t17 * t1446;
6222   t2251 = t102 * t689;
6223   t2252 = t2251 * t378;
6224   t2254 = t2249 * t2250 * t2252;
6225   t2256 = t1753 * t2248;
6226   t2257 = t17 * t1756;
6227   t2258 = t60 * t680;
6228   t2259 = t2258 * t314;
6229   t2261 = t2256 * t2257 * t2259;
6230   t2263 = t859 * t676;
6231   t2264 = t745 * t417;
6232   t2265 = t2264 * t442;
6233   t2267 = t1204 + t2216 + 0.16081979498692535067e2 * t2219 - 0.10000000000000000000e1 * t2222 - 0.10000000000000000000e1 * t2226 + 0.16081979498692535067e2 * t2229 + t2233 / 0.16e2 - t2238 / 0.32e2 - t2242 / 0.32e2 - t2246 / 0.16e2 - t2254 / 0.24e2 - t2261 / 0.24e2 + t2263 + 0.50000000000000000001e0 * t2265;
6234   t2269 = t771 * t501;
6235   t2270 = t2269 * t523;
6236   t2272 = t779 * t501;
6237   t2273 = t2272 * t523;
6238   t2275 = t522 * t830;
6239   t2276 = t502 * t2275;
6240   t2278 = t2099 * t521;
6241   t2279 = t2278 * t202;
6242   t2280 = t502 * t2279;
6243   t2282 = t1205 * t794;
6244   t2284 = t1461 * t768;
6245   t2286 = t2024 * t203;
6246   t2288 = t2027 * t203;
6247   t2290 = t2048 * t203;
6248   t2292 = t482 * t831;
6249   t2294 = t497 * t831;
6250   t2296 = t2051 * t159;
6251   t2298 = t745 * t479;
6252   t2300 = 0.50000000000000000001e0 * t2270 + 0.50000000000000000001e0 * t2273 + 0.50000000000000000001e0 * t2276 + 0.50000000000000000001e0 * t2280 + 0.50000000000000000001e0 * t2282 + 0.50000000000000000001e0 * t2284 - 0.15545350000000000000e-1 * t2286 - 0.15545350000000000000e-1 * t2288 - 0.15545350000000000000e-1 * t2290 - 0.15545350000000000000e-1 * t2292 - 0.15545350000000000000e-1 * t2294 - 0.15545350000000000000e-1 * t2296 - 0.15545350000000000000e-1 * t2298;
6253   t2301 = t2054 * t159;
6254   t2303 = t2063 * t159;
6255   t2305 = t753 * t479;
6256   t2308 = t767 * t478;
6257   t2309 = t418 * t2308;
6258   t2311 = t1963 * t440;
6259   t2312 = t2311 * t158;
6260   t2313 = t418 * t2312;
6261   t2315 = t753 * t417;
6262   t2316 = t2315 * t442;
6263   t2318 = t1387 * t768;
6264   t2320 = t1208 * t794;
6265   t2322 = t2104 * t158;
6266   t2323 = t1104 * t2322;
6267   t2325 = t2107 * t202;
6268   t2326 = t1104 * t2325;
6269   t2329 = t387 * t127 * t694;
6270   t2332 = t323 * t127 * t685;
6271   t2335 = -0.15545350000000000000e-1 * t2301 - 0.15545350000000000000e-1 * t2303 - 0.15545350000000000000e-1 * t2305 - t1437 / 0.96e2 + 0.50000000000000000001e0 * t2309 + 0.50000000000000000001e0 * t2313 + 0.50000000000000000001e0 * t2316 + 0.50000000000000000001e0 * t2318 + 0.50000000000000000001e0 * t2320 - 0.31090700000000000000e-1 * t2323 + 0.31090700000000000000e-1 * t2326 - t2329 / 0.96e2 - t2332 / 0.96e2 - t1742 / 0.96e2;
6272   t2339 = t3 * (t2120 + t2267 + t2300 + t2335) + t630 + t796 + t525 + t444 + t770 - t397 - t415 - t481 - t484 - t499 + t894 - t747 - t755 - t773;
6273   t2340 = -t781 - t833 - t688 - t697 - t330 - t394 + t860 + t677 - t684 - t693 - t744 - t318 - t1868 - t377 - t382 - t1870;
6274   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6275     v2rho2[1] = t2339 + t2340;
6276 
6277   t2341 = tau[1] * t706;
6278   t2344 = t95 * t192;
6279   t2345 = t2344 * sigma[2];
6280   t2346 = t807 * t79;
6281   t2347 = tau[1] * tau[1];
6282   t2348 = t2346 * t2347;
6283   t2351 = t723 * t82;
6284   t2352 = t713 * t89;
6285   t2353 = t2352 * tau[1];
6286   t2357 = 0.1e1 / t73 / t83;
6287   t2358 = sigma[2] * t2357;
6288   t2359 = t2358 * t79;
6289   t2363 = tau[1] * t700;
6290   t2364 = t2363 * t97;
6291   t2366 = t2347 * t86;
6292   t2367 = t2344 * t2366;
6293   t2369 = t723 * t2363;
6294   t2371 = t2347 * t807;
6295   t2372 = t722 * sigma[2];
6296   t2373 = t2372 * t79;
6297   t2376 = tau[1] * t713;
6298   t2377 = t97 * t82;
6299   t2378 = t2377 * t89;
6300   t2382 = 0.1e1 / t72 / t1069;
6301   t2383 = t82 * t2382;
6302   t2384 = t2383 * t89;
6303   t2387 = t711 * t71;
6304   t2388 = 0.1e1 / t2387;
6305   t2389 = t710 * t2388;
6306   t2390 = t2389 * t716;
6307   t2395 = t82 * t82;
6308   t2396 = t711 * t83;
6309   t2398 = 0.1e1 / t73 / t2396;
6310   t2399 = t2395 * t2398;
6311   t2400 = t88 * t88;
6312   t2401 = 0.1e1 / t2400;
6313   t2404 = t2366 * t722;
6314   t2406 = t706 * t79;
6315   t2407 = t2406 * tau[1];
6316   t2410 = -0.16373333333333333334e0 * t2341 * t728 + 0.68222222222222222223e-1 * t2345 * t2348 + 0.43662222222222222224e-3 * t2351 * t2353 + 0.12007111111111111111e0 * t98 * t2359 + 0.51157333333333333333e-1 * t2359 - 0.18488888888888888889e1 * t2364 + 0.23111111111111111111e1 * t2367 - 0.18488888888888888889e1 * t2369 + 0.68222222222222222224e-1 * t2371 * t2373 + 0.43662222222222222224e-3 * t2376 * t2378 - 0.11788800000000000000e-2 * t98 * t2384 + 0.27943822222222222224e-5 * t98 * t2390 + 0.52511288888888888890e-3 * t2384 - 0.81099662222222222226e-5 * t2390 + 0.20763989333333333335e-7 * t2399 * t2401 + 0.23111111111111111112e1 * t2404 - 0.16373333333333333334e0 * t731 * t2407;
6317   t2411 = t70 * t2410;
6318   t2412 = t18 * t2411;
6319   t2413 = t67 * t2412;
6320   t2414 = 0.3e1 / 0.32e2 * t2413;
6321   t2416 = 0.2e1 * t312 + 0.2e1 * t1104;
6322   t2418 = t2416 * t7 * t13;
6323   t2419 = t2418 * t62;
6324   t2420 = 0.3e1 / 0.32e2 * t2419;
6325   t2421 = -t2416;
6326   t2423 = t2421 * t7 * t13;
6327   t2424 = t2423 * t104;
6328   t2425 = 0.3e1 / 0.32e2 * t2424;
6329   t2426 = t691 * t742;
6330   t2427 = 0.3e1 / 0.16e2 * t2426;
6331   t2428 = t1881 / 0.16e2;
6332   t2429 = t1883 / 0.16e2;
6333   t2430 = t1885 / 0.16e2;
6334   t2432 = t713 * t184 * tau[1];
6335   t2439 = t2383 * t184;
6336   t2442 = t2344 * t82;
6337   t2444 = 0.1e1 / t73 / t2387;
6338   t2445 = t2444 * t184;
6339   t2446 = t2445 * t2347;
6340   t2449 = t188 * t198;
6341   t2450 = t2449 * t82;
6342   t2453 = t805 * t710;
6343   t2454 = t711 * t698;
6344   t2456 = 0.1e1 / t73 / t2454;
6345   t2458 = t2456 * t800 * tau[1];
6346   t2461 = t189 * t821;
6347   t2462 = t2461 * t82;
6348   t2465 = t812 * t710;
6349   t2471 = 0.1e1 / t197 / t190;
6350   t2472 = t196 * t2471;
6351   t2473 = t2472 * t82;
6352   t2476 = 0.54658666666666666666e2 * t806 * t2432 + 0.12706400000000000000e3 * t813 * t2432 + 0.72405333333333333333e2 * t823 * t2432 - 0.27514026666666666667e2 * t199 * t2439 - 0.13664666666666666667e2 * t2442 * t2446 - 0.68146000000000000000e2 * t2450 * t2446 - 0.87453866666666666669e1 * t2453 * t2458 - 0.99734666666666666667e2 * t2462 * t2446 - 0.20330240000000000000e2 * t2465 * t2458 - 0.27693724444444444444e2 * t193 * t2439 - 0.45253333333333333333e2 * t2473 * t2446;
6353   t2477 = t822 * t710;
6354   t2483 = t2389 * t800;
6355   t2486 = t183 * t183;
6356   t2487 = 0.1e1 / t2486;
6357   t2488 = t2399 * t2487;
6358   t2499 = -0.11584853333333333334e2 * t2477 * t2458 - 0.25063111111111111111e1 * t2439 + 0.25191111111111111111e2 * t2364 - 0.31488888888888888889e2 * t2367 + 0.12535054222222222222e2 * t193 * t2483 - 0.13992618666666666667e1 * t193 * t2488 + 0.12453717333333333334e2 * t199 * t2483 - 0.13901824000000000000e1 * t199 * t2488 + 0.25191111111111111111e2 * t2369 + 0.11344355555555555556e1 * t2483 - 0.12663466666666666667e0 * t2488 - 0.31488888888888888890e2 * t2404;
6359   t2500 = t2476 + t2499;
6360   t2501 = t180 * t2500;
6361   t2502 = t166 * t2501;
6362   t2503 = 0.15545350000000000000e-1 * t2502;
6363   t2504 = t2416 * t114;
6364   t2505 = t2504 * t159;
6365   t2506 = 0.15545350000000000000e-1 * t2505;
6366   t2507 = t680 * t752;
6367   t2508 = t2507 * t159;
6368   t2509 = 0.31090700000000000000e-1 * t2508;
6369   t2511 = t680 * t680;
6370   t2512 = t1248 * t2511;
6371   t2513 = t1246 * t2512;
6372   t2514 = t207 * t2513;
6373   t2516 = t1255 * t2511;
6374   t2517 = t405 * t2516;
6375   t2518 = t207 * t2517;
6376   t2520 = t407 * t2416;
6377   t2521 = t405 * t2520;
6378   t2522 = t207 * t2521;
6379   t2524 = t1241 + 0.11415555555555555555e-1 * t1914 - 0.11415555555555555555e-1 * t2514 + 0.34246666666666666666e-1 * t2518 - 0.17123333333333333333e-1 * t2522;
6380   t2525 = t6 * t2524;
6381   t2526 = t2525 * t159;
6382   t2527 = 0.15545350000000000000e-1 * t2526;
6383   t2528 = t2421 * t165;
6384   t2529 = t2528 * t203;
6385   t2530 = 0.15545350000000000000e-1 * t2529;
6386   t2531 = t689 * t778;
6387   t2532 = t2531 * t203;
6388   t2533 = 0.31090700000000000000e-1 * t2532;
6389   t2534 = t771 * t831;
6390   t2535 = 0.31090700000000000000e-1 * t2534;
6391   t2537 = t689 * t689;
6392   t2538 = t1359 * t2537;
6393   t2539 = t1357 * t2538;
6394   t2540 = t207 * t2539;
6395   t2542 = t1366 * t2537;
6396   t2543 = t489 * t2542;
6397   t2544 = t207 * t2543;
6398   t2546 = t491 * t2421;
6399   t2547 = t489 * t2546;
6400   t2548 = t207 * t2547;
6401   t2550 = t1352 + 0.11415555555555555555e-1 * t2031 - 0.11415555555555555555e-1 * t2540 + 0.34246666666666666666e-1 * t2544 - 0.17123333333333333333e-1 * t2548;
6402   t2551 = t65 * t2550;
6403   t2552 = t2551 * t203;
6404   t2553 = 0.15545350000000000000e-1 * t2552;
6405   t2554 = t779 * t831;
6406   t2555 = 0.31090700000000000000e-1 * t2554;
6407   t2556 = t326 * t2416;
6408   t2558 = t323 * t18 * t2556;
6409   t2559 = t2558 / 0.32e2;
6410   t2560 = -t2414 - t2420 - t2425 - t2427 - t2428 - t2429 - t2430 - t2503 - t2506 - t2509 - t2527 - t2530 - t2533 - t2535 - t2553 - t2555 + t1199 + t1204 - t2559;
6411   t2561 = t1757 * t2511;
6412   t2563 = t1754 * t18 * t2561;
6413   t2564 = t2563 / 0.24e2;
6414   t2565 = t2235 * t689;
6415   t2567 = t387 * t18 * t2565;
6416   t2568 = t2567 / 0.16e2;
6417   t2569 = t390 * t2421;
6418   t2571 = t387 * t18 * t2569;
6419   t2572 = t2571 / 0.32e2;
6420   t2573 = t1447 * t2537;
6421   t2575 = t1444 * t18 * t2573;
6422   t2576 = t2575 / 0.24e2;
6423   t2577 = t2269 * t794;
6424   t2578 = 0.10000000000000000000e1 * t2577;
6425   t2579 = t2272 * t794;
6426   t2580 = 0.10000000000000000000e1 * t2579;
6427   t2581 = t793 * t830;
6428   t2582 = t502 * t2581;
6429   t2583 = 0.10000000000000000000e1 * t2582;
6430   t2584 = t792 * t792;
6431   t2585 = t2584 * t1216;
6432   t2586 = t2585 * t202;
6433   t2587 = t1213 * t2586;
6434   t2588 = 0.16081979498692535067e2 * t2587;
6435   t2589 = t783 * t783;
6436   t2596 = t1472 + 0.2e1 / 0.9e1 * t2031 - 0.2e1 / 0.9e1 * t2540 + 0.2e1 / 0.3e1 * t2544 - t2548 / 0.3e1;
6437   t2608 = t1495 * t2538;
6438   t2611 = t516 * t2542;
6439   t2614 = t516 * t2546;
6440   t2617 = -0.17648625000000000000e1 * t1468 * t2589 + 0.35297250000000000000e1 * t503 * t2596 + t1480 + 0.34431666666666666666e0 * t2031 - 0.34431666666666666667e0 * t2540 + 0.10329500000000000000e1 * t2544 - 0.51647500000000000000e0 * t2548 + 0.31558125000000000000e0 * t1485 * t2589 + 0.63116250000000000000e0 * t510 * t2596 + t1492 + 0.13892666666666666667e0 * t2088 - 0.34731666666666666667e-1 * t216 * t2608 + 0.20839000000000000000e0 * t216 * t2611 - 0.10419500000000000000e0 * t216 * t2614;
6441   t2618 = t2617 * t521;
6442   t2619 = t2618 * t202;
6443   t2620 = t502 * t2619;
6444   t2621 = 0.50000000000000000001e0 * t2620;
6445   t2643 = (0.4e1 / 0.9e1 * t1513 * t2511 + 0.4e1 / 0.3e1 * t231 * t2416 + 0.4e1 / 0.9e1 * t1519 * t2537 + 0.4e1 / 0.3e1 * t233 * t2421) * t238;
6446   t2646 = t1230 * t2584;
6447   t2647 = t2646 * t521;
6448   t2650 = t766 * t766;
6449   t2651 = t1222 * t2650;
6450   t2652 = t2651 * t440;
6451   t2659 = t757 * t757;
6452   t2666 = t1395 + 0.2e1 / 0.9e1 * t1914 - 0.2e1 / 0.9e1 * t2514 + 0.2e1 / 0.3e1 * t2518 - t2522 / 0.3e1;
6453   t2678 = t1421 * t2512;
6454   t2681 = t435 * t2516;
6455   t2684 = t435 * t2520;
6456   t2687 = -0.17648625000000000000e1 * t1391 * t2659 + 0.35297250000000000000e1 * t419 * t2666 + t1403 + 0.34431666666666666666e0 * t1914 - 0.34431666666666666667e0 * t2514 + 0.10329500000000000000e1 * t2518 - 0.51647500000000000000e0 * t2522 + 0.31558125000000000000e0 * t1408 * t2659 + 0.63116250000000000000e0 * t426 * t2666 + t1418 + 0.13892666666666666667e0 * t1948 - 0.34731666666666666667e-1 * t216 * t2678 + 0.20839000000000000000e0 * t216 * t2681 - 0.10419500000000000000e0 * t216 * t2684;
6457   t2688 = t417 * t2687;
6458   t2689 = t2688 * t440;
6459   t2692 = t1453 * t2650;
6460   t2693 = t2692 * t1456;
6461   t2698 = 0.15545350000000000000e-1 * t2528 * t180 + 0.31090700000000000000e-1 * t2531 * t180 + 0.15545350000000000000e-1 * t2551 * t180 + 0.15545350000000000000e-1 * t2504 * t136 + 0.31090700000000000000e-1 * t2507 * t136 + 0.15545350000000000000e-1 * t2525 * t136 + 0.19751673498613801407e-1 * t2643 * t264 - t1548 + t1554 + t1557 + t1567 + t1570 + 0.10000000000000000000e1 * t166 * t2647 + 0.10000000000000000000e1 * t115 * t2652 - 0.10000000000000000000e1 * t745 * t848 - 0.10000000000000000000e1 * t753 * t848 - 0.50000000000000000001e0 * t115 * t2689 - 0.16081979498692535067e2 * t115 * t2693 - 0.10000000000000000000e1 * t771 * t856;
6462   t2701 = t501 * t2617;
6463   t2702 = t2701 * t521;
6464   t2705 = t1212 * t2584;
6465   t2706 = t2705 * t1216;
6466   t2709 = t2643 * t266;
6467   t2716 = -0.10000000000000000000e1 * t779 * t856 - 0.50000000000000000001e0 * t166 * t2702 - 0.16081979498692535067e2 * t166 * t2706 + t230 * t2709 - t1578 + t1711 - 0.8e1 * t1976 - 0.8e1 * t1978 + 0.2e1 * t1997 - t1665 + t1675 + t1683 - t1715 - t1719 - 0.11696447245269292414e1 * t2006 - t1658 + t1723 - t1730 - 0.36622894612013090108e-3 * t2022 + t1737;
6468   t2717 = t2698 + t2716;
6469   t2718 = t2717 * t310;
6470   t2719 = t2264 * t768;
6471   t2720 = 0.10000000000000000000e1 * t2719;
6472   t2721 = t859 * t893;
6473   t2722 = 0.2e1 * t2721;
6474   t2723 = t876 * t876;
6475   t2728 = t2383 * t306;
6476   t2733 = 0.4e1 / 0.3e1 * t48 * t2363;
6477   t2735 = 0.80e2 / 0.9e1 * t52 * t2363;
6478   t2736 = t2733 + t2735;
6479   t2751 = t2733 - t2735;
6480   t2754 = t2154 * t701;
6481   t2757 = 0.5070e1 * t1764 * t2723 + 0.46141333333333333333e-1 * t2358 * t280 - 0.20134400000000000000e-3 * t2728 - 0.5070e1 * t2121 * t876 - 0.2535e1 * t652 * t2736 - 0.13842400000000000000e-3 * t633 * t2358 - 0.49880160000000000000e-5 * t636 * t2358 + 0.14964048000000000000e-7 * t641 * t2358 - 0.66512640000000000000e-5 * t1794 * t2383 + 0.65297664000000000000e-7 * t1797 * t2383 - 0.13059532800000000000e-9 * t1802 * t2383 + 0.2535e1 * t2751 * t297 + 0.18509760000000000000e-2 * t1849 * t2754;
6482   t2758 = t2176 * t701;
6483   t2761 = t2161 * t701;
6484   t2764 = t2183 * t701;
6485   t2767 = t307 * t2751;
6486   t2775 = t873 * t873;
6487   t2776 = t307 * t2775;
6488   t2782 = t885 * t2357;
6489   t2785 = t889 * t2357;
6490   t2788 = t640 * t82;
6491   t2789 = t2788 * t2382;
6492   t2792 = t2154 * t876;
6493   t2795 = t287 * t82;
6494   t2796 = t2795 * t2382;
6495   t2799 = -0.55529280000000000000e-5 * t1853 * t2758 - 0.18509760000000000000e-2 * t1839 * t2761 + 0.55529280000000000000e-5 * t1844 * t2764 - 0.17352900000000000000e-3 * t656 * t2767 + 0.17352900000000000000e-3 * t662 * t307 * t2736 - 0.82265600000000000000e-3 * t305 * t2728 - 0.34705800000000000000e-3 * t1764 * t2776 - 0.69411600000000000000e-3 * t1812 * t307 * t2723 - 0.11311520000000000000e-2 * t666 * t2782 + 0.33934560000000000000e-5 * t671 * t2785 - 0.22211712000000000000e-7 * t671 * t2789 + 0.10411740000000000000e-2 * t1775 * t2792 + 0.98718720000000000000e-5 * t666 * t2796;
6496   t2800 = t2757 + t2799;
6497   t2801 = t275 * t2800;
6498   t2802 = t2687 * t440;
6499   t2803 = t2802 * t158;
6500   t2804 = t418 * t2803;
6501   t2805 = 0.50000000000000000001e0 * t2804;
6502   t2806 = t2650 * t1456;
6503   t2807 = t2806 * t158;
6504   t2808 = t1454 * t2807;
6505   t2809 = 0.16081979498692535067e2 * t2808;
6506   t2810 = t2315 * t768;
6507   t2811 = 0.10000000000000000000e1 * t2810;
6508   t2812 = t2650 * t440;
6509   t2813 = t2812 * t158;
6510   t2814 = t1223 * t2813;
6511   t2815 = 0.10000000000000000000e1 * t2814;
6512   t2816 = t2584 * t521;
6513   t2817 = t2816 * t202;
6514   t2818 = t1231 * t2817;
6515   t2819 = 0.10000000000000000000e1 * t2818;
6516   t2820 = t2329 / 0.48e2;
6517   t2821 = t2332 / 0.48e2;
6518   t2822 = -t2564 - t2568 - t2572 - t2576 + t2578 + t2580 + t2583 + t2588 + t2621 + t2718 + t2720 + t2722 + t2801 + t2805 + t2809 + t2811 - t2815 - t2819 - t2820 - t2821;
6519   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6520     v2rho2[2] = t3 * (t2560 + t2822) + 0.2e1 * t894 + 0.2e1 * t860 - t696 / 0.16e2 - t687 / 0.16e2 + 0.10000000000000000000e1 * t769 + 0.10000000000000000000e1 * t795 - t1868 - t1870 - 0.31090700000000000000e-1 * t746 - 0.31090700000000000000e-1 * t754 - 0.31090700000000000000e-1 * t772 - 0.31090700000000000000e-1 * t780 - 0.31090700000000000000e-1 * t832 - 0.3e1 / 0.16e2 * t683 - 0.3e1 / 0.16e2 * t692 - 0.3e1 / 0.16e2 * t743;
6521 
6522   t2839 = t316 * t911;
6523   t2840 = 0.3e1 / 0.32e2 * t2839;
6524   t2841 = t127 * t910;
6525   t2842 = t14 * t2841;
6526   t2843 = t2842 / 0.32e2;
6527   t2844 = t325 * t909;
6528   t2845 = t2844 * t314;
6529   t2847 = t323 * t18 * t2845;
6530   t2848 = t2847 / 0.32e2;
6531   t2849 = t333 * t30;
6532   t2851 = t339 * t40;
6533   t2852 = t2851 * sigma[0];
6534   t2854 = t33 * t346;
6535   t2855 = t2854 * t349;
6536   t2857 = t343 * t1293;
6537   t2860 = t55 * t30;
6538   t2869 = tau[0] * t455;
6539   t2870 = t360 * t40;
6540   t2873 = t455 * t40;
6541   t2874 = t2873 * tau[0];
6542   t2879 = -0.13952000000000000000e-1 * t2849 - 0.15701333333333333333e-3 * t2852 + 0.27979093333333333334e-5 * t2855 - 0.77864960000000000002e-8 * t2857 * t1185 + 0.20466666666666666667e-1 * t359 * t2860 + 0.20466666666666666667e-1 * t356 * t366 - 0.32746666666666666667e-1 * t56 * t2849 + 0.39296000000000000000e-3 * t56 * t2852 - 0.81866666666666666667e-4 * t2869 * t2870 - 0.81866666666666666667e-4 * t364 * t2874 - 0.10478933333333333334e-5 * t56 * t2855;
6543   t2880 = t21 * t2879;
6544   t2881 = t18 * t2880;
6545   t2882 = t14 * t2881;
6546   t2883 = 0.3e1 / 0.32e2 * t2882;
6547   t2884 = t395 * t927;
6548   t2885 = 0.15545350000000000000e-1 * t2884;
6549   t2886 = t413 * t927;
6550   t2887 = 0.15545350000000000000e-1 * t2886;
6551   t2888 = t441 * t926;
6552   t2889 = t418 * t2888;
6553   t2890 = 0.50000000000000000001e0 * t2889;
6554   t2891 = sigma[0] * t339;
6555   t2892 = t2891 * t140;
6556   t2894 = t2854 * t448;
6557   t2896 = t2857 * t1326;
6558   t2898 = t453 * sigma[0];
6559   t2901 = t460 * sigma[0];
6560   t2908 = t1285 * t448;
6561   t2909 = t2908 * tau[0];
6562   t2916 = t470 * sigma[0];
6563   t2927 = 0.79146666666666666667e0 * t2892 - 0.39573333333333333334e0 * t2894 + 0.47488000000000000000e-1 * t2896 - 0.819880e1 * t2898 * t457 - 0.19059600000000000000e2 * t2901 * t457 + 0.87453866666666666667e1 * t149 * t2892 - 0.43726933333333333334e1 * t149 * t2894 + 0.1639760e1 * t454 * t2909 + 0.38119200000000000000e1 * t461 * t2909 + 0.52472320000000000000e0 * t149 * t2896 - 0.10860800000000000000e2 * t2916 * t457 + 0.86886400000000000000e1 * t155 * t2892 - 0.43443200000000000001e1 * t155 * t2894 + 0.21721600000000000000e1 * t471 * t2909 + 0.52131840000000000000e0 * t155 * t2896;
6564   t2928 = t136 * t2927;
6565   t2929 = t115 * t2928;
6566   t2930 = 0.15545350000000000000e-1 * t2929;
6567   t2931 = t629 * t942;
6568   t2934 = t339 * t306;
6569   t2935 = t2934 * sigma[0];
6570   t2939 = t633 * t333;
6571   t2943 = t636 * t333;
6572   t2949 = t306 * t26;
6573   t2958 = t287 * t339;
6574   t2964 = t287 * t26;
6575   t2965 = t2964 * t648;
6576   t2968 = t2964 * t653;
6577   t2971 = t640 * t339;
6578   t2972 = t2971 * sigma[0];
6579   t2977 = -0.12584000000000000000e-1 * t333 * t280 + 0.75504000000000000000e-4 * t2935 + 0.24942240000000000000e-5 * t1794 * t2891 + 0.37752000000000000000e-4 * t2939 - 0.24486624000000000000e-7 * t1797 * t2891 + 0.13603680000000000000e-5 * t2943 + 0.48973248000000000000e-10 * t1802 * t2891 - 0.40811040000000000000e-8 * t641 * t333 - 0.34705800000000000000e-3 * t1849 * t2949 * t648 + 0.34705800000000000000e-3 * t1839 * t2949 * t653 + 0.30849600000000000000e-3 * t305 * t2935 - 0.37019520000000000000e-5 * t666 * t2958 * sigma[0] + 0.30849600000000000000e-3 * t305 * t2939 + 0.10411740000000000000e-5 * t1853 * t2965 - 0.10411740000000000000e-5 * t1844 * t2968 + 0.83293920000000000000e-8 * t671 * t2972 - 0.92548800000000000000e-6 * t305 * t2943;
6580   t2978 = t275 * t2977;
6581   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6582     v2rhosigma[0] = -t913 - t929 + t943 + t3 * (-t2840 - t2843 - t2848 - t2883 - t2885 - t2887 + t2890 - t2930 + t2931 + t2978);
6583 
6584   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6585     v2rhosigma[1] = 0.0e0;
6586 
6587   t2981 = t380 * t959;
6588   t2982 = 0.3e1 / 0.32e2 * t2981;
6589   t2983 = t127 * t958;
6590   t2984 = t67 * t2983;
6591   t2985 = t2984 / 0.32e2;
6592   t2986 = t389 * t957;
6593   t2987 = t2986 * t378;
6594   t2989 = t387 * t18 * t2987;
6595   t2990 = t2989 / 0.32e2;
6596   t2991 = t482 * t975;
6597   t2992 = 0.15545350000000000000e-1 * t2991;
6598   t2993 = t497 * t975;
6599   t2994 = 0.15545350000000000000e-1 * t2993;
6600   t2995 = t522 * t974;
6601   t2996 = t502 * t2995;
6602   t2997 = 0.50000000000000000001e0 * t2996;
6603   t2998 = t629 * t990;
6604   t2999 = t75 * t306;
6605   t3002 = t75 * sigma[0];
6606   t3003 = t3002 * t333;
6607   t3010 = t2999 * t648;
6608   t3013 = t2999 * t653;
6609   t3016 = t2999 * t333;
6610   t3019 = t287 * t75;
6611   t3023 = t3019 * t648;
6612   t3026 = t3019 * t653;
6613   t3029 = t640 * t75;
6614   t3033 = 0.75504000000000000000e-4 * t2999 * t334 + 0.24942240000000000000e-5 * t1794 * t3003 - 0.24486624000000000000e-7 * t1797 * t3003 + 0.48973248000000000000e-10 * t1802 * t3003 - 0.34705800000000000000e-3 * t1849 * t3010 + 0.34705800000000000000e-3 * t1839 * t3013 + 0.30849600000000000000e-3 * t2195 * t3016 - 0.37019520000000000000e-5 * t666 * t3019 * t334 + 0.10411740000000000000e-5 * t1853 * t3023 - 0.10411740000000000000e-5 * t1844 * t3026 + 0.83293920000000000000e-8 * t671 * t3029 * t334;
6615   t3034 = t275 * t3033;
6616   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6617     v2rhosigma[2] = -t961 - t977 + t991 + t3 * (-t2982 - t2985 - t2990 - t2992 - t2994 + t2997 + t2998 + t3034);
6618 
6619   t3037 = t682 * t911;
6620   t3038 = 0.3e1 / 0.32e2 * t3037;
6621   t3039 = t2844 * t680;
6622   t3041 = t323 * t18 * t3039;
6623   t3042 = t3041 / 0.32e2;
6624   t3043 = t745 * t927;
6625   t3044 = 0.15545350000000000000e-1 * t3043;
6626   t3045 = t753 * t927;
6627   t3046 = 0.15545350000000000000e-1 * t3045;
6628   t3047 = t767 * t926;
6629   t3048 = t418 * t3047;
6630   t3049 = 0.50000000000000000001e0 * t3048;
6631   t3050 = t859 * t942;
6632   t3053 = t26 * sigma[2];
6633   t3054 = t3053 * t700;
6634   t3061 = t2949 * t873;
6635   t3067 = t305 * sigma[2];
6636   t3068 = t700 * t306;
6637   t3069 = t3068 * t26;
6638   t3075 = t2964 * t873;
6639   t3078 = t2964 * t876;
6640   t3081 = t640 * t26;
6641   t3085 = 0.75504000000000000000e-4 * t2949 * t701 + 0.24942240000000000000e-5 * t1794 * t3054 - 0.24486624000000000000e-7 * t1797 * t3054 + 0.48973248000000000000e-10 * t1802 * t3054 - 0.34705800000000000000e-3 * t1849 * t3061 + 0.34705800000000000000e-3 * t1839 * t2949 * t876 + 0.30849600000000000000e-3 * t3067 * t3069 - 0.37019520000000000000e-5 * t666 * t2964 * t701 + 0.10411740000000000000e-5 * t1853 * t3075 - 0.10411740000000000000e-5 * t1844 * t3078 + 0.83293920000000000000e-8 * t671 * t3081 * t701;
6642   t3086 = t275 * t3085;
6643   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6644     v2rhosigma[3] = -t913 - t929 + t943 + t3 * (-t3038 - t2843 - t3042 - t3044 - t3046 + t3049 + t3050 + t3086);
6645 
6646   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6647     v2rhosigma[4] = 0.0e0;
6648 
6649   t3089 = t691 * t959;
6650   t3090 = 0.3e1 / 0.32e2 * t3089;
6651   t3091 = t2986 * t689;
6652   t3093 = t387 * t18 * t3091;
6653   t3094 = t3093 / 0.32e2;
6654   t3095 = t700 * t79;
6655   t3097 = t706 * t89;
6656   t3098 = t3097 * sigma[2];
6657   t3100 = t82 * t713;
6658   t3101 = t3100 * t716;
6659   t3103 = t710 * t2456;
6660   t3106 = t97 * t79;
6661   t3115 = tau[1] * t807;
6662   t3116 = t727 * t89;
6663   t3119 = t807 * t89;
6664   t3120 = t3119 * tau[1];
6665   t3125 = -0.13952000000000000000e-1 * t3095 - 0.15701333333333333333e-3 * t3098 + 0.27979093333333333334e-5 * t3101 - 0.77864960000000000002e-8 * t3103 * t2401 + 0.20466666666666666667e-1 * t726 * t3106 + 0.20466666666666666667e-1 * t723 * t733 - 0.32746666666666666667e-1 * t98 * t3095 + 0.39296000000000000000e-3 * t98 * t3098 - 0.81866666666666666667e-4 * t3115 * t3116 - 0.81866666666666666667e-4 * t731 * t3120 - 0.10478933333333333334e-5 * t98 * t3101;
6666   t3126 = t70 * t3125;
6667   t3127 = t18 * t3126;
6668   t3128 = t67 * t3127;
6669   t3129 = 0.3e1 / 0.32e2 * t3128;
6670   t3130 = t771 * t975;
6671   t3131 = 0.15545350000000000000e-1 * t3130;
6672   t3132 = t779 * t975;
6673   t3133 = 0.15545350000000000000e-1 * t3132;
6674   t3134 = t793 * t974;
6675   t3135 = t502 * t3134;
6676   t3136 = 0.50000000000000000001e0 * t3135;
6677   t3137 = sigma[2] * t706;
6678   t3138 = t3137 * t184;
6679   t3140 = t3100 * t800;
6680   t3142 = t3103 * t2487;
6681   t3144 = t805 * sigma[2];
6682   t3147 = t812 * sigma[2];
6683   t3154 = t2444 * t800;
6684   t3155 = t3154 * tau[1];
6685   t3162 = t822 * sigma[2];
6686   t3173 = 0.79146666666666666667e0 * t3138 - 0.39573333333333333334e0 * t3140 + 0.47488000000000000000e-1 * t3142 - 0.819880e1 * t3144 * t809 - 0.19059600000000000000e2 * t3147 * t809 + 0.87453866666666666667e1 * t193 * t3138 - 0.43726933333333333334e1 * t193 * t3140 + 0.1639760e1 * t806 * t3155 + 0.38119200000000000000e1 * t813 * t3155 + 0.52472320000000000000e0 * t193 * t3142 - 0.10860800000000000000e2 * t3162 * t809 + 0.86886400000000000000e1 * t199 * t3138 - 0.43443200000000000001e1 * t199 * t3140 + 0.21721600000000000000e1 * t823 * t3155 + 0.52131840000000000000e0 * t199 * t3142;
6687   t3174 = t180 * t3173;
6688   t3175 = t166 * t3174;
6689   t3176 = 0.15545350000000000000e-1 * t3175;
6690   t3177 = t859 * t990;
6691   t3180 = t706 * t306;
6692   t3181 = t3180 * sigma[2];
6693   t3185 = t633 * t700;
6694   t3189 = t636 * t700;
6695   t3195 = t2999 * t873;
6696   t3198 = t2999 * t876;
6697   t3203 = t287 * t706;
6698   t3204 = t3203 * sigma[2];
6699   t3209 = t3019 * t873;
6700   t3212 = t3019 * t876;
6701   t3215 = t640 * t706;
6702   t3216 = t3215 * sigma[2];
6703   t3221 = -0.12584000000000000000e-1 * t700 * t280 + 0.75504000000000000000e-4 * t3181 + 0.24942240000000000000e-5 * t1794 * t3137 + 0.37752000000000000000e-4 * t3185 - 0.24486624000000000000e-7 * t1797 * t3137 + 0.13603680000000000000e-5 * t3189 + 0.48973248000000000000e-10 * t1802 * t3137 - 0.40811040000000000000e-8 * t641 * t700 - 0.34705800000000000000e-3 * t1849 * t3195 + 0.34705800000000000000e-3 * t1839 * t3198 + 0.30849600000000000000e-3 * t305 * t3181 - 0.37019520000000000000e-5 * t666 * t3204 + 0.30849600000000000000e-3 * t305 * t3185 + 0.10411740000000000000e-5 * t1853 * t3209 - 0.10411740000000000000e-5 * t1844 * t3212 + 0.83293920000000000000e-8 * t671 * t3216 - 0.92548800000000000000e-6 * t305 * t3189;
6704   t3222 = t275 * t3221;
6705   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6706     v2rhosigma[5] = -t961 - t977 + t991 + t3 * (-t3090 - t2985 - t3094 - t3129 - t3131 - t3133 + t3136 - t3176 + t3177 + t3222);
6707 
6708   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6709     v2rholapl[0] = 0.0e0;
6710 
6711   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6712     v2rholapl[1] = 0.0e0;
6713 
6714   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6715     v2rholapl[2] = 0.0e0;
6716 
6717   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6718     v2rholapl[3] = 0.0e0;
6719 
6720   t3225 = t316 * t1009;
6721   t3226 = 0.3e1 / 0.32e2 * t3225;
6722   t3227 = t127 * t1008;
6723   t3228 = t14 * t3227;
6724   t3229 = t3228 / 0.32e2;
6725   t3230 = t325 * t1007;
6726   t3231 = t3230 * t314;
6727   t3233 = t323 * t18 * t3231;
6728   t3234 = t3233 / 0.32e2;
6729   t3235 = t26 * t55;
6730   t3237 = t998 * t355;
6731   t3238 = t3237 * tau[0];
6732   t3240 = t998 * tau[0];
6733   t3241 = t1133 * t3240;
6734   t3243 = t356 * t26;
6735   t3245 = t37 * t55;
6736   t3248 = t1015 * t355;
6737   t3249 = t1000 * tau[0];
6738   t3252 = t455 * t55;
6739   t3253 = t33 * t40;
6740   t3256 = t1015 * t30;
6741   t3257 = t3256 * tau[0];
6742   t3266 = 0.69333333333333333333e0 * t3235 - 0.13866666666666666667e1 * t3238 - 0.13866666666666666667e1 * t3241 + 0.69333333333333333333e0 * t3243 + 0.53213333333333333333e-1 * t3245 * t1000 - 0.40933333333333333334e-1 * t3248 * t3249 - 0.13098666666666666667e-3 * t3252 * t3253 - 0.40933333333333333333e-1 * t1138 * t3257 + 0.53213333333333333333e-1 * t356 * t899 * t30 - 0.13098666666666666667e-3 * t356 * t902 * t40;
6743   t3267 = t21 * t3266;
6744   t3268 = t18 * t3267;
6745   t3269 = t14 * t3268;
6746   t3270 = 0.3e1 / 0.32e2 * t3269;
6747   t3271 = t395 * t1025;
6748   t3272 = 0.15545350000000000000e-1 * t3271;
6749   t3273 = t413 * t1025;
6750   t3274 = 0.15545350000000000000e-1 * t3273;
6751   t3275 = t441 * t1024;
6752   t3276 = t418 * t3275;
6753   t3277 = 0.50000000000000000001e0 * t3276;
6754   t3283 = 0.1e1 / t24 / t345;
6755   t3285 = t3283 * t140 * tau[0];
6756   t3290 = t902 * t140;
6757   t3294 = t343 * t1285 * t448;
6758   t3309 = -0.94466666666666666667e1 * t3235 + 0.18893333333333333333e2 * t3238 + 0.18893333333333333333e2 * t3241 - 0.94466666666666666667e1 * t3243 + 0.81988000000000000000e1 * t1312 * t3285 + 0.4088760e2 * t1316 * t3285 - 0.1721748e2 * t453 * t3290 + 0.26236160000000000001e1 * t453 * t3294 + 0.59840800000000000000e2 * t1283 * t3285 - 0.4002516e2 * t460 * t3290 + 0.60990720000000000002e1 * t460 * t3294 + 0.27152000000000000000e2 * t1303 * t3285 - 0.2280768e2 * t470 * t3290 + 0.34754560000000000001e1 * t470 * t3294;
6759   t3310 = t136 * t3309;
6760   t3311 = t115 * t3310;
6761   t3312 = 0.15545350000000000000e-1 * t3311;
6762   t3313 = t629 * t1045;
6763   t3315 = t48 * t26 / 0.2e1;
6764   t3317 = 0.10e2 / 0.3e1 * t2149 * t93;
6765   t3318 = -t3315 + t3317;
6766   t3321 = t1033 * t651;
6767   t3326 = t1036 * t653;
6768   t3329 = -t3315 - t3317;
6769   t3332 = t306 * t1033;
6770   t3333 = t3332 * t648;
6771   t3336 = t3332 * t653;
6772   t3339 = t3332 * t334;
6773   t3342 = t287 * t1033;
6774   t3343 = t3342 * t334;
6775   t3346 = t307 * t3318;
6776   t3349 = t306 * t1036;
6777   t3350 = t3349 * t648;
6778   t3353 = t3349 * t653;
6779   t3359 = t287 * t1036;
6780   t3360 = t3359 * t334;
6781   t3366 = 0.2535e1 * t3318 * t297 - 0.2535e1 * t3321 * t653 - 0.2535e1 * t1836 * t1036 + 0.5070e1 * t1764 * t3326 - 0.2535e1 * t652 * t3329 - 0.34705800000000000000e-3 * t2153 * t3333 + 0.52058700000000000000e-3 * t1775 * t3336 + 0.92548800000000000000e-3 * t1849 * t3339 - 0.27764640000000000000e-5 * t1853 * t3343 - 0.17352900000000000000e-3 * t656 * t3346 + 0.52058700000000000000e-3 * t1775 * t3350 - 0.69411600000000000000e-3 * t2165 * t3353 - 0.92548800000000000000e-3 * t1839 * t3349 * t334 + 0.27764640000000000000e-5 * t1844 * t3360 + 0.17352900000000000000e-3 * t662 * t307 * t3329;
6782   t3367 = t275 * t3366;
6783   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6784     v2rhotau[0] = -t1011 - t1027 + t1046 + t3 * (-t3226 - t3229 - t3234 - t3270 - t3272 - t3274 + t3277 - t3312 + t3313 + t3367);
6785 
6786   t3370 = t380 * t1064;
6787   t3371 = 0.3e1 / 0.32e2 * t3370;
6788   t3372 = t127 * t1063;
6789   t3373 = t67 * t3372;
6790   t3374 = t3373 / 0.32e2;
6791   t3375 = t389 * t1062;
6792   t3376 = t3375 * t378;
6793   t3378 = t387 * t18 * t3376;
6794   t3379 = t3378 / 0.32e2;
6795   t3380 = t482 * t1080;
6796   t3381 = 0.15545350000000000000e-1 * t3380;
6797   t3382 = t497 * t1080;
6798   t3383 = 0.15545350000000000000e-1 * t3382;
6799   t3384 = t522 * t1079;
6800   t3385 = t502 * t3384;
6801   t3386 = 0.50000000000000000001e0 * t3385;
6802   t3387 = t629 * t1099;
6803   t3388 = t93 * t297;
6804   t3391 = t1087 * t651;
6805   t3396 = t1090 * t653;
6806   t3399 = t352 * t93;
6807   t3402 = t306 * t1087;
6808   t3403 = t3402 * t648;
6809   t3406 = t3402 * t653;
6810   t3409 = t3402 * t334;
6811   t3412 = t287 * t1087;
6812   t3413 = t3412 * t334;
6813   t3416 = t306 * tau[0];
6814   t3417 = t26 * t93;
6815   t3418 = t3416 * t3417;
6816   t3421 = t306 * t1090;
6817   t3422 = t3421 * t648;
6818   t3425 = t3421 * t653;
6819   t3431 = t287 * t1090;
6820   t3432 = t3431 * t334;
6821   t3437 = 0.84500000000000000000e1 * t352 * t3388 - 0.2535e1 * t3391 * t653 - 0.2535e1 * t1836 * t1090 + 0.5070e1 * t1764 * t3396 + 0.84500000000000000000e1 * t652 * t3399 - 0.34705800000000000000e-3 * t2153 * t3403 + 0.52058700000000000000e-3 * t1775 * t3406 + 0.92548800000000000000e-3 * t1849 * t3409 - 0.27764640000000000000e-5 * t1853 * t3413 - 0.57843000000000000000e-3 * t1853 * t3418 + 0.52058700000000000000e-3 * t1775 * t3422 - 0.69411600000000000000e-3 * t2165 * t3425 - 0.92548800000000000000e-3 * t1839 * t3421 * t334 + 0.27764640000000000000e-5 * t1844 * t3432 - 0.57843000000000000000e-3 * t1844 * t3418;
6822   t3438 = t275 * t3437;
6823   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6824     v2rhotau[1] = -t1066 - t1082 + t1100 + t3 * (-t3371 - t3374 - t3379 - t3381 - t3383 + t3386 + t3387 + t3438);
6825 
6826   t3441 = t682 * t1009;
6827   t3442 = 0.3e1 / 0.32e2 * t3441;
6828   t3443 = t3230 * t680;
6829   t3445 = t323 * t18 * t3443;
6830   t3446 = t3445 / 0.32e2;
6831   t3447 = t745 * t1025;
6832   t3448 = 0.15545350000000000000e-1 * t3447;
6833   t3449 = t753 * t1025;
6834   t3450 = 0.15545350000000000000e-1 * t3449;
6835   t3451 = t767 * t1024;
6836   t3452 = t418 * t3451;
6837   t3453 = 0.50000000000000000001e0 * t3452;
6838   t3454 = t859 * t1045;
6839   t3455 = t75 * t297;
6840   t3462 = t1036 * t876;
6841   t3465 = t1030 * t75;
6842   t3468 = t3332 * t873;
6843   t3471 = t3332 * t876;
6844   t3474 = t3332 * t701;
6845   t3477 = t3342 * t701;
6846   t3480 = t306 * t51;
6847   t3481 = t3480 * t719;
6848   t3484 = t3349 * t873;
6849   t3487 = t3349 * t876;
6850   t3490 = t3349 * t701;
6851   t3493 = t3359 * t701;
6852   t3498 = 0.84500000000000000000e1 * t1030 * t3455 - 0.2535e1 * t3321 * t876 - 0.2535e1 * t2121 * t1036 + 0.5070e1 * t1764 * t3462 + 0.84500000000000000000e1 * t652 * t3465 - 0.34705800000000000000e-3 * t2153 * t3468 + 0.52058700000000000000e-3 * t1775 * t3471 + 0.92548800000000000000e-3 * t1849 * t3474 - 0.27764640000000000000e-5 * t1853 * t3477 - 0.57843000000000000000e-3 * t1853 * t3481 + 0.52058700000000000000e-3 * t1775 * t3484 - 0.69411600000000000000e-3 * t2165 * t3487 - 0.92548800000000000000e-3 * t1839 * t3490 + 0.27764640000000000000e-5 * t1844 * t3493 - 0.57843000000000000000e-3 * t1844 * t3481;
6853   t3499 = t275 * t3498;
6854   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6855     v2rhotau[2] = -t1011 - t1027 + t1046 + t3 * (-t3442 - t3229 - t3446 - t3448 - t3450 + t3453 + t3454 + t3499);
6856 
6857   t3502 = t691 * t1064;
6858   t3503 = 0.3e1 / 0.32e2 * t3502;
6859   t3504 = t3375 * t689;
6860   t3506 = t387 * t18 * t3504;
6861   t3507 = t3506 / 0.32e2;
6862   t3508 = t75 * t97;
6863   t3510 = t1053 * t722;
6864   t3511 = t3510 * tau[1];
6865   t3513 = t1053 * tau[1];
6866   t3514 = t2344 * t3513;
6867   t3516 = t723 * t75;
6868   t3518 = t86 * t97;
6869   t3521 = t1070 * t722;
6870   t3522 = t1055 * tau[1];
6871   t3525 = t807 * t97;
6872   t3526 = t82 * t89;
6873   t3529 = t1070 * t79;
6874   t3530 = t3529 * tau[1];
6875   t3539 = 0.69333333333333333333e0 * t3508 - 0.13866666666666666667e1 * t3511 - 0.13866666666666666667e1 * t3514 + 0.69333333333333333333e0 * t3516 + 0.53213333333333333333e-1 * t3518 * t1055 - 0.40933333333333333334e-1 * t3521 * t3522 - 0.13098666666666666667e-3 * t3525 * t3526 - 0.40933333333333333333e-1 * t2345 * t3530 + 0.53213333333333333333e-1 * t723 * t947 * t79 - 0.13098666666666666667e-3 * t723 * t950 * t89;
6876   t3540 = t70 * t3539;
6877   t3541 = t18 * t3540;
6878   t3542 = t67 * t3541;
6879   t3543 = 0.3e1 / 0.32e2 * t3542;
6880   t3544 = t771 * t1080;
6881   t3545 = 0.15545350000000000000e-1 * t3544;
6882   t3546 = t779 * t1080;
6883   t3547 = 0.15545350000000000000e-1 * t3546;
6884   t3548 = t793 * t1079;
6885   t3549 = t502 * t3548;
6886   t3550 = 0.50000000000000000001e0 * t3549;
6887   t3556 = 0.1e1 / t73 / t712;
6888   t3558 = t3556 * t184 * tau[1];
6889   t3563 = t950 * t184;
6890   t3567 = t710 * t2444 * t800;
6891   t3582 = -0.94466666666666666667e1 * t3508 + 0.18893333333333333333e2 * t3511 + 0.18893333333333333333e2 * t3514 - 0.94466666666666666667e1 * t3516 + 0.81988000000000000000e1 * t2442 * t3558 + 0.4088760e2 * t2450 * t3558 - 0.1721748e2 * t805 * t3563 + 0.26236160000000000001e1 * t805 * t3567 + 0.59840800000000000000e2 * t2462 * t3558 - 0.4002516e2 * t812 * t3563 + 0.60990720000000000002e1 * t812 * t3567 + 0.27152000000000000000e2 * t2473 * t3558 - 0.2280768e2 * t822 * t3563 + 0.34754560000000000001e1 * t822 * t3567;
6892   t3583 = t180 * t3582;
6893   t3584 = t166 * t3583;
6894   t3585 = 0.15545350000000000000e-1 * t3584;
6895   t3586 = t859 * t1099;
6896   t3588 = t48 * t75 / 0.2e1;
6897   t3590 = 0.10e2 / 0.3e1 * t52 * t75;
6898   t3591 = -t3588 + t3590;
6899   t3598 = t1090 * t876;
6900   t3601 = -t3588 - t3590;
6901   t3604 = t3402 * t873;
6902   t3607 = t3402 * t876;
6903   t3610 = t3402 * t701;
6904   t3613 = t3412 * t701;
6905   t3616 = t307 * t3591;
6906   t3619 = t3421 * t873;
6907   t3622 = t3421 * t876;
6908   t3625 = t3421 * t701;
6909   t3628 = t3431 * t701;
6910   t3634 = 0.2535e1 * t3591 * t297 - 0.2535e1 * t3391 * t876 - 0.2535e1 * t2121 * t1090 + 0.5070e1 * t1764 * t3598 - 0.2535e1 * t652 * t3601 - 0.34705800000000000000e-3 * t2153 * t3604 + 0.52058700000000000000e-3 * t1775 * t3607 + 0.92548800000000000000e-3 * t1849 * t3610 - 0.27764640000000000000e-5 * t1853 * t3613 - 0.17352900000000000000e-3 * t656 * t3616 + 0.52058700000000000000e-3 * t1775 * t3619 - 0.69411600000000000000e-3 * t2165 * t3622 - 0.92548800000000000000e-3 * t1839 * t3625 + 0.27764640000000000000e-5 * t1844 * t3628 + 0.17352900000000000000e-3 * t662 * t307 * t3601;
6911   t3635 = t275 * t3634;
6912   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6913     v2rhotau[3] = -t1066 - t1082 + t1100 + t3 * (-t3503 - t3374 - t3507 - t3543 - t3545 - t3547 + t3550 - t3585 + t3586 + t3635);
6914 
6915   t3638 = t37 * t40;
6916   t3640 = sigma[0] * t455;
6917   t3641 = t3640 * t349;
6918   t3643 = t33 * t1285;
6919   t3650 = 0.18976e-4 * t3638 - 0.805888e-6 * t3641 + 0.2919936e-8 * t3643 * t1185 - 0.98240e-4 * t56 * t3638 + 0.392960e-6 * t56 * t3641;
6920   t3651 = t21 * t3650;
6921   t3652 = t18 * t3651;
6922   t3654 = 0.3e1 / 0.32e2 * t14 * t3652;
6923   t3655 = t37 * t140;
6924   t3657 = t3640 * t448;
6925   t3659 = t3643 * t1326;
6926   t3673 = -0.14840e0 * t3655 + 0.118720e0 * t3657 - 0.178080e-1 * t3659 - 0.163976e1 * t149 * t3655 + 0.1311808e1 * t149 * t3657 - 0.1967712e0 * t149 * t3659 - 0.162912e1 * t155 * t3655 + 0.1303296e1 * t155 * t3657 - 0.1954944e0 * t155 * t3659;
6927   t3674 = t136 * t3673;
6928   t3676 = 0.15545350000000000000e-1 * t115 * t3674;
6929   t3677 = t37 * t306;
6930   t3679 = t1794 * t37;
6931   t3681 = t1797 * t37;
6932   t3691 = -0.28314000000000000000e-4 * t3677 - 0.93533400000000000000e-6 * t3679 + 0.91824840000000000000e-8 * t3681 - 0.18364968000000000000e-10 * t1802 * t37 - 0.11568600000000000000e-3 * t305 * t3677 + 0.13882320000000000000e-5 * t305 * t3679 - 0.31235220000000000000e-8 * t305 * t3681;
6933   t3692 = t275 * t3691;
6934   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6935     v2sigma2[0] = t3 * (-t3654 - t3676 + t3692);
6936 
6937   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6938     v2sigma2[1] = 0.0e0;
6939 
6940   t3694 = t3 * t275;
6941   t3695 = t2999 * t26;
6942   t3697 = t75 * t26;
6943   t3712 = -0.28314000000000000000e-4 * t3695 - 0.93533400000000000000e-6 * t1794 * t3697 + 0.91824840000000000000e-8 * t1797 * t3697 - 0.18364968000000000000e-10 * t1802 * t3697 - 0.11568600000000000000e-3 * t305 * t3695 + 0.13882320000000000000e-5 * t666 * t3019 * t26 - 0.31235220000000000000e-8 * t671 * t3029 * t26;
6944   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6945     v2sigma2[2] = t3694 * t3712;
6946 
6947   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6948     v2sigma2[3] = 0.0e0;
6949 
6950   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6951     v2sigma2[4] = 0.0e0;
6952 
6953   t3713 = t86 * t89;
6954   t3715 = sigma[2] * t807;
6955   t3716 = t3715 * t716;
6956   t3718 = t82 * t2444;
6957   t3725 = 0.18976e-4 * t3713 - 0.805888e-6 * t3716 + 0.2919936e-8 * t3718 * t2401 - 0.98240e-4 * t98 * t3713 + 0.392960e-6 * t98 * t3716;
6958   t3726 = t70 * t3725;
6959   t3727 = t18 * t3726;
6960   t3729 = 0.3e1 / 0.32e2 * t67 * t3727;
6961   t3730 = t86 * t184;
6962   t3732 = t3715 * t800;
6963   t3734 = t3718 * t2487;
6964   t3748 = -0.14840e0 * t3730 + 0.118720e0 * t3732 - 0.178080e-1 * t3734 - 0.163976e1 * t193 * t3730 + 0.1311808e1 * t193 * t3732 - 0.1967712e0 * t193 * t3734 - 0.162912e1 * t199 * t3730 + 0.1303296e1 * t199 * t3732 - 0.1954944e0 * t199 * t3734;
6965   t3749 = t180 * t3748;
6966   t3751 = 0.15545350000000000000e-1 * t166 * t3749;
6967   t3752 = t86 * t306;
6968   t3754 = t1794 * t86;
6969   t3756 = t1797 * t86;
6970   t3766 = -0.28314000000000000000e-4 * t3752 - 0.93533400000000000000e-6 * t3754 + 0.91824840000000000000e-8 * t3756 - 0.18364968000000000000e-10 * t1802 * t86 - 0.11568600000000000000e-3 * t305 * t3752 + 0.13882320000000000000e-5 * t305 * t3754 - 0.31235220000000000000e-8 * t305 * t3756;
6971   t3767 = t275 * t3766;
6972   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
6973     v2sigma2[5] = t3 * (-t3729 - t3751 + t3767);
6974 
6975   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6976     v2sigmalapl[0] = 0.0e0;
6977 
6978   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6979     v2sigmalapl[1] = 0.0e0;
6980 
6981   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6982     v2sigmalapl[2] = 0.0e0;
6983 
6984   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6985     v2sigmalapl[3] = 0.0e0;
6986 
6987   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6988     v2sigmalapl[4] = 0.0e0;
6989 
6990   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
6991     v2sigmalapl[5] = 0.0e0;
6992 
6993   t3771 = t1015 * t55;
6994   t3772 = sigma[0] * t40;
6995   t3778 = sigma[0] * t1015;
6996   t3782 = -0.12280e-1 * t999 * t30 + 0.49120e-4 * t3771 * t3772 - 0.12280e-1 * t356 * t998 * t30 + 0.49120e-4 * t356 * t3778 * t40;
6997   t3783 = t21 * t3782;
6998   t3784 = t18 * t3783;
6999   t3786 = 0.3e1 / 0.32e2 * t14 * t3784;
7000   t3787 = t3778 * t140;
7001   t3790 = t33 * t3283;
7002   t3791 = t3790 * t448;
7003   t3802 = 0.491928e1 * t453 * t3787 - 0.983856e0 * t453 * t3791 + 0.1143576e2 * t460 * t3787 - 0.2287152e1 * t460 * t3791 + 0.651648e1 * t470 * t3787 - 0.1303296e1 * t470 * t3791;
7004   t3803 = t136 * t3802;
7005   t3805 = 0.15545350000000000000e-1 * t115 * t3803;
7006   t3806 = t3332 * t26;
7007   t3809 = t3342 * t26;
7008   t3815 = t3359 * t26;
7009   t3818 = -0.34705800000000000000e-3 * t1849 * t3806 + 0.10411740000000000000e-5 * t1853 * t3809 + 0.34705800000000000000e-3 * t1839 * t3349 * t26 - 0.10411740000000000000e-5 * t1844 * t3815;
7010   t3819 = t275 * t3818;
7011   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7012     v2sigmatau[0] = t3 * (-t3786 - t3805 + t3819);
7013 
7014   t3821 = t3402 * t26;
7015   t3824 = t3412 * t26;
7016   t3830 = t3431 * t26;
7017   t3833 = -0.34705800000000000000e-3 * t1849 * t3821 + 0.10411740000000000000e-5 * t1853 * t3824 + 0.34705800000000000000e-3 * t1839 * t3421 * t26 - 0.10411740000000000000e-5 * t1844 * t3830;
7018   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7019     v2sigmatau[1] = t3694 * t3833;
7020 
7021   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7022     v2sigmatau[2] = 0.0e0;
7023 
7024   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7025     v2sigmatau[3] = 0.0e0;
7026 
7027   t3834 = t3332 * t75;
7028   t3837 = t3342 * t75;
7029   t3840 = t3349 * t75;
7030   t3843 = t3359 * t75;
7031   t3846 = -0.34705800000000000000e-3 * t1849 * t3834 + 0.10411740000000000000e-5 * t1853 * t3837 + 0.34705800000000000000e-3 * t1839 * t3840 - 0.10411740000000000000e-5 * t1844 * t3843;
7032   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7033     v2sigmatau[4] = t3694 * t3846;
7034 
7035   t3849 = t1070 * t97;
7036   t3850 = sigma[2] * t89;
7037   t3856 = sigma[2] * t1070;
7038   t3860 = -0.12280e-1 * t1054 * t79 + 0.49120e-4 * t3849 * t3850 - 0.12280e-1 * t723 * t1053 * t79 + 0.49120e-4 * t723 * t3856 * t89;
7039   t3861 = t70 * t3860;
7040   t3862 = t18 * t3861;
7041   t3864 = 0.3e1 / 0.32e2 * t67 * t3862;
7042   t3865 = t3856 * t184;
7043   t3868 = t82 * t3556;
7044   t3869 = t3868 * t800;
7045   t3880 = 0.491928e1 * t805 * t3865 - 0.983856e0 * t805 * t3869 + 0.1143576e2 * t812 * t3865 - 0.2287152e1 * t812 * t3869 + 0.651648e1 * t822 * t3865 - 0.1303296e1 * t822 * t3869;
7046   t3881 = t180 * t3880;
7047   t3883 = 0.15545350000000000000e-1 * t166 * t3881;
7048   t3884 = t3402 * t75;
7049   t3887 = t3412 * t75;
7050   t3890 = t3421 * t75;
7051   t3893 = t3431 * t75;
7052   t3896 = -0.34705800000000000000e-3 * t1849 * t3884 + 0.10411740000000000000e-5 * t1853 * t3887 + 0.34705800000000000000e-3 * t1839 * t3890 - 0.10411740000000000000e-5 * t1844 * t3893;
7053   t3897 = t275 * t3896;
7054   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7055     v2sigmatau[5] = t3 * (-t3864 - t3883 + t3897);
7056 
7057   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7058     v2lapl2[0] = 0.0e0;
7059 
7060   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7061     v2lapl2[1] = 0.0e0;
7062 
7063   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7064     v2lapl2[2] = 0.0e0;
7065 
7066   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7067     v2lapltau[0] = 0.0e0;
7068 
7069   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7070     v2lapltau[1] = 0.0e0;
7071 
7072   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7073     v2lapltau[2] = 0.0e0;
7074 
7075   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
7076     v2lapltau[3] = 0.0e0;
7077 
7078   t3900 = 0.1e1 / t23 / t331;
7079   t3901 = t3900 * t355;
7080   t3903 = t1133 * t3900;
7081   t3905 = 0.1e1 / t337;
7082   t3906 = t3905 * t355;
7083   t3913 = 0.832e0 * t3901 + 0.832e0 * t3903 + 0.24560e-1 * t3906 * t1000 + 0.24560e-1 * t1133 * sigma[0] * t3905 * t30;
7084   t3914 = t21 * t3913;
7085   t3915 = t18 * t3914;
7086   t3917 = 0.3e1 / 0.32e2 * t14 * t3915;
7087   t3921 = 0.1e1 / t24 / t344;
7088   t3923 = t33 * t3921 * t140;
7089   t3932 = -0.11336e2 * t3901 - 0.11336e2 * t3903 - 0.491928e1 * t1133 * t3923 - 0.2453256e2 * t1315 * t3923 - 0.3590448e2 * t1282 * t3923 - 0.1629120e2 * t1302 * t3923;
7090   t3933 = t136 * t3932;
7091   t3935 = 0.15545350000000000000e-1 * t115 * t3933;
7092   t3938 = t1036 * t1036;
7093   t3941 = t1033 * t1033;
7094   t3942 = t307 * t3941;
7095   t3945 = t3332 * t1036;
7096   t3951 = -0.5070e1 * t3321 * t1036 + 0.5070e1 * t1764 * t3938 - 0.34705800000000000000e-3 * t1764 * t3942 + 0.10411740000000000000e-2 * t1775 * t3945 - 0.69411600000000000000e-3 * t1812 * t307 * t3938;
7097   t3952 = t275 * t3951;
7098   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7099     v2tau2[0] = t3 * (-t3917 - t3935 + t3952);
7100 
7101   t3954 = t51 * t93;
7102   t3961 = t1090 * t1036;
7103   t3966 = t3402 * t1033;
7104   t3969 = t3402 * t1036;
7105   t3972 = t3480 * t93;
7106   t3975 = t3421 * t1033;
7107   t3978 = t3421 * t1036;
7108   t3983 = -0.5070e1 * t3954 * t297 - 0.2535e1 * t3391 * t1036 - 0.2535e1 * t3321 * t1090 + 0.5070e1 * t1764 * t3961 - 0.5070e1 * t652 * t3954 - 0.34705800000000000000e-3 * t2153 * t3966 + 0.52058700000000000000e-3 * t1775 * t3969 + 0.34705800000000000000e-3 * t1853 * t3972 + 0.52058700000000000000e-3 * t1775 * t3975 - 0.69411600000000000000e-3 * t2165 * t3978 + 0.34705800000000000000e-3 * t1844 * t3972;
7109   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7110     v2tau2[1] = t3694 * t3983;
7111 
7112   t3985 = 0.1e1 / t72 / t698;
7113   t3986 = t3985 * t722;
7114   t3988 = t2344 * t3985;
7115   t3990 = 0.1e1 / t704;
7116   t3991 = t3990 * t722;
7117   t3998 = 0.832e0 * t3986 + 0.832e0 * t3988 + 0.24560e-1 * t3991 * t1055 + 0.24560e-1 * t2344 * sigma[2] * t3990 * t79;
7118   t3999 = t70 * t3998;
7119   t4000 = t18 * t3999;
7120   t4002 = 0.3e1 / 0.32e2 * t67 * t4000;
7121   t4006 = 0.1e1 / t73 / t711;
7122   t4008 = t82 * t4006 * t184;
7123   t4017 = -0.11336e2 * t3986 - 0.11336e2 * t3988 - 0.491928e1 * t2344 * t4008 - 0.2453256e2 * t2449 * t4008 - 0.3590448e2 * t2461 * t4008 - 0.1629120e2 * t2472 * t4008;
7124   t4018 = t180 * t4017;
7125   t4020 = 0.15545350000000000000e-1 * t166 * t4018;
7126   t4023 = t1090 * t1090;
7127   t4026 = t1087 * t1087;
7128   t4027 = t307 * t4026;
7129   t4030 = t3402 * t1090;
7130   t4036 = -0.5070e1 * t3391 * t1090 + 0.5070e1 * t1764 * t4023 - 0.34705800000000000000e-3 * t1764 * t4027 + 0.10411740000000000000e-2 * t1775 * t4030 - 0.69411600000000000000e-3 * t1812 * t307 * t4023;
7131   t4037 = t275 * t4036;
7132   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
7133     v2tau2[2] = t3 * (-t4002 - t4020 + t4037);
7134 
7135 #ifndef XC_DONT_COMPILE_KXC
7136 
7137   if(order < 3) return;
7138 
7139 
7140   t4045 = t1198 / 0.16e2;
7141   t4047 = t1203 / 0.16e2;
7142   t4048 = t1134 * t346;
7143   t4051 = t1134 * tau[0];
7144   t4052 = t4051 * t1285;
7145   t4053 = t148 * sigma[0];
7146   t4054 = t4053 * t30;
7147   t4057 = t1134 * t1293;
7148   t4058 = t355 * t33;
7149   t4059 = t4058 * t40;
7150   t4062 = tau[0] * t1154;
7151   t4066 = 0.1e1 / t23 / t344;
7152   t4067 = t33 * t4066;
7153   t4068 = t4067 * t40;
7154   t4071 = tau[0] * t1160;
7155   t4074 = 0.1e1 / t1291;
7156   t4075 = t343 * t4074;
7157   t4076 = t4075 * t349;
7158   t4079 = tau[0] * t1182;
7159   t4080 = t55 * t343;
7160   t4081 = t4080 * t349;
7161   t4084 = t344 * t35;
7162   t4086 = 0.1e1 / t24 / t4084;
7163   t4087 = t1179 * t4086;
7164   t4088 = t4087 * t1185;
7165   t4092 = 0.1e1 / t24 / t35;
7166   t4093 = sigma[0] * t4092;
7167   t4094 = t4093 * t30;
7168   t4097 = t53 * t154;
7169   t4098 = t4097 * sigma[0];
7170   t4099 = t1285 * t30;
7171   t4100 = t4099 * t4051;
7172   t4103 = t1293 * t40;
7173   t4104 = t4103 * t1134;
7174   t4107 = t356 * t343;
7175   t4109 = t1182 * t349 * tau[0];
7176   t4112 = -0.10915555555555555556e1 * t4048 * t1169 + 0.34111111111111111112e0 * t4052 * t4054 + 0.21831111111111111112e-2 * t4057 * t4059 + 0.12370962962962962963e1 * t4062 * t361 + 0.99258785185185185185e-2 * t56 * t4068 - 0.76408888888888888892e-2 * t4071 * t1174 - 0.53093262222222222225e-4 * t56 * t4076 + 0.13971911111111111112e-4 * t4079 * t4081 + 0.89420231111111111120e-7 * t56 * t4088 - 0.56033185185185185185e0 * t56 * t4094 + 0.34111111111111111112e0 * t4098 * t4100 + 0.21831111111111111112e-2 * t1312 * t4104 + 0.13971911111111111112e-4 * t4107 * t4109;
7177   t4113 = t346 * t30;
7178   t4114 = t4113 * t1134;
7179   t4122 = t1154 * t30 * tau[0];
7180   t4125 = t1134 * t339;
7181   t4126 = t4125 * t355;
7182   t4128 = t4051 * t455;
7183   t4129 = t4128 * t148;
7184   t4131 = tau[0] * t1126;
7185   t4132 = t4131 * t55;
7186   t4138 = t1179 * sigma[0];
7187   t4139 = t344 * t344;
7188   t4141 = 0.1e1 / t23 / t4139;
7189   t4142 = t4138 * t4141;
7190   t4144 = 0.1e1 / t1184 / t29;
7191   t4147 = t1133 * t4125;
7192   t4149 = t356 * t4131;
7193   t4151 = t4097 * t4128;
7194   t4153 = -0.10915555555555555556e1 * t1138 * t4114 - 0.76408888888888888892e-2 * t1143 * t1160 * t40 * tau[0] + 0.12370962962962962963e1 * t364 * t4122 - 0.18488888888888888889e2 * t4126 + 0.11555555555555555556e2 * t4129 + 0.67792592592592592593e1 * t4132 - 0.23873422222222222222e0 * t4094 - 0.33051496296296296297e-2 * t4068 + 0.92302070518518518523e-4 * t4076 - 0.52252945066666666671e-6 * t4088 + 0.88593021155555555565e-9 * t4142 * t4144 - 0.18488888888888888889e2 * t4147 + 0.67792592592592592593e1 * t4149 + 0.11555555555555555556e2 * t4151;
7195   t4154 = t4112 + t4153;
7196   t4155 = t21 * t4154;
7197   t4156 = t18 * t4155;
7198   t4157 = t14 * t4156;
7199   t4158 = 0.3e1 / 0.32e2 * t4157;
7200   t4159 = t316 * t1202;
7201   t4160 = t4159 / 0.16e2;
7202   t4161 = t1415 * t61;
7203   t4162 = t14 * t4161;
7204   t4163 = 0.5e1 / 0.144e3 * t4162;
7205   t4164 = t380 * t1197;
7206   t4165 = t4164 / 0.16e2;
7207   t4166 = t1415 * t103;
7208   t4167 = t67 * t4166;
7209   t4168 = 0.5e1 / 0.144e3 * t4167;
7210   t4169 = t431 * t374;
7211   t4170 = t14 * t4169;
7212   t4171 = t4170 / 0.16e2;
7213   t4172 = t1108 * t383;
7214   t4174 = t1113 * t319;
7215   t4176 = t316 * t1118;
7216   t4178 = t1248 * t7;
7217   t4179 = t4178 * t13;
7218   t4180 = t1249 * t314;
7219   t4181 = t1757 * t4180;
7220   t4183 = t4179 * t18 * t4181;
7221   t4184 = t4183 / 0.8e1;
7222   t4186 = t1359 * t7;
7223   t4187 = t4186 * t13;
7224   t4188 = t1360 * t378;
7225   t4189 = t1447 * t4188;
7226   t4191 = t4187 * t18 * t4189;
7227   t4192 = t4191 / 0.8e1;
7228   t4193 = t497 * t1212;
7229   t4194 = t4193 * t1218;
7230   t4195 = 0.48245938496077605201e2 * t4194;
7231   t4196 = t1379 * t417;
7232   t4197 = t4196 * t442;
7233   t4198 = 0.15000000000000000000e1 * t4197;
7234   t4199 = t1387 * t1464;
7235   t4200 = 0.30000000000000000000e1 * t4199;
7236   t4201 = t482 * t1212;
7237   t4202 = t4201 * t1218;
7238   t4203 = 0.48245938496077605201e2 * t4202;
7239   t4204 = t1205 * t1507;
7240   t4205 = 0.15000000000000000000e1 * t4204;
7241   t4206 = t1457 * t478;
7242   t4207 = t1454 * t4206;
7243   t4208 = 0.48245938496077605201e2 * t4207;
7244   t4209 = t395 * t1453;
7245   t4210 = t4209 * t1458;
7246   t4211 = 0.48245938496077605201e2 * t4210;
7247   t4212 = t497 * t1230;
7248   t4213 = t4212 * t1233;
7249   t4214 = 0.30000000000000000000e1 * t4213;
7250   t4216 = 0.1e1 / t1211 / t176;
7251   t4217 = t166 * t4216;
7252   t4218 = t1214 * t520;
7253   t4219 = t4218 * t1216;
7254   t4220 = t4219 * t202;
7255   t4221 = t4217 * t4220;
7256   t4222 = 0.96491876992155210402e2 * t4221;
7257   t4223 = t413 * t1453;
7258   t4224 = t4223 * t1458;
7259   t4225 = 0.48245938496077605201e2 * t4224;
7260   t4226 = t4192 + t4195 + t4198 + t4200 + t4203 + t4205 + t4208 + t4211 - t4214 - t4222 + t4225;
7261   t4228 = t1432 * t478;
7262   t4229 = t418 * t4228;
7263   t4230 = 0.15000000000000000000e1 * t4229;
7264   t4231 = t482 * t1230;
7265   t4232 = t4231 * t1233;
7266   t4233 = 0.30000000000000000000e1 * t4232;
7267   t4234 = t60 * t1111;
7268   t4235 = t4234 * t314;
7269   t4237 = t2256 * t2257 * t4235;
7270   t4238 = t4237 / 0.8e1;
7271   t4239 = t1248 * t314;
7272   t4240 = t4239 * t1111;
7273   t4241 = t1421 * t4240;
7274   t4244 = t1255 * t314;
7275   t4245 = t4244 * t1111;
7276   t4246 = t435 * t4245;
7277   t4249 = t1246 * t4240;
7278   t4250 = t207 * t4249;
7279   t4252 = t405 * t4245;
7280   t4253 = t207 * t4252;
7281   t4255 = t1641 * t436;
7282   t4257 = t545 * t1428;
7283   t4259 = t545 * t1422;
7284   t4261 = t16 * t1756;
7285   t4263 = 0.1e1 / t1247 / t406;
7286   t4264 = t4263 * t4180;
7287   t4265 = t4261 * t4264;
7288   t4268 = t2 * t229;
7289   t4270 = 0.6e1 * t1103 - 0.6e1 * t4268;
7290   t4271 = t407 * t4270;
7291   t4272 = t435 * t4271;
7292   t4275 = t545 * t1425;
7293   t4278 = 0.1e1 / t1247 / t6;
7294   t4279 = t4278 * t4180;
7295   t4280 = t1421 * t4279;
7296   t4283 = t1248 * t4180;
7297   t4284 = t435 * t4283;
7298   t4287 = t1632 * t409;
7299   t4289 = t538 * t1251;
7300   t4291 = -0.10419500000000000000e0 * t216 * t4241 + 0.62517000000000000000e0 * t216 * t4246 - 0.10329500000000000000e1 * t4250 + 0.30988500000000000000e1 * t4253 - 0.34731666666666666667e0 * t4255 + 0.20839000000000000000e0 * t4257 + 0.69463333333333333335e-1 * t4259 - 0.46308888888888888889e-1 * t216 * t4265 - 0.10419500000000000000e0 * t216 * t4272 - 0.41678000000000000001e0 * t4275 + 0.20839000000000000000e0 * t216 * t4280 - 0.62517000000000000000e0 * t216 * t4284 - 0.68863333333333333332e0 * t4287 + 0.34431666666666666666e0 * t4289;
7301   t4292 = t538 * t1257;
7302   t4294 = t538 * t1261;
7303   t4297 = 0.1e1 / t128 / t407;
7304   t4298 = t15 * t4297;
7305   t4299 = t4298 * t4264;
7306   t4300 = t207 * t4299;
7307   t4302 = t1246 * t4279;
7308   t4303 = t207 * t4302;
7309   t4305 = t405 * t4283;
7310   t4306 = t207 * t4305;
7311   t4308 = t405 * t4271;
7312   t4309 = t207 * t4308;
7313   t4313 = 0.1e1 / t116 / t130 / 0.4e1;
7314   t4314 = t1392 * t421;
7315   t4317 = 0.1e1/POW_3_2(t112);
7316   t4320 = t1927 * t15;
7317   t4322 = t108 * t4320 * t20;
7318   t4323 = 0.28e2 / 0.27e2 * t4322;
7319   t4334 = -t4323 - 0.4e1 / 0.9e1 * t4287 + 0.2e1 / 0.9e1 * t4289 - 0.2e1 / 0.3e1 * t4292 + t4294 / 0.3e1 - 0.10e2 / 0.27e2 * t4300 + 0.4e1 / 0.3e1 * t4303 - 0.2e1 / 0.3e1 * t4250 - 0.2e1 * t4306 + 0.2e1 * t4253 - t4309 / 0.3e1;
7320   t4339 = 0.16068111111111111111e1 * t4322;
7321   t4340 = t1957 * t16;
7322   t4343 = 0.46308888888888888888e0 * t124 * t4340 * t128;
7323   t4350 = -0.10329500000000000000e1 * t4292 + 0.51647499999999999999e0 * t4294 - 0.57386111111111111112e0 * t4300 + 0.20659000000000000000e1 * t4303 - 0.30988500000000000000e1 * t4306 - 0.51647500000000000000e0 * t4309 + 0.26472937500000000000e1 * t4313 * t4314 - 0.15779062500000000000e0 * t4317 * t4314 + 0.35297250000000000000e1 * t419 * t4334 + 0.63116250000000000000e0 * t426 * t4334 - t4339 - t4343 + 0.94674375000000000000e0 * t1408 * t421 * t1400 - 0.52945875000000000000e1 * t1391 * t421 * t1400;
7324   t4351 = t4291 + t4350;
7325   t4352 = t4351 * t440;
7326   t4353 = t4352 * t158;
7327   t4354 = t418 * t4353;
7328   t4355 = 0.50000000000000000001e0 * t4354;
7329   t4357 = 0.1e1 / t1452 / t416;
7330   t4358 = t115 * t4357;
7331   t4359 = t1224 * t439;
7332   t4361 = 0.1e1 / t1455 / t135;
7333   t4362 = t4359 * t4361;
7334   t4363 = t4362 * t158;
7335   t4364 = t4358 * t4363;
7336   t4365 = 0.10345202583854680060e4 * t4364;
7337   t4366 = t439 * t1456;
7338   t4367 = t158 * t1431;
7339   t4368 = t4366 * t4367;
7340   t4369 = t1454 * t4368;
7341   t4370 = 0.48245938496077605201e2 * t4369;
7342   t4371 = t202 * t1505;
7343   t4372 = t522 * t4371;
7344   t4373 = t1231 * t4372;
7345   t4374 = 0.30000000000000000000e1 * t4373;
7346   t4375 = t441 * t4367;
7347   t4376 = t1223 * t4375;
7348   t4377 = 0.30000000000000000000e1 * t4376;
7349   t4378 = t520 * t1216;
7350   t4379 = t4378 * t4371;
7351   t4380 = t1213 * t4379;
7352   t4381 = 0.48245938496077605201e2 * t4380;
7353   t4382 = t1382 * t417;
7354   t4383 = t4382 * t442;
7355   t4384 = 0.30000000000000000000e1 * t4383;
7356   t4385 = t1343 * t501;
7357   t4386 = t4385 * t523;
7358   t4387 = 0.15000000000000000000e1 * t4386;
7359   t4388 = t4230 - t4233 - t4238 + t4355 + t4365 + t4370 - t4374 - t4377 + t4381 + t4384 + t4387;
7360   t4389 = t4359 * t440;
7361   t4390 = t4389 * t158;
7362   t4391 = t1454 * t4390;
7363   t4392 = 0.30000000000000000000e1 * t4391;
7364   t4393 = -t4270;
7365   t4395 = t4393 * t7 * t13;
7366   t4396 = t4395 * t104;
7367   t4397 = 0.3e1 / 0.32e2 * t4396;
7368   t4399 = t4270 * t7 * t13;
7369   t4400 = t4399 * t62;
7370   t4401 = 0.3e1 / 0.32e2 * t4400;
7371   t4402 = t1113 * t375;
7372   t4403 = 0.9e1 / 0.32e2 * t4402;
7373   t4404 = t316 * t1192;
7374   t4405 = 0.9e1 / 0.32e2 * t4404;
7375   t4406 = t127 * t1191;
7376   t4407 = t14 * t4406;
7377   t4409 = t1575 * t610;
7378   t4411 = 0.21687162600603479684e-1 * t1734 * t4409;
7379   t4412 = t526 * t1728;
7380   t4414 = 0.16265371950452609763e-1 * t1734 * t4412;
7381   t4415 = t558 * t1560;
7382   t4417 = t553 * t1526;
7383   t4419 = t558 * t1526;
7384   t4421 = t553 * t1560;
7385   t4423 = t1525 * t598;
7386   t4424 = t230 * t4423;
7387   t4427 = 0.1e1 / t1512 / t6;
7388   t4430 = t1513 * t314;
7389   t4436 = 0.1e1 / t1518 / t65;
7390   t4439 = t1519 * t378;
7391   t4445 = (-0.8e1 / 0.27e2 * t4427 * t4180 + 0.4e1 / 0.3e1 * t4430 * t1111 + 0.4e1 / 0.3e1 * t231 * t4270 - 0.8e1 / 0.27e2 * t4436 * t4188 + 0.4e1 / 0.3e1 * t4439 * t1106 + 0.4e1 / 0.3e1 * t233 * t4393) * t238;
7392   t4446 = t4445 * t266;
7393   t4449 = 0.1e1 / t228 / t1102;
7394   t4450 = t226 * t4449;
7395   t4452 = 0.120e3 * t4450 * t267;
7396   t4454 = 0.60e2 * t1565 * t599;
7397   t4456 = 0.24e2 * t4268 * t267;
7398   t4457 = t230 * t4446 - t4411 + t4414 - 0.24e2 * t4415 + 0.12e2 * t4417 - 0.12e2 * t4419 + 0.24e2 * t4421 + 0.3e1 * t4424 - t4452 + t4454 + t4456;
7399   t4458 = t225 * t557;
7400   t4459 = t4458 * t267;
7401   t4460 = 0.144e3 * t4459;
7402   t4461 = t552 * t1564;
7403   t4462 = t4461 * t267;
7404   t4463 = 0.240e3 * t4462;
7405   t4464 = t1568 * t599;
7406   t4465 = 0.36e2 * t4464;
7407   t4466 = t1565 * t566;
7408   t4468 = t1555 * t599;
7409   t4469 = 0.96e2 * t4468;
7410   t4470 = t1568 * t566;
7411   t4472 = t1555 * t566;
7412   t4474 = t1672 * t1680;
7413   t4477 = 0.48245938496077605201e2 * t1678 * t4474 * t547;
7414   t4483 = t4357 * t4359 * t4361;
7415   t4486 = -t4460 + t4463 + t4465 + 0.60e2 * t4466 - t4469 + 0.36e2 * t4470 - 0.96e2 * t4472 + t4477 - 0.48245938496077605201e2 * t395 * t1584 - 0.48245938496077605201e2 * t413 * t1584 - 0.10345202583854680060e4 * t115 * t4483;
7416   t4491 = 0.1e1 / t1452 / t132;
7417   t4493 = t4491 * t4359 * t1456;
7418   t4514 = 0.30000000000000000000e1 * t413 * t1580 + 0.96491876992155210402e2 * t115 * t4493 + 0.30000000000000000000e1 * t395 * t1580 - 0.15000000000000000000e1 * t1343 * t626 - 0.30000000000000000000e1 * t1346 * t626 - 0.15000000000000000000e1 * t1376 * t626 - 0.15000000000000000000e1 * t1379 * t618 - 0.30000000000000000000e1 * t1382 * t618 - 0.15000000000000000000e1 * t1265 * t618 + 0.30000000000000000000e1 * t482 * t1572 + 0.30000000000000000000e1 * t497 * t1572;
7419   t4516 = t4216 * t4218 * t1216;
7420   t4521 = 0.60000000000000000000e1 * t1661 * t549 * t1672;
7421   t4522 = t1731 * t1728;
7422   t4525 = t1453 * t4359 * t440;
7423   t4529 = t1212 * t4218 * t521;
7424   t4532 = t1542 * t593;
7425   t4534 = t1541 * t4532 * t594;
7426   t4536 = 0.35089341735807877242e1 * t608 * t4534;
7427   t4538 = t1550 * t593 * t1702;
7428   t4540 = 0.35089341735807877242e1 * t608 * t4538;
7429   t4541 = t1724 * t1721;
7430   t4545 = 0.34450798614814814813e-2 * t107 * t1928 * t222;
7431   t4546 = t1525 * t7;
7432   t4547 = t4546 * t605;
7433   t4550 = t13 * t1927 * t263;
7434   t4552 = 0.56968947174242584612e-3 * t603 * t4550;
7435   t4553 = 0.96491876992155210402e2 * t166 * t4516 - t4521 - 0.17544670867903938621e1 * t4522 - 0.30000000000000000000e1 * t115 * t4525 - 0.30000000000000000000e1 * t166 * t4529 - t4536 + t4540 + 0.73245789224026180216e-3 * t4541 + t4545 - 0.54934341918019635162e-3 * t4547 - t4552;
7436   t4559 = 0.10685000000000000000e0 * t108 * t399 * t1660 * t1663;
7437   t4560 = t1541 * t593;
7438   t4561 = t1545 * t1701;
7439   t4562 = t4560 * t4561;
7440   t4564 = 0.51947577317044391277e2 * t608 * t4562;
7441   t4568 = 0.1e1 / t1676 / t530;
7442   t4569 = t209 * t4568;
7443   t4570 = t1662 * t547;
7444   t4572 = 0.1e1 / t1679 / t221;
7445   t4573 = t4570 * t4572;
7446   t4575 = 0.51726012919273400301e3 * t4569 * t4573;
7447   t4576 = t522 * t1505;
7448   t4579 = t1731 * t1546;
7449   t4582 = 0.1e1 / t1540 / t259;
7450   t4584 = t4582 * t4532 * t1545;
7451   t4586 = 0.10389515463408878255e3 * t608 * t4584;
7452   t4587 = t1731 * t1552;
7453   t4595 = t4559 - t4564 + 0.19751673498613801407e-1 * t4445 * t264 + t4575 + 0.30000000000000000000e1 * t1231 * t4576 - 0.51947577317044391276e2 * t4579 + t4586 + 0.35089341735807877242e1 * t4587 - 0.15000000000000000000e1 * t482 * t1593 - 0.48245938496077605201e2 * t482 * t1597 - 0.15000000000000000000e1 * t497 * t1593;
7454   t4598 = t1641 * t517;
7455   t4600 = t545 * t1502;
7456   t4602 = t545 * t1496;
7457   t4604 = t16 * t1446;
7458   t4606 = 0.1e1 / t1358 / t490;
7459   t4607 = t4606 * t4188;
7460   t4608 = t4604 * t4607;
7461   t4611 = t491 * t4393;
7462   t4612 = t516 * t4611;
7463   t4615 = t1632 * t493;
7464   t4617 = t538 * t1362;
7465   t4619 = t538 * t1368;
7466   t4621 = t538 * t1372;
7467   t4624 = 0.1e1 / t172 / t491;
7468   t4625 = t15 * t4624;
7469   t4626 = t4625 * t4607;
7470   t4627 = t207 * t4626;
7471   t4630 = 0.1e1 / t1358 / t65;
7472   t4631 = t4630 * t4188;
7473   t4632 = t1357 * t4631;
7474   t4633 = t207 * t4632;
7475   t4635 = t1359 * t4188;
7476   t4636 = t489 * t4635;
7477   t4637 = t207 * t4636;
7478   t4639 = t489 * t4611;
7479   t4640 = t207 * t4639;
7480   t4642 = t545 * t1499;
7481   t4644 = -0.34731666666666666667e0 * t4598 + 0.20839000000000000000e0 * t4600 + 0.69463333333333333335e-1 * t4602 - 0.46308888888888888889e-1 * t216 * t4608 - 0.10419500000000000000e0 * t216 * t4612 - 0.68863333333333333332e0 * t4615 + 0.34431666666666666666e0 * t4617 - 0.10329500000000000000e1 * t4619 + 0.51647499999999999999e0 * t4621 - 0.57386111111111111112e0 * t4627 + 0.20659000000000000000e1 * t4633 - 0.30988500000000000000e1 * t4637 - 0.51647500000000000000e0 * t4640 - 0.41678000000000000001e0 * t4642;
7482   t4645 = t1495 * t4631;
7483   t4648 = t516 * t4635;
7484   t4651 = t1359 * t378;
7485   t4652 = t4651 * t1106;
7486   t4653 = t1495 * t4652;
7487   t4656 = t1366 * t378;
7488   t4657 = t4656 * t1106;
7489   t4658 = t516 * t4657;
7490   t4661 = t1357 * t4652;
7491   t4662 = t207 * t4661;
7492   t4664 = t489 * t4657;
7493   t4665 = t207 * t4664;
7494   t4669 = 0.46308888888888888888e0 * t124 * t4340 * t172;
7495   t4671 = t108 * t4320 * t69;
7496   t4672 = 0.16068111111111111111e1 * t4671;
7497   t4673 = 0.28e2 / 0.27e2 * t4671;
7498   t4684 = -t4673 - 0.4e1 / 0.9e1 * t4615 + 0.2e1 / 0.9e1 * t4617 - 0.2e1 / 0.3e1 * t4619 + t4621 / 0.3e1 - 0.10e2 / 0.27e2 * t4627 + 0.4e1 / 0.3e1 * t4633 - 0.2e1 / 0.3e1 * t4662 - 0.2e1 * t4637 + 0.2e1 * t4665 - t4640 / 0.3e1;
7499   t4689 = 0.1e1/POW_3_2(t163);
7500   t4690 = t1469 * t505;
7501   t4695 = 0.1e1 / t167 / t174 / 0.4e1;
7502   t4698 = t1468 * t505;
7503   t4701 = t1485 * t505;
7504   t4704 = 0.20839000000000000000e0 * t216 * t4645 - 0.62517000000000000000e0 * t216 * t4648 - 0.10419500000000000000e0 * t216 * t4653 + 0.62517000000000000000e0 * t216 * t4658 - 0.10329500000000000000e1 * t4662 + 0.30988500000000000000e1 * t4665 - t4669 - t4672 + 0.35297250000000000000e1 * t503 * t4684 + 0.63116250000000000000e0 * t510 * t4684 - 0.15779062500000000000e0 * t4689 * t4690 + 0.26472937500000000000e1 * t4695 * t4690 - 0.52945875000000000000e1 * t4698 * t1477 + 0.94674375000000000000e0 * t4701 * t1477;
7505   t4705 = t4644 + t4704;
7506   t4707 = t501 * t4705 * t521;
7507   t4711 = 0.1e1 / t1211 / t500;
7508   t4714 = 0.1e1 / t1215 / t179;
7509   t4715 = t4711 * t4218 * t4714;
7510   t4723 = t417 * t4351 * t440;
7511   t4726 = t553 * t1710;
7512   t4727 = 0.12e2 * t4726;
7513   t4729 = 0.12e2 * t558 * t1710;
7514   t4730 = t565 * t1709;
7515   t4731 = t230 * t4730;
7516   t4733 = t1618 * t578;
7517   t4734 = t4733 * t579;
7518   t4741 = 0.1e1 / t1647 / t571;
7519   t4742 = t241 * t4741;
7520   t4744 = 0.1e1 / t1650 / t249;
7521   t4745 = t4733 * t4744;
7522   t4749 = 0.1e1 / t1647 / t246;
7523   t4750 = t241 * t4749;
7524   t4751 = t4733 * t1651;
7525   t4754 = t1643 * t1651;
7526   t4764 = t4570 * t548;
7527   t4766 = 0.60000000000000000000e1 * t1678 * t4764;
7528   t4770 = 0.1e1 / t210 / t216 * t9 / 0.4e1;
7529   t4771 = t4770 * t229;
7530   t4773 = t1625 * t1957;
7531   t4774 = t1624 * t4773;
7532   t4776 = t13 * t1927;
7533   t4777 = t534 * t4776;
7534   t4780 = 0.1e1/POW_3_2(t207);
7535   t4781 = t4780 * t9;
7536   t4782 = t4781 * t229;
7537   t4784 = t1635 * t4773;
7538   t4786 = t541 * t4776;
7539   t4789 = -0.47063000000000000000e1 * t4771 + 0.31375333333333333334e1 * t4774 - 0.36604555555555555556e1 * t4777 - 0.16068111111111111111e1 * t1929 + 0.28051666666666666666e0 * t4782 - 0.56103333333333333332e0 * t4784 - 0.65453888888888888890e0 * t4786 - 0.46308888888888888888e0 * t1959;
7540   t4790 = t4789 * t579;
7541   t4793 = t4532 * t594;
7542   t4796 = t595 * t1701;
7543   t4799 = 0.60000000000000000000e1 * t1649 * t4734 - t4477 + t4521 + 0.56968947174242584612e-3 * t107 * t1928 * t263 - t4545 - t4559 - t4575 + 0.20690405167709360120e4 * t4742 * t4745 - 0.19298375398431042081e3 * t4750 * t4751 + 0.96491876992155210402e2 * t1649 * t4754 * t578 + 0.16562821945185185185e-2 * t107 * t1928 * t250 - 0.60000000000000000000e1 * t1617 * t580 * t1643 - t4766 + 0.10000000000000000000e1 * t573 * t4790 + 0.35089341735807877242e1 * t1705 * t4793 - 0.35089341735807877242e1 * t1691 * t4796;
7544   t4800 = t4561 * t593;
7545   t4811 = -0.34523333333333333333e1 * t4771 + 0.23015555555555555556e1 * t4774 - 0.26851481481481481482e1 * t4777 - 0.93932222222222222223e0 * t1929 + 0.73355000000000000000e-1 * t4782 - 0.14671000000000000000e0 * t4784 - 0.17116166666666666667e0 * t4786 - 0.36793333333333333333e0 * t1959;
7546   t4812 = t4811 * t594;
7547   t4816 = 0.1e1 / t1676 / t218;
7548   t4817 = t209 * t4816;
7549   t4818 = t4570 * t1680;
7550   t4820 = 0.96491876992155210402e2 * t4817 * t4818;
7551   t4829 = -0.25319000000000000000e1 * t4771 + 0.16879333333333333333e1 * t4774 - 0.19692555555555555555e1 * t4777 - 0.93011851851851851854e0 * t1929 + 0.13651666666666666667e0 * t4782 - 0.27303333333333333333e0 * t4784 - 0.31853888888888888890e0 * t4786 - 0.36514074074074074075e0 * t1959;
7552   t4830 = t4829 * t548;
7553   t4832 = 0.10000000000000000000e1 * t532 * t4830;
7554   t4834 = 0.1e1 / t1540 / t586;
7555   t4835 = t254 * t4834;
7556   t4837 = 0.1e1 / t1544 / t262;
7557   t4838 = t4532 * t4837;
7558   t4841 = t254 * t4582;
7559   t4842 = t4532 * t1545;
7560   t4845 = t399 * t1550;
7561   t4853 = t1237 * t587;
7562   t4860 = t399 * t1541;
7563   t4864 = t399 * t1677;
7564   t4867 = 0.85917975471764868594e0 * t108 * t4864 * t1681;
7565   t4868 = t1237 * t531;
7566   t4871 = 0.71233333333333333332e-1 * t108 * t4868 * t549;
7567   t4874 = 0.53424999999999999999e-1 * t108 * t1655 * t1673;
7568   t4875 = t1237 * t572;
7569   t4882 = t399 * t1648;
7570   t4886 = 0.51947577317044391277e2 * t1705 * t4800 + 0.58482236226346462070e0 * t588 * t4812 + t4820 - t4832 + 0.10254018858216406658e4 * t4835 * t4838 - 0.10389515463408878255e3 * t4841 * t4842 + 0.32530743900905219526e-1 * t108 * t4845 * t1692 + 0.10274000000000000000e0 * t108 * t399 * t1616 * t1619 + 0.21687162600603479684e-1 * t108 * t4853 * t595 - 0.16265371950452609763e-1 * t108 * t1687 * t1702 - 0.48159733137676571078e0 * t108 * t4860 * t1706 + t4867 - t4871 + t4874 + 0.68493333333333333332e-1 * t108 * t4875 * t580 - 0.51369999999999999999e-1 * t108 * t1611 * t1644 - 0.16522625736956710527e1 * t108 * t4882 * t1652;
7571   t4887 = t4799 + t4886;
7572   t4888 = t239 * t4887;
7573   t4889 = t230 * t4888;
7574   t4890 = -0.48245938496077605201e2 * t497 * t1597 - 0.50000000000000000001e0 * t166 * t4707 - 0.10345202583854680060e4 * t166 * t4715 - 0.15000000000000000000e1 * t395 * t1605 - 0.15000000000000000000e1 * t413 * t1605 - 0.50000000000000000001e0 * t115 * t4723 + t4727 - t4729 + 0.3e1 * t4731 + t4889 + t4766;
7575   t4892 = t526 * t1546;
7576   t4894 = 0.48159733137676571078e0 * t1734 * t4892;
7577   t4895 = t565 * t107;
7578   t4896 = t4895 * t1735;
7579   t4898 = t526 * t1552;
7580   t4900 = 0.32530743900905219526e-1 * t1734 * t4898;
7581   t4901 = 0.53272592592592592592e-1 * t4322;
7582   t4912 = -t4901 - 0.22831111111111111110e-1 * t4287 + 0.11415555555555555555e-1 * t4289 - 0.34246666666666666665e-1 * t4292 + 0.17123333333333333333e-1 * t4294 - 0.19025925925925925925e-1 * t4300 + 0.68493333333333333331e-1 * t4303 - 0.34246666666666666665e-1 * t4250 - 0.10274000000000000000e0 * t4306 + 0.10274000000000000000e0 * t4253 - 0.17123333333333333333e-1 * t4309;
7583   t4913 = t6 * t4912;
7584   t4916 = t378 * t1375;
7585   t4919 = 0.53272592592592592592e-1 * t4671;
7586   t4930 = -t4919 - 0.22831111111111111110e-1 * t4615 + 0.11415555555555555555e-1 * t4617 - 0.34246666666666666665e-1 * t4619 + 0.17123333333333333333e-1 * t4621 - 0.19025925925925925925e-1 * t4627 + 0.68493333333333333331e-1 * t4633 - 0.34246666666666666665e-1 * t4662 - 0.10274000000000000000e0 * t4637 + 0.10274000000000000000e0 * t4665 - 0.17123333333333333333e-1 * t4640;
7587   t4931 = t65 * t4930;
7588   t4934 = -t4820 + t4832 - t4867 + t4871 - t4874 + t4894 + 0.32530743900905219526e-1 * t4896 - t4900 + 0.15545350000000000000e-1 * t4913 * t136 + 0.46636050000000000000e-1 * t4916 * t180 + 0.15545350000000000000e-1 * t4931 * t180;
7589   t4935 = t4270 * t114;
7590   t4938 = t1111 * t412;
7591   t4941 = t314 * t1264;
7592   t4944 = t4393 * t165;
7593   t4947 = t1106 * t496;
7594   t4950 = t441 * t1431;
7595   t4953 = t4366 * t1431;
7596   t4956 = t1525 * t254;
7597   t4957 = t4956 * t610;
7598   t4960 = t587 * t4811 * t594;
7599   t4962 = 0.58482236226346462070e0 * t608 * t4960;
7600   t4964 = t4834 * t4532 * t4837;
7601   t4966 = 0.10254018858216406658e4 * t608 * t4964;
7602   t4967 = t1505 * t1216;
7603   t4968 = t4967 * t520;
7604   t4971 = 0.15545350000000000000e-1 * t4935 * t136 + 0.46636050000000000000e-1 * t4938 * t136 + 0.46636050000000000000e-1 * t4941 * t136 + 0.15545350000000000000e-1 * t4944 * t180 + 0.46636050000000000000e-1 * t4947 * t180 + 0.30000000000000000000e1 * t1223 * t4950 - 0.48245938496077605201e2 * t1454 * t4953 - 0.17544670867903938621e1 * t4957 - t4962 - t4966 - 0.48245938496077605201e2 * t1213 * t4968;
7605   t4974 = t4457 + t4486 + t4514 + t4553 + t4595 + t4890 + t4934 + t4971;
7606   t4975 = t4974 * t310;
7607   t4976 = t629 * t1859;
7608   t4977 = 0.3e1 * t4976;
7609   t4978 = t1739 * t676;
7610   t4979 = 0.3e1 * t4978;
7611   t4981 = 0.1e1 / t660 / t302;
7612   t4982 = t301 * t4981;
7613   t4983 = t1765 * t653;
7614   t4988 = 0.44e2 / 0.9e1 * t48 * t4131;
7615   t4990 = 0.880e3 / 0.27e2 * t4131 * t94;
7616   t4991 = -t4988 + t4990;
7617   t4995 = t4075 * t287;
7618   t4998 = -t4988 - t4990;
7619   t5002 = t4067 * t306;
7620   t5005 = t1774 * t636;
7621   t5006 = t653 * sigma[0];
7622   t5007 = t333 * t648;
7623   t5008 = t5006 * t5007;
7624   t5011 = t1774 * t633;
7625   t5014 = t276 * t640;
7626   t5017 = t283 * t1801;
7627   t5021 = 0.1e1 / t639 / t285;
7628   t5022 = t284 * t5021;
7629   t5031 = t1820 * t653;
7630   t5034 = 0.34705800000000000000e-2 * t4982 * t307 * t4983 - 0.17352900000000000000e-3 * t656 * t307 * t4991 - 0.39487488000000000000e-4 * t305 * t4995 + 0.17352900000000000000e-3 * t662 * t307 * t4998 + 0.90492160000000000000e-2 * t305 * t5002 + 0.49976352000000000000e-4 * t5005 * t5008 - 0.16658784000000000000e-1 * t5011 * t5008 - 0.50788454400000000000e-6 * t5014 * t4075 + 0.31342878720000000000e-8 * t5017 * t4075 - 0.52238131200000000000e-11 * t5022 * t4075 + 0.73163904000000000000e-4 * t1794 * t4067 - 0.71827430400000000000e-6 * t1797 * t4067 + 0.14365486080000000000e-8 * t1802 * t4067 + 0.15210e2 * t1764 * t5031;
7631   t5037 = t300 * t1811;
7632   t5038 = t5037 * t283;
7633   t5045 = t656 * t33;
7634   t5046 = t1154 * t306;
7635   t5047 = t5046 * t648;
7636   t5050 = t295 * t661;
7637   t5051 = t5050 * t283;
7638   t5052 = t306 * t1806;
7639   t5059 = t306 * t1827;
7640   t5069 = t640 * t343;
7641   t5073 = t1801 * t343;
7642   t5077 = t662 * t33;
7643   t5078 = t5046 * t653;
7644   t5081 = t1780 * t4066;
7645   t5084 = t667 * t4092;
7646   t5087 = 0.64597866666666666667e-3 * t633 * t4093 - 0.62470440000000000000e-2 * t5038 * t1776 * t1765 + 0.24432883200000000000e-6 * t671 * t1784 * t4066 - 0.74039040000000000000e-2 * t5045 * t5047 + 0.31235220000000000000e-2 * t5051 * t5052 * t653 - 0.10411740000000000000e-2 * t2153 * t1776 * t1827 + 0.15617610000000000000e-2 * t1775 * t5059 * t653 + 0.15617610000000000000e-2 * t1775 * t1776 * t1820 - 0.20823480000000000000e-2 * t2165 * t1840 * t1820 + 0.35538739200000000000e-6 * t666 * t5069 * t4074 - 0.71077478400000000000e-9 * t671 * t5073 * t4074 + 0.74039040000000000000e-2 * t5077 * t5078 - 0.10859059200000000000e-3 * t666 * t5081 + 0.52787093333333333333e-2 * t666 * t5084;
7647   t5092 = t1126 * t648;
7648   t5102 = t287 * t1827;
7649   t5106 = t640 * t648;
7650   t5110 = t1812 * t276;
7651   t5111 = t306 * t1765;
7652   t5118 = t287 * t1765;
7653   t5125 = t1764 * t276;
7654   t5129 = t287 * t1806;
7655   t5133 = t306 * t1820;
7656   t5140 = -0.15836128000000000000e-4 * t671 * t672 * t4092 + 0.30541104000000000000e-4 * t1853 * t672 * t5092 + 0.27764640000000000000e-2 * t1849 * t5059 * t334 + 0.88846848000000000000e-4 * t1849 * t1854 * t1155 - 0.83293920000000000000e-5 * t1853 * t5102 * t334 - 0.19990540800000000000e-6 * t1853 * t5106 * t1155 + 0.11105856000000000000e-1 * t5110 * t5111 * t334 + 0.10180368000000000000e-1 * t1839 * t1840 * t1127 - 0.33317568000000000000e-4 * t2165 * t5118 * t334 - 0.30541104000000000000e-4 * t1844 * t1845 * t1127 + 0.55529280000000000000e-2 * t5125 * t5052 * t334 - 0.16658784000000000000e-4 * t2153 * t5129 * t334 - 0.27764640000000000000e-2 * t1839 * t5133 * t334 - 0.88846848000000000000e-4 * t1839 * t1845 * t1155;
7657   t5141 = t287 * t1820;
7658   t5145 = t640 * t653;
7659   t5158 = t1806 * t648;
7660   t5159 = t5158 * t304;
7661   t5162 = t1827 * t651;
7662   t5175 = t648 * t304;
7663   t5178 = 0.83293920000000000000e-5 * t1844 * t5141 * t334 + 0.19990540800000000000e-6 * t1844 * t5145 * t1155 - 0.10180368000000000000e-1 * t1849 * t667 * t5092 + 0.2535e1 * t4991 * t297 + 0.23277408000000000000e-4 * t636 * t4093 - 0.69832224000000000000e-7 * t641 * t4093 - 0.34705800000000000000e-3 * t5159 * t307 - 0.7605e1 * t5162 * t653 - 0.7605e1 * t1836 * t1820 - 0.2535e1 * t652 * t4998 + 0.14515200000000000000e-4 * t4995 - 0.21532622222222222222e0 * t4093 * t280 - 0.15210e2 * t5050 * t4983 + 0.22147840000000000001e-2 * t5002 + 0.15210e2 * t5175 * t1765;
7664   t5180 = t5034 + t5087 + t5140 + t5178;
7665   t5181 = t275 * t5180;
7666   t5182 = t1461 * t1433;
7667   t5183 = 0.15000000000000000000e1 * t5182;
7668   t5184 = t4392 - t4397 - t4401 - t4403 - t4405 - 0.3e1 / 0.32e2 * t4407 + t4975 + t4977 + t4979 + t5181 + t5183;
7669   t5187 = t1387 * t1433;
7670   t5188 = 0.15000000000000000000e1 * t5187;
7671   t5189 = t1225 * t478;
7672   t5190 = t1223 * t5189;
7673   t5191 = 0.30000000000000000000e1 * t5190;
7674   t5192 = t115 * t4491;
7675   t5193 = t4359 * t1456;
7676   t5194 = t5193 * t158;
7677   t5195 = t5192 * t5194;
7678   t5196 = 0.96491876992155210402e2 * t5195;
7679   t5197 = t1461 * t1464;
7680   t5198 = 0.30000000000000000000e1 * t5197;
7681   t5199 = t1265 * t417;
7682   t5200 = t5199 * t442;
7683   t5201 = 0.15000000000000000000e1 * t5200;
7684   t5202 = t441 * t1339;
7685   t5203 = t418 * t5202;
7686   t5204 = 0.15000000000000000000e1 * t5203;
7687   t5205 = t1376 * t501;
7688   t5206 = t5205 * t523;
7689   t5207 = 0.15000000000000000000e1 * t5206;
7690   t5208 = t4218 * t521;
7691   t5209 = t5208 * t202;
7692   t5210 = t1213 * t5209;
7693   t5211 = 0.30000000000000000000e1 * t5210;
7694   t5212 = t395 * t1222;
7695   t5213 = t5212 * t1226;
7696   t5214 = 0.30000000000000000000e1 * t5213;
7697   t5215 = t413 * t1222;
7698   t5216 = t5215 * t1226;
7699   t5217 = 0.30000000000000000000e1 * t5216;
7700   t5219 = t102 * t1106;
7701   t5220 = t5219 * t378;
7702   t5222 = t2249 * t2250 * t5220;
7703   t5223 = t5222 / 0.8e1;
7704   t5224 = t1346 * t501;
7705   t5225 = t5224 * t523;
7706   t5226 = 0.30000000000000000000e1 * t5225;
7707   t5227 = t4705 * t521;
7708   t5228 = t5227 * t202;
7709   t5229 = t502 * t5228;
7710   t5230 = 0.50000000000000000001e0 * t5229;
7711   t5231 = t166 * t4711;
7712   t5232 = t4218 * t4714;
7713   t5233 = t5232 * t202;
7714   t5234 = t5231 * t5233;
7715   t5235 = 0.10345202583854680060e4 * t5234;
7716   t5236 = t1208 * t1507;
7717   t5237 = 0.15000000000000000000e1 * t5236;
7718   t5238 = t325 * t1190;
7719   t5239 = t5238 * t314;
7720   t5241 = t323 * t18 * t5239;
7721   t5242 = 0.3e1 / 0.32e2 * t5241;
7722   t5244 = t387 * t431 * t391;
7723   t5245 = t5244 / 0.48e2;
7724   t5247 = t387 * t127 * t1439;
7725   t5250 = t1444 * t127 * t1448;
7726   t5252 = t390 * t4393;
7727   t5254 = t387 * t18 * t5252;
7728   t5255 = t5254 / 0.32e2;
7729   t5257 = t323 * t127 * t1745;
7730   t5259 = -t5223 + t5226 + t5230 + t5235 + t5237 - t5242 + t5245 - t5247 / 0.32e2 - t5250 / 0.24e2 - t5255 - t5257 / 0.16e2;
7731   t5261 = t1744 * t1111;
7732   t5263 = t323 * t18 * t5261;
7733   t5264 = 0.3e1 / 0.32e2 * t5263;
7734   t5265 = t1756 * t373;
7735   t5266 = t5265 * t1249;
7736   t5268 = t1754 * t18 * t5266;
7737   t5269 = t5268 / 0.8e1;
7738   t5270 = t326 * t4270;
7739   t5272 = t323 * t18 * t5270;
7740   t5273 = t5272 / 0.32e2;
7741   t5274 = t4278 * t7;
7742   t5275 = t5274 * t13;
7743   t5277 = 0.1e1 / t20 / t1255;
7744   t5278 = t5277 * t60;
7745   t5279 = t5278 * t4180;
7746   t5281 = t5275 * t18 * t5279;
7747   t5282 = 0.7e1 / 0.72e2 * t5281;
7748   t5283 = t4630 * t7;
7749   t5284 = t5283 * t13;
7750   t5286 = 0.1e1 / t69 / t1366;
7751   t5287 = t5286 * t102;
7752   t5288 = t5287 * t4188;
7753   t5290 = t5284 * t18 * t5288;
7754   t5291 = 0.7e1 / 0.72e2 * t5290;
7755   t5293 = t323 * t431 * t327;
7756   t5294 = t5293 / 0.48e2;
7757   t5296 = t323 * t127 * t1749;
7758   t5299 = t1754 * t127 * t1758;
7759   t5301 = t4941 * t159;
7760   t5302 = 0.46636050000000000000e-1 * t5301;
7761   t5303 = t4913 * t159;
7762   t5304 = 0.15545350000000000000e-1 * t5303;
7763   t5305 = t1265 * t479;
7764   t5306 = 0.46636050000000000000e-1 * t5305;
7765   t5307 = -t5264 - t5269 - t5273 - t5282 - t5291 + t5294 - t5296 / 0.32e2 - t5299 / 0.24e2 - t5302 - t5304 - t5306;
7766   t5308 = t1382 * t479;
7767   t5309 = 0.93272100000000000000e-1 * t5308;
7768   t5310 = t413 * t1340;
7769   t5311 = 0.46636050000000000000e-1 * t5310;
7770   t5312 = t395 * t1340;
7771   t5313 = 0.46636050000000000000e-1 * t5312;
7772   t5314 = t4075 * t448;
7773   t5320 = 0.1e1 / t23 / t4084;
7774   t5321 = t4051 * t5320;
7775   t5322 = t148 * t33;
7776   t5323 = t5322 * t140;
7777   t5326 = t4087 * t1326;
7778   t5330 = 0.1e1 / t1325 / t138;
7779   t5331 = t4142 * t5330;
7780   t5338 = t4067 * t140;
7781   t5343 = t1282 * t343;
7782   t5344 = t344 * t337;
7783   t5346 = 0.1e1 / t23 / t5344;
7784   t5347 = t5346 * t448;
7785   t5348 = t5347 * t1134;
7786   t5351 = t1315 * t343;
7787   t5354 = t460 * t1179;
7788   t5355 = t344 * t1014;
7789   t5357 = 0.1e1 / t23 / t5355;
7790   t5359 = t5357 * t1326 * tau[0];
7791   t5363 = t1160 * t140 * tau[0];
7792   t5371 = 0.1e1 / t153 / t147;
7793   t5372 = t152 * t5371;
7794   t5373 = t5372 * t33;
7795   t5374 = t5320 * t140;
7796   t5375 = t5374 * t4051;
7797   t5378 = t1302 * t343;
7798   t5381 = t470 * t1179;
7799   t5384 = t4097 * t33;
7800   t5387 = t1133 * t343;
7801   t5390 = -0.15489051496296296296e3 * t149 * t5314 - 0.15388546844444444445e3 * t155 * t5314 - 0.22774444444444444445e2 * t5321 * t5323 + 0.37780070400000000000e2 * t149 * t5326 - 0.29850919822222222222e1 * t149 * t5331 + 0.37534924800000000001e2 * t155 * t5326 - 0.29657224533333333333e1 * t155 * t5331 + 0.20176952888888888889e3 * t155 * t5338 + 0.20308731259259259259e3 * t149 * t5338 - 0.31915093333333333334e3 * t5343 * t5348 - 0.21806720000000000000e3 * t5351 * t5348 - 0.48792576000000000001e2 * t5354 * t5359 - 0.83507484444444444445e3 * t471 * t5363 - 0.63039662222222222221e3 * t454 * t5363 - 0.14654714666666666666e4 * t461 * t5363 - 0.45253333333333333333e3 * t5373 * t5375 - 0.14481066666666666667e3 * t5378 * t5348 - 0.27803648000000000001e2 * t5381 * t5359 - 0.29547666666666666666e3 * t5384 * t5375 - 0.43726933333333333335e2 * t5387 * t5348;
7802   t5391 = t453 * t1179;
7803   t5394 = t1293 * t140;
7804   t5395 = t5394 * t1134;
7805   t5401 = t1182 * t448 * tau[0];
7806   t5412 = t144 * t469;
7807   t5413 = t5412 * t33;
7808   t5416 = t145 * t1301;
7809   t5417 = t5416 * t33;
7810   t5430 = -0.20988928000000000000e2 * t5391 * t5359 + 0.23936320000000000001e4 * t1283 * t5395 + 0.10860800000000000000e4 * t1303 * t5395 + 0.29541376000000000002e3 * t1306 * t5401 + 0.32795200000000000000e3 * t1312 * t5395 + 0.16355040000000000000e4 * t1316 * t5395 + 0.22300736000000000000e3 * t1319 * t5401 + 0.51842112000000000001e3 * t1290 * t5401 - 0.95298000000000000001e3 * t5413 * t5375 - 0.11328111111111111111e4 * t5417 * t5375 - 0.14017754074074074075e2 * t5314 + 0.34191360000000000002e1 * t5326 - 0.27015395555555555556e0 * t5331 + 0.18379614814814814815e2 * t5338 + 0.25191111111111111112e3 * t4126 - 0.15744444444444444445e3 * t4129 - 0.92367407407407407407e2 * t4132 + 0.25191111111111111111e3 * t4147 - 0.92367407407407407407e2 * t4149 - 0.15744444444444444444e3 * t4151;
7811   t5431 = t5390 + t5430;
7812   t5432 = t136 * t5431;
7813   t5433 = t115 * t5432;
7814   t5434 = 0.15545350000000000000e-1 * t5433;
7815   t5435 = t4944 * t203;
7816   t5436 = 0.15545350000000000000e-1 * t5435;
7817   t5437 = t4947 * t203;
7818   t5438 = 0.46636050000000000000e-1 * t5437;
7819   t5439 = t4916 * t203;
7820   t5440 = 0.46636050000000000000e-1 * t5439;
7821   t5441 = t4931 * t203;
7822   t5442 = 0.15545350000000000000e-1 * t5441;
7823   t5443 = t4935 * t159;
7824   t5444 = 0.15545350000000000000e-1 * t5443;
7825   t5445 = t4938 * t159;
7826   t5446 = 0.46636050000000000000e-1 * t5445;
7827   t5447 = t1379 * t479;
7828   t5448 = 0.46636050000000000000e-1 * t5447;
7829   t5449 = -t5309 - t5311 - t5313 - t5434 - t5436 - t5438 - t5440 - t5442 - t5444 - t5446 - t5448;
7830   t5464 = -0.9e1 / 0.32e2 * t1109 - 0.9e1 / 0.32e2 * t1114 - 0.9e1 / 0.16e2 * t1116 - 0.3e1 / 0.16e2 * t1119 - 0.9e1 / 0.32e2 * t1193 - 0.3e1 / 0.16e2 * t1195 + t4045 - 0.3e1 / 0.16e2 * t1200 + t4047 + t3 * (t4226 + t4165 - t4168 + t5307 - t4158 + t5449 - 0.3e1 / 0.16e2 * t4176 + t4171 - 0.3e1 / 0.32e2 * t4172 - 0.3e1 / 0.32e2 * t4174 + t4184 + t4160 - t4163 - t5214 - t5217 + t5184 + t5201 + t5211 + t5204 + t5207 - t5196 + t5198 - t5191 + t5259 + t5188 + t4388) + 0.30000000000000000000e1 * t1206 + 0.30000000000000000000e1 * t1209 + 0.48245938496077605201e2 * t1219 - 0.30000000000000000000e1 * t1227 - 0.30000000000000000000e1 * t1234 - 0.46636050000000000000e-1 * t1266 - 0.93272100000000000000e-1 * t1268 - 0.46636050000000000000e-1 * t1341 - 0.46636050000000000000e-1 * t1344 - 0.93272100000000000000e-1 * t1347;
7831   t5485 = -0.46636050000000000000e-1 * t1377 - 0.46636050000000000000e-1 * t1380 - 0.93272100000000000000e-1 * t1383 - 0.93272100000000000000e-1 * t1385 + 0.30000000000000000000e1 * t1388 + 0.15000000000000000000e1 * t1434 - t1437 / 0.16e2 - 0.3e1 / 0.32e2 * t1441 - t1450 / 0.8e1 + 0.48245938496077605201e2 * t1459 + 0.30000000000000000000e1 * t1462 + 0.30000000000000000000e1 * t1465 + 0.15000000000000000000e1 * t1508 + 0.6e1 * t1510 + 0.3e1 * t1740 - t1742 / 0.16e2 - 0.3e1 / 0.16e2 * t1747 - 0.3e1 / 0.32e2 * t1751 - t1760 / 0.8e1 + 0.3e1 * t1860;
7832   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7833     v3rho3[0] = t5464 + t5485;
7834 
7835   t5486 = 0.3e1 / 0.8e1 * t1891;
7836   t5487 = 0.3e1 / 0.16e2 * t1893;
7837   t5488 = 0.3e1 / 0.16e2 * t1895;
7838   t5489 = 0.3e1 / 0.8e1 * t1898;
7839   t5490 = 0.2e1 * t2115;
7840   t5491 = 0.2e1 * t2116;
7841   t5496 = 0.2e1 * t2216;
7842   t5497 = 0.32163958997385070134e2 * t2219;
7843   t5498 = 0.20000000000000000000e1 * t2222;
7844   t5499 = -t1115 - t1117 - t1119 / 0.8e1 - t1194 - t1195 / 0.8e1 + t4045 - t1200 / 0.8e1 + t4047 + t5496 + t5497 - t5498;
7845   t5501 = 0.20000000000000000000e1 * t2226;
7846   t5502 = 0.32163958997385070134e2 * t2229;
7847   t5503 = t2233 / 0.8e1;
7848   t5504 = t2238 / 0.16e2;
7849   t5505 = t2242 / 0.16e2;
7850   t5506 = t2246 / 0.8e1;
7851   t5507 = t2254 / 0.12e2;
7852   t5508 = t2261 / 0.12e2;
7853   t5509 = 0.2e1 * t2263;
7854   t5510 = 0.10000000000000000000e1 * t2265;
7855   t5511 = t2311 * t478;
7856   t5512 = t418 * t5511;
7857   t5514 = t2104 * t478;
7858   t5515 = t1104 * t5514;
7859   t5523 = t412 * t136;
7860   t5524 = t5523 * t158;
7861   t5525 = t1104 * t5524;
7862   t5527 = t158 * t1224;
7863   t5528 = t2001 * t5527;
7864   t5529 = t5192 * t5528;
7865   t5531 = t753 * t1222;
7866   t5532 = t5531 * t1226;
7867   t5535 = t387 * t127 * t2236;
7868   t5536 = t5535 / 0.48e2;
7869   t5537 = t2235 * t1106;
7870   t5539 = t387 * t18 * t5537;
7871   t5541 = t1446 * t740;
7872   t5542 = t5541 * t1360;
7873   t5544 = t1444 * t18 * t5542;
7874   t5546 = t5238 * t680;
7875   t5548 = t323 * t18 * t5546;
7876   t5550 = t1744 * t2;
7877   t5552 = t323 * t1415 * t5550;
7878   t5554 = 0.10000000000000000000e1 * t5512 - 0.62181400000000000000e-1 * t5515 + t4159 / 0.24e2 - t4163 + t4164 / 0.24e2 - t4168 + t4170 / 0.24e2 - t4172 / 0.32e2 - t4174 / 0.32e2 - t4176 / 0.16e2 - 0.62181400000000000000e-1 * t5525 - 0.96491876992155210402e2 * t5529 - 0.10000000000000000000e1 * t5532 - t5536 - t5539 / 0.32e2 - t5544 / 0.24e2 - t5548 / 0.32e2 - t5552 / 0.8e1;
7879   t5559 = t1806 * t304;
7880   t5564 = t876 * t1820;
7881   t5569 = t5046 * t876;
7882   t5572 = t5014 * sigma[2];
7883   t5573 = t700 * t33;
7884   t5574 = t5573 * t1154;
7885   t5577 = t5017 * sigma[2];
7886   t5580 = t5022 * sigma[2];
7887   t5583 = t1836 * tau[0];
7888   t5586 = t2154 * t1827;
7889   t5598 = t352 * tau[1];
7890   t5599 = t75 * t651;
7891   t5600 = t5599 * t653;
7892   t5603 = t5046 * t873;
7893   t5606 = t2141 * t1126;
7894   t5611 = 0.73826133333333333333e-3 * t701 * t1768 + 0.37555555555555555555e2 * t1130 * t2208 - 0.34705800000000000000e-3 * t5559 * t879 + 0.14515200000000000000e-4 * t1155 * t890 + 0.5070e1 * t1764 * t5564 + 0.10140e2 * t5175 * t2211 + 0.24679680000000000000e-2 * t5077 * t5569 - 0.50788454400000000000e-6 * t5572 * t5574 + 0.31342878720000000000e-8 * t5577 * t5574 - 0.52238131200000000000e-11 * t5580 * t5574 - 0.28166666666666666666e2 * t5583 * t2150 - 0.34705800000000000000e-3 * t2153 * t5586 + 0.52058700000000000000e-3 * t1775 * t2154 * t1820 + 0.52058700000000000000e-3 * t1775 * t2161 * t1827 - 0.69411600000000000000e-3 * t2165 * t2161 * t1820 + 0.28166666666666666666e2 * t5598 * t5600 - 0.24679680000000000000e-2 * t5045 * t5603 + 0.24387968000000000000e-4 * t2170 * t5606 - 0.23942476800000000000e-6 * t2140 * t5606;
7895   t5614 = t333 * tau[1];
7896   t5615 = t5614 * t75;
7897   t5624 = t4982 * t283;
7898   t5628 = t648 * t653;
7899   t5635 = t700 * t1820;
7900   t5639 = t1126 * t306;
7901   t5640 = t5639 * t701;
7902   t5643 = t700 * t1806;
7903   t5647 = t700 * t1765;
7904   t5660 = t885 * t5643;
7905   t5663 = t885 * t5647;
7906   t5672 = t640 * t873;
7907   t5679 = 0.47884953600000000000e-9 * t2145 * t5606 + 0.37555555555555555555e2 * t2148 * t5615 - 0.20823480000000000000e-2 * t5038 * t2154 * t1765 + 0.10411740000000000000e-2 * t5051 * t2161 * t1806 + 0.34705800000000000000e-2 * t5624 * t2161 * t1765 + 0.20823480000000000000e-2 * t5051 * t2154 * t5628 - 0.41646960000000000000e-2 * t5038 * t2161 * t5628 + 0.27764640000000000000e-5 * t1844 * t889 * t5635 + 0.30164053333333333333e-2 * t2195 * t5640 - 0.55529280000000000000e-5 * t2153 * t889 * t5643 - 0.11105856000000000000e-4 * t2165 * t889 * t5647 + 0.10180368000000000000e-4 * t1853 * t2176 * t1127 + 0.33934560000000000000e-2 * t1839 * t2161 * t1127 - 0.10180368000000000000e-4 * t1844 * t2183 * t1127 + 0.18509760000000000000e-2 * t5125 * t5660 + 0.37019520000000000000e-2 * t5110 * t5663 - 0.33934560000000000000e-2 * t1849 * t2154 * t1127 + 0.29615616000000000000e-4 * t1849 * t2176 * t1155 - 0.66635136000000000000e-7 * t1853 * t5672 * t1155 - 0.29615616000000000000e-4 * t1839 * t2183 * t1155;
7908   t5681 = t640 * t876;
7909   t5685 = t700 * t1827;
7910   t5686 = t885 * t5685;
7911   t5689 = t885 * t5635;
7912   t5692 = t305 * t33;
7913   t5693 = t1154 * t287;
7914   t5697 = t1764 * tau[0];
7915   t5698 = t75 * t653;
7916   t5699 = t2149 * t5698;
7917   t5702 = t876 * t1765;
7918   t5709 = t873 * t304;
7919   t5715 = t656 * t1797;
7920   t5716 = t334 * t648;
7921   t5717 = t701 * t5716;
7922   t5720 = t662 * t1797;
7923   t5721 = t334 * t653;
7924   t5722 = t701 * t5721;
7925   t5725 = t1764 * t307;
7926   t5726 = t719 * t648;
7927   t5727 = t352 * t5726;
7928   t5730 = t1774 * t307;
7929   t5731 = t719 * t653;
7930   t5732 = t352 * t5731;
7931   t5735 = t656 * t633;
7932   t5736 = t719 * sigma[0];
7933   t5737 = t1150 * t5736;
7934   t5740 = t656 * t636;
7935   t5745 = t1812 * t307;
7936   t5748 = t662 * t633;
7937   t5751 = t662 * t636;
7938   t5754 = 0.66635136000000000000e-7 * t1844 * t5681 * t1155 + 0.92548800000000000000e-3 * t1849 * t5686 - 0.92548800000000000000e-3 * t1839 * t5689 - 0.39487488000000000000e-4 * t5692 * t5693 * t701 + 0.56333333333333333333e2 * t5697 * t5699 - 0.15210e2 * t5050 * t5702 - 0.2535e1 * t2121 * t1820 - 0.2535e1 * t5162 * t876 + 0.5070e1 * t5709 * t1765 - 0.27764640000000000000e-5 * t1853 * t889 * t5685 - 0.13327027200000000000e-6 * t5715 * t5717 + 0.13327027200000000000e-6 * t5720 * t5722 + 0.38562000000000000000e-2 * t5725 * t5727 - 0.57843000000000000000e-2 * t5730 * t5732 - 0.10283200000000000000e-1 * t5735 * t5737 + 0.30849600000000000000e-4 * t5740 * t5737 + 0.57843000000000000000e-2 * t5730 * t5727 - 0.77124000000000000000e-2 * t5745 * t5732 - 0.10283200000000000000e-1 * t5748 * t5737 + 0.30849600000000000000e-4 * t5751 * t5737;
7939   t5755 = t656 * t1794;
7940   t5758 = t662 * t1794;
7941   t5761 = t701 * t1127;
7942   t5766 = t701 * t5628;
7943   t5771 = t656 * t334;
7944   t5774 = t662 * t334;
7945   t5777 = t1764 * t633;
7946   t5778 = t873 * t648;
7947   t5779 = t5778 * t334;
7948   t5782 = t1764 * t636;
7949   t5785 = t873 * t653;
7950   t5786 = t5785 * t334;
7951   t5791 = t876 * t648;
7952   t5792 = t5791 * t334;
7953   t5797 = t1812 * t633;
7954   t5798 = t2211 * t334;
7955   t5801 = t1812 * t636;
7956   t5804 = t305 * t5014;
7957   t5805 = t701 * t1155;
7958   t5808 = t305 * t5017;
7959   t5811 = t1130 * t719;
7960   t5816 = 0.59231232000000000000e-4 * t5755 * t5717 - 0.59231232000000000000e-4 * t5758 * t5722 - 0.36196864000000000000e-4 * t2133 * t5761 + 0.81442944000000000000e-7 * t2137 * t5761 + 0.16658784000000000000e-4 * t5005 * t5766 - 0.55529280000000000000e-2 * t5011 * t5766 - 0.49359360000000000000e-2 * t5771 * t2188 + 0.49359360000000000000e-2 * t5774 * t2192 + 0.37019520000000000000e-2 * t5777 * t5779 - 0.11105856000000000000e-4 * t5782 * t5779 - 0.55529280000000000000e-2 * t5011 * t5786 + 0.16658784000000000000e-4 * t5005 * t5786 - 0.55529280000000000000e-2 * t5011 * t5792 + 0.16658784000000000000e-4 * t5005 * t5792 + 0.74039040000000000000e-2 * t5797 * t5798 - 0.22211712000000000000e-4 * t5801 * t5798 + 0.35538739200000000000e-6 * t5804 * t5805 - 0.71077478400000000000e-9 * t5808 * t5805 - 0.25708000000000000000e-2 * t2126 * t5811 - 0.25708000000000000000e-2 * t2130 * t5811;
7961   t5818 = t5611 + t5679 + t5754 + t5816;
7962   t5819 = t275 * t5818;
7963   t5821 = t2 * t1957 * t107;
7964   t5822 = t5821 * t1890;
7965   t5824 = t380 * t1880;
7966   t5825 = t5824 / 0.16e2;
7967   t5826 = t682 * t1118;
7968   t5827 = t5826 / 0.16e2;
7969   t5828 = t5821 * t1897;
7970   t5830 = t126 * t1446;
7971   t5832 = t2249 * t5830 * t2252;
7972   t5833 = t5832 / 0.36e2;
7973   t5834 = t2251 * t1106;
7974   t5836 = t2249 * t2250 * t5834;
7975   t5838 = t5283 * t2248;
7976   t5839 = t17 * t5286;
7977   t5840 = t2251 * t1360;
7978   t5842 = t5838 * t5839 * t5840;
7979   t5844 = t126 * t1756;
7980   t5846 = t2256 * t5844 * t2259;
7981   t5847 = t5846 / 0.36e2;
7982   t5848 = t373 * t680;
7983   t5849 = t5848 * t314;
7984   t5851 = t2256 * t2257 * t5849;
7985   t5853 = t4196 * t768;
7986   t5855 = t4382 * t768;
7987   t5857 = t1103 * t114;
7988   t5858 = t5857 * t159;
7989   t5860 = t1103 * t165;
7990   t5861 = t5860 * t203;
7991   t5863 = t1111 * t752;
7992   t5864 = t5863 * t159;
7993   t5866 = t314 * t2062;
7994   t5867 = t5866 * t159;
7995   t5869 = t2054 * t479;
7996   t5875 = t1632 * t749;
7997   t5877 = t538 * t1918;
7998   t5879 = t538 * t1923;
7999   t5880 = 0.22831111111111111110e-1 * t5879;
8000   t5882 = 0.1e1 / t17 / t228;
8001   t5883 = t12 * t5882;
8002   t5884 = t107 * t5883;
8003   t5885 = t5884 * t1931;
8004   t5887 = t4263 * t680;
8005   t5888 = t5887 * t1249;
8006   t5889 = t4298 * t5888;
8007   t5890 = t207 * t5889;
8008   t5892 = t4278 * t680;
8009   t5893 = t5892 * t1249;
8010   t5894 = t1246 * t5893;
8011   t5895 = t207 * t5894;
8012   t5897 = t1248 * t2;
8013   t5898 = t5897 * t314;
8014   t5899 = t1246 * t5898;
8015   t5900 = t1929 * t5899;
8016   t5902 = t1916 * t1111;
8017   t5903 = t1246 * t5902;
8018   t5904 = t207 * t5903;
8019   t5906 = t1916 * t1249;
8020   t5907 = t405 * t5906;
8021   t5908 = t207 * t5907;
8022   t5910 = t1255 * t2;
8023   t5911 = t5910 * t314;
8024   t5912 = t405 * t5911;
8025   t5913 = t1929 * t5912;
8026   t5915 = t1921 * t1111;
8027   t5916 = t405 * t5915;
8028   t5917 = t207 * t5916;
8029   t5919 = t404 * t407;
8030   t5921 = t108 * t4320 * t5919;
8031   t5923 = -t4901 - 0.15220740740740740740e-1 * t4287 + 0.38051851851851851851e-2 * t4289 - 0.11415555555555555555e-1 * t4292 + 0.57077777777777777777e-2 * t4294 - 0.76103703703703703702e-2 * t5875 + 0.76103703703703703701e-2 * t5877 - t5880 + 0.12557111111111111110e0 * t5885 - 0.19025925925925925925e-1 * t5890 + 0.68493333333333333331e-1 * t5895 - 0.45662222222222222221e-1 * t5900 - 0.11415555555555555555e-1 * t5904 - 0.10274000000000000000e0 * t5908 + 0.13698666666666666666e0 * t5913 + 0.34246666666666666666e-1 * t5917 - 0.34246666666666666666e-1 * t5921;
8032   t5924 = t6 * t5923;
8033   t5925 = t5924 * t159;
8034   t5927 = t5819 - 0.7e1 / 0.16e2 * t5822 - t5825 - t5827 + 0.7e1 / 0.16e2 * t5828 - t5833 - t5836 / 0.24e2 - 0.7e1 / 0.72e2 * t5842 - t5847 - t5851 / 0.12e2 + 0.50000000000000000001e0 * t5853 + 0.10000000000000000000e1 * t5855 - 0.31090700000000000000e-1 * t5858 + 0.31090700000000000000e-1 * t5861 - 0.15545350000000000000e-1 * t5864 - 0.31090700000000000000e-1 * t5867 - 0.31090700000000000000e-1 * t5869 - 0.15545350000000000000e-1 * t5925;
8035   t5929 = t2063 * t479;
8036   t5931 = t753 * t1340;
8037   t5933 = t4209 * t2218;
8038   t5935 = t2278 * t2224;
8039   t5936 = t1231 * t5935;
8040   t5938 = t4385 * t794;
8041   t5940 = t5224 * t794;
8042   t5942 = t779 * t1212;
8043   t5943 = t5942 * t1218;
8044   t5945 = t4193 * t2228;
8045   t5947 = t496 * t180;
8046   t5948 = t5947 * t202;
8047   t5949 = t1104 * t5948;
8048   t5951 = t4268 * t2325;
8049   t5953 = t4268 * t2322;
8050   t5956 = t323 * t1415 * t326;
8051   t5958 = t691 * t1197;
8052   t5961 = t387 * t1415 * t390;
8053   t5963 = t431 * t741;
8054   t5964 = t67 * t5963;
8055   t5966 = t682 * t1202;
8056   t5968 = t1208 * t2279;
8057   t5970 = t767 * t1339;
8058   t5971 = t418 * t5970;
8059   t5973 = -0.31090700000000000000e-1 * t5929 - 0.15545350000000000000e-1 * t5931 + 0.32163958997385070134e2 * t5933 - 0.20000000000000000000e1 * t5936 + 0.50000000000000000001e0 * t5938 + 0.10000000000000000000e1 * t5940 + 0.16081979498692535067e2 * t5943 + 0.32163958997385070134e2 * t5945 + 0.62181400000000000000e-1 * t5949 - 0.93272100000000000000e-1 * t5951 + 0.93272100000000000000e-1 * t5953 - t5956 / 0.16e2 + t5958 / 0.48e2 + t5961 / 0.16e2 + t5964 / 0.48e2 + t5966 / 0.48e2 + 0.10000000000000000000e1 * t5968 + 0.50000000000000000001e0 * t5971;
8060   t5974 = t1217 * t830;
8061   t5975 = t1213 * t5974;
8062   t5977 = t1506 * t830;
8063   t5978 = t502 * t5977;
8064   t5980 = t1104 * t165;
8065   t5981 = t521 * t202;
8066   t5982 = t625 * t5981;
8067   t5983 = t5980 * t5982;
8068   t5985 = t793 * t1214;
8069   t5988 = t767 * t1224;
8070   t5991 = t2009 * t1214;
8071   t5996 = t2005 * t1552;
8072   t5998 = t793 * t1505;
8073   t6001 = t2278 * t520;
8074   t6010 = t792 * t4714;
8075   t6011 = t6010 * t1214;
8076   t6016 = t2009 * t1505;
8077   t6019 = t2099 * t1216;
8078   t6020 = t6019 * t520;
8079   t6023 = -t4411 + t4414 - 0.30000000000000000000e1 * t1213 * t5985 - 0.30000000000000000000e1 * t1454 * t5988 + 0.96491876992155210402e2 * t4217 * t5991 - 0.32163958997385070134e2 * t4201 * t2010 + 0.11696447245269292414e1 * t5996 + 0.10000000000000000000e1 * t1231 * t5998 + 0.20000000000000000000e1 * t1231 * t6001 + 0.20000000000000000000e1 * t4231 * t2016 + 0.20000000000000000000e1 * t4212 * t2016 + 0.20000000000000000000e1 * t5215 * t2013 - 0.10345202583854680060e4 * t5231 * t6011 + 0.20000000000000000000e1 * t5212 * t2013 - 0.16081979498692535067e2 * t1213 * t6016 - 0.32163958997385070134e2 * t1213 * t6020;
8080   t6027 = t1963 * t1456;
8081   t6028 = t6027 * t439;
8082   t6037 = t2001 * t1224;
8083   t6040 = t2311 * t439;
8084   t6043 = t767 * t1431;
8085   t6046 = t766 * t4361;
8086   t6047 = t6046 * t1224;
8087   t6050 = t1993 * t254;
8088   t6052 = 0.11696447245269292414e1 * t6050 * t610;
8089   t6053 = t2001 * t1431;
8090   t6056 = -0.16e2 * t4415 - 0.4e1 * t4417 - 0.4e1 * t4419 - 0.32163958997385070134e2 * t1454 * t6028 - 0.32163958997385070134e2 * t4193 * t2010 - 0.32163958997385070134e2 * t4209 * t2002 - 0.32163958997385070134e2 * t4223 * t2002 + 0.96491876992155210402e2 * t5192 * t6037 + 0.20000000000000000000e1 * t1223 * t6040 + 0.10000000000000000000e1 * t1223 * t6043 - 0.10345202583854680060e4 * t4358 * t6047 - t6052 - 0.16081979498692535067e2 * t1454 * t6053 + t4424 - t4452 + t4454 - t4456;
8091   t6058 = 0.48e2 * t4459;
8092   t6059 = 0.80e2 * t4462;
8093   t6060 = t2005 * t1728;
8094   t6062 = t2005 * t1546;
8095   t6064 = t1104 * t114;
8096   t6069 = 0.12e2 * t4464;
8097   t6071 = t1565 * t839;
8098   t6073 = t1568 * t839;
8099   t6075 = t1555 * t839;
8100   t6077 = 0.32e2 * t4468;
8101   t6080 = t6058 + t6059 - 0.58482236226346462070e0 * t6060 - 0.17315859105681463759e2 * t6062 - 0.20000000000000000000e1 * t6064 * t618 + 0.20000000000000000000e1 * t5980 * t626 - t6069 + 0.40e2 * t4466 + 0.20e2 * t6071 + 0.12e2 * t6073 - 0.32e2 * t6075 - t6077 - 0.24e2 * t4470 + t4477 - t4521 - 0.11696447245269292414e1 * t4522;
8102   t6081 = t378 * t2047;
8103   t6088 = t1632 * t775;
8104   t6090 = t538 * t2035;
8105   t6092 = t538 * t2040;
8106   t6093 = 0.22831111111111111110e-1 * t6092;
8107   t6094 = t5884 * t2044;
8108   t6096 = t4606 * t689;
8109   t6097 = t6096 * t1360;
8110   t6098 = t4625 * t6097;
8111   t6099 = t207 * t6098;
8112   t6101 = t4630 * t689;
8113   t6102 = t6101 * t1360;
8114   t6103 = t1357 * t6102;
8115   t6104 = t207 * t6103;
8116   t6106 = t1359 * t2;
8117   t6107 = t6106 * t378;
8118   t6108 = t1357 * t6107;
8119   t6109 = t1929 * t6108;
8120   t6111 = t2033 * t1106;
8121   t6112 = t1357 * t6111;
8122   t6113 = t207 * t6112;
8123   t6115 = t2033 * t1360;
8124   t6116 = t489 * t6115;
8125   t6117 = t207 * t6116;
8126   t6119 = t1366 * t2;
8127   t6120 = t6119 * t378;
8128   t6121 = t489 * t6120;
8129   t6122 = t1929 * t6121;
8130   t6124 = t2038 * t1106;
8131   t6125 = t489 * t6124;
8132   t6126 = t207 * t6125;
8133   t6128 = t488 * t491;
8134   t6130 = t108 * t4320 * t6128;
8135   t6132 = -t4919 - 0.15220740740740740740e-1 * t4615 + 0.38051851851851851851e-2 * t4617 - 0.11415555555555555555e-1 * t4619 + 0.57077777777777777777e-2 * t4621 - 0.76103703703703703702e-2 * t6088 + 0.76103703703703703701e-2 * t6090 - t6093 - 0.12557111111111111110e0 * t6094 - 0.19025925925925925925e-1 * t6099 + 0.68493333333333333331e-1 * t6104 + 0.45662222222222222221e-1 * t6109 - 0.11415555555555555555e-1 * t6113 - 0.10274000000000000000e0 * t6117 - 0.13698666666666666666e0 * t6122 + 0.34246666666666666666e-1 * t6126 + 0.34246666666666666666e-1 * t6130;
8136   t6133 = t65 * t6132;
8137   t6137 = t2021 * t1721;
8138   t6139 = t1993 * t7;
8139   t6141 = 0.36622894612013090108e-3 * t6139 * t605;
8140   t6145 = 0.4e1 * t4726;
8141   t6146 = 0.31090700000000000000e-1 * t6081 * t180 + 0.15545350000000000000e-1 * t6133 * t180 - t4536 + t4540 + 0.48830526149350786810e-3 * t4541 + 0.24415263074675393405e-3 * t6137 - t6141 + t4545 - 0.18311447306006545054e-3 * t4547 - t4552 + t4559 - t4564 + t4575 - 0.34631718211362927518e2 * t4579 + t4586 + 0.23392894490538584828e1 * t4587 + t6145;
8142   t6150 = t4427 * t680;
8143   t6153 = t1513 * t2;
8144   t6163 = t4436 * t689;
8145   t6166 = t1519 * t2;
8146   t6177 = (-0.8e1 / 0.27e2 * t6150 * t1249 + 0.16e2 / 0.9e1 * t6153 * t1103 * t314 + 0.4e1 / 0.9e1 * t1980 * t1111 + 0.8e1 / 0.3e1 * t231 * t1103 - 0.8e1 * t1983 * t229 - 0.8e1 / 0.27e2 * t6163 * t1360 - 0.16e2 / 0.9e1 * t6166 * t1103 * t378 + 0.4e1 / 0.9e1 * t1986 * t1106 - 0.8e1 / 0.3e1 * t233 * t1103 + 0.8e1 * t1989 * t229) * t238;
8147   t6184 = t680 * t1264;
8148   t6193 = -t4729 + 0.2e1 * t4731 + t4889 + t4766 - t4820 + t4832 - t4867 + t4871 - t4874 + 0.19751673498613801407e-1 * t6177 * t264 - 0.62181400000000000000e-1 * t1104 * t5947 + 0.62181400000000000000e-1 * t1104 * t5523 + 0.15545350000000000000e-1 * t6184 * t136 + 0.15545350000000000000e-1 * t5863 * t136 + 0.31090700000000000000e-1 * t5866 * t136 + 0.15545350000000000000e-1 * t5924 * t136;
8149   t6194 = t689 * t1375;
8150   t6197 = t1106 * t778;
8151   t6200 = t838 * t107;
8152   t6201 = t6200 * t1735;
8153   t6231 = t1468 * t2074;
8154   t6236 = t4695 * t783;
8155   t6239 = t4689 * t783;
8156   t6242 = t1485 * t2074;
8157   t6250 = 0.4e1 / 0.27e2 * t6090;
8158   t6251 = 0.4e1 / 0.9e1 * t6092;
8159   t6261 = -t4673 - 0.8e1 / 0.27e2 * t4615 + 0.2e1 / 0.27e2 * t4617 - 0.2e1 / 0.9e1 * t4619 + t4621 / 0.9e1 - 0.4e1 / 0.27e2 * t6088 + t6250 - t6251 - 0.22e2 / 0.9e1 * t6094 - 0.10e2 / 0.27e2 * t6099 + 0.4e1 / 0.3e1 * t6104 + 0.8e1 / 0.9e1 * t6109 - 0.2e1 / 0.9e1 * t6113 - 0.2e1 * t6117 - 0.8e1 / 0.3e1 * t6122 + 0.2e1 / 0.3e1 * t6126 + 0.2e1 / 0.3e1 * t6130;
8160   t6264 = t70 * t491;
8161   t6279 = t516 * t6124;
8162   t6282 = t516 * t6120;
8163   t6285 = t1495 * t6102;
8164   t6288 = t516 * t6115;
8165   t6291 = 0.23154444444444444444e-1 * t4602 - 0.45908888888888888888e0 * t4615 + 0.11477222222222222222e0 * t4617 - 0.34431666666666666666e0 * t4619 + 0.17215833333333333333e0 * t4621 + 0.63116250000000000000e0 * t510 * t6261 - 0.13892666666666666667e0 * t4642 + 0.20839000000000000000e0 * t216 * t6279 - 0.83356000000000000000e0 * t1959 * t6282 + 0.20839000000000000000e0 * t216 * t6285 - 0.62517000000000000000e0 * t216 * t6288;
8166   t6294 = 0.27785333333333333334e0 * t545 * t2093;
8167   t6295 = t545 * t2090;
8168   t6297 = t1495 * t6111;
8169   t6300 = t4604 * t6097;
8170   t6303 = t1495 * t6107;
8171   t6307 = 0.22954444444444444444e0 * t6090;
8172   t6320 = 0.1e1 / t125 / t228;
8173   t6322 = t123 * t11 * t6320;
8174   t6323 = t6322 * t2096;
8175   t6325 = t1641 * t789;
8176   t6327 = -0.57386111111111111112e0 * t6099 + 0.20659000000000000000e1 * t6104 + 0.13772666666666666667e1 * t6109 - 0.34431666666666666667e0 * t6113 - 0.30988500000000000000e1 * t6117 - 0.41318000000000000000e1 * t6122 + 0.10329500000000000000e1 * t6126 - 0.22954444444444444444e0 * t6088 - 0.37874833333333333334e1 * t6094 - 0.90302333333333333334e0 * t6323 - 0.11577222222222222222e0 * t6325;
8177   t6329 = 0.31558125000000000000e0 * t2082 * t1477 - 0.35297250000000000000e1 * t6231 * t505 - 0.17648625000000000000e1 * t2066 * t1477 + 0.26472937500000000000e1 * t6236 * t1469 - 0.15779062500000000000e0 * t6239 * t1469 + 0.63116250000000000000e0 * t6242 * t505 + 0.35297250000000000000e1 * t503 * t6261 + 0.20839000000000000000e0 * t124 * t4340 * t6264 - 0.23154444444444444444e0 * t4598 + 0.69463333333333333333e-1 * t4600 + t6291 - t6294 + 0.46308888888888888889e-1 * t6295 - 0.34731666666666666667e-1 * t216 * t6297 - 0.46308888888888888889e-1 * t216 * t6300 + 0.13892666666666666667e0 * t1959 * t6303 + 0.10329500000000000000e1 * t6130 - t4669 - t4672 + t6307 - 0.68863333333333333333e0 * t6092 + t6327;
8178   t6331 = t501 * t6329 * t521;
8179   t6334 = 0.15545350000000000000e-1 * t6194 * t180 + 0.15545350000000000000e-1 * t6197 * t180 + 0.10843581300301739842e-1 * t6201 - 0.16081979498692535067e2 * t753 * t1584 - 0.50000000000000000001e0 * t1379 * t848 - 0.10000000000000000000e1 * t1382 * t848 - 0.10000000000000000000e1 * t395 * t1965 - 0.50000000000000000001e0 * t1265 * t848 - 0.10000000000000000000e1 * t413 * t1965 + 0.10000000000000000000e1 * t779 * t1572 + 0.10000000000000000000e1 * t771 * t1572 + 0.10000000000000000000e1 * t753 * t1580 + 0.10000000000000000000e1 * t745 * t1580 - 0.50000000000000000001e0 * t1376 * t856 - 0.10000000000000000000e1 * t482 * t2101 - 0.10000000000000000000e1 * t497 * t2101 - 0.50000000000000000001e0 * t166 * t6331;
8180   t6348 = t553 * t1996;
8181   t6350 = t4313 * t757;
8182   t6353 = t4317 * t757;
8183   t6356 = t1408 * t1934;
8184   t6361 = t1391 * t1934;
8185   t6376 = t21 * t407;
8186   t6385 = 0.4e1 / 0.27e2 * t5877;
8187   t6386 = 0.4e1 / 0.9e1 * t5879;
8188   t6396 = -t4323 - 0.8e1 / 0.27e2 * t4287 + 0.2e1 / 0.27e2 * t4289 - 0.2e1 / 0.9e1 * t4292 + t4294 / 0.9e1 - 0.4e1 / 0.27e2 * t5875 + t6385 - t6386 + 0.22e2 / 0.9e1 * t5885 - 0.10e2 / 0.27e2 * t5890 + 0.4e1 / 0.3e1 * t5895 - 0.8e1 / 0.9e1 * t5900 - 0.2e1 / 0.9e1 * t5904 - 0.2e1 * t5908 + 0.8e1 / 0.3e1 * t5913 + 0.2e1 / 0.3e1 * t5917 - 0.2e1 / 0.3e1 * t5921;
8189   t6403 = 0.22954444444444444444e0 * t5877;
8190   t6404 = -0.45908888888888888888e0 * t4287 + 0.11477222222222222222e0 * t4289 - 0.34431666666666666666e0 * t4292 + 0.17215833333333333333e0 * t4294 - 0.10329500000000000000e1 * t5921 - 0.20839000000000000000e0 * t124 * t4340 * t6376 + 0.35297250000000000000e1 * t419 * t6396 + 0.63116250000000000000e0 * t426 * t6396 - 0.22954444444444444444e0 * t5875 + 0.37874833333333333334e1 * t5885 + t6403;
8191   t6407 = t435 * t5906;
8192   t6410 = t1421 * t5893;
8193   t6413 = t1421 * t5902;
8194   t6416 = t4261 * t5888;
8195   t6419 = t1421 * t5898;
8196   t6422 = t435 * t5915;
8197   t6425 = t435 * t5911;
8198   t6429 = 0.27785333333333333334e0 * t545 * t1953;
8199   t6430 = t545 * t1950;
8200   t6440 = t6322 * t1960;
8201   t6442 = t1641 * t763;
8202   t6444 = -0.57386111111111111112e0 * t5890 + 0.20659000000000000000e1 * t5895 - 0.13772666666666666667e1 * t5900 - 0.34431666666666666667e0 * t5904 - 0.30988500000000000000e1 * t5908 + 0.41318000000000000000e1 * t5913 + 0.10329500000000000000e1 * t5917 + 0.90302333333333333334e0 * t6440 - 0.11577222222222222222e0 * t6442 - t4339 - t4343;
8203   t6446 = 0.26472937500000000000e1 * t6350 * t1392 - 0.15779062500000000000e0 * t6353 * t1392 + 0.63116250000000000000e0 * t6356 * t421 + 0.31558125000000000000e0 * t1942 * t1400 - 0.35297250000000000000e1 * t6361 * t421 - 0.17648625000000000000e1 * t1910 * t1400 - 0.23154444444444444444e0 * t4255 + 0.69463333333333333333e-1 * t4257 + 0.23154444444444444444e-1 * t4259 - 0.13892666666666666667e0 * t4275 + t6404 - 0.68863333333333333333e0 * t5879 - 0.62517000000000000000e0 * t216 * t6407 + 0.20839000000000000000e0 * t216 * t6410 - 0.34731666666666666667e-1 * t216 * t6413 - 0.46308888888888888889e-1 * t216 * t6416 - 0.13892666666666666667e0 * t1959 * t6419 + 0.20839000000000000000e0 * t216 * t6422 + 0.83356000000000000000e0 * t1959 * t6425 - t6429 + 0.46308888888888888889e-1 * t6430 + t6444;
8204   t6448 = t417 * t6446 * t440;
8205   t6467 = -0.10000000000000000000e1 * t2051 * t618 - 0.50000000000000000001e0 * t745 * t1605 - 0.16081979498692535067e2 * t745 * t1584 - 0.10000000000000000000e1 * t2054 * t618 - 0.10000000000000000000e1 * t2063 * t618 - 0.50000000000000000001e0 * t753 * t1605 + 0.8e1 * t6348 - 0.50000000000000000001e0 * t115 * t6448 - 0.10000000000000000000e1 * t2024 * t626 - 0.50000000000000000001e0 * t771 * t1593 - 0.16081979498692535067e2 * t771 * t1597 - 0.10000000000000000000e1 * t2027 * t626 - 0.10000000000000000000e1 * t2048 * t626 - 0.50000000000000000001e0 * t779 * t1593 - 0.16081979498692535067e2 * t779 * t1597 - 0.50000000000000000001e0 * t1343 * t856;
8206   t6471 = t558 * t1996;
8207   t6474 = 0.8e1 * t553 * t1994;
8208   t6475 = t1993 * t598;
8209   t6477 = 0.2e1 * t230 * t6475;
8210   t6479 = 0.8e1 * t558 * t1994;
8211   t6480 = t6177 * t266;
8212   t6486 = t838 * t1709;
8213   t6487 = t230 * t6486;
8214   t6493 = -0.10000000000000000000e1 * t1346 * t856 + t4894 + 0.21687162600603479684e-1 * t4896 - t4900 - 0.8e1 * t6471 + t6474 + t6477 - t6479 + t230 * t6480 + 0.31090700000000000000e-1 * t5857 * t136 - 0.31090700000000000000e-1 * t5860 * t180 + t6487 - 0.93272100000000000000e-1 * t4268 * t2104 + 0.93272100000000000000e-1 * t4268 * t2107 - 0.58482236226346462070e0 * t4957 - t4962 - t4966;
8215   t6496 = t6023 + t6056 + t6080 + t6146 + t6193 + t6334 + t6467 + t6493;
8216   t6497 = t6496 * t310;
8217   t6498 = t1414 * t1756;
8218   t6499 = t60 * t2;
8219   t6500 = t6499 * t314;
8220   t6502 = t2256 * t6498 * t6500;
8221   t6504 = t1414 * t1446;
8222   t6505 = t102 * t2;
8223   t6506 = t6505 * t378;
8224   t6508 = t2249 * t6504 * t6506;
8225   t6510 = t202 * t1214;
8226   t6511 = t793 * t6510;
8227   t6512 = t1213 * t6511;
8228   t6514 = t1387 * t2312;
8229   t6516 = t5199 * t768;
8230   t6518 = t1461 * t2312;
8231   t6520 = t6446 * t440;
8232   t6521 = t6520 * t158;
8233   t6522 = t418 * t6521;
8234   t6524 = t5205 * t794;
8235   t6526 = t771 * t1212;
8236   t6527 = t6526 * t1218;
8237   t6530 = t4223 * t2218;
8238   t6532 = t745 * t1222;
8239   t6533 = t6532 * t1226;
8240   t6535 = t2315 * t1464;
8241   t6537 = t1205 * t2279;
8242   t6539 = t629 * t2215;
8243   t6541 = 0.16081979498692535067e2 * t5975 + 0.50000000000000000001e0 * t5978 - 0.20000000000000000000e1 * t5983 + t6497 - t6502 / 0.6e1 + t6508 / 0.6e1 + 0.30000000000000000000e1 * t6512 + 0.10000000000000000000e1 * t6514 + 0.50000000000000000001e0 * t6516 + 0.10000000000000000000e1 * t6518 + 0.50000000000000000001e0 * t6522 + 0.50000000000000000001e0 * t6524 + 0.16081979498692535067e2 * t6527 - t4407 / 0.32e2 + 0.32163958997385070134e2 * t6530 - 0.10000000000000000000e1 * t6533 + 0.10000000000000000000e1 * t6535 + 0.10000000000000000000e1 * t6537 + 0.2e1 * t6539;
8244   t6544 = t1205 * t2275;
8245   t6546 = t6019 * t2224;
8246   t6547 = t1213 * t6546;
8247   t6549 = t4201 * t2228;
8248   t6551 = t2027 * t501;
8249   t6552 = t6551 * t523;
8250   t6554 = t2048 * t501;
8251   t6555 = t6554 * t523;
8252   t6557 = t2024 * t501;
8253   t6558 = t6557 * t523;
8254   t6560 = t6027 * t2217;
8255   t6561 = t1454 * t6560;
8256   t6563 = t1208 * t2275;
8257   t6565 = t2051 * t417;
8258   t6566 = t6565 * t442;
8259   t6568 = t4231 * t2225;
8260   t6570 = t4212 * t2225;
8261   t6572 = t5215 * t2221;
8262   t6574 = t5212 * t2221;
8263   t6576 = t793 * t4371;
8264   t6577 = t1231 * t6576;
8265   t6579 = t440 * t158;
8266   t6580 = t617 * t6579;
8267   t6581 = t6064 * t6580;
8268   t6583 = t6194 * t203;
8269   t6585 = t6197 * t203;
8270   t6587 = t6081 * t203;
8271   t6589 = 0.10000000000000000000e1 * t6544 + 0.32163958997385070134e2 * t6547 + 0.32163958997385070134e2 * t6549 + 0.10000000000000000000e1 * t6552 + 0.10000000000000000000e1 * t6555 + 0.10000000000000000000e1 * t6558 + 0.32163958997385070134e2 * t6561 + 0.10000000000000000000e1 * t6563 + 0.10000000000000000000e1 * t6566 - 0.20000000000000000000e1 * t6568 - 0.20000000000000000000e1 * t6570 - 0.20000000000000000000e1 * t6572 - 0.20000000000000000000e1 * t6574 - 0.10000000000000000000e1 * t6577 + 0.20000000000000000000e1 * t6581 - 0.15545350000000000000e-1 * t6583 - 0.15545350000000000000e-1 * t6585 - 0.31090700000000000000e-1 * t6587;
8272   t6590 = t6133 * t203;
8273   t6592 = t1343 * t831;
8274   t6594 = t1346 * t831;
8275   t6596 = t1376 * t831;
8276   t6598 = t6184 * t159;
8277   t6600 = t2051 * t479;
8278   t6602 = t745 * t1340;
8279   t6604 = t1461 * t2308;
8280   t6606 = t753 * t1453;
8281   t6607 = t6606 * t1458;
8282   t6609 = t2009 * t6510;
8283   t6610 = t4217 * t6609;
8284   t6612 = t779 * t1230;
8285   t6613 = t6612 * t1233;
8286   t6615 = t2009 * t4371;
8287   t6616 = t1213 * t6615;
8288   t6618 = t767 * t5527;
8289   t6619 = t1454 * t6618;
8290   t6621 = t478 * t439;
8291   t6622 = t2001 * t6621;
8292   t6623 = t1454 * t6622;
8293   t6625 = t767 * t6621;
8294   t6626 = t1223 * t6625;
8295   t6628 = t2114 * t676;
8296   t6630 = t2054 * t417;
8297   t6631 = t6630 * t442;
8298   t6633 = t2063 * t417;
8299   t6634 = t6633 * t442;
8300   t6636 = t2264 * t1464;
8301   t6638 = -0.15545350000000000000e-1 * t6590 - 0.15545350000000000000e-1 * t6592 - 0.31090700000000000000e-1 * t6594 - 0.15545350000000000000e-1 * t6596 - 0.15545350000000000000e-1 * t6598 - 0.31090700000000000000e-1 * t6600 - 0.15545350000000000000e-1 * t6602 + 0.10000000000000000000e1 * t6604 + 0.16081979498692535067e2 * t6607 - 0.96491876992155210402e2 * t6610 - 0.10000000000000000000e1 * t6613 + 0.16081979498692535067e2 * t6616 + 0.30000000000000000000e1 * t6619 + 0.32163958997385070134e2 * t6623 - 0.20000000000000000000e1 * t6626 + 0.2e1 * t6628 + 0.10000000000000000000e1 * t6631 + 0.10000000000000000000e1 * t6634 + 0.10000000000000000000e1 * t6636;
8302   t6640 = t1739 * t893;
8303   t6641 = t2258 * t1111;
8304   t6643 = t2256 * t2257 * t6641;
8305   t6645 = t5274 * t2248;
8306   t6646 = t17 * t5277;
8307   t6647 = t2258 * t1249;
8308   t6649 = t6645 * t6646 * t6647;
8309   t6651 = t2001 * t4367;
8310   t6652 = t1454 * t6651;
8311   t6654 = t6010 * t6510;
8312   t6655 = t5231 * t6654;
8313   t6657 = t767 * t4367;
8314   t6658 = t1223 * t6657;
8315   t6660 = t6046 * t5527;
8316   t6661 = t4358 * t6660;
8317   t6663 = t2264 * t1433;
8318   t6665 = t2272 * t1507;
8319   t6667 = t2269 * t1507;
8320   t6669 = t4178 * t2248;
8321   t6671 = t6669 * t2257 * t6647;
8322   t6673 = t4186 * t2248;
8323   t6675 = t6673 * t2250 * t5840;
8324   t6677 = t771 * t1230;
8325   t6678 = t6677 * t1233;
8326   t6680 = t1232 * t830;
8327   t6681 = t1231 * t6680;
8328   t6687 = t6640 - t6643 / 0.24e2 - 0.7e1 / 0.72e2 * t6649 + 0.16081979498692535067e2 * t6652 + 0.10345202583854680060e4 * t6655 - 0.10000000000000000000e1 * t6658 + 0.10345202583854680060e4 * t6661 + 0.50000000000000000001e0 * t6663 + 0.50000000000000000001e0 * t6665 + 0.50000000000000000001e0 * t6667 + t6671 / 0.8e1 + t6675 / 0.8e1 - 0.10000000000000000000e1 * t6678 - 0.10000000000000000000e1 * t6681 + t5244 / 0.72e2 - t5247 / 0.96e2 - t5250 / 0.72e2 - t5257 / 0.48e2;
8329   t6692 = t387 * t431 * t694;
8330   t6695 = t323 * t431 * t685;
8331   t6698 = t323 * t127 * t2240;
8332   t6699 = t6698 / 0.48e2;
8333   t6701 = t323 * t4340 * t2244;
8334   t6704 = t387 * t4340 * t2231;
8335   t6706 = t859 * t1859;
8336   t6707 = t745 * t1453;
8337   t6708 = t6707 * t1458;
8338   t6710 = t1108 * t742;
8339   t6712 = t682 * t1192;
8340   t6714 = t1889 * t374;
8341   t6715 = t1888 * t6714;
8342   t6717 = t6329 * t521;
8343   t6718 = t6717 * t202;
8344   t6719 = t502 * t6718;
8345   t6721 = t1387 * t2308;
8346   t6723 = t2315 * t1433;
8347   t6725 = t2311 * t2217;
8348   t6726 = t1223 * t6725;
8349   t6729 = t1414 * t7 * t10;
8350   t6730 = t6729 * t1890;
8351   t6732 = t6729 * t1897;
8352   t6734 = t5293 / 0.72e2 - t5296 / 0.96e2 - t5299 / 0.72e2 + t6692 / 0.144e3 + t6695 / 0.144e3 - t6699 + 0.7e1 / 0.48e2 * t6701 - 0.7e1 / 0.48e2 * t6704 + t6706 + 0.16081979498692535067e2 * t6708 - 0.3e1 / 0.32e2 * t6710 - 0.3e1 / 0.32e2 * t6712 - 0.3e1 / 0.8e1 * t6715 + 0.50000000000000000001e0 * t6719 + 0.10000000000000000000e1 * t6721 + 0.50000000000000000001e0 * t6723 - 0.20000000000000000000e1 * t6726 + 0.3e1 / 0.16e2 * t6730 - 0.3e1 / 0.16e2 * t6732;
8353   t6739 = -t5501 + t5502 + t5503 - t5504 - t5505 - t5506 - t5507 - t5508 + t5509 + t5510 + t3 * (t5554 + t5927 + t5973 + t6541 + t6589 + t6638 + t6687 + t6734);
8354   t6740 = t1207 + t1210 + t1220 - t1228 - t1235 - t1267 - t1269 - t1342 - t1345 - t1348 - t1378;
8355   t6743 = 0.10000000000000000000e1 * t2270;
8356   t6744 = 0.10000000000000000000e1 * t2273;
8357   t6745 = 0.10000000000000000000e1 * t2276;
8358   t6746 = 0.10000000000000000000e1 * t2280;
8359   t6747 = 0.10000000000000000000e1 * t2282;
8360   t6748 = 0.10000000000000000000e1 * t2284;
8361   t6749 = -t1381 - t1384 - t1386 + t1389 + t1435 + t6743 + t6744 + t6745 + t6746 + t6747 + t6748;
8362   t6750 = 0.31090700000000000000e-1 * t2286;
8363   t6751 = 0.31090700000000000000e-1 * t2288;
8364   t6752 = 0.31090700000000000000e-1 * t2290;
8365   t6753 = 0.31090700000000000000e-1 * t2292;
8366   t6754 = 0.31090700000000000000e-1 * t2294;
8367   t6755 = 0.31090700000000000000e-1 * t2296;
8368   t6756 = 0.31090700000000000000e-1 * t2298;
8369   t6757 = 0.31090700000000000000e-1 * t2301;
8370   t6758 = 0.31090700000000000000e-1 * t2303;
8371   t6759 = 0.31090700000000000000e-1 * t2305;
8372   t6761 = -t6750 - t6751 - t6752 - t6753 - t6754 - t6755 - t6756 - t6757 - t6758 - t6759 - t1437 / 0.24e2;
8373   t6763 = 0.10000000000000000000e1 * t2309;
8374   t6764 = 0.10000000000000000000e1 * t2313;
8375   t6765 = 0.10000000000000000000e1 * t2316;
8376   t6766 = 0.10000000000000000000e1 * t2318;
8377   t6767 = 0.10000000000000000000e1 * t2320;
8378   t6768 = -t1442 - t1451 + t1460 + t1463 + t1466 + t6763 + t6764 + t6765 + t6766 + t6767 + t1509;
8379   t6769 = 0.62181400000000000000e-1 * t2323;
8380   t6770 = 0.62181400000000000000e-1 * t2326;
8381   t6772 = -t6769 + t6770 + t1511 + t1740 - t2820 - t2821 - t1742 / 0.24e2 - t1748 - t1752 - t1761 + t1860;
8382   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
8383     v3rho3[1] = -t2428 - t2429 - t2430 + t5486 - t5487 - t5488 - t5489 + t5490 + t5491 - t1110 + t5499 + t6739 + t6740 + t6749 + t6761 + t6768 + t6772;
8384 
8385   t6779 = -t5489 + t5490 - t2503 - t2506 - t2509 - t2527 - t2530 - t2533 - t2535 - t2553 - t2555;
8386   t6781 = t5491 - t1120 - t1196 + t4045 - t1201 + t4047 + t5496 - t2559 - t2564 - t2568 - t2572;
8387   t6782 = -t2576 + t5497 - t5498 - t5501 + t5502 + t5503 - t5504 - t5505 - t5506 + t2578 + t2580;
8388   t6785 = -t5507 - t5508 + t5509 + t2583 + t2588 + t2621 + t5510 + t2718 + t2720 + t2722 + t6743;
8389   t6786 = t6744 + t6745 + t6746 + t2801 + t2805 + t2809 + t6747 + t2811 + t6748 - t6750 - t6751;
8390   t6791 = t2717 * t676;
8391   t6792 = t2114 * t893;
8392   t6794 = t2723 * t653;
8393   t6799 = t2736 * t653;
8394   t6802 = t873 * tau[0];
8395   t6803 = t6802 * t2150;
8396   t6806 = t719 * t876;
8397   t6807 = t352 * t6806;
8398   t6814 = t873 * sigma[2];
8399   t6815 = t6814 * t2142;
8400   t6818 = t2341 * sigma[2];
8401   t6819 = t352 * t6818;
8402   t6826 = t876 * sigma[2];
8403   t6827 = t6826 * t2142;
8404   t6836 = t2382 * t648;
8405   t6837 = t2795 * t6836;
8406   t6840 = t2382 * t653;
8407   t6841 = t2795 * t6840;
8408   t6844 = t2357 * t648;
8409   t6845 = t885 * t6844;
8410   t6850 = -0.15210e2 * t5050 * t6794 + 0.10140e2 * t5709 * t2211 + 0.5070e1 * t1764 * t6799 + 0.38562000000000000000e-2 * t5725 * t6803 - 0.57843000000000000000e-2 * t5730 * t6807 + 0.57843000000000000000e-2 * t5730 * t6803 - 0.77124000000000000000e-2 * t5745 * t6807 + 0.59231232000000000000e-4 * t5755 * t6815 - 0.10283200000000000000e-1 * t5735 * t6819 - 0.13327027200000000000e-6 * t5715 * t6815 + 0.30849600000000000000e-4 * t5740 * t6819 - 0.59231232000000000000e-4 * t5758 * t6827 - 0.10283200000000000000e-1 * t5748 * t6819 + 0.13327027200000000000e-6 * t5720 * t6827 + 0.30849600000000000000e-4 * t5751 * t6819 + 0.29615616000000000000e-4 * t1849 * t6837 - 0.29615616000000000000e-4 * t1839 * t6841 - 0.33934560000000000000e-2 * t1849 * t6845 + 0.49359360000000000000e-2 * t5774 * t2761;
8411   t6851 = t6826 * t2187;
8412   t6854 = t6826 * t2191;
8413   t6857 = t2358 * t334;
8414   t6860 = t333 * t287;
8415   t6861 = t6860 * t2383;
8416   t6864 = t306 * t2751;
8417   t6868 = t287 * t2751;
8418   t6872 = t306 * t2736;
8419   t6876 = t287 * t2736;
8420   t6880 = t1764 * t876;
8421   t6883 = t2357 * t653;
8422   t6884 = t885 * t6883;
8423   t6887 = t2196 * t2358;
8424   t6902 = t306 * t2775;
8425   t6903 = t6902 * t334;
8426   t6906 = t287 * t2775;
8427   t6907 = t6906 * t334;
8428   t6916 = t306 * t2723;
8429   t6920 = 0.16658784000000000000e-4 * t5005 * t6851 - 0.22211712000000000000e-4 * t5801 * t6854 - 0.36196864000000000000e-4 * t2133 * t6857 - 0.39487488000000000000e-4 * t2195 * t6861 + 0.92548800000000000000e-3 * t1849 * t6864 * t334 - 0.27764640000000000000e-5 * t1853 * t6868 * t334 - 0.92548800000000000000e-3 * t1839 * t6872 * t334 + 0.27764640000000000000e-5 * t1844 * t6876 * t334 + 0.56333333333333333333e2 * t6880 * t2127 + 0.33934560000000000000e-2 * t1839 * t6884 + 0.30164053333333333333e-2 * t2195 * t6887 + 0.10180368000000000000e-4 * t1853 * t889 * t6844 - 0.10180368000000000000e-4 * t1844 * t889 * t6883 - 0.66635136000000000000e-7 * t1853 * t2788 * t6836 + 0.66635136000000000000e-7 * t1844 * t2788 * t6840 + 0.18509760000000000000e-2 * t5125 * t6903 - 0.55529280000000000000e-5 * t2153 * t6907 + 0.20823480000000000000e-2 * t5051 * t2154 * t5791 - 0.41646960000000000000e-2 * t5038 * t2154 * t2211 + 0.37019520000000000000e-2 * t5110 * t6916 * t334;
8430   t6922 = t287 * t2723;
8431   t6928 = t2383 * t334;
8432   t6933 = t873 * t876;
8433   t6934 = t6933 * t334;
8434   t6939 = t352 * t2363;
8435   t6944 = t6814 * t2187;
8436   t6947 = t6814 * t2191;
8437   t6964 = t2363 * t297;
8438   t6969 = t6902 * t653;
8439   t6972 = -0.11105856000000000000e-4 * t2165 * t6922 * t334 + 0.81442944000000000000e-7 * t2137 * t6857 + 0.35538739200000000000e-6 * t5804 * t6928 - 0.71077478400000000000e-9 * t5808 * t6928 - 0.55529280000000000000e-2 * t5011 * t6934 + 0.16658784000000000000e-4 * t5005 * t6934 - 0.25708000000000000000e-2 * t2126 * t6939 - 0.25708000000000000000e-2 * t2130 * t6939 + 0.37019520000000000000e-2 * t5777 * t6944 - 0.55529280000000000000e-2 * t5011 * t6947 - 0.49359360000000000000e-2 * t5771 * t2754 - 0.11105856000000000000e-4 * t5782 * t6944 + 0.16658784000000000000e-4 * t5005 * t6947 - 0.55529280000000000000e-2 * t5011 * t6851 + 0.74039040000000000000e-2 * t5797 * t6854 + 0.14515200000000000000e-4 * t334 * t2796 + 0.73826133333333333333e-3 * t334 * t2782 + 0.37555555555555555556e2 * t352 * t6964 - 0.34705800000000000000e-3 * t5175 * t2776 + 0.10411740000000000000e-2 * t5051 * t6969;
8440   t6973 = t5017 * t82;
8441   t6974 = t2382 * sigma[0];
8442   t6975 = t6974 * t333;
8443   t6978 = t5022 * t82;
8444   t6981 = t5599 * t876;
8445   t6984 = t2121 * tau[0];
8446   t6987 = t2149 * t700;
8447   t6996 = t2357 * sigma[0];
8448   t6997 = t6996 * t333;
8449   t7016 = t656 * t82;
8450   t7017 = t2382 * t306;
8451   t7018 = t7017 * t648;
8452   t7021 = t662 * t82;
8453   t7022 = t7017 * t653;
8454   t7025 = t5014 * t82;
8455   t7032 = t2751 * t651;
8456   t7035 = 0.31342878720000000000e-8 * t6973 * t6975 - 0.52238131200000000000e-11 * t6978 * t6975 + 0.28166666666666666667e2 * t5598 * t6981 - 0.28166666666666666667e2 * t6984 * t2150 + 0.37555555555555555556e2 * t2148 * t6987 - 0.20823480000000000000e-2 * t5038 * t6916 * t648 + 0.34705800000000000000e-2 * t5624 * t6916 * t653 + 0.24387968000000000000e-4 * t2170 * t6997 - 0.23942476800000000000e-6 * t2140 * t6997 + 0.47884953600000000000e-9 * t2145 * t6997 - 0.34705800000000000000e-3 * t2153 * t6864 * t648 + 0.52058700000000000000e-3 * t1775 * t6864 * t653 + 0.52058700000000000000e-3 * t1775 * t6872 * t648 - 0.69411600000000000000e-3 * t2165 * t6872 * t653 - 0.24679680000000000000e-2 * t7016 * t7018 + 0.24679680000000000000e-2 * t7021 * t7022 - 0.50788454400000000000e-6 * t7025 * t6975 - 0.2535e1 * t1836 * t2736 + 0.5070e1 * t5175 * t2723 - 0.2535e1 * t7032 * t653;
8457   t7037 = t6850 + t6920 + t6972 + t7035;
8458   t7038 = t275 * t7037;
8459   t7039 = t389 * t2410;
8460   t7040 = t7039 * t378;
8461   t7042 = t387 * t18 * t7040;
8462   t7044 = t2507 * t479;
8463   t7046 = t830 * t520;
8464   t7047 = t2009 * t7046;
8465   t7048 = t1213 * t7047;
8466   t7050 = t793 * t7046;
8467   t7051 = t1231 * t7050;
8468   t7053 = t202 * t2099;
8469   t7054 = t2009 * t7053;
8470   t7055 = t1213 * t7054;
8471   t7057 = t6612 * t2225;
8472   t7059 = t2584 * t4714;
8473   t7060 = t7059 * t2224;
8474   t7061 = t5231 * t7060;
8475   t7063 = t6677 * t2225;
8476   t7066 = t4159 / 0.48e2 - t4163 + t4164 / 0.48e2 - t4168 + t4170 / 0.48e2 + t6791 + 0.2e1 * t6792 + t7038 - t7042 / 0.32e2 - 0.31090700000000000000e-1 * t7044 + 0.32163958997385070134e2 * t7048 - 0.20000000000000000000e1 * t7051 - t5536 + 0.32163958997385070134e2 * t7055 - 0.20000000000000000000e1 * t7057 + 0.10345202583854680060e4 * t7061 - 0.20000000000000000000e1 * t7063 + t5822 / 0.8e1;
8477   t7068 = t689 * t2047;
8478   t7069 = t7068 * t203;
8479   t7071 = t2024 * t831;
8480   t7073 = t378 * t2550;
8481   t7074 = t7073 * t203;
8482   t7080 = t538 * t2539;
8483   t7082 = t4606 * t2537;
8484   t7083 = t7082 * t378;
8485   t7084 = t4625 * t7083;
8486   t7085 = t207 * t7084;
8487   t7087 = t4630 * t2537;
8488   t7088 = t7087 * t378;
8489   t7089 = t1357 * t7088;
8490   t7090 = t207 * t7089;
8491   t7092 = t2033 * t2;
8492   t7093 = t1357 * t7092;
8493   t7094 = t1929 * t7093;
8494   t7096 = t538 * t2543;
8495   t7098 = t2538 * t378;
8496   t7099 = t489 * t7098;
8497   t7100 = t207 * t7099;
8498   t7102 = t2038 * t2;
8499   t7103 = t489 * t7102;
8500   t7104 = t1929 * t7103;
8501   t7106 = t538 * t2547;
8502   t7108 = t1359 * t2421;
8503   t7109 = t7108 * t378;
8504   t7110 = t1357 * t7109;
8505   t7111 = t207 * t7110;
8506   t7113 = t1366 * t2421;
8507   t7114 = t7113 * t378;
8508   t7115 = t489 * t7114;
8509   t7116 = t207 * t7115;
8510   t7120 = 0.2e1 * t1103 + 0.6e1 * t4268;
8511   t7121 = t491 * t7120;
8512   t7122 = t489 * t7121;
8513   t7123 = t207 * t7122;
8514   t7125 = -t4919 - 0.76103703703703703703e-2 * t4615 - 0.15220740740740740740e-1 * t6088 + 0.76103703703703703700e-2 * t6090 - t6093 - 0.22831111111111111110e-1 * t6094 + 0.38051851851851851850e-2 * t7080 - 0.19025925925925925925e-1 * t7085 + 0.68493333333333333331e-1 * t7090 + 0.45662222222222222220e-1 * t7094 - 0.11415555555555555555e-1 * t7096 - 0.10274000000000000000e0 * t7100 - 0.13698666666666666666e0 * t7104 + 0.57077777777777777777e-2 * t7106 - 0.11415555555555555555e-1 * t7111 + 0.34246666666666666666e-1 * t7116 - 0.17123333333333333333e-1 * t7123;
8515   t7126 = t65 * t7125;
8516   t7127 = t7126 * t203;
8517   t7129 = t2027 * t831;
8518   t7131 = t2048 * t831;
8519   t7133 = t482 * t2501;
8520   t7135 = t497 * t2501;
8521   t7137 = -t7120;
8522   t7138 = t7137 * t114;
8523   t7139 = t7138 * t159;
8524   t7141 = t2416 * t412;
8525   t7142 = t7141 * t159;
8526   t7144 = t2504 * t479;
8527   t7146 = t680 * t2062;
8528   t7147 = t7146 * t159;
8529   t7149 = t314 * t2524;
8530   t7150 = t7149 * t159;
8531   t7152 = -t5825 - t5827 - t5828 / 0.8e1 - t5833 - t5847 - 0.31090700000000000000e-1 * t7069 - 0.31090700000000000000e-1 * t7071 - 0.15545350000000000000e-1 * t7074 - 0.15545350000000000000e-1 * t7127 - 0.31090700000000000000e-1 * t7129 - 0.31090700000000000000e-1 * t7131 - 0.15545350000000000000e-1 * t7133 - 0.15545350000000000000e-1 * t7135 - 0.15545350000000000000e-1 * t7139 - 0.15545350000000000000e-1 * t7142 - 0.15545350000000000000e-1 * t7144 - 0.31090700000000000000e-1 * t7147 - 0.15545350000000000000e-1 * t7150;
8532   t7158 = t538 * t2513;
8533   t7160 = t4263 * t2511;
8534   t7161 = t7160 * t314;
8535   t7162 = t4298 * t7161;
8536   t7163 = t207 * t7162;
8537   t7165 = t4278 * t2511;
8538   t7166 = t7165 * t314;
8539   t7167 = t1246 * t7166;
8540   t7168 = t207 * t7167;
8541   t7170 = t1916 * t2;
8542   t7171 = t1246 * t7170;
8543   t7172 = t1929 * t7171;
8544   t7174 = t538 * t2517;
8545   t7176 = t2512 * t314;
8546   t7177 = t405 * t7176;
8547   t7178 = t207 * t7177;
8548   t7180 = t1921 * t2;
8549   t7181 = t405 * t7180;
8550   t7182 = t1929 * t7181;
8551   t7184 = t538 * t2521;
8552   t7186 = t1248 * t2416;
8553   t7187 = t7186 * t314;
8554   t7188 = t1246 * t7187;
8555   t7189 = t207 * t7188;
8556   t7191 = t1255 * t2416;
8557   t7192 = t7191 * t314;
8558   t7193 = t405 * t7192;
8559   t7194 = t207 * t7193;
8560   t7196 = t407 * t7137;
8561   t7197 = t405 * t7196;
8562   t7198 = t207 * t7197;
8563   t7200 = -t4901 - 0.76103703703703703703e-2 * t4287 - 0.15220740740740740740e-1 * t5875 + 0.76103703703703703700e-2 * t5877 - t5880 + 0.22831111111111111110e-1 * t5885 + 0.38051851851851851850e-2 * t7158 - 0.19025925925925925925e-1 * t7163 + 0.68493333333333333331e-1 * t7168 - 0.45662222222222222220e-1 * t7172 - 0.11415555555555555555e-1 * t7174 - 0.10274000000000000000e0 * t7178 + 0.13698666666666666666e0 * t7182 + 0.57077777777777777777e-2 * t7184 - 0.11415555555555555555e-1 * t7189 + 0.34246666666666666666e-1 * t7194 - 0.17123333333333333333e-1 * t7198;
8564   t7201 = t6 * t7200;
8565   t7202 = t7201 * t159;
8566   t7204 = t2525 * t479;
8567   t7206 = t7120 * t165;
8568   t7207 = t7206 * t203;
8569   t7209 = t2421 * t496;
8570   t7210 = t7209 * t203;
8571   t7212 = t2251 * t2;
8572   t7214 = t2249 * t6504 * t7212;
8573   t7216 = t60 * t2511;
8574   t7217 = t7216 * t314;
8575   t7219 = t6645 * t6646 * t7217;
8576   t7221 = t2258 * t2;
8577   t7223 = t2256 * t6498 * t7221;
8578   t7225 = t740 * t689;
8579   t7226 = t7225 * t378;
8580   t7228 = t2249 * t2250 * t7226;
8581   t7230 = t102 * t2421;
8582   t7231 = t7230 * t378;
8583   t7233 = t2249 * t2250 * t7231;
8584   t7235 = t102 * t2537;
8585   t7236 = t7235 * t378;
8586   t7238 = t6673 * t2250 * t7236;
8587   t7240 = t60 * t2416;
8588   t7241 = t7240 * t314;
8589   t7243 = t2256 * t2257 * t7241;
8590   t7246 = t6669 * t2257 * t7217;
8591   t7248 = t380 * t2412;
8592   t7251 = t7137 * t7 * t13;
8593   t7252 = t7251 * t62;
8594   t7254 = t2418 * t375;
8595   t7257 = t7120 * t7 * t13;
8596   t7258 = t7257 * t104;
8597   t7260 = t1889 * t741;
8598   t7261 = t1888 * t7260;
8599   t7263 = t127 * t2411;
8600   t7264 = t67 * t7263;
8601   t7266 = -0.15545350000000000000e-1 * t7202 - 0.15545350000000000000e-1 * t7204 - 0.15545350000000000000e-1 * t7207 - 0.15545350000000000000e-1 * t7210 + t7214 / 0.6e1 - 0.7e1 / 0.72e2 * t7219 - t7223 / 0.6e1 - t7228 / 0.12e2 - t7233 / 0.24e2 + t7238 / 0.8e1 - t7243 / 0.24e2 + t7246 / 0.8e1 - 0.3e1 / 0.32e2 * t7248 - 0.3e1 / 0.32e2 * t7252 - 0.3e1 / 0.32e2 * t7254 - 0.3e1 / 0.32e2 * t7258 + 0.3e1 / 0.8e1 * t7261 - t7264 / 0.32e2;
8602   t7267 = t2418 * t319;
8603   t7269 = t2423 * t383;
8604   t7271 = t691 * t1880;
8605   t7273 = t4231 * t2817;
8606   t7275 = t4212 * t2817;
8607   t7280 = t2816 * t2224;
8608   t7281 = t1213 * t7280;
8609   t7283 = t2585 * t2224;
8610   t7284 = t4217 * t7283;
8611   t7286 = t793 * t7053;
8612   t7287 = t1231 * t7286;
8613   t7289 = t629 * t2800;
8614   t7290 = t859 * t2215;
8615   t7292 = t6532 * t2221;
8616   t7294 = t158 * t1963;
8617   t7295 = t2001 * t7294;
8618   t7296 = t1454 * t7295;
8619   t7298 = t847 * t6579;
8620   t7299 = t6064 * t7298;
8621   t7301 = t6707 * t2218;
8622   t7303 = t2650 * t4361;
8623   t7304 = t7303 * t2217;
8624   t7305 = t4358 * t7304;
8625   t7307 = -t7267 / 0.32e2 - t7269 / 0.32e2 - t7271 / 0.16e2 - 0.10000000000000000000e1 * t7273 - 0.10000000000000000000e1 * t7275 + t5958 / 0.24e2 + t5964 / 0.24e2 + t5966 / 0.24e2 + 0.30000000000000000000e1 * t7281 - 0.96491876992155210402e2 * t7284 - 0.20000000000000000000e1 * t7287 + t7289 + 0.2e1 * t7290 - 0.20000000000000000000e1 * t7292 + 0.32163958997385070134e2 * t7296 + 0.20000000000000000000e1 * t7299 + 0.32163958997385070134e2 * t7301 + 0.10345202583854680060e4 * t7305;
8626   t7310 = t855 * t5981;
8627   t7311 = t5980 * t7310;
8628   t7313 = t6526 * t2228;
8629   t7315 = t5531 * t2221;
8630   t7317 = t5942 * t2228;
8631   t7319 = t2802 * t2217;
8632   t7320 = t1223 * t7319;
8633   t7322 = t6606 * t2218;
8634   t7324 = t2812 * t2217;
8635   t7325 = t1454 * t7324;
8636   t7327 = t545 * t2608;
8637   t7331 = t516 * t7121;
8638   t7334 = t545 * t2611;
8639   t7336 = t545 * t2614;
8640   t7345 = t1495 * t7109;
8641   t7368 = -t4673 - 0.4e1 / 0.27e2 * t4615 - 0.8e1 / 0.27e2 * t6088 + t6250 - t6251 - 0.4e1 / 0.9e1 * t6094 + 0.2e1 / 0.27e2 * t7080 - 0.10e2 / 0.27e2 * t7085 + 0.4e1 / 0.3e1 * t7090 + 0.8e1 / 0.9e1 * t7094 - 0.2e1 / 0.9e1 * t7096 - 0.2e1 * t7100 - 0.8e1 / 0.3e1 * t7104 + t7106 / 0.9e1 - 0.2e1 / 0.9e1 * t7111 + 0.2e1 / 0.3e1 * t7116 - t7123 / 0.3e1;
8642   t7371 = -0.41318000000000000000e1 * t7104 - 0.34431666666666666667e0 * t7111 - 0.34731666666666666667e-1 * t216 * t7345 - t6294 + 0.46308888888888888890e-1 * t6295 + 0.11477222222222222222e0 * t7080 - 0.34431666666666666667e0 * t7096 + 0.17215833333333333333e0 * t7106 - 0.51647500000000000000e0 * t7123 + 0.10329500000000000000e1 * t7116 + 0.35297250000000000000e1 * t503 * t7368;
8643   t7373 = t1495 * t7088;
8644   t7376 = t4604 * t7083;
8645   t7379 = t1495 * t7092;
8646   t7382 = t516 * t7098;
8647   t7385 = t516 * t7102;
8648   t7388 = t516 * t7114;
8649   t7399 = t4689 * t2589;
8650   t7404 = t1485 * t2596;
8651   t7407 = t4695 * t2589;
8652   t7412 = t1468 * t2596;
8653   t7415 = 0.63116250000000000000e0 * t510 * t7368 - 0.45908888888888888888e0 * t6088 - 0.68863333333333333332e0 * t6094 - 0.27785333333333333334e0 * t6323 - 0.23154444444444444445e0 * t6325 - 0.15779062500000000000e0 * t7399 * t505 + 0.63116250000000000000e0 * t2082 * t2074 + 0.31558125000000000000e0 * t7404 * t505 + 0.26472937500000000000e1 * t7407 * t505 - 0.35297250000000000000e1 * t2066 * t2074 - 0.17648625000000000000e1 * t7412 * t505;
8654   t7417 = 0.23154444444444444445e-1 * t7327 - 0.11577222222222222222e0 * t4598 - 0.22954444444444444444e0 * t4615 - 0.10419500000000000000e0 * t216 * t7331 - 0.13892666666666666667e0 * t7334 + 0.69463333333333333333e-1 * t7336 - 0.57386111111111111112e0 * t7085 + 0.20659000000000000000e1 * t7090 + 0.13772666666666666667e1 * t7094 - 0.30988500000000000000e1 * t7100 + t7371 + 0.20839000000000000000e0 * t216 * t7373 - 0.46308888888888888889e-1 * t216 * t7376 + 0.13892666666666666667e0 * t1959 * t7379 - 0.62517000000000000000e0 * t216 * t7382 - 0.83356000000000000000e0 * t1959 * t7385 + 0.20839000000000000000e0 * t216 * t7388 - t4669 - t4672 + t6307 - 0.68863333333333333332e0 * t6092 + t7415;
8655   t7418 = t7417 * t521;
8656   t7419 = t7418 * t202;
8657   t7420 = t502 * t7419;
8658   t7422 = t1208 * t2619;
8659   t7424 = t4193 * t2586;
8660   t7426 = t1205 * t2619;
8661   t7428 = t2278 * t830;
8662   t7429 = t502 * t7428;
8663   t7431 = t4201 * t2586;
8664   t7433 = t5265 * t2511;
8665   t7435 = t1754 * t18 * t7433;
8666   t7437 = t2235 * t2;
8667   t7439 = t387 * t1415 * t7437;
8668   t7441 = t390 * t7120;
8669   t7443 = t387 * t18 * t7441;
8670   t7445 = t1744 * t2416;
8671   t7447 = t323 * t18 * t7445;
8672   t7449 = t326 * t7137;
8673   t7451 = t323 * t18 * t7449;
8674   t7453 = -0.20000000000000000000e1 * t7311 + 0.32163958997385070134e2 * t7313 - 0.20000000000000000000e1 * t7315 + 0.32163958997385070134e2 * t7317 - 0.10000000000000000000e1 * t7320 + 0.32163958997385070134e2 * t7322 + 0.30000000000000000000e1 * t7325 + 0.50000000000000000001e0 * t7420 + 0.50000000000000000001e0 * t7422 + 0.16081979498692535067e2 * t7424 + 0.50000000000000000001e0 * t7426 + 0.10000000000000000000e1 * t7429 + 0.16081979498692535067e2 * t7431 - t7435 / 0.24e2 + t7439 / 0.8e1 - t7443 / 0.32e2 - t7447 / 0.32e2 - t7451 / 0.32e2;
8675   t7454 = t778 * t180;
8676   t7455 = t7454 * t202;
8677   t7456 = t1104 * t7455;
8678   t7458 = t2107 * t830;
8679   t7459 = t1104 * t7458;
8680   t7461 = t752 * t136;
8681   t7462 = t7461 * t158;
8682   t7463 = t1104 * t7462;
8683   t7465 = t1205 * t2581;
8684   t7467 = t1208 * t2581;
8685   t7469 = t2269 * t2279;
8686   t7471 = t6557 * t794;
8687   t7473 = t6630 * t768;
8688   t7475 = t6633 * t768;
8689   t7477 = t2272 * t2279;
8690   t7479 = t6554 * t794;
8691   t7481 = t6551 * t794;
8692   t7483 = t4427 * t2511;
8693   t7488 = t1513 * t2416;
8694   t7493 = t4436 * t2537;
8695   t7498 = t1519 * t2421;
8696   t7504 = (-0.8e1 / 0.27e2 * t7483 * t314 + 0.16e2 / 0.9e1 * t1980 * t1104 + 0.4e1 / 0.9e1 * t7488 * t314 + 0.4e1 / 0.3e1 * t231 * t7137 - 0.8e1 / 0.27e2 * t7493 * t378 - 0.16e2 / 0.9e1 * t1986 * t1104 + 0.4e1 / 0.9e1 * t7498 * t378 + 0.4e1 / 0.3e1 * t233 * t7120) * t238;
8697   t7509 = t2009 * t2099;
8698   t7512 = t7059 * t520;
8699   t7518 = t2617 * t1216;
8700   t7519 = t7518 * t520;
8701   t7522 = 0.19751673498613801407e-1 * t7504 * t264 - t4411 + t4414 + 0.20000000000000000000e1 * t5980 * t856 - 0.32163958997385070134e2 * t1213 * t7509 - 0.10345202583854680060e4 * t5231 * t7512 + 0.23392894490538584828e1 * t5996 - 0.8e1 * t4415 - 0.8e1 * t4421 - t6052 - 0.16081979498692535067e2 * t1213 * t7519 - t4452 + t4454 + t4456 + t6058 - t6059;
8702   t7530 = t2643 * t254;
8703   t7531 = t7530 * t610;
8704   t7533 = t2816 * t520;
8705   t7536 = t793 * t2099;
8706   t7541 = t2806 * t439;
8707   t7544 = -0.11696447245269292414e1 * t6060 - 0.34631718211362927517e2 * t6062 - t6069 + 0.20e2 * t4466 + 0.40e2 * t6071 - 0.24e2 * t6073 + t6077 + 0.12e2 * t4470 + 0.32e2 * t4472 + t4477 - t4521 - 0.58482236226346462070e0 * t7531 - 0.30000000000000000000e1 * t1213 * t7533 + 0.20000000000000000000e1 * t1231 * t7536 + 0.20000000000000000000e1 * t6532 * t2013 + 0.96491876992155210402e2 * t5192 * t7541;
8708   t7583 = -t4323 - 0.4e1 / 0.27e2 * t4287 - 0.8e1 / 0.27e2 * t5875 + t6385 - t6386 + 0.4e1 / 0.9e1 * t5885 + 0.2e1 / 0.27e2 * t7158 - 0.10e2 / 0.27e2 * t7163 + 0.4e1 / 0.3e1 * t7168 - 0.8e1 / 0.9e1 * t7172 - 0.2e1 / 0.9e1 * t7174 - 0.2e1 * t7178 + 0.8e1 / 0.3e1 * t7182 + t7184 / 0.9e1 - 0.2e1 / 0.9e1 * t7189 + 0.2e1 / 0.3e1 * t7194 - t7198 / 0.3e1;
8709   t7588 = t435 * t7192;
8710   t7591 = t1421 * t7187;
8711   t7594 = t1421 * t7166;
8712   t7597 = t4261 * t7161;
8713   t7600 = t1421 * t7170;
8714   t7603 = t435 * t7176;
8715   t7609 = t435 * t7180;
8716   t7612 = t435 * t7196;
8717   t7624 = 0.83356000000000000000e0 * t1959 * t7609 - 0.10419500000000000000e0 * t216 * t7612 - 0.57386111111111111112e0 * t7163 + 0.20659000000000000000e1 * t7168 - 0.13772666666666666667e1 * t7172 - 0.30988500000000000000e1 * t7178 + 0.41318000000000000000e1 * t7182 - 0.34431666666666666667e0 * t7189 + 0.10329500000000000000e1 * t7194 + 0.11477222222222222222e0 * t7158 - 0.34431666666666666667e0 * t7174;
8718   t7632 = t545 * t2684;
8719   t7634 = t545 * t2678;
8720   t7637 = t545 * t2681;
8721   t7641 = t4317 * t2659;
8722   t7646 = t1408 * t2666;
8723   t7649 = t4313 * t2659;
8724   t7654 = t1391 * t2666;
8725   t7657 = -0.13892666666666666667e0 * t7637 + 0.27785333333333333334e0 * t6440 - 0.23154444444444444445e0 * t6442 - t4339 - t4343 - 0.15779062500000000000e0 * t7641 * t421 + 0.63116250000000000000e0 * t1942 * t1934 + 0.31558125000000000000e0 * t7646 * t421 + 0.26472937500000000000e1 * t7649 * t421 - 0.35297250000000000000e1 * t1910 * t1934 - 0.17648625000000000000e1 * t7654 * t421;
8726   t7659 = 0.35297250000000000000e1 * t419 * t7583 + 0.63116250000000000000e0 * t426 * t7583 + 0.20839000000000000000e0 * t216 * t7588 - 0.34731666666666666667e-1 * t216 * t7591 + 0.20839000000000000000e0 * t216 * t7594 - 0.46308888888888888889e-1 * t216 * t7597 - 0.13892666666666666667e0 * t1959 * t7600 - 0.62517000000000000000e0 * t216 * t7603 - 0.11577222222222222222e0 * t4255 - 0.22954444444444444444e0 * t4287 + t7624 + 0.17215833333333333333e0 * t7184 - 0.51647500000000000000e0 * t7198 - 0.45908888888888888888e0 * t5875 + 0.68863333333333333332e0 * t5885 + t6403 - 0.68863333333333333332e0 * t5879 - t6429 + 0.46308888888888888890e-1 * t6430 + 0.69463333333333333333e-1 * t7632 + 0.23154444444444444445e-1 * t7634 + t7657;
8727   t7661 = t417 * t7659 * t440;
8728   t7666 = t2585 * t520;
8729   t7671 = -0.58482236226346462070e0 * t4522 + 0.10000000000000000000e1 * t482 * t2647 + 0.10000000000000000000e1 * t497 * t2647 + 0.10000000000000000000e1 * t395 * t2652 + 0.10000000000000000000e1 * t413 * t2652 - 0.10000000000000000000e1 * t2051 * t848 - 0.10000000000000000000e1 * t745 * t1965 - 0.10000000000000000000e1 * t2054 * t848 - 0.10000000000000000000e1 * t2063 * t848 - 0.10000000000000000000e1 * t753 * t1965 - 0.50000000000000000001e0 * t395 * t2689 - 0.50000000000000000001e0 * t413 * t2689 - 0.50000000000000000001e0 * t115 * t7661 - 0.16081979498692535067e2 * t395 * t2693 + 0.96491876992155210402e2 * t4217 * t7666 + 0.62181400000000000000e-1 * t1104 * t7461;
8730   t7684 = -0.62181400000000000000e-1 * t1104 * t7454 - t4536 + t4540 + 0.24415263074675393405e-3 * t4541 + 0.48830526149350786811e-3 * t6137 - t6141 + t4545 - t4552 + t4559 - t4564 + t4575 - 0.17315859105681463759e2 * t4579 + t4586 + 0.11696447245269292414e1 * t4587 + 0.31090700000000000000e-1 * t7146 * t136 + 0.15545350000000000000e-1 * t7149 * t136 + 0.15545350000000000000e-1 * t7201 * t136;
8731   t7697 = t2618 * t520;
8732   t7702 = t2802 * t439;
8733   t7705 = t2687 * t1456;
8734   t7706 = t7705 * t439;
8735   t7713 = 0.31090700000000000000e-1 * t7068 * t180 + 0.15545350000000000000e-1 * t7073 * t180 - t6145 - t4729 - 0.20000000000000000000e1 * t6064 * t848 - 0.32163958997385070134e2 * t6707 * t2002 - 0.32163958997385070134e2 * t6526 * t2010 + 0.10000000000000000000e1 * t1231 * t7697 + 0.20000000000000000000e1 * t5531 * t2013 + 0.10000000000000000000e1 * t1223 * t7702 - 0.16081979498692535067e2 * t1454 * t7706 - 0.32163958997385070134e2 * t6606 * t2002 + 0.20000000000000000000e1 * t6677 * t2016 + t4731 + t4889 + t4766;
8736   t7714 = t2812 * t439;
8737   t7717 = t767 * t1963;
8738   t7732 = -t4820 + t4832 - 0.30000000000000000000e1 * t1454 * t7714 + 0.20000000000000000000e1 * t1223 * t7717 - t4867 + t4871 - t4874 + 0.15545350000000000000e-1 * t7126 * t180 + 0.15545350000000000000e-1 * t7138 * t136 + 0.15545350000000000000e-1 * t7141 * t136 + 0.15545350000000000000e-1 * t7206 * t180 + 0.15545350000000000000e-1 * t7209 * t180 + 0.21687162600603479684e-1 * t6201 + t4894 + 0.10843581300301739842e-1 * t4896 - t4900;
8739   t7757 = t501 * t7417 * t521;
8740   t7760 = 0.20000000000000000000e1 * t6612 * t2016 - 0.32163958997385070134e2 * t5942 * t2010 - 0.16e2 * t6471 - t6474 + t6477 - t6479 + 0.2e1 * t6487 - 0.16081979498692535067e2 * t413 * t2693 - 0.10000000000000000000e1 * t2024 * t856 - 0.10000000000000000000e1 * t771 * t2101 - 0.10000000000000000000e1 * t2027 * t856 - 0.10000000000000000000e1 * t2048 * t856 - 0.10000000000000000000e1 * t779 * t2101 - 0.50000000000000000001e0 * t482 * t2702 - 0.50000000000000000001e0 * t497 * t2702 - 0.50000000000000000001e0 * t166 * t7757;
8741   t7765 = t558 * t2709;
8742   t7779 = t7504 * t266;
8743   t7781 = t2643 * t598;
8744   t7782 = t230 * t7781;
8745   t7783 = t553 * t2709;
8746   t7785 = t2001 * t1963;
8747   t7788 = t7303 * t439;
8748   t7791 = t2643 * t7;
8749   t7792 = t7791 * t605;
8750   t7794 = -0.16081979498692535067e2 * t482 * t2706 - 0.16081979498692535067e2 * t497 * t2706 - 0.4e1 * t7765 - 0.10000000000000000000e1 * t2507 * t618 - 0.50000000000000000001e0 * t2525 * t618 - 0.50000000000000000001e0 * t2528 * t626 - 0.10000000000000000000e1 * t2531 * t626 - 0.50000000000000000001e0 * t2551 * t626 - 0.50000000000000000001e0 * t2504 * t618 + t230 * t7779 + t7782 + 0.4e1 * t7783 - t4962 - t4966 - 0.32163958997385070134e2 * t1454 * t7785 - 0.10345202583854680060e4 * t4358 * t7788 - 0.18311447306006545054e-3 * t7792;
8751   t7797 = t7522 + t7544 + t7671 + t7684 + t7713 + t7732 + t7760 + t7794;
8752   t7798 = t7797 * t310;
8753   t7799 = t1387 * t2803;
8754   t7801 = t1461 * t2803;
8755   t7803 = t2315 * t2308;
8756   t7805 = t2315 * t2312;
8757   t7807 = t7518 * t2224;
8758   t7808 = t1213 * t7807;
8759   t7810 = 0.62181400000000000000e-1 * t7456 + 0.62181400000000000000e-1 * t7459 - 0.62181400000000000000e-1 * t7463 + 0.10000000000000000000e1 * t7465 + 0.10000000000000000000e1 * t7467 + 0.10000000000000000000e1 * t7469 + 0.10000000000000000000e1 * t7471 + 0.10000000000000000000e1 * t7473 + 0.10000000000000000000e1 * t7475 + 0.10000000000000000000e1 * t7477 + 0.10000000000000000000e1 * t7479 + 0.10000000000000000000e1 * t7481 + t7798 + 0.50000000000000000001e0 * t7799 + 0.50000000000000000001e0 * t7801 + 0.10000000000000000000e1 * t7803 + 0.10000000000000000000e1 * t7805 + 0.16081979498692535067e2 * t7808;
8760   t7812 = t2618 * t2224;
8761   t7813 = t1231 * t7812;
8762   t7815 = t767 * t7294;
8763   t7816 = t1223 * t7815;
8764   t7818 = t4209 * t2807;
8765   t7820 = t4223 * t2807;
8766   t7822 = t7659 * t440;
8767   t7823 = t7822 * t158;
8768   t7824 = t418 * t7823;
8769   t7826 = t2802 * t478;
8770   t7827 = t418 * t7826;
8771   t7829 = t2806 * t478;
8772   t7830 = t1454 * t7829;
8773   t7832 = t6565 * t768;
8774   t7834 = t2264 * t2312;
8775   t7836 = t2264 * t2308;
8776   t7838 = t2504 * t417;
8777   t7839 = t7838 * t442;
8778   t7841 = t2525 * t417;
8779   t7842 = t7841 * t442;
8780   t7844 = t522 * t2500;
8781   t7845 = t502 * t7844;
8782   t7847 = t5215 * t2813;
8783   t7849 = t2507 * t417;
8784   t7850 = t7849 * t442;
8785   t7852 = t5212 * t2813;
8786   t7854 = t2551 * t501;
8787   t7855 = t7854 * t523;
8788   t7857 = t2272 * t2275;
8789   t7859 = -0.10000000000000000000e1 * t7813 - 0.20000000000000000000e1 * t7816 + 0.16081979498692535067e2 * t7818 + 0.16081979498692535067e2 * t7820 + 0.50000000000000000001e0 * t7824 + 0.50000000000000000001e0 * t7827 + 0.16081979498692535067e2 * t7830 + 0.10000000000000000000e1 * t7832 + 0.10000000000000000000e1 * t7834 + 0.10000000000000000000e1 * t7836 + 0.50000000000000000001e0 * t7839 + 0.50000000000000000001e0 * t7842 + 0.50000000000000000001e0 * t7845 - 0.10000000000000000000e1 * t7847 + 0.10000000000000000000e1 * t7850 - 0.10000000000000000000e1 * t7852 + 0.50000000000000000001e0 * t7855 + 0.10000000000000000000e1 * t7857;
8790   t7860 = t2269 * t2275;
8791   t7862 = t2528 * t501;
8792   t7863 = t7862 * t523;
8793   t7865 = t2531 * t501;
8794   t7866 = t7865 * t523;
8795   t7868 = t2812 * t478;
8796   t7869 = t1223 * t7868;
8797   t7872 = t5838 * t5839 * t7236;
8798   t7875 = t1444 * t127 * t2573;
8799   t7878 = t387 * t127 * t2565;
8800   t7881 = t387 * t127 * t2569;
8801   t7884 = t323 * t127 * t2556;
8802   t7887 = t1754 * t127 * t2561;
8803   t7891 = t7705 * t2217;
8804   t7892 = t1454 * t7891;
8805   t7894 = t2806 * t2217;
8806   t7895 = t5192 * t7894;
8807   t7901 = 0.10000000000000000000e1 * t7860 + 0.50000000000000000001e0 * t7863 + 0.10000000000000000000e1 * t7866 - 0.10000000000000000000e1 * t7869 - 0.7e1 / 0.72e2 * t7872 - t7875 / 0.72e2 - t7878 / 0.48e2 - t7881 / 0.96e2 - t7884 / 0.96e2 - t7887 / 0.72e2 + t5244 / 0.144e3 + t5293 / 0.144e3 + 0.16081979498692535067e2 * t7892 - 0.96491876992155210402e2 * t7895 + t6692 / 0.72e2 + t6695 / 0.72e2 - t6699 - t6701 / 0.24e2 + t6704 / 0.24e2;
8808   t7906 = -t6752 - t6753 - t6754 - t6755 - t6756 - t6757 - t6758 - t6759 - t1438 + t3 * (t7066 + t7152 + t7266 + t7307 + t7453 + t7810 + t7859 + t7901) + t6763;
8809   t7909 = t6764 + t6765 + t6766 + t6767 - t2815 - t2819 - t6769 + t6770 - t2329 / 0.24e2 - t2332 / 0.24e2 - t1743;
8810   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
8811     v3rho3[2] = -t2414 - t2420 - t2425 - t2427 - t1881 / 0.8e1 - t1883 / 0.8e1 - t1885 / 0.8e1 + t5486 - t5487 - t5488 + t6779 + t6781 + t6782 + t6785 + t6786 + t7906 + t7909;
8812 
8813   t7930 = -0.9e1 / 0.32e2 * t2413 - 0.9e1 / 0.32e2 * t2419 - 0.9e1 / 0.32e2 * t2424 - 0.9e1 / 0.16e2 * t2426 - 0.3e1 / 0.16e2 * t1881 - 0.3e1 / 0.16e2 * t1883 - 0.3e1 / 0.16e2 * t1885 - 0.46636050000000000000e-1 * t2502 - 0.46636050000000000000e-1 * t2505 - 0.93272100000000000000e-1 * t2508 - 0.46636050000000000000e-1 * t2526 - 0.46636050000000000000e-1 * t2529 - 0.93272100000000000000e-1 * t2532 - 0.93272100000000000000e-1 * t2534 - 0.46636050000000000000e-1 * t2552 - 0.93272100000000000000e-1 * t2554 + t4045 + t4047 - 0.3e1 / 0.32e2 * t2558 - t2563 / 0.8e1;
8814   t7943 = t793 * t2500;
8815   t7944 = t502 * t7943;
8816   t7945 = 0.15000000000000000000e1 * t7944;
8817   t7946 = t2269 * t2619;
8818   t7947 = 0.15000000000000000000e1 * t7946;
8819   t7948 = t2269 * t2581;
8820   t7949 = 0.30000000000000000000e1 * t7948;
8821   t7950 = t2272 * t2581;
8822   t7951 = 0.30000000000000000000e1 * t7950;
8823   t7952 = t5942 * t2586;
8824   t7953 = 0.48245938496077605201e2 * t7952;
8825   t7954 = t2585 * t830;
8826   t7955 = t1213 * t7954;
8827   t7956 = 0.48245938496077605201e2 * t7955;
8828   t7957 = t6526 * t2586;
8829   t7958 = 0.48245938496077605201e2 * t7957;
8830   t7959 = t7865 * t794;
8831   t7960 = 0.30000000000000000000e1 * t7959;
8832   t7962 = t7862 * t794;
8833   t7963 = 0.15000000000000000000e1 * t7962;
8834   t7964 = t6707 * t2807;
8835   t7965 = 0.48245938496077605201e2 * t7964;
8836   t7970 = t1916 * t2416;
8837   t7971 = t1421 * t7970;
8838   t7974 = t1921 * t2416;
8839   t7975 = t435 * t7974;
8840   t7978 = t1246 * t7970;
8841   t7979 = t207 * t7978;
8842   t7981 = t405 * t7974;
8843   t7982 = t207 * t7981;
8844   t7988 = t2511 * t680;
8845   t7989 = t4263 * t7988;
8846   t7990 = t4298 * t7989;
8847   t7991 = t207 * t7990;
8848   t7993 = t4278 * t7988;
8849   t7994 = t1246 * t7993;
8850   t7995 = t207 * t7994;
8851   t7998 = t1248 * t7988;
8852   t7999 = t405 * t7998;
8853   t8000 = t207 * t7999;
8854   t8004 = -0.6e1 * t1103 - 0.6e1 * t4268;
8855   t8005 = t407 * t8004;
8856   t8006 = t405 * t8005;
8857   t8007 = t207 * t8006;
8858   t8009 = -t4323 - 0.4e1 / 0.9e1 * t5875 + 0.2e1 / 0.9e1 * t7158 - 0.2e1 / 0.3e1 * t7174 + t7184 / 0.3e1 - 0.10e2 / 0.27e2 * t7991 + 0.4e1 / 0.3e1 * t7995 - 0.2e1 / 0.3e1 * t7979 - 0.2e1 * t8000 + 0.2e1 * t7982 - t8007 / 0.3e1;
8859   t8019 = 0.94674375000000000000e0 * t1942 * t2666 - 0.52945875000000000000e1 * t1910 * t2666 - 0.10419500000000000000e0 * t216 * t7971 + 0.62517000000000000000e0 * t216 * t7975 - 0.10329500000000000000e1 * t7979 + 0.30988500000000000000e1 * t7982 + 0.63116250000000000000e0 * t426 * t8009 + 0.34431666666666666666e0 * t7158 - 0.10329500000000000000e1 * t7174 + 0.51647499999999999999e0 * t7184 - 0.68863333333333333332e0 * t5875 + 0.20839000000000000000e0 * t7632 + 0.69463333333333333335e-1 * t7634 - 0.41678000000000000001e0 * t7637;
8860   t8020 = t2659 * t757;
8861   t8028 = t435 * t7998;
8862   t8034 = t1421 * t7993;
8863   t8037 = t4261 * t7989;
8864   t8040 = t435 * t8005;
8865   t8044 = 0.26472937500000000000e1 * t4313 * t8020 - 0.15779062500000000000e0 * t4317 * t8020 - 0.34731666666666666667e0 * t6442 - t4339 - t4343 + 0.35297250000000000000e1 * t419 * t8009 - 0.62517000000000000000e0 * t216 * t8028 + 0.20659000000000000000e1 * t7995 - 0.30988500000000000000e1 * t8000 - 0.51647500000000000000e0 * t8007 + 0.20839000000000000000e0 * t216 * t8034 - 0.46308888888888888889e-1 * t216 * t8037 - 0.10419500000000000000e0 * t216 * t8040 - 0.57386111111111111112e0 * t7991;
8866   t8045 = t8019 + t8044;
8867   t8046 = t8045 * t440;
8868   t8047 = t8046 * t158;
8869   t8048 = t418 * t8047;
8870   t8049 = 0.50000000000000000001e0 * t8048;
8871   t8050 = t6606 * t2807;
8872   t8051 = 0.48245938496077605201e2 * t8050;
8873   t8052 = t2264 * t2803;
8874   t8053 = 0.15000000000000000000e1 * t8052;
8875   t8054 = t2650 * t766;
8876   t8055 = t8054 * t4361;
8877   t8056 = t8055 * t158;
8878   t8057 = t4358 * t8056;
8879   t8058 = 0.10345202583854680060e4 * t8057;
8880   t8059 = t7838 * t768;
8881   t8060 = 0.15000000000000000000e1 * t8059;
8882   t8061 = t5531 * t2813;
8883   t8062 = 0.30000000000000000000e1 * t8061;
8884   t8063 = t8054 * t1456;
8885   t8064 = t8063 * t158;
8886   t8065 = t5192 * t8064;
8887   t8066 = 0.96491876992155210402e2 * t8065;
8888   t8067 = t6532 * t2813;
8889   t8068 = 0.30000000000000000000e1 * t8067;
8890   t8073 = t2589 * t783;
8891   t8080 = t2537 * t689;
8892   t8081 = t4606 * t8080;
8893   t8082 = t4625 * t8081;
8894   t8083 = t207 * t8082;
8895   t8085 = t4630 * t8080;
8896   t8086 = t1357 * t8085;
8897   t8087 = t207 * t8086;
8898   t8089 = t2033 * t2421;
8899   t8090 = t1357 * t8089;
8900   t8091 = t207 * t8090;
8901   t8093 = t1359 * t8080;
8902   t8094 = t489 * t8093;
8903   t8095 = t207 * t8094;
8904   t8097 = t2038 * t2421;
8905   t8098 = t489 * t8097;
8906   t8099 = t207 * t8098;
8907   t8101 = -t8004;
8908   t8102 = t491 * t8101;
8909   t8103 = t489 * t8102;
8910   t8104 = t207 * t8103;
8911   t8106 = -t4673 - 0.4e1 / 0.9e1 * t6088 + 0.2e1 / 0.9e1 * t7080 - 0.2e1 / 0.3e1 * t7096 + t7106 / 0.3e1 - 0.10e2 / 0.27e2 * t8083 + 0.4e1 / 0.3e1 * t8087 - 0.2e1 / 0.3e1 * t8091 - 0.2e1 * t8095 + 0.2e1 * t8099 - t8104 / 0.3e1;
8912   t8112 = t1495 * t8089;
8913   t8115 = t516 * t8097;
8914   t8125 = 0.94674375000000000000e0 * t2082 * t2596 - 0.52945875000000000000e1 * t2066 * t2596 + 0.26472937500000000000e1 * t4695 * t8073 + 0.63116250000000000000e0 * t510 * t8106 - 0.15779062500000000000e0 * t4689 * t8073 + 0.69463333333333333335e-1 * t7327 - 0.10419500000000000000e0 * t216 * t8112 + 0.62517000000000000000e0 * t216 * t8115 - 0.10329500000000000000e1 * t8091 + 0.30988500000000000000e1 * t8099 - 0.41678000000000000001e0 * t7334 + 0.20839000000000000000e0 * t7336 + 0.35297250000000000000e1 * t503 * t8106 + 0.34431666666666666666e0 * t7080;
8915   t8129 = t1495 * t8085;
8916   t8132 = t516 * t8093;
8917   t8135 = t516 * t8102;
8918   t8138 = t4604 * t8081;
8919   t8146 = -0.10329500000000000000e1 * t7096 + 0.51647499999999999999e0 * t7106 - 0.51647500000000000000e0 * t8104 + 0.20839000000000000000e0 * t216 * t8129 - 0.62517000000000000000e0 * t216 * t8132 - 0.10419500000000000000e0 * t216 * t8135 - 0.46308888888888888889e-1 * t216 * t8138 - 0.57386111111111111112e0 * t8083 + 0.20659000000000000000e1 * t8087 - 0.30988500000000000000e1 * t8095 - t4669 - t4672 - 0.68863333333333333332e0 * t6088 - 0.34731666666666666667e0 * t6325;
8920   t8147 = t8125 + t8146;
8921   t8148 = t8147 * t521;
8922   t8149 = t8148 * t202;
8923   t8150 = t502 * t8149;
8924   t8151 = 0.50000000000000000001e0 * t8150;
8925   t8152 = t7963 + t7965 + t8049 + t8051 + t8053 + t8058 + t8060 - t8062 - t8066 - t8068 + t8151;
8926   t8154 = t2272 * t2619;
8927   t8155 = 0.15000000000000000000e1 * t8154;
8928   t8160 = t5958 / 0.16e2;
8929   t8161 = t5964 / 0.16e2;
8930   t8162 = t5966 / 0.16e2;
8931   t8163 = t2816 * t830;
8932   t8164 = t1231 * t8163;
8933   t8165 = 0.30000000000000000000e1 * t8164;
8934   t8166 = t7854 * t794;
8935   t8167 = 0.15000000000000000000e1 * t8166;
8936   t8168 = t2584 * t792;
8937   t8169 = t8168 * t4714;
8938   t8170 = t8169 * t202;
8939   t8171 = t5231 * t8170;
8940   t8172 = 0.10345202583854680060e4 * t8171;
8941   t8173 = t8155 - 0.3e1 / 0.32e2 * t7264 - 0.3e1 / 0.32e2 * t7267 - 0.3e1 / 0.32e2 * t7269 - 0.3e1 / 0.16e2 * t7271 + t8160 + t8161 + t8162 - t8165 + t8167 + t8172;
8942   t8174 = t202 * t792;
8943   t8175 = t7518 * t8174;
8944   t8176 = t1213 * t8175;
8945   t8177 = 0.48245938496077605201e2 * t8176;
8946   t8178 = t859 * t2800;
8947   t8179 = 0.3e1 * t8178;
8948   t8180 = t2618 * t830;
8949   t8181 = t502 * t8180;
8950   t8182 = 0.15000000000000000000e1 * t8181;
8951   t8183 = t2315 * t2803;
8952   t8184 = 0.15000000000000000000e1 * t8183;
8953   t8185 = t7849 * t768;
8954   t8186 = 0.30000000000000000000e1 * t8185;
8955   t8187 = t7841 * t768;
8956   t8188 = 0.15000000000000000000e1 * t8187;
8957   t8189 = t2717 * t893;
8958   t8190 = 0.3e1 * t8189;
8959   t8191 = t2723 * t876;
8960   t8198 = 0.1e1 / t73 / t84;
8961   t8199 = sigma[2] * t8198;
8962   t8206 = tau[1] * t2357;
8963   t8208 = 0.44e2 / 0.9e1 * t48 * t8206;
8964   t8210 = 0.880e3 / 0.27e2 * t52 * t8206;
8965   t8211 = -t8208 - t8210;
8966   t8215 = 0.1e1 / t72 / t711;
8967   t8216 = t82 * t8215;
8968   t8217 = t8216 * t306;
8969   t8219 = 0.1e1 / t2454;
8970   t8220 = t710 * t8219;
8971   t8221 = t8220 * t287;
8972   t8229 = -t8208 + t8210;
8973   t8236 = t700 * t876;
8974   t8237 = t6814 * t8236;
8975   t8240 = 0.34705800000000000000e-2 * t4982 * t307 * t8191 - 0.15210e2 * t5050 * t8191 - 0.21532622222222222222e0 * t8199 * t280 + 0.15210e2 * t5709 * t2723 - 0.7605e1 * t2121 * t2736 - 0.2535e1 * t652 * t8211 + 0.22147840000000000000e-2 * t8217 + 0.14515200000000000000e-4 * t8221 - 0.7605e1 * t7032 * t876 + 0.90492160000000000000e-2 * t305 * t8217 - 0.39487488000000000000e-4 * t305 * t8221 - 0.17352900000000000000e-3 * t656 * t307 * t8229 + 0.17352900000000000000e-3 * t662 * t307 * t8211 - 0.16658784000000000000e-1 * t5011 * t8237;
8976   t8243 = t6864 * t701;
8977   t8246 = t2176 * t2383;
8978   t8255 = t6872 * t701;
8979   t8258 = t2183 * t2383;
8980   t8267 = t6902 * t701;
8981   t8270 = t2154 * t2358;
8982   t8273 = t6906 * t701;
8983   t8279 = t6916 * t701;
8984   t8282 = 0.49976352000000000000e-4 * t5005 * t8237 + 0.27764640000000000000e-2 * t1849 * t8243 + 0.88846848000000000000e-4 * t1849 * t8246 - 0.83293920000000000000e-5 * t1853 * t6868 * t701 - 0.19990540800000000000e-6 * t1853 * t5672 * t2383 - 0.27764640000000000000e-2 * t1839 * t8255 - 0.88846848000000000000e-4 * t1839 * t8258 + 0.83293920000000000000e-5 * t1844 * t6876 * t701 + 0.19990540800000000000e-6 * t1844 * t5681 * t2383 + 0.55529280000000000000e-2 * t5125 * t8267 - 0.10180368000000000000e-1 * t1849 * t8270 - 0.16658784000000000000e-4 * t2153 * t8273 + 0.30541104000000000000e-4 * t1853 * t2176 * t2358 + 0.11105856000000000000e-1 * t5110 * t8279;
8985   t8284 = t2161 * t2358;
8986   t8299 = t885 * t8198;
8987   t8302 = t7017 * t873;
8988   t8305 = t7017 * t876;
8989   t8314 = t640 * t710;
8990   t8318 = t1801 * t710;
8991   t8322 = t6902 * t876;
8992   t8325 = t2154 * t2751;
8993   t8328 = 0.10180368000000000000e-1 * t1839 * t8284 - 0.33317568000000000000e-4 * t2165 * t6922 * t701 - 0.30541104000000000000e-4 * t1844 * t2183 * t2358 - 0.15836128000000000000e-4 * t671 * t889 * t8198 - 0.62470440000000000000e-2 * t5038 * t2154 * t2723 + 0.52787093333333333333e-2 * t666 * t8299 - 0.74039040000000000000e-2 * t7016 * t8302 + 0.74039040000000000000e-2 * t7021 * t8305 - 0.10859059200000000000e-3 * t666 * t2795 * t8215 + 0.24432883200000000000e-6 * t671 * t2788 * t8215 + 0.35538739200000000000e-6 * t666 * t8314 * t8219 - 0.71077478400000000000e-9 * t671 * t8318 * t8219 + 0.31235220000000000000e-2 * t5051 * t8322 - 0.10411740000000000000e-2 * t2153 * t8325;
8994   t8338 = t2775 * t873;
8995   t8339 = t8338 * t304;
8996   t8356 = t876 * t2736;
8997   t8365 = 0.15617610000000000000e-2 * t1775 * t6864 * t876 + 0.15617610000000000000e-2 * t1775 * t2154 * t2736 - 0.20823480000000000000e-2 * t2165 * t2161 * t2736 - 0.34705800000000000000e-3 * t8339 * t307 + 0.64597866666666666667e-3 * t633 * t8199 + 0.23277408000000000000e-4 * t636 * t8199 - 0.69832224000000000000e-7 * t641 * t8199 + 0.2535e1 * t8229 * t297 - 0.50788454400000000000e-6 * t5014 * t8220 + 0.31342878720000000000e-8 * t5017 * t8220 - 0.52238131200000000000e-11 * t5022 * t8220 + 0.15210e2 * t1764 * t8356 + 0.73163904000000000000e-4 * t1794 * t8216 - 0.71827430400000000000e-6 * t1797 * t8216 + 0.14365486080000000000e-8 * t1802 * t8216;
8998   t8367 = t8240 + t8282 + t8328 + t8365;
8999   t8368 = t275 * t8367;
9000   t8369 = t8168 * t521;
9001   t8370 = t8369 * t202;
9002   t8371 = t1213 * t8370;
9003   t8372 = 0.30000000000000000000e1 * t8371;
9004   t8373 = t326 * t8004;
9005   t8375 = t323 * t18 * t8373;
9006   t8376 = t8375 / 0.32e2;
9007   t8377 = t5278 * t7988;
9008   t8379 = t5275 * t18 * t8377;
9009   t8380 = 0.7e1 / 0.72e2 * t8379;
9010   t8381 = t8177 + t8179 + t8182 + t8184 + t8186 + t8188 + t8190 + t8368 + t8372 - t8376 - t8380;
9011   t8384 = t7039 * t689;
9012   t8386 = t387 * t18 * t8384;
9013   t8387 = 0.3e1 / 0.32e2 * t8386;
9014   t8388 = t2235 * t2421;
9015   t8390 = t387 * t18 * t8388;
9016   t8391 = 0.3e1 / 0.32e2 * t8390;
9017   t8392 = t5541 * t2537;
9018   t8394 = t1444 * t18 * t8392;
9019   t8395 = t8394 / 0.8e1;
9020   t8396 = t390 * t8101;
9021   t8398 = t387 * t18 * t8396;
9022   t8399 = t8398 / 0.32e2;
9023   t8400 = t5287 * t8080;
9024   t8402 = t5284 * t18 * t8400;
9025   t8403 = 0.7e1 / 0.72e2 * t8402;
9026   t8404 = t1447 * t8080;
9027   t8406 = t4187 * t18 * t8404;
9028   t8407 = t8406 / 0.8e1;
9029   t8408 = t1757 * t7988;
9030   t8410 = t4179 * t18 * t8408;
9031   t8411 = t8410 / 0.8e1;
9032   t8412 = t158 * t766;
9033   t8413 = t7705 * t8412;
9034   t8414 = t1454 * t8413;
9035   t8415 = 0.48245938496077605201e2 * t8414;
9036   t8417 = t417 * t8045 * t440;
9037   t8421 = t4357 * t8054 * t4361;
9038   t8438 = -t4411 + t4414 - 0.50000000000000000001e0 * t115 * t8417 - 0.10345202583854680060e4 * t115 * t8421 - 0.15000000000000000000e1 * t2528 * t856 - 0.30000000000000000000e1 * t2531 * t856 - 0.15000000000000000000e1 * t771 * t2702 - 0.48245938496077605201e2 * t771 * t2706 - 0.15000000000000000000e1 * t2551 * t856 - 0.15000000000000000000e1 * t779 * t2702 - 0.48245938496077605201e2 * t779 * t2706;
9039   t8440 = t501 * t8147 * t521;
9040   t8444 = t1212 * t8168 * t521;
9041   t8448 = t1453 * t8054 * t440;
9042   t8453 = t4711 * t8168 * t4714;
9043   t8469 = (-0.8e1 / 0.27e2 * t4427 * t7988 + 0.4e1 / 0.3e1 * t1980 * t2416 + 0.4e1 / 0.3e1 * t231 * t8004 - 0.8e1 / 0.27e2 * t4436 * t8080 + 0.4e1 / 0.3e1 * t1986 * t2421 + 0.4e1 / 0.3e1 * t233 * t8101) * t238;
9044   t8470 = t8469 * t266;
9045   t8477 = t4216 * t8168 * t1216;
9046   t8484 = -0.50000000000000000001e0 * t166 * t8440 - 0.30000000000000000000e1 * t166 * t8444 - 0.30000000000000000000e1 * t115 * t8448 + 0.35089341735807877242e1 * t5996 - 0.10345202583854680060e4 * t166 * t8453 + t230 * t8470 + 0.30000000000000000000e1 * t771 * t2647 + 0.30000000000000000000e1 * t779 * t2647 + 0.96491876992155210402e2 * t166 * t8477 + 0.30000000000000000000e1 * t745 * t2652 + 0.30000000000000000000e1 * t753 * t2652;
9047   t8487 = t4491 * t8054 * t1456;
9048   t8514 = -t4919 - 0.22831111111111111110e-1 * t6088 + 0.11415555555555555555e-1 * t7080 - 0.34246666666666666665e-1 * t7096 + 0.17123333333333333333e-1 * t7106 - 0.19025925925925925925e-1 * t8083 + 0.68493333333333333331e-1 * t8087 - 0.34246666666666666665e-1 * t8091 - 0.10274000000000000000e0 * t8095 + 0.10274000000000000000e0 * t8099 - 0.17123333333333333333e-1 * t8104;
9049   t8515 = t65 * t8514;
9050   t8518 = 0.96491876992155210402e2 * t115 * t8487 - 0.15000000000000000000e1 * t2504 * t848 - 0.30000000000000000000e1 * t2507 * t848 - 0.15000000000000000000e1 * t745 * t2689 - 0.48245938496077605201e2 * t745 * t2693 - 0.15000000000000000000e1 * t2525 * t848 - 0.15000000000000000000e1 * t753 * t2689 - 0.48245938496077605201e2 * t753 * t2693 + 0.15545350000000000000e-1 * t8515 * t180 - t4452 + t4454;
9051   t8524 = -t4456 - t4460 - t4463 - 0.17544670867903938621e1 * t6060 - 0.51947577317044391276e2 * t6062 + t4465 + 0.60e2 * t6071 + 0.36e2 * t6073 + 0.96e2 * t6075 + t4469 + t4477;
9052   t8528 = t8004 * t114;
9053   t8531 = t2416 * t752;
9054   t8534 = t680 * t2524;
9055   t8547 = -t4901 - 0.22831111111111111110e-1 * t5875 + 0.11415555555555555555e-1 * t7158 - 0.34246666666666666665e-1 * t7174 + 0.17123333333333333333e-1 * t7184 - 0.19025925925925925925e-1 * t7991 + 0.68493333333333333331e-1 * t7995 - 0.34246666666666666665e-1 * t7979 - 0.10274000000000000000e0 * t8000 + 0.10274000000000000000e0 * t7982 - 0.17123333333333333333e-1 * t8007;
9056   t8548 = t6 * t8547;
9057   t8551 = t8101 * t165;
9058   t8554 = t2421 * t778;
9059   t8557 = t689 * t2550;
9060   t8560 = -t4521 - 0.17544670867903938621e1 * t7531 + 0.15545350000000000000e-1 * t8528 * t136 + 0.46636050000000000000e-1 * t8531 * t136 + 0.46636050000000000000e-1 * t8534 * t136 + 0.15545350000000000000e-1 * t8548 * t136 + 0.15545350000000000000e-1 * t8551 * t180 + 0.46636050000000000000e-1 * t8554 * t180 + 0.46636050000000000000e-1 * t8557 * t180 - t4536 + t4540;
9061   t8562 = t767 * t2687;
9062   t8567 = t793 * t2617;
9063   t8570 = t7705 * t766;
9064   t8573 = 0.73245789224026180216e-3 * t6137 + 0.30000000000000000000e1 * t1223 * t8562 + 0.19751673498613801407e-1 * t8469 * t264 + t4545 + 0.30000000000000000000e1 * t1231 * t8567 - t4552 + t4559 - t4564 + t4575 + t4586 - 0.48245938496077605201e2 * t1454 * t8570;
9065   t8575 = t7518 * t792;
9066   t8579 = -0.48245938496077605201e2 * t1213 * t8575 - t4727 - t4729 + t4889 + t4766 - t4820 + t4832 - t4867 + t4871 - t4874 + 0.32530743900905219526e-1 * t6201;
9067   t8587 = -0.24e2 * t6348 + t4894 - t4900 - 0.24e2 * t6471 + 0.3e1 * t6487 - 0.12e2 * t7765 + 0.3e1 * t7782 - 0.12e2 * t7783 - t4962 - t4966 - 0.54934341918019635162e-3 * t7792;
9068   t8590 = t8438 + t8484 + t8518 + t8524 + t8560 + t8573 + t8579 + t8587;
9069   t8591 = t8590 * t310;
9070   t8592 = t2802 * t8412;
9071   t8593 = t1223 * t8592;
9072   t8594 = 0.30000000000000000000e1 * t8593;
9073   t8596 = t8054 * t440;
9074   t8597 = t8596 * t158;
9075   t8598 = t1454 * t8597;
9076   t8599 = 0.30000000000000000000e1 * t8598;
9077   t8600 = t8216 * t184;
9078   t8605 = t8220 * t800;
9079   t8608 = t2347 * tau[1];
9080   t8609 = t711 * t84;
9081   t8611 = 0.1e1 / t72 / t8609;
9082   t8612 = t8608 * t8611;
9083   t8613 = t192 * t82;
9084   t8614 = t8613 * t184;
9085   t8620 = 0.1e1 / t73 / t8609;
9086   t8621 = t2395 * t8620;
9087   t8622 = t8621 * t2487;
9088   t8625 = t2395 * sigma[2];
9089   t8626 = t711 * t711;
9090   t8628 = 0.1e1 / t72 / t8626;
9091   t8629 = t8625 * t8628;
9092   t8631 = 0.1e1 / t2486 / t182;
9093   t8632 = t8629 * t8631;
9094   t8639 = t2456 * t184;
9095   t8640 = t8639 * t2347;
9096   t8644 = t2398 * t800 * tau[1];
9097   t8655 = t95 * t198;
9098   t8656 = t8655 * t82;
9099   t8657 = t8611 * t184;
9100   t8658 = t8657 * t8608;
9101   t8661 = t2344 * t710;
9102   t8662 = t711 * t704;
9103   t8664 = 0.1e1 / t72 / t8662;
9104   t8665 = t8664 * t800;
9105   t8666 = t8665 * t2347;
9106   t8670 = t2388 * t184 * tau[1];
9107   t8677 = 0.20308731259259259259e3 * t193 * t8600 + 0.20176952888888888889e3 * t199 * t8600 - 0.15388546844444444445e3 * t199 * t8605 - 0.22774444444444444445e2 * t8612 * t8614 - 0.15489051496296296296e3 * t193 * t8605 + 0.37780070400000000000e2 * t193 * t8622 - 0.29850919822222222222e1 * t193 * t8632 + 0.37534924800000000001e2 * t199 * t8622 - 0.29657224533333333333e1 * t199 * t8632 + 0.16355040000000000000e4 * t2450 * t8640 + 0.22300736000000000000e3 * t2453 * t8644 + 0.23936320000000000001e4 * t2462 * t8640 + 0.51842112000000000001e3 * t2465 * t8644 + 0.10860800000000000000e4 * t2473 * t8640 + 0.29541376000000000002e3 * t2477 * t8644 - 0.29547666666666666666e3 * t8656 * t8658 - 0.43726933333333333335e2 * t8661 * t8666 - 0.83507484444444444445e3 * t823 * t8670 - 0.63039662222222222221e3 * t806 * t8670 - 0.14654714666666666666e4 * t813 * t8670;
9108   t8678 = t188 * t821;
9109   t8679 = t8678 * t82;
9110   t8682 = t2449 * t710;
9111   t8685 = t805 * t2395;
9112   t8686 = t711 * t1069;
9113   t8688 = 0.1e1 / t72 / t8686;
9114   t8690 = t8688 * t2487 * tau[1];
9115   t8693 = t189 * t2471;
9116   t8694 = t8693 * t82;
9117   t8697 = t2461 * t710;
9118   t8700 = t812 * t2395;
9119   t8704 = 0.1e1 / t197 / t191;
9120   t8705 = t196 * t8704;
9121   t8706 = t8705 * t82;
9122   t8709 = t2472 * t710;
9123   t8712 = t822 * t2395;
9124   t8717 = t2347 * t706;
9125   t8718 = t2344 * t8717;
9126   t8720 = t723 * t8206;
9127   t8722 = t8608 * t807;
9128   t8723 = t8655 * t8722;
9129   t8726 = t8206 * t97;
9130   t8729 = t8717 * t722;
9131   t8731 = t8722 * t192;
9132   t8735 = -0.95298000000000000001e3 * t8679 * t8658 - 0.21806720000000000000e3 * t8682 * t8666 - 0.20988928000000000000e2 * t8685 * t8690 - 0.11328111111111111111e4 * t8694 * t8658 - 0.31915093333333333334e3 * t8697 * t8666 - 0.48792576000000000001e2 * t8700 * t8690 - 0.45253333333333333333e3 * t8706 * t8658 - 0.14481066666666666667e3 * t8709 * t8666 - 0.27803648000000000001e2 * t8712 * t8690 + 0.32795200000000000000e3 * t2442 * t8640 + 0.25191111111111111111e3 * t8718 - 0.92367407407407407407e2 * t8720 - 0.15744444444444444444e3 * t8723 + 0.18379614814814814815e2 * t8600 - 0.92367407407407407407e2 * t8726 - 0.14017754074074074075e2 * t8605 + 0.25191111111111111112e3 * t8729 - 0.15744444444444444445e3 * t8731 + 0.34191360000000000002e1 * t8622 - 0.27015395555555555556e0 * t8632;
9133   t8736 = t8677 + t8735;
9134   t8737 = t180 * t8736;
9135   t8738 = t166 * t8737;
9136   t8739 = 0.15545350000000000000e-1 * t8738;
9137   t8740 = t2551 * t831;
9138   t8741 = 0.46636050000000000000e-1 * t8740;
9139   t8742 = t8528 * t159;
9140   t8743 = 0.15545350000000000000e-1 * t8742;
9141   t8744 = t8531 * t159;
9142   t8745 = 0.46636050000000000000e-1 * t8744;
9143   t8746 = t8534 * t159;
9144   t8747 = 0.46636050000000000000e-1 * t8746;
9145   t8748 = t8548 * t159;
9146   t8749 = 0.15545350000000000000e-1 * t8748;
9147   t8750 = t8551 * t203;
9148   t8751 = 0.15545350000000000000e-1 * t8750;
9149   t8752 = t8554 * t203;
9150   t8753 = 0.46636050000000000000e-1 * t8752;
9151   t8754 = t2528 * t831;
9152   t8755 = 0.46636050000000000000e-1 * t8754;
9153   t8756 = t8557 * t203;
9154   t8757 = 0.46636050000000000000e-1 * t8756;
9155   t8758 = t8599 - t8739 - t8741 - t8743 - t8745 - t8747 - t8749 - t8751 - t8753 - t8755 - t8757;
9156   t8760 = t2531 * t831;
9157   t8761 = 0.93272100000000000000e-1 * t8760;
9158   t8762 = t771 * t2501;
9159   t8763 = 0.46636050000000000000e-1 * t8762;
9160   t8764 = t779 * t2501;
9161   t8765 = 0.46636050000000000000e-1 * t8764;
9162   t8766 = t8515 * t203;
9163   t8767 = 0.15545350000000000000e-1 * t8766;
9164   t8768 = t6677 * t2817;
9165   t8769 = 0.30000000000000000000e1 * t8768;
9166   t8770 = t6612 * t2817;
9167   t8771 = 0.30000000000000000000e1 * t8770;
9168   t8772 = t8168 * t1216;
9169   t8773 = t8772 * t202;
9170   t8774 = t4217 * t8773;
9171   t8775 = 0.96491876992155210402e2 * t8774;
9172   t8776 = t202 * t2617;
9173   t8777 = t793 * t8776;
9174   t8778 = t1231 * t8777;
9175   t8779 = 0.30000000000000000000e1 * t8778;
9176   t8783 = -t8761 - t8763 - t8765 - t8767 - t8769 - t8771 - t8775 - t8779 - t7875 / 0.24e2 - t7878 / 0.16e2 - t7881 / 0.32e2;
9177   t8786 = t7230 * t689;
9178   t8788 = t2249 * t2250 * t8786;
9179   t8789 = t8788 / 0.8e1;
9180   t8790 = t7240 * t680;
9181   t8792 = t2256 * t2257 * t8790;
9182   t8793 = t8792 / 0.8e1;
9183   t8795 = t8004 * t7 * t13;
9184   t8796 = t8795 * t62;
9185   t8797 = 0.3e1 / 0.32e2 * t8796;
9186   t8799 = t8101 * t7 * t13;
9187   t8800 = t8799 * t104;
9188   t8801 = 0.3e1 / 0.32e2 * t8800;
9189   t8802 = t2423 * t742;
9190   t8803 = 0.9e1 / 0.32e2 * t8802;
9191   t8804 = t691 * t2412;
9192   t8805 = 0.9e1 / 0.32e2 * t8804;
9193   t8806 = t2347 * t713;
9194   t8809 = tau[1] * t2388;
9195   t8812 = t8608 * t2444;
9196   t8813 = t192 * sigma[2];
9197   t8814 = t8813 * t79;
9198   t8817 = t2347 * t2456;
9199   t8818 = t722 * t82;
9200   t8819 = t8818 * t89;
9201   t8822 = t8216 * t89;
9202   t8825 = tau[1] * t2398;
9203   t8826 = t97 * t710;
9204   t8827 = t8826 * t716;
9205   t8830 = t8220 * t716;
9206   t8833 = t8621 * t2401;
9207   t8836 = tau[1] * t2382;
9208   t8839 = t8199 * t79;
9209   t8845 = -0.10915555555555555556e1 * t8806 * t2373 - 0.76408888888888888892e-2 * t8809 * t2378 + 0.34111111111111111112e0 * t8812 * t8814 + 0.21831111111111111112e-2 * t8817 * t8819 + 0.99258785185185185185e-2 * t98 * t8822 + 0.13971911111111111112e-4 * t8825 * t8827 - 0.53093262222222222225e-4 * t98 * t8830 + 0.89420231111111111120e-7 * t98 * t8833 + 0.12370962962962962963e1 * t8836 * t728 - 0.56033185185185185185e0 * t98 * t8839 - 0.18488888888888888889e2 * t8718 + 0.67792592592592592593e1 * t8720 + 0.11555555555555555556e2 * t8723;
9210   t8847 = t2382 * t79 * tau[1];
9211   t8850 = t8655 * sigma[2];
9212   t8851 = t2444 * t79;
9213   t8852 = t8851 * t8608;
9214   t8855 = t2456 * t89;
9215   t8856 = t8855 * t2347;
9216   t8859 = t723 * t710;
9217   t8861 = t2398 * t716 * tau[1];
9218   t8864 = t713 * t79;
9219   t8865 = t8864 * t2347;
9220   t8880 = 0.1e1 / t2400 / t78;
9221   t8883 = 0.12370962962962962963e1 * t731 * t8847 + 0.34111111111111111112e0 * t8850 * t8852 + 0.21831111111111111112e-2 * t2442 * t8856 + 0.13971911111111111112e-4 * t8859 * t8861 - 0.10915555555555555556e1 * t2345 * t8865 - 0.76408888888888888892e-2 * t2351 * t2388 * t89 * tau[1] + 0.67792592592592592593e1 * t8726 - 0.18488888888888888889e2 * t8729 + 0.11555555555555555556e2 * t8731 - 0.23873422222222222222e0 * t8839 - 0.33051496296296296297e-2 * t8822 + 0.92302070518518518523e-4 * t8830 - 0.52252945066666666671e-6 * t8833 + 0.88593021155555555565e-9 * t8629 * t8880;
9222   t8884 = t8845 + t8883;
9223   t8885 = t70 * t8884;
9224   t8886 = t18 * t8885;
9225   t8887 = t67 * t8886;
9226   t8888 = 0.3e1 / 0.32e2 * t8887;
9227   t8889 = t6692 / 0.48e2;
9228   t8890 = t6695 / 0.48e2;
9229   t8891 = -t7884 / 0.32e2 - t7887 / 0.24e2 - t8789 - t8793 - t8797 - t8801 - t8803 - t8805 - t8888 + t8889 + t8890;
9230   t8903 = -0.3e1 / 0.16e2 * t2567 - 0.3e1 / 0.32e2 * t2571 - t2575 / 0.8e1 + 0.30000000000000000000e1 * t2577 + 0.30000000000000000000e1 * t2579 + 0.30000000000000000000e1 * t2582 + 0.48245938496077605201e2 * t2587 + 0.15000000000000000000e1 * t2620 + 0.3e1 * t2718 + 0.30000000000000000000e1 * t2719 + 0.6e1 * t2721 + 0.3e1 * t2801 + t3 * (-t8395 - t8399 + t7953 - t8391 + t8415 - t4168 + t8152 + t8591 - t8594 + t7956 + t7958 + t7960 + t8783 + t8381 + t8758 + t8407 - t4163 + t7947 + t7949 + t7951 + t7945 + t8173 + t8891 + t8411 - t8403 - t8387) + 0.15000000000000000000e1 * t2804 + 0.48245938496077605201e2 * t2808 + 0.30000000000000000000e1 * t2810 - 0.30000000000000000000e1 * t2814 - 0.30000000000000000000e1 * t2818 - t2329 / 0.16e2 - t2332 / 0.16e2;
9231   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9232     v3rho3[3] = t7930 + t8903;
9233 
9234   t8905 = t2842 / 0.16e2;
9235   t8914 = t5046 * sigma[0];
9236   t8917 = t1160 * t287;
9237   t8918 = t8917 * t33;
9238   t8921 = t633 * t1126;
9239   t8924 = t636 * t1126;
9240   t8927 = t640 * t1154;
9241   t8943 = t640 * t1160;
9242   t8953 = t1801 * t1160;
9243   t8960 = t656 * sigma[0];
9244   t8961 = t2934 * t648;
9245   t8967 = t662 * sigma[0];
9246   t8968 = t2934 * t653;
9247   t8980 = -0.27764640000000000000e-2 * t305 * t8914 + 0.14807808000000000000e-4 * t305 * t8918 - 0.11311520000000000000e-2 * t305 * t8921 + 0.33934560000000000000e-5 * t305 * t8924 - 0.74964528000000000000e-7 * t671 * t8927 * sigma[0] - 0.69411600000000000000e-3 * t5125 * t2949 * t1806 + 0.18509760000000000000e-2 * t1849 * t2196 * t648 - 0.13882320000000000000e-2 * t5110 * t2949 * t1765 - 0.18509760000000000000e-2 * t1839 * t2196 * t653 - 0.13327027200000000000e-6 * t666 * t8943 * t33 + 0.10411740000000000000e-5 * t1853 * t2964 * t1827 - 0.10411740000000000000e-5 * t1844 * t2964 * t1820 + 0.26654054400000000000e-9 * t671 * t8953 * t33 - 0.34705800000000000000e-3 * t1849 * t2949 * t1827 + 0.18509760000000000000e-2 * t8960 * t8961 + 0.34705800000000000000e-3 * t1839 * t2949 * t1820 - 0.18509760000000000000e-2 * t8967 * t8968 + 0.33317568000000000000e-4 * t666 * t5693 * sigma[0] + 0.20823480000000000000e-5 * t2153 * t2964 * t1806 - 0.55529280000000000000e-5 * t1853 * t6860 * t648;
9248   t8989 = t1154 * sigma[0];
9249   t8992 = t1160 * t33;
9250   t9003 = t2958 * t5006;
9251   t9009 = t648 * sigma[0];
9252   t9016 = t1774 * t276;
9253   t9017 = t2949 * t5628;
9254   t9020 = t2958 * t9009;
9255   t9029 = 0.41646960000000000000e-5 * t2165 * t2964 * t1765 + 0.55529280000000000000e-5 * t1844 * t6860 * t653 + 0.46141333333333333333e-1 * t1126 * t280 - 0.22448016000000000000e-4 * t1794 * t8989 + 0.19045670400000000000e-6 * t5014 * t8992 - 0.11753579520000000000e-8 * t5017 * t8992 + 0.19589299200000000000e-11 * t5022 * t8992 + 0.22037961600000000000e-6 * t1797 * t8989 - 0.44075923200000000000e-9 * t1802 * t8989 + 0.22211712000000000000e-4 * t1839 * t9003 - 0.62470440000000000000e-5 * t1775 * t2964 * t5628 + 0.49976352000000000000e-7 * t1853 * t2971 * t9009 - 0.49976352000000000000e-7 * t1844 * t2971 * t5006 + 0.20823480000000000000e-2 * t9016 * t9017 - 0.22211712000000000000e-4 * t1849 * t9020 - 0.13842400000000000000e-3 * t8921 - 0.49880160000000000000e-5 * t8924 + 0.14964048000000000000e-7 * t641 * t1126 - 0.67953600000000000000e-3 * t8914 - 0.54432000000000000000e-5 * t8918;
9256   t9030 = t8980 + t9029;
9257   t9031 = t275 * t9030;
9258   t9032 = t629 * t2977;
9259   t9033 = 0.2e1 * t9032;
9260   t9034 = t1739 * t942;
9261   t9035 = t441 * t2927;
9262   t9036 = t418 * t9035;
9263   t9037 = 0.10000000000000000000e1 * t9036;
9264   t9038 = t1113 * t911;
9265   t9039 = 0.3e1 / 0.32e2 * t9038;
9266   t9040 = t316 * t2881;
9267   t9041 = 0.3e1 / 0.16e2 * t9040;
9268   t9042 = t127 * t2880;
9269   t9043 = t14 * t9042;
9270   t9044 = t9043 / 0.16e2;
9271   t9045 = t1285 * t40;
9272   t9046 = t9045 * t1134;
9273   t9049 = t1293 * t349;
9274   t9056 = t40 * tau[0];
9275   t9057 = t9056 * sigma[0];
9276   t9060 = t1126 * t30;
9277   t9062 = t1154 * t40;
9278   t9063 = t9062 * sigma[0];
9279   t9065 = t1160 * t349;
9280   t9066 = t9065 * t33;
9281   t9068 = t343 * t1182;
9282   t9069 = t9068 * t1185;
9283   t9071 = t1179 * t5357;
9284   t9074 = t355 * t30;
9285   t9089 = t1134 * t1285;
9286   t9090 = t1168 * t40;
9287   t9093 = tau[0] * t1293;
9288   t9094 = t1173 * t349;
9289   t9099 = -0.27288888888888888889e-3 * t1138 * t9046 - 0.34929777777777777780e-5 * t1143 * t9049 * tau[0] - 0.16373333333333333334e0 * t356 * t1122 + 0.15281777777777777778e-2 * t356 * t346 * t9057 + 0.51157333333333333333e-1 * t9060 + 0.84559644444444444442e-3 * t9063 - 0.28530801777777777779e-4 * t9066 + 0.18037555200000000001e-6 * t9069 - 0.33222382933333333335e-9 * t9071 * t4144 + 0.68222222222222222224e-1 * t1167 * t9074 - 0.16373333333333333334e0 * t1150 * t2860 + 0.15281777777777777778e-2 * t1172 * t2870 + 0.68222222222222222223e-1 * t1133 * t1140 + 0.12007111111111111111e0 * t56 * t9060 - 0.28380444444444444445e-2 * t56 * t9063 + 0.17814186666666666668e-4 * t56 * t9066 - 0.27288888888888888890e-3 * t9089 * t9090 - 0.34929777777777777780e-5 * t9093 * t9094 - 0.33532586666666666670e-7 * t56 * t9069;
9290   t9100 = t21 * t9099;
9291   t9101 = t18 * t9100;
9292   t9102 = t14 * t9101;
9293   t9103 = 0.3e1 / 0.32e2 * t9102;
9294   t9104 = t431 * t910;
9295   t9105 = t14 * t9104;
9296   t9106 = t9105 / 0.48e2;
9297   t9107 = t316 * t2841;
9298   t9108 = t9107 / 0.16e2;
9299   t9110 = t323 * t127 * t2845;
9300   t9111 = t9110 / 0.48e2;
9301   t9112 = t325 * t2879;
9302   t9113 = t9112 * t314;
9303   t9115 = t323 * t18 * t9113;
9304   t9116 = t9115 / 0.16e2;
9305   t9117 = t9031 + t9033 + t9034 + t9037 - t9039 - t9041 - t9044 - t9103 + t9106 - t9108 - t9111 - t9116;
9306   t9118 = t2844 * t1111;
9307   t9120 = t323 * t18 * t9118;
9308   t9121 = t9120 / 0.32e2;
9309   t9122 = t1756 * t909;
9310   t9123 = t9122 * t1249;
9311   t9125 = t1754 * t18 * t9123;
9312   t9126 = t9125 / 0.24e2;
9313   t9127 = t1432 * t926;
9314   t9128 = t418 * t9127;
9315   t9129 = 0.50000000000000000001e0 * t9128;
9316   t9130 = t1457 * t926;
9317   t9131 = t1454 * t9130;
9318   t9132 = 0.16081979498692535067e2 * t9131;
9319   t9133 = t1461 * t2888;
9320   t9134 = 0.10000000000000000000e1 * t9133;
9321   t9135 = t1225 * t926;
9322   t9136 = t1223 * t9135;
9323   t9137 = 0.10000000000000000000e1 * t9136;
9324   t9138 = t1302 * sigma[0];
9325   t9145 = t1315 * sigma[0];
9326   t9150 = t1282 * sigma[0];
9327   t9155 = t8989 * t140;
9328   t9160 = t8992 * t448;
9329   t9163 = t9068 * t1326;
9330   t9166 = t9071 * t5330;
9331   t9173 = -0.90506666666666666667e2 * t9138 * t1287 - 0.63716693333333333335e2 * t471 * t1295 - 0.27329333333333333333e2 * t1138 * t1287 - 0.13629200000000000000e3 * t9145 * t1287 - 0.48099626666666666667e2 * t454 * t1295 - 0.19946933333333333333e3 * t9150 * t1287 - 0.11181632000000000000e3 * t461 * t1295 - 0.55028053333333333333e2 * t155 * t9155 - 0.55387448888888888889e2 * t149 * t9155 + 0.48682652444444444446e2 * t149 * t9160 - 0.13118080000000000000e2 * t149 * t9163 + 0.11194094933333333333e1 * t149 * t9166 + 0.48366762666666666668e2 * t155 * t9160 - 0.13032960000000000000e2 * t155 * t9163;
9332   t9183 = t5320 * t448;
9333   t9184 = t9183 * t1134;
9334   t9188 = t5346 * t1326 * tau[0];
9335   t9204 = 0.11121459200000000000e1 * t155 * t9166 + 0.44058311111111111112e1 * t9160 + 0.10931733333333333333e3 * t2898 * t1271 + 0.25412800000000000000e3 * t2901 * t1271 + 0.14481066666666666667e3 * t2916 * t1271 + 0.18101333333333333333e2 * t1303 * t9184 + 0.69509120000000000000e1 * t1306 * t9188 + 0.54658666666666666667e1 * t1312 * t9184 + 0.27258400000000000000e2 * t1316 * t9184 + 0.52472320000000000000e1 * t1319 * t9188 + 0.39893866666666666667e2 * t1283 * t9184 + 0.12198144000000000000e2 * t1290 * t9188 - 0.11872000000000000000e1 * t9163 + 0.10130773333333333333e0 * t9166 - 0.50126222222222222222e1 * t9155;
9336   t9205 = t9173 + t9204;
9337   t9206 = t136 * t9205;
9338   t9207 = t115 * t9206;
9339   t9208 = 0.15545350000000000000e-1 * t9207;
9340   t9209 = t1379 * t927;
9341   t9210 = 0.15545350000000000000e-1 * t9209;
9342   t9211 = t1382 * t927;
9343   t9212 = 0.31090700000000000000e-1 * t9211;
9344   t9213 = t395 * t2928;
9345   t9214 = 0.31090700000000000000e-1 * t9213;
9346   t9215 = t1265 * t927;
9347   t9216 = 0.15545350000000000000e-1 * t9215;
9348   t9217 = t413 * t2928;
9349   t9218 = 0.31090700000000000000e-1 * t9217;
9350   t9219 = t1387 * t2888;
9351   t9220 = 0.10000000000000000000e1 * t9219;
9352   t9221 = -t9121 - t9126 + t9129 + t9132 + t9134 - t9137 - t9208 - t9210 - t9212 - t9214 - t9216 - t9218 + t9220;
9353   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9354     v3rho2sigma[0] = -0.3e1 / 0.16e2 * t2839 - t8905 - t2847 / 0.16e2 - 0.3e1 / 0.16e2 * t2882 - 0.31090700000000000000e-1 * t2884 - 0.31090700000000000000e-1 * t2886 + 0.10000000000000000000e1 * t2889 - 0.31090700000000000000e-1 * t2929 + 0.2e1 * t2931 + 0.2e1 * t2978 + t3 * (t9117 + t9221);
9355 
9356   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9357     v3rho2sigma[1] = 0.0e0;
9358 
9359   t9225 = t2984 / 0.16e2;
9360   t9232 = t1739 * t990;
9361   t9233 = t1217 * t974;
9362   t9234 = t1213 * t9233;
9363   t9235 = 0.16081979498692535067e2 * t9234;
9364   t9236 = t1205 * t2995;
9365   t9237 = 0.10000000000000000000e1 * t9236;
9366   t9238 = t1208 * t2995;
9367   t9239 = 0.10000000000000000000e1 * t9238;
9368   t9240 = t1506 * t974;
9369   t9241 = t502 * t9240;
9370   t9242 = 0.50000000000000000001e0 * t9241;
9371   t9243 = t75 * t33;
9372   t9244 = t9243 * t1154;
9373   t9251 = t1801 * t75;
9374   t9255 = t2999 * t5628;
9375   t9258 = t75 * t648;
9376   t9279 = t9258 * t334;
9377   t9282 = t5698 * t334;
9378   t9285 = t3002 * t1126;
9379   t9288 = 0.19045670400000000000e-6 * t5014 * t9244 - 0.11753579520000000000e-8 * t5017 * t9244 + 0.19589299200000000000e-11 * t5022 * t9244 + 0.26654054400000000000e-9 * t671 * t9251 * t1155 + 0.20823480000000000000e-2 * t9016 * t9255 + 0.18509760000000000000e-2 * t8960 * t2196 * t9258 - 0.18509760000000000000e-2 * t8967 * t2196 * t5698 + 0.13573824000000000000e-4 * t666 * t3019 * t1127 - 0.30541104000000000000e-7 * t671 * t3029 * t1127 - 0.13327027200000000000e-6 * t666 * t3029 * t1155 - 0.62470440000000000000e-5 * t1775 * t3019 * t5628 - 0.27684800000000000000e-3 * t2999 * t1127 - 0.22211712000000000000e-4 * t5755 * t9279 + 0.22211712000000000000e-4 * t5758 * t9282 - 0.17956857600000000000e-9 * t1802 * t9285;
9380   t9299 = t2999 * t1806;
9381   t9302 = t2999 * t1765;
9382   t9305 = t2999 * t1126;
9383   t9308 = t2999 * t1827;
9384   t9311 = t2999 * t1820;
9385   t9329 = 0.49976352000000000000e-7 * t5715 * t9279 - 0.49976352000000000000e-7 * t5720 * t9282 + 0.20823480000000000000e-5 * t2153 * t3019 * t1806 + 0.41646960000000000000e-5 * t2165 * t3019 * t1765 - 0.69411600000000000000e-3 * t5125 * t9299 - 0.13882320000000000000e-2 * t5110 * t9302 - 0.11311520000000000000e-2 * t2195 * t9305 - 0.34705800000000000000e-3 * t1849 * t9308 + 0.34705800000000000000e-3 * t1839 * t9311 + 0.14807808000000000000e-4 * t5692 * t5693 * t75 + 0.10411740000000000000e-5 * t1853 * t3019 * t1827 - 0.10411740000000000000e-5 * t1844 * t3019 * t1820 - 0.54432000000000000000e-5 * t3019 * t1155 - 0.91454880000000000000e-5 * t1794 * t9285 + 0.89784288000000000000e-7 * t1797 * t9285;
9386   t9330 = t9288 + t9329;
9387   t9331 = t275 * t9330;
9388   t9332 = t1108 * t959;
9389   t9333 = 0.3e1 / 0.32e2 * t9332;
9390   t9334 = t1343 * t975;
9391   t9335 = 0.15545350000000000000e-1 * t9334;
9392   t9336 = t1346 * t975;
9393   t9337 = 0.31090700000000000000e-1 * t9336;
9394   t9338 = t1376 * t975;
9395   t9339 = 0.15545350000000000000e-1 * t9338;
9396   t9340 = t629 * t3033;
9397   t9341 = 0.2e1 * t9340;
9398   t9342 = t1232 * t974;
9399   t9343 = t1231 * t9342;
9400   t9344 = 0.10000000000000000000e1 * t9343;
9401   t9345 = t380 * t2983;
9402   t9346 = t9345 / 0.16e2;
9403   t9347 = t431 * t958;
9404   t9348 = t67 * t9347;
9405   t9349 = t9348 / 0.48e2;
9406   t9351 = t387 * t127 * t2987;
9407   t9352 = t9351 / 0.48e2;
9408   t9353 = t2986 * t1106;
9409   t9355 = t387 * t18 * t9353;
9410   t9356 = t9355 / 0.32e2;
9411   t9357 = t1446 * t957;
9412   t9358 = t9357 * t1360;
9413   t9360 = t1444 * t18 * t9358;
9414   t9361 = t9360 / 0.24e2;
9415   t9362 = t9232 + t9235 + t9237 + t9239 + t9242 + t9331 - t9333 - t9335 - t9337 - t9339 + t9341 - t9344 - t9346 + t9349 - t9352 - t9356 - t9361;
9416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9417     v3rho2sigma[2] = -0.3e1 / 0.16e2 * t2981 - t9225 - t2989 / 0.16e2 - 0.31090700000000000000e-1 * t2991 - 0.31090700000000000000e-1 * t2993 + 0.10000000000000000000e1 * t2996 + 0.2e1 * t2998 + 0.2e1 * t3034 + t3 * t9362;
9418 
9419   t9364 = t859 * t2977;
9420   t9365 = t629 * t3085;
9421   t9366 = t2264 * t2888;
9422   t9368 = t2311 * t926;
9423   t9369 = t418 * t9368;
9424   t9371 = t1461 * t3047;
9425   t9373 = t682 * t2881;
9426   t9375 = t1889 * t910;
9427   t9376 = t1888 * t9375;
9428   t9378 = t682 * t2841;
9429   t9382 = t2315 * t2888;
9430   t9384 = t9112 * t680;
9431   t9386 = t323 * t18 * t9384;
9432   t9388 = t2844 * t2;
9433   t9390 = t323 * t1415 * t9388;
9434   t9392 = t9364 + t9365 + 0.50000000000000000001e0 * t9366 + 0.50000000000000000001e0 * t9369 + 0.50000000000000000001e0 * t9371 - 0.3e1 / 0.32e2 * t9373 - 0.3e1 / 0.16e2 * t9376 - t9378 / 0.32e2 - t9043 / 0.32e2 + t9106 - t9107 / 0.32e2 + 0.50000000000000000001e0 * t9382 - t9386 / 0.32e2 - t9390 / 0.16e2;
9435   t9394 = t926 * t439;
9436   t9395 = t767 * t9394;
9437   t9396 = t1223 * t9395;
9438   t9398 = t2114 * t942;
9439   t9399 = t767 * t2927;
9440   t9400 = t418 * t9399;
9441   t9402 = t909 * t680;
9442   t9403 = t9402 * t314;
9443   t9405 = t2256 * t2257 * t9403;
9444   t9408 = t323 * t127 * t3039;
9445   t9410 = t2051 * t927;
9446   t9412 = t745 * t2928;
9447   t9414 = t2054 * t927;
9448   t9416 = t2063 * t927;
9449   t9418 = t753 * t2928;
9450   t9420 = t1387 * t3047;
9451   t9422 = t2104 * t926;
9452   t9423 = t1104 * t9422;
9453   t9428 = t3068 * t333;
9454   t9440 = t5017 * t339;
9455   t9441 = t701 * sigma[0];
9456   t9444 = t5022 * t339;
9457   t9447 = t2934 * t873;
9458   t9450 = t2934 * t876;
9459   t9453 = t5014 * t339;
9460   t9457 = t339 * sigma[2];
9461   t9458 = t9457 * t2141;
9462   t9461 = t359 * t719;
9463   t9466 = t3053 * t2187;
9464   t9469 = t3053 * t2191;
9465   t9482 = t2949 * t5791;
9466   t9485 = 0.26654054400000000000e-9 * t5808 * t9458 + 0.19281000000000000000e-2 * t5735 * t9461 + 0.19281000000000000000e-2 * t5748 * t9461 - 0.11105856000000000000e-4 * t5755 * t9466 + 0.11105856000000000000e-4 * t5758 * t9469 - 0.13327027200000000000e-6 * t5804 * t9458 - 0.57843000000000000000e-5 * t5740 * t9461 - 0.57843000000000000000e-5 * t5751 * t9461 + 0.24988176000000000000e-7 * t5715 * t9466 - 0.24988176000000000000e-7 * t5720 * t9469 + 0.10411740000000000000e-2 * t9016 * t9482;
9467   t9487 = t2949 * t2211;
9468   t9490 = t876 * sigma[0];
9469   t9494 = t656 * sigma[2];
9470   t9495 = t26 * t648;
9471   t9499 = t662 * sigma[2];
9472   t9500 = t26 * t653;
9473   t9504 = t287 * t700;
9474   t9505 = t2891 * t9504;
9475   t9514 = t873 * sigma[0];
9476   t9528 = t2949 * t5778;
9477   t9531 = t2949 * t5785;
9478   t9540 = t333 * sigma[2];
9479   t9541 = t9540 * t700;
9480   t9551 = t640 * t333;
9481   t9555 = -0.24988176000000000000e-7 * t1844 * t2971 * t9490 - 0.69411600000000000000e-3 * t5125 * t9528 + 0.10411740000000000000e-2 * t9016 * t9531 - 0.11105856000000000000e-4 * t1849 * t2958 * t9514 + 0.98718720000000000000e-5 * t666 * t6860 * t701 + 0.65297664000000000000e-7 * t1797 * t9541 - 0.13059532800000000000e-9 * t1802 * t9541 - 0.66512640000000000000e-5 * t1794 * t9541 - 0.54432000000000000000e-5 * t2958 * t9441 - 0.20134400000000000000e-3 * t2197 - 0.22211712000000000000e-7 * t671 * t9551 * t701;
9482   t9557 = -0.92548800000000000000e-3 * t1839 * t2196 * t876 - 0.82265600000000000000e-3 * t3067 * t9428 - 0.27764640000000000000e-5 * t1853 * t6860 * t873 + 0.27764640000000000000e-5 * t1844 * t6860 * t876 + 0.92548800000000000000e-3 * t1849 * t2196 * t873 - 0.11753579520000000000e-8 * t9440 * t9441 + 0.19589299200000000000e-11 * t9444 * t9441 + 0.92548800000000000000e-3 * t8960 * t9447 - 0.92548800000000000000e-3 * t8967 * t9450 + 0.19045670400000000000e-6 * t9453 * t9441 + t9485 - 0.13882320000000000000e-2 * t5110 * t9487 + 0.11105856000000000000e-4 * t1839 * t2958 * t9490 + 0.92548800000000000000e-3 * t9494 * t3068 * t9495 - 0.92548800000000000000e-3 * t9499 * t3068 * t9500 + 0.14807808000000000000e-4 * t3067 * t9505 + 0.20823480000000000000e-5 * t2153 * t2964 * t5778 - 0.31235220000000000000e-5 * t1775 * t2964 * t5785 + 0.24988176000000000000e-7 * t1853 * t2971 * t9514 - 0.31235220000000000000e-5 * t1775 * t2964 * t5791 + 0.41646960000000000000e-5 * t2165 * t2964 * t2211 + t9555;
9483   t9558 = t275 * t9557;
9484   t9559 = t2001 * t9394;
9485   t9560 = t1454 * t9559;
9486   t9562 = -t9110 / 0.96e2 - 0.10000000000000000000e1 * t9396 + t9398 + 0.50000000000000000001e0 * t9400 - t9405 / 0.24e2 - t9408 / 0.96e2 - 0.15545350000000000000e-1 * t9410 - 0.15545350000000000000e-1 * t9412 - 0.15545350000000000000e-1 * t9414 - 0.15545350000000000000e-1 * t9416 - 0.15545350000000000000e-1 * t9418 + 0.50000000000000000001e0 * t9420 - 0.31090700000000000000e-1 * t9423 + t9558 + 0.16081979498692535067e2 * t9560;
9487   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9488     v3rho2sigma[3] = -t2840 - t8905 - t2848 - t2883 - t2885 - t2887 + t2890 - t2930 + t2931 + t2978 - t3038 - t3042 - t3044 - t3046 + t3049 + t3050 + t3086 + t3 * (t9392 + t9562);
9489 
9490   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9491     v3rho2sigma[4] = 0.0e0;
9492 
9493   t9565 = t957 * t689;
9494   t9566 = t9565 * t378;
9495   t9568 = t2249 * t2250 * t9566;
9496   t9570 = t2269 * t2995;
9497   t9572 = t2272 * t2995;
9498   t9574 = t2024 * t975;
9499   t9576 = t2027 * t975;
9500   t9578 = t2048 * t975;
9501   t9580 = t482 * t3174;
9502   t9582 = t497 * t3174;
9503   t9584 = t2278 * t974;
9504   t9585 = t502 * t9584;
9505   t9587 = t1208 * t3134;
9506   t9590 = t1889 * t958;
9507   t9591 = t1888 * t9590;
9508   t9593 = t380 * t3127;
9509   t9595 = t691 * t2983;
9510   t9597 = -t9568 / 0.24e2 + 0.50000000000000000001e0 * t9570 + 0.50000000000000000001e0 * t9572 - 0.15545350000000000000e-1 * t9574 - 0.15545350000000000000e-1 * t9576 - 0.15545350000000000000e-1 * t9578 - 0.15545350000000000000e-1 * t9580 - 0.15545350000000000000e-1 * t9582 + 0.50000000000000000001e0 * t9585 + 0.50000000000000000001e0 * t9587 - t9351 / 0.96e2 + 0.3e1 / 0.16e2 * t9591 - 0.3e1 / 0.32e2 * t9593 - t9595 / 0.32e2;
9511   t9598 = t127 * t3126;
9512   t9599 = t67 * t9598;
9513   t9601 = t522 * t3173;
9514   t9602 = t502 * t9601;
9515   t9604 = t2986 * t2;
9516   t9606 = t387 * t1415 * t9604;
9517   t9608 = t389 * t3125;
9518   t9609 = t9608 * t378;
9519   t9611 = t387 * t18 * t9609;
9520   t9614 = t387 * t127 * t3091;
9521   t9616 = t2107 * t974;
9522   t9617 = t1104 * t9616;
9523   t9620 = t2114 * t990;
9524   t9621 = t1205 * t3134;
9525   t9623 = t859 * t3033;
9526   t9624 = t974 * t520;
9527   t9625 = t793 * t9624;
9528   t9626 = t1231 * t9625;
9529   t9628 = t2009 * t9624;
9530   t9629 = t1213 * t9628;
9531   t9631 = t629 * t3221;
9532   t9632 = t5014 * t706;
9533   t9633 = sigma[2] * sigma[0];
9534   t9634 = t9633 * t333;
9535   t9637 = t5017 * t706;
9536   t9640 = t5022 * t706;
9537   t9643 = t3180 * t648;
9538   t9646 = t75 * t873;
9539   t9647 = t9646 * t334;
9540   t9650 = t86 * tau[0];
9541   t9651 = t9650 * t2149;
9542   t9654 = t75 * t876;
9543   t9655 = t9654 * t334;
9544   t9660 = t3137 * t334;
9545   t9689 = sigma[2] * t648;
9546   t9693 = sigma[2] * t653;
9547   t9697 = 0.19281000000000000000e-2 * t5735 * t9651 + 0.11105856000000000000e-4 * t5758 * t9655 + 0.19281000000000000000e-2 * t5748 * t9651 - 0.13327027200000000000e-6 * t5804 * t9660 + 0.98718720000000000000e-5 * t666 * t9504 * t334 + 0.20823480000000000000e-5 * t2153 * t3019 * t5778 - 0.31235220000000000000e-5 * t1775 * t3019 * t5785 - 0.31235220000000000000e-5 * t1775 * t3019 * t5791 + 0.41646960000000000000e-5 * t2165 * t3019 * t2211 + 0.24988176000000000000e-7 * t1853 * t3215 * t9689 - 0.24988176000000000000e-7 * t1844 * t3215 * t9693;
9548   t9699 = t640 * t700;
9549   t9703 = t2999 * t5778;
9550   t9706 = t2999 * t5785;
9551   t9712 = t2999 * t5791;
9552   t9715 = t2999 * t2211;
9553   t9721 = t3203 * t334;
9554   t9724 = t3203 * t9689;
9555   t9736 = t3203 * t9693;
9556   t9741 = t3180 * t653;
9557   t9744 = t3068 * t648;
9558   t9747 = t3068 * t653;
9559   t9758 = -0.13059532800000000000e-9 * t1802 * t2142 - 0.54432000000000000000e-5 * t3203 * t9634 - 0.66512640000000000000e-5 * t1794 * t2142 + 0.11105856000000000000e-4 * t1839 * t9736 - 0.20134400000000000000e-3 * t3068 * t334 - 0.92548800000000000000e-3 * t9499 * t9741 + 0.92548800000000000000e-3 * t1849 * t9744 - 0.92548800000000000000e-3 * t1839 * t9747 - 0.82265600000000000000e-3 * t2195 * t9428 - 0.27764640000000000000e-5 * t1853 * t9504 * t648 + 0.27764640000000000000e-5 * t1844 * t9504 * t653;
9560   t9760 = 0.19045670400000000000e-6 * t9632 * t9634 - 0.11753579520000000000e-8 * t9637 * t9634 + 0.19589299200000000000e-11 * t9640 * t9634 + 0.92548800000000000000e-3 * t9494 * t9643 + 0.24988176000000000000e-7 * t5715 * t9647 - 0.57843000000000000000e-5 * t5740 * t9651 - 0.24988176000000000000e-7 * t5720 * t9655 - 0.57843000000000000000e-5 * t5751 * t9651 + 0.26654054400000000000e-9 * t5808 * t9660 - 0.11105856000000000000e-4 * t5755 * t9647 + t9697 - 0.22211712000000000000e-7 * t671 * t9699 * t334 - 0.69411600000000000000e-3 * t5125 * t9703 + 0.10411740000000000000e-2 * t9016 * t9706 + 0.92548800000000000000e-3 * t8960 * t2196 * t9646 + 0.10411740000000000000e-2 * t9016 * t9712 - 0.13882320000000000000e-2 * t5110 * t9715 - 0.92548800000000000000e-3 * t8967 * t2196 * t9654 + 0.14807808000000000000e-4 * t3067 * t9721 - 0.11105856000000000000e-4 * t1849 * t9724 + 0.65297664000000000000e-7 * t1797 * t2142 + t9758;
9561   t9761 = t275 * t9760;
9562   t9762 = -t9599 / 0.32e2 + 0.50000000000000000001e0 * t9602 + t9606 / 0.16e2 - t9611 / 0.32e2 - t9614 / 0.96e2 + 0.31090700000000000000e-1 * t9617 - t9345 / 0.32e2 + t9349 + t9620 + 0.50000000000000000001e0 * t9621 + t9623 - 0.10000000000000000000e1 * t9626 + 0.16081979498692535067e2 * t9629 + t9631 + t9761;
9563   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9564     v3rho2sigma[5] = -t2982 - t9225 - t2990 - t2992 - t2994 + t2997 + t2998 + t3034 - t3090 - t3094 - t3129 - t3131 - t3133 + t3136 - t3176 + t3177 + t3222 + t3 * (t9597 + t9762);
9565 
9566   t9772 = t2504 * t927;
9567   t9773 = 0.15545350000000000000e-1 * t9772;
9568   t9774 = t2507 * t927;
9569   t9775 = 0.31090700000000000000e-1 * t9774;
9570   t9776 = t2525 * t927;
9571   t9777 = 0.15545350000000000000e-1 * t9776;
9572   t9778 = t2418 * t911;
9573   t9779 = 0.3e1 / 0.32e2 * t9778;
9574   t9780 = t2717 * t942;
9575   t9781 = t2264 * t3047;
9576   t9782 = 0.10000000000000000000e1 * t9781;
9577   t9783 = t2315 * t3047;
9578   t9784 = 0.10000000000000000000e1 * t9783;
9579   t9785 = t2802 * t926;
9580   t9786 = t418 * t9785;
9581   t9787 = 0.50000000000000000001e0 * t9786;
9582   t9794 = t26 * t876;
9583   t9804 = t1801 * t26;
9584   t9808 = t2949 * t6933;
9585   t9811 = t26 * t873;
9586   t9815 = t26 * t82;
9587   t9816 = t9815 * t2382;
9588   t9827 = t3053 * t2357;
9589   t9832 = -0.30541104000000000000e-7 * t671 * t3081 * t2358 + 0.13573824000000000000e-4 * t666 * t2964 * t2358 - 0.18509760000000000000e-2 * t9499 * t3068 * t9794 - 0.13327027200000000000e-6 * t666 * t3081 * t2383 - 0.62470440000000000000e-5 * t1775 * t2964 * t6933 + 0.26654054400000000000e-9 * t671 * t9804 * t2383 + 0.20823480000000000000e-2 * t9016 * t9808 + 0.18509760000000000000e-2 * t9494 * t3068 * t9811 + 0.19045670400000000000e-6 * t5014 * t9816 - 0.11753579520000000000e-8 * t5017 * t9816 + 0.19589299200000000000e-11 * t5022 * t9816 - 0.27684800000000000000e-3 * t2949 * t2358 - 0.54432000000000000000e-5 * t2964 * t2383 - 0.91454880000000000000e-5 * t1794 * t9827 + 0.89784288000000000000e-7 * t1797 * t9827;
9590   t9835 = t9811 * t701;
9591   t9838 = t9794 * t701;
9592   t9851 = t305 * t82;
9593   t9852 = t2382 * t287;
9594   t9862 = t2357 * t306;
9595   t9863 = t9862 * t26;
9596   t9866 = t2964 * t2775;
9597   t9872 = t2949 * t2775;
9598   t9878 = -0.17956857600000000000e-9 * t1802 * t9827 + 0.49976352000000000000e-7 * t5715 * t9835 - 0.49976352000000000000e-7 * t5720 * t9838 - 0.22211712000000000000e-4 * t5755 * t9835 + 0.22211712000000000000e-4 * t5758 * t9838 - 0.34705800000000000000e-3 * t1849 * t2949 * t2751 + 0.34705800000000000000e-3 * t1839 * t2949 * t2736 + 0.14807808000000000000e-4 * t9851 * t9852 * t26 + 0.10411740000000000000e-5 * t1853 * t2964 * t2751 - 0.10411740000000000000e-5 * t1844 * t2964 * t2736 - 0.11311520000000000000e-2 * t3067 * t9863 + 0.20823480000000000000e-5 * t2153 * t9866 + 0.41646960000000000000e-5 * t2165 * t2964 * t2723 - 0.69411600000000000000e-3 * t5125 * t9872 - 0.13882320000000000000e-2 * t5110 * t2949 * t2723;
9599   t9879 = t9832 + t9878;
9600   t9880 = t275 * t9879;
9601   t9881 = t859 * t3085;
9602   t9882 = 0.2e1 * t9881;
9603   t9883 = t9408 / 0.48e2;
9604   t9884 = t9378 / 0.16e2;
9605   t9885 = t2844 * t2416;
9606   t9887 = t323 * t18 * t9885;
9607   t9888 = t9887 / 0.32e2;
9608   t9889 = t9122 * t2511;
9609   t9891 = t1754 * t18 * t9889;
9610   t9892 = t9891 / 0.24e2;
9611   t9893 = t2806 * t926;
9612   t9894 = t1454 * t9893;
9613   t9895 = 0.16081979498692535067e2 * t9894;
9614   t9896 = t2812 * t926;
9615   t9897 = t1223 * t9896;
9616   t9898 = 0.10000000000000000000e1 * t9897;
9617   t9899 = -t9773 - t9775 - t9777 - t9779 + t9780 + t9782 + t9784 + t9787 + t9880 + t9882 - t9883 - t9884 - t9888 - t9892 + t9895 - t9898 + t9106;
9618   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9619     v3rho2sigma[6] = -0.3e1 / 0.16e2 * t3037 - t8905 - t3041 / 0.16e2 - 0.31090700000000000000e-1 * t3043 - 0.31090700000000000000e-1 * t3045 + 0.10000000000000000000e1 * t3048 + 0.2e1 * t3050 + 0.2e1 * t3086 + t3 * t9899;
9620 
9621   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9622     v3rho2sigma[7] = 0.0e0;
9623 
9624   t9910 = t2528 * t975;
9625   t9911 = 0.15545350000000000000e-1 * t9910;
9626   t9912 = t2531 * t975;
9627   t9913 = 0.31090700000000000000e-1 * t9912;
9628   t9914 = t771 * t3174;
9629   t9915 = 0.31090700000000000000e-1 * t9914;
9630   t9916 = t9608 * t689;
9631   t9918 = t387 * t18 * t9916;
9632   t9919 = t9918 / 0.16e2;
9633   t9920 = t2986 * t2421;
9634   t9922 = t387 * t18 * t9920;
9635   t9923 = t9922 / 0.32e2;
9636   t9924 = t9357 * t2537;
9637   t9926 = t1444 * t18 * t9924;
9638   t9927 = t9926 / 0.24e2;
9639   t9928 = t2717 * t990;
9640   t9929 = t859 * t3221;
9641   t9930 = 0.2e1 * t9929;
9642   t9931 = t2585 * t974;
9643   t9932 = t1213 * t9931;
9644   t9933 = 0.16081979498692535067e2 * t9932;
9645   t9934 = t3203 * t6826;
9646   t9946 = t2999 * t6933;
9647   t9949 = t3203 * t6814;
9648   t9952 = t2382 * sigma[2];
9649   t9959 = t2388 * t82;
9650   t9966 = t7017 * sigma[2];
9651   t9968 = t2388 * t287;
9652   t9969 = t9968 * t82;
9653   t9971 = t633 * t2357;
9654   t9973 = t636 * t2357;
9655   t9977 = t640 * t2388;
9656   t9978 = t9977 * t82;
9657   t9987 = 0.22211712000000000000e-4 * t1839 * t9934 - 0.62470440000000000000e-5 * t1775 * t3019 * t6933 + 0.49976352000000000000e-7 * t1853 * t3215 * t6814 - 0.49976352000000000000e-7 * t1844 * t3215 * t6826 + 0.20823480000000000000e-2 * t9016 * t9946 - 0.22211712000000000000e-4 * t1849 * t9949 - 0.22448016000000000000e-4 * t1794 * t9952 + 0.22037961600000000000e-6 * t1797 * t9952 - 0.44075923200000000000e-9 * t1802 * t9952 + 0.19045670400000000000e-6 * t5014 * t9959 - 0.11753579520000000000e-8 * t5017 * t9959 + 0.19589299200000000000e-11 * t5022 * t9959 - 0.67953600000000000000e-3 * t9966 - 0.54432000000000000000e-5 * t9969 - 0.13842400000000000000e-3 * t9971 - 0.49880160000000000000e-5 * t9973 + 0.14964048000000000000e-7 * t641 * t2357 - 0.13327027200000000000e-6 * t666 * t9978 + 0.10411740000000000000e-5 * t1853 * t3019 * t2751 - 0.10411740000000000000e-5 * t1844 * t3019 * t2736;
9658   t9988 = t1801 * t2388;
9659   t9992 = t2999 * t2751;
9660   t9995 = t3180 * t873;
9661   t9998 = t2999 * t2736;
9662   t10001 = t3180 * t876;
9663   t10004 = t2999 * t2723;
9664   t10007 = t3068 * t876;
9665   t10010 = t9852 * sigma[2];
9666   t10013 = t3019 * t2775;
9667   t10025 = t640 * t2382;
9668   t10029 = t2999 * t2775;
9669   t10032 = t3068 * t873;
9670   t10045 = 0.26654054400000000000e-9 * t671 * t9988 * t82 - 0.34705800000000000000e-3 * t1849 * t9992 + 0.18509760000000000000e-2 * t9494 * t9995 + 0.34705800000000000000e-3 * t1839 * t9998 - 0.18509760000000000000e-2 * t9499 * t10001 - 0.13882320000000000000e-2 * t5110 * t10004 - 0.18509760000000000000e-2 * t1839 * t10007 + 0.33317568000000000000e-4 * t666 * t10010 + 0.20823480000000000000e-5 * t2153 * t10013 - 0.55529280000000000000e-5 * t1853 * t9504 * t873 + 0.41646960000000000000e-5 * t2165 * t3019 * t2723 + 0.55529280000000000000e-5 * t1844 * t9504 * t876 - 0.74964528000000000000e-7 * t671 * t10025 * sigma[2] - 0.69411600000000000000e-3 * t5125 * t10029 + 0.18509760000000000000e-2 * t1849 * t10032 + 0.46141333333333333333e-1 * t2357 * t280 - 0.27764640000000000000e-2 * t305 * t9966 + 0.14807808000000000000e-4 * t305 * t9969 - 0.11311520000000000000e-2 * t305 * t9971 + 0.33934560000000000000e-5 * t305 * t9973;
9671   t10046 = t9987 + t10045;
9672   t10047 = t275 * t10046;
9673   t10048 = t9595 / 0.16e2;
9674   t10049 = t9599 / 0.16e2;
9675   t10050 = -t9911 - t9913 - t9915 - t9919 - t9923 - t9927 + t9928 + t9930 + t9933 + t10047 - t10048 - t10049;
9676   t10051 = t2272 * t3134;
9677   t10052 = 0.10000000000000000000e1 * t10051;
9678   t10053 = t2269 * t3134;
9679   t10054 = 0.10000000000000000000e1 * t10053;
9680   t10055 = t9614 / 0.48e2;
9681   t10056 = t2816 * t974;
9682   t10057 = t1231 * t10056;
9683   t10058 = 0.10000000000000000000e1 * t10057;
9684   t10059 = t691 * t3127;
9685   t10060 = 0.3e1 / 0.16e2 * t10059;
9686   t10061 = t2551 * t975;
9687   t10062 = 0.15545350000000000000e-1 * t10061;
9688   t10063 = t779 * t3174;
9689   t10064 = 0.31090700000000000000e-1 * t10063;
9690   t10065 = t9952 * t184;
9691   t10070 = t710 * t2398;
9692   t10071 = t10070 * t2487;
9693   t10074 = t2395 * t8688;
9694   t10075 = t10074 * t8631;
9695   t10078 = t9959 * t800;
9696   t10091 = t8611 * t800;
9697   t10092 = t10091 * t2347;
9698   t10096 = t8664 * t2487 * tau[1];
9699   t10099 = -0.55028053333333333333e2 * t199 * t10065 - 0.55387448888888888889e2 * t193 * t10065 - 0.13032960000000000000e2 * t199 * t10071 + 0.11121459200000000000e1 * t199 * t10075 + 0.48682652444444444446e2 * t193 * t10078 - 0.13118080000000000000e2 * t193 * t10071 + 0.11194094933333333333e1 * t193 * t10075 + 0.48366762666666666668e2 * t199 * t10078 - 0.50126222222222222222e1 * t10065 + 0.44058311111111111112e1 * t10078 - 0.11872000000000000000e1 * t10071 + 0.10130773333333333333e0 * t10075 + 0.39893866666666666667e2 * t2462 * t10092 + 0.12198144000000000000e2 * t2465 * t10096;
9700   t10106 = t2472 * sigma[2];
9701   t10117 = t2449 * sigma[2];
9702   t10122 = t2461 * sigma[2];
9703   t10133 = 0.14481066666666666667e3 * t3162 * t2432 + 0.10931733333333333333e3 * t3144 * t2432 + 0.25412800000000000000e3 * t3147 * t2432 - 0.90506666666666666667e2 * t10106 * t2446 - 0.63716693333333333335e2 * t823 * t2458 + 0.18101333333333333333e2 * t2473 * t10092 + 0.69509120000000000000e1 * t2477 * t10096 - 0.27329333333333333333e2 * t2345 * t2446 - 0.13629200000000000000e3 * t10117 * t2446 - 0.48099626666666666667e2 * t806 * t2458 - 0.19946933333333333333e3 * t10122 * t2446 - 0.11181632000000000000e3 * t813 * t2458 + 0.54658666666666666667e1 * t2442 * t10092 + 0.27258400000000000000e2 * t2450 * t10092 + 0.52472320000000000000e1 * t2453 * t10096;
9704   t10134 = t10099 + t10133;
9705   t10135 = t180 * t10134;
9706   t10136 = t166 * t10135;
9707   t10137 = 0.15545350000000000000e-1 * t10136;
9708   t10138 = t2444 * t89;
9709   t10139 = t10138 * t2347;
9710   t10142 = t2456 * t716;
9711   t10149 = t89 * tau[1];
9712   t10150 = t10149 * sigma[2];
9713   t10153 = t722 * t79;
9714   t10158 = t2357 * t79;
9715   t10160 = t2382 * t89;
9716   t10161 = t10160 * sigma[2];
9717   t10163 = t2388 * t716;
9718   t10164 = t10163 * t82;
9719   t10166 = t10070 * t2401;
9720   t10180 = t2347 * t2444;
9721   t10181 = t2372 * t89;
9722   t10184 = tau[1] * t2456;
9723   t10185 = t2377 * t716;
9724   t10190 = -0.27288888888888888889e-3 * t2345 * t10139 - 0.34929777777777777780e-5 * t2351 * t10142 * tau[1] - 0.16373333333333333334e0 * t723 * t2407 + 0.15281777777777777778e-2 * t723 * t713 * t10150 + 0.68222222222222222224e-1 * t2371 * t10153 - 0.33222382933333333335e-9 * t10074 * t8880 + 0.51157333333333333333e-1 * t10158 + 0.84559644444444444442e-3 * t10161 - 0.28530801777777777779e-4 * t10164 + 0.18037555200000000001e-6 * t10166 - 0.16373333333333333334e0 * t2341 * t3106 + 0.15281777777777777778e-2 * t2376 * t3116 + 0.68222222222222222223e-1 * t2344 * t2348 + 0.12007111111111111111e0 * t98 * t10158 - 0.28380444444444444445e-2 * t98 * t10161 + 0.17814186666666666668e-4 * t98 * t10164 - 0.27288888888888888890e-3 * t10180 * t10181 - 0.34929777777777777780e-5 * t10184 * t10185 - 0.33532586666666666670e-7 * t98 * t10166;
9725   t10191 = t70 * t10190;
9726   t10192 = t18 * t10191;
9727   t10193 = t67 * t10192;
9728   t10194 = 0.3e1 / 0.32e2 * t10193;
9729   t10195 = t2423 * t959;
9730   t10196 = 0.3e1 / 0.32e2 * t10195;
9731   t10197 = t2618 * t974;
9732   t10198 = t502 * t10197;
9733   t10199 = 0.50000000000000000001e0 * t10198;
9734   t10200 = t793 * t3173;
9735   t10201 = t502 * t10200;
9736   t10202 = 0.10000000000000000000e1 * t10201;
9737   t10203 = t10052 + t10054 - t10055 + t9349 - t10058 - t10060 - t10062 - t10064 - t10137 - t10194 - t10196 + t10199 + t10202;
9738   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9739     v3rho2sigma[8] = -0.3e1 / 0.16e2 * t3089 - t9225 - t3093 / 0.16e2 - 0.3e1 / 0.16e2 * t3128 - 0.31090700000000000000e-1 * t3130 - 0.31090700000000000000e-1 * t3132 + 0.10000000000000000000e1 * t3135 - 0.31090700000000000000e-1 * t3175 + 0.2e1 * t3177 + 0.2e1 * t3222 + t3 * (t10050 + t10203);
9740 
9741   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9742     v3rho2lapl[0] = 0.0e0;
9743 
9744   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9745     v3rho2lapl[1] = 0.0e0;
9746 
9747   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9748     v3rho2lapl[2] = 0.0e0;
9749 
9750   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9751     v3rho2lapl[3] = 0.0e0;
9752 
9753   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9754     v3rho2lapl[4] = 0.0e0;
9755 
9756   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
9757     v3rho2lapl[5] = 0.0e0;
9758 
9759   t10207 = t3228 / 0.16e2;
9760   t10217 = t323 * t127 * t3231;
9761   t10218 = t10217 / 0.48e2;
9762   t10219 = t325 * t3266;
9763   t10220 = t10219 * t314;
9764   t10222 = t323 * t18 * t10220;
9765   t10223 = t10222 / 0.16e2;
9766   t10224 = t3230 * t1111;
9767   t10226 = t323 * t18 * t10224;
9768   t10227 = t10226 / 0.32e2;
9769   t10228 = t1756 * t1007;
9770   t10229 = t10228 * t1249;
9771   t10231 = t1754 * t18 * t10229;
9772   t10232 = t10231 / 0.24e2;
9773   t10233 = t1739 * t1045;
9774   t10234 = t316 * t3227;
9775   t10235 = t10234 / 0.16e2;
9776   t10236 = t431 * t1008;
9777   t10237 = t14 * t10236;
9778   t10238 = t10237 / 0.48e2;
9779   t10239 = t127 * t3267;
9780   t10240 = t14 * t10239;
9781   t10241 = t10240 / 0.16e2;
9782   t10242 = t1133 * t359;
9783   t10244 = t339 * t55;
9784   t10247 = t455 * t355;
9785   t10250 = t3283 * t148;
9786   t10251 = t1000 * t1134;
9787   t10254 = t1285 * t355;
9788   t10255 = t3253 * tau[0];
9789   t10264 = t333 * t55;
9790   t10266 = t37 * t355;
9791   t10267 = t10266 * tau[0];
9792   t10269 = t1015 * t148;
9793   t10270 = t10269 * t1134;
9794   t10272 = t1139 * tau[0];
9795   t10275 = t3283 * t30;
9796   t10276 = t10275 * t1134;
9797   t10286 = t4097 * t1015 * t1134;
9798   t10288 = t356 * t333;
9799   t10290 = t346 * t55;
9800   t10293 = t1293 * t55;
9801   t10294 = t343 * t349;
9802   t10297 = 0.83200000000000000001e1 * t10242 - 0.28380444444444444444e0 * t10244 * t1000 + 0.46391111111111111112e0 * t10247 * t3249 - 0.20466666666666666667e0 * t10250 * t10251 - 0.87324444444444444448e-3 * t10254 * t10255 + 0.16155022222222222223e-2 * t356 * t2854 * t40 - 0.27943822222222222224e-5 * t356 * t2857 * t349 - 0.18488888888888888889e1 * t10264 + 0.83200000000000000002e1 * t10267 - 0.69333333333333333335e1 * t10270 + 0.46391111111111111111e0 * t1138 * t10272 - 0.20466666666666666666e0 * t4098 * t10276 - 0.87324444444444444446e-3 * t1312 * t9045 * tau[0] - 0.28380444444444444444e0 * t356 * t2891 * t30 - 0.69333333333333333335e1 * t10286 - 0.18488888888888888889e1 * t10288 + 0.16155022222222222223e-2 * t10290 * t3253 - 0.27943822222222222224e-5 * t10293 * t10294;
9803   t10298 = t21 * t10297;
9804   t10299 = t18 * t10298;
9805   t10300 = t14 * t10299;
9806   t10301 = 0.3e1 / 0.32e2 * t10300;
9807   t10302 = t1113 * t1009;
9808   t10303 = 0.3e1 / 0.32e2 * t10302;
9809   t10304 = t316 * t3268;
9810   t10305 = 0.3e1 / 0.16e2 * t10304;
9811   t10306 = t1225 * t1024;
9812   t10307 = t1223 * t10306;
9813   t10308 = 0.10000000000000000000e1 * t10307;
9814   t10309 = -t10218 - t10223 - t10227 - t10232 + t10233 - t10235 + t10238 - t10241 - t10301 - t10303 - t10305 - t10308;
9815   t10310 = t1387 * t3275;
9816   t10311 = 0.10000000000000000000e1 * t10310;
9817   t10312 = t306 * t3318;
9818   t10319 = t287 * t3318;
9819   t10323 = t640 * t1033;
9820   t10330 = t306 * t3329;
9821   t10337 = t287 * t3329;
9822   t10341 = t640 * t1036;
9823   t10354 = 0.18509760000000000000e-2 * t1849 * t10312 * t334 + 0.29615616000000000000e-4 * t1849 * t3342 * t1155 - 0.55529280000000000000e-5 * t1853 * t10319 * t334 - 0.66635136000000000000e-7 * t1853 * t10323 * t1155 - 0.41646960000000000000e-2 * t5038 * t3349 * t5628 - 0.18509760000000000000e-2 * t1839 * t10330 * t334 - 0.29615616000000000000e-4 * t1839 * t3359 * t1155 + 0.55529280000000000000e-5 * t1844 * t10337 * t334 + 0.66635136000000000000e-7 * t1844 * t10341 * t1155 + 0.20823480000000000000e-2 * t5051 * t3332 * t5628 - 0.10180368000000000000e-4 * t1844 * t3359 * t1127 - 0.33934560000000000000e-2 * t1849 * t3332 * t1127;
9824   t10361 = t1036 * t648;
9825   t10362 = t10361 * t334;
9826   t10367 = t3326 * t334;
9827   t10372 = t1033 * t648;
9828   t10373 = t10372 * t334;
9829   t10378 = t1033 * t653;
9830   t10379 = t10378 * t334;
9831   t10385 = 0.4e1 / 0.3e1 * t48 * t333;
9832   t10387 = 0.80e2 / 0.9e1 * t5614 * t93;
9833   t10388 = t10385 - t10387;
9834   t10393 = 0.10180368000000000000e-4 * t1853 * t3342 * t1127 + 0.33934560000000000000e-2 * t1839 * t3349 * t1127 - 0.55529280000000000000e-2 * t5011 * t10362 + 0.16658784000000000000e-4 * t5005 * t10362 + 0.74039040000000000000e-2 * t5797 * t10367 - 0.22211712000000000000e-4 * t5801 * t10367 + 0.37019520000000000000e-2 * t5777 * t10373 - 0.11105856000000000000e-4 * t5782 * t10373 - 0.55529280000000000000e-2 * t5011 * t10379 + 0.16658784000000000000e-4 * t5005 * t10379 + 0.2535e1 * t10388 * t297 + 0.10140e2 * t5175 * t3326;
9835   t10395 = t3329 * t653;
9836   t10398 = t1036 * t1820;
9837   t10406 = t10385 + t10387;
9838   t10410 = t1036 * t1765;
9839   t10416 = t3332 * t1827;
9840   t10425 = t5046 * t1033;
9841   t10431 = 0.10140e2 * t1764 * t10395 + 0.5070e1 * t1764 * t10398 - 0.34705800000000000000e-3 * t5559 * t1039 - 0.17352900000000000000e-3 * t656 * t307 * t10388 + 0.17352900000000000000e-3 * t662 * t307 * t10406 - 0.15210e2 * t5050 * t10410 - 0.69411600000000000000e-3 * t2153 * t10312 * t648 - 0.34705800000000000000e-3 * t2153 * t10416 + 0.10411740000000000000e-2 * t1775 * t10312 * t653 + 0.52058700000000000000e-3 * t1775 * t3332 * t1820 - 0.24679680000000000000e-2 * t5045 * t10425 + 0.10411740000000000000e-2 * t1775 * t10330 * t648;
9842   t10441 = t5046 * t1036;
9843   t10453 = t3318 * t651;
9844   t10464 = t1033 * t304;
9845   t10467 = 0.52058700000000000000e-3 * t1775 * t3349 * t1827 - 0.13882320000000000000e-2 * t2165 * t10330 * t653 - 0.69411600000000000000e-3 * t2165 * t3349 * t1820 + 0.24679680000000000000e-2 * t5077 * t10441 + 0.10411740000000000000e-2 * t5051 * t3349 * t1806 + 0.34705800000000000000e-2 * t5624 * t3349 * t1765 - 0.20823480000000000000e-2 * t5038 * t3332 * t1765 - 0.5070e1 * t10453 * t653 - 0.2535e1 * t3321 * t1820 - 0.2535e1 * t5162 * t1036 - 0.5070e1 * t1836 * t3329 - 0.2535e1 * t652 * t10406 + 0.5070e1 * t10464 * t1765;
9846   t10469 = t10354 + t10393 + t10431 + t10467;
9847   t10470 = t275 * t10469;
9848   t10471 = t629 * t3366;
9849   t10472 = 0.2e1 * t10471;
9850   t10473 = t1379 * t1025;
9851   t10474 = 0.15545350000000000000e-1 * t10473;
9852   t10475 = t1382 * t1025;
9853   t10476 = 0.31090700000000000000e-1 * t10475;
9854   t10477 = t395 * t3310;
9855   t10478 = 0.31090700000000000000e-1 * t10477;
9856   t10479 = t1265 * t1025;
9857   t10480 = 0.15545350000000000000e-1 * t10479;
9858   t10481 = t413 * t3310;
9859   t10482 = 0.31090700000000000000e-1 * t10481;
9860   t10484 = t1286 * tau[0];
9861   t10494 = 0.1e1 / t23 / t1180;
9862   t10495 = t10494 * t140;
9863   t10496 = t10495 * t1134;
9864   t10499 = t9183 * tau[0];
9865   t10514 = t1134 * t10494;
9866   t10517 = 0.25191111111111111111e2 * t10264 - 0.99734666666666666667e3 * t1283 * t10484 - 0.45253333333333333333e3 * t1303 * t10484 - 0.13664666666666666667e3 * t1312 * t10484 - 0.68146000000000000000e3 * t1316 * t10484 + 0.67968666666666666666e3 * t5417 * t10496 + 0.12766037333333333334e3 * t5343 * t10499 + 0.27152000000000000000e3 * t5373 * t10496 + 0.57924266666666666668e2 * t5378 * t10499 + 0.17728600000000000000e3 * t5384 * t10496 + 0.17490773333333333334e2 * t5387 * t10499 + 0.57178800000000000000e3 * t5413 * t10496 + 0.87226880000000000002e2 * t5351 * t10499 + 0.13664666666666666667e2 * t10514 * t5323;
9867   t10518 = t2857 * t448;
9868   t10522 = t1179 * t5346 * t1326;
9869   t10536 = t2854 * t140;
9870   t10545 = -0.46350549333333333335e2 * t453 * t10518 + 0.41977856000000000002e1 * t453 * t10522 - 0.10775027200000000000e3 * t460 * t10518 - 0.11336000000000000000e3 * t10267 + 0.94466666666666666665e2 * t10270 + 0.25191111111111111111e2 * t10288 + 0.97585152000000000003e1 * t460 * t10522 - 0.61399722666666666669e2 * t470 * t10518 + 0.55607296000000000002e1 * t470 * t10522 + 0.32020128e3 * t460 * t10536 + 0.18246144e3 * t470 * t10536 + 0.13773984e3 * t453 * t10536 - 0.11336000000000000000e3 * t10242 + 0.94466666666666666665e2 * t10286;
9871   t10546 = t10517 + t10545;
9872   t10547 = t136 * t10546;
9873   t10548 = t115 * t10547;
9874   t10549 = 0.15545350000000000000e-1 * t10548;
9875   t10550 = t1461 * t3275;
9876   t10551 = 0.10000000000000000000e1 * t10550;
9877   t10552 = t441 * t3309;
9878   t10553 = t418 * t10552;
9879   t10554 = 0.10000000000000000000e1 * t10553;
9880   t10555 = t1457 * t1024;
9881   t10556 = t1454 * t10555;
9882   t10557 = 0.16081979498692535067e2 * t10556;
9883   t10558 = t1432 * t1024;
9884   t10559 = t418 * t10558;
9885   t10560 = 0.50000000000000000001e0 * t10559;
9886   t10561 = t10311 + t10470 + t10472 - t10474 - t10476 - t10478 - t10480 - t10482 - t10549 + t10551 + t10554 + t10557 + t10560;
9887   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9888     v3rho2tau[0] = -0.3e1 / 0.16e2 * t3225 - t10207 - t3233 / 0.16e2 - 0.3e1 / 0.16e2 * t3269 - 0.31090700000000000000e-1 * t3271 - 0.31090700000000000000e-1 * t3273 + 0.10000000000000000000e1 * t3276 - 0.31090700000000000000e-1 * t3311 + 0.2e1 * t3313 + 0.2e1 * t3367 + t3 * (t10309 + t10561);
9889 
9890   t10565 = t3373 / 0.16e2;
9891   t10572 = t629 * t3437;
9892   t10573 = 0.2e1 * t10572;
9893   t10574 = t380 * t3372;
9894   t10575 = t10574 / 0.16e2;
9895   t10576 = t431 * t1063;
9896   t10577 = t67 * t10576;
9897   t10578 = t10577 / 0.48e2;
9898   t10580 = t387 * t127 * t3376;
9899   t10581 = t10580 / 0.48e2;
9900   t10582 = t3375 * t1106;
9901   t10584 = t387 * t18 * t10582;
9902   t10585 = t10584 / 0.32e2;
9903   t10586 = t1446 * t1062;
9904   t10587 = t10586 * t1360;
9905   t10589 = t1444 * t18 * t10587;
9906   t10590 = t10589 / 0.24e2;
9907   t10591 = t1739 * t1099;
9908   t10592 = t1376 * t1080;
9909   t10593 = 0.15545350000000000000e-1 * t10592;
9910   t10594 = t1343 * t1080;
9911   t10595 = 0.15545350000000000000e-1 * t10594;
9912   t10596 = t1346 * t1080;
9913   t10597 = 0.31090700000000000000e-1 * t10596;
9914   t10598 = t1108 * t1064;
9915   t10599 = 0.3e1 / 0.32e2 * t10598;
9916   t10600 = t93 * sigma[0];
9917   t10601 = t1150 * t10600;
9918   t10606 = t1090 * t648;
9919   t10607 = t10606 * t334;
9920   t10612 = t93 * t648;
9921   t10613 = t352 * t10612;
9922   t10616 = t3396 * t334;
9923   t10621 = t93 * t653;
9924   t10622 = t352 * t10621;
9925   t10629 = t1087 * t648;
9926   t10630 = t10629 * t334;
9927   t10635 = 0.61699200000000000000e-2 * t5735 * t10601 - 0.18509760000000000000e-4 * t5740 * t10601 - 0.55529280000000000000e-2 * t5011 * t10607 + 0.16658784000000000000e-4 * t5005 * t10607 - 0.34705800000000000000e-2 * t5730 * t10613 + 0.74039040000000000000e-2 * t5797 * t10616 - 0.22211712000000000000e-4 * t5801 * t10616 + 0.46274400000000000000e-2 * t5745 * t10622 + 0.61699200000000000000e-2 * t5748 * t10601 - 0.18509760000000000000e-4 * t5751 * t10601 + 0.37019520000000000000e-2 * t5777 * t10630 - 0.11105856000000000000e-4 * t5782 * t10630;
9928   t10638 = t1087 * t653;
9929   t10639 = t10638 * t334;
9930   t10650 = t1130 * t93;
9931   t10661 = t333 * t93;
9932   t10662 = t3416 * t10661;
9933   t10668 = -0.23137200000000000000e-2 * t5725 * t10613 - 0.55529280000000000000e-2 * t5011 * t10639 + 0.16658784000000000000e-4 * t5005 * t10639 + 0.34705800000000000000e-2 * t5730 * t10622 - 0.2535e1 * t5162 * t1090 - 0.2535e1 * t3391 * t1820 - 0.22533333333333333333e2 * t652 * t10650 - 0.34705800000000000000e-3 * t5559 * t1093 - 0.33934560000000000000e-2 * t1849 * t3402 * t1127 + 0.10180368000000000000e-4 * t1853 * t3412 * t1127 + 0.15424800000000000000e-2 * t1853 * t10662 + 0.20823480000000000000e-2 * t5051 * t3402 * t5628;
9934   t10670 = t1090 * t1765;
9935   t10677 = t1090 * t1820;
9936   t10680 = t1087 * t304;
9937   t10692 = t3417 * t653;
9938   t10695 = t3402 * t1827;
9939   t10701 = t5046 * t1087;
9940   t10704 = -0.15210e2 * t5050 * t10670 - 0.22533333333333333333e2 * t1130 * t3388 + 0.10140e2 * t5175 * t3396 + 0.5070e1 * t1764 * t10677 + 0.5070e1 * t10680 * t1765 - 0.20823480000000000000e-2 * t5038 * t3402 * t1765 + 0.10411740000000000000e-2 * t5051 * t3421 * t1806 + 0.34705800000000000000e-2 * t5624 * t3421 * t1765 - 0.33800000000000000000e2 * t5697 * t10692 - 0.34705800000000000000e-3 * t2153 * t10695 + 0.52058700000000000000e-3 * t1775 * t3402 * t1820 - 0.24679680000000000000e-2 * t5045 * t10701;
9941   t10711 = t5046 * t1090;
9942   t10716 = t93 * t651;
9943   t10717 = t10716 * t653;
9944   t10723 = t640 * t1087;
9945   t10733 = t640 * t1090;
9946   t10745 = 0.52058700000000000000e-3 * t1775 * t3421 * t1827 - 0.69411600000000000000e-3 * t2165 * t3421 * t1820 + 0.24679680000000000000e-2 * t5077 * t10711 + 0.16900000000000000000e2 * t1836 * t3399 - 0.16900000000000000000e2 * t352 * t10717 + 0.29615616000000000000e-4 * t1849 * t3412 * t1155 - 0.66635136000000000000e-7 * t1853 * t10723 * t1155 - 0.41646960000000000000e-2 * t5038 * t3421 * t5628 - 0.29615616000000000000e-4 * t1839 * t3431 * t1155 + 0.66635136000000000000e-7 * t1844 * t10733 * t1155 + 0.15424800000000000000e-2 * t1844 * t10662 + 0.33934560000000000000e-2 * t1839 * t3421 * t1127 - 0.10180368000000000000e-4 * t1844 * t3431 * t1127;
9947   t10747 = t10635 + t10668 + t10704 + t10745;
9948   t10748 = t275 * t10747;
9949   t10749 = t1217 * t1079;
9950   t10750 = t1213 * t10749;
9951   t10751 = 0.16081979498692535067e2 * t10750;
9952   t10752 = t1205 * t3384;
9953   t10753 = 0.10000000000000000000e1 * t10752;
9954   t10754 = t1208 * t3384;
9955   t10755 = 0.10000000000000000000e1 * t10754;
9956   t10756 = t1506 * t1079;
9957   t10757 = t502 * t10756;
9958   t10758 = 0.50000000000000000001e0 * t10757;
9959   t10759 = t1232 * t1079;
9960   t10760 = t1231 * t10759;
9961   t10761 = 0.10000000000000000000e1 * t10760;
9962   t10762 = t10573 - t10575 + t10578 - t10581 - t10585 - t10590 + t10591 - t10593 - t10595 - t10597 - t10599 + t10748 + t10751 + t10753 + t10755 + t10758 - t10761;
9963   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
9964     v3rho2tau[1] = -0.3e1 / 0.16e2 * t3370 - t10565 - t3378 / 0.16e2 - 0.31090700000000000000e-1 * t3380 - 0.31090700000000000000e-1 * t3382 + 0.10000000000000000000e1 * t3385 + 0.2e1 * t3387 + 0.2e1 * t3438 + t3 * t10762;
9965 
9966   t10764 = t682 * t3268;
9967   t10766 = t1889 * t1008;
9968   t10767 = t1888 * t10766;
9969   t10769 = t682 * t3227;
9970   t10771 = t1024 * t439;
9971   t10772 = t2001 * t10771;
9972   t10773 = t1454 * t10772;
9973   t10775 = t767 * t10771;
9974   t10776 = t1223 * t10775;
9975   t10778 = t10219 * t680;
9976   t10780 = t323 * t18 * t10778;
9977   t10782 = t3230 * t2;
9978   t10784 = t323 * t1415 * t10782;
9979   t10787 = t1461 * t3451;
9980   t10789 = t1387 * t3451;
9981   t10791 = t2264 * t3275;
9982   t10793 = t2315 * t3275;
9983   t10795 = t767 * t3309;
9984   t10796 = t418 * t10795;
9985   t10798 = t2311 * t1024;
9986   t10799 = t418 * t10798;
9987   t10801 = -0.3e1 / 0.32e2 * t10764 - 0.3e1 / 0.16e2 * t10767 - t10769 / 0.32e2 + 0.16081979498692535067e2 * t10773 - 0.10000000000000000000e1 * t10776 - t10780 / 0.32e2 - t10784 / 0.16e2 - t10217 / 0.96e2 + 0.50000000000000000001e0 * t10787 + 0.50000000000000000001e0 * t10789 + 0.50000000000000000001e0 * t10791 + 0.50000000000000000001e0 * t10793 + 0.50000000000000000001e0 * t10796 + 0.50000000000000000001e0 * t10799;
9988   t10804 = t2114 * t1045;
9989   t10805 = t859 * t3366;
9990   t10810 = t1036 * t873;
9991   t10811 = t10810 * t334;
9992   t10816 = t3462 * t334;
9993   t10821 = t1036 * sigma[2];
9994   t10822 = t10821 * t2187;
9995   t10825 = t10821 * t2191;
9996   t10834 = t1030 * t9258;
9997   t10837 = t1030 * t5698;
9998   t10840 = t1033 * t873;
9999   t10841 = t10840 * t334;
10000   t10846 = t1033 * t876;
10001   t10847 = t10846 * t334;
10002   t10850 = -0.2535e1 * t10453 * t876 - 0.2535e1 * t2121 * t3329 - 0.27764640000000000000e-2 * t5011 * t10811 + 0.83293920000000000000e-5 * t5005 * t10811 + 0.37019520000000000000e-2 * t5797 * t10816 - 0.11105856000000000000e-4 * t5801 * t10816 - 0.27764640000000000000e-2 * t5011 * t10822 + 0.37019520000000000000e-2 * t5797 * t10825 + 0.24679680000000000000e-2 * t5774 * t3490 + 0.83293920000000000000e-5 * t5005 * t10822 - 0.11105856000000000000e-4 * t5801 * t10825 - 0.17352900000000000000e-2 * t5730 * t10834 + 0.23137200000000000000e-2 * t5745 * t10837 + 0.18509760000000000000e-2 * t5777 * t10841 - 0.55529280000000000000e-5 * t5782 * t10841 - 0.27764640000000000000e-2 * t5011 * t10847;
10003   t10853 = t1033 * sigma[2];
10004   t10854 = t10853 * t2187;
10005   t10857 = t10853 * t2191;
10006   t10866 = t37 * tau[1];
10007   t10867 = t10866 * t3002;
10008   t10886 = t3462 * t653;
10009   t10891 = 0.83293920000000000000e-5 * t5005 * t10847 + 0.18509760000000000000e-2 * t5777 * t10854 - 0.27764640000000000000e-2 * t5011 * t10857 - 0.24679680000000000000e-2 * t5771 * t3474 - 0.55529280000000000000e-5 * t5782 * t10854 + 0.83293920000000000000e-5 * t5005 * t10857 + 0.30849600000000000000e-2 * t5748 * t10867 - 0.92548800000000000000e-5 * t5751 * t10867 - 0.11568600000000000000e-2 * t5725 * t10834 + 0.17352900000000000000e-2 * t5730 * t10837 + 0.30849600000000000000e-2 * t5735 * t10867 - 0.92548800000000000000e-5 * t5740 * t10867 - 0.14083333333333333333e2 * t2149 * t3455 + 0.84500000000000000000e1 * t1836 * t3465 - 0.84500000000000000000e1 * t1030 * t5600 - 0.15210e2 * t5050 * t10886 + 0.5070e1 * t5175 * t3462;
10010   t10893 = t3329 * t876;
10011   t10900 = t10821 * t2142;
10012   t10905 = t1033 * tau[0];
10013   t10906 = t10905 * t2150;
10014   t10911 = t10853 * t2142;
10015   t10916 = t1036 * tau[0];
10016   t10917 = t10916 * t2150;
10017   t10922 = t10312 * t701;
10018   t10940 = 0.5070e1 * t1764 * t10893 + 0.5070e1 * t10464 * t2211 + 0.5070e1 * t5709 * t3326 - 0.29615616000000000000e-4 * t5758 * t10900 + 0.66635136000000000000e-7 * t5720 * t10900 + 0.19281000000000000000e-2 * t5725 * t10906 + 0.28921500000000000000e-2 * t5730 * t10906 + 0.29615616000000000000e-4 * t5755 * t10911 - 0.66635136000000000000e-7 * t5715 * t10911 - 0.28921500000000000000e-2 * t5730 * t10917 - 0.38562000000000000000e-2 * t5745 * t10917 + 0.92548800000000000000e-3 * t1849 * t10922 - 0.27764640000000000000e-5 * t1853 * t10319 * t701 + 0.10411740000000000000e-2 * t5051 * t3349 * t5778 - 0.20823480000000000000e-2 * t5038 * t3349 * t5785 - 0.20823480000000000000e-2 * t5038 * t3349 * t5791 + 0.34705800000000000000e-2 * t5624 * t3349 * t2211;
10019   t10941 = t10330 * t701;
10020   t10947 = t1764 * t1036;
10021   t10950 = t3332 * t5785;
10022   t10961 = t3321 * tau[0];
10023   t10964 = t5599 * t1036;
10024   t10967 = t1764 * t51;
10025   t10970 = t5175 * t283;
10026   t10973 = t10312 * t873;
10027   t10985 = t2949 * t719;
10028   t10990 = -0.92548800000000000000e-3 * t1839 * t10941 + 0.27764640000000000000e-5 * t1844 * t10337 * t701 + 0.28166666666666666667e2 * t10947 * t2127 + 0.10411740000000000000e-2 * t5051 * t10950 + 0.10411740000000000000e-2 * t5051 * t3332 * t5791 - 0.20823480000000000000e-2 * t5038 * t3332 * t2211 - 0.14083333333333333333e2 * t652 * t2150 - 0.14083333333333333333e2 * t10961 * t2150 + 0.14083333333333333333e2 * t5598 * t10964 - 0.16900000000000000000e2 * t10967 * t5731 - 0.34705800000000000000e-3 * t10970 * t3468 - 0.34705800000000000000e-3 * t2153 * t10973 + 0.52058700000000000000e-3 * t1775 * t10312 * t876 + 0.52058700000000000000e-3 * t1775 * t10330 * t873 - 0.69411600000000000000e-3 * t2165 * t10330 * t876 + 0.96405000000000000000e-3 * t1844 * t10985 + 0.96405000000000000000e-3 * t1853 * t10985;
10029   t10992 = t10850 + t10891 + t10940 + t10990;
10030   t10993 = t275 * t10992;
10031   t10995 = t323 * t127 * t3443;
10032   t10997 = t2104 * t1024;
10033   t10998 = t1104 * t10997;
10034   t11000 = t629 * t3498;
10035   t11001 = t1007 * t680;
10036   t11002 = t11001 * t314;
10037   t11004 = t2256 * t2257 * t11002;
10038   t11006 = t745 * t3310;
10039   t11008 = t2054 * t1025;
10040   t11010 = t2063 * t1025;
10041   t11012 = t753 * t3310;
10042   t11014 = t2051 * t1025;
10043   t11016 = -t10234 / 0.32e2 + t10238 - t10240 / 0.32e2 + t10804 + t10805 + t10993 - t10995 / 0.96e2 - 0.31090700000000000000e-1 * t10998 + t11000 - t11004 / 0.24e2 - 0.15545350000000000000e-1 * t11006 - 0.15545350000000000000e-1 * t11008 - 0.15545350000000000000e-1 * t11010 - 0.15545350000000000000e-1 * t11012 - 0.15545350000000000000e-1 * t11014;
10044   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10045     v3rho2tau[2] = -t3226 - t10207 - t3234 - t3270 - t3272 - t3274 + t3277 - t3312 + t3313 + t3367 - t3442 - t3446 - t3448 - t3450 + t3453 + t3454 + t3499 + t3 * (t10801 + t11016);
10046 
10047   t11019 = t2269 * t3384;
10048   t11021 = t522 * t3582;
10049   t11022 = t502 * t11021;
10050   t11024 = t1208 * t3548;
10051   t11026 = t2278 * t1079;
10052   t11027 = t502 * t11026;
10053   t11029 = t2272 * t3384;
10054   t11031 = t1205 * t3548;
10055   t11033 = t3391 * tau[0];
10056   t11036 = t5599 * t1090;
10057   t11039 = t3417 * t876;
10058   t11044 = t306 * t3591;
10059   t11051 = t306 * t3601;
10060   t11058 = t1764 * t1090;
10061   t11061 = t3402 * t5785;
10062   t11073 = t287 * t3591;
10063   t11077 = t3416 * t3697;
10064   t11080 = t352 * t947;
10065   t11083 = -0.14083333333333333333e2 * t11033 * t2150 + 0.14083333333333333333e2 * t5598 * t11036 - 0.16900000000000000000e2 * t5697 * t11039 - 0.34705800000000000000e-3 * t10970 * t3604 - 0.34705800000000000000e-3 * t2153 * t11044 * t648 + 0.52058700000000000000e-3 * t1775 * t11044 * t653 + 0.52058700000000000000e-3 * t1775 * t11051 * t648 - 0.69411600000000000000e-3 * t2165 * t11051 * t653 + 0.28166666666666666667e2 * t11058 * t2127 + 0.10411740000000000000e-2 * t5051 * t11061 + 0.10411740000000000000e-2 * t5051 * t3402 * t5791 - 0.20823480000000000000e-2 * t5038 * t3402 * t2211 + 0.92548800000000000000e-3 * t1849 * t11044 * t334 - 0.27764640000000000000e-5 * t1853 * t11073 * t334 + 0.96405000000000000000e-3 * t1853 * t11077 - 0.92548800000000000000e-5 * t5740 * t11080;
10066   t11084 = t1090 * t873;
10067   t11085 = t11084 * t334;
10068   t11090 = t93 * t873;
10069   t11091 = t352 * t11090;
10070   t11094 = t3598 * t334;
10071   t11099 = t93 * t876;
10072   t11100 = t352 * t11099;
10073   t11103 = t1090 * sigma[2];
10074   t11104 = t11103 * t2187;
10075   t11107 = t11103 * t2191;
10076   t11120 = t1087 * t873;
10077   t11121 = t11120 * t334;
10078   t11128 = t1087 * t876;
10079   t11129 = t11128 * t334;
10080   t11132 = -0.27764640000000000000e-2 * t5011 * t11085 + 0.83293920000000000000e-5 * t5005 * t11085 - 0.17352900000000000000e-2 * t5730 * t11091 + 0.37019520000000000000e-2 * t5797 * t11094 - 0.11105856000000000000e-4 * t5801 * t11094 + 0.23137200000000000000e-2 * t5745 * t11100 - 0.27764640000000000000e-2 * t5011 * t11104 + 0.37019520000000000000e-2 * t5797 * t11107 + 0.24679680000000000000e-2 * t5774 * t3625 + 0.30849600000000000000e-2 * t5748 * t11080 + 0.83293920000000000000e-5 * t5005 * t11104 - 0.11105856000000000000e-4 * t5801 * t11107 - 0.92548800000000000000e-5 * t5751 * t11080 + 0.18509760000000000000e-2 * t5777 * t11121 - 0.55529280000000000000e-5 * t5782 * t11121 - 0.11568600000000000000e-2 * t5725 * t11091 - 0.27764640000000000000e-2 * t5011 * t11129;
10081   t11138 = t1087 * sigma[2];
10082   t11139 = t11138 * t2187;
10083   t11142 = t11138 * t2191;
10084   t11159 = t3601 * t653;
10085   t11164 = t3591 * t651;
10086   t11171 = t3598 * t653;
10087   t11174 = 0.83293920000000000000e-5 * t5005 * t11129 + 0.17352900000000000000e-2 * t5730 * t11100 + 0.18509760000000000000e-2 * t5777 * t11139 - 0.27764640000000000000e-2 * t5011 * t11142 - 0.24679680000000000000e-2 * t5771 * t3610 + 0.30849600000000000000e-2 * t5735 * t11080 - 0.55529280000000000000e-5 * t5782 * t11139 + 0.83293920000000000000e-5 * t5005 * t11142 + 0.5070e1 * t10680 * t2211 + 0.5070e1 * t5709 * t3396 + 0.5070e1 * t5175 * t3598 + 0.5070e1 * t1764 * t11159 - 0.14083333333333333333e2 * t352 * t3455 - 0.2535e1 * t11164 * t653 - 0.2535e1 * t1836 * t3601 + 0.84500000000000000000e1 * t2121 * t3399 - 0.15210e2 * t5050 * t11171;
10088   t11175 = t352 * t75;
10089   t11178 = t10716 * t876;
10090   t11181 = t1090 * tau[0];
10091   t11182 = t11181 * t2150;
10092   t11187 = t11103 * t2142;
10093   t11192 = t1087 * tau[0];
10094   t11193 = t11192 * t2150;
10095   t11198 = t11138 * t2142;
10096   t11218 = t287 * t3601;
10097   t11224 = -0.14083333333333333333e2 * t652 * t11175 - 0.84500000000000000000e1 * t352 * t11178 - 0.28921500000000000000e-2 * t5730 * t11182 - 0.38562000000000000000e-2 * t5745 * t11182 - 0.29615616000000000000e-4 * t5758 * t11187 + 0.66635136000000000000e-7 * t5720 * t11187 + 0.19281000000000000000e-2 * t5725 * t11193 + 0.28921500000000000000e-2 * t5730 * t11193 + 0.29615616000000000000e-4 * t5755 * t11198 - 0.66635136000000000000e-7 * t5715 * t11198 + 0.10411740000000000000e-2 * t5051 * t3421 * t5778 - 0.20823480000000000000e-2 * t5038 * t3421 * t5785 - 0.20823480000000000000e-2 * t5038 * t3421 * t5791 + 0.34705800000000000000e-2 * t5624 * t3421 * t2211 - 0.92548800000000000000e-3 * t1839 * t11051 * t334 + 0.27764640000000000000e-5 * t1844 * t11218 * t334 + 0.96405000000000000000e-3 * t1844 * t11077;
10098   t11226 = t11083 + t11132 + t11174 + t11224;
10099   t11227 = t275 * t11226;
10100   t11228 = t1079 * t520;
10101   t11229 = t793 * t11228;
10102   t11230 = t1231 * t11229;
10103   t11232 = t2009 * t11228;
10104   t11233 = t1213 * t11232;
10105   t11236 = t1062 * t689;
10106   t11237 = t11236 * t378;
10107   t11239 = t2249 * t2250 * t11237;
10108   t11241 = t2024 * t1080;
10109   t11243 = t2027 * t1080;
10110   t11245 = 0.50000000000000000001e0 * t11019 + 0.50000000000000000001e0 * t11022 + 0.50000000000000000001e0 * t11024 + 0.50000000000000000001e0 * t11027 + 0.50000000000000000001e0 * t11029 + 0.50000000000000000001e0 * t11031 + t11227 - 0.10000000000000000000e1 * t11230 + 0.16081979498692535067e2 * t11233 - t10574 / 0.32e2 + t10578 - t11239 / 0.24e2 - 0.15545350000000000000e-1 * t11241 - 0.15545350000000000000e-1 * t11243;
10111   t11246 = t2048 * t1080;
10112   t11248 = t482 * t3583;
10113   t11250 = t497 * t3583;
10114   t11252 = t1889 * t1063;
10115   t11253 = t1888 * t11252;
10116   t11255 = t380 * t3541;
10117   t11257 = t127 * t3540;
10118   t11258 = t67 * t11257;
10119   t11260 = t691 * t3372;
10120   t11262 = t629 * t3634;
10121   t11264 = t859 * t3437;
10122   t11266 = t387 * t127 * t3504;
10123   t11268 = t389 * t3539;
10124   t11269 = t11268 * t378;
10125   t11271 = t387 * t18 * t11269;
10126   t11273 = t3375 * t2;
10127   t11275 = t387 * t1415 * t11273;
10128   t11277 = t2107 * t1079;
10129   t11278 = t1104 * t11277;
10130   t11280 = t2114 * t1099;
10131   t11281 = -0.15545350000000000000e-1 * t11246 - 0.15545350000000000000e-1 * t11248 - 0.15545350000000000000e-1 * t11250 + 0.3e1 / 0.16e2 * t11253 - 0.3e1 / 0.32e2 * t11255 - t11258 / 0.32e2 - t11260 / 0.32e2 + t11262 - t10580 / 0.96e2 + t11264 - t11266 / 0.96e2 - t11271 / 0.32e2 + t11275 / 0.16e2 + 0.31090700000000000000e-1 * t11278 + t11280;
10132   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10133     v3rho2tau[3] = -t3371 - t10565 - t3379 - t3381 - t3383 + t3386 + t3387 + t3438 - t3503 - t3507 - t3543 - t3545 - t3547 + t3550 - t3585 + t3586 + t3635 + t3 * (t11245 + t11281);
10134 
10135   t11291 = t2418 * t1009;
10136   t11292 = 0.3e1 / 0.32e2 * t11291;
10137   t11293 = t2717 * t1045;
10138   t11294 = t1036 * t2736;
10139   t11302 = t700 * t297;
10140   t11305 = t1036 * t2723;
10141   t11312 = t1030 * t700;
10142   t11315 = t2775 * t304;
10143   t11320 = t3332 * t2751;
10144   t11326 = 0.5070e1 * t1764 * t11294 + 0.10140e2 * t5709 * t3462 - 0.66635136000000000000e-7 * t1853 * t10323 * t2383 - 0.22533333333333333333e2 * t1030 * t11302 - 0.15210e2 * t5050 * t11305 - 0.16900000000000000000e2 * t1030 * t6981 + 0.16900000000000000000e2 * t2121 * t3465 - 0.22533333333333333333e2 * t652 * t11312 - 0.34705800000000000000e-3 * t11315 * t1039 - 0.33800000000000000000e2 * t10967 * t6806 - 0.34705800000000000000e-3 * t2153 * t11320 + 0.52058700000000000000e-3 * t1775 * t3332 * t2736;
10145   t11327 = t7017 * t1033;
10146   t11336 = t7017 * t1036;
10147   t11339 = t3349 * t2775;
10148   t11354 = t10810 * t701;
10149   t11359 = -0.24679680000000000000e-2 * t7016 * t11327 + 0.52058700000000000000e-3 * t1775 * t3349 * t2751 - 0.69411600000000000000e-3 * t2165 * t3349 * t2736 + 0.24679680000000000000e-2 * t7021 * t11336 + 0.10411740000000000000e-2 * t5051 * t11339 + 0.34705800000000000000e-2 * t5624 * t3349 * t2723 - 0.20823480000000000000e-2 * t5038 * t3332 * t2723 - 0.2535e1 * t3321 * t2736 - 0.2535e1 * t7032 * t1036 + 0.5070e1 * t10464 * t2723 - 0.55529280000000000000e-2 * t5011 * t11354 + 0.16658784000000000000e-4 * t5005 * t11354;
10150   t11361 = t1030 * t9646;
10151   t11364 = t3462 * t701;
10152   t11369 = t1030 * t9654;
10153   t11372 = t1030 * t3137;
10154   t11377 = t10840 * t701;
10155   t11382 = t10846 * t701;
10156   t11391 = -0.34705800000000000000e-2 * t5730 * t11361 + 0.74039040000000000000e-2 * t5797 * t11364 - 0.22211712000000000000e-4 * t5801 * t11364 + 0.46274400000000000000e-2 * t5745 * t11369 + 0.61699200000000000000e-2 * t5748 * t11372 - 0.18509760000000000000e-4 * t5751 * t11372 - 0.11105856000000000000e-4 * t5782 * t11377 - 0.23137200000000000000e-2 * t5725 * t11361 - 0.55529280000000000000e-2 * t5011 * t11382 + 0.16658784000000000000e-4 * t5005 * t11382 + 0.34705800000000000000e-2 * t5730 * t11369 + 0.61699200000000000000e-2 * t5735 * t11372;
10157   t11405 = t3332 * t6933;
10158   t11411 = t3349 * t2358;
10159   t11417 = t3480 * t2363;
10160   t11420 = t3332 * t2358;
10161   t11428 = -0.18509760000000000000e-4 * t5740 * t11372 + 0.37019520000000000000e-2 * t5777 * t11377 - 0.41646960000000000000e-2 * t5038 * t3349 * t6933 - 0.29615616000000000000e-4 * t1839 * t3359 * t2383 + 0.66635136000000000000e-7 * t1844 * t10341 * t2383 + 0.20823480000000000000e-2 * t5051 * t11405 + 0.29615616000000000000e-4 * t1849 * t3342 * t2383 + 0.33934560000000000000e-2 * t1839 * t11411 - 0.10180368000000000000e-4 * t1844 * t3359 * t2358 + 0.15424800000000000000e-2 * t1844 * t11417 - 0.33934560000000000000e-2 * t1849 * t11420 + 0.10180368000000000000e-4 * t1853 * t3342 * t2358 + 0.15424800000000000000e-2 * t1853 * t11417;
10162   t11430 = t11326 + t11359 + t11391 + t11428;
10163   t11431 = t275 * t11430;
10164   t11432 = t2806 * t1024;
10165   t11433 = t1454 * t11432;
10166   t11434 = 0.16081979498692535067e2 * t11433;
10167   t11435 = t2264 * t3451;
10168   t11436 = 0.10000000000000000000e1 * t11435;
10169   t11437 = t2315 * t3451;
10170   t11438 = 0.10000000000000000000e1 * t11437;
10171   t11439 = t2802 * t1024;
10172   t11440 = t418 * t11439;
10173   t11441 = 0.50000000000000000001e0 * t11440;
10174   t11442 = t10995 / 0.48e2;
10175   t11443 = t859 * t3498;
10176   t11444 = 0.2e1 * t11443;
10177   t11445 = t3230 * t2416;
10178   t11447 = t323 * t18 * t11445;
10179   t11448 = t11447 / 0.32e2;
10180   t11449 = t10228 * t2511;
10181   t11451 = t1754 * t18 * t11449;
10182   t11452 = t11451 / 0.24e2;
10183   t11453 = t2812 * t1024;
10184   t11454 = t1223 * t11453;
10185   t11455 = 0.10000000000000000000e1 * t11454;
10186   t11456 = t10769 / 0.16e2;
10187   t11457 = t2504 * t1025;
10188   t11458 = 0.15545350000000000000e-1 * t11457;
10189   t11459 = t2507 * t1025;
10190   t11460 = 0.31090700000000000000e-1 * t11459;
10191   t11461 = t2525 * t1025;
10192   t11462 = 0.15545350000000000000e-1 * t11461;
10193   t11463 = -t11292 + t11293 + t11431 + t11434 + t11436 + t11438 + t11441 + t10238 - t11442 + t11444 - t11448 - t11452 - t11455 - t11456 - t11458 - t11460 - t11462;
10194   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10195     v3rho2tau[4] = -0.3e1 / 0.16e2 * t3441 - t10207 - t3445 / 0.16e2 - 0.31090700000000000000e-1 * t3447 - 0.31090700000000000000e-1 * t3449 + 0.10000000000000000000e1 * t3452 + 0.2e1 * t3454 + 0.2e1 * t3499 + t3 * t11463;
10196 
10197   t11474 = t2269 * t3548;
10198   t11475 = 0.10000000000000000000e1 * t11474;
10199   t11476 = t793 * t3582;
10200   t11477 = t502 * t11476;
10201   t11478 = 0.10000000000000000000e1 * t11477;
10202   t11479 = t2423 * t1064;
10203   t11480 = 0.3e1 / 0.32e2 * t11479;
10204   t11481 = t691 * t3541;
10205   t11482 = 0.3e1 / 0.16e2 * t11481;
10206   t11483 = t2618 * t1079;
10207   t11484 = t502 * t11483;
10208   t11485 = 0.50000000000000000001e0 * t11484;
10209   t11486 = t2585 * t1079;
10210   t11487 = t1213 * t11486;
10211   t11488 = 0.16081979498692535067e2 * t11487;
10212   t11489 = t2272 * t3548;
10213   t11490 = 0.10000000000000000000e1 * t11489;
10214   t11491 = t2816 * t1079;
10215   t11492 = t1231 * t11491;
10216   t11493 = 0.10000000000000000000e1 * t11492;
10217   t11494 = t2551 * t1080;
10218   t11495 = 0.15545350000000000000e-1 * t11494;
10219   t11496 = t779 * t3583;
10220   t11497 = 0.31090700000000000000e-1 * t11496;
10221   t11498 = t3100 * t184;
10222   t11506 = 0.1e1 / t72 / t2396;
10223   t11507 = t2347 * t11506;
10224   t11510 = t3103 * t800;
10225   t11514 = t2395 * t8664 * t2487;
10226   t11526 = t8655 * t1070 * t2347;
10227   t11528 = t2344 * t726;
10228   t11530 = t2445 * tau[1];
10229   t11535 = 0.18246144e3 * t822 * t11498 + 0.13773984e3 * t805 * t11498 + 0.32020128e3 * t812 * t11498 + 0.13664666666666666667e2 * t11507 * t8614 - 0.46350549333333333335e2 * t805 * t11510 + 0.41977856000000000002e1 * t805 * t11514 - 0.10775027200000000000e3 * t812 * t11510 + 0.97585152000000000003e1 * t812 * t11514 - 0.61399722666666666669e2 * t822 * t11510 + 0.55607296000000000002e1 * t822 * t11514 + 0.94466666666666666665e2 * t11526 - 0.11336000000000000000e3 * t11528 - 0.13664666666666666667e3 * t2442 * t11530 - 0.68146000000000000000e3 * t2450 * t11530;
10230   t11540 = t10091 * tau[1];
10231   t11543 = t11506 * t184;
10232   t11544 = t11543 * t2347;
10233   t11559 = t700 * t97;
10234   t11561 = t86 * t722;
10235   t11562 = t11561 * tau[1];
10236   t11564 = t1070 * t192;
10237   t11565 = t11564 * t2347;
10238   t11567 = t723 * t700;
10239   t11569 = -0.99734666666666666667e3 * t2462 * t11530 - 0.45253333333333333333e3 * t2473 * t11530 + 0.87226880000000000002e2 * t8682 * t11540 + 0.67968666666666666666e3 * t8694 * t11544 + 0.12766037333333333334e3 * t8697 * t11540 + 0.27152000000000000000e3 * t8706 * t11544 + 0.57924266666666666668e2 * t8709 * t11540 + 0.17728600000000000000e3 * t8656 * t11544 + 0.17490773333333333334e2 * t8661 * t11540 + 0.57178800000000000000e3 * t8679 * t11544 + 0.25191111111111111111e2 * t11559 - 0.11336000000000000000e3 * t11562 + 0.94466666666666666665e2 * t11565 + 0.25191111111111111111e2 * t11567;
10240   t11570 = t11535 + t11569;
10241   t11571 = t180 * t11570;
10242   t11572 = t166 * t11571;
10243   t11573 = 0.15545350000000000000e-1 * t11572;
10244   t11574 = t11475 + t11478 - t11480 - t11482 + t11485 + t11488 + t11490 + t10578 - t11493 - t11495 - t11497 - t11573;
10245   t11575 = t2528 * t1080;
10246   t11576 = 0.15545350000000000000e-1 * t11575;
10247   t11577 = t2531 * t1080;
10248   t11578 = 0.31090700000000000000e-1 * t11577;
10249   t11579 = t771 * t3583;
10250   t11580 = 0.31090700000000000000e-1 * t11579;
10251   t11584 = t2346 * tau[1];
10252   t11587 = t3556 * t79;
10253   t11588 = t11587 * t2347;
10254   t11599 = t713 * t97;
10255   t11602 = t2456 * t97;
10256   t11603 = t710 * t716;
10257   t11613 = t706 * t97;
10258   t11616 = t807 * t722;
10259   t11619 = t3556 * t192;
10260   t11620 = t1055 * t2347;
10261   t11623 = t2444 * t722;
10262   t11624 = t3526 * tau[1];
10263   t11627 = -0.18488888888888888889e1 * t11559 + 0.83200000000000000002e1 * t11562 - 0.69333333333333333335e1 * t11565 + 0.46391111111111111111e0 * t2345 * t11584 - 0.20466666666666666666e0 * t8850 * t11588 - 0.87324444444444444446e-3 * t2442 * t10138 * tau[1] - 0.28380444444444444444e0 * t723 * t3137 * t79 - 0.69333333333333333335e1 * t11526 - 0.18488888888888888889e1 * t11567 + 0.16155022222222222223e-2 * t11599 * t3526 - 0.27943822222222222224e-5 * t11602 * t11603 + 0.16155022222222222223e-2 * t723 * t3100 * t89 - 0.27943822222222222224e-5 * t723 * t3103 * t716 + 0.83200000000000000001e1 * t11528 - 0.28380444444444444444e0 * t11613 * t1055 + 0.46391111111111111112e0 * t11616 * t3522 - 0.20466666666666666667e0 * t11619 * t11620 - 0.87324444444444444448e-3 * t11623 * t11624;
10264   t11628 = t70 * t11627;
10265   t11629 = t18 * t11628;
10266   t11630 = t67 * t11629;
10267   t11631 = 0.3e1 / 0.32e2 * t11630;
10268   t11632 = t11268 * t689;
10269   t11634 = t387 * t18 * t11632;
10270   t11635 = t11634 / 0.16e2;
10271   t11636 = t3375 * t2421;
10272   t11638 = t387 * t18 * t11636;
10273   t11639 = t11638 / 0.32e2;
10274   t11640 = t10586 * t2537;
10275   t11642 = t1444 * t18 * t11640;
10276   t11643 = t11642 / 0.24e2;
10277   t11644 = t11258 / 0.16e2;
10278   t11645 = t11260 / 0.16e2;
10279   t11646 = t859 * t3634;
10280   t11647 = 0.2e1 * t11646;
10281   t11648 = t2717 * t1099;
10282   t11649 = t3402 * t2358;
10283   t11655 = t3421 * t2358;
10284   t11661 = t11051 * t701;
10285   t11664 = t3431 * t2383;
10286   t11673 = t3402 * t6933;
10287   t11676 = t11044 * t701;
10288   t11679 = t3412 * t2383;
10289   t11685 = -0.33934560000000000000e-2 * t1849 * t11649 + 0.10180368000000000000e-4 * t1853 * t3412 * t2358 + 0.33934560000000000000e-2 * t1839 * t11655 - 0.10180368000000000000e-4 * t1844 * t3431 * t2358 - 0.18509760000000000000e-2 * t1839 * t11661 - 0.29615616000000000000e-4 * t1839 * t11664 + 0.55529280000000000000e-5 * t1844 * t11218 * t701 + 0.66635136000000000000e-7 * t1844 * t10733 * t2383 + 0.20823480000000000000e-2 * t5051 * t11673 + 0.18509760000000000000e-2 * t1849 * t11676 + 0.29615616000000000000e-4 * t1849 * t11679 - 0.20823480000000000000e-2 * t5038 * t3402 * t2723;
10290   t11686 = t3421 * t2775;
10291   t11701 = t7017 * t1090;
10292   t11704 = t11044 * t873;
10293   t11707 = t3402 * t2751;
10294   t11716 = t7017 * t1087;
10295   t11722 = 0.10411740000000000000e-2 * t5051 * t11686 + 0.34705800000000000000e-2 * t5624 * t3421 * t2723 + 0.52058700000000000000e-3 * t1775 * t3421 * t2751 - 0.13882320000000000000e-2 * t2165 * t11051 * t876 - 0.69411600000000000000e-3 * t2165 * t3421 * t2736 + 0.24679680000000000000e-2 * t7021 * t11701 - 0.69411600000000000000e-3 * t2153 * t11704 - 0.34705800000000000000e-3 * t2153 * t11707 + 0.10411740000000000000e-2 * t1775 * t11044 * t876 + 0.52058700000000000000e-3 * t1775 * t3402 * t2736 - 0.24679680000000000000e-2 * t7016 * t11716 + 0.10411740000000000000e-2 * t1775 * t11051 * t873;
10296   t11727 = 0.4e1 / 0.3e1 * t48 * t700;
10297   t11729 = 0.80e2 / 0.9e1 * t52 * t700;
10298   t11730 = t11727 + t11729;
10299   t11734 = t11727 - t11729;
10300   t11738 = t11084 * t701;
10301   t11743 = t3598 * t701;
10302   t11748 = t11120 * t701;
10303   t11753 = t11128 * t701;
10304   t11758 = t1090 * t2723;
10305   t11761 = -0.34705800000000000000e-3 * t11315 * t1093 + 0.17352900000000000000e-3 * t662 * t307 * t11730 - 0.17352900000000000000e-3 * t656 * t307 * t11734 - 0.55529280000000000000e-2 * t5011 * t11738 + 0.16658784000000000000e-4 * t5005 * t11738 + 0.74039040000000000000e-2 * t5797 * t11743 - 0.22211712000000000000e-4 * t5801 * t11743 + 0.37019520000000000000e-2 * t5777 * t11748 - 0.11105856000000000000e-4 * t5782 * t11748 - 0.55529280000000000000e-2 * t5011 * t11753 + 0.16658784000000000000e-4 * t5005 * t11753 - 0.15210e2 * t5050 * t11758;
10306   t11766 = t3601 * t876;
10307   t11769 = t1090 * t2736;
10308   t11793 = 0.2535e1 * t11734 * t297 + 0.10140e2 * t5709 * t3598 + 0.10140e2 * t1764 * t11766 + 0.5070e1 * t1764 * t11769 - 0.55529280000000000000e-5 * t1853 * t11073 * t701 - 0.66635136000000000000e-7 * t1853 * t10723 * t2383 - 0.41646960000000000000e-2 * t5038 * t3421 * t6933 + 0.5070e1 * t10680 * t2723 - 0.2535e1 * t3391 * t2736 - 0.2535e1 * t7032 * t1090 - 0.5070e1 * t2121 * t3601 - 0.2535e1 * t652 * t11730 - 0.5070e1 * t11164 * t876;
10309   t11795 = t11685 + t11722 + t11761 + t11793;
10310   t11796 = t275 * t11795;
10311   t11797 = t11266 / 0.48e2;
10312   t11798 = -t11576 - t11578 - t11580 - t11631 - t11635 - t11639 - t11643 - t11644 - t11645 + t11647 + t11648 + t11796 - t11797;
10313   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10314     v3rho2tau[5] = -0.3e1 / 0.16e2 * t3502 - t10565 - t3506 / 0.16e2 - 0.3e1 / 0.16e2 * t3542 - 0.31090700000000000000e-1 * t3544 - 0.31090700000000000000e-1 * t3546 + 0.10000000000000000000e1 * t3549 - 0.31090700000000000000e-1 * t3584 + 0.2e1 * t3586 + 0.2e1 * t3635 + t3 * (t11574 + t11798);
10315 
10316   t11801 = t316 * t3652;
10317   t11802 = 0.3e1 / 0.32e2 * t11801;
10318   t11803 = t127 * t3651;
10319   t11804 = t14 * t11803;
10320   t11805 = t11804 / 0.32e2;
10321   t11806 = t325 * t3650;
10322   t11807 = t11806 * t314;
10323   t11809 = t323 * t18 * t11807;
10324   t11810 = t11809 / 0.32e2;
10325   t11812 = t346 * t349;
10326   t11813 = t11812 * sigma[0];
10327   t11815 = t33 * t1293;
10328   t11816 = t11815 * t1185;
10329   t11818 = t343 * t5346;
10330   t11821 = t55 * t40;
10331   t11830 = tau[0] * t1285;
10332   t11831 = t360 * t349;
10333   t11834 = t1285 * t349;
10334   t11835 = t11834 * tau[0];
10335   t11840 = -0.10120533333333333333e-3 * t2851 + 0.68519253333333333334e-5 * t11813 - 0.56934400000000000001e-7 * t11816 + 0.12458393600000000000e-9 * t11818 * t4144 - 0.16373333333333333333e-3 * t2869 * t11821 - 0.16373333333333333333e-3 * t356 * t2874 + 0.52394666666666666667e-3 * t56 * t2851 - 0.52394666666666666667e-5 * t56 * t11813 + 0.65493333333333333333e-6 * t11830 * t11831 + 0.65493333333333333333e-6 * t364 * t11835 + 0.12574720000000000000e-7 * t56 * t11816;
10336   t11841 = t21 * t11840;
10337   t11842 = t18 * t11841;
10338   t11843 = t14 * t11842;
10339   t11844 = 0.3e1 / 0.32e2 * t11843;
10340   t11845 = t395 * t3674;
10341   t11846 = 0.15545350000000000000e-1 * t11845;
10342   t11847 = t413 * t3674;
10343   t11848 = 0.15545350000000000000e-1 * t11847;
10344   t11849 = t441 * t3673;
10345   t11850 = t418 * t11849;
10346   t11851 = 0.50000000000000000001e0 * t11850;
10347   t11852 = t339 * t140;
10348   t11859 = t346 * t448;
10349   t11860 = t11859 * sigma[0];
10350   t11863 = t11815 * t1326;
10351   t11866 = t11818 * t5330;
10352   t11887 = t5320 * t1326 * tau[0];
10353   t11898 = -0.41705471999999999999e0 * t155 * t11866 + 0.79146666666666666667e0 * t11852 - 0.11080533333333333333e1 * t11860 + 0.37990400000000000000e0 * t11863 - 0.37990399999999999999e-1 * t11866 + 0.86886400000000000000e1 * t2916 * t2909 - 0.13032960000000000000e1 * t471 * t11887 + 0.6559040e1 * t2898 * t2909 + 0.15247680000000000000e2 * t2901 * t2909 - 0.9838560e0 * t454 * t11887 - 0.22871520000000000000e1 * t461 * t11887;
10354   t11899 = 0.87453866666666666667e1 * t149 * t11852 - 0.819880e1 * t453 * t457 - 0.19059600000000000000e2 * t460 * t457 - 0.12243541333333333333e2 * t149 * t11860 + 0.41977856000000000000e1 * t149 * t11863 - 0.41977855999999999999e0 * t149 * t11866 + 0.86886400000000000000e1 * t155 * t11852 - 0.10860800000000000000e2 * t470 * t457 - 0.12164096000000000000e2 * t155 * t11860 + 0.41705472000000000000e1 * t155 * t11863 + t11898;
10355   t11900 = t136 * t11899;
10356   t11901 = t115 * t11900;
10357   t11902 = 0.15545350000000000000e-1 * t11901;
10358   t11903 = t629 * t3691;
10359   t11912 = t346 * t287;
10360   t11913 = t11912 * sigma[0];
10361   t11916 = t287 * t37;
10362   t11923 = t1794 * t339;
10363   t11926 = t640 * t346;
10364   t11930 = t640 * t37;
10365   t11937 = t1797 * t339;
10366   t11940 = t1801 * t346;
10367   t11947 = t346 * sigma[0];
10368   t11957 = -0.34705800000000000000e-3 * t656 * t3677 * t648 + 0.34705800000000000000e-3 * t662 * t3677 * t653 + 0.61699200000000000000e-3 * t305 * t2934 - 0.55529280000000000000e-5 * t305 * t11913 + 0.41646960000000000000e-5 * t1849 * t11916 * t648 - 0.41646960000000000000e-5 * t1839 * t11916 * t653 - 0.74039040000000000000e-5 * t305 * t11923 + 0.49976352000000000000e-7 * t666 * t11926 * sigma[0] - 0.93705660000000000000e-8 * t1853 * t11930 * t648 + 0.93705660000000000000e-8 * t1844 * t11930 * t653 + 0.16658784000000000000e-7 * t305 * t11937 - 0.99952704000000000000e-10 * t671 * t11940 * sigma[0] + 0.15100800000000000000e-3 * t2934 + 0.20412000000000000000e-5 * t11913 + 0.49884480000000000000e-5 * t11923 - 0.71421264000000000000e-7 * t5014 * t11947 - 0.48973248000000000000e-7 * t11937 + 0.44075923200000000000e-9 * t5017 * t11947 + 0.97946496000000000000e-10 * t1802 * t339 - 0.73459872000000000000e-12 * t5022 * t11947;
10369   t11958 = t275 * t11957;
10370   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10371     v3rhosigma2[0] = -t3654 - t3676 + t3692 + t3 * (-t11802 - t11805 - t11810 - t11844 - t11846 - t11848 + t11851 - t11902 + t11903 + t11958);
10372 
10373   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10374     v3rhosigma2[1] = 0.0e0;
10375 
10376   t11961 = t275 * t3712;
10377   t11962 = t3 * t629;
10378   t11964 = t656 * t26;
10379   t11967 = t662 * t26;
10380   t11972 = t305 * t339;
10381   t11973 = t3019 * sigma[0];
10382   t11976 = t75 * t333;
10383   t11979 = t75 * t339;
10384   t11980 = t11979 * sigma[0];
10385   t12018 = -0.34705800000000000000e-3 * t11964 * t3010 + 0.34705800000000000000e-3 * t11967 * t3013 + 0.30849600000000000000e-3 * t305 * t3016 - 0.55529280000000000000e-5 * t11972 * t11973 + 0.48973248000000000000e-10 * t1802 * t11976 - 0.73459872000000000000e-12 * t5022 * t11980 + 0.24942240000000000000e-5 * t1794 * t11976 - 0.71421264000000000000e-7 * t5014 * t11980 - 0.24486624000000000000e-7 * t1797 * t11976 + 0.44075923200000000000e-9 * t5017 * t11980 + 0.75504000000000000000e-4 * t3016 + 0.20412000000000000000e-5 * t3019 * t2891 + 0.41646960000000000000e-5 * t1849 * t3019 * t9495 - 0.41646960000000000000e-5 * t1839 * t3019 * t9500 - 0.37019520000000000000e-5 * t666 * t3019 * t333 + 0.49976352000000000000e-7 * t666 * t3029 * t2891 - 0.93705660000000000000e-8 * t1853 * t3029 * t9495 + 0.93705660000000000000e-8 * t1844 * t3029 * t9500 + 0.83293920000000000000e-8 * t671 * t3029 * t333 - 0.99952704000000000000e-10 * t671 * t9251 * t2891;
10386   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10387     v3rhosigma2[2] = t11962 * t3712 + t12018 * t3694 + t11961;
10388 
10389   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10390     v3rhosigma2[3] = 0.0e0;
10391 
10392   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10393     v3rhosigma2[4] = 0.0e0;
10394 
10395   t12020 = t380 * t3727;
10396   t12021 = 0.3e1 / 0.32e2 * t12020;
10397   t12022 = t127 * t3726;
10398   t12023 = t67 * t12022;
10399   t12024 = t12023 / 0.32e2;
10400   t12025 = t389 * t3725;
10401   t12026 = t12025 * t378;
10402   t12028 = t387 * t18 * t12026;
10403   t12029 = t12028 / 0.32e2;
10404   t12030 = t482 * t3749;
10405   t12031 = 0.15545350000000000000e-1 * t12030;
10406   t12032 = t497 * t3749;
10407   t12033 = 0.15545350000000000000e-1 * t12032;
10408   t12034 = t522 * t3748;
10409   t12035 = t502 * t12034;
10410   t12036 = 0.50000000000000000001e0 * t12035;
10411   t12037 = t629 * t3766;
10412   t12038 = t86 * t287;
10413   t12041 = t86 * sigma[0];
10414   t12042 = t12041 * t333;
10415   t12055 = t305 * t86;
10416   t12064 = t640 * t86;
10417   t12074 = t1801 * t86;
10418   t12078 = 0.20412000000000000000e-5 * t12038 * t334 - 0.71421264000000000000e-7 * t5014 * t12042 + 0.44075923200000000000e-9 * t5017 * t12042 - 0.73459872000000000000e-12 * t5022 * t12042 - 0.34705800000000000000e-3 * t656 * t3752 * t648 + 0.34705800000000000000e-3 * t662 * t3752 * t653 - 0.55529280000000000000e-5 * t12055 * t673 + 0.41646960000000000000e-5 * t1849 * t12038 * t648 - 0.41646960000000000000e-5 * t1839 * t12038 * t653 + 0.49976352000000000000e-7 * t666 * t12064 * t334 - 0.93705660000000000000e-8 * t1853 * t12064 * t648 + 0.93705660000000000000e-8 * t1844 * t12064 * t653 - 0.99952704000000000000e-10 * t671 * t12074 * t334;
10419   t12079 = t275 * t12078;
10420   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10421     v3rhosigma2[5] = -t3729 - t3751 + t3767 + t3 * (-t12021 - t12024 - t12029 - t12031 - t12033 + t12036 + t12037 + t12079);
10422 
10423   t12082 = t682 * t3652;
10424   t12083 = 0.3e1 / 0.32e2 * t12082;
10425   t12084 = t11806 * t680;
10426   t12086 = t323 * t18 * t12084;
10427   t12087 = t12086 / 0.32e2;
10428   t12088 = t745 * t3674;
10429   t12089 = 0.15545350000000000000e-1 * t12088;
10430   t12090 = t753 * t3674;
10431   t12091 = 0.15545350000000000000e-1 * t12090;
10432   t12092 = t767 * t3673;
10433   t12093 = t418 * t12092;
10434   t12094 = 0.50000000000000000001e0 * t12093;
10435   t12095 = t859 * t3691;
10436   t12098 = t37 * sigma[2];
10437   t12099 = t12098 * t700;
10438   t12112 = t305 * t37;
10439   t12130 = t1801 * t37;
10440   t12134 = 0.20412000000000000000e-5 * t11916 * t701 - 0.71421264000000000000e-7 * t5014 * t12099 + 0.44075923200000000000e-9 * t5017 * t12099 - 0.73459872000000000000e-12 * t5022 * t12099 - 0.34705800000000000000e-3 * t656 * t3677 * t873 + 0.34705800000000000000e-3 * t662 * t3677 * t876 - 0.55529280000000000000e-5 * t12112 * t890 + 0.41646960000000000000e-5 * t1849 * t11916 * t873 - 0.41646960000000000000e-5 * t1839 * t11916 * t876 + 0.49976352000000000000e-7 * t666 * t11930 * t701 - 0.93705660000000000000e-8 * t1853 * t11930 * t873 + 0.93705660000000000000e-8 * t1844 * t11930 * t876 - 0.99952704000000000000e-10 * t671 * t12130 * t701;
10441   t12135 = t275 * t12134;
10442   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10443     v3rhosigma2[6] = -t3654 - t3676 + t3692 + t3 * (-t12083 - t11805 - t12087 - t12089 - t12091 + t12094 + t12095 + t12135);
10444 
10445   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10446     v3rhosigma2[7] = 0.0e0;
10447 
10448   t12138 = t3 * t859;
10449   t12142 = t305 * t26;
10450   t12149 = t700 * t26;
10451   t12152 = t706 * t26;
10452   t12153 = t12152 * sigma[2];
10453   t12182 = t1801 * t706;
10454   t12192 = 0.30849600000000000000e-3 * t305 * t3069 - 0.55529280000000000000e-5 * t12142 * t3204 - 0.34705800000000000000e-3 * t11964 * t3195 + 0.34705800000000000000e-3 * t11967 * t3198 + 0.48973248000000000000e-10 * t1802 * t12149 - 0.73459872000000000000e-12 * t5022 * t12153 + 0.24942240000000000000e-5 * t1794 * t12149 - 0.71421264000000000000e-7 * t5014 * t12153 - 0.24486624000000000000e-7 * t1797 * t12149 + 0.44075923200000000000e-9 * t5017 * t12153 + 0.75504000000000000000e-4 * t3069 + 0.20412000000000000000e-5 * t3203 * t3053 - 0.37019520000000000000e-5 * t666 * t9504 * t26 + 0.49976352000000000000e-7 * t666 * t3215 * t3053 - 0.93705660000000000000e-8 * t1853 * t3029 * t9811 + 0.93705660000000000000e-8 * t1844 * t3029 * t9794 + 0.83293920000000000000e-8 * t671 * t9699 * t26 - 0.99952704000000000000e-10 * t671 * t12182 * t3053 + 0.41646960000000000000e-5 * t1849 * t3019 * t9811 - 0.41646960000000000000e-5 * t1839 * t3019 * t9794;
10455   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10456     v3rhosigma2[8] = t12138 * t3712 + t12192 * t3694 + t11961;
10457 
10458   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10459     v3rhosigma2[9] = 0.0e0;
10460 
10461   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10462     v3rhosigma2[10] = 0.0e0;
10463 
10464   t12194 = t691 * t3727;
10465   t12195 = 0.3e1 / 0.32e2 * t12194;
10466   t12196 = t12025 * t689;
10467   t12198 = t387 * t18 * t12196;
10468   t12199 = t12198 / 0.32e2;
10469   t12201 = t713 * t716;
10470   t12202 = t12201 * sigma[2];
10471   t12204 = t82 * t2456;
10472   t12205 = t12204 * t2401;
10473   t12207 = t710 * t8664;
10474   t12210 = t97 * t89;
10475   t12219 = tau[1] * t2444;
10476   t12220 = t727 * t716;
10477   t12223 = t2444 * t716;
10478   t12224 = t12223 * tau[1];
10479   t12229 = -0.10120533333333333333e-3 * t3097 + 0.68519253333333333334e-5 * t12202 - 0.56934400000000000001e-7 * t12205 + 0.12458393600000000000e-9 * t12207 * t8880 - 0.16373333333333333333e-3 * t3115 * t12210 - 0.16373333333333333333e-3 * t723 * t3120 + 0.52394666666666666667e-3 * t98 * t3097 - 0.52394666666666666667e-5 * t98 * t12202 + 0.65493333333333333333e-6 * t12219 * t12220 + 0.65493333333333333333e-6 * t731 * t12224 + 0.12574720000000000000e-7 * t98 * t12205;
10480   t12230 = t70 * t12229;
10481   t12231 = t18 * t12230;
10482   t12232 = t67 * t12231;
10483   t12233 = 0.3e1 / 0.32e2 * t12232;
10484   t12234 = t771 * t3749;
10485   t12235 = 0.15545350000000000000e-1 * t12234;
10486   t12236 = t779 * t3749;
10487   t12237 = 0.15545350000000000000e-1 * t12236;
10488   t12238 = t793 * t3748;
10489   t12239 = t502 * t12238;
10490   t12240 = 0.50000000000000000001e0 * t12239;
10491   t12246 = t8611 * t2487 * tau[1];
10492   t12255 = t706 * t184;
10493   t12257 = t713 * t800;
10494   t12258 = t12257 * sigma[2];
10495   t12260 = t12204 * t2487;
10496   t12262 = t12207 * t8631;
10497   t12287 = -0.41977855999999999999e0 * t193 * t12262 + 0.86886400000000000000e1 * t199 * t12255 - 0.10860800000000000000e2 * t822 * t809 - 0.12164096000000000000e2 * t199 * t12258 + 0.41705472000000000000e1 * t199 * t12260 - 0.41705471999999999999e0 * t199 * t12262 + 0.87453866666666666667e1 * t193 * t12255 - 0.819880e1 * t805 * t809 - 0.19059600000000000000e2 * t812 * t809 - 0.12243541333333333333e2 * t193 * t12258 + 0.41977856000000000000e1 * t193 * t12260;
10498   t12288 = 0.6559040e1 * t3144 * t3155 + 0.15247680000000000000e2 * t3147 * t3155 - 0.9838560e0 * t806 * t12246 - 0.22871520000000000000e1 * t813 * t12246 + 0.86886400000000000000e1 * t3162 * t3155 - 0.13032960000000000000e1 * t823 * t12246 + 0.79146666666666666667e0 * t12255 - 0.11080533333333333333e1 * t12258 + 0.37990400000000000000e0 * t12260 - 0.37990399999999999999e-1 * t12262 + t12287;
10499   t12289 = t180 * t12288;
10500   t12290 = t166 * t12289;
10501   t12291 = 0.15545350000000000000e-1 * t12290;
10502   t12292 = t859 * t3766;
10503   t12301 = t713 * t287;
10504   t12302 = t12301 * sigma[2];
10505   t12311 = t1794 * t706;
10506   t12314 = t640 * t713;
10507   t12324 = t1797 * t706;
10508   t12327 = t1801 * t713;
10509   t12334 = t713 * sigma[2];
10510   t12344 = -0.34705800000000000000e-3 * t656 * t3752 * t873 + 0.34705800000000000000e-3 * t662 * t3752 * t876 + 0.61699200000000000000e-3 * t305 * t3180 - 0.55529280000000000000e-5 * t305 * t12302 + 0.41646960000000000000e-5 * t1849 * t12038 * t873 - 0.41646960000000000000e-5 * t1839 * t12038 * t876 - 0.74039040000000000000e-5 * t305 * t12311 + 0.49976352000000000000e-7 * t666 * t12314 * sigma[2] - 0.93705660000000000000e-8 * t1853 * t12064 * t873 + 0.93705660000000000000e-8 * t1844 * t12064 * t876 + 0.16658784000000000000e-7 * t305 * t12324 - 0.99952704000000000000e-10 * t671 * t12327 * sigma[2] + 0.15100800000000000000e-3 * t3180 + 0.20412000000000000000e-5 * t12302 + 0.49884480000000000000e-5 * t12311 - 0.71421264000000000000e-7 * t5014 * t12334 - 0.48973248000000000000e-7 * t12324 + 0.44075923200000000000e-9 * t5017 * t12334 + 0.97946496000000000000e-10 * t1802 * t706 - 0.73459872000000000000e-12 * t5022 * t12334;
10511   t12345 = t275 * t12344;
10512   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10513     v3rhosigma2[11] = -t3729 - t3751 + t3767 + t3 * (-t12195 - t12024 - t12199 - t12233 - t12235 - t12237 + t12240 - t12291 + t12292 + t12345);
10514 
10515   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10516     v3rhosigmalapl[0] = 0.0e0;
10517 
10518   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10519     v3rhosigmalapl[1] = 0.0e0;
10520 
10521   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10522     v3rhosigmalapl[2] = 0.0e0;
10523 
10524   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10525     v3rhosigmalapl[3] = 0.0e0;
10526 
10527   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10528     v3rhosigmalapl[4] = 0.0e0;
10529 
10530   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10531     v3rhosigmalapl[5] = 0.0e0;
10532 
10533   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10534     v3rhosigmalapl[6] = 0.0e0;
10535 
10536   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10537     v3rhosigmalapl[7] = 0.0e0;
10538 
10539   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10540     v3rhosigmalapl[8] = 0.0e0;
10541 
10542   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10543     v3rhosigmalapl[9] = 0.0e0;
10544 
10545   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10546     v3rhosigmalapl[10] = 0.0e0;
10547 
10548   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10549     v3rhosigmalapl[11] = 0.0e0;
10550 
10551   t12348 = t316 * t3784;
10552   t12349 = 0.3e1 / 0.32e2 * t12348;
10553   t12350 = t127 * t3783;
10554   t12351 = t14 * t12350;
10555   t12352 = t12351 / 0.32e2;
10556   t12353 = t325 * t3782;
10557   t12354 = t12353 * t314;
10558   t12356 = t323 * t18 * t12354;
10559   t12357 = t12356 / 0.32e2;
10560   t12360 = t30 * tau[0];
10561   t12365 = t3283 * t355;
10562   t12368 = t1285 * t55;
10563   t12369 = t33 * t349;
10564   t12379 = t3283 * t40;
10565   t12380 = t12379 * tau[0];
10566   t12386 = 0.53213333333333333333e-1 * t3245 * t30 - 0.40933333333333333334e-1 * t3248 * t12360 - 0.47482666666666666667e-3 * t3252 * t3772 + 0.16373333333333333333e-3 * t12365 * t9057 + 0.10478933333333333334e-5 * t12368 * t12369 - 0.40933333333333333333e-1 * t1133 * t3257 + 0.53213333333333333333e-1 * t356 * t365 - 0.47482666666666666667e-3 * t356 * t2873 * sigma[0] + 0.16373333333333333333e-3 * t1138 * t12380 + 0.10478933333333333334e-5 * t356 * t3643 * t349;
10567   t12387 = t21 * t12386;
10568   t12388 = t18 * t12387;
10569   t12389 = t14 * t12388;
10570   t12390 = 0.3e1 / 0.32e2 * t12389;
10571   t12391 = t395 * t3803;
10572   t12392 = 0.15545350000000000000e-1 * t12391;
10573   t12393 = t413 * t3803;
10574   t12394 = 0.15545350000000000000e-1 * t12393;
10575   t12395 = t441 * t3802;
10576   t12396 = t418 * t12395;
10577   t12397 = 0.50000000000000000001e0 * t12396;
10578   t12402 = t3640 * t140;
10579   t12405 = t3643 * t448;
10580   t12409 = t10494 * t448 * tau[0];
10581   t12414 = t343 * t5320;
10582   t12415 = t12414 * t1326;
10583   t12438 = 0.16397600000000000000e2 * t1138 * t3285 + 0.8177520e2 * t9145 * t3285 - 0.3443496e2 * t453 * t12402 + 0.14757840000000000000e2 * t453 * t12405 - 0.32795200000000000000e1 * t1312 * t12409 - 0.16355040e2 * t1316 * t12409 - 0.15741696000000000000e1 * t453 * t12415 + 0.11968160000000000000e3 * t9150 * t3285 - 0.8005032e2 * t460 * t12402 + 0.34307280000000000000e2 * t460 * t12405 - 0.23936320000000000000e2 * t1283 * t12409 - 0.36594432000000000000e1 * t460 * t12415 + 0.54304000000000000000e2 * t9138 * t3285 - 0.4561536e2 * t470 * t12402 + 0.19549440000000000000e2 * t470 * t12405 - 0.10860800000000000000e2 * t1303 * t12409 - 0.20852736000000000000e1 * t470 * t12415;
10584   t12439 = t136 * t12438;
10585   t12440 = t115 * t12439;
10586   t12441 = 0.15545350000000000000e-1 * t12440;
10587   t12442 = t629 * t3818;
10588   t12443 = t3332 * t9495;
10589   t12446 = t3332 * t9500;
10590   t12449 = t2934 * t1033;
10591   t12452 = t3342 * t2891;
10592   t12476 = -0.69411600000000000000e-3 * t5125 * t12443 + 0.10411740000000000000e-2 * t9016 * t12446 + 0.92548800000000000000e-3 * t8960 * t12449 - 0.11105856000000000000e-4 * t1849 * t12452 - 0.34705800000000000000e-3 * t1849 * t10312 * t26 + 0.92548800000000000000e-3 * t1849 * t3332 * t333 + 0.20823480000000000000e-5 * t2153 * t3342 * t9495 - 0.31235220000000000000e-5 * t1775 * t3342 * t9500 + 0.24988176000000000000e-7 * t1853 * t10323 * t2891 + 0.10411740000000000000e-5 * t1853 * t10319 * t26 - 0.27764640000000000000e-5 * t1853 * t3342 * t333;
10593   t12477 = t3349 * t9495;
10594   t12480 = t3349 * t9500;
10595   t12483 = t2934 * t1036;
10596   t12486 = t3359 * t2891;
10597   t12510 = 0.10411740000000000000e-2 * t9016 * t12477 - 0.13882320000000000000e-2 * t5110 * t12480 - 0.92548800000000000000e-3 * t8967 * t12483 + 0.11105856000000000000e-4 * t1839 * t12486 + 0.34705800000000000000e-3 * t1839 * t10330 * t26 - 0.92548800000000000000e-3 * t1839 * t3349 * t333 - 0.31235220000000000000e-5 * t1775 * t3359 * t9495 + 0.41646960000000000000e-5 * t2165 * t3359 * t9500 - 0.24988176000000000000e-7 * t1844 * t10341 * t2891 - 0.10411740000000000000e-5 * t1844 * t10337 * t26 + 0.27764640000000000000e-5 * t1844 * t3359 * t333;
10598   t12511 = t12476 + t12510;
10599   t12512 = t275 * t12511;
10600   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10601     v3rhosigmatau[0] = -t3786 - t3805 + t3819 + t3 * (-t12349 - t12352 - t12357 - t12390 - t12392 - t12394 + t12397 - t12441 + t12442 + t12512);
10602 
10603   t12515 = t275 * t3833;
10604   t12517 = t3402 * t9495;
10605   t12520 = t3402 * t9500;
10606   t12523 = t2934 * t1087;
10607   t12526 = t3412 * t2891;
10608   t12529 = t37 * t93;
10609   t12530 = t3416 * t12529;
10610   t12545 = t287 * tau[0];
10611   t12546 = t12545 * t12529;
10612   t12552 = -0.69411600000000000000e-3 * t5125 * t12517 + 0.10411740000000000000e-2 * t9016 * t12520 + 0.92548800000000000000e-3 * t8960 * t12523 - 0.11105856000000000000e-4 * t1849 * t12526 - 0.11568600000000000000e-2 * t1849 * t12530 + 0.92548800000000000000e-3 * t1849 * t3402 * t333 + 0.20823480000000000000e-5 * t2153 * t3412 * t9495 - 0.31235220000000000000e-5 * t1775 * t3412 * t9500 + 0.24988176000000000000e-7 * t1853 * t10723 * t2891 + 0.34705800000000000000e-5 * t1853 * t12546 - 0.27764640000000000000e-5 * t1853 * t3412 * t333;
10613   t12553 = t3421 * t9495;
10614   t12556 = t3421 * t9500;
10615   t12559 = t2934 * t1090;
10616   t12562 = t3431 * t2891;
10617   t12584 = 0.10411740000000000000e-2 * t9016 * t12553 - 0.13882320000000000000e-2 * t5110 * t12556 - 0.92548800000000000000e-3 * t8967 * t12559 + 0.11105856000000000000e-4 * t1839 * t12562 - 0.11568600000000000000e-2 * t1839 * t12530 - 0.92548800000000000000e-3 * t1839 * t3421 * t333 - 0.31235220000000000000e-5 * t1775 * t3431 * t9495 + 0.41646960000000000000e-5 * t2165 * t3431 * t9500 - 0.24988176000000000000e-7 * t1844 * t10733 * t2891 + 0.34705800000000000000e-5 * t1844 * t12546 + 0.27764640000000000000e-5 * t1844 * t3431 * t333;
10618   t12585 = t12552 + t12584;
10619   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10620     v3rhosigmatau[1] = t11962 * t3833 + t12585 * t3694 + t12515;
10621 
10622   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10623     v3rhosigmatau[2] = 0.0e0;
10624 
10625   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10626     v3rhosigmatau[3] = 0.0e0;
10627 
10628   t12587 = t275 * t3846;
10629   t12589 = t3332 * t9258;
10630   t12592 = t3332 * t5698;
10631   t12595 = t1033 * t75;
10632   t12599 = t12595 * t334;
10633   t12602 = t10312 * t75;
10634   t12616 = t3349 * t9258;
10635   t12619 = t3349 * t5698;
10636   t12622 = t1036 * t75;
10637   t12626 = t12622 * t334;
10638   t12629 = t10330 * t75;
10639   t12643 = -0.69411600000000000000e-3 * t5125 * t12589 + 0.10411740000000000000e-2 * t9016 * t12592 + 0.92548800000000000000e-3 * t8960 * t2196 * t12595 - 0.11105856000000000000e-4 * t5755 * t12599 - 0.34705800000000000000e-3 * t1849 * t12602 + 0.20823480000000000000e-5 * t2153 * t3342 * t9258 - 0.31235220000000000000e-5 * t1775 * t3342 * t5698 + 0.24988176000000000000e-7 * t5715 * t12599 + 0.10411740000000000000e-5 * t1853 * t10319 * t75 + 0.10411740000000000000e-2 * t9016 * t12616 - 0.13882320000000000000e-2 * t5110 * t12619 - 0.92548800000000000000e-3 * t8967 * t2196 * t12622 + 0.11105856000000000000e-4 * t5758 * t12626 + 0.34705800000000000000e-3 * t1839 * t12629 - 0.31235220000000000000e-5 * t1775 * t3359 * t9258 + 0.41646960000000000000e-5 * t2165 * t3359 * t5698 - 0.24988176000000000000e-7 * t5720 * t12626 - 0.10411740000000000000e-5 * t1844 * t10337 * t75;
10640   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10641     v3rhosigmatau[4] = t11962 * t3846 + t12643 * t3694 + t12587;
10642 
10643   t12645 = t380 * t3862;
10644   t12646 = 0.3e1 / 0.32e2 * t12645;
10645   t12647 = t127 * t3861;
10646   t12648 = t67 * t12647;
10647   t12649 = t12648 / 0.32e2;
10648   t12650 = t389 * t3860;
10649   t12651 = t12650 * t378;
10650   t12653 = t387 * t18 * t12651;
10651   t12654 = t12653 / 0.32e2;
10652   t12655 = t482 * t3881;
10653   t12656 = 0.15545350000000000000e-1 * t12655;
10654   t12657 = t497 * t3881;
10655   t12658 = 0.15545350000000000000e-1 * t12657;
10656   t12659 = t522 * t3880;
10657   t12660 = t502 * t12659;
10658   t12661 = 0.50000000000000000001e0 * t12660;
10659   t12662 = t629 * t3896;
10660   t12663 = t3402 * t9258;
10661   t12666 = t3402 * t5698;
10662   t12669 = t1087 * t75;
10663   t12673 = t12669 * t334;
10664   t12676 = t26 * t1053;
10665   t12677 = t3416 * t12676;
10666   t12688 = t12545 * t12676;
10667   t12691 = t3421 * t9258;
10668   t12694 = t3421 * t5698;
10669   t12697 = t1090 * t75;
10670   t12701 = t12697 * t334;
10671   t12716 = -0.69411600000000000000e-3 * t5125 * t12663 + 0.10411740000000000000e-2 * t9016 * t12666 + 0.92548800000000000000e-3 * t8960 * t2196 * t12669 - 0.11105856000000000000e-4 * t5755 * t12673 - 0.11568600000000000000e-2 * t1849 * t12677 + 0.20823480000000000000e-5 * t2153 * t3412 * t9258 - 0.31235220000000000000e-5 * t1775 * t3412 * t5698 + 0.24988176000000000000e-7 * t5715 * t12673 + 0.34705800000000000000e-5 * t1853 * t12688 + 0.10411740000000000000e-2 * t9016 * t12691 - 0.13882320000000000000e-2 * t5110 * t12694 - 0.92548800000000000000e-3 * t8967 * t2196 * t12697 + 0.11105856000000000000e-4 * t5758 * t12701 - 0.11568600000000000000e-2 * t1839 * t12677 - 0.31235220000000000000e-5 * t1775 * t3431 * t9258 + 0.41646960000000000000e-5 * t2165 * t3431 * t5698 - 0.24988176000000000000e-7 * t5720 * t12701 + 0.34705800000000000000e-5 * t1844 * t12688;
10672   t12717 = t275 * t12716;
10673   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10674     v3rhosigmatau[5] = -t3864 - t3883 + t3897 + t3 * (-t12646 - t12649 - t12654 - t12656 - t12658 + t12661 + t12662 + t12717);
10675 
10676   t12720 = t682 * t3784;
10677   t12721 = 0.3e1 / 0.32e2 * t12720;
10678   t12722 = t12353 * t680;
10679   t12724 = t323 * t18 * t12722;
10680   t12725 = t12724 / 0.32e2;
10681   t12726 = t745 * t3803;
10682   t12727 = 0.15545350000000000000e-1 * t12726;
10683   t12728 = t753 * t3803;
10684   t12729 = 0.15545350000000000000e-1 * t12728;
10685   t12730 = t767 * t3802;
10686   t12731 = t418 * t12730;
10687   t12732 = 0.50000000000000000001e0 * t12731;
10688   t12733 = t859 * t3818;
10689   t12734 = t3332 * t9811;
10690   t12737 = t3332 * t9794;
10691   t12740 = t1033 * t26;
10692   t12744 = t12740 * t701;
10693   t12747 = t306 * t998;
10694   t12748 = t12747 * t719;
10695   t12751 = t3342 * t9811;
10696   t12759 = t287 * t998;
10697   t12760 = t12759 * t719;
10698   t12763 = t3349 * t9811;
10699   t12766 = t3349 * t9794;
10700   t12769 = t1036 * t26;
10701   t12773 = t12769 * t701;
10702   t12788 = -0.69411600000000000000e-3 * t5125 * t12734 + 0.10411740000000000000e-2 * t9016 * t12737 + 0.92548800000000000000e-3 * t9494 * t3068 * t12740 - 0.11105856000000000000e-4 * t5755 * t12744 - 0.11568600000000000000e-2 * t1849 * t12748 + 0.20823480000000000000e-5 * t2153 * t12751 - 0.31235220000000000000e-5 * t1775 * t3342 * t9794 + 0.24988176000000000000e-7 * t5715 * t12744 + 0.34705800000000000000e-5 * t1853 * t12760 + 0.10411740000000000000e-2 * t9016 * t12763 - 0.13882320000000000000e-2 * t5110 * t12766 - 0.92548800000000000000e-3 * t9499 * t3068 * t12769 + 0.11105856000000000000e-4 * t5758 * t12773 - 0.11568600000000000000e-2 * t1839 * t12748 - 0.31235220000000000000e-5 * t1775 * t3359 * t9811 + 0.41646960000000000000e-5 * t2165 * t3359 * t9794 - 0.24988176000000000000e-7 * t5720 * t12773 + 0.34705800000000000000e-5 * t1844 * t12760;
10703   t12789 = t275 * t12788;
10704   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10705     v3rhosigmatau[6] = -t3786 - t3805 + t3819 + t3 * (-t12721 - t12352 - t12725 - t12727 - t12729 + t12732 + t12733 + t12789);
10706 
10707   t12793 = t3402 * t9811;
10708   t12796 = t3402 * t9794;
10709   t12799 = t1087 * t26;
10710   t12803 = t12799 * t701;
10711   t12809 = t3412 * t9811;
10712   t12820 = t3421 * t9811;
10713   t12823 = t3421 * t9794;
10714   t12826 = t1090 * t26;
10715   t12830 = t12826 * t701;
10716   t12847 = -0.69411600000000000000e-3 * t5125 * t12793 + 0.10411740000000000000e-2 * t9016 * t12796 + 0.92548800000000000000e-3 * t9494 * t3068 * t12799 - 0.11105856000000000000e-4 * t5755 * t12803 - 0.34705800000000000000e-3 * t1849 * t11044 * t26 + 0.20823480000000000000e-5 * t2153 * t12809 - 0.31235220000000000000e-5 * t1775 * t3412 * t9794 + 0.24988176000000000000e-7 * t5715 * t12803 + 0.10411740000000000000e-5 * t1853 * t11073 * t26 + 0.10411740000000000000e-2 * t9016 * t12820 - 0.13882320000000000000e-2 * t5110 * t12823 - 0.92548800000000000000e-3 * t9499 * t3068 * t12826 + 0.11105856000000000000e-4 * t5758 * t12830 + 0.34705800000000000000e-3 * t1839 * t11051 * t26 - 0.31235220000000000000e-5 * t1775 * t3431 * t9811 + 0.41646960000000000000e-5 * t2165 * t3431 * t9794 - 0.24988176000000000000e-7 * t5720 * t12830 - 0.10411740000000000000e-5 * t1844 * t11218 * t26;
10717   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10718     v3rhosigmatau[7] = t12138 * t3833 + t12847 * t3694 + t12515;
10719 
10720   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10721     v3rhosigmatau[8] = 0.0e0;
10722 
10723   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10724     v3rhosigmatau[9] = 0.0e0;
10725 
10726   t12850 = t3332 * t9646;
10727   t12853 = t3332 * t9654;
10728   t12856 = t3180 * t1033;
10729   t12859 = t3342 * t3137;
10730   t12862 = t3480 * t726;
10731   t12865 = t3332 * t700;
10732   t12868 = t3342 * t9646;
10733   t12877 = t287 * t51;
10734   t12878 = t12877 * t726;
10735   t12884 = -0.69411600000000000000e-3 * t5125 * t12850 + 0.10411740000000000000e-2 * t9016 * t12853 + 0.92548800000000000000e-3 * t9494 * t12856 - 0.11105856000000000000e-4 * t1849 * t12859 - 0.11568600000000000000e-2 * t1849 * t12862 + 0.92548800000000000000e-3 * t1849 * t12865 + 0.20823480000000000000e-5 * t2153 * t12868 - 0.31235220000000000000e-5 * t1775 * t3342 * t9654 + 0.24988176000000000000e-7 * t1853 * t10323 * t3137 + 0.34705800000000000000e-5 * t1853 * t12878 - 0.27764640000000000000e-5 * t1853 * t3342 * t700;
10736   t12885 = t3349 * t9646;
10737   t12888 = t3349 * t9654;
10738   t12891 = t3180 * t1036;
10739   t12894 = t3359 * t3137;
10740   t12899 = t3349 * t700;
10741   t12916 = 0.10411740000000000000e-2 * t9016 * t12885 - 0.13882320000000000000e-2 * t5110 * t12888 - 0.92548800000000000000e-3 * t9499 * t12891 + 0.11105856000000000000e-4 * t1839 * t12894 - 0.11568600000000000000e-2 * t1839 * t12862 - 0.92548800000000000000e-3 * t1839 * t12899 - 0.31235220000000000000e-5 * t1775 * t3359 * t9646 + 0.41646960000000000000e-5 * t2165 * t3359 * t9654 - 0.24988176000000000000e-7 * t1844 * t10341 * t3137 + 0.34705800000000000000e-5 * t1844 * t12878 + 0.27764640000000000000e-5 * t1844 * t3359 * t700;
10742   t12917 = t12884 + t12916;
10743   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10744     v3rhosigmatau[10] = t12138 * t3846 + t12917 * t3694 + t12587;
10745 
10746   t12919 = t691 * t3862;
10747   t12920 = 0.3e1 / 0.32e2 * t12919;
10748   t12921 = t12650 * t689;
10749   t12923 = t387 * t18 * t12921;
10750   t12924 = t12923 / 0.32e2;
10751   t12927 = t79 * tau[1];
10752   t12932 = t3556 * t722;
10753   t12935 = t2444 * t97;
10754   t12936 = t82 * t716;
10755   t12946 = t3556 * t89;
10756   t12947 = t12946 * tau[1];
10757   t12953 = 0.53213333333333333333e-1 * t3518 * t79 - 0.40933333333333333334e-1 * t3521 * t12927 - 0.47482666666666666667e-3 * t3525 * t3850 + 0.16373333333333333333e-3 * t12932 * t10150 + 0.10478933333333333334e-5 * t12935 * t12936 - 0.40933333333333333333e-1 * t2344 * t3530 + 0.53213333333333333333e-1 * t723 * t732 - 0.47482666666666666667e-3 * t723 * t3119 * sigma[2] + 0.16373333333333333333e-3 * t2345 * t12947 + 0.10478933333333333334e-5 * t723 * t3718 * t716;
10758   t12954 = t70 * t12953;
10759   t12955 = t18 * t12954;
10760   t12956 = t67 * t12955;
10761   t12957 = 0.3e1 / 0.32e2 * t12956;
10762   t12958 = t771 * t3881;
10763   t12959 = 0.15545350000000000000e-1 * t12958;
10764   t12960 = t779 * t3881;
10765   t12961 = 0.15545350000000000000e-1 * t12960;
10766   t12962 = t793 * t3880;
10767   t12963 = t502 * t12962;
10768   t12964 = 0.50000000000000000001e0 * t12963;
10769   t12969 = t3715 * t184;
10770   t12972 = t3718 * t800;
10771   t12976 = t11506 * t800 * tau[1];
10772   t12981 = t710 * t8611;
10773   t12982 = t12981 * t2487;
10774   t13005 = 0.16397600000000000000e2 * t2345 * t3558 + 0.8177520e2 * t10117 * t3558 - 0.3443496e2 * t805 * t12969 + 0.14757840000000000000e2 * t805 * t12972 - 0.32795200000000000000e1 * t2442 * t12976 - 0.16355040e2 * t2450 * t12976 - 0.15741696000000000000e1 * t805 * t12982 + 0.11968160000000000000e3 * t10122 * t3558 - 0.8005032e2 * t812 * t12969 + 0.34307280000000000000e2 * t812 * t12972 - 0.23936320000000000000e2 * t2462 * t12976 - 0.36594432000000000000e1 * t812 * t12982 + 0.54304000000000000000e2 * t10106 * t3558 - 0.4561536e2 * t822 * t12969 + 0.19549440000000000000e2 * t822 * t12972 - 0.10860800000000000000e2 * t2473 * t12976 - 0.20852736000000000000e1 * t822 * t12982;
10775   t13006 = t180 * t13005;
10776   t13007 = t166 * t13006;
10777   t13008 = 0.15545350000000000000e-1 * t13007;
10778   t13009 = t859 * t3896;
10779   t13010 = t3402 * t9646;
10780   t13013 = t3402 * t9654;
10781   t13016 = t3180 * t1087;
10782   t13019 = t3412 * t3137;
10783   t13022 = t11044 * t75;
10784   t13025 = t3402 * t700;
10785   t13028 = t3412 * t9646;
10786   t13043 = -0.69411600000000000000e-3 * t5125 * t13010 + 0.10411740000000000000e-2 * t9016 * t13013 + 0.92548800000000000000e-3 * t9494 * t13016 - 0.11105856000000000000e-4 * t1849 * t13019 - 0.34705800000000000000e-3 * t1849 * t13022 + 0.92548800000000000000e-3 * t1849 * t13025 + 0.20823480000000000000e-5 * t2153 * t13028 - 0.31235220000000000000e-5 * t1775 * t3412 * t9654 + 0.24988176000000000000e-7 * t1853 * t10723 * t3137 + 0.10411740000000000000e-5 * t1853 * t11073 * t75 - 0.27764640000000000000e-5 * t1853 * t3412 * t700;
10787   t13044 = t3421 * t9646;
10788   t13047 = t3421 * t9654;
10789   t13050 = t3180 * t1090;
10790   t13053 = t3431 * t3137;
10791   t13056 = t11051 * t75;
10792   t13059 = t3421 * t700;
10793   t13077 = 0.10411740000000000000e-2 * t9016 * t13044 - 0.13882320000000000000e-2 * t5110 * t13047 - 0.92548800000000000000e-3 * t9499 * t13050 + 0.11105856000000000000e-4 * t1839 * t13053 + 0.34705800000000000000e-3 * t1839 * t13056 - 0.92548800000000000000e-3 * t1839 * t13059 - 0.31235220000000000000e-5 * t1775 * t3431 * t9646 + 0.41646960000000000000e-5 * t2165 * t3431 * t9654 - 0.24988176000000000000e-7 * t1844 * t10733 * t3137 - 0.10411740000000000000e-5 * t1844 * t11218 * t75 + 0.27764640000000000000e-5 * t1844 * t3431 * t700;
10794   t13078 = t13043 + t13077;
10795   t13079 = t275 * t13078;
10796   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10797     v3rhosigmatau[11] = -t3864 - t3883 + t3897 + t3 * (-t12920 - t12649 - t12924 - t12957 - t12959 - t12961 + t12964 - t13008 + t13009 + t13079);
10798 
10799   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10800     v3rholapl2[0] = 0.0e0;
10801 
10802   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10803     v3rholapl2[1] = 0.0e0;
10804 
10805   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10806     v3rholapl2[2] = 0.0e0;
10807 
10808   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10809     v3rholapl2[3] = 0.0e0;
10810 
10811   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10812     v3rholapl2[4] = 0.0e0;
10813 
10814   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10815     v3rholapl2[5] = 0.0e0;
10816 
10817   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10818     v3rholapltau[0] = 0.0e0;
10819 
10820   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10821     v3rholapltau[1] = 0.0e0;
10822 
10823   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10824     v3rholapltau[2] = 0.0e0;
10825 
10826   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10827     v3rholapltau[3] = 0.0e0;
10828 
10829   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10830     v3rholapltau[4] = 0.0e0;
10831 
10832   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10833     v3rholapltau[5] = 0.0e0;
10834 
10835   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10836     v3rholapltau[6] = 0.0e0;
10837 
10838   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
10839     v3rholapltau[7] = 0.0e0;
10840 
10841   t13082 = t316 * t3915;
10842   t13083 = 0.3e1 / 0.32e2 * t13082;
10843   t13084 = t127 * t3914;
10844   t13085 = t14 * t13084;
10845   t13086 = t13085 / 0.32e2;
10846   t13087 = t325 * t3913;
10847   t13088 = t13087 * t314;
10848   t13090 = t323 * t18 * t13088;
10849   t13091 = t13090 / 0.32e2;
10850   t13093 = t3905 * t148;
10851   t13094 = t13093 * tau[0];
10852   t13097 = t4097 * t3905 * tau[0];
10853   t13099 = t1133 * t998;
10854   t13103 = t3921 * t148;
10855   t13109 = t3921 * t30 * tau[0];
10856   t13118 = -0.27733333333333333333e1 * t3237 + 0.41600000000000000000e1 * t13094 + 0.4160e1 * t13097 - 0.27733333333333333333e1 * t13099 - 0.147360e0 * t3248 * t1000 + 0.12280000000000000000e0 * t13103 * t3249 + 0.26197333333333333334e-3 * t12365 * t3253 + 0.122800e0 * t4098 * t13109 - 0.147360e0 * t1133 * t3778 * t30 + 0.26197333333333333334e-3 * t1133 * t3790 * t40;
10857   t13119 = t21 * t13118;
10858   t13120 = t18 * t13119;
10859   t13121 = t14 * t13120;
10860   t13122 = 0.3e1 / 0.32e2 * t13121;
10861   t13123 = t395 * t3933;
10862   t13124 = 0.15545350000000000000e-1 * t13123;
10863   t13125 = t413 * t3933;
10864   t13126 = 0.15545350000000000000e-1 * t13125;
10865   t13127 = t441 * t3932;
10866   t13128 = t418 * t13127;
10867   t13129 = 0.50000000000000000001e0 * t13128;
10868   t13135 = 0.1e1 / t23 / t1291;
10869   t13136 = tau[0] * t13135;
10870   t13140 = t13135 * t140 * tau[0];
10871   t13143 = t3790 * t140;
10872   t13147 = t343 * t10494 * t448;
10873   t13168 = 0.37786666666666666667e2 * t3237 - 0.56680000000000000000e2 * t13094 - 0.56680e2 * t13097 + 0.37786666666666666667e2 * t13099 - 0.81988000000000000000e1 * t13136 * t5323 - 0.10637160000000000000e3 * t5384 * t13140 + 0.42633760000000000000e2 * t1133 * t13143 - 0.52472320000000000002e1 * t1133 * t13147 - 0.34307280000000000000e3 * t5413 * t13140 + 0.21261552000000000000e3 * t1315 * t13143 - 0.26168064000000000001e2 * t1315 * t13147 - 0.40781200000000000000e3 * t5417 * t13140 + 0.31117216000000000000e3 * t1282 * t13143 - 0.38298112000000000001e2 * t1282 * t13147 - 0.16291200e3 * t5373 * t13140 + 0.14119040000000000000e3 * t1302 * t13143 - 0.17377280000000000001e2 * t1302 * t13147;
10874   t13169 = t136 * t13168;
10875   t13170 = t115 * t13169;
10876   t13171 = 0.15545350000000000000e-1 * t13170;
10877   t13172 = t629 * t3951;
10878   t13181 = t3938 * t653;
10879   t13184 = t1036 * t3329;
10880   t13189 = t306 * t3941;
10881   t13190 = t13189 * t653;
10882   t13193 = t13189 * t334;
10883   t13196 = t287 * t3941;
10884   t13197 = t13196 * t334;
10885   t13200 = t3332 * t3318;
10886   t13203 = -0.5070e1 * t10453 * t1036 + 0.10140e2 * t10464 * t3326 - 0.5070e1 * t3321 * t3329 + 0.5070e1 * t5175 * t3938 - 0.15210e2 * t5050 * t13181 + 0.10140e2 * t1764 * t13184 - 0.34705800000000000000e-3 * t5175 * t3942 + 0.10411740000000000000e-2 * t5051 * t13190 + 0.18509760000000000000e-2 * t5125 * t13193 - 0.55529280000000000000e-5 * t2153 * t13197 - 0.69411600000000000000e-3 * t2153 * t13200;
10887   t13210 = t1033 * t1036;
10888   t13211 = t13210 * t334;
10889   t13222 = t306 * t3938;
10890   t13232 = t287 * t3938;
10891   t13239 = 0.20823480000000000000e-2 * t5051 * t3332 * t10361 - 0.41646960000000000000e-2 * t5038 * t3332 * t3326 - 0.55529280000000000000e-2 * t5011 * t13211 + 0.16658784000000000000e-4 * t5005 * t13211 + 0.10411740000000000000e-2 * t1775 * t10312 * t1036 + 0.10411740000000000000e-2 * t1775 * t3332 * t3329 - 0.20823480000000000000e-2 * t5038 * t13222 * t648 + 0.34705800000000000000e-2 * t5624 * t13222 * t653 + 0.37019520000000000000e-2 * t5110 * t13222 * t334 - 0.11105856000000000000e-4 * t2165 * t13232 * t334 - 0.13882320000000000000e-2 * t2165 * t3349 * t3329;
10892   t13240 = t13203 + t13239;
10893   t13241 = t275 * t13240;
10894   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10895     v3rhotau2[0] = -t3917 - t3935 + t3952 + t3 * (-t13083 - t13086 - t13091 - t13122 - t13124 - t13126 + t13129 - t13171 + t13172 + t13241);
10896 
10897   t13244 = t275 * t3983;
10898   t13246 = t10716 * t1036;
10899   t13251 = t3961 * t653;
10900   t13254 = t11916 * t10600;
10901   t13261 = t3402 * t10378;
10902   t13270 = t3480 * t10612;
10903   t13273 = t3480 * t10621;
10904   t13276 = t3677 * t10600;
10905   t13279 = -0.84500000000000000000e1 * t352 * t13246 + 0.84500000000000000000e1 * t3321 * t3399 - 0.15210e2 * t5050 * t13251 + 0.55529280000000000000e-5 * t1844 * t13254 - 0.2535e1 * t3391 * t3329 - 0.2535e1 * t10453 * t1090 + 0.10411740000000000000e-2 * t5051 * t13261 + 0.10411740000000000000e-2 * t5051 * t3402 * t10361 - 0.20823480000000000000e-2 * t5038 * t3402 * t3326 + 0.69411600000000000000e-3 * t2153 * t13270 - 0.10411740000000000000e-2 * t1775 * t13273 - 0.18509760000000000000e-2 * t1849 * t13276;
10906   t13302 = t3417 * t1036;
10907   t13307 = t3402 * t3318;
10908   t13310 = 0.55529280000000000000e-5 * t1853 * t13254 + 0.10411740000000000000e-2 * t5051 * t3421 * t10372 - 0.20823480000000000000e-2 * t5038 * t3421 * t10378 - 0.20823480000000000000e-2 * t5038 * t3421 * t10361 + 0.34705800000000000000e-2 * t5624 * t3421 * t3326 + 0.10411740000000000000e-2 * t1775 * t13270 - 0.13882320000000000000e-2 * t2165 * t13273 - 0.18509760000000000000e-2 * t1839 * t13276 + 0.84500000000000000000e1 * t3417 * t297 - 0.16900000000000000000e2 * t5697 * t13302 - 0.34705800000000000000e-3 * t10970 * t3966 - 0.34705800000000000000e-3 * t2153 * t13307;
10909   t13321 = t2949 * t93;
10910   t13326 = t1090 * t1033;
10911   t13327 = t13326 * t334;
10912   t13332 = t93 * t1033;
10913   t13333 = t352 * t13332;
10914   t13336 = t3961 * t334;
10915   t13341 = t93 * t1036;
10916   t13342 = t352 * t13341;
10917   t13345 = t1087 * t1033;
10918   t13346 = t13345 * t334;
10919   t13349 = 0.52058700000000000000e-3 * t1775 * t3402 * t3329 + 0.52058700000000000000e-3 * t1775 * t3421 * t3318 - 0.69411600000000000000e-3 * t2165 * t3421 * t3329 - 0.57843000000000000000e-3 * t1853 * t13321 - 0.57843000000000000000e-3 * t1844 * t13321 - 0.27764640000000000000e-2 * t5011 * t13327 + 0.83293920000000000000e-5 * t5005 * t13327 - 0.17352900000000000000e-2 * t5730 * t13333 + 0.37019520000000000000e-2 * t5797 * t13336 - 0.11105856000000000000e-4 * t5801 * t13336 + 0.23137200000000000000e-2 * t5745 * t13342 + 0.18509760000000000000e-2 * t5777 * t13346;
10920   t13354 = t1087 * t1036;
10921   t13355 = t13354 * t334;
10922   t13366 = t1090 * t3329;
10923   t13371 = t651 * t653;
10924   t13378 = t3954 * t653;
10925   t13381 = -0.55529280000000000000e-5 * t5782 * t13346 - 0.11568600000000000000e-2 * t5725 * t13333 - 0.27764640000000000000e-2 * t5011 * t13355 + 0.83293920000000000000e-5 * t5005 * t13355 + 0.17352900000000000000e-2 * t5730 * t13342 + 0.84500000000000000000e1 * t652 * t3417 + 0.5070e1 * t5175 * t3961 + 0.5070e1 * t1764 * t13366 - 0.5070e1 * t1836 * t3954 + 0.5070e1 * t3954 * t13371 + 0.5070e1 * t10680 * t3326 + 0.5070e1 * t10464 * t3396 + 0.10140e2 * t1764 * t13378;
10926   t13383 = t13279 + t13310 + t13349 + t13381;
10927   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10928     v3rhotau2[1] = t11962 * t3983 + t13383 * t3694 + t13244;
10929 
10930   t13385 = t380 * t4000;
10931   t13386 = 0.3e1 / 0.32e2 * t13385;
10932   t13387 = t127 * t3999;
10933   t13388 = t67 * t13387;
10934   t13389 = t13388 / 0.32e2;
10935   t13390 = t389 * t3998;
10936   t13391 = t13390 * t378;
10937   t13393 = t387 * t18 * t13391;
10938   t13394 = t13393 / 0.32e2;
10939   t13395 = t482 * t4018;
10940   t13396 = 0.15545350000000000000e-1 * t13395;
10941   t13397 = t497 * t4018;
10942   t13398 = 0.15545350000000000000e-1 * t13397;
10943   t13399 = t522 * t4017;
10944   t13400 = t502 * t13399;
10945   t13401 = 0.50000000000000000001e0 * t13400;
10946   t13402 = t629 * t4036;
10947   t13403 = t10716 * t1090;
10948   t13412 = t4023 * t653;
10949   t13419 = t306 * t4026;
10950   t13420 = t13419 * t653;
10951   t13423 = t13419 * t334;
10952   t13426 = t287 * t4026;
10953   t13427 = t13426 * t334;
10954   t13430 = t11192 * t3417;
10955   t13433 = -0.16900000000000000000e2 * t352 * t13403 + 0.10140e2 * t10680 * t3396 + 0.16900000000000000000e2 * t3391 * t3399 + 0.5070e1 * t5175 * t4023 - 0.15210e2 * t5050 * t13412 - 0.33800000000000000000e2 * t11058 * t3399 - 0.34705800000000000000e-3 * t5175 * t4027 + 0.10411740000000000000e-2 * t5051 * t13420 + 0.18509760000000000000e-2 * t5125 * t13423 - 0.55529280000000000000e-5 * t2153 * t13427 - 0.23137200000000000000e-2 * t5725 * t13430;
10956   t13440 = t1087 * t1090;
10957   t13441 = t13440 * t334;
10958   t13446 = t93 * t1090;
10959   t13447 = t352 * t13446;
10960   t13452 = t306 * t4023;
10961   t13462 = t287 * t4023;
10962   t13468 = 0.20823480000000000000e-2 * t5051 * t3402 * t10606 - 0.41646960000000000000e-2 * t5038 * t3402 * t3396 - 0.55529280000000000000e-2 * t5011 * t13441 + 0.16658784000000000000e-4 * t5005 * t13441 + 0.34705800000000000000e-2 * t5730 * t13447 - 0.34705800000000000000e-2 * t5730 * t13430 - 0.20823480000000000000e-2 * t5038 * t13452 * t648 + 0.34705800000000000000e-2 * t5624 * t13452 * t653 + 0.37019520000000000000e-2 * t5110 * t13452 * t334 - 0.11105856000000000000e-4 * t2165 * t13462 * t334 + 0.46274400000000000000e-2 * t5745 * t13447;
10963   t13469 = t13433 + t13468;
10964   t13470 = t275 * t13469;
10965   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10966     v3rhotau2[2] = -t4002 - t4020 + t4037 + t3 * (-t13386 - t13389 - t13394 - t13396 - t13398 + t13401 + t13402 + t13470);
10967 
10968   t13473 = t682 * t3915;
10969   t13474 = 0.3e1 / 0.32e2 * t13473;
10970   t13475 = t13087 * t680;
10971   t13477 = t323 * t18 * t13475;
10972   t13478 = t13477 / 0.32e2;
10973   t13479 = t745 * t3933;
10974   t13480 = 0.15545350000000000000e-1 * t13479;
10975   t13481 = t753 * t3933;
10976   t13482 = 0.15545350000000000000e-1 * t13481;
10977   t13483 = t767 * t3932;
10978   t13484 = t418 * t13483;
10979   t13485 = 0.50000000000000000001e0 * t13484;
10980   t13486 = t859 * t3951;
10981   t13495 = t3938 * t876;
10982   t13502 = t13189 * t876;
10983   t13505 = t13189 * t701;
10984   t13508 = t13196 * t701;
10985   t13511 = t1033 * t51;
10986   t13512 = t13511 * t719;
10987   t13515 = -0.16900000000000000000e2 * t1030 * t10964 + 0.10140e2 * t10464 * t3462 + 0.16900000000000000000e2 * t3321 * t3465 + 0.5070e1 * t5709 * t3938 - 0.15210e2 * t5050 * t13495 - 0.33800000000000000000e2 * t10947 * t3465 - 0.34705800000000000000e-3 * t5709 * t3942 + 0.10411740000000000000e-2 * t5051 * t13502 + 0.18509760000000000000e-2 * t5125 * t13505 - 0.55529280000000000000e-5 * t2153 * t13508 - 0.23137200000000000000e-2 * t5725 * t13512;
10988   t13516 = t3332 * t10810;
10989   t13522 = t13210 * t701;
10990   t13527 = t1030 * t12622;
10991   t13538 = t13222 * t701;
10992   t13546 = 0.20823480000000000000e-2 * t5051 * t13516 - 0.41646960000000000000e-2 * t5038 * t3332 * t3462 - 0.55529280000000000000e-2 * t5011 * t13522 + 0.16658784000000000000e-4 * t5005 * t13522 + 0.34705800000000000000e-2 * t5730 * t13527 - 0.34705800000000000000e-2 * t5730 * t13512 - 0.20823480000000000000e-2 * t5038 * t13222 * t873 + 0.34705800000000000000e-2 * t5624 * t13222 * t876 + 0.37019520000000000000e-2 * t5110 * t13538 - 0.11105856000000000000e-4 * t2165 * t13232 * t701 + 0.46274400000000000000e-2 * t5745 * t13527;
10993   t13547 = t13515 + t13546;
10994   t13548 = t275 * t13547;
10995   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
10996     v3rhotau2[3] = -t3917 - t3935 + t3952 + t3 * (-t13474 - t13086 - t13478 - t13480 - t13482 + t13485 + t13486 + t13548);
10997 
10998   t13556 = t51 * t75;
10999   t13563 = t3601 * t1036;
11000   t13570 = t651 * t876;
11001   t13579 = -0.2535e1 * t11164 * t1036 - 0.2535e1 * t3321 * t3601 + 0.84500000000000000000e1 * t652 * t13556 + 0.5070e1 * t10464 * t3598 + 0.5070e1 * t5709 * t3961 + 0.5070e1 * t1764 * t13563 - 0.5070e1 * t2121 * t3954 + 0.5070e1 * t10680 * t3462 + 0.5070e1 * t3954 * t13570 + 0.84500000000000000000e1 * t13556 * t297 + 0.84500000000000000000e1 * t3391 * t3465 - 0.84500000000000000000e1 * t1030 * t11036;
11002   t13580 = t3961 * t876;
11003   t13583 = t3954 * t876;
11004   t13591 = t5709 * t283;
11005   t13594 = t11044 * t1033;
11006   t13603 = t3480 * t75;
11007   t13614 = -0.15210e2 * t5050 * t13580 + 0.10140e2 * t1764 * t13583 - 0.69411600000000000000e-3 * t2165 * t11051 * t1036 - 0.16900000000000000000e2 * t11058 * t3465 - 0.34705800000000000000e-3 * t13591 * t3966 - 0.34705800000000000000e-3 * t2153 * t13594 + 0.52058700000000000000e-3 * t1775 * t11044 * t1036 + 0.52058700000000000000e-3 * t1775 * t11051 * t1033 - 0.57843000000000000000e-3 * t1853 * t13603 - 0.57843000000000000000e-3 * t1844 * t13603 - 0.20823480000000000000e-2 * t5038 * t3421 * t10810 + 0.34705800000000000000e-2 * t5624 * t3421 * t3462;
11008   t13616 = t3480 * t11090;
11009   t13619 = t3480 * t11099;
11010   t13622 = t3480 * t947;
11011   t13625 = t12877 * t947;
11012   t13628 = t3402 * t10846;
11013   t13631 = t3402 * t10810;
11014   t13645 = t3421 * t10840;
11015   t13648 = 0.10411740000000000000e-2 * t1775 * t13616 - 0.13882320000000000000e-2 * t2165 * t13619 - 0.18509760000000000000e-2 * t1839 * t13622 + 0.55529280000000000000e-5 * t1844 * t13625 + 0.10411740000000000000e-2 * t5051 * t13628 + 0.10411740000000000000e-2 * t5051 * t13631 - 0.20823480000000000000e-2 * t5038 * t3402 * t3462 + 0.69411600000000000000e-3 * t2153 * t13616 - 0.10411740000000000000e-2 * t1775 * t13619 - 0.18509760000000000000e-2 * t1849 * t13622 + 0.55529280000000000000e-5 * t1853 * t13625 + 0.10411740000000000000e-2 * t5051 * t13645;
11016   t13652 = t3961 * t701;
11017   t13657 = t1090 * t51;
11018   t13658 = t13657 * t719;
11019   t13661 = t13345 * t701;
11020   t13666 = t1087 * t51;
11021   t13667 = t13666 * t719;
11022   t13670 = t13354 * t701;
11023   t13677 = t13326 * t701;
11024   t13684 = -0.20823480000000000000e-2 * t5038 * t3421 * t10846 + 0.37019520000000000000e-2 * t5797 * t13652 - 0.11105856000000000000e-4 * t5801 * t13652 + 0.23137200000000000000e-2 * t5745 * t13658 + 0.18509760000000000000e-2 * t5777 * t13661 - 0.55529280000000000000e-5 * t5782 * t13661 - 0.11568600000000000000e-2 * t5725 * t13667 - 0.27764640000000000000e-2 * t5011 * t13670 + 0.83293920000000000000e-5 * t5005 * t13670 - 0.17352900000000000000e-2 * t5730 * t13667 - 0.27764640000000000000e-2 * t5011 * t13677 + 0.83293920000000000000e-5 * t5005 * t13677 + 0.17352900000000000000e-2 * t5730 * t13658;
11025   t13686 = t13579 + t13614 + t13648 + t13684;
11026   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11027     v3rhotau2[4] = t12138 * t3983 + t13686 * t3694 + t13244;
11028 
11029   t13688 = t691 * t4000;
11030   t13689 = 0.3e1 / 0.32e2 * t13688;
11031   t13690 = t13390 * t689;
11032   t13692 = t387 * t18 * t13690;
11033   t13693 = t13692 / 0.32e2;
11034   t13695 = t3990 * t192;
11035   t13696 = t13695 * tau[1];
11036   t13699 = t8655 * t3990 * tau[1];
11037   t13701 = t2344 * t1053;
11038   t13705 = t4006 * t192;
11039   t13711 = t4006 * t79 * tau[1];
11040   t13720 = -0.27733333333333333333e1 * t3510 + 0.41600000000000000000e1 * t13696 + 0.4160e1 * t13699 - 0.27733333333333333333e1 * t13701 - 0.147360e0 * t3521 * t1055 + 0.12280000000000000000e0 * t13705 * t3522 + 0.26197333333333333334e-3 * t12932 * t3526 + 0.122800e0 * t8850 * t13711 - 0.147360e0 * t2344 * t3856 * t79 + 0.26197333333333333334e-3 * t2344 * t3868 * t89;
11041   t13721 = t70 * t13720;
11042   t13722 = t18 * t13721;
11043   t13723 = t67 * t13722;
11044   t13724 = 0.3e1 / 0.32e2 * t13723;
11045   t13725 = t771 * t4018;
11046   t13726 = 0.15545350000000000000e-1 * t13725;
11047   t13727 = t779 * t4018;
11048   t13728 = 0.15545350000000000000e-1 * t13727;
11049   t13729 = t793 * t4017;
11050   t13730 = t502 * t13729;
11051   t13731 = 0.50000000000000000001e0 * t13730;
11052   t13737 = 0.1e1 / t72 / t2454;
11053   t13738 = tau[1] * t13737;
11054   t13742 = t13737 * t184 * tau[1];
11055   t13745 = t3868 * t184;
11056   t13749 = t710 * t11506 * t800;
11057   t13770 = 0.37786666666666666667e2 * t3510 - 0.56680000000000000000e2 * t13696 - 0.56680e2 * t13699 + 0.37786666666666666667e2 * t13701 - 0.81988000000000000000e1 * t13738 * t8614 - 0.10637160000000000000e3 * t8656 * t13742 + 0.42633760000000000000e2 * t2344 * t13745 - 0.52472320000000000002e1 * t2344 * t13749 - 0.34307280000000000000e3 * t8679 * t13742 + 0.21261552000000000000e3 * t2449 * t13745 - 0.26168064000000000001e2 * t2449 * t13749 - 0.40781200000000000000e3 * t8694 * t13742 + 0.31117216000000000000e3 * t2461 * t13745 - 0.38298112000000000001e2 * t2461 * t13749 - 0.16291200e3 * t8706 * t13742 + 0.14119040000000000000e3 * t2472 * t13745 - 0.17377280000000000001e2 * t2472 * t13749;
11058   t13771 = t180 * t13770;
11059   t13772 = t166 * t13771;
11060   t13773 = 0.15545350000000000000e-1 * t13772;
11061   t13774 = t859 * t4036;
11062   t13783 = t4023 * t876;
11063   t13786 = t1090 * t3601;
11064   t13791 = t13419 * t876;
11065   t13794 = t13419 * t701;
11066   t13797 = t13426 * t701;
11067   t13800 = t3402 * t3591;
11068   t13803 = -0.5070e1 * t11164 * t1090 + 0.10140e2 * t10680 * t3598 - 0.5070e1 * t3391 * t3601 + 0.5070e1 * t5709 * t4023 - 0.15210e2 * t5050 * t13783 + 0.10140e2 * t1764 * t13786 - 0.34705800000000000000e-3 * t5709 * t4027 + 0.10411740000000000000e-2 * t5051 * t13791 + 0.18509760000000000000e-2 * t5125 * t13794 - 0.55529280000000000000e-5 * t2153 * t13797 - 0.69411600000000000000e-3 * t2153 * t13800;
11069   t13804 = t3402 * t11084;
11070   t13810 = t13440 * t701;
11071   t13827 = t13452 * t701;
11072   t13836 = 0.20823480000000000000e-2 * t5051 * t13804 - 0.41646960000000000000e-2 * t5038 * t3402 * t3598 - 0.55529280000000000000e-2 * t5011 * t13810 + 0.16658784000000000000e-4 * t5005 * t13810 + 0.10411740000000000000e-2 * t1775 * t11044 * t1090 + 0.10411740000000000000e-2 * t1775 * t3402 * t3601 - 0.20823480000000000000e-2 * t5038 * t13452 * t873 + 0.34705800000000000000e-2 * t5624 * t13452 * t876 + 0.37019520000000000000e-2 * t5110 * t13827 - 0.11105856000000000000e-4 * t2165 * t13462 * t701 - 0.13882320000000000000e-2 * t2165 * t3421 * t3601;
11073   t13837 = t13803 + t13836;
11074   t13838 = t275 * t13837;
11075   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11076     v3rhotau2[5] = -t4002 - t4020 + t4037 + t3 * (-t13689 - t13389 - t13693 - t13724 - t13726 - t13728 + t13731 - t13773 + t13774 + t13838);
11077 
11078   t13841 = t455 * t349;
11079   t13843 = sigma[0] * t1285;
11080   t13844 = t13843 * t1185;
11081   t13846 = t33 * t5320;
11082   t13853 = -0.957696e-6 * t13841 + 0.15510528e-7 * t13844 - 0.46718976e-10 * t13846 * t4144 + 0.1178880e-5 * t56 * t13841 - 0.4715520e-8 * t56 * t13844;
11083   t13854 = t21 * t13853;
11084   t13855 = t18 * t13854;
11085   t13857 = 0.3e1 / 0.32e2 * t14 * t13855;
11086   t13858 = t455 * t448;
11087   t13860 = t13843 * t1326;
11088   t13862 = t13846 * t5330;
11089   t13876 = 0.178080e0 * t13858 - 0.1068480e0 * t13860 + 0.1424640e-1 * t13862 + 0.1967712e1 * t149 * t13858 - 0.11806272e1 * t149 * t13860 + 0.15741696e0 * t149 * t13862 + 0.1954944e1 * t155 * t13858 - 0.11729664e1 * t155 * t13860 + 0.15639552e0 * t155 * t13862;
11090   t13877 = t136 * t13876;
11091   t13879 = 0.15545350000000000000e-1 * t115 * t13877;
11092   t13880 = t455 * t287;
11093   t13882 = t5014 * t455;
11094   t13884 = t5017 * t455;
11095   t13894 = -0.76545000000000000000e-6 * t13880 + 0.26782974000000000000e-7 * t13882 - 0.16528471200000000000e-9 * t13884 + 0.27547452000000000000e-12 * t5022 * t455 + 0.20823480000000000000e-5 * t305 * t13880 - 0.18741132000000000000e-7 * t305 * t13882 + 0.37482264000000000000e-10 * t305 * t13884;
11096   t13895 = t275 * t13894;
11097   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11098     v3sigma3[0] = t3 * (-t13857 - t13879 + t13895);
11099 
11100   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11101     v3sigma3[1] = 0.0e0;
11102 
11103   t13897 = t3019 * t37;
11104   t13899 = t75 * t37;
11105   t13914 = -0.76545000000000000000e-6 * t13897 + 0.26782974000000000000e-7 * t5014 * t13899 - 0.16528471200000000000e-9 * t5017 * t13899 + 0.27547452000000000000e-12 * t5022 * t13899 + 0.20823480000000000000e-5 * t305 * t13897 - 0.18741132000000000000e-7 * t666 * t3029 * t37 + 0.37482264000000000000e-10 * t671 * t9251 * t37;
11106   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11107     v3sigma3[2] = t3694 * t13914;
11108 
11109   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11110     v3sigma3[3] = 0.0e0;
11111 
11112   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11113     v3sigma3[4] = 0.0e0;
11114 
11115   t13915 = t12038 * t26;
11116   t13917 = t86 * t26;
11117   t13932 = -0.76545000000000000000e-6 * t13915 + 0.26782974000000000000e-7 * t5014 * t13917 - 0.16528471200000000000e-9 * t5017 * t13917 + 0.27547452000000000000e-12 * t5022 * t13917 + 0.20823480000000000000e-5 * t305 * t13915 - 0.18741132000000000000e-7 * t666 * t12064 * t26 + 0.37482264000000000000e-10 * t671 * t12074 * t26;
11118   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11119     v3sigma3[5] = t3694 * t13932;
11120 
11121   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11122     v3sigma3[6] = 0.0e0;
11123 
11124   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11125     v3sigma3[7] = 0.0e0;
11126 
11127   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11128     v3sigma3[8] = 0.0e0;
11129 
11130   t13933 = t807 * t716;
11131   t13935 = sigma[2] * t2444;
11132   t13936 = t13935 * t2401;
11133   t13938 = t82 * t8611;
11134   t13945 = -0.957696e-6 * t13933 + 0.15510528e-7 * t13936 - 0.46718976e-10 * t13938 * t8880 + 0.1178880e-5 * t98 * t13933 - 0.4715520e-8 * t98 * t13936;
11135   t13946 = t70 * t13945;
11136   t13947 = t18 * t13946;
11137   t13949 = 0.3e1 / 0.32e2 * t67 * t13947;
11138   t13950 = t807 * t800;
11139   t13952 = t13935 * t2487;
11140   t13954 = t13938 * t8631;
11141   t13968 = 0.178080e0 * t13950 - 0.1068480e0 * t13952 + 0.1424640e-1 * t13954 + 0.1967712e1 * t193 * t13950 - 0.11806272e1 * t193 * t13952 + 0.15741696e0 * t193 * t13954 + 0.1954944e1 * t199 * t13950 - 0.11729664e1 * t199 * t13952 + 0.15639552e0 * t199 * t13954;
11142   t13969 = t180 * t13968;
11143   t13971 = 0.15545350000000000000e-1 * t166 * t13969;
11144   t13972 = t807 * t287;
11145   t13974 = t5014 * t807;
11146   t13976 = t5017 * t807;
11147   t13986 = -0.76545000000000000000e-6 * t13972 + 0.26782974000000000000e-7 * t13974 - 0.16528471200000000000e-9 * t13976 + 0.27547452000000000000e-12 * t5022 * t807 + 0.20823480000000000000e-5 * t305 * t13972 - 0.18741132000000000000e-7 * t305 * t13974 + 0.37482264000000000000e-10 * t305 * t13976;
11148   t13987 = t275 * t13986;
11149   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11150     v3sigma3[9] = t3 * (-t13949 - t13971 + t13987);
11151 
11152   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11153     v3sigma2lapl[0] = 0.0e0;
11154 
11155   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11156     v3sigma2lapl[1] = 0.0e0;
11157 
11158   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11159     v3sigma2lapl[2] = 0.0e0;
11160 
11161   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11162     v3sigma2lapl[3] = 0.0e0;
11163 
11164   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11165     v3sigma2lapl[4] = 0.0e0;
11166 
11167   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11168     v3sigma2lapl[5] = 0.0e0;
11169 
11170   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11171     v3sigma2lapl[6] = 0.0e0;
11172 
11173   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11174     v3sigma2lapl[7] = 0.0e0;
11175 
11176   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11177     v3sigma2lapl[8] = 0.0e0;
11178 
11179   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11180     v3sigma2lapl[9] = 0.0e0;
11181 
11182   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11183     v3sigma2lapl[10] = 0.0e0;
11184 
11185   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11186     v3sigma2lapl[11] = 0.0e0;
11187 
11188   t13991 = t3283 * t55;
11189   t13992 = sigma[0] * t349;
11190   t13998 = sigma[0] * t3283;
11191   t14002 = 0.98240e-4 * t3771 * t40 - 0.392960e-6 * t13991 * t13992 + 0.98240e-4 * t356 * t1015 * t40 - 0.392960e-6 * t356 * t13998 * t349;
11192   t14003 = t21 * t14002;
11193   t14004 = t18 * t14003;
11194   t14006 = 0.3e1 / 0.32e2 * t14 * t14004;
11195   t14007 = t1015 * t140;
11196   t14010 = t13998 * t448;
11197   t14013 = t33 * t10494;
11198   t14014 = t14013 * t1326;
11199   t14029 = 0.491928e1 * t453 * t14007 - 0.3935424e1 * t453 * t14010 + 0.5903136e0 * t453 * t14014 + 0.1143576e2 * t460 * t14007 - 0.9148608e1 * t460 * t14010 + 0.13722912e1 * t460 * t14014 + 0.651648e1 * t470 * t14007 - 0.5213184e1 * t470 * t14010 + 0.7819776e0 * t470 * t14014;
11200   t14030 = t136 * t14029;
11201   t14032 = 0.15545350000000000000e-1 * t115 * t14030;
11202   t14051 = -0.34705800000000000000e-3 * t656 * t3677 * t1033 + 0.41646960000000000000e-5 * t1849 * t3342 * t37 - 0.93705660000000000000e-8 * t1853 * t10323 * t37 + 0.34705800000000000000e-3 * t662 * t3677 * t1036 - 0.41646960000000000000e-5 * t1839 * t3359 * t37 + 0.93705660000000000000e-8 * t1844 * t10341 * t37;
11203   t14052 = t275 * t14051;
11204   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11205     v3sigma2tau[0] = t3 * (-t14006 - t14032 + t14052);
11206 
11207   t14072 = -0.34705800000000000000e-3 * t656 * t3677 * t1087 + 0.41646960000000000000e-5 * t1849 * t3412 * t37 - 0.93705660000000000000e-8 * t1853 * t10723 * t37 + 0.34705800000000000000e-3 * t662 * t3677 * t1090 - 0.41646960000000000000e-5 * t1839 * t3431 * t37 + 0.93705660000000000000e-8 * t1844 * t10733 * t37;
11208   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11209     v3sigma2tau[1] = t3694 * t14072;
11210 
11211   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11212     v3sigma2tau[2] = 0.0e0;
11213 
11214   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11215     v3sigma2tau[3] = 0.0e0;
11216 
11217   t14089 = -0.34705800000000000000e-3 * t11964 * t3834 + 0.41646960000000000000e-5 * t1849 * t3342 * t3697 - 0.93705660000000000000e-8 * t1853 * t10323 * t3697 + 0.34705800000000000000e-3 * t11967 * t3840 - 0.41646960000000000000e-5 * t1839 * t3359 * t3697 + 0.93705660000000000000e-8 * t1844 * t10341 * t3697;
11218   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11219     v3sigma2tau[4] = t3694 * t14089;
11220 
11221   t14106 = -0.34705800000000000000e-3 * t11964 * t3884 + 0.41646960000000000000e-5 * t1849 * t3412 * t3697 - 0.93705660000000000000e-8 * t1853 * t10723 * t3697 + 0.34705800000000000000e-3 * t11967 * t3890 - 0.41646960000000000000e-5 * t1839 * t3431 * t3697 + 0.93705660000000000000e-8 * t1844 * t10733 * t3697;
11222   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11223     v3sigma2tau[5] = t3694 * t14106;
11224 
11225   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11226     v3sigma2tau[6] = 0.0e0;
11227 
11228   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11229     v3sigma2tau[7] = 0.0e0;
11230 
11231   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11232     v3sigma2tau[8] = 0.0e0;
11233 
11234   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11235     v3sigma2tau[9] = 0.0e0;
11236 
11237   t14125 = -0.34705800000000000000e-3 * t656 * t3752 * t1033 + 0.41646960000000000000e-5 * t1849 * t3342 * t86 - 0.93705660000000000000e-8 * t1853 * t10323 * t86 + 0.34705800000000000000e-3 * t662 * t3752 * t1036 - 0.41646960000000000000e-5 * t1839 * t3359 * t86 + 0.93705660000000000000e-8 * t1844 * t10341 * t86;
11238   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11239     v3sigma2tau[10] = t3694 * t14125;
11240 
11241   t14128 = t3556 * t97;
11242   t14129 = sigma[2] * t716;
11243   t14135 = sigma[2] * t3556;
11244   t14139 = 0.98240e-4 * t3849 * t89 - 0.392960e-6 * t14128 * t14129 + 0.98240e-4 * t723 * t1070 * t89 - 0.392960e-6 * t723 * t14135 * t716;
11245   t14140 = t70 * t14139;
11246   t14141 = t18 * t14140;
11247   t14143 = 0.3e1 / 0.32e2 * t67 * t14141;
11248   t14144 = t1070 * t184;
11249   t14147 = t14135 * t800;
11250   t14150 = t82 * t11506;
11251   t14151 = t14150 * t2487;
11252   t14166 = 0.491928e1 * t805 * t14144 - 0.3935424e1 * t805 * t14147 + 0.5903136e0 * t805 * t14151 + 0.1143576e2 * t812 * t14144 - 0.9148608e1 * t812 * t14147 + 0.13722912e1 * t812 * t14151 + 0.651648e1 * t822 * t14144 - 0.5213184e1 * t822 * t14147 + 0.7819776e0 * t822 * t14151;
11253   t14167 = t180 * t14166;
11254   t14169 = 0.15545350000000000000e-1 * t166 * t14167;
11255   t14188 = -0.34705800000000000000e-3 * t656 * t3752 * t1087 + 0.41646960000000000000e-5 * t1849 * t3412 * t86 - 0.93705660000000000000e-8 * t1853 * t10723 * t86 + 0.34705800000000000000e-3 * t662 * t3752 * t1090 - 0.41646960000000000000e-5 * t1839 * t3431 * t86 + 0.93705660000000000000e-8 * t1844 * t10733 * t86;
11256   t14189 = t275 * t14188;
11257   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11258     v3sigma2tau[11] = t3 * (-t14143 - t14169 + t14189);
11259 
11260   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11261     v3sigmalapl2[0] = 0.0e0;
11262 
11263   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11264     v3sigmalapl2[1] = 0.0e0;
11265 
11266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11267     v3sigmalapl2[2] = 0.0e0;
11268 
11269   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11270     v3sigmalapl2[3] = 0.0e0;
11271 
11272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11273     v3sigmalapl2[4] = 0.0e0;
11274 
11275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11276     v3sigmalapl2[5] = 0.0e0;
11277 
11278   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11279     v3sigmalapl2[6] = 0.0e0;
11280 
11281   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11282     v3sigmalapl2[7] = 0.0e0;
11283 
11284   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11285     v3sigmalapl2[8] = 0.0e0;
11286 
11287   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11288     v3sigmalapltau[0] = 0.0e0;
11289 
11290   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11291     v3sigmalapltau[1] = 0.0e0;
11292 
11293   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11294     v3sigmalapltau[2] = 0.0e0;
11295 
11296   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11297     v3sigmalapltau[3] = 0.0e0;
11298 
11299   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11300     v3sigmalapltau[4] = 0.0e0;
11301 
11302   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11303     v3sigmalapltau[5] = 0.0e0;
11304 
11305   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11306     v3sigmalapltau[6] = 0.0e0;
11307 
11308   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11309     v3sigmalapltau[7] = 0.0e0;
11310 
11311   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11312     v3sigmalapltau[8] = 0.0e0;
11313 
11314   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11315     v3sigmalapltau[9] = 0.0e0;
11316 
11317   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11318     v3sigmalapltau[10] = 0.0e0;
11319 
11320   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11321     v3sigmalapltau[11] = 0.0e0;
11322 
11323   t14193 = t3921 * t355;
11324   t14199 = sigma[0] * t3921;
11325   t14203 = 0.24560e-1 * t3906 * t30 - 0.98240e-4 * t14193 * t3772 + 0.24560e-1 * t1133 * t3905 * t30 - 0.98240e-4 * t1133 * t14199 * t40;
11326   t14204 = t21 * t14203;
11327   t14205 = t18 * t14204;
11328   t14207 = 0.3e1 / 0.32e2 * t14 * t14205;
11329   t14208 = t14199 * t140;
11330   t14211 = t33 * t13135;
11331   t14212 = t14211 * t448;
11332   t14227 = -0.983856e1 * t1133 * t14208 + 0.1967712e1 * t1133 * t14212 - 0.4906512e2 * t1315 * t14208 + 0.9813024e1 * t1315 * t14212 - 0.7180896e2 * t1282 * t14208 + 0.14361792e2 * t1282 * t14212 - 0.3258240e2 * t1302 * t14208 + 0.6516480e1 * t1302 * t14212;
11333   t14228 = t136 * t14227;
11334   t14230 = 0.15545350000000000000e-1 * t115 * t14228;
11335   t14231 = t13189 * t26;
11336   t14234 = t13196 * t26;
11337   t14237 = t3332 * t12769;
11338   t14249 = -0.69411600000000000000e-3 * t5125 * t14231 + 0.20823480000000000000e-5 * t2153 * t14234 + 0.20823480000000000000e-2 * t9016 * t14237 - 0.62470440000000000000e-5 * t1775 * t3342 * t12769 - 0.13882320000000000000e-2 * t5110 * t13222 * t26 + 0.41646960000000000000e-5 * t2165 * t13232 * t26;
11339   t14250 = t275 * t14249;
11340   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11341     v3sigmatau2[0] = t3 * (-t14207 - t14230 + t14250);
11342 
11343   t14252 = t3402 * t12740;
11344   t14255 = t3412 * t12740;
11345   t14258 = t3402 * t12769;
11346   t14264 = t12747 * t93;
11347   t14267 = t12759 * t93;
11348   t14270 = t3421 * t12740;
11349   t14276 = t3421 * t12769;
11350   t14286 = -0.69411600000000000000e-3 * t5125 * t14252 + 0.20823480000000000000e-5 * t2153 * t14255 + 0.10411740000000000000e-2 * t9016 * t14258 - 0.31235220000000000000e-5 * t1775 * t3412 * t12769 + 0.69411600000000000000e-3 * t1849 * t14264 - 0.20823480000000000000e-5 * t1853 * t14267 + 0.10411740000000000000e-2 * t9016 * t14270 - 0.31235220000000000000e-5 * t1775 * t3431 * t12740 - 0.13882320000000000000e-2 * t5110 * t14276 + 0.41646960000000000000e-5 * t2165 * t3431 * t12769 + 0.69411600000000000000e-3 * t1839 * t14264 - 0.20823480000000000000e-5 * t1844 * t14267;
11351   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11352     v3sigmatau2[1] = t3694 * t14286;
11353 
11354   t14287 = t13419 * t26;
11355   t14290 = t13426 * t26;
11356   t14293 = t3402 * t12826;
11357   t14305 = -0.69411600000000000000e-3 * t5125 * t14287 + 0.20823480000000000000e-5 * t2153 * t14290 + 0.20823480000000000000e-2 * t9016 * t14293 - 0.62470440000000000000e-5 * t1775 * t3412 * t12826 - 0.13882320000000000000e-2 * t5110 * t13452 * t26 + 0.41646960000000000000e-5 * t2165 * t13462 * t26;
11358   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11359     v3sigmatau2[2] = t3694 * t14305;
11360 
11361   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11362     v3sigmatau2[3] = 0.0e0;
11363 
11364   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11365     v3sigmatau2[4] = 0.0e0;
11366 
11367   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11368     v3sigmatau2[5] = 0.0e0;
11369 
11370   t14306 = t13189 * t75;
11371   t14309 = t13196 * t75;
11372   t14312 = t3332 * t12622;
11373   t14318 = t13222 * t75;
11374   t14324 = -0.69411600000000000000e-3 * t5125 * t14306 + 0.20823480000000000000e-5 * t2153 * t14309 + 0.20823480000000000000e-2 * t9016 * t14312 - 0.62470440000000000000e-5 * t1775 * t3342 * t12622 - 0.13882320000000000000e-2 * t5110 * t14318 + 0.41646960000000000000e-5 * t2165 * t13232 * t75;
11375   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11376     v3sigmatau2[6] = t3694 * t14324;
11377 
11378   t14325 = t3402 * t12595;
11379   t14328 = t3412 * t12595;
11380   t14331 = t3402 * t12622;
11381   t14337 = t3480 * t1053;
11382   t14340 = t12877 * t1053;
11383   t14343 = t3421 * t12595;
11384   t14349 = t3421 * t12622;
11385   t14359 = -0.69411600000000000000e-3 * t5125 * t14325 + 0.20823480000000000000e-5 * t2153 * t14328 + 0.10411740000000000000e-2 * t9016 * t14331 - 0.31235220000000000000e-5 * t1775 * t3412 * t12622 + 0.69411600000000000000e-3 * t1849 * t14337 - 0.20823480000000000000e-5 * t1853 * t14340 + 0.10411740000000000000e-2 * t9016 * t14343 - 0.31235220000000000000e-5 * t1775 * t3431 * t12595 - 0.13882320000000000000e-2 * t5110 * t14349 + 0.41646960000000000000e-5 * t2165 * t3431 * t12622 + 0.69411600000000000000e-3 * t1839 * t14337 - 0.20823480000000000000e-5 * t1844 * t14340;
11386   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11387     v3sigmatau2[7] = t3694 * t14359;
11388 
11389   t14362 = t4006 * t722;
11390   t14368 = sigma[2] * t4006;
11391   t14372 = 0.24560e-1 * t3991 * t79 - 0.98240e-4 * t14362 * t3850 + 0.24560e-1 * t2344 * t3990 * t79 - 0.98240e-4 * t2344 * t14368 * t89;
11392   t14373 = t70 * t14372;
11393   t14374 = t18 * t14373;
11394   t14376 = 0.3e1 / 0.32e2 * t67 * t14374;
11395   t14377 = t14368 * t184;
11396   t14380 = t82 * t13737;
11397   t14381 = t14380 * t800;
11398   t14396 = -0.983856e1 * t2344 * t14377 + 0.1967712e1 * t2344 * t14381 - 0.4906512e2 * t2449 * t14377 + 0.9813024e1 * t2449 * t14381 - 0.7180896e2 * t2461 * t14377 + 0.14361792e2 * t2461 * t14381 - 0.3258240e2 * t2472 * t14377 + 0.6516480e1 * t2472 * t14381;
11399   t14397 = t180 * t14396;
11400   t14399 = 0.15545350000000000000e-1 * t166 * t14397;
11401   t14400 = t13419 * t75;
11402   t14403 = t13426 * t75;
11403   t14406 = t3402 * t12697;
11404   t14412 = t13452 * t75;
11405   t14418 = -0.69411600000000000000e-3 * t5125 * t14400 + 0.20823480000000000000e-5 * t2153 * t14403 + 0.20823480000000000000e-2 * t9016 * t14406 - 0.62470440000000000000e-5 * t1775 * t3412 * t12697 - 0.13882320000000000000e-2 * t5110 * t14412 + 0.41646960000000000000e-5 * t2165 * t13462 * t75;
11406   t14419 = t275 * t14418;
11407   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11408     v3sigmatau2[8] = t3 * (-t14376 - t14399 + t14419);
11409 
11410   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11411     v3lapl3[0] = 0.0e0;
11412 
11413   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11414     v3lapl3[1] = 0.0e0;
11415 
11416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11417     v3lapl3[2] = 0.0e0;
11418 
11419   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11420     v3lapl3[3] = 0.0e0;
11421 
11422   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11423     v3lapl2tau[0] = 0.0e0;
11424 
11425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11426     v3lapl2tau[1] = 0.0e0;
11427 
11428   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11429     v3lapl2tau[2] = 0.0e0;
11430 
11431   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11432     v3lapl2tau[3] = 0.0e0;
11433 
11434   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11435     v3lapl2tau[4] = 0.0e0;
11436 
11437   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11438     v3lapl2tau[5] = 0.0e0;
11439 
11440   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11441     v3lapltau2[0] = 0.0e0;
11442 
11443   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11444     v3lapltau2[1] = 0.0e0;
11445 
11446   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11447     v3lapltau2[2] = 0.0e0;
11448 
11449   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11450     v3lapltau2[3] = 0.0e0;
11451 
11452   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11453     v3lapltau2[4] = 0.0e0;
11454 
11455   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
11456     v3lapltau2[5] = 0.0e0;
11457 
11458   t14421 = 0.1e1 / t35;
11459   t14422 = t14421 * t148;
11460   t14424 = t4097 * t14421;
11461   t14427 = 0.1e1 / t24 / t1014;
11462   t14428 = t14427 * t148;
11463   t14435 = -0.2496e1 * t14422 - 0.2496e1 * t14424 - 0.73680e-1 * t14428 * t1000 - 0.73680e-1 * t4097 * sigma[0] * t14427 * t30;
11464   t14436 = t21 * t14435;
11465   t14437 = t18 * t14436;
11466   t14439 = 0.3e1 / 0.32e2 * t14 * t14437;
11467   t14443 = 0.1e1 / t23 / t1159;
11468   t14444 = t14443 * t148;
11469   t14445 = t33 * t140;
11470   t14449 = t33 * t14443 * t140;
11471   t14458 = 0.34008e2 * t14422 + 0.34008e2 * t14424 + 0.491928e1 * t14444 * t14445 + 0.6382296e2 * t4097 * t14449 + 0.20584368e3 * t5412 * t14449 + 0.24468720e3 * t5416 * t14449 + 0.9774720e2 * t5372 * t14449;
11472   t14459 = t136 * t14458;
11473   t14461 = 0.15545350000000000000e-1 * t115 * t14459;
11474   t14464 = t3938 * t1036;
11475   t14467 = t3941 * t1033;
11476   t14468 = t14467 * t304;
11477   t14471 = t13189 * t1036;
11478   t14480 = 0.15210e2 * t10464 * t3938 - 0.15210e2 * t5050 * t14464 - 0.34705800000000000000e-3 * t14468 * t307 + 0.31235220000000000000e-2 * t5051 * t14471 - 0.62470440000000000000e-2 * t5038 * t3332 * t3938 + 0.34705800000000000000e-2 * t4982 * t307 * t14464;
11479   t14481 = t275 * t14480;
11480   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11481     v3tau3[0] = t3 * (-t14439 - t14461 + t14481);
11482 
11483   t14483 = t3480 * t13341;
11484   t14486 = t3421 * t3941;
11485   t14492 = t3480 * t13332;
11486   t14500 = t3402 * t13210;
11487   t14514 = t651 * t1036;
11488   t14517 = t3941 * t304;
11489   t14520 = t1090 * t3938;
11490   t14523 = t3954 * t1036;
11491   t14526 = -0.20823480000000000000e-2 * t1775 * t14483 + 0.10411740000000000000e-2 * t5051 * t14486 - 0.41646960000000000000e-2 * t5038 * t3421 * t13210 + 0.20823480000000000000e-2 * t1775 * t14492 + 0.34705800000000000000e-2 * t5624 * t3421 * t3938 - 0.27764640000000000000e-2 * t2165 * t14483 + 0.20823480000000000000e-2 * t5051 * t14500 + 0.13882320000000000000e-2 * t2153 * t14492 - 0.20823480000000000000e-2 * t5038 * t3402 * t3938 + 0.5070e1 * t10680 * t3938 + 0.10140e2 * t10464 * t3961 - 0.10140e2 * t3321 * t3954 + 0.10140e2 * t3954 * t14514 - 0.34705800000000000000e-3 * t14517 * t1093 - 0.15210e2 * t5050 * t14520 + 0.20280e2 * t1764 * t14523;
11492   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11493     v3tau3[1] = t3694 * t14526;
11494 
11495   t14527 = t651 * t1090;
11496   t14536 = t4023 * t1036;
11497   t14539 = t13657 * t93;
11498   t14544 = t13419 * t1036;
11499   t14547 = t3402 * t3954;
11500   t14550 = t3402 * t13326;
11501   t14556 = t3480 * t13446;
11502   t14569 = 0.10140e2 * t3954 * t14527 + 0.10140e2 * t10680 * t3961 - 0.10140e2 * t3391 * t3954 + 0.5070e1 * t10464 * t4023 - 0.15210e2 * t5050 * t14536 + 0.20280e2 * t1764 * t14539 - 0.34705800000000000000e-3 * t10464 * t4027 + 0.10411740000000000000e-2 * t5051 * t14544 + 0.13882320000000000000e-2 * t2153 * t14547 + 0.20823480000000000000e-2 * t5051 * t14550 - 0.41646960000000000000e-2 * t5038 * t3402 * t3961 - 0.20823480000000000000e-2 * t1775 * t14556 + 0.20823480000000000000e-2 * t1775 * t14547 - 0.20823480000000000000e-2 * t5038 * t13452 * t1033 + 0.34705800000000000000e-2 * t5624 * t13452 * t1036 - 0.27764640000000000000e-2 * t2165 * t14556;
11503   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11504     v3tau3[2] = t3694 * t14569;
11505 
11506   t14570 = 0.1e1 / t84;
11507   t14571 = t14570 * t192;
11508   t14573 = t8655 * t14570;
11509   t14576 = 0.1e1 / t73 / t1069;
11510   t14577 = t14576 * t192;
11511   t14584 = -0.2496e1 * t14571 - 0.2496e1 * t14573 - 0.73680e-1 * t14577 * t1055 - 0.73680e-1 * t8655 * sigma[2] * t14576 * t79;
11512   t14585 = t70 * t14584;
11513   t14586 = t18 * t14585;
11514   t14588 = 0.3e1 / 0.32e2 * t67 * t14586;
11515   t14592 = 0.1e1 / t72 / t2387;
11516   t14593 = t14592 * t192;
11517   t14594 = t82 * t184;
11518   t14598 = t82 * t14592 * t184;
11519   t14607 = 0.34008e2 * t14571 + 0.34008e2 * t14573 + 0.491928e1 * t14593 * t14594 + 0.6382296e2 * t8655 * t14598 + 0.20584368e3 * t8678 * t14598 + 0.24468720e3 * t8693 * t14598 + 0.9774720e2 * t8705 * t14598;
11520   t14608 = t180 * t14607;
11521   t14610 = 0.15545350000000000000e-1 * t166 * t14608;
11522   t14613 = t4023 * t1090;
11523   t14616 = t4026 * t1087;
11524   t14617 = t14616 * t304;
11525   t14620 = t13419 * t1090;
11526   t14629 = 0.15210e2 * t10680 * t4023 - 0.15210e2 * t5050 * t14613 - 0.34705800000000000000e-3 * t14617 * t307 + 0.31235220000000000000e-2 * t5051 * t14620 - 0.62470440000000000000e-2 * t5038 * t3402 * t4023 + 0.34705800000000000000e-2 * t4982 * t307 * t14613;
11527   t14630 = t275 * t14629;
11528   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
11529     v3tau3[3] = t3 * (-t14588 - t14610 + t14630);
11530 
11531 #ifndef XC_DONT_COMPILE_LXC
11532 
11533   if(order < 4) return;
11534 
11535 
11536   t14634 = 0.5e1 / 0.36e2 * t4162;
11537   t14636 = 0.5e1 / 0.36e2 * t4167;
11538   t14644 = t4895 * t4892;
11539   t14648 = 0.38527786510141256862e1 * t1734 * t526 * t4584;
11540   t14649 = t4895 * t4898;
11541   t14651 = t553 * t4888;
11542   t14652 = 0.16e2 * t14651;
11543   t14653 = t1672 * t1672;
11544   t14656 = 0.48245938496077605201e2 * t1678 * t14653 * t1680;
11545   t14659 = 0.60000000000000000000e1 * t1661 * t14653 * t548;
11546   t14660 = t553 * t4730;
11547   t14663 = 0.1e1 / t1512 / t406;
11548   t14664 = t1249 * t1249;
11549   t14670 = t1111 * t1111;
11550   t14675 = t2 * t557;
11551   t14677 = -0.24e2 * t229 + 0.24e2 * t14675;
11552   t14681 = 0.1e1 / t1518 / t490;
11553   t14682 = t1360 * t1360;
11554   t14688 = t1106 * t1106;
11555   t14693 = -t14677;
11556   t14697 = (0.40e2 / 0.81e2 * t14663 * t14664 - 0.16e2 / 0.9e1 * t4427 * t1249 * t1111 + 0.4e1 / 0.3e1 * t1513 * t14670 + 0.16e2 / 0.9e1 * t4430 * t4270 + 0.4e1 / 0.3e1 * t231 * t14677 + 0.40e2 / 0.81e2 * t14681 * t14682 - 0.16e2 / 0.9e1 * t4436 * t1360 * t1106 + 0.4e1 / 0.3e1 * t1519 * t14688 + 0.16e2 / 0.9e1 * t4439 * t4393 + 0.4e1 / 0.3e1 * t233 * t14693) * t238;
11557   t14702 = 0.86748650402413918736e-1 * t1734 * t1575 * t1552;
11558   t14703 = t1431 * t1431;
11559   t14710 = 0.19263893255070628431e1 * t14644 - t14648 - 0.13012297560362087810e0 * t14649 + t14652 + t14656 - t14659 + 0.48e2 * t14660 + 0.19751673498613801407e-1 * t14697 * t264 + t14702 + 0.30000000000000000000e1 * t115 * t1222 * t14703 * t440 - 0.20000000000000000000e1 * t4913 * t618;
11560   t14714 = t1662 * t1662;
11561   t14717 = 0.62071215503128080361e4 * t209 / t1676 / t1659 * t14714 * t4572;
11562   t14718 = t1555 * t1560;
11563   t14722 = 0.21053605041484726346e2 * t608 * t1543 * t1702;
11564   t14723 = t4461 * t599;
11565   t14724 = 0.960e3 * t14723;
11566   t14725 = t4458 * t566;
11567   t14727 = t4461 * t566;
11568   t14729 = t4458 * t599;
11569   t14730 = 0.576e3 * t14729;
11570   t14731 = t4268 * t599;
11571   t14732 = 0.96e2 * t14731;
11572   t14743 = -t14717 - 0.384e3 * t14718 - t14722 + t14724 - 0.576e3 * t14725 + 0.960e3 * t14727 - t14730 + t14732 - 0.19298375398431042080e3 * t4201 * t4968 - 0.19298375398431042080e3 * t4223 * t4953 - 0.19298375398431042080e3 * t4209 * t4953 - 0.62071215503128080360e4 * t5231 * t1505 * t4714 * t1214;
11573   t14751 = 0.12842595503380418954e1 * t1734 * t1575 * t1546;
11574   t14752 = t4895 * t4412;
11575   t14756 = 0.21687162600603479684e-1 * t1734 * t526 * t4960;
11576   t14759 = 0.24000000000000000000e2 * t4817 * t14714 * t548;
11577   t14762 = 0.67471172535210825684e-1 * t1734 * t1928 * t610;
11578   t14763 = t4895 * t4409;
11579   t14767 = 0.43374325201206959368e-1 * t1734 * t1575 * t1728;
11580   t14774 = t1731 * t4584;
11581   t14776 = -0.64327917994770140268e2 * t1213 * t4705 * t1216 * t520 - t14751 + 0.65061487801810439052e-1 * t14752 + t14756 - t14759 + t14762 - 0.86748650402413918736e-1 * t14763 - t14767 - 0.18000000000000000000e2 * t1454 * t1225 * t1431 + 0.40000000000000000000e1 * t1223 * t441 * t4351 + 0.41558061853635513020e3 * t14774;
11582   t14777 = t1542 * t1542;
11583   t14781 = 0.62337092780453269530e3 * t608 * t4834 * t14777 * t1545;
11584   t14782 = t1731 * t4534;
11585   t14785 = t4445 * t7 * t605;
11586   t14791 = t1505 * t1505;
11587   t14796 = t1214 * t1214;
11588   t14801 = t9 * t4;
11589   t14807 = 0.1e1 / t17 / t556;
11590   t14809 = 0.1e1 / t210 / t14801 * t9 * t14807 * t108 / 0.48e2;
11591   t14811 = t4770 * t557;
11592   t14813 = t1625 * t6320;
11593   t14814 = t1624 * t14813;
11594   t14816 = t13 * t5882;
11595   t14817 = t534 * t14816;
11596   t14820 = pow(t207, -0.25e1);
11597   t14823 = t14820 * t9 * t14807 * t108;
11598   t14825 = t4781 * t557;
11599   t14827 = t1635 * t14813;
11600   t14829 = t541 * t14816;
11601   t14832 = -0.28769444444444444444e1 * t14809 + 0.27618666666666666667e2 * t14811 - 0.10229135802469135803e2 * t14814 + 0.89504938271604938273e1 * t14817 + 0.31310740740740740741e1 * t5884 + 0.36677500000000000000e-1 * t14823 - 0.58684000000000000000e0 * t14825 + 0.65204444444444444445e0 * t14827 + 0.57053888888888888890e0 * t14829 + 0.13490888888888888889e1 * t6322;
11602   t14836 = 0.58482236226346462070e0 * t608 * t587 * t14832 * t594;
11603   t14837 = t4956 * t1728;
11604   t14839 = t1540 * t1540;
11605   t14840 = 0.1e1 / t14839;
11606   t14842 = t1544 * t1544;
11607   t14843 = 0.1e1 / t14842;
11608   t14846 = 0.91082604192152556044e5 * t608 * t14840 * t14777 * t14843;
11609   t14847 = t1731 * t4964;
11610   t14849 = t4956 * t1546;
11611   t14851 = -t14781 - 0.14035736694323150897e2 * t14782 - 0.73245789224026180216e-3 * t14785 + 0.38596750796862084160e3 * t497 * t4516 + 0.38596750796862084160e3 * t482 * t4516 + 0.30000000000000000000e1 * t166 * t1230 * t14791 * t521 + 0.12000000000000000000e2 * t166 * t4216 * t14796 * t521 - t14836 - 0.35089341735807877242e1 * t14837 - t14846 - 0.41016075432865626630e4 * t14847 - 0.10389515463408878255e3 * t14849;
11612   t14854 = t1731 * t4960;
11613   t14869 = t1701 * t1701;
11614   t14873 = 0.51947577317044391277e2 * t608 * t1541 * t14869 * t1545;
11615   t14875 = 0.1e1 / t1211 / t1229;
11616   t14885 = t230 * t1525 * t1709;
11617   t14887 = t553 * t4446;
11618   t14889 = -0.23392894490538584828e1 * t14854 + 0.12000000000000000000e2 * t4212 * t4576 + 0.12000000000000000000e2 * t4231 * t4576 - 0.18000000000000000000e2 * t1213 * t1232 * t1505 + 0.40000000000000000000e1 * t1231 * t522 * t4705 + 0.57895126195293126241e3 * t4217 * t4967 * t1214 - t14873 + 0.12414243100625616072e5 * t166 * t14875 * t14796 * t4714 - 0.48245938496077605201e2 * t166 * t1212 * t14791 * t1216 + 0.6e1 * t14885 + 0.16e2 * t14887;
11619   t14890 = t558 * t4446;
11620   t14892 = t1568 * t1560;
11621   t14896 = 0.57895126195293126241e3 * t4569 * t14714 * t1680;
11622   t14899 = 0.71233333333333333332e-1 * t108 * t1655 * t4830;
11623   t14903 = 0.36846163202829085480e2 * t108 * t399 * t4568 * t4573;
11624   t14907 = 0.22161481481481481481e0 * t108 * t1927 * t531 * t549;
11625   t14908 = t1731 * t4562;
11626   t14910 = t1545 * t4811;
11627   t14913 = 0.69263436422725855036e2 * t608 * t4560 * t14910;
11628   t14918 = 0.61524113149298439947e4 * t608 * t4834 * t1542 * t4837 * t1701;
11629   t14919 = t1724 * t4550;
11630   t14924 = 0.68734380377411894876e1 * t108 * t399 * t4816 * t4818;
11631   t14927 = 0.14246666666666666666e0 * t108 * t4868 * t1673;
11632   t14928 = -0.16e2 * t14890 + 0.144e3 * t14892 + t14896 - t14899 - t14903 - t14907 - 0.20779030926817756510e3 * t14908 - t14913 - t14918 - 0.22787578869697033845e-2 * t14919 + t14924 + t14927;
11633   t14933 = 0.35089341735807877242e1 * t608 * t1550 * t14869 * t594;
11634   t14937 = 0.14035736694323150897e2 * t608 * t4582 * t14777 * t594;
11635   t14941 = t230 * t565 * t4887;
11636   t14957 = t14933 + t14937 - 0.19298375398431042080e3 * t4193 * t4968 + 0.4e1 * t14941 - 0.30000000000000000000e1 * t1343 * t1593 - 0.60000000000000000000e1 * t1346 * t1593 - 0.20000000000000000000e1 * t482 * t4707 - 0.96491876992155210402e2 * t1343 * t1597 - 0.19298375398431042080e3 * t1346 * t1597 - 0.41380810335418720240e4 * t482 * t4715 - 0.30000000000000000000e1 * t1376 * t1593;
11637   t14971 = 0.34367190188705947437e1 * t538 * t1677 * t547 * t4474;
11638   t14973 = t230 * t4445 * t598;
11639   t14983 = t1929 * t493;
11640   t14985 = t1632 * t1372;
11641   t14987 = t1632 * t1362;
11642   t14989 = t538 * t4626;
11643   t14991 = t538 * t4639;
11644   t14995 = t15 / t172 / t1366;
11645   t14996 = t1358 * t1358;
11646   t14997 = 0.1e1 / t14996;
11647   t14998 = t14997 * t14682;
11648   t15000 = t207 * t14995 * t14998;
11649   t15002 = t491 * t14693;
11650   t15004 = t207 * t489 * t15002;
11651   t15006 = t5882 * t15;
11652   t15008 = t108 * t15006 * t69;
11653   t15009 = 0.17757530864197530864e0 * t15008;
11654   t15010 = t4630 * t14682;
11655   t15012 = t207 * t489 * t15010;
11656   t15014 = t1361 * t1106;
11657   t15016 = t207 * t489 * t15014;
11658   t15018 = t1366 * t14688;
11659   t15020 = t207 * t489 * t15018;
11660   t15022 = 0.71030123456790123454e-1 * t14983 - 0.45662222222222222221e-1 * t14985 - 0.30441481481481481480e-1 * t14987 + 0.25367901234567901233e-1 * t14989 + 0.22831111111111111111e-1 * t14991 - 0.50735802469135802467e-1 * t15000 - 0.17123333333333333333e-1 * t15004 + t15009 + 0.41096000000000000000e0 * t15012 - 0.61644000000000000000e0 * t15016 + 0.10274000000000000000e0 * t15020;
11661   t15023 = t4656 * t4393;
11662   t15025 = t207 * t489 * t15023;
11663   t15028 = 0.1e1 / t1358 / t1365;
11664   t15029 = t15028 * t14682;
11665   t15031 = t207 * t4625 * t15029;
11666   t15034 = t4606 * t1360 * t1106;
11667   t15036 = t207 * t4625 * t15034;
11668   t15038 = t4606 * t14682;
11669   t15040 = t207 * t1357 * t15038;
11670   t15043 = t4630 * t1360 * t1106;
11671   t15045 = t207 * t1357 * t15043;
11672   t15047 = t1359 * t14688;
11673   t15049 = t207 * t1357 * t15047;
11674   t15051 = t4651 * t4393;
11675   t15053 = t207 * t1357 * t15051;
11676   t15055 = t1632 * t1368;
11677   t15057 = t538 * t4632;
11678   t15059 = t538 * t4661;
11679   t15061 = t538 * t4636;
11680   t15063 = t538 * t4664;
11681   t15065 = 0.13698666666666666667e0 * t15025 + 0.22831111111111111110e0 * t15031 - 0.11415555555555555555e0 * t15036 - 0.41095999999999999999e0 * t15040 + 0.41095999999999999998e0 * t15045 - 0.34246666666666666665e-1 * t15049 - 0.45662222222222222220e-1 * t15053 + 0.91324444444444444440e-1 * t15055 - 0.91324444444444444440e-1 * t15057 + 0.45662222222222222220e-1 * t15059 + 0.13698666666666666667e0 * t15061 - 0.13698666666666666667e0 * t15063;
11682   t15067 = t65 * (t15022 + t15065);
11683   t15070 = t14677 * t114;
11684   t15073 = t4270 * t412;
11685   t15076 = -0.20000000000000000000e1 * t497 * t4707 - 0.96491876992155210402e2 * t1376 * t1597 - 0.41380810335418720240e4 * t497 * t4715 - 0.48245938496077605201e2 * t115 * t1453 * t14703 * t1456 - t14971 + 0.4e1 * t14973 - 0.12000000000000000000e2 * t482 * t4529 - 0.12000000000000000000e2 * t497 * t4529 - 0.57895126195293126241e3 * t166 * t4711 * t14796 * t1216 + 0.15545350000000000000e-1 * t15067 * t180 + 0.15545350000000000000e-1 * t15070 * t136 + 0.62181400000000000000e-1 * t15073 * t136;
11686   t15080 = t1111 * t1264;
11687   t15083 = t14693 * t165;
11688   t15086 = t4393 * t496;
11689   t15089 = t378 * t4930;
11690   t15092 = t314 * t4912;
11691   t15096 = t108 * t15006 * t20;
11692   t15097 = 0.17757530864197530864e0 * t15096;
11693   t15098 = t1255 * t14670;
11694   t15100 = t207 * t405 * t15098;
11695   t15102 = t4244 * t4270;
11696   t15104 = t207 * t405 * t15102;
11697   t15107 = 0.1e1 / t1247 / t1254;
11698   t15108 = t15107 * t14664;
11699   t15110 = t207 * t4298 * t15108;
11700   t15113 = t4263 * t1249 * t1111;
11701   t15115 = t207 * t4298 * t15113;
11702   t15117 = t4263 * t14664;
11703   t15119 = t207 * t1246 * t15117;
11704   t15122 = t4278 * t1249 * t1111;
11705   t15124 = t207 * t1246 * t15122;
11706   t15126 = t1248 * t14670;
11707   t15128 = t207 * t1246 * t15126;
11708   t15130 = t4239 * t4270;
11709   t15132 = t207 * t1246 * t15130;
11710   t15134 = t4278 * t14664;
11711   t15136 = t207 * t405 * t15134;
11712   t15138 = t1250 * t1111;
11713   t15140 = t207 * t405 * t15138;
11714   t15142 = t15097 + 0.10274000000000000000e0 * t15100 + 0.13698666666666666667e0 * t15104 + 0.22831111111111111110e0 * t15110 - 0.11415555555555555555e0 * t15115 - 0.41095999999999999999e0 * t15119 + 0.41095999999999999998e0 * t15124 - 0.34246666666666666665e-1 * t15128 - 0.45662222222222222220e-1 * t15132 + 0.41096000000000000000e0 * t15136 - 0.61644000000000000000e0 * t15140;
11715   t15143 = t538 * t4302;
11716   t15145 = t538 * t4249;
11717   t15147 = t538 * t4305;
11718   t15149 = t538 * t4252;
11719   t15151 = t1632 * t1257;
11720   t15153 = t1929 * t409;
11721   t15155 = t1632 * t1261;
11722   t15157 = t1632 * t1251;
11723   t15159 = t538 * t4299;
11724   t15161 = t538 * t4308;
11725   t15165 = t15 / t128 / t1255;
11726   t15166 = t1247 * t1247;
11727   t15167 = 0.1e1 / t15166;
11728   t15168 = t15167 * t14664;
11729   t15170 = t207 * t15165 * t15168;
11730   t15172 = t407 * t14677;
11731   t15174 = t207 * t405 * t15172;
11732   t15176 = -0.91324444444444444440e-1 * t15143 + 0.45662222222222222220e-1 * t15145 + 0.13698666666666666667e0 * t15147 - 0.13698666666666666667e0 * t15149 + 0.91324444444444444440e-1 * t15151 + 0.71030123456790123454e-1 * t15153 - 0.45662222222222222221e-1 * t15155 - 0.30441481481481481480e-1 * t15157 + 0.25367901234567901233e-1 * t15159 + 0.22831111111111111111e-1 * t15161 - 0.50735802469135802467e-1 * t15170 - 0.17123333333333333333e-1 * t15174;
11733   t15178 = t6 * (t15142 + t15176);
11734   t15181 = t1106 * t1375;
11735   t15185 = 0.1e1 / t1540 / t1549;
11736   t15189 = 0.12304822629859687989e5 * t608 * t15185 * t14777 * t4837;
11737   t15190 = t4956 * t1552;
11738   t15195 = t1618 * t1618;
11739   t15208 = t1643 * t1643;
11740   t15246 = t1647 * t1647;
11741   t15249 = t1650 * t1650;
11742   t15257 = -0.24000000000000000000e2 * t4750 * t15195 * t579 - t14656 - 0.24828486201251232145e5 * t241 / t1647 / t1615 * t15195 * t4744 + t14659 - 0.14035736694323150897e2 * t4841 * t14777 * t594 + 0.96491876992155210402e2 * t1649 * t15208 * t1651 - 0.60000000000000000000e1 * t1617 * t15208 * t579 - 0.12304822629859687989e5 * t254 * t15185 * t14777 * t4837 + 0.62337092780453269530e3 * t4835 * t14777 * t1545 + t14717 + 0.91082604192152556044e5 * t254 * t14840 * t14777 * t14843 + 0.11579025239058625248e4 * t4742 * t15195 * t1651 + 0.51947577317044391277e2 * t1705 * t14869 * t1545 + 0.10000000000000000000e1 * t573 * (-0.39219166666666666667e1 * t14809 + 0.37650400000000000000e2 * t14811 - 0.13944592592592592593e2 * t14814 + 0.12201518518518518519e2 * t14817 + 0.53560370370370370370e1 * t5884 + 0.14025833333333333333e0 * t14823 - 0.22441333333333333332e1 * t14825 + 0.24934814814814814815e1 * t14827 + 0.21817962962962962963e1 * t14829 + 0.16979925925925925926e1 * t6322) * t579 + 0.19964560303604640732e6 * t241 / t15246 * t15195 / t15249 + 0.58482236226346462070e0 * t588 * t14832 * t594 + t14759;
11743   t15304 = 0.12865583598954028054e3 * t1649 * t4789 * t1651 * t578 - t14896 - 0.67471172535210825684e-1 * t108 * t1927 * t587 * t595 + 0.43374325201206959368e-1 * t108 * t4853 * t1702 + 0.12842595503380418954e1 * t108 * t1237 * t1541 * t1706 - 0.14171548179536397724e3 * t108 * t399 * t4741 * t4745 - 0.68493333333333333332e-1 * t108 * t1611 * t4790 + t14899 + t14903 + 0.44060335298551228073e1 * t108 * t1237 * t1648 * t1652 + 0.13698666666666666666e0 * t108 * t4875 * t1644 + t14907 - 0.86748650402413918736e-1 * t108 * t1237 * t1550 * t1692 - 0.13012297560362087810e0 * t108 * t4860 * t4793 - 0.27397333333333333333e0 * t108 * t1237 * t1616 * t1619 - 0.41096000000000000000e0 * t108 * t4882 * t4734 - 0.21687162600603479684e-1 * t108 * t1687 * t4812;
11744   t15330 = 0.80000000000000000000e1 * t1661 * t4830 * t547;
11745   t15333 = 0.57895126195293126241e3 * t4817 * t1681 * t1672;
11746   t15337 = 0.22911460125803964958e1 * t108 * t1237 * t1677 * t1681;
11747   t15341 = 0.31035607751564040180e4 * t4569 * t1662 * t4572 * t1672;
11748   t15345 = 0.64327917994770140268e2 * t1678 * t4829 * t1680 * t547;
11749   t15355 = -0.38025319932552508021e2 * t108 * t399 * t4834 * t4838 + 0.13218100589565368422e2 * t108 * t399 * t4749 * t4751 - 0.21309037037037037036e0 * t108 * t1927 * t572 * t580 + 0.38527786510141256862e1 * t108 * t399 * t4582 * t4842 - t14924 - t14927 + 0.21053605041484726346e2 * t1705 * t1692 * t1701 - 0.11579025239058625248e4 * t4750 * t4754 * t1618 + t14971 + t15330 + t15333 - t15337 - t15341 - t15345 - 0.55209406483950617283e-2 * t107 * t5883 * t250 + 0.13012297560362087810e0 * t538 * t4538 + 0.41096000000000000000e0 * t538 * t1616 * t578 * t1644;
11750   t15366 = 0.28493333333333333333e0 * t108 * t1237 * t1660 * t1663;
11751   t15369 = 0.42740000000000000000e0 * t108 * t4864 * t4764;
11752   t15372 = 0.36000000000000000000e2 * t1678 * t1663 * t1672;
11753   t15376 = t1676 * t1676;
11754   t15379 = t1679 * t1679;
11755   t15383 = 0.24955700379505800916e5 * t209 / t15376 * t14714 / t15379;
11756   t15397 = 0.10000000000000000000e1 * t532 * (-0.21099166666666666667e1 * t14809 + 0.20255200000000000000e2 * t14811 - 0.75019259259259259258e1 * t14814 + 0.65641851851851851850e1 * t14817 + 0.31003950617283950618e1 * t5884 + 0.68258333333333333335e-1 * t14823 - 0.10921333333333333333e1 * t14825 + 0.12134814814814814815e1 * t14827 + 0.10617962962962962963e1 * t14829 + 0.13388493827160493828e1 * t6322) * t548;
11757   t15403 = 0.11483599538271604938e-1 * t107 * t5883 * t222;
11758   t15427 = 0.42740000000000000000e0 * t538 * t1660 * t547 * t1673;
11759   t15431 = -0.66090502947826842110e1 * t538 * t1648 * t1643 * t1651 * t578 - 0.19263893255070628431e1 * t538 * t4562 + t15366 + t15369 - t15372 + 0.69263436422725855036e2 * t1705 * t14910 * t593 - t15383 - t15397 - 0.18989649058080861537e-2 * t107 * t5883 * t263 + t15403 + 0.36000000000000000000e2 * t1649 * t1619 * t1643 + 0.12414243100625616072e5 * t4742 * t1643 * t4744 * t1618 + 0.61524113149298439947e4 * t4835 * t1542 * t4837 * t1701 - 0.80000000000000000000e1 * t1617 * t580 * t4789 - 0.62337092780453269531e3 * t4841 * t1706 * t1701 - 0.46785788981077169656e1 * t1691 * t4812 * t593 - t15427 - 0.35089341735807877242e1 * t1691 * t14869 * t594;
11760   t15435 = t230 * t239 * (t15257 + t15304 + t15355 + t15431);
11761   t15436 = 0.93272100000000000000e-1 * t15080 * t136 + 0.15545350000000000000e-1 * t15083 * t180 + 0.62181400000000000000e-1 * t15086 * t180 + 0.62181400000000000000e-1 * t15089 * t180 + 0.62181400000000000000e-1 * t15092 * t136 + 0.15545350000000000000e-1 * t15178 * t136 + 0.93272100000000000000e-1 * t15181 * t180 + t15189 + 0.70178683471615754484e1 * t15190 + 0.57895126195293126241e3 * t5192 * t1457 * t1431 + t15435;
11762   t15437 = t4268 * t566;
11763   t15455 = t6320 * t16;
11764   t15458 = 0.16979925925925925926e1 * t124 * t15455 * t172;
11765   t15465 = 0.53560370370370370370e1 * t15008;
11766   t15466 = t545 * t4608;
11767   t15471 = 0.12623250000000000000e1 * t4701 * t4684 + 0.15883762500000000000e2 * t4695 * t1469 * t1477 - 0.70594500000000000000e1 * t4698 * t4684 - 0.94674375000000000000e0 * t4689 * t1469 * t1477 + t15458 - 0.18593100000000000000e2 * t15016 + 0.41318000000000000000e1 * t15025 - 0.34431666666666666667e1 * t15036 + 0.12395400000000000000e2 * t15045 - 0.13772666666666666667e1 * t15053 + 0.13772666666666666667e1 * t15059 + t15465 + 0.12349037037037037037e0 * t15466 - 0.12503400000000000000e1 * t216 * t1495 * t15038;
11768   t15481 = t545 * t4648;
11769   t15483 = t16 * t5286;
11770   t15490 = t1641 * t1502;
11771   t15492 = t1641 * t1496;
11772   t15494 = t545 * t4612;
11773   t15502 = t545 * t4645;
11774   t15507 = t1959 * t517;
11775   t15509 = -0.10419500000000000000e0 * t216 * t1495 * t15047 + 0.25006800000000000000e1 * t216 * t516 * t15010 + 0.62517000000000000000e0 * t216 * t516 * t15018 + 0.16671200000000000000e1 * t15481 - 0.10805407407407407407e0 * t216 * t15483 * t14998 - 0.10419500000000000000e0 * t216 * t516 * t15002 - 0.69463333333333333334e0 * t15490 - 0.23154444444444444445e0 * t15492 + 0.27785333333333333333e0 * t15494 + 0.12503400000000000000e1 * t216 * t1495 * t15043 - 0.37510200000000000000e1 * t216 * t516 * t15014 - 0.55570666666666666668e0 * t15502 + 0.55570666666666666666e0 * t216 * t4604 * t15029 + 0.12349037037037037037e1 * t15507;
11776   t15511 = t1641 * t1499;
11777   t15526 = 0.13892666666666666667e1 * t15511 + 0.68863333333333333334e1 * t15031 - 0.12395400000000000000e2 * t15040 - 0.10329500000000000000e1 * t15049 + 0.27545333333333333333e1 * t15055 - 0.27545333333333333332e1 * t15057 + 0.41318000000000000000e1 * t15061 + 0.21424148148148148148e1 * t14983 - 0.13772666666666666666e1 * t14985 - 0.91817777777777777776e0 * t14987 + 0.76514814814814814814e0 * t14989 + 0.68863333333333333332e0 * t14991 - 0.15302962962962962963e1 * t15000 - 0.51647500000000000000e0 * t15004;
11778   t15532 = t545 * t4658;
11779   t15534 = t545 * t4653;
11780   t15542 = pow(t163, -0.25e1);
11781   t15543 = t1469 * t1469;
11782   t15546 = t1477 * t1477;
11783   t15552 = 0.1e1 / t167 / t14801 / t68 / 0.96e2;
11784   t15564 = 0.280e3 / 0.81e2 * t15008;
11785   t15568 = 0.112e3 / 0.81e2 * t14983 - 0.8e1 / 0.9e1 * t14985 - 0.16e2 / 0.27e2 * t14987 + 0.40e2 / 0.81e2 * t14989 + 0.4e1 / 0.9e1 * t14991 - 0.80e2 / 0.81e2 * t15000 - t15004 / 0.3e1 + t15564 + 0.8e1 * t15012 - 0.12e2 * t15016 + 0.2e1 * t15020;
11786   t15581 = 0.8e1 / 0.3e1 * t15025 + 0.40e2 / 0.9e1 * t15031 - 0.20e2 / 0.9e1 * t15036 - 0.8e1 * t15040 + 0.8e1 * t15045 - 0.2e1 / 0.3e1 * t15049 - 0.8e1 / 0.9e1 * t15053 + 0.16e2 / 0.9e1 * t15055 - 0.16e2 / 0.9e1 * t15057 + 0.8e1 / 0.9e1 * t15059 + 0.8e1 / 0.3e1 * t15061 - 0.8e1 / 0.3e1 * t15063;
11787   t15582 = t15568 + t15581;
11788   t15588 = 0.12395400000000000000e2 * t15012 + 0.30988500000000000000e1 * t15020 - 0.13892666666666666667e0 * t216 * t1495 * t15051 - 0.16671200000000000000e1 * t15532 + 0.27785333333333333333e0 * t15534 - 0.27785333333333333334e0 * t216 * t4604 * t15034 + 0.83356000000000000000e0 * t216 * t516 * t15023 + 0.23668593750000000000e0 * t15542 * t15543 - 0.52945875000000000000e1 * t1468 * t15546 - 0.66182343750000000000e1 * t15552 * t15543 + 0.94674375000000000000e0 * t1485 * t15546 + 0.63116250000000000000e0 * t510 * t15582 + 0.35297250000000000000e1 * t503 * t15582 - 0.41318000000000000000e1 * t15063;
11789   t15590 = t15471 + t15509 + t15526 + t15588;
11790   t15595 = t1211 * t1211;
11791   t15596 = 0.1e1 / t15595;
11792   t15598 = t1215 * t1215;
11793   t15599 = 0.1e1 / t15598;
11794   t15615 = 0.96e2 * t15437 + 0.60000000000000000000e1 * t1376 * t1572 + 0.60000000000000000000e1 * t1343 * t1572 + 0.12000000000000000000e2 * t1346 * t1572 - 0.50000000000000000001e0 * t166 * t501 * t15590 * t521 - 0.99822801518023203660e5 * t166 * t15596 * t14796 * t15599 - 0.30000000000000000000e1 * t1379 * t1605 - 0.60000000000000000000e1 * t1382 * t1605 - 0.20000000000000000000e1 * t395 * t4723 - 0.30000000000000000000e1 * t1265 * t1605 - 0.20000000000000000000e1 * t413 * t4723 + 0.12000000000000000000e2 * t5212 * t4950;
11795   t15618 = t1525 * t107 * t1735;
11796   t15622 = 0.38025319932552508021e2 * t1734 * t526 * t4964;
11797   t15623 = t1224 * t1224;
11798   t15630 = t1224 * t4361;
11799   t15635 = t4445 * t254 * t610;
11800   t15640 = t1568 * t1710;
11801   t15641 = 0.72e2 * t15640;
11802   t15642 = 0.65061487801810439052e-1 * t15618 + t15622 - t15330 - t15333 + 0.12000000000000000000e2 * t115 * t4491 * t15623 * t440 + 0.12000000000000000000e2 * t5215 * t4950 - 0.62071215503128080360e4 * t4358 * t15630 * t1431 - 0.23392894490538584828e1 * t15635 - 0.64327917994770140268e2 * t1454 * t4366 * t4351 + t15641 + t15337;
11803   t15643 = t4546 * t1721;
11804   t15645 = t1555 * t1710;
11805   t15646 = 0.192e3 * t15645;
11806   t15647 = t1555 * t1526;
11807   t15649 = t228 * t228;
11808   t15653 = 0.840e3 * t226 / t15649 * t267;
11809   t15655 = t552 * t4449 * t267;
11810   t15656 = 0.1920e4 * t15655;
11811   t15657 = t1565 * t1526;
11812   t15659 = t553 * t4423;
11813   t15661 = t558 * t4423;
11814   t15667 = 0.14649157844805236043e-2 * t15643 - t15646 - 0.192e3 * t15647 + t15341 + t15345 + t15653 - t15656 + 0.120e3 * t15657 + 0.48e2 * t15659 - 0.48e2 * t15661 + 0.38596750796862084160e3 * t413 * t4493 + 0.38596750796862084160e3 * t395 * t4493;
11815   t15670 = t558 * t4730;
11816   t15672 = t1731 * t4538;
11817   t15677 = 0.46785788981077169656e1 * t608 * t1550 * t4811 * t595;
11818   t15681 = 0.62337092780453269531e3 * t608 * t4582 * t1542 * t4561;
11819   t15685 = 0.18989649058080861537e-2 * t603 * t13 * t5882 * t263;
11820   t15698 = t545 * t4284;
11821   t15703 = t1959 * t436;
11822   t15705 = t1641 * t1425;
11823   t15707 = t545 * t4280;
11824   t15709 = 0.53560370370370370370e1 * t15096;
11825   t15710 = t1400 * t1400;
11826   t15716 = -0.10419500000000000000e0 * t216 * t1421 * t15126 + 0.25006800000000000000e1 * t216 * t435 * t15134 + 0.62517000000000000000e0 * t216 * t435 * t15098 + 0.55570666666666666666e0 * t216 * t4261 * t15108 + 0.16671200000000000000e1 * t15698 - 0.12503400000000000000e1 * t216 * t1421 * t15117 + 0.12349037037037037037e1 * t15703 + 0.13892666666666666667e1 * t15705 - 0.55570666666666666668e0 * t15707 + t15709 - 0.52945875000000000000e1 * t1391 * t15710 - 0.18593100000000000000e2 * t15140 + 0.13772666666666666667e1 * t15145 - 0.41318000000000000000e1 * t15149;
11827   t15721 = t1641 * t1428;
11828   t15723 = t1641 * t1422;
11829   t15725 = t545 * t4272;
11830   t15727 = t545 * t4265;
11831   t15729 = t16 * t5277;
11832   t15738 = 0.16979925925925925926e1 * t124 * t15455 * t128;
11833   t15742 = 0.41318000000000000000e1 * t15104 - 0.34431666666666666667e1 * t15115 + 0.12395400000000000000e2 * t15124 - 0.13772666666666666667e1 * t15132 - 0.69463333333333333334e0 * t15721 - 0.23154444444444444445e0 * t15723 + 0.27785333333333333333e0 * t15725 + 0.12349037037037037037e0 * t15727 - 0.10805407407407407407e0 * t216 * t15729 * t15168 - 0.10419500000000000000e0 * t216 * t435 * t15172 + t15738 - 0.13772666666666666666e1 * t15155 - 0.91817777777777777776e0 * t15157 + 0.76514814814814814814e0 * t15159;
11834   t15759 = 0.1e1 / t116 / t14801 / t19 / 0.96e2;
11835   t15760 = t1392 * t1392;
11836   t15766 = 0.68863333333333333332e0 * t15161 - 0.15302962962962962963e1 * t15170 - 0.51647500000000000000e0 * t15174 + 0.30988500000000000000e1 * t15100 + 0.68863333333333333334e1 * t15110 - 0.12395400000000000000e2 * t15119 - 0.10329500000000000000e1 * t15128 + 0.12395400000000000000e2 * t15136 - 0.27545333333333333332e1 * t15143 + 0.41318000000000000000e1 * t15147 + 0.27545333333333333333e1 * t15151 + 0.21424148148148148148e1 * t15153 - 0.66182343750000000000e1 * t15759 * t15760 + 0.12623250000000000000e1 * t1408 * t4334 * t421;
11837   t15778 = pow(t112, -0.25e1);
11838   t15796 = t545 * t4246;
11839   t15798 = t545 * t4241;
11840   t15800 = 0.280e3 / 0.81e2 * t15096;
11841   t15811 = t15800 + 0.2e1 * t15100 + 0.8e1 / 0.3e1 * t15104 + 0.40e2 / 0.9e1 * t15110 - 0.20e2 / 0.9e1 * t15115 - 0.8e1 * t15119 + 0.8e1 * t15124 - 0.2e1 / 0.3e1 * t15128 - 0.8e1 / 0.9e1 * t15132 + 0.8e1 * t15136 - 0.12e2 * t15140;
11842   t15824 = -0.16e2 / 0.9e1 * t15143 + 0.8e1 / 0.9e1 * t15145 + 0.8e1 / 0.3e1 * t15147 - 0.8e1 / 0.3e1 * t15149 + 0.16e2 / 0.9e1 * t15151 + 0.112e3 / 0.81e2 * t15153 - 0.8e1 / 0.9e1 * t15155 - 0.16e2 / 0.27e2 * t15157 + 0.40e2 / 0.81e2 * t15159 + 0.4e1 / 0.9e1 * t15161 - 0.80e2 / 0.81e2 * t15170 - t15174 / 0.3e1;
11843   t15825 = t15811 + t15824;
11844   t15830 = 0.15883762500000000000e2 * t4313 * t1392 * t1400 - 0.70594500000000000000e1 * t1391 * t4334 * t421 - 0.94674375000000000000e0 * t4317 * t1392 * t1400 + 0.94674375000000000000e0 * t1408 * t15710 + 0.23668593750000000000e0 * t15778 * t15760 - 0.37510200000000000000e1 * t216 * t435 * t15138 - 0.27785333333333333334e0 * t216 * t4261 * t15113 + 0.83356000000000000000e0 * t216 * t435 * t15102 - 0.13892666666666666667e0 * t216 * t1421 * t15130 + 0.12503400000000000000e1 * t216 * t1421 * t15122 - 0.16671200000000000000e1 * t15796 + 0.27785333333333333333e0 * t15798 + 0.35297250000000000000e1 * t419 * t15825 + 0.63116250000000000000e0 * t426 * t15825;
11845   t15832 = t15716 + t15742 + t15766 + t15830;
11846   t15838 = 0.16e2 * t558 * t4888;
11847   t15842 = 0.24e2 * t229 * t235 * t238 * t266;
11848   t15843 = -0.48e2 * t15670 + 0.14035736694323150897e2 * t15672 + t15677 - t15366 - t15369 + t15681 + t15685 - 0.50000000000000000001e0 * t115 * t417 * t15832 * t440 - t15838 + t15842 + t15372;
11849   t15845 = 0.120e3 * t1565 * t1710;
11850   t15855 = 0.1e1 / t1452 / t1221;
11851   t15866 = t239 * t108;
11852   t15869 = 0.19263893255070628431e1 * t15866 * t4860 * t4800;
11853   t15872 = 0.13012297560362087810e0 * t15866 * t4845 * t4796;
11854   t15873 = t15845 - 0.12000000000000000000e2 * t395 * t4525 - 0.12000000000000000000e2 * t413 * t4525 - 0.57895126195293126241e3 * t115 * t4357 * t15623 * t1456 + 0.12414243100625616072e5 * t115 * t15855 * t15623 * t4361 - 0.96491876992155210402e2 * t1379 * t1584 - 0.19298375398431042080e3 * t1382 * t1584 + t230 * t14697 * t266 + t15869 - t15872 + t15383 + t15397;
11855   t15876 = 0.480e3 * t4450 * t599;
11856   t15877 = t4450 * t566;
11857   t15879 = t1568 * t1526;
11858   t15881 = t1565 * t1560;
11859   t15884 = t225 * t1564 * t267;
11860   t15885 = 0.1440e4 * t15884;
11861   t15886 = t14675 * t267;
11862   t15887 = 0.384e3 * t15886;
11863   t15894 = t1452 * t1452;
11864   t15895 = 0.1e1 / t15894;
11865   t15897 = t1455 * t1455;
11866   t15898 = 0.1e1 / t15897;
11867   t15904 = -t15876 - 0.480e3 * t15877 + 0.72e2 * t15879 + 0.240e3 * t15881 + t15885 - t15887 - 0.41380810335418720240e4 * t395 * t4483 - 0.96491876992155210402e2 * t1265 * t1584 - 0.41380810335418720240e4 * t413 * t4483 - 0.99822801518023203660e5 * t115 * t15895 * t15623 * t15898 + 0.12000000000000000000e2 * t1382 * t1580;
11868   t15925 = 0.13012297560362087810e0 * t1734 * t526 * t4534;
11869   t15926 = 0.60000000000000000000e1 * t1265 * t1580 + 0.60000000000000000000e1 * t1379 * t1580 - 0.20000000000000000000e1 * t4944 * t626 - 0.60000000000000000000e1 * t4947 * t626 - 0.60000000000000000000e1 * t4916 * t626 - 0.20000000000000000000e1 * t4931 * t626 - 0.20000000000000000000e1 * t4935 * t618 - 0.60000000000000000000e1 * t4938 * t618 - 0.60000000000000000000e1 * t4941 * t618 - t15403 + t15925 + t15427;
11870   t15933 = t323 * t431 * t1745;
11871   t15936 = t323 * t431 * t1749;
11872   t15939 = t1754 * t431 * t1758;
11873   t15941 = t325 * t4154;
11874   t15954 = t1756 * t1190;
11875   t15959 = t5277 * t373;
11876   t15968 = t15107 * t7;
11877   t15969 = t15968 * t13;
11878   t15971 = 0.1e1 / t20 / t1248;
11879   t15972 = t15971 * t60;
11880   t15977 = (t14710 + t14743 + t14776 + t14851 + t14889 + t14928 + t14957 + t15076 + t15436 + t15615 + t15642 + t15667 + t15843 + t15873 + t15904 + t15926) * t310 + t15933 / 0.12e2 + t15936 / 0.24e2 + t15939 / 0.18e2 - t323 * t18 * t15941 * t314 / 0.8e1 - 0.3e1 / 0.16e2 * t323 * t18 * t5238 * t1111 - t323 * t18 * t1744 * t4270 / 0.8e1 - t1754 * t18 * t15954 * t1249 / 0.4e1 - 0.7e1 / 0.18e2 * t5275 * t18 * t15959 * t4180 - t323 * t18 * t326 * t14677 / 0.32e2 - 0.35e2 / 0.108e3 * t15969 * t18 * t15972 * t14664;
11881   t15978 = t15028 * t7;
11882   t15979 = t15978 * t13;
11883   t15981 = 0.1e1 / t69 / t1359;
11884   t15982 = t15981 * t102;
11885   t15987 = t4606 * t7;
11886   t15988 = t15987 * t13;
11887   t15994 = t387 * t127 * t5252;
11888   t16001 = t387 * t1415 * t391;
11889   t16004 = t387 * t431 * t1439;
11890   t16007 = t1444 * t431 * t1448;
11891   t16010 = t323 * t1415 * t327;
11892   t16012 = tau[0] * t4092;
11893   t16014 = 0.616e3 / 0.27e2 * t48 * t16012;
11894   t16016 = 0.12320e5 / 0.81e2 * t16012 * t94;
11895   t16017 = t16014 - t16016;
11896   t16021 = 0.1e1 / t24 / t337;
11897   t16022 = sigma[0] * t16021;
11898   t16029 = 0.1e1 / t1180;
11899   t16030 = t343 * t16029;
11900   t16039 = 0.1e1 / t23 / t345;
11901   t16040 = t33 * t16039;
11902   t16054 = t276 * t1801;
11903   t16056 = 0.1e1 / t24 / t5344;
11904   t16057 = t1179 * t16056;
11905   t16060 = 0.2535e1 * t16017 * t297 - 0.36605457777777777778e-2 * t633 * t16022 - 0.13190531200000000000e-3 * t636 * t16022 + 0.39571593600000000000e-6 * t641 * t16022 + 0.11492388864000000000e-9 * t5022 * t16030 + 0.20280e2 * t1764 * t4998 * t653 + 0.60840e2 * t5175 * t5031 - 0.72350971733333333333e-3 * t1794 * t16040 + 0.71029347840000000000e-5 * t1797 * t16040 - 0.14205869568000000000e-7 * t1802 * t16040 - 0.91260e2 * t5050 * t1765 * t1820 + 0.11173459968000000000e-4 * t5014 * t16030 - 0.68954333184000000000e-7 * t5017 * t16030 - 0.32968507392000000000e-7 * t16054 * t16057;
11906   t16061 = t283 * t5021;
11907   t16066 = t284 / t639 / t286;
11908   t16078 = t4074 * t653;
11909   t16113 = 0.16716201984000000000e-9 * t16061 * t16057 - 0.25074302976000000000e-12 * t16066 * t16057 - 0.61082208000000000000e-4 * t1844 * t5141 * t1127 - 0.29319459840000000000e-5 * t1844 * t5145 * t4067 + 0.35538739200000000000e-3 * t5125 * t5129 * t1155 - 0.42646487040000000000e-5 * t1839 * t5069 * t16078 + 0.85292974080000000000e-8 * t1844 * t5073 * t16078 - 0.13030871040000000000e-2 * t1849 * t1780 * t4066 * t648 - 0.17769369600000000000e-3 * t1839 * t5141 * t1155 - 0.11105856000000000000e-4 * t1853 * t287 * t4991 * t334 + 0.17769369600000000000e-3 * t1849 * t5102 * t1155 - 0.39981081600000000000e-6 * t1853 * t640 * t1827 * t1155 + 0.42646487040000000000e-5 * t1849 * t5106 * t4075 - 0.85292974080000000000e-8 * t1853 * t1801 * t648 * t4075 - 0.24988176000000000000e-1 * t5038 * t1776 * t5031;
11910   t16115 = t306 * t4991;
11911   t16119 = t306 * t4998;
11912   t16127 = t333 * t1827;
11913   t16128 = t9009 * t16127;
11914   t16131 = t1820 * sigma[0];
11915   t16132 = t16131 * t5007;
11916   t16135 = t5006 * t16127;
11917   t16138 = t1774 * t1794;
11918   t16139 = t653 * t33;
11919   t16140 = t1154 * t648;
11920   t16141 = t16139 * t16140;
11921   t16145 = t5006 * t333 * t1820;
11922   t16156 = t16030 * t287;
11923   t16159 = t16040 * t306;
11924   t16165 = 0.37019520000000000000e-2 * t1849 * t16115 * t334 - 0.37019520000000000000e-2 * t1839 * t16119 * t334 + 0.11105856000000000000e-4 * t1844 * t287 * t4998 * t334 + 0.22211712000000000000e-1 * t5777 * t16128 - 0.33317568000000000000e-1 * t5011 * t16132 - 0.33317568000000000000e-1 * t5011 * t16135 - 0.10661621760000000000e-2 * t16138 * t16141 + 0.44423424000000000000e-1 * t5797 * t16145 + 0.99952704000000000000e-4 * t5005 * t16132 - 0.13327027200000000000e-3 * t5801 * t16145 - 0.66635136000000000000e-4 * t5782 * t16128 + 0.99952704000000000000e-4 * t5005 * t16135 + 0.86872473600000000000e-3 * t305 * t16156 - 0.89486691555555555555e-1 * t305 * t16159 - 0.17352900000000000000e-3 * t656 * t307 * t16017;
11925   t16168 = t5158 * t661;
11926   t16174 = t4066 * t306;
11927   t16181 = t1812 * t33;
11928   t16185 = t1764 * t33;
11929   t16213 = -0.20823480000000000000e-2 * t5559 * t1828 + 0.41646960000000000000e-2 * t16168 * t663 - 0.27764640000000000000e-2 * t2165 * t16119 * t653 + 0.10859059200000000000e0 * t5045 * t16174 * t648 - 0.10859059200000000000e0 * t5077 * t16174 * t653 - 0.59231232000000000000e-1 * t16181 * t5046 * t1765 - 0.29615616000000000000e-1 * t16185 * t5046 * t1806 - 0.78185226240000000000e-5 * t666 * t5069 * t16029 + 0.15637045248000000000e-7 * t671 * t5073 * t16029 - 0.14807808000000000000e-1 * t5045 * t5046 * t1827 - 0.12494088000000000000e-1 * t5038 * t5059 * t1765 - 0.13882320000000000000e-2 * t2153 * t16115 * t648 + 0.89738058666666666667e-4 * t671 * t672 * t16021 - 0.29912686222222222222e-1 * t666 * t667 * t16021 - 0.24161406720000000000e-5 * t671 * t1784 * t16039;
11930   t16219 = t295 * t1811;
11931   t16220 = t16219 * t283;
11932   t16224 = t300 * t4981;
11933   t16225 = t16224 * t283;
11934   t16252 = t5159 * t276;
11935   t16255 = t5159 * t283;
11936   t16258 = t656 * t343;
11937   t16259 = t4074 * t287;
11938   t16263 = t662 * t343;
11939   t16270 = 0.10738402986666666667e-2 * t666 * t1780 * t16039 - 0.24988176000000000000e-1 * t16220 * t5052 * t1765 + 0.41646960000000000000e-1 * t16225 * t1776 * t4983 + 0.62470440000000000000e-2 * t5051 * t5052 * t1820 + 0.31235220000000000000e-2 * t1775 * t5059 * t1820 + 0.20823480000000000000e-1 * t5624 * t5111 * t1820 + 0.15163195392000000000e-7 * t666 * t1801 * t1179 * t16056 - 0.28430991360000000000e-10 * t671 * t5021 * t1179 * t16056 + 0.14807808000000000000e-1 * t5077 * t5046 * t1820 + 0.20823480000000000000e-2 * t1775 * t16115 * t653 + 0.74039040000000000000e-2 * t16252 * t668 - 0.22211712000000000000e-4 * t16255 * t673 - 0.47384985600000000000e-3 * t16258 * t16259 * t648 + 0.47384985600000000000e-3 * t16263 * t16259 * t653 + 0.20823480000000000000e-2 * t1775 * t16119 * t648;
11940   t16273 = t301 / t660 / t303;
11941   t16274 = t1765 * t1765;
11942   t16278 = t1820 * t1820;
11943   t16282 = t16014 + t16016;
11944   t16286 = t16057 * t640;
11945   t16289 = t5050 * t633;
11946   t16291 = t5006 * t333 * t1806;
11947   t16294 = t5006 * t5092;
11948   t16297 = t5050 * t636;
11949   t16302 = t1774 * t1797;
11950   t16305 = t5037 * t633;
11951   t16306 = t648 * t1765;
11952   t16307 = t16306 * t334;
11953   t16310 = t5037 * t636;
11954   t16320 = -0.20823480000000000000e-1 * t16273 * t307 * t16274 - 0.20823480000000000000e-2 * t1812 * t307 * t16278 + 0.17352900000000000000e-3 * t662 * t307 * t16282 - 0.18953994240000000000e-5 * t305 * t16286 - 0.66635136000000000000e-1 * t16289 * t16291 + 0.12216441600000000000e0 * t5011 * t16294 + 0.19990540800000000000e-3 * t16297 * t16291 - 0.36649324800000000000e-3 * t5005 * t16294 + 0.23988648960000000000e-5 * t16302 * t16141 + 0.13327027200000000000e0 * t16305 * t16307 - 0.39981081600000000000e-3 * t16310 * t16307 + 0.15210e2 * t1764 * t16278 + 0.12201819259259259259e1 * t16022 * t280 + 0.60840e2 * t16219 * t16274 - 0.31933440000000000000e-3 * t16156;
11955   t16322 = t1827 * t304;
11956   t16325 = t648 * t661;
11957   t16335 = t4991 * t651;
11958   t16339 = t1827 * t1827;
11959   t16355 = t4982 * t276;
11960   t16363 = 0.30420e2 * t16322 * t1765 - 0.60840e2 * t16325 * t4983 - 0.2535e1 * t652 * t16282 + 0.17027235840000000000e-5 * t16286 - 0.15210e2 * t5162 * t1820 - 0.10140e2 * t1836 * t4998 - 0.10140e2 * t16335 * t653 - 0.21901752888888888890e-1 * t16159 - 0.10411740000000000000e-2 * t1764 * t307 * t16339 + 0.24432883200000000000e-3 * t2165 * t5118 * t1127 + 0.19003353600000000000e-3 * t1844 * t1845 * t4093 - 0.40721472000000000000e-1 * t5125 * t5052 * t1127 + 0.12216441600000000000e-3 * t2153 * t5129 * t1127 - 0.74039040000000000000e-1 * t16355 * t306 * t4983 * t334 - 0.81442944000000000000e-1 * t5110 * t5111 * t1127;
11961   t16381 = t4092 * t648;
11962   t16396 = t653 * t1827;
11963   t16400 = t1774 * t33;
11964   t16417 = -0.63344512000000000000e-1 * t1839 * t1840 * t4093 + 0.22211712000000000000e-3 * t5624 * t287 * t4983 * t334 + 0.61082208000000000000e-4 * t1853 * t5102 * t1127 - 0.79962163200000000000e-6 * t2153 * t640 * t1806 * t1155 + 0.29319459840000000000e-5 * t1853 * t5106 * t4067 + 0.63344512000000000000e-1 * t1849 * t667 * t16381 - 0.19003353600000000000e-3 * t1853 * t672 * t16381 + 0.39981081600000000000e-6 * t1844 * t640 * t1820 * t1155 - 0.20360736000000000000e-1 * t1849 * t667 * t1126 * t1827 + 0.12494088000000000000e-1 * t5051 * t1776 * t16396 + 0.88846848000000000000e-1 * t16400 * t5046 * t5628 + 0.71077478400000000000e-3 * t5110 * t5118 * t1155 + 0.20360736000000000000e-1 * t1839 * t5133 * t1127 + 0.13030871040000000000e-2 * t1839 * t1845 * t4067 - 0.15992432640000000000e-5 * t2165 * t640 * t1765 * t1155;
11965   t16428 = -0.35e2 / 0.108e3 * t15979 * t18 * t15982 * t14682 + 0.7e1 / 0.9e1 * t15988 * t18 * t5287 * t14682 - t15994 / 0.24e2 - t387 * t18 * t390 * t14693 / 0.32e2 - 0.5e1 / 0.108e3 * t16001 + t16004 / 0.24e2 + t16007 / 0.18e2 - 0.5e1 / 0.108e3 * t16010 + t275 * (t16060 + t16113 + t16165 + t16213 + t16270 + t16320 + t16363 + t16417) + 0.4e1 * t4974 * t676 - 0.30000000000000000000e1 * t1223 * t14703 * t440 * t158;
11966   t16433 = t115 * t15895;
11967   t16438 = t1134 * t1134;
11968   t16439 = t16438 * t1285;
11969   t16440 = t16439 * t154;
11970   t16442 = t16012 * t55;
11971   t16444 = t16057 * t1326;
11972   t16446 = t4139 * rho[0];
11973   t16449 = t4138 / t23 / t16446;
11974   t16450 = t16449 * t5330;
11975   t16455 = t1179 * t33 / t4139 / t34;
11976   t16457 = 0.1e1 / t1325 / t139;
11977   t16458 = t16455 * t16457;
11978   t16460 = t16040 * t140;
11979   t16462 = t16030 * t448;
11980   t16464 = t4051 * t346;
11981   t16465 = t16464 * t148;
11982   t16467 = t1134 * t1154;
11983   t16468 = t16467 * t355;
11984   t16470 = t53 * t469;
11985   t16471 = t16470 * t16439;
11986   t16473 = t4097 * t16464;
11987   t16475 = t356 * t16012;
11988   t16477 = t1133 * t16467;
11989   t16479 = t4097 * t343;
11990   t16480 = 0.1e1 / t16446;
11991   t16482 = t16480 * t448 * t4051;
11992   t16485 = t1133 * t1179;
11993   t16487 = 0.1e1 / t4139 / t22;
11994   t16489 = t16487 * t1326 * t1134;
11995   t16492 = -0.10496296296296296296e4 * t16440 + 0.43104790123456790123e3 * t16442 - 0.69156598518518518523e2 * t16444 + 0.11706671407407407408e2 * t16450 - 0.72041054814814814814e0 * t16458 - 0.15316345679012345679e3 * t16460 + 0.17380021728395061729e3 * t16462 + 0.25191111111111111112e4 * t16465 - 0.19033283950617283951e4 * t16468 - 0.10496296296296296296e4 * t16471 + 0.25191111111111111111e4 * t16473 + 0.43104790123456790123e3 * t16475 - 0.19033283950617283950e4 * t16477 - 0.12607004444444444445e4 * t16479 * t16482 - 0.13992618666666666667e3 * t16485 * t16489;
11996   t16493 = t1315 * t1179;
11997   t16497 = t5346 * t140 * t4051;
11998   t16503 = t5357 * t448 * t1134;
11999   t16507 = t4086 * t448 * tau[0];
12000   t16513 = t1182 * t140 * t1134;
12001   t16533 = t4141 * t1326 * tau[0];
12002   t16536 = -0.69781504000000000000e3 * t16493 * t16489 + 0.35577920000000000000e5 * t5413 * t16497 + 0.42291614814814814815e5 * t5417 * t16497 + 0.12553270044444444445e5 * t5343 * t16503 - 0.42716355318518518518e4 * t1319 * t16507 - 0.99301927822222222223e4 * t1290 * t16507 - 0.43262682074074074075e5 * t1283 * t16513 - 0.19629890370370370370e5 * t1303 * t16513 - 0.59274287407407407407e4 * t1312 * t16513 - 0.29560220444444444444e5 * t1316 * t16513 + 0.16894577777777777778e5 * t5373 * t16497 + 0.56958862222222222225e4 * t5378 * t16503 + 0.11031128888888888889e5 * t5384 * t16497 + 0.17199260444444444445e4 * t5387 * t16503 - 0.56585572503703703707e4 * t1306 * t16507 + 0.86754235733333333333e3 * t5391 * t16533;
12003   t16542 = 0.1e1 / t4139 / t331;
12004   t16544 = t16542 * t5330 * tau[0];
12005   t16557 = t144 * t1301;
12006   t16558 = t16557 * t33;
12007   t16559 = 0.1e1 / t4139;
12008   t16561 = t16559 * t140 * t16438;
12009   t16564 = t5412 * t343;
12010   t16567 = t145 * t5371;
12011   t16568 = t16567 * t33;
12012   t16571 = t153 * t153;
12013   t16573 = t152 / t16571;
12014   t16574 = t16573 * t33;
12015   t16577 = t5372 * t343;
12016   t16580 = t5416 * t343;
12017   t16583 = t1302 * t1179;
12018   t16586 = t1282 * t1179;
12019   t16590 = t4074 * t140 * tau[0];
12020   t16593 = 0.20167598080000000000e4 * t5354 * t16533 - 0.59701839644444444444e2 * t453 * t4138 * t16544 - 0.13878777173333333333e3 * t460 * t4138 * t16544 + 0.11492174506666666667e4 * t5381 * t16533 - 0.79085932088888888890e2 * t470 * t4138 * t16544 + 0.85773098666666666668e4 * t5351 * t16503 - 0.13605555555555555556e5 * t16558 * t16561 - 0.40660480000000000000e4 * t16564 * t16482 - 0.14345000000000000000e5 * t16568 * t16561 - 0.52795555555555555555e4 * t16574 * t16561 - 0.19308088888888888889e4 * t16577 * t16482 - 0.48333274074074074076e4 * t16580 * t16482 - 0.46339413333333333334e3 * t16583 * t16489 - 0.10212829866666666667e4 * t16586 * t16489 + 0.17015281422222222222e5 * t461 * t16590;
12021   t16596 = t16470 * t33;
12022   t16603 = t148 * t343 * t448;
12023   t16618 = t4051 * t5346;
12024   t16631 = t154 * t33 * t140;
12025   t16634 = 0.96958786370370370371e4 * t471 * t16590 - 0.51464444444444444444e4 * t16596 * t16561 + 0.73194027851851851851e4 * t454 * t16590 - 0.97170962962962962967e2 * t4051 * t16480 * t16603 + 0.12935398589629629630e3 * t149 * t16450 - 0.79602452859259259257e1 * t149 * t16458 + 0.12851463964444444444e3 * t155 * t16450 - 0.79085932088888888886e1 * t155 * t16458 + 0.19204221313580246914e4 * t149 * t16462 + 0.19079609837037037038e4 * t155 * t16462 + 0.85024592592592592594e3 * t16618 * t5323 - 0.16814127407407407407e4 * t155 * t16460 - 0.16923942716049382716e4 * t149 * t16460 - 0.76415245274074074074e3 * t149 * t16444 - 0.75919405511111111113e3 * t155 * t16444 - 0.60633333333333333332e3 * t16438 * t16559 * t16631;
12026   t16661 = t115 * t15855;
12027   t16666 = 0.41380810335418720240e4 * t4358 * t4362 * t478 + 0.99822801518023203660e5 * t16433 * t15623 * t15898 * t158 - 0.15545350000000000000e-1 * t115 * t136 * (t16492 + t16536 + t16593 + t16634) + 0.60000000000000000000e1 * t5224 * t1507 + 0.50000000000000000001e0 * t502 * t15590 * t521 * t202 - 0.3e1 / 0.32e2 * t14693 * t7 * t13 * t104 - 0.3e1 / 0.32e2 * t14677 * t7 * t13 * t62 - 0.3e1 / 0.8e1 * t4399 * t375 - 0.9e1 / 0.16e2 * t1113 * t1192 + 0.12000000000000000000e2 * t1454 * t4389 * t478 - 0.12414243100625616072e5 * t16661 * t15623 * t4361 * t158;
12028   t16681 = t4234 * t1249;
12029   t16701 = 0.20000000000000000000e1 * t1205 * t5228 + 0.20000000000000000000e1 * t1208 * t5228 - t2256 * t2257 * t373 * t1111 * t314 / 0.2e1 - t2256 * t2257 * t60 * t4270 * t314 / 0.6e1 - 0.7e1 / 0.12e2 * t6645 * t6646 * t16681 + 0.60000000000000000000e1 * t5199 * t1464 + 0.12000000000000000000e2 * t4193 * t5209 - 0.12000000000000000000e2 * t5215 * t5189 + 0.50000000000000000001e0 * t418 * t15832 * t440 * t158 + 0.20000000000000000000e1 * t1461 * t4353 + 0.30000000000000000000e1 * t4196 * t1433 + 0.30000000000000000000e1 * t5205 * t1507;
12030   t16704 = t497 * t4711;
12031   t16709 = t395 * t4491;
12032   t16716 = t4263 * t7;
12033   t16717 = t16716 * t13;
12034   t16727 = t16040 * t40;
12035   t16755 = t16030 * t349;
12036   t16761 = t16057 * t1185;
12037   t16769 = t16449 * t4144;
12038   t16772 = t16022 * t30;
12039   t16779 = -0.10005925925925925926e2 * tau[0] * t4066 * t361 - 0.88692527407407407408e-1 * t56 * t16727 + 0.13947654320987654322e2 * t1134 * t1160 * t1169 - 0.90962962962962962966e1 * t4051 * t1293 * t4054 - 0.62582518518518518521e-1 * t1134 * t1182 * t4059 + 0.22740740740740740741e1 * t16438 * t5320 * t154 * sigma[0] * t30 + 0.14554074074074074075e-1 * t16618 * t5322 * t40 + 0.93146074074074074080e-4 * t1134 * t5357 * t355 * t343 * t349 + 0.10614771358024691358e0 * tau[0] * t4074 * t1174 + 0.79577795950617283955e-3 * t56 * t16755 - 0.42847194074074074077e-3 * tau[0] * t4086 * t4081 - 0.29210608829629629633e-5 * t56 * t16761 + 0.59613487407407407413e-6 * tau[0] * t4141 * t55 * t1179 * t1185 + 0.38152631940740740746e-8 * t56 * t16769 + 0.31752138271604938272e1 * t56 * t16772 + 0.77037037037037037040e2 * t16440 - 0.31636543209876543210e2 * t16442 - 0.18488888888888888889e3 * t16465 + 0.13969382716049382716e3 * t16468;
12040   t16805 = t16470 * sigma[0];
12041   t16831 = 0.1e1 / t1184 / t39;
12042   t16835 = 0.13947654320987654321e2 * t1138 * t1160 * t30 * t1134 - 0.90962962962962962966e1 * t4098 * t1293 * t30 * t4051 - 0.62582518518518518522e-1 * t1312 * t1182 * t40 * t1134 + 0.10614771358024691358e0 * t1143 * t4074 * t40 * tau[0] - 0.42847194074074074076e-3 * t4107 * t4086 * t349 * tau[0] + 0.59613487407407407413e-6 * t356 * t1179 * t4141 * t1185 * tau[0] + 0.22740740740740740741e1 * t16805 * t5320 * t30 * t16438 + 0.14554074074074074075e-1 * t5384 * t5346 * t40 * t4051 + 0.93146074074074074080e-4 * t5387 * t5357 * t349 * t1134 - 0.10005925925925925926e2 * t364 * t4066 * t30 * tau[0] + 0.77037037037037037040e2 * t16471 - 0.18488888888888888889e3 * t16473 - 0.31636543209876543210e2 * t16475 + 0.13969382716049382716e3 * t16477 + 0.24996415209876543211e-1 * t16727 - 0.10858326344691358026e-2 * t16755 + 0.10094902082370370371e-4 * t16761 - 0.36764783350518518523e-7 * t16769 + 0.47249611282962962969e-10 * t16455 * t16831 + 0.13528272592592592592e1 * t16772;
12043   t16841 = t395 * t4357;
12044   t16844 = t413 * t4357;
12045   t16851 = 0.41380810335418720240e4 * t16704 * t5233 + 0.6e1 * t1739 * t1859 - 0.38596750796862084160e3 * t16709 * t5194 + t4179 * t18 * t5265 * t4180 / 0.2e1 + 0.7e1 / 0.9e1 * t16717 * t18 * t5278 * t14664 - 0.3e1 / 0.8e1 * t316 * t4156 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (t16779 + t16835) + 0.41380810335418720240e4 * t16841 * t4363 + 0.41380810335418720240e4 * t16844 * t4363 + 0.4e1 * t629 * t5180 + 0.30000000000000000000e1 * t4385 * t1507;
12046   t16852 = t482 * t4711;
12047   t16855 = t166 * t15596;
12048   t16876 = t1113 * t1202;
12049   t16878 = t316 * t4169;
12050   t16880 = 0.41380810335418720240e4 * t16852 * t5233 + 0.99822801518023203660e5 * t16855 * t14796 * t15599 * t202 + 0.60000000000000000000e1 * t1387 * t5202 + 0.60000000000000000000e1 * t1387 * t4228 + 0.19298375398431042080e3 * t4201 * t4379 + 0.19298375398431042080e3 * t4193 * t4379 + 0.19298375398431042080e3 * t4223 * t4368 + 0.18000000000000000000e2 * t1454 * t1225 * t4367 - 0.12000000000000000000e2 * t1223 * t1432 * t6621 + t16876 / 0.8e1 + t16878 / 0.4e1;
12051   t16883 = t14 * t1415 * t374;
12052   t16890 = t1346 * t1212;
12053   t16895 = t478 * t1431;
12054   t16900 = t323 * t127 * t5239;
12055   t16903 = t5275 * t127 * t5279;
12056   t16906 = t5284 * t127 * t5288;
12057   t16909 = t323 * t127 * t5261;
12058   t16912 = t1754 * t127 * t5266;
12059   t16914 = -0.5e1 / 0.36e2 * t16883 + 0.20000000000000000000e1 * t418 * t4352 * t478 + 0.12000000000000000000e2 * t4382 * t1464 + 0.19298375398431042080e3 * t16890 * t1218 + 0.60000000000000000000e1 * t4196 * t1464 + 0.19298375398431042080e3 * t1454 * t4366 * t16895 - t16900 / 0.8e1 - 0.7e1 / 0.54e2 * t16903 - 0.7e1 / 0.54e2 * t16906 - t16909 / 0.8e1 - t16912 / 0.6e1;
12060   t16916 = t323 * t127 * t5270;
12061   t16927 = t413 * t4491;
12062   t16930 = t1343 * t1212;
12063   t16946 = -t16916 / 0.24e2 + 0.60000000000000000000e1 * t1461 * t5202 + 0.20000000000000000000e1 * t418 * t441 * t5431 - 0.12000000000000000000e2 * t4217 * t14796 * t521 * t202 - 0.38596750796862084160e3 * t16927 * t5194 + 0.96491876992155210402e2 * t16930 * t1218 + 0.18000000000000000000e2 * t1213 * t1232 * t4371 - 0.18654420000000000000e0 * t4941 * t479 - 0.15545350000000000000e-1 * t15178 * t159 - 0.62181400000000000000e-1 * t4913 * t479 - 0.93272100000000000000e-1 * t1265 * t1340 - 0.18654420000000000000e0 * t4938 * t479;
12064   t16964 = t1265 * t1222;
12065   t16977 = -0.18654420000000000000e0 * t1382 * t1340 - 0.62181400000000000000e-1 * t413 * t5432 - 0.93272100000000000000e-1 * t1379 * t1340 - 0.62181400000000000000e-1 * t395 * t5432 - 0.93272100000000000000e-1 * t15080 * t159 - 0.62181400000000000000e-1 * t15092 * t159 + 0.30000000000000000000e1 * t5199 * t1433 - 0.60000000000000000000e1 * t16964 * t1226 - 0.12000000000000000000e2 * t4212 * t4372 - t1754 * t18 * t1757 * t14670 / 0.8e1 - t5275 * t18 * t1757 * t14664 / 0.2e1;
12066   t16979 = t4179 * t127 * t4181;
12067   t16993 = t4187 * t127 * t4189;
12068   t16995 = t202 * t4705;
12069   t17005 = t1376 * t1212;
12070   t17008 = t4935 * t417;
12071   t17011 = t16979 / 0.6e1 - 0.12000000000000000000e2 * t5212 * t4375 + 0.62071215503128080360e4 * t5231 * t1214 * t4714 * t4371 - 0.12000000000000000000e2 * t4231 * t4372 - 0.57895126195293126241e3 * t4217 * t1217 * t4371 + t16993 / 0.6e1 + 0.64327917994770140268e2 * t1213 * t4378 * t16995 - 0.57895126195293126241e3 * t5192 * t1457 * t4367 + 0.62071215503128080360e4 * t4358 * t15630 * t4367 + 0.96491876992155210402e2 * t17005 * t1218 + 0.20000000000000000000e1 * t17008 * t442;
12072   t17013 = t4938 * t417;
12073   t17019 = t1379 * t1453;
12074   t17022 = t1382 * t1453;
12075   t17025 = t1382 * t1222;
12076   t17028 = t1379 * t1222;
12077   t17031 = t1343 * t1230;
12078   t17037 = t1265 * t1453;
12079   t17046 = 0.60000000000000000000e1 * t17013 * t442 + 0.96491876992155210402e2 * t1454 * t1457 * t1339 + 0.96491876992155210402e2 * t17019 * t1458 + 0.19298375398431042080e3 * t17022 * t1458 - 0.12000000000000000000e2 * t17025 * t1226 - 0.60000000000000000000e1 * t17028 * t1226 - 0.60000000000000000000e1 * t17031 * t1233 + 0.30000000000000000000e1 * t418 * t1432 * t1339 + 0.96491876992155210402e2 * t17037 * t1458 - 0.30000000000000000000e1 * t1231 * t14791 * t521 * t202 + 0.12000000000000000000e2 * t4223 * t4390;
12080   t17051 = t380 * t4166;
12081   t17055 = 0.5e1 / 0.54e2 * t67 * t4340 * t103;
12082   t17056 = t316 * t4161;
12083   t17060 = 0.5e1 / 0.54e2 * t14 * t4340 * t61;
12084   t17062 = t14 * t127 * t4155;
12085   t17080 = 0.20000000000000000000e1 * t1387 * t4353 + 0.60000000000000000000e1 * t4382 * t1433 - 0.5e1 / 0.36e2 * t17051 + t17055 - 0.5e1 / 0.36e2 * t17056 + t17060 - t17062 / 0.8e1 + 0.57895126195293126241e3 * t4358 * t15623 * t1456 * t158 - 0.60000000000000000000e1 * t1223 * t1225 * t1339 + 0.12000000000000000000e2 * t4201 * t5209 - 0.38596750796862084160e3 * t5192 * t5193 * t478 + 0.64327917994770140268e2 * t1454 * t4351 * t1456 * t2217;
12086   t17103 = t4913 * t417;
12087   t17110 = t2256 * t5844 * t4235;
12088   t17117 = t5219 * t1360;
12089   t17121 = -0.40000000000000000000e1 * t1231 * t5227 * t2224 - 0.40000000000000000000e1 * t1223 * t4352 * t2217 + 0.19298375398431042080e3 * t4209 * t4368 - t1444 * t18 * t1447 * t14688 / 0.8e1 - t5284 * t18 * t1447 * t14682 / 0.2e1 + 0.48245938496077605201e2 * t1454 * t14703 * t1456 * t158 + 0.20000000000000000000e1 * t17103 * t442 + 0.3e1 / 0.4e1 * t6669 * t2257 * t16681 - t17110 / 0.6e1 - t2249 * t2250 * t102 * t4393 * t378 / 0.6e1 - 0.7e1 / 0.12e2 * t5838 * t5839 * t17117;
12090   t17126 = t2249 * t5830 * t5220;
12091   t17144 = t166 * t14875;
12092   t17153 = 0.3e1 / 0.4e1 * t6673 * t2250 * t17117 - t17126 / 0.6e1 - 0.15545350000000000000e-1 * t15083 * t203 - 0.62181400000000000000e-1 * t15086 * t203 - 0.93272100000000000000e-1 * t15181 * t203 - 0.62181400000000000000e-1 * t15089 * t203 - 0.15545350000000000000e-1 * t15067 * t203 - 0.15545350000000000000e-1 * t15070 * t159 - 0.62181400000000000000e-1 * t15073 * t159 - 0.62181400000000000000e-1 * t4935 * t479 - 0.12414243100625616072e5 * t17144 * t14796 * t4714 * t202 + 0.57895126195293126241e3 * t5231 * t14796 * t1216 * t202;
12093   t17163 = t4941 * t417;
12094   t17166 = t482 * t4216;
12095   t17169 = t4944 * t501;
12096   t17172 = t4947 * t501;
12097   t17175 = t4399 * t319;
12098   t17177 = t1113 * t1118;
12099   t17179 = t316 * t4406;
12100   t17181 = t1108 * t1197;
12101   t17183 = 0.12000000000000000000e2 * t4209 * t4390 - 0.12000000000000000000e2 * t5192 * t15623 * t440 * t158 - 0.12000000000000000000e2 * t5212 * t5189 + 0.60000000000000000000e1 * t17163 * t442 - 0.38596750796862084160e3 * t17166 * t4220 + 0.20000000000000000000e1 * t17169 * t523 + 0.60000000000000000000e1 * t17172 * t523 - t17175 / 0.8e1 - 0.3e1 / 0.8e1 * t17177 - 0.3e1 / 0.8e1 * t17179 + t17181 / 0.8e1;
12102   t17185 = t14 * t431 * t1191;
12103   t17187 = t4395 * t383;
12104   t17189 = t4916 * t501;
12105   t17192 = t4931 * t501;
12106   t17195 = t1376 * t1230;
12107   t17198 = t1346 * t1230;
12108   t17207 = t497 * t4216;
12109   t17216 = t17185 / 0.8e1 - t17187 / 0.8e1 + 0.60000000000000000000e1 * t17189 * t523 + 0.20000000000000000000e1 * t17192 * t523 - 0.60000000000000000000e1 * t17195 * t1233 - 0.12000000000000000000e2 * t17198 * t1233 + 0.19298375398431042080e3 * t4223 * t4206 + 0.19298375398431042080e3 * t4209 * t4206 + 0.60000000000000000000e1 * t1461 * t4228 - 0.38596750796862084160e3 * t17207 * t4220 + 0.48245938496077605201e2 * t1213 * t14791 * t1216 * t202 - 0.12000000000000000000e2 * t5215 * t4375;
12110   t17231 = t4191 / 0.2e1 + t3 * (t15977 + t16428 + t16666 + t16701 + t16851 + t16880 + t16914 + t16946 + t16977 + t17011 + t17046 + t17080 + t17121 + t17153 + t17183 + t17216) + 0.19298375398431042080e3 * t4194 + 0.60000000000000000000e1 * t4197 + 0.12000000000000000000e2 * t4199 + 0.19298375398431042080e3 * t4202 + 0.60000000000000000000e1 * t4204 + 0.19298375398431042080e3 * t4207 + 0.19298375398431042080e3 * t4210 - 0.12000000000000000000e2 * t4213 - 0.38596750796862084160e3 * t4221;
12111   t17244 = 0.19298375398431042080e3 * t4224 + 0.60000000000000000000e1 * t4229 - 0.12000000000000000000e2 * t4232 - t4237 / 0.2e1 + 0.20000000000000000000e1 * t4354 + 0.41380810335418720240e4 * t4364 + 0.19298375398431042080e3 * t4369 - 0.12000000000000000000e2 * t4373 - 0.12000000000000000000e2 * t4376 + 0.19298375398431042080e3 * t4380 + 0.12000000000000000000e2 * t4383;
12112   t17256 = 0.60000000000000000000e1 * t4386 + 0.12000000000000000000e2 * t4391 - 0.3e1 / 0.8e1 * t4396 - 0.3e1 / 0.8e1 * t4400 - 0.9e1 / 0.8e1 * t4402 - 0.9e1 / 0.8e1 * t4404 - 0.3e1 / 0.8e1 * t4407 + 0.4e1 * t4975 + 0.12e2 * t4976 + 0.12e2 * t4978 + 0.4e1 * t5181;
12113   t17270 = 0.60000000000000000000e1 * t5182 + 0.60000000000000000000e1 * t5187 - 0.12000000000000000000e2 * t5190 - 0.38596750796862084160e3 * t5195 + 0.12000000000000000000e2 * t5197 + 0.60000000000000000000e1 * t5200 + 0.60000000000000000000e1 * t5203 + 0.60000000000000000000e1 * t5206 + 0.12000000000000000000e2 * t5210 - 0.12000000000000000000e2 * t5213 - 0.12000000000000000000e2 * t5216;
12114   t17282 = -t5222 / 0.2e1 + 0.12000000000000000000e2 * t5225 + 0.20000000000000000000e1 * t5229 + 0.41380810335418720240e4 * t5234 + 0.60000000000000000000e1 * t5236 - 0.3e1 / 0.8e1 * t5241 + t5244 / 0.12e2 - t5247 / 0.8e1 - t5250 / 0.6e1 - t5254 / 0.8e1 - t5257 / 0.4e1;
12115   t17295 = -0.3e1 / 0.8e1 * t5263 - t5268 / 0.2e1 - t5272 / 0.8e1 - 0.7e1 / 0.18e2 * t5281 - 0.7e1 / 0.18e2 * t5290 + t5293 / 0.12e2 - t5296 / 0.8e1 - t5299 / 0.6e1 - 0.18654420000000000000e0 * t5301 - 0.62181400000000000000e-1 * t5303 - 0.18654420000000000000e0 * t5305;
12116   t17307 = -0.37308840000000000000e0 * t5308 - 0.18654420000000000000e0 * t5310 - 0.18654420000000000000e0 * t5312 - 0.62181400000000000000e-1 * t5433 - 0.62181400000000000000e-1 * t5435 - 0.18654420000000000000e0 * t5437 - 0.18654420000000000000e0 * t5439 - 0.62181400000000000000e-1 * t5441 - 0.62181400000000000000e-1 * t5443 - 0.18654420000000000000e0 * t5445 - 0.18654420000000000000e0 * t5447;
12117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12118     v4rho4[0] = -0.3e1 / 0.8e1 * t4157 + t4159 / 0.4e1 - t14634 + t4164 / 0.4e1 - t14636 + t4170 / 0.4e1 - 0.3e1 / 0.8e1 * t4172 - 0.3e1 / 0.8e1 * t4174 - 0.3e1 / 0.4e1 * t4176 + t4183 / 0.2e1 + t17231 + t17244 + t17256 + t17270 + t17282 + t17295 + t17307;
12119 
12120   t17318 = 0.30000000000000000000e1 * t5512 - 0.18654420000000000000e0 * t5515 - t4158 + 0.3e1 / 0.16e2 * t4159 - t14634 + 0.3e1 / 0.16e2 * t4164 - t14636 + 0.3e1 / 0.16e2 * t4170 - 0.3e1 / 0.16e2 * t4172 - 0.3e1 / 0.16e2 * t4174 - 0.3e1 / 0.8e1 * t4176 + t4184 + t4192;
12121   t17322 = t5535 / 0.16e2;
12122   t17324 = -0.18654420000000000000e0 * t5525 + t4195 + t4198 + t4200 + t4203 + t4205 + t4208 + t4211 - t4214 - t4222 - 0.28947563097646563121e3 * t5529 - 0.30000000000000000000e1 * t5532 - t17322 - 0.3e1 / 0.32e2 * t5539;
12123   t17331 = 0.3e1 / 0.16e2 * t5824;
12124   t17332 = 0.3e1 / 0.16e2 * t5826;
12125   t17334 = t5832 / 0.12e2;
12126   t17337 = t5846 / 0.12e2;
12127   t17339 = -t5544 / 0.8e1 - 0.3e1 / 0.32e2 * t5548 - 0.3e1 / 0.8e1 * t5552 + 0.3e1 * t5819 - 0.21e2 / 0.16e2 * t5822 - t17331 - t17332 + 0.21e2 / 0.16e2 * t5828 - t17334 - t5836 / 0.8e1 - 0.7e1 / 0.24e2 * t5842 - t17337 - t5851 / 0.4e1;
12128   t17354 = 0.15000000000000000000e1 * t5853 + 0.30000000000000000000e1 * t5855 - 0.93272100000000000000e-1 * t5858 + 0.93272100000000000000e-1 * t5861 - 0.46636050000000000000e-1 * t5864 - 0.93272100000000000000e-1 * t5867 - 0.93272100000000000000e-1 * t5869 - 0.46636050000000000000e-1 * t5925 - 0.93272100000000000000e-1 * t5929 - 0.46636050000000000000e-1 * t5931 + 0.96491876992155210402e2 * t5933 - 0.60000000000000000000e1 * t5936 + 0.15000000000000000000e1 * t5938 + 0.30000000000000000000e1 * t5940;
12129   t17362 = 0.48245938496077605201e2 * t5943 + 0.96491876992155210402e2 * t5945 + t4225 + t4230 - t4233 - t4238 + 0.18654420000000000000e0 * t5949 - 0.27981630000000000000e0 * t5951 + 0.27981630000000000000e0 * t5953 + t4355 + t4365 + t4370 - t4374;
12130   t17372 = -t4377 + t4381 - 0.3e1 / 0.16e2 * t5956 + t8160 + 0.3e1 / 0.16e2 * t5961 + t8161 + t8162 + 0.30000000000000000000e1 * t5968 + 0.15000000000000000000e1 * t5971 + 0.48245938496077605201e2 * t5975 + 0.15000000000000000000e1 * t5978 - 0.60000000000000000000e1 * t5983 + 0.3e1 * t6497 - t6502 / 0.2e1;
12131   t17382 = t6508 / 0.2e1 + 0.90000000000000000000e1 * t6512 + 0.30000000000000000000e1 * t6514 + t4384 + t4387 + t4392 + 0.15000000000000000000e1 * t6516 + 0.30000000000000000000e1 * t6518 + 0.15000000000000000000e1 * t6522 + 0.15000000000000000000e1 * t6524 + 0.48245938496077605201e2 * t6527 - t4397 - t4401 - t4403;
12132   t17394 = -t4405 - 0.3e1 / 0.16e2 * t4407 + 0.96491876992155210402e2 * t6530 + t4975 - 0.30000000000000000000e1 * t6533 + 0.30000000000000000000e1 * t6535 + 0.30000000000000000000e1 * t6537 + 0.6e1 * t6539 + t4977 + 0.30000000000000000000e1 * t6544 + 0.96491876992155210402e2 * t6547 + 0.96491876992155210402e2 * t6549 + 0.30000000000000000000e1 * t6552 + 0.30000000000000000000e1 * t6555;
12133   t17400 = t115 * t4491 * t766;
12134   t17404 = t115 * t4357 * t766;
12135   t17405 = t4361 * t158;
12136   t17406 = t439 * t1431;
12137   t17421 = -0.28947563097646563120e3 * t17400 * t4368 + 0.31035607751564040180e4 * t17404 * t17405 * t17406 + t15933 / 0.24e2 + t15936 / 0.48e2 + t15939 / 0.36e2 - t15994 / 0.96e2 - 0.5e1 / 0.144e3 * t16001 + t16004 / 0.48e2 + t16007 / 0.36e2 - 0.5e1 / 0.144e3 * t16010 - 0.96491876992155210402e2 * t4217 * t4219 * t830;
12138   t17423 = 0.37308840000000000000e0 * t14675 * t2325;
12139   t17425 = 0.37308840000000000000e0 * t14675 * t2322;
12140   t17428 = t2250 * t102;
12141   t17430 = t689 * t1106 * t378;
12142   t17434 = t5839 * t102;
12143   t17440 = t2063 * t1453;
12144   t17452 = t17423 - t17425 + 0.48245938496077605201e2 * t6707 * t4368 + 0.3e1 / 0.8e1 * t6673 * t17428 * t17430 - 0.7e1 / 0.24e2 * t5838 * t17434 * t17430 + 0.30000000000000000000e1 * t4382 * t2308 + 0.48245938496077605201e2 * t17440 * t1458 + 0.48245938496077605201e2 * t6606 * t4206 + 0.15000000000000000000e1 * t418 * t2311 * t1339 + 0.50000000000000000001e0 * t418 * t767 * t5431 + t4974 * t893;
12145   t17458 = t2048 * t1230;
12146   t17478 = t4268 * t114;
12147   t17481 = 0.48245938496077605201e2 * t4223 * t6651 - 0.30000000000000000000e1 * t5531 * t5189 - 0.30000000000000000000e1 * t17458 * t1233 + 0.15000000000000000000e1 * t5199 * t2312 + 0.90000000000000000000e1 * t4193 * t6511 + 0.31035607751564040180e4 * t16844 * t6660 + 0.90000000000000000000e1 * t1213 * t2278 * t6510 + 0.90000000000000000000e1 * t4201 * t6511 - 0.30000000000000000000e1 * t1223 * t767 * t16895 + 0.96491876992155210402e2 * t1454 * t6027 * t6621 - 0.90000000000000000000e1 * t17478 * t6580;
12148   t17504 = t766 * t15898;
12149   t17505 = t158 * t4359;
12150   t17509 = 0.48245938496077605201e2 * t1454 * t2001 * t16895 + 0.15000000000000000000e1 * t17163 * t768 + 0.50000000000000000001e0 * t17103 * t768 + 0.15000000000000000000e1 * t418 * t6520 * t478 + 0.30000000000000000000e1 * t4382 * t2312 + 0.15000000000000000000e1 * t5199 * t2308 + 0.30000000000000000000e1 * t1461 * t5511 + 0.15000000000000000000e1 * t1461 * t5970 + 0.30000000000000000000e1 * t1387 * t5511 + 0.15000000000000000000e1 * t1387 * t5970 + 0.99822801518023203660e5 * t16433 * t17504 * t17505;
12151   t17523 = t158 * t4351;
12152   t17529 = t2249 * t430 * t1446 * t2252;
12153   t17530 = t17529 / 0.36e2;
12154   t17532 = t2249 * t5830 * t5834;
12155   t17534 = t126 * t5286;
12156   t17536 = t5838 * t17534 * t5840;
12157   t17538 = t1957 * t1446;
12158   t17540 = t2249 * t17538 * t6506;
12159   t17546 = -0.30000000000000000000e1 * t1231 * t1506 * t7046 + 0.3e1 * t629 * t5818 + 0.31035607751564040180e4 * t16841 * t6660 - 0.30000000000000000000e1 * t4231 * t6576 + 0.90000000000000000000e1 * t4223 * t6618 - 0.10000000000000000000e1 * t1223 * t767 * t17523 + t17530 - t17532 / 0.24e2 - 0.7e1 / 0.72e2 * t17536 - 0.7e1 / 0.12e2 * t17540 - t2249 * t2250 * t2251 * t4393 / 0.24e2;
12160   t17551 = t15978 * t2248;
12161   t17552 = t17 * t15981;
12162   t17553 = t2251 * t4188;
12163   t17557 = t1414 * t5286;
12164   t17558 = t6505 * t1360;
12165   t17579 = t1632 * t2040;
12166   t17580 = 0.8e1 / 0.9e1 * t17579;
12167   t17581 = t1632 * t2035;
12168   t17582 = 0.8e1 / 0.27e2 * t17581;
12169   t17583 = t538 * t6112;
12170   t17585 = t538 * t6098;
12171   t17587 = t5884 * t6108;
12172   t17589 = t538 * t6125;
12173   t17591 = t5884 * t6121;
12174   t17594 = t108 * t15006 * t6128;
12175   t17597 = t14997 * t689 * t4188;
12176   t17599 = t207 * t14995 * t17597;
12177   t17602 = t4606 * t2 * t1360;
12178   t17604 = t1929 * t4625 * t17602;
12179   t17607 = t4630 * t2 * t1360;
12180   t17609 = t1929 * t1357 * t17607;
12181   t17611 = t6106 * t1106;
12182   t17613 = t1929 * t1357 * t17611;
12183   t17615 = t2033 * t4393;
12184   t17617 = t207 * t1357 * t17615;
12185   t17619 = t6106 * t1360;
12186   t17621 = t1929 * t489 * t17619;
12187   t17623 = t6119 * t1106;
12188   t17625 = t1929 * t489 * t17623;
12189   t17627 = t2038 * t4393;
12190   t17629 = t207 * t489 * t17627;
12191   t17632 = t107 * t206 * t15;
12192   t17633 = t488 * t1359;
12193   t17635 = t17632 * t17633 * t17430;
12194   t17637 = t1356 * t4630;
12195   t17639 = t17632 * t17637 * t17430;
12196   t17641 = t4624 * t4606;
12197   t17643 = t17632 * t17641 * t17430;
12198   t17645 = t17580 - t17582 + 0.2e1 / 0.9e1 * t17583 + 0.10e2 / 0.27e2 * t17585 - 0.44e2 / 0.9e1 * t17587 - 0.2e1 / 0.3e1 * t17589 + 0.44e2 / 0.3e1 * t17591 - 0.14e2 / 0.3e1 * t17594 - 0.80e2 / 0.81e2 * t17599 + 0.20e2 / 0.9e1 * t17604 - 0.8e1 * t17609 + 0.4e1 / 0.3e1 * t17613 - 0.2e1 / 0.9e1 * t17617 + 0.12e2 * t17621 - 0.4e1 * t17625 + 0.2e1 / 0.3e1 * t17629 - 0.6e1 * t17635 + 0.4e1 * t17639 - 0.10e2 / 0.9e1 * t17643;
12199   t17655 = t6101 * t4188;
12200   t17657 = t207 * t489 * t17655;
12201   t17659 = t6096 * t4188;
12202   t17661 = t207 * t1357 * t17659;
12203   t17663 = t538 * t6103;
12204   t17665 = t538 * t6116;
12205   t17668 = t15028 * t689 * t4188;
12206   t17670 = t207 * t4625 * t17668;
12207   t17673 = t1929 * t489 * t4656;
12208   t17675 = t1929 * t775;
12209   t17678 = t107 * t12 * t14807;
12210   t17679 = t17678 * t2044;
12211   t17682 = t1929 * t1357 * t4651;
12212   t17685 = 0.2e1 / 0.9e1 * t15059 + t15564 + 0.8e1 / 0.9e1 * t15055 - 0.4e1 / 0.9e1 * t15057 + 0.2e1 / 0.3e1 * t15061 + 0.28e2 / 0.27e2 * t14983 - 0.4e1 / 0.9e1 * t14985 - 0.8e1 / 0.27e2 * t14987 + 0.10e2 / 0.81e2 * t14989 + t14991 / 0.9e1 + 0.8e1 * t17657 - 0.8e1 * t17661 - 0.4e1 / 0.3e1 * t17663 + 0.2e1 * t17665 + 0.40e2 / 0.9e1 * t17670 - 0.4e1 * t17673 + 0.28e2 / 0.81e2 * t17675 + 0.98e2 / 0.9e1 * t17679 + 0.4e1 / 0.3e1 * t17682 - 0.2e1 / 0.3e1 * t15063;
12213   t17686 = t17645 + t17685;
12214   t17701 = -0.52945875000000000000e1 * t6231 * t1477 - 0.17648625000000000000e1 * t2066 * t4684 + 0.94674375000000000000e0 * t1485 * t6261 * t505 + 0.79418812500000000000e1 * t4695 * t2074 * t1469 - 0.52945875000000000000e1 * t1468 * t6261 * t505 + t15458 + 0.35297250000000000000e1 * t503 * t17686 - 0.10805407407407407407e0 * t216 * t15483 * t17597 + 0.37510200000000000000e1 * t1959 * t516 * t17619 + 0.55570666666666666666e0 * t216 * t4604 * t17668 - 0.12503400000000000000e1 * t1959 * t1495 * t17607;
12215   t17702 = t545 * t6288;
12216   t17704 = t6322 * t6282;
12217   t17706 = t6322 * t6303;
12218   t17708 = t1641 * t2093;
12219   t17709 = 0.69463333333333333334e0 * t17708;
12220   t17710 = t1641 * t2090;
12221   t17711 = 0.11577222222222222222e0 * t17710;
12222   t17712 = t545 * t6279;
12223   t17714 = t545 * t6285;
12224   t17716 = t545 * t6297;
12225   t17718 = t545 * t6300;
12226   t17727 = t123 * t215 * t16;
12227   t17728 = t70 * t1359;
12228   t17732 = 0.12503400000000000000e1 * t17702 + 0.54181400000000000001e1 * t17704 - 0.90302333333333333335e0 * t17706 + t17709 - t17711 - 0.41678000000000000001e0 * t17712 - 0.41678000000000000001e0 * t17714 + 0.69463333333333333334e-1 * t17716 + 0.92617777777777777778e-1 * t17718 - 0.34731666666666666667e-1 * t216 * t1495 * t17615 + 0.20839000000000000000e0 * t1959 * t1495 * t17611 - 0.18755100000000000000e1 * t17727 * t17728 * t17430;
12229   t17734 = t389 * t4630;
12230   t17738 = t1446 * t4606;
12231   t17742 = 0.13772666666666666666e1 * t17579;
12232   t17743 = 0.45908888888888888888e0 * t17581;
12233   t17750 = t124 * t15455 * t6264;
12234   t17753 = 0.62517000000000000000e0 * t17727 * t17734 * t17430 - 0.13892666666666666667e0 * t17727 * t17738 * t17430 + t17742 - t17743 + 0.34431666666666666666e0 * t17583 + 0.57386111111111111111e0 * t17585 - 0.75749666666666666668e1 * t17587 - 0.10329500000000000000e1 * t17589 + 0.22724900000000000000e2 * t17591 - 0.16671200000000000000e1 * t17750 - 0.72306500000000000001e1 * t17594;
12235   t17770 = -0.12503400000000000000e1 * t216 * t1495 * t17659 + 0.25006800000000000000e1 * t216 * t516 * t17655 - 0.15302962962962962963e1 * t17599 + 0.34431666666666666667e1 * t17604 - 0.12395400000000000000e2 * t17609 + 0.20659000000000000000e1 * t17613 - 0.34431666666666666667e0 * t17617 + 0.18593100000000000000e2 * t17621 - 0.61977000000000000000e1 * t17625 + 0.10329500000000000000e1 * t17629 - 0.92965500000000000000e1 * t17635 + 0.61977000000000000000e1 * t17639;
12236   t17774 = t505 * t1477;
12237   t17787 = -0.17215833333333333333e1 * t17643 + 0.79418812500000000000e1 * t6236 * t17774 - 0.47337187500000000000e0 * t6239 * t17774 + 0.34431666666666666666e0 * t15059 + t15465 + 0.30872592592592592592e-1 * t15466 + 0.41678000000000000001e0 * t15481 - 0.34731666666666666666e0 * t15490 - 0.11577222222222222222e0 * t15492 + 0.69463333333333333333e-1 * t15494 + 0.63116250000000000000e0 * t510 * t17686;
12238   t17810 = 0.27785333333333333334e0 * t1959 * t4604 * t17602 + 0.20839000000000000000e0 * t216 * t516 * t17627 - 0.12503400000000000000e1 * t1959 * t516 * t17623 - 0.13892666666666666667e0 * t15502 + 0.92617777777777777776e0 * t15507 + 0.69463333333333333333e0 * t15511 - 0.66182343750000000000e1 * t15552 * t783 * t4690 + 0.23668593750000000000e0 * t15542 * t783 * t4690 + 0.13772666666666666666e1 * t15055 - 0.68863333333333333332e0 * t15057 + 0.10329500000000000000e1 * t15061 + 0.16068111111111111111e1 * t14983;
12239   t17816 = t1959 * t789;
12240   t17819 = 0.1e1 / t125 / t556;
12241   t17821 = t123 * t11 * t17819;
12242   t17822 = t17821 * t2096;
12243   t17829 = -0.68863333333333333332e0 * t14985 - 0.45908888888888888888e0 * t14987 + 0.19128703703703703703e0 * t14989 + 0.17215833333333333333e0 * t14991 + 0.30872592592592592592e0 * t17816 + 0.44456533333333333333e1 * t17822 - 0.41678000000000000001e0 * t15532 + 0.69463333333333333332e-1 * t15534 + 0.12395400000000000000e2 * t17657 - 0.12395400000000000000e2 * t17661 - 0.20658999999999999999e1 * t17663;
12244   t17850 = 0.30988500000000000000e1 * t17665 + 0.68863333333333333334e1 * t17670 - 0.61977000000000000000e1 * t17673 + 0.53560370370370370369e0 * t17675 + 0.16871516666666666667e2 * t17679 - 0.12503400000000000000e1 * t1959 * t516 * t4656 + 0.20839000000000000000e0 * t1959 * t1495 * t4651 + 0.20659000000000000000e1 * t17682 - 0.47337187500000000000e0 * t4689 * t2074 * t1469 + 0.94674375000000000000e0 * t6242 * t1477 + 0.31558125000000000000e0 * t2082 * t4684 - 0.10329500000000000000e1 * t15063;
12245   t17853 = t17701 + t17732 + t17753 + t17770 + t17787 + t17810 + t17829 + t17850;
12246   t17862 = t1456 * t158;
12247   t17872 = t2249 * t6504 * t6505 * t1106 / 0.4e1 - 0.35e2 / 0.108e3 * t17551 * t17552 * t17553 + 0.7e1 / 0.12e2 * t5838 * t17557 * t17558 + t4187 * t18 * t5541 * t4188 / 0.8e1 + 0.50000000000000000001e0 * t502 * t17853 * t521 * t202 - 0.30000000000000000000e1 * t17195 * t2225 + 0.96491876992155210402e2 * t4223 * t6560 + 0.96491876992155210402e2 * t6064 * t1583 * t17862 - 0.30000000000000000000e1 * t6532 * t4375 - 0.30000000000000000000e1 * t4212 * t6680 - 0.30000000000000000000e1 * t4231 * t6680;
12248   t17874 = t5924 * t417;
12249   t17879 = t5866 * t417;
12250   t17886 = t745 * t4357;
12251   t17898 = 0.15000000000000000000e1 * t17874 * t442 + 0.15000000000000000000e1 * t2264 * t4228 + 0.30000000000000000000e1 * t17879 * t442 + 0.15000000000000000000e1 * t1208 * t6718 + 0.15000000000000000000e1 * t1205 * t6718 + 0.10345202583854680060e4 * t17886 * t4363 - 0.30000000000000000000e1 * t5980 * t1592 * t5981 + 0.48245938496077605201e2 * t4193 * t6615 + 0.15000000000000000000e1 * t2264 * t5202 + t16876 / 0.16e2 + t16878 / 0.8e1;
12252   t17909 = t1929 * t749;
12253   t17911 = t17678 * t1931;
12254   t17914 = t1929 * t1246 * t4239;
12255   t17917 = t1929 * t405 * t4244;
12256   t17920 = t15107 * t680 * t4180;
12257   t17924 = t5892 * t4180;
12258   t17929 = t4278 * t2 * t1249;
12259   t17934 = -0.52945875000000000000e1 * t1391 * t6396 * t421 - 0.52945875000000000000e1 * t6361 * t1400 - 0.17648625000000000000e1 * t1910 * t4334 + 0.53560370370370370369e0 * t17909 - 0.16871516666666666667e2 * t17911 - 0.20659000000000000000e1 * t17914 + 0.61977000000000000000e1 * t17917 + 0.55570666666666666666e0 * t216 * t4261 * t17920 + 0.25006800000000000000e1 * t216 * t435 * t17924 + 0.12503400000000000000e1 * t1959 * t1421 * t17929 + 0.41678000000000000001e0 * t15698;
12260   t17938 = t5887 * t4180;
12261   t17940 = t207 * t1246 * t17938;
12262   t17942 = t538 * t5907;
12263   t17945 = t207 * t4298 * t17920;
12264   t17947 = t538 * t5894;
12265   t17950 = t207 * t405 * t17924;
12266   t17953 = t4263 * t2 * t1249;
12267   t17955 = t1929 * t4298 * t17953;
12268   t17958 = t1929 * t1246 * t17929;
12269   t17960 = t5897 * t1111;
12270   t17962 = t1929 * t1246 * t17960;
12271   t17964 = 0.92617777777777777776e0 * t15703 + 0.69463333333333333333e0 * t15705 - 0.13892666666666666667e0 * t15707 + t15709 - 0.12395400000000000000e2 * t17940 + 0.30988500000000000000e1 * t17942 + 0.68863333333333333334e1 * t17945 - 0.20658999999999999999e1 * t17947 + 0.12395400000000000000e2 * t17950 - 0.34431666666666666667e1 * t17955 + 0.12395400000000000000e2 * t17958 - 0.20659000000000000000e1 * t17962;
12272   t17966 = t1916 * t4270;
12273   t17968 = t207 * t1246 * t17966;
12274   t17970 = t5897 * t1249;
12275   t17972 = t1929 * t405 * t17970;
12276   t17974 = t5910 * t1111;
12277   t17976 = t1929 * t405 * t17974;
12278   t17978 = t1632 * t1923;
12279   t17979 = 0.13772666666666666666e1 * t17978;
12280   t17980 = t1632 * t1918;
12281   t17981 = 0.45908888888888888888e0 * t17980;
12282   t17982 = t538 * t5903;
12283   t17984 = t538 * t5889;
12284   t17986 = t5884 * t5899;
12285   t17988 = t538 * t5916;
12286   t17990 = t5884 * t5912;
12287   t17992 = t1921 * t4270;
12288   t17994 = t207 * t405 * t17992;
12289   t17996 = -0.34431666666666666667e0 * t17968 - 0.18593100000000000000e2 * t17972 + 0.61977000000000000000e1 * t17976 + t17979 - t17981 + 0.34431666666666666666e0 * t17982 + 0.57386111111111111111e0 * t17984 + 0.75749666666666666668e1 * t17986 - 0.10329500000000000000e1 * t17988 - 0.22724900000000000001e2 * t17990 + 0.10329500000000000000e1 * t17994;
12290   t17998 = t15167 * t680 * t4180;
12291   t18000 = t207 * t15165 * t17998;
12292   t18011 = t1245 * t4278;
12293   t18012 = t680 * t314;
12294   t18013 = t18012 * t1111;
12295   t18015 = t17632 * t18011 * t18013;
12296   t18017 = t4297 * t4263;
12297   t18019 = t17632 * t18017 * t18013;
12298   t18021 = t404 * t1248;
12299   t18023 = t17632 * t18021 * t18013;
12300   t18027 = t421 * t1400;
12301   t18032 = t1959 * t763;
12302   t18034 = -0.15302962962962962963e1 * t18000 - 0.66182343750000000000e1 * t15759 * t757 * t4314 + 0.23668593750000000000e0 * t15778 * t757 * t4314 + 0.79418812500000000000e1 * t4313 * t1934 * t1392 + 0.61977000000000000000e1 * t18015 - 0.17215833333333333333e1 * t18019 - 0.92965500000000000000e1 * t18023 + 0.34431666666666666666e0 * t15145 - 0.10329500000000000000e1 * t15149 + 0.79418812500000000000e1 * t6350 * t18027 - 0.47337187500000000000e0 * t6353 * t18027 + 0.30872592592592592592e0 * t18032;
12303   t18037 = t17821 * t1960;
12304   t18046 = t108 * t15006 * t5919;
12305   t18061 = -0.44456533333333333333e1 * t18037 + 0.12503400000000000000e1 * t1959 * t435 * t4244 - 0.20839000000000000000e0 * t1959 * t1421 * t4239 + 0.72306500000000000001e1 * t18046 - 0.47337187500000000000e0 * t4317 * t1934 * t1392 + 0.94674375000000000000e0 * t1408 * t6396 * t421 + 0.94674375000000000000e0 * t6356 * t1400 + 0.31558125000000000000e0 * t1942 * t4334 - 0.34731666666666666666e0 * t15721 - 0.11577222222222222222e0 * t15723 + 0.69463333333333333333e-1 * t15725;
12306   t18086 = 0.8e1 / 0.9e1 * t17978;
12307   t18087 = 0.8e1 / 0.27e2 * t17980;
12308   t18089 = 0.28e2 / 0.81e2 * t17909 - 0.98e2 / 0.9e1 * t17911 - 0.4e1 / 0.3e1 * t17914 + 0.4e1 * t17917 + t15800 - 0.8e1 * t17940 + 0.2e1 * t17942 + 0.40e2 / 0.9e1 * t17945 - 0.4e1 / 0.3e1 * t17947 + 0.8e1 * t17950 - 0.20e2 / 0.9e1 * t17955 + 0.8e1 * t17958 - 0.4e1 / 0.3e1 * t17962 - 0.2e1 / 0.9e1 * t17968 - 0.12e2 * t17972 + 0.4e1 * t17976 + t18086 - t18087 + 0.2e1 / 0.9e1 * t17982;
12309   t18110 = 0.10e2 / 0.27e2 * t17984 + 0.44e2 / 0.9e1 * t17986 - 0.2e1 / 0.3e1 * t17988 - 0.44e2 / 0.3e1 * t17990 + 0.2e1 / 0.3e1 * t17994 - 0.80e2 / 0.81e2 * t18000 + 0.4e1 * t18015 - 0.10e2 / 0.9e1 * t18019 - 0.6e1 * t18023 + 0.2e1 / 0.9e1 * t15145 - 0.2e1 / 0.3e1 * t15149 + 0.14e2 / 0.3e1 * t18046 - 0.4e1 / 0.9e1 * t15155 - 0.8e1 / 0.27e2 * t15157 + 0.10e2 / 0.81e2 * t15159 + t15161 / 0.9e1 - 0.4e1 / 0.9e1 * t15143 + 0.2e1 / 0.3e1 * t15147 + 0.8e1 / 0.9e1 * t15151 + 0.28e2 / 0.27e2 * t15153;
12310   t18111 = t18089 + t18110;
12311   t18114 = t545 * t6413;
12312   t18116 = 0.30872592592592592592e-1 * t15727 + t15738 - 0.68863333333333333332e0 * t15155 - 0.45908888888888888888e0 * t15157 + 0.19128703703703703703e0 * t15159 + 0.17215833333333333333e0 * t15161 - 0.68863333333333333332e0 * t15143 + 0.10329500000000000000e1 * t15147 + 0.13772666666666666666e1 * t15151 + 0.16068111111111111111e1 * t15153 + 0.63116250000000000000e0 * t426 * t18111 + 0.69463333333333333334e-1 * t18114;
12313   t18118 = t545 * t6416;
12314   t18123 = t124 * t15455 * t6376;
12315   t18125 = t545 * t6422;
12316   t18130 = t545 * t6407;
12317   t18134 = t21 * t1248;
12318   t18138 = t325 * t4278;
12319   t18142 = t1756 * t4263;
12320   t18146 = 0.92617777777777777778e-1 * t18118 + 0.35297250000000000000e1 * t419 * t18111 + 0.16671200000000000000e1 * t18123 - 0.41678000000000000001e0 * t18125 - 0.37510200000000000000e1 * t1959 * t435 * t17970 + 0.12503400000000000000e1 * t18130 - 0.41678000000000000001e0 * t15796 + 0.69463333333333333332e-1 * t15798 - 0.18755100000000000000e1 * t17727 * t18134 * t18013 + 0.62517000000000000000e0 * t17727 * t18138 * t18013 - 0.13892666666666666667e0 * t17727 * t18142 * t18013;
12321   t18147 = t545 * t6410;
12322   t18161 = t6322 * t6425;
12323   t18163 = t6322 * t6419;
12324   t18174 = t1641 * t1953;
12325   t18175 = 0.69463333333333333334e0 * t18174;
12326   t18176 = t1641 * t1950;
12327   t18177 = 0.11577222222222222222e0 * t18176;
12328   t18178 = -0.41678000000000000001e0 * t18147 - 0.34731666666666666667e-1 * t216 * t1421 * t17966 - 0.20839000000000000000e0 * t1959 * t1421 * t17960 - 0.10805407407407407407e0 * t216 * t15729 * t17998 - 0.27785333333333333334e0 * t1959 * t4261 * t17953 - 0.54181400000000000001e1 * t18161 + 0.90302333333333333335e0 * t18163 - 0.12503400000000000000e1 * t216 * t1421 * t17938 + 0.20839000000000000000e0 * t216 * t435 * t17992 + 0.12503400000000000000e1 * t1959 * t435 * t17974 + t18175 - t18177;
12329   t18181 = t17934 + t17964 + t17996 + t18034 + t18061 + t18116 + t18146 + t18178;
12330   t18204 = -0.5e1 / 0.48e2 * t16883 + 0.15000000000000000000e1 * t1387 * t6521 + 0.50000000000000000001e0 * t418 * t18181 * t440 * t158 - 0.30000000000000000000e1 * t6532 * t5189 - 0.30000000000000000000e1 * t5212 * t6657 + 0.96491876992155210402e2 * t16890 * t2228 + 0.30000000000000000000e1 * t6633 * t1464 + 0.30000000000000000000e1 * t6630 * t1464 + 0.57895126195293126241e3 * t4358 * t2001 * t17505 - 0.30000000000000000000e1 * t1223 * t6520 * t2217 + 0.27981630000000000000e0 * t4268 * t5514;
12331   t18210 = t5863 * t417;
12332   t18215 = t1103 * t412;
12333   t18224 = t1339 * t439;
12334   t18234 = 0.15000000000000000000e1 * t2315 * t5202 + 0.15000000000000000000e1 * t18210 * t442 + 0.48245938496077605201e2 * t6707 * t4206 - 0.93272100000000000000e-1 * t18215 * t159 - 0.93272100000000000000e-1 * t5857 * t479 + 0.15000000000000000000e1 * t1461 * t6521 + 0.96491876992155210402e2 * t4223 * t6622 + 0.48245938496077605201e2 * t1454 * t2001 * t18224 - 0.28947563097646563121e3 * t17166 * t6609 - 0.60000000000000000000e1 * t1223 * t2311 * t6621 - t16900 / 0.32e2;
12335   t18246 = t2027 * t1230;
12336   t18249 = t202 * t4218;
12337   t18256 = -0.7e1 / 0.216e3 * t16903 - 0.7e1 / 0.216e3 * t16906 - t16909 / 0.32e2 - t16912 / 0.24e2 - t16916 / 0.96e2 + 0.30000000000000000000e1 * t6606 * t4390 + 0.30000000000000000000e1 * t5942 * t5209 + 0.15000000000000000000e1 * t4196 * t2308 - 0.30000000000000000000e1 * t18246 * t1233 - 0.12000000000000000000e2 * t4217 * t793 * t18249 + 0.48245938496077605201e2 * t1213 * t4967 * t7046;
12338   t18260 = t1957 * t1756;
12339   t18262 = t2256 * t18260 * t6500;
12340   t18273 = t5848 * t1249;
12341   t18286 = t1414 * t5277;
12342   t18287 = t6499 * t1249;
12343   t18293 = t2256 * t430 * t1756 * t2259;
12344   t18294 = t18293 / 0.36e2;
12345   t18296 = t2256 * t5844 * t5849;
12346   t18299 = t2256 * t5844 * t6641;
12347   t18301 = -0.60000000000000000000e1 * t4231 * t5935 + 0.7e1 / 0.12e2 * t18262 - t2256 * t2257 * t1190 * t680 * t314 / 0.8e1 - t2256 * t2257 * t5848 * t1111 / 0.8e1 - 0.7e1 / 0.24e2 * t6645 * t6646 * t18273 - t2256 * t6498 * t373 * t2 * t314 / 0.2e1 - t2256 * t6498 * t6499 * t1111 / 0.4e1 - 0.7e1 / 0.12e2 * t6645 * t18286 * t18287 + t18294 - t18296 / 0.12e2 - t18299 / 0.24e2;
12348   t18302 = t126 * t5277;
12349   t18304 = t6645 * t18302 * t6647;
12350   t18317 = t1212 * t792;
12351   t18318 = t166 * t18317;
12352   t18329 = -0.7e1 / 0.72e2 * t18304 - 0.30000000000000000000e1 * t5531 * t4375 + 0.96491876992155210402e2 * t4209 * t6560 - 0.60000000000000000000e1 * t5215 * t6725 + 0.48245938496077605201e2 * t17037 * t2218 - 0.30000000000000000000e1 * t1223 * t2311 * t4367 + 0.90000000000000000000e1 * t18318 * t4372 - 0.30000000000000000000e1 * t4212 * t6576 - 0.60000000000000000000e1 * t5212 * t6725 + 0.48245938496077605201e2 * t16930 * t2228 - 0.46636050000000000000e-1 * t2054 * t1340;
12353   t18332 = t1375 * t180;
12354   t18345 = t1104 * t412;
12355   t18358 = t67 * t1415 * t741;
12356   t18360 = 0.93272100000000000000e-1 * t1104 * t18332 * t202 + 0.31035607751564040180e4 * t16852 * t6654 + 0.48245938496077605201e2 * t17005 * t2228 + 0.60000000000000000000e1 * t5980 * t1571 * t5981 - 0.28947563097646563121e3 * t16927 * t5528 + 0.60000000000000000000e1 * t18345 * t6580 - 0.3e1 / 0.32e2 * t682 * t4156 - 0.9e1 / 0.16e2 * t1888 * t1889 * t1191 - 0.3e1 / 0.32e2 * t4395 * t742 - 0.60000000000000000000e1 * t4212 * t5935 - 0.5e1 / 0.144e3 * t18358;
12357   t18361 = t682 * t4161;
12358   t18366 = t691 * t4166;
12359   t18372 = t2257 * t60;
12360   t18376 = t6646 * t60;
12361   t18388 = -0.5e1 / 0.144e3 * t18361 - 0.3e1 / 0.16e2 * t323 * t1415 * t1744 - 0.5e1 / 0.144e3 * t18366 + 0.31035607751564040180e4 * t16704 * t6654 + 0.48245938496077605201e2 * t6606 * t4368 + 0.3e1 / 0.8e1 * t6669 * t18372 * t18013 - 0.7e1 / 0.24e2 * t6645 * t18376 * t18013 + t1444 * t1415 * t1447 * t378 / 0.4e1 + t16979 / 0.24e2 + t859 * t5180 + 0.15000000000000000000e1 * t6633 * t1433;
12362   t18394 = t745 * t4491;
12363   t18416 = t689 * t4930;
12364   t18419 = 0.15000000000000000000e1 * t6630 * t1433 + 0.15000000000000000000e1 * t2315 * t4228 - 0.96491876992155210402e2 * t18394 * t5194 + 0.50000000000000000001e0 * t2315 * t4353 - 0.18654420000000000000e0 * t1104 * t5523 * t478 - 0.93272100000000000000e-1 * t1104 * t2104 * t1339 - 0.30000000000000000000e1 * t1223 * t767 * t18224 - 0.12414243100625616072e5 * t17144 * t6010 * t18249 + 0.90000000000000000000e1 * t4209 * t6618 + 0.16081979498692535067e2 * t1454 * t2001 * t17523 - 0.15545350000000000000e-1 * t18416 * t203;
12365   t18426 = t2099 * t4714;
12366   t18434 = t2024 * t1230;
12367   t18437 = t2024 * t1212;
12368   t18441 = t166 * t4711 * t792;
12369   t18442 = t4714 * t202;
12370   t18443 = t520 * t1505;
12371   t18448 = t2 * t6320 * t107;
12372   t18449 = t18448 * t1890;
12373   t18451 = t380 * t5963;
12374   t18452 = t18451 / 0.16e2;
12375   t18453 = t682 * t4169;
12376   t18454 = t18453 / 0.16e2;
12377   t18455 = 0.48245938496077605201e2 * t1213 * t6019 * t4371 + 0.57895126195293126241e3 * t5231 * t2009 * t18249 + 0.31035607751564040180e4 * t5231 * t18426 * t6510 - 0.28947563097646563121e3 * t4217 * t6019 * t6510 + t16993 / 0.24e2 - 0.30000000000000000000e1 * t18434 * t1233 + 0.48245938496077605201e2 * t18437 * t1218 + 0.31035607751564040180e4 * t18441 * t18442 * t18443 + 0.25e2 / 0.16e2 * t18449 + t18452 + t18454;
12378   t18460 = t18448 * t1897;
12379   t18463 = t387 * t1415 * t694;
12380   t18466 = t6669 * t5844 * t6647;
12381   t18471 = t15987 * t2248;
12382   t18476 = t6673 * t5830 * t5840;
12383   t18478 = t2054 * t1453;
12384   t18481 = t2051 * t1222;
12385   t18484 = t5857 * t417;
12386   t18491 = -0.25e2 / 0.16e2 * t18460 - 0.5e1 / 0.432e3 * t18463 + t18466 / 0.8e1 + 0.3e1 / 0.8e1 * t6669 * t2257 * t18273 + 0.7e1 / 0.9e1 * t18471 * t5839 * t17553 + t18476 / 0.8e1 + 0.48245938496077605201e2 * t18478 * t1458 - 0.30000000000000000000e1 * t18481 * t1226 + 0.30000000000000000000e1 * t18484 * t442 + 0.15000000000000000000e1 * t4196 * t2312 + 0.50000000000000000001e0 * t17008 * t768;
12387   t18494 = t753 * t4357;
12388   t18509 = t2258 * t4180;
12389   t18521 = 0.15000000000000000000e1 * t17013 * t768 + 0.10345202583854680060e4 * t18494 * t4363 - 0.30000000000000000000e1 * t16964 * t2221 + 0.48245938496077605201e2 * t1454 * t6027 * t4367 - t2256 * t2257 * t2258 * t4270 / 0.24e2 - t5838 * t2250 * t17553 / 0.2e1 - t6645 * t2257 * t18509 / 0.2e1 + 0.3e1 * t1739 * t2215 + 0.15000000000000000000e1 * t5205 * t2279 + 0.15000000000000000000e1 * t17189 * t794 + 0.50000000000000000001e0 * t17192 * t794;
12390   t18534 = t771 * t4711;
12391   t18537 = t2048 * t1212;
12392   t18540 = t2027 * t1212;
12393   t18543 = t5860 * t501;
12394   t18547 = t387 * t431 * t2236;
12395   t18548 = t18547 / 0.48e2;
12396   t18550 = t387 * t127 * t5537;
12397   t18552 = 0.50000000000000000001e0 * t2272 * t5228 + 0.15000000000000000000e1 * t6565 * t1433 - 0.30000000000000000000e1 * t1231 * t6717 * t2224 + 0.15000000000000000000e1 * t6551 * t1507 + 0.15000000000000000000e1 * t6554 * t1507 + 0.10345202583854680060e4 * t18534 * t5233 + 0.48245938496077605201e2 * t18537 * t1218 + 0.48245938496077605201e2 * t18540 * t1218 - 0.30000000000000000000e1 * t18543 * t523 + t18548 - t18550 / 0.32e2;
12398   t18554 = t1444 * t127 * t5542;
12399   t18560 = t5286 * t740;
12400   t18578 = t323 * t1415 * t685;
12401   t18588 = -t18554 / 0.24e2 - t387 * t18 * t2235 * t4393 / 0.32e2 - 0.7e1 / 0.72e2 * t5284 * t18 * t18560 * t4188 - t323 * t18 * t15941 * t680 / 0.32e2 - 0.3e1 / 0.16e2 * t323 * t1415 * t5238 * t2 - t1754 * t1415 * t1757 * t314 / 0.4e1 - 0.5e1 / 0.432e3 * t18578 + 0.96491876992155210402e2 * t4209 * t6622 + 0.96491876992155210402e2 * t17022 * t2218 + 0.48245938496077605201e2 * t17019 * t2218 + 0.15000000000000000000e1 * t4385 * t2279;
12402   t18598 = t779 * t4711;
12403   t18608 = 0.50000000000000000001e0 * t17169 * t794 + 0.15000000000000000000e1 * t17172 * t794 + 0.50000000000000000001e0 * t502 * t5227 * t830 + 0.10345202583854680060e4 * t18598 * t5233 + 0.15000000000000000000e1 * t1208 * t5977 + 0.30000000000000000000e1 * t6707 * t4390 - 0.5e1 / 0.48e2 * t17051 + t17055 - 0.5e1 / 0.48e2 * t17056 + t17060 - t17062 / 0.32e2;
12404   t18609 = t1264 * t136;
12405   t18619 = t2063 * t1222;
12406   t18625 = t6446 * t1456;
12407   t18629 = t792 * t15599;
12408   t18635 = t771 * t4216;
12409   t18640 = -0.93272100000000000000e-1 * t1104 * t18609 * t158 + 0.15000000000000000000e1 * t1205 * t5977 + 0.30000000000000000000e1 * t5224 * t2279 + 0.30000000000000000000e1 * t6526 * t5209 - 0.30000000000000000000e1 * t18619 * t1226 + 0.30000000000000000000e1 * t1213 * t5208 * t830 + 0.48245938496077605201e2 * t1454 * t18625 * t2217 + 0.99822801518023203660e5 * t16855 * t18629 * t18249 + 0.3e1 * t2114 * t1859 - 0.96491876992155210402e2 * t18635 * t4220 - 0.60000000000000000000e1 * t17198 * t2225;
12410   t18642 = t1963 * t4361;
12411   t18649 = t478 * t1224;
12412   t18659 = t753 * t4491;
12413   t18671 = 0.31035607751564040180e4 * t4358 * t18642 * t5527 - 0.60000000000000000000e1 * t6064 * t1579 * t6579 - 0.28947563097646563121e3 * t5192 * t2001 * t18649 - 0.30000000000000000000e1 * t6677 * t4372 + 0.96491876992155210402e2 * t4193 * t6546 - 0.30000000000000000000e1 * t17028 * t2221 - 0.96491876992155210402e2 * t18659 * t5194 + 0.48245938496077605201e2 * t4193 * t5974 + 0.48245938496077605201e2 * t4201 * t5974 + 0.50000000000000000001e0 * t2269 * t5228 + 0.10345202583854680060e4 * t5231 * t5232 * t830;
12414   t18680 = t6329 * t1216;
12415   t18695 = t779 * t4216;
12416   t18701 = 0.15000000000000000000e1 * t6557 * t1507 + 0.48245938496077605201e2 * t5942 * t4379 - 0.30000000000000000000e1 * t5215 * t6657 + 0.96491876992155210402e2 * t4201 * t6546 + 0.48245938496077605201e2 * t1213 * t18680 * t2224 - 0.12414243100625616072e5 * t16661 * t6046 * t17505 + 0.16081979498692535067e2 * t1213 * t2009 * t16995 - 0.30000000000000000000e1 * t17031 * t2225 + 0.90000000000000000000e1 * t1454 * t2311 * t5527 - 0.96491876992155210402e2 * t18695 * t4220 + 0.31035607751564040180e4 * t4358 * t6046 * t18649;
12417   t18705 = t6194 * t501;
12418   t18708 = t2051 * t1453;
12419   t18711 = t6197 * t501;
12420   t18714 = t1103 * t496;
12421   t18717 = t229 * t165;
12422   t18720 = t229 * t114;
12423   t18730 = t4268 * t165;
12424   t18735 = 0.15000000000000000000e1 * t18705 * t523 + 0.48245938496077605201e2 * t18708 * t1458 + 0.15000000000000000000e1 * t18711 * t523 + 0.93272100000000000000e-1 * t18714 * t203 - 0.18654420000000000000e0 * t18717 * t203 + 0.18654420000000000000e0 * t18720 * t159 - 0.60000000000000000000e1 * t5215 * t6625 + 0.48245938496077605201e2 * t4201 * t6615 - 0.12000000000000000000e2 * t5192 * t767 * t17505 + 0.90000000000000000000e1 * t18730 * t5982 + 0.27981630000000000000e0 * t4268 * t5524;
12425   t18737 = t323 * t431 * t2240;
12426   t18738 = t18737 / 0.48e2;
12427   t18750 = t6133 * t501;
12428   t18768 = 0.45662222222222222220e-1 * t17978;
12429   t18769 = 0.15220740740740740740e-1 * t17980;
12430   t18771 = 0.17757530864197530864e-1 * t17909 - 0.55936222222222222217e0 * t17911 - 0.68493333333333333332e-1 * t17914 + 0.20547999999999999999e0 * t17917 + t15097 - 0.41095999999999999999e0 * t17940 + 0.10274000000000000000e0 * t17942 + 0.22831111111111111110e0 * t17945 - 0.68493333333333333330e-1 * t17947 + 0.41096000000000000000e0 * t17950 - 0.11415555555555555555e0 * t17955 + 0.41095999999999999998e0 * t17958 - 0.68493333333333333331e-1 * t17962 - 0.11415555555555555555e-1 * t17968 - 0.61643999999999999998e0 * t17972 + 0.20547999999999999999e0 * t17976 + t18768 - t18769 + 0.11415555555555555555e-1 * t17982;
12431   t18792 = 0.19025925925925925925e-1 * t17984 + 0.25114222222222222221e0 * t17986 - 0.34246666666666666665e-1 * t17988 - 0.75342666666666666662e0 * t17990 + 0.34246666666666666666e-1 * t17994 - 0.50735802469135802467e-1 * t18000 + 0.20547999999999999999e0 * t18015 - 0.57077777777777777775e-1 * t18019 - 0.30822000000000000000e0 * t18023 + 0.11415555555555555555e-1 * t15145 - 0.34246666666666666665e-1 * t15149 + 0.23972666666666666665e0 * t18046 - 0.22831111111111111110e-1 * t15155 - 0.15220740740740740740e-1 * t15157 + 0.63419753086419753085e-2 * t15159 + 0.57077777777777777777e-2 * t15161 - 0.22831111111111111110e-1 * t15143 + 0.34246666666666666665e-1 * t15147 + 0.45662222222222222220e-1 * t15151 + 0.53272592592592592591e-1 * t15153;
12432   t18794 = t6 * (t18771 + t18792);
12433   t18803 = t4270 * t752;
12434   t18806 = t18738 - t2249 * t2250 * t740 * t1106 * t378 / 0.8e1 - 0.27981630000000000000e0 * t4268 * t5948 + 0.30000000000000000000e1 * t5224 * t2275 + 0.15000000000000000000e1 * t4385 * t2275 + 0.15000000000000000000e1 * t18750 * t523 - 0.15545350000000000000e-1 * t18794 * t159 - 0.46636050000000000000e-1 * t5924 * t479 - 0.46636050000000000000e-1 * t2063 * t1340 - 0.15545350000000000000e-1 * t753 * t5432 - 0.15545350000000000000e-1 * t18803 * t159;
12435   t18808 = t1111 * t2062;
12436   t18813 = t314 * t5923;
12437   t18826 = t1216 * t202;
12438   t18833 = -0.46636050000000000000e-1 * t18808 * t159 - 0.46636050000000000000e-1 * t5863 * t479 - 0.46636050000000000000e-1 * t18813 * t159 - 0.93272100000000000000e-1 * t5866 * t479 + 0.50000000000000000001e0 * t2264 * t4353 - 0.28947563097646563121e3 * t17207 * t6609 + 0.48245938496077605201e2 * t6526 * t4379 + 0.48245938496077605201e2 * t4209 * t6651 - 0.96491876992155210402e2 * t5980 * t1596 * t18826 - 0.30000000000000000000e1 * t6612 * t4372 - t17110 / 0.24e2;
12439   t18835 = t15968 * t2248;
12440   t18836 = t17 * t15971;
12441   t18840 = t16716 * t2248;
12442   t18846 = t1104 * t496;
12443   t18849 = t2054 * t1222;
12444   t18855 = t6081 * t501;
12445   t18860 = t6184 * t417;
12446   t18865 = -t17126 / 0.24e2 - 0.35e2 / 0.108e3 * t18835 * t18836 * t18509 + 0.7e1 / 0.9e1 * t18840 * t6646 * t18509 - 0.60000000000000000000e1 * t5212 * t6625 - 0.60000000000000000000e1 * t18846 * t5982 - 0.30000000000000000000e1 * t18849 * t1226 + 0.30000000000000000000e1 * t6064 * t1604 * t6579 + 0.30000000000000000000e1 * t18855 * t523 + 0.15000000000000000000e1 * t5205 * t2275 + 0.15000000000000000000e1 * t18860 * t442 + 0.30000000000000000000e1 * t6565 * t1464;
12447   t18868 = t440 * t478;
12448   t18873 = t1957 * t7 * t10;
12449   t18874 = t18873 * t1897;
12450   t18878 = t18873 * t1890;
12451   t18889 = 0.60000000000000000000e1 * t6064 * t617 * t18868 + 0.15e2 / 0.16e2 * t18874 - 0.9e1 / 0.16e2 * t6729 * t6714 - 0.15e2 / 0.16e2 * t18878 - t17175 / 0.32e2 - 0.3e1 / 0.32e2 * t17177 - 0.3e1 / 0.32e2 * t17179 + t17181 / 0.16e2 + t17185 / 0.16e2 - t17187 / 0.32e2 - 0.28947563097646563121e3 * t5192 * t6027 * t5527;
12452   t18908 = 0.8e1 * t14651;
12453   t18938 = 0.14447919941302971323e1 * t14644 - t14648 - 0.97592231702715658578e-1 * t14649 + t18908 + 0.28947563097646563120e3 * t4217 * t2009 * t18443 + t14656 - t14659 + 0.28947563097646563121e3 * t4217 * t6019 * t1214 + 0.28947563097646563121e3 * t17207 * t5991 - 0.48245938496077605201e2 * t1454 * t18625 * t439 + 0.30000000000000000000e1 * t6677 * t4576 + 0.60000000000000000000e1 * t18846 * t626 + 0.96491876992155210402e2 * t5980 * t1597 - 0.48245938496077605201e2 * t6526 * t4968 + 0.96491876992155210402e2 * t779 * t4516 + 0.30000000000000000000e1 * t5980 * t1593 + 0.90000000000000000000e1 * t17478 * t618 - 0.90000000000000000000e1 * t18730 * t626 - 0.31035607751564040180e4 * t16852 * t6011;
12454   t18939 = t2021 * t4550;
12455   t18972 = 0.12e2 * t14660;
12456   t18980 = -0.56968947174242584612e-3 * t18939 - 0.16081979498692535067e2 * t1213 * t2009 * t4705 + 0.30000000000000000000e1 * t17195 * t2016 - 0.96491876992155210402e2 * t16890 * t2010 + 0.30000000000000000000e1 * t5215 * t6043 + 0.30000000000000000000e1 * t5212 * t6043 + 0.28947563097646563121e3 * t5192 * t6027 * t1224 + 0.30000000000000000000e1 * t1223 * t2311 * t1431 + 0.28947563097646563121e3 * t16927 * t6037 - 0.31035607751564040180e4 * t5231 * t6010 * t18443 + 0.10000000000000000000e1 * t1223 * t767 * t4351 + 0.28947563097646563121e3 * t16709 * t6037 - 0.96491876992155210402e2 * t4201 * t6020 - 0.48245938496077605201e2 * t17005 * t2010 + t18972 + t14702 + 0.60000000000000000000e1 * t4231 * t6001 + 0.30000000000000000000e1 * t1231 * t6717 * t520 - 0.96491876992155210402e2 * t4193 * t6020;
12457   t18997 = 0.96e2 * t14718;
12458   t19017 = 0.480e3 * t14723;
12459   t19018 = 0.30000000000000000000e1 * t6532 * t4950 + 0.60000000000000000000e1 * t4212 * t6001 - 0.60000000000000000000e1 * t18345 * t618 - 0.48245938496077605201e2 * t1213 * t18680 * t520 - 0.48245938496077605201e2 * t6707 * t4953 - 0.30000000000000000000e1 * t6064 * t1605 - 0.96491876992155210402e2 * t6064 * t1584 - t14717 - t18997 - 0.31035607751564040180e4 * t4358 * t18642 * t1224 - 0.31035607751564040180e4 * t16841 * t6047 - 0.31035607751564040180e4 * t16844 * t6047 - 0.16081979498692535067e2 * t1454 * t2001 * t4351 + 0.30000000000000000000e1 * t6612 * t4576 - 0.90000000000000000000e1 * t1454 * t767 * t17406 - 0.18654420000000000000e0 * t18720 * t136 + 0.18654420000000000000e0 * t18717 * t180 - t14722 + t19017;
12460   t19019 = 0.144e3 * t14725;
12461   t19020 = 0.240e3 * t14727;
12462   t19045 = 0.37308840000000000000e0 * t14675 * t2104;
12463   t19047 = 0.37308840000000000000e0 * t14675 * t2107;
12464   t19054 = 0.48e2 * t14731;
12465   t19055 = t19019 + t19020 - 0.48245938496077605201e2 * t2024 * t1597 - 0.50000000000000000001e0 * t771 * t4707 - 0.10345202583854680060e4 * t771 * t4715 - 0.15000000000000000000e1 * t6197 * t626 - 0.30000000000000000000e1 * t6081 * t626 - 0.15000000000000000000e1 * t2027 * t1593 - 0.48245938496077605201e2 * t2027 * t1597 - 0.15000000000000000000e1 * t6133 * t626 - 0.15000000000000000000e1 * t2048 * t1593 - 0.48245938496077605201e2 * t2048 * t1597 + 0.30000000000000000000e1 * t1231 * t2278 * t1505 + t19045 - t19047 - 0.27981630000000000000e0 * t4268 * t5523 + 0.27981630000000000000e0 * t4268 * t5947 - 0.93272100000000000000e-1 * t18714 * t180 - t19054;
12466   t19058 = t4268 * t839;
12467   t19060 = t4458 * t839;
12468   t19061 = 0.144e3 * t19060;
12469   t19062 = t4461 * t839;
12470   t19063 = 0.240e3 * t19062;
12471   t19064 = t4450 * t839;
12472   t19066 = t558 * t6475;
12473   t19067 = 0.24e2 * t19066;
12474   t19068 = t553 * t6480;
12475   t19070 = t558 * t6480;
12476   t19079 = t1106 * t2047;
12477   t19082 = t378 * t6132;
12478   t19092 = 0.24e2 * t19058 - t19061 + t19063 - 0.120e3 * t19064 - t19067 + 0.12e2 * t19068 - 0.12e2 * t19070 + 0.60000000000000000000e1 * t6064 * t1580 - t14751 + 0.48796115851357829289e-1 * t14752 + t14756 + 0.60000000000000000000e1 * t17025 * t2013 - 0.48245938496077605201e2 * t17019 * t2002 - t14759 + 0.46636050000000000000e-1 * t19079 * t180 + 0.46636050000000000000e-1 * t19082 * t180 - 0.48245938496077605201e2 * t16930 * t2010 + 0.12414243100625616072e5 * t17144 * t6010 * t4218 + 0.30000000000000000000e1 * t17031 * t2016;
12479   t19101 = t2005 * t4534;
12480   t19105 = t6050 * t1546;
12481   t19106 = 0.51947577317044391276e2 * t19105;
12482   t19107 = t2005 * t4960;
12483   t19109 = t6050 * t1728;
12484   t19110 = 0.17544670867903938621e1 * t19109;
12485   t19112 = 0.45662222222222222220e-1 * t17579;
12486   t19113 = 0.15220740740740740740e-1 * t17581;
12487   t19131 = t19112 - t19113 + 0.11415555555555555555e-1 * t17583 + 0.19025925925925925925e-1 * t17585 - 0.25114222222222222221e0 * t17587 - 0.34246666666666666665e-1 * t17589 + 0.75342666666666666662e0 * t17591 - 0.23972666666666666665e0 * t17594 - 0.50735802469135802467e-1 * t17599 + 0.11415555555555555555e0 * t17604 - 0.41095999999999999998e0 * t17609 + 0.68493333333333333331e-1 * t17613 - 0.11415555555555555555e-1 * t17617 + 0.61643999999999999998e0 * t17621 - 0.20547999999999999999e0 * t17625 + 0.34246666666666666666e-1 * t17629 - 0.30822000000000000000e0 * t17635 + 0.20547999999999999999e0 * t17639 - 0.57077777777777777775e-1 * t17643;
12488   t19151 = 0.11415555555555555555e-1 * t15059 + t15009 + 0.45662222222222222220e-1 * t15055 - 0.22831111111111111110e-1 * t15057 + 0.34246666666666666665e-1 * t15061 + 0.53272592592592592591e-1 * t14983 - 0.22831111111111111110e-1 * t14985 - 0.15220740740740740740e-1 * t14987 + 0.63419753086419753085e-2 * t14989 + 0.57077777777777777777e-2 * t14991 + 0.41096000000000000000e0 * t17657 - 0.41095999999999999999e0 * t17661 - 0.68493333333333333330e-1 * t17663 + 0.10274000000000000000e0 * t17665 + 0.22831111111111111110e0 * t17670 - 0.20547999999999999999e0 * t17673 + 0.17757530864197530864e-1 * t17675 + 0.55936222222222222217e0 * t17679 + 0.68493333333333333332e-1 * t17682 - 0.34246666666666666665e-1 * t15063;
12489   t19153 = t65 * (t19131 + t19151);
12490   t19158 = t4393 * t778;
12491   t19162 = t14762 - 0.65061487801810439052e-1 * t14763 - t14767 - 0.48245938496077605201e2 * t5942 * t4968 + 0.30000000000000000000e1 * t4212 * t5998 + 0.12000000000000000000e2 * t5192 * t767 * t4359 - 0.35089341735807877242e1 * t19101 + 0.31168546390226634765e3 * t14774 - t14781 - 0.10526802520742363173e2 * t14782 - t19106 - 0.58482236226346462070e0 * t19107 - t19110 - 0.18311447306006545054e-3 * t14785 + 0.15545350000000000000e-1 * t19153 * t180 + 0.15545350000000000000e-1 * t18416 * t180 + 0.15545350000000000000e-1 * t19158 * t180 - t14836 - 0.17544670867903938621e1 * t14837;
12492   t19172 = t6200 * t4898;
12493   t19192 = -t14846 - 0.30762056574649219973e4 * t14847 - 0.51947577317044391277e2 * t14849 - 0.17544670867903938621e1 * t14854 - t14873 - 0.30000000000000000000e1 * t5857 * t618 + 0.3e1 * t14885 + 0.60000000000000000000e1 * t17198 * t2016 - 0.32530743900905219526e-1 * t19172 - 0.4e1 * t14887 - 0.4e1 * t14890 + 0.30000000000000000000e1 * t2048 * t1572 + 0.96491876992155210402e2 * t771 * t4516 + 0.30000000000000000000e1 * t2027 * t1572 + 0.30000000000000000000e1 * t2024 * t1572 - 0.96491876992155210402e2 * t17022 * t2002 + 0.96491876992155210402e2 * t753 * t4493 + 0.30000000000000000000e1 * t2054 * t1580 + 0.30000000000000000000e1 * t2063 * t1580;
12494   t19199 = t2005 * t4584;
12495   t19201 = 0.36e2 * t14892;
12496   t19202 = t680 * t4912;
12497   t19214 = 0.24e2 * t553 * t6475;
12498   t19224 = 0.96491876992155210402e2 * t745 * t4493 + 0.30000000000000000000e1 * t2051 * t1580 + 0.28947563097646563121e3 * t17166 * t5991 + 0.10389515463408878255e3 * t19199 - t19201 + 0.15545350000000000000e-1 * t19202 * t136 + 0.15545350000000000000e-1 * t18803 * t136 + 0.46636050000000000000e-1 * t18808 * t136 + 0.46636050000000000000e-1 * t18813 * t136 + 0.15545350000000000000e-1 * t18794 * t136 + t19214 - 0.48245938496077605201e2 * t4193 * t6016 - 0.99822801518023203660e5 * t16855 * t18629 * t4218 + 0.12414243100625616072e5 * t16661 * t6046 * t4359 + t14896 - t14899 - t14903 - t14907 - 0.15584273195113317383e3 * t14908 - t14913;
12499   t19239 = t230 * t1993 * t1709;
12500   t19240 = 0.3e1 * t19239;
12501   t19242 = t230 * t838 * t4887;
12502   t19248 = -t14918 - 0.17090684152272775383e-2 * t14919 + t14924 + t14927 + t14933 + t14937 + 0.3e1 * t14941 + 0.30000000000000000000e1 * t4231 * t5998 + 0.10000000000000000000e1 * t1231 * t793 * t4705 - 0.90000000000000000000e1 * t1454 * t2311 * t1224 - t14971 + t14973 + t19240 + t19242 - 0.57895126195293126241e3 * t4358 * t2001 * t4359 + t15189 + 0.35089341735807877242e1 * t15190 + t15435 - 0.72e2 * t15437;
12503   t19249 = t6200 * t4409;
12504   t19252 = t1993 * t107 * t1735;
12505   t19253 = 0.32530743900905219526e-1 * t19252;
12506   t19258 = t6177 * t254 * t610;
12507   t19265 = 0.96e2 * t15645;
12508   t19272 = -0.21687162600603479684e-1 * t19249 + t19253 + 0.32530743900905219526e-1 * t15618 + t15622 - t15330 - t15333 - 0.90000000000000000000e1 * t4193 * t5985 - 0.17544670867903938621e1 * t19258 - 0.58482236226346462070e0 * t15635 + 0.12000000000000000000e2 * t4217 * t793 * t4218 + t15337 + 0.73245789224026180215e-3 * t15643 - t19265 + t15341 + t15345 - 0.90000000000000000000e1 * t4223 * t5988 + 0.93272100000000000000e-1 * t18215 * t136 + 0.30000000000000000000e1 * t16964 * t2013 + t15653;
12509   t19274 = 0.960e3 * t15655;
12510   t19284 = 0.32e2 * t1983 * t557;
12511   t19302 = 0.32e2 * t1989 * t557;
12512   t19327 = -0.8e1 * t6153 * t229 * t314 + 0.8e1 * t6166 * t229 * t378 + t19284 + 0.40e2 / 0.81e2 * t14681 * t689 * t4188 - 0.8e1 / 0.9e1 * t6163 * t378 * t1106 + 0.16e2 / 0.9e1 * t4436 * t2 * t1103 * t1360 - 0.8e1 / 0.3e1 * t1519 * t1103 * t378 - 0.8e1 / 0.3e1 * t6166 * t1103 * t1106 - t19302 + 0.16e2 * t233 * t229 + 0.4e1 / 0.9e1 * t1980 * t4270 - 0.16e2 * t231 * t229 + 0.4e1 / 0.9e1 * t1986 * t4393 + 0.40e2 / 0.81e2 * t14663 * t680 * t4180 - 0.8e1 / 0.9e1 * t6150 * t314 * t1111 - 0.16e2 / 0.9e1 * t4427 * t2 * t1103 * t1249 + 0.8e1 / 0.3e1 * t1513 * t1103 * t314 + 0.8e1 / 0.3e1 * t6153 * t1103 * t1111;
12513   t19328 = t19327 * t238;
12514   t19347 = -t19274 + 0.60e2 * t15657 - 0.24e2 * t15661 + 0.19751673498613801407e-1 * t19328 * t264 - 0.93272100000000000000e-1 * t1104 * t18332 - 0.96491876992155210402e2 * t4209 * t6028 - 0.36e2 * t15670 - 0.48245938496077605201e2 * t4223 * t6053 + 0.10526802520742363173e2 * t15672 + t15677 - t15366 - t15369 + t15681 + t15685 - t15838 + 0.30000000000000000000e1 * t5860 * t626 - 0.50000000000000000001e0 * t753 * t4723 - 0.10345202583854680060e4 * t753 * t4483 - 0.50000000000000000001e0 * t4935 * t848;
12515   t19370 = t230 * t6177 * t598;
12516   t19374 = t2005 * t4964;
12517   t19386 = -0.15000000000000000000e1 * t4938 * t848 - 0.15000000000000000000e1 * t1379 * t1965 - 0.15000000000000000000e1 * t4941 * t848 - 0.30000000000000000000e1 * t1382 * t1965 - 0.50000000000000000001e0 * t4913 * t848 - 0.15000000000000000000e1 * t1265 * t1965 + 0.93272100000000000000e-1 * t1104 * t18609 - t15842 - 0.48245938496077605201e2 * t17037 * t2002 + 0.30000000000000000000e1 * t17028 * t2013 - 0.48245938496077605201e2 * t1454 * t6027 * t1431 + 0.3e1 * t19370 + t230 * t19328 * t266 + t15372 - 0.10254018858216406658e4 * t19374 - 0.48245938496077605201e2 * t4209 * t6053 - 0.57895126195293126241e3 * t5231 * t2009 * t4218 - 0.90000000000000000000e1 * t4201 * t5985 - 0.90000000000000000000e1 * t1213 * t793 * t18443;
12518   t19389 = t6139 * t1721;
12519   t19390 = 0.73245789224026180216e-3 * t19389;
12520   t19392 = t6177 * t7 * t605;
12521   t19394 = t6050 * t1552;
12522   t19395 = 0.35089341735807877242e1 * t19394;
12523   t19403 = t2005 * t4538;
12524   t19408 = t2005 * t4562;
12525   t19413 = t1565 * t1996;
12526   t19417 = t19390 - 0.54934341918019635162e-3 * t19392 + t19395 - 0.48245938496077605201e2 * t6606 * t4953 + 0.30000000000000000000e1 * t5531 * t4950 + t15845 + 0.28947563097646563120e3 * t5192 * t2001 * t17406 + 0.35089341735807877242e1 * t19403 - 0.31035607751564040180e4 * t4358 * t6046 * t17406 - 0.51947577317044391277e2 * t19408 + t15869 - t15872 - 0.90000000000000000000e1 * t1213 * t2278 * t1214 + t15383 + t15397 + 0.60e2 * t19413 - t15876 - 0.360e3 * t15877 - 0.36e2 * t15879;
12527   t19419 = 0.192e3 * t15886;
12528   t19420 = t1568 * t1996;
12529   t19421 = 0.36e2 * t19420;
12530   t19422 = t1565 * t1994;
12531   t19423 = 0.60e2 * t19422;
12532   t19424 = t1555 * t1996;
12533   t19425 = 0.96e2 * t19424;
12534   t19426 = t1568 * t1994;
12535   t19427 = 0.36e2 * t19426;
12536   t19449 = 0.96e2 * t1555 * t1994;
12537   t19452 = 0.180e3 * t15881 + t19419 + t19421 + t19423 - t19425 + t19427 - t15403 + t15925 + 0.60000000000000000000e1 * t5215 * t6040 + t15427 - 0.31035607751564040180e4 * t5231 * t18426 * t1214 - 0.48245938496077605201e2 * t1213 * t6019 * t1505 + 0.60000000000000000000e1 * t5212 * t6040 - 0.99822801518023203660e5 * t16433 * t17504 * t4359 - 0.60000000000000000000e1 * t5980 * t1572 + 0.30000000000000000000e1 * t1223 * t6520 * t439 - 0.96491876992155210402e2 * t4223 * t6028 - t19449 - 0.30000000000000000000e1 * t779 * t4529;
12538   t19454 = t558 * t6486;
12539   t19456 = t553 * t6486;
12540   t19457 = 0.12e2 * t19456;
12541   t19496 = -0.12e2 * t19454 + t19457 - 0.15000000000000000000e1 * t4916 * t856 - 0.30000000000000000000e1 * t1346 * t2101 - 0.50000000000000000001e0 * t4931 * t856 - 0.15000000000000000000e1 * t1376 * t2101 - 0.15000000000000000000e1 * t395 * t6448 - 0.15000000000000000000e1 * t413 * t6448 - 0.50000000000000000001e0 * t115 * t417 * t18181 * t440 - 0.15000000000000000000e1 * t6194 * t626 - 0.15000000000000000000e1 * t2024 * t1593 - 0.50000000000000000001e0 * t166 * t501 * t17853 * t521 - 0.15000000000000000000e1 * t6184 * t618 - 0.15000000000000000000e1 * t2051 * t1605 - 0.48245938496077605201e2 * t2051 * t1584 - 0.50000000000000000001e0 * t745 * t4723 - 0.10345202583854680060e4 * t745 * t4483 - 0.15000000000000000000e1 * t5863 * t618 - 0.30000000000000000000e1 * t5866 * t618;
12542   t19521 = t6200 * t4412;
12543   t19523 = t6200 * t4892;
12544   t19537 = -0.15000000000000000000e1 * t2054 * t1605 - 0.48245938496077605201e2 * t2054 * t1584 - 0.15000000000000000000e1 * t5924 * t618 - 0.15000000000000000000e1 * t2063 * t1605 - 0.48245938496077605201e2 * t2063 * t1584 - 0.50000000000000000001e0 * t779 * t4707 - 0.10345202583854680060e4 * t779 * t4715 - 0.50000000000000000001e0 * t4944 * t856 - 0.15000000000000000000e1 * t4947 * t856 - 0.15000000000000000000e1 * t1343 * t2101 - 0.15000000000000000000e1 * t482 * t6331 - 0.15000000000000000000e1 * t497 * t6331 + 0.16265371950452609763e-1 * t19521 + 0.48159733137676571078e0 * t19523 - 0.90000000000000000000e1 * t4209 * t5988 - 0.30000000000000000000e1 * t745 * t4525 - 0.48245938496077605201e2 * t4201 * t6016 - 0.30000000000000000000e1 * t753 * t4525 - 0.30000000000000000000e1 * t771 * t4529 - 0.31035607751564040180e4 * t16704 * t6011;
12545   t19544 = t166 * t4216 * t792;
12546   t19553 = 0.90000000000000000000e1 * t1454 * t767 * t18649 + 0.3e1 / 0.4e1 * t6669 * t6498 * t18287 - 0.3e1 / 0.4e1 * t6673 * t6504 * t17558 - 0.30000000000000000000e1 * t1231 * t2278 * t4371 - 0.60000000000000000000e1 * t17025 * t2221 + 0.3e1 * t6496 * t676 + (t18938 + t18980 + t19018 + t19055 + t19092 + t19162 + t19192 + t19224 + t19248 + t19272 + t19347 + t19386 + t19417 + t19452 + t19496 + t19537) * t310 - 0.28947563097646563120e3 * t19544 * t4379 - 0.15545350000000000000e-1 * t19202 * t159 - 0.46636050000000000000e-1 * t6184 * t479 - 0.46636050000000000000e-1 * t2051 * t1340;
12547   t19577 = t323 * t4340 * t326;
12548   t19579 = -0.15545350000000000000e-1 * t745 * t5432 - 0.15545350000000000000e-1 * t19158 * t203 - 0.46636050000000000000e-1 * t19079 * t203 - 0.46636050000000000000e-1 * t19082 * t203 - 0.15545350000000000000e-1 * t19153 * t203 - 0.15545350000000000000e-1 * t4944 * t831 - 0.46636050000000000000e-1 * t4947 * t831 - 0.46636050000000000000e-1 * t4916 * t831 - 0.15545350000000000000e-1 * t4931 * t831 - 0.10000000000000000000e1 * t1231 * t793 * t16995 + 0.5e1 / 0.16e2 * t19577;
12549   t19581 = t387 * t4340 * t390;
12550   t19583 = t1108 * t1880;
12551   t19585 = t682 * t4406;
12552   t19587 = t5821 * t6714;
12553   t19589 = t648 * t1820;
12554   t19590 = t701 * t19589;
12555   t19595 = t656 * t1155;
12556   t19598 = t701 * t4067;
12557   t19601 = t656 * t1127;
12558   t19604 = t662 * t1127;
12559   t19607 = t1806 * t653;
12560   t19608 = t701 * t19607;
12561   t19611 = t9514 * t5092;
12562   t19614 = t1126 * t653;
12563   t19615 = t9514 * t19614;
12564   t19618 = t9490 * t5092;
12565   t19621 = t9490 * t19614;
12566   t19624 = t1827 * t648;
12567   t19625 = t701 * t19624;
12568   t19628 = -0.83293920000000000000e-2 * t5011 * t19590 - 0.74039040000000000000e-2 * t5771 * t5686 - 0.35538739200000000000e-3 * t19595 * t2200 + 0.78185226240000000000e-8 * t5808 * t19598 + 0.27147648000000000000e-1 * t19601 * t2188 - 0.27147648000000000000e-1 * t19604 * t2192 + 0.49976352000000000000e-4 * t16297 * t19608 + 0.61082208000000000000e-4 * t5782 * t19611 - 0.91623312000000000000e-4 * t5005 * t19615 + 0.30541104000000000000e-1 * t5011 * t19618 - 0.40721472000000000000e-1 * t5797 * t19621 - 0.16658784000000000000e-4 * t5782 * t19625;
12569   t19629 = t701 * t16396;
12570   t19634 = t701 * t5031;
12571   t19639 = t701 * t4093;
12572   t19642 = t701 * t16306;
12573   t19647 = t5785 * t1155;
12574   t19650 = t876 * t1827;
12575   t19651 = t19650 * t334;
12576   t19654 = t5791 * t1155;
12577   t19661 = 0.24988176000000000000e-4 * t5005 * t19629 + 0.24988176000000000000e-4 * t5005 * t19590 - 0.33317568000000000000e-4 * t5801 * t19634 - 0.39092613120000000000e-5 * t5804 * t19598 - 0.38006707200000000000e-6 * t2137 * t19639 - 0.99952704000000000000e-4 * t16310 * t19642 + 0.16891869866666666667e-3 * t2133 * t19639 + 0.59971622400000000000e-6 * t16302 * t19647 - 0.83293920000000000000e-2 * t5011 * t19651 - 0.26654054400000000000e-3 * t16138 * t19654 + 0.24988176000000000000e-4 * t5005 * t19651 + 0.59971622400000000000e-6 * t16302 * t19654;
12578   t19663 = t5564 * t334;
12579   t19666 = t1812 * t1794;
12580   t19667 = t2211 * t1155;
12581   t19672 = t1812 * t1797;
12582   t19677 = t1812 * t334;
12583   t19682 = t662 * t1155;
12584   t19685 = t873 * t1827;
12585   t19686 = t19685 * t334;
12586   t19689 = t1764 * t1794;
12587   t19690 = t5778 * t1155;
12588   t19695 = t1764 * t1797;
12589   t19698 = 0.11105856000000000000e-1 * t5797 * t19663 + 0.35538739200000000000e-3 * t19666 * t19667 - 0.33317568000000000000e-4 * t5801 * t19663 - 0.79962163200000000000e-6 * t19672 * t19667 + 0.11105856000000000000e-1 * t5797 * t19634 - 0.29615616000000000000e-1 * t19677 * t5663 + 0.74039040000000000000e-2 * t5774 * t5689 + 0.35538739200000000000e-3 * t19682 * t2203 + 0.55529280000000000000e-2 * t5777 * t19686 + 0.17769369600000000000e-3 * t19689 * t19690 - 0.16658784000000000000e-4 * t5782 * t19686 - 0.39981081600000000000e-6 * t19695 * t19690;
12590   t19699 = t873 * t1820;
12591   t19700 = t19699 * t334;
12592   t19713 = t1764 * t334;
12593   t19718 = t873 * t1765;
12594   t19719 = t19718 * t334;
12595   t19722 = t876 * t1806;
12596   t19723 = t19722 * t334;
12597   t19729 = t3416 * t719;
12598   t19732 = t305 * t16054;
12599   t19733 = t701 * t4075;
12600   t19736 = -0.83293920000000000000e-2 * t5011 * t19700 - 0.26654054400000000000e-3 * t16138 * t19647 - 0.91623312000000000000e-4 * t5005 * t19618 + 0.12216441600000000000e-3 * t5801 * t19621 - 0.16658784000000000000e-1 * t16289 * t19608 + 0.55529280000000000000e-2 * t5777 * t19625 - 0.14807808000000000000e-1 * t19713 * t5660 - 0.83293920000000000000e-2 * t5011 * t19629 - 0.99952704000000000000e-4 * t16310 * t19719 - 0.16658784000000000000e-1 * t16289 * t19723 + 0.33317568000000000000e-1 * t16305 * t19642 + 0.41132800000000000000e-1 * t656 * t8992 * t19729 + 0.15163195392000000000e-7 * t19732 * t19733;
12601   t19739 = t305 * t16061;
12602   t19750 = t4131 * t719;
12603   t19757 = t4982 * t633;
12604   t19758 = t5702 * t334;
12605   t19761 = t4982 * t636;
12606   t19770 = -0.28430991360000000000e-10 * t19739 * t19733 + 0.41132800000000000000e-1 * t662 * t8992 * t19729 + 0.57843000000000000000e-2 * t5559 * t307 * t2127 + 0.24988176000000000000e-4 * t5005 * t19700 + 0.94262666666666666667e-2 * t2130 * t19750 + 0.94262666666666666667e-2 * t2126 * t19750 + 0.49976352000000000000e-4 * t16297 * t19723 - 0.55529280000000000000e-1 * t19757 * t19758 + 0.16658784000000000000e-3 * t19761 * t19758 - 0.20360736000000000000e-1 * t5777 * t19611 + 0.33317568000000000000e-1 * t16305 * t19719 + 0.30541104000000000000e-1 * t5011 * t19615;
12607   t19771 = t873 * t661;
12608   t19774 = t700 * t4991;
12609   t19778 = t700 * t4998;
12610   t19782 = t4066 * t287;
12611   t19789 = t1801 * t876;
12612   t19810 = -0.15210e2 * t19771 * t4983 - 0.27764640000000000000e-5 * t1853 * t889 * t19774 + 0.27764640000000000000e-5 * t1844 * t889 * t19778 + 0.43436236800000000000e-3 * t5692 * t19782 * t701 - 0.10661621760000000000e-5 * t1839 * t5681 * t4075 + 0.21323243520000000000e-8 * t1844 * t19789 * t4075 + 0.92548800000000000000e-3 * t1849 * t885 * t19774 - 0.92548800000000000000e-3 * t1839 * t885 * t19778 - 0.2535e1 * t2121 * t4998 - 0.2535e1 * t16335 * t876 - 0.45630e2 * t16325 * t5702 + 0.15210e2 * t5175 * t5564 + 0.5070e1 * t1764 * t876 * t4998;
12613   t19827 = t1801 * t873;
12614   t19834 = t75 * t1820;
12615   t19838 = t5050 * tau[0];
12616   t19839 = t75 * t1765;
12617   t19852 = 0.31235220000000000000e-2 * t5051 * t2161 * t19624 - 0.62470440000000000000e-2 * t5038 * t2161 * t16396 - 0.62470440000000000000e-2 * t5038 * t2161 * t19589 + 0.10411740000000000000e-1 * t5624 * t2161 * t5031 + 0.10661621760000000000e-5 * t1849 * t5672 * t4075 - 0.21323243520000000000e-8 * t1853 * t19827 * t4075 - 0.45630e2 * t5050 * t2211 * t1820 + 0.84500000000000000000e2 * t5697 * t2149 * t19834 - 0.25350000000000000000e3 * t19838 * t2149 * t19839 - 0.22533333333333333333e3 * t5697 * t5614 * t5698 - 0.12494088000000000000e-1 * t16220 * t2154 * t16306 + 0.31235220000000000000e-1 * t16225 * t2161 * t16306;
12618   t19857 = t5037 * t307;
12619   t19858 = t719 * t1765;
12620   t19859 = t352 * t19858;
12621   t19862 = t5050 * t307;
12622   t19867 = t4982 * t307;
12623   t19870 = t719 * t1820;
12624   t19871 = t352 * t19870;
12625   t19875 = t352 * t719 * t1827;
12626   t19881 = t4071 * t719 * t33;
12627   t19890 = t1130 * t5726;
12628   t19893 = -0.34452195555555555555e-2 * t701 * t5084 - 0.13770370370370370370e3 * t4131 * t2208 + 0.34705800000000000000e-1 * t19857 * t19859 + 0.17352900000000000000e-1 * t19862 * t352 * t719 * t1806 + 0.57843000000000000000e-1 * t19867 * t19859 - 0.86764500000000000000e-2 * t5730 * t19871 + 0.86764500000000000000e-2 * t5730 * t19875 - 0.11568600000000000000e-1 * t5745 * t19871 - 0.49359360000000000000e-3 * t5755 * t19881 + 0.11105856000000000000e-5 * t5715 * t19881 - 0.49359360000000000000e-3 * t5758 * t19881 + 0.11105856000000000000e-5 * t5720 * t19881 - 0.23137200000000000000e-1 * t5730 * t19890;
12629   t19897 = t1130 * t5731;
12630   t19902 = t5175 * tau[0];
12631   t19932 = 0.30849600000000000000e-1 * t5745 * t19897 - 0.15424800000000000000e-1 * t5725 * t19890 + 0.16899999999999999999e3 * t19902 * t5699 + 0.31235220000000000000e-2 * t5051 * t2154 * t16396 + 0.31235220000000000000e-2 * t5051 * t2154 * t19589 - 0.62470440000000000000e-2 * t5038 * t2154 * t5031 - 0.32577177600000000000e-3 * t1849 * t2176 * t4067 + 0.73298649600000000000e-6 * t1853 * t5672 * t4067 + 0.32577177600000000000e-3 * t1839 * t2183 * t4067 - 0.73298649600000000000e-6 * t1844 * t5681 * t4067 - 0.14807808000000000000e-1 * t16185 * t5046 * t5778 + 0.22211712000000000000e-1 * t16400 * t5046 * t5785;
12632   t19939 = t305 * t343;
12633   t19940 = t4074 * t640;
12634   t19947 = t5559 * t276;
12635   t19950 = t5559 * t283;
12636   t19959 = t700 * t4983;
12637   t19963 = t4092 * t306;
12638   t19973 = 0.22211712000000000000e-1 * t16400 * t5046 * t5791 - 0.29615616000000000000e-1 * t16181 * t5046 * t2211 - 0.18953994240000000000e-5 * t19939 * t19940 * t701 + 0.15836128000000000000e-1 * t1849 * t2154 * t4093 + 0.55529280000000000000e-2 * t19947 * t2173 - 0.16658784000000000000e-4 * t19950 * t2177 - 0.15836128000000000000e-1 * t1839 * t2161 * t4093 + 0.47508384000000000000e-4 * t1844 * t2183 * t4093 - 0.18509760000000000000e-1 * t16355 * t885 * t19959 - 0.14076558222222222222e-1 * t2195 * t19963 * t701 + 0.55529280000000000000e-4 * t5624 * t889 * t19959 - 0.47508384000000000000e-4 * t1853 * t2176 * t4093;
12639   t19978 = t4062 * t5736;
12640   t19985 = t1774 * t334;
12641   t19986 = t2187 * t653;
12642   t19993 = t701 * t334 * t1806;
12643   t19997 = t701 * t1127 * t648;
12644   t20001 = t701 * t334 * t1765;
12645   t20005 = t701 * t1127 * t653;
12646   t20010 = t5791 * t5721;
12647   t20013 = -0.12494088000000000000e-1 * t16220 * t2161 * t19607 - 0.29307120000000000000e-3 * t5740 * t19978 + 0.97690399999999999999e-1 * t5748 * t19978 - 0.29307120000000000000e-3 * t5751 * t19978 + 0.44423424000000000000e-1 * t19985 * t885 * t19986 + 0.23137200000000000000e-1 * t5730 * t19897 - 0.39981081600000000000e-6 * t19695 * t19993 + 0.73298649600000000000e-6 * t5715 * t19997 - 0.79962163200000000000e-6 * t19672 * t20001 - 0.73298649600000000000e-6 * t5720 * t20005 + 0.57843000000000000000e-2 * t5725 * t19875 + 0.66635136000000000000e-1 * t16305 * t20010;
12648   t20018 = t5778 * t5721;
12649   t20023 = t1126 * tau[1];
12650   t20029 = t700 * t343 * t4074;
12651   t20041 = t1806 * t661 * t283;
12652   t20053 = -0.19990540800000000000e-3 * t16310 * t20010 + 0.97690399999999999999e-1 * t5735 * t19978 - 0.33317568000000000000e-1 * t16289 * t20018 + 0.99952704000000000000e-4 * t16297 * t20018 - 0.13770370370370370370e3 * t2148 * t20023 * t75 + 0.16716201984000000000e-9 * t16061 * sigma[2] * t20029 - 0.25074302976000000000e-12 * t16066 * sigma[2] * t20029 - 0.42249999999999999999e2 * t5162 * tau[0] * t2150 - 0.10411740000000000000e-2 * t10970 * t5586 + 0.31235220000000000000e-2 * t20041 * t2158 - 0.34705800000000000000e-3 * t2153 * t2154 * t4991 + 0.52058700000000000000e-3 * t1775 * t2154 * t4998 + 0.52058700000000000000e-3 * t1775 * t2161 * t4991;
12653   t20059 = t1130 * tau[1];
12654   t20074 = t5599 * t1820;
12655   t20080 = t75 * t304;
12656   t20081 = t20080 * t1765;
12657   t20084 = t2141 * t4092;
12658   t20087 = t5573 * t4066;
12659   t20092 = -0.69411600000000000000e-3 * t2165 * t2161 * t4998 - 0.11266666666666666666e3 * t20059 * t5600 - 0.27147648000000000000e-1 * t5077 * t16174 * t876 + 0.27147648000000000000e-1 * t5045 * t16174 * t873 + 0.11846246400000000000e-3 * t16263 * t16259 * t876 - 0.32968507392000000000e-7 * t16054 * sigma[2] * t20029 + 0.42249999999999999999e2 * t5598 * t20074 - 0.11846246400000000000e-3 * t16258 * t16259 * t873 - 0.84499999999999999999e2 * t5598 * t20081 - 0.11381051733333333333e-3 * t2170 * t20084 + 0.55867299840000000000e-5 * t5572 * t20087 - 0.34477166592000000000e-7 * t5577 * t20087;
12660   t20102 = t16273 * t283;
12661   t20112 = t656 * t5014;
12662   t20114 = t701 * t1155 * t648;
12663   t20117 = t656 * t5017;
12664   t20120 = t662 * t5014;
12665   t20122 = t701 * t1155 * t653;
12666   t20125 = t662 * t5017;
12667   t20130 = 0.57461944320000000000e-10 * t5580 * t20087 + 0.11266666666666666666e3 * t5583 * t5615 + 0.18509760000000000000e-2 * t16252 * t886 + 0.10411740000000000000e-1 * t16225 * t2154 * t4983 - 0.20823480000000000000e-1 * t20102 * t2161 * t4983 - 0.55529280000000000000e-5 * t16255 * t890 + 0.11173155840000000000e-5 * t2140 * t20084 - 0.22346311680000000000e-8 * t2145 * t20084 + 0.31984865280000000000e-5 * t20112 * t20114 - 0.63969730560000000000e-8 * t20117 * t20114 - 0.31984865280000000000e-5 * t20120 * t20122 + 0.63969730560000000000e-8 * t20125 * t20122 + 0.17769369600000000000e-3 * t19689 * t19993;
12668   t20134 = t1827 * sigma[0];
12669   t20136 = t701 * t20134 * t333;
12670   t20142 = t701 * t16131 * t333;
12671   t20153 = t640 * sigma[2];
12672   t20154 = t20153 * t700;
12673   t20161 = t2141 * t5007 * t653;
12674   t20164 = t307 * tau[0];
12675   t20165 = t5037 * t20164;
12676   t20166 = t9258 * t653;
12677   t20167 = t2149 * t20166;
12678   t20170 = 0.35538739200000000000e-3 * t19666 * t20001 + 0.88846848000000000000e-4 * t5755 * t20136 - 0.19990540800000000000e-6 * t5715 * t20136 - 0.88846848000000000000e-4 * t5758 * t20142 + 0.19990540800000000000e-6 * t5720 * t20142 - 0.32577177600000000000e-3 * t5755 * t19997 + 0.32577177600000000000e-3 * t5758 * t20005 + 0.10411740000000000000e-2 * t16168 * t882 + 0.17027235840000000000e-5 * t4075 * t20154 - 0.15966720000000000000e-3 * t701 * t5081 + 0.11994324480000000000e-5 * t1774 * t2140 * t20161 - 0.69411600000000000000e-1 * t20165 * t20167;
12679   t20171 = t5050 * t20164;
12680   t20174 = t636 * tau[0];
12681   t20175 = t1764 * t20174;
12682   t20176 = t339 * tau[1];
12683   t20177 = t9258 * sigma[0];
12684   t20178 = t20176 * t20177;
12685   t20181 = t633 * tau[0];
12686   t20182 = t1774 * t20181;
12687   t20183 = t5698 * sigma[0];
12688   t20184 = t20176 * t20183;
12689   t20187 = t1774 * t20174;
12690   t20194 = t1812 * t20181;
12691   t20197 = t1812 * t20174;
12692   t20203 = t1764 * t20181;
12693   t20213 = -0.34705800000000000000e-1 * t20171 * t20167 + 0.18509760000000000000e-3 * t20175 * t20178 + 0.92548800000000000000e-1 * t20182 * t20184 - 0.27764640000000000000e-3 * t20187 * t20184 - 0.92548800000000000000e-1 * t20182 * t20178 + 0.27764640000000000000e-3 * t20187 * t20178 + 0.12339840000000000000e0 * t20194 * t20184 - 0.37019520000000000000e-3 * t20197 * t20184 - 0.53308108800000000000e-3 * t1774 * t2170 * t20161 - 0.61699200000000000000e-1 * t20203 * t20178 + 0.15210e2 * t16322 * t2211 + 0.60840e2 * t16219 * t876 * t4983 + 0.15210e2 * t5709 * t5031;
12694   t20221 = t1453 * t766;
12695   t20222 = t115 * t20221;
12696   t20226 = t323 * t15455 * t2244;
12697   t20229 = t323 * t127 * t5546;
12698   t20232 = t323 * t4340 * t5550;
12699   t20235 = t387 * t15455 * t2231;
12700   t20237 = -0.5e1 / 0.16e2 * t19581 - 0.3e1 / 0.32e2 * t19583 - 0.3e1 / 0.32e2 * t19585 + 0.21e2 / 0.16e2 * t19587 + t275 * (t19628 + t19661 + t19698 + t19736 + t19770 + t19810 + t19852 + t19893 + t19932 + t19973 + t20013 + t20053 + t20092 + t20130 + t20170 + t20213) - 0.28947563097646563121e3 * t16709 * t5528 + 0.90000000000000000000e1 * t20222 * t4375 - 0.25e2 / 0.48e2 * t20226 - t20229 / 0.32e2 + 0.7e1 / 0.16e2 * t20232 + 0.25e2 / 0.48e2 * t20235;
12701   t20252 = 0.30000000000000000000e1 * t6558 + t3 * (t20237 + t19579 + t19553 + t18889 + t18865 + t18833 + t18806 + t18735 + t18701 + t18671 + t18640 + t18608 + t18588 + t18552 + t18521 + t18491 + t18455 + t18419 + t18388 + t18360 + t18329 + t18301 + t18256 + t18234 + t18204 + t17898 + t17872 + t17546 + t17509 + t17481 + t17452 + t17421) + 0.96491876992155210402e2 * t6561 + t4979 + t5181 + 0.30000000000000000000e1 * t6563 + 0.30000000000000000000e1 * t6566 + t5183 - 0.60000000000000000000e1 * t6568 - 0.60000000000000000000e1 * t6570 - 0.60000000000000000000e1 * t6572 - 0.60000000000000000000e1 * t6574 - 0.30000000000000000000e1 * t6577;
12702   t20267 = 0.60000000000000000000e1 * t6581 - 0.46636050000000000000e-1 * t6583 - 0.46636050000000000000e-1 * t6585 - 0.93272100000000000000e-1 * t6587 - 0.46636050000000000000e-1 * t6590 - 0.46636050000000000000e-1 * t6592 - 0.93272100000000000000e-1 * t6594 - 0.46636050000000000000e-1 * t6596 - 0.46636050000000000000e-1 * t6598 - 0.93272100000000000000e-1 * t6600 - 0.46636050000000000000e-1 * t6602 + 0.30000000000000000000e1 * t6604 + 0.48245938496077605201e2 * t6607 - 0.28947563097646563121e3 * t6610;
12703   t20281 = -0.30000000000000000000e1 * t6613 + 0.48245938496077605201e2 * t6616 + 0.90000000000000000000e1 * t6619 + 0.96491876992155210402e2 * t6623 - 0.60000000000000000000e1 * t6626 + 0.6e1 * t6628 + 0.30000000000000000000e1 * t6631 + 0.30000000000000000000e1 * t6634 + 0.30000000000000000000e1 * t6636 + t5188 + 0.3e1 * t6640 - t6643 / 0.8e1 - 0.7e1 / 0.24e2 * t6649;
12704   t20287 = -t5191 - t5196 + t5198 + t5201 + t5204 + t5207 + t5211 - t5214 - t5217 + 0.48245938496077605201e2 * t6652 + 0.31035607751564040180e4 * t6655 - 0.30000000000000000000e1 * t6658 + 0.31035607751564040180e4 * t6661 + 0.15000000000000000000e1 * t6663;
12705   t20297 = 0.15000000000000000000e1 * t6665 - t5223 + t5226 + 0.15000000000000000000e1 * t6667 + 0.3e1 / 0.8e1 * t6671 + 0.3e1 / 0.8e1 * t6675 + t5230 + t5235 + t5237 - 0.30000000000000000000e1 * t6678 - 0.30000000000000000000e1 * t6681 - t5242 + t5244 / 0.16e2;
12706   t20304 = -t5247 / 0.16e2 - t5250 / 0.12e2 - t5255 - t5257 / 0.8e1 - t5264 - t5269 - t5273 - t5282 - t5291 + t5293 / 0.16e2 - t5296 / 0.16e2 - t5299 / 0.12e2 + t8889 + t8890;
12707   t20306 = t6698 / 0.16e2;
12708   t20309 = -t20306 + 0.7e1 / 0.16e2 * t6701 - 0.7e1 / 0.16e2 * t6704 - t5302 - t5304 - t5306 - t5309 - t5311 - t5313 - t5434 - t5436 - t5438 - t5440 - t5442;
12709   t20321 = -t5444 - t5446 - t5448 + 0.3e1 * t6706 + 0.48245938496077605201e2 * t6708 - 0.9e1 / 0.32e2 * t6710 - 0.9e1 / 0.32e2 * t6712 - 0.9e1 / 0.8e1 * t6715 + 0.15000000000000000000e1 * t6719 + 0.30000000000000000000e1 * t6721 + 0.15000000000000000000e1 * t6723 - 0.60000000000000000000e1 * t6726 + 0.9e1 / 0.16e2 * t6730 - 0.9e1 / 0.16e2 * t6732;
12710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12711     v4rho4[1] = t17318 + t17324 + t17339 + t17354 + t17362 + t17372 + t17382 + t17394 + t20252 + t20267 + t20281 + t20287 + t20297 + t20304 + t20309 + t20321;
12712 
12713   t20339 = 0.20000000000000000000e1 * t5512 - 0.12436280000000000000e0 * t5515 + t4159 / 0.8e1 - t14634 + t4164 / 0.8e1 - t14636 + t4170 / 0.8e1 - t4172 / 0.16e2 - t4174 / 0.16e2 - t4176 / 0.8e1 + 0.2e1 * t6791 - 0.12436280000000000000e0 * t5525 + 0.4e1 * t6792 + 0.2e1 * t7038 - t7042 / 0.16e2 - 0.62181400000000000000e-1 * t7044;
12714   t20378 = 0.64327917994770140268e2 * t4209 * t7295 + 0.32163958997385070134e2 * t1454 * t7705 * t6621 - 0.96491876992155210402e2 * t5192 * t2806 * t4367 - 0.20000000000000000000e1 * t5215 * t7319 - 0.12000000000000000000e2 * t4217 * t2816 * t6510 - 0.20000000000000000000e1 * t5212 * t7319 - 0.19298375398431042080e3 * t16709 * t7894 - 0.18654420000000000000e0 * t4268 * t7455 - 0.18654420000000000000e0 * t4268 * t7458 + 0.64327917994770140268e2 * t18537 * t2228 + 0.64327917994770140268e2 * t5942 * t6546 + 0.64327917994770140268e2 * t18540 * t2228 - 0.20000000000000000000e1 * t17025 * t2813;
12715   t20394 = t1104 * t778;
12716   t20397 = t2528 * t1230;
12717   t20405 = -0.96491876992155210402e2 * t4217 * t7518 * t6510 + 0.64327917994770140268e2 * t1213 * t6019 * t7046 + 0.64327917994770140268e2 * t4201 * t7047 + 0.64327917994770140268e2 * t4193 * t7047 - 0.12414243100625616072e5 * t16661 * t7303 * t5527 + 0.18654420000000000000e0 * t4268 * t7462 - 0.40000000000000000000e1 * t20394 * t5982 - 0.10000000000000000000e1 * t20397 * t1233 + t15933 / 0.72e2 + t15936 / 0.144e3 + t15939 / 0.108e3 - 0.5e1 / 0.216e3 * t16001 + t16004 / 0.144e3;
12718   t20419 = t2528 * t1212;
12719   t20422 = t7068 * t501;
12720   t20425 = t7209 * t501;
12721   t20433 = t16007 / 0.108e3 - 0.5e1 / 0.216e3 * t16010 - 0.40000000000000000000e1 * t18246 * t2225 - 0.40000000000000000000e1 * t17458 * t2225 - 0.40000000000000000000e1 * t6612 * t5935 + 0.20690405167709360120e4 * t18534 * t6654 - 0.20000000000000000000e1 * t6612 * t6680 + 0.16081979498692535067e2 * t20419 * t1218 + 0.20000000000000000000e1 * t20422 * t523 + 0.10000000000000000000e1 * t20425 * t523 + 0.50000000000000000001e0 * t7862 * t1507 + 0.30000000000000000000e1 * t1454 * t2802 * t5527 + t17423;
12722   t20457 = t387 * t431 * t2565;
12723   t20460 = t387 * t431 * t2569;
12724   t20466 = -t17425 + 0.32163958997385070134e2 * t5942 * t5974 - 0.10000000000000000000e1 * t17028 * t2813 + 0.10000000000000000000e1 * t2272 * t5977 + 0.20000000000000000000e1 * t6554 * t2275 - 0.20000000000000000000e1 * t5212 * t7868 - 0.10000000000000000000e1 * t1223 * t2812 * t1339 + 0.16081979498692535067e2 * t1213 * t1217 * t2500 + 0.20000000000000000000e1 * t6554 * t2279 + 0.64327917994770140268e2 * t6606 * t6560 + 0.20000000000000000000e1 * t6630 * t2308 + t20457 / 0.72e2 + t20460 / 0.144e3 + t1444 * t1415 * t1447 * t689 / 0.6e1;
12725   t20474 = t1444 * t431 * t2573;
12726   t20478 = t1963 * t1963;
12727   t20487 = t202 * t6329;
12728   t20491 = t2617 * t4714;
12729   t20498 = t380 * t7263;
12730   t20500 = t7251 * t319;
12731   t20502 = t2418 * t1118;
12732   t20504 = t7257 * t383;
12733   t20506 = -t1754 * t1415 * t1757 * t680 / 0.6e1 + t20474 / 0.108e3 + 0.60000000000000000000e1 * t4193 * t7280 + 0.32163958997385070134e2 * t1454 * t20478 * t1456 * t158 + 0.16081979498692535067e2 * t17005 * t2586 - 0.10000000000000000000e1 * t17195 * t2817 - 0.20000000000000000000e1 * t1231 * t793 * t20487 + 0.10345202583854680060e4 * t5231 * t20491 * t6510 + t387 * t1415 * t2235 / 0.8e1 - t20498 / 0.16e2 - t20500 / 0.16e2 - t20502 / 0.16e2 - t20504 / 0.16e2;
12734   t20507 = t5821 * t7260;
12735   t20511 = t2551 * t1230;
12736   t20520 = t2531 * t1212;
12737   t20523 = t2099 * t2099;
12738   t20533 = t2650 * t15898;
12739   t20543 = -0.7e1 / 0.8e1 * t20507 - 0.20000000000000000000e1 * t5215 * t7868 - 0.10000000000000000000e1 * t20511 * t1233 + 0.10000000000000000000e1 * t2269 * t5977 + 0.20000000000000000000e1 * t6557 * t2275 + 0.10000000000000000000e1 * t7865 * t1507 + 0.32163958997385070134e2 * t20520 * t1218 + 0.32163958997385070134e2 * t1213 * t20523 * t1216 * t202 - 0.20000000000000000000e1 * t6677 * t6576 - 0.40000000000000000000e1 * t5980 * t2100 * t5981 + 0.99822801518023203660e5 * t16433 * t20533 * t5527 + 0.32163958997385070134e2 * t17022 * t2807 + 0.10000000000000000000e1 * t2264 * t6521 + 0.20000000000000000000e1 * t6565 * t2312;
12740   t20545 = t2504 * t1453;
12741   t20550 = t7126 * t501;
12742   t20558 = t1446 * t2410;
12743   t20564 = t387 * t127 * t7040;
12744   t20579 = 0.16081979498692535067e2 * t20545 * t1458 + 0.50000000000000000001e0 * t7854 * t1507 + 0.10000000000000000000e1 * t20550 * t523 + t2717 * t1859 - t387 * t18 * t7039 * t1106 / 0.32e2 - t1444 * t18 * t20558 * t1360 / 0.24e2 - t20564 / 0.48e2 - 0.19298375398431042080e3 * t5192 * t2806 * t6621 + 0.64327917994770140268e2 * t17440 * t2218 + 0.32163958997385070134e2 * t4223 * t7829 + 0.32163958997385070134e2 * t4209 * t7829 + 0.50000000000000000001e0 * t5205 * t2619 + 0.10000000000000000000e1 * t1205 * t7419;
12745   t20594 = t830 * t1505;
12746   t20602 = t7073 * t501;
12747   t20609 = 0.50000000000000000001e0 * t4385 * t2619 + 0.10000000000000000000e1 * t5224 * t2619 + t17529 / 0.27e2 - t17532 / 0.36e2 - 0.7e1 / 0.108e3 * t17536 + t17540 / 0.9e1 - 0.20000000000000000000e1 * t1223 * t20478 * t440 * t158 + 0.32163958997385070134e2 * t4193 * t7807 - 0.20000000000000000000e1 * t1231 * t793 * t20594 + 0.32163958997385070134e2 * t6526 * t6615 + 0.32163958997385070134e2 * t6526 * t5974 + 0.10000000000000000000e1 * t20602 * t523 + 0.64327917994770140268e2 * t4223 * t7295 + 0.32163958997385070134e2 * t4201 * t7807;
12748   t20622 = t158 * t6446;
12749   t20642 = 0.64327917994770140268e2 * t18437 * t2228 + 0.16081979498692535067e2 * t1213 * t7518 * t4371 + 0.64327917994770140268e2 * t6526 * t6546 - 0.19298375398431042081e3 * t17166 * t7283 + 0.32163958997385070134e2 * t1454 * t2001 * t20622 - 0.19298375398431042081e3 * t17207 * t7283 + 0.10000000000000000000e1 * t2272 * t6718 + 0.10000000000000000000e1 * t18711 * t794 + 0.20000000000000000000e1 * t18484 * t768 + 0.20000000000000000000e1 * t2315 * t5511 + 0.20000000000000000000e1 * t18855 * t794 + 0.12000000000000000000e2 * t20222 * t6725 + 0.20690405167709360120e4 * t16844 * t7304;
12750   t20665 = t478 * t1963;
12751   t20672 = t2507 * t1222;
12752   t20675 = t7206 * t501;
12753   t20678 = 0.40000000000000000000e1 * t18345 * t7298 + 0.64327917994770140268e2 * t18708 * t2218 + 0.10000000000000000000e1 * t18210 * t768 + 0.16081979498692535067e2 * t1454 * t2806 * t1339 + 0.10000000000000000000e1 * t17874 * t768 + 0.16081979498692535067e2 * t16930 * t2586 + 0.32163958997385070134e2 * t16890 * t2586 + 0.40000000000000000000e1 * t6064 * t847 * t18868 + 0.64327917994770140268e2 * t6707 * t6622 - 0.40000000000000000000e1 * t18481 * t2221 + 0.64327917994770140268e2 * t1454 * t2001 * t20665 + 0.16081979498692535067e2 * t1454 * t7705 * t4367 - 0.20000000000000000000e1 * t20672 * t1226 + 0.10000000000000000000e1 * t20675 * t523;
12754   t20680 = t2551 * t1212;
12755   t20692 = t7201 * t417;
12756   t20695 = t2507 * t1453;
12757   t20698 = t7149 * t417;
12758   t20701 = t439 * t1963;
12759   t20709 = 0.16081979498692535067e2 * t20680 * t1218 + 0.20000000000000000000e1 * t6551 * t2275 + t16876 / 0.48e2 + t16878 / 0.24e2 - 0.5e1 / 0.72e2 * t16883 + 0.64327917994770140268e2 * t6606 * t6622 + 0.32163958997385070134e2 * t6606 * t6651 + 0.10000000000000000000e1 * t20692 * t442 + 0.32163958997385070134e2 * t20695 * t1458 + 0.10000000000000000000e1 * t20698 * t442 + 0.41380810335418720240e4 * t17404 * t17405 * t20701 + 0.20000000000000000000e1 * t2264 * t5511 + 0.20000000000000000000e1 * t6565 * t2308;
12760   t20742 = 0.10000000000000000000e1 * t2264 * t5970 + 0.20690405167709360120e4 * t18494 * t6660 - 0.19298375398431042081e3 * t18695 * t6609 + 0.32163958997385070134e2 * t4209 * t7891 - 0.19298375398431042081e3 * t18635 * t6609 + 0.60000000000000000000e1 * t18730 * t7310 - 0.96491876992155210402e2 * t5192 * t7705 * t5527 - 0.3e1 / 0.32e2 * t1108 * t2412 - 0.3e1 / 0.16e2 * t7251 * t375 - 0.3e1 / 0.32e2 * t2418 * t1192 + 0.20690405167709360120e4 * t16841 * t7304 + 0.30000000000000000000e1 * t1213 * t2618 * t6510 + 0.10000000000000000000e1 * t2315 * t6521 - t323 * t18 * t5238 * t2416 / 0.32e2;
12761   t20771 = t387 * t127 * t7441;
12762   t20774 = t323 * t127 * t7445;
12763   t20777 = t323 * t127 * t7449;
12764   t20779 = -t323 * t18 * t1744 * t7137 / 0.16e2 - 0.40000000000000000000e1 * t18849 * t2221 - 0.40000000000000000000e1 * t18619 * t2221 + 0.4e1 * t2114 * t2215 + 0.57895126195293126241e3 * t4358 * t2806 * t5527 + 0.60000000000000000000e1 * t5942 * t6511 - 0.40000000000000000000e1 * t6677 * t5935 - 0.12414243100625616072e5 * t17144 * t7059 * t6510 - 0.96491876992155210402e2 * t4217 * t2585 * t4371 + 0.50000000000000000001e0 * t7841 * t1433 - t20771 / 0.48e2 - t20774 / 0.48e2 - t20777 / 0.48e2;
12765   t20781 = t1754 * t127 * t7433;
12766   t20783 = t16 * t17819;
12767   t20793 = t387 * t4340 * t7437;
12768   t20795 = t2525 * t1222;
12769   t20817 = -t20781 / 0.36e2 - t1444 * t20783 * t1447 * t225 / 0.3e1 - t1754 * t20783 * t1757 * t225 / 0.3e1 - 0.7e1 / 0.24e2 * t20793 - 0.10000000000000000000e1 * t20795 * t1226 + 0.20000000000000000000e1 * t6557 * t2279 + 0.20000000000000000000e1 * t1205 * t7428 + 0.20000000000000000000e1 * t5224 * t2581 + 0.10000000000000000000e1 * t4385 * t2581 + 0.20000000000000000000e1 * t1208 * t7428 + 0.10000000000000000000e1 * t18860 * t768 + 0.10000000000000000000e1 * t1461 * t7823 + 0.30000000000000000000e1 * t1213 * t2816 * t4371 + 0.64327917994770140268e2 * t4201 * t7054;
12770   t20821 = t1103 * t778;
12771   t20826 = t1103 * t752;
12772   t20829 = t830 * t1214;
12773   t20848 = 0.64327917994770140268e2 * t4193 * t7054 + 0.62181400000000000000e-1 * t20821 * t203 + 0.62181400000000000000e-1 * t5860 * t831 - 0.62181400000000000000e-1 * t20826 * t159 + 0.20690405167709360120e4 * t5231 * t6010 * t20829 - 0.40000000000000000000e1 * t4231 * t7050 + 0.20690405167709360120e4 * t18598 * t6654 - 0.40000000000000000000e1 * t18846 * t7310 - t18262 / 0.9e1 + 0.60000000000000000000e1 * t1454 * t2812 * t6621 + 0.30000000000000000000e1 * t1454 * t2812 * t4367 + t18293 / 0.27e2 - t18296 / 0.18e2;
12774   t20854 = t2687 * t4361;
12775   t20865 = t7138 * t417;
12776   t20868 = t7141 * t417;
12777   t20872 = t18012 * t2;
12778   t20881 = t689 * t378 * t2;
12779   t20890 = -t18299 / 0.36e2 - 0.7e1 / 0.108e3 * t18304 - 0.20000000000000000000e1 * t1223 * t7822 * t2217 + 0.10345202583854680060e4 * t4358 * t20854 * t5527 - 0.10000000000000000000e1 * t1223 * t2802 * t4367 + 0.20000000000000000000e1 * t6630 * t2312 + 0.20000000000000000000e1 * t6633 * t2312 + 0.10000000000000000000e1 * t20865 * t442 + 0.10000000000000000000e1 * t20868 * t442 - 0.7e1 / 0.9e1 * t6645 * t18286 * t60 * t20872 + t6669 * t6498 * t60 * t20872 + 0.7e1 / 0.9e1 * t5838 * t17557 * t102 * t20881 - t6673 * t6504 * t102 * t20881 + 0.10000000000000000000e1 * t1387 * t7823;
12780   t20895 = t2504 * t1222;
12781   t20903 = t2416 * t1264;
12782   t20909 = t6669 * t5844 * t7217;
12783   t20911 = t7240 * t1249;
12784   t20915 = t7216 * t1249;
12785   t20925 = t2062 * t136;
12786   t20932 = -0.10000000000000000000e1 * t20895 * t1226 - 0.10000000000000000000e1 * t1231 * t1232 * t2500 - 0.31090700000000000000e-1 * t2507 * t1340 - 0.15545350000000000000e-1 * t20903 * t159 - 0.10000000000000000000e1 * t16964 * t2813 + t20909 / 0.12e2 + t6669 * t2257 * t20911 / 0.8e1 - t6645 * t2257 * t20915 / 0.2e1 + 0.60000000000000000000e1 * t1213 * t793 * t20829 + t1739 * t2800 + 0.60000000000000000000e1 * t6526 * t6511 - 0.12436280000000000000e0 * t1104 * t20925 * t158 - 0.12436280000000000000e0 * t1104 * t7461 * t478;
12787   t20941 = t2047 * t180;
12788   t20963 = 0.32163958997385070134e2 * t1213 * t2009 * t20594 - 0.20000000000000000000e1 * t1231 * t7418 * t2224 - 0.40000000000000000000e1 * t5215 * t7815 + 0.12436280000000000000e0 * t1104 * t20941 * t202 + 0.12436280000000000000e0 * t1104 * t5947 * t830 + 0.2e1 * t6496 * t893 - 0.5e1 / 0.72e2 * t18358 - 0.5e1 / 0.72e2 * t18361 - 0.5e1 / 0.72e2 * t18366 + 0.12000000000000000000e2 * t18318 * t5935 + 0.20690405167709360120e4 * t17886 * t6660 + 0.32163958997385070134e2 * t6707 * t6651 + 0.12865583598954028054e3 * t1104 * t114 * t1453 * t2218;
12789   t20989 = t123 * t11 / t125 / t1563;
12790   t20990 = t1366 * t225;
12791   t20994 = t1641 * t2614;
12792   t20996 = t1641 * t2608;
12793   t21001 = t1641 * t2611;
12794   t21006 = t545 * t7331;
12795   t21008 = t1359 * t225;
12796   t21019 = 0.26472937500000000000e1 * t4695 * t2596 * t1469 - 0.66182343750000000000e1 * t15552 * t2589 * t1469 - 0.15779062500000000000e0 * t4689 * t2596 * t1469 + 0.16671200000000000000e1 * t20989 * t516 * t20990 - 0.11577222222222222222e0 * t20994 - 0.38590740740740740742e-1 * t20996 + 0.13892666666666666667e0 * t1959 * t1495 * t2033 + 0.23154444444444444445e0 * t21001 - 0.83356000000000000000e0 * t1959 * t516 * t2038 + 0.13892666666666666667e0 * t21006 - 0.27785333333333333334e0 * t20989 * t1495 * t21008 + 0.23668593750000000000e0 * t15542 * t2589 * t1469 - 0.35297250000000000000e1 * t2066 * t6261 - 0.17648625000000000000e1 * t7412 * t1477;
12797   t21020 = t5884 * t7103;
12798   t21022 = t2538 * t1106;
12799   t21024 = t207 * t489 * t21022;
12800   t21026 = t538 * t7115;
12801   t21028 = t7108 * t1360;
12802   t21030 = t207 * t489 * t21028;
12803   t21035 = t6322 * t7379;
12804   t21037 = t7087 * t1360;
12805   t21041 = t545 * t7373;
12806   t21043 = t7082 * t1360;
12807   t21047 = t545 * t7376;
12808   t21050 = t123 * t1958 * t16;
12809   t21061 = 0.15149933333333333334e2 * t21020 - 0.30988500000000000000e1 * t21024 - 0.68863333333333333333e0 * t21026 - 0.30988500000000000000e1 * t21030 + t15458 - 0.62517000000000000000e0 * t216 * t516 * t21028 - 0.60201555555555555557e0 * t21035 + 0.25006800000000000000e1 * t216 * t516 * t21037 - 0.27785333333333333334e0 * t21041 - 0.12503400000000000000e1 * t216 * t1495 * t21043 + 0.61745185185185185186e-1 * t21047 + 0.50013600000000000000e1 * t21050 * t17728 * t20881 + 0.37047111111111111112e0 * t21050 * t17738 * t20881 - 0.16671200000000000000e1 * t21050 * t17734 * t20881 + 0.83356000000000000002e0 * t17702;
12810   t21077 = 0.11114133333333333334e1 * t17704 - 0.18523555555555555556e0 * t17706 + 0.92617777777777777780e0 * t17708 - 0.15436296296296296297e0 * t17710 - 0.27785333333333333334e0 * t17712 - 0.27785333333333333334e0 * t17714 + 0.46308888888888888890e-1 * t17716 + 0.61745185185185185187e-1 * t17718 + 0.18363555555555555555e1 * t17579 - 0.61211851851851851850e0 * t17581 + 0.22954444444444444444e0 * t17583 + 0.38257407407407407407e0 * t17585 - 0.91817777777777777776e0 * t17587 - 0.68863333333333333332e0 * t17589;
12811   t21091 = t107 * t1928 * t15;
12812   t21093 = t21091 * t17637 * t20881;
12813   t21095 = 0.88e2 / 0.9e1 * t21020 - 0.2e1 * t21024 - 0.4e1 / 0.9e1 * t21026 - 0.2e1 * t21030 + 0.32e2 / 0.27e2 * t17579 - 0.32e2 / 0.81e2 * t17581 + 0.4e1 / 0.27e2 * t17583 + 0.20e2 / 0.81e2 * t17585 - 0.16e2 / 0.27e2 * t17587 - 0.4e1 / 0.9e1 * t17589 + 0.16e2 / 0.9e1 * t17591 - 0.32e2 / 0.3e1 * t21093;
12814   t21097 = t21091 * t17641 * t20881;
12815   t21100 = t21091 * t17633 * t20881;
12816   t21106 = t107 * t12 / t17 / t1563;
12817   t21108 = t21106 * t489 * t20990;
12818   t21110 = t538 * t7122;
12819   t21113 = t21106 * t1357 * t21008;
12820   t21116 = t1929 * t489 * t2038;
12821   t21118 = t1632 * t2547;
12822   t21120 = t1632 * t2539;
12823   t21123 = t1929 * t1357 * t2033;
12824   t21125 = t1632 * t2543;
12825   t21127 = 0.80e2 / 0.27e2 * t21097 + 0.16e2 * t21100 - 0.4e1 / 0.9e1 * t17594 + t15564 + 0.16e2 / 0.3e1 * t21108 + 0.2e1 / 0.9e1 * t21110 - 0.16e2 / 0.9e1 * t21113 - 0.8e1 / 0.3e1 * t21116 - 0.4e1 / 0.27e2 * t21118 - 0.8e1 / 0.81e2 * t21120 + 0.8e1 / 0.9e1 * t21123 + 0.8e1 / 0.27e2 * t21125;
12826   t21130 = t207 * t1357 * t21043;
12827   t21133 = t15028 * t2537 * t1360;
12828   t21135 = t207 * t4625 * t21133;
12829   t21138 = t207 * t489 * t21037;
12830   t21141 = t4630 * t2421 * t1360;
12831   t21143 = t207 * t1357 * t21141;
12832   t21145 = t538 * t7110;
12833   t21148 = t1359 * t7120 * t378;
12834   t21150 = t207 * t1357 * t21148;
12835   t21152 = t7108 * t1106;
12836   t21154 = t207 * t1357 * t21152;
12837   t21157 = t4606 * t2421 * t1360;
12838   t21159 = t207 * t4625 * t21157;
12839   t21162 = t1366 * t7120 * t378;
12840   t21164 = t207 * t489 * t21162;
12841   t21166 = t7113 * t1106;
12842   t21168 = t207 * t489 * t21166;
12843   t21170 = t538 * t7089;
12844   t21172 = t538 * t7084;
12845   t21174 = -0.8e1 * t21130 + 0.40e2 / 0.9e1 * t21135 + 0.8e1 * t21138 + 0.4e1 / 0.3e1 * t21143 + 0.4e1 / 0.27e2 * t21145 - 0.4e1 / 0.9e1 * t21150 - 0.2e1 / 0.9e1 * t21154 - 0.10e2 / 0.27e2 * t21159 + 0.4e1 / 0.3e1 * t21164 + 0.2e1 / 0.3e1 * t21168 - 0.8e1 / 0.9e1 * t21170 + 0.20e2 / 0.81e2 * t21172;
12846   t21175 = t5884 * t7093;
12847   t21177 = t7082 * t1106;
12848   t21179 = t207 * t4625 * t21177;
12849   t21182 = t14997 * t2537 * t1360;
12850   t21184 = t207 * t14995 * t21182;
12851   t21186 = t7087 * t1106;
12852   t21188 = t207 * t1357 * t21186;
12853   t21190 = t538 * t7099;
12854   t21200 = -0.88e2 / 0.27e2 * t21175 - 0.10e2 / 0.27e2 * t21179 - 0.80e2 / 0.81e2 * t21184 + 0.4e1 / 0.3e1 * t21188 + 0.4e1 / 0.3e1 * t21190 + 0.8e1 / 0.27e2 * t15055 + 0.56e2 / 0.81e2 * t14983 - 0.4e1 / 0.27e2 * t14985 - 0.8e1 / 0.81e2 * t14987 - 0.8e1 / 0.9e1 * t17663 + 0.4e1 / 0.3e1 * t17665 + 0.56e2 / 0.81e2 * t17675 + 0.284e3 / 0.27e2 * t17679;
12855   t21202 = t21095 + t21127 + t21174 + t21200;
12856   t21223 = 0.27545333333333333332e1 * t17591 + 0.35297250000000000000e1 * t503 * t21202 - 0.16527200000000000000e2 * t21093 + 0.45908888888888888890e1 * t21097 + 0.24790800000000000000e2 * t21100 - 0.27785333333333333334e0 * t17750 - 0.68863333333333333332e0 * t17594 + 0.63116250000000000000e0 * t2082 * t6261 + 0.63116250000000000000e0 * t1485 * t7368 * t505 + 0.63116250000000000000e0 * t510 * t21202 + t15465 + 0.31558125000000000000e0 * t7404 * t1477 + 0.26472937500000000000e1 * t7407 * t1477 + 0.82636000000000000000e1 * t21108 - 0.11577222222222222222e0 * t15490;
12857   t21240 = -0.38590740740740740740e-1 * t15492 + 0.34431666666666666666e0 * t21110 - 0.27545333333333333334e1 * t21113 - 0.41318000000000000000e1 * t21116 - 0.22954444444444444444e0 * t21118 - 0.15302962962962962963e0 * t21120 + 0.13772666666666666667e1 * t21123 + 0.45908888888888888889e0 * t21125 - 0.12395400000000000000e2 * t21130 + 0.68863333333333333334e1 * t21135 + 0.12395400000000000000e2 * t21138 + 0.20659000000000000000e1 * t21143 + 0.22954444444444444444e0 * t21145 - 0.68863333333333333334e0 * t21150;
12858   t21256 = -0.34431666666666666667e0 * t21154 - 0.57386111111111111112e0 * t21159 + 0.20659000000000000000e1 * t21164 + 0.10329500000000000000e1 * t21168 - 0.13772666666666666666e1 * t21170 + 0.38257407407407407407e0 * t21172 - 0.50499777777777777779e1 * t21175 - 0.57386111111111111112e0 * t21179 - 0.15302962962962962963e1 * t21184 + 0.20659000000000000000e1 * t21188 + 0.20659000000000000000e1 * t21190 + 0.61745185185185185184e0 * t15507 + 0.23154444444444444444e0 * t15511 + 0.45908888888888888888e0 * t15055 + 0.10712074074074074074e1 * t14983;
12859   t21267 = t2074 * t2074;
12860   t21270 = t545 * t7388;
12861   t21272 = t545 * t7345;
12862   t21289 = -0.22954444444444444444e0 * t14985 - 0.15302962962962962963e0 * t14987 - 0.35297250000000000000e1 * t1468 * t7368 * t505 - 0.15779062500000000000e0 * t7399 * t1477 + 0.61745185185185185187e0 * t17816 + 0.42604177777777777778e1 * t17822 + 0.63116250000000000000e0 * t1485 * t21267 - 0.27785333333333333334e0 * t21270 + 0.46308888888888888889e-1 * t21272 + 0.20839000000000000000e0 * t216 * t516 * t21166 + 0.20839000000000000000e0 * t216 * t1495 * t21141 - 0.34731666666666666667e-1 * t216 * t1495 * t21152 - 0.46308888888888888889e-1 * t216 * t4604 * t21157 + 0.55570666666666666666e0 * t216 * t4604 * t21133;
12863   t21296 = t545 * t7382;
12864   t21298 = t6322 * t7385;
12865   t21312 = t505 * t2074;
12866   t21323 = -0.46308888888888888889e-1 * t216 * t4604 * t21177 - 0.10805407407407407407e0 * t216 * t15483 * t21182 + 0.83356000000000000001e0 * t21296 + 0.36120933333333333334e1 * t21298 - 0.62517000000000000000e0 * t216 * t516 * t21022 + 0.41678000000000000000e0 * t216 * t516 * t21162 - 0.69463333333333333334e-1 * t216 * t1495 * t21148 + 0.20839000000000000000e0 * t216 * t1495 * t21186 - 0.63116250000000000000e0 * t6239 * t21312 + 0.10589175000000000000e2 * t6236 * t21312 - 0.13772666666666666666e1 * t17663 + 0.20659000000000000000e1 * t17665 + 0.10712074074074074074e1 * t17675 + 0.16297655555555555556e2 * t17679 - 0.35297250000000000000e1 * t1468 * t21267;
12867   t21326 = t21019 + t21061 + t21077 + t21223 + t21240 + t21256 + t21289 + t21323;
12868   t21348 = 0.10712074074074074074e1 * t17909 - 0.16297655555555555556e2 * t17911 + 0.63116250000000000000e0 * t1408 * t7583 * t421 + 0.61745185185185185184e0 * t15703 + 0.23154444444444444444e0 * t15705 + t15709 + 0.20659000000000000000e1 * t17942 - 0.13772666666666666666e1 * t17947 + 0.18363555555555555555e1 * t17978 - 0.61211851851851851850e0 * t17980 + 0.22954444444444444444e0 * t17982 + 0.38257407407407407407e0 * t17984 + 0.91817777777777777776e0 * t17986 - 0.68863333333333333332e0 * t17988;
12869   t21362 = t1641 * t2684;
12870   t21372 = t7165 * t1249;
12871   t21377 = t1255 * t7137 * t314;
12872   t21382 = t1248 * t7137 * t314;
12873   t21388 = -0.27545333333333333332e1 * t17990 - 0.37047111111111111112e0 * t21050 * t18142 * t20872 - 0.50013600000000000000e1 * t21050 * t18134 * t20872 + 0.16671200000000000000e1 * t21050 * t18138 * t20872 + 0.83356000000000000000e0 * t1959 * t435 * t1921 - 0.11577222222222222222e0 * t21362 + 0.26472937500000000000e1 * t7649 * t1400 - 0.35297250000000000000e1 * t1910 * t6396 - 0.17648625000000000000e1 * t7654 * t1400 - 0.15779062500000000000e0 * t7641 * t1400 + 0.25006800000000000000e1 * t216 * t435 * t21372 + 0.41678000000000000000e0 * t216 * t435 * t21377 - 0.69463333333333333334e-1 * t216 * t1421 * t21382 + 0.61745185185185185187e0 * t18032 - 0.42604177777777777778e1 * t18037;
12874   t21391 = t7160 * t1249;
12875   t21395 = t7186 * t1249;
12876   t21399 = t6322 * t7609;
12877   t21404 = t1641 * t2681;
12878   t21406 = t1641 * t2678;
12879   t21410 = t1255 * t225;
12880   t21414 = t1248 * t225;
12881   t21420 = 0.68863333333333333332e0 * t18046 - 0.12503400000000000000e1 * t216 * t1421 * t21391 - 0.62517000000000000000e0 * t216 * t435 * t21395 - 0.36120933333333333334e1 * t21399 - 0.13892666666666666667e0 * t1959 * t1421 * t1916 + 0.23154444444444444445e0 * t21404 - 0.38590740740740740742e-1 * t21406 - 0.11577222222222222222e0 * t15721 - 0.38590740740740740740e-1 * t15723 + t15738 + 0.16671200000000000000e1 * t20989 * t435 * t21410 - 0.27785333333333333334e0 * t20989 * t1421 * t21414 - 0.22954444444444444444e0 * t15155 - 0.15302962962962962963e0 * t15157;
12882   t21424 = t15107 * t2511 * t1249;
12883   t21426 = t207 * t4298 * t21424;
12884   t21429 = t207 * t1246 * t21391;
12885   t21432 = t207 * t405 * t21377;
12886   t21434 = t7191 * t1111;
12887   t21436 = t207 * t405 * t21434;
12888   t21438 = t538 * t7167;
12889   t21440 = t538 * t7162;
12890   t21442 = t5884 * t7171;
12891   t21444 = t7160 * t1111;
12892   t21446 = t207 * t4298 * t21444;
12893   t21449 = t15167 * t2511 * t1249;
12894   t21451 = t207 * t15165 * t21449;
12895   t21453 = t7165 * t1111;
12896   t21455 = t207 * t1246 * t21453;
12897   t21457 = t538 * t7177;
12898   t21460 = t4278 * t2416 * t1249;
12899   t21462 = t207 * t1246 * t21460;
12900   t21465 = t207 * t405 * t21395;
12901   t21467 = 0.45908888888888888888e0 * t15151 + 0.10712074074074074074e1 * t15153 + 0.68863333333333333334e1 * t21426 - 0.12395400000000000000e2 * t21429 + 0.20659000000000000000e1 * t21432 + 0.10329500000000000000e1 * t21436 - 0.13772666666666666666e1 * t21438 + 0.38257407407407407407e0 * t21440 + 0.50499777777777777779e1 * t21442 - 0.57386111111111111112e0 * t21446 - 0.15302962962962962963e1 * t21451 + 0.20659000000000000000e1 * t21455 + 0.20659000000000000000e1 * t21457 + 0.20659000000000000000e1 * t21462 - 0.30988500000000000000e1 * t21465;
12902   t21471 = t207 * t405 * t21372;
12903   t21474 = t21091 * t18017 * t20872;
12904   t21477 = t21091 * t18011 * t20872;
12905   t21481 = t5884 * t7181;
12906   t21483 = t2512 * t1111;
12907   t21485 = t207 * t405 * t21483;
12908   t21487 = t538 * t7193;
12909   t21489 = t538 * t7188;
12910   t21492 = t207 * t1246 * t21382;
12911   t21494 = t7186 * t1111;
12912   t21496 = t207 * t1246 * t21494;
12913   t21499 = t4263 * t2416 * t1249;
12914   t21501 = t207 * t4298 * t21499;
12915   t21504 = t21091 * t18021 * t20872;
12916   t21509 = 0.12395400000000000000e2 * t21471 - 0.45908888888888888890e1 * t21474 + 0.16527200000000000000e2 * t21477 + 0.46308888888888888890e-1 * t18114 + 0.61745185185185185187e-1 * t18118 - 0.15149933333333333334e2 * t21481 - 0.30988500000000000000e1 * t21485 - 0.68863333333333333333e0 * t21487 + 0.22954444444444444444e0 * t21489 - 0.68863333333333333334e0 * t21492 - 0.34431666666666666667e0 * t21496 - 0.57386111111111111112e0 * t21501 - 0.24790800000000000000e2 * t21504 + 0.23668593750000000000e0 * t15778 * t2659 * t1392;
12917   t21531 = 0.56e2 / 0.81e2 * t17909 - 0.284e3 / 0.27e2 * t17911 + t15800 + 0.4e1 / 0.3e1 * t17942 - 0.8e1 / 0.9e1 * t17947 + 0.32e2 / 0.27e2 * t17978 - 0.32e2 / 0.81e2 * t17980 + 0.4e1 / 0.27e2 * t17982 + 0.20e2 / 0.81e2 * t17984 + 0.16e2 / 0.27e2 * t17986 - 0.4e1 / 0.9e1 * t17988 - 0.16e2 / 0.9e1 * t17990;
12918   t21544 = 0.4e1 / 0.9e1 * t18046 - 0.4e1 / 0.27e2 * t15155 - 0.8e1 / 0.81e2 * t15157 + 0.8e1 / 0.27e2 * t15151 + 0.56e2 / 0.81e2 * t15153 + 0.40e2 / 0.9e1 * t21426 - 0.8e1 * t21429 + 0.4e1 / 0.3e1 * t21432 + 0.2e1 / 0.3e1 * t21436 - 0.8e1 / 0.9e1 * t21438 + 0.20e2 / 0.81e2 * t21440 + 0.88e2 / 0.27e2 * t21442;
12919   t21558 = -0.10e2 / 0.27e2 * t21446 - 0.80e2 / 0.81e2 * t21451 + 0.4e1 / 0.3e1 * t21455 + 0.4e1 / 0.3e1 * t21457 + 0.4e1 / 0.3e1 * t21462 - 0.2e1 * t21465 + 0.8e1 * t21471 - 0.80e2 / 0.27e2 * t21474 + 0.32e2 / 0.3e1 * t21477 - 0.88e2 / 0.9e1 * t21481 - 0.2e1 * t21485 - 0.4e1 / 0.9e1 * t21487;
12920   t21565 = t21106 * t1246 * t21414;
12921   t21568 = t21106 * t405 * t21410;
12922   t21570 = t538 * t7197;
12923   t21573 = t1929 * t405 * t1921;
12924   t21575 = t1632 * t2521;
12925   t21577 = t1632 * t2513;
12926   t21580 = t1929 * t1246 * t1916;
12927   t21582 = t1632 * t2517;
12928   t21584 = 0.4e1 / 0.27e2 * t21489 - 0.4e1 / 0.9e1 * t21492 - 0.2e1 / 0.9e1 * t21496 - 0.10e2 / 0.27e2 * t21501 - 0.16e2 * t21504 - 0.16e2 / 0.9e1 * t21565 + 0.16e2 / 0.3e1 * t21568 + 0.2e1 / 0.9e1 * t21570 + 0.8e1 / 0.3e1 * t21573 - 0.4e1 / 0.27e2 * t21575 - 0.8e1 / 0.81e2 * t21577 - 0.8e1 / 0.9e1 * t21580 + 0.8e1 / 0.27e2 * t21582;
12929   t21586 = t21531 + t21544 + t21558 + t21584;
12930   t21595 = t545 * t7594;
12931   t21597 = t545 * t7597;
12932   t21599 = t6322 * t7600;
12933   t21613 = t545 * t7588;
12934   t21615 = -0.15779062500000000000e0 * t4317 * t2666 * t1392 - 0.66182343750000000000e1 * t15759 * t2659 * t1392 + 0.26472937500000000000e1 * t4313 * t2666 * t1392 + 0.27785333333333333334e0 * t18123 + 0.35297250000000000000e1 * t419 * t21586 - 0.34731666666666666667e-1 * t216 * t1421 * t21494 - 0.46308888888888888889e-1 * t216 * t4261 * t21499 - 0.27785333333333333334e0 * t21595 + 0.61745185185185185186e-1 * t21597 + 0.60201555555555555557e0 * t21599 + 0.20839000000000000000e0 * t216 * t1421 * t21453 + 0.55570666666666666666e0 * t216 * t4261 * t21424 - 0.46308888888888888889e-1 * t216 * t4261 * t21444 - 0.10805407407407407407e0 * t216 * t15729 * t21449 - 0.27785333333333333334e0 * t21613;
12935   t21617 = t545 * t7591;
12936   t21619 = t545 * t7603;
12937   t21632 = t1934 * t1934;
12938   t21637 = t421 * t1934;
12939   t21645 = 0.46308888888888888889e-1 * t21617 + 0.83356000000000000001e0 * t21619 - 0.62517000000000000000e0 * t216 * t435 * t21483 + 0.20839000000000000000e0 * t216 * t435 * t21434 + 0.20839000000000000000e0 * t216 * t1421 * t21460 - 0.27785333333333333334e0 * t18125 + 0.83356000000000000002e0 * t18130 + 0.63116250000000000000e0 * t1408 * t21632 - 0.35297250000000000000e1 * t1391 * t21632 - 0.63116250000000000000e0 * t6353 * t21637 + 0.10589175000000000000e2 * t6350 * t21637 - 0.27545333333333333334e1 * t21565 + 0.82636000000000000000e1 * t21568 + 0.34431666666666666666e0 * t21570;
12940   t21665 = t545 * t7612;
12941   t21667 = 0.41318000000000000000e1 * t21573 - 0.22954444444444444444e0 * t21575 - 0.15302962962962962963e0 * t21577 - 0.13772666666666666667e1 * t21580 + 0.45908888888888888889e0 * t21582 - 0.27785333333333333334e0 * t18147 - 0.11114133333333333334e1 * t18161 + 0.18523555555555555556e0 * t18163 + 0.92617777777777777780e0 * t18174 - 0.15436296296296296297e0 * t18176 + 0.63116250000000000000e0 * t426 * t21586 - 0.35297250000000000000e1 * t1391 * t7583 * t421 + 0.63116250000000000000e0 * t1942 * t6396 + 0.31558125000000000000e0 * t7646 * t1400 + 0.13892666666666666667e0 * t21665;
12942   t21670 = t21348 + t21388 + t21420 + t21467 + t21509 + t21615 + t21645 + t21667;
12943   t21676 = t67 * t431 * t2411;
12944   t21678 = t2418 * t1202;
12945   t21680 = t2423 * t1197;
12946   t21682 = t691 * t5963;
12947   t21688 = -0.20000000000000000000e1 * t4231 * t7812 - 0.20000000000000000000e1 * t4212 * t7812 - 0.80000000000000000000e1 * t1104 * t114 * t1222 * t2221 - 0.40000000000000000000e1 * t4212 * t7286 + 0.60000000000000000000e1 * t4201 * t7280 + 0.50000000000000000001e0 * t502 * t21326 * t521 * t202 + 0.10000000000000000000e1 * t1208 * t7419 + 0.50000000000000000001e0 * t418 * t21670 * t440 * t158 + t21676 / 0.48e2 + t21678 / 0.48e2 + t21680 / 0.48e2 + t21682 / 0.24e2 - t1754 * t18 * t15954 * t2511 / 0.24e2;
12948   t21694 = t2531 * t1230;
12949   t21708 = t7417 * t1216;
12950   t21719 = t7225 * t1360;
12951   t21723 = t7230 * t1360;
12952   t21727 = -0.20000000000000000000e1 * t1223 * t767 * t20622 + 0.16081979498692535067e2 * t17037 * t2807 - 0.20000000000000000000e1 * t21694 * t1233 + 0.10000000000000000000e1 * t502 * t6717 * t830 + 0.32163958997385070134e2 * t4223 * t7891 + 0.60000000000000000000e1 * t4209 * t7324 - 0.40000000000000000000e1 * t4212 * t7050 + 0.10000000000000000000e1 * t1461 * t7826 + 0.32163958997385070134e2 * t1213 * t21708 * t2224 + 0.32163958997385070134e2 * t5942 * t6615 - 0.10000000000000000000e1 * t1231 * t2618 * t4371 - 0.20000000000000000000e1 * t18543 * t794 + t6673 * t2250 * t21719 / 0.4e1 + t6673 * t2250 * t21723 / 0.8e1;
12953   t21730 = t7235 * t1360;
12954   t21738 = t7146 * t417;
12955   t21756 = -t5838 * t2250 * t21730 / 0.2e1 + 0.3e1 / 0.8e1 * t6729 * t7260 + 0.20000000000000000000e1 * t7849 * t1464 + 0.20000000000000000000e1 * t21738 * t442 + 0.10000000000000000000e1 * t7849 * t1433 + 0.10000000000000000000e1 * t1387 * t7826 + 0.10000000000000000000e1 * t418 * t7822 * t478 + 0.50000000000000000001e0 * t418 * t2802 * t1339 + 0.41e2 / 0.24e2 * t18449 + t18451 / 0.12e2 + t18453 / 0.12e2 - 0.41e2 / 0.24e2 * t18460 - 0.5e1 / 0.216e3 * t18463;
12956   t21759 = t7235 * t1106;
12957   t21767 = t373 * t2511 * t314;
12958   t21771 = t7216 * t1111;
12959   t21783 = t6673 * t5830 * t7236;
12960   t21823 = t1150 * t2363 * sigma[0];
12961   t21829 = t352 * t2363 * t648;
12962   t21832 = 0.17027235840000000000e-5 * t1155 * t2789 - 0.53222400000000000000e-4 * t1155 * t2785 - 0.34705800000000000000e-3 * t16322 * t2776 - 0.34705800000000000000e-3 * t5559 * t2767 - 0.53222400000000000000e-4 * t1127 * t2796 - 0.27069582222222222222e-2 * t1127 * t2782 - 0.10014814814814814815e3 * t1130 * t6964 - 0.15210e2 * t5050 * t2723 * t1820 + 0.10140e2 * t5709 * t5564 + 0.10140e2 * t5175 * t6799 + 0.5070e1 * t1764 * t2736 * t1820 - 0.30420e2 * t16325 * t6794 + 0.27421866666666666666e-1 * t5735 * t21823 - 0.82265600000000000000e-4 * t5740 * t21823 - 0.15424800000000000000e-1 * t5730 * t21829;
12963   t21833 = t2363 * t653;
12964   t21834 = t352 * t21833;
12965   t21837 = t662 * t2891;
12966   t21838 = t3416 * t6818;
12967   t21841 = t6826 * t19986;
12968   t21844 = t2358 * t5716;
12969   t21847 = t2358 * t5721;
12970   t21850 = t5175 * t307;
12971   t21855 = t6814 * t19986;
12972   t21858 = t701 * t648;
12973   t21862 = t701 * t653;
12974   t21866 = t656 * t2891;
12975   t21871 = t6933 * t5716;
12976   t21874 = t6933 * t5721;
12977   t21881 = 0.20566400000000000000e-1 * t5745 * t21834 + 0.54843733333333333334e-1 * t21837 * t21838 - 0.13327027200000000000e-3 * t16310 * t21841 - 0.21718118400000000000e-3 * t5755 * t21844 + 0.21718118400000000000e-3 * t5758 * t21847 + 0.77124000000000000000e-2 * t21850 * t6803 - 0.82265600000000000000e-4 * t5751 * t21823 - 0.22211712000000000000e-1 * t16289 * t21855 - 0.19743744000000000000e-1 * t19713 * t2154 * t21858 + 0.29615616000000000000e-1 * t19985 * t2154 * t21862 + 0.54843733333333333334e-1 * t21866 * t21838 + 0.66635136000000000000e-4 * t16297 * t21855 - 0.22211712000000000000e-1 * t16289 * t21871 + 0.44423424000000000000e-1 * t16305 * t21874 + 0.66635136000000000000e-4 * t16297 * t21871 - 0.13327027200000000000e-3 * t16310 * t21874;
12978   t21887 = t1130 * t6818;
12979   t21892 = t6826 * t5606;
12980   t21897 = t6814 * t5606;
12981   t21908 = t2383 * t5716;
12982   t21911 = t2383 * t5721;
12983   t21920 = -0.10283200000000000000e-1 * t5725 * t21829 + 0.15424800000000000000e-1 * t5730 * t21834 - 0.82265600000000000000e-4 * t5751 * t21887 - 0.82265600000000000000e-4 * t5740 * t21887 + 0.21718118400000000000e-3 * t5758 * t21892 + 0.27421866666666666667e-1 * t5748 * t21887 - 0.21718118400000000000e-3 * t5755 * t21897 + 0.27421866666666666667e-1 * t5735 * t21887 + 0.48865766400000000000e-6 * t5715 * t21897 + 0.48865766400000000000e-6 * t5715 * t21844 - 0.48865766400000000000e-6 * t5720 * t21847 + 0.21323243520000000000e-5 * t20112 * t21908 - 0.21323243520000000000e-5 * t20120 * t21911 - 0.42646487040000000000e-8 * t20117 * t21908 + 0.42646487040000000000e-8 * t20125 * t21911 + 0.44423424000000000000e-1 * t16305 * t21841;
12984   t21929 = t1130 * t6806;
12985   t21932 = t6802 * t5615;
12986   t21939 = t6826 * t5574;
12987   t21944 = t6814 * t5574;
12988   t21951 = t1797 * tau[0];
12989   t21953 = t3137 * sigma[0];
12990   t21954 = t20176 * t21953;
12991   t21957 = t1794 * tau[0];
12992   t21965 = t1812 * t633 * t876;
12993   t21968 = 0.29615616000000000000e-1 * t19985 * t2161 * t21858 - 0.39487488000000000000e-1 * t19677 * t2161 * t21862 + 0.27421866666666666666e-1 * t5748 * t21823 + 0.15424800000000000000e-1 * t5730 * t21929 - 0.15424800000000000000e-1 * t5730 * t21932 + 0.20566400000000000000e-1 * t5745 * t21929 - 0.10283200000000000000e-1 * t5725 * t21932 - 0.21323243520000000000e-5 * t20120 * t21939 + 0.42646487040000000000e-8 * t20125 * t21939 + 0.21323243520000000000e-5 * t20112 * t21944 - 0.42646487040000000000e-8 * t20117 * t21944 - 0.48865766400000000000e-6 * t5720 * t21892 + 0.14807808000000000000e-5 * t656 * t21951 * t21954 - 0.65812480000000000000e-3 * t662 * t21957 * t21954 - 0.65812480000000000000e-3 * t656 * t21957 * t21954 + 0.82265600000000000000e-1 * t21965 * t5737;
12994   t21971 = t1794 * t876;
12995   t21975 = t3137 * t653;
12996   t21976 = t2149 * t21975;
12997   t21979 = t1797 * t876;
12998   t21983 = t3137 * t648;
12999   t21984 = t2149 * t21983;
13000   t21995 = t9654 * sigma[0];
13001   t21996 = t20176 * t21995;
13002   t21999 = t636 * t873;
13003   t22000 = t1774 * t21999;
13004   t22004 = t1812 * t636 * t876;
13005   t22013 = t5050 * t879;
13006   t22016 = t633 * t873;
13007   t22017 = t1764 * t22016;
13008   t22020 = t1764 * t21999;
13009   t22023 = t9654 * t648;
13010   t22027 = 0.47384985600000000000e-3 * t1812 * t21971 * t5722 + 0.82265600000000000000e-1 * t20194 * t21976 + 0.79962163200000000000e-6 * t1774 * t21979 * t5717 + 0.18509760000000000000e-3 * t20187 * t21984 - 0.10661621760000000000e-5 * t1812 * t21979 * t5722 - 0.24679680000000000000e-3 * t20197 * t21976 + 0.14807808000000000000e-5 * t662 * t21951 * t21954 - 0.18509760000000000000e-3 * t20187 * t21996 + 0.18509760000000000000e-3 * t22000 * t5737 - 0.24679680000000000000e-3 * t22004 * t5737 - 0.46274400000000000000e-1 * t5037 * t882 * t5727 + 0.77124000000000000000e-1 * t4982 * t882 * t5732 - 0.23137200000000000000e-1 * t22013 * t5732 - 0.41132800000000000000e-1 * t22017 * t5737 + 0.12339840000000000000e-3 * t22020 * t5737 - 0.23137200000000000000e-1 * t20171 * t2149 * t22023;
13011   t22030 = t9654 * t653;
13012   t22034 = t5037 * t879;
13013   t22037 = t1774 * t82;
13014   t22044 = t640 * t2751;
13015   t22051 = t640 * t2736;
13016   t22058 = t2357 * t1820;
13017   t22062 = t2382 * t1806;
13018   t22066 = t2382 * t1765;
13019   t22070 = t2357 * t1806;
13020   t22083 = 0.23137200000000000000e-1 * t22013 * t5727 + 0.46274400000000000000e-1 * t20165 * t2149 * t22030 - 0.46274400000000000000e-1 * t22034 * t5732 + 0.14807808000000000000e-1 * t22037 * t7017 * t5628 + 0.29615616000000000000e-4 * t1849 * t6868 * t1155 - 0.66635136000000000000e-7 * t1853 * t22044 * t1155 - 0.29615616000000000000e-4 * t1839 * t6876 * t1155 + 0.66635136000000000000e-7 * t1844 * t22051 * t1155 + 0.11266666666666666667e3 * t5175 * t876 * t2127 + 0.33934560000000000000e-2 * t1839 * t885 * t22058 + 0.59231232000000000000e-4 * t5125 * t2795 * t22062 + 0.11846246400000000000e-3 * t5110 * t2795 * t22066 - 0.67869120000000000000e-2 * t5125 * t885 * t22070 - 0.67869120000000000000e-2 * t5125 * t6902 * t1127 - 0.18953994240000000000e-5 * t5692 * t8927 * t2383 + 0.14807808000000000000e-1 * t16400 * t5046 * t6933;
13021   t22088 = t5175 * t276;
13022   t22095 = t2736 * sigma[0];
13023   t22096 = t333 * t653;
13024   t22097 = t22095 * t22096;
13025   t22100 = t22095 * t5007;
13026   t22109 = t2358 * t5628;
13027   t22116 = t6826 * t5685;
13028   t22119 = t6826 * t5635;
13029   t22126 = t2751 * sigma[0];
13030   t22127 = t22126 * t5007;
13031   t22130 = 0.14478745600000000000e-3 * t5692 * t5693 * t2358 + 0.37019520000000000000e-2 * t22088 * t6903 - 0.11105856000000000000e-4 * t10970 * t6907 + 0.37019520000000000000e-2 * t19947 * t2754 + 0.74039040000000000000e-2 * t5797 * t22097 + 0.16658784000000000000e-4 * t5005 * t22100 - 0.22211712000000000000e-4 * t5801 * t22097 - 0.33800000000000000000e3 * t5050 * t876 * tau[0] * t5699 + 0.20360736000000000000e-1 * t5011 * t22109 - 0.18098432000000000000e-1 * t5774 * t6884 + 0.23692492800000000000e-3 * t19682 * t2764 + 0.16658784000000000000e-4 * t5005 * t22116 - 0.22211712000000000000e-4 * t5801 * t22119 - 0.23692492800000000000e-3 * t5771 * t6837 + 0.23692492800000000000e-3 * t5774 * t6841 + 0.37019520000000000000e-2 * t5777 * t22127;
13032   t22131 = t22126 * t22096;
13033   t22134 = t6814 * t5635;
13034   t22139 = t2383 * t5628;
13035   t22142 = t2775 * sigma[0];
13036   t22143 = t22142 * t22096;
13037   t22146 = t16219 * t307;
13038   t22150 = t2723 * sigma[0];
13039   t22151 = t22150 * t5007;
13040   t22154 = t22150 * t22096;
13041   t22173 = -0.55529280000000000000e-2 * t5011 * t22131 - 0.55529280000000000000e-2 * t5011 * t22134 - 0.23692492800000000000e-3 * t19595 * t2758 - 0.17769369600000000000e-3 * t16138 * t22139 + 0.33317568000000000000e-4 * t16297 * t22143 - 0.16658784000000000000e-1 * t22146 * t6933 * t5628 + 0.22211712000000000000e-1 * t16305 * t22151 - 0.37019520000000000000e-1 * t19757 * t22154 - 0.66635136000000000000e-4 * t16310 * t22151 + 0.11105856000000000000e-3 * t19761 * t22154 + 0.18098432000000000000e-1 * t5771 * t6845 - 0.61082208000000000000e-4 * t5005 * t22109 + 0.39981081600000000000e-6 * t16302 * t22139 - 0.11105856000000000000e-1 * t16289 * t22143 - 0.11105856000000000000e-4 * t5782 * t22127 + 0.16658784000000000000e-4 * t5005 * t22131;
13042   t22188 = t2751 * t304;
13043   t22191 = t2383 * t1155;
13044   t22196 = t6933 * t1155;
13045   t22201 = t6814 * t5685;
13046   t22204 = t2358 * t1155;
13047   t22209 = t2358 * t1127;
13048   t22212 = t2383 * t1127;
13049   t22217 = t1794 * t873;
13050   t22221 = -0.55529280000000000000e-2 * t5011 * t22100 - 0.15210e2 * t5050 * t2736 * t1765 + 0.60840e2 * t16219 * t2723 * t1765 + 0.31296296296296296296e3 * t1135 * t2366 * t651 + 0.5070e1 * t22188 * t1765 + 0.15163195392000000000e-7 * t19732 * t22191 - 0.28430991360000000000e-10 * t19739 * t22191 - 0.17769369600000000000e-3 * t16138 * t22196 + 0.39981081600000000000e-6 * t16302 * t22196 + 0.37019520000000000000e-2 * t5777 * t22201 - 0.13030871040000000000e-5 * t5804 * t22204 + 0.26061742080000000000e-8 * t5808 * t22204 - 0.29862412800000000000e-6 * t2137 * t22209 - 0.13030871040000000000e-5 * t5804 * t22212 + 0.26061742080000000000e-8 * t5808 * t22212 + 0.23692492800000000000e-3 * t1764 * t22217 * t5717;
13051   t22224 = t1774 * t22217;
13052   t22229 = t1797 * t873;
13053   t22235 = t1774 * t22229;
13054   t22263 = -0.41132800000000000000e-1 * t20203 * t21984 - 0.35538739200000000000e-3 * t22224 * t5722 + 0.61699200000000000000e-1 * t20182 * t21976 - 0.53308108800000000000e-6 * t1764 * t22229 * t5717 + 0.12339840000000000000e-3 * t20175 * t21984 + 0.79962163200000000000e-6 * t22235 * t5722 - 0.18509760000000000000e-3 * t20187 * t21976 - 0.35538739200000000000e-3 * t1774 * t21971 * t5717 - 0.61699200000000000000e-1 * t20182 * t21984 - 0.2535e1 * t5162 * t2736 + 0.5070e1 * t16322 * t2723 - 0.2535e1 * t7032 * t1820 + 0.20360736000000000000e-4 * t2153 * t6906 * t1127 + 0.20823480000000000000e-1 * t16225 * t2154 * t5702 - 0.13573824000000000000e-1 * t5110 * t6916 * t1127 + 0.40721472000000000000e-4 * t2165 * t6922 * t1127;
13055   t22271 = t2357 * t1765;
13056   t22295 = t1126 * t287;
13057   t22313 = -0.11060152888888888889e-1 * t2195 * t5639 * t2358 + 0.20360736000000000000e-4 * t2153 * t889 * t22070 + 0.40721472000000000000e-4 * t2165 * t889 * t22271 - 0.13327027200000000000e-6 * t2153 * t2788 * t22062 - 0.26654054400000000000e-6 * t2165 * t2788 * t22066 + 0.10180368000000000000e-4 * t1853 * t6868 * t1127 + 0.33934560000000000000e-2 * t1839 * t6872 * t1127 - 0.10180368000000000000e-4 * t1844 * t6876 * t1127 - 0.15022222222222222222e3 * t6880 * t5811 - 0.13573824000000000000e-1 * t5110 * t885 * t22271 + 0.14478745600000000000e-3 * t2195 * t22295 * t2383 - 0.33934560000000000000e-2 * t1849 * t6864 * t1127 - 0.11105856000000000000e-4 * t19950 * t2758 + 0.20823480000000000000e-1 * t16225 * t6916 * t5628 + 0.20823480000000000000e-2 * t5051 * t6864 * t5628 - 0.41646960000000000000e-2 * t5038 * t6872 * t5628;
13058   t22314 = t640 * t2723;
13059   t22318 = t2382 * t1827;
13060   t22322 = t2382 * t1820;
13061   t22326 = t2357 * t1827;
13062   t22333 = t5709 * tau[0];
13063   t22354 = t640 * t2775;
13064   t22367 = -0.26654054400000000000e-6 * t2165 * t22314 * t1155 + 0.29615616000000000000e-4 * t1849 * t2795 * t22318 - 0.29615616000000000000e-4 * t1839 * t2795 * t22322 - 0.33934560000000000000e-2 * t1849 * t885 * t22326 - 0.11266666666666666667e3 * t5598 * t20080 * t2211 + 0.11266666666666666667e3 * t22333 * t5699 - 0.15022222222222222222e3 * t5697 * t2149 * t2191 + 0.10180368000000000000e-4 * t1853 * t889 * t22326 - 0.10180368000000000000e-4 * t1844 * t889 * t22058 - 0.66635136000000000000e-7 * t1853 * t2788 * t22318 + 0.66635136000000000000e-7 * t1844 * t2788 * t22322 + 0.59231232000000000000e-4 * t5125 * t6906 * t1155 - 0.13327027200000000000e-6 * t2153 * t22354 * t1155 + 0.20823480000000000000e-2 * t5051 * t2154 * t19650 - 0.41646960000000000000e-2 * t5038 * t2154 * t5564 + 0.11846246400000000000e-3 * t5110 * t6922 * t1155;
13065   t22372 = t1774 * t22016;
13066   t22383 = t1764 * t82;
13067   t22387 = t1812 * t82;
13068   t22391 = t6974 * t1126;
13069   t22403 = t6996 * t1126;
13070   t22416 = 0.61699200000000000000e-1 * t20182 * t21996 - 0.61699200000000000000e-1 * t22372 * t5737 - 0.30420e2 * t19771 * t5702 + 0.34705800000000000000e-2 * t5624 * t6916 * t1820 + 0.34705800000000000000e-2 * t5624 * t6872 * t1765 - 0.49359360000000000000e-2 * t22383 * t7017 * t1806 - 0.98718720000000000000e-2 * t22387 * t7017 * t1765 + 0.18622433280000000000e-5 * t7025 * t22391 - 0.41646960000000000000e-2 * t16220 * t6902 * t1765 - 0.41646960000000000000e-2 * t16220 * t6916 * t1806 - 0.20823480000000000000e-1 * t20102 * t6916 * t1765 - 0.89422549333333333333e-4 * t2170 * t22403 + 0.87789081600000000000e-6 * t2140 * t22403 - 0.17557816320000000000e-8 * t2145 * t22403 - 0.20823480000000000000e-2 * t5038 * t6864 * t1765 + 0.10411740000000000000e-2 * t5051 * t6872 * t1806;
13071   t22430 = t700 * t651;
13072   t22431 = t22430 * t653;
13073   t22434 = t16325 * t283;
13074   t22438 = t2357 * t33 * t1154;
13075   t22460 = -0.11492388864000000000e-7 * t6973 * t22391 + 0.19153981440000000000e-10 * t6978 * t22391 - 0.75111111111111111112e2 * t20059 * t6981 + 0.75111111111111111112e2 * t6984 * t5615 - 0.10014814814814814815e3 * t2148 * t5614 * t700 + 0.20823480000000000000e-2 * t20041 * t2792 - 0.75111111111111111112e2 * t5598 * t22431 + 0.20823480000000000000e-2 * t22434 * t6969 + 0.18622433280000000000e-5 * t5572 * t22438 - 0.11492388864000000000e-7 * t5577 * t22438 + 0.19153981440000000000e-10 * t5580 * t22438 - 0.34705800000000000000e-3 * t2153 * t6864 * t1827 + 0.52058700000000000000e-3 * t1775 * t6864 * t1820 + 0.52058700000000000000e-3 * t1775 * t6872 * t1827 - 0.69411600000000000000e-3 * t2165 * t6872 * t1820 - 0.24679680000000000000e-2 * t7016 * t7017 * t1827;
13076   t22474 = t1764 * t1134;
13077   t22487 = t2382 * t33 * t1154;
13078   t22509 = 0.24679680000000000000e-2 * t7021 * t7017 * t1820 + 0.10411740000000000000e-2 * t5051 * t6902 * t1820 - 0.24679680000000000000e-2 * t5045 * t5046 * t2751 + 0.24679680000000000000e-2 * t5077 * t5046 * t2736 + 0.31296296296296296296e3 * t22474 * t37 * t2347 * t86 - 0.49359360000000000000e-2 * t16185 * t5046 * t2775 - 0.98718720000000000000e-2 * t16181 * t5046 * t2723 - 0.32968507392000000000e-7 * t16054 * t82 * t22487 + 0.16716201984000000000e-9 * t16061 * t82 * t22487 - 0.25074302976000000000e-12 * t16066 * t82 * t22487 + 0.75111111111111111112e2 * t5583 * t6987 - 0.20823480000000000000e-2 * t5038 * t6916 * t1827 - 0.11105856000000000000e-4 * t5782 * t22201 + 0.16658784000000000000e-4 * t5005 * t22134 - 0.55529280000000000000e-2 * t5011 * t22116 + 0.74039040000000000000e-2 * t5797 * t22119;
13079   t22510 = t6814 * t5647;
13080   t22513 = t6826 * t5643;
13081   t22516 = t6826 * t5647;
13082   t22521 = t1130 * t2363;
13083   t22528 = t6933 * t1127;
13084   t22541 = t1135 * t2366;
13085   t22548 = -0.66635136000000000000e-4 * t16310 * t22510 - 0.11105856000000000000e-1 * t16289 * t22513 - 0.37019520000000000000e-1 * t19757 * t22516 - 0.18098432000000000000e-1 * t19604 * t2761 + 0.68554666666666666667e-2 * t2130 * t22521 + 0.22211712000000000000e-1 * t16305 * t22510 + 0.18098432000000000000e-1 * t19601 * t2754 + 0.20360736000000000000e-1 * t5011 * t22528 - 0.61082208000000000000e-4 * t5005 * t22528 + 0.68554666666666666667e-2 * t2126 * t22521 + 0.33317568000000000000e-4 * t16297 * t22513 + 0.11105856000000000000e-3 * t19761 * t22516 + 0.13272183466666666667e-3 * t2133 * t22209 - 0.21423333333333333333e-1 * t5725 * t22541 - 0.64270000000000000000e-1 * t5730 * t22541 - 0.42846666666666666667e-1 * t5745 * t22541;
13086   t22554 = t18466 / 0.12e2 + t18476 / 0.12e2 - 0.7e1 / 0.72e2 * t5838 * t5839 * t21759 - 0.35e2 / 0.108e3 * t17551 * t17552 * t21730 - 0.7e1 / 0.36e2 * t6645 * t6646 * t21767 - 0.7e1 / 0.72e2 * t6645 * t6646 * t21771 - 0.35e2 / 0.108e3 * t18835 * t18836 * t20915 - t2256 * t6498 * t5848 * t2 / 0.3e1 + t21783 / 0.12e2 + 0.20000000000000000000e1 * t17879 * t768 - 0.20000000000000000000e1 * t1231 * t20523 * t521 * t202 - 0.40000000000000000000e1 * t4231 * t7286 + 0.57895126195293126241e3 * t5231 * t2585 * t6510 + t275 * (t21832 + t21881 + t21920 + t21968 + t22027 + t22083 + t22130 + t22173 + t22221 + t22263 + t22313 + t22367 + t22416 + t22460 + t22509 + t22548);
13087   t22567 = t1104 * t752;
13088   t22582 = 0.40000000000000000000e1 * t4212 * t7536 + 0.40000000000000000000e1 * t4231 * t7536 - 0.40000000000000000000e1 * t22567 * t618 + 0.40000000000000000000e1 * t20394 * t626 - 0.60000000000000000000e1 * t6526 * t5985 + 0.96319466275353142156e0 * t14644 - t14648 - 0.65061487801810439052e-1 * t14649 - 0.20690405167709360120e4 * t18534 * t6011 - 0.60000000000000000000e1 * t6707 * t5988 - 0.32163958997385070134e2 * t6526 * t6016;
13089   t22605 = -0.64327917994770140268e2 * t6526 * t6020 - 0.64327917994770140268e2 * t18437 * t2010 - 0.64327917994770140268e2 * t18540 * t2010 - 0.64327917994770140268e2 * t18537 * t2010 + 0.19298375398431042081e3 * t18695 * t5991 + 0.20000000000000000000e1 * t6612 * t5998 + 0.40000000000000000000e1 * t17458 * t2016 + 0.40000000000000000000e1 * t6612 * t6001 + 0.40000000000000000000e1 * t18246 * t2016 + 0.20000000000000000000e1 * t4212 * t7697 - 0.20690405167709360120e4 * t18598 * t6011;
13090   t22625 = 0.20000000000000000000e1 * t4231 * t7697 + t14656 - t14659 - 0.32163958997385070134e2 * t5942 * t6016 - 0.64327917994770140268e2 * t5942 * t6020 + 0.20000000000000000000e1 * t1223 * t7822 * t439 + 0.20000000000000000000e1 * t5215 * t7702 + 0.20000000000000000000e1 * t5212 * t7702 - 0.20690405167709360120e4 * t18494 * t6047 - 0.32163958997385070134e2 * t6606 * t6053 - 0.11393789434848516923e-2 * t18939;
13091   t22639 = t7659 * t1456;
13092   t22647 = -0.18654420000000000000e0 * t4268 * t7461 + 0.18654420000000000000e0 * t4268 * t7454 - 0.8e1 * t14660 + t14702 + 0.12414243100625616072e5 * t17144 * t7059 * t1214 - 0.30000000000000000000e1 * t1454 * t2802 * t1224 + 0.19298375398431042081e3 * t18659 * t6037 - 0.32163958997385070134e2 * t1454 * t22639 * t439 - t14717 + 0.12414243100625616072e5 * t16661 * t7303 * t1224 + 0.64e2 * t14718;
13093   t22656 = t2643 * t107 * t1735;
13094   t22663 = -t14722 + 0.96e2 * t14725 - 0.160e3 * t14727 + 0.192e3 * t14729 - 0.64327917994770140268e2 * t4201 * t7509 + 0.10843581300301739842e-1 * t22656 + t19045 - t19047 + 0.62181400000000000000e-1 * t20826 * t136 - 0.62181400000000000000e-1 * t20821 * t180 - 0.48e2 * t19058;
13095   t22675 = t2584 * t15599;
13096   t22684 = 0.96e2 * t19060 + 0.160e3 * t19062 - 0.240e3 * t19064 - 0.32e2 * t19066 - 0.8e1 * t19068 - 0.8e1 * t19070 - 0.60000000000000000000e1 * t5942 * t5985 + 0.96491876992155210402e2 * t5192 * t2806 * t1431 - 0.99822801518023203660e5 * t16855 * t22675 * t1214 + 0.19298375398431042081e3 * t18394 * t6037 - 0.41380810335418720240e4 * t4358 * t6046 * t20701;
13097   t22695 = t7504 * t7 * t605;
13098   t22702 = -t14751 + 0.32530743900905219526e-1 * t14752 + t14756 + 0.12865583598954028054e3 * t5980 * t18317 * t4378 + 0.20000000000000000000e1 * t6677 * t5998 - 0.64327917994770140268e2 * t18478 * t2002 - 0.36622894612013090108e-3 * t22695 - t14759 + 0.40000000000000000000e1 * t18619 * t2013 + 0.12000000000000000000e2 * t5192 * t2812 * t1224 + t14762;
13099   t22704 = t680 * t5923;
13100   t22707 = t1111 * t2524;
13101   t22710 = t314 * t7200;
13102   t22724 = 0.35515061728395061727e-1 * t17909 - 0.54033629629629629628e0 * t17911 + t15097 + 0.68493333333333333330e-1 * t17942 - 0.45662222222222222220e-1 * t17947 + 0.60882962962962962960e-1 * t17978 - 0.20294320987654320986e-1 * t17980 + 0.76103703703703703700e-2 * t17982 + 0.12683950617283950617e-1 * t17984 + 0.30441481481481481480e-1 * t17986 - 0.22831111111111111110e-1 * t17988 - 0.91324444444444444440e-1 * t17990;
13103   t22737 = 0.22831111111111111110e-1 * t18046 - 0.76103703703703703703e-2 * t15155 - 0.50735802469135802469e-2 * t15157 + 0.15220740740740740741e-1 * t15151 + 0.35515061728395061728e-1 * t15153 + 0.22831111111111111110e0 * t21426 - 0.41095999999999999999e0 * t21429 + 0.68493333333333333332e-1 * t21432 + 0.34246666666666666666e-1 * t21436 - 0.45662222222222222220e-1 * t21438 + 0.12683950617283950617e-1 * t21440 + 0.16742814814814814814e0 * t21442;
13104   t22751 = -0.19025925925925925925e-1 * t21446 - 0.50735802469135802467e-1 * t21451 + 0.68493333333333333331e-1 * t21455 + 0.68493333333333333332e-1 * t21457 + 0.68493333333333333331e-1 * t21462 - 0.10274000000000000000e0 * t21465 + 0.41096000000000000000e0 * t21471 - 0.15220740740740740740e0 * t21474 + 0.54794666666666666664e0 * t21477 - 0.50228444444444444442e0 * t21481 - 0.10274000000000000000e0 * t21485 - 0.22831111111111111110e-1 * t21487;
13105   t22765 = 0.76103703703703703701e-2 * t21489 - 0.22831111111111111110e-1 * t21492 - 0.11415555555555555555e-1 * t21496 - 0.19025925925925925925e-1 * t21501 - 0.82191999999999999998e0 * t21504 - 0.91324444444444444440e-1 * t21565 + 0.27397333333333333332e0 * t21568 + 0.11415555555555555555e-1 * t21570 + 0.13698666666666666666e0 * t21573 - 0.76103703703703703702e-2 * t21575 - 0.50735802469135802467e-2 * t21577 - 0.45662222222222222220e-1 * t21580 + 0.15220740740740740740e-1 * t21582;
13106   t22768 = t6 * (t22724 + t22737 + t22751 + t22765);
13107   t22780 = -0.43374325201206959367e-1 * t14763 - t14767 + 0.31090700000000000000e-1 * t22704 * t136 + 0.15545350000000000000e-1 * t22707 * t136 + 0.31090700000000000000e-1 * t22710 * t136 + 0.15545350000000000000e-1 * t22768 * t136 - 0.10345202583854680060e4 * t5231 * t7059 * t1505 + 0.40000000000000000000e1 * t5215 * t7717 - 0.70178683471615754484e1 * t19101 + 0.40000000000000000000e1 * t5212 * t7717 + 0.20779030926817756511e3 * t14774;
13108   t22796 = -t14781 - 0.70178683471615754484e1 * t14782 - 0.69263436422725855034e2 * t19105 - 0.11696447245269292414e1 * t19107 - 0.23392894490538584828e1 * t19109 + 0.38596750796862084161e3 * t5192 * t2001 * t20701 - 0.12865583598954028054e3 * t6064 * t20221 * t4366 - t14836 - 0.58482236226346462070e0 * t14837 - t14846 - 0.20508037716432813316e4 * t14847;
13109   t22813 = -0.17315859105681463759e2 * t14849 - 0.11696447245269292414e1 * t14854 - t14873 - 0.64327917994770140268e2 * t6707 * t6028 - 0.32163958997385070134e2 * t6707 * t6053 + 0.12436280000000000000e0 * t1104 * t20925 + 0.60000000000000000000e1 * t17478 * t848 - 0.20690405167709360120e4 * t17886 * t6047 + 0.40000000000000000000e1 * t18849 * t2013 + t14885 + 0.40000000000000000000e1 * t18434 * t2016;
13110   t22816 = t553 * t7781;
13111   t22830 = t558 * t7781;
13112   t22832 = t553 * t7779;
13113   t22836 = -0.65061487801810439052e-1 * t19172 + 0.8e1 * t22816 - 0.10000000000000000000e1 * t7201 * t618 - 0.20000000000000000000e1 * t7068 * t626 - 0.10000000000000000000e1 * t7073 * t626 - 0.10000000000000000000e1 * t7126 * t626 - 0.10000000000000000000e1 * t7138 * t618 - 0.64327917994770140268e2 * t17440 * t2002 - 0.8e1 * t22830 + 0.8e1 * t22832 - 0.64327917994770140268e2 * t4193 * t7509;
13114   t22862 = 0.19298375398431042080e3 * t16927 * t7541 + 0.20779030926817756510e3 * t19199 - 0.24e2 * t14892 + 0.40000000000000000000e1 * t5531 * t6040 - 0.60000000000000000000e1 * t4209 * t7714 - 0.32163958997385070134e2 * t1213 * t2009 * t6329 - 0.80000000000000000000e1 * t5980 * t1230 * t792 * t522 + 0.20000000000000000000e1 * t1223 * t767 * t6446 + 0.19298375398431042081e3 * t16709 * t7541 - 0.12436280000000000000e0 * t1104 * t20941 - 0.16081979498692535067e2 * t1454 * t7705 * t1431;
13115   t22868 = t230 * t7504 * t598;
13116   t22888 = -0.20690405167709360120e4 * t16844 * t7788 + 0.2e1 * t22868 - 0.10000000000000000000e1 * t2507 * t1605 - 0.32163958997385070134e2 * t2507 * t1584 - 0.50000000000000000001e0 * t2525 * t1605 - 0.16081979498692535067e2 * t2525 * t1584 - 0.50000000000000000001e0 * t2528 * t1593 - 0.16081979498692535067e2 * t2528 * t1597 - 0.10000000000000000000e1 * t2531 * t1593 - 0.32163958997385070134e2 * t2531 * t1597 - 0.50000000000000000001e0 * t2551 * t1593;
13117   t22891 = t558 * t7779;
13118   t22945 = 0.40e2 / 0.81e2 * t14663 * t2511 * t1249 - 0.64e2 / 0.27e2 * t6150 * t314 * t2 * t1103 - 0.8e1 / 0.27e2 * t7483 * t1111 + 0.32e2 / 0.9e1 * t1513 * t225 * t1564 + 0.16e2 / 0.9e1 * t1980 * t1103 - 0.16e2 / 0.3e1 * t1980 * t4268 - 0.8e1 / 0.27e2 * t4427 * t2416 * t1249 + 0.8e1 / 0.9e1 * t1513 * t7137 * t314 + 0.4e1 / 0.9e1 * t7488 * t1111 + t19284 + 0.40e2 / 0.81e2 * t14681 * t2537 * t1360 + 0.64e2 / 0.27e2 * t6163 * t378 * t2 * t1103 - 0.8e1 / 0.27e2 * t7493 * t1106 + 0.32e2 / 0.9e1 * t1519 * t225 * t1564 - 0.16e2 / 0.9e1 * t1986 * t1103 + 0.16e2 / 0.3e1 * t1986 * t4268 - 0.8e1 / 0.27e2 * t4436 * t2421 * t1360 + 0.8e1 / 0.9e1 * t1519 * t7120 * t378 + 0.4e1 / 0.9e1 * t7498 * t1106 - t19302;
13119   t22946 = t22945 * t238;
13120   t22953 = -0.16081979498692535067e2 * t2551 * t1597 - 0.8e1 * t22891 - 0.50000000000000000001e0 * t2504 * t1605 - 0.16081979498692535067e2 * t2504 * t1584 + t230 * t22946 * t266 + t14896 - 0.99822801518023203660e5 * t16433 * t20533 * t1224 - t14899 - t14903 - t14907 - 0.10389515463408878255e3 * t14908;
13121   t22964 = -t14913 - t14918 - 0.11393789434848516922e-2 * t14919 + t14924 + t14927 + t14933 + t14937 - 0.50000000000000000001e0 * t1379 * t2689 - 0.10000000000000000000e1 * t1382 * t2689 - 0.10000000000000000000e1 * t395 * t7661 - 0.50000000000000000001e0 * t1265 * t2689;
13122   t22985 = -0.10000000000000000000e1 * t413 * t7661 - 0.50000000000000000001e0 * t115 * t417 * t21670 * t440 - 0.16081979498692535067e2 * t1379 * t2693 + 0.2e1 * t14941 - 0.10345202583854680060e4 * t5231 * t20491 * t1214 - t14971 + 0.4e1 * t19239 + 0.2e1 * t19242 - 0.20690405167709360120e4 * t16841 * t7788 - 0.32163958997385070134e2 * t1454 * t2001 * t6446 + t15189 + 0.11696447245269292414e1 * t15190;
13123   t22999 = t689 * t6132;
13124   t23002 = -0.16081979498692535067e2 * t1213 * t7518 * t1505 + t15435 + 0.48e2 * t15437 + 0.20000000000000000000e1 * t5531 * t6043 - 0.43374325201206959368e-1 * t19249 + 0.43374325201206959368e-1 * t19252 + 0.10843581300301739842e-1 * t15618 + t15622 + 0.31090700000000000000e-1 * t22999 * t180 - t15330 - t15333;
13125   t23026 = 0.96491876992155210402e2 * t4217 * t7518 * t1214 - 0.57895126195293126241e3 * t4358 * t2806 * t1224 - 0.64327917994770140268e2 * t4209 * t7785 - 0.64327917994770140268e2 * t4223 * t7785 + 0.10000000000000000000e1 * t1231 * t2618 * t1505 - 0.11696447245269292414e1 * t19258 + 0.20000000000000000000e1 * t1231 * t7418 * t520 + 0.40000000000000000000e1 * t18481 * t2013 - 0.57895126195293126241e3 * t5231 * t2585 * t1214 - 0.24e2 * t15640 + t15337;
13126   t23042 = 0.50228444444444444442e0 * t21020 - 0.10274000000000000000e0 * t21024 - 0.22831111111111111110e-1 * t21026 - 0.10274000000000000000e0 * t21030 + 0.60882962962962962960e-1 * t17579 - 0.20294320987654320986e-1 * t17581 + 0.76103703703703703700e-2 * t17583 + 0.12683950617283950617e-1 * t17585 - 0.30441481481481481480e-1 * t17587 - 0.22831111111111111110e-1 * t17589 + 0.91324444444444444440e-1 * t17591 - 0.54794666666666666664e0 * t21093;
13127   t23054 = 0.15220740740740740740e0 * t21097 + 0.82191999999999999998e0 * t21100 - 0.22831111111111111110e-1 * t17594 + t15009 + 0.27397333333333333332e0 * t21108 + 0.11415555555555555555e-1 * t21110 - 0.91324444444444444440e-1 * t21113 - 0.13698666666666666666e0 * t21116 - 0.76103703703703703702e-2 * t21118 - 0.50735802469135802467e-2 * t21120 + 0.45662222222222222220e-1 * t21123 + 0.15220740740740740740e-1 * t21125;
13128   t23068 = -0.41095999999999999999e0 * t21130 + 0.22831111111111111110e0 * t21135 + 0.41096000000000000000e0 * t21138 + 0.68493333333333333331e-1 * t21143 + 0.76103703703703703701e-2 * t21145 - 0.22831111111111111110e-1 * t21150 - 0.11415555555555555555e-1 * t21154 - 0.19025925925925925925e-1 * t21159 + 0.68493333333333333332e-1 * t21164 + 0.34246666666666666666e-1 * t21168 - 0.45662222222222222220e-1 * t21170 + 0.12683950617283950617e-1 * t21172;
13129   t23082 = -0.16742814814814814814e0 * t21175 - 0.19025925925925925925e-1 * t21179 - 0.50735802469135802467e-1 * t21184 + 0.68493333333333333331e-1 * t21188 + 0.68493333333333333332e-1 * t21190 + 0.15220740740740740741e-1 * t15055 + 0.35515061728395061728e-1 * t14983 - 0.76103703703703703703e-2 * t14985 - 0.50735802469135802469e-2 * t14987 - 0.45662222222222222220e-1 * t17663 + 0.68493333333333333330e-1 * t17665 + 0.35515061728395061727e-1 * t17675 + 0.54033629629629629628e0 * t17679;
13130   t23085 = t65 * (t23042 + t23054 + t23068 + t23082);
13131   t23098 = 0.24415263074675393405e-3 * t15643 + 0.32e2 * t15647 + t15341 + t15345 + 0.15545350000000000000e-1 * t23085 * t180 - 0.12000000000000000000e2 * t1454 * t767 * t20701 - 0.40000000000000000000e1 * t6064 * t1965 - 0.30000000000000000000e1 * t1213 * t2618 * t1214 + t15653 + 0.20e2 * t15657 - 0.8e1 * t15659;
13132   t23109 = t7504 * t254 * t610;
13133   t23111 = t7530 * t1728;
13134   t23113 = t7137 * t412;
13135   t23118 = t7120 * t496;
13136   t23121 = t1106 * t2550;
13137   t23124 = -0.8e1 * t15661 + 0.19298375398431042081e3 * t18635 * t5991 - 0.40000000000000000000e1 * t18345 * t848 - 0.10345202583854680060e4 * t4358 * t20854 * t1224 - 0.24e2 * t15670 - 0.11696447245269292414e1 * t23109 - 0.58482236226346462070e0 * t23111 + 0.31090700000000000000e-1 * t23113 * t136 + 0.15545350000000000000e-1 * t20903 * t136 + 0.31090700000000000000e-1 * t23118 * t180 + 0.15545350000000000000e-1 * t23121 * t180;
13138   t23127 = t378 * t7125;
13139   t23130 = t2421 * t1375;
13140   t23142 = 0.31090700000000000000e-1 * t23127 * t180 + 0.15545350000000000000e-1 * t23130 * t180 + 0.40000000000000000000e1 * t6532 * t6040 + 0.20000000000000000000e1 * t1231 * t793 * t6329 - 0.30000000000000000000e1 * t1213 * t2816 * t1505 + 0.70178683471615754484e1 * t15672 + t15677 - t15366 - t15369 + t15681 + t15685;
13141   t23145 = t7530 * t1546;
13142   t23163 = 0.20000000000000000000e1 * t6532 * t6043 - t15838 - 0.17315859105681463759e2 * t23145 + 0.40000000000000000000e1 * t18846 * t856 + 0.40000000000000000000e1 * t5980 * t2101 - 0.10000000000000000000e1 * t6197 * t856 - 0.20000000000000000000e1 * t6081 * t856 - 0.20000000000000000000e1 * t2027 * t2101 - 0.10000000000000000000e1 * t6133 * t856 - 0.32163958997385070134e2 * t1382 * t2693 - 0.16081979498692535067e2 * t1265 * t2693;
13143   t23188 = -0.10000000000000000000e1 * t6194 * t856 - 0.20000000000000000000e1 * t2024 * t2101 - 0.10000000000000000000e1 * t771 * t6331 + 0.19298375398431042080e3 * t17207 * t7666 + 0.96491876992155210402e2 * t4217 * t2585 * t1505 + t15842 - 0.64327917994770140268e2 * t18708 * t2002 - 0.32163958997385070134e2 * t4209 * t7706 - 0.60000000000000000000e1 * t4223 * t7714 + 0.20000000000000000000e1 * t115 * t1222 * t20478 * t440 + 0.20000000000000000000e1 * t5860 * t856;
13144   t23189 = t1565 * t2709;
13145   t23191 = t1568 * t2709;
13146   t23193 = t1555 * t2709;
13147   t23207 = 0.20e2 * t23189 + 0.12e2 * t23191 - 0.32e2 * t23193 + 0.2e1 * t19370 - 0.10000000000000000000e1 * t7141 * t618 - 0.10000000000000000000e1 * t7206 * t626 - 0.10000000000000000000e1 * t7209 * t626 - 0.20000000000000000000e1 * t7146 * t618 - 0.10000000000000000000e1 * t7149 * t618 + t15372 - 0.20508037716432813315e4 * t19374;
13148   t23232 = -0.60000000000000000000e1 * t4201 * t7533 - 0.60000000000000000000e1 * t4193 * t7533 + 0.97661052298701573622e-3 * t19389 - 0.36622894612013090108e-3 * t19392 + 0.46785788981077169656e1 * t19394 - 0.50000000000000000001e0 * t1376 * t2702 - 0.10000000000000000000e1 * t497 * t7757 - 0.50000000000000000001e0 * t166 * t501 * t21326 * t521 - 0.16081979498692535067e2 * t1343 * t2706 - 0.32163958997385070134e2 * t1346 * t2706 - 0.16081979498692535067e2 * t1376 * t2706;
13149   t23255 = 0.10000000000000000000e1 * t1343 * t2647 + 0.20000000000000000000e1 * t1346 * t2647 + 0.10000000000000000000e1 * t1376 * t2647 + 0.10000000000000000000e1 * t1379 * t2652 + 0.20000000000000000000e1 * t1382 * t2652 + 0.10000000000000000000e1 * t1265 * t2652 - 0.10000000000000000000e1 * t6184 * t848 - 0.20000000000000000000e1 * t2051 * t1965 - 0.10000000000000000000e1 * t745 * t6448 - 0.10000000000000000000e1 * t5863 * t848 - 0.20000000000000000000e1 * t5866 * t848;
13150   t23270 = t7791 * t1721;
13151   t23276 = -0.20000000000000000000e1 * t2054 * t1965 - 0.10000000000000000000e1 * t5924 * t848 - 0.20000000000000000000e1 * t2063 * t1965 - 0.10000000000000000000e1 * t753 * t6448 - 0.32163958997385070134e2 * t4223 * t7706 - 0.10345202583854680060e4 * t4358 * t7303 * t1431 + 0.24415263074675393405e-3 * t23270 + t15845 - 0.60000000000000000000e1 * t18730 * t856 + 0.70178683471615754484e1 * t19403 - 0.10389515463408878255e3 * t19408;
13152   t23285 = -0.60000000000000000000e1 * t6606 * t5988 + t15869 - t15872 + 0.40000000000000000000e1 * t6677 * t6001 + t15383 + t15397 + 0.120e3 * t19413 - t15876 - 0.240e3 * t15877 + 0.12e2 * t15879 + 0.120e3 * t15881;
13153   t23300 = -0.480e3 * t15884 - 0.24e2 * t19420 + 0.80e2 * t19422 - 0.64e2 * t19424 - 0.48e2 * t19426 - t15403 + t15925 - 0.32163958997385070134e2 * t4201 * t7519 + t15427 + 0.12000000000000000000e2 * t4217 * t2816 * t1214 - 0.64327917994770140268e2 * t6606 * t6028;
13154   t23301 = t7530 * t1552;
13155   t23321 = t230 * t2643 * t1709;
13156   t23325 = 0.11696447245269292414e1 * t23301 - 0.32163958997385070134e2 * t1213 * t21708 * t520 + 0.19298375398431042080e3 * t17166 * t7666 - 0.32163958997385070134e2 * t4193 * t7519 - 0.32163958997385070134e2 * t115 * t1453 * t20478 * t1456 - 0.32163958997385070134e2 * t166 * t1212 * t20523 * t1216 - 0.24e2 * t19454 + 0.8e1 * t19456 + t23321 - 0.20000000000000000000e1 * t5857 * t848 + 0.32530743900905219526e-1 * t19521;
13157   t23332 = t2099 * t520;
13158   t23355 = 0.96319466275353142155e0 * t19523 + 0.80000000000000000000e1 * t6064 * t1222 * t766 * t441 - 0.41380810335418720240e4 * t5231 * t6010 * t23332 + 0.10000000000000000000e1 * t1223 * t2802 * t1431 + 0.96491876992155210402e2 * t5192 * t7705 * t1224 + 0.19751673498613801407e-1 * t22946 * t264 - 0.20690405167709360120e4 * t16852 * t7512 - 0.20690405167709360120e4 * t16704 * t7512 + 0.38596750796862084161e3 * t4217 * t2009 * t23332 + 0.10000000000000000000e1 * t2504 * t1580 + 0.20000000000000000000e1 * t2531 * t1572;
13159   t23384 = 0.10000000000000000000e1 * t2551 * t1572 + 0.10000000000000000000e1 * t2528 * t1572 + 0.20000000000000000000e1 * t2507 * t1580 + 0.10000000000000000000e1 * t2525 * t1580 + 0.20000000000000000000e1 * t166 * t1230 * t20523 * t521 - 0.20000000000000000000e1 * t2048 * t2101 - 0.10000000000000000000e1 * t779 * t6331 - 0.50000000000000000001e0 * t1343 * t2702 - 0.10000000000000000000e1 * t1346 * t2702 - 0.10000000000000000000e1 * t482 * t7757 - 0.12000000000000000000e2 * t1213 * t793 * t23332 - 0.30000000000000000000e1 * t1454 * t2812 * t1431;
13160   t23407 = 0.16081979498692535067e2 * t17019 * t2807 - 0.19298375398431042081e3 * t18394 * t5528 + 0.32163958997385070134e2 * t1213 * t2009 * t20487 + (t22582 + t22888 + t22605 + t23002 + t22836 + t23300 + t23285 + t23255 + t23142 + t23355 + t23325 + t22796 + t22985 + t22702 + t22780 + t23098 + t22964 + t23207 + t23188 + t22684 + t22663 + t22953 + t23163 + t23276 + t22625 + t23124 + t22813 + t22647 + t22862 + t23232 + t23384 + t23026) * t310 + 0.60000000000000000000e1 * t4223 * t7324 - 0.40000000000000000000e1 * t1223 * t767 * t20665 + 0.2e1 * t629 * t7037 + t18547 / 0.36e2 - t18550 / 0.48e2 - t18554 / 0.36e2 - 0.5e1 / 0.216e3 * t18578 + 0.20690405167709360120e4 * t4358 * t7303 * t6621 + 0.60000000000000000000e1 * t6606 * t6618;
13161   t23436 = 0.80000000000000000000e1 * t1104 * t165 * t1230 * t2225 - 0.12865583598954028054e3 * t1104 * t165 * t1212 * t2228 - 0.5e1 / 0.72e2 * t17051 + t17055 - 0.5e1 / 0.72e2 * t17056 + t17060 - 0.10000000000000000000e1 * t17031 * t2817 - 0.20000000000000000000e1 * t17198 * t2817 - 0.40000000000000000000e1 * t18434 * t2225 + 0.99822801518023203660e5 * t16855 * t22675 * t6510 - 0.12000000000000000000e2 * t5192 * t2812 * t5527 - 0.31090700000000000000e-1 * t6194 * t831 - 0.15545350000000000000e-1 * t23121 * t203 - 0.31090700000000000000e-1 * t23127 * t203;
13162   t23468 = -0.15545350000000000000e-1 * t22707 * t159 - 0.31090700000000000000e-1 * t22710 * t159 - 0.31090700000000000000e-1 * t7149 * t479 - 0.15545350000000000000e-1 * t22768 * t159 - 0.31090700000000000000e-1 * t7201 * t479 - 0.15545350000000000000e-1 * t2525 * t1340 - 0.31090700000000000000e-1 * t23118 * t203 - 0.15545350000000000000e-1 * t23130 * t203 - 0.31090700000000000000e-1 * t22999 * t203 + 0.10345202583854680060e4 * t4358 * t7303 * t4367 - 0.40000000000000000000e1 * t1231 * t2278 * t7046 + 0.60000000000000000000e1 * t6707 * t6618 + 0.64327917994770140268e2 * t18478 * t2218;
13163   t23499 = 0.10000000000000000000e1 * t2269 * t6718 + 0.10000000000000000000e1 * t18705 * t794 - 0.20000000000000000000e1 * t6532 * t6657 + 0.50000000000000000001e0 * t4196 * t2803 + 0.10000000000000000000e1 * t2315 * t5970 - 0.38596750796862084161e3 * t17400 * t6560 + 0.50000000000000000001e0 * t5199 * t2803 + 0.2e1 * t859 * t5818 - 0.19298375398431042081e3 * t4217 * t2009 * t20829 + 0.20690405167709360120e4 * t16852 * t7060 + 0.20690405167709360120e4 * t16704 * t7060 + 0.20000000000000000000e1 * t6633 * t2308 - 0.40000000000000000000e1 * t6532 * t6725 + 0.10345202583854680060e4 * t5231 * t7059 * t4371;
13164   t23509 = t2249 * t5830 * t7226;
13165   t23524 = t2249 * t5830 * t7231;
13166   t23526 = t102 * t7120;
13167   t23536 = t5838 * t17534 * t7236;
13168   t23539 = t2249 * t17538 * t7212;
13169   t23541 = -0.40000000000000000000e1 * t5531 * t6625 - 0.20000000000000000000e1 * t5531 * t6657 - 0.20000000000000000000e1 * t6612 * t6576 + t18737 / 0.36e2 - t23509 / 0.18e2 - t2249 * t2250 * t7225 * t1106 / 0.12e2 - 0.7e1 / 0.36e2 * t5838 * t5839 * t21719 + t2249 * t6504 * t740 * t2 * t378 / 0.3e1 - t23524 / 0.36e2 - t2249 * t2250 * t23526 * t378 / 0.12e2 - t2249 * t2250 * t7230 * t1106 / 0.24e2 - 0.7e1 / 0.108e3 * t23536 - 0.7e1 / 0.18e2 * t23539;
13170   t23548 = t6645 * t18302 * t7217;
13171   t23551 = t2256 * t18260 * t7221;
13172   t23574 = t2256 * t5844 * t7241;
13173   t23576 = t373 * t2416;
13174   t23581 = -0.19298375398431042081e3 * t18659 * t5528 + 0.7e1 / 0.9e1 * t18840 * t6646 * t20915 - 0.7e1 / 0.108e3 * t23548 + 0.7e1 / 0.18e2 * t23551 + 0.7e1 / 0.9e1 * t18471 * t5839 * t21730 - 0.60000000000000000000e1 * t17478 * t7298 + 0.40000000000000000000e1 * t22567 * t6580 - 0.19298375398431042080e3 * t16927 * t7894 + 0.64327917994770140268e2 * t6707 * t6560 + 0.40000000000000000000e1 * t6064 * t1964 * t6579 - 0.7e1 / 0.72e2 * t5838 * t5839 * t21723 + t6673 * t2250 * t21759 / 0.8e1 - t23574 / 0.36e2 - t2256 * t2257 * t23576 * t314 / 0.12e2;
13175   t23584 = t60 * t7137;
13176   t23617 = -t2256 * t2257 * t23584 * t314 / 0.12e2 - t2256 * t2257 * t7240 * t1111 / 0.24e2 - 0.7e1 / 0.72e2 * t6645 * t6646 * t20911 + t6669 * t2257 * t21767 / 0.4e1 + t6669 * t2257 * t21771 / 0.8e1 + 0.50000000000000000001e0 * t502 * t1506 * t2500 + 0.10000000000000000000e1 * t7838 * t1464 - 0.40000000000000000000e1 * t5212 * t7815 + 0.41380810335418720240e4 * t18441 * t18442 * t23332 - t18874 / 0.8e1 + t18878 / 0.8e1 - 0.40000000000000000000e1 * t6532 * t6625 + t17181 / 0.48e2;
13177   t23645 = t17185 / 0.48e2 - 0.20000000000000000000e1 * t6677 * t6680 + 0.10000000000000000000e1 * t18750 * t794 + 0.20000000000000000000e1 * t6551 * t2279 - 0.31090700000000000000e-1 * t1346 * t2501 - 0.15545350000000000000e-1 * t1376 * t2501 - 0.31090700000000000000e-1 * t23113 * t159 - 0.31090700000000000000e-1 * t7138 * t479 - 0.31090700000000000000e-1 * t7141 * t479 - 0.15545350000000000000e-1 * t2504 * t1340 - 0.31090700000000000000e-1 * t22704 * t159 - 0.62181400000000000000e-1 * t7146 * t479 - 0.15545350000000000000e-1 * t23085 * t203 - 0.31090700000000000000e-1 * t6197 * t831;
13178   t23665 = t2525 * t1453;
13179   t23674 = t521 * t830;
13180   t23678 = -0.62181400000000000000e-1 * t6081 * t831 - 0.31090700000000000000e-1 * t6133 * t831 - 0.15545350000000000000e-1 * t1343 * t2501 - 0.40000000000000000000e1 * t5531 * t6725 + 0.2e1 * t7797 * t676 + 0.50000000000000000001e0 * t7838 * t1433 + 0.10000000000000000000e1 * t4382 * t2803 + 0.10000000000000000000e1 * t5205 * t2581 + 0.10000000000000000000e1 * t7841 * t1464 + 0.16081979498692535067e2 * t23665 * t1458 + 0.32163958997385070134e2 * t1454 * t22639 * t2217 - 0.20000000000000000000e1 * t1223 * t2802 * t6621 - 0.40000000000000000000e1 * t5980 * t625 * t23674;
13181   t23685 = t1754 * t431 * t2561;
13182   t23688 = t323 * t431 * t2556;
13183   t23700 = -t19577 / 0.24e2 + t19581 / 0.24e2 - t19583 / 0.16e2 - t19585 / 0.16e2 - t19587 / 0.4e1 + t23685 / 0.108e3 + t23688 / 0.144e3 + 0.10000000000000000000e1 * t1208 * t7844 + 0.10000000000000000000e1 * t1205 * t7844 - 0.38596750796862084161e3 * t19544 * t6546 - 0.41e2 / 0.72e2 * t20226 - t20229 / 0.48e2 - t20232 / 0.12e2 + 0.41e2 / 0.72e2 * t20235;
13184   t23714 = -0.19298375398431042081e3 * t5529 - 0.20000000000000000000e1 * t5532 + 0.64327917994770140268e2 * t7048 - 0.40000000000000000000e1 * t7051 - t5535 / 0.12e2 - t5539 / 0.16e2 - t5544 / 0.12e2 - t5548 / 0.16e2 - t5552 / 0.4e1 + t3 * (t20779 + t20742 + t20709 + t20678 + t20642 + t20609 + t20579 + t20543 + t20506 + t20466 + t20433 + t20405 + t20378 + t23581 + t23407 + t23678 + t22554 + t23700 + t23617 + t23541 + t21727 + t23436 + t21688 + t23499 + t21756 + t23468 + t23645 + t20963 + t20817 + t20932 + t20890 + t20848) + 0.2e1 * t5819 + 0.64327917994770140268e2 * t7055 - 0.40000000000000000000e1 * t7057 + 0.20690405167709360120e4 * t7061 - 0.40000000000000000000e1 * t7063 - 0.5e1 / 0.8e1 * t5822 - t5824 / 0.4e1;
13185   t23733 = -t5826 / 0.4e1 + 0.5e1 / 0.8e1 * t5828 - t5832 / 0.9e1 - t5836 / 0.12e2 - 0.7e1 / 0.36e2 * t5842 - t5846 / 0.9e1 - t5851 / 0.6e1 + 0.10000000000000000000e1 * t5853 + 0.20000000000000000000e1 * t5855 - 0.62181400000000000000e-1 * t7069 - 0.62181400000000000000e-1 * t7071 - 0.31090700000000000000e-1 * t7074 - 0.31090700000000000000e-1 * t7127 - 0.62181400000000000000e-1 * t7129 - 0.62181400000000000000e-1 * t7131 - 0.31090700000000000000e-1 * t7133 - 0.31090700000000000000e-1 * t7135;
13186   t23751 = -0.31090700000000000000e-1 * t7139 - 0.31090700000000000000e-1 * t7142 - 0.31090700000000000000e-1 * t7144 - 0.62181400000000000000e-1 * t7147 - 0.62181400000000000000e-1 * t5858 + 0.62181400000000000000e-1 * t5861 - 0.31090700000000000000e-1 * t5864 - 0.62181400000000000000e-1 * t5867 - 0.62181400000000000000e-1 * t5869 - 0.31090700000000000000e-1 * t5925 - 0.62181400000000000000e-1 * t5929 - 0.31090700000000000000e-1 * t5931 + 0.64327917994770140268e2 * t5933 - 0.40000000000000000000e1 * t5936 + 0.10000000000000000000e1 * t5938 + 0.20000000000000000000e1 * t5940 + 0.32163958997385070134e2 * t5943;
13187   t23771 = -0.31090700000000000000e-1 * t7150 - 0.31090700000000000000e-1 * t7202 - 0.31090700000000000000e-1 * t7204 - 0.31090700000000000000e-1 * t7207 - 0.31090700000000000000e-1 * t7210 + 0.64327917994770140268e2 * t5945 + 0.12436280000000000000e0 * t5949 - 0.18654420000000000000e0 * t5951 + 0.18654420000000000000e0 * t5953 + t7214 / 0.3e1 - 0.7e1 / 0.36e2 * t7219 - t7223 / 0.3e1 - t7228 / 0.6e1 - t7233 / 0.12e2 + t7238 / 0.4e1 - t7243 / 0.12e2 + t7246 / 0.4e1;
13188   t23789 = -0.3e1 / 0.16e2 * t7248 - 0.3e1 / 0.16e2 * t7252 - 0.3e1 / 0.16e2 * t7254 - 0.3e1 / 0.16e2 * t7258 + 0.3e1 / 0.4e1 * t7261 - t7264 / 0.16e2 - t7267 / 0.16e2 - t7269 / 0.16e2 - t7271 / 0.8e1 - 0.20000000000000000000e1 * t7273 - 0.20000000000000000000e1 * t7275 - t5956 / 0.8e1 + t5958 / 0.8e1 + t5961 / 0.8e1 + t5964 / 0.8e1 + t5966 / 0.8e1 + 0.20000000000000000000e1 * t5968;
13189   t23808 = 0.10000000000000000000e1 * t5971 + 0.60000000000000000000e1 * t7281 - 0.19298375398431042081e3 * t7284 - 0.40000000000000000000e1 * t7287 + 0.32163958997385070134e2 * t5975 + 0.10000000000000000000e1 * t5978 - 0.40000000000000000000e1 * t5983 + 0.2e1 * t6497 - t6502 / 0.3e1 + t6508 / 0.3e1 + 0.60000000000000000000e1 * t6512 + 0.20000000000000000000e1 * t6514 + 0.2e1 * t7289 + 0.4e1 * t7290 - 0.40000000000000000000e1 * t7292 + 0.64327917994770140268e2 * t7296 + 0.40000000000000000000e1 * t7299;
13190   t23826 = 0.64327917994770140268e2 * t7301 + 0.20690405167709360120e4 * t7305 + 0.10000000000000000000e1 * t6516 + 0.20000000000000000000e1 * t6518 - 0.40000000000000000000e1 * t7311 + 0.64327917994770140268e2 * t7313 + 0.10000000000000000000e1 * t6522 + 0.10000000000000000000e1 * t6524 + 0.32163958997385070134e2 * t6527 - 0.40000000000000000000e1 * t7315 + 0.64327917994770140268e2 * t7317 - 0.20000000000000000000e1 * t7320 + 0.64327917994770140268e2 * t7322 - t4407 / 0.16e2 + 0.64327917994770140268e2 * t6530 + 0.60000000000000000000e1 * t7325 - 0.20000000000000000000e1 * t6533;
13191   t23847 = 0.10000000000000000000e1 * t7420 + 0.10000000000000000000e1 * t7422 + 0.32163958997385070134e2 * t7424 + 0.10000000000000000000e1 * t7426 + 0.20000000000000000000e1 * t6535 + 0.20000000000000000000e1 * t6537 + 0.4e1 * t6539 + 0.20000000000000000000e1 * t6544 + 0.20000000000000000000e1 * t7429 + 0.32163958997385070134e2 * t7431 + 0.64327917994770140268e2 * t6547 + 0.64327917994770140268e2 * t6549 + 0.20000000000000000000e1 * t6552 + 0.20000000000000000000e1 * t6555 + 0.20000000000000000000e1 * t6558 - t7435 / 0.12e2 + t7439 / 0.4e1;
13192   t23865 = -t7443 / 0.16e2 - t7447 / 0.16e2 - t7451 / 0.16e2 + 0.12436280000000000000e0 * t7456 + 0.12436280000000000000e0 * t7459 - 0.12436280000000000000e0 * t7463 + 0.64327917994770140268e2 * t6561 + 0.20000000000000000000e1 * t7465 + 0.20000000000000000000e1 * t7467 + 0.20000000000000000000e1 * t7469 + 0.20000000000000000000e1 * t7471 + 0.20000000000000000000e1 * t6563 + 0.20000000000000000000e1 * t6566 - 0.40000000000000000000e1 * t6568 - 0.40000000000000000000e1 * t6570 - 0.40000000000000000000e1 * t6572 - 0.40000000000000000000e1 * t6574;
13193   t23884 = -0.20000000000000000000e1 * t6577 + 0.40000000000000000000e1 * t6581 + 0.20000000000000000000e1 * t7473 + 0.20000000000000000000e1 * t7475 + 0.20000000000000000000e1 * t7477 + 0.20000000000000000000e1 * t7479 + 0.20000000000000000000e1 * t7481 - 0.31090700000000000000e-1 * t6583 - 0.31090700000000000000e-1 * t6585 - 0.62181400000000000000e-1 * t6587 - 0.31090700000000000000e-1 * t6590 - 0.31090700000000000000e-1 * t6592 - 0.62181400000000000000e-1 * t6594 - 0.31090700000000000000e-1 * t6596 - 0.31090700000000000000e-1 * t6598 - 0.62181400000000000000e-1 * t6600 - 0.31090700000000000000e-1 * t6602;
13194   t23902 = 0.20000000000000000000e1 * t6604 + 0.32163958997385070134e2 * t6607 + 0.2e1 * t7798 - 0.19298375398431042081e3 * t6610 - 0.20000000000000000000e1 * t6613 + 0.32163958997385070134e2 * t6616 + 0.60000000000000000000e1 * t6619 + 0.64327917994770140268e2 * t6623 - 0.40000000000000000000e1 * t6626 + 0.10000000000000000000e1 * t7799 + 0.10000000000000000000e1 * t7801 + 0.20000000000000000000e1 * t7803 + 0.20000000000000000000e1 * t7805 + 0.4e1 * t6628 + 0.20000000000000000000e1 * t6631 + 0.32163958997385070134e2 * t7808 - 0.20000000000000000000e1 * t7813;
13195   t23922 = -0.40000000000000000000e1 * t7816 + 0.20000000000000000000e1 * t6634 + 0.20000000000000000000e1 * t6636 + 0.2e1 * t6640 - t6643 / 0.12e2 - 0.7e1 / 0.36e2 * t6649 + 0.32163958997385070134e2 * t7818 + 0.32163958997385070134e2 * t7820 + 0.10000000000000000000e1 * t7824 + 0.10000000000000000000e1 * t7827 + 0.32163958997385070134e2 * t7830 + 0.20000000000000000000e1 * t7832 + 0.20000000000000000000e1 * t7834 + 0.20000000000000000000e1 * t7836 + 0.10000000000000000000e1 * t7839 + 0.10000000000000000000e1 * t7842 + 0.10000000000000000000e1 * t7845;
13196   t23940 = -0.20000000000000000000e1 * t7847 + 0.20000000000000000000e1 * t7850 - 0.20000000000000000000e1 * t7852 + 0.10000000000000000000e1 * t7855 + 0.20000000000000000000e1 * t7857 + 0.20000000000000000000e1 * t7860 + 0.10000000000000000000e1 * t7863 + 0.20000000000000000000e1 * t7866 - 0.20000000000000000000e1 * t7869 + 0.32163958997385070134e2 * t6652 + 0.20690405167709360120e4 * t6655 - 0.20000000000000000000e1 * t6658 + 0.20690405167709360120e4 * t6661 - 0.7e1 / 0.36e2 * t7872 - t7875 / 0.36e2 - t7878 / 0.24e2 - t7881 / 0.48e2;
13197   t23959 = -t7884 / 0.48e2 - t7887 / 0.36e2 + 0.10000000000000000000e1 * t6663 + 0.10000000000000000000e1 * t6665 + 0.10000000000000000000e1 * t6667 + t6671 / 0.4e1 + t6675 / 0.4e1 - 0.20000000000000000000e1 * t6678 - 0.20000000000000000000e1 * t6681 + t5244 / 0.24e2 - t5247 / 0.48e2 - t5250 / 0.36e2 - t5257 / 0.24e2 + t5293 / 0.24e2 - t5296 / 0.48e2 - t5299 / 0.36e2 + 0.32163958997385070134e2 * t7892;
13198   t23977 = -0.19298375398431042080e3 * t7895 + t6692 / 0.24e2 + t6695 / 0.24e2 - t6698 / 0.12e2 + 0.5e1 / 0.24e2 * t6701 - 0.5e1 / 0.24e2 * t6704 + 0.2e1 * t6706 + 0.32163958997385070134e2 * t6708 - 0.3e1 / 0.16e2 * t6710 - 0.3e1 / 0.16e2 * t6712 - 0.3e1 / 0.4e1 * t6715 + 0.10000000000000000000e1 * t6719 + 0.20000000000000000000e1 * t6721 + 0.10000000000000000000e1 * t6723 - 0.40000000000000000000e1 * t6726 + 0.3e1 / 0.8e1 * t6730 - 0.3e1 / 0.8e1 * t6732;
13199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13200     v4rho4[2] = t20339 + t23714 + t23733 + t23751 + t23771 + t23789 + t23808 + t23826 + t23847 + t23865 + t23884 + t23902 + t23922 + t23940 + t23959 + t23977;
13201 
13202   t24003 = t8551 * t501;
13203   t24007 = t8554 * t501;
13204   t24029 = 0.15000000000000000000e1 * t24007 * t523 + 0.15000000000000000000e1 * t2315 * t7823 + 0.15000000000000000000e1 * t6630 * t2803 + 0.15000000000000000000e1 * t6633 * t2803 + 0.15000000000000000000e1 * t7841 * t2308 - 0.5e1 / 0.432e3 * t16001 - 0.5e1 / 0.432e3 * t16010 + 0.15000000000000000000e1 * t502 * t2278 * t2500 + 0.15000000000000000000e1 * t1208 * t7943 + 0.15000000000000000000e1 * t1205 * t7943 + 0.30000000000000000000e1 * t2272 * t7428;
13205   t24031 = t8557 * t501;
13206   t24036 = t102 * t8101;
13207   t24042 = t102 * t8080 * t378;
13208   t24049 = t7235 * t2;
13209   t24068 = 0.15000000000000000000e1 * t24031 * t523 + 0.48245938496077605201e2 * t20419 * t2228 - t2249 * t2250 * t24036 * t378 / 0.24e2 + 0.7e1 / 0.9e1 * t18471 * t5839 * t24042 - 0.35e2 / 0.108e3 * t17551 * t17552 * t24042 + 0.7e1 / 0.12e2 * t5838 * t17557 * t24049 - t2249 * t2250 * t23526 * t689 / 0.8e1 + t2249 * t6504 * t7230 * t2 / 0.4e1 + 0.48245938496077605201e2 * t1454 * t22639 * t8412 + 0.48245938496077605201e2 * t23665 * t2218 - 0.30000000000000000000e1 * t6677 * t7812;
13210   t24073 = t2416 * t680 * t314;
13211   t24078 = t2421 * t689 * t378;
13212   t24090 = t20457 / 0.24e2 + t20460 / 0.48e2 + t20474 / 0.36e2 - 0.7e1 / 0.24e2 * t6645 * t18376 * t24073 + 0.3e1 / 0.8e1 * t6673 * t17428 * t24078 - 0.7e1 / 0.24e2 * t5838 * t17434 * t24078 - 0.3e1 / 0.32e2 * t20498 - 0.3e1 / 0.32e2 * t20500 - 0.3e1 / 0.32e2 * t20502 - 0.3e1 / 0.32e2 * t20504 + 0.3e1 / 0.8e1 * t20507;
13213   t24116 = 0.48245938496077605201e2 * t20680 * t2228 + 0.30000000000000000000e1 * t6554 * t2581 + 0.30000000000000000000e1 * t6551 * t2581 + 0.30000000000000000000e1 * t2269 * t7428 + 0.30000000000000000000e1 * t6557 * t2581 - 0.46636050000000000000e-1 * t7073 * t831 - 0.96491876992155210402e2 * t5980 * t2705 * t18826 + 0.31035607751564040180e4 * t18534 * t7060 + 0.96491876992155210402e2 * t5942 * t7054 + 0.3e1 * t2717 * t2215 + 0.15000000000000000000e1 * t2272 * t7419;
13214   t24129 = t4179 * t127 * t8408;
13215   t24134 = 0.12e2 * t229 + 0.24e2 * t14675;
13216   t24135 = t24134 * t114;
13217   t24138 = t8004 * t412;
13218   t24143 = t7137 * t752;
13219   t24146 = -0.28947563097646563120e3 * t18695 * t7283 - 0.60000000000000000000e1 * t6064 * t2651 * t6579 + 0.90000000000000000000e1 * t6707 * t7324 - 0.30000000000000000000e1 * t6532 * t7319 - 0.60000000000000000000e1 * t6532 * t7815 + t24129 / 0.24e2 - t20564 / 0.32e2 - 0.15545350000000000000e-1 * t24135 * t159 - 0.15545350000000000000e-1 * t24138 * t159 - 0.15545350000000000000e-1 * t8528 * t479 - 0.46636050000000000000e-1 * t24143 * t159;
13220   t24148 = t2416 * t2062;
13221   t24153 = t680 * t7200;
13222   t24158 = t314 * t8547;
13223   t24163 = t538 * t7981;
13224   t24165 = t538 * t7978;
13225   t24175 = t538 * t7999;
13226   t24177 = t407 * t24134;
13227   t24179 = t207 * t405 * t24177;
13228   t24181 = t538 * t7990;
13229   t24183 = t538 * t8006;
13230   t24185 = t538 * t7994;
13231   t24187 = 0.53272592592592592590e-1 * t17909 - 0.45662222222222222220e-1 * t17911 + t15097 + t18768 - t18769 - 0.34246666666666666667e-1 * t24163 + 0.11415555555555555555e-1 * t24165 + 0.17757530864197530864e-1 * t15153 - 0.68493333333333333330e-1 * t21438 + 0.19025925925925925925e-1 * t21440 + 0.45662222222222222220e-1 * t21442 + 0.10274000000000000000e0 * t21457 - 0.13698666666666666666e0 * t21481 - 0.34246666666666666666e-1 * t21487 + 0.11415555555555555555e-1 * t21489 + 0.34246666666666666667e-1 * t24175 - 0.17123333333333333333e-1 * t24179 + 0.63419753086419753083e-2 * t24181 + 0.57077777777777777777e-2 * t24183 - 0.22831111111111111110e-1 * t24185;
13232   t24189 = t17632 * t18021 * t24073;
13233   t24192 = t17632 * t18011 * t24073;
13234   t24195 = t17632 * t18017 * t24073;
13235   t24197 = t2512 * t2;
13236   t24199 = t1929 * t405 * t24197;
13237   t24201 = t1921 * t7137;
13238   t24203 = t207 * t405 * t24201;
13239   t24205 = t5910 * t2416;
13240   t24207 = t1929 * t405 * t24205;
13241   t24210 = t1255 * t8004 * t314;
13242   t24212 = t207 * t405 * t24210;
13243   t24215 = t1248 * t8004 * t314;
13244   t24217 = t207 * t1246 * t24215;
13245   t24220 = t15107 * t7988 * t314;
13246   t24222 = t207 * t4298 * t24220;
13247   t24225 = t15167 * t7988 * t314;
13248   t24227 = t207 * t15165 * t24225;
13249   t24229 = t7160 * t2;
13250   t24231 = t1929 * t4298 * t24229;
13251   t24233 = t7989 * t314;
13252   t24235 = t207 * t1246 * t24233;
13253   t24237 = t7165 * t2;
13254   t24239 = t1929 * t1246 * t24237;
13255   t24245 = t1916 * t7137;
13256   t24247 = t207 * t1246 * t24245;
13257   t24249 = t5897 * t2416;
13258   t24251 = t1929 * t1246 * t24249;
13259   t24253 = t7993 * t314;
13260   t24255 = t207 * t405 * t24253;
13261   t24257 = -0.30822000000000000000e0 * t24189 + 0.20547999999999999999e0 * t24192 - 0.57077777777777777775e-1 * t24195 - 0.61644000000000000000e0 * t24199 + 0.10274000000000000000e0 * t24203 + 0.20548000000000000000e0 * t24207 + 0.34246666666666666666e-1 * t24212 - 0.11415555555555555555e-1 * t24217 + 0.22831111111111111110e0 * t24222 - 0.50735802469135802467e-1 * t24227 - 0.11415555555555555555e0 * t24231 - 0.41095999999999999999e0 * t24235 + 0.41095999999999999999e0 * t24239 + 0.17123333333333333333e-1 * t21570 - 0.22831111111111111111e-1 * t21575 - 0.15220740740740740740e-1 * t21577 + 0.45662222222222222220e-1 * t21582 - 0.34246666666666666665e-1 * t24247 - 0.68493333333333333330e-1 * t24251 + 0.41096000000000000000e0 * t24255;
13262   t24259 = t6 * (t24187 + t24257);
13263   t24264 = t378 * t8514;
13264   t24273 = t8081 * t378;
13265   t24275 = t207 * t1357 * t24273;
13266   t24277 = t7087 * t2;
13267   t24279 = t1929 * t1357 * t24277;
13268   t24281 = t2033 * t7120;
13269   t24283 = t207 * t1357 * t24281;
13270   t24285 = t6106 * t2421;
13271   t24287 = t1929 * t1357 * t24285;
13272   t24289 = t8085 * t378;
13273   t24291 = t207 * t489 * t24289;
13274   t24293 = t2538 * t2;
13275   t24295 = t1929 * t489 * t24293;
13276   t24297 = t2038 * t7120;
13277   t24299 = t207 * t489 * t24297;
13278   t24302 = t15028 * t8080 * t378;
13279   t24304 = t207 * t4625 * t24302;
13280   t24307 = t14997 * t8080 * t378;
13281   t24309 = t207 * t14995 * t24307;
13282   t24311 = t7082 * t2;
13283   t24313 = t1929 * t4625 * t24311;
13284   t24315 = t6119 * t2421;
13285   t24317 = t1929 * t489 * t24315;
13286   t24319 = 0.13698666666666666666e0 * t21020 - 0.34246666666666666666e-1 * t21026 + t19112 - t19113 + t15009 + 0.17123333333333333333e-1 * t21110 - 0.22831111111111111111e-1 * t21118 - 0.15220740740740740740e-1 * t21120 + 0.45662222222222222220e-1 * t21125 - 0.41095999999999999999e0 * t24275 - 0.41095999999999999999e0 * t24279 - 0.34246666666666666665e-1 * t24283 + 0.68493333333333333330e-1 * t24287 + 0.41096000000000000000e0 * t24291 + 0.61644000000000000000e0 * t24295 + 0.10274000000000000000e0 * t24299 + 0.22831111111111111110e0 * t24304 - 0.50735802469135802467e-1 * t24309 + 0.11415555555555555555e0 * t24313 - 0.20548000000000000000e0 * t24317;
13287   t24321 = t1366 * t8101 * t378;
13288   t24323 = t207 * t489 * t24321;
13289   t24326 = t1359 * t8101 * t378;
13290   t24328 = t207 * t1357 * t24326;
13291   t24330 = t538 * t8090;
13292   t24332 = t538 * t8098;
13293   t24341 = t17632 * t17637 * t24078;
13294   t24344 = t17632 * t17641 * t24078;
13295   t24347 = t17632 * t17633 * t24078;
13296   t24351 = t538 * t8103;
13297   t24353 = -t24134;
13298   t24354 = t491 * t24353;
13299   t24356 = t207 * t489 * t24354;
13300   t24358 = t538 * t8086;
13301   t24360 = t538 * t8094;
13302   t24362 = t538 * t8082;
13303   t24364 = 0.34246666666666666666e-1 * t24323 - 0.11415555555555555555e-1 * t24328 + 0.11415555555555555555e-1 * t24330 - 0.34246666666666666667e-1 * t24332 + 0.11415555555555555555e-1 * t21145 - 0.68493333333333333330e-1 * t21170 + 0.19025925925925925925e-1 * t21172 - 0.45662222222222222220e-1 * t21175 + 0.10274000000000000000e0 * t21190 + 0.17757530864197530864e-1 * t14983 + 0.20547999999999999999e0 * t24341 - 0.57077777777777777775e-1 * t24344 - 0.30822000000000000000e0 * t24347 + 0.53272592592592592590e-1 * t17675 + 0.45662222222222222220e-1 * t17679 + 0.57077777777777777777e-2 * t24351 - 0.17123333333333333333e-1 * t24356 - 0.22831111111111111110e-1 * t24358 + 0.34246666666666666667e-1 * t24360 + 0.63419753086419753083e-2 * t24362;
13304   t24366 = t65 * (t24319 + t24364);
13305   t24373 = -0.46636050000000000000e-1 * t24148 * t159 - 0.46636050000000000000e-1 * t8531 * t479 - 0.46636050000000000000e-1 * t24153 * t159 - 0.46636050000000000000e-1 * t8534 * t479 - 0.15545350000000000000e-1 * t24158 * t159 - 0.15545350000000000000e-1 * t24259 * t159 - 0.15545350000000000000e-1 * t8548 * t479 - 0.15545350000000000000e-1 * t24264 * t203 - 0.15545350000000000000e-1 * t24366 * t203 - 0.46636050000000000000e-1 * t2048 * t2501 - 0.15545350000000000000e-1 * t482 * t8737;
13306   t24378 = t24353 * t165;
13307   t24381 = t8101 * t496;
13308   t24384 = t7120 * t778;
13309   t24387 = t2421 * t2047;
13310   t24394 = t689 * t7125;
13311   t24401 = -0.15545350000000000000e-1 * t497 * t8737 - 0.46636050000000000000e-1 * t7126 * t831 - 0.15545350000000000000e-1 * t24378 * t203 - 0.15545350000000000000e-1 * t24381 * t203 - 0.46636050000000000000e-1 * t24384 * t203 - 0.46636050000000000000e-1 * t24387 * t203 - 0.46636050000000000000e-1 * t7206 * t831 - 0.46636050000000000000e-1 * t7209 * t831 - 0.46636050000000000000e-1 * t24394 * t203 - 0.93272100000000000000e-1 * t7068 * t831 - 0.46636050000000000000e-1 * t2024 * t2501;
13312   t24407 = t2500 * t520;
13313   t24416 = t478 * t766;
13314   t24433 = t830 * t2099;
13315   t24445 = t323 * t127 * t8373;
13316   t24448 = t5275 * t127 * t8377;
13317   t24451 = t387 * t127 * t8384;
13318   t24461 = 0.96491876992155210402e2 * t1213 * t2009 * t24433 - 0.60000000000000000000e1 * t20394 * t7310 + 0.96491876992155210402e2 * t20520 * t2228 + 0.48245938496077605201e2 * t1213 * t2009 * t24407 - t24445 / 0.96e2 - 0.7e1 / 0.216e3 * t24448 - t24451 / 0.32e2 + 0.90000000000000000000e1 * t18318 * t7812 + 0.3e1 * t7797 * t893 + 0.10345202583854680060e4 * t16852 * t8170 + 0.15000000000000000000e1 * t7854 * t2279;
13319   t24470 = t8045 * t1456;
13320   t24487 = t629 * t8367 - 0.5e1 / 0.144e3 * t16883 - 0.60000000000000000000e1 * t1231 * t793 * t24433 + 0.48245938496077605201e2 * t4193 * t8175 + 0.16081979498692535067e2 * t1454 * t24470 * t2217 + 0.30000000000000000000e1 * t6064 * t2688 * t6579 + 0.48245938496077605201e2 * t6707 * t7891 + 0.96491876992155210402e2 * t6707 * t7295 + 0.96491876992155210402e2 * t5942 * t7047 + 0.30000000000000000000e1 * t7849 * t2312 + 0.48245938496077605201e2 * t6707 * t7829;
13321   t24494 = t387 * t127 * t8396;
13322   t24497 = t5284 * t127 * t8400;
13323   t24500 = t4187 * t127 * t8404;
13324   t24503 = t387 * t127 * t8388;
13325   t24506 = t1444 * t127 * t8392;
13326   t24512 = 0.30000000000000000000e1 * t21738 * t768 - 0.12000000000000000000e2 * t5192 * t8596 * t2217 - t24494 / 0.96e2 - 0.7e1 / 0.216e3 * t24497 + t24500 / 0.24e2 - t24503 / 0.32e2 - t24506 / 0.24e2 - t20771 / 0.32e2 - t20774 / 0.32e2 - t20777 / 0.32e2 - t20781 / 0.24e2;
13327   t24540 = t20793 / 0.8e1 + 0.48245938496077605201e2 * t18708 * t2807 + 0.50000000000000000001e0 * t418 * t8046 * t478 - 0.30000000000000000000e1 * t5531 * t7868 - 0.30000000000000000000e1 * t18619 * t2813 - 0.30000000000000000000e1 * t1223 * t7822 * t8412 + 0.31035607751564040180e4 * t5231 * t7059 * t7046 - 0.60000000000000000000e1 * t5531 * t7815 + 0.96491876992155210402e2 * t6606 * t7295 - 0.30000000000000000000e1 * t5215 * t8592 + 0.90000000000000000000e1 * t1454 * t2812 * t7294;
13328   t24565 = -0.12414243100625616072e5 * t17144 * t8169 * t2224 - 0.10000000000000000000e1 * t1223 * t8046 * t2217 + t18294 + 0.90000000000000000000e1 * t6606 * t7324 + 0.60000000000000000000e1 * t22567 * t7298 - 0.30000000000000000000e1 * t18849 * t2813 - 0.96491876992155210402e2 * t5192 * t8063 * t478 - 0.30000000000000000000e1 * t18481 * t2813 - 0.96491876992155210402e2 * t16927 * t8064 + 0.57895126195293126241e3 * t4358 * t8063 * t2217 + 0.96491876992155210402e2 * t20695 * t2218;
13329   t24574 = t2524 * t136;
13330   t24592 = -0.30000000000000000000e1 * t20795 * t2221 + 0.30000000000000000000e1 * t4193 * t8370 + 0.93272100000000000000e-1 * t1104 * t2107 * t2500 - 0.93272100000000000000e-1 * t1104 * t24574 * t158 - 0.30000000000000000000e1 * t4231 * t8777 - 0.30000000000000000000e1 * t4212 * t8777 + 0.57895126195293126241e3 * t5231 * t8772 * t2224 + 0.48245938496077605201e2 * t20545 * t2218 + t20909 / 0.8e1 + 0.90000000000000000000e1 * t6526 * t7280 - 0.60000000000000000000e1 * t6677 * t7286;
13331   t24598 = t8054 * t15898;
13332   t24617 = 0.31035607751564040180e4 * t4358 * t7303 * t7294 - 0.28947563097646563120e3 * t18659 * t7894 + 0.99822801518023203660e5 * t16433 * t24598 * t2217 - 0.30000000000000000000e1 * t20895 * t2221 - 0.30000000000000000000e1 * t6612 * t7812 + 0.10345202583854680060e4 * t4358 * t8055 * t478 + 0.10345202583854680060e4 * t16841 * t8056 + 0.10345202583854680060e4 * t16844 * t8056 + 0.3e1 * t859 * t7037 - 0.5e1 / 0.48e2 * t18358 - 0.5e1 / 0.48e2 * t18361;
13333   t24654 = t792 * t520;
13334   t24669 = 0.15000000000000000000e1 * t7862 * t2279 + 0.30000000000000000000e1 * t20422 * t794 + t21676 / 0.16e2 + t21678 / 0.16e2 + t21680 / 0.16e2 + t21682 / 0.8e1 + 0.31035607751564040180e4 * t166 * t4711 * t2617 * t18442 * t24654 + 0.9e1 / 0.16e2 * t1888 * t1889 * t2411 - 0.3e1 / 0.32e2 * t380 * t8886 - 0.3e1 / 0.32e2 * t24134 * t7 * t13 * t62 - 0.3e1 / 0.32e2 * t8795 * t375;
13335   t24687 = t2256 * t5844 * t8790;
13336   t24690 = t2249 * t5830 * t8786;
13337   t24700 = -0.3e1 / 0.32e2 * t24353 * t7 * t13 * t104 - 0.9e1 / 0.32e2 * t7257 * t742 - 0.30000000000000000000e1 * t1231 * t2278 * t8776 - 0.12000000000000000000e2 * t4217 * t8369 * t2224 + 0.48245938496077605201e2 * t1213 * t7518 * t7046 - t24687 / 0.24e2 - t24690 / 0.24e2 + 0.50000000000000000001e0 * t1208 * t8149 + 0.50000000000000000001e0 * t1205 * t8149 + 0.48245938496077605201e2 * t4223 * t8413 + 0.15000000000000000000e1 * t20425 * t794;
13338   t24705 = t8168 * t15599;
13339   t24727 = 0.15000000000000000000e1 * t20675 * t794 - 0.30000000000000000000e1 * t20397 * t2225 + 0.99822801518023203660e5 * t16855 * t24705 * t2224 + 0.15000000000000000000e1 * t2269 * t7419 + 0.15000000000000000000e1 * t6551 * t2619 + 0.15000000000000000000e1 * t6557 * t2619 + 0.48245938496077605201e2 * t4201 * t8175 + 0.48245938496077605201e2 * t1213 * t21708 * t8174 + 0.96491876992155210402e2 * t6526 * t7047 - 0.60000000000000000000e1 * t6612 * t7050 - 0.60000000000000000000e1 * t5980 * t855 * t23674;
13340   t24733 = t8147 * t1216;
13341   t24763 = -0.15000000000000000000e1 * t7206 * t856 - 0.15000000000000000000e1 * t7209 * t856 - 0.15000000000000000000e1 * t2528 * t2101 - 0.30000000000000000000e1 * t7068 * t856 - 0.30000000000000000000e1 * t2531 * t2101 - 0.15000000000000000000e1 * t2024 * t2702 - 0.15000000000000000000e1 * t771 * t7757 - 0.48245938496077605201e2 * t2024 * t2706 - 0.15000000000000000000e1 * t7073 * t856 - 0.15000000000000000000e1 * t7126 * t856 - 0.15000000000000000000e1 * t2551 * t2101 - 0.15000000000000000000e1 * t2027 * t2702 + 0.48159733137676571078e0 * t14644 - t14648 - 0.32530743900905219526e-1 * t14649 - t18908 + t14656 - t14659;
13342   t24807 = 0.40e2 / 0.81e2 * t14663 * t7988 * t314 - 0.16e2 / 0.9e1 * t7483 * t1104 - 0.8e1 / 0.9e1 * t6150 * t2416 * t314 + 0.8e1 / 0.3e1 * t6153 * t1103 * t2416 + 0.4e1 / 0.3e1 * t1980 * t7137 + 0.4e1 / 0.9e1 * t1513 * t8004 * t314 + 0.4e1 / 0.3e1 * t231 * t24134 + 0.40e2 / 0.81e2 * t14681 * t8080 * t378 + 0.16e2 / 0.9e1 * t7493 * t1104 - 0.8e1 / 0.9e1 * t6163 * t2421 * t378 - 0.8e1 / 0.3e1 * t6166 * t1103 * t2421 + 0.4e1 / 0.3e1 * t1986 * t7120 + 0.4e1 / 0.9e1 * t1519 * t8101 * t378 + 0.4e1 / 0.3e1 * t233 * t24353;
13343   t24808 = t24807 * t238;
13344   t24812 = t230 * t8469 * t598;
13345   t24825 = -0.17090684152272775384e-2 * t18939 - t18972 + t14702 - t14717 + t18997 - 0.30000000000000000000e1 * t413 * t8448 - 0.10345202583854680060e4 * t482 * t8453 - 0.10345202583854680060e4 * t497 * t8453 + t230 * t24808 * t266 + t24812 - 0.16081979498692535067e2 * t1454 * t24470 * t439 - t14722 - t19017 - t19019 - t19020 - 0.16081979498692535067e2 * t1213 * t24733 * t520 + 0.28947563097646563120e3 * t18394 * t7541 - 0.90000000000000000000e1 * t6606 * t7714 + 0.60000000000000000000e1 * t6064 * t2652;
13346   t24836 = t8469 * t7 * t605;
13347   t24851 = -0.96491876992155210402e2 * t20520 * t2010 + 0.32530743900905219526e-1 * t22656 + 0.19751673498613801407e-1 * t24808 * t264 + t19054 + 0.72e2 * t19058 + t19061 - t19063 - 0.360e3 * t19064 - t19067 - t14751 + 0.16265371950452609763e-1 * t14752 + t14756 - 0.18311447306006545054e-3 * t24836 + 0.30000000000000000000e1 * t5215 * t8562 - 0.54934341918019635162e-3 * t22695 - 0.90000000000000000000e1 * t6707 * t7714 + 0.60000000000000000000e1 * t6532 * t7717 + 0.28947563097646563121e3 * t5192 * t2806 * t1963 - 0.57895126195293126241e3 * t4358 * t8063 * t439;
13348   t24876 = 0.60000000000000000000e1 * t5531 * t7717 + 0.28947563097646563120e3 * t18659 * t7541 + 0.60000000000000000000e1 * t20672 * t2013 - 0.48245938496077605201e2 * t20545 * t2002 - t14759 - 0.48245938496077605201e2 * t4193 * t8575 + 0.15545350000000000000e-1 * t24135 * t136 + 0.15545350000000000000e-1 * t24138 * t136 + 0.46636050000000000000e-1 * t24143 * t136 + 0.46636050000000000000e-1 * t24148 * t136 + 0.46636050000000000000e-1 * t24153 * t136 + t14762 - 0.21687162600603479684e-1 * t14763 - t14767 - 0.10526802520742363173e2 * t19101 + 0.10389515463408878255e3 * t14774 - t14781 - 0.35089341735807877242e1 * t14782 - t19106;
13349   t24925 = 0.8e1 / 0.3e1 * t21020 - 0.2e1 / 0.3e1 * t21026 + t17580 - t17582 + t15564 + t21110 / 0.3e1 - 0.4e1 / 0.9e1 * t21118 - 0.8e1 / 0.27e2 * t21120 + 0.8e1 / 0.9e1 * t21125 - 0.8e1 * t24275 - 0.8e1 * t24279 - 0.2e1 / 0.3e1 * t24283 + 0.4e1 / 0.3e1 * t24287 + 0.8e1 * t24291 + 0.12e2 * t24295 + 0.2e1 * t24299 + 0.40e2 / 0.9e1 * t24304 - 0.80e2 / 0.81e2 * t24309 + 0.20e2 / 0.9e1 * t24313 - 0.4e1 * t24317;
13350   t24946 = 0.2e1 / 0.3e1 * t24323 - 0.2e1 / 0.9e1 * t24328 + 0.2e1 / 0.9e1 * t24330 - 0.2e1 / 0.3e1 * t24332 + 0.2e1 / 0.9e1 * t21145 - 0.4e1 / 0.3e1 * t21170 + 0.10e2 / 0.27e2 * t21172 - 0.8e1 / 0.9e1 * t21175 + 0.2e1 * t21190 + 0.28e2 / 0.81e2 * t14983 + 0.4e1 * t24341 - 0.10e2 / 0.9e1 * t24344 - 0.6e1 * t24347 + 0.28e2 / 0.27e2 * t17675 + 0.8e1 / 0.9e1 * t17679 + t24351 / 0.9e1 - t24356 / 0.3e1 - 0.4e1 / 0.9e1 * t24358 + 0.2e1 / 0.3e1 * t24360 + 0.10e2 / 0.81e2 * t24362;
13351   t24947 = t24925 + t24946;
13352   t24950 = -0.34731666666666666667e0 * t20994 - 0.11577222222222222223e0 * t20996 + 0.69463333333333333335e0 * t21001 + 0.20839000000000000000e0 * t21006 + 0.41318000000000000000e1 * t21020 - 0.10329500000000000000e1 * t21026 + t15458 - 0.27785333333333333334e0 * t21035 - 0.41678000000000000001e0 * t21041 + 0.92617777777777777780e-1 * t21047 + 0.35297250000000000000e1 * t503 * t24947;
13353   t24975 = t17709 - t17711 + t17742 - t17743 + 0.27785333333333333333e0 * t1959 * t4604 * t24311 - 0.10419500000000000000e0 * t216 * t1495 * t24281 + 0.20839000000000000000e0 * t1959 * t1495 * t24285 + 0.25006800000000000000e1 * t216 * t516 * t24289 + 0.37510200000000000000e1 * t1959 * t516 * t24293 + 0.62517000000000000000e0 * t216 * t516 * t24297 - 0.12503400000000000000e1 * t1959 * t516 * t24315 - 0.12503400000000000000e1 * t216 * t1495 * t24273;
13354   t25001 = 0.55570666666666666666e0 * t216 * t4604 * t24302 - 0.12503400000000000000e1 * t1959 * t1495 * t24277 + t15465 + 0.63116250000000000000e0 * t510 * t24947 + 0.20839000000000000000e0 * t216 * t516 * t24321 - 0.34731666666666666667e-1 * t216 * t1495 * t24326 - 0.10805407407407407407e0 * t216 * t15483 * t24307 + 0.51647499999999999999e0 * t21110 - 0.68863333333333333332e0 * t21118 - 0.45908888888888888888e0 * t21120 + 0.13772666666666666667e1 * t21125 - 0.13892666666666666667e0 * t17727 * t17738 * t24078;
13355   t25018 = -0.18755100000000000000e1 * t17727 * t17728 * t24078 + 0.62517000000000000000e0 * t17727 * t17734 * t24078 - 0.12395400000000000000e2 * t24275 - 0.12395400000000000000e2 * t24279 - 0.10329500000000000000e1 * t24283 + 0.20659000000000000000e1 * t24287 + 0.12395400000000000000e2 * t24291 + 0.18593100000000000000e2 * t24295 + 0.30988500000000000000e1 * t24299 + 0.68863333333333333334e1 * t24304 - 0.15302962962962962963e1 * t24309 + 0.34431666666666666667e1 * t24313;
13356   t25026 = t2596 * t505;
13357   t25035 = -0.61977000000000000000e1 * t24317 + 0.10329500000000000000e1 * t24323 - 0.34431666666666666667e0 * t24328 + 0.34431666666666666667e0 * t24330 - 0.10329500000000000000e1 * t24332 + 0.79418812500000000000e1 * t6236 * t25026 - 0.47337187500000000000e0 * t6239 * t25026 + 0.34431666666666666666e0 * t21145 - 0.20658999999999999999e1 * t21170 + 0.57386111111111111110e0 * t21172 - 0.13772666666666666666e1 * t21175;
13358   t25048 = 0.30988500000000000000e1 * t21190 + 0.30872592592592592592e0 * t15507 + 0.53560370370370370370e0 * t14983 + 0.92617777777777777779e0 * t17816 + 0.69463333333333333334e0 * t17822 - 0.41678000000000000000e0 * t21270 + 0.69463333333333333333e-1 * t21272 + 0.12503400000000000000e1 * t21296 + 0.16671200000000000000e1 * t21298 + 0.61977000000000000000e1 * t24341 - 0.17215833333333333333e1 * t24344 - 0.92965500000000000000e1 * t24347;
13359   t25070 = t1468 * t8106;
13360   t25073 = t1485 * t8106;
13361   t25076 = 0.16068111111111111111e1 * t17675 + 0.13772666666666666666e1 * t17679 + 0.23668593750000000000e0 * t15542 * t8073 * t505 - 0.47337187500000000000e0 * t7399 * t2074 + 0.94674375000000000000e0 * t6242 * t2596 + 0.94674375000000000000e0 * t2082 * t7368 - 0.66182343750000000000e1 * t15552 * t8073 * t505 + 0.79418812500000000000e1 * t7407 * t2074 - 0.52945875000000000000e1 * t6231 * t2596 - 0.52945875000000000000e1 * t2066 * t7368 - 0.17648625000000000000e1 * t25070 * t505 + 0.31558125000000000000e0 * t25073 * t505;
13362   t25082 = t545 * t8138;
13363   t25084 = t545 * t8135;
13364   t25086 = t545 * t8132;
13365   t25088 = t545 * t8129;
13366   t25093 = t545 * t8115;
13367   t25095 = t545 * t8112;
13368   t25097 = 0.17215833333333333333e0 * t24351 - 0.51647500000000000000e0 * t24356 - 0.68863333333333333333e0 * t24358 + 0.10329500000000000000e1 * t24360 + 0.19128703703703703704e0 * t24362 + 0.30872592592592592593e-1 * t25082 + 0.69463333333333333333e-1 * t25084 + 0.41678000000000000000e0 * t25086 - 0.13892666666666666667e0 * t25088 - 0.10419500000000000000e0 * t216 * t516 * t24354 - 0.41678000000000000000e0 * t25093 + 0.69463333333333333333e-1 * t25095;
13369   t25100 = t24950 + t24975 + t25001 + t25018 + t25035 + t25048 + t25076 + t25097;
13370   t25109 = -0.17544670867903938621e1 * t19107 - t19110 + 0.12414243100625616072e5 * t16661 * t8055 * t439 + 0.30000000000000000000e1 * t20895 * t2013 - t14836 - t14846 - 0.10254018858216406658e4 * t14847 - 0.58482236226346462070e0 * t14854 - t14873 - 0.15000000000000000000e1 * t2048 * t2702 - 0.15000000000000000000e1 * t779 * t7757 - 0.48245938496077605201e2 * t2027 * t2706 - 0.48245938496077605201e2 * t2048 * t2706 - 0.50000000000000000001e0 * t482 * t8440 - 0.50000000000000000001e0 * t497 * t8440 - 0.50000000000000000001e0 * t166 * t501 * t25100 * t521 - 0.30000000000000000000e1 * t482 * t8444 - 0.30000000000000000000e1 * t497 * t8444;
13371   t25148 = -0.30000000000000000000e1 * t395 * t8448 + 0.30000000000000000000e1 * t2063 * t2652 + 0.96491876992155210402e2 * t395 * t8487 + 0.96491876992155210402e2 * t413 * t8487 - 0.15000000000000000000e1 * t7138 * t848 - 0.15000000000000000000e1 * t7141 * t848 - 0.15000000000000000000e1 * t2504 * t1965 - 0.30000000000000000000e1 * t7146 * t848 - 0.30000000000000000000e1 * t2507 * t1965 - 0.15000000000000000000e1 * t2051 * t2689 - 0.15000000000000000000e1 * t745 * t7661 - 0.48245938496077605201e2 * t2051 * t2693 - 0.15000000000000000000e1 * t7149 * t848 - 0.15000000000000000000e1 * t7201 * t848 - 0.48245938496077605201e2 * t4201 * t8575 - 0.48245938496077605201e2 * t1454 * t22639 * t766 + 0.30000000000000000000e1 * t6532 * t7702 - 0.48245938496077605201e2 * t5942 * t7519 - 0.97592231702715658578e-1 * t19172;
13372   t25188 = 0.12000000000000000000e2 * t5192 * t8596 * t439 + 0.30000000000000000000e1 * t1223 * t2311 * t2687 - 0.24e2 * t22830 - 0.12e2 * t22832 + 0.30000000000000000000e1 * t6677 * t7697 - 0.99822801518023203660e5 * t16855 * t24705 * t520 - 0.31035607751564040180e4 * t5231 * t7059 * t2099 + 0.12414243100625616072e5 * t17144 * t8169 * t520 + 0.28947563097646563120e3 * t18635 * t7666 - 0.90000000000000000000e1 * t5942 * t7533 - 0.60000000000000000000e1 * t5980 * t2647 + 0.31168546390226634765e3 * t19199 + t19201 + 0.15545350000000000000e-1 * t24378 * t180 + 0.15545350000000000000e-1 * t24381 * t180 + 0.46636050000000000000e-1 * t24384 * t180 + 0.46636050000000000000e-1 * t24387 * t180 + 0.15545350000000000000e-1 * t24158 * t136 + 0.15545350000000000000e-1 * t24259 * t136;
13373   t25206 = -0.48245938496077605201e2 * t1213 * t21708 * t792 - t19214 + 0.30000000000000000000e1 * t6612 * t7697 - 0.48245938496077605201e2 * t20680 * t2010 + 0.3e1 * t22868 - 0.12e2 * t22891 + t14896 - 0.90000000000000000000e1 * t1213 * t2816 * t2099 - 0.31035607751564040180e4 * t4358 * t7303 * t1963 - t14899 - t14903 - t14907 - 0.51947577317044391277e2 * t14908 - t14913 - t14918 - 0.56968947174242584612e-3 * t14919 + t14924 + t14927 + t14933;
13374   t25236 = t14937 - 0.50000000000000000001e0 * t8528 * t618 - 0.15000000000000000000e1 * t8531 * t618 - 0.15000000000000000000e1 * t8534 * t618 - 0.50000000000000000001e0 * t8548 * t618 - 0.50000000000000000001e0 * t8551 * t626 - 0.15000000000000000000e1 * t8554 * t626 - 0.15000000000000000000e1 * t8557 * t626 - 0.50000000000000000001e0 * t8515 * t626 + t14941 + 0.30000000000000000000e1 * t20511 * t2016 + 0.60000000000000000000e1 * t20394 * t856 - t14971 + t19240 + 0.3e1 * t19242 + 0.10000000000000000000e1 * t1231 * t8148 * t520 - 0.31035607751564040180e4 * t18598 * t7512 + t15189;
13375   t25257 = t553 * t8470;
13376   t25259 = t558 * t8470;
13377   t25265 = -0.31035607751564040180e4 * t18534 * t7512 + t15435 - 0.24e2 * t15437 + 0.30000000000000000000e1 * t1231 * t793 * t7417 - 0.65061487801810439052e-1 * t19249 + t19253 + t15622 - t15330 - t15333 - 0.90000000000000000000e1 * t1454 * t2812 * t1963 + 0.30000000000000000000e1 * t4231 * t8567 - 0.96491876992155210402e2 * t6526 * t7509 + 0.96491876992155210402e2 * t5980 * t2706 - 0.48245938496077605201e2 * t6526 * t7519 + 0.30000000000000000000e1 * t5980 * t2702 + 0.4e1 * t25257 - 0.4e1 * t25259 + 0.30000000000000000000e1 * t2024 * t2647 + 0.30000000000000000000e1 * t2027 * t2647;
13378   t25278 = t766 * t439;
13379   t25288 = 0.30000000000000000000e1 * t2048 * t2647 + 0.96491876992155210402e2 * t482 * t8477 + 0.96491876992155210402e2 * t497 * t8477 + 0.30000000000000000000e1 * t2051 * t2652 + 0.30000000000000000000e1 * t2054 * t2652 + t15337 + t19265 + t15341 + t15345 + t15653 + t19274 - 0.12e2 * t15670 - 0.31035607751564040180e4 * t4358 * t20854 * t25278 - 0.17544670867903938621e1 * t23109 - 0.17544670867903938621e1 * t23111 + 0.30000000000000000000e1 * t1223 * t767 * t7659 + 0.35089341735807877242e1 * t15672 + t15677 - t15366;
13380   t25308 = t8469 * t254 * t610;
13381   t25312 = -t15369 + t15681 + t15685 + 0.46636050000000000000e-1 * t24394 * t180 + 0.15545350000000000000e-1 * t24264 * t180 - t15838 - 0.57895126195293126241e3 * t5231 * t8772 * t520 - 0.51947577317044391276e2 * t23145 - t15842 + 0.30000000000000000000e1 * t20397 * t2016 + 0.28947563097646563121e3 * t4217 * t2585 * t2099 - 0.90000000000000000000e1 * t6526 * t7533 + 0.60e2 * t23189 - 0.36e2 * t23191 + t15372 - 0.30762056574649219972e4 * t19374 - 0.58482236226346462070e0 * t25308 + t19390 - 0.96491876992155210402e2 * t5942 * t7509;
13382   t25344 = t19395 + 0.60000000000000000000e1 * t21694 * t2016 - 0.48245938496077605201e2 * t20419 * t2010 + 0.12000000000000000000e2 * t4217 * t8369 * t520 + 0.73245789224026180216e-3 * t23270 + t15845 - 0.48245938496077605201e2 * t4223 * t8570 + 0.28947563097646563120e3 * t5192 * t7705 * t25278 - 0.90000000000000000000e1 * t1213 * t793 * t2617 * t520 + 0.10526802520742363173e2 * t19403 - 0.15584273195113317383e3 * t19408 - 0.48245938496077605201e2 * t4209 * t8570 - 0.60000000000000000000e1 * t22567 * t848 - 0.96491876992155210402e2 * t20695 * t2002 + t15869 - t15872 + 0.30000000000000000000e1 * t5212 * t8562 - 0.96491876992155210402e2 * t6707 * t7785;
13383   t25358 = t15383 + t15397 + 0.180e3 * t19413 - t15876 - 0.120e3 * t15877 + 0.60e2 * t15881 - t19419 - t19421 + t19423 + t19425 + t19427 - t15403 + t15925 - 0.30000000000000000000e1 * t6064 * t2689 - 0.48245938496077605201e2 * t6707 * t7706 + 0.30000000000000000000e1 * t5531 * t7702 + t15427 - 0.48245938496077605201e2 * t23665 * t2002 + 0.30000000000000000000e1 * t20795 * t2013;
13384   t25389 = t2550 * t180;
13385   t25392 = -0.96491876992155210402e2 * t6064 * t2693 - 0.31035607751564040180e4 * t17886 * t7788 - 0.96491876992155210402e2 * t6606 * t7785 - 0.48245938496077605201e2 * t6606 * t7706 + 0.10000000000000000000e1 * t1223 * t8046 * t439 + 0.30000000000000000000e1 * t1231 * t2278 * t2617 + 0.30000000000000000000e1 * t4212 * t8567 + 0.28947563097646563120e3 * t18695 * t7666 + 0.60000000000000000000e1 * t6612 * t7536 + 0.35089341735807877242e1 * t23301 + t19449 - 0.36e2 * t19454 - t19457 + 0.3e1 * t23321 + 0.48796115851357829289e-1 * t19521 + 0.14447919941302971323e1 * t19523 + 0.15545350000000000000e-1 * t24366 * t180 + 0.93272100000000000000e-1 * t1104 * t24574 - 0.93272100000000000000e-1 * t1104 * t25389;
13386   t25448 = 0.28e2 / 0.27e2 * t17909 - 0.8e1 / 0.9e1 * t17911 + t15800 + t18086 - t18087 - 0.2e1 / 0.3e1 * t24163 + 0.2e1 / 0.9e1 * t24165 + 0.28e2 / 0.81e2 * t15153 - 0.4e1 / 0.3e1 * t21438 + 0.10e2 / 0.27e2 * t21440 + 0.8e1 / 0.9e1 * t21442 + 0.2e1 * t21457 - 0.8e1 / 0.3e1 * t21481 - 0.2e1 / 0.3e1 * t21487 + 0.2e1 / 0.9e1 * t21489 + 0.2e1 / 0.3e1 * t24175 - t24179 / 0.3e1 + 0.10e2 / 0.81e2 * t24181 + t24183 / 0.9e1 - 0.4e1 / 0.9e1 * t24185;
13387   t25469 = -0.6e1 * t24189 + 0.4e1 * t24192 - 0.10e2 / 0.9e1 * t24195 - 0.12e2 * t24199 + 0.2e1 * t24203 + 0.4e1 * t24207 + 0.2e1 / 0.3e1 * t24212 - 0.2e1 / 0.9e1 * t24217 + 0.40e2 / 0.9e1 * t24222 - 0.80e2 / 0.81e2 * t24227 - 0.20e2 / 0.9e1 * t24231 - 0.8e1 * t24235 + 0.8e1 * t24239 + t21570 / 0.3e1 - 0.4e1 / 0.9e1 * t21575 - 0.8e1 / 0.27e2 * t21577 + 0.8e1 / 0.9e1 * t21582 - 0.2e1 / 0.3e1 * t24247 - 0.4e1 / 0.3e1 * t24251 + 0.8e1 * t24255;
13388   t25470 = t25448 + t25469;
13389   t25477 = t545 * t8028;
13390   t25479 = t545 * t8034;
13391   t25482 = 0.16068111111111111111e1 * t17909 - 0.13772666666666666666e1 * t17911 + 0.63116250000000000000e0 * t426 * t25470 + 0.30872592592592592592e0 * t15703 - 0.10419500000000000000e0 * t216 * t435 * t24177 + 0.41678000000000000000e0 * t25477 - 0.13892666666666666667e0 * t25479 + t15709 + t17979 - t17981 - 0.10329500000000000000e1 * t24163;
13392   t25485 = t2666 * t421;
13393   t25493 = t545 * t8040;
13394   t25495 = t545 * t8037;
13395   t25499 = 0.34431666666666666667e0 * t24165 - 0.34731666666666666667e0 * t21362 - 0.47337187500000000000e0 * t6353 * t25485 + 0.79418812500000000000e1 * t6350 * t25485 + 0.92617777777777777779e0 * t18032 - 0.69463333333333333334e0 * t18037 - 0.16671200000000000000e1 * t21399 + 0.69463333333333333333e-1 * t25493 + 0.30872592592592592593e-1 * t25495 + 0.69463333333333333335e0 * t21404 - 0.11577222222222222223e0 * t21406 + t15738;
13396   t25521 = 0.23668593750000000000e0 * t15778 * t8020 * t421 + 0.53560370370370370370e0 * t15153 - 0.20658999999999999999e1 * t21438 + 0.57386111111111111110e0 * t21440 + 0.13772666666666666666e1 * t21442 + 0.30988500000000000000e1 * t21457 - 0.18755100000000000000e1 * t17727 * t18134 * t24073 + 0.62517000000000000000e0 * t17727 * t18138 * t24073 - 0.13892666666666666667e0 * t17727 * t18142 * t24073 - 0.41318000000000000000e1 * t21481 - 0.10329500000000000000e1 * t21487 + 0.34431666666666666666e0 * t21489;
13397   t25526 = t1391 * t8009;
13398   t25529 = t1408 * t8009;
13399   t25552 = -0.52945875000000000000e1 * t6361 * t2666 - 0.52945875000000000000e1 * t1910 * t7583 - 0.17648625000000000000e1 * t25526 * t421 + 0.31558125000000000000e0 * t25529 * t421 - 0.47337187500000000000e0 * t7641 * t1934 + 0.94674375000000000000e0 * t6356 * t2666 + 0.94674375000000000000e0 * t1942 * t7583 - 0.66182343750000000000e1 * t15759 * t8020 * t421 + 0.79418812500000000000e1 * t7649 * t1934 + 0.20839000000000000000e0 * t216 * t435 * t24210 - 0.34731666666666666667e-1 * t216 * t1421 * t24215 + 0.55570666666666666666e0 * t216 * t4261 * t24220;
13400   t25570 = -0.10805407407407407407e0 * t216 * t15729 * t24225 - 0.27785333333333333333e0 * t1959 * t4261 * t24229 + 0.10329500000000000000e1 * t24175 - 0.51647500000000000000e0 * t24179 + 0.19128703703703703704e0 * t24181 + 0.17215833333333333333e0 * t24183 - 0.68863333333333333333e0 * t24185 - 0.41678000000000000001e0 * t21595 + 0.92617777777777777780e-1 * t21597 + 0.27785333333333333334e0 * t21599 - 0.41678000000000000000e0 * t21613;
13401   t25597 = t545 * t7975;
13402   t25599 = t545 * t7971;
13403   t25601 = 0.69463333333333333333e-1 * t21617 + 0.12503400000000000000e1 * t21619 + 0.25006800000000000000e1 * t216 * t435 * t24253 - 0.37510200000000000000e1 * t1959 * t435 * t24197 + 0.62517000000000000000e0 * t216 * t435 * t24201 + 0.12503400000000000000e1 * t1959 * t435 * t24205 - 0.12503400000000000000e1 * t216 * t1421 * t24233 + 0.12503400000000000000e1 * t1959 * t1421 * t24237 - 0.10419500000000000000e0 * t216 * t1421 * t24245 - 0.20839000000000000000e0 * t1959 * t1421 * t24249 - 0.41678000000000000000e0 * t25597 + 0.69463333333333333333e-1 * t25599;
13404   t25615 = -0.92965500000000000000e1 * t24189 + 0.61977000000000000000e1 * t24192 - 0.17215833333333333333e1 * t24195 - 0.18593100000000000000e2 * t24199 + 0.30988500000000000000e1 * t24203 + 0.61977000000000000000e1 * t24207 + 0.10329500000000000000e1 * t24212 - 0.34431666666666666667e0 * t24217 + 0.68863333333333333334e1 * t24222 - 0.15302962962962962963e1 * t24227 - 0.34431666666666666667e1 * t24231 - 0.12395400000000000000e2 * t24235;
13405   t25627 = 0.12395400000000000000e2 * t24239 + 0.51647499999999999999e0 * t21570 - 0.68863333333333333332e0 * t21575 - 0.45908888888888888888e0 * t21577 + 0.13772666666666666667e1 * t21582 + t18175 - t18177 - 0.10329500000000000000e1 * t24247 - 0.20659000000000000000e1 * t24251 + 0.12395400000000000000e2 * t24255 + 0.35297250000000000000e1 * t419 * t25470 + 0.20839000000000000000e0 * t21665;
13406   t25630 = t25482 + t25499 + t25521 + t25552 + t25570 + t25601 + t25615 + t25627;
13407   t25642 = -0.31035607751564040180e4 * t18494 * t7788 + 0.60000000000000000000e1 * t6677 * t7536 - 0.99822801518023203660e5 * t16433 * t24598 * t439 - 0.48245938496077605201e2 * t1454 * t7705 * t1963 - 0.48245938496077605201e2 * t1213 * t7518 * t2099 + 0.28947563097646563120e3 * t4217 * t7518 * t24654 - 0.90000000000000000000e1 * t1454 * t767 * t2687 * t439 - 0.15000000000000000000e1 * t2525 * t1965 - 0.15000000000000000000e1 * t2054 * t2689 - 0.15000000000000000000e1 * t2063 * t2689 - 0.15000000000000000000e1 * t753 * t7661 - 0.48245938496077605201e2 * t2054 * t2693 - 0.48245938496077605201e2 * t2063 * t2693 - 0.50000000000000000001e0 * t395 * t8417 - 0.50000000000000000001e0 * t413 * t8417 - 0.50000000000000000001e0 * t115 * t417 * t25630 * t440 - 0.10345202583854680060e4 * t395 * t8421 - 0.10345202583854680060e4 * t413 * t8421 - 0.31035607751564040180e4 * t5231 * t20491 * t24654;
13408   t25657 = -0.30000000000000000000e1 * t1231 * t2618 * t7046 + 0.16081979498692535067e2 * t1213 * t24733 * t2224 + (t24763 + t24825 + t24851 + t24876 + t25109 + t25148 + t25188 + t25206 + t25236 + t25265 + t25288 + t25312 + t25344 + t25358 + t25392 + t25642) * t310 - 0.96491876992155210402e2 * t17207 * t8773 - 0.30000000000000000000e1 * t18434 * t2817 - 0.30000000000000000000e1 * t6532 * t7868 - t18449 / 0.8e1 + t18452 + t18454 + t18460 / 0.8e1 - 0.5e1 / 0.144e3 * t18463;
13409   t25679 = t8229 * t651;
13410   t25682 = t876 * t82;
13411   t25683 = t25682 * t6836;
13412   t25690 = t3137 * t876;
13413   t25691 = t2149 * t25690;
13414   t25704 = -0.15210e2 * t16325 * t8191 - 0.2535e1 * t1836 * t8211 - 0.2535e1 * t25679 * t653 + 0.59971622400000000000e-6 * t16302 * t25683 - 0.61699200000000000000e-1 * t22017 * t6819 - 0.53308108800000000000e-3 * t22224 * t6827 + 0.92548800000000000000e-1 * t20182 * t25691 - 0.92548800000000000000e-1 * t22372 * t6819 - 0.34705800000000000000e-1 * t22013 * t6807 + 0.18509760000000000000e-3 * t22020 * t6819 + 0.11994324480000000000e-5 * t22235 * t6827 - 0.27764640000000000000e-3 * t20187 * t25691;
13415   t25713 = t306 * t8229;
13416   t25717 = t306 * t8211;
13417   t25724 = t8215 * t306;
13418   t25732 = t8215 * sigma[0] * t333;
13419   t25735 = t8339 * t276;
13420   t25738 = t8339 * t283;
13421   t25741 = 0.27764640000000000000e-3 * t22000 * t6819 + 0.12339840000000000000e0 * t21965 * t6819 - 0.37019520000000000000e-3 * t22004 * t6819 - 0.69411600000000000000e-1 * t22034 * t6807 + 0.52058700000000000000e-3 * t1775 * t25713 * t653 + 0.52058700000000000000e-3 * t1775 * t25717 * t648 - 0.69411600000000000000e-3 * t2165 * t25717 * t653 + 0.27147648000000000000e-1 * t7016 * t25724 * t648 - 0.27147648000000000000e-1 * t7021 * t25724 * t653 + 0.57461944320000000000e-10 * t6978 * t25732 + 0.18509760000000000000e-2 * t25735 * t668 - 0.55529280000000000000e-5 * t25738 * t673;
13422   t25743 = t656 * t710;
13423   t25744 = t8219 * t287;
13424   t25748 = t662 * t710;
13425   t25753 = t8198 * sigma[0] * t333;
13426   t25764 = t306 * t8191;
13427   t25773 = t8219 * sigma[0] * t333;
13428   t25782 = -0.11846246400000000000e-3 * t25743 * t25744 * t648 + 0.11846246400000000000e-3 * t25748 * t25744 * t653 - 0.11381051733333333333e-3 * t2170 * t25753 + 0.11173155840000000000e-5 * t2140 * t25753 - 0.22346311680000000000e-8 * t2145 * t25753 + 0.31235220000000000000e-2 * t22434 * t8322 - 0.10411740000000000000e-2 * t10970 * t8325 + 0.10411740000000000000e-1 * t16225 * t25764 * t648 - 0.20823480000000000000e-1 * t20102 * t25764 * t653 - 0.32968507392000000000e-7 * t16054 * t710 * t25773 + 0.16716201984000000000e-9 * t16061 * t710 * t25773 - 0.25074302976000000000e-12 * t16066 * t710 * t25773;
13429   t25787 = t20080 * t2723;
13430   t25790 = t5599 * t2736;
13431   t25798 = t22430 * t876;
13432   t25808 = t352 * t8836 * sigma[2];
13433   t25811 = t719 * t2723;
13434   t25812 = t352 * t25811;
13435   t25815 = t2751 * sigma[2];
13436   t25816 = t25815 * t2142;
13437   t25819 = t873 * t82;
13438   t25820 = t25819 * t6975;
13439   t25823 = 0.55867299840000000000e-5 * t7025 * t25732 - 0.34477166592000000000e-7 * t6973 * t25732 - 0.84500000000000000000e2 * t5598 * t25787 + 0.42250000000000000000e2 * t5598 * t25790 + 0.11266666666666666667e3 * t6984 * t6987 - 0.13770370370370370370e3 * t2148 * t2149 * t2357 - 0.11266666666666666667e3 * t5598 * t25798 - 0.42250000000000000000e2 * t7032 * tau[0] * t2150 - 0.34705800000000000000e-3 * t2153 * t25713 * t648 - 0.29307120000000000000e-3 * t5751 * t25808 + 0.34705800000000000000e-1 * t19857 * t25812 + 0.88846848000000000000e-4 * t5755 * t25816 + 0.31984865280000000000e-5 * t20112 * t25820;
13440   t25827 = t352 * t8809 * t82;
13441   t25832 = t2775 * sigma[2];
13442   t25833 = t25832 * t2142;
13443   t25837 = t6814 * t8236 * t648;
13444   t25841 = t6814 * t8236 * t653;
13445   t25844 = t6814 * t6997;
13446   t25849 = t2723 * sigma[2];
13447   t25850 = t25849 * t2142;
13448   t25853 = t6826 * t6997;
13449   t25862 = -0.49359360000000000000e-3 * t5755 * t25827 - 0.19990540800000000000e-6 * t5715 * t25816 - 0.39981081600000000000e-6 * t19695 * t25833 + 0.99952704000000000000e-4 * t16297 * t25837 - 0.19990540800000000000e-3 * t16310 * t25841 + 0.73298649600000000000e-6 * t5715 * t25844 - 0.29307120000000000000e-3 * t5740 * t25808 + 0.35538739200000000000e-3 * t19666 * t25850 + 0.32577177600000000000e-3 * t5758 * t25853 + 0.97690400000000000000e-1 * t5748 * t25808 + 0.17769369600000000000e-3 * t19689 * t25833 - 0.33317568000000000000e-1 * t16289 * t25837;
13450   t25865 = t701 * t876;
13451   t25869 = t25832 * t2191;
13452   t25874 = t6814 * t6844;
13453   t25877 = t6814 * t6883;
13454   t25886 = t305 * t710;
13455   t25887 = t8219 * t640;
13456   t25900 = 0.66635136000000000000e-1 * t16305 * t25841 + 0.44423424000000000000e-1 * t19985 * t2154 * t25865 - 0.16658784000000000000e-1 * t16289 * t25869 - 0.14807808000000000000e-1 * t19713 * t8267 - 0.20360736000000000000e-1 * t5777 * t25874 + 0.30541104000000000000e-1 * t5011 * t25877 + 0.27147648000000000000e-1 * t5771 * t8270 + 0.49976352000000000000e-4 * t16297 * t25869 + 0.61082208000000000000e-4 * t5782 * t25874 - 0.18953994240000000000e-5 * t25886 * t25887 * t334 - 0.14807808000000000000e-1 * t22383 * t7017 * t5778 + 0.22211712000000000000e-1 * t22037 * t7017 * t5785 + 0.22211712000000000000e-1 * t22037 * t7017 * t5791;
13457   t25905 = t8215 * t648;
13458   t25909 = t8215 * t653;
13459   t25913 = t8198 * t648;
13460   t25917 = t8198 * t653;
13461   t25930 = t287 * t8229;
13462   t25937 = t287 * t8211;
13463   t25941 = t8215 * t287;
13464   t25945 = -0.29615616000000000000e-1 * t22387 * t7017 * t2211 - 0.32577177600000000000e-3 * t1849 * t2795 * t25905 + 0.32577177600000000000e-3 * t1839 * t2795 * t25909 + 0.15836128000000000000e-1 * t1849 * t885 * t25913 - 0.15836128000000000000e-1 * t1839 * t885 * t25917 - 0.14076558222222222222e-1 * t2195 * t2196 * t8199 + 0.16900000000000000000e3 * t5709 * t876 * t2127 + 0.92548800000000000000e-3 * t1849 * t25713 * t334 - 0.27764640000000000000e-5 * t1853 * t25930 * t334 - 0.92548800000000000000e-3 * t1839 * t25717 * t334 + 0.27764640000000000000e-5 * t1844 * t25937 * t334 + 0.43436236800000000000e-3 * t9851 * t25941 * t334;
13465   t25952 = t2736 * t648;
13466   t25962 = t287 * t8191;
13467   t25972 = t640 * sigma[0] * t333;
13468   t25981 = t8219 * t648;
13469   t25985 = t8219 * t653;
13470   t25989 = 0.31235220000000000000e-2 * t5051 * t6864 * t5791 - 0.62470440000000000000e-2 * t5038 * t6864 * t2211 + 0.31235220000000000000e-2 * t5051 * t2154 * t25952 - 0.62470440000000000000e-2 * t5038 * t2154 * t6799 - 0.18509760000000000000e-1 * t16355 * t25764 * t334 + 0.55529280000000000000e-4 * t5624 * t25962 * t334 - 0.13770370370370370370e3 * t352 * t8206 * t297 - 0.15966720000000000000e-3 * t8216 * t673 + 0.17027235840000000000e-5 * t8220 * t25972 + 0.73298649600000000000e-6 * t1853 * t2788 * t25905 - 0.73298649600000000000e-6 * t1844 * t2788 * t25909 + 0.10661621760000000000e-5 * t1849 * t8314 * t25981 - 0.10661621760000000000e-5 * t1839 * t8314 * t25985;
13471   t26002 = t2751 * t653;
13472   t26017 = t352 * t719 * t2751;
13473   t26020 = t6802 * t6987;
13474   t26023 = t2363 * t876;
13475   t26024 = t352 * t26023;
13476   t26029 = -0.21323243520000000000e-8 * t1853 * t8318 * t25981 + 0.21323243520000000000e-8 * t1844 * t8318 * t25985 - 0.12494088000000000000e-1 * t16220 * t6902 * t2211 + 0.31235220000000000000e-2 * t5051 * t2154 * t26002 + 0.55529280000000000000e-2 * t22088 * t8267 - 0.32577177600000000000e-3 * t5755 * t25844 + 0.97690400000000000000e-1 * t5735 * t25808 + 0.17352900000000000000e-1 * t19862 * t2775 * tau[0] * t2150 + 0.57843000000000000000e-2 * t5725 * t26017 - 0.15424800000000000000e-1 * t5725 * t26020 + 0.23137200000000000000e-1 * t5730 * t26024 + 0.86764500000000000000e-2 * t5730 * t26017;
13477   t26030 = t719 * t2736;
13478   t26031 = t352 * t26030;
13479   t26038 = t25849 * t2191;
13480   t26043 = t6826 * t6844;
13481   t26046 = t6826 * t6883;
13482   t26051 = t25849 * t2187;
13483   t26060 = -0.86764500000000000000e-2 * t5730 * t26031 - 0.23137200000000000000e-1 * t5730 * t26020 + 0.57843000000000000000e-1 * t19867 * t25812 - 0.55529280000000000000e-1 * t19757 * t26038 - 0.29615616000000000000e-1 * t19677 * t8279 + 0.30541104000000000000e-1 * t5011 * t26043 - 0.40721472000000000000e-1 * t5797 * t26046 - 0.27147648000000000000e-1 * t5774 * t8284 - 0.99952704000000000000e-4 * t16310 * t26051 + 0.16658784000000000000e-3 * t19761 * t26038 - 0.91623312000000000000e-4 * t5005 * t26043 + 0.12216441600000000000e-3 * t5801 * t26046;
13484   t26062 = t873 * t2736;
13485   t26063 = t26062 * t334;
13486   t26068 = t8356 * t334;
13487   t26074 = t3416 * t2149;
13488   t26077 = t8216 * t334;
13489   t26082 = t8220 * t334;
13490   t26087 = t2775 * t876;
13491   t26088 = t26087 * t334;
13492   t26093 = t873 * t2751;
13493   t26094 = t26093 * t334;
13494   t26097 = -0.83293920000000000000e-2 * t5011 * t26063 + 0.24988176000000000000e-4 * t5005 * t26063 + 0.11105856000000000000e-1 * t5797 * t26068 - 0.33317568000000000000e-4 * t5801 * t26068 + 0.41132800000000000000e-1 * t662 * t9959 * t26074 - 0.39092613120000000000e-5 * t5804 * t26077 + 0.78185226240000000000e-8 * t5808 * t26077 + 0.15163195392000000000e-7 * t19732 * t26082 - 0.28430991360000000000e-10 * t19739 * t26082 - 0.16658784000000000000e-1 * t16289 * t26088 + 0.49976352000000000000e-4 * t16297 * t26088 + 0.55529280000000000000e-2 * t5777 * t26094;
13495   t26100 = t873 * t2723;
13496   t26101 = t26100 * t334;
13497   t26106 = t25815 * t2187;
13498   t26109 = t25815 * t2191;
13499   t26114 = t25819 * t6836;
13500   t26117 = t25819 * t6840;
13501   t26130 = -0.16658784000000000000e-4 * t5782 * t26094 + 0.33317568000000000000e-1 * t16305 * t26101 - 0.99952704000000000000e-4 * t16310 * t26101 + 0.55529280000000000000e-2 * t5777 * t26106 - 0.83293920000000000000e-2 * t5011 * t26109 - 0.74039040000000000000e-2 * t5771 * t8243 + 0.17769369600000000000e-3 * t19689 * t26114 - 0.26654054400000000000e-3 * t16138 * t26117 - 0.35538739200000000000e-3 * t5771 * t8246 - 0.16658784000000000000e-4 * t5782 * t26106 + 0.24988176000000000000e-4 * t5005 * t26109 - 0.91623312000000000000e-4 * t5005 * t25877 + 0.33317568000000000000e-1 * t16305 * t26051;
13502   t26133 = t2751 * t876;
13503   t26134 = t26133 * t334;
13504   t26139 = t25682 * t6840;
13505   t26142 = t352 * t8206;
13506   t26157 = t2736 * sigma[2];
13507   t26158 = t26157 * t2187;
13508   t26161 = t26157 * t2191;
13509   t26166 = -0.83293920000000000000e-2 * t5011 * t26134 + 0.24988176000000000000e-4 * t5005 * t26134 - 0.79962163200000000000e-6 * t19672 * t26139 + 0.94262666666666666667e-2 * t2126 * t26142 + 0.94262666666666666667e-2 * t2130 * t26142 + 0.57843000000000000000e-2 * t11315 * t307 * t2127 + 0.41132800000000000000e-1 * t656 * t9959 * t26074 - 0.39981081600000000000e-6 * t19695 * t26114 + 0.59971622400000000000e-6 * t16302 * t26117 - 0.83293920000000000000e-2 * t5011 * t26158 + 0.11105856000000000000e-1 * t5797 * t26161 + 0.74039040000000000000e-2 * t5774 * t8255;
13510   t26177 = t8199 * t334;
13511   t26191 = t75 * t2736;
13512   t26199 = -0.26654054400000000000e-3 * t16138 * t25683 + 0.35538739200000000000e-3 * t19666 * t26139 + 0.35538739200000000000e-3 * t5774 * t8258 + 0.24988176000000000000e-4 * t5005 * t26158 - 0.33317568000000000000e-4 * t5801 * t26161 + 0.16891869866666666667e-3 * t2133 * t26177 - 0.38006707200000000000e-6 * t2137 * t26177 - 0.62470440000000000000e-2 * t5038 * t2161 * t25952 + 0.10411740000000000000e-1 * t5624 * t2161 * t6799 - 0.25350000000000000000e3 * t5050 * t2723 * t2127 + 0.84500000000000000000e2 * t5697 * t2149 * t26191 - 0.22533333333333333333e3 * t6880 * t6939 - 0.11568600000000000000e-1 * t5745 * t26031;
13513   t26207 = t26157 * t2142;
13514   t26210 = t25682 * t6975;
13515   t26228 = 0.30849600000000000000e-1 * t5745 * t26024 - 0.63969730560000000000e-8 * t20117 * t25820 + 0.11105856000000000000e-5 * t5715 * t25827 - 0.88846848000000000000e-4 * t5758 * t26207 - 0.31984865280000000000e-5 * t20120 * t26210 - 0.49359360000000000000e-3 * t5758 * t25827 + 0.19990540800000000000e-6 * t5720 * t26207 + 0.63969730560000000000e-8 * t20125 * t26210 + 0.11105856000000000000e-5 * t5720 * t25827 - 0.79962163200000000000e-6 * t19672 * t25850 - 0.73298649600000000000e-6 * t5720 * t25853 - 0.45630e2 * t5050 * t8356 * t653;
13516   t26229 = t8338 * t661;
13517   t26242 = t2723 * t648;
13518   t26263 = 0.10411740000000000000e-2 * t26229 * t663 - 0.34452195555555555556e-2 * t334 * t8299 - 0.16658784000000000000e-4 * t10970 * t8273 - 0.47508384000000000000e-4 * t1853 * t889 * t25913 + 0.47508384000000000000e-4 * t1844 * t889 * t25917 - 0.12494088000000000000e-1 * t16220 * t2154 * t26242 + 0.31235220000000000000e-1 * t16225 * t2154 * t6794 + 0.15210e2 * t22188 * t2211 - 0.45630e2 * t19771 * t6794 + 0.15210e2 * t5709 * t6799 + 0.5070e1 * t1764 * t8211 * t653 + 0.60840e2 * t16219 * t8191 * t653 + 0.15210e2 * t5175 * t8356;
13519   t26275 = t21783 / 0.8e1 + 0.15000000000000000000e1 * t2264 * t7826 - 0.96491876992155210402e2 * t17166 * t8773 + 0.15000000000000000000e1 * t2264 * t7823 + 0.50000000000000000001e0 * t418 * t25630 * t440 * t158 + 0.15000000000000000000e1 * t6565 * t2803 + 0.50000000000000000001e0 * t1461 * t8047 + 0.50000000000000000001e0 * t1387 * t8047 + t275 * (t25704 + t25741 + t25782 + t25823 + t25862 + t25900 + t25945 + t25989 + t26029 + t26060 + t26097 + t26130 + t26166 + t26199 + t26228 + t26263) + 0.93272100000000000000e-1 * t1104 * t25389 * t202 + 0.18654420000000000000e0 * t1104 * t7454 * t830;
13520   t26300 = 0.15000000000000000000e1 * t7838 * t2308 + 0.15000000000000000000e1 * t7838 * t2312 + 0.31035607751564040180e4 * t115 * t4357 * t2687 * t17405 * t25278 + 0.15000000000000000000e1 * t1208 * t8180 + 0.15000000000000000000e1 * t1205 * t8180 + 0.15000000000000000000e1 * t20868 * t768 + 0.48245938496077605201e2 * t6606 * t7829 + 0.15000000000000000000e1 * t20865 * t768 + 0.48245938496077605201e2 * t18478 * t2807 + 0.48245938496077605201e2 * t17440 * t2807 + t18548;
13521   t26326 = 0.48245938496077605201e2 * t6606 * t7891 - 0.30000000000000000000e1 * t20511 * t2225 - 0.5e1 / 0.144e3 * t18578 + 0.90000000000000000000e1 * t5942 * t7280 + 0.60000000000000000000e1 * t5980 * t2646 * t5981 + 0.15000000000000000000e1 * t502 * t7418 * t830 + 0.48245938496077605201e2 * t4193 * t7954 + 0.48245938496077605201e2 * t4201 * t7954 + 0.50000000000000000001e0 * t502 * t522 * t8736 + 0.30000000000000000000e1 * t7865 * t2279 - 0.28947563097646563121e3 * t4217 * t2585 * t7053;
13522   t26347 = -0.5e1 / 0.144e3 * t17051 + t17055 - 0.5e1 / 0.144e3 * t17056 + t17060 + 0.30000000000000000000e1 * t7865 * t2275 + 0.30000000000000000000e1 * t4201 * t8370 - 0.28947563097646563120e3 * t18635 * t7283 + 0.96491876992155210402e2 * t6526 * t7054 + 0.15000000000000000000e1 * t2272 * t7844 + 0.15000000000000000000e1 * t2269 * t7844 + 0.31035607751564040180e4 * t5231 * t7059 * t7053;
13523   t26373 = 0.48245938496077605201e2 * t18537 * t2586 + 0.48245938496077605201e2 * t18437 * t2586 + 0.48245938496077605201e2 * t18540 * t2586 + t8590 * t676 - 0.28947563097646563120e3 * t166 * t4216 * t2617 * t2228 + 0.90000000000000000000e1 * t115 * t1453 * t2687 * t2221 + 0.15000000000000000000e1 * t20602 * t794 + 0.15000000000000000000e1 * t20550 * t794 + 0.15000000000000000000e1 * t2315 * t7826 - 0.96491876992155210402e2 * t16709 * t8064 + 0.15000000000000000000e1 * t6554 * t2619;
13524   t26382 = t740 * t2421;
13525   t26388 = t740 * t2537 * t378;
13526   t26399 = t60 * t8004;
13527   t26405 = t60 * t7988 * t314;
13528   t26412 = t7216 * t2;
13529   t26421 = -0.28947563097646563120e3 * t115 * t4491 * t2687 * t2218 - t5838 * t2250 * t24042 / 0.2e1 - t2249 * t2250 * t26382 * t378 / 0.8e1 + 0.3e1 / 0.8e1 * t6673 * t2250 * t26388 - 0.7e1 / 0.24e2 * t5838 * t5839 * t26388 + t2249 * t6504 * t7225 * t2 / 0.2e1 - t2256 * t2257 * t26399 * t314 / 0.24e2 + 0.7e1 / 0.9e1 * t18840 * t6646 * t26405 - 0.35e2 / 0.108e3 * t18835 * t18836 * t26405 - 0.7e1 / 0.12e2 * t6645 * t18286 * t26412 - t2249 * t2250 * t2410 * t689 * t378 / 0.8e1;
13530   t26430 = t8515 * t501;
13531   t26433 = t8531 * t417;
13532   t26436 = t8528 * t417;
13533   t26446 = -0.30000000000000000000e1 * t1223 * t2802 * t24416 - 0.30000000000000000000e1 * t1223 * t2802 * t7294 + 0.15000000000000000000e1 * t7854 * t2275 + 0.50000000000000000001e0 * t26430 * t523 + 0.15000000000000000000e1 * t26433 * t442 + 0.50000000000000000001e0 * t26436 * t442 + 0.31035607751564040180e4 * t18598 * t7060 - 0.60000000000000000000e1 * t6677 * t7050 + 0.3e1 * t2114 * t2800 + t18738 - t23509 / 0.12e2;
13534   t26472 = -t23524 / 0.24e2 - 0.7e1 / 0.72e2 * t23536 + t23539 / 0.6e1 - 0.30000000000000000000e1 * t5980 * t2701 * t5981 + 0.48245938496077605201e2 * t6526 * t7807 + 0.50000000000000000001e0 * t502 * t25100 * t521 * t202 - 0.7e1 / 0.72e2 * t23548 - t23551 / 0.6e1 - 0.30000000000000000000e1 * t5212 * t8592 - 0.3e1 / 0.4e1 * t6673 * t6504 * t24049 - t2256 * t2257 * t23576 * t680 / 0.8e1;
13535   t26493 = t2423 * t1880;
13536   t26495 = t691 * t7263;
13537   t26498 = t67 * t127 * t8885;
13538   t26500 = t8795 * t319;
13539   t26502 = -t2256 * t2257 * t23584 * t680 / 0.8e1 - t2256 * t6498 * t7240 * t2 / 0.4e1 - t6645 * t2257 * t26405 / 0.2e1 + 0.3e1 / 0.4e1 * t6669 * t6498 * t26412 - t23574 / 0.24e2 - 0.30000000000000000000e1 * t5531 * t7319 - 0.12414243100625616072e5 * t16661 * t8055 * t2217 - 0.3e1 / 0.32e2 * t26493 - 0.3e1 / 0.32e2 * t26495 - t26498 / 0.32e2 - t26500 / 0.32e2;
13540   t26504 = t8799 * t383;
13541   t26519 = t8548 * t417;
13542   t26522 = t8534 * t417;
13543   t26530 = -t26504 / 0.32e2 + 0.48245938496077605201e2 * t1213 * t7518 * t7053 - 0.60000000000000000000e1 * t6612 * t7286 - 0.30000000000000000000e1 * t1231 * t793 * t202 * t7417 - 0.28947563097646563120e3 * t18394 * t7894 + 0.48245938496077605201e2 * t4209 * t8413 + 0.50000000000000000001e0 * t26519 * t442 + 0.15000000000000000000e1 * t26522 * t442 + t23685 / 0.36e2 + t23688 / 0.48e2 - 0.10000000000000000000e1 * t1231 * t8148 * t2224;
13544   t26559 = t389 * t8884;
13545   t26568 = -0.60000000000000000000e1 * t21694 * t2225 - t323 * t18 * t326 * t24134 / 0.32e2 - 0.7e1 / 0.72e2 * t5275 * t18 * t15959 * t7988 + t20226 / 0.24e2 - t20235 / 0.24e2 + 0.3e1 / 0.16e2 * t387 * t1415 * t7039 * t2 - 0.3e1 / 0.32e2 * t387 * t18 * t2235 * t7120 - t387 * t18 * t390 * t24353 / 0.32e2 + t4179 * t18 * t5265 * t7988 / 0.8e1 - t387 * t18 * t26559 * t378 / 0.32e2 - t323 * t18 * t1744 * t8004 / 0.32e2;
13546   t26579 = t4160 - t14634 + t4165 - t14636 + t4171 + 0.3e1 * t6791 + 0.6e1 * t6792 + 0.3e1 * t7038 + t3 * (-0.5e1 / 0.48e2 * t18366 + t26568 + t26530 + t26502 + t26472 + t26446 + t26421 + t26373 + t26347 + t26326 + t26300 + t26275 + t17530 + t25657 + t24669 + t24512 + t24617 + t24565 + t24029 + t24068 + t24592 + t24146 + t24727 - 0.30000000000000000000e1 * t17458 * t2817 + 0.30000000000000000000e1 * t4209 * t8597 + 0.30000000000000000000e1 * t4223 * t8597 - 0.30000000000000000000e1 * t4212 * t8163 - 0.30000000000000000000e1 * t4231 * t8163 + 0.10345202583854680060e4 * t16704 * t8170 + 0.15000000000000000000e1 * t7862 * t2275 + 0.50000000000000000001e0 * t24003 * t523 - 0.30000000000000000000e1 * t18246 * t2817 + 0.30000000000000000000e1 * t7849 * t2308 + t24116 + t24373 + t24487 + t24401 + t24090 + 0.15000000000000000000e1 * t20698 * t768 - 0.60000000000000000000e1 * t20672 * t2221 + 0.48245938496077605201e2 * t5942 * t7807 + 0.31035607751564040180e4 * t17886 * t7304 + 0.15000000000000000000e1 * t7841 * t2312 + 0.15000000000000000000e1 * t20692 * t768 - 0.46636050000000000000e-1 * t2027 * t2501 + 0.31035607751564040180e4 * t18494 * t7304 + t24540 + t24700 + t24461 + 0.30000000000000000000e1 * t1454 * t8596 * t478 - 0.30000000000000000000e1 * t1231 * t793 * t24407 + 0.3e1 / 0.8e1 * t6669 * t18372 * t24073 + 0.48245938496077605201e2 * t1454 * t7705 * t24416 + 0.48245938496077605201e2 * t1454 * t7705 * t7294 - 0.28947563097646563121e3 * t5192 * t2806 * t7294 + 0.90000000000000000000e1 * t1213 * t2816 * t7046 - 0.28947563097646563120e3 * t4217 * t2585 * t7046 + 0.90000000000000000000e1 * t1213 * t2816 * t7053 + 0.96491876992155210402e2 * t6064 * t2692 * t17862) - 0.3e1 / 0.32e2 * t7042 - 0.93272100000000000000e-1 * t7044 + 0.96491876992155210402e2 * t7048 - 0.60000000000000000000e1 * t7051;
13547   t26585 = -t17322 + 0.96491876992155210402e2 * t7055 - 0.60000000000000000000e1 * t7057 + 0.31035607751564040180e4 * t7061 - 0.60000000000000000000e1 * t7063 + t7945 + t7947 + t7949 + t7951 + t7953 + t7956 + t7958 + t7960 + 0.3e1 / 0.8e1 * t5822;
13548   t26596 = -t17331 - t17332 - 0.3e1 / 0.8e1 * t5828 - t17334 - t17337 - 0.93272100000000000000e-1 * t7069 - 0.93272100000000000000e-1 * t7071 - 0.46636050000000000000e-1 * t7074 - 0.46636050000000000000e-1 * t7127 - 0.93272100000000000000e-1 * t7129 - 0.93272100000000000000e-1 * t7131 - 0.46636050000000000000e-1 * t7133 - 0.46636050000000000000e-1 * t7135;
13549   t26606 = -0.46636050000000000000e-1 * t7139 - 0.46636050000000000000e-1 * t7142 - 0.46636050000000000000e-1 * t7144 - 0.93272100000000000000e-1 * t7147 + t7963 - 0.46636050000000000000e-1 * t7150 - 0.46636050000000000000e-1 * t7202 - 0.46636050000000000000e-1 * t7204 - 0.46636050000000000000e-1 * t7207 - 0.46636050000000000000e-1 * t7210 + t7965 + t8049 + t8051 + t8053;
13550   t26615 = t8058 + t8060 - t8062 - t8066 - t8068 + t8151 + t8155 + t7214 / 0.2e1 - 0.7e1 / 0.24e2 * t7219 - t7223 / 0.2e1 - t7228 / 0.4e1 - t7233 / 0.8e1 + 0.3e1 / 0.8e1 * t7238;
13551   t26630 = -t7243 / 0.8e1 + 0.3e1 / 0.8e1 * t7246 - 0.9e1 / 0.32e2 * t7248 - 0.9e1 / 0.32e2 * t7252 - 0.9e1 / 0.32e2 * t7254 - 0.9e1 / 0.32e2 * t7258 + 0.9e1 / 0.8e1 * t7261 - 0.3e1 / 0.16e2 * t7264 - 0.3e1 / 0.16e2 * t7267 - 0.3e1 / 0.16e2 * t7269 - 0.3e1 / 0.8e1 * t7271 - 0.30000000000000000000e1 * t7273 - 0.30000000000000000000e1 * t7275 + 0.3e1 / 0.16e2 * t5958;
13552   t26644 = 0.3e1 / 0.16e2 * t5964 + 0.3e1 / 0.16e2 * t5966 + 0.90000000000000000000e1 * t7281 - 0.28947563097646563120e3 * t7284 - 0.60000000000000000000e1 * t7287 - t8165 + 0.3e1 * t7289 + 0.6e1 * t7290 - 0.60000000000000000000e1 * t7292 + 0.96491876992155210402e2 * t7296 + 0.60000000000000000000e1 * t7299 + 0.96491876992155210402e2 * t7301 + 0.31035607751564040180e4 * t7305;
13553   t26654 = t8167 + t8172 - 0.60000000000000000000e1 * t7311 + 0.96491876992155210402e2 * t7313 - 0.60000000000000000000e1 * t7315 + 0.96491876992155210402e2 * t7317 - 0.30000000000000000000e1 * t7320 + 0.96491876992155210402e2 * t7322 + t8177 + t8179 + 0.90000000000000000000e1 * t7325 + t8182 + 0.15000000000000000000e1 * t7420 + 0.15000000000000000000e1 * t7422;
13554   t26665 = 0.48245938496077605201e2 * t7424 + 0.15000000000000000000e1 * t7426 + t8184 + t8186 + t8188 + 0.30000000000000000000e1 * t7429 + 0.48245938496077605201e2 * t7431 + t8190 + t8368 + t8372 - t7435 / 0.8e1 + 0.3e1 / 0.8e1 * t7439 - 0.3e1 / 0.32e2 * t7443;
13555   t26675 = -0.3e1 / 0.32e2 * t7447 - 0.3e1 / 0.32e2 * t7451 + 0.18654420000000000000e0 * t7456 + 0.18654420000000000000e0 * t7459 - 0.18654420000000000000e0 * t7463 + 0.30000000000000000000e1 * t7465 + 0.30000000000000000000e1 * t7467 + 0.30000000000000000000e1 * t7469 + 0.30000000000000000000e1 * t7471 - t8376 - t8380 - t8387 - t8391 - t8395;
13556   t26684 = -t8399 - t8403 + t8407 + t8411 + 0.30000000000000000000e1 * t7473 + 0.30000000000000000000e1 * t7475 + 0.30000000000000000000e1 * t7477 + 0.30000000000000000000e1 * t7479 + 0.30000000000000000000e1 * t7481 + t8415 + t8591 + 0.3e1 * t7798 + 0.15000000000000000000e1 * t7799;
13557   t26691 = 0.15000000000000000000e1 * t7801 + 0.30000000000000000000e1 * t7803 + 0.30000000000000000000e1 * t7805 - t8594 + t8599 + 0.48245938496077605201e2 * t7808 - 0.30000000000000000000e1 * t7813 - 0.60000000000000000000e1 * t7816 - t8739 - t8741 - t8743 - t8745 - t8747 - t8749;
13558   t26699 = -t8751 - t8753 - t8755 - t8757 - t8761 - t8763 - t8765 - t8767 + 0.48245938496077605201e2 * t7818 + 0.48245938496077605201e2 * t7820 + 0.15000000000000000000e1 * t7824 + 0.15000000000000000000e1 * t7827 + 0.48245938496077605201e2 * t7830;
13559   t26710 = 0.30000000000000000000e1 * t7832 + 0.30000000000000000000e1 * t7834 + 0.30000000000000000000e1 * t7836 + 0.15000000000000000000e1 * t7839 - t8769 - t8771 - t8775 - t8779 + 0.15000000000000000000e1 * t7842 + 0.15000000000000000000e1 * t7845 - 0.30000000000000000000e1 * t7847 + 0.30000000000000000000e1 * t7850 - 0.30000000000000000000e1 * t7852 + 0.15000000000000000000e1 * t7855;
13560   t26723 = 0.30000000000000000000e1 * t7857 + 0.30000000000000000000e1 * t7860 + 0.15000000000000000000e1 * t7863 + 0.30000000000000000000e1 * t7866 - 0.30000000000000000000e1 * t7869 - 0.7e1 / 0.24e2 * t7872 - t7875 / 0.12e2 - t7878 / 0.8e1 - t7881 / 0.16e2 - t7884 / 0.16e2 - t7887 / 0.12e2 - t8789 - t8793;
13561   t26730 = -t8797 - t8801 - t8803 - t8805 - t8888 + t5245 + t5294 + 0.48245938496077605201e2 * t7892 - 0.28947563097646563120e3 * t7895 + t6692 / 0.16e2 + t6695 / 0.16e2 - t20306 - t6701 / 0.8e1 + t6704 / 0.8e1;
13562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13563     v4rho4[3] = t26579 + t26585 + t26596 + t26606 + t26615 + t26630 + t26644 + t26654 + t26665 + t26675 + t26684 + t26691 + t26699 + t26710 + t26723 + t26730;
13564 
13565   t26754 = 0.60000000000000000000e1 * t7962 + 0.19298375398431042080e3 * t7964 + 0.20000000000000000000e1 * t8048 + 0.19298375398431042080e3 * t8050 + 0.60000000000000000000e1 * t8052 + 0.41380810335418720240e4 * t8057 + 0.60000000000000000000e1 * t8059 - 0.12000000000000000000e2 * t8061 - 0.38596750796862084160e3 * t8065 - 0.12000000000000000000e2 * t8067 + 0.20000000000000000000e1 * t8150;
13566   t26767 = 0.60000000000000000000e1 * t8154 - 0.3e1 / 0.8e1 * t7264 - 0.3e1 / 0.8e1 * t7267 - 0.3e1 / 0.8e1 * t7269 - 0.3e1 / 0.4e1 * t7271 + t5958 / 0.4e1 + t5964 / 0.4e1 + t5966 / 0.4e1 - 0.12000000000000000000e2 * t8164 + 0.60000000000000000000e1 * t8166 + 0.41380810335418720240e4 * t8171;
13567   t26790 = 0.60000000000000000000e1 * t26522 * t768 - 0.60000000000000000000e1 * t20397 * t2817 + 0.20000000000000000000e1 * t502 * t793 * t8736 + t20457 / 0.12e2 + t20460 / 0.24e2 + t20474 / 0.18e2 + 0.62071215503128080360e4 * t5231 * t7059 * t8776 + 0.30000000000000000000e1 * t7854 * t2619 + 0.60000000000000000000e1 * t7854 * t2581 + 0.60000000000000000000e1 * t24031 * t794 + 0.20000000000000000000e1 * t26430 * t794;
13568   t26815 = t2511 * t2511;
13569   t26820 = 0.19298375398431042080e3 * t5942 * t7954 + 0.30000000000000000000e1 * t502 * t2618 * t2500 + 0.12000000000000000000e2 * t6526 * t8370 + 0.12000000000000000000e2 * t5942 * t8370 - 0.38596750796862084160e3 * t4217 * t8772 * t830 + 0.30000000000000000000e1 * t7841 * t2803 + 0.20000000000000000000e1 * t26519 * t768 + t24129 / 0.6e1 + 0.64327917994770140268e2 * t1213 * t24733 * t8174 - 0.57895126195293126241e3 * t4217 * t7518 * t202 * t2584 - t5275 * t18 * t1757 * t26815 / 0.2e1;
13570   t26844 = t2617 * t2617;
13571   t26849 = -0.40000000000000000000e1 * t1231 * t8148 * t8174 + 0.19298375398431042080e3 * t1213 * t2009 * t830 * t2617 - 0.38596750796862084160e3 * t18659 * t8064 - 0.12000000000000000000e2 * t1231 * t2618 * t830 * t792 - t24445 / 0.24e2 - 0.7e1 / 0.54e2 * t24448 - t24451 / 0.8e1 - 0.12000000000000000000e2 * t20672 * t2813 - 0.60000000000000000000e1 * t20895 * t2813 + 0.20000000000000000000e1 * t2269 * t8149 + 0.48245938496077605201e2 * t1213 * t26844 * t1216 * t202;
13572   t26861 = t2416 * t2416;
13573   t26873 = 0.12000000000000000000e2 * t7865 * t2581 - 0.12000000000000000000e2 * t5531 * t8592 + 0.60000000000000000000e1 * t7865 * t2619 + 0.96491876992155210402e2 * t1213 * t2585 * t2500 + 0.96491876992155210402e2 * t20419 * t2586 - t1754 * t18 * t1757 * t26861 / 0.8e1 + 0.4e1 * t859 * t8367 - t24494 / 0.24e2 - 0.7e1 / 0.54e2 * t24497 + t24500 / 0.6e1 - t24503 / 0.8e1 - t24506 / 0.6e1;
13574   t26876 = t2584 * t2584;
13575   t26881 = t158 * t2650;
13576   t26905 = t2537 * t2537;
13577   t26906 = t4630 * t26905;
13578   t26908 = t207 * t489 * t26906;
13579   t26910 = t2538 * t2421;
13580   t26912 = t207 * t489 * t26910;
13581   t26914 = t2421 * t2421;
13582   t26915 = t1366 * t26914;
13583   t26917 = t207 * t489 * t26915;
13584   t26919 = t2038 * t8101;
13585   t26921 = t207 * t489 * t26919;
13586   t26923 = 0.22831111111111111111e-1 * t24351 + 0.45662222222222222220e-1 * t24330 - 0.13698666666666666667e0 * t24332 + 0.71030123456790123454e-1 * t17675 - 0.91324444444444444440e-1 * t24358 + 0.13698666666666666667e0 * t24360 + 0.25367901234567901233e-1 * t24362 + 0.41096000000000000000e0 * t26908 - 0.61644000000000000000e0 * t26912 + 0.10274000000000000000e0 * t26917 + 0.13698666666666666667e0 * t26921;
13587   t26924 = t15028 * t26905;
13588   t26926 = t207 * t4625 * t26924;
13589   t26928 = t7082 * t2421;
13590   t26930 = t207 * t4625 * t26928;
13591   t26932 = t4606 * t26905;
13592   t26934 = t207 * t1357 * t26932;
13593   t26936 = t7087 * t2421;
13594   t26938 = t207 * t1357 * t26936;
13595   t26940 = t1359 * t26914;
13596   t26942 = t207 * t1357 * t26940;
13597   t26944 = t2033 * t8101;
13598   t26946 = t207 * t1357 * t26944;
13599   t26948 = t14997 * t26905;
13600   t26950 = t207 * t14995 * t26948;
13601   t26953 = -0.24e2 * t229 - 0.24e2 * t14675;
13602   t26954 = t491 * t26953;
13603   t26956 = t207 * t489 * t26954;
13604   t26961 = 0.22831111111111111110e0 * t26926 - 0.11415555555555555555e0 * t26930 - 0.41095999999999999999e0 * t26934 + 0.41095999999999999998e0 * t26938 - 0.34246666666666666665e-1 * t26942 - 0.45662222222222222220e-1 * t26946 - 0.50735802469135802467e-1 * t26950 - 0.17123333333333333333e-1 * t26956 + t15009 - 0.45662222222222222221e-1 * t21118 - 0.30441481481481481480e-1 * t21120 + 0.91324444444444444440e-1 * t21125;
13605   t26963 = t65 * (t26923 + t26961);
13606   t26968 = -0.12000000000000000000e2 * t4217 * t26876 * t521 * t202 - 0.57895126195293126241e3 * t5192 * t7705 * t26881 - 0.12000000000000000000e2 * t6677 * t8777 - 0.12000000000000000000e2 * t21694 * t2817 - 0.60000000000000000000e1 * t1231 * t2816 * t2500 + 0.18000000000000000000e2 * t1213 * t2816 * t8776 - 0.5e1 / 0.36e2 * t18358 - 0.5e1 / 0.36e2 * t18361 - 0.5e1 / 0.36e2 * t18366 - 0.15545350000000000000e-1 * t26963 * t203 - 0.62181400000000000000e-1 * t8515 * t831;
13607   t26973 = -t26953;
13608   t26974 = t26973 * t114;
13609   t26977 = t8004 * t752;
13610   t26980 = t2416 * t2524;
13611   t26983 = t680 * t8547;
13612   t26986 = t15167 * t26815;
13613   t26988 = t207 * t15165 * t26986;
13614   t26990 = t407 * t26973;
13615   t26992 = t207 * t405 * t26990;
13616   t27002 = t15097 - 0.50735802469135802467e-1 * t26988 - 0.17123333333333333333e-1 * t26992 - 0.13698666666666666667e0 * t24163 + 0.45662222222222222220e-1 * t24165 - 0.45662222222222222221e-1 * t21575 - 0.30441481481481481480e-1 * t21577 + 0.91324444444444444440e-1 * t21582 + 0.22831111111111111111e-1 * t24183 - 0.91324444444444444440e-1 * t24185 + 0.13698666666666666667e0 * t24175;
13617   t27005 = t15107 * t26815;
13618   t27007 = t207 * t4298 * t27005;
13619   t27009 = t7160 * t2416;
13620   t27011 = t207 * t4298 * t27009;
13621   t27013 = t4263 * t26815;
13622   t27015 = t207 * t1246 * t27013;
13623   t27017 = t7165 * t2416;
13624   t27019 = t207 * t1246 * t27017;
13625   t27021 = t1248 * t26861;
13626   t27023 = t207 * t1246 * t27021;
13627   t27025 = t1916 * t8004;
13628   t27027 = t207 * t1246 * t27025;
13629   t27029 = t4278 * t26815;
13630   t27031 = t207 * t405 * t27029;
13631   t27033 = t2512 * t2416;
13632   t27035 = t207 * t405 * t27033;
13633   t27037 = t1255 * t26861;
13634   t27039 = t207 * t405 * t27037;
13635   t27041 = t1921 * t8004;
13636   t27043 = t207 * t405 * t27041;
13637   t27045 = 0.71030123456790123454e-1 * t17909 + 0.25367901234567901233e-1 * t24181 + 0.22831111111111111110e0 * t27007 - 0.11415555555555555555e0 * t27011 - 0.41095999999999999999e0 * t27015 + 0.41095999999999999998e0 * t27019 - 0.34246666666666666665e-1 * t27023 - 0.45662222222222222220e-1 * t27027 + 0.41096000000000000000e0 * t27031 - 0.61644000000000000000e0 * t27035 + 0.10274000000000000000e0 * t27039 + 0.13698666666666666667e0 * t27043;
13638   t27047 = t6 * (t27002 + t27045);
13639   t27050 = t689 * t8514;
13640   t27063 = -0.18654420000000000000e0 * t8557 * t831 - 0.93272100000000000000e-1 * t2551 * t2501 - 0.15545350000000000000e-1 * t26974 * t159 - 0.62181400000000000000e-1 * t26977 * t159 - 0.93272100000000000000e-1 * t26980 * t159 - 0.62181400000000000000e-1 * t26983 * t159 - 0.15545350000000000000e-1 * t27047 * t159 - 0.62181400000000000000e-1 * t27050 * t203 + 0.6e1 * t2717 * t2800 + 0.7e1 / 0.9e1 * t15988 * t18 * t5287 * t26905 - t1444 * t18 * t1447 * t26914 / 0.8e1;
13641   t27085 = t7216 * t2416;
13642   t27090 = -t5284 * t18 * t1447 * t26905 / 0.2e1 - 0.12000000000000000000e2 * t6612 * t8777 + t21676 / 0.8e1 + t21678 / 0.8e1 + t21680 / 0.8e1 + t21682 / 0.4e1 + 0.4e1 * t8590 * t893 - t2249 * t2250 * t26382 * t689 / 0.2e1 - t2256 * t2257 * t26399 * t680 / 0.6e1 - 0.7e1 / 0.12e2 * t6645 * t6646 * t27085 - t24687 / 0.6e1;
13643   t27117 = -t24690 / 0.6e1 - 0.40000000000000000000e1 * t1223 * t8046 * t8412 - 0.5e1 / 0.108e3 * t18463 + 0.41380810335418720240e4 * t18598 * t8170 + 0.41380810335418720240e4 * t5231 * t8169 * t830 + 0.41380810335418720240e4 * t18534 * t8170 + 0.60000000000000000000e1 * t7862 * t2581 + 0.96491876992155210402e2 * t20680 * t2586 + 0.30000000000000000000e1 * t7862 * t2619 + 0.20000000000000000000e1 * t24003 * t794 + 0.60000000000000000000e1 * t24007 * t794 + 0.99822801518023203660e5 * t16855 * t26876 * t15599 * t202;
13644   t27126 = t2395 * t82 / t8626 / t83;
13645   t27128 = 0.1e1 / t2486 / t183;
13646   t27129 = t27126 * t27128;
13647   t27133 = 0.1e1 / t72 / t712;
13648   t27134 = t82 * t27133;
13649   t27135 = t27134 * t184;
13650   t27140 = 0.1e1 / t2396;
13651   t27141 = t710 * t27140;
13652   t27142 = t27141 * t800;
13653   t27145 = t8608 * t8664;
13654   t27150 = t2347 * t2347;
13655   t27151 = 0.1e1 / t8626;
13656   t27154 = t198 * t82 * t184;
13657   t27157 = t8626 * rho[1];
13658   t27158 = 0.1e1 / t27157;
13659   t27161 = t192 * t710 * t800;
13660   t27165 = 0.1e1 / t73 / t8662;
13661   t27166 = t2395 * t27165;
13662   t27167 = t27166 * t2487;
13663   t27174 = t8625 / t72 / t27157;
13664   t27175 = t27174 * t8631;
13665   t27182 = t8608 * t713;
13666   t27183 = t8655 * t27182;
13667   t27185 = t95 * t821;
13668   t27186 = t27150 * t2444;
13669   t27187 = t27185 * t27186;
13670   t27189 = -0.79085932088888888886e1 * t199 * t27129 - 0.16814127407407407407e4 * t199 * t27135 - 0.16923942716049382716e4 * t193 * t27135 + 0.19204221313580246914e4 * t193 * t27142 + 0.85024592592592592594e3 * t27145 * t8614 + 0.19079609837037037038e4 * t199 * t27142 - 0.60633333333333333332e3 * t27150 * t27151 * t27154 - 0.97170962962962962967e2 * t8608 * t27158 * t27161 - 0.75919405511111111113e3 * t199 * t27167 - 0.76415245274074074074e3 * t193 * t27167 + 0.12935398589629629630e3 * t193 * t27175 - 0.79602452859259259257e1 * t193 * t27129 + 0.12851463964444444444e3 * t199 * t27175 + 0.25191111111111111111e4 * t27183 - 0.10496296296296296296e4 * t27187;
13671   t27190 = t2347 * t2382;
13672   t27191 = t2344 * t27190;
13673   t27193 = tau[1] * t8198;
13674   t27194 = t723 * t27193;
13675   t27197 = t2398 * t184 * t2347;
13676   t27201 = t8620 * t800 * tau[1];
13677   t27205 = t8664 * t184 * t8608;
13678   t27209 = t8688 * t800 * t2347;
13679   t27213 = t8628 * t2487 * tau[1];
13680   t27220 = t27185 * t82;
13681   t27222 = t27151 * t184 * t27150;
13682   t27225 = t188 * t2471;
13683   t27226 = t27225 * t82;
13684   t27229 = t8678 * t710;
13685   t27231 = t27158 * t800 * t8608;
13686   t27234 = t8655 * t710;
13687   t27237 = t2449 * t2395;
13688   t27239 = 0.1e1 / t8626 / t71;
13689   t27241 = t27239 * t2487 * t2347;
13690   t27244 = t2344 * t2395;
13691   t27249 = 0.1e1 / t8626 / t698;
13692   t27251 = t27249 * t8631 * tau[1];
13693   t27254 = -0.19033283950617283950e4 * t27191 + 0.43104790123456790123e3 * t27194 - 0.43262682074074074075e5 * t2462 * t27197 - 0.99301927822222222223e4 * t2465 * t27201 + 0.42291614814814814815e5 * t8694 * t27205 + 0.12553270044444444445e5 * t8697 * t27209 + 0.20167598080000000000e4 * t8700 * t27213 + 0.16894577777777777778e5 * t8706 * t27205 + 0.56958862222222222225e4 * t8709 * t27209 - 0.51464444444444444444e4 * t27220 * t27222 - 0.13605555555555555556e5 * t27226 * t27222 - 0.40660480000000000000e4 * t27229 * t27231 - 0.12607004444444444445e4 * t27234 * t27231 - 0.69781504000000000000e3 * t27237 * t27241 - 0.13992618666666666667e3 * t27244 * t27241 - 0.59701839644444444444e2 * t805 * t8625 * t27251;
13694   t27256 = t189 * t8704;
13695   t27257 = t27256 * t82;
13696   t27260 = t8693 * t710;
13697   t27263 = t2461 * t2395;
13698   t27273 = t8219 * t184 * tau[1];
13699   t27283 = t197 * t197;
13700   t27285 = t196 / t27283;
13701   t27286 = t27285 * t82;
13702   t27289 = t8705 * t710;
13703   t27292 = t2472 * t2395;
13704   t27300 = -0.14345000000000000000e5 * t27257 * t27222 - 0.48333274074074074076e4 * t27260 * t27231 - 0.10212829866666666667e4 * t27263 * t27241 + 0.35577920000000000000e5 * t8679 * t27205 + 0.85773098666666666668e4 * t8682 * t27209 + 0.86754235733333333333e3 * t8685 * t27213 + 0.96958786370370370371e4 * t823 * t27273 - 0.13878777173333333333e3 * t812 * t8625 * t27251 + 0.73194027851851851851e4 * t806 * t27273 + 0.17015281422222222222e5 * t813 * t27273 - 0.52795555555555555555e4 * t27286 * t27222 - 0.19308088888888888889e4 * t27289 * t27231 - 0.46339413333333333334e3 * t27292 * t27241 - 0.79085932088888888890e2 * t822 * t8625 * t27251 + 0.11031128888888888889e5 * t8656 * t27205;
13705   t27316 = t27193 * t97;
13706   t27318 = t27182 * t192;
13707   t27320 = t27190 * t722;
13708   t27323 = t27186 * t198;
13709   t27328 = 0.17199260444444444445e4 * t8661 * t27209 - 0.19629890370370370370e5 * t2473 * t27197 - 0.56585572503703703707e4 * t2477 * t27201 + 0.11492174506666666667e4 * t8712 * t27213 - 0.59274287407407407407e4 * t2442 * t27197 - 0.29560220444444444444e5 * t2450 * t27197 - 0.42716355318518518518e4 * t2453 * t27201 - 0.15316345679012345679e3 * t27135 + 0.43104790123456790123e3 * t27316 + 0.25191111111111111112e4 * t27318 - 0.19033283950617283951e4 * t27320 + 0.17380021728395061729e3 * t27142 - 0.10496296296296296296e4 * t27323 - 0.69156598518518518523e2 * t27167 + 0.11706671407407407408e2 * t27175 - 0.72041054814814814814e0 * t27129;
13710   t27340 = t2650 * t2650;
13711   t27358 = -0.62181400000000000000e-1 * t779 * t8737 - 0.15545350000000000000e-1 * t166 * t180 * (t27189 + t27254 + t27300 + t27328) - 0.38596750796862084160e3 * t18695 * t8773 - 0.60000000000000000000e1 * t20511 * t2817 - 0.12000000000000000000e2 * t6677 * t8163 - 0.12414243100625616072e5 * t16661 * t27340 * t4361 * t158 + 0.20000000000000000000e1 * t502 * t8148 * t830 - 0.12414243100625616072e5 * t17144 * t26876 * t4714 * t202 - 0.5e1 / 0.108e3 * t18578 + 0.18000000000000000000e2 * t1454 * t2802 * t26881 + 0.60000000000000000000e1 * t2269 * t7943;
13712   t27384 = 0.60000000000000000000e1 * t2269 * t8180 + 0.60000000000000000000e1 * t2272 * t7943 + 0.60000000000000000000e1 * t2272 * t8180 + 0.62071215503128080360e4 * t4358 * t20854 * t26881 + 0.19298375398431042080e3 * t20520 * t2586 + 0.19298375398431042080e3 * t5942 * t8175 + t17055 + t17060 - t387 * t18 * t390 * t26953 / 0.32e2 - 0.35e2 / 0.108e3 * t15979 * t18 * t15982 * t26905 - 0.3e1 / 0.32e2 * t26973 * t7 * t13 * t62;
13713   t27396 = t27134 * t89;
13714   t27398 = t27141 * t716;
13715   t27400 = t27166 * t2401;
13716   t27402 = t27174 * t8880;
13717   t27405 = 0.1e1 / t2400 / t88;
13718   t27408 = t27185 * sigma[2];
13719   t27451 = 0.1e1 / t73 / t704;
13720   t27452 = sigma[2] * t27451;
13721   t27453 = t27452 * t79;
13722   t27458 = 0.24996415209876543211e-1 * t27396 - 0.10858326344691358026e-2 * t27398 + 0.10094902082370370371e-4 * t27400 - 0.36764783350518518523e-7 * t27402 + 0.47249611282962962969e-10 * t27126 * t27405 + 0.22740740740740740741e1 * t27408 * t8611 * t79 * t27150 + 0.14554074074074074075e-1 * t8656 * t8664 * t89 * t8608 + 0.93146074074074074080e-4 * t8661 * t8688 * t716 * t2347 + 0.10614771358024691358e0 * t2351 * t8219 * t89 * tau[1] - 0.42847194074074074076e-3 * t8859 * t8620 * t716 * tau[1] + 0.59613487407407407413e-6 * t723 * t2395 * t8628 * t2401 * tau[1] - 0.62582518518518518522e-1 * t2442 * t2398 * t89 * t2347 - 0.10005925925925925926e2 * t731 * t8215 * t79 * tau[1] - 0.90962962962962962966e1 * t8850 * t2456 * t79 * t8608 + 0.13947654320987654321e2 * t2345 * t2388 * t79 * t2347 + 0.13528272592592592592e1 * t27453 - 0.18488888888888888889e3 * t27183 + 0.77037037037037037040e2 * t27187 + 0.13969382716049382716e3 * t27191;
13723   t27482 = t198 * sigma[2] * t79;
13724   t27485 = t8613 * t89;
13725   t27510 = -0.31636543209876543210e2 * t27194 + 0.79577795950617283955e-3 * t98 * t27398 + 0.59613487407407407413e-6 * tau[1] * t8628 * t97 * t2395 * t2401 - 0.29210608829629629633e-5 * t98 * t27400 + 0.38152631940740740746e-8 * t98 * t27402 - 0.90962962962962962966e1 * t8608 * t2456 * t8814 - 0.62582518518518518521e-1 * t2347 * t2398 * t8819 - 0.42847194074074074076e-3 * tau[1] * t8620 * t8827 + 0.22740740740740740741e1 * t27150 * t8611 * t27482 + 0.14554074074074074075e-1 * t27145 * t27485 + 0.93146074074074074080e-4 * t2347 * t8688 * t722 * t710 * t716 - 0.10005925925925925926e2 * tau[1] * t8215 * t728 + 0.31752138271604938272e1 * t98 * t27453 + 0.13947654320987654322e2 * t2347 * t2388 * t2373 + 0.10614771358024691358e0 * tau[1] * t8219 * t2378 - 0.88692527407407407408e-1 * t98 * t27396 - 0.31636543209876543210e2 * t27316 - 0.18488888888888888889e3 * t27318 + 0.13969382716049382716e3 * t27320 + 0.77037037037037037040e2 * t27323;
13726   t27552 = -0.91260e2 * t5050 * t2723 * t2736 + 0.39571593600000000000e-6 * t641 * t27452 - 0.36605457777777777778e-2 * t633 * t27452 - 0.13190531200000000000e-3 * t636 * t27452 - 0.32968507392000000000e-7 * t16054 * t27166 + 0.16716201984000000000e-9 * t16061 * t27166 - 0.25074302976000000000e-12 * t16066 * t27166 - 0.68954333184000000000e-7 * t5017 * t27141 + 0.11492388864000000000e-9 * t5022 * t27141 - 0.72350971733333333333e-3 * t1794 * t27134 + 0.71029347840000000000e-5 * t1797 * t27134 - 0.14205869568000000000e-7 * t1802 * t27134 + 0.11173459968000000000e-4 * t5014 * t27141 + 0.12494088000000000000e-1 * t5051 * t2154 * t26133;
13727   t27585 = t700 * t2736;
13728   t27586 = t6826 * t27585;
13729   t27592 = t6814 * t700 * t2723;
13730   t27595 = t2357 * t876;
13731   t27596 = t6814 * t27595;
13732   t27599 = -0.74039040000000000000e-1 * t16355 * t25764 * t701 - 0.81442944000000000000e-1 * t5110 * t6916 * t2358 - 0.63344512000000000000e-1 * t1839 * t2161 * t8199 + 0.22211712000000000000e-3 * t5624 * t25962 * t701 + 0.24432883200000000000e-3 * t2165 * t6922 * t2358 + 0.19003353600000000000e-3 * t1844 * t2183 * t8199 - 0.79962163200000000000e-6 * t2153 * t22354 * t2383 + 0.61082208000000000000e-4 * t1853 * t6868 * t2358 + 0.29319459840000000000e-5 * t1853 * t5672 * t8216 + 0.60840e2 * t5709 * t8356 + 0.20280e2 * t1764 * t8211 * t876 + 0.44423424000000000000e-1 * t5797 * t27586 - 0.13327027200000000000e-3 * t5801 * t27586 + 0.13327027200000000000e0 * t16305 * t27592 + 0.12216441600000000000e0 * t5011 * t27596;
13733   t27606 = t6814 * t700 * t2751;
13734   t27609 = t25815 * t8236;
13735   t27612 = t6814 * t27585;
13736   t27615 = t2382 * t876;
13737   t27616 = t25819 * t27615;
13738   t27619 = t25832 * t8236;
13739   t27641 = -0.39981081600000000000e-3 * t16310 * t27592 - 0.36649324800000000000e-3 * t5005 * t27596 + 0.22211712000000000000e-1 * t5777 * t27606 - 0.33317568000000000000e-1 * t5011 * t27609 - 0.33317568000000000000e-1 * t5011 * t27612 - 0.10661621760000000000e-2 * t16138 * t27616 + 0.19990540800000000000e-3 * t16297 * t27619 - 0.66635136000000000000e-4 * t5782 * t27606 + 0.99952704000000000000e-4 * t5005 * t27609 + 0.99952704000000000000e-4 * t5005 * t27612 + 0.23988648960000000000e-5 * t16302 * t27616 - 0.66635136000000000000e-1 * t16289 * t27619 + 0.71077478400000000000e-3 * t5110 * t6922 * t2383 + 0.20360736000000000000e-1 * t1839 * t6872 * t2358 + 0.13030871040000000000e-2 * t1839 * t2183 * t8216;
13740   t27670 = 0.616e3 / 0.27e2 * t48 * t27193;
13741   t27672 = 0.12320e5 / 0.81e2 * t52 * t27193;
13742   t27673 = t27670 - t27672;
13743   t27677 = t27670 + t27672;
13744   t27681 = t27141 * t287;
13745   t27686 = t2751 * t2751;
13746   t27690 = t2723 * t2723;
13747   t27694 = -0.15992432640000000000e-5 * t2165 * t22314 * t2383 - 0.61082208000000000000e-4 * t1844 * t6876 * t2358 - 0.29319459840000000000e-5 * t1844 * t5681 * t8216 + 0.35538739200000000000e-3 * t5125 * t6906 * t2383 + 0.88846848000000000000e-1 * t22037 * t7017 * t6933 - 0.20360736000000000000e-1 * t1849 * t6864 * t2358 - 0.13030871040000000000e-2 * t1849 * t2176 * t8216 + 0.39981081600000000000e-6 * t1844 * t22051 * t2383 + 0.85292974080000000000e-8 * t1844 * t19789 * t8220 - 0.17352900000000000000e-3 * t656 * t307 * t27673 + 0.17352900000000000000e-3 * t662 * t307 * t27677 + 0.86872473600000000000e-3 * t305 * t27681 - 0.20823480000000000000e-2 * t11315 * t2767 - 0.10411740000000000000e-2 * t1764 * t307 * t27686 - 0.20823480000000000000e-1 * t16273 * t307 * t27690;
13748   t27697 = t2736 * t2736;
13749   t27743 = -0.20823480000000000000e-2 * t1812 * t307 * t27697 - 0.29615616000000000000e-1 * t22383 * t7017 * t2775 + 0.10859059200000000000e0 * t7016 * t25724 * t873 - 0.59231232000000000000e-1 * t22387 * t7017 * t2723 - 0.10859059200000000000e0 * t7021 * t25724 * t876 + 0.10738402986666666667e-2 * t666 * t2795 * t27133 - 0.24161406720000000000e-5 * t671 * t2788 * t27133 - 0.12494088000000000000e-1 * t5038 * t6864 * t2723 - 0.14807808000000000000e-1 * t7016 * t7017 * t2751 - 0.47384985600000000000e-3 * t25743 * t25744 * t873 + 0.14807808000000000000e-1 * t7021 * t7017 * t2736 + 0.47384985600000000000e-3 * t25748 * t25744 * t876 - 0.13882320000000000000e-2 * t2153 * t25713 * t873 + 0.20823480000000000000e-2 * t1775 * t25713 * t876 + 0.20823480000000000000e-2 * t1775 * t25717 * t873;
13750   t27788 = -0.27764640000000000000e-2 * t2165 * t25717 * t876 + 0.89738058666666666667e-4 * t671 * t889 * t27451 - 0.24988176000000000000e-1 * t16220 * t6902 * t2723 + 0.41646960000000000000e-1 * t16225 * t2154 * t8191 + 0.74039040000000000000e-2 * t25735 * t886 - 0.22211712000000000000e-4 * t25738 * t890 + 0.31235220000000000000e-2 * t1775 * t6864 * t2736 + 0.20823480000000000000e-1 * t5624 * t6916 * t2736 - 0.29912686222222222222e-1 * t666 * t885 * t27451 - 0.78185226240000000000e-5 * t666 * t8314 * t27140 + 0.15637045248000000000e-7 * t671 * t8318 * t27140 + 0.15163195392000000000e-7 * t666 * t1801 * t2395 * t27165 - 0.28430991360000000000e-10 * t671 * t5021 * t2395 * t27165 + 0.62470440000000000000e-2 * t5051 * t6902 * t2736 + 0.2535e1 * t27673 * t297;
13751   t27792 = t27166 * t640;
13752   t27795 = t27134 * t306;
13753   t27834 = 0.41646960000000000000e-2 * t26229 * t882 - 0.18953994240000000000e-5 * t305 * t27792 - 0.89486691555555555555e-1 * t305 * t27795 - 0.40721472000000000000e-1 * t5125 * t6902 * t2358 + 0.63344512000000000000e-1 * t1849 * t2154 * t8199 + 0.12216441600000000000e-3 * t2153 * t6906 * t2358 - 0.19003353600000000000e-3 * t1853 * t2176 * t8199 - 0.24988176000000000000e-1 * t5038 * t2154 * t8356 + 0.37019520000000000000e-2 * t1849 * t25713 * t701 + 0.17769369600000000000e-3 * t1849 * t6868 * t2383 + 0.42646487040000000000e-5 * t1849 * t5672 * t8220 - 0.11105856000000000000e-4 * t1853 * t25930 * t701 - 0.39981081600000000000e-6 * t1853 * t22044 * t2383 - 0.85292974080000000000e-8 * t1853 * t19827 * t8220 - 0.37019520000000000000e-2 * t1839 * t25717 * t701;
13754   t27865 = -0.17769369600000000000e-3 * t1839 * t6876 * t2383 - 0.42646487040000000000e-5 * t1839 * t5681 * t8220 + 0.11105856000000000000e-4 * t1844 * t25937 * t701 + 0.15210e2 * t1764 * t27697 + 0.12201819259259259259e1 * t27452 * t280 - 0.15210e2 * t7032 * t2736 - 0.10140e2 * t2121 * t8211 - 0.2535e1 * t652 * t27677 - 0.31933440000000000000e-3 * t27681 + 0.17027235840000000000e-5 * t27792 + 0.60840e2 * t16219 * t27690 + 0.30420e2 * t22188 * t2723 - 0.60840e2 * t19771 * t8191 - 0.21901752888888888889e-1 * t27795 - 0.10140e2 * t25679 * t876;
13755   t27874 = t2687 * t2687;
13756   t27881 = -0.3e1 / 0.32e2 * t26953 * t7 * t13 * t104 - 0.3e1 / 0.8e1 * t8799 * t742 - 0.9e1 / 0.16e2 * t2423 * t2412 - 0.3e1 / 0.8e1 * t691 * t8886 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * (t27458 + t27510) - 0.30000000000000000000e1 * t1231 * t26844 * t521 * t202 + 0.20000000000000000000e1 * t2272 * t8149 + t275 * (t27552 + t27599 + t27641 + t27694 + t27743 + t27788 + t27834 + t27865) - 0.12000000000000000000e2 * t5192 * t27340 * t440 * t158 - 0.30000000000000000000e1 * t1223 * t27874 * t440 * t158 + 0.12000000000000000000e2 * t6606 * t8597;
13757   t27926 = -0.38596750796862084160e3 * t18635 * t8773 - 0.12000000000000000000e2 * t6612 * t8163 - t387 * t18 * t2235 * t8101 / 0.8e1 - 0.7e1 / 0.18e2 * t5284 * t18 * t18560 * t8080 - t387 * t18 * t26559 * t689 / 0.8e1 - t323 * t18 * t326 * t26973 / 0.32e2 - 0.35e2 / 0.108e3 * t15969 * t18 * t15972 * t26815 - 0.3e1 / 0.16e2 * t387 * t18 * t7039 * t2421 - t1444 * t18 * t20558 * t2537 / 0.4e1 + 0.48245938496077605201e2 * t1454 * t27874 * t1456 * t158 + 0.57895126195293126241e3 * t4358 * t27340 * t1456 * t158 + 0.57895126195293126241e3 * t5231 * t26876 * t1216 * t202;
13758   t27956 = -t14648 + 0.12000000000000000000e2 * t166 * t4216 * t26876 * t521 - 0.48245938496077605201e2 * t115 * t1453 * t27874 * t1456 - 0.48245938496077605201e2 * t166 * t1212 * t26844 * t1216 - t14652 + 0.12414243100625616072e5 * t166 * t14875 * t26876 * t4714 + t14656 - t14659 - 0.60000000000000000000e1 * t2507 * t2689 - 0.19298375398431042080e3 * t2507 * t2693 - 0.20000000000000000000e1 * t745 * t8417;
13759   t27968 = t2666 * t2666;
13760   t27971 = t2659 * t2659;
13761   t27996 = t15800 - 0.80e2 / 0.81e2 * t26988 - t26992 / 0.3e1 - 0.8e1 / 0.3e1 * t24163 + 0.8e1 / 0.9e1 * t24165 - 0.8e1 / 0.9e1 * t21575 - 0.16e2 / 0.27e2 * t21577 + 0.16e2 / 0.9e1 * t21582 + 0.4e1 / 0.9e1 * t24183 - 0.16e2 / 0.9e1 * t24185 + 0.8e1 / 0.3e1 * t24175;
13762   t28009 = 0.112e3 / 0.81e2 * t17909 + 0.40e2 / 0.81e2 * t24181 + 0.40e2 / 0.9e1 * t27007 - 0.20e2 / 0.9e1 * t27011 - 0.8e1 * t27015 + 0.8e1 * t27019 - 0.2e1 / 0.3e1 * t27023 - 0.8e1 / 0.9e1 * t27027 + 0.8e1 * t27031 - 0.12e2 * t27035 + 0.2e1 * t27039 + 0.8e1 / 0.3e1 * t27043;
13763   t28010 = t27996 + t28009;
13764   t28016 = 0.21424148148148148148e1 * t17909 - 0.52945875000000000000e1 * t1391 * t27968 + 0.23668593750000000000e0 * t15778 * t27971 + 0.16671200000000000000e1 * t25477 - 0.55570666666666666668e0 * t25479 + t15709 - 0.37510200000000000000e1 * t216 * t435 * t27033 + 0.12503400000000000000e1 * t216 * t1421 * t27017 - 0.41318000000000000000e1 * t24163 + 0.13772666666666666667e1 * t24165 - 0.69463333333333333334e0 * t21362 + 0.12349037037037037037e1 * t18032 + 0.63116250000000000000e0 * t426 * t28010 + 0.55570666666666666666e0 * t216 * t4261 * t27005;
13765   t28033 = 0.35297250000000000000e1 * t419 * t28010 + 0.27785333333333333333e0 * t25493 + 0.12349037037037037037e0 * t25495 + 0.13892666666666666667e1 * t21404 - 0.23154444444444444445e0 * t21406 + t15738 + 0.94674375000000000000e0 * t1408 * t27968 + 0.41318000000000000000e1 * t27043 - 0.34431666666666666667e1 * t27011 + 0.12395400000000000000e2 * t27019 - 0.13772666666666666667e1 * t27027 - 0.18593100000000000000e2 * t27035 - 0.66182343750000000000e1 * t15759 * t27971 + 0.68863333333333333334e1 * t27007;
13766   t28051 = -0.12395400000000000000e2 * t27015 - 0.10329500000000000000e1 * t27023 + 0.12395400000000000000e2 * t27031 + 0.30988500000000000000e1 * t27039 + 0.41318000000000000000e1 * t24175 + 0.76514814814814814814e0 * t24181 + 0.68863333333333333332e0 * t24183 - 0.27545333333333333332e1 * t24185 - 0.16671200000000000000e1 * t25597 + 0.27785333333333333334e0 * t25599 - 0.13772666666666666666e1 * t21575 - 0.91817777777777777776e0 * t21577 + 0.27545333333333333333e1 * t21582 - 0.27785333333333333334e0 * t216 * t4261 * t27009;
13767   t28086 = 0.83356000000000000000e0 * t216 * t435 * t27041 - 0.13892666666666666667e0 * t216 * t1421 * t27025 + 0.15883762500000000000e2 * t7649 * t2666 - 0.94674375000000000000e0 * t7641 * t2666 + 0.12623250000000000000e1 * t25529 * t757 - 0.70594500000000000000e1 * t25526 * t757 - 0.10805407407407407407e0 * t216 * t15729 * t26986 - 0.10419500000000000000e0 * t216 * t435 * t26990 - 0.15302962962962962963e1 * t26988 - 0.51647500000000000000e0 * t26992 + 0.25006800000000000000e1 * t216 * t435 * t27029 + 0.62517000000000000000e0 * t216 * t435 * t27037 - 0.12503400000000000000e1 * t216 * t1421 * t27013 - 0.10419500000000000000e0 * t216 * t1421 * t27021;
13768   t28088 = t28016 + t28033 + t28051 + t28086;
13769   t28107 = -0.41380810335418720240e4 * t745 * t8421 - 0.30000000000000000000e1 * t2525 * t2689 - 0.96491876992155210402e2 * t2525 * t2693 - 0.20000000000000000000e1 * t753 * t8417 - 0.41380810335418720240e4 * t753 * t8421 - 0.50000000000000000001e0 * t115 * t417 * t28088 * t440 - 0.99822801518023203660e5 * t115 * t15895 * t27340 * t15898 - 0.30000000000000000000e1 * t2528 * t2702 - 0.96491876992155210402e2 * t2528 * t2706 + 0.60000000000000000000e1 * t2528 * t2647 + 0.12000000000000000000e2 * t2531 * t2647 + 0.38596750796862084160e3 * t771 * t8477;
13770   t28149 = -0.69463333333333333334e0 * t20994 - 0.23154444444444444445e0 * t20996 + 0.13892666666666666667e1 * t21001 + 0.12395400000000000000e2 * t26908 + 0.30988500000000000000e1 * t26917 + 0.68863333333333333334e1 * t26926 - 0.12395400000000000000e2 * t26934 - 0.10329500000000000000e1 * t26942 - 0.10419500000000000000e0 * t216 * t516 * t26954 - 0.10805407407407407407e0 * t216 * t15483 * t26948 + 0.55570666666666666666e0 * t216 * t4604 * t26924 - 0.15302962962962962963e1 * t26950 - 0.51647500000000000000e0 * t26956 + t15458;
13771   t28174 = 0.4e1 / 0.9e1 * t24351 + 0.8e1 / 0.9e1 * t24330 - 0.8e1 / 0.3e1 * t24332 + 0.112e3 / 0.81e2 * t17675 - 0.16e2 / 0.9e1 * t24358 + 0.8e1 / 0.3e1 * t24360 + 0.40e2 / 0.81e2 * t24362 + 0.8e1 * t26908 - 0.12e2 * t26912 + 0.2e1 * t26917 + 0.8e1 / 0.3e1 * t26921;
13772   t28186 = 0.40e2 / 0.9e1 * t26926 - 0.20e2 / 0.9e1 * t26930 - 0.8e1 * t26934 + 0.8e1 * t26938 - 0.2e1 / 0.3e1 * t26942 - 0.8e1 / 0.9e1 * t26946 - 0.80e2 / 0.81e2 * t26950 - t26956 / 0.3e1 + t15564 - 0.8e1 / 0.9e1 * t21118 - 0.16e2 / 0.27e2 * t21120 + 0.16e2 / 0.9e1 * t21125;
13773   t28187 = t28174 + t28186;
13774   t28199 = -0.70594500000000000000e1 * t25070 * t783 - 0.94674375000000000000e0 * t7399 * t2596 + 0.15883762500000000000e2 * t7407 * t2596 + 0.41318000000000000000e1 * t26921 - 0.34431666666666666667e1 * t26930 + 0.12395400000000000000e2 * t26938 - 0.13772666666666666667e1 * t26946 - 0.18593100000000000000e2 * t26912 + t15465 + 0.12623250000000000000e1 * t25073 * t783 + 0.35297250000000000000e1 * t503 * t28187 - 0.37510200000000000000e1 * t216 * t516 * t26910 + 0.83356000000000000000e0 * t216 * t516 * t26919 + 0.12503400000000000000e1 * t216 * t1495 * t26936;
13775   t28207 = t2596 * t2596;
13776   t28210 = t2589 * t2589;
13777   t28230 = -0.13892666666666666667e0 * t216 * t1495 * t26944 - 0.27785333333333333334e0 * t216 * t4604 * t26928 + 0.94674375000000000000e0 * t1485 * t28207 - 0.66182343750000000000e1 * t15552 * t28210 - 0.52945875000000000000e1 * t1468 * t28207 + 0.23668593750000000000e0 * t15542 * t28210 - 0.13772666666666666666e1 * t21118 - 0.91817777777777777776e0 * t21120 + 0.27545333333333333333e1 * t21125 + 0.63116250000000000000e0 * t510 * t28187 + 0.13772666666666666667e1 * t24330 - 0.41318000000000000000e1 * t24332 + 0.25006800000000000000e1 * t216 * t516 * t26906 + 0.62517000000000000000e0 * t216 * t516 * t26915;
13778   t28249 = -0.12503400000000000000e1 * t216 * t1495 * t26932 - 0.10419500000000000000e0 * t216 * t1495 * t26940 + 0.12349037037037037037e1 * t17816 + 0.21424148148148148148e1 * t17675 + 0.68863333333333333332e0 * t24351 - 0.27545333333333333332e1 * t24358 + 0.41318000000000000000e1 * t24360 + 0.76514814814814814814e0 * t24362 + 0.12349037037037037037e0 * t25082 + 0.27785333333333333333e0 * t25084 + 0.16671200000000000000e1 * t25086 - 0.55570666666666666668e0 * t25088 - 0.16671200000000000000e1 * t25093 + 0.27785333333333333334e0 * t25095;
13779   t28251 = t28149 + t28199 + t28230 + t28249;
13780   t28258 = 0.60000000000000000000e1 * t2551 * t2647 + 0.38596750796862084160e3 * t779 * t8477 - 0.22787578869697033845e-2 * t18939 - 0.12000000000000000000e2 * t771 * t8444 - 0.57895126195293126241e3 * t115 * t4357 * t27340 * t1456 - 0.12000000000000000000e2 * t753 * t8448 - 0.57895126195293126241e3 * t166 * t4711 * t26876 * t1216 - 0.12000000000000000000e2 * t745 * t8448 - 0.12000000000000000000e2 * t779 * t8444 - 0.50000000000000000001e0 * t166 * t501 * t28251 * t521 - 0.60000000000000000000e1 * t2531 * t2702;
13781   t28281 = -0.19298375398431042080e3 * t2531 * t2706 - 0.20000000000000000000e1 * t771 * t8440 - 0.30000000000000000000e1 * t2551 * t2702 - 0.96491876992155210402e2 * t2551 * t2706 - 0.20000000000000000000e1 * t779 * t8440 + t14702 + 0.15545350000000000000e-1 * t27047 * t136 + 0.15545350000000000000e-1 * t26974 * t136 + 0.62181400000000000000e-1 * t26977 * t136 + 0.93272100000000000000e-1 * t26980 * t136 + 0.62181400000000000000e-1 * t26983 * t136 + 0.15545350000000000000e-1 * t26963 * t180;
13782   t28284 = t26953 * t165;
13783   t28287 = t8101 * t778;
13784   t28290 = t2421 * t2550;
13785   t28309 = 0.15545350000000000000e-1 * t28284 * t180 + 0.62181400000000000000e-1 * t28287 * t180 + 0.93272100000000000000e-1 * t28290 * t180 + 0.62181400000000000000e-1 * t27050 * t180 - t14717 + 0.60000000000000000000e1 * t2504 * t2652 + 0.12000000000000000000e2 * t2507 * t2652 + 0.38596750796862084160e3 * t745 * t8487 + 0.60000000000000000000e1 * t2525 * t2652 + 0.38596750796862084160e3 * t753 * t8487 + 0.12414243100625616072e5 * t115 * t15855 * t27340 * t4361;
13786   t28343 = (0.40e2 / 0.81e2 * t14663 * t26815 - 0.16e2 / 0.9e1 * t7483 * t2416 + 0.4e1 / 0.3e1 * t1513 * t26861 + 0.16e2 / 0.9e1 * t1980 * t8004 + 0.4e1 / 0.3e1 * t231 * t26973 + 0.40e2 / 0.81e2 * t14681 * t26905 - 0.16e2 / 0.9e1 * t7493 * t2421 + 0.4e1 / 0.3e1 * t1519 * t26914 + 0.16e2 / 0.9e1 * t1986 * t8101 + 0.4e1 / 0.3e1 * t233 * t26953) * t238;
13787   t28358 = -0.30000000000000000000e1 * t2504 * t2689 - 0.96491876992155210402e2 * t2504 * t2693 - 0.41380810335418720240e4 * t771 * t8453 - 0.41380810335418720240e4 * t779 * t8453 - 0.99822801518023203660e5 * t166 * t15596 * t26876 * t15599 + t230 * t28343 * t266 - 0.20000000000000000000e1 * t8528 * t848 - 0.60000000000000000000e1 * t8531 * t848 - 0.60000000000000000000e1 * t8534 * t848 - 0.20000000000000000000e1 * t8548 * t848 - 0.20000000000000000000e1 * t8551 * t856 - 0.60000000000000000000e1 * t8554 * t856;
13788   t28372 = -0.60000000000000000000e1 * t8557 * t856 - 0.20000000000000000000e1 * t8515 * t856 + 0.4e1 * t24812 - t14722 - t14724 - t14730 + 0.12000000000000000000e2 * t6612 * t8567 + 0.12000000000000000000e2 * t5531 * t8562 + 0.12000000000000000000e2 * t6532 * t8562 + 0.65061487801810439052e-1 * t22656 - t14732;
13789   t28381 = -0.96e2 * t19058 - 0.576e3 * t19060 - 0.960e3 * t19062 - 0.480e3 * t19064 - t14751 + t14756 - 0.73245789224026180216e-3 * t24836 - t14759 + t14762 - t14767 - 0.19298375398431042080e3 * t6526 * t8575 - 0.14035736694323150897e2 * t19101;
13790   t28405 = -t14781 - 0.23392894490538584828e1 * t19107 - 0.64327917994770140268e2 * t1454 * t24470 * t766 - 0.19298375398431042080e3 * t6606 * t8570 - 0.19298375398431042080e3 * t6707 * t8570 - 0.62071215503128080360e4 * t5231 * t20491 * t2584 - 0.62071215503128080360e4 * t4358 * t20854 * t2650 + 0.57895126195293126241e3 * t4217 * t7518 * t2584 - t14836 - t14846 + 0.40000000000000000000e1 * t1223 * t8046 * t766;
13791   t28412 = -t14873 + 0.12000000000000000000e2 * t6677 * t8567 - 0.13012297560362087810e0 * t19172 - 0.48e2 * t22816 - 0.48e2 * t22830 + 0.41558061853635513020e3 * t19199 + t14896 - t14899 - t14903 - t14907 - t14913 - t14918;
13792   t28430 = t14924 + t14927 + t14933 + t14937 - 0.18000000000000000000e2 * t1454 * t2812 * t2687 - t14971 + 0.30000000000000000000e1 * t115 * t1222 * t27874 * t440 + 0.12000000000000000000e2 * t115 * t4491 * t27340 * t440 + 0.30000000000000000000e1 * t166 * t1230 * t26844 * t521 + 0.4e1 * t19242 + t15189;
13793   t28446 = -0.18000000000000000000e2 * t1213 * t2816 * t2617 + 0.57895126195293126241e3 * t5192 * t7705 * t2650 + t15435 - 0.86748650402413918736e-1 * t19249 + t15622 - t15330 - t15333 - 0.16e2 * t25257 - 0.16e2 * t25259 + 0.40000000000000000000e1 * t1231 * t8148 * t792 + t15641 - 0.64327917994770140268e2 * t1213 * t24733 * t792;
13794   t28452 = -0.19298375398431042080e3 * t5942 * t8575 + t15337 + t15646 + t15341 + t15345 + t15653 + t15656 - 0.35089341735807877242e1 * t23111 + t15677 - t15366 - t15369;
13795   t28460 = t15681 + t15685 - t15838 - 0.10389515463408878255e3 * t23145 + t15842 + 0.120e3 * t23189 + 0.72e2 * t23191 + 0.192e3 * t23193 + t15372 - 0.41016075432865626630e4 * t19374 - 0.23392894490538584828e1 * t25308 + 0.14649157844805236043e-2 * t23270;
13796   t28467 = t15845 + 0.14035736694323150897e2 * t19403 - 0.20779030926817756510e3 * t19408 + 0.19751673498613801407e-1 * t28343 * t264 + t15869 - t15872 + t15383 + t15397 + 0.240e3 * t19413 - t15876 + t15885;
13797   t28476 = t15887 + 0.144e3 * t19420 + 0.384e3 * t19424 - t15403 + t15925 + t15427 + 0.70178683471615754484e1 * t23301 - 0.48e2 * t19454 - 0.48e2 * t19456 + 0.6e1 * t23321 + 0.65061487801810439052e-1 * t19521 + 0.19263893255070628431e1 * t19523;
13798   t28498 = 0.12000000000000000000e2 * t1213 * t8369 * t830 + 0.12000000000000000000e2 * t6707 * t8597 + (t27956 + t28107 + t28258 + t28281 + t28309 + t28358 + t28372 + t28381 + t28405 + t28412 + t28430 + t28446 + t28452 + t28460 + t28467 + t28476) * t310 + 0.19298375398431042080e3 * t6526 * t7954 - 0.93272100000000000000e-1 * t2528 * t2501 - 0.18654420000000000000e0 * t2531 * t2501 - 0.62181400000000000000e-1 * t771 * t8737 - 0.15545350000000000000e-1 * t28284 * t203 - 0.62181400000000000000e-1 * t28287 * t203 - 0.62181400000000000000e-1 * t8551 * t831 - 0.93272100000000000000e-1 * t28290 * t203;
13799   t28505 = t7235 * t2421;
13800   t28522 = -0.18654420000000000000e0 * t8554 * t831 - t2249 * t2250 * t24036 * t689 / 0.6e1 - 0.7e1 / 0.12e2 * t5838 * t5839 * t28505 + 0.41380810335418720240e4 * t18494 * t8056 - 0.60000000000000000000e1 * t20795 * t2813 + 0.41380810335418720240e4 * t17886 * t8056 - 0.3e1 / 0.8e1 * t26493 - 0.3e1 / 0.8e1 * t26495 - t26498 / 0.8e1 - t26500 / 0.8e1 - t26504 / 0.8e1 - 0.12000000000000000000e2 * t6532 * t8592;
13801   t28549 = 0.19298375398431042080e3 * t6707 * t8413 + 0.19298375398431042080e3 * t6606 * t8413 + 0.64327917994770140268e2 * t1454 * t24470 * t8412 + 0.30000000000000000000e1 * t7838 * t2803 + 0.96491876992155210402e2 * t20545 * t2807 + 0.60000000000000000000e1 * t26433 * t768 + 0.20000000000000000000e1 * t26436 * t768 + 0.20000000000000000000e1 * t2264 * t8047 + 0.99822801518023203660e5 * t16433 * t27340 * t15898 * t158 + 0.60000000000000000000e1 * t7849 * t2803 + 0.96491876992155210402e2 * t23665 * t2807;
13802   t28582 = 0.50000000000000000001e0 * t418 * t28088 * t440 * t158 + 0.19298375398431042080e3 * t20695 * t2807 + 0.20000000000000000000e1 * t2315 * t8047 + 0.19298375398431042080e3 * t6526 * t8175 + 0.3e1 / 0.4e1 * t6673 * t2250 * t28505 + 0.3e1 / 0.4e1 * t6669 * t2257 * t27085 + t23685 / 0.18e2 + t23688 / 0.24e2 + 0.50000000000000000001e0 * t502 * t28251 * t521 * t202 - 0.38596750796862084160e3 * t18394 * t8064 + t4187 * t18 * t5541 * t8080 / 0.2e1 + 0.7e1 / 0.9e1 * t16717 * t18 * t5278 * t26815;
13803   t28597 = 0.19298375398431042080e3 * t8176 + t3 * (t26790 + t26820 + t26849 + t26873 + t26968 + t27063 + t27090 + t27117 + t27358 + t27384 + t27881 + t27926 + t28498 + t28522 + t28549 + t28582) + 0.12e2 * t8178 + 0.60000000000000000000e1 * t8181 + 0.60000000000000000000e1 * t8183 + 0.12000000000000000000e2 * t8185 + 0.60000000000000000000e1 * t8187 + 0.12e2 * t8189 + 0.4e1 * t8368 + 0.12000000000000000000e2 * t8371 - t8375 / 0.8e1;
13804   t28611 = -0.7e1 / 0.18e2 * t8379 - 0.3e1 / 0.8e1 * t8386 - 0.3e1 / 0.8e1 * t8390 - t8394 / 0.2e1 - t8398 / 0.8e1 - 0.7e1 / 0.18e2 * t8402 + t8406 / 0.2e1 + t8410 / 0.2e1 + 0.19298375398431042080e3 * t8414 + 0.4e1 * t8591 - 0.12000000000000000000e2 * t8593;
13805   t28623 = 0.12000000000000000000e2 * t8598 - 0.62181400000000000000e-1 * t8738 - 0.18654420000000000000e0 * t8740 - 0.62181400000000000000e-1 * t8742 - 0.18654420000000000000e0 * t8744 - 0.18654420000000000000e0 * t8746 - 0.62181400000000000000e-1 * t8748 - 0.62181400000000000000e-1 * t8750 - 0.18654420000000000000e0 * t8752 - 0.18654420000000000000e0 * t8754 - 0.18654420000000000000e0 * t8756;
13806   t28636 = -0.37308840000000000000e0 * t8760 - 0.18654420000000000000e0 * t8762 - 0.18654420000000000000e0 * t8764 - 0.62181400000000000000e-1 * t8766 - 0.12000000000000000000e2 * t8768 - 0.12000000000000000000e2 * t8770 - 0.38596750796862084160e3 * t8774 - 0.12000000000000000000e2 * t8778 - t7875 / 0.6e1 - t7878 / 0.4e1 - t7881 / 0.8e1;
13807   t28648 = -t7884 / 0.8e1 - t7887 / 0.6e1 - t8788 / 0.2e1 - t8792 / 0.2e1 - 0.3e1 / 0.8e1 * t8796 - 0.3e1 / 0.8e1 * t8800 - 0.9e1 / 0.8e1 * t8802 - 0.9e1 / 0.8e1 * t8804 - 0.3e1 / 0.8e1 * t8887 + t6692 / 0.12e2 + t6695 / 0.12e2;
13808   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13809     v4rho4[4] = -t14634 - t14636 + 0.60000000000000000000e1 * t7944 + 0.60000000000000000000e1 * t7946 + 0.12000000000000000000e2 * t7948 + 0.12000000000000000000e2 * t7950 + 0.19298375398431042080e3 * t7952 + 0.19298375398431042080e3 * t7955 + 0.19298375398431042080e3 * t7957 + 0.12000000000000000000e2 * t7959 + t26754 + t26767 + t28597 + t28611 + t28623 + t28636 + t28648;
13810 
13811   t28652 = t926 * t1431;
13812   t28660 = t323 * t127 * t9113;
13813   t28662 = t325 * t9099;
13814   t28686 = t323 * t431 * t2845;
13815   t28689 = t323 * t127 * t9118;
13816   t28691 = -0.30000000000000000000e1 * t1223 * t441 * t28652 + 0.48245938496077605201e2 * t1454 * t4366 * t28652 - t28660 / 0.16e2 - 0.3e1 / 0.32e2 * t323 * t18 * t28662 * t314 + t4179 * t18 * t9122 * t4180 / 0.8e1 - 0.93272100000000000000e-1 * t1382 * t2928 - 0.15545350000000000000e-1 * t4913 * t927 - 0.46636050000000000000e-1 * t1265 * t2928 - 0.15545350000000000000e-1 * t4935 * t927 - 0.46636050000000000000e-1 * t4938 * t927 - 0.46636050000000000000e-1 * t1379 * t2928 - 0.46636050000000000000e-1 * t4941 * t927 + t28686 / 0.48e2 - t28689 / 0.32e2;
13817   t28693 = t1754 * t127 * t9123;
13818   t28699 = t1756 * t2879;
13819   t28708 = t5277 * t909;
13820   t28722 = t4066 * t40 * sigma[0];
13821   t28726 = t4074 * t349 * t33;
13822   t28730 = t4086 * t1185 * t343;
13823   t28737 = t1179 * t4141;
13824   t28738 = t28737 * t4144;
13825   t28758 = 0.12370962962962962963e1 * t356 * t4122 + 0.34111111111111111112e0 * t4097 * t4100 + 0.22093084444444444444e-1 * t56 * t28722 - 0.23868681481481481483e-3 * t56 * t28726 + 0.99480007111111111121e-6 * t56 * t28730 - 0.16766293333333333335e-6 * tau[0] * t5357 * t4080 * t1185 - 0.14307236977777777780e-8 * t56 * t28738 - 0.13644444444444444445e-2 * t5321 * t4053 * t40 - 0.17464888888888888890e-4 * t1134 * t5346 * t4058 * t349 - 0.10915555555555555556e1 * t1133 * t4114 + 0.87324444444444444447e-2 * t4057 * t9090 - 0.20230162962962962963e-1 * t4071 * t2870 + 0.10304284444444444445e-3 * t4079 * t9094 - 0.10915555555555555556e1 * t4048 * t9074;
13826   t28762 = t4092 * t30;
13827   t28770 = t5320 * t40;
13828   t28774 = t5346 * t349;
13829   t28791 = t4138 * t16542;
13830   t28794 = 0.34111111111111111112e0 * t4052 * t148 * t30 - 0.56033185185185185185e0 * t56 * t28762 + 0.12370962962962962963e1 * t4062 * t2860 - 0.23873422222222222222e0 * t28762 + 0.87324444444444444445e-2 * t1138 * t4104 - 0.13644444444444444444e-2 * t4098 * t28770 * t4051 - 0.17464888888888888890e-4 * t1312 * t28774 * t1134 - 0.16766293333333333335e-6 * t4107 * t5357 * t1185 * tau[0] - 0.20230162962962962963e-1 * t356 * t1160 * t9057 + 0.10304284444444444445e-3 * t1143 * t4109 - 0.56553623703703703702e-2 * t28722 + 0.30334740859259259260e-3 * t28726 - 0.31977426488888888891e-5 * t28730 + 0.12790122268444444445e-7 * t28738 - 0.17718604231111111113e-10 * t28791 * t16831;
13831   t28800 = t316 * t9104;
13832   t28805 = t14 * t127 * t9100;
13833   t28814 = -t28693 / 0.24e2 - 0.3e1 / 0.32e2 * t323 * t18 * t9112 * t1111 - t1754 * t18 * t28699 * t1249 / 0.8e1 - t323 * t18 * t2844 * t4270 / 0.32e2 - 0.7e1 / 0.72e2 * t5275 * t18 * t28708 * t4180 + 0.3e1 * t1739 * t2977 + 0.3e1 * t629 * t9030 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (t28758 + t28794) + t28800 / 0.16e2 - 0.9e1 / 0.32e2 * t316 * t9101 - 0.3e1 / 0.32e2 * t28805 - 0.3e1 / 0.32e2 * t4399 * t911 - 0.9e1 / 0.32e2 * t1113 * t2881 + 0.50000000000000000001e0 * t418 * t4352 * t926;
13834   t28818 = t5412 * sigma[0];
13835   t28825 = t16559 * t448;
13836   t28826 = t28825 * t4051;
13837   t28831 = t16480 * t1326;
13838   t28832 = t28831 * t1134;
13839   t28838 = t16487 * t5330 * tau[0];
13840   t28847 = -0.59095333333333333333e3 * t4098 * t5375 - 0.19059600000000000000e4 * t28818 * t5375 + 0.21721600000000000000e4 * t9138 * t5395 + 0.12202712177777777778e4 * t471 * t5401 + 0.45312444444444444444e3 * t5417 * t28826 + 0.18101333333333333333e3 * t5373 * t28826 + 0.86886400000000000000e2 * t5378 * t28832 + 0.19149056000000000000e3 * t5343 * t28832 + 0.22242918399999999999e2 * t5381 * t28838 + 0.11819066666666666667e3 * t5384 * t28826 + 0.26236160000000000000e2 * t5387 * t28832 + 0.38119200000000000001e3 * t5413 * t28826;
13841   t28854 = t5416 * sigma[0];
13842   t28857 = t5372 * sigma[0];
13843   t28868 = t33 * t4074;
13844   t28869 = t28868 * t448;
13845   t28872 = t4053 * t140;
13846   t28877 = 0.13084032000000000000e3 * t5351 * t28832 + 0.16791142400000000000e2 * t5391 * t28838 + 0.39034060799999999999e2 * t5354 * t28838 - 0.22656222222222222222e4 * t28854 * t5375 - 0.90506666666666666667e3 * t28857 * t5375 + 0.65590399999999999999e3 * t1138 * t5395 + 0.32710079999999999999e4 * t9145 * t5395 + 0.92118072888888888891e3 * t454 * t5401 + 0.47872640000000000001e4 * t9150 * t5395 - 0.54236421688888888890e3 * t155 * t28869 - 0.45548888888888888888e2 * t5321 * t28872 - 0.54590646992592592594e3 * t149 * t28869;
13847   t28879 = t343 * t4086;
13848   t28880 = t28879 * t1326;
13849   t28883 = t28737 * t5330;
13850   t28886 = t28791 * t16457;
13851   t28896 = t5322 * t448;
13852   t28899 = sigma[0] * t4066;
13853   t28900 = t28899 * t140;
13854   t28911 = 0.24405459057777777778e3 * t149 * t28880 - 0.45149516231111111110e2 * t149 * t28883 + 0.29850919822222222221e1 * t149 * t28886 + 0.24247098026666666667e3 * t155 * t28880 - 0.44856552106666666667e2 * t155 * t28883 + 0.29657224533333333333e1 * t155 * t28886 + 0.91097777777777777779e1 * t4051 * t16559 * t28896 + 0.40353905777777777778e3 * t155 * t28900 + 0.40617462518518518519e3 * t149 * t28900 + 0.21414519466666666666e4 * t461 * t5401 - 0.26236160000000000000e3 * t1312 * t5348 - 0.13084032000000000000e4 * t1316 * t5348;
13855   t28933 = -0.21776012800000000000e3 * t1319 * t5359 - 0.19149056000000000000e4 * t1283 * t5348 - 0.50622297600000000000e3 * t1290 * t5359 - 0.12607932444444444444e4 * t2898 * t5363 - 0.29309429333333333333e4 * t2901 * t5363 - 0.16701496888888888889e4 * t2916 * t5363 - 0.86886400000000000002e3 * t1303 * t5348 - 0.28846284800000000001e3 * t1306 * t5359 + 0.22087196444444444445e2 * t28880 - 0.40860785777777777777e1 * t28883 + 0.27015395555555555554e0 * t28886 - 0.49405108148148148149e2 * t28869 + 0.36759229629629629629e2 * t28900;
13856   t28972 = -0.15545350000000000000e-1 * t115 * t136 * (t28847 + t28877 + t28911 + t28933) - 0.46636050000000000000e-1 * t395 * t9206 - 0.46636050000000000000e-1 * t413 * t9206 - 0.96491876992155210402e2 * t5192 * t5193 * t926 + 0.48245938496077605201e2 * t1454 * t1457 * t2927 + 0.15000000000000000000e1 * t4196 * t2888 + 0.48245938496077605201e2 * t4209 * t9130 + 0.48245938496077605201e2 * t4223 * t9130 + 0.15000000000000000000e1 * t418 * t441 * t9205 + 0.15000000000000000000e1 * t418 * t1432 * t2927 + 0.30000000000000000000e1 * t1461 * t9035 + 0.30000000000000000000e1 * t1387 * t9035 - t2256 * t2257 * t909 * t1111 * t314 / 0.8e1 - 0.30000000000000000000e1 * t5215 * t9135;
13857   t28987 = t14 * t431 * t2880;
13858   t28991 = 0.5e1 / 0.144e3 * t14 * t1415 * t910;
13859   t28992 = t1113 * t2841;
13860   t28994 = t316 * t9042;
13861   t29018 = t1806 * sigma[0];
13862   t29031 = t5050 * t276;
13863   t29038 = 0.33317568000000000000e-4 * t1839 * t2958 * t16131 + 0.11994324480000000000e-5 * t1839 * t8943 * t16139 + 0.29985811200000000000e-3 * t1849 * t5693 * t9009 - 0.18741132000000000000e-4 * t5051 * t2964 * t19607 + 0.62470440000000000000e-5 * t2153 * t2964 * t19624 - 0.66635136000000000000e-4 * t5125 * t2958 * t29018 + 0.14992905600000000000e-6 * t2153 * t2971 * t29018 - 0.93705660000000000000e-5 * t1775 * t2964 * t16396 - 0.93705660000000000000e-5 * t1775 * t2964 * t19589 + 0.62470440000000000000e-2 * t29031 * t2949 * t19607 - 0.20823480000000000000e-2 * t5125 * t2949 * t19624;
13864   t29045 = t1774 * sigma[0];
13865   t29064 = t5037 * t276;
13866   t29071 = t1765 * sigma[0];
13867   t29075 = 0.31235220000000000000e-2 * t9016 * t2949 * t16396 + 0.31235220000000000000e-2 * t9016 * t2949 * t19589 - 0.16658784000000000000e-1 * t29045 * t2934 * t5628 - 0.33317568000000000000e-4 * t1849 * t2958 * t20134 - 0.41646960000000000000e-2 * t5110 * t2949 * t5031 + 0.67468075200000000000e-6 * t1844 * t8927 * t5006 - 0.74964528000000000000e-7 * t1844 * t2971 * t16131 - 0.23988648960000000000e-8 * t1844 * t8953 * t16139 - 0.12494088000000000000e-1 * t29064 * t2949 * t16306 - 0.16658784000000000000e-1 * t9016 * t2196 * t5628 - 0.13327027200000000000e-3 * t5110 * t2958 * t29071;
13868   t29092 = t648 * t33;
13869   t29111 = -0.29985811200000000000e-3 * t1839 * t5693 * t5006 + 0.37482264000000000000e-4 * t5038 * t2964 * t16306 + 0.49976352000000000000e-4 * t1775 * t6860 * t5628 - 0.67468075200000000000e-6 * t1853 * t8927 * t9009 + 0.74964528000000000000e-7 * t1853 * t2971 * t20134 - 0.11994324480000000000e-5 * t1849 * t8943 * t29092 + 0.23988648960000000000e-8 * t1853 * t8953 * t29092 + 0.12494088000000000000e-4 * t2165 * t2964 * t5031 + 0.29985811200000000000e-6 * t2165 * t2971 * t29071 + 0.11105856000000000000e-1 * t5110 * t2196 * t1765 - 0.34705800000000000000e-3 * t1849 * t2949 * t4991;
13870   t29130 = t633 * t4092;
13871   t29137 = t28868 * t287;
13872   t29140 = 0.27764640000000000000e-2 * t8960 * t2934 * t1827 + 0.34705800000000000000e-3 * t1839 * t2949 * t4998 - 0.27764640000000000000e-2 * t8967 * t2934 * t1820 + 0.10180368000000000000e-1 * t1839 * t5639 * t653 + 0.18900675200000000000e-3 * t1794 * t28899 - 0.18555419520000000000e-5 * t1797 * t28899 + 0.37110839040000000000e-8 * t1802 * t28899 + 0.52787093333333333333e-2 * t305 * t29130 - 0.21532622222222222222e0 * t4092 * t280 + 0.20823480000000000000e-5 * t5159 * t934 - 0.28134835200000000000e-3 * t305 * t29137;
13873   t29158 = t339 * t653 * t9009;
13874   t29163 = t28879 * t640;
13875   t29166 = t28899 * t306;
13876   t29169 = -0.69411600000000000000e-3 * t5159 * t932 + 0.12363190272000000000e-7 * t16054 * t28879 - 0.62685757440000000000e-10 * t16061 * t28879 + 0.94028636160000000000e-13 * t16066 * t28879 - 0.36186773760000000000e-5 * t5014 * t28868 + 0.22331801088000000000e-7 * t5017 * t28868 - 0.37219668480000000000e-10 * t5022 * t28868 + 0.19990540800000000000e-3 * t16138 * t29158 - 0.44978716800000000000e-6 * t16302 * t29158 + 0.71077478400000000000e-6 * t305 * t29163 + 0.23377141333333333333e-1 * t305 * t29166;
13877   t29170 = t636 * t4092;
13878   t29189 = t1764 * sigma[0];
13879   t29201 = t1812 * sigma[0];
13880   t29205 = -0.15836128000000000000e-4 * t305 * t29170 - 0.20823480000000000000e-4 * t5624 * t2964 * t4983 - 0.33317568000000000000e-4 * t2165 * t6860 * t1765 - 0.30541104000000000000e-4 * t1844 * t22295 * t653 + 0.83293920000000000000e-5 * t1844 * t6860 * t1820 - 0.50642703360000000000e-8 * t671 * t1801 * t4074 * t33 + 0.55529280000000000000e-2 * t29189 * t2934 * t1806 + 0.27764640000000000000e-2 * t1849 * t2196 * t1827 - 0.24988176000000000000e-1 * t8960 * t5047 + 0.13327027200000000000e-3 * t5045 * t8917 * t648 + 0.11105856000000000000e-1 * t29201 * t2934 * t1765;
13881   t29241 = -0.27764640000000000000e-2 * t1839 * t2196 * t1820 + 0.24988176000000000000e-1 * t8967 * t5078 - 0.56861982720000000000e-8 * t666 * t1801 * t4086 * t343 + 0.10411740000000000000e-5 * t1853 * t2964 * t4991 - 0.10411740000000000000e-5 * t1844 * t2964 * t4998 + 0.10661621760000000000e-10 * t671 * t5021 * t4086 * t343 - 0.13327027200000000000e-3 * t5077 * t8917 * t653 + 0.25321351680000000000e-5 * t666 * t19940 * t33 - 0.83293920000000000000e-5 * t1853 * t6860 * t1827 - 0.28052569600000000000e-3 * t666 * t19782 * sigma[0] - 0.16658784000000000000e-4 * t2153 * t6860 * t1806;
13882   t29265 = 0.63118281600000000000e-6 * t671 * t640 * t4066 * sigma[0] + 0.55529280000000000000e-2 * t5125 * t2196 * t1806 - 0.10180368000000000000e-1 * t1849 * t5639 * t648 + 0.69411600000000000000e-2 * t16355 * t2949 * t4983 + 0.30541104000000000000e-4 * t1853 * t22295 * t648 + 0.10342080000000000000e-3 * t29137 - 0.63852134400000000000e-6 * t29163 + 0.64597866666666666667e-3 * t29130 + 0.23277408000000000000e-4 * t29170 - 0.69832224000000000000e-7 * t641 * t4092 + 0.57215253333333333333e-2 * t29166;
13883   t29270 = -0.30000000000000000000e1 * t1223 * t1225 * t2927 + 0.30000000000000000000e1 * t1454 * t4389 * t926 + t4974 * t942 - 0.30000000000000000000e1 * t5212 * t9135 + 0.15000000000000000000e1 * t1461 * t9127 + 0.15000000000000000000e1 * t5199 * t2888 + t28987 / 0.16e2 - t28991 - 0.3e1 / 0.32e2 * t28992 - 0.3e1 / 0.16e2 * t28994 + 0.10345202583854680060e4 * t4358 * t4362 * t926 + 0.30000000000000000000e1 * t4382 * t2888 + 0.15000000000000000000e1 * t1387 * t9127 + t275 * (t29038 + t29075 + t29111 + t29140 + t29169 + t29205 + t29241 + t29265);
13884   t29281 = t9105 / 0.16e2;
13885   t29285 = 0.3e1 * t9031 + t3 * (t28691 + t28814 + t28972 + t29270) + 0.6e1 * t9032 + 0.3e1 * t9034 + 0.30000000000000000000e1 * t9036 - 0.9e1 / 0.32e2 * t9038 - 0.9e1 / 0.16e2 * t9040 - 0.3e1 / 0.16e2 * t9043 - 0.9e1 / 0.32e2 * t9102 + t29281 - 0.3e1 / 0.16e2 * t9107 - t9110 / 0.16e2 - 0.3e1 / 0.16e2 * t9115;
13886   t29299 = -0.3e1 / 0.32e2 * t9120 - t9125 / 0.8e1 + 0.15000000000000000000e1 * t9128 + 0.48245938496077605201e2 * t9131 + 0.30000000000000000000e1 * t9133 - 0.30000000000000000000e1 * t9136 - 0.46636050000000000000e-1 * t9207 - 0.46636050000000000000e-1 * t9209 - 0.93272100000000000000e-1 * t9211 - 0.93272100000000000000e-1 * t9213 - 0.46636050000000000000e-1 * t9215 - 0.93272100000000000000e-1 * t9217 + 0.30000000000000000000e1 * t9219;
13887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13888     v4rho3sigma[0] = t29285 + t29299;
13889 
13890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13891     v4rho3sigma[1] = 0.0e0;
13892 
13893   t29301 = t75 * t1827;
13894   t29302 = t29301 * t334;
13895   t29305 = t19834 * t334;
13896   t29312 = t75 * t1806;
13897   t29313 = t29312 * t334;
13898   t29316 = t19839 * t334;
13899   t29321 = t9243 * t16140;
13900   t29324 = t1154 * t653;
13901   t29325 = t9243 * t29324;
13902   t29330 = t9258 * t1127;
13903   t29333 = t5698 * t1127;
13904   t29346 = -0.33317568000000000000e-4 * t5755 * t29302 + 0.33317568000000000000e-4 * t5758 * t29305 + 0.74964528000000000000e-7 * t5715 * t29302 - 0.74964528000000000000e-7 * t5720 * t29305 + 0.14992905600000000000e-6 * t19695 * t29313 - 0.13327027200000000000e-3 * t19666 * t29316 + 0.29985811200000000000e-6 * t19672 * t29316 + 0.23988648960000000000e-8 * t20117 * t29321 - 0.23988648960000000000e-8 * t20125 * t29325 - 0.16658784000000000000e-1 * t19985 * t9255 - 0.27486993600000000000e-6 * t5715 * t29330 + 0.27486993600000000000e-6 * t5720 * t29333 + 0.12216441600000000000e-3 * t5755 * t29330 - 0.12216441600000000000e-3 * t5758 * t29333 - 0.11994324480000000000e-5 * t20112 * t29321 + 0.11994324480000000000e-5 * t20120 * t29325 - 0.66635136000000000000e-4 * t19689 * t29313;
13905   t29374 = t9243 * t4066;
13906   t29385 = t9258 * t5721;
13907   t29390 = t3002 * t4092;
13908   t29393 = 0.71077478400000000000e-6 * t19939 * t19940 * t75 - 0.16288588800000000000e-3 * t5692 * t19782 * t75 - 0.34705800000000000000e-3 * t1849 * t2999 * t4991 + 0.34705800000000000000e-3 * t1839 * t2999 * t4998 + 0.10411740000000000000e-5 * t1853 * t3019 * t4991 - 0.10411740000000000000e-5 * t1844 * t3019 * t4998 + 0.52787093333333333333e-2 * t2195 * t19963 * t75 - 0.20823480000000000000e-4 * t5624 * t3019 * t4983 + 0.69411600000000000000e-2 * t16355 * t2999 * t4983 - 0.20950237440000000000e-5 * t5014 * t29374 + 0.12928937472000000000e-7 * t5017 * t29374 - 0.21548229120000000000e-10 * t5022 * t29374 + 0.20823480000000000000e-5 * t5159 * t982 - 0.69411600000000000000e-3 * t5159 * t980 - 0.44978716800000000000e-6 * t16302 * t29385 + 0.19990540800000000000e-3 * t16138 * t29385 + 0.83798668800000000000e-9 * t1802 * t29390;
13909   t29400 = t75 * t343 * t4074;
13910   t29441 = 0.42678944000000000000e-4 * t1794 * t29390 - 0.41899334400000000000e-6 * t1797 * t29390 + 0.12363190272000000000e-7 * t16054 * t29400 - 0.62685757440000000000e-10 * t16061 * t29400 + 0.12919573333333333333e-2 * t2999 * t4093 + 0.59875200000000000000e-4 * t3019 * t4067 - 0.63852134400000000000e-6 * t4075 * t3029 + 0.27764640000000000000e-2 * t8960 * t2196 * t29301 + 0.13327027200000000000e-3 * t5045 * t5693 * t9258 - 0.41646960000000000000e-2 * t5110 * t2999 * t5031 + 0.11105856000000000000e-1 * t29201 * t2196 * t19839 - 0.27764640000000000000e-2 * t8967 * t2196 * t19834 - 0.63344512000000000000e-4 * t666 * t3019 * t4093 + 0.10180368000000000000e-1 * t8967 * t5639 * t5698 + 0.37482264000000000000e-4 * t5038 * t3019 * t16306 - 0.29319459840000000000e-8 * t671 * t9251 * t4067 - 0.12494088000000000000e-1 * t29064 * t2999 * t16306;
13911   t29472 = t5021 * t75;
13912   t29493 = -0.10180368000000000000e-1 * t8960 * t5639 * t9258 - 0.56861982720000000000e-8 * t666 * t9251 * t4075 - 0.18741132000000000000e-4 * t5051 * t3019 * t19607 + 0.62470440000000000000e-5 * t2153 * t3019 * t19624 - 0.93705660000000000000e-5 * t1775 * t3019 * t16396 + 0.14252515200000000000e-6 * t671 * t3029 * t4093 + 0.14659729920000000000e-5 * t666 * t3029 * t4067 - 0.13327027200000000000e-3 * t5077 * t5693 * t5698 - 0.93705660000000000000e-5 * t1775 * t3019 * t19589 + 0.12494088000000000000e-4 * t2165 * t3019 * t5031 + 0.10661621760000000000e-10 * t671 * t29472 * t4075 + 0.62470440000000000000e-2 * t29031 * t2999 * t19607 - 0.20823480000000000000e-2 * t5125 * t2999 * t19624 + 0.55529280000000000000e-2 * t29189 * t2196 * t29312 + 0.31235220000000000000e-2 * t9016 * t2999 * t16396 + 0.31235220000000000000e-2 * t9016 * t2999 * t19589 + 0.94028636160000000000e-13 * t16066 * t29400;
13913   t29497 = t380 * t9347;
13914   t29535 = t275 * (t29346 + t29393 + t29441 + t29493) + t29497 / 0.16e2 + 0.30000000000000000000e1 * t5224 * t2995 + 0.15000000000000000000e1 * t4385 * t2995 + 0.10345202583854680060e4 * t5231 * t5232 * t974 + 0.48245938496077605201e2 * t4201 * t9233 + 0.48245938496077605201e2 * t4193 * t9233 - 0.30000000000000000000e1 * t4212 * t9342 - 0.15545350000000000000e-1 * t4931 * t975 - 0.15545350000000000000e-1 * t4944 * t975 - 0.46636050000000000000e-1 * t4947 * t975 - 0.46636050000000000000e-1 * t4916 * t975 + t4187 * t18 * t9357 * t4188 / 0.8e1 - t2249 * t2250 * t957 * t1106 * t378 / 0.8e1 - 0.96491876992155210402e2 * t4217 * t4219 * t974 - 0.3e1 / 0.32e2 * t4395 * t959 + t4974 * t990;
13915   t29537 = t1444 * t127 * t9358;
13916   t29543 = t5286 * t957;
13917   t29549 = t387 * t431 * t2987;
13918   t29552 = t387 * t127 * t9353;
13919   t29556 = t974 * t1505;
13920   t29579 = t1108 * t2983;
13921   t29583 = 0.5e1 / 0.144e3 * t67 * t1415 * t958;
13922   t29584 = -t29537 / 0.24e2 - t387 * t18 * t2986 * t4393 / 0.32e2 - 0.7e1 / 0.72e2 * t5284 * t18 * t29543 * t4188 + t29549 / 0.48e2 - t29552 / 0.32e2 + 0.3e1 * t1739 * t3033 + 0.48245938496077605201e2 * t1213 * t4378 * t29556 + 0.15000000000000000000e1 * t1208 * t9240 - 0.30000000000000000000e1 * t4231 * t9342 + 0.15000000000000000000e1 * t1205 * t9240 + 0.15000000000000000000e1 * t5205 * t2995 + 0.30000000000000000000e1 * t1213 * t5208 * t974 + 0.50000000000000000001e0 * t502 * t5227 * t974 + 0.3e1 * t629 * t9330 - 0.30000000000000000000e1 * t1231 * t1506 * t9624 - 0.3e1 / 0.32e2 * t29579 - t29583;
13923   t29599 = t9348 / 0.16e2;
13924   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13925     v4rho3sigma[2] = 0.3e1 * t9232 + t3 * (t29535 + t29584) + 0.48245938496077605201e2 * t9234 + 0.30000000000000000000e1 * t9236 + 0.30000000000000000000e1 * t9238 + 0.15000000000000000000e1 * t9241 + 0.3e1 * t9331 - 0.9e1 / 0.32e2 * t9332 - 0.46636050000000000000e-1 * t9334 - 0.93272100000000000000e-1 * t9336 - 0.46636050000000000000e-1 * t9338 + 0.6e1 * t9340 - 0.30000000000000000000e1 * t9343 - 0.3e1 / 0.16e2 * t9345 + t29599 - t9351 / 0.16e2 - 0.3e1 / 0.32e2 * t9355 - t9360 / 0.8e1;
13926 
13927   t29603 = 0.2e1 * t9364;
13928   t29604 = 0.2e1 * t9365;
13929   t29605 = 0.10000000000000000000e1 * t9366;
13930   t29606 = 0.10000000000000000000e1 * t9369;
13931   t29607 = 0.10000000000000000000e1 * t9371;
13932   t29608 = 0.3e1 / 0.16e2 * t9373;
13933   t29609 = 0.3e1 / 0.8e1 * t9376;
13934   t29610 = t29603 + t29604 + t29605 + t9031 + t9033 + t9034 + t9037 + t29606 + t29607 - t29608 - t29609 - t9884;
13935   t29613 = 0.10000000000000000000e1 * t9382;
13936   t29614 = t9386 / 0.16e2;
13937   t29615 = t9390 / 0.8e1;
13938   t29617 = -t9039 - t9041 - t9043 / 0.8e1 - t9103 + t29281 - t9107 / 0.8e1 + t29613 - t29614 - t29615 - t9110 / 0.24e2 - t9116 - t9121 - t9126;
13939   t29619 = 0.20000000000000000000e1 * t9396;
13940   t29620 = 0.2e1 * t9398;
13941   t29621 = 0.10000000000000000000e1 * t9400;
13942   t29622 = t9405 / 0.12e2;
13943   t29623 = 0.31090700000000000000e-1 * t9410;
13944   t29624 = 0.31090700000000000000e-1 * t9412;
13945   t29625 = 0.31090700000000000000e-1 * t9414;
13946   t29626 = 0.31090700000000000000e-1 * t9416;
13947   t29627 = 0.31090700000000000000e-1 * t9418;
13948   t29628 = -t29619 + t29620 + t29621 - t29622 - t9883 + t9129 + t9132 + t9134 - t29623 - t29624 - t29625 - t29626 - t29627;
13949   t29660 = t2927 * t439;
13950   t29673 = 0.16081979498692535067e2 * t6707 * t9130 + 0.93272100000000000000e-1 * t4268 * t9422 + 0.50000000000000000001e0 * t418 * t6520 * t926 + 0.10000000000000000000e1 * t418 * t2311 * t2927 + 0.2e1 * t2114 * t2977 - t28660 / 0.48e2 + 0.10000000000000000000e1 * t6633 * t2888 + 0.10000000000000000000e1 * t2315 * t9035 + 0.10000000000000000000e1 * t6630 * t2888 + t28686 / 0.72e2 - t28689 / 0.96e2 - t28693 / 0.72e2 + 0.50000000000000000001e0 * t2315 * t9127 + t6496 * t942 - 0.62181400000000000000e-1 * t1104 * t2104 * t2927 - 0.62181400000000000000e-1 * t1104 * t5523 * t926 - 0.20000000000000000000e1 * t1223 * t767 * t29660 + 0.32163958997385070134e2 * t1454 * t6027 * t9394 + 0.50000000000000000001e0 * t2264 * t9127 - t2256 * t2257 * t9402 * t1111 / 0.24e2;
13951   t29674 = t9402 * t1249;
13952   t29685 = t2256 * t5844 * t9403 / 0.36e2;
13953   t29724 = -0.31090700000000000000e-1 * t2051 * t2928 - 0.15545350000000000000e-1 * t745 * t9206 - 0.15545350000000000000e-1 * t5863 * t927 - 0.31090700000000000000e-1 * t5857 * t927 + t1739 * t3085 - 0.20000000000000000000e1 * t5212 * t9395 + 0.32163958997385070134e2 * t4223 * t9559 + 0.2e1 * t629 * t9557 + t859 * t9030 - 0.10000000000000000000e1 * t5531 * t9135 + 0.10000000000000000000e1 * t2264 * t9035;
13954   t29741 = t701 * t33;
13955   t29774 = 0.48988800000000000000e-4 * t8989 * t890 - 0.63852134400000000000e-6 * t8992 * t20154 - 0.17630369280000000000e-10 * t5022 * t1154 * t9441 + 0.94028636160000000000e-13 * t16066 * t1160 * t29741 + 0.83293920000000000000e-2 * t8967 * t5569 - 0.44423424000000000000e-4 * t5077 * t8917 * t876 - 0.83293920000000000000e-2 * t8960 * t5603 + 0.44423424000000000000e-4 * t5045 * t8917 * t873 - 0.17141103360000000000e-5 * t5014 * t1154 * t9441 + 0.10578221568000000000e-7 * t5017 * t1154 * t9441 - 0.69411600000000000000e-3 * t19947 * t3061 - 0.33934560000000000000e-2 * t1849 * t5639 * t873 + 0.10180368000000000000e-4 * t1853 * t22295 * t873 - 0.10180368000000000000e-4 * t1844 * t22295 * t876 + 0.33934560000000000000e-2 * t1839 * t5639 * t876;
13956   t29775 = t3068 * t1126;
13957   t29786 = t3053 * t19986;
13958   t29790 = t9457 * t2191 * sigma[0];
13959   t29793 = t1172 * t5736;
13960   t29796 = t359 * t5726;
13961   t29803 = t359 * t5731;
13962   t29814 = 0.30164053333333333333e-2 * t3067 * t29775 + 0.20823480000000000000e-5 * t19950 * t3075 + 0.12363190272000000000e-7 * t16054 * t1160 * t29741 - 0.62685757440000000000e-10 * t16061 * t1160 * t29741 - 0.14992905600000000000e-6 * t16302 * t29786 + 0.79962163200000000000e-6 * t20120 * t29790 - 0.27764640000000000000e-6 * t5715 * t29793 - 0.34705800000000000000e-4 * t5005 * t29796 - 0.27764640000000000000e-6 * t5720 * t29793 + 0.77124000000000000000e-2 * t5777 * t29796 - 0.11568600000000000000e-1 * t5011 * t29803 - 0.15424800000000000000e-1 * t5797 * t29803 + 0.12339840000000000000e-3 * t5758 * t29793 - 0.23137200000000000000e-4 * t5782 * t29796 + 0.34705800000000000000e-4 * t5005 * t29803;
13963   t29824 = t9457 * t2187 * sigma[0];
13964   t29832 = t873 * t33;
13965   t29851 = t876 * t33;
13966   t29855 = t26 * t1827;
13967   t29859 = 0.73826133333333333333e-3 * t5640 + 0.11568600000000000000e-1 * t5011 * t29796 + 0.12339840000000000000e-3 * t5755 * t29793 + 0.66635136000000000000e-4 * t16138 * t29786 - 0.79962163200000000000e-6 * t20112 * t29824 + 0.46274400000000000000e-4 * t5801 * t29803 - 0.22489358400000000000e-6 * t1853 * t8927 * t9514 - 0.39981081600000000000e-6 * t1849 * t8943 * t29832 + 0.79962163200000000000e-9 * t1853 * t8953 * t29832 - 0.31235220000000000000e-5 * t1775 * t2964 * t19650 + 0.41646960000000000000e-5 * t2165 * t2964 * t5564 + 0.22489358400000000000e-6 * t1844 * t8927 * t9490 - 0.99952704000000000000e-4 * t1839 * t5693 * t9490 + 0.39981081600000000000e-6 * t1839 * t8943 * t29851 + 0.92548800000000000000e-3 * t9494 * t3068 * t29855;
13968   t29860 = t26 * t1820;
13969   t29909 = -0.92548800000000000000e-3 * t9499 * t3068 * t29860 - 0.13327027200000000000e-3 * t3067 * t9504 * t8989 + 0.71077478400000000000e-6 * t3067 * t9699 * t8992 + 0.20823480000000000000e-5 * t2153 * t2964 * t19685 + 0.10411740000000000000e-2 * t9016 * t2949 * t19650 - 0.55529280000000000000e-2 * t29045 * t2934 * t5791 - 0.13882320000000000000e-2 * t5110 * t2949 * t5564 + 0.74039040000000000000e-2 * t29201 * t2934 * t2211 + 0.20823480000000000000e-2 * t29031 * t2949 * t19722 - 0.55529280000000000000e-2 * t9016 * t2196 * t5791 + 0.69411600000000000000e-2 * t16355 * t2949 * t5702 + 0.74039040000000000000e-2 * t5110 * t2196 * t2211 - 0.62470440000000000000e-5 * t5051 * t2964 * t19722 + 0.16658784000000000000e-4 * t1775 * t6860 * t5791 - 0.20823480000000000000e-4 * t5624 * t2964 * t5702 - 0.22211712000000000000e-4 * t2165 * t6860 * t2211;
13970   t29918 = t1764 * sigma[2];
13971   t29919 = t26 * t1806;
13972   t29923 = t3068 * t5007;
13973   t29926 = t1812 * sigma[2];
13974   t29927 = t26 * t1765;
13975   t29931 = t3068 * t22096;
13976   t29962 = 0.37019520000000000000e-2 * t5125 * t2196 * t5778 - 0.41646960000000000000e-2 * t29064 * t2949 * t19718 + 0.18509760000000000000e-2 * t29918 * t3068 * t29919 - 0.49359360000000000000e-2 * t9494 * t29923 + 0.37019520000000000000e-2 * t29926 * t3068 * t29927 + 0.49359360000000000000e-2 * t9499 * t29931 - 0.79962163200000000000e-9 * t1844 * t8953 * t29851 - 0.69411600000000000000e-3 * t5125 * t2949 * t19685 + 0.37019520000000000000e-2 * t29189 * t2934 * t5778 + 0.10411740000000000000e-2 * t9016 * t2949 * t19699 - 0.55529280000000000000e-2 * t29045 * t2934 * t5785 - 0.31235220000000000000e-5 * t1775 * t2964 * t19699 + 0.99952704000000000000e-4 * t1849 * t5693 * t9514 + 0.81442944000000000000e-7 * t671 * t640 * t1126 * t701 - 0.36196864000000000000e-4 * t666 * t22295 * t701;
13977   t29979 = t3053 * t5635;
13978   t29983 = t1154 * sigma[2] * t2141;
13979   t29986 = t3053 * t5685;
13980   t29991 = t1150 * t719;
13981   t30002 = t9811 * t5628;
13982   t30005 = -0.55529280000000000000e-2 * t9016 * t2196 * t5785 - 0.11105856000000000000e-4 * t2153 * t6860 * t5778 + 0.12494088000000000000e-4 * t5038 * t2964 * t19718 + 0.16658784000000000000e-4 * t1775 * t6860 * t5785 + 0.15992432640000000000e-8 * t20117 * t29824 - 0.15992432640000000000e-8 * t20125 * t29790 + 0.11105856000000000000e-4 * t5758 * t29979 + 0.11994324480000000000e-5 * t5804 * t29983 + 0.24988176000000000000e-7 * t5715 * t29986 - 0.24988176000000000000e-7 * t5720 * t29979 - 0.15424800000000000000e-1 * t5735 * t29991 - 0.10283200000000000000e-1 * t656 * t11947 * t19729 - 0.10283200000000000000e-1 * t662 * t11947 * t19729 - 0.11105856000000000000e-4 * t5755 * t29986 - 0.12494088000000000000e-4 * t16297 * t30002;
13983   t30007 = t339 * t873;
13984   t30008 = t30007 * t9009;
13985   t30013 = t30007 * t5006;
13986   t30020 = t9794 * t5628;
13987   t30025 = t339 * t876;
13988   t30026 = t30025 * t9009;
13989   t30029 = t30025 * t5006;
13990   t30040 = t1774 * t701;
13991   t30043 = t656 * t701;
13992   t30046 = -0.44423424000000000000e-4 * t19689 * t30008 + 0.99952704000000000000e-7 * t19695 * t30008 + 0.66635136000000000000e-4 * t16138 * t30013 - 0.14992905600000000000e-6 * t16302 * t30013 + 0.46274400000000000000e-4 * t5740 * t29991 + 0.24988176000000000000e-4 * t16310 * t30020 - 0.23988648960000000000e-8 * t5808 * t29983 - 0.14992905600000000000e-6 * t16302 * t30026 + 0.19990540800000000000e-6 * t19672 * t30029 + 0.46274400000000000000e-4 * t5751 * t29991 + 0.41646960000000000000e-2 * t16289 * t30002 - 0.88846848000000000000e-4 * t19666 * t30029 - 0.15424800000000000000e-1 * t5748 * t29991 - 0.55529280000000000000e-2 * t30040 * t9017 + 0.88846848000000000000e-4 * t30043 * t9020;
13993   t30047 = t662 * t701;
13994   t30050 = t3053 * t5647;
13995   t30053 = t9540 * t2191;
13996   t30056 = t3053 * t5643;
13997   t30059 = t9540 * t2187;
13998   t30063 = t1126 * sigma[2] * t700;
13999   t30071 = t1160 * sigma[2] * t5573;
14000   t30088 = -0.88846848000000000000e-4 * t30047 * t9003 + 0.99952704000000000000e-7 * t19672 * t30050 + 0.13327027200000000000e-6 * t5720 * t30053 - 0.22211712000000000000e-4 * t19689 * t30056 + 0.59231232000000000000e-4 * t5755 * t30059 + 0.47884953600000000000e-9 * t1802 * t30063 + 0.24387968000000000000e-4 * t1794 * t30063 - 0.23942476800000000000e-6 * t1797 * t30063 - 0.56861982720000000000e-8 * t19732 * t30071 + 0.10661621760000000000e-10 * t19739 * t30071 - 0.83293920000000000000e-2 * t16305 * t30020 + 0.66635136000000000000e-4 * t16138 * t30026 + 0.49976352000000000000e-7 * t19695 * t30056 - 0.13327027200000000000e-6 * t5715 * t30059 - 0.44423424000000000000e-4 * t19666 * t30050 - 0.59231232000000000000e-4 * t5758 * t30053;
14001   t30094 = t682 * t9042 / 0.16e2;
14002   t30095 = t5821 * t9375;
14003   t30103 = t926 * t1224;
14004   t30124 = t323 * t127 * t9384 / 0.48e2;
14005   t30126 = t323 * t4340 * t9388;
14006   t30132 = 0.10000000000000000000e1 * t6565 * t2888 - 0.10000000000000000000e1 * t6532 * t9135 + t28800 / 0.24e2 - t28805 / 0.32e2 + t275 * (t29774 + t29814 + t29859 + t29909 + t29962 + t30005 + t30046 + t30088) - t30094 + 0.7e1 / 0.16e2 * t30095 - 0.3e1 / 0.16e2 * t6729 * t9375 + 0.10000000000000000000e1 * t1461 * t9368 + 0.10000000000000000000e1 * t1461 * t9399 + 0.30000000000000000000e1 * t1454 * t767 * t30103 + 0.16081979498692535067e2 * t6606 * t9130 + 0.50000000000000000001e0 * t4196 * t3047 - 0.10000000000000000000e1 * t1223 * t767 * t28652 - t323 * t18 * t28662 * t680 / 0.32e2 - t323 * t1415 * t9112 * t2 / 0.8e1 - t30124 + 0.7e1 / 0.48e2 * t30126 + 0.10000000000000000000e1 * t1387 * t9368 + 0.10000000000000000000e1 * t4382 * t3047;
14007   t30142 = t682 * t9104;
14008   t30156 = t440 * t926;
14009   t30176 = t323 * t431 * t3039;
14010   t30183 = -0.20000000000000000000e1 * t1223 * t2311 * t9394 + t28987 / 0.24e2 - t28991 - t28992 / 0.32e2 - t28994 / 0.16e2 + 0.10000000000000000000e1 * t1387 * t9399 + t6669 * t2257 * t29674 / 0.8e1 + 0.10345202583854680060e4 * t4358 * t6046 * t30103 + t30176 / 0.144e3 - 0.3e1 / 0.32e2 * t682 * t9101 - 0.3e1 / 0.8e1 * t1888 * t1889 * t2880;
14011   t30188 = 0.10000000000000000000e1 * t9420;
14012   t30189 = 0.62181400000000000000e-1 * t9423;
14013   t30190 = 0.2e1 * t9558;
14014   t30191 = 0.32163958997385070134e2 * t9560;
14015   t30192 = t3 * (t29673 - 0.7e1 / 0.72e2 * t6645 * t6646 * t29674 - t2256 * t6498 * t909 * t2 * t314 / 0.6e1 - t29685 - t2256 * t2257 * t2879 * t680 * t314 / 0.12e2 - 0.31090700000000000000e-1 * t5866 * t927 - 0.31090700000000000000e-1 * t2054 * t2928 - 0.15545350000000000000e-1 * t5924 * t927 - 0.31090700000000000000e-1 * t2063 * t2928 - 0.15545350000000000000e-1 * t753 * t9206 - 0.15545350000000000000e-1 * t6184 * t927 + t29724 + t30132 - 0.96491876992155210402e2 * t5192 * t2001 * t30103 + 0.32163958997385070134e2 * t1454 * t2001 * t29660 + 0.16081979498692535067e2 * t1454 * t2001 * t28652 + t30142 / 0.48e2 - t323 * t1415 * t2844 / 0.16e2 + 0.50000000000000000001e0 * t418 * t767 * t9205 + 0.32163958997385070134e2 * t4209 * t9559 - 0.20000000000000000000e1 * t5215 * t9395 + 0.50000000000000000001e0 * t5199 * t3047 + 0.20000000000000000000e1 * t6064 * t617 * t30156 + t30183) + t30188 - t30189 - t9137 + t30190 - t9208 - t9210 - t9212 - t9214 - t9216 - t9218 + t30191 + t9220;
14016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14017     v4rho3sigma[3] = t29610 + t29617 + t29628 + t30192;
14018 
14019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14020     v4rho3sigma[4] = 0.0e0;
14021 
14022   t30194 = t9568 / 0.12e2;
14023   t30195 = 0.10000000000000000000e1 * t9570;
14024   t30196 = 0.10000000000000000000e1 * t9572;
14025   t30197 = 0.31090700000000000000e-1 * t9574;
14026   t30198 = 0.31090700000000000000e-1 * t9576;
14027   t30199 = 0.31090700000000000000e-1 * t9578;
14028   t30200 = 0.31090700000000000000e-1 * t9580;
14029   t30201 = 0.31090700000000000000e-1 * t9582;
14030   t30202 = 0.10000000000000000000e1 * t9585;
14031   t30203 = 0.10000000000000000000e1 * t9587;
14032   t30205 = -t30194 + t30195 + t30196 - t30197 - t30198 - t30199 - t30200 - t30201 + t30202 + t30203 - t9351 / 0.24e2;
14033   t30206 = 0.3e1 / 0.8e1 * t9591;
14034   t30207 = 0.3e1 / 0.16e2 * t9593;
14035   t30208 = 0.10000000000000000000e1 * t9602;
14036   t30209 = t9606 / 0.8e1;
14037   t30210 = t9611 / 0.16e2;
14038   t30211 = -t9356 - t9361 - t9344 + t9331 + t30206 - t30207 - t10048 - t10049 + t30208 + t30209 - t30210;
14039   t30213 = 0.62181400000000000000e-1 * t9617;
14040   t30215 = 0.2e1 * t9620;
14041   t30216 = 0.10000000000000000000e1 * t9621;
14042   t30217 = 0.2e1 * t9623;
14043   t30218 = 0.20000000000000000000e1 * t9626;
14044   t30219 = -t10055 + t30213 + t9341 - t9345 / 0.8e1 + t29599 - t9333 + t9242 + t30215 + t30216 + t30217 - t30218;
14045   t30220 = 0.32163958997385070134e2 * t9629;
14046   t30239 = t387 * t431 * t3091;
14047   t30242 = t387 * t4340 * t9604;
14048   t30255 = t974 * t1214;
14049   t30259 = t29497 / 0.24e2 - 0.93272100000000000000e-1 * t4268 * t9616 - 0.15545350000000000000e-1 * t1376 * t3174 - 0.15545350000000000000e-1 * t6194 * t975 - 0.15545350000000000000e-1 * t6197 * t975 - 0.31090700000000000000e-1 * t6081 * t975 - 0.15545350000000000000e-1 * t6133 * t975 - 0.15545350000000000000e-1 * t1343 * t3174 - 0.31090700000000000000e-1 * t1346 * t3174 + t30239 / 0.144e3 - 0.7e1 / 0.48e2 * t30242 + 0.10000000000000000000e1 * t1205 * t9584 + 0.50000000000000000001e0 * t5205 * t3134 + 0.10000000000000000000e1 * t5224 * t3134 + 0.16081979498692535067e2 * t1213 * t1217 * t3173 - 0.10000000000000000000e1 * t6612 * t9342 + 0.10345202583854680060e4 * t5231 * t6010 * t30255;
14050   t30292 = t521 * t974;
14051   t30301 = -0.10000000000000000000e1 * t1231 * t793 * t29556 + 0.50000000000000000001e0 * t4385 * t3134 + 0.50000000000000000001e0 * t2269 * t9240 - 0.10000000000000000000e1 * t6677 * t9342 + 0.10000000000000000000e1 * t6557 * t2995 + 0.10000000000000000000e1 * t6554 * t2995 + 0.50000000000000000001e0 * t2272 * t9240 + 0.10000000000000000000e1 * t6551 * t2995 + 0.16081979498692535067e2 * t5942 * t9233 + 0.16081979498692535067e2 * t6526 * t9233 - 0.20000000000000000000e1 * t4212 * t9625 + 0.16081979498692535067e2 * t1213 * t2009 * t29556 + 0.10000000000000000000e1 * t1205 * t9601 - 0.20000000000000000000e1 * t1231 * t2278 * t9624 + t6496 * t990 - 0.20000000000000000000e1 * t5980 * t625 * t30292 + 0.30000000000000000000e1 * t1213 * t793 * t30255 + 0.3e1 / 0.16e2 * t6729 * t9590;
14052   t30324 = t67 * t431 * t3126;
14053   t30328 = t387 * t127 * t9609 / 0.48e2;
14054   t30333 = t1446 * t3125;
14055   t30344 = t3137 * t1155;
14056   t30349 = tau[0] * tau[1];
14057   t30350 = t3752 * t30349;
14058   t30353 = t9646 * t1155;
14059   t30360 = t3137 * t5628;
14060   t30363 = t2141 * t5007;
14061   t30366 = t2141 * t22096;
14062   t30369 = t9646 * t5628;
14063   t30380 = 0.14515200000000000000e-4 * t9504 * t1155 - 0.56861982720000000000e-8 * t19732 * t30344 + 0.10661621760000000000e-10 * t19739 * t30344 - 0.10283200000000000000e-1 * t21866 * t30350 - 0.39981081600000000000e-6 * t20112 * t30353 + 0.79962163200000000000e-9 * t20117 * t30353 + 0.74039040000000000000e-2 * t19677 * t9715 - 0.14992905600000000000e-6 * t16302 * t30360 - 0.13327027200000000000e-6 * t5715 * t30363 + 0.13327027200000000000e-6 * t5720 * t30366 + 0.41646960000000000000e-2 * t16289 * t30369 + 0.37019520000000000000e-2 * t19713 * t9703 - 0.10283200000000000000e-1 * t21837 * t30350 + 0.59231232000000000000e-4 * t5755 * t30363 - 0.59231232000000000000e-4 * t5758 * t30366;
14064   t30383 = t9654 * t5628;
14065   t30386 = t9654 * t1155;
14066   t30402 = t16054 * t706;
14067   t30404 = sigma[2] * t33 * t1154;
14068   t30407 = t16061 * t706;
14069   t30413 = t16066 * t706;
14070   t30428 = -0.12494088000000000000e-4 * t16297 * t30369 + 0.24988176000000000000e-4 * t16310 * t30383 + 0.39981081600000000000e-6 * t20120 * t30386 - 0.79962163200000000000e-9 * t20125 * t30386 + 0.37019520000000000000e-2 * t5110 * t3068 * t1765 + 0.30164053333333333333e-2 * t2195 * t29775 - 0.55529280000000000000e-5 * t2153 * t9504 * t1806 - 0.11105856000000000000e-4 * t2165 * t9504 * t1765 + 0.12363190272000000000e-7 * t30402 * t30404 - 0.62685757440000000000e-10 * t30407 * t30404 - 0.39487488000000000000e-4 * t5692 * t5693 * t700 + 0.94028636160000000000e-13 * t30413 * t30404 + 0.92548800000000000000e-3 * t9494 * t3180 * t1827 - 0.92548800000000000000e-3 * t9499 * t3180 * t1820 + 0.92548800000000000000e-3 * t1849 * t3068 * t1827 - 0.92548800000000000000e-3 * t1839 * t3068 * t1820;
14071   t30438 = t9633 * t1126;
14072   t30456 = t3137 * t5716;
14073   t30459 = t3137 * t5721;
14074   t30462 = t9646 * t5716;
14075   t30465 = t9646 * t5721;
14076   t30469 = t9650 * t2149 * t648;
14077   t30473 = t9650 * t2149 * t653;
14078   t30476 = -0.27764640000000000000e-5 * t1853 * t9504 * t1827 + 0.27764640000000000000e-5 * t1844 * t9504 * t1820 + 0.20823480000000000000e-5 * t19950 * t3209 - 0.69834124800000000000e-6 * t9632 * t30438 + 0.43096458240000000000e-8 * t9637 * t30438 - 0.69411600000000000000e-3 * t19947 * t3195 - 0.71827430400000000000e-11 * t9640 * t30438 + 0.18509760000000000000e-2 * t29918 * t3180 * t1806 + 0.37019520000000000000e-2 * t29926 * t3180 * t1765 + 0.18509760000000000000e-2 * t5125 * t3068 * t1806 + 0.15992432640000000000e-8 * t20117 * t30456 - 0.15992432640000000000e-8 * t20125 * t30459 - 0.44423424000000000000e-4 * t19689 * t30462 + 0.66635136000000000000e-4 * t16138 * t30465 + 0.77124000000000000000e-2 * t5777 * t30469 - 0.11568600000000000000e-1 * t5011 * t30473;
14079   t30501 = sigma[2] * t1827;
14080   t30505 = sigma[2] * t1820;
14081   t30509 = t9646 * t1127;
14082   t30512 = t9650 * t5614;
14083   t30515 = t9654 * t1127;
14084   t30518 = t656 * t3137;
14085   t30521 = t662 * t3137;
14086   t30526 = 0.44423424000000000000e-4 * t5045 * t5693 * t9646 - 0.44423424000000000000e-4 * t5077 * t5693 * t9654 + 0.71077478400000000000e-6 * t5692 * t8927 * t3137 + 0.35538739200000000000e-6 * t666 * t9699 * t1155 + 0.20823480000000000000e-5 * t2153 * t3019 * t19685 - 0.31235220000000000000e-5 * t1775 * t3019 * t19699 - 0.31235220000000000000e-5 * t1775 * t3019 * t19650 + 0.41646960000000000000e-5 * t2165 * t3019 * t5564 + 0.24988176000000000000e-7 * t1853 * t3215 * t30501 - 0.24988176000000000000e-7 * t1844 * t3215 * t30505 - 0.91623312000000000000e-7 * t5715 * t30509 + 0.15424800000000000000e-4 * t5740 * t30512 + 0.91623312000000000000e-7 * t5720 * t30515 + 0.88846848000000000000e-4 * t30518 * t1855 - 0.88846848000000000000e-4 * t30521 * t1846 + 0.66635136000000000000e-4 * t16138 * t30360;
14087   t30537 = t3137 * t1127;
14088   t30553 = t9650 * t20176 * sigma[0];
14089   t30564 = -0.55529280000000000000e-2 * t19985 * t9706 - 0.83293920000000000000e-2 * t16305 * t30383 - 0.55529280000000000000e-2 * t19985 * t9712 + 0.15424800000000000000e-4 * t5751 * t30512 - 0.97731532800000000000e-9 * t5808 * t30537 + 0.40721472000000000000e-4 * t5755 * t30509 - 0.51416000000000000000e-2 * t5735 * t30512 - 0.40721472000000000000e-4 * t5758 * t30515 - 0.51416000000000000000e-2 * t5748 * t30512 + 0.48865766400000000000e-6 * t5804 * t30537 + 0.73826133333333333333e-3 * t3068 * t1127 + 0.12339840000000000000e-3 * t5758 * t30553 - 0.52238131200000000000e-11 * t5022 * t5574 - 0.23942476800000000000e-6 * t1797 * t5606 + 0.47884953600000000000e-9 * t1802 * t5606 + 0.19958400000000000000e-4 * t3203 * t30438;
14090   t30573 = t1774 * sigma[2];
14091   t30593 = sigma[2] * t1806;
14092   t30597 = sigma[2] * t1765;
14093   t30610 = 0.24387968000000000000e-4 * t1794 * t5606 - 0.63852134400000000000e-6 * t1155 * t3216 - 0.50788454400000000000e-6 * t5014 * t5574 + 0.31342878720000000000e-8 * t5017 * t5574 - 0.55529280000000000000e-2 * t30573 * t3180 * t5628 - 0.55529280000000000000e-2 * t9016 * t3068 * t5628 - 0.49359360000000000000e-2 * t8960 * t29923 + 0.49359360000000000000e-2 * t8967 * t29931 + 0.16658784000000000000e-4 * t1775 * t9504 * t5628 + 0.33934560000000000000e-2 * t8967 * t5639 * t9654 - 0.54295296000000000000e-4 * t3067 * t3203 * t1127 - 0.22211712000000000000e-4 * t5125 * t3203 * t30593 - 0.44423424000000000000e-4 * t5110 * t3203 * t30597 - 0.41646960000000000000e-2 * t29064 * t2999 * t19718 - 0.33934560000000000000e-2 * t8960 * t5639 * t9646 + 0.20823480000000000000e-2 * t29031 * t2999 * t19722;
14094   t30636 = t1801 * t700;
14095   t30658 = t9654 * t5721;
14096   t30661 = 0.69411600000000000000e-2 * t16355 * t2999 * t5702 - 0.20823480000000000000e-4 * t5624 * t3019 * t5702 + 0.49976352000000000000e-7 * t2153 * t3215 * t30593 + 0.99952704000000000000e-7 * t2165 * t3215 * t30597 + 0.81442944000000000000e-7 * t671 * t9699 * t1127 - 0.36196864000000000000e-4 * t666 * t9504 * t1127 + 0.12494088000000000000e-4 * t5038 * t3019 * t19718 - 0.62470440000000000000e-5 * t5051 * t3019 * t19722 - 0.71077478400000000000e-9 * t671 * t30636 * t1155 - 0.69411600000000000000e-3 * t5125 * t2999 * t19685 + 0.10411740000000000000e-2 * t9016 * t2999 * t19699 + 0.10411740000000000000e-2 * t9016 * t2999 * t19650 - 0.13882320000000000000e-2 * t5110 * t2999 * t5564 - 0.11105856000000000000e-4 * t1849 * t3203 * t30501 + 0.11105856000000000000e-4 * t1839 * t3203 * t30505 + 0.19990540800000000000e-6 * t19672 * t30658;
14097   t30668 = t9654 * t5716;
14098   t30695 = -0.27764640000000000000e-6 * t5720 * t30553 - 0.34705800000000000000e-4 * t5005 * t30469 + 0.46274400000000000000e-4 * t5801 * t30473 + 0.66635136000000000000e-4 * t16138 * t30668 - 0.88846848000000000000e-4 * t19666 * t30658 + 0.11568600000000000000e-1 * t5011 * t30469 - 0.15424800000000000000e-1 * t5797 * t30473 - 0.79962163200000000000e-6 * t20112 * t30456 + 0.79962163200000000000e-6 * t20120 * t30459 + 0.99952704000000000000e-7 * t19695 * t30462 - 0.14992905600000000000e-6 * t16302 * t30465 - 0.27764640000000000000e-6 * t5715 * t30553 - 0.23137200000000000000e-4 * t5782 * t30469 + 0.34705800000000000000e-4 * t5005 * t30473 + 0.12339840000000000000e-3 * t5755 * t30553 - 0.14992905600000000000e-6 * t16302 * t30668;
14099   t30704 = t9565 * t1360;
14100   t30711 = 0.32163958997385070134e2 * t1213 * t6019 * t9624 + 0.32163958997385070134e2 * t4193 * t9628 + t2249 * t6504 * t957 * t2 * t378 / 0.6e1 + t1739 * t3221 - 0.10000000000000000000e1 * t1231 * t1232 * t3173 + 0.50000000000000000001e0 * t502 * t1506 * t3173 + t387 * t1415 * t2986 / 0.16e2 + t30324 / 0.48e2 - t30328 - t387 * t18 * t9608 * t1106 / 0.32e2 - t1444 * t18 * t30333 * t1360 / 0.24e2 + 0.31090700000000000000e-1 * t5860 * t975 + 0.2e1 * t629 * t9760 + t275 * (t30380 + t30428 + t30476 + t30526 + t30564 + t30610 + t30661 + t30695) + 0.10000000000000000000e1 * t1208 * t9601 - 0.20000000000000000000e1 * t4231 * t9625 - 0.7e1 / 0.72e2 * t5838 * t5839 * t30704 + t6673 * t2250 * t30704 / 0.8e1;
14101   t30714 = t2249 * t5830 * t9566 / 0.36e2;
14102   t30722 = t691 * t9347;
14103   t30738 = t5821 * t9590;
14104   t30741 = t380 * t9598 / 0.16e2;
14105   t30747 = -t30714 - t2249 * t2250 * t9565 * t1106 / 0.24e2 + 0.62181400000000000000e-1 * t1104 * t5947 * t974 + t30722 / 0.48e2 - 0.96491876992155210402e2 * t4217 * t2009 * t30255 + 0.32163958997385070134e2 * t4201 * t9628 - t29537 / 0.72e2 + t29549 / 0.72e2 - t29552 / 0.96e2 + 0.50000000000000000001e0 * t502 * t6717 * t974 + t859 * t9330 + 0.2e1 * t2114 * t3033 - 0.7e1 / 0.16e2 * t30738 - t30741 - 0.3e1 / 0.32e2 * t1108 * t3127 + 0.10000000000000000000e1 * t1208 * t9584 - t29579 / 0.32e2 - t29583;
14106   t30751 = 0.2e1 * t9631;
14107   t30752 = 0.2e1 * t9761;
14108   t30753 = t30220 + t9237 + t9239 + t9235 + t3 * (t30259 + t30301 + t30711 + t30747) + t9232 + t30751 + t30752 - t9335 - t9337 - t9339;
14109   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14110     v4rho3sigma[5] = t30205 + t30211 + t30219 + t30753;
14111 
14112   t30756 = t29603 - t9773 - t9775 - t9777 + t29604 + t29605 + t29606 + t29607 - t29608 - t29609 - t9378 / 0.8e1;
14113   t30757 = t9882 - t9044 + t29281 - t9108 + t9780 + t29613 - t29614 - t29615 + t9880 - t9111 - t29619;
14114   t30760 = t29620 + t29621 - t29622 - t9888 - t9408 / 0.24e2 - t29623 - t29624 - t29625 - t29626 - t29627 + t9784;
14115   t30789 = t2418 * t2841;
14116   t30793 = 0.2e1 * t859 * t9557 + 0.50000000000000000001e0 * t418 * t2802 * t2927 + 0.10000000000000000000e1 * t2264 * t9399 + t28686 / 0.144e3 + 0.10000000000000000000e1 * t2315 * t9399 + 0.10000000000000000000e1 * t6633 * t3047 + 0.10000000000000000000e1 * t2315 * t9368 + 0.10000000000000000000e1 * t6630 * t3047 + 0.10000000000000000000e1 * t2264 * t9368 + 0.10000000000000000000e1 * t6565 * t3047 + 0.16081979498692535067e2 * t4223 * t9893 + 0.16081979498692535067e2 * t4209 * t9893 - 0.10000000000000000000e1 * t1223 * t2812 * t2927 + t2717 * t2977 - t29685 - t30789 / 0.32e2 - 0.15545350000000000000e-1 * t7201 * t927;
14117   t30832 = -0.15545350000000000000e-1 * t2525 * t2928 + 0.30000000000000000000e1 * t1454 * t2812 * t9394 - 0.20000000000000000000e1 * t6532 * t9395 - 0.15545350000000000000e-1 * t7138 * t927 - 0.15545350000000000000e-1 * t7141 * t927 - 0.15545350000000000000e-1 * t2504 * t2928 - 0.31090700000000000000e-1 * t7146 * t927 - 0.31090700000000000000e-1 * t2507 * t2928 - 0.15545350000000000000e-1 * t7149 * t927 + t28800 / 0.48e2 - 0.3e1 / 0.32e2 * t7251 * t911 - 0.3e1 / 0.32e2 * t2418 * t2881 - t30094 - t30095 / 0.8e1 + t7797 * t942 - t323 * t18 * t2844 * t7137 / 0.32e2 - t1754 * t18 * t28699 * t2511 / 0.24e2 - t323 * t18 * t9112 * t2416 / 0.32e2;
14118   t30841 = t926 * t1963;
14119   t30862 = t333 * t82 * t2382;
14120   t30869 = t9540 * t2357;
14121   t30876 = t2383 * sigma[0];
14122   t30881 = t3677 * t30349;
14123   t30884 = t359 * t2363;
14124   t30891 = t3053 * t6844;
14125   t30894 = t3053 * t6883;
14126   t30897 = t9457 * t6996;
14127   t30900 = -0.50788454400000000000e-6 * t5014 * t30862 + 0.31342878720000000000e-8 * t5017 * t30862 - 0.52238131200000000000e-11 * t5022 * t30862 + 0.24387968000000000000e-4 * t1794 * t30869 - 0.23942476800000000000e-6 * t1797 * t30869 + 0.47884953600000000000e-9 * t1802 * t30869 - 0.63852134400000000000e-6 * t2971 * t30876 + 0.19958400000000000000e-4 * t2891 * t2785 - 0.10283200000000000000e-1 * t30518 * t30881 - 0.51416000000000000000e-2 * t5748 * t30884 + 0.15424800000000000000e-4 * t5740 * t30884 + 0.15424800000000000000e-4 * t5751 * t30884 - 0.91623312000000000000e-7 * t5715 * t30891 + 0.91623312000000000000e-7 * t5720 * t30894 + 0.48865766400000000000e-6 * t5804 * t30897;
14128   t30907 = t9811 * t5791;
14129   t30910 = t9811 * t2211;
14130   t30913 = t30007 * t9490;
14131   t30918 = t9815 * t6836;
14132   t30921 = t9815 * t6840;
14133   t30925 = t339 * t82 * t6974;
14134   t30940 = -0.97731532800000000000e-9 * t5808 * t30897 + 0.88846848000000000000e-4 * t21866 * t2758 - 0.51416000000000000000e-2 * t5735 * t30884 - 0.12494088000000000000e-4 * t16297 * t30907 + 0.24988176000000000000e-4 * t16310 * t30910 + 0.66635136000000000000e-4 * t16138 * t30913 - 0.14992905600000000000e-6 * t16302 * t30913 + 0.79962163200000000000e-9 * t20117 * t30918 - 0.79962163200000000000e-9 * t20125 * t30921 + 0.10661621760000000000e-10 * t19739 * t30925 + 0.41646960000000000000e-2 * t16289 * t30907 - 0.83293920000000000000e-2 * t16305 * t30910 - 0.62685757440000000000e-10 * t16061 * t339 * t30876 + 0.94028636160000000000e-13 * t16066 * t339 * t30876 + 0.73826133333333333333e-3 * t6887 + 0.14515200000000000000e-4 * t6861;
14135   t30945 = t2751 * t648;
14136   t30979 = t333 * t876;
14137   t30980 = t30979 * t701;
14138   t30989 = 0.71077478400000000000e-6 * t9851 * t10025 * t2891 + 0.20823480000000000000e-5 * t2153 * t2964 * t30945 - 0.31235220000000000000e-5 * t1775 * t2964 * t26002 + 0.24988176000000000000e-7 * t1853 * t2971 * t22126 - 0.31235220000000000000e-5 * t1775 * t2964 * t25952 + 0.41646960000000000000e-5 * t2165 * t2964 * t6799 - 0.24988176000000000000e-7 * t1844 * t2971 * t22095 - 0.54295296000000000000e-4 * t2195 * t2958 * t2358 - 0.33934560000000000000e-2 * t9494 * t9862 * t9495 + 0.33934560000000000000e-2 * t9499 * t9862 * t9500 - 0.41646960000000000000e-2 * t29064 * t2949 * t26242 + 0.69411600000000000000e-2 * t16355 * t2949 * t6794 - 0.59231232000000000000e-4 * t5758 * t30980 - 0.88846848000000000000e-4 * t21837 * t2764 + 0.40721472000000000000e-4 * t5755 * t30891 - 0.40721472000000000000e-4 * t5758 * t30894;
14139   t30992 = t1812 * t701;
14140   t31003 = t359 * t6806;
14141   t31006 = t37 * t873;
14142   t31007 = t30349 * t75;
14143   t31008 = t31006 * t31007;
14144   t31021 = t359 * t6818;
14145   t31024 = t9794 * t21858;
14146   t31027 = t9794 * t21862;
14147   t31030 = -0.55529280000000000000e-2 * t30040 * t9482 + 0.74039040000000000000e-2 * t30992 * t9487 - 0.10283200000000000000e-1 * t30521 * t30881 - 0.39981081600000000000e-6 * t20112 * t30918 + 0.39981081600000000000e-6 * t20120 * t30921 - 0.56861982720000000000e-8 * t19732 * t30925 + 0.34705800000000000000e-4 * t5005 * t31003 - 0.34705800000000000000e-4 * t5005 * t31008 + 0.46274400000000000000e-4 * t5801 * t31003 + 0.77124000000000000000e-2 * t5777 * t31008 - 0.11568600000000000000e-1 * t5011 * t31003 + 0.11568600000000000000e-1 * t5011 * t31008 - 0.15424800000000000000e-1 * t5797 * t31003 + 0.12339840000000000000e-3 * t5755 * t31021 + 0.66635136000000000000e-4 * t16138 * t31024 - 0.88846848000000000000e-4 * t19666 * t31027;
14148   t31040 = t333 * t873;
14149   t31041 = t31040 * t701;
14150   t31048 = t1764 * t701;
14151   t31077 = 0.12339840000000000000e-3 * t5758 * t31021 - 0.23137200000000000000e-4 * t5782 * t31008 - 0.69411600000000000000e-3 * t5125 * t2949 * t30945 - 0.13327027200000000000e-6 * t5715 * t31041 + 0.13327027200000000000e-6 * t5720 * t30980 + 0.59231232000000000000e-4 * t5755 * t31041 + 0.37019520000000000000e-2 * t31048 * t9528 - 0.55529280000000000000e-2 * t30040 * t9531 + 0.92548800000000000000e-3 * t1849 * t2196 * t2751 - 0.92548800000000000000e-3 * t1839 * t2196 * t2736 - 0.55529280000000000000e-5 * t2153 * t6860 * t2775 - 0.11105856000000000000e-4 * t2165 * t6860 * t2723 + 0.18509760000000000000e-2 * t5125 * t2196 * t2775 - 0.39487488000000000000e-4 * t9851 * t9852 * t333 - 0.27764640000000000000e-5 * t1853 * t6860 * t2751 + 0.27764640000000000000e-5 * t1844 * t6860 * t2736;
14152   t31078 = t9862 * t333;
14153   t31084 = t2358 * sigma[0];
14154   t31110 = t9811 * t21858;
14155   t31113 = t9811 * t21862;
14156   t31116 = t30007 * t9441;
14157   t31121 = 0.30164053333333333333e-2 * t3067 * t31078 + 0.37019520000000000000e-2 * t5110 * t2196 * t2723 - 0.69834124800000000000e-6 * t9453 * t31084 + 0.43096458240000000000e-8 * t9440 * t31084 - 0.71827430400000000000e-11 * t9444 * t31084 + 0.92548800000000000000e-3 * t8960 * t2934 * t2751 - 0.92548800000000000000e-3 * t8967 * t2934 * t2736 + 0.20823480000000000000e-5 * t10970 * t9866 - 0.69411600000000000000e-3 * t22088 * t9872 + 0.18509760000000000000e-2 * t29189 * t2934 * t2775 + 0.37019520000000000000e-2 * t29201 * t2934 * t2723 + 0.12363190272000000000e-7 * t16054 * t339 * t30876 + 0.99952704000000000000e-7 * t19695 * t31110 - 0.14992905600000000000e-6 * t16302 * t31113 - 0.79962163200000000000e-6 * t20112 * t31116 + 0.15992432640000000000e-8 * t20117 * t31116;
14158   t31129 = t30025 * t9441;
14159   t31161 = t3068 * t31040;
14160   t31164 = -0.27764640000000000000e-6 * t5715 * t31021 - 0.14992905600000000000e-6 * t16302 * t31024 + 0.19990540800000000000e-6 * t19672 * t31027 + 0.79962163200000000000e-6 * t20120 * t31129 - 0.15992432640000000000e-8 * t20125 * t31129 - 0.27764640000000000000e-6 * t5720 * t31021 - 0.44423424000000000000e-4 * t19689 * t31110 + 0.66635136000000000000e-4 * t16138 * t31113 + 0.10411740000000000000e-2 * t9016 * t2949 * t26002 - 0.11105856000000000000e-4 * t1849 * t2958 * t22126 + 0.10411740000000000000e-2 * t9016 * t2949 * t25952 - 0.13882320000000000000e-2 * t5110 * t2949 * t6799 + 0.11105856000000000000e-4 * t1839 * t2958 * t22095 + 0.44423424000000000000e-4 * t7016 * t9852 * t9495 - 0.44423424000000000000e-4 * t7021 * t9852 * t9500 - 0.49359360000000000000e-2 * t9494 * t31161;
14161   t31181 = t3068 * t30979;
14162   t31187 = t2775 * t653;
14163   t31215 = 0.81442944000000000000e-7 * t671 * t9551 * t2358 + 0.16658784000000000000e-4 * t1775 * t6860 * t6933 - 0.71077478400000000000e-9 * t671 * t1801 * t333 * t2383 - 0.55529280000000000000e-2 * t9016 * t2196 * t6933 - 0.36196864000000000000e-4 * t666 * t6860 * t2358 + 0.49359360000000000000e-2 * t9499 * t31181 + 0.35538739200000000000e-6 * t666 * t9551 * t2383 - 0.62470440000000000000e-5 * t5051 * t2964 * t31187 - 0.22211712000000000000e-4 * t5125 * t2958 * t22142 + 0.49976352000000000000e-7 * t2153 * t2971 * t22142 + 0.12494088000000000000e-4 * t5038 * t2964 * t26242 - 0.20823480000000000000e-4 * t5624 * t2964 * t6794 - 0.44423424000000000000e-4 * t5110 * t2958 * t22150 + 0.99952704000000000000e-7 * t2165 * t2971 * t22150 + 0.20823480000000000000e-2 * t29031 * t2949 * t31187 - 0.55529280000000000000e-2 * t29045 * t2934 * t6933;
14164   t31229 = 0.50000000000000000001e0 * t418 * t7822 * t926 + 0.50000000000000000001e0 * t1461 * t9785 + 0.50000000000000000001e0 * t1387 * t9785 + 0.32163958997385070134e2 * t1454 * t2001 * t30841 + 0.10345202583854680060e4 * t4358 * t7303 * t9394 - t30124 - t30126 / 0.24e2 + 0.50000000000000000001e0 * t7841 * t2888 + t30142 / 0.24e2 + 0.16081979498692535067e2 * t1454 * t2806 * t2927 - 0.96491876992155210402e2 * t5192 * t2806 * t9394 - 0.20000000000000000000e1 * t1223 * t767 * t30841 + t275 * (t30900 + t30940 + t30989 + t31030 + t31077 + t31121 + t31164 + t31215) + 0.2e1 * t2114 * t3085 + 0.16081979498692535067e2 * t1454 * t7705 * t9394 - 0.20000000000000000000e1 * t5531 * t9395 + 0.32163958997385070134e2 * t6606 * t9559;
14165   t31243 = t909 * t2416;
14166   t31249 = t909 * t2511 * t314;
14167   t31261 = t323 * t127 * t9885;
14168   t31264 = t1754 * t127 * t9889;
14169   t31275 = -0.10000000000000000000e1 * t1223 * t2802 * t9394 + 0.20000000000000000000e1 * t6064 * t847 * t30156 + 0.32163958997385070134e2 * t6707 * t9559 + 0.50000000000000000001e0 * t7838 * t2888 - 0.10000000000000000000e1 * t5215 * t9896 + t28987 / 0.48e2 - t28991 - t2256 * t2257 * t31243 * t314 / 0.24e2 + t6669 * t2257 * t31249 / 0.8e1 - 0.7e1 / 0.72e2 * t6645 * t6646 * t31249 - t2256 * t6498 * t9402 * t2 / 0.6e1 - t31261 / 0.96e2 - t31264 / 0.72e2 - 0.62181400000000000000e-1 * t1104 * t7461 * t926 - 0.10000000000000000000e1 * t5212 * t9896 + 0.10000000000000000000e1 * t7849 * t2888 + t30176 / 0.72e2 + t629 * t9879;
14170   t31279 = t9787 + t9782 + t30188 - t30189 - t9779 + t30190 + t30191 - t9898 + t9895 + t3 * (t30793 + t30832 + t31229 + t31275) - t9892;
14171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14172     v4rho3sigma[6] = t30756 + t30757 + t30760 + t31279;
14173 
14174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14175     v4rho3sigma[7] = 0.0e0;
14176 
14177   t31316 = t287 * t2357;
14178   t31344 = t82 * sigma[0] * t333;
14179   t31347 = 0.20823480000000000000e-5 * t10970 * t10013 - 0.69411600000000000000e-3 * t22088 * t10029 - 0.33934560000000000000e-2 * t1849 * t9862 * t648 + 0.33934560000000000000e-2 * t1839 * t9862 * t653 + 0.30164053333333333333e-2 * t2195 * t31078 + 0.10180368000000000000e-4 * t1853 * t31316 * t648 - 0.10180368000000000000e-4 * t1844 * t31316 * t653 - 0.83293920000000000000e-2 * t9494 * t7018 + 0.83293920000000000000e-2 * t9499 * t7022 + 0.44423424000000000000e-4 * t7016 * t9968 * t648 - 0.44423424000000000000e-4 * t7021 * t9968 * t653 - 0.17141103360000000000e-5 * t5014 * t2382 * t9634 + 0.10578221568000000000e-7 * t5017 * t2382 * t9634 - 0.17630369280000000000e-10 * t5022 * t2382 * t9634 + 0.12363190272000000000e-7 * t16054 * t2388 * t31344;
14180   t31366 = t75 * t2723;
14181   t31367 = t31366 * t334;
14182   t31370 = t8236 * t334;
14183   t31373 = t706 * t876;
14184   t31374 = t31373 * t9689;
14185   t31377 = t31373 * t9693;
14186   t31380 = t9959 * t334;
14187   t31383 = t75 * t2751;
14188   t31384 = t31383 * t334;
14189   t31390 = t706 * tau[0] * t2149;
14190   t31393 = -0.62685757440000000000e-10 * t16061 * t2388 * t31344 + 0.94028636160000000000e-13 * t16066 * t2388 * t31344 + 0.73826133333333333333e-3 * t334 * t9862 + 0.37019520000000000000e-2 * t5125 * t3068 * t5778 - 0.55529280000000000000e-2 * t9016 * t3068 * t5785 - 0.63852134400000000000e-6 * t9977 * t31344 + 0.48988800000000000000e-4 * t334 * t10010 - 0.44423424000000000000e-4 * t19666 * t31367 - 0.59231232000000000000e-4 * t5758 * t31370 + 0.66635136000000000000e-4 * t16138 * t31374 - 0.88846848000000000000e-4 * t19666 * t31377 - 0.56861982720000000000e-8 * t19732 * t31380 - 0.11105856000000000000e-4 * t5755 * t31384 + 0.24988176000000000000e-7 * t5715 * t31384 + 0.46274400000000000000e-4 * t5740 * t31390;
14191   t31395 = t26191 * t334;
14192   t31406 = t706 * t873;
14193   t31407 = t31406 * t9689;
14194   t31410 = t31406 * t9693;
14195   t31421 = t9952 * t334;
14196   t31424 = t9646 * t5791;
14197   t31427 = t9646 * t2211;
14198   t31432 = 0.11105856000000000000e-4 * t5758 * t31395 - 0.24988176000000000000e-7 * t5720 * t31395 + 0.46274400000000000000e-4 * t5751 * t31390 + 0.10661621760000000000e-10 * t19739 * t31380 - 0.55529280000000000000e-2 * t19985 * t9946 - 0.44423424000000000000e-4 * t19689 * t31407 + 0.66635136000000000000e-4 * t16138 * t31410 + 0.99952704000000000000e-7 * t19672 * t31367 + 0.13327027200000000000e-6 * t5720 * t31370 - 0.14992905600000000000e-6 * t16302 * t31374 + 0.19990540800000000000e-6 * t19672 * t31377 - 0.23988648960000000000e-8 * t5808 * t31421 + 0.41646960000000000000e-2 * t16289 * t31424 - 0.83293920000000000000e-2 * t16305 * t31427 + 0.11994324480000000000e-5 * t5804 * t31421;
14199   t31433 = t75 * t2775;
14200   t31434 = t31433 * t334;
14201   t31443 = t700 * t873;
14202   t31444 = t31443 * t334;
14203   t31467 = t86 * t873;
14204   t31468 = t31467 * t5598;
14205   t31472 = t9650 * t2149 * t876;
14206   t31475 = -0.22211712000000000000e-4 * t19689 * t31434 + 0.49976352000000000000e-7 * t19695 * t31434 - 0.12494088000000000000e-4 * t16297 * t31424 + 0.24988176000000000000e-4 * t16310 * t31427 + 0.59231232000000000000e-4 * t5755 * t31444 - 0.13327027200000000000e-6 * t5715 * t31444 + 0.99952704000000000000e-7 * t19695 * t31407 - 0.14992905600000000000e-6 * t16302 * t31410 - 0.15424800000000000000e-1 * t5735 * t31390 + 0.88846848000000000000e-4 * t30518 * t2177 - 0.10283200000000000000e-1 * t656 * t12334 * t26074 - 0.15424800000000000000e-1 * t5748 * t31390 - 0.88846848000000000000e-4 * t30521 * t2184 - 0.10283200000000000000e-1 * t662 * t12334 * t26074 + 0.77124000000000000000e-2 * t5777 * t31468 - 0.11568600000000000000e-1 * t5011 * t31472;
14207   t31482 = t713 * tau[0] * t2149 * sigma[2];
14208   t31485 = t9490 * t333;
14209   t31486 = t9646 * t31485;
14210   t31495 = t31406 * t9634;
14211   t31504 = t31373 * t9634;
14212   t31515 = 0.11568600000000000000e-1 * t5011 * t31468 + 0.12339840000000000000e-3 * t5755 * t31482 + 0.66635136000000000000e-4 * t16138 * t31486 - 0.14992905600000000000e-6 * t16302 * t31486 + 0.34705800000000000000e-4 * t5005 * t31472 - 0.34705800000000000000e-4 * t5005 * t31468 - 0.79962163200000000000e-6 * t20112 * t31495 + 0.15992432640000000000e-8 * t20117 * t31495 - 0.27764640000000000000e-6 * t5715 * t31482 + 0.46274400000000000000e-4 * t5801 * t31472 - 0.15992432640000000000e-8 * t20125 * t31504 - 0.27764640000000000000e-6 * t5720 * t31482 - 0.15424800000000000000e-1 * t5797 * t31472 + 0.79962163200000000000e-6 * t20120 * t31504 + 0.12339840000000000000e-3 * t5758 * t31482;
14213   t31557 = -0.23137200000000000000e-4 * t5782 * t31468 + 0.24387968000000000000e-4 * t1794 * t6997 - 0.23942476800000000000e-6 * t1797 * t6997 + 0.47884953600000000000e-9 * t1802 * t6997 + 0.99952704000000000000e-4 * t1849 * t9852 * t9689 - 0.99952704000000000000e-4 * t1839 * t9852 * t9693 - 0.62470440000000000000e-5 * t5051 * t3019 * t31187 - 0.11105856000000000000e-4 * t2153 * t9504 * t5778 + 0.16658784000000000000e-4 * t1775 * t9504 * t5785 + 0.92548800000000000000e-3 * t8960 * t2196 * t31383 + 0.37019520000000000000e-2 * t29918 * t3180 * t5778 - 0.55529280000000000000e-2 * t30573 * t3180 * t5785 + 0.10411740000000000000e-2 * t9016 * t2999 * t25952 - 0.13882320000000000000e-2 * t5110 * t2999 * t6799 - 0.92548800000000000000e-3 * t8967 * t2196 * t26191;
14214   t31580 = t82 * t648;
14215   t31584 = t82 * t653;
14216   t31588 = t640 * t2357;
14217   t31607 = -0.55529280000000000000e-2 * t30573 * t3180 * t5791 + 0.74039040000000000000e-2 * t29926 * t3180 * t2211 - 0.13327027200000000000e-3 * t3067 * t9852 * t334 - 0.41646960000000000000e-2 * t29064 * t2999 * t26242 + 0.69411600000000000000e-2 * t16355 * t2999 * t6794 - 0.31235220000000000000e-5 * t1775 * t3019 * t25952 + 0.41646960000000000000e-5 * t2165 * t3019 * t6799 + 0.79962163200000000000e-9 * t1853 * t9988 * t31580 - 0.79962163200000000000e-9 * t1844 * t9988 * t31584 + 0.81442944000000000000e-7 * t671 * t31588 * t334 - 0.69411600000000000000e-3 * t5125 * t2999 * t30945 + 0.10411740000000000000e-2 * t9016 * t2999 * t26002 + 0.71077478400000000000e-6 * t9851 * t9977 * t334 - 0.39981081600000000000e-6 * t1849 * t9977 * t31580 + 0.39981081600000000000e-6 * t1839 * t9977 * t31584;
14218   t31654 = -0.36196864000000000000e-4 * t666 * t31316 * t334 + 0.20823480000000000000e-5 * t2153 * t3019 * t30945 - 0.31235220000000000000e-5 * t1775 * t3019 * t26002 - 0.49359360000000000000e-2 * t8960 * t31161 + 0.12494088000000000000e-4 * t5038 * t3019 * t26242 - 0.20823480000000000000e-4 * t5624 * t3019 * t6794 + 0.16658784000000000000e-4 * t1775 * t9504 * t5791 - 0.22211712000000000000e-4 * t2165 * t9504 * t2211 - 0.22489358400000000000e-6 * t1853 * t10025 * t9689 + 0.22489358400000000000e-6 * t1844 * t10025 * t9693 + 0.20823480000000000000e-2 * t29031 * t2999 * t31187 + 0.18509760000000000000e-2 * t29189 * t2196 * t31433 + 0.37019520000000000000e-2 * t29201 * t2196 * t31366 - 0.55529280000000000000e-2 * t9016 * t3068 * t5791 + 0.74039040000000000000e-2 * t5110 * t3068 * t2211 + 0.49359360000000000000e-2 * t8967 * t31181;
14219   t31669 = t67 * t127 * t10191;
14220   t31671 = t2423 * t2983;
14221   t31673 = t691 * t9598;
14222   t31675 = 0.3e1 / 0.8e1 * t1888 * t1889 * t3126 - 0.3e1 / 0.32e2 * t380 * t10192 - 0.3e1 / 0.32e2 * t7257 * t959 + t29497 / 0.48e2 + 0.16081979498692535067e2 * t4193 * t9931 + 0.10000000000000000000e1 * t6557 * t3134 + 0.16081979498692535067e2 * t4201 * t9931 + 0.50000000000000000001e0 * t502 * t7418 * t974 - 0.10000000000000000000e1 * t4212 * t10056 - 0.10000000000000000000e1 * t4231 * t10056 + 0.10000000000000000000e1 * t2269 * t9584 + t275 * (t31347 + t31393 + t31432 + t31475 + t31515 + t31557 + t31607 + t31654) + t30239 / 0.72e2 + 0.50000000000000000001e0 * t1208 * t10197 + 0.10000000000000000000e1 * t2272 * t9584 + 0.50000000000000000001e0 * t1205 * t10197 + 0.10000000000000000000e1 * t6554 * t3134 - t31669 / 0.32e2 - t31671 / 0.32e2 - t31673 / 0.16e2;
14223   t31681 = t974 * t2099;
14224   t31685 = t957 * t2421;
14225   t31691 = t957 * t2537 * t378;
14226   t31737 = 0.50000000000000000001e0 * t7862 * t2995 + t30242 / 0.24e2 + 0.10000000000000000000e1 * t6551 * t3134 + 0.32163958997385070134e2 * t1213 * t2009 * t31681 - t2249 * t2250 * t31685 * t378 / 0.24e2 + t6673 * t2250 * t31691 / 0.8e1 - 0.7e1 / 0.72e2 * t5838 * t5839 * t31691 + t2249 * t6504 * t9565 * t2 / 0.6e1 - t2249 * t2250 * t3125 * t689 * t378 / 0.12e2 + 0.32163958997385070134e2 * t5942 * t9628 - 0.10000000000000000000e1 * t1231 * t2618 * t9624 + 0.32163958997385070134e2 * t6526 * t9628 + 0.16081979498692535067e2 * t1213 * t7518 * t9624 + 0.62181400000000000000e-1 * t1104 * t7454 * t974 + 0.62181400000000000000e-1 * t1104 * t2107 * t3173 - 0.96491876992155210402e2 * t4217 * t2585 * t9624 - 0.20000000000000000000e1 * t6612 * t9625 + 0.10345202583854680060e4 * t5231 * t7059 * t9624 + 0.30000000000000000000e1 * t1213 * t2816 * t9624 - 0.20000000000000000000e1 * t5980 * t855 * t30292;
14227   t31744 = t3173 * t520;
14228   t31775 = t30324 / 0.24e2 - t30328 + 0.2e1 * t2114 * t3221 + 0.10000000000000000000e1 * t1208 * t10200 + 0.32163958997385070134e2 * t1213 * t2009 * t31744 - 0.15545350000000000000e-1 * t482 * t10135 - 0.15545350000000000000e-1 * t497 * t10135 - 0.15545350000000000000e-1 * t7206 * t975 - 0.15545350000000000000e-1 * t7209 * t975 - 0.31090700000000000000e-1 * t7068 * t975 - 0.31090700000000000000e-1 * t2024 * t3174 - 0.15545350000000000000e-1 * t7073 * t975 - 0.15545350000000000000e-1 * t7126 * t975 - 0.31090700000000000000e-1 * t2027 * t3174 - 0.31090700000000000000e-1 * t2048 * t3174 + 0.10000000000000000000e1 * t502 * t2278 * t3173 + 0.10000000000000000000e1 * t1205 * t10200 - t30714 + t7797 * t990 + t30722 / 0.24e2;
14229   t31788 = t1444 * t127 * t9924;
14230   t31791 = t387 * t127 * t9916;
14231   t31794 = t387 * t127 * t9920;
14232   t31807 = t389 * t10190;
14233   t31824 = -0.20000000000000000000e1 * t6677 * t9625 - 0.20000000000000000000e1 * t1231 * t793 * t31681 + t30738 / 0.8e1 - t30741 - t387 * t18 * t31807 * t378 / 0.32e2 + t387 * t1415 * t9608 * t2 / 0.8e1 - t387 * t18 * t2986 * t7120 / 0.32e2 + 0.2e1 * t859 * t9760 + t2717 * t3033 + t629 * t10046 - t29583;
14234   t31829 = -t9911 - t9913 - t9915 + t3 * (t31675 + t31737 + t31775 + 0.50000000000000000001e0 * t7854 * t2995 + 0.10000000000000000000e1 * t2269 * t9601 + 0.10000000000000000000e1 * t7865 * t2995 + 0.50000000000000000001e0 * t502 * t522 * t10134 + 0.10000000000000000000e1 * t2272 * t9601 - t31788 / 0.72e2 - t31791 / 0.48e2 - t31794 / 0.96e2 + t29549 / 0.144e3 - 0.20000000000000000000e1 * t1231 * t793 * t31744 + t31824) - t9919 - t9923 - t9927 - t30194 + t9928 + t30195 + t30196 + t9930;
14235   t31831 = t9933 + t10047 - t30197 - t30198 - t30199 - t30200 - t30201 + t30202 + t30203 - t9352 + t30206 - t30207 - t9595 / 0.8e1;
14236   t31835 = -t9599 / 0.8e1 + t30208 + t30209 - t30210 + t10052 + t10054 - t9614 / 0.24e2 + t30213 - t9346 + t29599 - t10058 + t30215 + t30216;
14237   t31836 = t30217 - t30218 + t30220 - t10060 - t10062 - t10064 - t10137 - t10194 - t10196 + t30751 + t30752 + t10199 + t10202;
14238   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14239     v4rho3sigma[8] = t31829 + t31831 + t31835 + t31836;
14240 
14241   t31870 = t926 * t766;
14242   t31884 = t8590 * t942 + 0.15000000000000000000e1 * t2264 * t9785 + 0.50000000000000000001e0 * t418 * t8046 * t926 + 0.48245938496077605201e2 * t6606 * t9893 + 0.15000000000000000000e1 * t2315 * t9785 - 0.30000000000000000000e1 * t6532 * t9896 + 0.15000000000000000000e1 * t7841 * t3047 + 0.15000000000000000000e1 * t7838 * t3047 + 0.30000000000000000000e1 * t7849 * t3047 - 0.30000000000000000000e1 * t5531 * t9896 - 0.3e1 / 0.32e2 * t30789 + 0.30000000000000000000e1 * t1454 * t8596 * t926 - 0.30000000000000000000e1 * t1223 * t2802 * t31870 - 0.96491876992155210402e2 * t5192 * t8063 * t926 + 0.10345202583854680060e4 * t4358 * t8055 * t926 + 0.48245938496077605201e2 * t6707 * t9893 + 0.3e1 * t2717 * t3085;
14243   t31894 = t26 * t710 * t8219;
14244   t31901 = t9815 * t8215;
14245   t31912 = t26 * t2723;
14246   t31932 = t26 * t2775;
14247   t31945 = 0.12363190272000000000e-7 * t16054 * t31894 - 0.62685757440000000000e-10 * t16061 * t31894 + 0.94028636160000000000e-13 * t16066 * t31894 + 0.12928937472000000000e-7 * t5017 * t31901 - 0.21548229120000000000e-10 * t5022 * t31901 + 0.14252515200000000000e-6 * t671 * t3081 * t8199 - 0.63344512000000000000e-4 * t666 * t2964 * t8199 + 0.11105856000000000000e-1 * t29926 * t3068 * t31912 + 0.10180368000000000000e-1 * t9499 * t9862 * t9794 - 0.56861982720000000000e-8 * t666 * t9804 * t8220 - 0.18741132000000000000e-4 * t5051 * t2964 * t26087 + 0.10661621760000000000e-10 * t671 * t5021 * t26 * t8220 + 0.62470440000000000000e-2 * t29031 * t2949 * t26087 + 0.55529280000000000000e-2 * t29918 * t3068 * t31932 + 0.13327027200000000000e-3 * t7016 * t9852 * t9811 - 0.13327027200000000000e-3 * t7021 * t9852 * t9794 + 0.62470440000000000000e-5 * t2153 * t2964 * t26093;
14248   t31964 = t9811 * t25865;
14249   t31994 = t26 * t2751;
14250   t31998 = -0.93705660000000000000e-5 * t1775 * t2964 * t26133 - 0.93705660000000000000e-5 * t1775 * t2964 * t26062 + 0.12494088000000000000e-4 * t2165 * t2964 * t8356 + 0.14659729920000000000e-5 * t666 * t3081 * t8216 - 0.29319459840000000000e-8 * t671 * t9804 * t8216 - 0.10180368000000000000e-1 * t9494 * t9862 * t9811 + 0.19990540800000000000e-3 * t16138 * t31964 - 0.44978716800000000000e-6 * t16302 * t31964 - 0.20823480000000000000e-4 * t5624 * t2964 * t8191 - 0.16288588800000000000e-3 * t9851 * t25941 * t26 + 0.52787093333333333333e-2 * t3067 * t8198 * t306 * t26 + 0.69411600000000000000e-2 * t16355 * t2949 * t8191 - 0.12494088000000000000e-1 * t29064 * t2949 * t26100 + 0.37482264000000000000e-4 * t5038 * t2964 * t26100 - 0.20823480000000000000e-2 * t5125 * t2949 * t26093 + 0.31235220000000000000e-2 * t9016 * t2949 * t26133 + 0.27764640000000000000e-2 * t9494 * t3068 * t31994;
14251   t32006 = t26 * t2736;
14252   t32037 = t3053 * t8198;
14253   t32044 = 0.31235220000000000000e-2 * t9016 * t2949 * t26062 - 0.41646960000000000000e-2 * t5110 * t2949 * t8356 - 0.27764640000000000000e-2 * t9499 * t3068 * t32006 + 0.12919573333333333333e-2 * t2949 * t8199 + 0.59875200000000000000e-4 * t2964 * t8216 - 0.20950237440000000000e-5 * t5014 * t31901 - 0.34705800000000000000e-3 * t1849 * t2949 * t8229 + 0.34705800000000000000e-3 * t1839 * t2949 * t8211 + 0.71077478400000000000e-6 * t25886 * t25887 * t26 + 0.10411740000000000000e-5 * t1853 * t2964 * t8229 - 0.10411740000000000000e-5 * t1844 * t2964 * t8211 - 0.63852134400000000000e-6 * t3081 * t8220 + 0.20823480000000000000e-5 * t8339 * t934 - 0.69411600000000000000e-3 * t8339 * t932 + 0.42678944000000000000e-4 * t1794 * t32037 - 0.41899334400000000000e-6 * t1797 * t32037 + 0.83798668800000000000e-9 * t1802 * t32037;
14254   t32045 = t9794 * t2383;
14255   t32050 = t31932 * t701;
14256   t32053 = t9811 * t2358;
14257   t32056 = t31912 * t701;
14258   t32059 = t9794 * t2358;
14259   t32070 = t31994 * t701;
14260   t32073 = t32006 * t701;
14261   t32080 = t9811 * t2383;
14262   t32087 = -0.23988648960000000000e-8 * t20125 * t32045 - 0.16658784000000000000e-1 * t30040 * t9808 - 0.66635136000000000000e-4 * t19689 * t32050 + 0.12216441600000000000e-3 * t5755 * t32053 - 0.13327027200000000000e-3 * t19666 * t32056 - 0.12216441600000000000e-3 * t5758 * t32059 + 0.14992905600000000000e-6 * t19695 * t32050 - 0.27486993600000000000e-6 * t5715 * t32053 + 0.29985811200000000000e-6 * t19672 * t32056 + 0.27486993600000000000e-6 * t5720 * t32059 - 0.33317568000000000000e-4 * t5755 * t32070 + 0.33317568000000000000e-4 * t5758 * t32073 + 0.74964528000000000000e-7 * t5715 * t32070 - 0.74964528000000000000e-7 * t5720 * t32073 - 0.11994324480000000000e-5 * t20112 * t32080 + 0.23988648960000000000e-8 * t20117 * t32080 + 0.11994324480000000000e-5 * t20120 * t32045;
14263   t32118 = -0.15545350000000000000e-1 * t8528 * t927 - 0.46636050000000000000e-1 * t8531 * t927 - 0.46636050000000000000e-1 * t8534 * t927 - 0.15545350000000000000e-1 * t8548 * t927 + t275 * (t31945 + t31998 + t32044 + t32087) - t323 * t18 * t2844 * t8004 / 0.32e2 - 0.7e1 / 0.72e2 * t5275 * t18 * t28708 * t7988 + t30142 / 0.16e2 + 0.48245938496077605201e2 * t1454 * t7705 * t31870 - t28991 + 0.3e1 * t859 * t9879 - t2256 * t2257 * t31243 * t680 / 0.8e1 - t31261 / 0.32e2 - t31264 / 0.24e2 + t30176 / 0.48e2 - 0.3e1 / 0.32e2 * t8795 * t911 + t4179 * t18 * t9122 * t7988 / 0.8e1;
14264   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14265     v4rho3sigma[9] = -0.46636050000000000000e-1 * t9772 - 0.93272100000000000000e-1 * t9774 - 0.46636050000000000000e-1 * t9776 - 0.9e1 / 0.32e2 * t9778 + 0.3e1 * t9780 + 0.30000000000000000000e1 * t9781 + 0.30000000000000000000e1 * t9783 + 0.15000000000000000000e1 * t9786 + t3 * (t31884 + t32118) + 0.3e1 * t9880 + 0.6e1 * t9881 - t9408 / 0.16e2 - 0.3e1 / 0.16e2 * t9378 - 0.3e1 / 0.32e2 * t9887 - t9891 / 0.8e1 + 0.48245938496077605201e2 * t9894 - 0.30000000000000000000e1 * t9897 + t29281;
14266 
14267   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14268     v4rho3sigma[10] = 0.0e0;
14269 
14270   t32139 = t8215 * sigma[2];
14271   t32146 = t8620 * t710;
14272   t32149 = t25744 * t82;
14273   t32156 = t636 * t8198;
14274   t32159 = t633 * t8198;
14275   t32162 = t32139 * t306;
14276   t32166 = t8620 * t640 * t710;
14277   t32169 = 0.18900675200000000000e-3 * t1794 * t32139 - 0.18555419520000000000e-5 * t1797 * t32139 + 0.37110839040000000000e-8 * t1802 * t32139 + 0.94028636160000000000e-13 * t16066 * t32146 - 0.28134835200000000000e-3 * t305 * t32149 + 0.20823480000000000000e-5 * t8339 * t982 - 0.69411600000000000000e-3 * t8339 * t980 - 0.15836128000000000000e-4 * t305 * t32156 + 0.52787093333333333333e-2 * t305 * t32159 + 0.23377141333333333333e-1 * t305 * t32162 + 0.71077478400000000000e-6 * t305 * t32166;
14278   t32170 = t8219 * t82;
14279   t32199 = -0.37219668480000000000e-10 * t5022 * t32170 + 0.12363190272000000000e-7 * t16054 * t32146 - 0.62685757440000000000e-10 * t16061 * t32146 - 0.36186773760000000000e-5 * t5014 * t32170 + 0.22331801088000000000e-7 * t5017 * t32170 - 0.13327027200000000000e-3 * t5110 * t3203 * t25849 - 0.16658784000000000000e-1 * t9016 * t3068 * t6933 - 0.29985811200000000000e-3 * t1839 * t9852 * t6826 + 0.29985811200000000000e-3 * t1849 * t9852 * t6814 - 0.18741132000000000000e-4 * t5051 * t3019 * t26087 - 0.66635136000000000000e-4 * t5125 * t3203 * t25832;
14280   t32234 = 0.14992905600000000000e-6 * t2153 * t3215 * t25832 - 0.23988648960000000000e-8 * t1844 * t9988 * t25682 + 0.37482264000000000000e-4 * t5038 * t3019 * t26100 + 0.49976352000000000000e-4 * t1775 * t9504 * t6933 - 0.20823480000000000000e-2 * t5125 * t2999 * t26093 + 0.31235220000000000000e-2 * t9016 * t2999 * t26133 - 0.16658784000000000000e-1 * t30573 * t3180 * t6933 + 0.31235220000000000000e-2 * t9016 * t2999 * t26062 - 0.41646960000000000000e-2 * t5110 * t2999 * t8356 - 0.12494088000000000000e-1 * t29064 * t2999 * t26100 + 0.62470440000000000000e-2 * t29031 * t2999 * t26087;
14281   t32258 = t31406 * t6826;
14282   t32263 = -0.21532622222222222222e0 * t8198 * t280 - 0.13327027200000000000e-3 * t7021 * t9968 * t876 - 0.56861982720000000000e-8 * t666 * t1801 * t8620 * t710 - 0.10180368000000000000e-1 * t1849 * t9862 * t873 + 0.10180368000000000000e-1 * t1839 * t9862 * t876 - 0.20823480000000000000e-4 * t5624 * t3019 * t8191 - 0.33317568000000000000e-4 * t2165 * t9504 * t2723 + 0.64597866666666666667e-3 * t32159 + 0.23277408000000000000e-4 * t32156 - 0.44978716800000000000e-6 * t16302 * t32258 + 0.19990540800000000000e-3 * t16138 * t32258;
14283   t32299 = -0.67468075200000000000e-6 * t1853 * t10025 * t6814 + 0.29985811200000000000e-6 * t2165 * t3215 * t25849 + 0.67468075200000000000e-6 * t1844 * t10025 * t6826 - 0.11994324480000000000e-5 * t1849 * t9977 * t25819 + 0.11994324480000000000e-5 * t1839 * t9977 * t25682 + 0.62470440000000000000e-5 * t2153 * t3019 * t26093 - 0.93705660000000000000e-5 * t1775 * t3019 * t26133 - 0.33317568000000000000e-4 * t1849 * t3203 * t25815 + 0.74964528000000000000e-7 * t1853 * t3215 * t25815 - 0.93705660000000000000e-5 * t1775 * t3019 * t26062 + 0.12494088000000000000e-4 * t2165 * t3019 * t8356;
14284   t32331 = 0.33317568000000000000e-4 * t1839 * t3203 * t26157 - 0.74964528000000000000e-7 * t1844 * t3215 * t26157 + 0.23988648960000000000e-8 * t1853 * t9988 * t25819 + 0.10342080000000000000e-3 * t32149 + 0.83293920000000000000e-5 * t1844 * t9504 * t2736 - 0.50642703360000000000e-8 * t671 * t1801 * t8219 * t82 + 0.27764640000000000000e-2 * t1849 * t3068 * t2751 + 0.55529280000000000000e-2 * t29918 * t3180 * t2775 - 0.24988176000000000000e-1 * t9494 * t8302 - 0.27764640000000000000e-2 * t1839 * t3068 * t2736 + 0.11105856000000000000e-1 * t29926 * t3180 * t2723;
14285   t32366 = 0.24988176000000000000e-1 * t9499 * t8305 + 0.69411600000000000000e-2 * t16355 * t2999 * t8191 + 0.11105856000000000000e-1 * t5110 * t3068 * t2723 + 0.55529280000000000000e-2 * t5125 * t3068 * t2775 - 0.16658784000000000000e-4 * t2153 * t9504 * t2775 - 0.28052569600000000000e-3 * t666 * t25941 * sigma[2] + 0.10411740000000000000e-5 * t1853 * t3019 * t8229 - 0.10411740000000000000e-5 * t1844 * t3019 * t8211 + 0.10661621760000000000e-10 * t671 * t5021 * t8620 * t710 + 0.30541104000000000000e-4 * t1853 * t31316 * t873 - 0.30541104000000000000e-4 * t1844 * t31316 * t876;
14286   t32396 = 0.63118281600000000000e-6 * t671 * t640 * t8215 * sigma[2] - 0.34705800000000000000e-3 * t1849 * t2999 * t8229 + 0.27764640000000000000e-2 * t9494 * t3180 * t2751 + 0.34705800000000000000e-3 * t1839 * t2999 * t8211 - 0.27764640000000000000e-2 * t9499 * t3180 * t2736 + 0.13327027200000000000e-3 * t7016 * t9968 * t873 + 0.25321351680000000000e-5 * t666 * t25887 * t82 - 0.83293920000000000000e-5 * t1853 * t9504 * t2751 - 0.63852134400000000000e-6 * t32166 + 0.57215253333333333333e-2 * t32162 - 0.69832224000000000000e-7 * t641 * t8198;
14287   t32415 = t8219 * t716 * t82;
14288   t32419 = t8620 * t2401 * t710;
14289   t32426 = t2395 * t8628;
14290   t32427 = t32426 * t8880;
14291   t32448 = t8215 * t89 * sigma[2];
14292   t32453 = t8611 * t89;
14293   t32457 = -0.23868681481481481483e-3 * t98 * t32415 + 0.99480007111111111121e-6 * t98 * t32419 - 0.16766293333333333335e-6 * tau[1] * t8688 * t8826 * t2401 - 0.14307236977777777780e-8 * t98 * t32427 - 0.13644444444444444445e-2 * t8612 * t8813 * t89 - 0.17464888888888888890e-4 * t2347 * t8664 * t8818 * t716 - 0.10915555555555555556e1 * t2344 * t8865 + 0.87324444444444444447e-2 * t8817 * t10181 - 0.20230162962962962963e-1 * t8809 * t3116 + 0.10304284444444444445e-3 * t8825 * t10185 + 0.34111111111111111112e0 * t8655 * t8852 + 0.22093084444444444444e-1 * t98 * t32448 + 0.12370962962962962963e1 * t723 * t8847 - 0.13644444444444444444e-2 * t8850 * t32453 * t8608;
14294   t32458 = t8664 * t716;
14295   t32480 = t8198 * t79;
14296   t32485 = t8625 * t27249;
14297   t32491 = -0.17464888888888888890e-4 * t2442 * t32458 * t2347 - 0.16766293333333333335e-6 * t8859 * t8688 * t2401 * tau[1] - 0.20230162962962962963e-1 * t723 * t2388 * t10150 + 0.87324444444444444445e-2 * t2345 * t8856 + 0.10304284444444444445e-3 * t2351 * t8861 - 0.10915555555555555556e1 * t8806 * t10153 + 0.34111111111111111112e0 * t8812 * t192 * t79 + 0.12370962962962962963e1 * t8836 * t3106 - 0.56033185185185185185e0 * t98 * t32480 - 0.23873422222222222222e0 * t32480 + 0.12790122268444444445e-7 * t32427 - 0.17718604231111111113e-10 * t32485 * t27405 - 0.56553623703703703702e-2 * t32448 + 0.30334740859259259260e-3 * t32415 - 0.31977426488888888891e-5 * t32419;
14298   t32502 = t30239 / 0.48e2 - 0.3e1 / 0.32e2 * t31669 - 0.3e1 / 0.32e2 * t31671 - 0.3e1 / 0.16e2 * t31673 + t275 * (t32169 + t32199 + t32234 + t32263 + t32299 + t32331 + t32366 + t32396) + 0.48245938496077605201e2 * t6526 * t9931 + 0.30000000000000000000e1 * t2269 * t10200 - 0.30000000000000000000e1 * t1231 * t2816 * t3173 - 0.3e1 / 0.32e2 * t8799 * t959 - 0.9e1 / 0.32e2 * t2423 * t3127 - 0.9e1 / 0.32e2 * t691 * t10192 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * (t32457 + t32491) + 0.15000000000000000000e1 * t502 * t793 * t10134 + 0.15000000000000000000e1 * t2272 * t10197;
14299   t32543 = 0.30000000000000000000e1 * t7865 * t3134 + 0.15000000000000000000e1 * t7854 * t3134 + 0.10345202583854680060e4 * t5231 * t8169 * t974 + 0.48245938496077605201e2 * t5942 * t9931 + 0.48245938496077605201e2 * t1213 * t2585 * t3173 + 0.15000000000000000000e1 * t7862 * t3134 - t387 * t18 * t2986 * t8101 / 0.32e2 - 0.7e1 / 0.72e2 * t5284 * t18 * t29543 * t8080 - 0.3e1 / 0.32e2 * t387 * t18 * t31807 * t689 - 0.3e1 / 0.32e2 * t387 * t18 * t9608 * t2421 - t1444 * t18 * t30333 * t2537 / 0.8e1 + t30324 / 0.16e2 + 0.50000000000000000001e0 * t502 * t8148 * t974 + 0.15000000000000000000e1 * t2269 * t10197;
14300   t32577 = 0.3e1 * t2717 * t3221 + t30722 / 0.16e2 + 0.48245938496077605201e2 * t1213 * t2009 * t974 * t2617 - 0.30000000000000000000e1 * t1231 * t2618 * t974 * t792 - t31788 / 0.24e2 - t31791 / 0.16e2 - t31794 / 0.32e2 - 0.30000000000000000000e1 * t6677 * t10056 + 0.15000000000000000000e1 * t502 * t2618 * t3173 - 0.96491876992155210402e2 * t4217 * t8772 * t974 - t2249 * t2250 * t31685 * t689 / 0.8e1 - 0.46636050000000000000e-1 * t8554 * t975 - 0.46636050000000000000e-1 * t2528 * t3174 - 0.46636050000000000000e-1 * t8557 * t975;
14301   t32578 = t32426 * t8631;
14302   t32583 = t27151 * t800;
14303   t32584 = t32583 * t8608;
14304   t32587 = t27158 * t2487;
14305   t32588 = t32587 * t2347;
14306   t32596 = t27239 * t8631 * tau[1];
14307   t32609 = -0.45149516231111111110e2 * t193 * t32578 - 0.86886400000000000002e3 * t2473 * t8666 + 0.11819066666666666667e3 * t8656 * t32584 + 0.26236160000000000000e2 * t8661 * t32588 + 0.38119200000000000001e3 * t8679 * t32584 + 0.13084032000000000000e3 * t8682 * t32588 + 0.16791142400000000000e2 * t8685 * t32596 - 0.19149056000000000000e4 * t2462 * t8666 - 0.28846284800000000001e3 * t2477 * t8690 + 0.45312444444444444444e3 * t8694 * t32584 + 0.18101333333333333333e3 * t8706 * t32584 + 0.86886400000000000000e2 * t8709 * t32588;
14308   t32618 = t8678 * sigma[2];
14309   t32635 = 0.19149056000000000000e3 * t8697 * t32588 + 0.22242918399999999999e2 * t8712 * t32596 - 0.59095333333333333333e3 * t8850 * t8658 - 0.26236160000000000000e3 * t2442 * t8666 - 0.19059600000000000000e4 * t32618 * t8658 - 0.13084032000000000000e4 * t2450 * t8666 - 0.21776012800000000000e3 * t2453 * t8690 + 0.47872640000000000001e4 * t10122 * t8640 + 0.21721600000000000000e4 * t10106 * t8640 + 0.12202712177777777778e4 * t823 * t8644 + 0.65590399999999999999e3 * t2345 * t8640 + 0.32710079999999999999e4 * t10117 * t8640;
14310   t32641 = t8693 * sigma[2];
14311   t32644 = t8705 * sigma[2];
14312   t32657 = t32139 * t184;
14313   t32659 = t32170 * t800;
14314   t32661 = t32146 * t2487;
14315   t32663 = 0.92118072888888888891e3 * t806 * t8644 + 0.21414519466666666666e4 * t813 * t8644 - 0.22656222222222222222e4 * t32641 * t8658 - 0.90506666666666666667e3 * t32644 * t8658 - 0.16701496888888888889e4 * t3162 * t8670 - 0.12607932444444444444e4 * t3144 * t8670 - 0.29309429333333333333e4 * t3147 * t8670 + 0.39034060800000000000e2 * t8700 * t32596 - 0.50622297600000000000e3 * t2465 * t8690 + 0.36759229629629629629e2 * t32657 - 0.49405108148148148149e2 * t32659 + 0.22087196444444444445e2 * t32661;
14316   t32665 = t32485 * t27128;
14317   t32677 = t8813 * t184;
14318   t32683 = t8613 * t800;
14319   t32692 = -0.40860785777777777777e1 * t32578 + 0.27015395555555555554e0 * t32665 + 0.24247098026666666667e3 * t199 * t32661 + 0.29850919822222222221e1 * t193 * t32665 + 0.40617462518518518519e3 * t193 * t32657 + 0.40353905777777777778e3 * t199 * t32657 - 0.54236421688888888890e3 * t199 * t32659 - 0.45548888888888888888e2 * t8612 * t32677 - 0.54590646992592592594e3 * t193 * t32659 + 0.91097777777777777779e1 * t8608 * t27151 * t32683 - 0.44856552106666666667e2 * t199 * t32578 + 0.29657224533333333333e1 * t199 * t32665 + 0.24405459057777777778e3 * t193 * t32661;
14320   t32724 = -0.15545350000000000000e-1 * t166 * t180 * (t32609 + t32635 + t32663 + t32692) - 0.93272100000000000000e-1 * t2531 * t3174 - 0.46636050000000000000e-1 * t771 * t10135 - 0.15545350000000000000e-1 * t8515 * t975 - 0.46636050000000000000e-1 * t2551 * t3174 - 0.46636050000000000000e-1 * t779 * t10135 - 0.15545350000000000000e-1 * t8551 * t975 + t8590 * t990 + 0.30000000000000000000e1 * t1213 * t8369 * t974 + 0.30000000000000000000e1 * t2272 * t10200 - 0.30000000000000000000e1 * t6612 * t10056 + t4187 * t18 * t9357 * t8080 / 0.8e1 + 0.3e1 * t859 * t10046 - t29583;
14321   t32734 = -0.46636050000000000000e-1 * t9910 - 0.93272100000000000000e-1 * t9912 - 0.93272100000000000000e-1 * t9914 - 0.3e1 / 0.16e2 * t9918 - 0.3e1 / 0.32e2 * t9922 - t9926 / 0.8e1 + t3 * (t32502 + t32543 + t32577 + t32724) + 0.3e1 * t9928 + 0.6e1 * t9929 + 0.48245938496077605201e2 * t9932 + 0.3e1 * t10047 - 0.3e1 / 0.16e2 * t9595 - 0.3e1 / 0.16e2 * t9599;
14322   t32747 = 0.30000000000000000000e1 * t10051 + 0.30000000000000000000e1 * t10053 - t9614 / 0.16e2 + t29599 - 0.30000000000000000000e1 * t10057 - 0.9e1 / 0.16e2 * t10059 - 0.46636050000000000000e-1 * t10061 - 0.93272100000000000000e-1 * t10063 - 0.46636050000000000000e-1 * t10136 - 0.9e1 / 0.32e2 * t10193 - 0.9e1 / 0.32e2 * t10195 + 0.15000000000000000000e1 * t10198 + 0.30000000000000000000e1 * t10201;
14323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14324     v4rho3sigma[11] = t32734 + t32747;
14325 
14326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14327     v4rho3lapl[0] = 0.0e0;
14328 
14329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14330     v4rho3lapl[1] = 0.0e0;
14331 
14332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14333     v4rho3lapl[2] = 0.0e0;
14334 
14335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14336     v4rho3lapl[3] = 0.0e0;
14337 
14338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14339     v4rho3lapl[4] = 0.0e0;
14340 
14341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14342     v4rho3lapl[5] = 0.0e0;
14343 
14344   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14345     v4rho3lapl[6] = 0.0e0;
14346 
14347   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
14348     v4rho3lapl[7] = 0.0e0;
14349 
14350   t32754 = t10237 / 0.16e2;
14351   t32761 = -t10217 / 0.16e2 - 0.3e1 / 0.16e2 * t10222 - 0.3e1 / 0.32e2 * t10226 - t10231 / 0.8e1 + 0.3e1 * t10233 - 0.3e1 / 0.16e2 * t10234 + t32754 - 0.3e1 / 0.16e2 * t10240 - 0.9e1 / 0.32e2 * t10300 - 0.9e1 / 0.32e2 * t10302 - 0.9e1 / 0.16e2 * t10304 - 0.30000000000000000000e1 * t10307 + 0.30000000000000000000e1 * t10310;
14352   t32764 = t5277 * t1007;
14353   t32803 = -0.7e1 / 0.72e2 * t5275 * t18 * t32764 * t4180 - t323 * t18 * t3230 * t4270 / 0.32e2 - 0.30000000000000000000e1 * t1223 * t1225 * t3309 + 0.15000000000000000000e1 * t1461 * t10558 + t4179 * t18 * t10228 * t4180 / 0.8e1 + 0.48245938496077605201e2 * t4209 * t10555 + 0.50000000000000000001e0 * t418 * t4352 * t1024 - 0.30000000000000000000e1 * t5212 * t10306 + 0.15000000000000000000e1 * t5199 * t3275 + 0.30000000000000000000e1 * t1454 * t4389 * t1024 + 0.10345202583854680060e4 * t4358 * t4362 * t1024 - 0.15545350000000000000e-1 * t4935 * t1025 - 0.46636050000000000000e-1 * t4938 * t1025 - 0.46636050000000000000e-1 * t1379 * t3310;
14354   t32805 = t14 * t431 * t3267;
14355   t32824 = t1126 * t55;
14356   t32827 = t339 * t355 * tau[0];
14357   t32830 = t3283 * t154 * t4051;
14358   t32832 = t356 * t1126;
14359   t32834 = t1167 * t148;
14360   t32836 = 0.1e1 / t5355;
14361   t32838 = t32836 * t140 * t4051;
14362   t32841 = t28825 * t1134;
14363   t32848 = t28831 * tau[0];
14364   t32853 = -0.92367407407407407407e2 * t32824 + 0.68855703703703703704e3 * t32827 + 0.62977777777777777776e3 * t32830 - 0.92367407407407407407e2 * t32832 - 0.12280666666666666667e4 * t32834 + 0.31677333333333333333e4 * t16574 * t32838 + 0.86886400000000000002e3 * t16577 * t32841 + 0.30878666666666666667e4 * t16596 * t32838 + 0.56731520000000000001e3 * t16479 * t32841 + 0.30638489600000000001e3 * t16586 * t32848 + 0.13901824000000000000e3 * t16583 * t32848;
14365   t32862 = t5374 * t1134;
14366   t32865 = t5347 * tau[0];
14367   t32878 = t8992 * t140;
14368   t32881 = 0.81633333333333333333e4 * t16558 * t32838 + 0.86069999999999999999e4 * t16568 * t32838 + 0.21749973333333333334e4 * t16580 * t32841 + 0.18297216000000000000e4 * t16564 * t32841 - 0.78740800000000000000e4 * t5373 * t32862 - 0.17666901333333333334e4 * t5378 * t32865 - 0.51412939999999999999e4 * t5384 * t32862 - 0.53346858666666666669e3 * t5387 * t32865 - 0.26604198400000000001e4 * t5351 * t32865 + 0.41977856000000000001e2 * t16485 * t32848 + 0.20934451200000000000e3 * t16493 * t32848 - 0.164215296e4 * t470 * t32878;
14369   t32883 = t9068 * t448;
14370   t32894 = t9071 * t1326;
14371   t32898 = t4138 * t16487 * t5330;
14372   t32905 = t1134 * t5320;
14373   t32914 = 0.91095563377777777782e3 * t470 * t32883 - 0.288181152e4 * t460 * t32878 + 0.68767890488888888891e3 * t453 * t32883 + 0.15986345386666666667e4 * t460 * t32883 - 0.123965856e4 * t453 * t32878 - 0.31227248640000000000e3 * t460 * t32894 + 0.20818165760000000000e2 * t460 * t32898 - 0.17794334720000000001e3 * t470 * t32894 + 0.11862889813333333334e2 * t470 * t32898 - 0.39627533333333333334e3 * t32905 * t5323 + 0.36380000000000000000e3 * t4051 * t32836 * t16631 + 0.43726933333333333335e2 * t1134 * t16559 * t16603;
14374   t32919 = t1133 * t1150;
14375   t32921 = t4097 * t1167;
14376   t32924 = t16470 * t3283 * t4051;
14377   t32926 = t5394 * tau[0];
14378   t32941 = -0.13432913920000000000e3 * t453 * t32894 + 0.89552759466666666670e1 * t453 * t32898 + 0.68855703703703703704e3 * t32919 - 0.12280666666666666667e4 * t32921 + 0.62977777777777777777e3 * t32924 + 0.95586122666666666667e4 * t1316 * t32926 + 0.13989449244444444445e5 * t1283 * t32926 + 0.63475342222222222222e4 * t1303 * t32926 + 0.19166972444444444445e4 * t1312 * t32926 - 0.16581852000000000000e5 * t5413 * t32862 - 0.19710913333333333333e5 * t5417 * t32862 - 0.38936413866666666669e4 * t5343 * t32865;
14379   t32948 = t14 * t127 * t10298;
14380   t32989 = 0.67792592592592592593e1 * t32824 - 0.17566767407407407408e-1 * t356 * t8992 * t40 + 0.17974281481481481481e1 * t356 * t8989 * t30 - 0.27943822222222222224e-4 * t5346 * t355 * t10294 * tau[0] + 0.67065173333333333338e-4 * t356 * t9068 * t349 - 0.89420231111111111120e-7 * t356 * t9071 * t1185 - 0.46573037037037037038e1 * t346 * t355 * t3249 + 0.42980000000000000001e1 * t1285 * t148 * t10251 + 0.19648000000000000001e-1 * t1293 * t355 * t10255 - 0.13644444444444444445e1 * t10494 * t154 * t1000 * t4051 - 0.65493333333333333335e-2 * t5320 * t148 * t3253 * t1134 - 0.50536296296296296298e2 * t32827 - 0.46222222222222222224e2 * t32830 + 0.67792592592592592593e1 * t32832;
14381   t33026 = 0.90133333333333333335e2 * t32834 + 0.67065173333333333338e-4 * t1182 * t55 * t10294 - 0.89420231111111111120e-7 * t5357 * t55 * t1179 * t1185 - 0.50536296296296296297e2 * t32919 + 0.17974281481481481481e1 * t1154 * t55 * t1000 + 0.90133333333333333334e2 * t32921 - 0.17566767407407407408e-1 * t1160 * t55 * t3253 - 0.46222222222222222223e2 * t32924 - 0.46573037037037037037e1 * t1138 * t4113 * tau[0] + 0.19648000000000000001e-1 * t1312 * t4103 * tau[0] - 0.27943822222222222224e-4 * t5387 * t28774 * tau[0] + 0.42980000000000000000e1 * t4098 * t4099 * t1134 - 0.13644444444444444444e1 * t16805 * t10494 * t30 * t4051 - 0.65493333333333333334e-2 * t5384 * t28770 * t1134;
14382   t33032 = t32805 / 0.16e2 - 0.46636050000000000000e-1 * t4941 * t1025 - 0.93272100000000000000e-1 * t1382 * t3310 - 0.46636050000000000000e-1 * t395 * t10547 - 0.15545350000000000000e-1 * t4913 * t1025 - 0.46636050000000000000e-1 * t1265 * t3310 - 0.46636050000000000000e-1 * t413 * t10547 - 0.30000000000000000000e1 * t5215 * t10306 + t4974 * t1045 + 0.3e1 * t1739 * t3366 - 0.15545350000000000000e-1 * t115 * t136 * (t32853 + t32881 + t32914 + t32941) - 0.3e1 / 0.32e2 * t32948 - 0.9e1 / 0.32e2 * t316 * t10299 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (t32989 + t33026);
14383   t33034 = t1113 * t3227;
14384   t33036 = t316 * t10239;
14385   t33047 = t325 * t10297;
14386   t33056 = t1756 * t3266;
14387   t33062 = t323 * t431 * t3231;
14388   t33065 = t323 * t127 * t10220;
14389   t33068 = t323 * t127 * t10224;
14390   t33071 = t1754 * t127 * t10229;
14391   t33075 = -0.3e1 / 0.32e2 * t33034 - 0.3e1 / 0.16e2 * t33036 - 0.96491876992155210402e2 * t5192 * t5193 * t1024 - 0.3e1 / 0.32e2 * t4399 * t1009 - 0.9e1 / 0.32e2 * t1113 * t3268 + 0.15000000000000000000e1 * t1387 * t10558 - 0.3e1 / 0.32e2 * t323 * t18 * t33047 * t314 - 0.3e1 / 0.32e2 * t323 * t18 * t10219 * t1111 - t1754 * t18 * t33056 * t1249 / 0.8e1 + t33062 / 0.48e2 - t33065 / 0.16e2 - t33068 / 0.32e2 - t33071 / 0.24e2 + 0.3e1 * t629 * t10469;
14392   t33091 = 0.44e2 / 0.9e1 * t48 * t1126;
14393   t33093 = 0.880e3 / 0.27e2 * t20023 * t93;
14394   t33094 = -t33091 - t33093;
14395   t33101 = -t33091 + t33093;
14396   t33112 = t10361 * t5721;
14397   t33115 = t1033 * t661;
14398   t33118 = t10388 * t651;
14399   t33121 = t10378 * t5716;
14400   t33126 = -0.20823480000000000000e-1 * t20102 * t3349 * t4983 + 0.31235220000000000000e-2 * t5051 * t10330 * t1806 + 0.10411740000000000000e-1 * t5624 * t10330 * t1765 - 0.62470440000000000000e-2 * t5038 * t10312 * t1765 + 0.10411740000000000000e-2 * t16168 * t1042 + 0.17352900000000000000e-3 * t662 * t307 * t33094 - 0.45630e2 * t5050 * t3326 * t1820 - 0.17352900000000000000e-3 * t656 * t307 * t33101 - 0.45630e2 * t16325 * t10410 - 0.10411740000000000000e-2 * t5559 * t3346 + 0.60840e2 * t16219 * t1036 * t4983 + 0.66635136000000000000e-1 * t16305 * t33112 - 0.15210e2 * t33115 * t4983 - 0.7605e1 * t33118 * t653 - 0.33317568000000000000e-1 * t16289 * t33121 + 0.99952704000000000000e-4 * t16297 * t33121;
14401   t33127 = t3329 * t648;
14402   t33128 = t33127 * t334;
14403   t33131 = t1036 * t1827;
14404   t33132 = t33131 * t334;
14405   t33135 = t10361 * t1155;
14406   t33144 = t10395 * t334;
14407   t33147 = t10398 * t334;
14408   t33150 = t1036 * sigma[0];
14409   t33151 = t33150 * t5092;
14410   t33154 = t33150 * t19614;
14411   t33157 = t3318 * t653;
14412   t33158 = t33157 * t334;
14413   t33161 = t1033 * t1820;
14414   t33162 = t33161 * t334;
14415   t33165 = t10378 * t1155;
14416   t33170 = t10410 * t334;
14417   t33177 = -0.16658784000000000000e-1 * t5011 * t33128 - 0.83293920000000000000e-2 * t5011 * t33132 - 0.26654054400000000000e-3 * t16138 * t33135 + 0.49976352000000000000e-4 * t5005 * t33128 + 0.24988176000000000000e-4 * t5005 * t33132 + 0.59971622400000000000e-6 * t16302 * t33135 + 0.22211712000000000000e-1 * t5797 * t33144 + 0.11105856000000000000e-1 * t5797 * t33147 - 0.91623312000000000000e-4 * t5005 * t33151 + 0.12216441600000000000e-3 * t5801 * t33154 - 0.16658784000000000000e-1 * t5011 * t33158 - 0.83293920000000000000e-2 * t5011 * t33162 - 0.26654054400000000000e-3 * t16138 * t33165 + 0.49976352000000000000e-4 * t5005 * t33158 - 0.55529280000000000000e-1 * t19757 * t33170 + 0.24988176000000000000e-4 * t5005 * t33162 + 0.59971622400000000000e-6 * t16302 * t33165;
14418   t33179 = t1033 * sigma[0];
14419   t33180 = t33179 * t5092;
14420   t33197 = t640 * t3329;
14421   t33201 = t1801 * t1036;
14422   t33211 = t640 * t3318;
14423   t33215 = t1801 * t1033;
14424   t33234 = -0.20360736000000000000e-1 * t5777 * t33180 + 0.61082208000000000000e-4 * t5782 * t33180 + 0.15836128000000000000e-1 * t1849 * t3332 * t4093 - 0.47508384000000000000e-4 * t1853 * t3342 * t4093 + 0.47508384000000000000e-4 * t1844 * t3359 * t4093 - 0.10661621760000000000e-5 * t1839 * t10341 * t4075 + 0.19990540800000000000e-6 * t1844 * t33197 * t1155 + 0.21323243520000000000e-8 * t1844 * t33201 * t4075 + 0.88846848000000000000e-4 * t1849 * t10319 * t1155 + 0.10661621760000000000e-5 * t1849 * t10323 * t4075 - 0.19990540800000000000e-6 * t1853 * t33211 * t1155 - 0.21323243520000000000e-8 * t1853 * t33215 * t4075 - 0.12494088000000000000e-1 * t16220 * t3349 * t19607 - 0.88846848000000000000e-4 * t1839 * t10337 * t1155 + 0.31235220000000000000e-2 * t5051 * t3332 * t19589 - 0.62470440000000000000e-2 * t5038 * t3332 * t5031 - 0.12494088000000000000e-1 * t5038 * t10330 * t5628;
14425   t33241 = t1033 * t1827;
14426   t33242 = t33241 * t334;
14427   t33245 = t10372 * t1155;
14428   t33248 = t3318 * t648;
14429   t33249 = t33248 * t334;
14430   t33256 = t3326 * t1155;
14431   t33271 = t1033 * t1765;
14432   t33272 = t33271 * t334;
14433   t33275 = t10378 * t1127;
14434   t33280 = 0.31235220000000000000e-2 * t5051 * t3349 * t19624 - 0.62470440000000000000e-2 * t5038 * t3349 * t16396 + 0.55529280000000000000e-2 * t5777 * t33242 + 0.17769369600000000000e-3 * t19689 * t33245 - 0.33317568000000000000e-4 * t5782 * t33249 - 0.16658784000000000000e-4 * t5782 * t33242 - 0.39981081600000000000e-6 * t19695 * t33245 + 0.35538739200000000000e-3 * t19666 * t33256 - 0.66635136000000000000e-4 * t5801 * t33144 - 0.33317568000000000000e-4 * t5801 * t33147 - 0.79962163200000000000e-6 * t19672 * t33256 + 0.11105856000000000000e-1 * t5777 * t33249 - 0.40721472000000000000e-1 * t5797 * t33154 + 0.16658784000000000000e-3 * t19761 * t33170 + 0.33317568000000000000e-1 * t16305 * t33272 + 0.30541104000000000000e-1 * t5011 * t33275 - 0.99952704000000000000e-4 * t16310 * t33272;
14435   t33285 = t1036 * t1806;
14436   t33286 = t33285 * t334;
14437   t33328 = -0.91623312000000000000e-4 * t5005 * t33275 - 0.16658784000000000000e-1 * t16289 * t33286 + 0.30541104000000000000e-1 * t5011 * t33151 + 0.49976352000000000000e-4 * t16297 * t33286 + 0.2535e1 * t33101 * t297 - 0.62470440000000000000e-2 * t5038 * t3349 * t19589 + 0.10411740000000000000e-1 * t5624 * t3349 * t5031 + 0.32577177600000000000e-3 * t1839 * t3359 * t4067 - 0.73298649600000000000e-6 * t1844 * t10341 * t4067 + 0.22211712000000000000e-1 * t16400 * t5046 * t10378 - 0.10180368000000000000e-1 * t1849 * t10312 * t1127 - 0.32577177600000000000e-3 * t1849 * t3342 * t4067 + 0.30541104000000000000e-4 * t1853 * t10319 * t1127 + 0.73298649600000000000e-6 * t1853 * t10323 * t4067 + 0.22211712000000000000e-1 * t16400 * t5046 * t10361 - 0.29615616000000000000e-1 * t16181 * t5046 * t3326;
14438   t33341 = t306 * t10406;
14439   t33345 = t287 * t10406;
14440   t33349 = t306 * t10388;
14441   t33353 = t287 * t10388;
14442   t33377 = 0.10180368000000000000e-1 * t1839 * t10330 * t1127 - 0.14807808000000000000e-1 * t16185 * t5046 * t10372 + 0.62470440000000000000e-2 * t5051 * t10312 * t5628 + 0.31235220000000000000e-2 * t5051 * t3332 * t16396 - 0.27764640000000000000e-2 * t1839 * t33341 * t334 + 0.83293920000000000000e-5 * t1844 * t33345 * t334 + 0.27764640000000000000e-2 * t1849 * t33349 * t334 - 0.83293920000000000000e-5 * t1853 * t33353 * t334 - 0.30541104000000000000e-4 * t1844 * t10337 * t1127 + 0.31235220000000000000e-1 * t16225 * t3349 * t16306 - 0.7605e1 * t10453 * t1820 - 0.2535e1 * t3321 * t4998 - 0.2535e1 * t16335 * t1036 - 0.7605e1 * t5162 * t3329 - 0.7605e1 * t1836 * t10406 - 0.2535e1 * t652 * t33094 + 0.15210e2 * t10464 * t5031;
14443   t33383 = t3318 * t304;
14444   t33425 = 0.15210e2 * t16322 * t3326 + 0.30420e2 * t5175 * t10395 + 0.15210e2 * t33383 * t1765 - 0.12494088000000000000e-1 * t16220 * t3332 * t16306 - 0.15836128000000000000e-1 * t1839 * t3349 * t4093 + 0.55529280000000000000e-2 * t19947 * t3339 - 0.16658784000000000000e-4 * t19950 * t3343 + 0.15210e2 * t5175 * t10398 + 0.15210e2 * t1764 * t10406 * t653 + 0.15210e2 * t1764 * t3329 * t1820 + 0.5070e1 * t1764 * t1036 * t4998 - 0.34705800000000000000e-3 * t2153 * t3332 * t4991 + 0.15617610000000000000e-2 * t1775 * t10312 * t1820 + 0.52058700000000000000e-3 * t1775 * t3332 * t4998 + 0.10411740000000000000e-1 * t16225 * t3332 * t4983 - 0.74039040000000000000e-2 * t5045 * t5046 * t3318 - 0.11846246400000000000e-3 * t16258 * t16259 * t1033;
14445   t33474 = 0.15617610000000000000e-2 * t1775 * t10330 * t1827 + 0.52058700000000000000e-3 * t1775 * t3349 * t4991 - 0.20823480000000000000e-2 * t2165 * t10330 * t1820 - 0.69411600000000000000e-3 * t2165 * t3349 * t4998 + 0.74039040000000000000e-2 * t5077 * t5046 * t3329 + 0.11846246400000000000e-3 * t16263 * t16259 * t1036 + 0.15617610000000000000e-2 * t1775 * t33341 * t648 - 0.20823480000000000000e-2 * t2165 * t33341 * t653 - 0.10411740000000000000e-2 * t2153 * t33349 * t648 + 0.15617610000000000000e-2 * t1775 * t33349 * t653 + 0.27147648000000000000e-1 * t5045 * t16174 * t1033 - 0.27147648000000000000e-1 * t5077 * t16174 * t1036 - 0.10411740000000000000e-2 * t10970 * t10416 + 0.31235220000000000000e-2 * t20041 * t3336 - 0.10411740000000000000e-2 * t2153 * t10312 * t1827 - 0.19990540800000000000e-3 * t16310 * t33112 - 0.45630e2 * t5050 * t3329 * t1765;
14446   t33488 = t316 * t10236;
14447   t33492 = 0.5e1 / 0.144e3 * t14 * t1415 * t1008;
14448   t33497 = t1024 * t1431;
14449   t33515 = t275 * (t33126 + t33177 + t33234 + t33280 + t33328 + t33377 + t33425 + t33474) + 0.15000000000000000000e1 * t4196 * t3275 + 0.30000000000000000000e1 * t4382 * t3275 + 0.48245938496077605201e2 * t1454 * t1457 * t3309 + 0.48245938496077605201e2 * t4223 * t10555 + t33488 / 0.16e2 - t33492 + 0.30000000000000000000e1 * t1461 * t10552 + 0.30000000000000000000e1 * t1387 * t10552 + 0.48245938496077605201e2 * t1454 * t4366 * t33497 + 0.15000000000000000000e1 * t418 * t1432 * t3309 - t2256 * t2257 * t1007 * t1111 * t314 / 0.8e1 - 0.30000000000000000000e1 * t1223 * t1432 * t10771 + 0.15000000000000000000e1 * t418 * t441 * t10546;
14450   t33529 = 0.3e1 * t10470 + 0.6e1 * t10471 + t3 * (t32803 + t33032 + t33075 + t33515) - 0.46636050000000000000e-1 * t10473 - 0.93272100000000000000e-1 * t10475 - 0.93272100000000000000e-1 * t10477 - 0.46636050000000000000e-1 * t10479 - 0.93272100000000000000e-1 * t10481 - 0.46636050000000000000e-1 * t10548 + 0.30000000000000000000e1 * t10550 + 0.30000000000000000000e1 * t10553 + 0.48245938496077605201e2 * t10556 + 0.15000000000000000000e1 * t10559;
14451   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14452     v4rho3tau[0] = t32761 + t33529;
14453 
14454   t33532 = t10577 / 0.16e2;
14455   t33555 = t1108 * t3372;
14456   t33569 = t380 * t10576;
14457   t33573 = 0.5e1 / 0.144e3 * t67 * t1415 * t1063;
14458   t33581 = -0.46636050000000000000e-1 * t4916 * t1080 - 0.15545350000000000000e-1 * t4931 * t1080 - 0.15545350000000000000e-1 * t4944 * t1080 - 0.46636050000000000000e-1 * t4947 * t1080 - 0.30000000000000000000e1 * t4212 * t10759 - 0.30000000000000000000e1 * t4231 * t10759 - 0.3e1 / 0.32e2 * t4395 * t1064 - 0.3e1 / 0.32e2 * t33555 - t2249 * t2250 * t1062 * t1106 * t378 / 0.8e1 + 0.3e1 * t629 * t10747 + 0.15000000000000000000e1 * t1208 * t10756 + 0.3e1 * t1739 * t3437 + t4974 * t1099 + t33569 / 0.16e2 - t33573 + 0.30000000000000000000e1 * t1213 * t5208 * t1079 + t4187 * t18 * t10586 * t4188 / 0.8e1;
14459   t33596 = t5286 * t1062;
14460   t33602 = t387 * t431 * t3376;
14461   t33605 = t387 * t127 * t10582;
14462   t33608 = t1444 * t127 * t10587;
14463   t33634 = tau[0] * t93;
14464   t33635 = t1160 * t306 * t33634;
14465   t33644 = t1801 * t1090;
14466   t33660 = t1801 * t1087;
14467   t33671 = t3416 * t1126 * t93;
14468   t33674 = 0.31235220000000000000e-2 * t5051 * t3421 * t19624 - 0.62470440000000000000e-2 * t5038 * t3421 * t16396 - 0.62470440000000000000e-2 * t5038 * t3421 * t19589 - 0.29615616000000000000e-1 * t16181 * t5046 * t3396 - 0.24679680000000000000e-1 * t5077 * t33635 + 0.10411740000000000000e-1 * t5624 * t3421 * t5031 - 0.10661621760000000000e-5 * t1839 * t10733 * t4075 + 0.21323243520000000000e-8 * t1844 * t33644 * t4075 + 0.31235220000000000000e-2 * t5051 * t3402 * t16396 + 0.31235220000000000000e-2 * t5051 * t3402 * t19589 - 0.62470440000000000000e-2 * t5038 * t3402 * t5031 + 0.10661621760000000000e-5 * t1849 * t10723 * t4075 - 0.21323243520000000000e-8 * t1853 * t33660 * t4075 - 0.12494088000000000000e-1 * t16220 * t3421 * t19607 + 0.73298649600000000000e-6 * t1853 * t10723 * t4067 - 0.56557600000000000000e-2 * t1844 * t33671;
14469   t33719 = 0.55529280000000000000e-2 * t19947 * t3409 - 0.16658784000000000000e-4 * t19950 * t3413 - 0.15836128000000000000e-1 * t1839 * t3421 * t4093 + 0.47508384000000000000e-4 * t1844 * t3431 * t4093 + 0.31235220000000000000e-1 * t16225 * t3421 * t16306 + 0.32577177600000000000e-3 * t1839 * t3431 * t4067 - 0.73298649600000000000e-6 * t1844 * t10733 * t4067 - 0.12494088000000000000e-1 * t16220 * t3402 * t16306 + 0.15836128000000000000e-1 * t1849 * t3402 * t4093 - 0.47508384000000000000e-4 * t1853 * t3412 * t4093 - 0.56557600000000000000e-2 * t1853 * t33671 - 0.34705800000000000000e-2 * t19950 * t3418 + 0.22211712000000000000e-1 * t16400 * t5046 * t10606 - 0.14807808000000000000e-1 * t16185 * t5046 * t10629 + 0.22211712000000000000e-1 * t16400 * t5046 * t10638 - 0.32577177600000000000e-3 * t1849 * t3412 * t4067;
14470   t33724 = t1150 * t10621 * sigma[0];
14471   t33727 = t10629 * t5721;
14472   t33731 = t1150 * t10612 * sigma[0];
14473   t33739 = t352 * t10612 * t653;
14474   t33744 = t10606 * t5721;
14475   t33759 = t10606 * t1127;
14476   t33762 = -0.24679680000000000000e-1 * t5045 * t33635 + 0.16658784000000000000e-3 * t5005 * t33724 - 0.33317568000000000000e-1 * t16289 * t33727 + 0.37019520000000000000e-1 * t5777 * t33731 + 0.99952704000000000000e-4 * t16297 * t33727 - 0.11105856000000000000e-3 * t5782 * t33731 + 0.20823480000000000000e-1 * t19862 * t33739 - 0.16658784000000000000e-3 * t5005 * t33731 + 0.66635136000000000000e-1 * t16305 * t33744 - 0.19990540800000000000e-3 * t16310 * t33744 + 0.41646960000000000000e-1 * t19857 * t33739 - 0.74039040000000000000e-1 * t5797 * t33724 + 0.22211712000000000000e-3 * t5801 * t33724 - 0.55529280000000000000e-1 * t5011 * t33724 + 0.55529280000000000000e-1 * t5011 * t33731 - 0.91623312000000000000e-4 * t5005 * t33759;
14477   t33763 = t3396 * t1127;
14478   t33768 = t1130 * t10612;
14479   t33772 = t1087 * t1765 * t334;
14480   t33775 = t10638 * t1127;
14481   t33782 = t10629 * t1127;
14482   t33790 = t10670 * t334;
14483   t33793 = t93 * t1765;
14484   t33794 = t352 * t33793;
14485   t33797 = t1090 * t33;
14486   t33798 = t33797 * t16140;
14487   t33801 = t33797 * t29324;
14488   t33804 = t93 * t33;
14489   t33805 = t4071 * t33804;
14490   t33812 = -0.40721472000000000000e-1 * t5797 * t33763 + 0.12216441600000000000e-3 * t5801 * t33763 + 0.92548800000000000000e-2 * t5725 * t33768 + 0.33317568000000000000e-1 * t16305 * t33772 + 0.30541104000000000000e-1 * t5011 * t33775 - 0.99952704000000000000e-4 * t16310 * t33772 - 0.91623312000000000000e-4 * t5005 * t33775 - 0.20360736000000000000e-1 * t5777 * t33782 + 0.61082208000000000000e-4 * t5782 * t33782 + 0.5070e1 * t1764 * t1090 * t4998 + 0.16658784000000000000e-3 * t19761 * t33790 - 0.34705800000000000000e-1 * t19867 * t33794 - 0.26654054400000000000e-3 * t16138 * t33798 + 0.35538739200000000000e-3 * t19666 * t33801 + 0.29615616000000000000e-3 * t5758 * t33805 + 0.59971622400000000000e-6 * t16302 * t33798 - 0.79962163200000000000e-6 * t19672 * t33801;
14491   t33815 = t4062 * t10600;
14492   t33824 = t10629 * t1155;
14493   t33827 = t93 * t1827;
14494   t33828 = t352 * t33827;
14495   t33832 = t1087 * t1820 * t334;
14496   t33835 = t10638 * t1155;
14497   t33842 = t93 * t1820;
14498   t33843 = t352 * t33842;
14499   t33848 = t1087 * t661;
14500   t33858 = -0.58614240000000000000e-1 * t5735 * t33815 + 0.29615616000000000000e-3 * t5755 * t33805 + 0.17584272000000000000e-3 * t5740 * t33815 - 0.66635136000000000000e-6 * t5715 * t33805 - 0.39981081600000000000e-6 * t19695 * t33824 - 0.34705800000000000000e-2 * t5725 * t33828 - 0.83293920000000000000e-2 * t5011 * t33832 - 0.26654054400000000000e-3 * t16138 * t33835 + 0.24988176000000000000e-4 * t5005 * t33832 + 0.59971622400000000000e-6 * t16302 * t33835 + 0.52058700000000000000e-2 * t5730 * t33843 + 0.30541104000000000000e-1 * t5011 * t33759 - 0.15210e2 * t33848 * t4983 - 0.67600000000000000000e2 * t1836 * t10650 + 0.10411740000000000000e-2 * t16168 * t1096 + 0.82622222222222222221e2 * t652 * t4131 * t93;
14501   t33904 = 0.52058700000000000000e-3 * t1775 * t3421 * t4991 - 0.69411600000000000000e-3 * t2165 * t3421 * t4998 + 0.11846246400000000000e-3 * t16263 * t16259 * t1090 - 0.10411740000000000000e-2 * t10970 * t10695 - 0.34705800000000000000e-3 * t2153 * t3402 * t4991 + 0.52058700000000000000e-3 * t1775 * t3402 * t4998 + 0.27147648000000000000e-1 * t5045 * t16174 * t1087 - 0.10140000000000000000e3 * t19902 * t10692 - 0.50700000000000000000e2 * t5697 * t3417 * t1820 + 0.15210000000000000000e3 * t19838 * t3417 * t1765 - 0.11846246400000000000e-3 * t16258 * t16259 * t1087 - 0.27147648000000000000e-1 * t5077 * t16174 * t1090 - 0.20823480000000000000e-1 * t20102 * t3421 * t4983 + 0.13520000000000000000e3 * t5697 * t10661 * t653 + 0.31235220000000000000e-2 * t20041 * t3406 + 0.10411740000000000000e-1 * t16225 * t3402 * t4983;
14502   t33919 = t1130 * t10621;
14503   t33928 = t1090 * t1827;
14504   t33929 = t33928 * t334;
14505   t33936 = t10677 * t334;
14506   t33943 = 0.15210e2 * t10680 * t5031 + 0.15210e2 * t16322 * t3396 + 0.15210e2 * t5175 * t10677 + 0.60840e2 * t16219 * t1090 * t4983 + 0.82622222222222222221e2 * t4131 * t3388 - 0.20823480000000000000e-1 * t19857 * t33794 - 0.13882320000000000000e-1 * t5730 * t33919 - 0.58614240000000000000e-1 * t5748 * t33815 + 0.17584272000000000000e-3 * t5751 * t33815 - 0.66635136000000000000e-6 * t5720 * t33805 - 0.83293920000000000000e-2 * t5011 * t33929 + 0.24988176000000000000e-4 * t5005 * t33929 - 0.52058700000000000000e-2 * t5730 * t33828 + 0.11105856000000000000e-1 * t5797 * t33936 - 0.33317568000000000000e-4 * t5801 * t33936 + 0.69411600000000000000e-2 * t5745 * t33843;
14507   t33949 = t1087 * t1827 * t334;
14508   t33957 = t1090 * t1806 * t334;
14509   t33962 = t93 * t1806;
14510   t33973 = t93 * t304;
14511   t33988 = 0.13882320000000000000e-1 * t5730 * t33768 - 0.18509760000000000000e-1 * t5745 * t33919 + 0.55529280000000000000e-2 * t5777 * t33949 + 0.17769369600000000000e-3 * t19689 * t33824 - 0.16658784000000000000e-4 * t5782 * t33949 - 0.16658784000000000000e-1 * t16289 * t33957 + 0.49976352000000000000e-4 * t16297 * t33957 - 0.10411740000000000000e-1 * t19862 * t352 * t33962 - 0.55529280000000000000e-1 * t19757 * t33790 - 0.45630e2 * t16325 * t10670 - 0.45630e2 * t5050 * t10677 * t653 + 0.50700000000000000000e2 * t352 * t33973 * t1765 + 0.25350000000000000000e2 * t5162 * t3399 + 0.67600000000000000000e2 * t1130 * t10717 - 0.25350000000000000000e2 * t352 * t10716 * t1820 - 0.2535e1 * t16335 * t1090 - 0.2535e1 * t3391 * t4998;
14512   t33996 = t1079 * t1505;
14513   t34000 = 0.48245938496077605201e2 * t4201 * t10749 + 0.48245938496077605201e2 * t4193 * t10749 + 0.30000000000000000000e1 * t5224 * t3384 + 0.15000000000000000000e1 * t5205 * t3384 + 0.15000000000000000000e1 * t4385 * t3384 - t387 * t18 * t3375 * t4393 / 0.32e2 - 0.7e1 / 0.72e2 * t5284 * t18 * t33596 * t4188 + t33602 / 0.48e2 - t33605 / 0.32e2 - t33608 / 0.24e2 + 0.15000000000000000000e1 * t1205 * t10756 + 0.50000000000000000001e0 * t502 * t5227 * t1079 + 0.10345202583854680060e4 * t5231 * t5232 * t1079 - 0.96491876992155210402e2 * t4217 * t4219 * t1079 + t275 * (t33674 + t33719 + t33762 + t33812 + t33858 + t33904 + t33943 + t33988) - 0.30000000000000000000e1 * t1231 * t1506 * t11228 + 0.48245938496077605201e2 * t1213 * t4378 * t33996;
14514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14515     v4rho3tau[1] = 0.6e1 * t10572 - 0.3e1 / 0.16e2 * t10574 + t33532 - t10580 / 0.16e2 - 0.3e1 / 0.32e2 * t10584 - t10589 / 0.8e1 + 0.3e1 * t10591 - 0.46636050000000000000e-1 * t10592 - 0.46636050000000000000e-1 * t10594 - 0.93272100000000000000e-1 * t10596 - 0.9e1 / 0.32e2 * t10598 + t3 * (t33581 + t34000) + 0.3e1 * t10748 + 0.48245938496077605201e2 * t10750 + 0.30000000000000000000e1 * t10752 + 0.30000000000000000000e1 * t10754 + 0.15000000000000000000e1 * t10757 - 0.30000000000000000000e1 * t10760;
14516 
14517   t34009 = 0.3e1 / 0.16e2 * t10764;
14518   t34010 = 0.3e1 / 0.8e1 * t10767;
14519   t34011 = 0.32163958997385070134e2 * t10773;
14520   t34012 = 0.20000000000000000000e1 * t10776;
14521   t34013 = t10780 / 0.16e2;
14522   t34014 = t10784 / 0.8e1;
14523   t34058 = -0.62181400000000000000e-1 * t1104 * t5523 * t1024 - 0.62181400000000000000e-1 * t1104 * t2104 * t3309 + 0.10000000000000000000e1 * t2315 * t10552 + 0.10000000000000000000e1 * t6630 * t3275 + 0.10000000000000000000e1 * t6633 * t3275 - 0.10000000000000000000e1 * t6532 * t10306 + 0.50000000000000000001e0 * t2315 * t10558 + 0.16081979498692535067e2 * t6707 * t10555 + 0.10000000000000000000e1 * t4382 * t3451 + 0.16081979498692535067e2 * t6606 * t10555 + 0.50000000000000000001e0 * t4196 * t3451 + 0.50000000000000000001e0 * t5199 * t3451 + 0.50000000000000000001e0 * t2264 * t10558 + 0.10000000000000000000e1 * t2264 * t10552 + 0.2e1 * t629 * t10992 - 0.31090700000000000000e-1 * t2063 * t3310 - 0.15545350000000000000e-1 * t753 * t10547 - 0.15545350000000000000e-1 * t6184 * t1025 - 0.31090700000000000000e-1 * t2051 * t3310 - 0.15545350000000000000e-1 * t745 * t10547;
14524   t34079 = t11001 * t1249;
14525   t34100 = t323 * t431 * t3443;
14526   t34117 = t10853 * t5606;
14527   t34120 = t10916 * t5615;
14528   t34125 = t10905 * t5615;
14529   t34132 = t10821 * t5606;
14530   t34137 = -0.30420e2 * t16325 * t10886 + 0.84500000000000000000e1 * t5162 * t3465 + 0.28166666666666666666e2 * t2149 * t5600 - 0.84500000000000000000e1 * t1030 * t20074 - 0.15210e2 * t5050 * t3462 * t1820 - 0.28166666666666666666e2 * t1836 * t2150 + 0.24432883200000000000e-6 * t5715 * t34117 + 0.77124000000000000000e-2 * t5730 * t34120 + 0.10283200000000000000e-1 * t5745 * t34120 - 0.51416000000000000000e-2 * t5725 * t34125 - 0.77124000000000000000e-2 * t5730 * t34125 - 0.10859059200000000000e-3 * t5755 * t34117 + 0.10859059200000000000e-3 * t5758 * t34132 - 0.24432883200000000000e-6 * t5720 * t34132;
14531   t34139 = t3318 * tau[0] * t2150;
14532   t34142 = t1030 * t20166;
14533   t34148 = t10821 * t19986;
14534   t34172 = t10821 * t5643;
14535   t34175 = 0.38562000000000000000e-2 * t5725 * t34139 + 0.13882320000000000000e-1 * t19857 * t34142 - 0.19743744000000000000e-1 * t19677 * t3349 * t21862 - 0.66635136000000000000e-4 * t16310 * t34148 + 0.22211712000000000000e-1 * t16305 * t34148 + 0.14807808000000000000e-1 * t19985 * t3349 * t21858 + 0.5070e1 * t16322 * t3462 + 0.10140e2 * t5175 * t10893 + 0.5070e1 * t1764 * t10406 * t876 + 0.10140e2 * t33383 * t2211 + 0.37555555555555555555e2 * t5614 * t3455 - 0.30420e2 * t5050 * t10893 * t653 + 0.37555555555555555555e2 * t652 * t5615 + 0.16658784000000000000e-4 * t16297 * t34172;
14536   t34177 = t3462 * t1127;
14537   t34184 = t10821 * t5647;
14538   t34187 = t10893 * t334;
14539   t34192 = t2149 * t9258;
14540   t34197 = t20176 * t3002;
14541   t34203 = t346 * tau[1] * t9243;
14542   t34206 = t1030 * t19839;
14543   t34213 = -0.13573824000000000000e-1 * t5797 * t34177 + 0.40721472000000000000e-4 * t5801 * t34177 - 0.55529280000000000000e-2 * t16289 * t34172 - 0.18509760000000000000e-1 * t19757 * t34184 + 0.74039040000000000000e-2 * t5797 * t34187 - 0.22211712000000000000e-4 * t5801 * t34187 + 0.57843000000000000000e-2 * t5730 * t34192 - 0.77124000000000000000e-2 * t5745 * t5699 - 0.21594720000000000000e-1 * t5748 * t34197 + 0.64784160000000000000e-4 * t5751 * t34197 + 0.98718720000000000000e-4 * t5758 * t34203 - 0.69411600000000000000e-2 * t19857 * t34206 - 0.57843000000000000000e-2 * t5730 * t5699 + 0.38562000000000000000e-2 * t5725 * t34192;
14544   t34214 = t10853 * t5647;
14545   t34217 = t1030 * t19834;
14546   t34222 = t3462 * t1155;
14547   t34225 = t10821 * t5685;
14548   t34228 = t10821 * t5635;
14549   t34235 = t10810 * t1155;
14550   t34250 = -0.33317568000000000000e-4 * t16310 * t34214 + 0.17352900000000000000e-2 * t5730 * t34217 - 0.21594720000000000000e-1 * t5735 * t34197 - 0.26654054400000000000e-6 * t19672 * t34222 - 0.27764640000000000000e-2 * t5011 * t34225 + 0.37019520000000000000e-2 * t5797 * t34228 + 0.11846246400000000000e-3 * t19682 * t3493 + 0.83293920000000000000e-5 * t5005 * t34225 - 0.88846848000000000000e-4 * t16138 * t34235 + 0.19990540800000000000e-6 * t16302 * t34235 + 0.11846246400000000000e-3 * t19666 * t34222 + 0.64784160000000000000e-4 * t5740 * t34197 + 0.98718720000000000000e-4 * t5755 * t34203 - 0.22211712000000000000e-6 * t5715 * t34203 - 0.22211712000000000000e-6 * t5720 * t34203;
14551   t34253 = t1030 * t29301;
14552   t34259 = t10810 * t5716;
14553   t34264 = t10810 * t5721;
14554   t34269 = t3462 * t5716;
14555   t34274 = t3462 * t5721;
14556   t34279 = t3329 * sigma[2];
14557   t34280 = t34279 * t2142;
14558   t34285 = t3318 * sigma[2];
14559   t34286 = t34285 * t2142;
14560   t34289 = t16322 * t283;
14561   t34292 = -0.11568600000000000000e-2 * t5725 * t34253 - 0.16900000000000000000e3 * t5050 * t10916 * t5699 - 0.11105856000000000000e-1 * t16289 * t34259 + 0.33317568000000000000e-4 * t16297 * t34259 + 0.22211712000000000000e-1 * t16305 * t34264 - 0.66635136000000000000e-4 * t16310 * t34264 + 0.22211712000000000000e-1 * t16305 * t34269 - 0.66635136000000000000e-4 * t16310 * t34269 - 0.37019520000000000000e-1 * t19757 * t34274 + 0.11105856000000000000e-3 * t19761 * t34274 - 0.59231232000000000000e-4 * t5758 * t34280 + 0.13327027200000000000e-6 * t5720 * t34280 - 0.13327027200000000000e-6 * t5715 * t34286 - 0.34705800000000000000e-3 * t34289 * t3468;
14562   t34311 = t10853 * t5685;
14563   t34317 = t5175 * t633;
14564   t34320 = t5175 * t636;
14565   t34323 = t3318 * t873;
14566   t34324 = t34323 * t334;
14567   t34329 = t3318 * t876;
14568   t34330 = t34329 * t334;
14569   t34335 = -0.69411600000000000000e-3 * t10970 * t10973 - 0.34705800000000000000e-3 * t2153 * t33349 * t873 + 0.52058700000000000000e-3 * t1775 * t33349 * t876 + 0.52058700000000000000e-3 * t1775 * t33341 * t873 - 0.69411600000000000000e-3 * t2165 * t33341 * t876 + 0.10411740000000000000e-2 * t20041 * t3471 + 0.10411740000000000000e-2 * t20041 * t3484 + 0.18509760000000000000e-2 * t5777 * t34311 - 0.83293920000000000000e-2 * t22146 * t10846 * t5628 + 0.37019520000000000000e-2 * t34317 * t10841 - 0.11105856000000000000e-4 * t34320 * t10841 + 0.37019520000000000000e-2 * t5777 * t34324 - 0.11105856000000000000e-4 * t5782 * t34324 - 0.55529280000000000000e-2 * t5011 * t34330 + 0.16658784000000000000e-4 * t5005 * t34330;
14570   t34337 = t3329 * t873;
14571   t34338 = t34337 * t334;
14572   t34349 = t10840 * t1155;
14573   t34352 = t16224 * t307;
14574   t34356 = t34279 * t2187;
14575   t34359 = t34279 * t2191;
14576   t34368 = t10846 * t1127;
14577   t34373 = -0.55529280000000000000e-2 * t5011 * t34338 + 0.16658784000000000000e-4 * t5005 * t34338 - 0.11105856000000000000e-4 * t5801 * t34228 - 0.17352900000000000000e-2 * t5730 * t34253 + 0.23137200000000000000e-2 * t5745 * t34217 + 0.59231232000000000000e-4 * t19689 * t34349 + 0.20823480000000000000e-1 * t34352 * t3462 * t5628 - 0.55529280000000000000e-2 * t5011 * t34356 + 0.74039040000000000000e-2 * t5797 * t34359 + 0.49359360000000000000e-2 * t5774 * t10941 + 0.16658784000000000000e-4 * t5005 * t34356 - 0.22211712000000000000e-4 * t5801 * t34359 - 0.30541104000000000000e-4 * t5005 * t34368 + 0.11105856000000000000e-1 * t16305 * t34214;
14578   t34378 = t10840 * t1127;
14579   t34385 = t10853 * t5635;
14580   t34405 = t5050 * t51;
14581   t34408 = 0.90492160000000000000e-2 * t19601 * t3474 - 0.11568600000000000000e-1 * t19867 * t34206 - 0.67869120000000000000e-2 * t5777 * t34378 + 0.20360736000000000000e-4 * t5782 * t34378 + 0.10180368000000000000e-1 * t5011 * t34368 - 0.27764640000000000000e-2 * t5011 * t34385 - 0.11846246400000000000e-3 * t19595 * t3477 - 0.55529280000000000000e-5 * t5782 * t34311 + 0.83293920000000000000e-5 * t5005 * t34385 + 0.55529280000000000000e-4 * t19761 * t34184 - 0.34705800000000000000e-2 * t19862 * t1030 * t29312 - 0.90492160000000000000e-2 * t19604 * t3490 + 0.37555555555555555555e2 * t10961 * t5615 - 0.37555555555555555555e2 * t20059 * t10964 + 0.50700000000000000000e2 * t34405 * t19858;
14582   t34412 = t1764 * t26;
14583   t34418 = t5599 * t3329;
14584   t34421 = t5175 * t51;
14585   t34434 = t1764 * t3329;
14586   t34451 = 0.56333333333333333333e2 * t34412 * t5731 - 0.28166666666666666666e2 * t10453 * tau[0] * t2150 + 0.28166666666666666666e2 * t5598 * t34418 - 0.33800000000000000000e2 * t34421 * t5731 - 0.16900000000000000000e2 * t10967 * t19870 - 0.41646960000000000000e-2 * t16220 * t3349 * t19722 - 0.20823480000000000000e-1 * t20102 * t3349 * t5702 - 0.75111111111111111112e2 * t10947 * t5811 + 0.56333333333333333334e2 * t34434 * t2127 + 0.20823480000000000000e-2 * t22434 * t10950 + 0.20823480000000000000e-2 * t5051 * t10312 * t5785 + 0.10411740000000000000e-2 * t5051 * t3332 * t19699 + 0.20823480000000000000e-2 * t5051 * t10312 * t5791 + 0.10411740000000000000e-2 * t5051 * t3332 * t19650;
14587   t34475 = t346 * t306;
14588   t34476 = t34475 * t719;
14589   t34493 = t2196 * t719;
14590   t34496 = 0.92548800000000000000e-3 * t1849 * t33349 * t701 - 0.27764640000000000000e-5 * t1853 * t33353 * t701 + 0.20823480000000000000e-2 * t5051 * t10330 * t5778 + 0.10411740000000000000e-2 * t5051 * t3349 * t19685 + 0.18509760000000000000e-2 * t19947 * t3474 - 0.41646960000000000000e-2 * t16220 * t3332 * t19718 + 0.10411740000000000000e-1 * t16225 * t3332 * t5702 + 0.10411740000000000000e-1 * t16225 * t3349 * t19718 - 0.82265600000000000000e-2 * t5045 * t34476 + 0.74039040000000000000e-2 * t16400 * t5046 * t10810 - 0.98718720000000000000e-2 * t16181 * t5046 * t3462 - 0.49359360000000000000e-2 * t16185 * t5046 * t10840 + 0.74039040000000000000e-2 * t16400 * t5046 * t10846 - 0.11568600000000000000e-2 * t19950 * t3481 - 0.25708000000000000000e-2 * t1853 * t34493;
14591   t34522 = t5175 * t1036;
14592   t34531 = t10464 * tau[0];
14593   t34539 = -0.41646960000000000000e-2 * t5038 * t10330 * t5785 - 0.20823480000000000000e-2 * t5038 * t3349 * t19699 - 0.41646960000000000000e-2 * t5038 * t10330 * t5791 - 0.20823480000000000000e-2 * t5038 * t3349 * t19650 + 0.69411600000000000000e-2 * t5624 * t10330 * t2211 + 0.34705800000000000000e-2 * t5624 * t3349 * t5564 - 0.92548800000000000000e-3 * t1839 * t33341 * t701 + 0.27764640000000000000e-5 * t1844 * t33345 * t701 + 0.56333333333333333334e2 * t34522 * t2127 - 0.41646960000000000000e-2 * t5038 * t10312 * t2211 - 0.20823480000000000000e-2 * t5038 * t3332 * t5564 + 0.56333333333333333333e2 * t34531 * t5699 - 0.56333333333333333333e2 * t5598 * t20080 * t3326 - 0.55529280000000000000e-5 * t19950 * t3477;
14594   t34546 = t5050 * t1039;
14595   t34551 = t5037 * t1039;
14596   t34554 = t5050 * t1042;
14597   t34557 = t5037 * t1042;
14598   t34562 = t4982 * t1042;
14599   t34565 = t1797 * t1033;
14600   t34566 = t1774 * t34565;
14601   t34569 = t636 * t1033;
14602   t34570 = t1764 * t34569;
14603   t34573 = t633 * t1033;
14604   t34574 = t1774 * t34573;
14605   t34577 = t1774 * t34569;
14606   t34580 = t1794 * t1033;
14607   t34581 = t1764 * t34580;
14608   t34584 = -0.25708000000000000000e-2 * t1844 * t34493 - 0.82265600000000000000e-2 * t5077 * t34476 + 0.59231232000000000000e-4 * t5755 * t34286 - 0.11568600000000000000e-1 * t34546 * t5732 + 0.11568600000000000000e-1 * t34546 * t5727 - 0.23137200000000000000e-1 * t34551 * t5732 - 0.11568600000000000000e-1 * t34554 * t5727 + 0.23137200000000000000e-1 * t34557 * t5732 - 0.23137200000000000000e-1 * t34557 * t5727 + 0.38562000000000000000e-1 * t34562 * t5732 + 0.39981081600000000000e-6 * t34566 * t5722 + 0.61699200000000000000e-4 * t34570 * t5737 - 0.30849600000000000000e-1 * t34574 * t5737 + 0.92548800000000000000e-4 * t34577 * t5737 + 0.11846246400000000000e-3 * t34581 * t5717;
14609   t34587 = t1774 * t34580;
14610   t34590 = t1764 * t34565;
14611   t34593 = t1794 * t1036;
14612   t34594 = t1812 * t34593;
14613   t34597 = t1797 * t1036;
14614   t34598 = t1774 * t34597;
14615   t34601 = t1812 * t34597;
14616   t34604 = t1764 * t34573;
14617   t34607 = t10810 * t1127;
14618   t34612 = t34285 * t2187;
14619   t34615 = t34285 * t2191;
14620   t34627 = -0.17769369600000000000e-3 * t34587 * t5722 - 0.26654054400000000000e-6 * t34590 * t5717 + 0.23692492800000000000e-3 * t34594 * t5722 + 0.39981081600000000000e-6 * t34598 * t5717 - 0.53308108800000000000e-6 * t34601 * t5722 - 0.20566400000000000000e-1 * t34604 * t5737 + 0.10180368000000000000e-1 * t5011 * t34607 - 0.30541104000000000000e-4 * t5005 * t34607 + 0.37019520000000000000e-2 * t5777 * t34612 - 0.55529280000000000000e-2 * t5011 * t34615 - 0.49359360000000000000e-2 * t5771 * t10922 - 0.11105856000000000000e-4 * t5782 * t34612 + 0.16658784000000000000e-4 * t5005 * t34615 - 0.83293920000000000000e-2 * t22146 * t10810 * t5628;
14621   t34630 = t10846 * t1155;
14622   t34635 = t10840 * t5721;
14623   t34640 = t10846 * t5716;
14624   t34645 = t10846 * t5721;
14625   t34652 = t10853 * t5574;
14626   t34657 = t10866 * t20177;
14627   t34664 = -0.13327027200000000000e-6 * t19695 * t34349 - 0.88846848000000000000e-4 * t16138 * t34630 + 0.19990540800000000000e-6 * t16302 * t34630 - 0.11105856000000000000e-1 * t16289 * t34635 + 0.33317568000000000000e-4 * t16297 * t34635 - 0.11105856000000000000e-1 * t16289 * t34640 + 0.33317568000000000000e-4 * t16297 * t34640 + 0.22211712000000000000e-1 * t16305 * t34645 - 0.66635136000000000000e-4 * t16310 * t34645 + 0.38562000000000000000e-2 * t21850 * t10906 - 0.21323243520000000000e-8 * t20117 * t34652 + 0.10661621760000000000e-5 * t20112 * t34652 + 0.12339840000000000000e-1 * t5777 * t34657 - 0.37019520000000000000e-4 * t5782 * t34657 + 0.57843000000000000000e-2 * t5730 * t34139;
14628   t34667 = t3329 * tau[0] * t2150;
14629   t34674 = t10866 * t20183;
14630   t34681 = t633 * t1036;
14631   t34682 = t1774 * t34681;
14632   t34685 = t636 * t1036;
14633   t34686 = t1774 * t34685;
14634   t34689 = t1812 * t34681;
14635   t34692 = t1812 * t34685;
14636   t34695 = t1774 * t34593;
14637   t34698 = t10853 * t19986;
14638   t34707 = -0.57843000000000000000e-2 * t5730 * t34667 - 0.77124000000000000000e-2 * t5745 * t34667 + 0.18509760000000000000e-1 * t5011 * t34657 - 0.24679680000000000000e-1 * t5797 * t34674 - 0.2535e1 * t33118 * t876 - 0.2535e1 * t2121 * t10406 + 0.30849600000000000000e-1 * t34682 * t5737 - 0.92548800000000000000e-4 * t34686 * t5737 + 0.41132800000000000000e-1 * t34689 * t5737 - 0.12339840000000000000e-3 * t34692 * t5737 - 0.17769369600000000000e-3 * t34695 * t5717 - 0.11105856000000000000e-1 * t16289 * t34698 - 0.98718720000000000000e-2 * t19713 * t3332 * t21858 + 0.14807808000000000000e-1 * t19985 * t3332 * t21862;
14639   t34724 = t10821 * t5574;
14640   t34740 = 0.33317568000000000000e-4 * t16297 * t34698 - 0.15210e2 * t33115 * t5702 - 0.15210e2 * t19771 * t10410 - 0.18509760000000000000e-1 * t5011 * t34674 + 0.55529280000000000000e-4 * t5005 * t34674 - 0.55529280000000000000e-4 * t5005 * t34657 + 0.74039040000000000000e-4 * t5801 * t34674 + 0.69411600000000000000e-2 * t19862 * t34142 - 0.10661621760000000000e-5 * t20120 * t34724 + 0.21323243520000000000e-8 * t20125 * t34724 + 0.5070e1 * t10464 * t5564 + 0.10140e2 * t5709 * t10395 + 0.5070e1 * t5709 * t10398 + 0.16900000000000000000e2 * t1030 * t20081 + 0.60840e2 * t16219 * t3462 * t1765;
14641   t34746 = t3309 * t439;
14642   t34750 = t1024 * t1224;
14643   t34762 = 0.16081979498692535067e2 * t1454 * t2001 * t33497 - 0.15545350000000000000e-1 * t5924 * t1025 - 0.31090700000000000000e-1 * t5857 * t1025 + t34100 / 0.144e3 + 0.2e1 * t2114 * t3366 + t275 * (t34137 + t34175 + t34213 + t34250 + t34292 + t34335 + t34373 + t34408 + t34451 + t34496 + t34539 + t34584 + t34627 + t34664 + t34707 + t34740) + 0.32163958997385070134e2 * t1454 * t2001 * t34746 - 0.96491876992155210402e2 * t5192 * t2001 * t34750 + 0.30000000000000000000e1 * t1454 * t767 * t34750 + t32805 / 0.24e2 - t323 * t1415 * t10219 * t2 / 0.8e1;
14644   t34768 = t682 * t10236;
14645   t34771 = t682 * t10239 / 0.16e2;
14646   t34772 = t5821 * t10766;
14647   t34784 = t440 * t1024;
14648   t34806 = -t32948 / 0.32e2 - t33034 / 0.32e2 - t33036 / 0.16e2 + t34768 / 0.48e2 - t34771 + 0.7e1 / 0.16e2 * t34772 - t323 * t1415 * t3230 / 0.16e2 + t6496 * t1045 + 0.32163958997385070134e2 * t4209 * t10772 + 0.32163958997385070134e2 * t4223 * t10772 - 0.3e1 / 0.16e2 * t6729 * t10766 + 0.20000000000000000000e1 * t6064 * t617 * t34784 + 0.32163958997385070134e2 * t1454 * t6027 * t10771 - 0.20000000000000000000e1 * t5215 * t10775 - 0.20000000000000000000e1 * t1223 * t767 * t34746 - 0.20000000000000000000e1 * t5212 * t10775 + 0.10345202583854680060e4 * t4358 * t6046 * t34750 + 0.10000000000000000000e1 * t1461 * t10795 + 0.10000000000000000000e1 * t1387 * t10795 + t859 * t10469;
14649   t34838 = t2256 * t5844 * t11002 / 0.36e2;
14650   t34848 = t323 * t127 * t10778 / 0.48e2;
14651   t34850 = t323 * t4340 * t10782;
14652   t34852 = -0.10000000000000000000e1 * t1223 * t767 * t33497 - 0.10000000000000000000e1 * t5531 * t10306 + t33488 / 0.24e2 - t33492 + t6669 * t2257 * t34079 / 0.8e1 - t34838 + t1739 * t3498 - t323 * t18 * t33047 * t680 / 0.32e2 + 0.93272100000000000000e-1 * t4268 * t10997 - t34848 + 0.7e1 / 0.48e2 * t34850;
14653   t34857 = -t34009 - t34010 - t11456 + t34011 - t34012 - t34013 - t34014 - t10217 / 0.24e2 - t10223 - t10227 - t10232 + t3 * (t34058 - 0.15545350000000000000e-1 * t5863 * t1025 - 0.31090700000000000000e-1 * t5866 * t1025 - 0.31090700000000000000e-1 * t2054 * t3310 - 0.3e1 / 0.32e2 * t682 * t10299 - 0.3e1 / 0.8e1 * t1888 * t1889 * t3267 - t2256 * t2257 * t3266 * t680 * t314 / 0.12e2 - t2256 * t2257 * t11001 * t1111 / 0.24e2 - 0.7e1 / 0.72e2 * t6645 * t6646 * t34079 - t2256 * t6498 * t1007 * t2 * t314 / 0.6e1 - 0.20000000000000000000e1 * t1223 * t2311 * t10771 + t34762 + t34806 + 0.10000000000000000000e1 * t418 * t2311 * t3309 + 0.50000000000000000001e0 * t418 * t767 * t10546 + t33062 / 0.72e2 - t33065 / 0.48e2 - t33068 / 0.96e2 - t33071 / 0.72e2 + 0.50000000000000000001e0 * t418 * t6520 * t1024 + 0.10000000000000000000e1 * t1461 * t10798 + 0.10000000000000000000e1 * t1387 * t10798 + 0.10000000000000000000e1 * t6565 * t3275 + t34852);
14654   t34858 = 0.10000000000000000000e1 * t10787;
14655   t34859 = 0.10000000000000000000e1 * t10789;
14656   t34860 = 0.10000000000000000000e1 * t10791;
14657   t34861 = 0.10000000000000000000e1 * t10793;
14658   t34862 = 0.10000000000000000000e1 * t10796;
14659   t34863 = 0.10000000000000000000e1 * t10799;
14660   t34866 = t34858 + t34859 + t34860 + t34861 + t34862 + t34863 + t10233 - t10234 / 0.8e1 + t32754 - t10240 / 0.8e1 - t10301 - t10303 - t10305;
14661   t34868 = 0.2e1 * t10804;
14662   t34869 = 0.2e1 * t10805;
14663   t34870 = 0.2e1 * t10993;
14664   t34871 = 0.62181400000000000000e-1 * t10998;
14665   t34872 = 0.2e1 * t11000;
14666   t34873 = t11004 / 0.12e2;
14667   t34874 = t34868 + t34869 + t34870 - t11442 - t34871 - t10308 + t10311 + t10470 + t10472 + t34872 - t34873 - t10474 - t10476;
14668   t34875 = 0.31090700000000000000e-1 * t11006;
14669   t34876 = 0.31090700000000000000e-1 * t11008;
14670   t34877 = 0.31090700000000000000e-1 * t11010;
14671   t34878 = 0.31090700000000000000e-1 * t11012;
14672   t34879 = 0.31090700000000000000e-1 * t11014;
14673   t34880 = -t10478 - t10480 - t10482 - t10549 + t10551 + t10554 - t34875 - t34876 - t34877 - t34878 - t34879 + t10557 + t10560;
14674   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14675     v4rho3tau[2] = t34857 + t34866 + t34874 + t34880;
14676 
14677   t34882 = 0.10000000000000000000e1 * t11019;
14678   t34883 = 0.10000000000000000000e1 * t11022;
14679   t34884 = 0.10000000000000000000e1 * t11024;
14680   t34885 = 0.10000000000000000000e1 * t11027;
14681   t34886 = 0.10000000000000000000e1 * t11029;
14682   t34887 = 0.10000000000000000000e1 * t11031;
14683   t34888 = 0.2e1 * t11227;
14684   t34893 = t3591 * t304;
14685   t34897 = t352 * t947 * t648;
14686   t34901 = t352 * t947 * t653;
14687   t34905 = t1150 * t947 * sigma[0];
14688   t34909 = t1150 * t11090 * sigma[0];
14689   t34912 = t11103 * t5606;
14690   t34920 = t1150 * t11099 * sigma[0];
14691   t34928 = t11181 * t5615;
14692   t34931 = -0.2535e1 * t11164 * t1820 - 0.2535e1 * t5162 * t3601 + 0.5070e1 * t34893 * t1765 - 0.55529280000000000000e-4 * t5005 * t34897 + 0.74039040000000000000e-4 * t5801 * t34901 - 0.44423424000000000000e-6 * t5720 * t34905 + 0.12339840000000000000e-1 * t5777 * t34909 + 0.10859059200000000000e-3 * t5758 * t34912 - 0.24432883200000000000e-6 * t5720 * t34912 - 0.37019520000000000000e-4 * t5782 * t34909 - 0.18509760000000000000e-1 * t5011 * t34920 - 0.98718720000000000000e-2 * t19713 * t3402 * t21858 + 0.12339840000000000000e-1 * t5777 * t34897 + 0.77124000000000000000e-2 * t5730 * t34928;
14693   t34932 = t11138 * t5606;
14694   t34935 = t11192 * t5615;
14695   t34946 = t11138 * t19986;
14696   t34956 = t3598 * t5716;
14697   t34959 = t3598 * t5721;
14698   t34968 = 0.24432883200000000000e-6 * t5715 * t34932 - 0.51416000000000000000e-2 * t5725 * t34935 - 0.77124000000000000000e-2 * t5730 * t34935 - 0.10859059200000000000e-3 * t5755 * t34932 + 0.10283200000000000000e-1 * t5745 * t34928 + 0.55529280000000000000e-4 * t5005 * t34920 - 0.11105856000000000000e-1 * t16289 * t34946 + 0.14807808000000000000e-1 * t19985 * t3421 * t21858 + 0.18509760000000000000e-1 * t5011 * t34909 - 0.55529280000000000000e-4 * t5005 * t34909 + 0.22211712000000000000e-1 * t16305 * t34956 - 0.37019520000000000000e-1 * t19757 * t34959 - 0.24679680000000000000e-1 * t5797 * t34920 - 0.66635136000000000000e-4 * t16310 * t34956 + 0.11105856000000000000e-3 * t19761 * t34959;
14699   t34973 = t352 * t11099 * t648;
14700   t34976 = t11099 * t653;
14701   t34977 = t352 * t34976;
14702   t34980 = t11103 * t19986;
14703   t34984 = t304 * t876 * t653;
14704   t35010 = 0.74039040000000000000e-4 * t5801 * t34920 + 0.13882320000000000000e-1 * t19857 * t34973 - 0.23137200000000000000e-1 * t19867 * t34977 + 0.22211712000000000000e-1 * t16305 * t34980 + 0.33800000000000000000e2 * t3399 * t34984 - 0.33800000000000000000e2 * t22333 * t10692 + 0.52058700000000000000e-3 * t1775 * t11051 * t1827 - 0.69411600000000000000e-3 * t2165 * t11051 * t1820 + 0.56333333333333333333e2 * t5697 * t3697 * t653 - 0.33800000000000000000e2 * t19902 * t11039 - 0.34705800000000000000e-3 * t34289 * t3604 - 0.34705800000000000000e-3 * t2153 * t11044 * t1827 + 0.52058700000000000000e-3 * t1775 * t11044 * t1820 + 0.10411740000000000000e-2 * t20041 * t3619;
14705   t35015 = t11084 * t5716;
14706   t35024 = t11084 * t5721;
14707   t35030 = t352 * t11090 * t653;
14708   t35041 = t11120 * t5721;
14709   t35048 = 0.10411740000000000000e-2 * t20041 * t3607 - 0.66635136000000000000e-4 * t16310 * t34980 - 0.11105856000000000000e-1 * t16289 * t35015 + 0.33317568000000000000e-4 * t16297 * t35015 - 0.69411600000000000000e-2 * t19862 * t352 * t11090 * t648 + 0.22211712000000000000e-1 * t16305 * t35024 - 0.66635136000000000000e-4 * t16310 * t35024 + 0.13882320000000000000e-1 * t19857 * t35030 - 0.37019520000000000000e-4 * t5782 * t34897 + 0.55529280000000000000e-4 * t5005 * t34901 + 0.19743744000000000000e-3 * t5755 * t34905 - 0.44423424000000000000e-6 * t5715 * t34905 - 0.11105856000000000000e-1 * t16289 * t35041 + 0.33317568000000000000e-4 * t16297 * t35041 + 0.69411600000000000000e-2 * t19862 * t35030;
14710   t35051 = t11128 * t5716;
14711   t35070 = t37 * t1053;
14712   t35089 = t3416 * t11976;
14713   t35092 = -0.11105856000000000000e-1 * t16289 * t35051 + 0.37555555555555555555e2 * t11033 * t5615 - 0.37555555555555555555e2 * t20059 * t11036 + 0.45066666666666666667e2 * t5697 * t10661 * t876 - 0.20823480000000000000e-2 * t5038 * t11044 * t1765 + 0.10411740000000000000e-2 * t5051 * t11051 * t1806 + 0.34705800000000000000e-2 * t5624 * t11051 * t1765 - 0.18777777777777777778e3 * t22474 * t35070 * tau[1] - 0.24679680000000000000e-2 * t5045 * t5046 * t3591 + 0.24679680000000000000e-2 * t5077 * t5046 * t3601 - 0.20823480000000000000e-1 * t20102 * t3421 * t5702 + 0.33934560000000000000e-2 * t1839 * t11051 * t1127 - 0.10180368000000000000e-4 * t1844 * t11218 * t1127 - 0.25708000000000000000e-2 * t1844 * t35089;
14714   t35095 = t640 * t3601;
14715   t35102 = t10680 * tau[0];
14716   t35136 = 0.18509760000000000000e-2 * t19947 * t3610 + 0.66635136000000000000e-7 * t1844 * t35095 * t1155 + 0.10140000000000000000e3 * t19838 * t3417 * t2211 + 0.56333333333333333333e2 * t35102 * t5699 - 0.56333333333333333333e2 * t5598 * t20080 * t3396 + 0.20823480000000000000e-2 * t5051 * t11044 * t5628 + 0.10411740000000000000e-1 * t16225 * t3421 * t19718 - 0.41646960000000000000e-2 * t5038 * t11051 * t5628 + 0.10411740000000000000e-1 * t16225 * t3402 * t5702 - 0.33934560000000000000e-2 * t1849 * t11044 * t1127 + 0.10180368000000000000e-4 * t1853 * t11073 * t1127 - 0.25708000000000000000e-2 * t1853 * t35089 + 0.60840e2 * t16219 * t3598 * t1765 + 0.37555555555555555555e2 * t652 * t1130 * t75 - 0.34705800000000000000e-3 * t5559 * t3616;
14717   t35141 = t640 * t3591;
14718   t35177 = t5175 * t1090;
14719   t35180 = 0.29615616000000000000e-4 * t1849 * t11073 * t1155 - 0.66635136000000000000e-7 * t1853 * t35141 * t1155 + 0.10411740000000000000e-2 * t5051 * t3421 * t19685 - 0.20823480000000000000e-2 * t5038 * t3421 * t19699 + 0.74039040000000000000e-2 * t16400 * t5046 * t11084 - 0.98718720000000000000e-2 * t16181 * t5046 * t3598 - 0.49359360000000000000e-2 * t16185 * t5046 * t11120 + 0.74039040000000000000e-2 * t16400 * t5046 * t11128 - 0.20823480000000000000e-2 * t5038 * t3421 * t19650 + 0.34705800000000000000e-2 * t5624 * t3421 * t5564 - 0.29615616000000000000e-4 * t1839 * t11218 * t1155 - 0.55529280000000000000e-5 * t19950 * t3613 - 0.41646960000000000000e-2 * t16220 * t3421 * t19722 + 0.56333333333333333334e2 * t35177 * t2127;
14720   t35204 = t352 * t5698;
14721   t35207 = t11128 * t1127;
14722   t35210 = t1130 * t11099;
14723   t35213 = t11138 * t5647;
14724   t35216 = t11120 * t1155;
14725   t35221 = 0.20823480000000000000e-2 * t22434 * t11061 + 0.10411740000000000000e-2 * t5051 * t3402 * t19699 + 0.10411740000000000000e-2 * t5051 * t3402 * t19650 - 0.20823480000000000000e-2 * t5038 * t3402 * t5564 - 0.75111111111111111112e2 * t11058 * t5811 - 0.41646960000000000000e-2 * t16220 * t3402 * t19718 + 0.22533333333333333333e2 * t1130 * t11178 - 0.22533333333333333333e2 * t2121 * t10650 - 0.15210e2 * t5050 * t3598 * t1820 - 0.77124000000000000000e-2 * t5745 * t35204 - 0.30541104000000000000e-4 * t5005 * t35207 - 0.46274400000000000000e-2 * t5730 * t35210 + 0.11105856000000000000e-1 * t16305 * t35213 - 0.13327027200000000000e-6 * t19695 * t35216 - 0.23137200000000000000e-2 * t21850 * t11091;
14726   t35225 = t1135 * t3513;
14727   t35228 = t11128 * t1155;
14728   t35233 = t11120 * t1127;
14729   t35236 = t1130 * t11090;
14730   t35243 = t3598 * t1127;
14731   t35248 = t11103 * t5643;
14732   t35251 = t11084 * t1127;
14733   t35258 = t3601 * sigma[0];
14734   t35259 = t35258 * t5007;
14735   t35262 = 0.12854000000000000000e-1 * t5725 * t35225 - 0.88846848000000000000e-4 * t16138 * t35228 + 0.19990540800000000000e-6 * t16302 * t35228 + 0.20360736000000000000e-4 * t5782 * t35233 + 0.30849600000000000000e-2 * t5725 * t35236 + 0.10180368000000000000e-1 * t5011 * t35207 + 0.11846246400000000000e-3 * t19682 * t3628 + 0.40721472000000000000e-4 * t5801 * t35243 - 0.61699200000000000000e-2 * t5745 * t35210 - 0.55529280000000000000e-2 * t16289 * t35248 - 0.30541104000000000000e-4 * t5005 * t35251 + 0.46274400000000000000e-2 * t5730 * t35236 - 0.13573824000000000000e-1 * t5797 * t35243 - 0.55529280000000000000e-2 * t5011 * t35259;
14736   t35263 = t35258 * t22096;
14737   t35266 = t1150 * t3002;
14738   t35275 = t352 * t9258;
14739   t35278 = t11138 * t5685;
14740   t35281 = t11138 * t5635;
14741   t35286 = t3416 * t947;
14742   t35301 = 0.74039040000000000000e-2 * t5797 * t35263 - 0.10283200000000000000e-1 * t5748 * t35266 + 0.16658784000000000000e-4 * t5005 * t35259 - 0.22211712000000000000e-4 * t5801 * t35263 + 0.30849600000000000000e-4 * t5751 * t35266 + 0.57843000000000000000e-2 * t5730 * t35275 + 0.18509760000000000000e-2 * t5777 * t35278 - 0.27764640000000000000e-2 * t5011 * t35281 - 0.11846246400000000000e-3 * t19595 * t3613 - 0.16453120000000000000e-1 * t21866 * t35286 - 0.55529280000000000000e-5 * t5782 * t35278 + 0.83293920000000000000e-5 * t5005 * t35281 + 0.20823480000000000000e-1 * t34352 * t3598 * t5628 - 0.16900000000000000000e3 * t5050 * t11181 * t5699 + 0.5070e1 * t16322 * t3598;
14743   t35303 = t5037 * t1096;
14744   t35306 = t4982 * t1096;
14745   t35316 = t3591 * sigma[0];
14746   t35317 = t35316 * t5007;
14747   t35320 = t35316 * t22096;
14748   t35335 = t11103 * t5647;
14749   t35338 = -0.23137200000000000000e-1 * t35303 * t5727 + 0.38562000000000000000e-1 * t35306 * t5732 + 0.5070e1 * t1764 * t3601 * t1820 + 0.5070e1 * t10680 * t5564 + 0.5070e1 * t5709 * t10677 + 0.37019520000000000000e-2 * t5777 * t35317 - 0.55529280000000000000e-2 * t5011 * t35320 - 0.10283200000000000000e-1 * t5735 * t35266 - 0.11105856000000000000e-4 * t5782 * t35317 + 0.16658784000000000000e-4 * t5005 * t35320 + 0.30849600000000000000e-4 * t5740 * t35266 + 0.38562000000000000000e-2 * t5725 * t35275 - 0.57843000000000000000e-2 * t5730 * t35204 - 0.18509760000000000000e-1 * t19757 * t35335;
14750   t35341 = t1130 * t947;
14751   t35371 = -0.90492160000000000000e-2 * t19604 * t3625 - 0.82265600000000000000e-2 * t5748 * t35341 + 0.16658784000000000000e-4 * t16297 * t35248 + 0.24679680000000000000e-4 * t5740 * t35341 + 0.10180368000000000000e-1 * t5011 * t35251 + 0.90492160000000000000e-2 * t19601 * t3610 - 0.82265600000000000000e-2 * t5735 * t35341 - 0.33317568000000000000e-4 * t16310 * t35213 + 0.28166666666666666666e2 * t352 * t5600 - 0.28166666666666666666e2 * t1836 * t11175 + 0.18509760000000000000e-1 * t5011 * t34897 - 0.19743744000000000000e-1 * t19677 * t3421 * t21862 - 0.24679680000000000000e-1 * t5797 * t34901 + 0.19743744000000000000e-3 * t5758 * t34905 - 0.15210e2 * t19771 * t10670;
14752   t35387 = t11128 * t5721;
14753   t35394 = t11103 * t5574;
14754   t35406 = -0.15210e2 * t5050 * t3601 * t1765 + 0.37555555555555555555e2 * t1130 * t3455 - 0.15210e2 * t33848 * t5702 + 0.10140e2 * t5175 * t11159 + 0.33317568000000000000e-4 * t16297 * t35051 + 0.69411600000000000000e-2 * t19862 * t34973 + 0.22211712000000000000e-1 * t16305 * t35387 - 0.66635136000000000000e-4 * t16310 * t35387 - 0.13882320000000000000e-1 * t19857 * t34977 - 0.10661621760000000000e-5 * t20120 * t35394 + 0.21323243520000000000e-8 * t20125 * t35394 + 0.38562000000000000000e-2 * t21850 * t11193 + 0.14807808000000000000e-1 * t19985 * t3402 * t21862 - 0.18509760000000000000e-1 * t5011 * t34901;
14755   t35409 = t11138 * t5574;
14756   t35416 = t11103 * t5685;
14757   t35419 = t11103 * t5635;
14758   t35430 = t3598 * t1155;
14759   t35441 = 0.33317568000000000000e-4 * t16297 * t34946 + 0.10661621760000000000e-5 * t20112 * t35409 - 0.21323243520000000000e-8 * t20117 * t35409 - 0.16453120000000000000e-1 * t21837 * t35286 + 0.83293920000000000000e-5 * t5005 * t35416 - 0.11105856000000000000e-4 * t5801 * t35419 + 0.37019520000000000000e-2 * t34317 * t11121 + 0.59231232000000000000e-4 * t19689 * t35216 - 0.11105856000000000000e-4 * t34320 * t11121 + 0.38562000000000000000e-1 * t5730 * t35225 + 0.11846246400000000000e-3 * t19666 * t35430 - 0.26654054400000000000e-6 * t19672 * t35430 + 0.25708000000000000000e-1 * t5745 * t35225 - 0.27764640000000000000e-2 * t5011 * t35416 + 0.37019520000000000000e-2 * t5797 * t35419;
14760   t35446 = t11084 * t1155;
14761   t35460 = t633 * t1087;
14762   t35461 = t1774 * t35460;
14763   t35464 = t636 * t1087;
14764   t35465 = t1774 * t35464;
14765   t35468 = t1794 * t1087;
14766   t35469 = t1764 * t35468;
14767   t35472 = t1774 * t35468;
14768   t35475 = t1797 * t1087;
14769   t35476 = t1764 * t35475;
14770   t35479 = t1774 * t35475;
14771   t35482 = t5050 * t1093;
14772   t35487 = -0.83293920000000000000e-2 * t22146 * t11084 * t5628 - 0.88846848000000000000e-4 * t16138 * t35446 + 0.19990540800000000000e-6 * t16302 * t35446 + 0.55529280000000000000e-4 * t19761 * t35335 + 0.24679680000000000000e-4 * t5751 * t35341 - 0.67869120000000000000e-2 * t5777 * t35233 - 0.83293920000000000000e-2 * t22146 * t11128 * t5628 - 0.30849600000000000000e-1 * t35461 * t5737 + 0.92548800000000000000e-4 * t35465 * t5737 + 0.11846246400000000000e-3 * t35469 * t5717 - 0.17769369600000000000e-3 * t35472 * t5722 - 0.26654054400000000000e-6 * t35476 * t5717 + 0.39981081600000000000e-6 * t35479 * t5722 - 0.11568600000000000000e-1 * t35482 * t5732 + 0.11568600000000000000e-1 * t35482 * t5727;
14773   t35488 = t5037 * t1093;
14774   t35491 = t5050 * t1096;
14775   t35494 = t1794 * t1090;
14776   t35495 = t1812 * t35494;
14777   t35498 = t1797 * t1090;
14778   t35499 = t1774 * t35498;
14779   t35502 = t1812 * t35498;
14780   t35505 = t1764 * t35460;
14781   t35508 = t1764 * t35464;
14782   t35513 = t633 * t1090;
14783   t35514 = t1774 * t35513;
14784   t35517 = t636 * t1090;
14785   t35518 = t1774 * t35517;
14786   t35521 = t1812 * t35513;
14787   t35524 = t1812 * t35517;
14788   t35527 = t1774 * t35494;
14789   t35530 = t1053 * t651;
14790   t35536 = -0.23137200000000000000e-1 * t35488 * t5732 - 0.11568600000000000000e-1 * t35491 * t5727 + 0.23692492800000000000e-3 * t35495 * t5722 + 0.39981081600000000000e-6 * t35499 * t5717 - 0.53308108800000000000e-6 * t35502 * t5722 - 0.20566400000000000000e-1 * t35505 * t5737 + 0.61699200000000000000e-4 * t35508 * t5737 + 0.23137200000000000000e-1 * t35303 * t5732 + 0.30849600000000000000e-1 * t35514 * t5737 - 0.92548800000000000000e-4 * t35518 * t5737 + 0.41132800000000000000e-1 * t35521 * t5737 - 0.12339840000000000000e-3 * t35524 * t5737 - 0.17769369600000000000e-3 * t35527 * t5717 - 0.18777777777777777777e3 * t1135 * t35530 * tau[1] - 0.30420e2 * t16325 * t11171;
14791   t35560 = t521 * t1079;
14792   t35576 = t275 * (t34931 + t34968 + t35010 + t35048 + t35092 + t35136 + t35180 + t35221 + t35262 + t35301 + t35338 + t35371 + t35406 + t35441 + t35487 + t35536) - 0.3e1 / 0.32e2 * t1108 * t3541 + 0.2e1 * t2114 * t3437 - 0.15545350000000000000e-1 * t6194 * t1080 - 0.15545350000000000000e-1 * t6197 * t1080 - 0.31090700000000000000e-1 * t6081 * t1080 - 0.15545350000000000000e-1 * t6133 * t1080 - 0.15545350000000000000e-1 * t1343 * t3583 - 0.31090700000000000000e-1 * t1346 * t3583 - 0.15545350000000000000e-1 * t1376 * t3583 - 0.20000000000000000000e1 * t5980 * t625 * t35560 + 0.50000000000000000001e0 * t502 * t6717 * t1079 - t33555 / 0.32e2 + t859 * t10747 - 0.20000000000000000000e1 * t4231 * t11229 + 0.16081979498692535067e2 * t1213 * t2009 * t33996 + 0.10000000000000000000e1 * t6554 * t3384;
14793   t35604 = t1079 * t1214;
14794   t35615 = 0.50000000000000000001e0 * t2272 * t10756 - 0.10000000000000000000e1 * t6677 * t10759 + 0.10000000000000000000e1 * t5224 * t3548 + 0.10000000000000000000e1 * t1208 * t11026 - 0.10000000000000000000e1 * t1231 * t1232 * t3582 + 0.10000000000000000000e1 * t1205 * t11026 + 0.50000000000000000001e0 * t5205 * t3548 + 0.50000000000000000001e0 * t4385 * t3548 + 0.16081979498692535067e2 * t5942 * t10749 + 0.10000000000000000000e1 * t6551 * t3384 - 0.20000000000000000000e1 * t4212 * t11229 + 0.50000000000000000001e0 * t502 * t1506 * t3582 + t33569 / 0.24e2 - t33573 + 0.30000000000000000000e1 * t1213 * t793 * t35604 - 0.96491876992155210402e2 * t4217 * t2009 * t35604 + 0.31090700000000000000e-1 * t5860 * t1080 - 0.93272100000000000000e-1 * t4268 * t11277;
14795   t35633 = t11236 * t1360;
14796   t35639 = t2249 * t5830 * t11237 / 0.36e2;
14797   t35641 = t387 * t431 * t3504;
14798   t35648 = t387 * t127 * t11269 / 0.48e2;
14799   t35653 = t1446 * t3539;
14800   t35659 = t387 * t4340 * t11273;
14801   t35664 = 0.2e1 * t629 * t11226 + t6496 * t1099 - 0.20000000000000000000e1 * t1231 * t2278 * t11228 + 0.32163958997385070134e2 * t4201 * t11232 + 0.32163958997385070134e2 * t4193 * t11232 - 0.10000000000000000000e1 * t1231 * t793 * t33996 + 0.10345202583854680060e4 * t5231 * t6010 * t35604 + t6673 * t2250 * t35633 / 0.8e1 - t35639 + t35641 / 0.144e3 + 0.62181400000000000000e-1 * t1104 * t5947 * t1079 - t35648 - t387 * t18 * t11268 * t1106 / 0.32e2 - t1444 * t18 * t35653 * t1360 / 0.24e2 - 0.7e1 / 0.48e2 * t35659 + t33602 / 0.72e2 - t33605 / 0.96e2 - t33608 / 0.72e2;
14802   t35696 = t5821 * t11252;
14803   t35699 = t380 * t11257 / 0.16e2;
14804   t35701 = t67 * t431 * t3540;
14805   t35703 = t691 * t10576;
14806   t35710 = 0.50000000000000000001e0 * t2269 * t10756 + 0.16081979498692535067e2 * t1213 * t1217 * t3582 + 0.10000000000000000000e1 * t6557 * t3384 + 0.16081979498692535067e2 * t6526 * t10749 - 0.10000000000000000000e1 * t6612 * t10759 + 0.10000000000000000000e1 * t1205 * t11021 + 0.32163958997385070134e2 * t1213 * t6019 * t11228 + 0.10000000000000000000e1 * t1208 * t11021 + t2249 * t6504 * t1062 * t2 * t378 / 0.6e1 - t2249 * t2250 * t11236 * t1106 / 0.24e2 - 0.7e1 / 0.72e2 * t5838 * t5839 * t35633 + t1739 * t3634 - 0.7e1 / 0.16e2 * t35696 - t35699 + t35701 / 0.48e2 + t35703 / 0.48e2 + t387 * t1415 * t3375 / 0.16e2 + 0.3e1 / 0.16e2 * t6729 * t11252;
14807   t35714 = 0.20000000000000000000e1 * t11230;
14808   t35715 = 0.32163958997385070134e2 * t11233;
14809   t35716 = t34882 + t34883 + t34884 + t34885 + t34886 + t34887 + t34888 - t10599 + t3 * (t35576 + t35615 + t35664 + t35710) - t35714 + t35715;
14810   t35718 = t11239 / 0.12e2;
14811   t35719 = 0.31090700000000000000e-1 * t11241;
14812   t35720 = 0.31090700000000000000e-1 * t11243;
14813   t35721 = 0.31090700000000000000e-1 * t11246;
14814   t35722 = 0.31090700000000000000e-1 * t11248;
14815   t35723 = 0.31090700000000000000e-1 * t11250;
14816   t35724 = 0.3e1 / 0.8e1 * t11253;
14817   t35725 = -t10574 / 0.8e1 + t33532 - t35718 + t10758 - t10761 - t35719 - t35720 - t35721 - t35722 - t35723 + t35724;
14818   t35727 = 0.3e1 / 0.16e2 * t11255;
14819   t35728 = 0.2e1 * t11262;
14820   t35730 = 0.2e1 * t11264;
14821   t35731 = -t35727 - t11644 - t11645 + t35728 - t10580 / 0.24e2 - t10585 - t10590 + t35730 - t10593 - t10595 - t10597;
14822   t35732 = t11271 / 0.16e2;
14823   t35733 = t11275 / 0.8e1;
14824   t35734 = 0.62181400000000000000e-1 * t11278;
14825   t35735 = 0.2e1 * t11280;
14826   t35736 = t10748 - t11797 - t35732 + t35733 + t10753 + t10755 + t10751 + t35734 + t10591 + t10573 + t35735;
14827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14828     v4rho3tau[3] = t35716 + t35725 + t35731 + t35736;
14829 
14830   t35739 = -t34009 - t34010 - t10769 / 0.8e1 + t34011 - t34012 - t34013 - t34014 - t10218 + t34858 + t34859 + t34860;
14831   t35741 = t34861 + t34862 + t34863 + t11293 - t10235 + t32754 - t10241 + t34868 + t34869 + t34870 - t10995 / 0.24e2;
14832   t35743 = -t34871 + t11438 + t11441 - t11448 - t11452 - t11455 + t11434 + t11436 + t34872 - t34873 + t11444;
14833   t35761 = t1024 * t1963;
14834   t35768 = t2418 * t3227;
14835   t35780 = -0.31090700000000000000e-1 * t7146 * t1025 - 0.31090700000000000000e-1 * t2507 * t3310 - 0.15545350000000000000e-1 * t7149 * t1025 - 0.15545350000000000000e-1 * t7201 * t1025 - 0.15545350000000000000e-1 * t2525 * t3310 + t629 * t11430 - 0.15545350000000000000e-1 * t7138 * t1025 - 0.15545350000000000000e-1 * t7141 * t1025 - 0.15545350000000000000e-1 * t2504 * t3310 - 0.20000000000000000000e1 * t1223 * t767 * t35761 + 0.30000000000000000000e1 * t1454 * t2812 * t10771 - t35768 / 0.32e2 - 0.3e1 / 0.32e2 * t7251 * t1009 - 0.3e1 / 0.32e2 * t2418 * t3268 + 0.2e1 * t2114 * t3498 - 0.10000000000000000000e1 * t5212 * t11453 - 0.20000000000000000000e1 * t6532 * t10775;
14836   t35794 = t1007 * t2416;
14837   t35800 = t1007 * t2511 * t314;
14838   t35821 = 0.32163958997385070134e2 * t6707 * t10772 + 0.10345202583854680060e4 * t4358 * t7303 * t10771 + t34100 / 0.72e2 + 0.50000000000000000001e0 * t7841 * t3275 + 0.10000000000000000000e1 * t6633 * t3451 + 0.10000000000000000000e1 * t2315 * t10798 + t7797 * t1045 - t2256 * t2257 * t35794 * t314 / 0.24e2 + t6669 * t2257 * t35800 / 0.8e1 - 0.7e1 / 0.72e2 * t6645 * t6646 * t35800 - t2256 * t6498 * t11001 * t2 / 0.6e1 + 0.2e1 * t859 * t10992 + t32805 / 0.48e2 + 0.32163958997385070134e2 * t1454 * t2001 * t35761 - 0.10000000000000000000e1 * t5215 * t11453 + t34768 / 0.24e2 - t34771 - t34772 / 0.8e1;
14839   t35827 = t323 * t127 * t11445;
14840   t35830 = t1754 * t127 * t11449;
14841   t35870 = 0.20000000000000000000e1 * t6064 * t847 * t34784 - t35827 / 0.96e2 - t35830 / 0.72e2 - t323 * t18 * t10219 * t2416 / 0.32e2 - t323 * t18 * t3230 * t7137 / 0.32e2 - t1754 * t18 * t33056 * t2511 / 0.24e2 + 0.50000000000000000001e0 * t418 * t2802 * t3309 - 0.10000000000000000000e1 * t1223 * t2812 * t3309 - 0.20000000000000000000e1 * t5531 * t10775 + 0.16081979498692535067e2 * t1454 * t2806 * t3309 + 0.16081979498692535067e2 * t4209 * t11432 + 0.10000000000000000000e1 * t2264 * t10795 + 0.10000000000000000000e1 * t2264 * t10798 + t33062 / 0.144e3 + 0.10000000000000000000e1 * t6565 * t3451 - 0.62181400000000000000e-1 * t1104 * t7461 * t1024 + 0.16081979498692535067e2 * t1454 * t7705 * t10771;
14842   t35897 = t998 * t2347;
14843   t35898 = t86 * t651;
14844   t35911 = -0.28166666666666666667e2 * t2121 * t2150 + 0.37555555555555555555e2 * t652 * t6987 + 0.28166666666666666667e2 * t2149 * t6981 - 0.15210e2 * t5050 * t11294 * t653 - 0.30420e2 * t19771 * t10886 + 0.60840e2 * t16219 * t11305 * t653 - 0.22533333333333333333e2 * t1836 * t11312 - 0.34705800000000000000e-3 * t11315 * t3346 + 0.22533333333333333333e2 * t1030 * t22431 - 0.18777777777777777778e3 * t35897 * t35898 * tau[0] - 0.15210e2 * t5050 * t3329 * t2723 - 0.15210e2 * t16325 * t11305 + 0.5070e1 * t22188 * t3326 + 0.5070e1 * t10464 * t6799;
14845   t35931 = t22430 * t1036;
14846   t35947 = t5709 * t51;
14847   t35952 = 0.37555555555555555555e2 * t2149 * t11302 + 0.52058700000000000000e-3 * t1775 * t10312 * t2736 - 0.24679680000000000000e-2 * t7016 * t7017 * t3318 + 0.52058700000000000000e-3 * t1775 * t10330 * t2751 - 0.69411600000000000000e-3 * t2165 * t10330 * t2736 + 0.24679680000000000000e-2 * t7021 * t7017 * t3329 + 0.37555555555555555556e2 * t10961 * t6987 - 0.37555555555555555556e2 * t5598 * t35931 + 0.10411740000000000000e-2 * t22434 * t11339 + 0.10411740000000000000e-2 * t5051 * t10330 * t2775 + 0.34705800000000000000e-2 * t5624 * t10330 * t2723 - 0.20823480000000000000e-2 * t5038 * t10312 * t2723 + 0.33800000000000000000e2 * t3465 * t34984 - 0.33800000000000000000e2 * t35947 * t5731 - 0.33800000000000000000e2 * t34421 * t6806;
14848   t35961 = t2775 * t661 * t283;
14849   t35971 = t10866 * t2141;
14850   t35978 = t34323 * t701;
14851   t35983 = t35897 * t9650;
14852   t35986 = t34329 * t701;
14853   t35989 = t10893 * t701;
14854   t35992 = -0.18777777777777777778e3 * t1764 * t998 * t2366 * tau[0] + 0.45066666666666666666e2 * t10967 * t21833 + 0.10411740000000000000e-2 * t35961 * t3336 - 0.34705800000000000000e-3 * t10970 * t11320 - 0.34705800000000000000e-3 * t2153 * t10312 * t2751 + 0.56333333333333333333e2 * t34412 * t6806 - 0.82265600000000000000e-2 * t5748 * t35971 + 0.24679680000000000000e-4 * t5751 * t35971 - 0.11105856000000000000e-4 * t34320 * t11377 - 0.11105856000000000000e-4 * t5782 * t35978 - 0.23137200000000000000e-2 * t21850 * t11361 + 0.12854000000000000000e-1 * t5725 * t35983 - 0.55529280000000000000e-2 * t5011 * t35986 + 0.74039040000000000000e-2 * t5797 * t35989;
14855   t35997 = t10821 * t6844;
14856   t36000 = t10821 * t6883;
14857   t36006 = t306 * tau[1];
14858   t36007 = t36006 * t3137;
14859   t36014 = t34337 * t701;
14860   t36021 = t1033 * t82;
14861   t36022 = t36021 * t6836;
14862   t36025 = t36021 * t6840;
14863   t36028 = t1033 * t2723;
14864   t36029 = t36028 * t334;
14865   t36035 = -0.22211712000000000000e-4 * t5801 * t35989 + 0.25708000000000000000e-1 * t5745 * t35983 + 0.10180368000000000000e-1 * t5011 * t35997 - 0.13573824000000000000e-1 * t5797 * t36000 - 0.90492160000000000000e-2 * t5774 * t11411 - 0.16453120000000000000e-1 * t662 * t899 * t36007 - 0.30541104000000000000e-4 * t5005 * t35997 + 0.40721472000000000000e-4 * t5801 * t36000 + 0.16658784000000000000e-4 * t5005 * t36014 + 0.38562000000000000000e-1 * t5730 * t35983 - 0.55529280000000000000e-2 * t5011 * t36014 + 0.59231232000000000000e-4 * t19689 * t36022 - 0.88846848000000000000e-4 * t16138 * t36025 - 0.33317568000000000000e-4 * t16310 * t36029 - 0.16900000000000000000e3 * t5050 * t3462 * t2127;
14866   t36038 = t1033 * t2751;
14867   t36039 = t36038 * t334;
14868   t36044 = t1033 * t2736;
14869   t36045 = t36044 * t334;
14870   t36072 = 0.18509760000000000000e-2 * t5777 * t36039 - 0.55529280000000000000e-5 * t5782 * t36039 - 0.27764640000000000000e-2 * t5011 * t36045 + 0.83293920000000000000e-5 * t5005 * t36045 - 0.11846246400000000000e-3 * t656 * t2383 * t3343 - 0.30849600000000000000e-1 * t34574 * t6819 + 0.39981081600000000000e-6 * t34566 * t6827 + 0.92548800000000000000e-4 * t34577 * t6819 + 0.11846246400000000000e-3 * t34581 * t6815 - 0.26654054400000000000e-6 * t34590 * t6815 + 0.61699200000000000000e-4 * t34570 * t6819 - 0.17769369600000000000e-3 * t34587 * t6827 + 0.39981081600000000000e-6 * t34598 * t6815 + 0.10180368000000000000e-4 * t1853 * t10319 * t2358;
14871   t36078 = t11315 * t283;
14872   t36084 = t2949 * t2363;
14873   t36089 = t2149 * t9646;
14874   t36092 = t1030 * t2191;
14875   t36105 = t10853 * t6844;
14876   t36108 = t10853 * t6883;
14877   t36111 = -0.75111111111111111111e2 * t10947 * t6939 + 0.56333333333333333333e2 * t10464 * t876 * t2127 - 0.55529280000000000000e-5 * t36078 * t3343 + 0.10411740000000000000e-2 * t5051 * t3332 * t26002 - 0.25708000000000000000e-2 * t1853 * t36084 - 0.25708000000000000000e-2 * t1844 * t36084 + 0.57843000000000000000e-2 * t5730 * t36089 - 0.46274400000000000000e-2 * t5730 * t36092 - 0.82265600000000000000e-2 * t5735 * t35971 + 0.24679680000000000000e-4 * t5740 * t35971 + 0.37019520000000000000e-2 * t34317 * t11377 + 0.37019520000000000000e-2 * t5777 * t35978 + 0.16658784000000000000e-4 * t5005 * t35986 - 0.67869120000000000000e-2 * t5777 * t36105 + 0.10180368000000000000e-1 * t5011 * t36108;
14878   t36122 = t1030 * t2187;
14879   t36143 = 0.90492160000000000000e-2 * t5771 * t11420 - 0.16453120000000000000e-1 * t656 * t899 * t36007 + 0.20360736000000000000e-4 * t5782 * t36105 - 0.30541104000000000000e-4 * t5005 * t36108 + 0.30849600000000000000e-2 * t5725 * t36122 + 0.46274400000000000000e-2 * t5730 * t36122 - 0.61699200000000000000e-2 * t5745 * t36092 - 0.92548800000000000000e-4 * t34686 * t6819 + 0.23692492800000000000e-3 * t34594 * t6827 + 0.41132800000000000000e-1 * t34689 * t6819 - 0.53308108800000000000e-6 * t34601 * t6827 - 0.12339840000000000000e-3 * t34692 * t6819 - 0.20566400000000000000e-1 * t34604 * t6819 + 0.5070e1 * t33383 * t2723;
14880   t36144 = t5709 * t307;
14881   t36147 = t10905 * t6987;
14882   t36152 = t10916 * t6987;
14883   t36157 = t36021 * t6975;
14884   t36173 = t1030 * t21975;
14885   t36179 = t3462 * t21858;
14886   t36182 = 0.38562000000000000000e-2 * t36144 * t10906 - 0.51416000000000000000e-2 * t5725 * t36147 - 0.77124000000000000000e-2 * t5730 * t36147 + 0.77124000000000000000e-2 * t5730 * t36152 + 0.10283200000000000000e-1 * t5745 * t36152 + 0.10661621760000000000e-5 * t20112 * t36157 - 0.21323243520000000000e-8 * t20117 * t36157 + 0.5070e1 * t1764 * t3329 * t2736 - 0.15210e2 * t33115 * t6794 + 0.10140e2 * t5709 * t10893 - 0.2535e1 * t10453 * t2736 - 0.2535e1 * t7032 * t3329 + 0.74039040000000000000e-4 * t5801 * t36173 - 0.19743744000000000000e-1 * t19677 * t3349 * t25865 - 0.66635136000000000000e-4 * t16310 * t36179;
14887   t36186 = t3462 * t21862;
14888   t36189 = t1030 * t22023;
14889   t36192 = t1030 * t22030;
14890   t36195 = t10866 * t21995;
14891   t36200 = t6814 * t700;
14892   t36204 = t10810 * t21858;
14893   t36208 = t10866 * t9646 * sigma[0];
14894   t36213 = t10846 * t21858;
14895   t36216 = t10846 * t21862;
14896   t36219 = t10821 * t6997;
14897   t36222 = t1030 * t21983;
14898   t36227 = 0.11105856000000000000e-3 * t19761 * t36186 + 0.13882320000000000000e-1 * t19857 * t36189 - 0.23137200000000000000e-1 * t19867 * t36192 - 0.24679680000000000000e-1 * t5797 * t36195 + 0.74039040000000000000e-4 * t5801 * t36195 + 0.14807808000000000000e-1 * t19985 * t3349 * t36200 + 0.33317568000000000000e-4 * t16297 * t36204 + 0.12339840000000000000e-1 * t5777 * t36208 - 0.37019520000000000000e-4 * t5782 * t36208 - 0.11105856000000000000e-1 * t16289 * t36213 + 0.22211712000000000000e-1 * t16305 * t36216 + 0.10859059200000000000e-3 * t5758 * t36219 + 0.18509760000000000000e-1 * t5011 * t36222 - 0.24679680000000000000e-1 * t5797 * t36173;
14899   t36228 = t10866 * t21953;
14900   t36243 = t10853 * t6997;
14901   t36252 = t10840 * t21862;
14902   t36256 = t1030 * t9646 * t653;
14903   t36263 = 0.19743744000000000000e-3 * t5758 * t36228 - 0.24432883200000000000e-6 * t5720 * t36219 - 0.55529280000000000000e-4 * t5005 * t36222 + 0.69411600000000000000e-2 * t19862 * t36189 - 0.13882320000000000000e-1 * t19857 * t36192 - 0.18509760000000000000e-1 * t5011 * t36195 + 0.55529280000000000000e-4 * t5005 * t36195 - 0.10859059200000000000e-3 * t5755 * t36243 + 0.12339840000000000000e-1 * t5777 * t36222 - 0.18509760000000000000e-1 * t5011 * t36173 - 0.44423424000000000000e-6 * t5720 * t36228 + 0.33317568000000000000e-4 * t16297 * t36252 + 0.69411600000000000000e-2 * t19862 * t36256 + 0.19743744000000000000e-3 * t5755 * t36228 + 0.24432883200000000000e-6 * t5715 * t36243;
14904   t36283 = t10810 * t21862;
14905   t36298 = -0.37019520000000000000e-4 * t5782 * t36222 + 0.55529280000000000000e-4 * t5005 * t36173 - 0.44423424000000000000e-6 * t5715 * t36228 - 0.11105856000000000000e-1 * t16289 * t36252 - 0.98718720000000000000e-2 * t19713 * t3332 * t36200 + 0.14807808000000000000e-1 * t19985 * t3332 * t25865 + 0.33317568000000000000e-4 * t16297 * t36213 - 0.66635136000000000000e-4 * t16310 * t36216 - 0.66635136000000000000e-4 * t16310 * t36283 - 0.69411600000000000000e-2 * t19862 * t1030 * t9646 * t648 + 0.13882320000000000000e-1 * t19857 * t36256 + 0.18509760000000000000e-1 * t5011 * t36208 - 0.55529280000000000000e-4 * t5005 * t36208 + 0.22211712000000000000e-1 * t16305 * t36179;
14906   t36301 = t10810 * t31485;
14907   t36306 = t1036 * t82;
14908   t36307 = t36306 * t6975;
14909   t36312 = t10840 * t31485;
14910   t36321 = t2149 * t3137;
14911   t36326 = t2149 * t9654;
14912   t36335 = -0.37019520000000000000e-1 * t19757 * t36186 + 0.22211712000000000000e-1 * t16305 * t36301 - 0.66635136000000000000e-4 * t16310 * t36301 - 0.10661621760000000000e-5 * t20120 * t36307 + 0.21323243520000000000e-8 * t20125 * t36307 - 0.11105856000000000000e-1 * t16289 * t36312 + 0.33317568000000000000e-4 * t16297 * t36312 - 0.11105856000000000000e-1 * t16289 * t36204 + 0.22211712000000000000e-1 * t16305 * t36283 - 0.10283200000000000000e-1 * t5735 * t36321 + 0.30849600000000000000e-4 * t5740 * t36321 - 0.57843000000000000000e-2 * t5730 * t36326 + 0.38562000000000000000e-2 * t5725 * t36089 - 0.10283200000000000000e-1 * t5748 * t36321 + 0.30849600000000000000e-4 * t5751 * t36321;
14913   t36343 = t5709 * t1036;
14914   t36378 = -0.77124000000000000000e-2 * t5745 * t36326 - 0.56333333333333333333e2 * t5598 * t20080 * t3462 + 0.56333333333333333333e2 * t36343 * t2127 - 0.29615616000000000000e-4 * t1839 * t10337 * t2383 + 0.66635136000000000000e-7 * t1844 * t33197 * t2383 + 0.20823480000000000000e-2 * t22434 * t11405 + 0.20823480000000000000e-2 * t5051 * t10312 * t6933 - 0.41646960000000000000e-2 * t16220 * t3332 * t26242 + 0.10411740000000000000e-1 * t16225 * t3332 * t6794 + 0.29615616000000000000e-4 * t1849 * t10319 * t2383 + 0.33934560000000000000e-2 * t1839 * t10330 * t2358 - 0.10180368000000000000e-4 * t1844 * t10337 * t2358 - 0.33934560000000000000e-2 * t1849 * t10312 * t2358 - 0.66635136000000000000e-7 * t1853 * t33211 * t2383;
14915   t36424 = -0.41646960000000000000e-2 * t16220 * t3349 * t31187 - 0.41646960000000000000e-2 * t5038 * t10330 * t6933 + 0.10411740000000000000e-1 * t16225 * t3349 * t26242 - 0.20823480000000000000e-1 * t20102 * t3349 * t6794 + 0.10411740000000000000e-2 * t5051 * t3332 * t25952 - 0.20823480000000000000e-2 * t5038 * t3332 * t6799 - 0.49359360000000000000e-2 * t22383 * t7017 * t10372 + 0.74039040000000000000e-2 * t22037 * t7017 * t10378 + 0.10411740000000000000e-2 * t5051 * t3349 * t30945 - 0.20823480000000000000e-2 * t5038 * t3349 * t26002 - 0.20823480000000000000e-2 * t5038 * t3349 * t25952 + 0.34705800000000000000e-2 * t5624 * t3349 * t6799 + 0.74039040000000000000e-2 * t22037 * t7017 * t10361 - 0.98718720000000000000e-2 * t22387 * t7017 * t3326 + 0.10140000000000000000e3 * t34405 * t719 * t2211;
14916   t36426 = t11315 * t276;
14917   t36447 = t1036 * t2751;
14918   t36448 = t36447 * t334;
14919   t36453 = t11294 * t334;
14920   t36461 = 0.18509760000000000000e-2 * t36426 * t3339 - 0.11568600000000000000e-1 * t34554 * t6803 + 0.23137200000000000000e-1 * t34557 * t6807 - 0.23137200000000000000e-1 * t34557 * t6803 + 0.38562000000000000000e-1 * t34562 * t6807 - 0.11568600000000000000e-1 * t34546 * t6807 + 0.11568600000000000000e-1 * t34546 * t6803 - 0.23137200000000000000e-1 * t34551 * t6807 - 0.17769369600000000000e-3 * t34695 * t6815 + 0.30849600000000000000e-1 * t34682 * t6819 - 0.27764640000000000000e-2 * t5011 * t36448 + 0.83293920000000000000e-5 * t5005 * t36448 + 0.37019520000000000000e-2 * t5797 * t36453 - 0.11105856000000000000e-4 * t5801 * t36453 + 0.11846246400000000000e-3 * t662 * t2383 * t3360;
14921   t36466 = t1036 * t2775;
14922   t36467 = t36466 * t334;
14923   t36478 = t11305 * t334;
14924   t36483 = t36306 * t6836;
14925   t36486 = t36306 * t6840;
14926   t36500 = -0.13327027200000000000e-6 * t19695 * t36022 + 0.19990540800000000000e-6 * t16302 * t36025 - 0.55529280000000000000e-2 * t16289 * t36467 + 0.16658784000000000000e-4 * t16297 * t36467 - 0.83293920000000000000e-2 * t22146 * t10810 * t5791 + 0.20823480000000000000e-1 * t34352 * t10810 * t2211 - 0.18509760000000000000e-1 * t19757 * t36478 + 0.55529280000000000000e-4 * t19761 * t36478 - 0.88846848000000000000e-4 * t16138 * t36483 + 0.11846246400000000000e-3 * t19666 * t36486 + 0.19990540800000000000e-6 * t16302 * t36483 - 0.26654054400000000000e-6 * t19672 * t36486 - 0.83293920000000000000e-2 * t22146 * t10840 * t2211 + 0.11105856000000000000e-1 * t16305 * t36029 + 0.5070e1 * t5175 * t11294;
14927   t36528 = t33488 / 0.48e2 - t33492 + 0.32163958997385070134e2 * t6606 * t10772 - 0.10000000000000000000e1 * t1223 * t2802 * t10771 + t275 * (t35911 + t35952 + t35992 + t36035 + t36072 + t36111 + t36143 + t36182 + t36227 + t36263 + t36298 + t36335 + t36378 + t36424 + t36461 + t36500) - 0.96491876992155210402e2 * t5192 * t2806 * t10771 - t34838 + 0.50000000000000000001e0 * t1387 * t11439 + 0.10000000000000000000e1 * t2315 * t10795 + 0.50000000000000000001e0 * t418 * t7822 * t1024 + 0.16081979498692535067e2 * t4223 * t11432 + 0.10000000000000000000e1 * t7849 * t3275 + 0.50000000000000000001e0 * t1461 * t11439 + 0.10000000000000000000e1 * t6630 * t3451 + t2717 * t3366 + 0.50000000000000000001e0 * t7838 * t3275 - t34848 - t34850 / 0.24e2;
14928   t36532 = t3 * (t35780 + t35821 + t35870 + t36528) - t11292 - t11458 - t11460 - t11462 - t34875 - t34876 - t34877 - t34878 - t34879 + t11431;
14929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
14930     v4rho3tau[4] = t35739 + t35741 + t35743 + t36532;
14931 
14932   t36534 = t34882 + t34883 + t34884 + t34885 + t34886 + t34887 + t11475 + t11478 - t11480 - t11482 + t34888 + t11485;
14933   t36535 = t11488 + t11490 - t35714 + t35715 - t10575 + t33532 - t11493 - t11495 - t11497 - t11573 - t11576 - t11578 - t11580;
14934   t36549 = t11192 * t6987;
14935   t36553 = t3591 * tau[0] * t2150;
14936   t36559 = t3601 * tau[0] * t2150;
14937   t36562 = t11084 * t21858;
14938   t36565 = t11084 * t21862;
14939   t36569 = t352 * t31467 * sigma[2];
14940   t36572 = t3598 * t21858;
14941   t36575 = t3598 * t21862;
14942   t36581 = t86 * t876;
14943   t36583 = t352 * t36581 * sigma[2];
14944   t36590 = -0.84500000000000000000e1 * t352 * t10716 * t2736 - 0.51416000000000000000e-2 * t5725 * t36549 + 0.57843000000000000000e-2 * t5730 * t36553 - 0.77124000000000000000e-2 * t5730 * t36549 - 0.57843000000000000000e-2 * t5730 * t36559 + 0.33317568000000000000e-4 * t16297 * t36562 - 0.66635136000000000000e-4 * t16310 * t36565 - 0.55529280000000000000e-4 * t5005 * t36569 + 0.22211712000000000000e-1 * t16305 * t36572 - 0.37019520000000000000e-1 * t19757 * t36575 - 0.19743744000000000000e-1 * t19677 * t3421 * t25865 - 0.24679680000000000000e-1 * t5797 * t36583 - 0.66635136000000000000e-4 * t16310 * t36572 + 0.11105856000000000000e-3 * t19761 * t36575;
14945   t36593 = t11138 * t6997;
14946   t36615 = t1087 * t82;
14947   t36616 = t36615 * t6975;
14948   t36619 = t11084 * t31485;
14949   t36624 = 0.74039040000000000000e-4 * t5801 * t36583 - 0.10859059200000000000e-3 * t5755 * t36593 + 0.24432883200000000000e-6 * t5715 * t36593 - 0.11105856000000000000e-1 * t16289 * t36562 + 0.22211712000000000000e-1 * t16305 * t36565 + 0.14807808000000000000e-1 * t19985 * t3421 * t36200 + 0.37555555555555555556e2 * t352 * t11302 - 0.15210e2 * t33848 * t6794 + 0.10140e2 * t5175 * t11766 + 0.5070e1 * t5175 * t11769 - 0.15210e2 * t16325 * t11758 - 0.21323243520000000000e-8 * t20117 * t36616 + 0.22211712000000000000e-1 * t16305 * t36619 - 0.66635136000000000000e-4 * t16310 * t36619;
14950   t36628 = t3601 * sigma[2];
14951   t36629 = t36628 * t2142;
14952   t36632 = t1090 * t82;
14953   t36633 = t36632 * t6975;
14954   t36640 = t11120 * t31485;
14955   t36646 = t352 * t11090 * t876;
14956   t36651 = t11128 * t21858;
14957   t36654 = t11128 * t21862;
14958   t36664 = 0.55529280000000000000e-4 * t5005 * t36583 - 0.59231232000000000000e-4 * t5758 * t36629 - 0.10661621760000000000e-5 * t20120 * t36633 + 0.13327027200000000000e-6 * t5720 * t36629 + 0.21323243520000000000e-8 * t20125 * t36633 - 0.11105856000000000000e-1 * t16289 * t36640 + 0.33317568000000000000e-4 * t16297 * t36640 + 0.69411600000000000000e-2 * t19862 * t36646 - 0.37019520000000000000e-4 * t5782 * t36569 - 0.11105856000000000000e-1 * t16289 * t36651 + 0.22211712000000000000e-1 * t16305 * t36654 + 0.14807808000000000000e-1 * t19985 * t3402 * t25865 - 0.18509760000000000000e-1 * t5011 * t36583 + 0.33317568000000000000e-4 * t16297 * t36651;
14959   t36667 = t11103 * t6997;
14960   t36672 = t11120 * t21862;
14961   t36687 = t5709 * t1090;
14962   t36690 = t1764 * t3601;
14963   t36706 = -0.66635136000000000000e-4 * t16310 * t36654 + 0.10859059200000000000e-3 * t5758 * t36667 - 0.24432883200000000000e-6 * t5720 * t36667 - 0.11105856000000000000e-1 * t16289 * t36672 + 0.10411740000000000000e-1 * t16225 * t3421 * t26242 - 0.20823480000000000000e-1 * t20102 * t3421 * t6794 + 0.56333333333333333333e2 * t10680 * t876 * t2127 - 0.56333333333333333333e2 * t5598 * t20080 * t3598 + 0.56333333333333333333e2 * t36687 * t2127 + 0.56333333333333333333e2 * t36690 * t2127 - 0.75111111111111111111e2 * t11058 * t6939 + 0.20823480000000000000e-2 * t22434 * t11673 - 0.41646960000000000000e-2 * t16220 * t3402 * t26242 + 0.10411740000000000000e-1 * t16225 * t3402 * t6794 + 0.10411740000000000000e-2 * t5051 * t3402 * t25952;
14964   t36718 = t713 * t306;
14965   t36719 = t36718 * t352;
14966   t36731 = t11103 * t6883;
14967   t36736 = t352 * t3137;
14968   t36739 = t11103 * t6844;
14969   t36748 = -0.20823480000000000000e-2 * t5038 * t3402 * t6799 - 0.49359360000000000000e-2 * t22383 * t7017 * t10629 + 0.74039040000000000000e-2 * t22037 * t7017 * t10638 - 0.82265600000000000000e-2 * t7016 * t36719 + 0.20823480000000000000e-2 * t5051 * t11051 * t5778 - 0.41646960000000000000e-2 * t5038 * t11051 * t5785 - 0.41646960000000000000e-2 * t16220 * t3421 * t31187 - 0.13573824000000000000e-1 * t5797 * t36731 - 0.90492160000000000000e-2 * t5774 * t11655 - 0.21594720000000000000e-1 * t5748 * t36736 - 0.30541104000000000000e-4 * t5005 * t36739 + 0.40721472000000000000e-4 * t5801 * t36731 + 0.64784160000000000000e-4 * t5751 * t36736 + 0.37019520000000000000e-2 * t34317 * t11748;
14970   t36749 = t11138 * t6844;
14971   t36752 = t11138 * t6883;
14972   t36765 = t11181 * t6987;
14973   t36776 = t3591 * sigma[2];
14974   t36777 = t36776 * t2142;
14975   t36784 = -0.67869120000000000000e-2 * t5777 * t36749 + 0.10180368000000000000e-1 * t5011 * t36752 + 0.90492160000000000000e-2 * t5771 * t11649 - 0.21594720000000000000e-1 * t5735 * t36736 + 0.20360736000000000000e-4 * t5782 * t36749 - 0.30541104000000000000e-4 * t5005 * t36752 + 0.13882320000000000000e-1 * t19857 * t36646 + 0.77124000000000000000e-2 * t5730 * t36765 - 0.77124000000000000000e-2 * t5745 * t36559 + 0.10283200000000000000e-1 * t5745 * t36765 + 0.38562000000000000000e-2 * t36144 * t11193 + 0.38562000000000000000e-2 * t5725 * t36553 + 0.59231232000000000000e-4 * t5755 * t36777 + 0.10661621760000000000e-5 * t20112 * t36616 - 0.13327027200000000000e-6 * t5715 * t36777;
14976   t36788 = t36615 * t6836;
14977   t36791 = t36615 * t6840;
14978   t36794 = t352 * t3100;
14979   t36797 = t1090 * t2775;
14980   t36798 = t36797 * t334;
14981   t36803 = t93 * t2775;
14982   t36815 = t36628 * t2187;
14983   t36818 = t36628 * t2191;
14984   t36823 = t36632 * t6836;
14985   t36826 = 0.18509760000000000000e-1 * t5011 * t36569 - 0.13327027200000000000e-6 * t19695 * t36788 + 0.19990540800000000000e-6 * t16302 * t36791 - 0.22211712000000000000e-6 * t5715 * t36794 - 0.55529280000000000000e-2 * t16289 * t36798 + 0.16658784000000000000e-4 * t16297 * t36798 - 0.34705800000000000000e-2 * t19862 * t352 * t36803 - 0.83293920000000000000e-2 * t22146 * t11084 * t5791 + 0.20823480000000000000e-1 * t34352 * t11084 * t2211 - 0.11105856000000000000e-4 * t34320 * t11748 - 0.55529280000000000000e-2 * t5011 * t36815 + 0.74039040000000000000e-2 * t5797 * t36818 + 0.49359360000000000000e-2 * t5774 * t11661 - 0.88846848000000000000e-4 * t16138 * t36823;
14986   t36827 = t36632 * t6840;
14987   t36852 = t11734 * t651;
14988   t36861 = 0.11846246400000000000e-3 * t19666 * t36827 + 0.10180368000000000000e-1 * t5011 * t36739 + 0.5070e1 * t10680 * t6799 + 0.5070e1 * t22188 * t3396 + 0.10140e2 * t5709 * t11159 + 0.5070e1 * t1764 * t11730 * t653 + 0.10140e2 * t34893 * t2211 + 0.84500000000000000000e1 * t7032 * t3399 - 0.28166666666666666667e2 * t2121 * t11175 + 0.37555555555555555556e2 * t652 * t352 * t700 + 0.28166666666666666667e2 * t352 * t6981 - 0.2535e1 * t36852 * t653 - 0.2535e1 * t1836 * t11730 + 0.61699200000000000000e-4 * t35508 * t6819 - 0.17769369600000000000e-3 * t35472 * t6827;
14989   t36893 = -0.30849600000000000000e-1 * t35461 * t6819 + 0.39981081600000000000e-6 * t35499 * t6815 - 0.92548800000000000000e-4 * t35518 * t6819 + 0.23692492800000000000e-3 * t35495 * t6827 + 0.41132800000000000000e-1 * t35521 * t6819 - 0.53308108800000000000e-6 * t35502 * t6827 - 0.12339840000000000000e-3 * t35524 * t6819 - 0.17769369600000000000e-3 * t35527 * t6815 + 0.30849600000000000000e-1 * t35514 * t6819 - 0.23137200000000000000e-1 * t35303 * t6803 + 0.38562000000000000000e-1 * t35306 * t6807 - 0.11568600000000000000e-1 * t35482 * t6807 + 0.11568600000000000000e-1 * t35482 * t6803 - 0.23137200000000000000e-1 * t35488 * t6807;
14990   t36929 = -0.11568600000000000000e-1 * t35491 * t6803 + 0.23137200000000000000e-1 * t35303 * t6807 + 0.39981081600000000000e-6 * t35479 * t6827 + 0.92548800000000000000e-4 * t35465 * t6819 + 0.11846246400000000000e-3 * t35469 * t6815 - 0.20566400000000000000e-1 * t35505 * t6819 - 0.26654054400000000000e-6 * t35476 * t6815 + 0.60840e2 * t16219 * t11758 * t653 + 0.16900000000000000000e2 * t352 * t33973 * t2723 - 0.30420e2 * t19771 * t11171 - 0.30420e2 * t5050 * t11766 * t653 - 0.15210e2 * t5050 * t11769 * t653 - 0.98718720000000000000e-2 * t19713 * t3402 * t36200 + 0.12339840000000000000e-1 * t5777 * t36569 + 0.33317568000000000000e-4 * t16297 * t36672;
14991   t36931 = t11769 * t334;
14992   t36936 = t93 * t2736;
14993   t36937 = t352 * t36936;
14994   t36940 = t3591 * t873;
14995   t36941 = t36940 * t334;
14996   t36946 = t352 * t9646;
14997   t36949 = t1087 * t2751;
14998   t36950 = t36949 * t334;
14999   t36955 = t93 * t2751;
15000   t36956 = t352 * t36955;
15001   t36959 = t3591 * t876;
15002   t36960 = t36959 * t334;
15003   t36965 = t11758 * t334;
15004   t36970 = t93 * t2723;
15005   t36971 = t352 * t36970;
15006   t36974 = 0.37019520000000000000e-2 * t5797 * t36931 - 0.11105856000000000000e-4 * t5801 * t36931 + 0.23137200000000000000e-2 * t5745 * t36937 + 0.37019520000000000000e-2 * t5777 * t36941 - 0.11105856000000000000e-4 * t5782 * t36941 + 0.38562000000000000000e-2 * t5725 * t36946 + 0.18509760000000000000e-2 * t5777 * t36950 - 0.55529280000000000000e-5 * t5782 * t36950 - 0.11568600000000000000e-2 * t5725 * t36956 - 0.55529280000000000000e-2 * t5011 * t36960 + 0.16658784000000000000e-4 * t5005 * t36960 - 0.18509760000000000000e-1 * t19757 * t36965 + 0.55529280000000000000e-4 * t19761 * t36965 - 0.11568600000000000000e-1 * t19867 * t36971;
15007   t36975 = t1090 * t2751;
15008   t36976 = t36975 * t334;
15009   t36983 = t11766 * t334;
15010   t36988 = t352 * t9654;
15011   t36996 = t1087 * t2723;
15012   t36997 = t36996 * t334;
15013   t37004 = t36776 * t2187;
15014   t37007 = t36776 * t2191;
15015   t37014 = -0.27764640000000000000e-2 * t5011 * t36976 + 0.83293920000000000000e-5 * t5005 * t36976 - 0.17352900000000000000e-2 * t5730 * t36956 + 0.74039040000000000000e-2 * t5797 * t36983 - 0.22211712000000000000e-4 * t5801 * t36983 - 0.77124000000000000000e-2 * t5745 * t36988 + 0.64784160000000000000e-4 * t5740 * t36736 - 0.16900000000000000000e3 * t5050 * t3598 * t2127 + 0.11105856000000000000e-1 * t16305 * t36997 - 0.33317568000000000000e-4 * t16310 * t36997 - 0.69411600000000000000e-2 * t19857 * t36971 + 0.37019520000000000000e-2 * t5777 * t37004 - 0.55529280000000000000e-2 * t5011 * t37007 - 0.49359360000000000000e-2 * t5771 * t11676 + 0.59231232000000000000e-4 * t19689 * t36788;
15016   t37046 = -0.88846848000000000000e-4 * t16138 * t36791 - 0.11846246400000000000e-3 * t5771 * t11679 + 0.98718720000000000000e-4 * t5755 * t36794 - 0.11105856000000000000e-4 * t5782 * t37004 + 0.16658784000000000000e-4 * t5005 * t37007 + 0.11846246400000000000e-3 * t5774 * t11664 + 0.98718720000000000000e-4 * t5758 * t36794 + 0.16658784000000000000e-4 * t5005 * t36815 - 0.22211712000000000000e-4 * t5801 * t36818 + 0.19990540800000000000e-6 * t16302 * t36823 - 0.26654054400000000000e-6 * t19672 * t36827 - 0.22211712000000000000e-6 * t5720 * t36794 - 0.83293920000000000000e-2 * t22146 * t11120 * t2211 - 0.57843000000000000000e-2 * t5730 * t36988;
15017   t37047 = t1087 * t2736;
15018   t37048 = t37047 * t334;
15019   t37055 = t3601 * t873;
15020   t37056 = t37055 * t334;
15021   t37063 = t306 * t11734;
15022   t37067 = t287 * t11734;
15023   t37071 = t3416 * t12149;
15024   t37074 = t306 * t11730;
15025   t37078 = t287 * t11730;
15026   t37090 = -0.27764640000000000000e-2 * t5011 * t37048 + 0.83293920000000000000e-5 * t5005 * t37048 + 0.17352900000000000000e-2 * t5730 * t36937 - 0.55529280000000000000e-2 * t5011 * t37056 + 0.16658784000000000000e-4 * t5005 * t37056 + 0.57843000000000000000e-2 * t5730 * t36946 + 0.92548800000000000000e-3 * t1849 * t37063 * t334 - 0.27764640000000000000e-5 * t1853 * t37067 * t334 - 0.25708000000000000000e-2 * t1853 * t37071 - 0.92548800000000000000e-3 * t1839 * t37074 * t334 + 0.27764640000000000000e-5 * t1844 * t37078 * t334 - 0.25708000000000000000e-2 * t1844 * t37071 + 0.18509760000000000000e-2 * t36426 * t3409 - 0.55529280000000000000e-5 * t36078 * t3413 - 0.11568600000000000000e-2 * t36078 * t3418;
15027   t37133 = 0.20823480000000000000e-2 * t5051 * t11044 * t5785 + 0.10411740000000000000e-2 * t5051 * t3402 * t26002 + 0.20823480000000000000e-2 * t5051 * t11044 * t5791 - 0.41646960000000000000e-2 * t5038 * t11044 * t2211 + 0.10411740000000000000e-2 * t5051 * t3421 * t30945 - 0.20823480000000000000e-2 * t5038 * t3421 * t26002 - 0.41646960000000000000e-2 * t5038 * t11051 * t5791 + 0.69411600000000000000e-2 * t5624 * t11051 * t2211 - 0.20823480000000000000e-2 * t5038 * t3421 * t25952 + 0.34705800000000000000e-2 * t5624 * t3421 * t6799 + 0.74039040000000000000e-2 * t22037 * t7017 * t10606 - 0.98718720000000000000e-2 * t22387 * t7017 * t3396 - 0.82265600000000000000e-2 * t7021 * t36719 - 0.34705800000000000000e-3 * t2153 * t37063 * t648;
15028   t37153 = t22430 * t1090;
15029   t37156 = t5599 * t3601;
15030   t37173 = 0.52058700000000000000e-3 * t1775 * t37063 * t653 + 0.10411740000000000000e-2 * t22434 * t11686 - 0.69411600000000000000e-3 * t10970 * t11704 - 0.34705800000000000000e-3 * t10970 * t11707 - 0.33800000000000000000e2 * t22333 * t11039 + 0.56333333333333333333e2 * t5697 * t3697 * t876 - 0.16900000000000000000e2 * t5697 * t3417 * t2736 + 0.37555555555555555556e2 * t11033 * t6987 - 0.37555555555555555556e2 * t5598 * t37153 + 0.28166666666666666667e2 * t5598 * t37156 - 0.28166666666666666667e2 * t11164 * tau[0] * t2150 + 0.10411740000000000000e-2 * t35961 * t3406 + 0.52058700000000000000e-3 * t1775 * t37074 * t648 - 0.69411600000000000000e-3 * t2165 * t37074 * t653 + 0.50700000000000000000e2 * t19838 * t3417 * t2723;
15031   t37195 = t1079 * t2099;
15032   t37213 = 0.50000000000000000001e0 * t502 * t522 * t11570 + 0.2e1 * t2114 * t3634 + 0.10000000000000000000e1 * t2269 * t11021 + 0.10000000000000000000e1 * t7865 * t3384 + t275 * (t36590 + t36624 + t36664 + t36706 + t36748 + t36784 + t36826 + t36861 + t36893 + t36929 + t36974 + t37014 + t37046 + t37090 + t37133 + t37173) + 0.10000000000000000000e1 * t2272 * t11021 + 0.50000000000000000001e0 * t7854 * t3384 + 0.50000000000000000001e0 * t7862 * t3384 + 0.16081979498692535067e2 * t4193 * t11486 + 0.16081979498692535067e2 * t4201 * t11486 - 0.10000000000000000000e1 * t4231 * t11491 - 0.10000000000000000000e1 * t4212 * t11491 + 0.10000000000000000000e1 * t2269 * t11026 - 0.20000000000000000000e1 * t1231 * t793 * t37195 + 0.32163958997385070134e2 * t5942 * t11232 + 0.16081979498692535067e2 * t1213 * t7518 * t11228 + 0.2e1 * t859 * t11226 + 0.10000000000000000000e1 * t6551 * t3548 + 0.10000000000000000000e1 * t6554 * t3548 + 0.32163958997385070134e2 * t1213 * t2009 * t37195;
15033   t37222 = t389 * t11627;
15034   t37249 = t3582 * t520;
15035   t37262 = t1444 * t127 * t11640;
15036   t37264 = -0.96491876992155210402e2 * t4217 * t2585 * t11228 - 0.20000000000000000000e1 * t6612 * t11229 + 0.30000000000000000000e1 * t1213 * t2816 * t11228 - t387 * t18 * t37222 * t378 / 0.32e2 + 0.10000000000000000000e1 * t6557 * t3548 - 0.15545350000000000000e-1 * t7206 * t1080 - 0.15545350000000000000e-1 * t7209 * t1080 - 0.31090700000000000000e-1 * t7068 * t1080 - 0.31090700000000000000e-1 * t2024 * t3583 - 0.15545350000000000000e-1 * t7073 * t1080 - 0.15545350000000000000e-1 * t7126 * t1080 - 0.31090700000000000000e-1 * t2027 * t3583 - 0.31090700000000000000e-1 * t2048 * t3583 - 0.15545350000000000000e-1 * t482 * t11571 - 0.15545350000000000000e-1 * t497 * t11571 - 0.20000000000000000000e1 * t1231 * t793 * t37249 - 0.20000000000000000000e1 * t5980 * t855 * t35560 + t7797 * t1099 - t387 * t18 * t3375 * t7120 / 0.32e2 - t37262 / 0.72e2;
15037   t37267 = t387 * t127 * t11632;
15038   t37270 = t387 * t127 * t11636;
15039   t37277 = t67 * t127 * t11628;
15040   t37303 = -t37267 / 0.48e2 - t37270 / 0.96e2 + t387 * t1415 * t11268 * t2 / 0.8e1 - t37277 / 0.32e2 + t2717 * t3437 + t33569 / 0.48e2 - t33573 + 0.50000000000000000001e0 * t1208 * t11483 + 0.50000000000000000001e0 * t502 * t7418 * t1079 + 0.50000000000000000001e0 * t1205 * t11483 + 0.10000000000000000000e1 * t502 * t2278 * t3582 + 0.10000000000000000000e1 * t1208 * t11476 - 0.3e1 / 0.32e2 * t380 * t11629 - t35639 + t35641 / 0.72e2 + 0.10000000000000000000e1 * t2272 * t11026 - t35648 + t35659 / 0.24e2 + t33602 / 0.144e3 - 0.10000000000000000000e1 * t1231 * t2618 * t11228;
15041   t37315 = t2423 * t3372;
15042   t37317 = t691 * t11257;
15043   t37324 = t1062 * t2421;
15044   t37330 = t1062 * t2537 * t378;
15045   t37358 = -0.7e1 / 0.72e2 * t5838 * t5839 * t37330 + t2249 * t6504 * t11236 * t2 / 0.6e1 - t2249 * t2250 * t3539 * t689 * t378 / 0.12e2 - 0.3e1 / 0.32e2 * t7257 * t1064 + 0.3e1 / 0.8e1 * t1888 * t1889 * t3540 + t629 * t11795 + t35696 / 0.8e1 - t35699 + t35701 / 0.24e2 + t35703 / 0.24e2 + 0.10000000000000000000e1 * t1205 * t11476;
15046   t37363 = -t11631 - t11635 - t11639 - t11643 - t35718 + t3 * (t37213 + t37264 + t37303 + 0.10345202583854680060e4 * t5231 * t7059 * t11228 + 0.62181400000000000000e-1 * t1104 * t7454 * t1079 + 0.62181400000000000000e-1 * t1104 * t2107 * t3582 + 0.32163958997385070134e2 * t6526 * t11232 - t37315 / 0.32e2 - t37317 / 0.16e2 + 0.32163958997385070134e2 * t1213 * t2009 * t37249 - 0.20000000000000000000e1 * t6677 * t11229 - t2249 * t2250 * t37324 * t378 / 0.24e2 + t6673 * t2250 * t37330 / 0.8e1 + t37358) - t35719 - t35720 - t35721 - t35722 - t35723 + t35724 - t35727;
15047   t37367 = -t11258 / 0.8e1 - t11260 / 0.8e1 + t35728 - t10581 + t35730 + t11647 + t11648 + t11796 - t11266 / 0.24e2 - t35732 + t35733 + t35734 + t35735;
15048   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15049     v4rho3tau[5] = t36534 + t36535 + t37363 + t37367;
15050 
15051   t37411 = -t323 * t18 * t3230 * t8004 / 0.32e2 - 0.7e1 / 0.72e2 * t5275 * t18 * t32764 * t7988 + t4179 * t18 * t10228 * t7988 / 0.8e1 - 0.3e1 / 0.32e2 * t35768 + 0.50000000000000000001e0 * t418 * t8046 * t1024 + 0.15000000000000000000e1 * t2315 * t11439 + 0.15000000000000000000e1 * t7841 * t3451 - 0.30000000000000000000e1 * t5531 * t11453 - 0.96491876992155210402e2 * t5192 * t8063 * t1024 + 0.48245938496077605201e2 * t6707 * t11432 + 0.48245938496077605201e2 * t6606 * t11432 + 0.15000000000000000000e1 * t2264 * t11439 + 0.30000000000000000000e1 * t7849 * t3451 + 0.10345202583854680060e4 * t4358 * t8055 * t1024 + 0.15000000000000000000e1 * t7838 * t3451 + 0.30000000000000000000e1 * t1454 * t8596 * t1024 + t34100 / 0.48e2;
15052   t37445 = t1030 * t31406 * sigma[2];
15053   t37450 = t10810 * t25865;
15054   t37456 = t1030 * t9646 * t876;
15055   t37459 = t10840 * t25865;
15056   t37466 = 0.50700000000000000000e2 * t1030 * t25787 - 0.67600000000000000000e2 * t2121 * t11312 + 0.82622222222222222221e2 * t652 * t1030 * t2357 + 0.10411740000000000000e-2 * t26229 * t1042 - 0.45630e2 * t5050 * t3462 * t2736 + 0.67600000000000000000e2 * t1030 * t25798 - 0.25350000000000000000e2 * t1030 * t25790 + 0.25350000000000000000e2 * t7032 * t3465 + 0.55529280000000000000e-1 * t5011 * t37445 - 0.16658784000000000000e-3 * t5005 * t37445 + 0.66635136000000000000e-1 * t16305 * t37450 - 0.19990540800000000000e-3 * t16310 * t37450 + 0.41646960000000000000e-1 * t19857 * t37456 - 0.33317568000000000000e-1 * t16289 * t37459 + 0.99952704000000000000e-4 * t16297 * t37459 + 0.20823480000000000000e-1 * t19862 * t37456;
15057   t37467 = t1030 * t25690;
15058   t37480 = t1030 * t9952;
15059   t37485 = t1030 * t9959;
15060   t37488 = t11305 * t701;
15061   t37491 = t1030 * t31366;
15062   t37494 = t2382 * t873;
15063   t37495 = t36306 * t37494;
15064   t37498 = t36306 * t27615;
15065   t37507 = -0.55529280000000000000e-1 * t5011 * t37467 + 0.16658784000000000000e-3 * t5005 * t37467 - 0.11105856000000000000e-3 * t5782 * t37445 + 0.37019520000000000000e-1 * t5777 * t37445 - 0.74039040000000000000e-1 * t5797 * t37467 + 0.22211712000000000000e-3 * t5801 * t37467 - 0.58614240000000000000e-1 * t5748 * t37480 + 0.17584272000000000000e-3 * t5751 * t37480 + 0.29615616000000000000e-3 * t5755 * t37485 + 0.16658784000000000000e-3 * t19761 * t37488 - 0.34705800000000000000e-1 * t19867 * t37491 - 0.26654054400000000000e-3 * t16138 * t37495 + 0.35538739200000000000e-3 * t19666 * t37498 + 0.29615616000000000000e-3 * t5758 * t37485 + 0.59971622400000000000e-6 * t16302 * t37495 - 0.79962163200000000000e-6 * t19672 * t37498;
15066   t37511 = t36028 * t701;
15067   t37518 = t36021 * t37494;
15068   t37521 = t10846 * t2358;
15069   t37524 = t3462 * t2358;
15070   t37527 = t1030 * t8236;
15071   t37530 = t10810 * t2358;
15072   t37535 = t1030 * t31443;
15073   t37550 = -0.66635136000000000000e-6 * t5720 * t37485 + 0.33317568000000000000e-1 * t16305 * t37511 - 0.99952704000000000000e-4 * t16310 * t37511 - 0.20823480000000000000e-1 * t19857 * t37491 + 0.17769369600000000000e-3 * t19689 * t37518 + 0.30541104000000000000e-1 * t5011 * t37521 + 0.12216441600000000000e-3 * t5801 * t37524 - 0.18509760000000000000e-1 * t5745 * t37527 + 0.30541104000000000000e-1 * t5011 * t37530 - 0.91623312000000000000e-4 * t5005 * t37530 + 0.13882320000000000000e-1 * t5730 * t37535 - 0.40721472000000000000e-1 * t5797 * t37524 - 0.69411600000000000000e-3 * t2165 * t3349 * t8211 + 0.11846246400000000000e-3 * t25748 * t25744 * t1036 - 0.10140000000000000000e3 * t35947 * t6806 + 0.15210000000000000000e3 * t34405 * t25811;
15074   t37593 = -0.50700000000000000000e2 * t10967 * t26030 - 0.10411740000000000000e-2 * t13591 * t11320 + 0.31235220000000000000e-2 * t35961 * t3471 - 0.34705800000000000000e-3 * t2153 * t3332 * t8229 + 0.52058700000000000000e-3 * t1775 * t3332 * t8211 - 0.11846246400000000000e-3 * t25743 * t25744 * t1033 + 0.52058700000000000000e-3 * t1775 * t3349 * t8229 - 0.27147648000000000000e-1 * t7021 * t25724 * t1036 - 0.20823480000000000000e-1 * t20102 * t3349 * t8191 + 0.13520000000000000000e3 * t10967 * t26023 + 0.27147648000000000000e-1 * t7016 * t25724 * t1033 + 0.10411740000000000000e-1 * t16225 * t3332 * t8191 - 0.15210e2 * t33115 * t8191 - 0.2535e1 * t3321 * t8211 - 0.2535e1 * t25679 * t1036 + 0.15210e2 * t10464 * t8356 + 0.15210e2 * t22188 * t3462;
15075   t37609 = t2357 * t873;
15076   t37610 = t10853 * t37609;
15077   t37617 = t36021 * t27615;
15078   t37620 = t36447 * t701;
15079   t37625 = t1030 * t31383;
15080   t37628 = t11294 * t701;
15081   t37633 = t1030 * t26191;
15082   t37638 = -0.45630e2 * t19771 * t11305 + 0.15210e2 * t5709 * t11294 + 0.5070e1 * t1764 * t1036 * t8211 + 0.82622222222222222221e2 * t1030 * t2357 * t297 + 0.60840e2 * t16219 * t1036 * t8191 - 0.20360736000000000000e-1 * t5777 * t37610 - 0.58614240000000000000e-1 * t5735 * t37480 + 0.17584272000000000000e-3 * t5740 * t37480 - 0.26654054400000000000e-3 * t16138 * t37617 - 0.83293920000000000000e-2 * t5011 * t37620 + 0.24988176000000000000e-4 * t5005 * t37620 - 0.52058700000000000000e-2 * t5730 * t37625 + 0.11105856000000000000e-1 * t5797 * t37628 - 0.33317568000000000000e-4 * t5801 * t37628 + 0.69411600000000000000e-2 * t5745 * t37633 - 0.39981081600000000000e-6 * t19695 * t37518;
15083   t37643 = t36466 * t701;
15084   t37653 = t36038 * t701;
15085   t37660 = t36044 * t701;
15086   t37675 = 0.59971622400000000000e-6 * t16302 * t37617 - 0.66635136000000000000e-6 * t5715 * t37485 - 0.16658784000000000000e-1 * t16289 * t37643 + 0.49976352000000000000e-4 * t16297 * t37643 - 0.10411740000000000000e-1 * t19862 * t1030 * t31433 - 0.55529280000000000000e-1 * t19757 * t37488 + 0.55529280000000000000e-2 * t5777 * t37653 - 0.16658784000000000000e-4 * t5782 * t37653 - 0.34705800000000000000e-2 * t5725 * t37625 - 0.83293920000000000000e-2 * t5011 * t37660 + 0.24988176000000000000e-4 * t5005 * t37660 + 0.52058700000000000000e-2 * t5730 * t37633 - 0.91623312000000000000e-4 * t5005 * t37521 - 0.13882320000000000000e-1 * t5730 * t37527 + 0.61082208000000000000e-4 * t5782 * t37610 + 0.92548800000000000000e-2 * t5725 * t37535;
15087   t37681 = t2388 * t306 * t1030;
15088   t37722 = -0.29615616000000000000e-1 * t22387 * t7017 * t3462 - 0.24679680000000000000e-1 * t7021 * t37681 + 0.10661621760000000000e-5 * t1849 * t10323 * t8220 - 0.21323243520000000000e-8 * t1853 * t33215 * t8220 - 0.12494088000000000000e-1 * t16220 * t3349 * t26087 + 0.55529280000000000000e-2 * t36426 * t3474 - 0.16658784000000000000e-4 * t36078 * t3477 - 0.34705800000000000000e-2 * t36078 * t3481 + 0.31235220000000000000e-2 * t5051 * t3332 * t26133 + 0.31235220000000000000e-2 * t5051 * t3332 * t26062 - 0.62470440000000000000e-2 * t5038 * t3332 * t8356 - 0.14807808000000000000e-1 * t22383 * t7017 * t10840 + 0.22211712000000000000e-1 * t22037 * t7017 * t10846 - 0.24679680000000000000e-1 * t7016 * t37681 + 0.31235220000000000000e-2 * t5051 * t3349 * t26093 - 0.62470440000000000000e-2 * t5038 * t3349 * t26133;
15089   t37723 = t3480 * t8206;
15090   t37773 = -0.56557600000000000000e-2 * t1853 * t37723 + 0.15836128000000000000e-1 * t1849 * t3332 * t8199 - 0.47508384000000000000e-4 * t1853 * t3342 * t8199 - 0.56557600000000000000e-2 * t1844 * t37723 - 0.15836128000000000000e-1 * t1839 * t3349 * t8199 + 0.47508384000000000000e-4 * t1844 * t3359 * t8199 - 0.32577177600000000000e-3 * t1849 * t3342 * t8216 + 0.32577177600000000000e-3 * t1839 * t3359 * t8216 - 0.73298649600000000000e-6 * t1844 * t10341 * t8216 - 0.12494088000000000000e-1 * t16220 * t3332 * t26100 + 0.73298649600000000000e-6 * t1853 * t10323 * t8216 + 0.31235220000000000000e-1 * t16225 * t3349 * t26100 - 0.10661621760000000000e-5 * t1839 * t10341 * t8220 + 0.21323243520000000000e-8 * t1844 * t33201 * t8220 - 0.62470440000000000000e-2 * t5038 * t3349 * t26062 + 0.10411740000000000000e-1 * t5624 * t3349 * t8356 + 0.22211712000000000000e-1 * t22037 * t7017 * t10810;
15091   t37796 = -0.30000000000000000000e1 * t1223 * t2802 * t1024 * t766 - 0.30000000000000000000e1 * t6532 * t11453 - 0.15545350000000000000e-1 * t8528 * t1025 - 0.46636050000000000000e-1 * t8531 * t1025 - 0.46636050000000000000e-1 * t8534 * t1025 - 0.15545350000000000000e-1 * t8548 * t1025 + t275 * (t37466 + t37507 + t37550 + t37593 + t37638 + t37675 + t37722 + t37773) + t34768 / 0.16e2 - t35827 / 0.32e2 - t35830 / 0.24e2 + 0.48245938496077605201e2 * t1454 * t2001 * t1024 * t2687 - t2256 * t2257 * t35794 * t680 / 0.8e1 - 0.3e1 / 0.32e2 * t8795 * t1009 - t33492 + 0.3e1 * t859 * t11430 + t8590 * t1045 + 0.3e1 * t2717 * t3498;
15092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15093     v4rho3tau[6] = t3 * (t37411 + t37796) - 0.9e1 / 0.32e2 * t11291 + 0.3e1 * t11293 + 0.3e1 * t11431 + 0.48245938496077605201e2 * t11433 + 0.30000000000000000000e1 * t11435 + 0.30000000000000000000e1 * t11437 + 0.15000000000000000000e1 * t11440 + t32754 - t10995 / 0.16e2 + 0.6e1 * t11443 - 0.3e1 / 0.32e2 * t11447 - t11451 / 0.8e1 - 0.30000000000000000000e1 * t11454 - 0.3e1 / 0.16e2 * t10769 - 0.46636050000000000000e-1 * t11457 - 0.93272100000000000000e-1 * t11459 - 0.46636050000000000000e-1 * t11461;
15094 
15095   t37827 = 0.30000000000000000000e1 * t11474 + 0.30000000000000000000e1 * t11477 - 0.9e1 / 0.32e2 * t11479 - 0.9e1 / 0.16e2 * t11481 + 0.15000000000000000000e1 * t11484 + 0.48245938496077605201e2 * t11487 + 0.30000000000000000000e1 * t11489 + t33532 - 0.30000000000000000000e1 * t11492 - 0.46636050000000000000e-1 * t11494 - 0.93272100000000000000e-1 * t11496 - 0.46636050000000000000e-1 * t11572 - 0.46636050000000000000e-1 * t11575;
15096   t37838 = t11766 * t701;
15097   t37841 = t11769 * t701;
15098   t37844 = t3598 * t2383;
15099   t37848 = 0.44e2 / 0.9e1 * t48 * t2357;
15100   t37850 = 0.880e3 / 0.27e2 * t52 * t2357;
15101   t37851 = -t37848 + t37850;
15102   t37854 = t36940 * t701;
15103   t37857 = t36949 * t701;
15104   t37860 = t11120 * t2383;
15105   t37869 = t11138 * t37609;
15106   t37872 = t11138 * t27595;
15107   t37879 = t37055 * t701;
15108   t37882 = t36975 * t701;
15109   t37885 = 0.22211712000000000000e-1 * t5797 * t37838 + 0.11105856000000000000e-1 * t5797 * t37841 + 0.35538739200000000000e-3 * t19666 * t37844 + 0.2535e1 * t37851 * t297 + 0.11105856000000000000e-1 * t5777 * t37854 + 0.55529280000000000000e-2 * t5777 * t37857 + 0.17769369600000000000e-3 * t19689 * t37860 - 0.33317568000000000000e-4 * t5782 * t37854 - 0.16658784000000000000e-4 * t5782 * t37857 - 0.39981081600000000000e-6 * t19695 * t37860 - 0.20360736000000000000e-1 * t5777 * t37869 + 0.30541104000000000000e-1 * t5011 * t37872 + 0.61082208000000000000e-4 * t5782 * t37869 - 0.91623312000000000000e-4 * t5005 * t37872 - 0.16658784000000000000e-1 * t5011 * t37879 - 0.83293920000000000000e-2 * t5011 * t37882;
15110   t37886 = t11084 * t2383;
15111   t37895 = t36996 * t701;
15112   t37898 = t11084 * t2358;
15113   t37901 = t11758 * t701;
15114   t37904 = t3598 * t2358;
15115   t37913 = t36797 * t701;
15116   t37920 = t36959 * t701;
15117   t37923 = t37047 * t701;
15118   t37926 = t11128 * t2383;
15119   t37929 = -0.26654054400000000000e-3 * t16138 * t37886 + 0.49976352000000000000e-4 * t5005 * t37879 + 0.24988176000000000000e-4 * t5005 * t37882 + 0.59971622400000000000e-6 * t16302 * t37886 - 0.99952704000000000000e-4 * t16310 * t37895 - 0.91623312000000000000e-4 * t5005 * t37898 - 0.55529280000000000000e-1 * t19757 * t37901 - 0.40721472000000000000e-1 * t5797 * t37904 + 0.16658784000000000000e-3 * t19761 * t37901 + 0.12216441600000000000e-3 * t5801 * t37904 + 0.33317568000000000000e-1 * t16305 * t37895 - 0.16658784000000000000e-1 * t16289 * t37913 + 0.30541104000000000000e-1 * t5011 * t37898 + 0.49976352000000000000e-4 * t16297 * t37913 - 0.16658784000000000000e-1 * t5011 * t37920 - 0.83293920000000000000e-2 * t5011 * t37923 - 0.26654054400000000000e-3 * t16138 * t37926;
15120   t37968 = 0.49976352000000000000e-4 * t5005 * t37920 + 0.24988176000000000000e-4 * t5005 * t37923 + 0.59971622400000000000e-6 * t16302 * t37926 - 0.66635136000000000000e-4 * t5801 * t37838 - 0.33317568000000000000e-4 * t5801 * t37841 - 0.79962163200000000000e-6 * t19672 * t37844 + 0.15210e2 * t10680 * t8356 + 0.15210e2 * t22188 * t3598 + 0.30420e2 * t5709 * t11766 + 0.15210e2 * t5709 * t11769 + 0.15210e2 * t1764 * t11730 * t876 + 0.15210e2 * t1764 * t3601 * t2736 + 0.5070e1 * t1764 * t1090 * t8211 - 0.2535e1 * t3391 * t8211 - 0.2535e1 * t25679 * t1090 - 0.7605e1 * t7032 * t3601 - 0.7605e1 * t2121 * t11730;
15121   t37969 = -t37848 - t37850;
15122   t38012 = -0.2535e1 * t652 * t37969 - 0.7605e1 * t36852 * t876 + 0.15210e2 * t34893 * t2723 - 0.7605e1 * t11164 * t2736 - 0.15210e2 * t33848 * t8191 + 0.10411740000000000000e-2 * t26229 * t1096 - 0.45630e2 * t5050 * t3598 * t2736 - 0.45630e2 * t5050 * t3601 * t2723 - 0.45630e2 * t19771 * t11758 + 0.31235220000000000000e-1 * t16225 * t3421 * t26100 - 0.12494088000000000000e-1 * t16220 * t3402 * t26100 - 0.15836128000000000000e-1 * t1839 * t3421 * t8199 + 0.47508384000000000000e-4 * t1844 * t3431 * t8199 + 0.55529280000000000000e-2 * t36426 * t3610 - 0.16658784000000000000e-4 * t36078 * t3613 + 0.15836128000000000000e-1 * t1849 * t3402 * t8199 - 0.47508384000000000000e-4 * t1853 * t3412 * t8199;
15123   t38061 = 0.60840e2 * t16219 * t1090 * t8191 - 0.10411740000000000000e-2 * t11315 * t3616 - 0.17352900000000000000e-3 * t656 * t307 * t37851 + 0.17352900000000000000e-3 * t662 * t307 * t37969 - 0.69411600000000000000e-3 * t2165 * t3421 * t8211 - 0.10411740000000000000e-2 * t13591 * t11707 - 0.10411740000000000000e-2 * t2153 * t11044 * t2751 - 0.34705800000000000000e-3 * t2153 * t3402 * t8229 + 0.15617610000000000000e-2 * t1775 * t11044 * t2736 + 0.52058700000000000000e-3 * t1775 * t3402 * t8211 + 0.15617610000000000000e-2 * t1775 * t37074 * t873 - 0.20823480000000000000e-2 * t2165 * t37074 * t876 - 0.10411740000000000000e-2 * t2153 * t37063 * t873 + 0.15617610000000000000e-2 * t1775 * t37063 * t876 + 0.27147648000000000000e-1 * t7016 * t25724 * t1087 - 0.27147648000000000000e-1 * t7021 * t25724 * t1090;
15124   t38112 = 0.74039040000000000000e-2 * t7021 * t7017 * t3601 + 0.11846246400000000000e-3 * t25748 * t25744 * t1090 - 0.62470440000000000000e-2 * t5038 * t11044 * t2723 - 0.74039040000000000000e-2 * t7016 * t7017 * t3591 - 0.11846246400000000000e-3 * t25743 * t25744 * t1087 + 0.31235220000000000000e-2 * t5051 * t11051 * t2775 + 0.10411740000000000000e-1 * t5624 * t11051 * t2723 + 0.15617610000000000000e-2 * t1775 * t11051 * t2751 + 0.52058700000000000000e-3 * t1775 * t3421 * t8229 - 0.20823480000000000000e-2 * t2165 * t11051 * t2736 - 0.20823480000000000000e-1 * t20102 * t3421 * t8191 + 0.31235220000000000000e-2 * t35961 * t3607 + 0.10411740000000000000e-1 * t16225 * t3402 * t8191 - 0.62470440000000000000e-2 * t5038 * t3402 * t8356 + 0.88846848000000000000e-4 * t1849 * t11073 * t2383 + 0.10661621760000000000e-5 * t1849 * t10723 * t8220 - 0.19990540800000000000e-6 * t1853 * t35141 * t2383;
15125   t38165 = -0.21323243520000000000e-8 * t1853 * t33660 * t8220 - 0.12494088000000000000e-1 * t16220 * t3421 * t26087 + 0.31235220000000000000e-2 * t5051 * t3421 * t26093 - 0.12494088000000000000e-1 * t5038 * t11051 * t6933 - 0.62470440000000000000e-2 * t5038 * t3421 * t26133 - 0.62470440000000000000e-2 * t5038 * t3421 * t26062 + 0.10411740000000000000e-1 * t5624 * t3421 * t8356 - 0.30541104000000000000e-4 * t1844 * t11218 * t2358 - 0.73298649600000000000e-6 * t1844 * t10733 * t8216 - 0.14807808000000000000e-1 * t22383 * t7017 * t11120 + 0.22211712000000000000e-1 * t22037 * t7017 * t11128 - 0.88846848000000000000e-4 * t1839 * t11218 * t2383 - 0.10661621760000000000e-5 * t1839 * t10733 * t8220 + 0.19990540800000000000e-6 * t1844 * t35095 * t2383 + 0.21323243520000000000e-8 * t1844 * t33644 * t8220 + 0.62470440000000000000e-2 * t5051 * t11044 * t6933 + 0.31235220000000000000e-2 * t5051 * t3402 * t26133;
15126   t38205 = t11120 * t25865;
15127   t38210 = t11084 * t25865;
15128   t38215 = 0.31235220000000000000e-2 * t5051 * t3402 * t26062 - 0.83293920000000000000e-5 * t1853 * t37067 * t701 - 0.10180368000000000000e-1 * t1849 * t11044 * t2358 - 0.32577177600000000000e-3 * t1849 * t3412 * t8216 + 0.30541104000000000000e-4 * t1853 * t11073 * t2358 + 0.73298649600000000000e-6 * t1853 * t10723 * t8216 + 0.22211712000000000000e-1 * t22037 * t7017 * t11084 - 0.29615616000000000000e-1 * t22387 * t7017 * t3598 + 0.10180368000000000000e-1 * t1839 * t11051 * t2358 + 0.32577177600000000000e-3 * t1839 * t3431 * t8216 - 0.27764640000000000000e-2 * t1839 * t37074 * t701 + 0.83293920000000000000e-5 * t1844 * t37078 * t701 + 0.27764640000000000000e-2 * t1849 * t37063 * t701 - 0.33317568000000000000e-1 * t16289 * t38205 + 0.99952704000000000000e-4 * t16297 * t38205 + 0.66635136000000000000e-1 * t16305 * t38210 - 0.19990540800000000000e-3 * t16310 * t38210;
15129   t38221 = t706 * t722 * tau[1];
15130   t38224 = t807 * t192 * t2347;
15131   t38227 = t3556 * t198 * t8608;
15132   t38229 = t723 * t2357;
15133   t38232 = t27185 * t3556 * t8608;
15134   t38234 = t2344 * t2341;
15135   t38236 = t8655 * t2371;
15136   t38238 = t2357 * t97;
15137   t38240 = t8657 * t2347;
15138   t38243 = t8665 * tau[1];
15139   t38248 = 0.68855703703703703704e3 * t38221 - 0.12280666666666666666e4 * t38224 + 0.62977777777777777776e3 * t38227 - 0.92367407407407407407e2 * t38229 + 0.62977777777777777777e3 * t38232 + 0.68855703703703703704e3 * t38234 - 0.12280666666666666667e4 * t38236 - 0.92367407407407407407e2 * t38238 - 0.51412939999999999999e4 * t8656 * t38240 - 0.53346858666666666669e3 * t8661 * t38243 - 0.16581852000000000000e5 * t8679 * t38240;
15140   t38259 = t8639 * tau[1];
15141   t38264 = t32587 * tau[1];
15142   t38267 = t32583 * t2347;
15143   t38274 = 0.1e1 / t8686;
15144   t38276 = t38274 * t184 * t8608;
15145   t38279 = -0.26604198400000000001e4 * t8682 * t38243 - 0.19710913333333333333e5 * t8694 * t38240 - 0.38936413866666666669e4 * t8697 * t38243 - 0.78740800000000000000e4 * t8706 * t38240 - 0.17666901333333333334e4 * t8709 * t38243 + 0.13989449244444444445e5 * t2462 * t38259 + 0.63475342222222222222e4 * t2473 * t38259 + 0.41977856000000000001e2 * t27244 * t38264 + 0.56731520000000000001e3 * t27234 * t38267 + 0.18297216000000000000e4 * t27229 * t38267 + 0.20934451200000000000e3 * t27237 * t38264 + 0.81633333333333333333e4 * t27226 * t38276;
15146   t38299 = t9959 * t184;
15147   t38306 = 0.86069999999999999999e4 * t27257 * t38276 + 0.21749973333333333334e4 * t27260 * t38267 + 0.30638489600000000001e3 * t27263 * t38264 + 0.31677333333333333333e4 * t27286 * t38276 + 0.86886400000000000002e3 * t27289 * t38267 + 0.13901824000000000000e3 * t27292 * t38264 + 0.30878666666666666667e4 * t27220 * t38276 + 0.19166972444444444445e4 * t2442 * t38259 + 0.95586122666666666667e4 * t2450 * t38259 - 0.123965856e4 * t805 * t38299 - 0.288181152e4 * t812 * t38299 - 0.164215296e4 * t822 * t38299;
15148   t38307 = t2347 * t8611;
15149   t38310 = t10070 * t800;
15150   t38323 = t10074 * t2487;
15151   t38327 = t8625 * t27239 * t8631;
15152   t38338 = -0.39627533333333333334e3 * t38307 * t8614 + 0.91095563377777777782e3 * t822 * t38310 + 0.68767890488888888891e3 * t805 * t38310 + 0.15986345386666666667e4 * t812 * t38310 + 0.36380000000000000000e3 * t8608 * t38274 * t27154 + 0.43726933333333333335e2 * t2347 * t27151 * t27161 - 0.13432913920000000000e3 * t805 * t38323 + 0.89552759466666666670e1 * t805 * t38327 - 0.31227248640000000000e3 * t812 * t38323 + 0.20818165760000000000e2 * t812 * t38327 - 0.17794334720000000001e3 * t822 * t38323 + 0.11862889813333333334e2 * t822 * t38327;
15153   t38365 = 0.3e1 * t2717 * t3634 + t275 * (t37885 + t37929 + t37968 + t38012 + t38061 + t38112 + t38165 + t38215) - 0.15545350000000000000e-1 * t166 * t180 * (t38248 + t38279 + t38306 + t38338) - 0.15545350000000000000e-1 * t8551 * t1080 - 0.46636050000000000000e-1 * t8554 * t1080 - 0.46636050000000000000e-1 * t2528 * t3583 - 0.46636050000000000000e-1 * t8557 * t1080 - 0.15545350000000000000e-1 * t8515 * t1080 - 0.46636050000000000000e-1 * t2551 * t3583 - 0.93272100000000000000e-1 * t2531 * t3583 - 0.46636050000000000000e-1 * t779 * t11571 - 0.46636050000000000000e-1 * t771 * t11571 + t8590 * t1099 - 0.9e1 / 0.32e2 * t691 * t11629;
15154   t38391 = -0.50536296296296296298e2 * t38221 + 0.90133333333333333335e2 * t38224 - 0.46222222222222222224e2 * t38227 + 0.67792592592592592593e1 * t38229 - 0.46222222222222222223e2 * t38232 - 0.50536296296296296297e2 * t38234 + 0.90133333333333333334e2 * t38236 + 0.67792592592592592593e1 * t38238 - 0.65493333333333333335e-2 * t38307 * t27485 - 0.46573037037037037038e1 * t2376 * t2373 - 0.17566767407407407408e-1 * t723 * t9959 * t89 + 0.19648000000000000001e-1 * t2456 * t722 * t11624 - 0.27943822222222222224e-4 * t8664 * t722 * t11603 * tau[1] + 0.67065173333333333338e-4 * t723 * t10070 * t716;
15155   t38435 = -0.89420231111111111120e-7 * t723 * t10074 * t2401 + 0.42980000000000000001e1 * t10180 * t8814 - 0.13644444444444444445e1 * t8608 * t11506 * t27482 + 0.17974281481481481481e1 * t723 * t9952 * t79 + 0.42980000000000000000e1 * t8850 * t8851 * t2347 + 0.19648000000000000001e-1 * t2442 * t8855 * tau[1] - 0.13644444444444444444e1 * t27408 * t11506 * t79 * t8608 - 0.65493333333333333334e-2 * t8656 * t32453 * t2347 - 0.27943822222222222224e-4 * t8661 * t32458 * tau[1] - 0.46573037037037037037e1 * t2345 * t8864 * tau[1] - 0.17566767407407407408e-1 * t2388 * t97 * t3526 + 0.17974281481481481481e1 * t2382 * t97 * t1055 + 0.67065173333333333338e-4 * t2398 * t97 * t11603 - 0.89420231111111111120e-7 * t8688 * t97 * t2395 * t2401;
15156   t38441 = t1079 * t2617;
15157   t38475 = -0.3e1 / 0.32e2 * t67 * t18 * t70 * (t38391 + t38435) + 0.48245938496077605201e2 * t1213 * t2009 * t38441 - 0.30000000000000000000e1 * t1231 * t793 * t38441 + 0.48245938496077605201e2 * t5942 * t11486 + 0.10345202583854680060e4 * t5231 * t8169 * t1079 + 0.15000000000000000000e1 * t2269 * t11483 + 0.15000000000000000000e1 * t502 * t793 * t11570 + 0.48245938496077605201e2 * t6526 * t11486 + 0.30000000000000000000e1 * t7865 * t3548 + 0.15000000000000000000e1 * t7854 * t3548 - t2249 * t2250 * t37324 * t689 / 0.8e1 + 0.48245938496077605201e2 * t1213 * t2585 * t3582 + 0.30000000000000000000e1 * t2272 * t11476 + 0.3e1 * t859 * t11795;
15158   t38502 = -t37262 / 0.24e2 - t37267 / 0.16e2 - t37270 / 0.32e2 - 0.3e1 / 0.32e2 * t37277 - 0.30000000000000000000e1 * t6677 * t11491 - t33573 - 0.30000000000000000000e1 * t1231 * t2816 * t3582 + t35641 / 0.48e2 - 0.96491876992155210402e2 * t4217 * t8772 * t1079 - 0.30000000000000000000e1 * t6612 * t11491 - 0.3e1 / 0.32e2 * t8799 * t1064 - 0.9e1 / 0.32e2 * t2423 * t3541 + 0.30000000000000000000e1 * t1213 * t8369 * t1079 + 0.15000000000000000000e1 * t502 * t2618 * t3582;
15159   t38540 = 0.15000000000000000000e1 * t2272 * t11483 - 0.3e1 / 0.32e2 * t37315 - 0.3e1 / 0.16e2 * t37317 - 0.7e1 / 0.72e2 * t5284 * t18 * t33596 * t8080 + t4187 * t18 * t10586 * t8080 / 0.8e1 - 0.3e1 / 0.32e2 * t387 * t18 * t11268 * t2421 - t1444 * t18 * t35653 * t2537 / 0.8e1 - t387 * t18 * t3375 * t8101 / 0.32e2 - 0.3e1 / 0.32e2 * t387 * t18 * t37222 * t689 + 0.30000000000000000000e1 * t2269 * t11476 + 0.50000000000000000001e0 * t502 * t8148 * t1079 + 0.15000000000000000000e1 * t7862 * t3548 + t35701 / 0.16e2 + t35703 / 0.16e2;
15160   t38548 = -0.93272100000000000000e-1 * t11577 - 0.93272100000000000000e-1 * t11579 - 0.9e1 / 0.32e2 * t11630 - 0.3e1 / 0.16e2 * t11634 - 0.3e1 / 0.32e2 * t11638 - t11642 / 0.8e1 - 0.3e1 / 0.16e2 * t11258 - 0.3e1 / 0.16e2 * t11260 + t3 * (t38365 + t38475 + t38502 + t38540) + 0.6e1 * t11646 + 0.3e1 * t11648 + 0.3e1 * t11796 - t11266 / 0.16e2;
15161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15162     v4rho3tau[7] = t37827 + t38548;
15163 
15164   t38550 = t11804 / 0.16e2;
15165   t38560 = t323 * t127 * t11807;
15166   t38562 = t325 * t11840;
15167   t38571 = t1756 * t3650;
15168   t38597 = t1797 * t1154;
15169   t38610 = t1794 * t1154;
15170   t38613 = 0.56223396000000000000e-7 * t1775 * t11930 * t5628 - 0.59971622400000000000e-9 * t1853 * t11940 * t9009 + 0.59971622400000000000e-9 * t1844 * t11940 * t5006 - 0.24988176000000000000e-4 * t9016 * t11916 * t5628 + 0.29985811200000000000e-6 * t1849 * t11926 * t9009 - 0.29985811200000000000e-6 * t1839 * t11926 * t5006 - 0.10550563200000000000e-6 * t305 * t38597 - 0.69411600000000000000e-3 * t1764 * t3677 * t1806 + 0.37019520000000000000e-2 * t656 * t8961 - 0.13882320000000000000e-2 * t1812 * t3677 * t1765 - 0.37019520000000000000e-2 * t662 * t8968 + 0.46891392000000000000e-4 * t305 * t38610;
15171   t38620 = t8917 * sigma[0];
15172   t38624 = t1182 * t640 * t33;
15173   t38627 = t1160 * sigma[0];
15174   t38630 = t1182 * t33;
15175   t38644 = -0.34705800000000000000e-3 * t656 * t3677 * t1827 + 0.34705800000000000000e-3 * t662 * t3677 * t1820 + 0.79591968000000000000e-4 * t305 * t38620 - 0.26654054400000000000e-6 * t305 * t38624 + 0.10529248320000000000e-10 * t5022 * t38627 - 0.35260738560000000000e-13 * t16066 * t38630 + 0.10237047840000000000e-5 * t5014 * t38627 - 0.46361963520000000000e-8 * t16054 * t38630 - 0.63175489920000000000e-8 * t5017 * t38627 + 0.23507159040000000000e-10 * t16061 * t38630 - 0.39076160000000000000e-2 * t305 * t5046 - 0.95638400000000000000e-3 * t5046;
15176   t38672 = t1774 * t37;
15177   t38675 = t656 * t346;
15178   t38679 = t662 * t346;
15179   t38686 = 0.16658784000000000000e-4 * t5110 * t11916 * t1765 + 0.44423424000000000000e-4 * t1839 * t2958 * t653 - 0.18741132000000000000e-7 * t2153 * t11930 * t1806 + 0.21323243520000000000e-8 * t666 * t1801 * t1182 * t33 - 0.93705660000000000000e-8 * t1853 * t11930 * t1827 + 0.93705660000000000000e-8 * t1844 * t11930 * t1820 + 0.14326554240000000000e-8 * t671 * t8953 * sigma[0] - 0.39981081600000000000e-11 * t671 * t5021 * t1182 * t33 + 0.20823480000000000000e-2 * t38672 * t1777 - 0.33317568000000000000e-4 * t38675 * t1854 * sigma[0] + 0.33317568000000000000e-4 * t38679 * t1845 * sigma[0] + 0.41646960000000000000e-5 * t1849 * t11916 * t1827;
15180   t38714 = -0.41646960000000000000e-5 * t1839 * t11916 * t1820 - 0.71632771200000000000e-6 * t666 * t8943 * sigma[0] + 0.99952704000000000000e-7 * t1853 * t2971 * t648 - 0.37482264000000000000e-7 * t2165 * t11930 * t1765 - 0.99952704000000000000e-7 * t1844 * t2971 * t653 + 0.83293920000000000000e-5 * t5125 * t11916 * t1806 - 0.44423424000000000000e-4 * t1849 * t2958 * t648 - 0.62032780800000000000e-9 * t1802 * t1154 - 0.31593504000000000000e-4 * t38610 + 0.31016390400000000000e-6 * t38597 - 0.29257200000000000000e-4 * t38620 + 0.23944550400000000000e-6 * t38624;
15181   t38726 = t1154 * t140;
15182   t38731 = t1179 * t16487;
15183   t38732 = t38731 * t16457;
15184   t38738 = t1160 * t448 * sigma[0];
15185   t38744 = t1182 * t1326 * t33;
15186   t38747 = t343 * t5357;
15187   t38748 = t38747 * t5330;
15188   t38771 = -0.55028053333333333333e2 * t155 * t38726 - 0.55387448888888888889e2 * t149 * t38726 - 0.11194094933333333333e1 * t149 * t38732 + 0.14481066666666666667e3 * t470 * t1271 + 0.11874474666666666667e3 * t155 * t38738 - 0.90506666666666666667e2 * t1302 * t1287 - 0.68118937600000000000e2 * t155 * t38744 + 0.14874951680000000000e2 * t155 * t38748 - 0.11121459199999999999e1 * t155 * t38732 + 0.10931733333333333333e3 * t453 * t1271 + 0.25412800000000000000e3 * t460 * t1271 + 0.11952028444444444444e3 * t149 * t38738 - 0.27329333333333333333e2 * t1133 * t1287 - 0.13629200000000000000e3 * t1315 * t1287 - 0.19946933333333333333e3 * t1282 * t1287 - 0.68563831466666666666e2 * t149 * t38744 + 0.14972101973333333333e2 * t149 * t38748 + 0.10816711111111111111e2 * t38738 - 0.62050986666666666666e1 * t38744;
15189   t38775 = t16559 * t1326;
15190   t38776 = t38775 * t1134;
15191   t38791 = t448 * tau[0] * sigma[0];
15192   t38797 = t16480 * t5330 * tau[0];
15193   t38818 = 0.13549909333333333333e1 * t38748 - 0.10130773333333333333e0 * t38732 - 0.50126222222222222222e1 * t38726 - 0.23936320000000000000e2 * t1283 * t38776 - 0.10860800000000000000e2 * t1303 * t38776 + 0.21863466666666666667e2 * t1138 * t9184 + 0.10903360000000000000e3 * t9145 * t9184 - 0.32795200000000000000e1 * t1312 * t38776 - 0.16355040000000000000e2 * t1316 * t38776 - 0.18535765333333333333e3 * t470 * t1293 * t38791 + 0.59082752000000000000e2 * t471 * t9188 - 0.55607295999999999999e1 * t1306 * t38797 + 0.15957546666666666667e3 * t9150 * t9184 + 0.72405333333333333333e2 * t9138 * t9184 - 0.13992618666666666667e3 * t453 * t1293 * t38791 - 0.32528384000000000000e3 * t460 * t1293 * t38791 + 0.44601472000000000000e2 * t454 * t9188 + 0.10368422400000000000e3 * t461 * t9188 - 0.41977856000000000000e1 * t1319 * t38797 - 0.97585151999999999998e1 * t1290 * t38797;
15194   t38823 = -t38560 / 0.48e2 - t323 * t18 * t38562 * t314 / 0.16e2 - t323 * t18 * t11806 * t1111 / 0.32e2 - t1754 * t18 * t38571 * t1249 / 0.24e2 + 0.2e1 * t629 * t11957 + t1739 * t3691 + t275 * (t38613 + t38644 + t38686 + t38714) - 0.31090700000000000000e-1 * t1382 * t3674 - 0.31090700000000000000e-1 * t395 * t11900 - 0.15545350000000000000e-1 * t1265 * t3674 - 0.31090700000000000000e-1 * t413 * t11900 - 0.15545350000000000000e-1 * t115 * t136 * (t38771 + t38818);
15195   t38847 = t14 * t127 * t11841;
15196   t38857 = t9065 * sigma[0];
15197   t38861 = t1182 * t1185 * t33;
15198   t38871 = t38747 * t4144;
15199   t38883 = t5320 * t349;
15200   t38895 = t349 * tau[0] * sigma[0];
15201   t38898 = 0.21831111111111111110e-2 * t1172 * t11821 - 0.19211377777777777778e-4 * t9093 * t11831 - 0.54577777777777777777e-3 * t1133 * t9046 - 0.33183288888888888889e-2 * t56 * t9062 + 0.58332728888888888889e-4 * t56 * t38857 - 0.31436800000000000001e-6 * t56 * t38861 + 0.21831111111111111112e-5 * t32905 * t1168 * t349 + 0.41915733333333333334e-7 * tau[0] * t5346 * t1173 * t1185 + 0.53652138666666666668e-9 * t56 * t38871 - 0.54577777777777777776e-3 * t9089 * t355 * t40 + 0.64096711111111111109e-3 * t9062 - 0.63826375111111111112e-4 * t38857 + 0.88349627733333333336e-6 * t38861 - 0.42149041493333333335e-8 * t38871 + 0.66444765866666666669e-11 * t38731 * t16831 + 0.21831111111111111111e-5 * t1138 * t38883 * t1134 + 0.41915733333333333334e-7 * t1143 * t5346 * t1185 * tau[0] + 0.21831111111111111110e-2 * t356 * t1145 - 0.19211377777777777778e-4 * t356 * t1293 * t38895;
15202   t38905 = t14 * t431 * t3651 / 0.48e2;
15203   t38906 = t316 * t11803;
15204   t38908 = -0.15545350000000000000e-1 * t1379 * t3674 + 0.10000000000000000000e1 * t1387 * t11849 - 0.10000000000000000000e1 * t1223 * t1225 * t3673 + 0.50000000000000000001e0 * t418 * t1432 * t3673 + 0.16081979498692535067e2 * t1454 * t1457 * t3673 + 0.10000000000000000000e1 * t1461 * t11849 + 0.10000000000000000000e1 * t418 * t441 * t11899 - 0.3e1 / 0.32e2 * t1113 * t3652 - 0.3e1 / 0.16e2 * t316 * t11842 - t38847 / 0.16e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * t38898 + t38905 - t38906 / 0.16e2;
15205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15206     v4rho2sigma2[0] = -0.3e1 / 0.16e2 * t11801 - t38550 - t11809 / 0.16e2 - 0.3e1 / 0.16e2 * t11843 - 0.31090700000000000000e-1 * t11845 - 0.31090700000000000000e-1 * t11847 + 0.10000000000000000000e1 * t11850 - 0.31090700000000000000e-1 * t11901 + 0.2e1 * t11903 + 0.2e1 * t11958 + t3 * (t38823 + t38908);
15207 
15208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15209     v4rho2sigma2[1] = 0.0e0;
15210 
15211   t38911 = t629 * t3712;
15212   t38913 = t275 * t12018;
15213   t38915 = t3 * t1739;
15214   t38919 = t11979 * t9009;
15215   t38922 = t11979 * t5006;
15216   t38925 = t3697 * t5628;
15217   t38940 = t662 * t339;
15218   t38953 = -0.59971622400000000000e-9 * t20117 * t38919 + 0.59971622400000000000e-9 * t20125 * t38922 - 0.24988176000000000000e-4 * t16138 * t38925 + 0.29985811200000000000e-6 * t20112 * t38919 - 0.29985811200000000000e-6 * t20120 * t38922 + 0.56223396000000000000e-7 * t16302 * t38925 + 0.89957433600000000000e-9 * t671 * t9251 * t8989 - 0.39981081600000000000e-11 * t671 * t29472 * t8992 + 0.33317568000000000000e-4 * t38940 * t3019 * t5006 + 0.41646960000000000000e-5 * t1849 * t3019 * t29855 - 0.41646960000000000000e-5 * t1839 * t3019 * t29860 - 0.44978716800000000000e-6 * t666 * t3029 * t8989;
15219   t38954 = t1774 * t26;
15220   t38957 = t656 * t339;
15221   t38961 = t75 * t1126;
15222   t38987 = 0.20823480000000000000e-2 * t38954 * t9255 - 0.33317568000000000000e-4 * t38957 * t3019 * t9009 - 0.17956857600000000000e-9 * t1802 * t38961 - 0.91454880000000000000e-5 * t1794 * t38961 + 0.89784288000000000000e-7 * t1797 * t38961 - 0.18370800000000000000e-4 * t8989 * t3019 + 0.23944550400000000000e-6 * t8992 * t3029 - 0.18741132000000000000e-7 * t2153 * t3029 * t29919 + 0.49976352000000000000e-7 * t1853 * t3029 * t5007 - 0.37482264000000000000e-7 * t2165 * t3029 * t29927 - 0.49976352000000000000e-7 * t1844 * t3029 * t22096 + 0.83293920000000000000e-5 * t5125 * t3019 * t29919;
15223   t39009 = t75 * t1154 * sigma[0];
15224   t39015 = t75 * t1160 * t33;
15225   t39022 = -0.22211712000000000000e-4 * t1849 * t3019 * t5007 + 0.16658784000000000000e-4 * t5110 * t3019 * t29927 + 0.22211712000000000000e-4 * t1839 * t3019 * t22096 + 0.21323243520000000000e-8 * t666 * t9251 * t8992 - 0.93705660000000000000e-8 * t1853 * t3029 * t29855 + 0.93705660000000000000e-8 * t1844 * t3029 * t29860 - 0.27684800000000000000e-3 * t9305 - 0.39668330880000000000e-8 * t5017 * t39009 + 0.66113884800000000000e-11 * t5022 * t39009 + 0.23507159040000000000e-10 * t16061 * t39015 - 0.35260738560000000000e-13 * t16066 * t39015 + 0.64279137600000000000e-6 * t5014 * t39009;
15226   t39032 = t656 * t333;
15227   t39035 = t1812 * t26;
15228   t39038 = t662 * t333;
15229   t39055 = -0.46361963520000000000e-8 * t16054 * t39015 - 0.11311520000000000000e-2 * t305 * t9305 + 0.13573824000000000000e-4 * t666 * t3019 * t1126 - 0.69411600000000000000e-3 * t34412 * t9299 + 0.18509760000000000000e-2 * t39032 * t3010 - 0.13882320000000000000e-2 * t39035 * t9302 - 0.18509760000000000000e-2 * t39038 * t3013 - 0.34705800000000000000e-3 * t11964 * t9308 + 0.34705800000000000000e-3 * t11967 * t9311 + 0.49976352000000000000e-4 * t305 * t1154 * t11973 - 0.26654054400000000000e-6 * t305 * t1160 * t3029 * t33 - 0.30541104000000000000e-7 * t671 * t3029 * t1126;
15230   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15231     v4rho2sigma2[2] = 0.2e1 * t38911 + 0.2e1 * t38913 + t38915 * t3712 + 0.2e1 * t11962 * t12018 + t3694 * (t38953 + t38987 + t39022 + t39055);
15232 
15233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15234     v4rho2sigma2[3] = 0.0e0;
15235 
15236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15237     v4rho2sigma2[4] = 0.0e0;
15238 
15239   t39060 = t12023 / 0.16e2;
15240   t39067 = t86 * t653;
15241   t39068 = t39067 * t334;
15242   t39071 = t86 * t648;
15243   t39072 = t39071 * t334;
15244   t39079 = t1774 * t86;
15245   t39096 = t656 * t86;
15246   t39099 = t662 * t86;
15247   t39112 = t86 * t33 * t1154;
15248   t39117 = 0.59971622400000000000e-9 * t20125 * t39068 + 0.29985811200000000000e-6 * t20112 * t39072 - 0.29985811200000000000e-6 * t20120 * t39068 - 0.59971622400000000000e-9 * t20117 * t39072 + 0.20823480000000000000e-2 * t39079 * t1777 - 0.18741132000000000000e-7 * t2153 * t12064 * t1806 - 0.37482264000000000000e-7 * t2165 * t12064 * t1765 + 0.20360736000000000000e-4 * t12055 * t1771 + 0.83293920000000000000e-5 * t5125 * t12038 * t1806 + 0.16658784000000000000e-4 * t5110 * t12038 * t1765 - 0.33317568000000000000e-4 * t39096 * t1855 + 0.33317568000000000000e-4 * t39099 * t1846 - 0.24988176000000000000e-4 * t9016 * t12038 * t5628 + 0.36649324800000000000e-9 * t671 * t12074 * t1127 - 0.18324662400000000000e-6 * t666 * t12064 * t1127 - 0.46361963520000000000e-8 * t16054 * t39112 + 0.23507159040000000000e-10 * t16061 * t39112;
15249   t39132 = t5021 * t86;
15250   t39136 = t12041 * t1126;
15251   t39167 = -0.35260738560000000000e-13 * t16066 * t39112 - 0.34705800000000000000e-3 * t656 * t3752 * t1827 + 0.34705800000000000000e-3 * t662 * t3752 * t1820 + 0.21323243520000000000e-8 * t666 * t12074 * t1155 + 0.56223396000000000000e-7 * t1775 * t12064 * t5628 - 0.39981081600000000000e-11 * t671 * t39132 * t1155 + 0.26187796800000000000e-6 * t5014 * t39136 - 0.16161171840000000000e-8 * t5017 * t39136 + 0.26935286400000000000e-11 * t5022 * t39136 - 0.69411600000000000000e-3 * t1764 * t3752 * t1806 - 0.13882320000000000000e-2 * t1812 * t3752 * t1765 + 0.23944550400000000000e-6 * t12064 * t1155 - 0.74844000000000000000e-5 * t12038 * t1127 - 0.26654054400000000000e-6 * t12055 * t1785 + 0.41646960000000000000e-5 * t1849 * t12038 * t1827 - 0.41646960000000000000e-5 * t1839 * t12038 * t1820 - 0.93705660000000000000e-8 * t1853 * t12064 * t1827 + 0.93705660000000000000e-8 * t1844 * t12064 * t1820;
15252   t39195 = t387 * t127 * t12026;
15253   t39201 = t1446 * t3725;
15254   t39206 = t380 * t12022;
15255   t39210 = t67 * t431 * t3726 / 0.48e2;
15256   t39211 = t275 * (t39117 + t39167) + 0.2e1 * t629 * t12078 + t1739 * t3766 + 0.10000000000000000000e1 * t1205 * t12034 + 0.10000000000000000000e1 * t1208 * t12034 + 0.50000000000000000001e0 * t502 * t1506 * t3748 + 0.16081979498692535067e2 * t1213 * t1217 * t3748 - 0.15545350000000000000e-1 * t1343 * t3749 - 0.31090700000000000000e-1 * t1346 * t3749 - 0.15545350000000000000e-1 * t1376 * t3749 - 0.10000000000000000000e1 * t1231 * t1232 * t3748 - 0.3e1 / 0.32e2 * t1108 * t3727 - t39195 / 0.48e2 - t387 * t18 * t12025 * t1106 / 0.32e2 - t1444 * t18 * t39201 * t1360 / 0.24e2 - t39206 / 0.16e2 + t39210;
15257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15258     v4rho2sigma2[5] = -0.3e1 / 0.16e2 * t12020 - t39060 - t12028 / 0.16e2 - 0.31090700000000000000e-1 * t12030 - 0.31090700000000000000e-1 * t12032 + 0.10000000000000000000e1 * t12035 + 0.2e1 * t12037 + 0.2e1 * t12079 + t3 * t39211;
15259 
15260   t39213 = t3673 * t439;
15261   t39222 = t323 * t127 * t12084;
15262   t39251 = -0.10000000000000000000e1 * t1223 * t767 * t39213 + 0.16081979498692535067e2 * t1454 * t2001 * t39213 - t38560 / 0.96e2 - t39222 / 0.96e2 - t323 * t18 * t38562 * t680 / 0.32e2 - t323 * t1415 * t11806 * t2 / 0.16e2 + 0.50000000000000000001e0 * t418 * t2311 * t3673 + 0.50000000000000000001e0 * t2264 * t11849 + 0.50000000000000000001e0 * t1387 * t12092 + 0.50000000000000000001e0 * t1461 * t12092 + 0.50000000000000000001e0 * t2315 * t11849 + 0.50000000000000000001e0 * t418 * t767 * t11899 - 0.15545350000000000000e-1 * t745 * t11900 - 0.31090700000000000000e-1 * t1104 * t2104 * t3673;
15263   t39273 = t682 * t11803;
15264   t39277 = t2869 * t719;
15265   t39282 = t12098 * t2187;
15266   t39285 = t12098 * t2191;
15267   t39289 = t346 * sigma[2] * t2141;
15268   t39302 = t662 * t455;
15269   t39305 = t656 * t37;
15270   t39308 = 0.52058700000000000000e-7 * t5715 * t39277 + 0.52058700000000000000e-7 * t5720 * t39277 - 0.29985811200000000000e-9 * t20117 * t39282 + 0.29985811200000000000e-9 * t20125 * t39285 - 0.39981081600000000000e-11 * t19739 * t39289 - 0.23137200000000000000e-4 * t5755 * t39277 - 0.23137200000000000000e-4 * t5758 * t39277 + 0.14992905600000000000e-6 * t20112 * t39282 - 0.14992905600000000000e-6 * t20120 * t39285 + 0.21323243520000000000e-8 * t19732 * t39289 + 0.19281000000000000000e-2 * t39302 * t19729 - 0.16658784000000000000e-4 * t39305 * t2200;
15271   t39309 = t662 * t37;
15272   t39312 = t305 * t346;
15273   t39350 = 0.16658784000000000000e-4 * t39309 * t2203 - 0.26654054400000000000e-6 * t39312 * t20153 * t2141 + 0.83293920000000000000e-5 * t5125 * t11916 * t5778 - 0.12494088000000000000e-4 * t9016 * t11916 * t5785 + 0.14992905600000000000e-6 * t1849 * t11926 * t9514 - 0.12494088000000000000e-4 * t9016 * t11916 * t5791 + 0.16658784000000000000e-4 * t5110 * t11916 * t2211 - 0.26654054400000000000e-6 * t666 * t2971 * t701 + 0.53308108800000000000e-9 * t671 * t1801 * t339 * t701 - 0.14992905600000000000e-6 * t1839 * t11926 * t9490 - 0.18741132000000000000e-7 * t2153 * t11930 * t5778 + 0.28111698000000000000e-7 * t1775 * t11930 * t5785 - 0.29985811200000000000e-9 * t1853 * t11940 * t9514;
15274   t39361 = t656 * t455;
15275   t39387 = 0.28111698000000000000e-7 * t1775 * t11930 * t5791 - 0.37482264000000000000e-7 * t2165 * t11930 * t2211 + 0.29985811200000000000e-9 * t1844 * t11940 * t9490 + 0.19281000000000000000e-2 * t39361 * t19729 + 0.49976352000000000000e-7 * t1853 * t2971 * t873 - 0.49976352000000000000e-7 * t1844 * t2971 * t876 + 0.29615616000000000000e-4 * t11972 * t890 - 0.22211712000000000000e-4 * t1849 * t2958 * t873 + 0.22211712000000000000e-4 * t1839 * t2958 * t876 - 0.46361963520000000000e-8 * t16054 * t346 * t9441 + 0.23507159040000000000e-10 * t16061 * t346 * t9441 - 0.35260738560000000000e-13 * t16066 * t346 * t9441;
15276   t39388 = t1764 * t37;
15277   t39398 = t1812 * t37;
15278   t39406 = t9457 * t700;
15279   t39419 = -0.69411600000000000000e-3 * t39388 * t2155 + 0.10411740000000000000e-2 * t38672 * t2158 - 0.16658784000000000000e-4 * t38675 * t2176 * sigma[0] + 0.10411740000000000000e-2 * t38672 * t2162 - 0.13882320000000000000e-2 * t39398 * t2166 - 0.10886400000000000000e-4 * t2958 * t701 + 0.16658784000000000000e-4 * t38679 * t2183 * sigma[0] + 0.38091340800000000000e-6 * t5014 * t39406 + 0.23944550400000000000e-6 * t11926 * t9441 + 0.18509760000000000000e-2 * t656 * t9447 - 0.18509760000000000000e-2 * t662 * t9450 - 0.23507159040000000000e-8 * t5017 * t39406 + 0.39178598400000000000e-11 * t5022 * t39406;
15280   t39423 = -t2256 * t2257 * t3650 * t680 * t314 / 0.24e2 - 0.15545350000000000000e-1 * t2054 * t3674 - 0.15545350000000000000e-1 * t2063 * t3674 - 0.15545350000000000000e-1 * t753 * t11900 - 0.15545350000000000000e-1 * t2051 * t3674 + t2114 * t3691 + t859 * t11957 + t629 * t12134 - 0.3e1 / 0.32e2 * t682 * t11842 - 0.3e1 / 0.16e2 * t1888 * t1889 * t3651 - t39273 / 0.32e2 - t38847 / 0.32e2 + t38905 - t38906 / 0.32e2 + t275 * (t39308 + t39350 + t39387 + t39419);
15281   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15282     v4rho2sigma2[6] = -t11802 - t38550 - t11810 - t11844 - t11846 - t11848 + t11851 - t11902 + t11903 + t11958 - t12083 - t12087 - t12089 - t12091 + t12094 + t12095 + t12135 + t3 * (t39251 + t39423);
15283 
15284   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15285     v4rho2sigma2[7] = 0.0e0;
15286 
15287   t39426 = t859 * t3712;
15288   t39427 = t3 * t2114;
15289   t39430 = t275 * t12192;
15290   t39446 = t700 * t333;
15291   t39457 = t700 * t339 * sigma[0];
15292   t39467 = t706 * t333 * sigma[2];
15293   t39474 = 0.24988176000000000000e-7 * t1853 * t9699 * t9495 - 0.24988176000000000000e-7 * t1844 * t9699 * t9500 + 0.26654054400000000000e-9 * t671 * t30636 * t2891 - 0.16658784000000000000e-4 * t38957 * t3019 * t9514 + 0.19281000000000000000e-2 * t39305 * t30350 - 0.13059532800000000000e-9 * t1802 * t39446 - 0.66512640000000000000e-5 * t1794 * t39446 + 0.65297664000000000000e-7 * t1797 * t39446 - 0.54432000000000000000e-5 * t3203 * t9540 - 0.54432000000000000000e-5 * t9505 - 0.11753579520000000000e-8 * t5017 * t39457 + 0.19589299200000000000e-11 * t5022 * t39457 + 0.19045670400000000000e-6 * t5014 * t39457 + 0.23944550400000000000e-6 * t2891 * t3216 + 0.19045670400000000000e-6 * t5014 * t39467 - 0.11753579520000000000e-8 * t5017 * t39467 - 0.82265600000000000000e-3 * t305 * t9428;
15294   t39519 = 0.19589299200000000000e-11 * t5022 * t39467 - 0.20134400000000000000e-3 * t9428 + 0.10411740000000000000e-2 * t38954 * t9712 - 0.13882320000000000000e-2 * t39035 * t9715 + 0.16658784000000000000e-4 * t38940 * t3019 * t9490 + 0.19281000000000000000e-2 * t39309 * t30350 - 0.11105856000000000000e-4 * t1849 * t9504 * t9495 + 0.11105856000000000000e-4 * t1839 * t9504 * t9500 - 0.13327027200000000000e-6 * t666 * t9699 * t2891 - 0.16658784000000000000e-4 * t11964 * t9724 + 0.16658784000000000000e-4 * t11967 * t9736 - 0.26654054400000000000e-6 * t11972 * t3215 * t9633 - 0.69411600000000000000e-3 * t34412 * t9703 + 0.10411740000000000000e-2 * t38954 * t9706 + 0.11105856000000000000e-4 * t1839 * t3019 * t30979 - 0.24988176000000000000e-7 * t1844 * t3029 * t30979 + 0.26654054400000000000e-9 * t671 * t12182 * t9540 - 0.11105856000000000000e-4 * t1849 * t3019 * t31040;
15295   t39527 = t9457 * sigma[0];
15296   t39554 = t86 * t37;
15297   t39555 = t39554 * t30349;
15298   t39558 = t3697 * t5791;
15299   t39561 = t3697 * t2211;
15300   t39566 = -0.13327027200000000000e-6 * t666 * t3215 * t9540 + 0.24988176000000000000e-7 * t1853 * t3029 * t31040 - 0.35260738560000000000e-13 * t30413 * t39527 - 0.22211712000000000000e-7 * t671 * t9699 * t333 - 0.92548800000000000000e-3 * t39038 * t3198 + 0.98718720000000000000e-5 * t666 * t9504 * t333 + 0.14807808000000000000e-4 * t305 * t333 * t3204 + 0.92548800000000000000e-3 * t39032 * t3195 - 0.46361963520000000000e-8 * t30402 * t39527 + 0.92548800000000000000e-3 * t11964 * t9744 - 0.92548800000000000000e-3 * t11967 * t9747 + 0.14807808000000000000e-4 * t11972 * t9504 * sigma[0] + 0.23507159040000000000e-10 * t30407 * t39527 - 0.23137200000000000000e-4 * t5755 * t39555 - 0.12494088000000000000e-4 * t16138 * t39558 + 0.16658784000000000000e-4 * t19666 * t39561 - 0.23137200000000000000e-4 * t5758 * t39555;
15301   t39567 = t11979 * t9514;
15302   t39578 = t11979 * t9490;
15303   t39585 = t12152 * t9689;
15304   t39588 = t12152 * t9693;
15305   t39592 = t706 * t339 * t9633;
15306   t39595 = t3697 * t5778;
15307   t39598 = t3697 * t5785;
15308   t39611 = 0.14992905600000000000e-6 * t20112 * t39567 - 0.29985811200000000000e-9 * t20117 * t39567 + 0.52058700000000000000e-7 * t5715 * t39555 + 0.28111698000000000000e-7 * t16302 * t39558 - 0.37482264000000000000e-7 * t19672 * t39561 - 0.14992905600000000000e-6 * t20120 * t39578 + 0.29985811200000000000e-9 * t20125 * t39578 + 0.52058700000000000000e-7 * t5720 * t39555 - 0.29985811200000000000e-9 * t20117 * t39585 + 0.29985811200000000000e-9 * t20125 * t39588 - 0.39981081600000000000e-11 * t19739 * t39592 + 0.83293920000000000000e-5 * t19689 * t39595 - 0.12494088000000000000e-4 * t16138 * t39598 + 0.14992905600000000000e-6 * t20112 * t39585 - 0.14992905600000000000e-6 * t20120 * t39588 + 0.21323243520000000000e-8 * t19732 * t39592 - 0.18741132000000000000e-7 * t19695 * t39595 + 0.28111698000000000000e-7 * t16302 * t39598;
15309   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15310     v4rho2sigma2[8] = t38911 + t38913 + t39426 + t39427 * t3712 + t12138 * t12018 + t39430 + t11962 * t12192 + t3694 * (t39474 + t39519 + t39566 + t39611);
15311 
15312   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15313     v4rho2sigma2[9] = 0.0e0;
15314 
15315   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15316     v4rho2sigma2[10] = 0.0e0;
15317 
15318   t39623 = t389 * t12229;
15319   t39629 = t387 * t127 * t12196;
15320   t39642 = t3748 * t520;
15321   t39646 = -t39206 / 0.32e2 + t39210 + t2114 * t3766 + 0.50000000000000000001e0 * t2272 * t12034 + t387 * t1415 * t12025 * t2 / 0.16e2 - t387 * t18 * t39623 * t378 / 0.32e2 - t39629 / 0.96e2 + 0.50000000000000000001e0 * t2269 * t12034 + 0.50000000000000000001e0 * t502 * t522 * t12288 + 0.50000000000000000001e0 * t1205 * t12238 + 0.50000000000000000001e0 * t1208 * t12238 + t629 * t12344 + t859 * t12078 - 0.10000000000000000000e1 * t1231 * t793 * t39642;
15322   t39656 = t691 * t12022;
15323   t39659 = t67 * t127 * t12230;
15324   t39686 = t706 * sigma[0] * t333;
15325   t39712 = -0.10886400000000000000e-4 * t9721 + 0.23944550400000000000e-6 * t12314 * t9634 + 0.38091340800000000000e-6 * t5014 * t39686 - 0.23507159040000000000e-8 * t5017 * t39686 + 0.39178598400000000000e-11 * t5022 * t39686 - 0.18509760000000000000e-2 * t662 * t9741 + 0.18509760000000000000e-2 * t656 * t9643 + 0.49976352000000000000e-7 * t1853 * t3215 * t648 - 0.49976352000000000000e-7 * t1844 * t3215 * t653 - 0.46361963520000000000e-8 * t16054 * t713 * t9634 + 0.23507159040000000000e-10 * t16061 * t713 * t9634 - 0.35260738560000000000e-13 * t16066 * t713 * t9634;
15326   t39713 = t1764 * t86;
15327   t39720 = t1812 * t86;
15328   t39726 = t656 * t713;
15329   t39730 = t662 * t713;
15330   t39749 = t305 * t713;
15331   t39753 = -0.69411600000000000000e-3 * t39713 * t2155 + 0.10411740000000000000e-2 * t39079 * t2158 + 0.10411740000000000000e-2 * t39079 * t2162 - 0.13882320000000000000e-2 * t39720 * t2166 + 0.29615616000000000000e-4 * t305 * t706 * t673 - 0.16658784000000000000e-4 * t39726 * t889 * t648 + 0.16658784000000000000e-4 * t39730 * t889 * t653 - 0.22211712000000000000e-4 * t1849 * t3203 * t648 + 0.22211712000000000000e-4 * t1839 * t3203 * t653 + 0.53308108800000000000e-9 * t671 * t12182 * t334 - 0.29985811200000000000e-9 * t1853 * t12327 * t9689 + 0.29985811200000000000e-9 * t1844 * t12327 * t9693 - 0.26654054400000000000e-6 * t39749 * t20153 * t334;
15332   t39790 = 0.83293920000000000000e-5 * t5125 * t12038 * t5778 - 0.12494088000000000000e-4 * t9016 * t12038 * t5785 - 0.12494088000000000000e-4 * t9016 * t12038 * t5791 + 0.16658784000000000000e-4 * t5110 * t12038 * t2211 - 0.26654054400000000000e-6 * t666 * t3215 * t334 + 0.14992905600000000000e-6 * t1849 * t12314 * t9689 - 0.14992905600000000000e-6 * t1839 * t12314 * t9693 - 0.18741132000000000000e-7 * t2153 * t12064 * t5778 + 0.28111698000000000000e-7 * t1775 * t12064 * t5785 + 0.28111698000000000000e-7 * t1775 * t12064 * t5791 - 0.37482264000000000000e-7 * t2165 * t12064 * t2211 - 0.16658784000000000000e-4 * t39096 * t2177;
15333   t39791 = t656 * t807;
15334   t39796 = t662 * t807;
15335   t39799 = t12334 * t334;
15336   t39802 = t31467 * t334;
15337   t39806 = t807 * tau[0] * t2149;
15338   t39809 = t36581 * t334;
15339   t39824 = 0.19281000000000000000e-2 * t39791 * t26074 + 0.16658784000000000000e-4 * t39099 * t2184 + 0.19281000000000000000e-2 * t39796 * t26074 - 0.39981081600000000000e-11 * t19739 * t39799 + 0.14992905600000000000e-6 * t20112 * t39802 - 0.23137200000000000000e-4 * t5755 * t39806 - 0.14992905600000000000e-6 * t20120 * t39809 - 0.23137200000000000000e-4 * t5758 * t39806 + 0.21323243520000000000e-8 * t19732 * t39799 - 0.29985811200000000000e-9 * t20117 * t39802 + 0.52058700000000000000e-7 * t5715 * t39806 + 0.29985811200000000000e-9 * t20125 * t39809 + 0.52058700000000000000e-7 * t5720 * t39806;
15340   t39828 = 0.31090700000000000000e-1 * t1104 * t2107 * t3748 - t39195 / 0.96e2 + 0.3e1 / 0.16e2 * t1888 * t1889 * t3726 - 0.3e1 / 0.32e2 * t380 * t12231 - t39656 / 0.32e2 - t39659 / 0.32e2 + 0.50000000000000000001e0 * t502 * t2278 * t3748 - t2249 * t2250 * t3725 * t689 * t378 / 0.24e2 - 0.15545350000000000000e-1 * t2024 * t3749 - 0.15545350000000000000e-1 * t2027 * t3749 - 0.15545350000000000000e-1 * t2048 * t3749 - 0.15545350000000000000e-1 * t482 * t12289 - 0.15545350000000000000e-1 * t497 * t12289 + 0.16081979498692535067e2 * t1213 * t2009 * t39642 + t275 * (t39712 + t39753 + t39790 + t39824);
15341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15342     v4rho2sigma2[11] = -t12021 - t39060 - t12029 - t12031 - t12033 + t12036 + t12037 + t12079 - t12195 - t12199 - t12233 - t12235 - t12237 + t12240 - t12291 + t12292 + t12345 + t3 * (t39646 + t39828);
15343 
15344   t39883 = 0.23944550400000000000e-6 * t11930 * t2383 - 0.74844000000000000000e-5 * t11916 * t2358 - 0.18324662400000000000e-6 * t666 * t11930 * t2358 + 0.36649324800000000000e-9 * t671 * t12130 * t2358 - 0.24988176000000000000e-4 * t9016 * t11916 * t6933 + 0.21323243520000000000e-8 * t666 * t12130 * t2383 + 0.56223396000000000000e-7 * t1775 * t11930 * t6933 - 0.39981081600000000000e-11 * t671 * t5021 * t37 * t2383 - 0.33317568000000000000e-4 * t39305 * t2758 + 0.33317568000000000000e-4 * t39309 * t2764 + 0.20360736000000000000e-4 * t12112 * t2785 + 0.83293920000000000000e-5 * t5125 * t11916 * t2775 + 0.16658784000000000000e-4 * t5110 * t11916 * t2723 - 0.18741132000000000000e-7 * t2153 * t11930 * t2775 - 0.37482264000000000000e-7 * t2165 * t11930 * t2723 + 0.20823480000000000000e-2 * t38672 * t2792 - 0.26654054400000000000e-6 * t12112 * t2789;
15345   t39896 = t31006 * t701;
15346   t39899 = t37 * t876;
15347   t39900 = t39899 * t701;
15348   t39911 = t37 * t82 * t2382;
15349   t39919 = t12098 * t2357;
15350   t39934 = 0.41646960000000000000e-5 * t1849 * t11916 * t2751 - 0.41646960000000000000e-5 * t1839 * t11916 * t2736 - 0.93705660000000000000e-8 * t1853 * t11930 * t2751 + 0.93705660000000000000e-8 * t1844 * t11930 * t2736 + 0.29985811200000000000e-6 * t20112 * t39896 - 0.29985811200000000000e-6 * t20120 * t39900 - 0.59971622400000000000e-9 * t20117 * t39896 + 0.59971622400000000000e-9 * t20125 * t39900 + 0.34705800000000000000e-3 * t662 * t3677 * t2736 - 0.46361963520000000000e-8 * t16054 * t39911 + 0.23507159040000000000e-10 * t16061 * t39911 - 0.13882320000000000000e-2 * t1812 * t3677 * t2723 + 0.26187796800000000000e-6 * t5014 * t39919 - 0.16161171840000000000e-8 * t5017 * t39919 + 0.26935286400000000000e-11 * t5022 * t39919 - 0.69411600000000000000e-3 * t1764 * t3677 * t2775 - 0.35260738560000000000e-13 * t16066 * t39911 - 0.34705800000000000000e-3 * t656 * t3677 * t2751;
15351   t39971 = t275 * (t39883 + t39934) + 0.2e1 * t859 * t12134 - 0.15545350000000000000e-1 * t2504 * t3674 - 0.31090700000000000000e-1 * t2507 * t3674 - 0.15545350000000000000e-1 * t2525 * t3674 + t2717 * t3691 + 0.16081979498692535067e2 * t1454 * t2806 * t3673 + 0.10000000000000000000e1 * t2264 * t12092 + 0.10000000000000000000e1 * t2315 * t12092 + 0.50000000000000000001e0 * t418 * t2802 * t3673 - 0.10000000000000000000e1 * t1223 * t2812 * t3673 - 0.3e1 / 0.32e2 * t2418 * t3652 - t323 * t18 * t11806 * t2416 / 0.32e2 - t1754 * t18 * t38571 * t2511 / 0.24e2 - t39222 / 0.48e2 - t39273 / 0.16e2 + t38905;
15352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15353     v4rho2sigma2[12] = -0.3e1 / 0.16e2 * t12082 - t38550 - t12086 / 0.16e2 - 0.31090700000000000000e-1 * t12088 - 0.31090700000000000000e-1 * t12090 + 0.10000000000000000000e1 * t12093 + 0.2e1 * t12095 + 0.2e1 * t12135 + t3 * t39971;
15354 
15355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15356     v4rho2sigma2[13] = 0.0e0;
15357 
15358   t39975 = t3 * t2717;
15359   t40003 = t2382 * t26 * sigma[2];
15360   t40006 = 0.49976352000000000000e-4 * t12142 * t10010 - 0.26654054400000000000e-6 * t12142 * t9978 - 0.34705800000000000000e-3 * t11964 * t9992 + 0.34705800000000000000e-3 * t11967 * t9998 + 0.18509760000000000000e-2 * t11964 * t10032 - 0.18509760000000000000e-2 * t11967 * t10007 - 0.30541104000000000000e-7 * t671 * t31588 * t26 - 0.69411600000000000000e-3 * t34412 * t10029 - 0.13882320000000000000e-2 * t39035 * t10004 + 0.13573824000000000000e-4 * t666 * t31316 * t26 - 0.27684800000000000000e-3 * t9863 - 0.39668330880000000000e-8 * t5017 * t40003;
15361   t40010 = t2388 * t26 * t82;
15362   t40021 = t12152 * t6826;
15363   t40024 = t3697 * t6933;
15364   t40027 = t12152 * t6814;
15365   t40036 = 0.66113884800000000000e-11 * t5022 * t40003 + 0.23507159040000000000e-10 * t16061 * t40010 - 0.35260738560000000000e-13 * t16066 * t40010 + 0.64279137600000000000e-6 * t5014 * t40003 - 0.46361963520000000000e-8 * t16054 * t40010 - 0.11311520000000000000e-2 * t305 * t9863 + 0.59971622400000000000e-9 * t20125 * t40021 - 0.24988176000000000000e-4 * t16138 * t40024 + 0.29985811200000000000e-6 * t20112 * t40027 - 0.29985811200000000000e-6 * t20120 * t40021 + 0.56223396000000000000e-7 * t16302 * t40024 - 0.59971622400000000000e-9 * t20117 * t40027;
15366   t40074 = 0.21323243520000000000e-8 * t666 * t9988 * t9815 - 0.93705660000000000000e-8 * t1853 * t3029 * t31994 + 0.93705660000000000000e-8 * t1844 * t3029 * t32006 + 0.89957433600000000000e-9 * t671 * t1801 * t2382 * t3053 - 0.39981081600000000000e-11 * t671 * t5021 * t2388 * t9815 + 0.41646960000000000000e-5 * t1849 * t3019 * t31994 - 0.41646960000000000000e-5 * t1839 * t3019 * t32006 + 0.20823480000000000000e-2 * t38954 * t9946 - 0.22211712000000000000e-4 * t1849 * t9504 * t9811 + 0.22211712000000000000e-4 * t1839 * t9504 * t9794 - 0.44978716800000000000e-6 * t666 * t10025 * t3053 - 0.33317568000000000000e-4 * t11964 * t9949;
15367   t40095 = t2357 * t26;
15368   t40106 = 0.33317568000000000000e-4 * t11967 * t9934 - 0.37482264000000000000e-7 * t2165 * t3029 * t31912 - 0.49976352000000000000e-7 * t1844 * t9699 * t9794 + 0.83293920000000000000e-5 * t5125 * t3019 * t31932 + 0.16658784000000000000e-4 * t5110 * t3019 * t31912 - 0.18741132000000000000e-7 * t2153 * t3029 * t31932 + 0.49976352000000000000e-7 * t1853 * t9699 * t9811 - 0.17956857600000000000e-9 * t1802 * t40095 - 0.91454880000000000000e-5 * t1794 * t40095 + 0.89784288000000000000e-7 * t1797 * t40095 - 0.18370800000000000000e-4 * t9952 * t2964 + 0.23944550400000000000e-6 * t9959 * t3081;
15369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15370     v4rho2sigma2[14] = 0.2e1 * t39426 + 0.2e1 * t39430 + t39975 * t3712 + 0.2e1 * t12138 * t12192 + t3694 * (t40006 + t40036 + t40074 + t40106);
15371 
15372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15373     v4rho2sigma2[15] = 0.0e0;
15374 
15375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15376     v4rho2sigma2[16] = 0.0e0;
15377 
15378   t40175 = 0.14326554240000000000e-8 * t671 * t9988 * sigma[2] - 0.39981081600000000000e-11 * t671 * t5021 * t2398 * t82 + 0.16658784000000000000e-4 * t5110 * t12038 * t2723 + 0.44423424000000000000e-4 * t1839 * t3203 * t876 - 0.18741132000000000000e-7 * t2153 * t12064 * t2775 + 0.99952704000000000000e-7 * t1853 * t3215 * t873 - 0.37482264000000000000e-7 * t2165 * t12064 * t2723 - 0.99952704000000000000e-7 * t1844 * t3215 * t876 + 0.20823480000000000000e-2 * t39079 * t2792 - 0.33317568000000000000e-4 * t39726 * t2176 * sigma[2] + 0.33317568000000000000e-4 * t39730 * t2183 * sigma[2] + 0.41646960000000000000e-5 * t1849 * t12038 * t2751;
15379   t40213 = 0.83293920000000000000e-5 * t5125 * t12038 * t2775 - 0.44423424000000000000e-4 * t1849 * t3203 * t873 - 0.41646960000000000000e-5 * t1839 * t12038 * t2736 - 0.71632771200000000000e-6 * t666 * t9977 * sigma[2] + 0.21323243520000000000e-8 * t666 * t1801 * t2398 * t82 - 0.93705660000000000000e-8 * t1853 * t12064 * t2751 + 0.93705660000000000000e-8 * t1844 * t12064 * t2736 - 0.24988176000000000000e-4 * t9016 * t12038 * t6933 + 0.29985811200000000000e-6 * t1849 * t12314 * t6814 - 0.29985811200000000000e-6 * t1839 * t12314 * t6826 + 0.56223396000000000000e-7 * t1775 * t12064 * t6933 - 0.59971622400000000000e-9 * t1853 * t12327 * t6814;
15380   t40218 = t9968 * sigma[2];
15381   t40221 = t2398 * t640 * t82;
15382   t40223 = t1794 * t2382;
15383   t40225 = t1797 * t2382;
15384   t40244 = 0.59971622400000000000e-9 * t1844 * t12327 * t6826 - 0.29257200000000000000e-4 * t40218 + 0.23944550400000000000e-6 * t40221 - 0.31593504000000000000e-4 * t40223 + 0.31016390400000000000e-6 * t40225 - 0.62032780800000000000e-9 * t1802 * t2382 - 0.34705800000000000000e-3 * t656 * t3752 * t2751 + 0.34705800000000000000e-3 * t662 * t3752 * t2736 + 0.79591968000000000000e-4 * t305 * t40218 - 0.26654054400000000000e-6 * t305 * t40221 - 0.69411600000000000000e-3 * t1764 * t3752 * t2775 + 0.37019520000000000000e-2 * t656 * t9995;
15385   t40257 = t2388 * sigma[2];
15386   t40260 = t2398 * t82;
15387   t40271 = -0.13882320000000000000e-2 * t1812 * t3752 * t2723 - 0.37019520000000000000e-2 * t662 * t10001 + 0.46891392000000000000e-4 * t305 * t40223 - 0.10550563200000000000e-6 * t305 * t40225 - 0.95638400000000000000e-3 * t7017 - 0.39076160000000000000e-2 * t305 * t7017 + 0.10237047840000000000e-5 * t5014 * t40257 - 0.46361963520000000000e-8 * t16054 * t40260 - 0.63175489920000000000e-8 * t5017 * t40257 + 0.23507159040000000000e-10 * t16061 * t40260 + 0.10529248320000000000e-10 * t5022 * t40257 - 0.35260738560000000000e-13 * t16066 * t40260;
15388   t40279 = t39210 + 0.10000000000000000000e1 * t2269 * t12238 + 0.50000000000000000001e0 * t502 * t2618 * t3748 + 0.10000000000000000000e1 * t2272 * t12238 + 0.10000000000000000000e1 * t502 * t793 * t12288 - 0.10000000000000000000e1 * t1231 * t2816 * t3748 + 0.16081979498692535067e2 * t1213 * t2585 * t3748 + t2717 * t3766 - t39629 / 0.48e2 + 0.2e1 * t859 * t12344 + t275 * (t40175 + t40213 + t40244 + t40271) - t387 * t18 * t39623 * t689 / 0.16e2;
15389   t40294 = t716 * tau[1] * sigma[2];
15390   t40297 = t8611 * t716;
15391   t40315 = t10163 * sigma[2];
15392   t40319 = t2398 * t2401 * t82;
15393   t40329 = t710 * t8688;
15394   t40330 = t40329 * t8880;
15395   t40337 = t2395 * t27239;
15396   t40343 = -0.19211377777777777778e-4 * t723 * t2456 * t40294 + 0.21831111111111111111e-5 * t2345 * t40297 * t2347 + 0.41915733333333333334e-7 * t2351 * t8664 * t2401 * tau[1] + 0.21831111111111111110e-2 * t723 * t2353 + 0.21831111111111111110e-2 * t2376 * t12210 - 0.19211377777777777778e-4 * t10184 * t12220 - 0.54577777777777777777e-3 * t2344 * t10139 - 0.33183288888888888889e-2 * t98 * t10160 + 0.58332728888888888889e-4 * t98 * t40315 - 0.31436800000000000001e-6 * t98 * t40319 + 0.21831111111111111112e-5 * t38307 * t2372 * t716 + 0.41915733333333333334e-7 * tau[1] * t8664 * t2377 * t2401 + 0.53652138666666666668e-9 * t98 * t40330 + 0.64096711111111111109e-3 * t10160 - 0.63826375111111111112e-4 * t40315 + 0.88349627733333333336e-6 * t40319 - 0.42149041493333333335e-8 * t40330 + 0.66444765866666666669e-11 * t40337 * t27405 - 0.54577777777777777776e-3 * t10180 * t722 * t89;
15397   t40360 = t27151 * t2487;
15398   t40361 = t40360 * t2347;
15399   t40365 = t27158 * t8631 * tau[1];
15400   t40389 = t2388 * t800 * sigma[2];
15401   t40392 = t2398 * t2487 * t82;
15402   t40394 = -0.13992618666666666667e3 * t3144 * t2458 - 0.32528384000000000000e3 * t3147 * t2458 - 0.18535765333333333333e3 * t3162 * t2458 + 0.72405333333333333333e2 * t10106 * t10092 + 0.59082752000000000000e2 * t823 * t10096 - 0.10860800000000000000e2 * t2473 * t40361 - 0.55607295999999999999e1 * t2477 * t40365 + 0.21863466666666666667e2 * t2345 * t10092 + 0.10903360000000000000e3 * t10117 * t10092 + 0.44601472000000000000e2 * t806 * t10096 + 0.15957546666666666667e3 * t10122 * t10092 + 0.10368422400000000000e3 * t813 * t10096 - 0.32795200000000000000e1 * t2442 * t40361 - 0.16355040000000000000e2 * t2450 * t40361 - 0.41977856000000000000e1 * t2453 * t40365 - 0.23936320000000000000e2 * t2462 * t40361 - 0.97585151999999999998e1 * t2465 * t40365 + 0.10816711111111111111e2 * t40389 - 0.62050986666666666666e1 * t40392;
15403   t40395 = t40329 * t8631;
15404   t40397 = t40337 * t27128;
15405   t40399 = t2382 * t184;
15406   t40435 = 0.13549909333333333333e1 * t40395 - 0.10130773333333333333e0 * t40397 - 0.50126222222222222222e1 * t40399 + 0.14972101973333333333e2 * t193 * t40395 - 0.11121459199999999999e1 * t199 * t40397 + 0.10931733333333333333e3 * t805 * t2432 + 0.11952028444444444444e3 * t193 * t40389 - 0.27329333333333333333e2 * t2344 * t2446 - 0.13629200000000000000e3 * t2449 * t2446 - 0.68563831466666666666e2 * t193 * t40392 - 0.11194094933333333333e1 * t193 * t40397 + 0.25412800000000000000e3 * t812 * t2432 + 0.14481066666666666667e3 * t822 * t2432 + 0.11874474666666666667e3 * t199 * t40389 - 0.19946933333333333333e3 * t2461 * t2446 - 0.90506666666666666667e2 * t2472 * t2446 - 0.68118937600000000000e2 * t199 * t40392 + 0.14874951680000000000e2 * t199 * t40395 - 0.55387448888888888889e2 * t193 * t40399 - 0.55028053333333333333e2 * t199 * t40399;
15407   t40450 = -t387 * t18 * t12025 * t2421 / 0.32e2 - t1444 * t18 * t39201 * t2537 / 0.24e2 - 0.3e1 / 0.32e2 * t2423 * t3727 - 0.3e1 / 0.16e2 * t691 * t12231 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * t40343 - 0.31090700000000000000e-1 * t779 * t12289 - 0.15545350000000000000e-1 * t166 * t180 * (t40394 + t40435) - 0.15545350000000000000e-1 * t2528 * t3749 - 0.31090700000000000000e-1 * t2531 * t3749 - 0.31090700000000000000e-1 * t771 * t12289 - 0.15545350000000000000e-1 * t2551 * t3749 - t39656 / 0.16e2 - t39659 / 0.16e2;
15408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15409     v4rho2sigma2[17] = -0.3e1 / 0.16e2 * t12194 - t39060 - t12198 / 0.16e2 - 0.3e1 / 0.16e2 * t12232 - 0.31090700000000000000e-1 * t12234 - 0.31090700000000000000e-1 * t12236 + 0.10000000000000000000e1 * t12239 - 0.31090700000000000000e-1 * t12290 + 0.2e1 * t12292 + 0.2e1 * t12345 + t3 * (t40279 + t40450);
15410 
15411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15412     v4rho2sigmalapl[0] = 0.0e0;
15413 
15414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15415     v4rho2sigmalapl[1] = 0.0e0;
15416 
15417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15418     v4rho2sigmalapl[2] = 0.0e0;
15419 
15420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15421     v4rho2sigmalapl[3] = 0.0e0;
15422 
15423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15424     v4rho2sigmalapl[4] = 0.0e0;
15425 
15426   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15427     v4rho2sigmalapl[5] = 0.0e0;
15428 
15429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15430     v4rho2sigmalapl[6] = 0.0e0;
15431 
15432   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15433     v4rho2sigmalapl[7] = 0.0e0;
15434 
15435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15436     v4rho2sigmalapl[8] = 0.0e0;
15437 
15438   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15439     v4rho2sigmalapl[9] = 0.0e0;
15440 
15441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15442     v4rho2sigmalapl[10] = 0.0e0;
15443 
15444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15445     v4rho2sigmalapl[11] = 0.0e0;
15446 
15447   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15448     v4rho2sigmalapl[12] = 0.0e0;
15449 
15450   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15451     v4rho2sigmalapl[13] = 0.0e0;
15452 
15453   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15454     v4rho2sigmalapl[14] = 0.0e0;
15455 
15456   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15457     v4rho2sigmalapl[15] = 0.0e0;
15458 
15459   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15460     v4rho2sigmalapl[16] = 0.0e0;
15461 
15462   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15463     v4rho2sigmalapl[17] = 0.0e0;
15464 
15465   t40454 = t12351 / 0.16e2;
15466   t40463 = t325 * t12386;
15467   t40472 = t1756 * t3782;
15468   t40478 = t323 * t127 * t12354;
15469   t40486 = t11815 * t448;
15470   t40489 = t11818 * t1326;
15471   t40496 = t1179 * t16480 * t5330;
15472   t40505 = t11947 * t140;
15473   t40518 = t32836 * t448;
15474   t40519 = t40518 * t1134;
15475   t40522 = t38775 * tau[0];
15476   t40527 = 0.27329333333333333333e2 * t10514 * t28872 - 0.19414758400000000000e3 * t453 * t40486 + 0.44601472000000000000e2 * t453 * t40489 - 0.54658666666666666667e1 * t1134 * t32836 * t28896 - 0.33582284799999999999e1 * t453 * t40496 - 0.45133132800000000000e3 * t460 * t40486 + 0.10368422400000000000e3 * t460 * t40489 - 0.78068121599999999999e1 * t460 * t40496 + 0.27547968e3 * t453 * t40505 - 0.25718374400000000000e3 * t470 * t40486 + 0.59082752000000000000e2 * t470 * t40489 - 0.44485836799999999999e1 * t470 * t40496 + 0.36492288e3 * t470 * t40505 + 0.64040256e3 * t460 * t40505 - 0.70914400000000000000e2 * t5384 * t40519 - 0.10494464000000000000e2 * t5387 * t40522 - 0.22871520000000000000e3 * t5413 * t40519;
15477   t40562 = -0.52336128000000000000e2 * t5351 * t40522 - 0.27329333333333333333e3 * t1138 * t10484 - 0.13629200000000000000e4 * t9145 * t10484 - 0.90506666666666666667e3 * t9138 * t10484 - 0.10860800000000000000e3 * t5373 * t40519 - 0.34754560000000000000e2 * t5378 * t40522 + 0.13593733333333333333e4 * t28854 * t10496 + 0.78191978666666666667e3 * t1283 * t10499 - 0.27187466666666666666e3 * t5417 * t40519 - 0.76596224000000000000e2 * t5343 * t40522 + 0.54304000000000000000e3 * t28857 * t10496 + 0.35478613333333333334e3 * t1303 * t10499 - 0.19946933333333333333e4 * t9150 * t10484 + 0.35457200000000000000e3 * t4098 * t10496 + 0.10713098666666666667e3 * t1312 * t10499 + 0.11435760000000000000e4 * t28818 * t10496 + 0.53426464000000000000e3 * t1316 * t10499;
15478   t40576 = -t323 * t18 * t40463 * t314 / 0.16e2 - t323 * t18 * t12353 * t1111 / 0.32e2 - t1754 * t18 * t40472 * t1249 / 0.24e2 - t40478 / 0.48e2 - 0.15545350000000000000e-1 * t1265 * t3803 - 0.31090700000000000000e-1 * t413 * t12439 - 0.15545350000000000000e-1 * t115 * t136 * (t40527 + t40562) - 0.15545350000000000000e-1 * t1379 * t3803 - 0.31090700000000000000e-1 * t1382 * t3803 - 0.31090700000000000000e-1 * t395 * t12439 + t1739 * t3818 + 0.10000000000000000000e1 * t1387 * t12395;
15479   t40585 = t14 * t127 * t12387;
15480   t40602 = t10494 * t148;
15481   t40606 = t5320 * t355;
15482   t40615 = t10494 * t40;
15483   t40637 = -0.20466666666666666666e0 * t4097 * t10276 - 0.28380444444444444444e0 * t356 * t1121 + 0.43662222222222222223e-2 * t356 * t1144 * sigma[0] - 0.21307164444444444446e-4 * t356 * t9049 * t33 + 0.33532586666666666670e-7 * t356 * t11818 * t1185 - 0.36021333333333333333e-2 * t10254 * t9057 + 0.81866666666666666665e-3 * t40602 * t3772 * t1134 + 0.69859555555555555558e-5 * t40606 * t12369 * tau[0] + 0.46391111111111111111e0 * t1133 * t10272 - 0.36021333333333333333e-2 * t1133 * t1285 * t9057 + 0.81866666666666666665e-3 * t4098 * t40615 * t1134 + 0.69859555555555555558e-5 * t1312 * t38883 * tau[0] - 0.28380444444444444444e0 * t10244 * t30 + 0.46391111111111111112e0 * t10247 * t12360 + 0.43662222222222222223e-2 * t10290 * t3772 - 0.20466666666666666667e0 * t10250 * t30 * t1134 - 0.21307164444444444446e-4 * t10293 * t12369 + 0.33532586666666666670e-7 * t5346 * t55 * t343 * t1185;
15484   t40642 = t316 * t12350;
15485   t40646 = t14 * t431 * t3783 / 0.48e2;
15486   t40717 = -0.62470440000000000000e-5 * t1775 * t10337 * t9495 + 0.41646960000000000000e-5 * t2165 * t3359 * t29860 - 0.49976352000000000000e-7 * t1844 * t33197 * t2891 - 0.79962163200000000000e-9 * t1844 * t33201 * t8992 - 0.13882320000000000000e-2 * t5125 * t10312 * t9495 - 0.69411600000000000000e-3 * t5125 * t3332 * t29855 + 0.37019520000000000000e-2 * t29189 * t2934 * t10372 + 0.20823480000000000000e-2 * t9016 * t10312 * t9500 + 0.10411740000000000000e-2 * t9016 * t3332 * t29860 - 0.55529280000000000000e-2 * t29045 * t2934 * t10378 - 0.22211712000000000000e-4 * t1849 * t10319 * t2891 - 0.39981081600000000000e-6 * t1849 * t10323 * t8992 + 0.37019520000000000000e-2 * t5125 * t3332 * t5007 - 0.41646960000000000000e-2 * t29064 * t3332 * t29927 - 0.55529280000000000000e-2 * t9016 * t3332 * t22096 + 0.99952704000000000000e-4 * t1849 * t3342 * t8989 - 0.11105856000000000000e-4 * t2153 * t3342 * t5007 - 0.31235220000000000000e-5 * t1775 * t3359 * t29855 + 0.83293920000000000000e-5 * t2165 * t10337 * t9500;
15487   t40772 = t12740 * t5628;
15488   t40775 = t1033 * t339;
15489   t40776 = t40775 * t9009;
15490   t40779 = -0.31235220000000000000e-5 * t1775 * t3342 * t29860 + 0.49976352000000000000e-7 * t1853 * t33211 * t2891 + 0.79962163200000000000e-9 * t1853 * t33215 * t8992 + 0.20823480000000000000e-2 * t9016 * t10330 * t9495 + 0.10411740000000000000e-2 * t9016 * t3349 * t29855 - 0.55529280000000000000e-2 * t29045 * t2934 * t10361 - 0.27764640000000000000e-2 * t5110 * t10330 * t9500 + 0.12494088000000000000e-4 * t5038 * t3342 * t29927 + 0.16658784000000000000e-4 * t1775 * t3342 * t22096 - 0.22489358400000000000e-6 * t1853 * t10323 * t8989 + 0.20823480000000000000e-2 * t29031 * t3349 * t29919 - 0.55529280000000000000e-2 * t9016 * t3349 * t5007 + 0.69411600000000000000e-2 * t16355 * t3349 * t29927 + 0.74039040000000000000e-2 * t5110 * t3349 * t22096 - 0.13882320000000000000e-2 * t5110 * t3349 * t29860 + 0.74039040000000000000e-2 * t29201 * t2934 * t3326 + 0.22211712000000000000e-4 * t1839 * t10337 * t2891 + 0.39981081600000000000e-6 * t1839 * t10341 * t8992 + 0.41646960000000000000e-2 * t16289 * t40772 - 0.44423424000000000000e-4 * t19689 * t40776;
15491   t40781 = t40775 * t5006;
15492   t40786 = t1036 * t339;
15493   t40787 = t40786 * t5006;
15494   t40794 = t12769 * t5628;
15495   t40797 = t40786 * t9009;
15496   t40832 = 0.66635136000000000000e-4 * t16138 * t40781 - 0.12494088000000000000e-4 * t16297 * t40772 - 0.88846848000000000000e-4 * t19666 * t40787 + 0.99952704000000000000e-7 * t19695 * t40776 - 0.14992905600000000000e-6 * t16302 * t40781 - 0.83293920000000000000e-2 * t16305 * t40794 + 0.66635136000000000000e-4 * t16138 * t40797 + 0.24988176000000000000e-4 * t16310 * t40794 - 0.14992905600000000000e-6 * t16302 * t40797 + 0.19990540800000000000e-6 * t19672 * t40787 + 0.20823480000000000000e-5 * t19950 * t3809 - 0.55529280000000000000e-5 * t1853 * t10319 * t333 + 0.10180368000000000000e-4 * t1853 * t3342 * t1126 + 0.18509760000000000000e-2 * t8960 * t2934 * t3318 + 0.44423424000000000000e-4 * t5045 * t8917 * t1033 - 0.34705800000000000000e-3 * t1849 * t33349 * t26 + 0.10411740000000000000e-5 * t1853 * t33353 * t26 - 0.18509760000000000000e-2 * t8967 * t2934 * t3329 - 0.44423424000000000000e-4 * t5077 * t8917 * t1036;
15497   t40890 = 0.34705800000000000000e-3 * t1839 * t33341 * t26 - 0.10411740000000000000e-5 * t1844 * t33345 * t26 + 0.83293920000000000000e-2 * t8967 * t10441 - 0.18509760000000000000e-2 * t1839 * t10330 * t333 + 0.33934560000000000000e-2 * t1839 * t3349 * t1126 - 0.69411600000000000000e-3 * t19947 * t3806 - 0.83293920000000000000e-2 * t8960 * t10425 + 0.18509760000000000000e-2 * t1849 * t10312 * t333 - 0.33934560000000000000e-2 * t1849 * t3332 * t1126 + 0.55529280000000000000e-5 * t1844 * t10337 * t333 - 0.10180368000000000000e-4 * t1844 * t3359 * t1126 - 0.99952704000000000000e-4 * t1839 * t3359 * t8989 - 0.62470440000000000000e-5 * t5051 * t3359 * t29919 + 0.16658784000000000000e-4 * t1775 * t3359 * t5007 - 0.20823480000000000000e-4 * t5624 * t3359 * t29927 - 0.22211712000000000000e-4 * t2165 * t3359 * t22096 + 0.22489358400000000000e-6 * t1844 * t10341 * t8989 + 0.41646960000000000000e-5 * t2153 * t10319 * t9495 + 0.20823480000000000000e-5 * t2153 * t3342 * t29855 - 0.62470440000000000000e-5 * t1775 * t10319 * t9500;
15498   t40894 = 0.10000000000000000000e1 * t418 * t441 * t12438 - 0.3e1 / 0.32e2 * t1113 * t3784 - 0.3e1 / 0.16e2 * t316 * t12388 - t40585 / 0.16e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * t40637 - t40642 / 0.16e2 + t40646 + 0.50000000000000000001e0 * t418 * t1432 * t3802 - 0.10000000000000000000e1 * t1223 * t1225 * t3802 + 0.10000000000000000000e1 * t1461 * t12395 + 0.2e1 * t629 * t12511 + 0.16081979498692535067e2 * t1454 * t1457 * t3802 + t275 * (t40717 + t40779 + t40832 + t40890);
15499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15500     v4rho2sigmatau[0] = -0.3e1 / 0.16e2 * t12348 - t40454 - t12356 / 0.16e2 - 0.3e1 / 0.16e2 * t12389 - 0.31090700000000000000e-1 * t12391 - 0.31090700000000000000e-1 * t12393 + 0.10000000000000000000e1 * t12396 - 0.31090700000000000000e-1 * t12440 + 0.2e1 * t12442 + 0.2e1 * t12512 + t3 * (t40576 + t40894);
15501 
15502   t40897 = t629 * t3833;
15503   t40899 = t275 * t12585;
15504   t40930 = t1090 * t339;
15505   t40931 = t40930 * t5006;
15506   t40934 = t359 * t10621;
15507   t40937 = t1172 * t10600;
15508   t40944 = t12826 * t5628;
15509   t40947 = t40930 * t9009;
15510   t40950 = t359 * t10612;
15511   t40953 = 0.20823480000000000000e-5 * t19950 * t3824 + 0.10180368000000000000e-4 * t1853 * t3412 * t1126 - 0.10180368000000000000e-4 * t1844 * t3431 * t1126 - 0.69411600000000000000e-3 * t19947 * t3821 - 0.83293920000000000000e-2 * t8960 * t10701 + 0.44423424000000000000e-4 * t5045 * t8917 * t1087 - 0.44423424000000000000e-4 * t5077 * t8917 * t1090 + 0.83293920000000000000e-2 * t8967 * t10711 + 0.33934560000000000000e-2 * t1839 * t3421 * t1126 - 0.33934560000000000000e-2 * t1849 * t3402 * t1126 + 0.19990540800000000000e-6 * t19672 * t40931 - 0.27764640000000000000e-4 * t5801 * t40934 + 0.16658784000000000000e-6 * t5720 * t40937 + 0.92548800000000000000e-2 * t5797 * t40934 - 0.74039040000000000000e-4 * t5758 * t40937 + 0.24988176000000000000e-4 * t16310 * t40944 - 0.14992905600000000000e-6 * t16302 * t40947 + 0.20823480000000000000e-4 * t5005 * t40950;
15512   t40958 = t1087 * t339;
15513   t40959 = t40958 * t5006;
15514   t40974 = t12799 * t5628;
15515   t40977 = t40958 * t9009;
15516   t40999 = 0.16658784000000000000e-6 * t5715 * t40937 - 0.46274400000000000000e-2 * t5777 * t40950 + 0.66635136000000000000e-4 * t16138 * t40959 + 0.69411600000000000000e-2 * t5011 * t40934 - 0.83293920000000000000e-2 * t16305 * t40944 + 0.66635136000000000000e-4 * t16138 * t40947 - 0.69411600000000000000e-2 * t5011 * t40950 - 0.88846848000000000000e-4 * t19666 * t40931 - 0.74039040000000000000e-4 * t5755 * t40937 - 0.12494088000000000000e-4 * t16297 * t40974 + 0.99952704000000000000e-7 * t19695 * t40977 + 0.13882320000000000000e-4 * t5782 * t40950 - 0.14992905600000000000e-6 * t16302 * t40959 - 0.20823480000000000000e-4 * t5005 * t40934 + 0.41646960000000000000e-2 * t16289 * t40974 - 0.44423424000000000000e-4 * t19689 * t40977 - 0.31235220000000000000e-5 * t1775 * t3412 * t29860 + 0.79962163200000000000e-9 * t1853 * t33660 * t8992 + 0.10411740000000000000e-2 * t9016 * t3421 * t29855;
15517   t41019 = t34475 * t33634;
15518   t41054 = -0.55529280000000000000e-2 * t29045 * t2934 * t10606 + 0.16658784000000000000e-4 * t1775 * t3412 * t22096 - 0.69411600000000000000e-3 * t5125 * t3402 * t29855 + 0.37019520000000000000e-2 * t29189 * t2934 * t10629 + 0.10411740000000000000e-2 * t9016 * t3402 * t29860 - 0.55529280000000000000e-2 * t29045 * t2934 * t10638 + 0.61699200000000000000e-2 * t8960 * t41019 - 0.39981081600000000000e-6 * t1849 * t10723 * t8992 + 0.37019520000000000000e-2 * t5125 * t3402 * t5007 - 0.41646960000000000000e-2 * t29064 * t3402 * t29927 - 0.55529280000000000000e-2 * t9016 * t3402 * t22096 + 0.99952704000000000000e-4 * t1849 * t3412 * t8989 - 0.13882320000000000000e-2 * t5110 * t3421 * t29860 + 0.74039040000000000000e-2 * t29201 * t2934 * t3396 + 0.61699200000000000000e-2 * t8967 * t41019 + 0.39981081600000000000e-6 * t1839 * t10733 * t8992 - 0.31235220000000000000e-5 * t1775 * t3431 * t29855 + 0.41646960000000000000e-5 * t2165 * t3431 * t29860;
15519   t41067 = t339 * t93;
15520   t41068 = t12545 * t41067;
15521   t41074 = t3416 * t41067;
15522   t41111 = 0.20823480000000000000e-5 * t2153 * t3412 * t29855 - 0.79962163200000000000e-9 * t1844 * t33644 * t8992 - 0.22211712000000000000e-4 * t2165 * t3431 * t22096 + 0.22489358400000000000e-6 * t1844 * t10733 * t8989 - 0.27764640000000000000e-4 * t1844 * t41068 - 0.99952704000000000000e-4 * t1839 * t3431 * t8989 + 0.92548800000000000000e-2 * t1839 * t41074 - 0.62470440000000000000e-5 * t5051 * t3431 * t29919 + 0.16658784000000000000e-4 * t1775 * t3431 * t5007 - 0.20823480000000000000e-4 * t5624 * t3431 * t29927 - 0.22489358400000000000e-6 * t1853 * t10723 * t8989 - 0.27764640000000000000e-4 * t1853 * t41068 + 0.20823480000000000000e-2 * t29031 * t3421 * t29919 - 0.55529280000000000000e-2 * t9016 * t3421 * t5007 + 0.69411600000000000000e-2 * t16355 * t3421 * t29927 + 0.74039040000000000000e-2 * t5110 * t3421 * t22096 + 0.92548800000000000000e-2 * t1849 * t41074 - 0.11105856000000000000e-4 * t2153 * t3412 * t5007 + 0.12494088000000000000e-4 * t5038 * t3412 * t29927;
15523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15524     v4rho2sigmatau[1] = 0.2e1 * t40897 + 0.2e1 * t40899 + t38915 * t3833 + 0.2e1 * t11962 * t12585 + t3694 * (t40953 + t40999 + t41054 + t41111);
15525 
15526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15527     v4rho2sigmatau[2] = 0.0e0;
15528 
15529   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15530     v4rho2sigmatau[3] = 0.0e0;
15531 
15532   t41115 = t629 * t3846;
15533   t41117 = t275 * t12643;
15534   t41122 = t12595 * t5721;
15535   t41141 = t12622 * t5716;
15536   t41144 = t12622 * t5721;
15537   t41147 = t12595 * t5716;
15538   t41158 = t3329 * t75;
15539   t41159 = t41158 * t334;
15540   t41162 = 0.66635136000000000000e-4 * t16138 * t41122 - 0.10411740000000000000e-5 * t1844 * t33345 * t75 - 0.69411600000000000000e-3 * t19947 * t3834 - 0.34705800000000000000e-3 * t1849 * t33349 * t75 + 0.10411740000000000000e-5 * t1853 * t33353 * t75 + 0.20823480000000000000e-5 * t19950 * t3837 + 0.34705800000000000000e-3 * t1839 * t33341 * t75 - 0.14992905600000000000e-6 * t16302 * t41141 + 0.19990540800000000000e-6 * t19672 * t41144 + 0.99952704000000000000e-7 * t19695 * t41147 - 0.14992905600000000000e-6 * t16302 * t41122 + 0.66635136000000000000e-4 * t16138 * t41141 - 0.88846848000000000000e-4 * t19666 * t41144 - 0.44423424000000000000e-4 * t19689 * t41147 + 0.22211712000000000000e-4 * t5758 * t41159;
15541   t41163 = t12622 * t1155;
15542   t41166 = t12622 * t5628;
15543   t41171 = t12595 * t1155;
15544   t41174 = t12595 * t5628;
15545   t41177 = t3318 * t75;
15546   t41178 = t41177 * t334;
15547   t41185 = t12595 * t1127;
15548   t41200 = t12622 * t1127;
15549   t41203 = 0.39981081600000000000e-6 * t20120 * t41163 + 0.24988176000000000000e-4 * t16310 * t41166 - 0.49976352000000000000e-7 * t5720 * t41159 - 0.39981081600000000000e-6 * t20112 * t41171 - 0.12494088000000000000e-4 * t16297 * t41174 + 0.49976352000000000000e-7 * t5715 * t41178 + 0.79962163200000000000e-9 * t20117 * t41171 - 0.83293920000000000000e-2 * t16305 * t41166 + 0.40721472000000000000e-4 * t5755 * t41185 + 0.41646960000000000000e-2 * t16289 * t41174 + 0.37019520000000000000e-2 * t19713 * t12589 - 0.55529280000000000000e-2 * t19985 * t12592 - 0.22211712000000000000e-4 * t5755 * t41178 + 0.74039040000000000000e-2 * t19677 * t12619 - 0.79962163200000000000e-9 * t20125 * t41163 - 0.40721472000000000000e-4 * t5758 * t41200;
15550   t41248 = 0.91623312000000000000e-7 * t5720 * t41200 - 0.91623312000000000000e-7 * t5715 * t41185 - 0.13882320000000000000e-2 * t5125 * t10312 * t9258 - 0.69411600000000000000e-3 * t5125 * t3332 * t29301 + 0.20823480000000000000e-2 * t9016 * t10312 * t5698 + 0.10411740000000000000e-2 * t9016 * t3332 * t19834 - 0.41646960000000000000e-2 * t29064 * t3332 * t19839 - 0.33934560000000000000e-2 * t8960 * t5639 * t12595 + 0.33934560000000000000e-2 * t8967 * t5639 * t12622 - 0.62470440000000000000e-5 * t5051 * t3359 * t29312 - 0.20823480000000000000e-4 * t5624 * t3359 * t19839 + 0.12494088000000000000e-4 * t5038 * t3342 * t19839 + 0.20823480000000000000e-2 * t29031 * t3349 * t29312 + 0.69411600000000000000e-2 * t16355 * t3349 * t19839 - 0.31235220000000000000e-5 * t1775 * t3359 * t29301;
15551   t41296 = 0.83293920000000000000e-5 * t2165 * t10337 * t5698 + 0.41646960000000000000e-5 * t2165 * t3359 * t19834 + 0.18509760000000000000e-2 * t8960 * t2196 * t41177 + 0.44423424000000000000e-4 * t5045 * t5693 * t12595 + 0.41646960000000000000e-5 * t2153 * t10319 * t9258 + 0.20823480000000000000e-5 * t2153 * t3342 * t29301 - 0.62470440000000000000e-5 * t1775 * t10319 * t5698 - 0.31235220000000000000e-5 * t1775 * t3342 * t19834 + 0.20823480000000000000e-2 * t9016 * t10330 * t9258 + 0.10411740000000000000e-2 * t9016 * t3349 * t29301 - 0.27764640000000000000e-2 * t5110 * t10330 * t5698 - 0.13882320000000000000e-2 * t5110 * t3349 * t19834 - 0.18509760000000000000e-2 * t8967 * t2196 * t41158 - 0.44423424000000000000e-4 * t5077 * t5693 * t12622 - 0.62470440000000000000e-5 * t1775 * t10337 * t9258 - 0.55529280000000000000e-2 * t19985 * t12616;
15552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15553     v4rho2sigmatau[4] = 0.2e1 * t41115 + 0.2e1 * t41117 + t38915 * t3846 + 0.2e1 * t11962 * t12643 + t3694 * (t41162 + t41203 + t41248 + t41296);
15554 
15555   t41301 = t12648 / 0.16e2;
15556   t41317 = t380 * t12647;
15557   t41321 = t67 * t431 * t3861 / 0.48e2;
15558   t41323 = t387 * t127 * t12651;
15559   t41329 = t1446 * t3860;
15560   t41339 = t2934 * tau[0] * t1053;
15561   t41348 = t333 * t1053;
15562   t41349 = t3416 * t41348;
15563   t41378 = -0.69411600000000000000e-3 * t19947 * t3884 + 0.20823480000000000000e-5 * t19950 * t3887 + 0.61699200000000000000e-2 * t8960 * t41339 - 0.41646960000000000000e-2 * t29064 * t3402 * t19839 - 0.33934560000000000000e-2 * t8960 * t5639 * t12669 + 0.30849600000000000000e-2 * t1849 * t41349 + 0.20823480000000000000e-5 * t2153 * t3412 * t29301 - 0.31235220000000000000e-5 * t1775 * t3412 * t19834 + 0.10411740000000000000e-2 * t9016 * t3421 * t29301 - 0.13882320000000000000e-2 * t5110 * t3421 * t19834 - 0.44423424000000000000e-4 * t5077 * t5693 * t12697 + 0.61699200000000000000e-2 * t8967 * t41339 - 0.31235220000000000000e-5 * t1775 * t3431 * t29301 + 0.41646960000000000000e-5 * t2165 * t3431 * t19834 + 0.12494088000000000000e-4 * t5038 * t3412 * t19839;
15564   t41379 = t12545 * t41348;
15565   t41410 = t12697 * t1155;
15566   t41413 = t1053 * sigma[0];
15567   t41414 = t1150 * t41413;
15568   t41417 = t12697 * t1127;
15569   t41422 = t12697 * t5628;
15570   t41425 = -0.92548800000000000000e-5 * t1853 * t41379 + 0.20823480000000000000e-2 * t29031 * t3421 * t29312 + 0.69411600000000000000e-2 * t16355 * t3421 * t19839 + 0.33934560000000000000e-2 * t8967 * t5639 * t12697 + 0.30849600000000000000e-2 * t1839 * t41349 - 0.62470440000000000000e-5 * t5051 * t3431 * t29312 - 0.20823480000000000000e-4 * t5624 * t3431 * t19839 - 0.92548800000000000000e-5 * t1844 * t41379 - 0.69411600000000000000e-3 * t5125 * t3402 * t29301 + 0.10411740000000000000e-2 * t9016 * t3402 * t19834 + 0.44423424000000000000e-4 * t5045 * t5693 * t12669 + 0.39981081600000000000e-6 * t20120 * t41410 - 0.74039040000000000000e-4 * t5758 * t41414 - 0.40721472000000000000e-4 * t5758 * t41417 + 0.91623312000000000000e-7 * t5720 * t41417 + 0.24988176000000000000e-4 * t16310 * t41422;
15571   t41427 = t1053 * t648;
15572   t41428 = t352 * t41427;
15573   t41431 = t1053 * t653;
15574   t41432 = t352 * t41431;
15575   t41439 = t12669 * t5628;
15576   t41448 = t12669 * t1155;
15577   t41453 = t12669 * t1127;
15578   t41464 = 0.20823480000000000000e-4 * t5005 * t41428 - 0.27764640000000000000e-4 * t5801 * t41432 - 0.79962163200000000000e-9 * t20125 * t41410 + 0.16658784000000000000e-6 * t5720 * t41414 + 0.41646960000000000000e-2 * t16289 * t41439 - 0.12494088000000000000e-4 * t16297 * t41439 + 0.13882320000000000000e-4 * t5782 * t41428 - 0.20823480000000000000e-4 * t5005 * t41432 + 0.79962163200000000000e-9 * t20117 * t41448 + 0.16658784000000000000e-6 * t5715 * t41414 - 0.91623312000000000000e-7 * t5715 * t41453 + 0.40721472000000000000e-4 * t5755 * t41453 - 0.83293920000000000000e-2 * t16305 * t41422 - 0.55529280000000000000e-2 * t19985 * t12691 - 0.69411600000000000000e-2 * t5011 * t41428;
15579   t41481 = t12669 * t5721;
15580   t41484 = t12697 * t5716;
15581   t41487 = t12697 * t5721;
15582   t41490 = t12669 * t5716;
15583   t41501 = 0.74039040000000000000e-2 * t19677 * t12694 + 0.92548800000000000000e-2 * t5797 * t41432 + 0.37019520000000000000e-2 * t19713 * t12663 - 0.46274400000000000000e-2 * t5777 * t41428 - 0.55529280000000000000e-2 * t19985 * t12666 + 0.69411600000000000000e-2 * t5011 * t41432 - 0.39981081600000000000e-6 * t20112 * t41448 - 0.74039040000000000000e-4 * t5755 * t41414 - 0.14992905600000000000e-6 * t16302 * t41481 + 0.66635136000000000000e-4 * t16138 * t41484 - 0.88846848000000000000e-4 * t19666 * t41487 - 0.44423424000000000000e-4 * t19689 * t41490 + 0.66635136000000000000e-4 * t16138 * t41481 - 0.14992905600000000000e-6 * t16302 * t41484 + 0.19990540800000000000e-6 * t19672 * t41487 + 0.99952704000000000000e-7 * t19695 * t41490;
15584   t41520 = -0.15545350000000000000e-1 * t1376 * t3881 + t1739 * t3896 - 0.3e1 / 0.32e2 * t1108 * t3862 - 0.15545350000000000000e-1 * t1343 * t3881 - 0.31090700000000000000e-1 * t1346 * t3881 - t41317 / 0.16e2 + t41321 - t41323 / 0.48e2 - t387 * t18 * t12650 * t1106 / 0.32e2 - t1444 * t18 * t41329 * t1360 / 0.24e2 + t275 * (t41378 + t41425 + t41464 + t41501) - 0.10000000000000000000e1 * t1231 * t1232 * t3880 + 0.2e1 * t629 * t12716 + 0.10000000000000000000e1 * t1205 * t12659 + 0.10000000000000000000e1 * t1208 * t12659 + 0.50000000000000000001e0 * t502 * t1506 * t3880 + 0.16081979498692535067e2 * t1213 * t1217 * t3880;
15585   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15586     v4rho2sigmatau[5] = -0.3e1 / 0.16e2 * t12645 - t41301 - t12653 / 0.16e2 - 0.31090700000000000000e-1 * t12655 - 0.31090700000000000000e-1 * t12657 + 0.10000000000000000000e1 * t12660 + 0.2e1 * t12662 + 0.2e1 * t12717 + t3 * t41520;
15587 
15588   t41537 = t323 * t127 * t12722;
15589   t41543 = t3802 * t439;
15590   t41547 = t682 * t12350;
15591   t41561 = t3318 * t26;
15592   t41571 = t1033 * t333;
15593   t41572 = t3068 * t41571;
15594   t41575 = t3677 * t719;
15595   t41584 = t11916 * t719;
15596   t41587 = -0.69411600000000000000e-3 * t5125 * t10312 * t9811 + 0.18509760000000000000e-2 * t29189 * t2934 * t10840 + 0.10411740000000000000e-2 * t9016 * t10312 * t9794 - 0.27764640000000000000e-2 * t29045 * t2934 * t10846 + 0.92548800000000000000e-3 * t9494 * t3068 * t41561 + 0.18509760000000000000e-2 * t5125 * t3332 * t31040 - 0.27764640000000000000e-2 * t9016 * t3332 * t30979 - 0.24679680000000000000e-2 * t9494 * t41572 + 0.50130600000000000000e-2 * t1849 * t41575 - 0.55529280000000000000e-5 * t2153 * t3342 * t31040 + 0.83293920000000000000e-5 * t1775 * t3342 * t30979 - 0.15039180000000000000e-4 * t1853 * t41584;
15597   t41596 = t12769 * t5778;
15598   t41599 = t12769 * t5785;
15599   t41602 = t40786 * t9514;
15600   t41605 = t12769 * t5791;
15601   t41608 = t12769 * t2211;
15602   t41611 = t40786 * t9490;
15603   t41620 = t3329 * t26;
15604   t41621 = t41620 * t701;
15605   t41624 = 0.83293920000000000000e-5 * t1775 * t3359 * t31040 - 0.11105856000000000000e-4 * t2165 * t3359 * t30979 - 0.15039180000000000000e-4 * t1844 * t41584 + 0.20823480000000000000e-2 * t16289 * t41596 - 0.41646960000000000000e-2 * t16305 * t41599 + 0.33317568000000000000e-4 * t16138 * t41602 - 0.41646960000000000000e-2 * t16305 * t41605 + 0.69411600000000000000e-2 * t19757 * t41608 - 0.44423424000000000000e-4 * t19666 * t41611 - 0.27764640000000000000e-2 * t30040 * t12477 + 0.37019520000000000000e-2 * t30992 * t12480 - 0.44423424000000000000e-4 * t30047 * t12486 + 0.11105856000000000000e-4 * t5758 * t41621;
15606   t41627 = t455 * tau[1] * t3002;
15607   t41630 = t12769 * t21858;
15608   t41633 = t12769 * t21862;
15609   t41636 = t40786 * t9441;
15610   t41639 = t40775 * t9441;
15611   t41642 = t1036 * t37;
15612   t41643 = t41642 * t31007;
15613   t41658 = 0.83293920000000000000e-7 * t5715 * t41627 - 0.74964528000000000000e-7 * t16302 * t41630 + 0.99952704000000000000e-7 * t19672 * t41633 - 0.79962163200000000000e-9 * t20125 * t41636 + 0.79962163200000000000e-9 * t20117 * t41639 - 0.57843000000000000000e-2 * t5011 * t41643 - 0.77124000000000000000e-2 * t5797 * t41643 + 0.33317568000000000000e-4 * t16138 * t41630 - 0.44423424000000000000e-4 * t19666 * t41633 + 0.39981081600000000000e-6 * t20120 * t41636 + 0.17352900000000000000e-4 * t5005 * t41643 + 0.23137200000000000000e-4 * t5801 * t41643;
15614   t41659 = t12740 * t21862;
15615   t41664 = t1033 * t37;
15616   t41665 = t41664 * t31007;
15617   t41670 = t12740 * t21858;
15618   t41681 = t998 * tau[1];
15619   t41682 = t41681 * t5698;
15620   t41685 = t1036 * t333;
15621   t41686 = t41685 * t701;
15622   t41693 = 0.33317568000000000000e-4 * t16138 * t41659 - 0.39981081600000000000e-6 * t20112 * t41639 - 0.11568600000000000000e-4 * t5782 * t41665 - 0.17352900000000000000e-4 * t5005 * t41665 + 0.49976352000000000000e-7 * t19695 * t41670 - 0.74964528000000000000e-7 * t16302 * t41659 + 0.38562000000000000000e-2 * t5777 * t41665 + 0.57843000000000000000e-2 * t5011 * t41665 - 0.22211712000000000000e-4 * t19689 * t41670 - 0.10411740000000000000e-4 * t5005 * t41682 + 0.66635136000000000000e-7 * t5720 * t41686 - 0.29615616000000000000e-4 * t5758 * t41686 - 0.37019520000000000000e-4 * t5758 * t41627;
15623   t41710 = t41681 * t9258;
15624   t41717 = t40775 * t9490;
15625   t41722 = -0.62470440000000000000e-5 * t16297 * t41596 + 0.12494088000000000000e-4 * t16310 * t41599 - 0.74964528000000000000e-7 * t16302 * t41602 + 0.12494088000000000000e-4 * t16310 * t41605 - 0.20823480000000000000e-4 * t19761 * t41608 + 0.99952704000000000000e-7 * t19672 * t41611 - 0.24988176000000000000e-7 * t5720 * t41621 + 0.10411740000000000000e-4 * t5005 * t41710 - 0.13882320000000000000e-4 * t5801 * t41682 + 0.83293920000000000000e-7 * t5720 * t41627 + 0.33317568000000000000e-4 * t16138 * t41717 + 0.18509760000000000000e-2 * t31048 * t12443;
15626   t41727 = t41561 * t701;
15627   t41736 = t12740 * t5785;
15628   t41739 = t40775 * t9514;
15629   t41742 = t12740 * t5791;
15630   t41745 = t12740 * t2211;
15631   t41754 = -0.27764640000000000000e-2 * t30040 * t12446 + 0.44423424000000000000e-4 * t30043 * t12452 - 0.11105856000000000000e-4 * t5755 * t41727 - 0.23137200000000000000e-2 * t5777 * t41710 + 0.34705800000000000000e-2 * t5011 * t41682 - 0.37019520000000000000e-4 * t5755 * t41627 - 0.62470440000000000000e-5 * t16297 * t41736 + 0.49976352000000000000e-7 * t19695 * t41739 - 0.62470440000000000000e-5 * t16297 * t41742 + 0.12494088000000000000e-4 * t16310 * t41745 - 0.74964528000000000000e-7 * t16302 * t41717 + 0.24988176000000000000e-7 * t5715 * t41727 + 0.69411600000000000000e-5 * t5782 * t41710;
15632   t41760 = t41571 * t701;
15633   t41779 = t3068 * t41685;
15634   t41784 = -0.34705800000000000000e-2 * t5011 * t41710 + 0.46274400000000000000e-2 * t5797 * t41682 + 0.29615616000000000000e-4 * t5755 * t41760 - 0.66635136000000000000e-7 * t5715 * t41760 + 0.20823480000000000000e-2 * t16289 * t41736 - 0.22211712000000000000e-4 * t19689 * t41739 + 0.20823480000000000000e-2 * t16289 * t41742 - 0.41646960000000000000e-2 * t16305 * t41745 - 0.27764640000000000000e-2 * t9016 * t3349 * t31040 + 0.37019520000000000000e-2 * t5110 * t3349 * t30979 + 0.24679680000000000000e-2 * t9499 * t41779 + 0.50130600000000000000e-2 * t1839 * t41575;
15635   t41785 = t455 * t306;
15636   t41786 = t41785 * t719;
15637   t41822 = 0.30849600000000000000e-2 * t8960 * t41786 + 0.20823480000000000000e-5 * t10970 * t12751 + 0.20823480000000000000e-5 * t2153 * t10319 * t9811 - 0.31235220000000000000e-5 * t1775 * t10319 * t9794 + 0.10411740000000000000e-2 * t9016 * t10330 * t9811 - 0.27764640000000000000e-2 * t29045 * t2934 * t10810 - 0.13882320000000000000e-2 * t5110 * t10330 * t9794 + 0.37019520000000000000e-2 * t29201 * t2934 * t3462 - 0.92548800000000000000e-3 * t9499 * t3068 * t41620 + 0.30849600000000000000e-2 * t8967 * t41786 - 0.31235220000000000000e-5 * t1775 * t10337 * t9811 + 0.41646960000000000000e-5 * t2165 * t10337 * t9794 - 0.69411600000000000000e-3 * t22088 * t12734;
15638   t41835 = 0.50000000000000000001e0 * t2264 * t12395 + t859 * t12511 + t629 * t12788 - t40478 / 0.96e2 - t2256 * t2257 * t3782 * t680 * t314 / 0.24e2 - t323 * t1415 * t12353 * t2 / 0.16e2 - t41537 / 0.96e2 - t323 * t18 * t40463 * t680 / 0.32e2 + 0.16081979498692535067e2 * t1454 * t2001 * t41543 - t41547 / 0.32e2 + t275 * (t41587 + t41624 + t41658 + t41693 + t41722 + t41754 + t41784 + t41822) - 0.3e1 / 0.32e2 * t682 * t12388 - 0.3e1 / 0.16e2 * t1888 * t1889 * t3783 - 0.10000000000000000000e1 * t1223 * t767 * t41543;
15639   t41864 = -t40585 / 0.32e2 - t40642 / 0.32e2 + t40646 - 0.15545350000000000000e-1 * t2051 * t3803 - 0.15545350000000000000e-1 * t745 * t12439 - 0.15545350000000000000e-1 * t2054 * t3803 - 0.15545350000000000000e-1 * t2063 * t3803 - 0.15545350000000000000e-1 * t753 * t12439 + t2114 * t3818 + 0.50000000000000000001e0 * t1461 * t12730 + 0.50000000000000000001e0 * t1387 * t12730 - 0.31090700000000000000e-1 * t1104 * t2104 * t3802 + 0.50000000000000000001e0 * t2315 * t12395 + 0.50000000000000000001e0 * t418 * t767 * t12438 + 0.50000000000000000001e0 * t418 * t2311 * t3802;
15640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15641     v4rho2sigmatau[6] = -t12349 - t40454 - t12357 - t12390 - t12392 - t12394 + t12397 - t12441 + t12442 + t12512 - t12721 - t12725 - t12727 - t12729 + t12732 + t12733 + t12789 + t3 * (t41835 + t41864);
15642 
15643   t41867 = t859 * t3833;
15644   t41870 = t275 * t12847;
15645   t41872 = t40930 * t9441;
15646   t41875 = t40958 * t9441;
15647   t41878 = t12826 * t5791;
15648   t41881 = t12826 * t2211;
15649   t41884 = t40930 * t9490;
15650   t41887 = t359 * t11099;
15651   t41896 = t359 * t947;
15652   t41899 = t12826 * t5778;
15653   t41902 = t12826 * t5785;
15654   t41905 = t40930 * t9514;
15655   t41908 = -0.79962163200000000000e-9 * t20125 * t41872 - 0.39981081600000000000e-6 * t20112 * t41875 - 0.41646960000000000000e-2 * t16305 * t41878 + 0.69411600000000000000e-2 * t19757 * t41881 - 0.44423424000000000000e-4 * t19666 * t41884 + 0.46274400000000000000e-2 * t5797 * t41887 - 0.27764640000000000000e-2 * t30040 * t12553 + 0.37019520000000000000e-2 * t30992 * t12556 - 0.44423424000000000000e-4 * t30047 * t12562 - 0.37019520000000000000e-4 * t5758 * t41896 - 0.62470440000000000000e-5 * t16297 * t41899 + 0.12494088000000000000e-4 * t16310 * t41902 - 0.74964528000000000000e-7 * t16302 * t41905;
15656   t41909 = t359 * t11090;
15657   t41932 = t12799 * t5785;
15658   t41935 = t40958 * t9514;
15659   t41938 = 0.10411740000000000000e-4 * t5005 * t41909 + 0.12494088000000000000e-4 * t16310 * t41878 - 0.20823480000000000000e-4 * t19761 * t41881 + 0.99952704000000000000e-7 * t19672 * t41884 - 0.13882320000000000000e-4 * t5801 * t41887 + 0.83293920000000000000e-7 * t5720 * t41896 + 0.34705800000000000000e-2 * t5011 * t41887 + 0.18509760000000000000e-2 * t31048 * t12517 - 0.27764640000000000000e-2 * t30040 * t12520 + 0.44423424000000000000e-4 * t30043 * t12526 - 0.37019520000000000000e-4 * t5755 * t41896 - 0.62470440000000000000e-5 * t16297 * t41932 + 0.49976352000000000000e-7 * t19695 * t41935;
15660   t41942 = t12799 * t5791;
15661   t41945 = t12799 * t2211;
15662   t41948 = t40958 * t9490;
15663   t41966 = t1087 * t333;
15664   t41967 = t3068 * t41966;
15665   t41973 = 0.69411600000000000000e-5 * t5782 * t41909 - 0.62470440000000000000e-5 * t16297 * t41942 + 0.12494088000000000000e-4 * t16310 * t41945 - 0.74964528000000000000e-7 * t16302 * t41948 - 0.10411740000000000000e-4 * t5005 * t41887 + 0.83293920000000000000e-7 * t5715 * t41896 + 0.20823480000000000000e-2 * t16289 * t41899 - 0.41646960000000000000e-2 * t16305 * t41902 + 0.33317568000000000000e-4 * t16138 * t41905 - 0.34705800000000000000e-2 * t5011 * t41909 - 0.27764640000000000000e-2 * t9016 * t3402 * t30979 - 0.24679680000000000000e-2 * t9494 * t41967 - 0.55529280000000000000e-5 * t2153 * t3412 * t31040;
15666   t41983 = t1090 * t333;
15667   t41984 = t3068 * t41983;
15668   t41996 = t12545 * t13899;
15669   t42002 = t3416 * t13899;
15670   t42013 = 0.83293920000000000000e-5 * t1775 * t3412 * t30979 - 0.27764640000000000000e-2 * t9016 * t3421 * t31040 + 0.37019520000000000000e-2 * t5110 * t3421 * t30979 + 0.24679680000000000000e-2 * t9499 * t41984 + 0.83293920000000000000e-5 * t1775 * t3431 * t31040 - 0.11105856000000000000e-4 * t2165 * t3431 * t30979 - 0.24988176000000000000e-7 * t1844 * t35095 * t2891 - 0.57843000000000000000e-5 * t1844 * t41996 - 0.11105856000000000000e-4 * t1849 * t11073 * t2891 + 0.19281000000000000000e-2 * t1849 * t42002 + 0.20823480000000000000e-5 * t10970 * t12809 + 0.20823480000000000000e-5 * t2153 * t11073 * t9495 - 0.31235220000000000000e-5 * t1775 * t11073 * t9500;
15671   t42035 = t3752 * t359;
15672   t42047 = t41966 * t701;
15673   t42052 = 0.24988176000000000000e-7 * t1853 * t35141 * t2891 - 0.57843000000000000000e-5 * t1853 * t41996 - 0.27764640000000000000e-2 * t29045 * t2934 * t11084 + 0.37019520000000000000e-2 * t29201 * t2934 * t3598 - 0.69411600000000000000e-3 * t22088 * t12793 + 0.18509760000000000000e-2 * t29189 * t2934 * t11120 - 0.27764640000000000000e-2 * t29045 * t2934 * t11128 + 0.30849600000000000000e-2 * t9494 * t42035 - 0.69411600000000000000e-3 * t5125 * t11044 * t9495 + 0.10411740000000000000e-2 * t9016 * t11044 * t9500 + 0.18509760000000000000e-2 * t5125 * t3402 * t31040 + 0.29615616000000000000e-4 * t5755 * t42047 - 0.66635136000000000000e-7 * t5715 * t42047;
15674   t42053 = t41983 * t701;
15675   t42086 = -0.29615616000000000000e-4 * t5758 * t42053 + 0.20823480000000000000e-2 * t16289 * t41932 - 0.22211712000000000000e-4 * t19689 * t41935 - 0.23137200000000000000e-2 * t5777 * t41909 + 0.20823480000000000000e-2 * t16289 * t41942 - 0.41646960000000000000e-2 * t16305 * t41945 + 0.33317568000000000000e-4 * t16138 * t41948 - 0.92548800000000000000e-3 * t1839 * t11051 * t333 + 0.27764640000000000000e-5 * t1844 * t11218 * t333 + 0.92548800000000000000e-3 * t1849 * t11044 * t333 - 0.27764640000000000000e-5 * t1853 * t11073 * t333 + 0.92548800000000000000e-3 * t8960 * t2934 * t3591 - 0.92548800000000000000e-3 * t8967 * t2934 * t3601;
15676   t42090 = t12826 * t21862;
15677   t42093 = t1087 * t37;
15678   t42094 = t42093 * t31007;
15679   t42099 = t12799 * t21858;
15680   t42102 = t12799 * t21862;
15681   t42115 = t1090 * t37;
15682   t42116 = t42115 * t31007;
15683   t42121 = 0.66635136000000000000e-7 * t5720 * t42053 + 0.99952704000000000000e-7 * t19672 * t42090 + 0.38562000000000000000e-2 * t5777 * t42094 + 0.57843000000000000000e-2 * t5011 * t42094 - 0.22211712000000000000e-4 * t19689 * t42099 + 0.33317568000000000000e-4 * t16138 * t42102 - 0.11568600000000000000e-4 * t5782 * t42094 - 0.17352900000000000000e-4 * t5005 * t42094 + 0.49976352000000000000e-7 * t19695 * t42099 - 0.74964528000000000000e-7 * t16302 * t42102 + 0.79962163200000000000e-9 * t20117 * t41875 - 0.57843000000000000000e-2 * t5011 * t42116 - 0.77124000000000000000e-2 * t5797 * t42116;
15684   t42122 = t12826 * t21858;
15685   t42154 = 0.33317568000000000000e-4 * t16138 * t42122 - 0.44423424000000000000e-4 * t19666 * t42090 + 0.39981081600000000000e-6 * t20120 * t41872 + 0.17352900000000000000e-4 * t5005 * t42116 + 0.23137200000000000000e-4 * t5801 * t42116 - 0.74964528000000000000e-7 * t16302 * t42122 + 0.30849600000000000000e-2 * t9499 * t42035 + 0.10411740000000000000e-2 * t9016 * t11051 * t9495 - 0.13882320000000000000e-2 * t5110 * t11051 * t9500 + 0.11105856000000000000e-4 * t1839 * t11218 * t2891 + 0.19281000000000000000e-2 * t1839 * t42002 - 0.31235220000000000000e-5 * t1775 * t11218 * t9495 + 0.41646960000000000000e-5 * t2165 * t11218 * t9500;
15686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15687     v4rho2sigmatau[7] = t40897 + t40899 + t41867 + t39427 * t3833 + t12138 * t12585 + t41870 + t11962 * t12847 + t3694 * (t41908 + t41938 + t41973 + t42013 + t42052 + t42086 + t42121 + t42154);
15688 
15689   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15690     v4rho2sigmatau[8] = 0.0e0;
15691 
15692   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15693     v4rho2sigmatau[9] = 0.0e0;
15694 
15695   t42159 = t859 * t3846;
15696   t42162 = t275 * t12917;
15697   t42164 = t1033 * t700;
15698   t42165 = t42164 * t334;
15699   t42168 = t12622 * t5778;
15700   t42171 = t12622 * t5785;
15701   t42176 = t12622 * t5791;
15702   t42179 = t12622 * t2211;
15703   t42186 = t1036 * t706;
15704   t42187 = t42186 * t9689;
15705   t42190 = t42186 * t9693;
15706   t42193 = t1030 * t39071;
15707   t42196 = t1030 * t39067;
15708   t42199 = t10866 * t12041;
15709   t42202 = -0.66635136000000000000e-7 * t5715 * t42165 + 0.20823480000000000000e-2 * t16289 * t42168 - 0.41646960000000000000e-2 * t16305 * t42171 - 0.27764640000000000000e-2 * t19985 * t12885 - 0.41646960000000000000e-2 * t16305 * t42176 + 0.69411600000000000000e-2 * t19757 * t42179 + 0.37019520000000000000e-2 * t19677 * t12888 - 0.44423424000000000000e-4 * t30521 * t3360 + 0.33317568000000000000e-4 * t16138 * t42187 - 0.44423424000000000000e-4 * t19666 * t42190 - 0.34705800000000000000e-2 * t5011 * t42193 + 0.46274400000000000000e-2 * t5797 * t42196 - 0.37019520000000000000e-4 * t5758 * t42199;
15710   t42203 = t1036 * t700;
15711   t42204 = t42203 * t334;
15712   t42233 = -0.29615616000000000000e-4 * t5758 * t42204 - 0.62470440000000000000e-5 * t16297 * t42168 + 0.12494088000000000000e-4 * t16310 * t42171 + 0.12494088000000000000e-4 * t16310 * t42176 - 0.20823480000000000000e-4 * t19761 * t42179 - 0.74964528000000000000e-7 * t16302 * t42187 + 0.99952704000000000000e-7 * t19672 * t42190 + 0.10411740000000000000e-4 * t5005 * t42193 - 0.13882320000000000000e-4 * t5801 * t42196 + 0.83293920000000000000e-7 * t5720 * t42199 + 0.66635136000000000000e-7 * t5720 * t42204 + 0.41646960000000000000e-5 * t2165 * t10337 * t9654 - 0.24988176000000000000e-7 * t1844 * t33197 * t3137;
15713   t42256 = t3677 * t726;
15714   t42274 = 0.83293920000000000000e-5 * t1775 * t3359 * t2187 - 0.11105856000000000000e-4 * t2165 * t3359 * t2191 + 0.10411740000000000000e-2 * t9016 * t10330 * t9646 - 0.13882320000000000000e-2 * t5110 * t10330 * t9654 - 0.27764640000000000000e-2 * t30573 * t3180 * t10361 + 0.37019520000000000000e-2 * t29926 * t3180 * t3326 + 0.11105856000000000000e-4 * t1839 * t10337 * t3137 + 0.30849600000000000000e-2 * t8967 * t42256 + 0.92548800000000000000e-3 * t9494 * t3180 * t3318 + 0.92548800000000000000e-3 * t1849 * t10312 * t700 - 0.27764640000000000000e-5 * t1853 * t10319 * t700 - 0.92548800000000000000e-3 * t9499 * t3180 * t3329 - 0.92548800000000000000e-3 * t1839 * t10330 * t700;
15715   t42278 = t12595 * t5791;
15716   t42281 = t12595 * t2211;
15717   t42288 = t1033 * t706;
15718   t42289 = t42288 * t9689;
15719   t42292 = t42288 * t9693;
15720   t42303 = t12595 * t5785;
15721   t42308 = 0.27764640000000000000e-5 * t1844 * t10337 * t700 + 0.20823480000000000000e-2 * t16289 * t42278 - 0.41646960000000000000e-2 * t16305 * t42281 - 0.27764640000000000000e-2 * t19985 * t12853 + 0.44423424000000000000e-4 * t30518 * t3343 - 0.22211712000000000000e-4 * t19689 * t42289 + 0.33317568000000000000e-4 * t16138 * t42292 - 0.23137200000000000000e-2 * t5777 * t42193 + 0.34705800000000000000e-2 * t5011 * t42196 - 0.37019520000000000000e-4 * t5755 * t42199 + 0.29615616000000000000e-4 * t5755 * t42165 - 0.62470440000000000000e-5 * t16297 * t42303 - 0.62470440000000000000e-5 * t16297 * t42278;
15722   t42323 = t9514 * t333;
15723   t42324 = t12595 * t42323;
15724   t42327 = t1033 * t86;
15725   t42328 = t42327 * t5598;
15726   t42331 = t12595 * t31485;
15727   t42336 = t42288 * t9634;
15728   t42339 = t2949 * t726;
15729   t42342 = t2964 * t726;
15730   t42345 = 0.12494088000000000000e-4 * t16310 * t42281 + 0.49976352000000000000e-7 * t19695 * t42289 - 0.74964528000000000000e-7 * t16302 * t42292 + 0.69411600000000000000e-5 * t5782 * t42193 - 0.10411740000000000000e-4 * t5005 * t42196 + 0.83293920000000000000e-7 * t5715 * t42199 - 0.22211712000000000000e-4 * t19689 * t42324 + 0.38562000000000000000e-2 * t5777 * t42328 + 0.33317568000000000000e-4 * t16138 * t42331 + 0.57843000000000000000e-2 * t5011 * t42328 - 0.39981081600000000000e-6 * t20112 * t42336 + 0.19281000000000000000e-2 * t1849 * t42339 - 0.57843000000000000000e-5 * t1853 * t42342;
15731   t42379 = 0.19281000000000000000e-2 * t1839 * t42339 - 0.57843000000000000000e-5 * t1844 * t42342 - 0.27764640000000000000e-2 * t9016 * t3349 * t2187 + 0.37019520000000000000e-2 * t5110 * t3349 * t2191 + 0.24679680000000000000e-2 * t8967 * t41779 - 0.31235220000000000000e-5 * t1775 * t10337 * t9646 + 0.30849600000000000000e-2 * t8960 * t42256 + 0.18509760000000000000e-2 * t5125 * t3332 * t2187 - 0.27764640000000000000e-2 * t9016 * t3332 * t2191 - 0.24679680000000000000e-2 * t8960 * t41572 + 0.20823480000000000000e-5 * t10970 * t12868 + 0.20823480000000000000e-5 * t2153 * t10319 * t9646 - 0.31235220000000000000e-5 * t1775 * t10319 * t9654;
15732   t42407 = t12622 * t42323;
15733   t42410 = t1036 * t86;
15734   t42411 = t42410 * t5598;
15735   t42414 = t12622 * t31485;
15736   t42419 = 0.24988176000000000000e-7 * t1853 * t33211 * t3137 - 0.55529280000000000000e-5 * t2153 * t3342 * t2187 + 0.83293920000000000000e-5 * t1775 * t3342 * t2191 - 0.69411600000000000000e-3 * t22088 * t12850 - 0.69411600000000000000e-3 * t5125 * t10312 * t9646 + 0.10411740000000000000e-2 * t9016 * t10312 * t9654 + 0.18509760000000000000e-2 * t29918 * t3180 * t10372 - 0.27764640000000000000e-2 * t30573 * t3180 * t10378 - 0.11105856000000000000e-4 * t1849 * t10319 * t3137 + 0.33317568000000000000e-4 * t16138 * t42407 - 0.57843000000000000000e-2 * t5011 * t42411 - 0.44423424000000000000e-4 * t19666 * t42414 - 0.77124000000000000000e-2 * t5797 * t42411;
15737   t42420 = t42186 * t9634;
15738   t42447 = 0.39981081600000000000e-6 * t20120 * t42420 - 0.74964528000000000000e-7 * t16302 * t42407 + 0.17352900000000000000e-4 * t5005 * t42411 + 0.49976352000000000000e-7 * t19695 * t42324 - 0.11568600000000000000e-4 * t5782 * t42328 - 0.74964528000000000000e-7 * t16302 * t42331 - 0.17352900000000000000e-4 * t5005 * t42328 + 0.79962163200000000000e-9 * t20117 * t42336 + 0.99952704000000000000e-7 * t19672 * t42414 + 0.23137200000000000000e-4 * t5801 * t42411 - 0.79962163200000000000e-9 * t20125 * t42420 + 0.20823480000000000000e-2 * t16289 * t42303 + 0.18509760000000000000e-2 * t19713 * t12850;
15739   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15740     v4rho2sigmatau[10] = t41115 + t41117 + t42159 + t39427 * t3846 + t12138 * t12643 + t42162 + t11962 * t12917 + t3694 * (t42202 + t42233 + t42274 + t42308 + t42345 + t42379 + t42419 + t42447);
15741 
15742   t42469 = t3880 * t520;
15743   t42481 = 0.50000000000000000001e0 * t1205 * t12962 + 0.50000000000000000001e0 * t1208 * t12962 + 0.50000000000000000001e0 * t2272 * t12659 + t859 * t12716 + t629 * t13078 - 0.3e1 / 0.32e2 * t380 * t12955 - t41317 / 0.32e2 + t41321 + t2114 * t3896 - t2249 * t2250 * t3860 * t689 * t378 / 0.24e2 - 0.10000000000000000000e1 * t1231 * t793 * t42469 + 0.50000000000000000001e0 * t2269 * t12659 + 0.50000000000000000001e0 * t502 * t522 * t13005 + 0.50000000000000000001e0 * t502 * t2278 * t3880;
15744   t42482 = t12669 * t2211;
15745   t42485 = t1053 * t876;
15746   t42486 = t352 * t42485;
15747   t42489 = t1087 * t706;
15748   t42490 = t42489 * t9689;
15749   t42493 = t42489 * t9693;
15750   t42496 = t12669 * t5785;
15751   t42501 = t1053 * t873;
15752   t42502 = t352 * t42501;
15753   t42505 = t12669 * t5791;
15754   t42516 = 0.12494088000000000000e-4 * t16310 * t42482 - 0.10411740000000000000e-4 * t5005 * t42486 + 0.49976352000000000000e-7 * t19695 * t42490 - 0.74964528000000000000e-7 * t16302 * t42493 + 0.20823480000000000000e-2 * t16289 * t42496 + 0.18509760000000000000e-2 * t19713 * t13010 - 0.23137200000000000000e-2 * t5777 * t42502 + 0.20823480000000000000e-2 * t16289 * t42505 - 0.41646960000000000000e-2 * t16305 * t42482 - 0.27764640000000000000e-2 * t19985 * t13013 + 0.34705800000000000000e-2 * t5011 * t42486 + 0.44423424000000000000e-4 * t30518 * t3413;
15755   t42523 = t1090 * t706;
15756   t42524 = t42523 * t9689;
15757   t42527 = t42523 * t9693;
15758   t42530 = t352 * t3715;
15759   t42533 = t3601 * t75;
15760   t42534 = t42533 * t334;
15761   t42537 = t1090 * t700;
15762   t42538 = t42537 * t334;
15763   t42541 = t12697 * t5778;
15764   t42544 = t12697 * t5785;
15765   t42551 = t3591 * t75;
15766   t42552 = t42551 * t334;
15767   t42555 = -0.22211712000000000000e-4 * t19689 * t42490 + 0.33317568000000000000e-4 * t16138 * t42493 - 0.44423424000000000000e-4 * t30521 * t3432 + 0.33317568000000000000e-4 * t16138 * t42524 - 0.44423424000000000000e-4 * t19666 * t42527 - 0.37019520000000000000e-4 * t5758 * t42530 + 0.11105856000000000000e-4 * t5758 * t42534 - 0.29615616000000000000e-4 * t5758 * t42538 - 0.62470440000000000000e-5 * t16297 * t42541 + 0.12494088000000000000e-4 * t16310 * t42544 + 0.10411740000000000000e-4 * t5005 * t42502 + 0.83293920000000000000e-7 * t5715 * t42530 + 0.24988176000000000000e-7 * t5715 * t42552;
15768   t42558 = t1087 * t700 * t334;
15769   t42569 = t12697 * t5791;
15770   t42572 = t12697 * t2211;
15771   t42585 = -0.66635136000000000000e-7 * t5715 * t42558 + 0.20823480000000000000e-2 * t16289 * t42541 - 0.41646960000000000000e-2 * t16305 * t42544 - 0.27764640000000000000e-2 * t19985 * t13044 - 0.34705800000000000000e-2 * t5011 * t42502 - 0.41646960000000000000e-2 * t16305 * t42569 + 0.69411600000000000000e-2 * t19757 * t42572 + 0.37019520000000000000e-2 * t19677 * t13047 + 0.46274400000000000000e-2 * t5797 * t42486 - 0.37019520000000000000e-4 * t5755 * t42530 - 0.11105856000000000000e-4 * t5755 * t42552 + 0.29615616000000000000e-4 * t5755 * t42558;
15772   t42592 = t12669 * t31485;
15773   t42595 = t1087 * t86;
15774   t42596 = t42595 * t5598;
15775   t42599 = t12669 * t42323;
15776   t42608 = t42489 * t9634;
15777   t42611 = t1090 * t86;
15778   t42612 = t42611 * t5598;
15779   t42615 = t42523 * t9634;
15780   t42618 = t12697 * t42323;
15781   t42621 = -0.62470440000000000000e-5 * t16297 * t42496 + 0.69411600000000000000e-5 * t5782 * t42502 - 0.62470440000000000000e-5 * t16297 * t42505 - 0.74964528000000000000e-7 * t16302 * t42592 - 0.17352900000000000000e-4 * t5005 * t42596 - 0.22211712000000000000e-4 * t19689 * t42599 + 0.38562000000000000000e-2 * t5777 * t42596 + 0.33317568000000000000e-4 * t16138 * t42592 + 0.57843000000000000000e-2 * t5011 * t42596 - 0.39981081600000000000e-6 * t20112 * t42608 - 0.77124000000000000000e-2 * t5797 * t42612 + 0.39981081600000000000e-6 * t20120 * t42615 - 0.74964528000000000000e-7 * t16302 * t42618;
15782   t42626 = t12697 * t31485;
15783   t42643 = t807 * t306;
15784   t42644 = t42643 * t352;
15785   t42653 = 0.17352900000000000000e-4 * t5005 * t42612 + 0.99952704000000000000e-7 * t19672 * t42626 + 0.23137200000000000000e-4 * t5801 * t42612 + 0.79962163200000000000e-9 * t20117 * t42608 + 0.33317568000000000000e-4 * t16138 * t42618 - 0.57843000000000000000e-2 * t5011 * t42612 - 0.44423424000000000000e-4 * t19666 * t42626 + 0.49976352000000000000e-7 * t19695 * t42599 - 0.11568600000000000000e-4 * t5782 * t42596 + 0.30849600000000000000e-2 * t9494 * t42644 - 0.69411600000000000000e-3 * t5125 * t11044 * t9258 + 0.10411740000000000000e-2 * t9016 * t11044 * t5698;
15786   t42657 = t3416 * t13917;
15787   t42686 = t12545 * t13917;
15788   t42689 = 0.92548800000000000000e-3 * t8960 * t2196 * t42551 + 0.50130600000000000000e-2 * t1849 * t42657 + 0.18509760000000000000e-2 * t5125 * t3402 * t2187 - 0.27764640000000000000e-2 * t9016 * t3402 * t2191 - 0.24679680000000000000e-2 * t8960 * t41967 + 0.20823480000000000000e-5 * t10970 * t13028 - 0.69411600000000000000e-3 * t22088 * t13010 + 0.18509760000000000000e-2 * t29918 * t3180 * t10629 - 0.27764640000000000000e-2 * t30573 * t3180 * t10638 + 0.24679680000000000000e-2 * t8967 * t41984 - 0.31235220000000000000e-5 * t1775 * t11218 * t9258 + 0.41646960000000000000e-5 * t2165 * t11218 * t5698 - 0.15039180000000000000e-4 * t1844 * t42686;
15789   t42720 = 0.83293920000000000000e-5 * t1775 * t3431 * t2187 - 0.11105856000000000000e-4 * t2165 * t3431 * t2191 + 0.10411740000000000000e-2 * t9016 * t11051 * t9258 - 0.13882320000000000000e-2 * t5110 * t11051 * t5698 - 0.92548800000000000000e-3 * t8967 * t2196 * t42533 - 0.79962163200000000000e-9 * t20125 * t42615 + 0.12494088000000000000e-4 * t16310 * t42569 - 0.20823480000000000000e-4 * t19761 * t42572 - 0.13882320000000000000e-4 * t5801 * t42486 - 0.74964528000000000000e-7 * t16302 * t42524 + 0.99952704000000000000e-7 * t19672 * t42527 + 0.83293920000000000000e-7 * t5720 * t42530;
15790   t42755 = -0.24988176000000000000e-7 * t5720 * t42534 + 0.66635136000000000000e-7 * t5720 * t42538 + 0.50130600000000000000e-2 * t1839 * t42657 - 0.27764640000000000000e-2 * t9016 * t3421 * t2187 + 0.37019520000000000000e-2 * t5110 * t3421 * t2191 + 0.20823480000000000000e-5 * t2153 * t11073 * t9258 - 0.31235220000000000000e-5 * t1775 * t11073 * t5698 - 0.15039180000000000000e-4 * t1853 * t42686 - 0.55529280000000000000e-5 * t2153 * t3412 * t2187 + 0.83293920000000000000e-5 * t1775 * t3412 * t2191 - 0.27764640000000000000e-2 * t30573 * t3180 * t10606 + 0.37019520000000000000e-2 * t29926 * t3180 * t3396 + 0.30849600000000000000e-2 * t9499 * t42644;
15791   t42767 = t67 * t127 * t12954;
15792   t42769 = t691 * t12647;
15793   t42786 = t387 * t127 * t12921;
15794   t42792 = t389 * t12953;
15795   t42797 = t275 * (t42516 + t42555 + t42585 + t42621 + t42653 + t42689 + t42720 + t42755) + 0.16081979498692535067e2 * t1213 * t2009 * t42469 + 0.31090700000000000000e-1 * t1104 * t2107 * t3880 - t42767 / 0.32e2 - t42769 / 0.32e2 + 0.3e1 / 0.16e2 * t1888 * t1889 * t3861 - 0.15545350000000000000e-1 * t482 * t13006 - 0.15545350000000000000e-1 * t497 * t13006 - 0.15545350000000000000e-1 * t2024 * t3881 - 0.15545350000000000000e-1 * t2027 * t3881 - 0.15545350000000000000e-1 * t2048 * t3881 - t41323 / 0.96e2 - t42786 / 0.96e2 + t387 * t1415 * t12650 * t2 / 0.16e2 - t387 * t18 * t42792 * t378 / 0.32e2;
15796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15797     v4rho2sigmatau[11] = -t12646 - t41301 - t12654 - t12656 - t12658 + t12661 + t12662 + t12717 - t12920 - t12924 - t12957 - t12959 - t12961 + t12964 - t13008 + t13009 + t13079 + t3 * (t42481 + t42797);
15798 
15799   t42848 = t12759 * t2363;
15800   t42857 = t12747 * t2363;
15801   t42879 = t3180 * t41681;
15802   t42882 = -0.13882320000000000000e-2 * t5110 * t3349 * t32006 - 0.62470440000000000000e-5 * t5051 * t3359 * t31932 - 0.20823480000000000000e-4 * t5624 * t3359 * t31912 - 0.92548800000000000000e-5 * t1844 * t42848 + 0.69411600000000000000e-2 * t16355 * t3349 * t31912 + 0.33934560000000000000e-2 * t9499 * t9862 * t12769 + 0.30849600000000000000e-2 * t1839 * t42857 + 0.30849600000000000000e-2 * t1849 * t42857 + 0.12494088000000000000e-4 * t5038 * t3342 * t31912 - 0.41646960000000000000e-2 * t29064 * t3332 * t31912 - 0.33934560000000000000e-2 * t9494 * t9862 * t12740 - 0.92548800000000000000e-5 * t1853 * t42848 + 0.20823480000000000000e-2 * t29031 * t3349 * t31932 - 0.44423424000000000000e-4 * t7021 * t9852 * t12769 + 0.61699200000000000000e-2 * t9499 * t42879;
15803   t42909 = t12769 * t2358;
15804   t42912 = t12740 * t2358;
15805   t42923 = t12769 * t36200;
15806   t42926 = -0.31235220000000000000e-5 * t1775 * t3359 * t31994 + 0.41646960000000000000e-5 * t2165 * t3359 * t32006 - 0.69411600000000000000e-3 * t5125 * t3332 * t31994 + 0.10411740000000000000e-2 * t9016 * t3332 * t32006 + 0.44423424000000000000e-4 * t7016 * t9852 * t12740 + 0.61699200000000000000e-2 * t9494 * t42879 + 0.20823480000000000000e-5 * t2153 * t3342 * t31994 - 0.31235220000000000000e-5 * t1775 * t3342 * t32006 + 0.10411740000000000000e-2 * t9016 * t3349 * t31994 - 0.40721472000000000000e-4 * t5758 * t42909 - 0.91623312000000000000e-7 * t5715 * t42912 + 0.40721472000000000000e-4 * t5755 * t42912 + 0.91623312000000000000e-7 * t5720 * t42909 - 0.69411600000000000000e-3 * t36426 * t3806 + 0.20823480000000000000e-5 * t36078 * t3809 - 0.14992905600000000000e-6 * t16302 * t42923;
15807   t42928 = t12769 * t25865;
15808   t42935 = t12740 * t36200;
15809   t42938 = t12740 * t25865;
15810   t42945 = t41681 * t3137;
15811   t42948 = t12740 * t2383;
15812   t42953 = t12740 * t6933;
15813   t42956 = t41681 * t9646;
15814   t42959 = t41681 * t9654;
15815   t42966 = 0.19990540800000000000e-6 * t19672 * t42928 + 0.66635136000000000000e-4 * t16138 * t42923 - 0.88846848000000000000e-4 * t19666 * t42928 - 0.44423424000000000000e-4 * t19689 * t42935 + 0.66635136000000000000e-4 * t16138 * t42938 + 0.99952704000000000000e-7 * t19695 * t42935 - 0.14992905600000000000e-6 * t16302 * t42938 - 0.74039040000000000000e-4 * t5758 * t42945 - 0.39981081600000000000e-6 * t20112 * t42948 - 0.74039040000000000000e-4 * t5755 * t42945 - 0.12494088000000000000e-4 * t16297 * t42953 + 0.13882320000000000000e-4 * t5782 * t42956 - 0.20823480000000000000e-4 * t5005 * t42959 + 0.37019520000000000000e-2 * t31048 * t12734 - 0.46274400000000000000e-2 * t5777 * t42956;
15816   t42977 = t12769 * t6933;
15817   t42988 = t12769 * t2383;
15818   t43001 = -0.55529280000000000000e-2 * t30040 * t12737 + 0.69411600000000000000e-2 * t5011 * t42959 + 0.41646960000000000000e-2 * t16289 * t42953 + 0.79962163200000000000e-9 * t20117 * t42948 + 0.16658784000000000000e-6 * t5715 * t42945 - 0.83293920000000000000e-2 * t16305 * t42977 - 0.55529280000000000000e-2 * t30040 * t12763 + 0.24988176000000000000e-4 * t16310 * t42977 + 0.20823480000000000000e-4 * t5005 * t42956 - 0.27764640000000000000e-4 * t5801 * t42959 - 0.79962163200000000000e-9 * t20125 * t42988 + 0.16658784000000000000e-6 * t5720 * t42945 - 0.69411600000000000000e-2 * t5011 * t42956 + 0.74039040000000000000e-2 * t30992 * t12766 + 0.92548800000000000000e-2 * t5797 * t42959 + 0.39981081600000000000e-6 * t20120 * t42988;
15819   t43007 = t40646 + 0.16081979498692535067e2 * t1454 * t2806 * t3802 + 0.10000000000000000000e1 * t2264 * t12730 + 0.10000000000000000000e1 * t2315 * t12730 + 0.50000000000000000001e0 * t418 * t2802 * t3802 - t323 * t18 * t12353 * t2416 / 0.32e2 - t1754 * t18 * t40472 * t2511 / 0.24e2 + 0.2e1 * t859 * t12788 - 0.10000000000000000000e1 * t1223 * t2812 * t3802 + t2717 * t3818 - 0.15545350000000000000e-1 * t2504 * t3803 - 0.31090700000000000000e-1 * t2507 * t3803 - 0.15545350000000000000e-1 * t2525 * t3803 - 0.3e1 / 0.32e2 * t2418 * t3784 + t275 * (t42882 + t42926 + t42966 + t43001) - t41547 / 0.16e2 - t41537 / 0.48e2;
15820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15821     v4rho2sigmatau[12] = -0.3e1 / 0.16e2 * t12720 - t40454 - t12724 / 0.16e2 - 0.31090700000000000000e-1 * t12726 - 0.31090700000000000000e-1 * t12728 + 0.10000000000000000000e1 * t12731 + 0.2e1 * t12733 + 0.2e1 * t12789 + t3 * t43007;
15822 
15823   t43014 = t12826 * t36200;
15824   t43017 = t12826 * t25865;
15825   t43024 = t12799 * t25865;
15826   t43055 = 0.66635136000000000000e-4 * t16138 * t43014 - 0.88846848000000000000e-4 * t19666 * t43017 - 0.14992905600000000000e-6 * t16302 * t43014 + 0.19990540800000000000e-6 * t19672 * t43017 - 0.14992905600000000000e-6 * t16302 * t43024 - 0.34705800000000000000e-3 * t1849 * t37063 * t26 + 0.10411740000000000000e-5 * t1853 * t37067 * t26 + 0.34705800000000000000e-3 * t1839 * t37074 * t26 - 0.10411740000000000000e-5 * t1844 * t37078 * t26 - 0.69411600000000000000e-3 * t36426 * t3821 + 0.20823480000000000000e-5 * t36078 * t3824 - 0.41646960000000000000e-2 * t29064 * t3402 * t31912 - 0.33934560000000000000e-2 * t9494 * t9862 * t12799 + 0.12494088000000000000e-4 * t5038 * t3412 * t31912 + 0.83293920000000000000e-5 * t2165 * t11218 * t9794;
15827   t43080 = t3601 * t26;
15828   t43105 = 0.41646960000000000000e-5 * t2165 * t3431 * t32006 + 0.20823480000000000000e-5 * t2153 * t3412 * t31994 - 0.62470440000000000000e-5 * t1775 * t11073 * t9794 - 0.31235220000000000000e-5 * t1775 * t3412 * t32006 + 0.20823480000000000000e-2 * t9016 * t11051 * t9811 + 0.10411740000000000000e-2 * t9016 * t3421 * t31994 - 0.27764640000000000000e-2 * t5110 * t11051 * t9794 - 0.13882320000000000000e-2 * t5110 * t3421 * t32006 - 0.18509760000000000000e-2 * t9499 * t3068 * t43080 - 0.44423424000000000000e-4 * t7021 * t9852 * t12826 - 0.62470440000000000000e-5 * t1775 * t11218 * t9811 - 0.31235220000000000000e-5 * t1775 * t3431 * t31994 - 0.13882320000000000000e-2 * t5125 * t11044 * t9811 - 0.69411600000000000000e-3 * t5125 * t3402 * t31994 + 0.20823480000000000000e-2 * t9016 * t11044 * t9794 + 0.10411740000000000000e-2 * t9016 * t3402 * t32006;
15829   t43107 = t3591 * t26;
15830   t43132 = t12799 * t36200;
15831   t43139 = t12799 * t6933;
15832   t43144 = t12826 * t2358;
15833   t43149 = 0.18509760000000000000e-2 * t9494 * t3068 * t43107 + 0.44423424000000000000e-4 * t7016 * t9852 * t12799 + 0.41646960000000000000e-5 * t2153 * t11073 * t9811 - 0.62470440000000000000e-5 * t5051 * t3431 * t31932 - 0.20823480000000000000e-4 * t5624 * t3431 * t31912 + 0.20823480000000000000e-2 * t29031 * t3421 * t31932 + 0.69411600000000000000e-2 * t16355 * t3421 * t31912 + 0.33934560000000000000e-2 * t9499 * t9862 * t12826 - 0.44423424000000000000e-4 * t19689 * t43132 + 0.66635136000000000000e-4 * t16138 * t43024 + 0.99952704000000000000e-7 * t19695 * t43132 + 0.41646960000000000000e-2 * t16289 * t43139 + 0.37019520000000000000e-2 * t31048 * t12793 - 0.40721472000000000000e-4 * t5758 * t43144 + 0.91623312000000000000e-7 * t5720 * t43144;
15834   t43150 = t12799 * t2358;
15835   t43153 = t43080 * t701;
15836   t43156 = t12826 * t2383;
15837   t43159 = t43107 * t701;
15838   t43162 = t12799 * t2383;
15839   t43165 = t12826 * t6933;
15840   t43188 = -0.91623312000000000000e-7 * t5715 * t43150 - 0.49976352000000000000e-7 * t5720 * t43153 - 0.79962163200000000000e-9 * t20125 * t43156 + 0.49976352000000000000e-7 * t5715 * t43159 + 0.79962163200000000000e-9 * t20117 * t43162 - 0.83293920000000000000e-2 * t16305 * t43165 - 0.55529280000000000000e-2 * t30040 * t12820 + 0.74039040000000000000e-2 * t30992 * t12823 - 0.55529280000000000000e-2 * t30040 * t12796 - 0.22211712000000000000e-4 * t5755 * t43159 - 0.39981081600000000000e-6 * t20112 * t43162 - 0.12494088000000000000e-4 * t16297 * t43139 + 0.40721472000000000000e-4 * t5755 * t43150 + 0.22211712000000000000e-4 * t5758 * t43153 + 0.39981081600000000000e-6 * t20120 * t43156 + 0.24988176000000000000e-4 * t16310 * t43165;
15841   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15842     v4rho2sigmatau[13] = 0.2e1 * t41867 + 0.2e1 * t41870 + t39975 * t3833 + 0.2e1 * t12138 * t12847 + t3694 * (t43055 + t43105 + t43149 + t43188);
15843 
15844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15845     v4rho2sigmatau[14] = 0.0e0;
15846 
15847   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15848     v4rho2sigmatau[15] = 0.0e0;
15849 
15850   t43223 = t42186 * t6814;
15851   t43226 = t1030 * t31467;
15852   t43229 = t42186 * t6826;
15853   t43232 = t1030 * t36581;
15854   t43235 = t1030 * t12334;
15855   t43240 = t12622 * t6933;
15856   t43245 = 0.10180368000000000000e-4 * t1853 * t3342 * t2357 - 0.83293920000000000000e-2 * t9494 * t11327 - 0.33934560000000000000e-2 * t1849 * t3332 * t2357 - 0.69411600000000000000e-3 * t36426 * t3834 + 0.44423424000000000000e-4 * t7016 * t9968 * t1033 - 0.44423424000000000000e-4 * t7021 * t9968 * t1036 - 0.10180368000000000000e-4 * t1844 * t3359 * t2357 + 0.83293920000000000000e-2 * t9499 * t11336 + 0.33934560000000000000e-2 * t1839 * t3349 * t2357 + 0.20823480000000000000e-5 * t36078 * t3837 - 0.14992905600000000000e-6 * t16302 * t43223 + 0.20823480000000000000e-4 * t5005 * t43226 + 0.19990540800000000000e-6 * t19672 * t43229 - 0.27764640000000000000e-4 * t5801 * t43232 + 0.16658784000000000000e-6 * t5720 * t43235 - 0.74039040000000000000e-4 * t5758 * t43235 + 0.24988176000000000000e-4 * t16310 * t43240 - 0.83293920000000000000e-2 * t16305 * t43240;
15857   t43258 = t12877 * t2341;
15858   t43270 = t3480 * t2341;
15859   t43291 = t36718 * t1030;
15860   t43303 = 0.16658784000000000000e-4 * t1775 * t3359 * t31443 - 0.20823480000000000000e-4 * t5624 * t3359 * t31366 - 0.22211712000000000000e-4 * t2165 * t3359 * t8236 + 0.22489358400000000000e-6 * t1844 * t10341 * t9952 - 0.27764640000000000000e-4 * t1844 * t43258 - 0.99952704000000000000e-4 * t1839 * t3359 * t9952 - 0.55529280000000000000e-2 * t30573 * t3180 * t10810 + 0.99952704000000000000e-4 * t1849 * t3342 * t9952 + 0.92548800000000000000e-2 * t1849 * t43270 - 0.11105856000000000000e-4 * t2153 * t3342 * t31443 + 0.37019520000000000000e-2 * t5125 * t3332 * t31443 - 0.41646960000000000000e-2 * t29064 * t3332 * t31366 - 0.55529280000000000000e-2 * t9016 * t3332 * t8236 + 0.10411740000000000000e-2 * t9016 * t3332 * t26191 - 0.55529280000000000000e-2 * t30573 * t3180 * t10846 + 0.61699200000000000000e-2 * t9494 * t43291 - 0.39981081600000000000e-6 * t1849 * t10323 * t9959 - 0.69411600000000000000e-3 * t5125 * t3332 * t31383 + 0.37019520000000000000e-2 * t29918 * t3180 * t10840;
15861   t43356 = 0.92548800000000000000e-2 * t1839 * t43270 - 0.62470440000000000000e-5 * t5051 * t3359 * t31433 - 0.55529280000000000000e-2 * t9016 * t3349 * t31443 + 0.69411600000000000000e-2 * t16355 * t3349 * t31366 + 0.74039040000000000000e-2 * t5110 * t3349 * t8236 + 0.12494088000000000000e-4 * t5038 * t3342 * t31366 + 0.16658784000000000000e-4 * t1775 * t3342 * t8236 - 0.22489358400000000000e-6 * t1853 * t10323 * t9952 - 0.27764640000000000000e-4 * t1853 * t43258 + 0.20823480000000000000e-2 * t29031 * t3349 * t31433 + 0.41646960000000000000e-5 * t2165 * t3359 * t26191 - 0.79962163200000000000e-9 * t1844 * t33201 * t9959 - 0.13882320000000000000e-2 * t5110 * t3349 * t26191 + 0.74039040000000000000e-2 * t29926 * t3180 * t3462 + 0.61699200000000000000e-2 * t9499 * t43291 + 0.39981081600000000000e-6 * t1839 * t10341 * t9959 - 0.31235220000000000000e-5 * t1775 * t3359 * t31383 + 0.20823480000000000000e-5 * t2153 * t3342 * t31383;
15862   t43376 = t42288 * t6826;
15863   t43389 = t12595 * t6933;
15864   t43392 = t42288 * t6814;
15865   t43401 = -0.31235220000000000000e-5 * t1775 * t3342 * t26191 + 0.79962163200000000000e-9 * t1853 * t33215 * t9959 + 0.10411740000000000000e-2 * t9016 * t3349 * t31383 + 0.66635136000000000000e-4 * t16138 * t43223 - 0.69411600000000000000e-2 * t5011 * t43226 - 0.88846848000000000000e-4 * t19666 * t43229 + 0.92548800000000000000e-2 * t5797 * t43232 + 0.13882320000000000000e-4 * t5782 * t43226 - 0.14992905600000000000e-6 * t16302 * t43376 - 0.20823480000000000000e-4 * t5005 * t43232 + 0.16658784000000000000e-6 * t5715 * t43235 + 0.66635136000000000000e-4 * t16138 * t43376 + 0.69411600000000000000e-2 * t5011 * t43232 - 0.74039040000000000000e-4 * t5755 * t43235 - 0.12494088000000000000e-4 * t16297 * t43389 + 0.99952704000000000000e-7 * t19695 * t43392 + 0.41646960000000000000e-2 * t16289 * t43389 - 0.44423424000000000000e-4 * t19689 * t43392 - 0.46274400000000000000e-2 * t5777 * t43226;
15866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15867     v4rho2sigmatau[16] = 0.2e1 * t42159 + 0.2e1 * t42162 + t39975 * t3846 + 0.2e1 * t12138 * t12917 + t3694 * (t43245 + t43303 + t43356 + t43401);
15868 
15869   t43471 = -0.13882320000000000000e-2 * t5125 * t11044 * t9646 - 0.69411600000000000000e-3 * t5125 * t3402 * t31383 + 0.37019520000000000000e-2 * t29918 * t3180 * t11120 + 0.20823480000000000000e-2 * t9016 * t11044 * t9654 + 0.10411740000000000000e-2 * t9016 * t3402 * t26191 - 0.55529280000000000000e-2 * t30573 * t3180 * t11128 - 0.49976352000000000000e-7 * t1844 * t35095 * t3137 - 0.79962163200000000000e-9 * t1844 * t33644 * t9959 + 0.20823480000000000000e-2 * t9016 * t11051 * t9646 + 0.10411740000000000000e-2 * t9016 * t3421 * t31383 - 0.55529280000000000000e-2 * t30573 * t3180 * t11084 - 0.27764640000000000000e-2 * t5110 * t11051 * t9654 - 0.13882320000000000000e-2 * t5110 * t3421 * t26191 + 0.74039040000000000000e-2 * t29926 * t3180 * t3598 + 0.22211712000000000000e-4 * t1839 * t11218 * t3137 + 0.39981081600000000000e-6 * t1839 * t10733 * t9959 + 0.37019520000000000000e-2 * t5125 * t3402 * t31443 - 0.41646960000000000000e-2 * t29064 * t3402 * t31366 - 0.55529280000000000000e-2 * t9016 * t3402 * t8236;
15870   t43531 = -0.22211712000000000000e-4 * t1849 * t11073 * t3137 - 0.39981081600000000000e-6 * t1849 * t10723 * t9959 + 0.41646960000000000000e-5 * t2153 * t11073 * t9646 + 0.20823480000000000000e-5 * t2153 * t3412 * t31383 - 0.62470440000000000000e-5 * t1775 * t11073 * t9654 - 0.31235220000000000000e-5 * t1775 * t3412 * t26191 + 0.49976352000000000000e-7 * t1853 * t35141 * t3137 + 0.79962163200000000000e-9 * t1853 * t33660 * t9959 + 0.10411740000000000000e-5 * t1853 * t37067 * t75 - 0.18509760000000000000e-2 * t9499 * t3180 * t3601 - 0.44423424000000000000e-4 * t7021 * t9968 * t1090 + 0.34705800000000000000e-3 * t1839 * t37074 * t75 - 0.10411740000000000000e-5 * t1844 * t37078 * t75 + 0.33934560000000000000e-2 * t1839 * t3421 * t2357 + 0.55529280000000000000e-5 * t1844 * t11218 * t700 - 0.10180368000000000000e-4 * t1844 * t3431 * t2357 - 0.55529280000000000000e-5 * t1853 * t11073 * t700 + 0.10180368000000000000e-4 * t1853 * t3412 * t2357 + 0.83293920000000000000e-2 * t9499 * t11701 - 0.18509760000000000000e-2 * t1839 * t11051 * t700;
15871   t43587 = 0.18509760000000000000e-2 * t1849 * t11044 * t700 - 0.33934560000000000000e-2 * t1849 * t3402 * t2357 + 0.20823480000000000000e-5 * t36078 * t3887 - 0.69411600000000000000e-3 * t36426 * t3884 - 0.83293920000000000000e-2 * t9494 * t11716 + 0.18509760000000000000e-2 * t9494 * t3180 * t3591 + 0.44423424000000000000e-4 * t7016 * t9968 * t1087 - 0.34705800000000000000e-3 * t1849 * t37063 * t75 - 0.62470440000000000000e-5 * t5051 * t3431 * t31433 + 0.16658784000000000000e-4 * t1775 * t3431 * t31443 - 0.20823480000000000000e-4 * t5624 * t3431 * t31366 - 0.22211712000000000000e-4 * t2165 * t3431 * t8236 + 0.22489358400000000000e-6 * t1844 * t10733 * t9952 - 0.22489358400000000000e-6 * t1853 * t10723 * t9952 + 0.20823480000000000000e-2 * t29031 * t3421 * t31433 - 0.55529280000000000000e-2 * t9016 * t3421 * t31443 + 0.69411600000000000000e-2 * t16355 * t3421 * t31366 + 0.74039040000000000000e-2 * t5110 * t3421 * t8236 - 0.99952704000000000000e-4 * t1839 * t3431 * t9952;
15872   t43612 = t42489 * t6826;
15873   t43615 = t12669 * t6933;
15874   t43618 = t42489 * t6814;
15875   t43621 = t12697 * t6933;
15876   t43624 = t42523 * t6814;
15877   t43627 = t42523 * t6826;
15878   t43642 = 0.99952704000000000000e-4 * t1849 * t3412 * t9952 - 0.11105856000000000000e-4 * t2153 * t3412 * t31443 + 0.12494088000000000000e-4 * t5038 * t3412 * t31366 + 0.16658784000000000000e-4 * t1775 * t3412 * t8236 - 0.62470440000000000000e-5 * t1775 * t11218 * t9646 - 0.31235220000000000000e-5 * t1775 * t3431 * t31383 + 0.83293920000000000000e-5 * t2165 * t11218 * t9654 + 0.41646960000000000000e-5 * t2165 * t3431 * t26191 - 0.14992905600000000000e-6 * t16302 * t43612 + 0.41646960000000000000e-2 * t16289 * t43615 - 0.44423424000000000000e-4 * t19689 * t43618 - 0.83293920000000000000e-2 * t16305 * t43621 + 0.66635136000000000000e-4 * t16138 * t43624 - 0.88846848000000000000e-4 * t19666 * t43627 - 0.12494088000000000000e-4 * t16297 * t43615 + 0.99952704000000000000e-7 * t19695 * t43618 + 0.24988176000000000000e-4 * t16310 * t43621 - 0.14992905600000000000e-6 * t16302 * t43624 + 0.19990540800000000000e-6 * t19672 * t43627 + 0.66635136000000000000e-4 * t16138 * t43612;
15879   t43651 = t8611 * t722;
15880   t43670 = t11506 * t192;
15881   t43674 = t11506 * t89;
15882   t43701 = 0.69859555555555555558e-5 * t43651 * t12936 * tau[1] - 0.20466666666666666666e0 * t8655 * t11588 - 0.28380444444444444444e0 * t723 * t2406 + 0.43662222222222222223e-2 * t723 * t2352 * sigma[2] - 0.21307164444444444446e-4 * t723 * t10142 * t82 + 0.33532586666666666670e-7 * t723 * t12207 * t2401 - 0.36021333333333333333e-2 * t11623 * t10150 + 0.81866666666666666665e-3 * t43670 * t3850 * t2347 + 0.81866666666666666665e-3 * t8850 * t43674 * t2347 + 0.69859555555555555558e-5 * t2442 * t40297 * tau[1] + 0.46391111111111111111e0 * t2344 * t11584 - 0.36021333333333333333e-2 * t2344 * t2444 * t10150 - 0.28380444444444444444e0 * t11613 * t79 + 0.46391111111111111112e0 * t11616 * t12927 + 0.43662222222222222223e-2 * t11599 * t3850 - 0.20466666666666666667e0 * t11619 * t79 * t2347 - 0.21307164444444444446e-4 * t11602 * t12936 + 0.33532586666666666670e-7 * t8664 * t97 * t710 * t2401;
15883   t43726 = t275 * (t43471 + t43531 + t43587 + t43642) + t2717 * t3896 - 0.3e1 / 0.32e2 * t2423 * t3862 - 0.3e1 / 0.16e2 * t691 * t12955 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * t43701 + 0.10000000000000000000e1 * t502 * t793 * t13005 + 0.16081979498692535067e2 * t1213 * t2585 * t3880 + t41321 - t387 * t18 * t42792 * t689 / 0.16e2 - t387 * t18 * t12650 * t2421 / 0.32e2 - t1444 * t18 * t41329 * t2537 / 0.24e2 + 0.2e1 * t859 * t13078;
15884   t43740 = t12334 * t184;
15885   t43745 = t38274 * t800;
15886   t43746 = t43745 * t2347;
15887   t43749 = t40360 * tau[1];
15888   t43778 = 0.36492288e3 * t822 * t43740 + 0.64040256e3 * t812 * t43740 - 0.70914400000000000000e2 * t8656 * t43746 - 0.10494464000000000000e2 * t8661 * t43749 - 0.22871520000000000000e3 * t8679 * t43746 - 0.52336128000000000000e2 * t8682 * t43749 + 0.13593733333333333333e4 * t32641 * t11544 + 0.78191978666666666667e3 * t2462 * t11540 + 0.35457200000000000000e3 * t8850 * t11544 + 0.10713098666666666667e3 * t2442 * t11540 + 0.11435760000000000000e4 * t32618 * t11544 + 0.53426464000000000000e3 * t2450 * t11540 - 0.19946933333333333333e4 * t10122 * t11530 - 0.90506666666666666667e3 * t10106 * t11530 - 0.27329333333333333333e3 * t2345 * t11530 - 0.13629200000000000000e4 * t10117 * t11530 - 0.10860800000000000000e3 * t8706 * t43746;
15889   t43791 = t12204 * t800;
15890   t43794 = t12207 * t2487;
15891   t43801 = t2395 * t27158 * t8631;
15892   t43818 = -0.34754560000000000000e2 * t8709 * t43749 - 0.27187466666666666666e3 * t8694 * t43746 - 0.76596224000000000000e2 * t8697 * t43749 + 0.54304000000000000000e3 * t32644 * t11544 + 0.35478613333333333334e3 * t2473 * t11540 + 0.27329333333333333333e2 * t11507 * t32677 - 0.19414758400000000000e3 * t805 * t43791 + 0.44601472000000000000e2 * t805 * t43794 - 0.54658666666666666667e1 * t2347 * t38274 * t32683 - 0.33582284799999999999e1 * t805 * t43801 - 0.45133132800000000000e3 * t812 * t43791 + 0.10368422400000000000e3 * t812 * t43794 - 0.78068121599999999999e1 * t812 * t43801 - 0.25718374400000000000e3 * t822 * t43791 + 0.59082752000000000000e2 * t822 * t43794 - 0.44485836799999999999e1 * t822 * t43801 + 0.27547968e3 * t805 * t43740;
15893   t43833 = -0.10000000000000000000e1 * t1231 * t2816 * t3880 - 0.15545350000000000000e-1 * t2528 * t3881 - 0.31090700000000000000e-1 * t2531 * t3881 - 0.31090700000000000000e-1 * t771 * t13006 - 0.15545350000000000000e-1 * t2551 * t3881 - 0.31090700000000000000e-1 * t779 * t13006 - 0.15545350000000000000e-1 * t166 * t180 * (t43778 + t43818) + 0.10000000000000000000e1 * t2269 * t12962 - t42767 / 0.16e2 - t42769 / 0.16e2 + 0.50000000000000000001e0 * t502 * t2618 * t3880 + 0.10000000000000000000e1 * t2272 * t12962 - t42786 / 0.48e2;
15894   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
15895     v4rho2sigmatau[17] = -0.3e1 / 0.16e2 * t12919 - t41301 - t12923 / 0.16e2 - 0.3e1 / 0.16e2 * t12956 - 0.31090700000000000000e-1 * t12958 - 0.31090700000000000000e-1 * t12960 + 0.10000000000000000000e1 * t12963 - 0.31090700000000000000e-1 * t13007 + 0.2e1 * t13009 + 0.2e1 * t13079 + t3 * (t43726 + t43833);
15896 
15897   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15898     v4rho2lapl2[0] = 0.0e0;
15899 
15900   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15901     v4rho2lapl2[1] = 0.0e0;
15902 
15903   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15904     v4rho2lapl2[2] = 0.0e0;
15905 
15906   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15907     v4rho2lapl2[3] = 0.0e0;
15908 
15909   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15910     v4rho2lapl2[4] = 0.0e0;
15911 
15912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15913     v4rho2lapl2[5] = 0.0e0;
15914 
15915   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15916     v4rho2lapl2[6] = 0.0e0;
15917 
15918   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15919     v4rho2lapl2[7] = 0.0e0;
15920 
15921   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15922     v4rho2lapl2[8] = 0.0e0;
15923 
15924   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15925     v4rho2lapltau[0] = 0.0e0;
15926 
15927   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15928     v4rho2lapltau[1] = 0.0e0;
15929 
15930   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15931     v4rho2lapltau[2] = 0.0e0;
15932 
15933   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15934     v4rho2lapltau[3] = 0.0e0;
15935 
15936   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15937     v4rho2lapltau[4] = 0.0e0;
15938 
15939   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15940     v4rho2lapltau[5] = 0.0e0;
15941 
15942   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15943     v4rho2lapltau[6] = 0.0e0;
15944 
15945   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15946     v4rho2lapltau[7] = 0.0e0;
15947 
15948   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15949     v4rho2lapltau[8] = 0.0e0;
15950 
15951   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15952     v4rho2lapltau[9] = 0.0e0;
15953 
15954   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15955     v4rho2lapltau[10] = 0.0e0;
15956 
15957   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
15958     v4rho2lapltau[11] = 0.0e0;
15959 
15960   t43837 = t13085 / 0.16e2;
15961   t43846 = t13210 * t1127;
15962   t43851 = t3938 * t648;
15963   t43852 = t43851 * t334;
15964   t43857 = t13181 * t334;
15965   t43863 = t33150 * t333 * t3329;
15966   t43871 = t3318 * t1036;
15967   t43872 = t43871 * t334;
15968   t43875 = t1033 * t3329;
15969   t43876 = t43875 * t334;
15970   t43879 = t13210 * t1155;
15971   t43897 = t640 * t3938;
15972   t43901 = 0.20360736000000000000e-1 * t5011 * t43846 - 0.61082208000000000000e-4 * t5005 * t43846 + 0.22211712000000000000e-1 * t16305 * t43852 - 0.66635136000000000000e-4 * t16310 * t43852 - 0.37019520000000000000e-1 * t19757 * t43857 + 0.11105856000000000000e-3 * t19761 * t43857 + 0.14807808000000000000e-1 * t5797 * t43863 - 0.44423424000000000000e-4 * t5801 * t43863 - 0.16658784000000000000e-1 * t22146 * t13210 * t5628 - 0.11105856000000000000e-1 * t5011 * t43872 - 0.11105856000000000000e-1 * t5011 * t43876 - 0.17769369600000000000e-3 * t16138 * t43879 + 0.33317568000000000000e-4 * t5005 * t43872 + 0.33317568000000000000e-4 * t5005 * t43876 + 0.39981081600000000000e-6 * t16302 * t43879 + 0.20360736000000000000e-4 * t2153 * t13196 * t1127 + 0.13882320000000000000e-1 * t5624 * t3349 * t10395 + 0.11846246400000000000e-3 * t5110 * t13232 * t1155 - 0.26654054400000000000e-6 * t2165 * t43897 * t1155;
15973   t43948 = t640 * t3941;
15974   t43961 = 0.41646960000000000000e-2 * t5051 * t10312 * t10361 + 0.41646960000000000000e-2 * t5051 * t3332 * t33127 + 0.20823480000000000000e-2 * t5051 * t3332 * t33131 - 0.83293920000000000000e-2 * t5038 * t10312 * t3326 - 0.83293920000000000000e-2 * t5038 * t3332 * t10395 - 0.41646960000000000000e-2 * t5038 * t3332 * t10398 + 0.14807808000000000000e-1 * t16400 * t5046 * t13210 + 0.20823480000000000000e-1 * t16225 * t13222 * t5628 - 0.83293920000000000000e-2 * t5038 * t3349 * t33127 - 0.13573824000000000000e-1 * t5110 * t13222 * t1127 + 0.40721472000000000000e-4 * t2165 * t13232 * t1127 + 0.20823480000000000000e-1 * t16225 * t3332 * t10410 + 0.37019520000000000000e-2 * t22088 * t13193 - 0.11105856000000000000e-4 * t10970 * t13197 + 0.41646960000000000000e-2 * t5051 * t3332 * t33157 + 0.59231232000000000000e-4 * t5125 * t13196 * t1155 - 0.13327027200000000000e-6 * t2153 * t43948 * t1155 - 0.67869120000000000000e-2 * t5125 * t13189 * t1127 + 0.10411740000000000000e-2 * t5051 * t13189 * t1820 - 0.49359360000000000000e-2 * t16185 * t5046 * t3941;
15975   t44002 = t3318 * t3318;
15976   t44006 = t3329 * t3329;
15977   t44010 = t3941 * t653;
15978   t44011 = t44010 * t334;
15979   t44017 = t33179 * t333 * t3318;
15980   t44022 = -0.69411600000000000000e-3 * t2153 * t3332 * t10388 + 0.10411740000000000000e-2 * t1775 * t33349 * t1036 + 0.20823480000000000000e-2 * t1775 * t10312 * t3329 + 0.10411740000000000000e-2 * t1775 * t3332 * t10406 - 0.20823480000000000000e-2 * t5038 * t13222 * t1827 + 0.34705800000000000000e-2 * t5624 * t13222 * t1820 - 0.98718720000000000000e-2 * t16181 * t5046 * t3938 - 0.13882320000000000000e-2 * t2165 * t3349 * t10406 + 0.20823480000000000000e-2 * t22434 * t13190 - 0.13882320000000000000e-2 * t10970 * t13200 - 0.41646960000000000000e-2 * t16220 * t13189 * t1765 + 0.20823480000000000000e-2 * t20041 * t3945 - 0.41646960000000000000e-2 * t16220 * t13222 * t1806 - 0.20823480000000000000e-1 * t20102 * t13222 * t1765 - 0.69411600000000000000e-3 * t1764 * t307 * t44002 - 0.13882320000000000000e-2 * t1812 * t307 * t44006 - 0.11105856000000000000e-1 * t16289 * t44011 + 0.33317568000000000000e-4 * t16297 * t44011 + 0.74039040000000000000e-2 * t5777 * t44017 - 0.22211712000000000000e-4 * t5782 * t44017;
15981   t44059 = t13210 * t5721;
15982   t44064 = t13210 * t5716;
15983   t44069 = 0.20280e2 * t10464 * t10395 + 0.10140e2 * t10464 * t10398 - 0.30420e2 * t16325 * t13181 + 0.20280e2 * t5175 * t13184 - 0.15210e2 * t5050 * t3938 * t1820 + 0.10140e2 * t1764 * t1036 * t10406 + 0.20280e2 * t33383 * t3326 - 0.30420e2 * t33115 * t10410 + 0.60840e2 * t16219 * t3938 * t1765 - 0.60840e2 * t5050 * t3326 * t3329 - 0.34705800000000000000e-3 * t16322 * t3942 - 0.5070e1 * t3321 * t10406 + 0.5070e1 * t16322 * t3938 - 0.5070e1 * t33118 * t1036 - 0.10140e2 * t10453 * t3329 + 0.10140e2 * t1764 * t44006 + 0.44423424000000000000e-1 * t16305 * t44059 - 0.13327027200000000000e-3 * t16310 * t44059 - 0.22211712000000000000e-1 * t16289 * t44064 + 0.66635136000000000000e-4 * t16297 * t44064;
15984   t44078 = t14 * t431 * t3914 / 0.48e2;
15985   t44079 = t316 * t13084;
15986   t44086 = t14 * t127 * t13119;
15987   t44095 = t16470 * t3921 * t1134;
15988   t44097 = t1133 * t37;
15989   t44104 = t10269 * tau[0];
15990   t44107 = t3921 * t154 * t1134;
15991   t44120 = t4097 * t1015 * tau[0];
15992   t44134 = -0.41042488888888888890e-2 * t1133 * t3643 * t40 + 0.55887644444444444448e-5 * t1133 * t12414 * t349 + 0.27733333333333333333e2 * t44095 + 0.12017777777777777778e2 * t44097 - 0.41042488888888888890e-2 * t10254 * t3253 + 0.55887644444444444448e-5 * t40606 * t10294 + 0.12017777777777777778e2 * t10266 - 0.38826666666666666666e2 * t44104 + 0.27733333333333333333e2 * t44107 + 0.81866666666666666667e0 * t16805 * t13135 * t30 * t1134 + 0.26197333333333333334e-2 * t5384 * t40615 * tau[0] + 0.1031520e1 * t1133 * t3640 * t30 - 0.38826666666666666666e2 * t44120 + 0.1031520e1 * t10247 * t1000 - 0.18010666666666666667e1 * t10250 * t3249 + 0.81866666666666666667e0 * t13135 * t154 * t10251 + 0.26197333333333333334e-2 * t40602 * t10255 - 0.18010666666666666667e1 * t4098 * t10275 * tau[0];
15993   t44146 = t275 * (t43901 + t43961 + t44022 + t44069) + 0.2e1 * t629 * t13240 + t1739 * t3951 + t44078 - t44079 / 0.16e2 - 0.3e1 / 0.32e2 * t1113 * t3915 - 0.3e1 / 0.16e2 * t316 * t13120 - t44086 / 0.16e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * t44134 + 0.10000000000000000000e1 * t1387 * t13127 + 0.50000000000000000001e0 * t418 * t1432 * t3932 + 0.10000000000000000000e1 * t1461 * t13127;
15994   t44158 = t40518 * tau[0];
15995   t44161 = 0.1e1 / t5344;
15996   t44163 = t44161 * t140 * t1134;
15997   t44172 = t10495 * tau[0];
15998   t44193 = -0.37786666666666666667e3 * t44095 + 0.52901333333333333334e3 * t44120 - 0.86999893333333333336e3 * t16580 * t44158 - 0.18527200000000000000e4 * t16596 * t44163 - 0.22692608000000000000e3 * t16479 * t44158 - 0.19006400000000000000e4 * t16574 * t44163 - 0.34754560000000000002e3 * t16577 * t44158 + 0.21274320000000000000e4 * t5384 * t44172 + 0.68614560000000000000e4 * t5413 * t44172 + 0.81562399999999999999e4 * t5417 * t44172 + 0.32582400000000000000e4 * t5373 * t44172 - 0.48980000000000000000e4 * t16558 * t44163 - 0.73188864000000000002e3 * t16564 * t44158 - 0.51642000000000000000e4 * t16568 * t44163 - 0.21828000000000000000e3 * t1134 * t44161 * t16631 - 0.17490773333333333334e2 * tau[0] * t32836 * t16603;
15999   t44194 = t12414 * t448;
16000   t44198 = t1179 * t16559 * t1326;
16001   t44213 = t3643 * t140;
16002   t44229 = 0.11019187200000000000e3 * t1133 * t44194 - 0.83955712000000000003e1 * t1133 * t44198 + 0.54952934400000000002e3 * t1315 * t44194 - 0.41868902400000000002e2 * t1315 * t44198 + 0.80426035200000000002e3 * t1282 * t44194 - 0.61276979200000000002e2 * t1282 * t44198 + 0.36492288000000000002e3 * t1302 * t44194 - 0.27803648000000000002e2 * t1302 * t44198 - 0.20552833600000000000e4 * t1315 * t44213 - 0.30079975466666666667e4 * t1282 * t44213 + 0.16397600000000000000e3 * tau[0] * t10494 * t5323 - 0.41212634666666666667e3 * t1133 * t44213 - 0.13648405333333333333e4 * t1302 * t44213 - 0.16374222222222222222e3 * t10266 - 0.16374222222222222222e3 * t44097 + 0.52901333333333333334e3 * t44104 - 0.37786666666666666667e3 * t44107;
16003   t44245 = t323 * t127 * t13088;
16004   t44247 = t325 * t13118;
16005   t44256 = t1756 * t3913;
16006   t44261 = -0.10000000000000000000e1 * t1223 * t1225 * t3932 + 0.16081979498692535067e2 * t1454 * t1457 * t3932 + 0.10000000000000000000e1 * t418 * t441 * t13168 - 0.15545350000000000000e-1 * t115 * t136 * (t44193 + t44229) - 0.15545350000000000000e-1 * t1379 * t3933 - 0.31090700000000000000e-1 * t1382 * t3933 - 0.31090700000000000000e-1 * t395 * t13169 - 0.15545350000000000000e-1 * t1265 * t3933 - 0.31090700000000000000e-1 * t413 * t13169 - t44245 / 0.48e2 - t323 * t18 * t44247 * t314 / 0.16e2 - t323 * t18 * t13087 * t1111 / 0.32e2 - t1754 * t18 * t44256 * t1249 / 0.24e2;
16007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16008     v4rho2tau2[0] = -0.3e1 / 0.16e2 * t13082 - t43837 - t13090 / 0.16e2 - 0.3e1 / 0.16e2 * t13121 - 0.31090700000000000000e-1 * t13123 - 0.31090700000000000000e-1 * t13125 + 0.10000000000000000000e1 * t13128 - 0.31090700000000000000e-1 * t13170 + 0.2e1 * t13172 + 0.2e1 * t13241 + t3 * (t44146 + t44261);
16009 
16010   t44264 = t629 * t3983;
16011   t44266 = t275 * t13383;
16012   t44279 = t13341 * t653;
16013   t44280 = t352 * t44279;
16014   t44283 = t13345 * t5721;
16015   t44286 = t3961 * t5721;
16016   t44290 = t1150 * t13341 * sigma[0];
16017   t44294 = t352 * t13341 * t648;
16018   t44299 = t13326 * t5716;
16019   t44303 = t13326 * t5721;
16020   t44307 = t1150 * t13332 * sigma[0];
16021   t44321 = t352 * t13332 * t653;
16022   t44328 = t13354 * t5716;
16023   t44333 = 0.22211712000000000000e-1 * t16305 * t44303 + 0.18509760000000000000e-1 * t5011 * t44307 + 0.33317568000000000000e-4 * t16297 * t44299 - 0.66635136000000000000e-4 * t16310 * t44303 - 0.55529280000000000000e-4 * t5005 * t44307 - 0.69411600000000000000e-2 * t19862 * t352 * t13332 * t648 + 0.13882320000000000000e-1 * t19857 * t44321 + 0.33317568000000000000e-4 * t16297 * t44283 + 0.69411600000000000000e-2 * t19862 * t44321 - 0.11105856000000000000e-1 * t16289 * t44328 + 0.33317568000000000000e-4 * t16297 * t44328;
16024   t44337 = t13354 * t5721;
16025   t44363 = t2949 * t10612;
16026   t44366 = t3480 * t33793;
16027   t44369 = t2949 * t10621;
16028   t44390 = t3480 * t33827;
16029   t44393 = -0.34705800000000000000e-2 * t1775 * t44363 + 0.69411600000000000000e-2 * t5624 * t44366 + 0.46274400000000000000e-2 * t2165 * t44369 + 0.10411740000000000000e-1 * t16225 * t3402 * t10410 - 0.23137200000000000000e-2 * t2153 * t44363 + 0.41646960000000000000e-2 * t5038 * t44366 + 0.34705800000000000000e-2 * t1775 * t44369 - 0.20823480000000000000e-2 * t5038 * t3421 * t33161 - 0.20823480000000000000e-2 * t5038 * t3421 * t33131 + 0.34705800000000000000e-2 * t5624 * t3421 * t10398 + 0.10411740000000000000e-2 * t1775 * t44390;
16030   t44396 = t3480 * t33842;
16031   t44399 = t2934 * t10600;
16032   t44402 = t2958 * t10600;
16033   t44405 = t11912 * t33804;
16034   t44410 = t1087 * t3318;
16035   t44411 = t44410 * t334;
16036   t44416 = t93 * t3318;
16037   t44417 = t352 * t44416;
16038   t44420 = t1087 * t3329;
16039   t44421 = t44420 * t334;
16040   t44427 = t93 * t3329;
16041   t44428 = t352 * t44427;
16042   t44431 = t1090 * t3318;
16043   t44432 = t44431 * t334;
16044   t44439 = t13366 * t334;
16045   t44449 = t13326 * t1155;
16046   t44454 = t3961 * t1155;
16047   t44457 = 0.34705800000000000000e-2 * t5730 * t44428 - 0.55529280000000000000e-2 * t5011 * t44432 + 0.16658784000000000000e-4 * t5005 * t44432 - 0.34705800000000000000e-2 * t5730 * t44417 + 0.74039040000000000000e-2 * t5797 * t44439 - 0.22211712000000000000e-4 * t5801 * t44439 + 0.46274400000000000000e-2 * t5745 * t44428 - 0.83293920000000000000e-2 * t22146 * t13354 * t5628 - 0.88846848000000000000e-4 * t16138 * t44449 + 0.19990540800000000000e-6 * t16302 * t44449 + 0.11846246400000000000e-3 * t19666 * t44454;
16048   t44480 = t11926 * t33804;
16049   t44517 = 0.12956832000000000000e-1 * t1849 * t44399 - 0.38870496000000000000e-4 * t1853 * t44402 - 0.59231232000000000000e-4 * t1849 * t44405 + 0.13327027200000000000e-6 * t1853 * t44480 + 0.74039040000000000000e-2 * t16400 * t5046 * t13326 - 0.98718720000000000000e-2 * t16181 * t5046 * t3961 - 0.49359360000000000000e-2 * t16185 * t5046 * t13345 + 0.74039040000000000000e-2 * t16400 * t5046 * t13354 + 0.10411740000000000000e-2 * t5051 * t3421 * t33241 + 0.20823480000000000000e-2 * t5051 * t3402 * t33127 - 0.41646960000000000000e-2 * t5038 * t3402 * t10395;
16050   t44524 = t3961 * t5716;
16051   t44548 = t1130 * t13332;
16052   t44551 = t3961 * t1127;
16053   t44556 = t1130 * t13341;
16054   t44559 = t13326 * t1127;
16055   t44564 = t12529 * t9009;
16056   t44569 = t13354 * t1127;
16057   t44572 = -0.2535e1 * t33118 * t1090 - 0.22533333333333333333e2 * t10661 * t297 + 0.46274400000000000000e-2 * t5730 * t44548 - 0.13573824000000000000e-1 * t5797 * t44551 + 0.40721472000000000000e-4 * t5801 * t44551 - 0.61699200000000000000e-2 * t5745 * t44556 + 0.10180368000000000000e-1 * t5011 * t44559 - 0.30541104000000000000e-4 * t5005 * t44559 - 0.11105856000000000000e-1 * t5011 * t44564 + 0.33317568000000000000e-4 * t5005 * t44564 + 0.10180368000000000000e-1 * t5011 * t44569;
16058   t44578 = t13345 * t1127;
16059   t44585 = t12529 * t5006;
16060   t44590 = t3954 * t5628;
16061   t44604 = t13345 * t1155;
16062   t44609 = t13354 * t1155;
16063   t44624 = 0.11105856000000000000e-1 * t5011 * t44585 - 0.33317568000000000000e-4 * t5005 * t44585 - 0.26654054400000000000e-6 * t19672 * t44454 + 0.59231232000000000000e-4 * t19689 * t44604 - 0.13327027200000000000e-6 * t19695 * t44604 - 0.88846848000000000000e-4 * t16138 * t44609 + 0.19990540800000000000e-6 * t16302 * t44609 - 0.83293920000000000000e-2 * t22146 * t13326 * t5628 + 0.20823480000000000000e-1 * t34352 * t3961 * t5628 + 0.37019520000000000000e-2 * t34317 * t13346 - 0.11105856000000000000e-4 * t34320 * t13346;
16064   t44674 = 0.5070e1 * t1764 * t1090 * t10406 - 0.5070e1 * t5162 * t3954 - 0.16900000000000000000e2 * t3417 * t13371 + 0.5070e1 * t3954 * t651 * t1820 - 0.22533333333333333333e2 * t652 * t10661 - 0.10140e2 * t3954 * t304 * t1765 - 0.15210e2 * t33848 * t10410 - 0.15210e2 * t33115 * t10670 - 0.16900000000000000000e2 * t352 * t10716 * t3329 + 0.16900000000000000000e2 * t10453 * t3399 - 0.30420e2 * t16325 * t13251;
16065   t44690 = t2196 * t93;
16066   t44705 = -0.30420e2 * t5050 * t13366 * t653 - 0.15210e2 * t5050 * t3961 * t1820 + 0.20280e2 * t5175 * t13378 + 0.10140e2 * t1764 * t3954 * t1820 + 0.45066666666666666667e2 * t5697 * t10661 * t1036 + 0.15424800000000000000e-2 * t1844 * t44690 - 0.33800000000000000000e2 * t19902 * t13302 - 0.33800000000000000000e2 * t5697 * t3417 * t3329 - 0.34705800000000000000e-3 * t34289 * t3966 - 0.69411600000000000000e-3 * t10970 * t13307 - 0.34705800000000000000e-3 * t2153 * t3402 * t10388;
16067   t44715 = t34475 * t93;
16068   t44728 = t304 * t1036;
16069   t44729 = t44728 * t653;
16070   t44734 = 0.52058700000000000000e-3 * t1775 * t3402 * t10406 + 0.52058700000000000000e-3 * t1775 * t3421 * t10388 - 0.69411600000000000000e-3 * t2165 * t3421 * t10406 + 0.49359360000000000000e-2 * t5045 * t44715 + 0.49359360000000000000e-2 * t5077 * t44715 + 0.15424800000000000000e-2 * t1853 * t44690 + 0.10411740000000000000e-2 * t20041 * t3975 + 0.10411740000000000000e-2 * t20041 * t3969 + 0.69411600000000000000e-3 * t19950 * t3972 + 0.33800000000000000000e2 * t3399 * t44729 - 0.33800000000000000000e2 * t34531 * t10692;
16071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16072     v4rho2tau2[1] = 0.2e1 * t44264 + 0.2e1 * t44266 + t38915 * t3983 + 0.2e1 * t11962 * t13383 + t3694 * (t44674 + t44393 + t44517 + t44333 + 0.10140e2 * t5175 * t13366 + 0.10140e2 * t10680 * t10395 + 0.5070e1 * t10680 * t10398 + 0.10140e2 * t33383 * t3396 + 0.16900000000000000000e2 * t1836 * t3417 + 0.5070e1 * t16322 * t3961 + 0.5070e1 * t10464 * t10677 - 0.83293920000000000000e-2 * t19857 * t44590 + 0.22533333333333333333e2 * t1130 * t13246 - 0.22533333333333333333e2 * t3321 * t10650 - 0.74039040000000000000e-2 * t5777 * t44564 + 0.22211712000000000000e-4 * t5782 * t44564 - 0.67869120000000000000e-2 * t5777 * t44578 + 0.20360736000000000000e-4 * t5782 * t44578 + 0.30849600000000000000e-2 * t5725 * t44548 + 0.14807808000000000000e-1 * t5797 * t44585 - 0.44423424000000000000e-4 * t5801 * t44585 - 0.41646960000000000000e-2 * t19862 * t44590 - 0.30541104000000000000e-4 * t5005 * t44569 - 0.46274400000000000000e-2 * t5730 * t44556 - 0.18509760000000000000e-1 * t5011 * t44290 + 0.55529280000000000000e-4 * t5005 * t44290 + 0.12339840000000000000e-1 * t5777 * t44307 - 0.37019520000000000000e-4 * t5782 * t44307 - 0.2535e1 * t3391 * t10406 + 0.22211712000000000000e-1 * t16305 * t44524 - 0.37019520000000000000e-1 * t19757 * t44286 - 0.24679680000000000000e-1 * t5797 * t44290 - 0.66635136000000000000e-4 * t16310 * t44524 + 0.13327027200000000000e-6 * t1844 * t44480 + 0.69411600000000000000e-3 * t2153 * t44390 - 0.10411740000000000000e-2 * t1775 * t44396 - 0.55529280000000000000e-2 * t5011 * t44421 + 0.16658784000000000000e-4 * t5005 * t44421 - 0.38870496000000000000e-4 * t1844 * t44402 - 0.59231232000000000000e-4 * t1839 * t44405 - 0.23137200000000000000e-2 * t21850 * t13333 + 0.37019520000000000000e-2 * t5777 * t44411 - 0.11105856000000000000e-4 * t5782 * t44411 - 0.23137200000000000000e-2 * t5725 * t44417 - 0.13882320000000000000e-2 * t2165 * t44396 + 0.12956832000000000000e-1 * t1839 * t44399 + 0.20823480000000000000e-2 * t22434 * t13261 + 0.22211712000000000000e-1 * t16305 * t44337 - 0.66635136000000000000e-4 * t16310 * t44337 + 0.69411600000000000000e-2 * t19862 * t44294 + 0.13882320000000000000e-1 * t19857 * t44294 - 0.23137200000000000000e-1 * t19867 * t44280 - 0.11105856000000000000e-1 * t16289 * t44299 - 0.13882320000000000000e-1 * t19857 * t44280 + t44734 + t44572 + t44705 + t44624 + 0.10411740000000000000e-1 * t16225 * t3421 * t33271 - 0.41646960000000000000e-2 * t16220 * t3421 * t33285 + 0.10140000000000000000e3 * t19838 * t3417 * t3326 + 0.20823480000000000000e-2 * t5051 * t3402 * t33157 - 0.20823480000000000000e-1 * t20102 * t3421 * t10410 + 0.20823480000000000000e-2 * t5051 * t3480 * t33962 - 0.41646960000000000000e-2 * t5038 * t3421 * t33157 - 0.41646960000000000000e-2 * t5038 * t3421 * t33127 + 0.69411600000000000000e-2 * t5624 * t3421 * t10395 + 0.10411740000000000000e-2 * t5051 * t3402 * t33161 + 0.10411740000000000000e-2 * t5051 * t3402 * t33131 - 0.20823480000000000000e-2 * t5038 * t3402 * t10398 - 0.41646960000000000000e-2 * t16220 * t3402 * t33271 + 0.20823480000000000000e-2 * t5051 * t3421 * t33248 + 0.60840e2 * t16219 * t3961 * t1765 - 0.30420e2 * t5050 * t3954 * t1765 - 0.11105856000000000000e-1 * t16289 * t44283 + 0.11105856000000000000e-3 * t19761 * t44286 + 0.74039040000000000000e-4 * t5801 * t44290 - 0.33800000000000000000e2 * t1764 * t10692 + t44457);
16073 
16074   t44741 = t13388 / 0.16e2;
16075   t44760 = t10638 * t3399;
16076   t44765 = t1087 * sigma[0] * t1150 * t93;
16077   t44769 = t1150 * t13446 * sigma[0];
16078   t44781 = t3396 * t3399;
16079   t44791 = t306 * t1134 * t37 * t3985;
16080   t44797 = t5050 * t1090;
16081   t44807 = 0.5070e1 * t16322 * t4023 - 0.45066666666666666667e2 * t3391 * t10650 + 0.45066666666666666667e2 * t1130 * t13403 + 0.13882320000000000000e-1 * t19862 * t44760 + 0.24679680000000000000e-1 * t5777 * t44765 - 0.37019520000000000000e-1 * t5011 * t44769 + 0.10140e2 * t10680 * t10677 - 0.30420e2 * t16325 * t13412 + 0.11266666666666666667e3 * t1764 * t1135 * t3985 - 0.34705800000000000000e-3 * t16322 * t4027 - 0.46274400000000000000e-1 * t19867 * t44781 - 0.49359360000000000000e-1 * t5797 * t44769 + 0.14807808000000000000e-1 * t16400 * t5046 * t13440 - 0.23137200000000000000e-1 * t1775 * t44791 + 0.20823480000000000000e-1 * t16225 * t13452 * t5628 + 0.20280000000000000000e3 * t44797 * t10622 + 0.37019520000000000000e-2 * t22088 * t13423 - 0.11105856000000000000e-4 * t10970 * t13427 + 0.11846246400000000000e-3 * t5110 * t13462 * t1155;
16082   t44808 = t640 * t4023;
16083   t44832 = t640 * t4026;
16084   t44847 = t11181 * t10661;
16085   t44853 = t4026 * t653 * t334;
16086   t44858 = t4023 * t648;
16087   t44859 = t44858 * t334;
16088   t44864 = t13412 * t334;
16089   t44867 = -0.26654054400000000000e-6 * t2165 * t44808 * t1155 - 0.15424800000000000000e-1 * t2165 * t44791 - 0.13573824000000000000e-1 * t5110 * t13452 * t1127 + 0.40721472000000000000e-4 * t2165 * t13462 * t1127 - 0.67869120000000000000e-2 * t5125 * t13419 * t1127 + 0.20360736000000000000e-4 * t2153 * t13426 * t1127 + 0.20823480000000000000e-1 * t16225 * t3402 * t10670 + 0.59231232000000000000e-4 * t5125 * t13426 * t1155 - 0.13327027200000000000e-6 * t2153 * t44832 * t1155 - 0.77124000000000000000e-2 * t2153 * t44791 + 0.20823480000000000000e-2 * t5051 * t3402 * t33928 - 0.41646960000000000000e-2 * t5038 * t3402 * t10677 - 0.16658784000000000000e-1 * t22146 * t13440 * t5628 - 0.12339840000000000000e-1 * t5745 * t44847 - 0.46274400000000000000e-2 * t21850 * t13430 - 0.11105856000000000000e-1 * t16289 * t44853 + 0.33317568000000000000e-4 * t16297 * t44853 + 0.22211712000000000000e-1 * t16305 * t44859 - 0.66635136000000000000e-4 * t16310 * t44859 - 0.37019520000000000000e-1 * t19757 * t44864;
16090   t44871 = t13440 * t1155;
16091   t44876 = t13440 * t1127;
16092   t44881 = t11192 * t10661;
16093   t44905 = t304 * t1090;
16094   t44906 = t44905 * t653;
16095   t44920 = 0.11105856000000000000e-3 * t19761 * t44864 - 0.17769369600000000000e-3 * t16138 * t44871 + 0.39981081600000000000e-6 * t16302 * t44871 - 0.61082208000000000000e-4 * t5005 * t44876 + 0.20360736000000000000e-1 * t5011 * t44876 + 0.61699200000000000000e-2 * t5725 * t44881 - 0.92548800000000000000e-2 * t5730 * t44847 + 0.92548800000000000000e-2 * t5730 * t44881 + 0.14807808000000000000e-3 * t5801 * t44769 + 0.10411740000000000000e-2 * t5051 * t13419 * t1820 - 0.49359360000000000000e-2 * t16185 * t5046 * t4026 - 0.20823480000000000000e-2 * t5038 * t13452 * t1827 + 0.34705800000000000000e-2 * t5624 * t13452 * t1820 - 0.98718720000000000000e-2 * t16181 * t5046 * t4023 + 0.67600000000000000000e2 * t3399 * t44906 - 0.67600000000000000000e2 * t35102 * t10692 - 0.67600000000000000000e2 * t35177 * t3399 + 0.20823480000000000000e-2 * t22434 * t13420 + 0.20823480000000000000e-2 * t20041 * t4030 - 0.41646960000000000000e-2 * t16220 * t13452 * t1806;
16096   t44946 = t13440 * t5716;
16097   t44952 = t352 * t13446 * t648;
16098   t44959 = t13440 * t5721;
16099   t44972 = -0.20823480000000000000e-1 * t20102 * t13452 * t1765 + 0.90133333333333333333e2 * t11058 * t10650 - 0.41646960000000000000e-2 * t16220 * t13419 * t1765 - 0.30420e2 * t33848 * t10670 + 0.60840e2 * t16219 * t4023 * t1765 - 0.15210e2 * t5050 * t4023 * t1820 + 0.11266666666666666667e3 * t1135 * t3985 * t651 + 0.37019520000000000000e-1 * t5011 * t44765 + 0.11105856000000000000e-3 * t5005 * t44769 - 0.11105856000000000000e-3 * t5005 * t44765 - 0.22211712000000000000e-1 * t16289 * t44946 + 0.66635136000000000000e-4 * t16297 * t44946 + 0.13882320000000000000e-1 * t19862 * t44952 - 0.13882320000000000000e-1 * t19862 * t11192 * t3417 * t648 + 0.44423424000000000000e-1 * t16305 * t44959 - 0.13327027200000000000e-3 * t16310 * t44959 - 0.27764640000000000000e-1 * t19857 * t44781 + 0.27764640000000000000e-1 * t19857 * t44760 - 0.74039040000000000000e-4 * t5782 * t44765 + 0.27764640000000000000e-1 * t19857 * t44952;
16100   t44981 = t380 * t13387;
16101   t44985 = t67 * t431 * t3999 / 0.48e2;
16102   t44987 = t387 * t127 * t13391;
16103   t45006 = t1446 * t3998;
16104   t45011 = -0.15545350000000000000e-1 * t1343 * t4018 - 0.31090700000000000000e-1 * t1346 * t4018 - 0.15545350000000000000e-1 * t1376 * t4018 + t275 * (t44807 + t44867 + t44920 + t44972) + t1739 * t4036 - 0.3e1 / 0.32e2 * t1108 * t4000 + 0.2e1 * t629 * t13469 - t44981 / 0.16e2 + t44985 - t44987 / 0.48e2 - t387 * t18 * t13390 * t1106 / 0.32e2 - 0.10000000000000000000e1 * t1231 * t1232 * t4017 + 0.10000000000000000000e1 * t1205 * t13399 + 0.10000000000000000000e1 * t1208 * t13399 + 0.50000000000000000001e0 * t502 * t1506 * t4017 + 0.16081979498692535067e2 * t1213 * t1217 * t4017 - t1444 * t18 * t45006 * t1360 / 0.24e2;
16105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16106     v4rho2tau2[2] = -0.3e1 / 0.16e2 * t13385 - t44741 - t13393 / 0.16e2 - 0.31090700000000000000e-1 * t13395 - 0.31090700000000000000e-1 * t13397 + 0.10000000000000000000e1 * t13400 + 0.2e1 * t13402 + 0.2e1 * t13470 + t3 * t45011;
16107 
16108   t45014 = t323 * t127 * t13475;
16109   t45032 = t3932 * t439;
16110   t45036 = t682 * t13084;
16111   t45045 = -t45014 / 0.96e2 - 0.31090700000000000000e-1 * t1104 * t2104 * t3932 + 0.50000000000000000001e0 * t418 * t2311 * t3932 + 0.50000000000000000001e0 * t1461 * t13483 - t2256 * t2257 * t3913 * t680 * t314 / 0.24e2 + t44078 - t44079 / 0.32e2 - t44086 / 0.32e2 + t2114 * t3951 - 0.10000000000000000000e1 * t1223 * t767 * t45032 - t45036 / 0.32e2 - 0.3e1 / 0.16e2 * t1888 * t1889 * t3914 + 0.50000000000000000001e0 * t418 * t767 * t13168 + t629 * t13547;
16112   t45090 = t1030 * t12622 * t648;
16113   t45097 = t3941 * sigma[2];
16114   t45098 = t45097 * t2142;
16115   t45101 = -0.16900000000000000000e2 * t1030 * t34418 - 0.30420e2 * t33115 * t10886 + 0.16900000000000000000e2 * t10453 * t3465 + 0.60840e2 * t16219 * t13495 * t653 - 0.30420e2 * t5050 * t3462 * t3329 + 0.10140e2 * t5709 * t13184 - 0.15210e2 * t16325 * t13495 + 0.10140e2 * t33383 * t3462 + 0.10140e2 * t10464 * t10893 - 0.15210e2 * t19771 * t13181 + 0.69411600000000000000e-2 * t19862 * t45090 + 0.57843000000000000000e-2 * t19862 * t3941 * tau[0] * t2150 + 0.59231232000000000000e-4 * t19689 * t45098;
16116   t45104 = t13511 * t5731;
16117   t45107 = t41664 * t5736;
16118   t45117 = t3938 * tau[0] * t2150;
16119   t45122 = t3938 * sigma[2];
16120   t45123 = t45122 * t2142;
16121   t45126 = t13210 * t42323;
16122   t45131 = t13210 * t31485;
16123   t45136 = t13210 * t21858;
16124   t45139 = -0.13327027200000000000e-6 * t19695 * t45098 + 0.69411600000000000000e-2 * t19862 * t45104 + 0.12339840000000000000e-1 * t5777 * t45107 - 0.37019520000000000000e-4 * t5782 * t45107 + 0.18509760000000000000e-1 * t5011 * t45107 - 0.55529280000000000000e-4 * t5005 * t45107 + 0.11568600000000000000e-1 * t19857 * t45117 + 0.19281000000000000000e-1 * t19867 * t45117 + 0.11846246400000000000e-3 * t19666 * t45123 - 0.11105856000000000000e-1 * t16289 * t45126 + 0.33317568000000000000e-4 * t16297 * t45126 + 0.22211712000000000000e-1 * t16305 * t45131 - 0.66635136000000000000e-4 * t16310 * t45131 - 0.11105856000000000000e-1 * t16289 * t45136;
16125   t45141 = t13210 * t21862;
16126   t45144 = t10821 * t700;
16127   t45154 = t20080 * t3938;
16128   t45161 = t19771 * t283;
16129   t45172 = t10464 * t51;
16130   t45175 = 0.22211712000000000000e-1 * t16305 * t45141 + 0.14807808000000000000e-1 * t19985 * t3332 * t45144 + 0.33317568000000000000e-4 * t16297 * t45136 - 0.66635136000000000000e-4 * t16310 * t45141 + 0.39981081600000000000e-6 * t34566 * t10900 - 0.28166666666666666667e2 * t5598 * t45154 - 0.33800000000000000000e2 * t34522 * t3465 - 0.33800000000000000000e2 * t34434 * t3465 + 0.10411740000000000000e-2 * t45161 * t13190 - 0.69411600000000000000e-3 * t13591 * t13200 + 0.10411740000000000000e-2 * t22434 * t13502 + 0.56333333333333333333e2 * t10947 * t2150 + 0.33800000000000000000e2 * t3465 * t44729 - 0.33800000000000000000e2 * t45172 * t5731;
16131   t45176 = t45122 * t2191;
16132   t45180 = t10821 * t700 * t3329;
16133   t45185 = t10464 * t1036;
16134   t45188 = t5050 * t3938;
16135   t45191 = t5050 * t1036;
16136   t45203 = t5709 * t276;
16137   t45216 = -0.18509760000000000000e-1 * t19757 * t45176 + 0.74039040000000000000e-2 * t5797 * t45180 - 0.98718720000000000000e-2 * t19677 * t13538 + 0.56333333333333333333e2 * t45185 * t2127 - 0.84500000000000000000e2 * t45188 * t2127 + 0.10140000000000000000e3 * t45191 * t10837 + 0.10411740000000000000e-1 * t16225 * t13222 * t5791 - 0.20823480000000000000e-1 * t20102 * t13222 * t2211 + 0.69411600000000000000e-2 * t5624 * t3349 * t10893 + 0.18509760000000000000e-2 * t45203 * t13193 - 0.55529280000000000000e-5 * t13591 * t13197 - 0.41646960000000000000e-2 * t16220 * t13189 * t2211 + 0.20823480000000000000e-2 * t5051 * t3332 * t34329 + 0.18509760000000000000e-2 * t22088 * t13505;
16138   t45248 = t41642 * t5736;
16139   t45254 = t1030 * t12622 * t653;
16140   t45257 = -0.55529280000000000000e-5 * t10970 * t13508 + 0.20823480000000000000e-2 * t22434 * t13516 + 0.20823480000000000000e-2 * t5051 * t10312 * t10810 + 0.20823480000000000000e-2 * t5051 * t3332 * t34337 - 0.41646960000000000000e-2 * t5038 * t10312 * t3462 - 0.41646960000000000000e-2 * t5038 * t3332 * t10893 - 0.41646960000000000000e-2 * t16220 * t13222 * t5778 + 0.10411740000000000000e-1 * t16225 * t13222 * t5785 - 0.41646960000000000000e-2 * t5038 * t3349 * t34337 + 0.28166666666666666667e2 * t2149 * t10964 - 0.28166666666666666667e2 * t3321 * t2150 - 0.24679680000000000000e-1 * t5797 * t45248 + 0.74039040000000000000e-4 * t5801 * t45248 - 0.13882320000000000000e-1 * t19857 * t45254;
16141   t45273 = t13495 * t334;
16142   t45276 = t45122 * t2187;
16143   t45279 = t304 * t283;
16144   t45283 = t3941 * t876;
16145   t45284 = t45283 * t334;
16146   t45289 = t45097 * t2191;
16147   t45293 = t10853 * t700 * t3318;
16148   t45296 = -0.18509760000000000000e-1 * t5011 * t45248 + 0.55529280000000000000e-4 * t5005 * t45248 - 0.69411600000000000000e-2 * t19862 * t13511 * t5726 + 0.13882320000000000000e-1 * t19857 * t45104 - 0.11568600000000000000e-1 * t34546 * t10917 - 0.23137200000000000000e-1 * t34551 * t10917 - 0.17769369600000000000e-3 * t34587 * t10900 + 0.55529280000000000000e-4 * t19761 * t45273 + 0.11105856000000000000e-1 * t16305 * t45276 + 0.19281000000000000000e-2 * t2127 * t45279 * t13189 - 0.55529280000000000000e-2 * t16289 * t45284 + 0.16658784000000000000e-4 * t16297 * t45284 - 0.55529280000000000000e-2 * t16289 * t45289 + 0.37019520000000000000e-2 * t5777 * t45293;
16149   t45307 = t3318 * t51 * t719;
16150   t45313 = t12769 * t719;
16151   t45318 = t12740 * t719;
16152   t45330 = t3329 * t51 * t719;
16153   t45333 = -0.49359360000000000000e-2 * t19713 * t13505 + 0.16658784000000000000e-4 * t16297 * t45289 - 0.11105856000000000000e-4 * t5782 * t45293 - 0.23137200000000000000e-2 * t21850 * t13512 - 0.23137200000000000000e-2 * t5725 * t45307 - 0.83293920000000000000e-2 * t22146 * t13210 * t5785 - 0.77124000000000000000e-2 * t5745 * t45313 - 0.57843000000000000000e-2 * t5730 * t45313 + 0.57843000000000000000e-2 * t5730 * t45318 + 0.38562000000000000000e-2 * t5725 * t45318 - 0.33317568000000000000e-4 * t16310 * t45276 + 0.55529280000000000000e-4 * t19761 * t45176 - 0.22211712000000000000e-4 * t5801 * t45180 + 0.46274400000000000000e-2 * t5745 * t45330;
16154   t45340 = t43871 * t701;
16155   t45343 = t43875 * t701;
16156   t45354 = t3938 * t873;
16157   t45355 = t45354 * t334;
16158   t45368 = -0.83293920000000000000e-2 * t22146 * t13210 * t5791 + 0.20823480000000000000e-1 * t34352 * t13210 * t2211 - 0.55529280000000000000e-2 * t5011 * t45340 - 0.55529280000000000000e-2 * t5011 * t45343 + 0.16658784000000000000e-4 * t5005 * t45340 + 0.16658784000000000000e-4 * t5005 * t45343 + 0.34705800000000000000e-2 * t5730 * t45330 - 0.34705800000000000000e-2 * t5730 * t45307 + 0.11105856000000000000e-1 * t16305 * t45355 - 0.33317568000000000000e-4 * t16310 * t45355 - 0.18509760000000000000e-1 * t19757 * t45273 - 0.26654054400000000000e-6 * t19672 * t45123 + 0.13882320000000000000e-1 * t19857 * t45090 - 0.23137200000000000000e-1 * t19867 * t45254;
16159   t45383 = -t323 * t18 * t44247 * t680 / 0.32e2 - t323 * t1415 * t13087 * t2 / 0.16e2 + 0.50000000000000000001e0 * t2264 * t13127 + 0.16081979498692535067e2 * t1454 * t2001 * t45032 + t859 * t13240 - 0.3e1 / 0.32e2 * t682 * t13120 + 0.50000000000000000001e0 * t2315 * t13127 - t44245 / 0.96e2 + 0.50000000000000000001e0 * t1387 * t13483 + t275 * (t45101 + t45139 + t45175 + t45216 + t45257 + t45296 + t45333 + t45368) - 0.15545350000000000000e-1 * t2051 * t3933 - 0.15545350000000000000e-1 * t745 * t13169 - 0.15545350000000000000e-1 * t2054 * t3933 - 0.15545350000000000000e-1 * t2063 * t3933 - 0.15545350000000000000e-1 * t753 * t13169;
16160   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16161     v4rho2tau2[3] = -t13083 - t43837 - t13091 - t13122 - t13124 - t13126 + t13129 - t13171 + t13172 + t13241 - t13474 - t13478 - t13480 - t13482 + t13485 + t13486 + t13548 + t3 * (t45045 + t45383);
16162 
16163   t45386 = t859 * t3983;
16164   t45389 = t275 * t13686;
16165   t45393 = t998 * t1053;
16166   t45394 = t651 * tau[0];
16167   t45426 = -0.10140e2 * t3954 * t34984 + 0.11266666666666666667e3 * t45393 * t45394 * tau[1] - 0.15210e2 * t33848 * t10886 + 0.84500000000000000000e1 * t2121 * t3417 - 0.84500000000000000000e1 * t3417 * t13570 + 0.5070e1 * t33383 * t3598 + 0.5070e1 * t5709 * t13366 + 0.10140e2 * t5175 * t13583 - 0.16900000000000000000e2 * t1764 * t13556 * t653 + 0.14083333333333333333e2 * t352 * t10964 - 0.14083333333333333333e2 * t3321 * t11175 - 0.15210e2 * t33115 * t11171 - 0.15210e2 * t19771 * t13251 - 0.15210e2 * t5050 * t13563 * t653 + 0.10140e2 * t5709 * t13378;
16168   t45438 = t13563 * t334;
16169   t45441 = t352 * t12622;
16170   t45444 = t5709 * t633;
16171   t45447 = t5709 * t636;
16172   t45452 = t3591 * t1033;
16173   t45453 = t45452 * t334;
16174   t45456 = t12799 * t719;
16175   t45459 = t12826 * t719;
16176   t45466 = -0.15210e2 * t16325 * t13580 - 0.15210e2 * t5050 * t13366 * t876 - 0.14083333333333333333e2 * t652 * t3697 + 0.5070e1 * t34893 * t3326 + 0.5070e1 * t10464 * t11159 - 0.11105856000000000000e-4 * t5801 * t45438 - 0.38562000000000000000e-2 * t5745 * t45441 + 0.18509760000000000000e-2 * t45444 * t13346 - 0.55529280000000000000e-5 * t45447 * t13346 - 0.11568600000000000000e-2 * t36144 * t13333 + 0.18509760000000000000e-2 * t5777 * t45453 + 0.19281000000000000000e-2 * t5725 * t45456 - 0.38562000000000000000e-2 * t5745 * t45459 - 0.28921500000000000000e-2 * t5730 * t45459 + 0.28921500000000000000e-2 * t5730 * t45456;
16177   t45468 = t12529 * t9514;
16178   t45471 = t3954 * t5791;
16179   t45474 = t3954 * t2211;
16180   t45479 = t44410 * t701;
16181   t45488 = t3240 * t3513;
16182   t45491 = t44420 * t701;
16183   t45500 = t352 * t12595;
16184   t45503 = t3591 * t1036;
16185   t45504 = t45503 * t334;
16186   t45507 = 0.11105856000000000000e-4 * t5782 * t45468 - 0.20823480000000000000e-2 * t19862 * t45471 + 0.41646960000000000000e-2 * t19857 * t45474 + 0.18509760000000000000e-2 * t34317 * t13661 + 0.18509760000000000000e-2 * t5777 * t45479 - 0.55529280000000000000e-5 * t34320 * t13661 - 0.55529280000000000000e-5 * t5782 * t45479 - 0.11568600000000000000e-2 * t21850 * t13667 - 0.77124000000000000000e-2 * t5725 * t45488 - 0.27764640000000000000e-2 * t5011 * t45491 + 0.83293920000000000000e-5 * t5005 * t45491 - 0.23137200000000000000e-1 * t5730 * t45488 - 0.55529280000000000000e-5 * t5782 * t45453 + 0.19281000000000000000e-2 * t5725 * t45500 - 0.27764640000000000000e-2 * t5011 * t45504;
16187   t45512 = t3601 * t1033;
16188   t45513 = t45512 * t334;
16189   t45520 = t13366 * t701;
16190   t45529 = t51 * t86;
16191   t45530 = t45529 * t9689;
16192   t45533 = t45529 * t9693;
16193   t45536 = t39554 * t9633;
16194   t45545 = 0.83293920000000000000e-5 * t5005 * t45504 - 0.28921500000000000000e-2 * t5730 * t45441 - 0.27764640000000000000e-2 * t5011 * t45513 + 0.83293920000000000000e-5 * t5005 * t45513 + 0.28921500000000000000e-2 * t5730 * t45500 + 0.37019520000000000000e-2 * t5797 * t45520 - 0.11105856000000000000e-4 * t5801 * t45520 - 0.15424800000000000000e-1 * t5745 * t45488 + 0.37019520000000000000e-2 * t5797 * t45438 - 0.37019520000000000000e-2 * t5777 * t45530 + 0.55529280000000000000e-2 * t5011 * t45533 - 0.59231232000000000000e-4 * t5755 * t45536 + 0.11105856000000000000e-4 * t5782 * t45530 - 0.16658784000000000000e-4 * t5005 * t45533 + 0.13327027200000000000e-6 * t5715 * t45536;
16195   t45548 = t44431 * t701;
16196   t45553 = t3954 * t5785;
16197   t45558 = t12529 * t9490;
16198   t45589 = -0.27764640000000000000e-2 * t5011 * t45548 + 0.83293920000000000000e-5 * t5005 * t45548 - 0.20823480000000000000e-2 * t19862 * t45553 - 0.37019520000000000000e-2 * t5777 * t45468 + 0.74039040000000000000e-2 * t5797 * t45558 - 0.22211712000000000000e-4 * t5801 * t45558 - 0.55529280000000000000e-2 * t5011 * t45530 + 0.74039040000000000000e-2 * t5797 * t45533 - 0.41646960000000000000e-2 * t22146 * t13326 * t5785 - 0.41646960000000000000e-2 * t22146 * t13326 * t5791 + 0.10411740000000000000e-1 * t34352 * t13326 * t2211 - 0.41646960000000000000e-2 * t22146 * t3961 * t5778 + 0.10411740000000000000e-1 * t34352 * t3961 * t5785 + 0.10411740000000000000e-1 * t34352 * t3961 * t5791 - 0.20823480000000000000e-1 * t16273 * t307 * t3961 * t2211;
16199   t45626 = 0.55529280000000000000e-2 * t5011 * t45558 - 0.16658784000000000000e-4 * t5005 * t45558 - 0.59231232000000000000e-4 * t5758 * t45536 + 0.16658784000000000000e-4 * t5005 * t45530 - 0.22211712000000000000e-4 * t5801 * t45533 + 0.13327027200000000000e-6 * t5720 * t45536 - 0.41646960000000000000e-2 * t22146 * t13345 * t2211 - 0.41646960000000000000e-2 * t22146 * t13354 * t5785 - 0.41646960000000000000e-2 * t22146 * t13354 * t5791 + 0.10411740000000000000e-1 * t34352 * t13354 * t2211 - 0.84500000000000000000e2 * t5050 * t3961 * t2127 + 0.20823480000000000000e-2 * t19862 * t3954 * t5778 - 0.41646960000000000000e-2 * t19857 * t45553 - 0.55529280000000000000e-2 * t5011 * t45468 + 0.16658784000000000000e-4 * t5005 * t45468;
16200   t45643 = t10464 * t1090;
16201   t45651 = t3480 * t9258;
16202   t45662 = t3480 * t5698;
16203   t45665 = -0.41646960000000000000e-2 * t19857 * t45471 + 0.69411600000000000000e-2 * t19867 * t45474 + 0.5070e1 * t5175 * t13563 + 0.5070e1 * t1764 * t3601 * t3329 - 0.14083333333333333333e2 * t3391 * t2150 + 0.14083333333333333333e2 * t2149 * t11036 - 0.16900000000000000000e2 * t1764 * t11039 + 0.28166666666666666667e2 * t45643 * t2127 - 0.28166666666666666667e2 * t5598 * t20080 * t3961 + 0.69411600000000000000e-3 * t10970 * t13616 - 0.11568600000000000000e-2 * t2153 * t45651 - 0.20823480000000000000e-2 * t5038 * t3421 * t34337 + 0.34705800000000000000e-2 * t5624 * t3421 * t10893 - 0.17352900000000000000e-2 * t1775 * t45651 + 0.23137200000000000000e-2 * t2165 * t45662;
16204   t45666 = t3677 * t3002;
16205   t45669 = t11916 * t3002;
16206   t45672 = t3677 * t947;
16207   t45680 = t2949 * t11099;
16208   t45683 = t2949 * t947;
16209   t45686 = t2964 * t947;
16210   t45689 = t2949 * t11090;
16211   t45692 = t10680 * t1036;
16212   t45711 = 0.30849600000000000000e-2 * t1839 * t45666 - 0.92548800000000000000e-5 * t1844 * t45669 + 0.49359360000000000000e-2 * t8967 * t45672 + 0.10411740000000000000e-2 * t22434 * t13628 + 0.10411740000000000000e-2 * t5051 * t3402 * t34329 + 0.17352900000000000000e-2 * t1775 * t45680 + 0.30849600000000000000e-2 * t1849 * t45683 - 0.92548800000000000000e-5 * t1853 * t45686 - 0.11568600000000000000e-2 * t2153 * t45689 + 0.28166666666666666667e2 * t45692 * t2127 - 0.20823480000000000000e-2 * t5038 * t11051 * t10361 + 0.34705800000000000000e-2 * t5624 * t11051 * t3326 + 0.50700000000000000000e2 * t44797 * t10837 + 0.10411740000000000000e-2 * t45161 * t13261 + 0.10411740000000000000e-2 * t5051 * t11044 * t10378 + 0.10411740000000000000e-2 * t5051 * t11044 * t10361;
16213   t45753 = 0.10411740000000000000e-2 * t22434 * t13631 + 0.10411740000000000000e-2 * t5051 * t3402 * t34337 - 0.20823480000000000000e-2 * t5038 * t3402 * t10893 + 0.50700000000000000000e2 * t19838 * t3417 * t3462 + 0.17352900000000000000e-2 * t1775 * t45662 + 0.30849600000000000000e-2 * t1849 * t45666 - 0.92548800000000000000e-5 * t1853 * t45669 + 0.49359360000000000000e-2 * t8960 * t45672 + 0.10411740000000000000e-2 * t22434 * t13645 + 0.10411740000000000000e-2 * t5051 * t3421 * t34323 - 0.20823480000000000000e-2 * t5038 * t3421 * t34329 - 0.20823480000000000000e-2 * t5038 * t11044 * t3326 + 0.10411740000000000000e-2 * t5051 * t11051 * t10372 - 0.20823480000000000000e-2 * t5038 * t11051 * t10378 + 0.28166666666666666667e2 * t11058 * t2150;
16214   t45758 = t13345 * t31485;
16215   t45762 = t352 * t13332 * t876;
16216   t45765 = t13354 * t42323;
16217   t45771 = t352 * t13341 * t873;
16218   t45774 = t13354 * t31485;
16219   t45779 = t13341 * t876;
16220   t45780 = t352 * t45779;
16221   t45783 = t13326 * t42323;
16222   t45794 = 0.96405000000000000000e-3 * t1853 * t3695 + 0.96405000000000000000e-3 * t1844 * t3695 + 0.16658784000000000000e-4 * t16297 * t45758 + 0.34705800000000000000e-2 * t19862 * t45762 - 0.55529280000000000000e-2 * t16289 * t45765 + 0.16658784000000000000e-4 * t16297 * t45765 + 0.34705800000000000000e-2 * t19862 * t45771 + 0.11105856000000000000e-1 * t16305 * t45774 - 0.33317568000000000000e-4 * t16310 * t45774 - 0.69411600000000000000e-2 * t19857 * t45780 - 0.55529280000000000000e-2 * t16289 * t45783 + 0.16658784000000000000e-4 * t16297 * t45783 - 0.57843000000000000000e-2 * t35491 * t10906 - 0.11568600000000000000e-1 * t35303 * t10906 + 0.11568600000000000000e-1 * t35303 * t10917;
16223   t45798 = t13354 * t21862;
16224   t45801 = t42115 * t5736;
16225   t45806 = t13345 * t21862;
16226   t45809 = t10853 * t700;
16227   t45814 = t352 * t42327 * sigma[2];
16228   t45823 = t13657 * t5726;
16229   t45826 = t13657 * t5731;
16230   t45834 = t352 * t42410 * sigma[2];
16231   t45837 = 0.19281000000000000000e-1 * t35306 * t10917 - 0.33317568000000000000e-4 * t16310 * t45798 - 0.12339840000000000000e-1 * t5797 * t45801 + 0.37019520000000000000e-4 * t5801 * t45801 - 0.55529280000000000000e-2 * t16289 * t45806 - 0.49359360000000000000e-2 * t19713 * t3402 * t45809 + 0.61699200000000000000e-2 * t5777 * t45814 + 0.16658784000000000000e-4 * t16297 * t45806 - 0.18509760000000000000e-4 * t5782 * t45814 - 0.27764640000000000000e-4 * t5005 * t45814 + 0.34705800000000000000e-2 * t19862 * t45823 - 0.69411600000000000000e-2 * t19857 * t45826 - 0.92548800000000000000e-2 * t5011 * t45801 + 0.27764640000000000000e-4 * t5005 * t45801 + 0.27764640000000000000e-4 * t5005 * t45834;
16232   t45841 = t13666 * t5731;
16233   t45844 = t42093 * t5736;
16234   t45849 = t13326 * t21858;
16235   t45852 = t13326 * t21862;
16236   t45862 = t3961 * t31485;
16237   t45871 = t3961 * t21858;
16238   t45874 = t3961 * t21862;
16239   t45877 = -0.34705800000000000000e-2 * t19862 * t13666 * t5726 + 0.69411600000000000000e-2 * t19857 * t45841 + 0.92548800000000000000e-2 * t5011 * t45844 - 0.27764640000000000000e-4 * t5005 * t45844 - 0.55529280000000000000e-2 * t16289 * t45849 + 0.11105856000000000000e-1 * t16305 * t45852 + 0.74039040000000000000e-2 * t19985 * t3421 * t45809 + 0.92548800000000000000e-2 * t5011 * t45814 + 0.69411600000000000000e-2 * t19857 * t45771 - 0.18509760000000000000e-1 * t19757 * t45862 + 0.55529280000000000000e-4 * t19761 * t45862 - 0.11568600000000000000e-1 * t19867 * t45780 - 0.55529280000000000000e-2 * t16289 * t45758 + 0.11105856000000000000e-1 * t16305 * t45871 - 0.18509760000000000000e-1 * t19757 * t45874;
16240   t45904 = t13354 * t21858;
16241   t45914 = -0.98718720000000000000e-2 * t19677 * t3421 * t45144 - 0.12339840000000000000e-1 * t5797 * t45834 - 0.33317568000000000000e-4 * t16310 * t45871 + 0.55529280000000000000e-4 * t19761 * t45874 + 0.37019520000000000000e-4 * t5801 * t45834 + 0.69411600000000000000e-2 * t19857 * t45823 - 0.11568600000000000000e-1 * t19867 * t45826 + 0.19281000000000000000e-2 * t2127 * t45279 * t3966 + 0.34705800000000000000e-2 * t19862 * t45841 + 0.61699200000000000000e-2 * t5777 * t45844 - 0.18509760000000000000e-4 * t5782 * t45844 - 0.55529280000000000000e-2 * t16289 * t45904 + 0.11105856000000000000e-1 * t16305 * t45798 + 0.74039040000000000000e-2 * t19985 * t3402 * t45144 - 0.92548800000000000000e-2 * t5011 * t45834;
16242   t45945 = 0.16658784000000000000e-4 * t16297 * t45904 + 0.84500000000000000000e1 * t1836 * t13556 - 0.92548800000000000000e-5 * t1844 * t45686 - 0.17352900000000000000e-2 * t1775 * t45689 + 0.23137200000000000000e-2 * t2165 * t45680 + 0.30849600000000000000e-2 * t1839 * t45683 - 0.2535e1 * t11164 * t3329 - 0.2535e1 * t10453 * t3601 - 0.14083333333333333333e2 * t3697 * t297 + 0.59231232000000000000e-4 * t35469 * t10911 - 0.13327027200000000000e-6 * t35476 * t10911 - 0.88846848000000000000e-4 * t35472 * t10900 + 0.11846246400000000000e-3 * t35495 * t10900 - 0.26654054400000000000e-6 * t35502 * t10900 + 0.19990540800000000000e-6 * t35479 * t10900;
16243   t45979 = t10680 * t51;
16244   t45982 = -0.88846848000000000000e-4 * t35527 * t10911 + 0.19990540800000000000e-6 * t35499 * t10911 + 0.57843000000000000000e-2 * t35482 * t10906 - 0.57843000000000000000e-2 * t35482 * t10917 - 0.11568600000000000000e-1 * t35488 * t10917 + 0.16658784000000000000e-4 * t16297 * t45849 - 0.33317568000000000000e-4 * t16310 * t45852 - 0.34705800000000000000e-3 * t10970 * t13594 - 0.34705800000000000000e-3 * t2153 * t11044 * t3318 + 0.52058700000000000000e-3 * t1775 * t11044 * t3329 + 0.52058700000000000000e-3 * t1775 * t11051 * t3318 - 0.16900000000000000000e2 * t34531 * t11039 - 0.16900000000000000000e2 * t22333 * t13302 + 0.28166666666666666667e2 * t5697 * t3697 * t1036 - 0.16900000000000000000e2 * t45979 * t5731;
16245   t45985 = t44728 * t876;
16246   t45992 = t13326 * t31485;
16247   t45999 = t3961 * t42323;
16248   t46023 = 0.16900000000000000000e2 * t3465 * t44906 + 0.16900000000000000000e2 * t3399 * t45985 - 0.34705800000000000000e-2 * t19862 * t352 * t13332 * t873 + 0.11105856000000000000e-1 * t16305 * t45992 - 0.33317568000000000000e-4 * t16310 * t45992 + 0.69411600000000000000e-2 * t19857 * t45762 + 0.11105856000000000000e-1 * t16305 * t45999 - 0.33317568000000000000e-4 * t16310 * t45999 + 0.60840e2 * t16219 * t1090 * t10886 - 0.30420e2 * t34405 * t34976 - 0.69411600000000000000e-3 * t2165 * t11051 * t3329 - 0.16900000000000000000e2 * t35177 * t3465 + 0.11266666666666666667e3 * t5697 * t45393 * tau[1] - 0.34705800000000000000e-3 * t13591 * t13307 + 0.5070e1 * t10680 * t10893 - 0.84500000000000000000e1 * t13556 * t13371;
16249   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16250     v4rho2tau2[4] = t44264 + t44266 + t45386 + t39427 * t3983 + t12138 * t13383 + t45389 + t11962 * t13686 + t3694 * (t45426 + t45466 + t45507 + t45545 + t45589 + t45626 + t45665 + t45711 + t45753 + t45794 + t45837 + t45877 + t45914 + t45945 + t45982 + t46023);
16251 
16252   t46035 = t67 * t127 * t13721;
16253   t46037 = t691 * t13387;
16254   t46039 = t4017 * t520;
16255   t46044 = t13440 * t31485;
16256   t46048 = t352 * t13446 * t876;
16257   t46051 = t11192 * t11039;
16258   t46054 = t13440 * t21858;
16259   t46057 = t13440 * t21862;
16260   t46065 = t352 * t42611 * sigma[2];
16261   t46069 = t11192 * t13917 * sigma[2];
16262   t46076 = t4026 * sigma[2];
16263   t46077 = t46076 * t2142;
16264   t46084 = -0.66635136000000000000e-4 * t16310 * t46044 - 0.13882320000000000000e-1 * t19857 * t46048 + 0.13882320000000000000e-1 * t19857 * t46051 - 0.11105856000000000000e-1 * t16289 * t46054 + 0.22211712000000000000e-1 * t16305 * t46057 + 0.14807808000000000000e-1 * t19985 * t3402 * t11103 * t700 - 0.18509760000000000000e-1 * t5011 * t46065 + 0.18509760000000000000e-1 * t5011 * t46069 + 0.33317568000000000000e-4 * t16297 * t46054 - 0.66635136000000000000e-4 * t16310 * t46057 + 0.59231232000000000000e-4 * t19689 * t46077 + 0.12339840000000000000e-1 * t5777 * t46069 - 0.13327027200000000000e-6 * t19695 * t46077;
16265   t46087 = t13440 * t42323;
16266   t46093 = t352 * t13446 * t873;
16267   t46104 = t4026 * tau[0];
16268   t46108 = t4023 * sigma[2];
16269   t46109 = t46108 * t2142;
16270   t46119 = t4023 * tau[0] * t2150;
16271   t46124 = -0.37019520000000000000e-4 * t5782 * t46069 - 0.11105856000000000000e-1 * t16289 * t46087 + 0.33317568000000000000e-4 * t16297 * t46087 + 0.69411600000000000000e-2 * t19862 * t46093 - 0.69411600000000000000e-2 * t19862 * t11192 * t3417 * t873 + 0.22211712000000000000e-1 * t16305 * t46044 + 0.69411600000000000000e-2 * t19862 * t46051 + 0.57843000000000000000e-2 * t19862 * t46104 * t2150 + 0.11846246400000000000e-3 * t19666 * t46109 - 0.24679680000000000000e-1 * t5797 * t46065 - 0.26654054400000000000e-6 * t19672 * t46109 + 0.74039040000000000000e-4 * t5801 * t46065 + 0.11568600000000000000e-1 * t19857 * t46119 - 0.23137200000000000000e-1 * t19867 * t46048;
16272   t46134 = t4026 * t876;
16273   t46135 = t46134 * t334;
16274   t46140 = t46076 * t2191;
16275   t46148 = t1087 * t3591 * t334;
16276   t46154 = t352 * t93 * t3591;
16277   t46157 = t11192 * t3697;
16278   t46163 = 0.19281000000000000000e-1 * t19867 * t46119 + 0.55529280000000000000e-4 * t5005 * t46065 - 0.55529280000000000000e-4 * t5005 * t46069 + 0.13882320000000000000e-1 * t19857 * t46093 - 0.55529280000000000000e-2 * t16289 * t46135 + 0.16658784000000000000e-4 * t16297 * t46135 - 0.55529280000000000000e-2 * t16289 * t46140 - 0.49359360000000000000e-2 * t19713 * t13794 + 0.16658784000000000000e-4 * t16297 * t46140 + 0.37019520000000000000e-2 * t5777 * t46148 - 0.11105856000000000000e-4 * t5782 * t46148 - 0.23137200000000000000e-2 * t5725 * t46154 + 0.38562000000000000000e-2 * t5725 * t46157 - 0.83293920000000000000e-2 * t22146 * t13440 * t5785;
16279   t46164 = t45279 * t13419;
16280   t46167 = t4023 * t873;
16281   t46168 = t46167 * t334;
16282   t46171 = t13783 * t334;
16283   t46176 = t46108 * t2187;
16284   t46179 = t46108 * t2191;
16285   t46188 = t13786 * t334;
16286   t46193 = t93 * t3601;
16287   t46194 = t352 * t46193;
16288   t46197 = t11181 * t3697;
16289   t46203 = 0.19281000000000000000e-2 * t2127 * t46164 - 0.33317568000000000000e-4 * t16310 * t46168 - 0.18509760000000000000e-1 * t19757 * t46171 + 0.55529280000000000000e-4 * t19761 * t46171 + 0.11105856000000000000e-1 * t16305 * t46176 - 0.18509760000000000000e-1 * t19757 * t46179 - 0.98718720000000000000e-2 * t19677 * t13827 - 0.33317568000000000000e-4 * t16310 * t46176 + 0.55529280000000000000e-4 * t19761 * t46179 + 0.74039040000000000000e-2 * t5797 * t46188 - 0.22211712000000000000e-4 * t5801 * t46188 + 0.46274400000000000000e-2 * t5745 * t46194 - 0.77124000000000000000e-2 * t5745 * t46197 - 0.83293920000000000000e-2 * t22146 * t13440 * t5791;
16290   t46209 = t3591 * t1090;
16291   t46210 = t46209 * t334;
16292   t46219 = t1087 * t3601;
16293   t46220 = t46219 * t334;
16294   t46239 = 0.20823480000000000000e-1 * t34352 * t13440 * t2211 - 0.55529280000000000000e-2 * t5011 * t46210 + 0.16658784000000000000e-4 * t5005 * t46210 - 0.57843000000000000000e-2 * t5730 * t46197 - 0.34705800000000000000e-2 * t5730 * t46154 - 0.55529280000000000000e-2 * t5011 * t46220 + 0.16658784000000000000e-4 * t5005 * t46220 + 0.34705800000000000000e-2 * t5730 * t46194 + 0.57843000000000000000e-2 * t5730 * t46157 - 0.23137200000000000000e-2 * t36144 * t13430 + 0.11105856000000000000e-1 * t16305 * t46168 - 0.11568600000000000000e-1 * t35482 * t11182 - 0.23137200000000000000e-1 * t35488 * t11182 - 0.17769369600000000000e-3 * t35472 * t11187;
16295   t46258 = t10680 * t1090;
16296   t46263 = t5050 * t4023;
16297   t46273 = t3601 * t648;
16298   t46277 = 0.39981081600000000000e-6 * t35479 * t11187 + 0.18509760000000000000e-2 * t22088 * t13794 - 0.55529280000000000000e-5 * t10970 * t13797 + 0.20823480000000000000e-2 * t5051 * t3402 * t3591 * t653 + 0.20823480000000000000e-2 * t22434 * t13804 + 0.20823480000000000000e-2 * t5051 * t11044 * t10606 - 0.41646960000000000000e-2 * t5038 * t11044 * t3396 + 0.56333333333333333333e2 * t46258 * t2127 + 0.10140000000000000000e3 * t44797 * t11100 - 0.84500000000000000000e2 * t46263 * t2127 + 0.18509760000000000000e-2 * t45203 * t13423 - 0.55529280000000000000e-5 * t13591 * t13427 - 0.41646960000000000000e-2 * t16220 * t13419 * t2211 - 0.41646960000000000000e-2 * t5038 * t3421 * t46273;
16299   t46314 = 0.69411600000000000000e-2 * t5624 * t3421 * t11159 + 0.20823480000000000000e-2 * t5051 * t3402 * t46273 - 0.41646960000000000000e-2 * t5038 * t3402 * t11159 - 0.41646960000000000000e-2 * t16220 * t13452 * t5778 + 0.10411740000000000000e-1 * t16225 * t13452 * t5785 + 0.10411740000000000000e-1 * t16225 * t13452 * t5791 - 0.20823480000000000000e-1 * t20102 * t13452 * t2211 + 0.10140e2 * t34893 * t3396 + 0.10140e2 * t10680 * t11159 - 0.15210e2 * t19771 * t13412 - 0.15210e2 * t16325 * t13783 + 0.10140e2 * t5175 * t13786 + 0.28166666666666666667e2 * t352 * t11036 + 0.16900000000000000000e2 * t11164 * t3399;
16300   t46328 = t44905 * t876;
16301   t46333 = t20080 * t4023;
16302   t46349 = -0.30420e2 * t33848 * t11171 - 0.16900000000000000000e2 * t352 * t10716 * t3601 - 0.28166666666666666667e2 * t3391 * t11175 + 0.60840e2 * t16219 * t13783 * t653 - 0.30420e2 * t5050 * t13786 * t653 + 0.33800000000000000000e2 * t3399 * t46328 - 0.33800000000000000000e2 * t35102 * t11039 - 0.28166666666666666667e2 * t5598 * t46333 - 0.33800000000000000000e2 * t36687 * t3399 - 0.33800000000000000000e2 * t5697 * t3417 * t3601 + 0.56333333333333333333e2 * t11058 * t11175 + 0.10411740000000000000e-2 * t45161 * t13420 + 0.10411740000000000000e-2 * t22434 * t13791 - 0.69411600000000000000e-3 * t10970 * t13800;
16303   t46364 = -0.3e1 / 0.32e2 * t380 * t13722 + 0.3e1 / 0.16e2 * t1888 * t1889 * t3999 - t46035 / 0.32e2 - t46037 / 0.32e2 - 0.10000000000000000000e1 * t1231 * t793 * t46039 + t629 * t13837 + t275 * (t46084 + t46124 + t46163 + t46203 + t46239 + t46277 + t46314 + t46349) + 0.16081979498692535067e2 * t1213 * t2009 * t46039 + 0.50000000000000000001e0 * t502 * t522 * t13770 - t44987 / 0.96e2 + t2114 * t4036 + t859 * t13469 - t44981 / 0.32e2 + t44985;
16304   t46384 = t389 * t13720;
16305   t46390 = t387 * t127 * t13690;
16306   t46406 = -0.15545350000000000000e-1 * t2024 * t4018 - 0.15545350000000000000e-1 * t2027 * t4018 - 0.15545350000000000000e-1 * t2048 * t4018 - 0.15545350000000000000e-1 * t482 * t13771 - 0.15545350000000000000e-1 * t497 * t13771 + 0.50000000000000000001e0 * t2269 * t13399 + 0.31090700000000000000e-1 * t1104 * t2107 * t4017 + t387 * t1415 * t13390 * t2 / 0.16e2 - t387 * t18 * t46384 * t378 / 0.32e2 - t46390 / 0.96e2 + 0.50000000000000000001e0 * t502 * t2278 * t4017 + 0.50000000000000000001e0 * t1205 * t13729 + 0.50000000000000000001e0 * t1208 * t13729 + 0.50000000000000000001e0 * t2272 * t13399 - t2249 * t2250 * t3998 * t689 * t378 / 0.24e2;
16307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16308     v4rho2tau2[5] = -t13386 - t44741 - t13394 - t13396 - t13398 + t13401 + t13402 + t13470 - t13689 - t13693 - t13724 - t13726 - t13728 + t13731 - t13773 + t13774 + t13838 + t3 * (t46364 + t46406);
16309 
16310   t46427 = t306 * t3900;
16311   t46428 = t46427 * t2366;
16312   t46471 = 0.5070e1 * t22188 * t3938 + 0.11846246400000000000e-3 * t5110 * t13232 * t2383 - 0.26654054400000000000e-6 * t2165 * t43897 * t2383 - 0.15424800000000000000e-1 * t2165 * t46428 + 0.59231232000000000000e-4 * t5125 * t13196 * t2383 - 0.13327027200000000000e-6 * t2153 * t43948 * t2383 - 0.77124000000000000000e-2 * t2153 * t46428 + 0.20823480000000000000e-2 * t5051 * t3332 * t36447 - 0.41646960000000000000e-2 * t5038 * t3332 * t11294 + 0.14807808000000000000e-1 * t22037 * t7017 * t13210 - 0.23137200000000000000e-1 * t1775 * t46428 + 0.20823480000000000000e-1 * t16225 * t13222 * t6933 + 0.20280000000000000000e3 * t45191 * t11369 + 0.37019520000000000000e-2 * t45203 * t13505 - 0.11105856000000000000e-4 * t13591 * t13508 - 0.13573824000000000000e-1 * t5110 * t13222 * t2358 + 0.40721472000000000000e-4 * t2165 * t13232 * t2358 + 0.20360736000000000000e-4 * t2153 * t13196 * t2358 + 0.20823480000000000000e-1 * t16225 * t3332 * t11305;
16313   t46475 = t45283 * t701;
16314   t46481 = t1036 * t51 * t2363;
16315   t46484 = t13511 * t2363;
16316   t46487 = t13210 * t2358;
16317   t46505 = t3900 * t2347;
16318   t46522 = -0.67869120000000000000e-2 * t5125 * t13189 * t2358 - 0.11105856000000000000e-1 * t16289 * t46475 + 0.33317568000000000000e-4 * t16297 * t46475 - 0.12339840000000000000e-1 * t5745 * t46481 + 0.92548800000000000000e-2 * t5730 * t46484 + 0.20360736000000000000e-1 * t5011 * t46487 - 0.61082208000000000000e-4 * t5005 * t46487 - 0.92548800000000000000e-2 * t5730 * t46481 + 0.61699200000000000000e-2 * t5725 * t46484 + 0.10140e2 * t10464 * t11294 - 0.30420e2 * t19771 * t13495 - 0.15210e2 * t5050 * t3938 * t2736 - 0.30420e2 * t33115 * t11305 + 0.11266666666666666667e3 * t46505 * t35898 + 0.60840e2 * t16219 * t3938 * t2723 - 0.45066666666666666667e2 * t3321 * t11312 + 0.11266666666666666667e3 * t1764 * t46505 * t86 - 0.34705800000000000000e-3 * t22188 * t3942 + 0.45066666666666666667e2 * t1030 * t35931 + 0.20823480000000000000e-2 * t35961 * t3945;
16319   t46552 = t13210 * t2383;
16320   t46555 = t45354 * t701;
16321   t46560 = t13495 * t701;
16322   t46576 = -0.41646960000000000000e-2 * t16220 * t13222 * t2775 - 0.20823480000000000000e-1 * t20102 * t13222 * t2723 + 0.90133333333333333333e2 * t10947 * t11312 - 0.41646960000000000000e-2 * t16220 * t13189 * t2723 + 0.20823480000000000000e-2 * t45161 * t13502 + 0.10411740000000000000e-2 * t5051 * t13189 * t2736 - 0.49359360000000000000e-2 * t22383 * t7017 * t3941 - 0.20823480000000000000e-2 * t5038 * t13222 * t2751 + 0.34705800000000000000e-2 * t5624 * t13222 * t2736 - 0.98718720000000000000e-2 * t22387 * t7017 * t3938 + 0.39981081600000000000e-6 * t16302 * t46552 + 0.22211712000000000000e-1 * t16305 * t46555 - 0.66635136000000000000e-4 * t16310 * t46555 - 0.37019520000000000000e-1 * t19757 * t46560 + 0.11105856000000000000e-3 * t19761 * t46560 - 0.16658784000000000000e-1 * t22146 * t13210 * t6933 - 0.17769369600000000000e-3 * t16138 * t46552 - 0.46274400000000000000e-2 * t36144 * t13512 + 0.67600000000000000000e2 * t3465 * t45985 - 0.67600000000000000000e2 * t45172 * t6806;
16323   t46581 = t10853 * t706 * t51 * tau[1];
16324   t46584 = t13210 * t36200;
16325   t46590 = t1030 * t12622 * t873;
16326   t46593 = t719 * t873;
16327   t46597 = t13210 * t25865;
16328   t46603 = t1030 * t12622 * t876;
16329   t46608 = t13511 * t6806;
16330   t46612 = t1030 * t42186 * sigma[2];
16331   t46631 = -0.67600000000000000000e2 * t36343 * t3465 - 0.74039040000000000000e-4 * t5782 * t46581 - 0.22211712000000000000e-1 * t16289 * t46584 + 0.66635136000000000000e-4 * t16297 * t46584 + 0.13882320000000000000e-1 * t19862 * t46590 - 0.13882320000000000000e-1 * t19862 * t13511 * t46593 + 0.44423424000000000000e-1 * t16305 * t46597 - 0.13327027200000000000e-3 * t16310 * t46597 - 0.27764640000000000000e-1 * t19857 * t46603 - 0.46274400000000000000e-1 * t19867 * t46603 + 0.27764640000000000000e-1 * t19857 * t46608 - 0.37019520000000000000e-1 * t5011 * t46612 + 0.37019520000000000000e-1 * t5011 * t46581 + 0.11105856000000000000e-3 * t5005 * t46612 - 0.11105856000000000000e-3 * t5005 * t46581 + 0.13882320000000000000e-1 * t19862 * t46608 + 0.24679680000000000000e-1 * t5777 * t46581 - 0.49359360000000000000e-1 * t5797 * t46612 + 0.14807808000000000000e-3 * t5801 * t46612 + 0.27764640000000000000e-1 * t19857 * t46590;
16332   t46666 = -0.10000000000000000000e1 * t1223 * t2812 * t3932 + t275 * (t46471 + t46522 + t46576 + t46631) + 0.2e1 * t859 * t13547 + 0.16081979498692535067e2 * t1454 * t2806 * t3932 + 0.10000000000000000000e1 * t2264 * t13483 + 0.10000000000000000000e1 * t2315 * t13483 + 0.50000000000000000001e0 * t418 * t2802 * t3932 + t2717 * t3951 - 0.15545350000000000000e-1 * t2504 * t3933 - 0.31090700000000000000e-1 * t2507 * t3933 - 0.15545350000000000000e-1 * t2525 * t3933 - 0.3e1 / 0.32e2 * t2418 * t3915 + t44078 - t45036 / 0.16e2 - t323 * t18 * t13087 * t2416 / 0.32e2 - t1754 * t18 * t44256 * t2511 / 0.24e2 - t45014 / 0.48e2;
16333   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16334     v4rho2tau2[6] = -0.3e1 / 0.16e2 * t13473 - t43837 - t13477 / 0.16e2 - 0.31090700000000000000e-1 * t13479 - 0.31090700000000000000e-1 * t13481 + 0.10000000000000000000e1 * t13484 + 0.2e1 * t13486 + 0.2e1 * t13548 + t3 * t46666;
16335 
16336   t46673 = t13657 * t2363;
16337   t46676 = t13354 * t2358;
16338   t46679 = t13666 * t2363;
16339   t46682 = t13326 * t2358;
16340   t46685 = t13345 * t2358;
16341   t46694 = t3961 * t2358;
16342   t46702 = t3954 * t6933;
16343   t46705 = t3961 * t2383;
16344   t46708 = t13345 * t2383;
16345   t46713 = t13563 * t701;
16346   t46716 = t3601 * t51;
16347   t46717 = t46716 * t719;
16348   t46726 = t45452 * t701;
16349   t46729 = -0.61699200000000000000e-2 * t5745 * t46673 - 0.41646960000000000000e-2 * t19862 * t46702 - 0.26654054400000000000e-6 * t19672 * t46705 + 0.59231232000000000000e-4 * t19689 * t46708 - 0.13327027200000000000e-6 * t19695 * t46708 - 0.22211712000000000000e-4 * t5801 * t46713 + 0.46274400000000000000e-2 * t5745 * t46717 + 0.37019520000000000000e-2 * t45444 * t13661 - 0.11105856000000000000e-4 * t45447 * t13661 - 0.23137200000000000000e-2 * t36144 * t13667 + 0.37019520000000000000e-2 * t5777 * t46726;
16350   t46734 = t3591 * t51 * t719;
16351   t46737 = t45503 * t701;
16352   t46744 = t45512 * t701;
16353   t46758 = t45529 * t6826;
16354   t46761 = t45529 * t6814;
16355   t46773 = t13354 * t2383;
16356   t46778 = t13326 * t2383;
16357   t46783 = -0.30541104000000000000e-4 * t5005 * t46682 - 0.44423424000000000000e-4 * t5801 * t46758 - 0.74039040000000000000e-2 * t5777 * t46761 + 0.22211712000000000000e-4 * t5782 * t46761 + 0.11105856000000000000e-1 * t5011 * t46758 - 0.33317568000000000000e-4 * t5005 * t46758 - 0.83293920000000000000e-2 * t22146 * t13326 * t6933 - 0.88846848000000000000e-4 * t16138 * t46773 + 0.19990540800000000000e-6 * t16302 * t46773 - 0.88846848000000000000e-4 * t16138 * t46778 + 0.19990540800000000000e-6 * t16302 * t46778;
16358   t46803 = t13657 * t6806;
16359   t46806 = t13345 * t25865;
16360   t46809 = t3961 * t36200;
16361   t46813 = t3961 * t25865;
16362   t46816 = t13657 * t6818;
16363   t46819 = t13666 * t6818;
16364   t46826 = t13666 * t6806;
16365   t46829 = t13354 * t36200;
16366   t46832 = t13354 * t25865;
16367   t46841 = -0.37019520000000000000e-1 * t19757 * t46813 - 0.18509760000000000000e-1 * t5011 * t46816 + 0.12339840000000000000e-1 * t5777 * t46819 + 0.33317568000000000000e-4 * t16297 * t46806 - 0.37019520000000000000e-4 * t5782 * t46819 + 0.69411600000000000000e-2 * t19862 * t46826 - 0.11105856000000000000e-1 * t16289 * t46829 + 0.22211712000000000000e-1 * t16305 * t46832 - 0.24679680000000000000e-1 * t5797 * t46816 - 0.66635136000000000000e-4 * t16310 * t46809 + 0.11105856000000000000e-3 * t19761 * t46813;
16368   t46845 = t13657 * t46593;
16369   t46861 = t13326 * t36200;
16370   t46864 = t13326 * t25865;
16371   t46891 = t3480 * t700;
16372   t46894 = 0.69411600000000000000e-2 * t19862 * t46845 - 0.13882320000000000000e-1 * t19857 * t46803 + 0.18509760000000000000e-1 * t5011 * t46819 + 0.33317568000000000000e-4 * t16297 * t46829 - 0.66635136000000000000e-4 * t16310 * t46832 - 0.55529280000000000000e-4 * t5005 * t46819 - 0.69411600000000000000e-2 * t19862 * t13666 * t46593 + 0.13882320000000000000e-1 * t19857 * t46826 - 0.11105856000000000000e-1 * t16289 * t46861 + 0.22211712000000000000e-1 * t16305 * t46864 + 0.15424800000000000000e-2 * t1844 * t46891;
16373   t46908 = t36718 * t51;
16374   t46929 = t3480 * t36955;
16375   t46953 = -0.33800000000000000000e2 * t36690 * t3465 + 0.74039040000000000000e-2 * t22037 * t7017 * t13354 + 0.74039040000000000000e-2 * t22037 * t7017 * t13326 + 0.69411600000000000000e-3 * t2153 * t46929 - 0.41646960000000000000e-2 * t5038 * t11051 * t10810 + 0.69411600000000000000e-2 * t5624 * t11051 * t3462 - 0.41646960000000000000e-2 * t16220 * t3402 * t36028 + 0.10411740000000000000e-1 * t16225 * t3402 * t11305 - 0.41646960000000000000e-2 * t16220 * t3421 * t36466 - 0.20823480000000000000e-1 * t20102 * t3421 * t11305 + 0.20823480000000000000e-2 * t5051 * t3480 * t36803;
16376   t46955 = t3480 * t9646;
16377   t46958 = t3480 * t36970;
16378   t46961 = t3480 * t9654;
16379   t46990 = t51 * t700;
16380   t47008 = 0.52058700000000000000e-3 * t1775 * t37063 * t1036 + 0.52058700000000000000e-3 * t1775 * t37074 * t1033 + 0.33800000000000000000e2 * t3465 * t46328 - 0.22533333333333333333e2 * t652 * t46990 + 0.16900000000000000000e2 * t2121 * t13556 - 0.10140e2 * t3954 * t304 * t2723 - 0.15210e2 * t33848 * t11305 - 0.15210e2 * t33115 * t11758 + 0.10140e2 * t10464 * t11766 + 0.5070e1 * t10464 * t11769 + 0.5070e1 * t22188 * t3961;
16381   t47062 = -0.83293920000000000000e-2 * t22146 * t13354 * t6933 + 0.20823480000000000000e-1 * t34352 * t3961 * t6933 - 0.83293920000000000000e-2 * t19857 * t46702 - 0.11105856000000000000e-1 * t5011 * t46761 + 0.33317568000000000000e-4 * t5005 * t46761 + 0.14807808000000000000e-1 * t5797 * t46758 + 0.10411740000000000000e-2 * t5051 * t3421 * t36038 - 0.20823480000000000000e-2 * t5038 * t3421 * t36044 - 0.20823480000000000000e-2 * t5038 * t3421 * t36447 + 0.34705800000000000000e-2 * t5624 * t3421 * t11294 + 0.10140000000000000000e3 * t44797 * t11369;
16382   t47087 = t12877 * t3100;
16383   t47090 = t640 * t51;
16384   t47091 = t47090 * t3100;
16385   t47097 = 0.20823480000000000000e-2 * t45161 * t13628 + 0.20823480000000000000e-2 * t5051 * t11044 * t10846 + 0.20823480000000000000e-2 * t5051 * t11044 * t10810 - 0.41646960000000000000e-2 * t5038 * t11044 * t3462 + 0.20823480000000000000e-2 * t5051 * t11051 * t10840 - 0.41646960000000000000e-2 * t5038 * t11051 * t10846 - 0.98718720000000000000e-2 * t22387 * t7017 * t3961 - 0.49359360000000000000e-2 * t22383 * t7017 * t13345 - 0.59231232000000000000e-4 * t1839 * t47087 + 0.13327027200000000000e-6 * t1844 * t47091 + 0.10411740000000000000e-2 * t5051 * t3402 * t36044;
16386   t47104 = t3480 * t36936;
16387   t47107 = t3480 * t3137;
16388   t47110 = t12877 * t3137;
16389   t47125 = 0.10411740000000000000e-2 * t5051 * t3402 * t36447 - 0.20823480000000000000e-2 * t5038 * t3402 * t11294 - 0.10411740000000000000e-2 * t1775 * t47104 + 0.12956832000000000000e-1 * t1849 * t47107 - 0.38870496000000000000e-4 * t1853 * t47110 - 0.59231232000000000000e-4 * t1849 * t47087 + 0.13327027200000000000e-6 * t1853 * t47091 + 0.10411740000000000000e-2 * t1775 * t46929 - 0.13882320000000000000e-2 * t2165 * t47104 + 0.12956832000000000000e-1 * t1839 * t47107 - 0.38870496000000000000e-4 * t1844 * t47110;
16390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16391     v4rho2tau2[7] = 0.2e1 * t45386 + 0.2e1 * t45389 + t39975 * t3983 + 0.2e1 * t12138 * t13686 + t3694 * (0.20360736000000000000e-4 * t5782 * t46685 + 0.30849600000000000000e-2 * t5725 * t46679 + 0.10180368000000000000e-1 * t5011 * t46676 - 0.13573824000000000000e-1 * t5797 * t46694 + 0.40721472000000000000e-4 * t5801 * t46694 - 0.34705800000000000000e-2 * t1775 * t46955 + 0.69411600000000000000e-2 * t5624 * t46958 - 0.23137200000000000000e-1 * t19867 * t46803 - 0.11105856000000000000e-1 * t16289 * t46806 + 0.22211712000000000000e-1 * t16305 * t46809 + 0.20280e2 * t5709 * t13583 - 0.30420e2 * t19771 * t13580 + 0.16900000000000000000e2 * t11164 * t3465 - 0.16900000000000000000e2 * t1030 * t37156 + t46953 + t47125 + t47008 + t46894 + t46783 + t47062 + t47097 - 0.34705800000000000000e-3 * t2153 * t37063 * t1033 + 0.5070e1 * t1764 * t11730 * t1036 + 0.5070e1 * t3954 * t651 * t2736 - 0.30420e2 * t5050 * t13563 * t876 - 0.15210e2 * t5050 * t3961 * t2736 + 0.10140e2 * t1764 * t3954 * t2736 + 0.60840e2 * t16219 * t3961 * t2723 - 0.30420e2 * t5050 * t3954 * t2723 - 0.33800000000000000000e2 * t1764 * t13556 * t876 - 0.69411600000000000000e-3 * t2165 * t37074 * t1036 + 0.10411740000000000000e-1 * t16225 * t3421 * t36028 - 0.34705800000000000000e-3 * t22188 * t283 * t3966 + t46841 - 0.30541104000000000000e-4 * t5005 * t46676 + 0.46274400000000000000e-2 * t5730 * t46679 + 0.10180368000000000000e-1 * t5011 * t46682 - 0.67869120000000000000e-2 * t5777 * t46685 - 0.46274400000000000000e-2 * t5730 * t46673 + 0.33317568000000000000e-4 * t16297 * t46861 - 0.66635136000000000000e-4 * t16310 * t46864 + 0.55529280000000000000e-4 * t5005 * t46816 - 0.33800000000000000000e2 * t36687 * t3465 - 0.69411600000000000000e-3 * t13591 * t13594 + 0.46274400000000000000e-2 * t2165 * t46961 + 0.41646960000000000000e-2 * t5038 * t46958 + 0.34705800000000000000e-2 * t1775 * t46961 - 0.23137200000000000000e-2 * t2153 * t46955 + 0.74039040000000000000e-4 * t5801 * t46816 + 0.13882320000000000000e-1 * t19857 * t46845 - 0.22533333333333333333e2 * t3391 * t11312 + 0.22533333333333333333e2 * t1030 * t37153 + 0.10411740000000000000e-2 * t35961 * t3969 + 0.15424800000000000000e-2 * t1853 * t46891 + 0.10411740000000000000e-2 * t35961 * t3975 + 0.45066666666666666667e2 * t11058 * t11312 + 0.69411600000000000000e-3 * t36078 * t3972 + 0.49359360000000000000e-2 * t7016 * t46908 + 0.49359360000000000000e-2 * t7021 * t46908 - 0.33800000000000000000e2 * t45979 * t6806 - 0.5070e1 * t7032 * t3954 + 0.10140e2 * t34893 * t3462 + 0.5070e1 * t10680 * t11294 - 0.16900000000000000000e2 * t13556 * t13570 - 0.2535e1 * t36852 * t1036 - 0.2535e1 * t3321 * t11730 - 0.22533333333333333333e2 * t46990 * t297 - 0.34705800000000000000e-2 * t5730 * t46734 - 0.55529280000000000000e-2 * t5011 * t46744 + 0.16658784000000000000e-4 * t5005 * t46744 + 0.34705800000000000000e-2 * t5730 * t46717 + 0.11846246400000000000e-3 * t19666 * t46705 + 0.74039040000000000000e-2 * t5797 * t46713 - 0.11105856000000000000e-4 * t5782 * t46726 - 0.23137200000000000000e-2 * t5725 * t46734 - 0.55529280000000000000e-2 * t5011 * t46737 + 0.16658784000000000000e-4 * t5005 * t46737 + 0.10140e2 * t5709 * t13563 + t46729);
16392 
16393   t47147 = t8655 * t1070 * tau[1];
16394   t47165 = t27185 * t4006 * t2347;
16395   t47167 = t2344 * t86;
16396   t47184 = t11564 * tau[1];
16397   t47187 = t4006 * t198 * t2347;
16398   t47192 = -0.38826666666666666666e2 * t47147 + 0.1031520e1 * t11616 * t1055 - 0.18010666666666666667e1 * t11619 * t3522 + 0.81866666666666666667e0 * t13737 * t198 * t11620 + 0.26197333333333333334e-2 * t43670 * t11624 - 0.41042488888888888890e-2 * t2344 * t3718 * t89 + 0.55887644444444444448e-5 * t2344 * t12981 * t716 + 0.27733333333333333333e2 * t47165 + 0.12017777777777777778e2 * t47167 - 0.41042488888888888890e-2 * t11623 * t3526 + 0.55887644444444444448e-5 * t43651 * t11603 + 0.81866666666666666667e0 * t27408 * t13737 * t79 * t2347 + 0.26197333333333333334e-2 * t8656 * t43674 * tau[1] + 0.1031520e1 * t2344 * t3715 * t79 + 0.12017777777777777778e2 * t11561 - 0.38826666666666666666e2 * t47184 + 0.27733333333333333333e2 * t47187 - 0.18010666666666666667e1 * t8850 * t11587 * tau[1];
16399   t47200 = t13440 * t2358;
16400   t47257 = 0.20360736000000000000e-1 * t5011 * t47200 + 0.20360736000000000000e-4 * t2153 * t13426 * t2358 + 0.20823480000000000000e-1 * t16225 * t3402 * t11758 - 0.67869120000000000000e-2 * t5125 * t13419 * t2358 - 0.13573824000000000000e-1 * t5110 * t13452 * t2358 + 0.40721472000000000000e-4 * t2165 * t13462 * t2358 - 0.13327027200000000000e-6 * t2153 * t44832 * t2383 + 0.41646960000000000000e-2 * t5051 * t11044 * t11084 + 0.41646960000000000000e-2 * t5051 * t3402 * t37055 + 0.20823480000000000000e-2 * t5051 * t3402 * t36975 - 0.83293920000000000000e-2 * t5038 * t11044 * t3598 - 0.83293920000000000000e-2 * t5038 * t3402 * t11766 - 0.41646960000000000000e-2 * t5038 * t3402 * t11769 + 0.14807808000000000000e-1 * t22037 * t7017 * t13440 + 0.20823480000000000000e-1 * t16225 * t13452 * t6933 - 0.83293920000000000000e-2 * t5038 * t3421 * t37055 + 0.13882320000000000000e-1 * t5624 * t3421 * t11766 + 0.11846246400000000000e-3 * t5110 * t13462 * t2383 - 0.26654054400000000000e-6 * t2165 * t44808 * t2383;
16401   t47268 = t13440 * t36200;
16402   t47273 = t13440 * t25865;
16403   t47278 = t13440 * t2383;
16404   t47281 = t46209 * t701;
16405   t47284 = t46219 * t701;
16406   t47289 = t46134 * t701;
16407   t47295 = t11138 * t700 * t3591;
16408   t47300 = t46167 * t701;
16409   t47305 = t13783 * t701;
16410   t47310 = 0.37019520000000000000e-2 * t45203 * t13794 - 0.11105856000000000000e-4 * t13591 * t13797 + 0.41646960000000000000e-2 * t5051 * t3402 * t36959 + 0.59231232000000000000e-4 * t5125 * t13426 * t2383 - 0.22211712000000000000e-1 * t16289 * t47268 + 0.66635136000000000000e-4 * t16297 * t47268 + 0.44423424000000000000e-1 * t16305 * t47273 - 0.13327027200000000000e-3 * t16310 * t47273 - 0.17769369600000000000e-3 * t16138 * t47278 + 0.33317568000000000000e-4 * t5005 * t47281 + 0.33317568000000000000e-4 * t5005 * t47284 + 0.39981081600000000000e-6 * t16302 * t47278 - 0.11105856000000000000e-1 * t16289 * t47289 + 0.33317568000000000000e-4 * t16297 * t47289 + 0.74039040000000000000e-2 * t5777 * t47295 - 0.61082208000000000000e-4 * t5005 * t47200 + 0.22211712000000000000e-1 * t16305 * t47300 - 0.66635136000000000000e-4 * t16310 * t47300 - 0.37019520000000000000e-1 * t19757 * t47305 + 0.11105856000000000000e-3 * t19761 * t47305;
16411   t47313 = t11103 * t700 * t3601;
16412   t47361 = 0.14807808000000000000e-1 * t5797 * t47313 - 0.44423424000000000000e-4 * t5801 * t47313 - 0.22211712000000000000e-4 * t5782 * t47295 - 0.16658784000000000000e-1 * t22146 * t13440 * t6933 - 0.11105856000000000000e-1 * t5011 * t47281 - 0.11105856000000000000e-1 * t5011 * t47284 - 0.15210e2 * t5050 * t4023 * t2736 + 0.20280e2 * t34893 * t3598 + 0.20280e2 * t10680 * t11766 + 0.10140e2 * t10680 * t11769 - 0.30420e2 * t19771 * t13783 + 0.20280e2 * t5709 * t13786 + 0.10140e2 * t1764 * t1090 * t11730 - 0.30420e2 * t33848 * t11758 + 0.60840e2 * t16219 * t4023 * t2723 + 0.20823480000000000000e-2 * t45161 * t13791 - 0.13882320000000000000e-2 * t13591 * t13800 + 0.10411740000000000000e-2 * t5051 * t13419 * t2736 - 0.49359360000000000000e-2 * t22383 * t7017 * t4026 - 0.69411600000000000000e-3 * t2153 * t3402 * t11734;
16413   t47396 = t3591 * t3591;
16414   t47400 = t3601 * t3601;
16415   t47417 = 0.10411740000000000000e-2 * t1775 * t37063 * t1090 + 0.20823480000000000000e-2 * t1775 * t11044 * t3601 + 0.10411740000000000000e-2 * t1775 * t3402 * t11730 - 0.20823480000000000000e-2 * t5038 * t13452 * t2751 + 0.34705800000000000000e-2 * t5624 * t13452 * t2736 - 0.98718720000000000000e-2 * t22387 * t7017 * t4023 - 0.13882320000000000000e-2 * t2165 * t3421 * t11730 + 0.20823480000000000000e-2 * t35961 * t4030 - 0.41646960000000000000e-2 * t16220 * t13452 * t2775 - 0.20823480000000000000e-1 * t20102 * t13452 * t2723 - 0.41646960000000000000e-2 * t16220 * t13419 * t2723 - 0.34705800000000000000e-3 * t22188 * t4027 - 0.69411600000000000000e-3 * t1764 * t307 * t47396 - 0.13882320000000000000e-2 * t1812 * t307 * t47400 - 0.60840e2 * t5050 * t3598 * t3601 + 0.10140e2 * t1764 * t47400 - 0.5070e1 * t36852 * t1090 - 0.10140e2 * t11164 * t3601 - 0.5070e1 * t3391 * t11730 + 0.5070e1 * t22188 * t4023;
16416   t47432 = -t46035 / 0.16e2 - t46037 / 0.16e2 - 0.3e1 / 0.32e2 * t2423 * t4000 - 0.3e1 / 0.16e2 * t691 * t13722 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * t47192 - 0.10000000000000000000e1 * t1231 * t2816 * t4017 + t275 * (t47257 + t47310 + t47361 + t47417) + 0.16081979498692535067e2 * t1213 * t2585 * t4017 + t44985 + 0.10000000000000000000e1 * t502 * t793 * t13770 + 0.50000000000000000001e0 * t502 * t2618 * t4017 + 0.10000000000000000000e1 * t2272 * t13729;
16417   t47445 = t3718 * t184;
16418   t47448 = 0.1e1 / t8662;
16419   t47455 = t12981 * t800;
16420   t47459 = t2395 * t27151 * t2487;
16421   t47483 = -0.16374222222222222222e3 * t11561 - 0.20552833600000000000e4 * t2449 * t47445 - 0.21828000000000000000e3 * t2347 * t47448 * t27154 - 0.17490773333333333334e2 * tau[1] * t38274 * t27161 + 0.11019187200000000000e3 * t2344 * t47455 - 0.83955712000000000003e1 * t2344 * t47459 + 0.54952934400000000002e3 * t2449 * t47455 - 0.41868902400000000002e2 * t2449 * t47459 + 0.80426035200000000002e3 * t2461 * t47455 - 0.61276979200000000002e2 * t2461 * t47459 + 0.36492288000000000002e3 * t2472 * t47455 - 0.27803648000000000002e2 * t2472 * t47459 + 0.16397600000000000000e3 * tau[1] * t11506 * t8614 - 0.30079975466666666667e4 * t2461 * t47445 - 0.13648405333333333333e4 * t2472 * t47445 - 0.41212634666666666667e3 * t2344 * t47445;
16422   t47485 = t47448 * t184 * t2347;
16423   t47488 = t43745 * tau[1];
16424   t47495 = t11543 * tau[1];
16425   t47517 = -0.51642000000000000000e4 * t27257 * t47485 - 0.86999893333333333336e3 * t27260 * t47488 - 0.19006400000000000000e4 * t27286 * t47485 - 0.34754560000000000002e3 * t27289 * t47488 + 0.32582400000000000000e4 * t8706 * t47495 + 0.21274320000000000000e4 * t8656 * t47495 + 0.68614560000000000000e4 * t8679 * t47495 + 0.81562399999999999999e4 * t8694 * t47495 - 0.18527200000000000000e4 * t27220 * t47485 - 0.22692608000000000000e3 * t27234 * t47488 - 0.48980000000000000000e4 * t27226 * t47485 - 0.73188864000000000002e3 * t27229 * t47488 + 0.52901333333333333334e3 * t47147 - 0.37786666666666666667e3 * t47165 - 0.16374222222222222222e3 * t47167 + 0.52901333333333333334e3 * t47184 - 0.37786666666666666667e3 * t47187;
16426   t47539 = t2717 * t4036 - 0.15545350000000000000e-1 * t2528 * t4018 - 0.31090700000000000000e-1 * t2531 * t4018 - 0.31090700000000000000e-1 * t771 * t13771 - 0.15545350000000000000e-1 * t2551 * t4018 - 0.31090700000000000000e-1 * t779 * t13771 - 0.15545350000000000000e-1 * t166 * t180 * (t47483 + t47517) - t46390 / 0.48e2 + 0.2e1 * t859 * t13837 - t387 * t18 * t46384 * t689 / 0.16e2 - t387 * t18 * t13390 * t2421 / 0.32e2 - t1444 * t18 * t45006 * t2537 / 0.24e2 + 0.10000000000000000000e1 * t2269 * t13729;
16427   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16428     v4rho2tau2[8] = -0.3e1 / 0.16e2 * t13688 - t44741 - t13692 / 0.16e2 - 0.3e1 / 0.16e2 * t13723 - 0.31090700000000000000e-1 * t13725 - 0.31090700000000000000e-1 * t13727 + 0.10000000000000000000e1 * t13730 - 0.31090700000000000000e-1 * t13772 + 0.2e1 * t13774 + 0.2e1 * t13838 + t3 * (t47432 + t47539);
16429 
16430   t47546 = t14 * t127 * t13854 / 0.32e2;
16431   t47547 = t325 * t13853;
16432   t47554 = t1293 * t1185 * sigma[0];
16433   t47556 = t33 * t5346;
16434   t47557 = t47556 * t4144;
16435   t47559 = t343 * t16480;
16436   t47581 = 0.7661568e-5 * t11812 - 0.19609190400000000000e-6 * t47554 + 0.12847022080000000000e-8 * t47557 - 0.24916787200000000001e-11 * t47559 * t16831 + 0.19648000000000000000e-5 * t11830 * t55 * t349 + 0.19648000000000000000e-5 * t356 * t11835 - 0.9431040e-5 * t56 * t11812 + 0.88023040000000000001e-7 * t56 * t47554 - 0.78592000000000000000e-8 * tau[0] * t5320 * t360 * t1185 - 0.78592000000000000000e-8 * t364 * t5320 * t1185 * tau[0] - 0.20119552000000000001e-9 * t56 * t47557;
16437   t47598 = t16559 * t5330 * tau[0];
16438   t47609 = t1293 * t1326 * sigma[0];
16439   t47611 = t47556 * t5330;
16440   t47613 = t47559 * t16457;
16441   t47638 = -0.15741696e2 * t149 * t11859 + 0.9838560e1 * t453 * t2909 + 0.22871520000000000000e2 * t460 * t2909 + 0.15741696000000000000e2 * t149 * t47609 - 0.46175641600000000000e1 * t149 * t47611 + 0.41977855999999999999e0 * t149 * t47613 - 0.15639552e2 * t155 * t11859 + 0.13032960000000000000e2 * t470 * t2909 + 0.15639552000000000000e2 * t155 * t47609 - 0.45876019200000000000e1 * t155 * t47611 + 0.41705471999999999999e0 * t155 * t47613;
16442   t47644 = t640 * t455;
16443   t47651 = t5014 * t346;
16444   t47658 = t1801 * t455;
16445   t47665 = t5017 * t346;
16446   t47674 = t1293 * t640 * sigma[0];
16447   t47687 = t1293 * sigma[0];
16448   t47697 = -0.56223396000000000000e-7 * t1849 * t47644 * t648 + 0.56223396000000000000e-7 * t1839 * t47644 * t653 + 0.14992905600000000000e-6 * t305 * t47651 - 0.79962163200000000000e-9 * t666 * t1801 * t1293 * sigma[0] + 0.11244679200000000000e-9 * t1853 * t47658 * t648 - 0.11244679200000000000e-9 * t1844 * t47658 * t653 - 0.29985811200000000000e-9 * t305 * t47665 + 0.14992905600000000000e-11 * t671 * t5021 * t1293 * sigma[0] + 0.61236000000000000000e-5 * t11912 - 0.89792064000000000000e-7 * t47674 + 0.62470440000000000000e-5 * t656 * t13880 * t648 - 0.62470440000000000000e-5 * t662 * t13880 * t653 - 0.16658784000000000000e-4 * t305 * t11912 + 0.99952704000000000000e-7 * t305 * t47674 - 0.21426379200000000000e-6 * t47651 + 0.17385736320000000000e-8 * t16054 * t47687 + 0.13222776960000000000e-8 * t47665 - 0.88151846400000000000e-11 * t16061 * t47687 - 0.22037961600000000000e-11 * t5022 * t346 + 0.13222776960000000000e-13 * t16066 * t47687;
16449   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16450     v4rhosigma3[0] = -t13857 - t13879 + t13895 + t3 * (-0.3e1 / 0.32e2 * t316 * t13855 - t47546 - t323 * t18 * t47547 * t314 / 0.32e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * t47581 - 0.15545350000000000000e-1 * t395 * t13877 - 0.15545350000000000000e-1 * t413 * t13877 + 0.50000000000000000001e0 * t418 * t441 * t13876 - 0.15545350000000000000e-1 * t115 * t136 * (-0.59031360e1 * t2898 * t11887 - 0.13722912000000000000e2 * t2901 * t11887 + 0.78708480e0 * t454 * t47598 + 0.18297216000000000000e1 * t461 * t47598 - 0.78197760000000000000e1 * t2916 * t11887 + 0.10426368000000000000e1 * t471 * t47598 - 0.1424640e1 * t11859 + 0.14246400000000000000e1 * t47609 - 0.41789440000000000000e0 * t47611 + 0.37990399999999999999e-1 * t47613 + t47638) + t629 * t13894 + t275 * t47697);
16451 
16452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16453     v4rhosigma3[1] = 0.0e0;
16454 
16455   t47701 = t275 * t13914;
16456   t47704 = t75 * t346 * sigma[0];
16457   t47721 = t3019 * t339;
16458   t47736 = t37 * t648;
16459   t47740 = t37 * t653;
16460   t47756 = -0.88151846400000000000e-11 * t16061 * t47704 - 0.14691974400000000000e-11 * t5022 * t11979 + 0.13222776960000000000e-13 * t16066 * t47704 - 0.14284252800000000000e-6 * t5014 * t11979 + 0.17385736320000000000e-8 * t16054 * t47704 + 0.88151846400000000000e-9 * t5017 * t11979 + 0.62470440000000000000e-5 * t39305 * t3023 - 0.62470440000000000000e-5 * t39309 * t3026 - 0.11105856000000000000e-4 * t305 * t47721 + 0.99952704000000000000e-7 * t39312 * t3029 * sigma[0] - 0.19990540800000000000e-9 * t671 * t9251 * t339 + 0.14992905600000000000e-11 * t671 * t29472 * t11947 + 0.40824000000000000000e-5 * t47721 - 0.89792064000000000000e-7 * t3029 * t11947 - 0.56223396000000000000e-7 * t1849 * t3029 * t47736 + 0.56223396000000000000e-7 * t1839 * t3029 * t47740 + 0.99952704000000000000e-7 * t666 * t3029 * t339 - 0.79962163200000000000e-9 * t666 * t9251 * t11947 + 0.11244679200000000000e-9 * t1853 * t9251 * t47736 - 0.11244679200000000000e-9 * t1844 * t9251 * t47740;
16461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16462     v4rhosigma3[2] = t11962 * t13914 + t3694 * t47756 + t47701;
16463 
16464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16465     v4rhosigma3[3] = 0.0e0;
16466 
16467   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16468     v4rhosigma3[4] = 0.0e0;
16469 
16470   t47758 = t275 * t13932;
16471   t47764 = t12038 * t333;
16472   t47769 = t86 * t333;
16473   t47773 = t86 * t339 * sigma[0];
16474   t47811 = 0.62470440000000000000e-5 * t39096 * t2965 - 0.62470440000000000000e-5 * t39099 * t2968 - 0.55529280000000000000e-5 * t305 * t47764 + 0.99952704000000000000e-7 * t12055 * t2972 - 0.71421264000000000000e-7 * t5014 * t47769 + 0.17385736320000000000e-8 * t16054 * t47773 + 0.44075923200000000000e-9 * t5017 * t47769 - 0.88151846400000000000e-11 * t16061 * t47773 - 0.73459872000000000000e-12 * t5022 * t47769 + 0.13222776960000000000e-13 * t16066 * t47773 - 0.56223396000000000000e-7 * t1849 * t12064 * t9495 + 0.56223396000000000000e-7 * t1839 * t12064 * t9500 + 0.49976352000000000000e-7 * t666 * t12064 * t333 - 0.79962163200000000000e-9 * t666 * t12074 * t2891 + 0.11244679200000000000e-9 * t1853 * t12074 * t9495 - 0.11244679200000000000e-9 * t1844 * t12074 * t9500 - 0.99952704000000000000e-10 * t671 * t12074 * t333 + 0.14992905600000000000e-11 * t671 * t39132 * t2891 + 0.20412000000000000000e-5 * t47764 - 0.89792064000000000000e-7 * t12064 * t2891;
16475   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16476     v4rhosigma3[5] = t11962 * t13932 + t3694 * t47811 + t47758;
16477 
16478   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16479     v4rhosigma3[6] = 0.0e0;
16480 
16481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16482     v4rhosigma3[7] = 0.0e0;
16483 
16484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16485     v4rhosigma3[8] = 0.0e0;
16486 
16487   t47817 = t67 * t127 * t13946 / 0.32e2;
16488   t47818 = t389 * t13945;
16489   t47831 = t807 * t640;
16490   t47835 = t807 * sigma[0] * t333;
16491   t47857 = t1801 * t807;
16492   t47867 = t5021 * t807;
16493   t47871 = -0.89792064000000000000e-7 * t47831 * t334 + 0.17385736320000000000e-8 * t16054 * t47835 - 0.88151846400000000000e-11 * t16061 * t47835 + 0.13222776960000000000e-13 * t16066 * t47835 + 0.62470440000000000000e-5 * t656 * t13972 * t648 - 0.62470440000000000000e-5 * t662 * t13972 * t653 + 0.99952704000000000000e-7 * t305 * t807 * t25972 - 0.56223396000000000000e-7 * t1849 * t47831 * t648 + 0.56223396000000000000e-7 * t1839 * t47831 * t653 - 0.79962163200000000000e-9 * t666 * t47857 * t334 + 0.11244679200000000000e-9 * t1853 * t47857 * t648 - 0.11244679200000000000e-9 * t1844 * t47857 * t653 + 0.14992905600000000000e-11 * t671 * t47867 * t334;
16494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16495     v4rhosigma3[9] = -t13949 - t13971 + t13987 + t3 * (-0.3e1 / 0.32e2 * t380 * t13947 - t47817 - t387 * t18 * t47818 * t378 / 0.32e2 - 0.15545350000000000000e-1 * t482 * t13969 - 0.15545350000000000000e-1 * t497 * t13969 + 0.50000000000000000001e0 * t502 * t522 * t13968 + t629 * t13986 + t275 * t47871);
16496 
16497   t47892 = t455 * sigma[2] * t700;
16498   t47927 = -0.89792064000000000000e-7 * t47644 * t701 + 0.17385736320000000000e-8 * t16054 * t47892 - 0.88151846400000000000e-11 * t16061 * t47892 + 0.13222776960000000000e-13 * t16066 * t47892 + 0.62470440000000000000e-5 * t656 * t13880 * t873 - 0.62470440000000000000e-5 * t662 * t13880 * t876 + 0.99952704000000000000e-7 * t305 * t455 * t20154 - 0.56223396000000000000e-7 * t1849 * t47644 * t873 + 0.56223396000000000000e-7 * t1839 * t47644 * t876 - 0.79962163200000000000e-9 * t666 * t47658 * t701 + 0.11244679200000000000e-9 * t1853 * t47658 * t873 - 0.11244679200000000000e-9 * t1844 * t47658 * t876 + 0.14992905600000000000e-11 * t671 * t5021 * t455 * t701;
16499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16500     v4rhosigma3[10] = -t13857 - t13879 + t13895 + t3 * (-0.3e1 / 0.32e2 * t682 * t13855 - t47546 - t323 * t18 * t47547 * t680 / 0.32e2 - 0.15545350000000000000e-1 * t745 * t13877 - 0.15545350000000000000e-1 * t753 * t13877 + 0.50000000000000000001e0 * t418 * t767 * t13876 + t859 * t13894 + t275 * t47927);
16501 
16502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16503     v4rhosigma3[11] = 0.0e0;
16504 
16505   t47957 = t9504 * t37;
16506   t47967 = t706 * t37 * sigma[2];
16507   t47970 = t700 * t37;
16508   t47984 = -0.56223396000000000000e-7 * t1849 * t3029 * t31006 + 0.56223396000000000000e-7 * t1839 * t3029 * t39899 + 0.49976352000000000000e-7 * t666 * t9699 * t37 - 0.79962163200000000000e-9 * t666 * t12182 * t12098 + 0.11244679200000000000e-9 * t1853 * t9251 * t31006 - 0.11244679200000000000e-9 * t1844 * t9251 * t39899 - 0.99952704000000000000e-10 * t671 * t30636 * t37 + 0.14992905600000000000e-11 * t671 * t5021 * t706 * t12098 - 0.55529280000000000000e-5 * t305 * t47957 + 0.99952704000000000000e-7 * t12112 * t3216 + 0.62470440000000000000e-5 * t39305 * t3209 - 0.62470440000000000000e-5 * t39309 * t3212 + 0.13222776960000000000e-13 * t16066 * t47967 - 0.71421264000000000000e-7 * t5014 * t47970 + 0.17385736320000000000e-8 * t16054 * t47967 + 0.44075923200000000000e-9 * t5017 * t47970 - 0.88151846400000000000e-11 * t16061 * t47967 - 0.73459872000000000000e-12 * t5022 * t47970 + 0.20412000000000000000e-5 * t47957 - 0.89792064000000000000e-7 * t3215 * t12098;
16509   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16510     v4rhosigma3[12] = t12138 * t13914 + t3694 * t47984 + t47701;
16511 
16512   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16513     v4rhosigma3[13] = 0.0e0;
16514 
16515   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16516     v4rhosigma3[14] = 0.0e0;
16517 
16518   t47990 = t713 * t26 * sigma[2];
16519   t48001 = t3203 * t26;
16520   t48039 = -0.14284252800000000000e-6 * t5014 * t12152 + 0.17385736320000000000e-8 * t16054 * t47990 + 0.88151846400000000000e-9 * t5017 * t12152 - 0.88151846400000000000e-11 * t16061 * t47990 - 0.14691974400000000000e-11 * t5022 * t12152 + 0.13222776960000000000e-13 * t16066 * t47990 + 0.40824000000000000000e-5 * t48001 - 0.89792064000000000000e-7 * t12314 * t3053 + 0.62470440000000000000e-5 * t39096 * t3075 - 0.62470440000000000000e-5 * t39099 * t3078 - 0.11105856000000000000e-4 * t305 * t48001 + 0.99952704000000000000e-7 * t39749 * t3081 * sigma[2] - 0.56223396000000000000e-7 * t1849 * t12064 * t9811 + 0.56223396000000000000e-7 * t1839 * t12064 * t9794 + 0.99952704000000000000e-7 * t666 * t3215 * t26 - 0.79962163200000000000e-9 * t666 * t12327 * t3053 + 0.11244679200000000000e-9 * t1853 * t12074 * t9811 - 0.11244679200000000000e-9 * t1844 * t12074 * t9794 - 0.19990540800000000000e-9 * t671 * t12182 * t26 + 0.14992905600000000000e-11 * t671 * t5021 * t713 * t3053;
16521   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16522     v4rhosigma3[15] = t12138 * t13932 + t3694 * t48039 + t47758;
16523 
16524   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16525     v4rhosigma3[16] = 0.0e0;
16526 
16527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16528     v4rhosigma3[17] = 0.0e0;
16529 
16530   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16531     v4rhosigma3[18] = 0.0e0;
16532 
16533   t48049 = t2456 * t2401 * sigma[2];
16534   t48051 = t82 * t8664;
16535   t48052 = t48051 * t8880;
16536   t48054 = t710 * t27158;
16537   t48076 = 0.7661568e-5 * t12201 - 0.19609190400000000000e-6 * t48049 + 0.12847022080000000000e-8 * t48052 - 0.24916787200000000001e-11 * t48054 * t27405 + 0.19648000000000000000e-5 * t12219 * t97 * t716 + 0.19648000000000000000e-5 * t723 * t12224 - 0.9431040e-5 * t98 * t12201 + 0.88023040000000000001e-7 * t98 * t48049 - 0.78592000000000000000e-8 * tau[1] * t8611 * t727 * t2401 - 0.78592000000000000000e-8 * t731 * t8611 * t2401 * tau[1] - 0.20119552000000000001e-9 * t98 * t48052;
16538   t48090 = t2456 * t2487 * sigma[2];
16539   t48092 = t48051 * t8631;
16540   t48094 = t48054 * t27128;
16541   t48124 = t27151 * t8631 * tau[1];
16542   t48133 = -0.15639552e2 * t199 * t12257 + 0.13032960000000000000e2 * t822 * t3155 + 0.15639552000000000000e2 * t199 * t48090 - 0.45876019200000000000e1 * t199 * t48092 + 0.41705471999999999999e0 * t199 * t48094 - 0.59031360e1 * t3144 * t12246 - 0.13722912000000000000e2 * t3147 * t12246 + 0.78708480e0 * t806 * t48124 + 0.18297216000000000000e1 * t813 * t48124 - 0.78197760000000000000e1 * t3162 * t12246 + 0.10426368000000000000e1 * t823 * t48124;
16543   t48145 = t5017 * t713;
16544   t48158 = t5014 * t713;
16545   t48166 = t2456 * sigma[2];
16546   t48178 = t2456 * t640 * sigma[2];
16547   t48190 = 0.11244679200000000000e-9 * t1853 * t47857 * t873 - 0.11244679200000000000e-9 * t1844 * t47857 * t876 - 0.29985811200000000000e-9 * t305 * t48145 + 0.14992905600000000000e-11 * t671 * t5021 * t2456 * sigma[2] - 0.56223396000000000000e-7 * t1849 * t47831 * t873 + 0.56223396000000000000e-7 * t1839 * t47831 * t876 + 0.14992905600000000000e-6 * t305 * t48158 - 0.79962163200000000000e-9 * t666 * t1801 * t2456 * sigma[2] - 0.21426379200000000000e-6 * t48158 + 0.17385736320000000000e-8 * t16054 * t48166 + 0.13222776960000000000e-8 * t48145 - 0.88151846400000000000e-11 * t16061 * t48166 - 0.22037961600000000000e-11 * t5022 * t713 + 0.13222776960000000000e-13 * t16066 * t48166 + 0.61236000000000000000e-5 * t12301 - 0.89792064000000000000e-7 * t48178 + 0.62470440000000000000e-5 * t656 * t13972 * t873 - 0.62470440000000000000e-5 * t662 * t13972 * t876 - 0.16658784000000000000e-4 * t305 * t12301 + 0.99952704000000000000e-7 * t305 * t48178;
16548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16549     v4rhosigma3[19] = -t13949 - t13971 + t13987 + t3 * (-0.3e1 / 0.32e2 * t691 * t13947 - t47817 - t387 * t18 * t47818 * t689 / 0.32e2 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * t48076 - 0.15545350000000000000e-1 * t771 * t13969 - 0.15545350000000000000e-1 * t779 * t13969 + 0.50000000000000000001e0 * t502 * t793 * t13968 - 0.15545350000000000000e-1 * t166 * t180 * (-0.1424640e1 * t12257 + 0.14246400000000000000e1 * t48090 - 0.41789440000000000000e0 * t48092 + 0.37990399999999999999e-1 * t48094 - 0.15741696e2 * t193 * t12257 + 0.9838560e1 * t805 * t3155 + 0.22871520000000000000e2 * t812 * t3155 + 0.15741696000000000000e2 * t193 * t48090 - 0.46175641600000000000e1 * t193 * t48092 + 0.41977855999999999999e0 * t193 * t48094 + t48133) + t859 * t13986 + t275 * t48190);
16550 
16551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16552     v4rhosigma2lapl[0] = 0.0e0;
16553 
16554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16555     v4rhosigma2lapl[1] = 0.0e0;
16556 
16557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16558     v4rhosigma2lapl[2] = 0.0e0;
16559 
16560   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16561     v4rhosigma2lapl[3] = 0.0e0;
16562 
16563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16564     v4rhosigma2lapl[4] = 0.0e0;
16565 
16566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16567     v4rhosigma2lapl[5] = 0.0e0;
16568 
16569   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16570     v4rhosigma2lapl[6] = 0.0e0;
16571 
16572   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16573     v4rhosigma2lapl[7] = 0.0e0;
16574 
16575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16576     v4rhosigma2lapl[8] = 0.0e0;
16577 
16578   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16579     v4rhosigma2lapl[9] = 0.0e0;
16580 
16581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16582     v4rhosigma2lapl[10] = 0.0e0;
16583 
16584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16585     v4rhosigma2lapl[11] = 0.0e0;
16586 
16587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16588     v4rhosigma2lapl[12] = 0.0e0;
16589 
16590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16591     v4rhosigma2lapl[13] = 0.0e0;
16592 
16593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16594     v4rhosigma2lapl[14] = 0.0e0;
16595 
16596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16597     v4rhosigma2lapl[15] = 0.0e0;
16598 
16599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16600     v4rhosigma2lapl[16] = 0.0e0;
16601 
16602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16603     v4rhosigma2lapl[17] = 0.0e0;
16604 
16605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16606     v4rhosigma2lapl[18] = 0.0e0;
16607 
16608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16609     v4rhosigma2lapl[19] = 0.0e0;
16610 
16611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16612     v4rhosigma2lapl[20] = 0.0e0;
16613 
16614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16615     v4rhosigma2lapl[21] = 0.0e0;
16616 
16617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16618     v4rhosigma2lapl[22] = 0.0e0;
16619 
16620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16621     v4rhosigma2lapl[23] = 0.0e0;
16622 
16623   t48198 = t14 * t127 * t14003 / 0.32e2;
16624   t48199 = t325 * t14002;
16625   t48210 = t10494 * t355;
16626   t48247 = t2908 * sigma[0];
16627   t48250 = t13846 * t1326;
16628   t48254 = t343 * t16559 * t5330;
16629   t48271 = 0.16397600000000000000e2 * t1133 * t3285 + 0.8177520e2 * t1315 * t3285 + 0.43289664000000000000e2 * t453 * t48247 - 0.13577212800000000000e2 * t453 * t48250 + 0.12593356800000000000e1 * t453 * t48254 - 0.8005032e2 * t460 * t456 + 0.11968160000000000000e3 * t1282 * t3285 + 0.10063468800000000000e3 * t460 * t48247 - 0.31562697600000000000e2 * t460 * t48250 + 0.29275545600000000000e1 * t460 * t48254 - 0.4561536e2 * t470 * t456 + 0.54304000000000000000e2 * t1302 * t3285;
16630   t48281 = t32836 * t1326 * tau[0];
16631   t48298 = 0.57345024000000000000e2 * t470 * t48247 - 0.17985484800000000000e2 * t470 * t48250 + 0.16682188800000000000e1 * t470 * t48254 - 0.3443496e2 * t453 * t456 + 0.65164800000000000000e1 * t1303 * t48281 - 0.13118080000000000000e2 * t1138 * t12409 - 0.65420160e2 * t9145 * t12409 + 0.19677120000000000000e1 * t1312 * t48281 + 0.98130240e1 * t1316 * t48281 - 0.95745280000000000000e2 * t9150 * t12409 + 0.14361792000000000000e2 * t1283 * t48281 - 0.43443200000000000000e2 * t9138 * t12409;
16632   t48344 = 0.22211712000000000000e-4 * t1839 * t3359 * t339 - 0.49976352000000000000e-7 * t1844 * t10341 * t339 - 0.22211712000000000000e-4 * t1849 * t3342 * t339 + 0.49976352000000000000e-7 * t1853 * t10323 * t339 - 0.69411600000000000000e-3 * t39388 * t3333 + 0.10411740000000000000e-2 * t38672 * t3336 - 0.16658784000000000000e-4 * t38675 * t3342 * sigma[0] + 0.41646960000000000000e-5 * t1849 * t10319 * t37 - 0.93705660000000000000e-8 * t1853 * t33211 * t37 + 0.10411740000000000000e-2 * t38672 * t3350 - 0.13882320000000000000e-2 * t39398 * t3353 + 0.16658784000000000000e-4 * t38679 * t3359 * sigma[0] - 0.41646960000000000000e-5 * t1839 * t10337 * t37 + 0.93705660000000000000e-8 * t1844 * t33197 * t37 - 0.18509760000000000000e-2 * t662 * t12483;
16633   t48389 = 0.18509760000000000000e-2 * t656 * t12449 - 0.34705800000000000000e-3 * t656 * t3677 * t3318 + 0.34705800000000000000e-3 * t662 * t3677 * t3329 - 0.12494088000000000000e-4 * t9016 * t3359 * t47736 + 0.16658784000000000000e-4 * t5110 * t3359 * t47740 - 0.14992905600000000000e-6 * t1839 * t10341 * t11947 + 0.28111698000000000000e-7 * t1775 * t10341 * t47736 - 0.37482264000000000000e-7 * t2165 * t10341 * t47740 + 0.29985811200000000000e-9 * t1844 * t33201 * t11947 + 0.83293920000000000000e-5 * t5125 * t3342 * t47736 - 0.12494088000000000000e-4 * t9016 * t3342 * t47740 + 0.14992905600000000000e-6 * t1849 * t10323 * t11947 - 0.18741132000000000000e-7 * t2153 * t10323 * t47736 + 0.28111698000000000000e-7 * t1775 * t10323 * t47740 - 0.29985811200000000000e-9 * t1853 * t33215 * t11947;
16634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16635     v4rhosigma2tau[0] = -t14006 - t14032 + t14052 + t3 * (-0.3e1 / 0.32e2 * t316 * t14004 - t48198 - t323 * t18 * t48199 * t314 / 0.32e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (-0.687680e-3 * t3252 * t40 + 0.32746666666666666666e-3 * t12365 * t9056 + 0.58944000000000000000e-5 * t12368 * t13992 - 0.13098666666666666667e-5 * t48210 * t38895 - 0.12574720000000000000e-7 * t5320 * t55 * t33 * t1185 + 0.32746666666666666667e-3 * t1133 * t12380 - 0.687680e-3 * t356 * t2873 + 0.58944000000000000000e-5 * t356 * t11834 * sigma[0] - 0.13098666666666666667e-5 * t1138 * t10494 * t349 * tau[0] - 0.12574720000000000000e-7 * t356 * t13846 * t1185) - 0.15545350000000000000e-1 * t395 * t14030 - 0.15545350000000000000e-1 * t413 * t14030 + 0.50000000000000000001e0 * t418 * t441 * t14029 - 0.15545350000000000000e-1 * t115 * t136 * (t48271 + t48298) + t629 * t14051 + t275 * (t48344 + t48389));
16636 
16637   t48394 = t275 * t14072;
16638   t48399 = t3416 * t93;
16639   t48434 = -0.16658784000000000000e-4 * t38675 * t3412 * sigma[0] - 0.11568600000000000000e-2 * t39361 * t48399 + 0.10411740000000000000e-2 * t38672 * t3422 - 0.13882320000000000000e-2 * t39398 * t3425 + 0.16658784000000000000e-4 * t38679 * t3431 * sigma[0] - 0.11568600000000000000e-2 * t39302 * t48399 - 0.49976352000000000000e-7 * t1844 * t10733 * t339 - 0.22211712000000000000e-4 * t1849 * t3412 * t339 + 0.49976352000000000000e-7 * t1853 * t10723 * t339 + 0.22211712000000000000e-4 * t1839 * t3431 * t339 - 0.69411600000000000000e-3 * t39388 * t3403 + 0.10411740000000000000e-2 * t38672 * t3406 - 0.18509760000000000000e-2 * t662 * t12559 + 0.18509760000000000000e-2 * t656 * t12523 + 0.29985811200000000000e-9 * t1844 * t33644 * t11947;
16640   t48435 = t640 * tau[0];
16641   t48436 = t455 * t93;
16642   t48437 = t48435 * t48436;
16643   t48449 = t12545 * t48436;
16644   t48480 = -0.31235220000000000000e-7 * t1844 * t48437 + 0.83293920000000000000e-5 * t5125 * t3412 * t47736 - 0.12494088000000000000e-4 * t9016 * t3412 * t47740 + 0.14992905600000000000e-6 * t1849 * t10723 * t11947 + 0.13882320000000000000e-4 * t1849 * t48449 - 0.18741132000000000000e-7 * t2153 * t10723 * t47736 + 0.28111698000000000000e-7 * t1775 * t10723 * t47740 - 0.29985811200000000000e-9 * t1853 * t33660 * t11947 - 0.31235220000000000000e-7 * t1853 * t48437 - 0.12494088000000000000e-4 * t9016 * t3431 * t47736 + 0.16658784000000000000e-4 * t5110 * t3431 * t47740 - 0.14992905600000000000e-6 * t1839 * t10733 * t11947 + 0.13882320000000000000e-4 * t1839 * t48449 + 0.28111698000000000000e-7 * t1775 * t10733 * t47736 - 0.37482264000000000000e-7 * t2165 * t10733 * t47740;
16645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16646     v4rhosigma2tau[1] = t48394 + t11962 * t14072 + t3694 * (t48434 + t48480);
16647 
16648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16649     v4rhosigma2tau[2] = 0.0e0;
16650 
16651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16652     v4rhosigma2tau[3] = 0.0e0;
16653 
16654   t48483 = t275 * t14089;
16655   t48522 = -0.34705800000000000000e-3 * t11964 * t12602 + 0.34705800000000000000e-3 * t11967 * t12629 + 0.92548800000000000000e-3 * t39032 * t3834 - 0.92548800000000000000e-3 * t39038 * t3840 + 0.16658784000000000000e-4 * t38940 * t3359 * t3002 - 0.41646960000000000000e-5 * t1839 * t10337 * t3697 + 0.93705660000000000000e-8 * t1844 * t33197 * t3697 - 0.69411600000000000000e-3 * t34412 * t12589 + 0.10411740000000000000e-2 * t38954 * t12592 - 0.16658784000000000000e-4 * t38957 * t3342 * t3002 + 0.41646960000000000000e-5 * t1849 * t10319 * t3697 - 0.93705660000000000000e-8 * t1853 * t33211 * t3697 + 0.10411740000000000000e-2 * t38954 * t12616 - 0.13882320000000000000e-2 * t39035 * t12619 - 0.24988176000000000000e-7 * t1844 * t10341 * t11976;
16656   t48532 = t12622 * t9495;
16657   t48535 = t12622 * t9500;
16658   t48538 = t12622 * t2891;
16659   t48541 = t12595 * t9495;
16660   t48544 = t12595 * t9500;
16661   t48547 = t12595 * t2891;
16662   t48562 = -0.11105856000000000000e-4 * t1849 * t3342 * t11976 + 0.24988176000000000000e-7 * t1853 * t10323 * t11976 + 0.11105856000000000000e-4 * t1839 * t3359 * t11976 + 0.28111698000000000000e-7 * t16302 * t48532 - 0.37482264000000000000e-7 * t19672 * t48535 + 0.29985811200000000000e-9 * t20125 * t48538 + 0.83293920000000000000e-5 * t19689 * t48541 - 0.12494088000000000000e-4 * t16138 * t48544 + 0.14992905600000000000e-6 * t20112 * t48547 - 0.18741132000000000000e-7 * t19695 * t48541 + 0.28111698000000000000e-7 * t16302 * t48544 - 0.29985811200000000000e-9 * t20117 * t48547 - 0.12494088000000000000e-4 * t16138 * t48532 + 0.16658784000000000000e-4 * t19666 * t48535 - 0.14992905600000000000e-6 * t20120 * t48538;
16663   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16664     v4rhosigma2tau[4] = t48483 + t11962 * t14089 + t3694 * (t48522 + t48562);
16665 
16666   t48565 = t275 * t14106;
16667   t48571 = t3416 * t1053;
16668   t48588 = t48435 * t35070;
16669   t48598 = t12545 * t35070;
16670   t48605 = 0.92548800000000000000e-3 * t39032 * t3884 - 0.92548800000000000000e-3 * t39038 * t3890 - 0.11568600000000000000e-2 * t39305 * t48571 - 0.11568600000000000000e-2 * t39309 * t48571 + 0.24988176000000000000e-7 * t1853 * t10723 * t11976 + 0.11105856000000000000e-4 * t1839 * t3431 * t11976 - 0.24988176000000000000e-7 * t1844 * t10733 * t11976 - 0.11105856000000000000e-4 * t1849 * t3412 * t11976 - 0.31235220000000000000e-7 * t1844 * t48588 - 0.69411600000000000000e-3 * t34412 * t12663 + 0.10411740000000000000e-2 * t38954 * t12666 - 0.16658784000000000000e-4 * t38957 * t3412 * t3002 + 0.13882320000000000000e-4 * t1849 * t48598 - 0.31235220000000000000e-7 * t1853 * t48588 + 0.10411740000000000000e-2 * t38954 * t12691;
16671   t48613 = t12669 * t2891;
16672   t48616 = t12697 * t9495;
16673   t48619 = t12697 * t9500;
16674   t48622 = t12697 * t2891;
16675   t48631 = t12669 * t9495;
16676   t48634 = t12669 * t9500;
16677   t48643 = -0.13882320000000000000e-2 * t39035 * t12694 + 0.16658784000000000000e-4 * t38940 * t3431 * t3002 + 0.13882320000000000000e-4 * t1839 * t48598 - 0.29985811200000000000e-9 * t20117 * t48613 - 0.12494088000000000000e-4 * t16138 * t48616 + 0.16658784000000000000e-4 * t19666 * t48619 - 0.14992905600000000000e-6 * t20120 * t48622 + 0.28111698000000000000e-7 * t16302 * t48616 - 0.37482264000000000000e-7 * t19672 * t48619 + 0.29985811200000000000e-9 * t20125 * t48622 + 0.83293920000000000000e-5 * t19689 * t48631 - 0.12494088000000000000e-4 * t16138 * t48634 + 0.14992905600000000000e-6 * t20112 * t48613 - 0.18741132000000000000e-7 * t19695 * t48631 + 0.28111698000000000000e-7 * t16302 * t48634;
16678   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16679     v4rhosigma2tau[5] = t48565 + t11962 * t14106 + t3694 * (t48605 + t48643);
16680 
16681   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16682     v4rhosigma2tau[6] = 0.0e0;
16683 
16684   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16685     v4rhosigma2tau[7] = 0.0e0;
16686 
16687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16688     v4rhosigma2tau[8] = 0.0e0;
16689 
16690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16691     v4rhosigma2tau[9] = 0.0e0;
16692 
16693   t48646 = t275 * t14125;
16694   t48648 = t42410 * t334;
16695   t48651 = t42327 * t334;
16696   t48678 = 0.29985811200000000000e-9 * t20125 * t48648 + 0.14992905600000000000e-6 * t20112 * t48651 - 0.29985811200000000000e-9 * t20117 * t48651 - 0.14992905600000000000e-6 * t20120 * t48648 - 0.34705800000000000000e-3 * t656 * t3752 * t3318 + 0.34705800000000000000e-3 * t662 * t3752 * t3329 - 0.69411600000000000000e-3 * t39713 * t3333 + 0.10411740000000000000e-2 * t39079 * t3336 + 0.41646960000000000000e-5 * t1849 * t10319 * t86 - 0.93705660000000000000e-8 * t1853 * t33211 * t86 + 0.10411740000000000000e-2 * t39079 * t3350 - 0.13882320000000000000e-2 * t39720 * t3353;
16697   t48713 = -0.41646960000000000000e-5 * t1839 * t10337 * t86 + 0.93705660000000000000e-8 * t1844 * t33197 * t86 - 0.16658784000000000000e-4 * t39096 * t3343 + 0.83293920000000000000e-5 * t5125 * t3342 * t39071 - 0.12494088000000000000e-4 * t9016 * t3342 * t39067 - 0.18741132000000000000e-7 * t2153 * t10323 * t39071 + 0.28111698000000000000e-7 * t1775 * t10323 * t39067 + 0.16658784000000000000e-4 * t39099 * t3360 - 0.12494088000000000000e-4 * t9016 * t3359 * t39071 + 0.16658784000000000000e-4 * t5110 * t3359 * t39067 + 0.28111698000000000000e-7 * t1775 * t10341 * t39071 - 0.37482264000000000000e-7 * t2165 * t10341 * t39067;
16698   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16699     v4rhosigma2tau[10] = t48646 + t11962 * t14125 + t3694 * (t48678 + t48713);
16700 
16701   t48720 = t67 * t127 * t14140 / 0.32e2;
16702   t48721 = t389 * t14139;
16703   t48734 = t42611 * t334;
16704   t48737 = t42595 * t334;
16705   t48754 = t3416 * t26;
16706   t48764 = 0.29985811200000000000e-9 * t20125 * t48734 + 0.14992905600000000000e-6 * t20112 * t48737 - 0.29985811200000000000e-9 * t20117 * t48737 - 0.14992905600000000000e-6 * t20120 * t48734 - 0.16658784000000000000e-4 * t39096 * t3413 + 0.83293920000000000000e-5 * t5125 * t3412 * t39071 - 0.69411600000000000000e-3 * t39713 * t3403 + 0.10411740000000000000e-2 * t39079 * t3406 - 0.11568600000000000000e-2 * t656 * t1070 * t48754 + 0.10411740000000000000e-2 * t39079 * t3422 - 0.13882320000000000000e-2 * t39720 * t3425 - 0.11568600000000000000e-2 * t662 * t1070 * t48754;
16707   t48768 = t26 * t1070;
16708   t48769 = t12545 * t48768;
16709   t48778 = t48435 * t48768;
16710   t48799 = -0.12494088000000000000e-4 * t9016 * t3412 * t39067 + 0.13882320000000000000e-4 * t1849 * t48769 - 0.18741132000000000000e-7 * t2153 * t10723 * t39071 + 0.28111698000000000000e-7 * t1775 * t10723 * t39067 - 0.31235220000000000000e-7 * t1853 * t48778 + 0.16658784000000000000e-4 * t39099 * t3432 - 0.12494088000000000000e-4 * t9016 * t3431 * t39071 + 0.16658784000000000000e-4 * t5110 * t3431 * t39067 + 0.13882320000000000000e-4 * t1839 * t48769 + 0.28111698000000000000e-7 * t1775 * t10733 * t39071 - 0.37482264000000000000e-7 * t2165 * t10733 * t39067 - 0.31235220000000000000e-7 * t1844 * t48778;
16711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16712     v4rhosigma2tau[11] = -t14143 - t14169 + t14189 + t3 * (-0.3e1 / 0.32e2 * t380 * t14141 - t48720 - t387 * t18 * t48721 * t378 / 0.32e2 - 0.15545350000000000000e-1 * t482 * t14167 - 0.15545350000000000000e-1 * t497 * t14167 + 0.50000000000000000001e0 * t502 * t522 * t14166 + t629 * t14188 + t275 * (t48764 + t48799));
16713 
16714   t48818 = t41642 * t701;
16715   t48821 = t41664 * t701;
16716   t48829 = t36006 * t75;
16717   t48843 = t287 * t1015;
16718   t48844 = t48843 * t719;
16719   t48850 = 0.29985811200000000000e-9 * t20125 * t48818 + 0.14992905600000000000e-6 * t20112 * t48821 - 0.29985811200000000000e-9 * t20117 * t48821 - 0.14992905600000000000e-6 * t20120 * t48818 - 0.11568600000000000000e-2 * t662 * t1015 * t48829 - 0.69411600000000000000e-3 * t39388 * t3468 + 0.10411740000000000000e-2 * t38672 * t3471 - 0.11568600000000000000e-2 * t656 * t1015 * t48829 + 0.10411740000000000000e-2 * t38672 * t3484 - 0.13882320000000000000e-2 * t39398 * t3487 + 0.13882320000000000000e-4 * t1849 * t48844 - 0.18741132000000000000e-7 * t2153 * t10323 * t31006;
16720   t48854 = t640 * t1015;
16721   t48855 = t48854 * t719;
16722   t48884 = 0.28111698000000000000e-7 * t1775 * t10323 * t39899 - 0.31235220000000000000e-7 * t1853 * t48855 + 0.16658784000000000000e-4 * t39309 * t3493 - 0.12494088000000000000e-4 * t9016 * t3359 * t31006 + 0.16658784000000000000e-4 * t5110 * t3359 * t39899 + 0.13882320000000000000e-4 * t1839 * t48844 + 0.28111698000000000000e-7 * t1775 * t10341 * t31006 - 0.37482264000000000000e-7 * t2165 * t10341 * t39899 - 0.31235220000000000000e-7 * t1844 * t48855 - 0.16658784000000000000e-4 * t39305 * t3477 + 0.83293920000000000000e-5 * t5125 * t3342 * t31006 - 0.12494088000000000000e-4 * t9016 * t3342 * t39899;
16723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16724     v4rhosigma2tau[12] = -t14006 - t14032 + t14052 + t3 * (-0.3e1 / 0.32e2 * t682 * t14004 - t48198 - t323 * t18 * t48199 * t680 / 0.32e2 - 0.15545350000000000000e-1 * t745 * t14030 - 0.15545350000000000000e-1 * t753 * t14030 + 0.50000000000000000001e0 * t418 * t767 * t14029 + t859 * t14051 + t275 * (t48850 + t48884));
16725 
16726   t48920 = -0.16658784000000000000e-4 * t39305 * t3613 + 0.83293920000000000000e-5 * t5125 * t3412 * t31006 - 0.12494088000000000000e-4 * t9016 * t3412 * t39899 - 0.18741132000000000000e-7 * t2153 * t10723 * t31006 + 0.28111698000000000000e-7 * t1775 * t10723 * t39899 + 0.16658784000000000000e-4 * t39309 * t3628 - 0.69411600000000000000e-3 * t39388 * t3604 + 0.10411740000000000000e-2 * t38672 * t3607 + 0.41646960000000000000e-5 * t1849 * t11073 * t37 - 0.93705660000000000000e-8 * t1853 * t35141 * t37 + 0.10411740000000000000e-2 * t38672 * t3619 - 0.13882320000000000000e-2 * t39398 * t3622;
16727   t48927 = t42093 * t701;
16728   t48932 = t42115 * t701;
16729   t48955 = -0.41646960000000000000e-5 * t1839 * t11218 * t37 + 0.93705660000000000000e-8 * t1844 * t35095 * t37 + 0.14992905600000000000e-6 * t20112 * t48927 - 0.29985811200000000000e-9 * t20117 * t48927 - 0.14992905600000000000e-6 * t20120 * t48932 + 0.29985811200000000000e-9 * t20125 * t48932 - 0.12494088000000000000e-4 * t9016 * t3431 * t31006 + 0.16658784000000000000e-4 * t5110 * t3431 * t39899 + 0.28111698000000000000e-7 * t1775 * t10733 * t31006 - 0.37482264000000000000e-7 * t2165 * t10733 * t39899 - 0.34705800000000000000e-3 * t656 * t3677 * t3591 + 0.34705800000000000000e-3 * t662 * t3677 * t3601;
16730   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16731     v4rhosigma2tau[13] = t48394 + t12138 * t14072 + t3694 * (t48920 + t48955);
16732 
16733   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16734     v4rhosigma2tau[14] = 0.0e0;
16735 
16736   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16737     v4rhosigma2tau[15] = 0.0e0;
16738 
16739   t48959 = t12759 * t726;
16740   t48962 = t640 * t998;
16741   t48963 = t48962 * t726;
16742   t48995 = t36006 * t86;
16743   t48998 = 0.13882320000000000000e-4 * t1849 * t48959 - 0.31235220000000000000e-7 * t1853 * t48963 + 0.10411740000000000000e-2 * t38954 * t12885 - 0.13882320000000000000e-2 * t39035 * t12888 + 0.16658784000000000000e-4 * t11967 * t12894 + 0.13882320000000000000e-4 * t1839 * t48959 - 0.31235220000000000000e-7 * t1844 * t48963 - 0.11105856000000000000e-4 * t1849 * t3342 * t12149 + 0.24988176000000000000e-7 * t1853 * t10323 * t12149 + 0.11105856000000000000e-4 * t1839 * t3359 * t12149 - 0.24988176000000000000e-7 * t1844 * t10341 * t12149 - 0.69411600000000000000e-3 * t34412 * t12850 + 0.10411740000000000000e-2 * t38954 * t12853 - 0.16658784000000000000e-4 * t11964 * t12859 - 0.11568600000000000000e-2 * t656 * t998 * t48995;
16744   t49006 = t42288 * t3053;
16745   t49009 = t12622 * t9811;
16746   t49012 = t12622 * t9794;
16747   t49015 = t42186 * t3053;
16748   t49022 = t12595 * t9811;
16749   t49025 = t12595 * t9794;
16750   t49036 = -0.11568600000000000000e-2 * t662 * t998 * t48995 + 0.92548800000000000000e-3 * t11964 * t12865 - 0.92548800000000000000e-3 * t11967 * t12899 - 0.29985811200000000000e-9 * t20117 * t49006 - 0.12494088000000000000e-4 * t16138 * t49009 + 0.16658784000000000000e-4 * t19666 * t49012 - 0.14992905600000000000e-6 * t20120 * t49015 + 0.28111698000000000000e-7 * t16302 * t49009 - 0.37482264000000000000e-7 * t19672 * t49012 + 0.83293920000000000000e-5 * t19689 * t49022 - 0.12494088000000000000e-4 * t16138 * t49025 + 0.29985811200000000000e-9 * t20125 * t49015 + 0.14992905600000000000e-6 * t20112 * t49006 - 0.18741132000000000000e-7 * t19695 * t49022 + 0.28111698000000000000e-7 * t16302 * t49025;
16751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16752     v4rhosigma2tau[16] = t48483 + t12138 * t14089 + t3694 * (t48998 + t49036);
16753 
16754   t49048 = t12697 * t9794;
16755   t49051 = t42523 * t3053;
16756   t49054 = t12697 * t9811;
16757   t49061 = t12669 * t9811;
16758   t49064 = t12669 * t9794;
16759   t49067 = t42489 * t3053;
16760   t49076 = -0.34705800000000000000e-3 * t11964 * t13022 + 0.34705800000000000000e-3 * t11967 * t13056 + 0.92548800000000000000e-3 * t11964 * t13025 - 0.92548800000000000000e-3 * t11967 * t13059 + 0.16658784000000000000e-4 * t19666 * t49048 - 0.14992905600000000000e-6 * t20120 * t49051 + 0.28111698000000000000e-7 * t16302 * t49054 - 0.37482264000000000000e-7 * t19672 * t49048 + 0.29985811200000000000e-9 * t20125 * t49051 + 0.83293920000000000000e-5 * t19689 * t49061 - 0.12494088000000000000e-4 * t16138 * t49064 + 0.14992905600000000000e-6 * t20112 * t49067 - 0.18741132000000000000e-7 * t19695 * t49061 + 0.28111698000000000000e-7 * t16302 * t49064 - 0.29985811200000000000e-9 * t20117 * t49067;
16761   t49115 = -0.12494088000000000000e-4 * t16138 * t49054 - 0.24988176000000000000e-7 * t1844 * t10733 * t12149 - 0.11105856000000000000e-4 * t1849 * t3412 * t12149 + 0.24988176000000000000e-7 * t1853 * t10723 * t12149 - 0.69411600000000000000e-3 * t34412 * t13010 + 0.10411740000000000000e-2 * t38954 * t13013 - 0.16658784000000000000e-4 * t11964 * t13019 + 0.41646960000000000000e-5 * t1849 * t11073 * t3697 - 0.93705660000000000000e-8 * t1853 * t35141 * t3697 + 0.10411740000000000000e-2 * t38954 * t13044 - 0.13882320000000000000e-2 * t39035 * t13047 + 0.16658784000000000000e-4 * t11967 * t13053 - 0.41646960000000000000e-5 * t1839 * t11218 * t3697 + 0.93705660000000000000e-8 * t1844 * t35095 * t3697 + 0.11105856000000000000e-4 * t1839 * t3431 * t12149;
16762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16763     v4rhosigma2tau[17] = t48565 + t12138 * t14106 + t3694 * (t49076 + t49115);
16764 
16765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16766     v4rhosigma2tau[18] = 0.0e0;
16767 
16768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16769     v4rhosigma2tau[19] = 0.0e0;
16770 
16771   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16772     v4rhosigma2tau[20] = 0.0e0;
16773 
16774   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16775     v4rhosigma2tau[21] = 0.0e0;
16776 
16777   t49134 = t3480 * tau[1];
16778   t49159 = 0.16658784000000000000e-4 * t39730 * t3359 * sigma[2] - 0.49976352000000000000e-7 * t1844 * t10341 * t706 + 0.49976352000000000000e-7 * t1853 * t10323 * t706 + 0.22211712000000000000e-4 * t1839 * t3359 * t706 - 0.22211712000000000000e-4 * t1849 * t3342 * t706 - 0.11568600000000000000e-2 * t39796 * t49134 - 0.69411600000000000000e-3 * t39713 * t3468 + 0.10411740000000000000e-2 * t39079 * t3471 - 0.16658784000000000000e-4 * t39726 * t3342 * sigma[2] - 0.11568600000000000000e-2 * t39791 * t49134 + 0.10411740000000000000e-2 * t39079 * t3484 - 0.13882320000000000000e-2 * t39720 * t3487 - 0.18741132000000000000e-7 * t2153 * t10323 * t31467 + 0.28111698000000000000e-7 * t1775 * t10323 * t36581 - 0.29985811200000000000e-9 * t1853 * t33215 * t12334;
16779   t49160 = t47090 * t3115;
16780   t49172 = t12877 * t3115;
16781   t49201 = -0.31235220000000000000e-7 * t1853 * t49160 - 0.12494088000000000000e-4 * t9016 * t3359 * t31467 + 0.16658784000000000000e-4 * t5110 * t3359 * t36581 - 0.14992905600000000000e-6 * t1839 * t10341 * t12334 + 0.13882320000000000000e-4 * t1839 * t49172 + 0.83293920000000000000e-5 * t5125 * t3342 * t31467 - 0.12494088000000000000e-4 * t9016 * t3342 * t36581 + 0.28111698000000000000e-7 * t1775 * t10341 * t31467 - 0.37482264000000000000e-7 * t2165 * t10341 * t36581 + 0.29985811200000000000e-9 * t1844 * t33201 * t12334 - 0.31235220000000000000e-7 * t1844 * t49160 + 0.14992905600000000000e-6 * t1849 * t10323 * t12334 + 0.13882320000000000000e-4 * t1849 * t49172 + 0.18509760000000000000e-2 * t656 * t12856 - 0.18509760000000000000e-2 * t662 * t12891;
16782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16783     v4rhosigma2tau[22] = t48646 + t12138 * t14125 + t3694 * (t49159 + t49201);
16784 
16785   t49216 = t11506 * t722;
16786   t49250 = t38274 * t2487 * tau[1];
16787   t49257 = t3154 * sigma[2];
16788   t49260 = t13938 * t2487;
16789   t49264 = t710 * t27151 * t8631;
16790   t49279 = 0.65164800000000000000e1 * t2473 * t49250 - 0.4561536e2 * t822 * t808 + 0.54304000000000000000e2 * t2472 * t3558 + 0.57345024000000000000e2 * t822 * t49257 - 0.17985484800000000000e2 * t822 * t49260 + 0.16682188800000000000e1 * t822 * t49264 - 0.95745280000000000000e2 * t10122 * t12976 + 0.14361792000000000000e2 * t2462 * t49250 - 0.43443200000000000000e2 * t10106 * t12976 - 0.13118080000000000000e2 * t2345 * t12976 - 0.65420160e2 * t10117 * t12976 + 0.19677120000000000000e1 * t2442 * t49250;
16791   t49304 = 0.98130240e1 * t2450 * t49250 - 0.3443496e2 * t805 * t808 + 0.16397600000000000000e2 * t2344 * t3558 + 0.8177520e2 * t2449 * t3558 + 0.43289664000000000000e2 * t805 * t49257 - 0.13577212800000000000e2 * t805 * t49260 + 0.12593356800000000000e1 * t805 * t49264 - 0.8005032e2 * t812 * t808 + 0.11968160000000000000e3 * t2461 * t3558 + 0.10063468800000000000e3 * t812 * t49257 - 0.31562697600000000000e2 * t812 * t49260 + 0.29275545600000000000e1 * t812 * t49264;
16792   t49350 = 0.93705660000000000000e-8 * t1844 * t35095 * t86 - 0.69411600000000000000e-3 * t39713 * t3604 + 0.10411740000000000000e-2 * t39079 * t3607 + 0.49976352000000000000e-7 * t1853 * t10723 * t706 + 0.22211712000000000000e-4 * t1839 * t3431 * t706 - 0.49976352000000000000e-7 * t1844 * t10733 * t706 - 0.22211712000000000000e-4 * t1849 * t3412 * t706 - 0.16658784000000000000e-4 * t39726 * t3412 * sigma[2] + 0.41646960000000000000e-5 * t1849 * t11073 * t86 - 0.93705660000000000000e-8 * t1853 * t35141 * t86 + 0.10411740000000000000e-2 * t39079 * t3619 - 0.13882320000000000000e-2 * t39720 * t3622 + 0.16658784000000000000e-4 * t39730 * t3431 * sigma[2] - 0.41646960000000000000e-5 * t1839 * t11218 * t86 - 0.18509760000000000000e-2 * t662 * t13050;
16793   t49395 = 0.18509760000000000000e-2 * t656 * t13016 + 0.34705800000000000000e-3 * t662 * t3752 * t3601 - 0.34705800000000000000e-3 * t656 * t3752 * t3591 - 0.29985811200000000000e-9 * t1853 * t33660 * t12334 - 0.12494088000000000000e-4 * t9016 * t3431 * t31467 + 0.16658784000000000000e-4 * t5110 * t3431 * t36581 - 0.14992905600000000000e-6 * t1839 * t10733 * t12334 + 0.28111698000000000000e-7 * t1775 * t10733 * t31467 - 0.37482264000000000000e-7 * t2165 * t10733 * t36581 + 0.29985811200000000000e-9 * t1844 * t33644 * t12334 + 0.83293920000000000000e-5 * t5125 * t3412 * t31467 - 0.12494088000000000000e-4 * t9016 * t3412 * t36581 + 0.14992905600000000000e-6 * t1849 * t10723 * t12334 - 0.18741132000000000000e-7 * t2153 * t10723 * t31467 + 0.28111698000000000000e-7 * t1775 * t10723 * t36581;
16794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16795     v4rhosigma2tau[23] = -t14143 - t14169 + t14189 + t3 * (-0.3e1 / 0.32e2 * t691 * t14141 - t48720 - t387 * t18 * t48721 * t689 / 0.32e2 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * (-0.687680e-3 * t3525 * t89 + 0.32746666666666666666e-3 * t12932 * t10149 + 0.58944000000000000000e-5 * t12935 * t14129 - 0.13098666666666666667e-5 * t49216 * t40294 - 0.12574720000000000000e-7 * t8611 * t97 * t82 * t2401 + 0.32746666666666666667e-3 * t2344 * t12947 - 0.687680e-3 * t723 * t3119 + 0.58944000000000000000e-5 * t723 * t12223 * sigma[2] - 0.13098666666666666667e-5 * t2345 * t11506 * t716 * tau[1] - 0.12574720000000000000e-7 * t723 * t13938 * t2401) - 0.15545350000000000000e-1 * t771 * t14167 - 0.15545350000000000000e-1 * t779 * t14167 + 0.50000000000000000001e0 * t502 * t793 * t14166 - 0.15545350000000000000e-1 * t166 * t180 * (t49279 + t49304) + t859 * t14188 + t275 * (t49350 + t49395));
16796 
16797   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16798     v4rhosigmalapl2[0] = 0.0e0;
16799 
16800   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16801     v4rhosigmalapl2[1] = 0.0e0;
16802 
16803   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16804     v4rhosigmalapl2[2] = 0.0e0;
16805 
16806   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16807     v4rhosigmalapl2[3] = 0.0e0;
16808 
16809   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16810     v4rhosigmalapl2[4] = 0.0e0;
16811 
16812   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16813     v4rhosigmalapl2[5] = 0.0e0;
16814 
16815   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16816     v4rhosigmalapl2[6] = 0.0e0;
16817 
16818   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16819     v4rhosigmalapl2[7] = 0.0e0;
16820 
16821   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16822     v4rhosigmalapl2[8] = 0.0e0;
16823 
16824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16825     v4rhosigmalapl2[9] = 0.0e0;
16826 
16827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16828     v4rhosigmalapl2[10] = 0.0e0;
16829 
16830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16831     v4rhosigmalapl2[11] = 0.0e0;
16832 
16833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16834     v4rhosigmalapl2[12] = 0.0e0;
16835 
16836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16837     v4rhosigmalapl2[13] = 0.0e0;
16838 
16839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16840     v4rhosigmalapl2[14] = 0.0e0;
16841 
16842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16843     v4rhosigmalapl2[15] = 0.0e0;
16844 
16845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16846     v4rhosigmalapl2[16] = 0.0e0;
16847 
16848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16849     v4rhosigmalapl2[17] = 0.0e0;
16850 
16851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16852     v4rhosigmalapltau[0] = 0.0e0;
16853 
16854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16855     v4rhosigmalapltau[1] = 0.0e0;
16856 
16857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16858     v4rhosigmalapltau[2] = 0.0e0;
16859 
16860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16861     v4rhosigmalapltau[3] = 0.0e0;
16862 
16863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16864     v4rhosigmalapltau[4] = 0.0e0;
16865 
16866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16867     v4rhosigmalapltau[5] = 0.0e0;
16868 
16869   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16870     v4rhosigmalapltau[6] = 0.0e0;
16871 
16872   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16873     v4rhosigmalapltau[7] = 0.0e0;
16874 
16875   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16876     v4rhosigmalapltau[8] = 0.0e0;
16877 
16878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16879     v4rhosigmalapltau[9] = 0.0e0;
16880 
16881   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16882     v4rhosigmalapltau[10] = 0.0e0;
16883 
16884   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16885     v4rhosigmalapltau[11] = 0.0e0;
16886 
16887   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16888     v4rhosigmalapltau[12] = 0.0e0;
16889 
16890   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16891     v4rhosigmalapltau[13] = 0.0e0;
16892 
16893   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16894     v4rhosigmalapltau[14] = 0.0e0;
16895 
16896   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16897     v4rhosigmalapltau[15] = 0.0e0;
16898 
16899   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16900     v4rhosigmalapltau[16] = 0.0e0;
16901 
16902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16903     v4rhosigmalapltau[17] = 0.0e0;
16904 
16905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16906     v4rhosigmalapltau[18] = 0.0e0;
16907 
16908   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16909     v4rhosigmalapltau[19] = 0.0e0;
16910 
16911   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16912     v4rhosigmalapltau[20] = 0.0e0;
16913 
16914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16915     v4rhosigmalapltau[21] = 0.0e0;
16916 
16917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16918     v4rhosigmalapltau[22] = 0.0e0;
16919 
16920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
16921     v4rhosigmalapltau[23] = 0.0e0;
16922 
16923   t49404 = t14 * t127 * t14204 / 0.32e2;
16924   t49405 = t325 * t14203;
16925   t49416 = t13135 * t148;
16926   t49447 = t14013 * t448;
16927   t49451 = t343 * t32836 * t1326;
16928   t49472 = t44161 * t448 * tau[0];
16929   t49475 = -0.10860800000000000000e3 * t1302 * t49447 + 0.10426368000000000000e2 * t1302 * t49451 - 0.16397600000000000000e2 * t13136 * t28872 - 0.32795200000000000000e2 * t1133 * t49447 + 0.32795200000000000000e1 * tau[0] * t44161 * t28896 + 0.31483392000000000000e1 * t1133 * t49451 - 0.16355040000000000000e3 * t1315 * t49447 + 0.15700838400000000000e2 * t1315 * t49451 - 0.23936320000000000000e3 * t1282 * t49447 + 0.22978867200000000000e2 * t1282 * t49451 + 0.16312480000000000000e3 * t5417 * t49472;
16930   t49476 = t13998 * t140;
16931   t49499 = 0.28238080000000000000e3 * t1302 * t49476 - 0.32582400e3 * t28857 * t13140 + 0.65164800e2 * t5373 * t49472 + 0.85267520000000000000e2 * t1133 * t49476 - 0.21274320000000000000e3 * t4098 * t13140 + 0.42548640000000000000e2 * t5384 * t49472 + 0.42523104000000000000e3 * t1315 * t49476 - 0.68614560000000000000e3 * t28818 * t13140 + 0.13722912000000000000e3 * t5413 * t49472 + 0.62234432000000000000e3 * t1282 * t49476 - 0.81562400000000000000e3 * t28854 * t13140;
16932   t49554 = -0.55529280000000000000e-5 * t2153 * t13196 * t333 + 0.37019520000000000000e-2 * t5110 * t13222 * t333 - 0.11105856000000000000e-4 * t2165 * t13232 * t333 + 0.18509760000000000000e-2 * t5125 * t13189 * t333 - 0.69411600000000000000e-3 * t22088 * t14231 + 0.18509760000000000000e-2 * t29189 * t2934 * t3941 + 0.20823480000000000000e-5 * t10970 * t14234 + 0.37019520000000000000e-2 * t29201 * t2934 * t3938 - 0.62470440000000000000e-5 * t5051 * t13196 * t9500 + 0.41646960000000000000e-5 * t2153 * t3342 * t41561 + 0.49976352000000000000e-7 * t2153 * t43948 * t2891 + 0.20823480000000000000e-2 * t9016 * t10312 * t12769 + 0.20823480000000000000e-2 * t9016 * t3332 * t41620 - 0.55529280000000000000e-2 * t29045 * t2934 * t13210 - 0.62470440000000000000e-5 * t1775 * t10319 * t12769 - 0.62470440000000000000e-5 * t1775 * t3342 * t41620 - 0.41646960000000000000e-2 * t29064 * t13222 * t9495;
16933   t49591 = t13210 * t9495;
16934   t49594 = t13210 * t9500;
16935   t49597 = t13210 * t2891;
16936   t49606 = 0.69411600000000000000e-2 * t16355 * t13222 * t9500 - 0.27764640000000000000e-2 * t5110 * t3349 * t41620 - 0.44423424000000000000e-4 * t5110 * t13232 * t2891 + 0.12494088000000000000e-4 * t5038 * t13232 * t9495 - 0.20823480000000000000e-4 * t5624 * t13232 * t9500 + 0.83293920000000000000e-5 * t2165 * t3359 * t41620 + 0.99952704000000000000e-7 * t2165 * t43897 * t2891 + 0.20823480000000000000e-2 * t29031 * t13189 * t9500 - 0.13882320000000000000e-2 * t5125 * t3332 * t41561 - 0.22211712000000000000e-4 * t5125 * t13196 * t2891 - 0.55529280000000000000e-2 * t9016 * t3332 * t41685 + 0.16658784000000000000e-4 * t1775 * t3342 * t41685 + 0.41646960000000000000e-2 * t16289 * t49591 - 0.83293920000000000000e-2 * t16305 * t49594 + 0.66635136000000000000e-4 * t16138 * t49597 - 0.12494088000000000000e-4 * t16297 * t49591 + 0.24988176000000000000e-4 * t16310 * t49594 - 0.14992905600000000000e-6 * t16302 * t49597;
16937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16938     v4rhosigmatau2[0] = -t14207 - t14230 + t14250 + t3 * (-0.3e1 / 0.32e2 * t316 * t14205 - t49404 - t323 * t18 * t49405 * t314 / 0.32e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (-0.147360e0 * t3248 * t30 + 0.12280000000000000000e0 * t13103 * t12360 + 0.11133866666666666667e-2 * t12365 * t3772 - 0.49120000000000000000e-3 * t49416 * t9057 - 0.20957866666666666667e-5 * t48210 * t12369 + 0.122800e0 * t4097 * t13109 - 0.147360e0 * t1133 * t3256 + 0.11133866666666666667e-2 * t1133 * t12379 * sigma[0] - 0.491200e-3 * t4098 * t13135 * t40 * tau[0] - 0.20957866666666666667e-5 * t1133 * t14013 * t349) - 0.15545350000000000000e-1 * t395 * t14228 - 0.15545350000000000000e-1 * t413 * t14228 + 0.50000000000000000001e0 * t418 * t441 * t14227 - 0.15545350000000000000e-1 * t115 * t136 * (t49475 + t49499) + t629 * t14249 + t275 * (t49554 + t49606));
16939 
16940   t49611 = t275 * t14286;
16941   t49613 = t3677 * t93;
16942   t49616 = t11916 * t93;
16943   t49623 = t41785 * t93;
16944   t49655 = t12747 * t10612;
16945   t49658 = t12747 * t10621;
16946   t49661 = -0.30078360000000000000e-2 * t1839 * t49613 + 0.90235080000000000000e-5 * t1844 * t49616 - 0.30078360000000000000e-2 * t1849 * t49613 + 0.90235080000000000000e-5 * t1853 * t49616 - 0.18509760000000000000e-2 * t8960 * t49623 - 0.18509760000000000000e-2 * t8967 * t49623 - 0.11105856000000000000e-4 * t2165 * t3431 * t41685 - 0.27764640000000000000e-2 * t9016 * t3402 * t41685 + 0.83293920000000000000e-5 * t1775 * t3412 * t41685 + 0.18509760000000000000e-2 * t5125 * t3402 * t41571 - 0.55529280000000000000e-5 * t2153 * t3412 * t41571 - 0.31235220000000000000e-5 * t1775 * t3431 * t41561 - 0.13882320000000000000e-2 * t5110 * t3421 * t41620 + 0.37019520000000000000e-2 * t29201 * t2934 * t3961 + 0.41646960000000000000e-5 * t2165 * t3431 * t41620 + 0.20823480000000000000e-2 * t9016 * t49655 - 0.27764640000000000000e-2 * t5110 * t49658;
16947   t49662 = t13880 * t10600;
16948   t49665 = t12759 * t10612;
16949   t49668 = t12759 * t10621;
16950   t49671 = t47644 * t10600;
16951   t49708 = 0.22211712000000000000e-4 * t1839 * t49662 - 0.62470440000000000000e-5 * t1775 * t49665 + 0.83293920000000000000e-5 * t2165 * t49668 - 0.49976352000000000000e-7 * t1844 * t49671 - 0.69411600000000000000e-3 * t22088 * t14252 - 0.69411600000000000000e-3 * t5125 * t3402 * t41561 + 0.18509760000000000000e-2 * t29189 * t2934 * t13345 + 0.20823480000000000000e-5 * t10970 * t14255 + 0.20823480000000000000e-5 * t2153 * t3412 * t41561 + 0.10411740000000000000e-2 * t9016 * t3402 * t41620 - 0.27764640000000000000e-2 * t29045 * t2934 * t13354 - 0.31235220000000000000e-5 * t1775 * t3412 * t41620 + 0.13882320000000000000e-2 * t5125 * t49655 - 0.20823480000000000000e-2 * t9016 * t49658 + 0.22211712000000000000e-4 * t1849 * t49662 - 0.41646960000000000000e-5 * t2153 * t49665 + 0.62470440000000000000e-5 * t1775 * t49668 - 0.49976352000000000000e-7 * t1853 * t49671;
16952   t49725 = t13354 * t9495;
16953   t49728 = t13354 * t9500;
16954   t49731 = t13354 * t2891;
16955   t49734 = t359 * t13341;
16956   t49745 = t13326 * t9495;
16957   t49748 = t13326 * t9500;
16958   t49751 = t13345 * t9500;
16959   t49754 = t13345 * t2891;
16960   t49757 = -0.27764640000000000000e-2 * t9016 * t3421 * t41571 + 0.83293920000000000000e-5 * t1775 * t3431 * t41571 + 0.37019520000000000000e-2 * t5110 * t3421 * t41685 + 0.10411740000000000000e-2 * t9016 * t3421 * t41561 - 0.27764640000000000000e-2 * t29045 * t2934 * t13326 + 0.20823480000000000000e-2 * t16289 * t49725 - 0.41646960000000000000e-2 * t16305 * t49728 + 0.33317568000000000000e-4 * t16138 * t49731 + 0.34705800000000000000e-2 * t5011 * t49734 - 0.62470440000000000000e-5 * t16297 * t49725 + 0.12494088000000000000e-4 * t16310 * t49728 - 0.74964528000000000000e-7 * t16302 * t49731 - 0.10411740000000000000e-4 * t5005 * t49734 + 0.20823480000000000000e-2 * t16289 * t49745 - 0.41646960000000000000e-2 * t16305 * t49748 + 0.20823480000000000000e-2 * t16289 * t49751 - 0.22211712000000000000e-4 * t19689 * t49754;
16961   t49758 = t359 * t13332;
16962   t49767 = t13326 * t2891;
16963   t49780 = t3961 * t9495;
16964   t49783 = t3961 * t9500;
16965   t49786 = t3961 * t2891;
16966   t49799 = -0.23137200000000000000e-2 * t5777 * t49758 - 0.62470440000000000000e-5 * t16297 * t49751 + 0.49976352000000000000e-7 * t19695 * t49754 - 0.13882320000000000000e-4 * t5801 * t49734 + 0.33317568000000000000e-4 * t16138 * t49767 - 0.34705800000000000000e-2 * t5011 * t49758 - 0.62470440000000000000e-5 * t16297 * t49745 + 0.12494088000000000000e-4 * t16310 * t49748 - 0.74964528000000000000e-7 * t16302 * t49767 + 0.10411740000000000000e-4 * t5005 * t49758 - 0.41646960000000000000e-2 * t16305 * t49780 + 0.69411600000000000000e-2 * t19757 * t49783 - 0.44423424000000000000e-4 * t19666 * t49786 + 0.46274400000000000000e-2 * t5797 * t49734 + 0.12494088000000000000e-4 * t16310 * t49780 - 0.20823480000000000000e-4 * t19761 * t49783 + 0.99952704000000000000e-7 * t19672 * t49786 + 0.69411600000000000000e-5 * t5782 * t49758;
16967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16968     v4rhosigmatau2[1] = t49611 + t11962 * t14286 + t3694 * (t49661 + t49708 + t49757 + t49799);
16969 
16970   t49803 = t275 * t14305;
16971   t49854 = -0.69411600000000000000e-3 * t22088 * t14287 + 0.18509760000000000000e-2 * t29189 * t2934 * t4026 + 0.20823480000000000000e-5 * t10970 * t14290 + 0.37019520000000000000e-2 * t29201 * t2934 * t4023 - 0.55529280000000000000e-5 * t2153 * t13426 * t333 + 0.37019520000000000000e-2 * t5110 * t13452 * t333 - 0.11105856000000000000e-4 * t2165 * t13462 * t333 + 0.18509760000000000000e-2 * t5125 * t13419 * t333 - 0.62470440000000000000e-5 * t5051 * t13426 * t9500 + 0.49976352000000000000e-7 * t2153 * t44832 * t2891 - 0.55529280000000000000e-2 * t29045 * t2934 * t13440 - 0.41646960000000000000e-2 * t29064 * t13452 * t9495 + 0.69411600000000000000e-2 * t16355 * t13452 * t9500 - 0.44423424000000000000e-4 * t5110 * t13462 * t2891 + 0.12494088000000000000e-4 * t5038 * t13462 * t9495 - 0.20823480000000000000e-4 * t5624 * t13462 * t9500 + 0.99952704000000000000e-7 * t2165 * t44808 * t2891;
16972   t49867 = t13440 * t9500;
16973   t49870 = t13440 * t2891;
16974   t49873 = t359 * t13446;
16975   t49876 = t11192 * t12529;
16976   t49879 = t13440 * t9495;
16977   t49900 = 0.16658784000000000000e-4 * t1775 * t3412 * t41983 - 0.55529280000000000000e-2 * t9016 * t3402 * t41983 + 0.20823480000000000000e-2 * t29031 * t13419 * t9500 - 0.22211712000000000000e-4 * t5125 * t13426 * t2891 - 0.83293920000000000000e-2 * t16305 * t49867 + 0.66635136000000000000e-4 * t16138 * t49870 + 0.69411600000000000000e-2 * t5011 * t49873 - 0.69411600000000000000e-2 * t5011 * t49876 - 0.12494088000000000000e-4 * t16297 * t49879 + 0.24988176000000000000e-4 * t16310 * t49867 - 0.14992905600000000000e-6 * t16302 * t49870 - 0.20823480000000000000e-4 * t5005 * t49873 + 0.20823480000000000000e-4 * t5005 * t49876 + 0.92548800000000000000e-2 * t5797 * t49873 - 0.27764640000000000000e-4 * t5801 * t49873 - 0.46274400000000000000e-2 * t5777 * t49876 + 0.13882320000000000000e-4 * t5782 * t49876 + 0.41646960000000000000e-2 * t16289 * t49879;
16978   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16979     v4rhosigmatau2[2] = t49803 + t11962 * t14305 + t3694 * (t49854 + t49900);
16980 
16981   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16982     v4rhosigmatau2[3] = 0.0e0;
16983 
16984   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16985     v4rhosigmatau2[4] = 0.0e0;
16986 
16987   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
16988     v4rhosigmatau2[5] = 0.0e0;
16989 
16990   t49903 = t275 * t14324;
16991   t49909 = t13210 * t3003;
16992   t49912 = t3941 * t75;
16993   t49943 = t3938 * t75;
16994   t49947 = -0.69411600000000000000e-3 * t22088 * t14306 + 0.20823480000000000000e-5 * t10970 * t14309 - 0.14992905600000000000e-6 * t16302 * t49909 + 0.18509760000000000000e-2 * t29189 * t2196 * t49912 - 0.62470440000000000000e-5 * t5051 * t13196 * t5698 + 0.41646960000000000000e-5 * t2153 * t3342 * t41177 + 0.20823480000000000000e-2 * t9016 * t10312 * t12622 + 0.20823480000000000000e-2 * t9016 * t3332 * t41158 - 0.62470440000000000000e-5 * t1775 * t10319 * t12622 - 0.62470440000000000000e-5 * t1775 * t3342 * t41158 - 0.41646960000000000000e-2 * t29064 * t13222 * t9258 + 0.69411600000000000000e-2 * t16355 * t13222 * t5698 - 0.27764640000000000000e-2 * t5110 * t3349 * t41158 + 0.37019520000000000000e-2 * t29201 * t2196 * t49943;
16995   t49957 = t49912 * t334;
16996   t49962 = t13210 * t9258;
16997   t49965 = t13210 * t5698;
16998   t49974 = t49943 * t334;
16999   t49987 = 0.12494088000000000000e-4 * t5038 * t13232 * t9258 - 0.20823480000000000000e-4 * t5624 * t13232 * t5698 + 0.83293920000000000000e-5 * t2165 * t3359 * t41158 - 0.22211712000000000000e-4 * t19689 * t49957 + 0.49976352000000000000e-7 * t19695 * t49957 + 0.41646960000000000000e-2 * t16289 * t49962 - 0.83293920000000000000e-2 * t16305 * t49965 - 0.55529280000000000000e-2 * t19985 * t14312 - 0.12494088000000000000e-4 * t16297 * t49962 + 0.24988176000000000000e-4 * t16310 * t49965 - 0.44423424000000000000e-4 * t19666 * t49974 + 0.99952704000000000000e-7 * t19672 * t49974 + 0.66635136000000000000e-4 * t16138 * t49909 + 0.20823480000000000000e-2 * t29031 * t13189 * t5698 - 0.13882320000000000000e-2 * t5125 * t3332 * t41177;
17000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17001     v4rhosigmatau2[6] = t49903 + t11962 * t14324 + t3694 * (t49947 + t49987);
17002 
17003   t49990 = t275 * t14359;
17004   t49992 = t3677 * t1053;
17005   t49997 = t2964 * t1053;
17006   t50000 = t2949 * t1053;
17007   t50010 = t3480 * t41427;
17008   t50013 = t3480 * t41431;
17009   t50016 = t11916 * t41413;
17010   t50019 = t12877 * t41427;
17011   t50022 = t12877 * t41431;
17012   t50025 = t3961 * t3003;
17013   t50030 = t13345 * t3003;
17014   t50033 = -0.18509760000000000000e-2 * t8960 * t49992 - 0.18509760000000000000e-2 * t8967 * t49992 + 0.34705800000000000000e-5 * t1844 * t49997 - 0.11568600000000000000e-2 * t1849 * t50000 + 0.34705800000000000000e-5 * t1853 * t49997 - 0.11568600000000000000e-2 * t1839 * t50000 + 0.41646960000000000000e-5 * t2165 * t3431 * t41158 + 0.20823480000000000000e-2 * t9016 * t50010 - 0.27764640000000000000e-2 * t5110 * t50013 + 0.22211712000000000000e-4 * t1839 * t50016 - 0.62470440000000000000e-5 * t1775 * t50019 + 0.83293920000000000000e-5 * t2165 * t50022 - 0.44423424000000000000e-4 * t19666 * t50025 + 0.99952704000000000000e-7 * t19672 * t50025 + 0.49976352000000000000e-7 * t19695 * t50030;
17015   t50034 = t13354 * t3003;
17016   t50039 = t13326 * t3003;
17017   t50046 = t11930 * t41413;
17018   t50073 = 0.33317568000000000000e-4 * t16138 * t50034 - 0.74964528000000000000e-7 * t16302 * t50034 + 0.33317568000000000000e-4 * t16138 * t50039 - 0.74964528000000000000e-7 * t16302 * t50039 - 0.22211712000000000000e-4 * t19689 * t50030 - 0.49976352000000000000e-7 * t1844 * t50046 - 0.69411600000000000000e-3 * t22088 * t14325 - 0.69411600000000000000e-3 * t5125 * t3402 * t41177 + 0.20823480000000000000e-5 * t10970 * t14328 + 0.20823480000000000000e-5 * t2153 * t3412 * t41177 + 0.10411740000000000000e-2 * t9016 * t3402 * t41158 - 0.31235220000000000000e-5 * t1775 * t3412 * t41158 + 0.13882320000000000000e-2 * t5125 * t50010 - 0.20823480000000000000e-2 * t9016 * t50013 + 0.22211712000000000000e-4 * t1849 * t50016 - 0.41646960000000000000e-5 * t2153 * t50019;
17019   t50090 = t1053 * t1036;
17020   t50091 = t352 * t50090;
17021   t50094 = t3961 * t9258;
17022   t50097 = t13354 * t9258;
17023   t50100 = t13354 * t5698;
17024   t50113 = 0.62470440000000000000e-5 * t1775 * t50022 - 0.49976352000000000000e-7 * t1853 * t50046 + 0.10411740000000000000e-2 * t9016 * t3421 * t41177 - 0.31235220000000000000e-5 * t1775 * t3431 * t41177 - 0.13882320000000000000e-2 * t5110 * t3421 * t41158 + 0.37019520000000000000e-2 * t19677 * t14349 + 0.46274400000000000000e-2 * t5797 * t50091 + 0.12494088000000000000e-4 * t16310 * t50094 + 0.20823480000000000000e-2 * t16289 * t50097 - 0.41646960000000000000e-2 * t16305 * t50100 - 0.27764640000000000000e-2 * t19985 * t14331 + 0.34705800000000000000e-2 * t5011 * t50091 - 0.62470440000000000000e-5 * t16297 * t50097 + 0.12494088000000000000e-4 * t16310 * t50100 - 0.10411740000000000000e-4 * t5005 * t50091;
17025   t50114 = t13326 * t9258;
17026   t50117 = t13345 * t5698;
17027   t50122 = t1053 * t1033;
17028   t50123 = t352 * t50122;
17029   t50130 = t3961 * t5698;
17030   t50135 = t13326 * t5698;
17031   t50152 = 0.20823480000000000000e-2 * t16289 * t50114 + 0.20823480000000000000e-2 * t16289 * t50117 + 0.18509760000000000000e-2 * t19713 * t14325 - 0.23137200000000000000e-2 * t5777 * t50123 - 0.62470440000000000000e-5 * t16297 * t50117 + 0.69411600000000000000e-5 * t5782 * t50123 - 0.20823480000000000000e-4 * t19761 * t50130 - 0.13882320000000000000e-4 * t5801 * t50091 - 0.41646960000000000000e-2 * t16305 * t50135 - 0.27764640000000000000e-2 * t19985 * t14343 - 0.34705800000000000000e-2 * t5011 * t50123 - 0.62470440000000000000e-5 * t16297 * t50114 + 0.12494088000000000000e-4 * t16310 * t50135 + 0.10411740000000000000e-4 * t5005 * t50123 - 0.41646960000000000000e-2 * t16305 * t50094 + 0.69411600000000000000e-2 * t19757 * t50130;
17032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17033     v4rhosigmatau2[7] = t49990 + t11962 * t14359 + t3694 * (t50033 + t50073 + t50113 + t50152);
17034 
17035   t50160 = t67 * t127 * t14373 / 0.32e2;
17036   t50161 = t389 * t14372;
17037   t50174 = t4026 * t75;
17038   t50187 = t4023 * t75;
17039   t50204 = t13440 * t3003;
17040   t50210 = t1087 * t1053 * t352;
17041   t50213 = t50187 * t334;
17042   t50216 = 0.18509760000000000000e-2 * t29189 * t2196 * t50174 - 0.62470440000000000000e-5 * t5051 * t13426 * t5698 - 0.41646960000000000000e-2 * t29064 * t13452 * t9258 + 0.69411600000000000000e-2 * t16355 * t13452 * t5698 + 0.37019520000000000000e-2 * t29201 * t2196 * t50187 + 0.12494088000000000000e-4 * t5038 * t13462 * t9258 - 0.20823480000000000000e-4 * t5624 * t13462 * t5698 + 0.20823480000000000000e-2 * t29031 * t13419 * t5698 - 0.69411600000000000000e-3 * t22088 * t14400 + 0.20823480000000000000e-5 * t10970 * t14403 + 0.66635136000000000000e-4 * t16138 * t50204 - 0.14992905600000000000e-6 * t16302 * t50204 - 0.46274400000000000000e-2 * t5777 * t50210 + 0.99952704000000000000e-7 * t19672 * t50213;
17043   t50217 = t1090 * t1053;
17044   t50218 = t50217 * t352;
17045   t50221 = t50174 * t334;
17046   t50226 = t13440 * t9258;
17047   t50229 = t13440 * t5698;
17048   t50252 = -0.27764640000000000000e-4 * t5801 * t50218 + 0.49976352000000000000e-7 * t19695 * t50221 + 0.13882320000000000000e-4 * t5782 * t50210 + 0.41646960000000000000e-2 * t16289 * t50226 - 0.83293920000000000000e-2 * t16305 * t50229 - 0.55529280000000000000e-2 * t19985 * t14406 + 0.69411600000000000000e-2 * t5011 * t50218 - 0.69411600000000000000e-2 * t5011 * t50210 - 0.12494088000000000000e-4 * t16297 * t50226 + 0.24988176000000000000e-4 * t16310 * t50229 - 0.20823480000000000000e-4 * t5005 * t50218 + 0.20823480000000000000e-4 * t5005 * t50210 - 0.44423424000000000000e-4 * t19666 * t50213 + 0.92548800000000000000e-2 * t5797 * t50218 - 0.22211712000000000000e-4 * t19689 * t50221;
17049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17050     v4rhosigmatau2[8] = -t14376 - t14399 + t14419 + t3 * (-0.3e1 / 0.32e2 * t380 * t14374 - t50160 - t387 * t18 * t50161 * t378 / 0.32e2 - 0.15545350000000000000e-1 * t482 * t14397 - 0.15545350000000000000e-1 * t497 * t14397 + 0.50000000000000000001e0 * t502 * t522 * t14396 + t629 * t14418 + t275 * (t50216 + t50252));
17051 
17052   t50281 = t3938 * t26;
17053   t50294 = t3941 * t26;
17054   t50301 = t13210 * t3054;
17055   t50307 = t1033 * t998 * t719;
17056   t50310 = t50281 * t701;
17057   t50313 = -0.69411600000000000000e-3 * t45203 * t14231 + 0.20823480000000000000e-5 * t13591 * t14234 - 0.41646960000000000000e-2 * t29064 * t13222 * t9811 + 0.69411600000000000000e-2 * t16355 * t13222 * t9794 + 0.37019520000000000000e-2 * t29926 * t3068 * t50281 + 0.12494088000000000000e-4 * t5038 * t13232 * t9811 - 0.20823480000000000000e-4 * t5624 * t13232 * t9794 + 0.20823480000000000000e-2 * t29031 * t13189 * t9794 + 0.18509760000000000000e-2 * t29918 * t3068 * t50294 - 0.62470440000000000000e-5 * t5051 * t13196 * t9794 + 0.66635136000000000000e-4 * t16138 * t50301 - 0.14992905600000000000e-6 * t16302 * t50301 + 0.20823480000000000000e-4 * t5005 * t50307 - 0.44423424000000000000e-4 * t19666 * t50310;
17058   t50315 = t1036 * t998 * t719;
17059   t50322 = t50294 * t701;
17060   t50331 = t13210 * t9811;
17061   t50334 = t13210 * t9794;
17062   t50349 = 0.92548800000000000000e-2 * t5797 * t50315 + 0.99952704000000000000e-7 * t19672 * t50310 - 0.27764640000000000000e-4 * t5801 * t50315 - 0.22211712000000000000e-4 * t19689 * t50322 - 0.46274400000000000000e-2 * t5777 * t50307 + 0.49976352000000000000e-7 * t19695 * t50322 + 0.13882320000000000000e-4 * t5782 * t50307 + 0.41646960000000000000e-2 * t16289 * t50331 - 0.83293920000000000000e-2 * t16305 * t50334 - 0.55529280000000000000e-2 * t30040 * t14237 + 0.69411600000000000000e-2 * t5011 * t50315 - 0.69411600000000000000e-2 * t5011 * t50307 - 0.12494088000000000000e-4 * t16297 * t50331 + 0.24988176000000000000e-4 * t16310 * t50334 - 0.20823480000000000000e-4 * t5005 * t50315;
17063   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17064     v4rhosigmatau2[9] = -t14207 - t14230 + t14250 + t3 * (-0.3e1 / 0.32e2 * t682 * t14205 - t49404 - t323 * t18 * t49405 * t680 / 0.32e2 - 0.15545350000000000000e-1 * t745 * t14228 - 0.15545350000000000000e-1 * t753 * t14228 + 0.50000000000000000001e0 * t418 * t767 * t14227 + t859 * t14249 + t275 * (t50313 + t50349));
17065 
17066   t50355 = t3752 * t998;
17067   t50360 = t12747 * t75;
17068   t50363 = t12759 * t75;
17069   t50370 = t3961 * t3054;
17070   t50373 = t13345 * t3054;
17071   t50380 = t13354 * t3054;
17072   t50385 = t13326 * t3054;
17073   t50393 = -0.18509760000000000000e-2 * t9494 * t50355 - 0.18509760000000000000e-2 * t9499 * t50355 - 0.11568600000000000000e-2 * t1839 * t50360 + 0.34705800000000000000e-5 * t1844 * t50363 - 0.11568600000000000000e-2 * t1849 * t50360 + 0.34705800000000000000e-5 * t1853 * t50363 + 0.99952704000000000000e-7 * t19672 * t50370 - 0.22211712000000000000e-4 * t19689 * t50373 + 0.49976352000000000000e-7 * t19695 * t50373 - 0.44423424000000000000e-4 * t19666 * t50370 + 0.33317568000000000000e-4 * t16138 * t50380 - 0.74964528000000000000e-7 * t16302 * t50380 + 0.33317568000000000000e-4 * t16138 * t50385 - 0.74964528000000000000e-7 * t16302 * t50385 + 0.20823480000000000000e-5 * t2153 * t11073 * t12740;
17074   t50400 = t12747 * t11090;
17075   t50403 = t12747 * t11099;
17076   t50413 = t12759 * t947;
17077   t50416 = t12759 * t11090;
17078   t50419 = t12759 * t11099;
17079   t50422 = t48962 * t947;
17080   t50436 = 0.10411740000000000000e-2 * t9016 * t11044 * t12769 - 0.31235220000000000000e-5 * t1775 * t11073 * t12769 + 0.13882320000000000000e-2 * t5125 * t50400 - 0.20823480000000000000e-2 * t9016 * t50403 + 0.41646960000000000000e-5 * t2165 * t11218 * t12769 + 0.20823480000000000000e-2 * t9016 * t50400 - 0.27764640000000000000e-2 * t5110 * t50403 + 0.22211712000000000000e-4 * t1839 * t50413 - 0.62470440000000000000e-5 * t1775 * t50416 + 0.83293920000000000000e-5 * t2165 * t50419 - 0.49976352000000000000e-7 * t1844 * t50422 + 0.22211712000000000000e-4 * t1849 * t50413 - 0.41646960000000000000e-5 * t2153 * t50416 + 0.62470440000000000000e-5 * t1775 * t50419 - 0.49976352000000000000e-7 * t1853 * t50422 + 0.10411740000000000000e-2 * t9016 * t11051 * t12740;
17081   t50452 = t1090 * t998 * t719;
17082   t50455 = t13354 * t9794;
17083   t50459 = t1087 * t998 * t719;
17084   t50462 = t13326 * t9811;
17085   t50465 = t13326 * t9794;
17086   t50478 = -0.31235220000000000000e-5 * t1775 * t11218 * t12740 - 0.13882320000000000000e-2 * t5110 * t11051 * t12769 - 0.69411600000000000000e-3 * t45203 * t14252 - 0.69411600000000000000e-3 * t5125 * t11044 * t12740 + 0.20823480000000000000e-5 * t13591 * t14255 - 0.13882320000000000000e-4 * t5801 * t50452 + 0.12494088000000000000e-4 * t16310 * t50455 + 0.10411740000000000000e-4 * t5005 * t50459 + 0.20823480000000000000e-2 * t16289 * t50462 - 0.41646960000000000000e-2 * t16305 * t50465 - 0.27764640000000000000e-2 * t30040 * t14270 + 0.34705800000000000000e-2 * t5011 * t50452 - 0.62470440000000000000e-5 * t16297 * t50462 + 0.12494088000000000000e-4 * t16310 * t50465 - 0.10411740000000000000e-4 * t5005 * t50452;
17087   t50479 = t3961 * t9811;
17088   t50482 = t3961 * t9794;
17089   t50485 = t13345 * t9794;
17090   t50496 = t13354 * t9811;
17091   t50515 = -0.41646960000000000000e-2 * t16305 * t50479 + 0.69411600000000000000e-2 * t19757 * t50482 + 0.20823480000000000000e-2 * t16289 * t50485 + 0.18509760000000000000e-2 * t31048 * t14252 - 0.23137200000000000000e-2 * t5777 * t50459 - 0.62470440000000000000e-5 * t16297 * t50485 + 0.69411600000000000000e-5 * t5782 * t50459 + 0.20823480000000000000e-2 * t16289 * t50496 - 0.41646960000000000000e-2 * t16305 * t50455 - 0.27764640000000000000e-2 * t30040 * t14258 - 0.34705800000000000000e-2 * t5011 * t50459 - 0.62470440000000000000e-5 * t16297 * t50496 + 0.37019520000000000000e-2 * t30992 * t14276 + 0.46274400000000000000e-2 * t5797 * t50452 + 0.12494088000000000000e-4 * t16310 * t50479 - 0.20823480000000000000e-4 * t19761 * t50482;
17092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17093     v4rhosigmatau2[10] = t49611 + t12138 * t14286 + t3694 * (t50393 + t50436 + t50478 + t50515);
17094 
17095   t50536 = t4026 * t26;
17096   t50561 = -0.69411600000000000000e-3 * t45203 * t14287 + 0.20823480000000000000e-5 * t13591 * t14290 - 0.20823480000000000000e-4 * t5624 * t13462 * t9794 + 0.83293920000000000000e-5 * t2165 * t3431 * t43080 + 0.20823480000000000000e-2 * t29031 * t13419 * t9794 - 0.13882320000000000000e-2 * t5125 * t3402 * t43107 + 0.18509760000000000000e-2 * t29918 * t3068 * t50536 - 0.62470440000000000000e-5 * t5051 * t13426 * t9794 + 0.41646960000000000000e-5 * t2153 * t3412 * t43107 + 0.20823480000000000000e-2 * t9016 * t11044 * t12826 + 0.20823480000000000000e-2 * t9016 * t3402 * t43080 - 0.62470440000000000000e-5 * t1775 * t11073 * t12826 - 0.62470440000000000000e-5 * t1775 * t3412 * t43080 - 0.41646960000000000000e-2 * t29064 * t13452 * t9811;
17097   t50568 = t4023 * t26;
17098   t50575 = t50536 * t701;
17099   t50578 = t13440 * t9811;
17100   t50581 = t13440 * t9794;
17101   t50590 = t50568 * t701;
17102   t50597 = t13440 * t3054;
17103   t50602 = 0.69411600000000000000e-2 * t16355 * t13452 * t9794 - 0.27764640000000000000e-2 * t5110 * t3421 * t43080 + 0.37019520000000000000e-2 * t29926 * t3068 * t50568 + 0.12494088000000000000e-4 * t5038 * t13462 * t9811 + 0.49976352000000000000e-7 * t19695 * t50575 + 0.41646960000000000000e-2 * t16289 * t50578 - 0.83293920000000000000e-2 * t16305 * t50581 - 0.55529280000000000000e-2 * t30040 * t14293 - 0.12494088000000000000e-4 * t16297 * t50578 + 0.24988176000000000000e-4 * t16310 * t50581 - 0.44423424000000000000e-4 * t19666 * t50590 + 0.99952704000000000000e-7 * t19672 * t50590 - 0.22211712000000000000e-4 * t19689 * t50575 + 0.66635136000000000000e-4 * t16138 * t50597 - 0.14992905600000000000e-6 * t16302 * t50597;
17104   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17105     v4rhosigmatau2[11] = t49803 + t12138 * t14305 + t3694 * (t50561 + t50602);
17106 
17107   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17108     v4rhosigmatau2[12] = 0.0e0;
17109 
17110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17111     v4rhosigmatau2[13] = 0.0e0;
17112 
17113   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17114     v4rhosigmatau2[14] = 0.0e0;
17115 
17116   t50606 = t13210 * t9646;
17117   t50609 = t13210 * t9654;
17118   t50612 = t13210 * t3137;
17119   t50615 = t1030 * t42410;
17120   t50618 = t13511 * t726;
17121   t50648 = 0.41646960000000000000e-2 * t16289 * t50606 - 0.83293920000000000000e-2 * t16305 * t50609 + 0.66635136000000000000e-4 * t16138 * t50612 + 0.69411600000000000000e-2 * t5011 * t50615 - 0.69411600000000000000e-2 * t5011 * t50618 - 0.12494088000000000000e-4 * t16297 * t50606 + 0.24988176000000000000e-4 * t16310 * t50609 - 0.14992905600000000000e-6 * t16302 * t50612 - 0.20823480000000000000e-4 * t5005 * t50615 + 0.20823480000000000000e-4 * t5005 * t50618 + 0.92548800000000000000e-2 * t5797 * t50615 - 0.27764640000000000000e-4 * t5801 * t50615 - 0.46274400000000000000e-2 * t5777 * t50618 + 0.13882320000000000000e-4 * t5782 * t50618 + 0.16658784000000000000e-4 * t1775 * t3342 * t42203 - 0.55529280000000000000e-2 * t9016 * t3332 * t42203 + 0.69411600000000000000e-2 * t16355 * t13222 * t9654;
17122   t50701 = -0.44423424000000000000e-4 * t5110 * t13232 * t3137 + 0.12494088000000000000e-4 * t5038 * t13232 * t9646 - 0.20823480000000000000e-4 * t5624 * t13232 * t9654 + 0.99952704000000000000e-7 * t2165 * t43897 * t3137 + 0.20823480000000000000e-2 * t29031 * t13189 * t9654 - 0.22211712000000000000e-4 * t5125 * t13196 * t3137 - 0.62470440000000000000e-5 * t5051 * t13196 * t9654 + 0.49976352000000000000e-7 * t2153 * t43948 * t3137 - 0.55529280000000000000e-2 * t30573 * t3180 * t13210 - 0.41646960000000000000e-2 * t29064 * t13222 * t9646 - 0.69411600000000000000e-3 * t45203 * t14306 + 0.18509760000000000000e-2 * t29918 * t3180 * t3941 + 0.20823480000000000000e-5 * t13591 * t14309 + 0.37019520000000000000e-2 * t29926 * t3180 * t3938 + 0.37019520000000000000e-2 * t5110 * t13222 * t700 - 0.11105856000000000000e-4 * t2165 * t13232 * t700 + 0.18509760000000000000e-2 * t5125 * t13189 * t700 - 0.55529280000000000000e-5 * t2153 * t13196 * t700;
17123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17124     v4rhosigmatau2[15] = t49903 + t12138 * t14324 + t3694 * (t50648 + t50701);
17125 
17126   t50705 = t13326 * t3137;
17127   t50708 = t13657 * t726;
17128   t50711 = t13326 * t9646;
17129   t50714 = t13326 * t9654;
17130   t50746 = t3480 * t42501;
17131   t50749 = t3961 * t9646;
17132   t50752 = t3961 * t9654;
17133   t50755 = 0.33317568000000000000e-4 * t16138 * t50705 + 0.34705800000000000000e-2 * t5011 * t50708 - 0.62470440000000000000e-5 * t16297 * t50711 + 0.12494088000000000000e-4 * t16310 * t50714 + 0.18509760000000000000e-2 * t5125 * t3402 * t42164 - 0.55529280000000000000e-5 * t2153 * t3412 * t42164 - 0.27764640000000000000e-2 * t9016 * t3402 * t42203 - 0.69411600000000000000e-3 * t5125 * t11044 * t12595 + 0.18509760000000000000e-2 * t29918 * t3180 * t13345 + 0.20823480000000000000e-5 * t13591 * t14328 + 0.20823480000000000000e-5 * t2153 * t11073 * t12595 + 0.10411740000000000000e-2 * t9016 * t11044 * t12622 - 0.27764640000000000000e-2 * t30573 * t3180 * t13354 - 0.31235220000000000000e-5 * t1775 * t11073 * t12622 + 0.13882320000000000000e-2 * t5125 * t50746 - 0.41646960000000000000e-2 * t16305 * t50749 + 0.69411600000000000000e-2 * t19757 * t50752;
17134   t50756 = t3961 * t3137;
17135   t50765 = t13666 * t726;
17136   t50768 = t13354 * t9646;
17137   t50771 = t13354 * t9654;
17138   t50774 = t13354 * t3137;
17139   t50783 = t13345 * t3137;
17140   t50798 = -0.44423424000000000000e-4 * t19666 * t50756 + 0.46274400000000000000e-2 * t5797 * t50708 + 0.12494088000000000000e-4 * t16310 * t50749 - 0.20823480000000000000e-4 * t19761 * t50752 - 0.34705800000000000000e-2 * t5011 * t50765 - 0.62470440000000000000e-5 * t16297 * t50768 + 0.12494088000000000000e-4 * t16310 * t50771 - 0.74964528000000000000e-7 * t16302 * t50774 + 0.10411740000000000000e-4 * t5005 * t50765 + 0.20823480000000000000e-2 * t16289 * t50711 - 0.41646960000000000000e-2 * t16305 * t50714 + 0.49976352000000000000e-7 * t19695 * t50783 + 0.69411600000000000000e-5 * t5782 * t50765 + 0.20823480000000000000e-2 * t16289 * t50768 - 0.41646960000000000000e-2 * t16305 * t50771 + 0.33317568000000000000e-4 * t16138 * t50774 + 0.99952704000000000000e-7 * t19672 * t50756 - 0.13882320000000000000e-4 * t5801 * t50708;
17141   t50804 = t13345 * t9654;
17142   t50813 = t3480 * t42485;
17143   t50816 = t12877 * t3715;
17144   t50819 = t12877 * t42501;
17145   t50822 = t12877 * t42485;
17146   t50825 = t47090 * t3715;
17147   t50846 = -0.74964528000000000000e-7 * t16302 * t50705 - 0.10411740000000000000e-4 * t5005 * t50708 + 0.20823480000000000000e-2 * t16289 * t50804 - 0.22211712000000000000e-4 * t19689 * t50783 - 0.23137200000000000000e-2 * t5777 * t50765 - 0.62470440000000000000e-5 * t16297 * t50804 - 0.20823480000000000000e-2 * t9016 * t50813 + 0.22211712000000000000e-4 * t1849 * t50816 - 0.41646960000000000000e-5 * t2153 * t50819 + 0.62470440000000000000e-5 * t1775 * t50822 - 0.49976352000000000000e-7 * t1853 * t50825 + 0.83293920000000000000e-5 * t1775 * t3431 * t42164 + 0.37019520000000000000e-2 * t5110 * t3421 * t42203 - 0.11105856000000000000e-4 * t2165 * t3431 * t42203 + 0.83293920000000000000e-5 * t1775 * t3412 * t42203 - 0.27764640000000000000e-2 * t9016 * t3421 * t42164 + 0.10411740000000000000e-2 * t9016 * t11051 * t12595;
17148   t50876 = t3480 * t86;
17149   t50879 = t12877 * t86;
17150   t50882 = t42643 * t51;
17151   t50891 = -0.27764640000000000000e-2 * t30573 * t3180 * t13326 - 0.31235220000000000000e-5 * t1775 * t11218 * t12595 - 0.13882320000000000000e-2 * t5110 * t11051 * t12622 + 0.37019520000000000000e-2 * t29926 * t3180 * t3961 + 0.41646960000000000000e-5 * t2165 * t11218 * t12622 + 0.20823480000000000000e-2 * t9016 * t50746 - 0.27764640000000000000e-2 * t5110 * t50813 + 0.22211712000000000000e-4 * t1839 * t50816 - 0.62470440000000000000e-5 * t1775 * t50819 + 0.83293920000000000000e-5 * t2165 * t50822 - 0.49976352000000000000e-7 * t1844 * t50825 - 0.69411600000000000000e-3 * t45203 * t14325 - 0.30078360000000000000e-2 * t1849 * t50876 + 0.90235080000000000000e-5 * t1853 * t50879 - 0.18509760000000000000e-2 * t9494 * t50882 - 0.18509760000000000000e-2 * t9499 * t50882 - 0.30078360000000000000e-2 * t1839 * t50876 + 0.90235080000000000000e-5 * t1844 * t50879;
17152   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17153     v4rhosigmatau2[16] = t49990 + t12138 * t14359 + t3694 * (t50755 + t50798 + t50846 + t50891);
17154 
17155   t50907 = t13737 * t192;
17156   t50939 = t710 * t38274 * t2487;
17157   t50942 = t14150 * t800;
17158   t50963 = t47448 * t800 * tau[1];
17159   t50966 = 0.31483392000000000000e1 * t2344 * t50939 - 0.16355040000000000000e3 * t2449 * t50942 + 0.15700838400000000000e2 * t2449 * t50939 - 0.23936320000000000000e3 * t2461 * t50942 + 0.22978867200000000000e2 * t2461 * t50939 - 0.10860800000000000000e3 * t2472 * t50942 + 0.10426368000000000000e2 * t2472 * t50939 - 0.16397600000000000000e2 * t13738 * t32677 - 0.32795200000000000000e2 * t2344 * t50942 + 0.32795200000000000000e1 * tau[1] * t47448 * t32683 + 0.16312480000000000000e3 * t8694 * t50963;
17160   t50967 = t14135 * t184;
17161   t50990 = 0.28238080000000000000e3 * t2472 * t50967 - 0.32582400e3 * t32644 * t13742 + 0.65164800e2 * t8706 * t50963 + 0.42548640000000000000e2 * t8656 * t50963 + 0.42523104000000000000e3 * t2449 * t50967 - 0.68614560000000000000e3 * t32618 * t13742 + 0.13722912000000000000e3 * t8679 * t50963 + 0.62234432000000000000e3 * t2461 * t50967 - 0.81562400000000000000e3 * t32641 * t13742 + 0.85267520000000000000e2 * t2344 * t50967 - 0.21274320000000000000e3 * t8850 * t13742;
17162   t50996 = t13440 * t9646;
17163   t50999 = t13440 * t9654;
17164   t51002 = t13440 * t3137;
17165   t51042 = 0.41646960000000000000e-2 * t16289 * t50996 - 0.83293920000000000000e-2 * t16305 * t50999 + 0.66635136000000000000e-4 * t16138 * t51002 + 0.18509760000000000000e-2 * t5125 * t13419 * t700 - 0.69411600000000000000e-3 * t45203 * t14400 + 0.18509760000000000000e-2 * t29918 * t3180 * t4026 + 0.20823480000000000000e-5 * t13591 * t14403 + 0.37019520000000000000e-2 * t29926 * t3180 * t4023 - 0.55529280000000000000e-5 * t2153 * t13426 * t700 + 0.37019520000000000000e-2 * t5110 * t13452 * t700 - 0.11105856000000000000e-4 * t2165 * t13462 * t700 - 0.12494088000000000000e-4 * t16297 * t50996 + 0.24988176000000000000e-4 * t16310 * t50999 - 0.14992905600000000000e-6 * t16302 * t51002 + 0.20823480000000000000e-2 * t29031 * t13419 * t9654 - 0.13882320000000000000e-2 * t5125 * t3402 * t42551 + 0.16658784000000000000e-4 * t1775 * t3412 * t42537;
17166   t51097 = -0.55529280000000000000e-2 * t9016 * t3402 * t42537 - 0.22211712000000000000e-4 * t5125 * t13426 * t3137 - 0.62470440000000000000e-5 * t5051 * t13426 * t9654 + 0.41646960000000000000e-5 * t2153 * t3412 * t42551 + 0.49976352000000000000e-7 * t2153 * t44832 * t3137 + 0.20823480000000000000e-2 * t9016 * t11044 * t12697 + 0.20823480000000000000e-2 * t9016 * t3402 * t42533 - 0.55529280000000000000e-2 * t30573 * t3180 * t13440 - 0.62470440000000000000e-5 * t1775 * t11073 * t12697 - 0.62470440000000000000e-5 * t1775 * t3412 * t42533 - 0.41646960000000000000e-2 * t29064 * t13452 * t9646 + 0.69411600000000000000e-2 * t16355 * t13452 * t9654 - 0.27764640000000000000e-2 * t5110 * t3421 * t42533 - 0.44423424000000000000e-4 * t5110 * t13462 * t3137 + 0.12494088000000000000e-4 * t5038 * t13462 * t9646 - 0.20823480000000000000e-4 * t5624 * t13462 * t9654 + 0.83293920000000000000e-5 * t2165 * t3431 * t42533 + 0.99952704000000000000e-7 * t2165 * t44808 * t3137;
17167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17168     v4rhosigmatau2[17] = -t14376 - t14399 + t14419 + t3 * (-0.3e1 / 0.32e2 * t691 * t14374 - t50160 - t387 * t18 * t50161 * t689 / 0.32e2 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * (-0.147360e0 * t3521 * t79 + 0.12280000000000000000e0 * t13705 * t12927 + 0.11133866666666666667e-2 * t12932 * t3850 - 0.49120000000000000000e-3 * t50907 * t10150 - 0.20957866666666666667e-5 * t49216 * t12936 + 0.122800e0 * t8655 * t13711 - 0.147360e0 * t2344 * t3529 + 0.11133866666666666667e-2 * t2344 * t12946 * sigma[2] - 0.491200e-3 * t8850 * t13737 * t89 * tau[1] - 0.20957866666666666667e-5 * t2344 * t14150 * t716) - 0.15545350000000000000e-1 * t771 * t14397 - 0.15545350000000000000e-1 * t779 * t14397 + 0.50000000000000000001e0 * t502 * t793 * t14396 - 0.15545350000000000000e-1 * t166 * t180 * (t50966 + t50990) + t859 * t14418 + t275 * (t51042 + t51097));
17169 
17170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17171     v4rholapl3[0] = 0.0e0;
17172 
17173   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17174     v4rholapl3[1] = 0.0e0;
17175 
17176   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17177     v4rholapl3[2] = 0.0e0;
17178 
17179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17180     v4rholapl3[3] = 0.0e0;
17181 
17182   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17183     v4rholapl3[4] = 0.0e0;
17184 
17185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17186     v4rholapl3[5] = 0.0e0;
17187 
17188   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17189     v4rholapl3[6] = 0.0e0;
17190 
17191   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17192     v4rholapl3[7] = 0.0e0;
17193 
17194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17195     v4rholapl2tau[0] = 0.0e0;
17196 
17197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17198     v4rholapl2tau[1] = 0.0e0;
17199 
17200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17201     v4rholapl2tau[2] = 0.0e0;
17202 
17203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17204     v4rholapl2tau[3] = 0.0e0;
17205 
17206   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17207     v4rholapl2tau[4] = 0.0e0;
17208 
17209   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17210     v4rholapl2tau[5] = 0.0e0;
17211 
17212   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17213     v4rholapl2tau[6] = 0.0e0;
17214 
17215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17216     v4rholapl2tau[7] = 0.0e0;
17217 
17218   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17219     v4rholapl2tau[8] = 0.0e0;
17220 
17221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17222     v4rholapl2tau[9] = 0.0e0;
17223 
17224   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17225     v4rholapl2tau[10] = 0.0e0;
17226 
17227   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17228     v4rholapl2tau[11] = 0.0e0;
17229 
17230   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17231     v4rholapltau2[0] = 0.0e0;
17232 
17233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17234     v4rholapltau2[1] = 0.0e0;
17235 
17236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17237     v4rholapltau2[2] = 0.0e0;
17238 
17239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17240     v4rholapltau2[3] = 0.0e0;
17241 
17242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17243     v4rholapltau2[4] = 0.0e0;
17244 
17245   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17246     v4rholapltau2[5] = 0.0e0;
17247 
17248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17249     v4rholapltau2[6] = 0.0e0;
17250 
17251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17252     v4rholapltau2[7] = 0.0e0;
17253 
17254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17255     v4rholapltau2[8] = 0.0e0;
17256 
17257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17258     v4rholapltau2[9] = 0.0e0;
17259 
17260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17261     v4rholapltau2[10] = 0.0e0;
17262 
17263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17264     v4rholapltau2[11] = 0.0e0;
17265 
17266   t51106 = t14 * t127 * t14436 / 0.32e2;
17267   t51107 = t325 * t14435;
17268   t51114 = t14427 * t154 * tau[0];
17269   t51117 = t16470 * t14427 * tau[0];
17270   t51119 = t4097 * t3905;
17271   t51156 = 0.1e1 / t4084;
17272   t51166 = t51156 * t140 * tau[0];
17273   t51169 = t14211 * t140;
17274   t51173 = t343 * t44161 * t448;
17275   t51194 = -0.170040e3 * t13093 + 0.22672000000000000000e3 * t51114 + 0.22672000000000000000e3 * t51117 - 0.170040e3 * t51119 - 0.50832560000000000000e2 * t49416 * t14445 + 0.13096800000000000000e3 * t51156 * t154 * t14445 * tau[0] + 0.52472320000000000002e1 * t44161 * t148 * t343 * t448 + 0.11116320000000000000e4 * t16596 * t51166 - 0.65950392000000000000e3 * t4097 * t51169 + 0.68077824000000000002e2 * t4097 * t51173 + 0.29388000000000000000e4 * t16558 * t51166 - 0.21270513600000000000e4 * t5412 * t51169 + 0.21956659200000000001e3 * t5412 * t51173 + 0.30985200000000000000e4 * t16568 * t51166 - 0.25284344000000000000e4 * t5416 * t51169 + 0.26099968000000000001e3 * t5416 * t51173 + 0.11403840000000000000e4 * t16574 * t51166 - 0.10100544000000000000e4 * t5372 * t51169 + 0.10426368000000000000e3 * t5372 * t51173;
17276   t51199 = t3941 * t1036;
17277   t51200 = t51199 * t334;
17278   t51203 = t1033 * t3938;
17279   t51204 = t51203 * t334;
17280   t51223 = t306 * t14464;
17281   t51227 = t287 * t14464;
17282   t51231 = t14468 * t276;
17283   t51234 = t14468 * t283;
17284   t51239 = 0.49976352000000000000e-4 * t16297 * t51200 + 0.33317568000000000000e-1 * t16305 * t51204 - 0.99952704000000000000e-4 * t16310 * t51204 - 0.16658784000000000000e-1 * t16289 * t51200 + 0.62470440000000000000e-2 * t5051 * t3332 * t43871 - 0.12494088000000000000e-1 * t16220 * t3332 * t43851 + 0.31235220000000000000e-1 * t16225 * t3332 * t13181 - 0.12494088000000000000e-1 * t5038 * t3332 * t13184 - 0.18509760000000000000e-1 * t16355 * t51223 * t334 + 0.55529280000000000000e-4 * t5624 * t51227 * t334 + 0.18509760000000000000e-2 * t51231 * t668 - 0.55529280000000000000e-5 * t51234 * t673 + 0.31235220000000000000e-2 * t22434 * t14471;
17285   t51274 = t14467 * t661;
17286   t51277 = 0.31235220000000000000e-2 * t5051 * t13189 * t3329 - 0.62470440000000000000e-2 * t5038 * t10312 * t3938 + 0.10411740000000000000e-1 * t16225 * t51223 * t648 - 0.20823480000000000000e-1 * t20102 * t51223 * t653 + 0.10411740000000000000e-1 * t5624 * t13222 * t3329 + 0.15210e2 * t33383 * t3938 - 0.15210e2 * t16325 * t14464 - 0.12494088000000000000e-1 * t16220 * t13189 * t3326 - 0.45630e2 * t5050 * t3938 * t3329 - 0.45630e2 * t33115 * t13181 + 0.30420e2 * t10464 * t13184 + 0.60840e2 * t16219 * t14464 * t653 - 0.10411740000000000000e-2 * t14517 * t3346 + 0.10411740000000000000e-2 * t51274 * t663;
17287   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17288     v4rhotau3[0] = -t14439 - t14461 + t14481 + t3 * (-0.3e1 / 0.32e2 * t316 * t14437 - t51106 - t323 * t18 * t51107 * t314 / 0.32e2 - 0.3e1 / 0.32e2 * t14 * t18 * t21 * (0.12480e2 * t13093 - 0.16640000000000000000e2 * t51114 - 0.16640000000000000000e2 * t51117 + 0.12480e2 * t51119 + 0.56488000000000000000e0 * t13103 * t1000 - 0.49120000000000000000e0 * t14443 * t154 * t3249 - 0.78592000000000000002e-3 * t49416 * t3253 - 0.49120000000000000000e0 * t16805 * t14443 * t30 * tau[0] + 0.56488000000000000000e0 * t4097 * t14199 * t30 - 0.78592000000000000002e-3 * t4097 * t14211 * t40) - 0.15545350000000000000e-1 * t395 * t14459 - 0.15545350000000000000e-1 * t413 * t14459 + 0.50000000000000000001e0 * t418 * t441 * t14458 - 0.15545350000000000000e-1 * t115 * t136 * t51194 + t629 * t14480 + t275 * (t51239 + t51277));
17289 
17290   t51282 = t275 * t14526;
17291   t51306 = t12529 * t33179;
17292   t51309 = t3954 * t10361;
17293   t51312 = t3954 * t3326;
17294   t51315 = t12529 * t33150;
17295   t51320 = t1090 * t3941;
17296   t51321 = t51320 * t334;
17297   t51326 = t93 * t3941;
17298   t51339 = -0.30420e2 * t5050 * t3961 * t3329 + 0.20280e2 * t5175 * t14523 - 0.33800000000000000000e2 * t1764 * t13302 + 0.20280e2 * t1764 * t3954 * t3329 + 0.16900000000000000000e2 * t352 * t33973 * t3938 - 0.30420e2 * t33115 * t13251 + 0.20280e2 * t10464 * t13378 - 0.20280e2 * t3954 * t44729 + 0.60840e2 * t16219 * t14520 * t653 + 0.22211712000000000000e-4 * t5782 * t51306 - 0.41646960000000000000e-2 * t19862 * t51309 + 0.83293920000000000000e-2 * t19857 * t51312 + 0.11105856000000000000e-1 * t5011 * t51315 - 0.33317568000000000000e-4 * t5005 * t51315 - 0.55529280000000000000e-2 * t16289 * t51321 + 0.16658784000000000000e-4 * t16297 * t51321 - 0.34705800000000000000e-2 * t19862 * t352 * t51326 - 0.83293920000000000000e-2 * t22146 * t13326 * t10361 + 0.20823480000000000000e-1 * t34352 * t13326 * t3326 + 0.41646960000000000000e-2 * t19862 * t3954 * t10372;
17299   t51340 = t3954 * t10378;
17300   t51343 = t1087 * t3938;
17301   t51344 = t51343 * t334;
17302   t51349 = t93 * t3938;
17303   t51350 = t352 * t51349;
17304   t51353 = t14520 * t334;
17305   t51394 = -0.44423424000000000000e-4 * t5801 * t51315 - 0.83293920000000000000e-2 * t22146 * t13345 * t3326 - 0.41646960000000000000e-2 * t19862 * t51340 - 0.74039040000000000000e-2 * t5777 * t51306 - 0.41646960000000000000e-2 * t16220 * t3402 * t43851 + 0.10411740000000000000e-1 * t16225 * t3402 * t13181 - 0.41646960000000000000e-2 * t5038 * t3402 * t13184 + 0.10140e2 * t10464 * t13366 - 0.10140e2 * t10453 * t3954 + 0.10140e2 * t3954 * t651 * t3329 - 0.15210e2 * t16325 * t14520;
17306   t51405 = t10464 * t283;
17307   t51409 = t3941 * t661 * t283;
17308   t51427 = t14517 * t276;
17309   t51430 = t14517 * t283;
17310   t51435 = t3480 * t44427;
17311   t51448 = -0.15210e2 * t33848 * t13181 + 0.10140e2 * t10680 * t13184 + 0.10411740000000000000e-2 * t22434 * t14486 - 0.33800000000000000000e2 * t34531 * t13302 - 0.69411600000000000000e-3 * t51405 * t13307 + 0.10411740000000000000e-2 * t51409 * t3406 + 0.50700000000000000000e2 * t19838 * t3417 * t3938 - 0.60840e2 * t34405 * t44279 - 0.16900000000000000000e2 * t3417 * t14514 + 0.10140e2 * t33383 * t3961 + 0.16900000000000000000e2 * t3321 * t3417 - 0.11105856000000000000e-1 * t5011 * t51306 + 0.33317568000000000000e-4 * t5005 * t51306 + 0.18509760000000000000e-2 * t51427 * t3409 - 0.55529280000000000000e-5 * t51430 * t3413 - 0.11568600000000000000e-2 * t51430 * t3418 - 0.20823480000000000000e-2 * t1775 * t51435 - 0.41646960000000000000e-2 * t16220 * t3421 * t44010 + 0.20823480000000000000e-2 * t5051 * t3421 * t1033 * t3318 - 0.41646960000000000000e-2 * t5038 * t3421 * t43871;
17312   t51452 = t3480 * t44416;
17313   t51479 = t2949 * t13341;
17314   t51482 = t2949 * t13332;
17315   t51489 = t33150 * t333;
17316   t51490 = t13326 * t51489;
17317   t51496 = t352 * t13332 * t1036;
17318   t51499 = t13345 * t51489;
17319   t51506 = 0.13882320000000000000e-2 * t2153 * t51452 + 0.46274400000000000000e-2 * t2165 * t51479 - 0.23137200000000000000e-2 * t2153 * t51482 + 0.34705800000000000000e-2 * t1775 * t51479 - 0.34705800000000000000e-2 * t1775 * t51482 + 0.22211712000000000000e-1 * t16305 * t51490 - 0.66635136000000000000e-4 * t16310 * t51490 + 0.13882320000000000000e-1 * t19857 * t51496 - 0.11105856000000000000e-1 * t16289 * t51499 + 0.33317568000000000000e-4 * t16297 * t51499 + 0.69411600000000000000e-2 * t19862 * t51496;
17320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17321     v4rhotau3[1] = t51282 + t11962 * t14526 + t3694 * (t51339 - 0.83293920000000000000e-2 * t19857 * t51340 + 0.11105856000000000000e-1 * t16305 * t51344 - 0.33317568000000000000e-4 * t16310 * t51344 - 0.69411600000000000000e-2 * t19857 * t51350 - 0.18509760000000000000e-1 * t19757 * t51353 + 0.55529280000000000000e-4 * t19761 * t51353 - 0.11568600000000000000e-1 * t19867 * t51350 - 0.83293920000000000000e-2 * t19857 * t51309 + 0.13882320000000000000e-1 * t19867 * t51312 + 0.14807808000000000000e-1 * t5797 * t51315 + t51394 + t51448 - 0.41646960000000000000e-2 * t5038 * t3421 * t43875 + 0.20823480000000000000e-2 * t1775 * t51452 + 0.10411740000000000000e-1 * t16225 * t3421 * t43851 - 0.20823480000000000000e-1 * t20102 * t3421 * t13181 + 0.69411600000000000000e-2 * t5624 * t3421 * t13184 - 0.27764640000000000000e-2 * t2165 * t51435 + 0.20823480000000000000e-2 * t22434 * t14500 + 0.20823480000000000000e-2 * t5051 * t3402 * t43871 + 0.20823480000000000000e-2 * t5051 * t3402 * t43875 + 0.13882320000000000000e-2 * t10970 * t14492 + t51506);
17322 
17323   t51511 = t275 * t14569;
17324   t51532 = t44905 * t1036;
17325   t51541 = t33115 * t283;
17326   t51560 = t998 * t3985;
17327   t51563 = -0.33800000000000000000e2 * t1764 * t12826 * t93 + 0.20280e2 * t5175 * t14539 - 0.67600000000000000000e2 * t1764 * t3240 * t3985 - 0.34705800000000000000e-3 * t33383 * t4027 - 0.20280e2 * t3954 * t44906 - 0.30420e2 * t33848 * t13251 + 0.20280e2 * t10680 * t13378 + 0.60840e2 * t16219 * t14536 * t653 + 0.33800000000000000000e2 * t3399 * t51532 - 0.33800000000000000000e2 * t35102 * t13302 - 0.33800000000000000000e2 * t45643 * t3399 - 0.60840e2 * t44797 * t13378 + 0.10411740000000000000e-2 * t51541 * t13420 + 0.10411740000000000000e-2 * t22434 * t14544 + 0.10411740000000000000e-2 * t5051 * t13419 * t3329 - 0.20823480000000000000e-2 * t5038 * t13452 * t3318 + 0.34705800000000000000e-2 * t5624 * t13452 * t3329 - 0.15210e2 * t16325 * t14536 - 0.15210e2 * t5050 * t4023 * t3329 - 0.67600000000000000000e2 * t51560 * t45394;
17328   t51572 = t10464 * t307;
17329   t51575 = t4026 * t1036;
17330   t51576 = t51575 * t334;
17331   t51581 = t13666 * t10621;
17332   t51584 = t42093 * t10600;
17333   t51598 = t4023 * t1033;
17334   t51599 = t51598 * t334;
17335   t51604 = t14536 * t334;
17336   t51609 = t13657 * t10612;
17337   t51612 = t13657 * t10621;
17338   t51615 = 0.10140e2 * t10680 * t13366 - 0.15210e2 * t33115 * t13412 - 0.16900000000000000000e2 * t3417 * t14527 + 0.16900000000000000000e2 * t3391 * t3417 - 0.23137200000000000000e-2 * t51572 * t13430 - 0.55529280000000000000e-2 * t16289 * t51576 + 0.16658784000000000000e-4 * t16297 * t51576 - 0.41646960000000000000e-2 * t19862 * t51581 - 0.74039040000000000000e-2 * t5777 * t51584 + 0.22211712000000000000e-4 * t5782 * t51584 - 0.83293920000000000000e-2 * t22146 * t13440 * t10378 - 0.83293920000000000000e-2 * t19857 * t51581 - 0.11105856000000000000e-1 * t5011 * t51584 + 0.33317568000000000000e-4 * t5005 * t51584 + 0.11105856000000000000e-1 * t16305 * t51599 - 0.33317568000000000000e-4 * t16310 * t51599 - 0.18509760000000000000e-1 * t19757 * t51604 + 0.55529280000000000000e-4 * t19761 * t51604 - 0.83293920000000000000e-2 * t19857 * t51609 + 0.13882320000000000000e-1 * t19867 * t51612;
17339   t51617 = t42115 * t10600;
17340   t51639 = t13440 * t51489;
17341   t51643 = t352 * t13446 * t1036;
17342   t51646 = t11192 * t13302;
17343   t51649 = t13326 * t3399;
17344   t51659 = t13440 * t33179 * t333;
17345   t51670 = 0.14807808000000000000e-1 * t5797 * t51617 - 0.44423424000000000000e-4 * t5801 * t51617 - 0.83293920000000000000e-2 * t22146 * t13440 * t10361 + 0.20823480000000000000e-1 * t34352 * t13440 * t3326 - 0.41646960000000000000e-2 * t19862 * t51609 + 0.83293920000000000000e-2 * t19857 * t51612 + 0.11105856000000000000e-1 * t5011 * t51617 - 0.33317568000000000000e-4 * t5005 * t51617 + 0.41646960000000000000e-2 * t19862 * t13666 * t10612 - 0.66635136000000000000e-4 * t16310 * t51639 - 0.13882320000000000000e-1 * t19857 * t51643 + 0.13882320000000000000e-1 * t19857 * t51646 + 0.13882320000000000000e-1 * t19857 * t51649 - 0.23137200000000000000e-1 * t19867 * t51643 + 0.5070e1 * t33383 * t4023 + 0.69411600000000000000e-2 * t19862 * t51646 - 0.11105856000000000000e-1 * t16289 * t51659 + 0.33317568000000000000e-4 * t16297 * t51659 + 0.69411600000000000000e-2 * t19862 * t51649 - 0.69411600000000000000e-2 * t19862 * t11192 * t3417 * t1033;
17346   t51673 = t3402 * t3417;
17347   t51678 = t10464 * t276;
17348   t51693 = t3416 * t51560;
17349   t51717 = t3421 * t3417;
17350   t51722 = 0.22211712000000000000e-1 * t16305 * t51639 - 0.23137200000000000000e-2 * t2153 * t51673 + 0.10140000000000000000e3 * t44797 * t13342 + 0.18509760000000000000e-2 * t51678 * t13423 - 0.41646960000000000000e-2 * t16220 * t13452 * t10372 + 0.10411740000000000000e-1 * t16225 * t13452 * t10378 + 0.10411740000000000000e-1 * t16225 * t13452 * t10361 - 0.20823480000000000000e-1 * t20102 * t13452 * t3326 + 0.92548800000000000000e-2 * t2165 * t51693 - 0.55529280000000000000e-5 * t51405 * t13427 - 0.41646960000000000000e-2 * t16220 * t13419 * t3326 + 0.13882320000000000000e-2 * t10970 * t14547 + 0.46274400000000000000e-2 * t2153 * t51693 + 0.20823480000000000000e-2 * t22434 * t14550 + 0.20823480000000000000e-2 * t5051 * t3402 * t44431 - 0.41646960000000000000e-2 * t5038 * t3402 * t13366 + 0.13882320000000000000e-1 * t1775 * t51693 - 0.34705800000000000000e-2 * t1775 * t51673 + 0.46274400000000000000e-2 * t2165 * t51717 + 0.34705800000000000000e-2 * t1775 * t51717;
17351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17352     v4rhotau3[2] = t51511 + t11962 * t14569 + t3694 * (t51563 + t51615 + t51670 + t51722);
17353 
17354   t51730 = t67 * t127 * t14585 / 0.32e2;
17355   t51731 = t389 * t14584;
17356   t51747 = t14616 * t661;
17357   t51759 = t14617 * t276;
17358   t51762 = t14617 * t283;
17359   t51767 = t306 * t14613;
17360   t51774 = t4026 * t304;
17361   t51775 = t51774 * t283;
17362   t51781 = 0.50700000000000000000e2 * t352 * t33973 * t4023 + 0.10411740000000000000e-2 * t51747 * t663 - 0.45630e2 * t33848 * t13412 + 0.60840e2 * t16219 * t14613 * t653 - 0.10140000000000000000e3 * t46258 * t3399 + 0.152100e3 * t46263 * t3399 + 0.18509760000000000000e-2 * t51759 * t668 - 0.55529280000000000000e-5 * t51762 * t673 + 0.31235220000000000000e-2 * t22434 * t14620 + 0.10411740000000000000e-1 * t16225 * t51767 * t648 - 0.20823480000000000000e-1 * t20102 * t51767 * t653 - 0.34705800000000000000e-2 * t51775 * t3418 - 0.12494088000000000000e-1 * t16220 * t13419 * t3396;
17363   t51791 = t287 * t14613;
17364   t51795 = t13440 * t3399;
17365   t51802 = t1087 * t4023;
17366   t51803 = t51802 * t334;
17367   t51806 = t93 * t4023;
17368   t51807 = t352 * t51806;
17369   t51812 = t4026 * t1090;
17370   t51813 = t51812 * t334;
17371   t51823 = -0.12494088000000000000e-1 * t16220 * t3402 * t44858 + 0.31235220000000000000e-1 * t16225 * t3402 * t13412 - 0.18509760000000000000e-1 * t16355 * t51767 * t334 + 0.55529280000000000000e-4 * t5624 * t51791 * t334 + 0.41646960000000000000e-1 * t19857 * t51795 + 0.20823480000000000000e-1 * t19862 * t51795 - 0.15210e2 * t16325 * t14613 - 0.99952704000000000000e-4 * t16310 * t51803 - 0.20823480000000000000e-1 * t19857 * t51807 - 0.34705800000000000000e-1 * t19867 * t51807 - 0.16658784000000000000e-1 * t16289 * t51813 + 0.49976352000000000000e-4 * t16297 * t51813 - 0.10411740000000000000e-1 * t19862 * t46104 * t3417 + 0.33317568000000000000e-1 * t16305 * t51803;
17372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17373     v4rhotau3[3] = -t14588 - t14610 + t14630 + t3 * (-0.3e1 / 0.32e2 * t380 * t14586 - t51730 - t387 * t18 * t51731 * t378 / 0.32e2 - 0.15545350000000000000e-1 * t482 * t14608 - 0.15545350000000000000e-1 * t497 * t14608 + 0.50000000000000000001e0 * t502 * t522 * t14607 + t629 * t14629 + t275 * (t51781 + t51823));
17374 
17375   t51865 = t13210 * t3465;
17376   t51872 = -0.45630e2 * t33115 * t13495 + 0.60840e2 * t16219 * t14464 * t876 + 0.10411740000000000000e-1 * t16225 * t51223 * t873 - 0.20823480000000000000e-1 * t20102 * t51223 * t876 - 0.10140000000000000000e3 * t45185 * t3465 + 0.152100e3 * t45188 * t3465 + 0.18509760000000000000e-2 * t51231 * t886 - 0.55529280000000000000e-5 * t51234 * t890 + 0.31235220000000000000e-2 * t45161 * t14471 - 0.15210e2 * t19771 * t14464 + 0.20823480000000000000e-1 * t19862 * t51865 + 0.41646960000000000000e-1 * t19857 * t51865 + 0.10411740000000000000e-2 * t51274 * t882;
17377   t51875 = t51199 * t701;
17378   t51882 = t51203 * t701;
17379   t51887 = t1030 * t49943;
17380   t51911 = 0.50700000000000000000e2 * t1030 * t45154 + 0.49976352000000000000e-4 * t16297 * t51875 - 0.10411740000000000000e-1 * t19862 * t3941 * t51 * t719 + 0.33317568000000000000e-1 * t16305 * t51882 - 0.99952704000000000000e-4 * t16310 * t51882 - 0.20823480000000000000e-1 * t19857 * t51887 - 0.34705800000000000000e-1 * t19867 * t51887 - 0.16658784000000000000e-1 * t16289 * t51875 - 0.18509760000000000000e-1 * t16355 * t51223 * t701 + 0.55529280000000000000e-4 * t5624 * t51227 * t701 - 0.34705800000000000000e-2 * t51430 * t3481 - 0.12494088000000000000e-1 * t16220 * t13189 * t3462 - 0.12494088000000000000e-1 * t16220 * t3332 * t45354 + 0.31235220000000000000e-1 * t16225 * t3332 * t13495;
17381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17382     v4rhotau3[4] = -t14439 - t14461 + t14481 + t3 * (-0.3e1 / 0.32e2 * t682 * t14437 - t51106 - t323 * t18 * t51107 * t680 / 0.32e2 - 0.15545350000000000000e-1 * t745 * t14459 - 0.15545350000000000000e-1 * t753 * t14459 + 0.50000000000000000001e0 * t418 * t767 * t14458 + t859 * t14480 + t275 * (t51872 + t51911));
17383 
17384   t51964 = -0.20823480000000000000e-2 * t5038 * t11044 * t3938 - 0.33800000000000000000e2 * t45692 * t3465 + 0.33800000000000000000e2 * t3465 * t51532 - 0.33800000000000000000e2 * t45643 * t3465 + 0.10411740000000000000e-2 * t51409 * t3607 - 0.60840e2 * t34405 * t45779 + 0.10411740000000000000e-2 * t45161 * t14486 + 0.10411740000000000000e-2 * t5051 * t11051 * t3941 + 0.34705800000000000000e-2 * t5624 * t11051 * t3938 + 0.20280e2 * t5709 * t14523 - 0.67600000000000000000e2 * t1764 * t3900 * t1053 * tau[1] - 0.30420e2 * t33115 * t13580 + 0.20280e2 * t10464 * t13583 - 0.20280e2 * t3954 * t45985 - 0.34705800000000000000e-3 * t14517 * t3616 - 0.33800000000000000000e2 * t1764 * t13556 * t1036 - 0.15210e2 * t33848 * t13495 + 0.10140e2 * t10464 * t13563 + 0.16900000000000000000e2 * t3321 * t13556 - 0.67600000000000000000e2 * t3900 * tau[1] * t35530;
17385   t51974 = t13326 * t3465;
17386   t51977 = t13326 * t45144;
17387   t51982 = t719 * t1036;
17388   t51983 = t13657 * t51982;
17389   t51988 = t13345 * t45144;
17390   t51993 = t13666 * t51982;
17391   t52006 = t3480 * t12595;
17392   t52009 = t3480 * t12622;
17393   t52014 = t46427 * t3513;
17394   t52017 = -0.15210e2 * t19771 * t14520 - 0.15210e2 * t5050 * t3601 * t3938 - 0.16900000000000000000e2 * t13556 * t14514 + 0.5070e1 * t34893 * t3938 + 0.69411600000000000000e-2 * t19862 * t51974 + 0.22211712000000000000e-1 * t16305 * t51977 - 0.66635136000000000000e-4 * t16310 * t51977 - 0.13882320000000000000e-1 * t19857 * t51983 + 0.13882320000000000000e-1 * t19857 * t51974 - 0.11105856000000000000e-1 * t16289 * t51988 + 0.33317568000000000000e-4 * t16297 * t51988 + 0.69411600000000000000e-2 * t19862 * t51993 - 0.69411600000000000000e-2 * t19862 * t13345 * t3465 + 0.13882320000000000000e-1 * t19857 * t51993 - 0.23137200000000000000e-1 * t19867 * t51983 + 0.60840e2 * t16219 * t14520 * t876 - 0.23137200000000000000e-2 * t2153 * t52006 + 0.46274400000000000000e-2 * t2165 * t52009 - 0.34705800000000000000e-2 * t1775 * t52006 + 0.13882320000000000000e-1 * t1775 * t52014;
17395   t52027 = t45529 * t10821;
17396   t52035 = t3954 * t10846;
17397   t52038 = t14520 * t701;
17398   t52043 = t3954 * t10810;
17399   t52046 = t3954 * t3462;
17400   t52049 = t51320 * t701;
17401   t52063 = t45529 * t10853;
17402   t52073 = -0.41646960000000000000e-2 * t16220 * t3421 * t45283 - 0.41646960000000000000e-2 * t5038 * t11051 * t13210 - 0.23137200000000000000e-2 * t51572 * t13667 + 0.14807808000000000000e-1 * t5797 * t52027 - 0.44423424000000000000e-4 * t5801 * t52027 - 0.83293920000000000000e-2 * t22146 * t13345 * t3462 - 0.41646960000000000000e-2 * t19862 * t52035 - 0.18509760000000000000e-1 * t19757 * t52038 + 0.55529280000000000000e-4 * t19761 * t52038 - 0.83293920000000000000e-2 * t19857 * t52043 + 0.13882320000000000000e-1 * t19867 * t52046 + 0.16658784000000000000e-4 * t16297 * t52049 - 0.83293920000000000000e-2 * t22146 * t13326 * t10810 + 0.20823480000000000000e-1 * t34352 * t13326 * t3462 + 0.41646960000000000000e-2 * t19862 * t3954 * t10840 - 0.83293920000000000000e-2 * t19857 * t52035 - 0.11105856000000000000e-1 * t5011 * t52063 + 0.33317568000000000000e-4 * t5005 * t52063 - 0.41646960000000000000e-2 * t19862 * t52043 + 0.10411740000000000000e-1 * t16225 * t3421 * t45354;
17403   t52106 = t51343 * t701;
17404   t52119 = -0.20823480000000000000e-1 * t20102 * t3421 * t13495 + 0.92548800000000000000e-2 * t2165 * t52014 + 0.20823480000000000000e-2 * t45161 * t14500 + 0.20823480000000000000e-2 * t5051 * t11044 * t13210 + 0.13882320000000000000e-2 * t13591 * t14492 + 0.46274400000000000000e-2 * t2153 * t52014 + 0.34705800000000000000e-2 * t1775 * t52009 - 0.41646960000000000000e-2 * t16220 * t3402 * t45354 + 0.10411740000000000000e-1 * t16225 * t3402 * t13495 + 0.18509760000000000000e-2 * t51427 * t3610 - 0.55529280000000000000e-5 * t51430 * t3613 + 0.10140000000000000000e3 * t44797 * t13527 - 0.74039040000000000000e-2 * t5777 * t52063 + 0.22211712000000000000e-4 * t5782 * t52063 + 0.11105856000000000000e-1 * t16305 * t52106 - 0.33317568000000000000e-4 * t16310 * t52106 + 0.83293920000000000000e-2 * t19857 * t52046 + 0.11105856000000000000e-1 * t5011 * t52027 - 0.33317568000000000000e-4 * t5005 * t52027 - 0.55529280000000000000e-2 * t16289 * t52049;
17405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17406     v4rhotau3[5] = t51282 + t12138 * t14526 + t3694 * (t51964 + t52017 + t52073 + t52119);
17407 
17408   t52146 = t13666 * t947;
17409   t52158 = t3954 * t11084;
17410   t52161 = t3954 * t3598;
17411   t52166 = t11044 * t3954;
17412   t52177 = 0.60840e2 * t16219 * t14536 * t876 - 0.30420e2 * t5050 * t3961 * t3601 + 0.20280e2 * t5709 * t14539 + 0.20280e2 * t1764 * t46716 * t93 - 0.20280e2 * t3954 * t46328 - 0.30420e2 * t33848 * t13580 + 0.20280e2 * t10680 * t13583 + 0.16900000000000000000e2 * t1030 * t46333 - 0.33800000000000000000e2 * t1764 * t13657 * t75 + 0.22211712000000000000e-4 * t5782 * t52146 - 0.83293920000000000000e-2 * t22146 * t13440 * t10846 - 0.83293920000000000000e-2 * t22146 * t13440 * t10810 + 0.20823480000000000000e-1 * t34352 * t13440 * t3462 - 0.41646960000000000000e-2 * t19862 * t52158 + 0.83293920000000000000e-2 * t19857 * t52161 + 0.13882320000000000000e-2 * t13591 * t14547 + 0.13882320000000000000e-2 * t2153 * t52166 + 0.20823480000000000000e-2 * t45161 * t14550 + 0.20823480000000000000e-2 * t5051 * t11044 * t13326 + 0.20823480000000000000e-2 * t5051 * t3402 * t45512;
17413   t52184 = t3480 * t46193;
17414   t52202 = t3402 * t13556;
17415   t52206 = t3421 * t13556;
17416   t52213 = t13657 * t947;
17417   t52216 = t51575 * t701;
17418   t52225 = t13666 * t11099;
17419   t52234 = 0.46274400000000000000e-2 * t2165 * t52206 - 0.23137200000000000000e-2 * t2153 * t52202 + 0.34705800000000000000e-2 * t1775 * t52206 - 0.44423424000000000000e-4 * t5801 * t52213 - 0.55529280000000000000e-2 * t16289 * t52216 + 0.16658784000000000000e-4 * t16297 * t52216 - 0.34705800000000000000e-2 * t19862 * t4026 * t51 * t719 - 0.41646960000000000000e-2 * t19862 * t52225 - 0.74039040000000000000e-2 * t5777 * t52146 - 0.11105856000000000000e-1 * t5011 * t52146 + 0.33317568000000000000e-4 * t5005 * t52146;
17420   t52237 = t51598 * t701;
17421   t52242 = t4023 * t51;
17422   t52243 = t52242 * t719;
17423   t52246 = t14536 * t701;
17424   t52283 = 0.11105856000000000000e-1 * t16305 * t52237 - 0.33317568000000000000e-4 * t16310 * t52237 - 0.69411600000000000000e-2 * t19857 * t52243 - 0.18509760000000000000e-1 * t19757 * t52246 + 0.55529280000000000000e-4 * t19761 * t52246 - 0.11568600000000000000e-1 * t19867 * t52243 - 0.83293920000000000000e-2 * t19857 * t52158 + 0.13882320000000000000e-1 * t19867 * t52161 + 0.14807808000000000000e-1 * t5797 * t52213 + 0.10140e2 * t10680 * t13563 - 0.10140e2 * t11164 * t3954 - 0.15210e2 * t33115 * t13783 + 0.10140e2 * t10464 * t13786 - 0.15210e2 * t19771 * t14536 + 0.10140e2 * t3954 * t651 * t3601 + 0.10140e2 * t34893 * t3961 + 0.11105856000000000000e-1 * t5011 * t52213 - 0.33317568000000000000e-4 * t5005 * t52213 + 0.41646960000000000000e-2 * t19862 * t13666 * t11090 - 0.83293920000000000000e-2 * t19857 * t52225;
17425   t52286 = t13440 * t45809;
17426   t52291 = t13440 * t3465;
17427   t52294 = t13440 * t45144;
17428   t52335 = -0.27764640000000000000e-2 * t2165 * t52184 - 0.55529280000000000000e-5 * t51405 * t13797 - 0.41646960000000000000e-2 * t16220 * t13419 * t3462 + 0.20823480000000000000e-2 * t5051 * t3402 * t45503 - 0.33800000000000000000e2 * t46258 * t3465 + 0.50700000000000000000e2 * t46263 * t3465 - 0.60840e2 * t44797 * t13583 + 0.10411740000000000000e-2 * t51541 * t13791 - 0.69411600000000000000e-3 * t51405 * t13800 + 0.10411740000000000000e-2 * t45161 * t14544 - 0.16900000000000000000e2 * t13556 * t14527;
17429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17430     v4rhotau3[6] = t51511 + t12138 * t14569 + t3694 * (t52177 - 0.41646960000000000000e-2 * t5038 * t11044 * t3961 - 0.41646960000000000000e-2 * t5038 * t3402 * t13563 - 0.20823480000000000000e-2 * t1775 * t52184 + 0.20823480000000000000e-2 * t1775 * t52166 - 0.41646960000000000000e-2 * t16220 * t13452 * t10840 + 0.10411740000000000000e-1 * t16225 * t13452 * t10846 - 0.41646960000000000000e-2 * t5038 * t3421 * t45512 - 0.11568600000000000000e-2 * t3465 * t46164 + 0.18509760000000000000e-2 * t51678 * t13794 - 0.34705800000000000000e-2 * t1775 * t52202 + t52234 + t52283 + 0.16900000000000000000e2 * t3391 * t13556 - 0.11105856000000000000e-1 * t16289 * t52286 + 0.33317568000000000000e-4 * t16297 * t52286 + 0.69411600000000000000e-2 * t19862 * t52291 + 0.22211712000000000000e-1 * t16305 * t52294 - 0.66635136000000000000e-4 * t16310 * t52294 + 0.13882320000000000000e-1 * t19857 * t52291 + 0.10411740000000000000e-1 * t16225 * t13452 * t10810 - 0.20823480000000000000e-1 * t20102 * t13452 * t3462 + 0.69411600000000000000e-2 * t5624 * t3421 * t13563 + t52335);
17431 
17432   t52348 = t14576 * t198 * tau[1];
17433   t52351 = t27185 * t14576 * tau[1];
17434   t52353 = t8655 * t3990;
17435   t52390 = 0.1e1 / t8609;
17436   t52400 = t52390 * t184 * tau[1];
17437   t52403 = t14380 * t184;
17438   t52407 = t710 * t47448 * t800;
17439   t52428 = -0.170040e3 * t13695 + 0.22672000000000000000e3 * t52348 + 0.22672000000000000000e3 * t52351 - 0.170040e3 * t52353 - 0.50832560000000000000e2 * t50907 * t14594 + 0.13096800000000000000e3 * t52390 * t198 * t14594 * tau[1] + 0.52472320000000000002e1 * t47448 * t192 * t710 * t800 + 0.11116320000000000000e4 * t27220 * t52400 - 0.65950392000000000000e3 * t8655 * t52403 + 0.68077824000000000002e2 * t8655 * t52407 + 0.29388000000000000000e4 * t27226 * t52400 - 0.21270513600000000000e4 * t8678 * t52403 + 0.21956659200000000001e3 * t8678 * t52407 + 0.30985200000000000000e4 * t27257 * t52400 - 0.25284344000000000000e4 * t8693 * t52403 + 0.26099968000000000001e3 * t8693 * t52407 + 0.11403840000000000000e4 * t27286 * t52400 - 0.10100544000000000000e4 * t8705 * t52403 + 0.10426368000000000000e3 * t8705 * t52407;
17440   t52468 = -0.45630e2 * t33848 * t13783 + 0.30420e2 * t10680 * t13786 + 0.60840e2 * t16219 * t14613 * t876 - 0.45630e2 * t5050 * t4023 * t3601 - 0.12494088000000000000e-1 * t16220 * t3402 * t46167 + 0.31235220000000000000e-1 * t16225 * t3402 * t13783 - 0.12494088000000000000e-1 * t5038 * t3402 * t13786 - 0.18509760000000000000e-1 * t16355 * t51767 * t701 + 0.55529280000000000000e-4 * t5624 * t51791 * t701 - 0.12494088000000000000e-1 * t16220 * t13419 * t3598 + 0.62470440000000000000e-2 * t5051 * t3402 * t46209 + 0.15210e2 * t34893 * t4023 - 0.15210e2 * t19771 * t14613;
17441   t52490 = t51802 * t701;
17442   t52495 = t51812 * t701;
17443   t52504 = -0.62470440000000000000e-2 * t5038 * t11044 * t4023 + 0.10411740000000000000e-1 * t16225 * t51767 * t873 - 0.20823480000000000000e-1 * t20102 * t51767 * t876 + 0.10411740000000000000e-1 * t5624 * t13452 * t3601 + 0.18509760000000000000e-2 * t51759 * t886 - 0.55529280000000000000e-5 * t51762 * t890 + 0.31235220000000000000e-2 * t45161 * t14620 + 0.31235220000000000000e-2 * t5051 * t13419 * t3601 + 0.33317568000000000000e-1 * t16305 * t52490 - 0.99952704000000000000e-4 * t16310 * t52490 - 0.16658784000000000000e-1 * t16289 * t52495 + 0.49976352000000000000e-4 * t16297 * t52495 - 0.10411740000000000000e-2 * t51774 * t3616 + 0.10411740000000000000e-2 * t51747 * t882;
17444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17445     v4rhotau3[7] = -t14588 - t14610 + t14630 + t3 * (-0.3e1 / 0.32e2 * t691 * t14586 - t51730 - t387 * t18 * t51731 * t689 / 0.32e2 - 0.3e1 / 0.32e2 * t67 * t18 * t70 * (0.12480e2 * t13695 - 0.16640000000000000000e2 * t52348 - 0.16640000000000000000e2 * t52351 + 0.12480e2 * t52353 + 0.56488000000000000000e0 * t13705 * t1055 - 0.49120000000000000000e0 * t14592 * t198 * t3522 - 0.78592000000000000002e-3 * t50907 * t3526 - 0.49120000000000000000e0 * t27408 * t14592 * t79 * tau[1] + 0.56488000000000000000e0 * t8655 * t14368 * t79 - 0.78592000000000000002e-3 * t8655 * t14380 * t89) - 0.15545350000000000000e-1 * t771 * t14608 - 0.15545350000000000000e-1 * t779 * t14608 + 0.50000000000000000001e0 * t502 * t793 * t14607 - 0.15545350000000000000e-1 * t166 * t180 * t52428 + t859 * t14629 + t275 * (t52468 + t52504));
17446 
17447   t52509 = t1285 * t1185;
17448   t52511 = sigma[0] * t5320;
17449   t52512 = t52511 * t4144;
17450   t52514 = t33 * t16559;
17451   t52526 = t1285 * t1326;
17452   t52528 = t52511 * t5330;
17453   t52530 = t52514 * t16457;
17454   t52548 = t1285 * t640;
17455   t52550 = t16054 * t1285;
17456   t52552 = t16061 * t1285;
17457   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17458     v4sigma4[0] = t3 * (-0.3e1 / 0.32e2 * t14 * t18 * t21 * (0.27002880e-7 * t52509 - 0.341606400e-9 * t52512 + 0.934379520e-12 * t52514 * t16831 - 0.18862080e-7 * t56 * t52509 + 0.75448320e-10 * t56 * t52512) - 0.15545350000000000000e-1 * t115 * t136 * (-0.2136960e0 * t52526 + 0.11397120e0 * t52528 - 0.14246400e-1 * t52530 - 0.23612544e1 * t149 * t52526 + 0.125933568e1 * t149 * t52528 - 0.157416960e0 * t149 * t52530 - 0.23459328e1 * t155 * t52526 + 0.125116416e1 * t155 * t52528 - 0.156395520e0 * t155 * t52530) + t275 * (0.33672024000000000000e-7 * t52548 - 0.65196511200000000000e-9 * t52550 + 0.33056942400000000000e-11 * t52552 - 0.49585413600000000000e-14 * t16066 * t1285 - 0.37482264000000000000e-7 * t305 * t52548 + 0.29985811200000000000e-9 * t305 * t52550 - 0.56223396000000000000e-12 * t305 * t52552));
17459 
17460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17461     v4sigma4[1] = 0.0e0;
17462 
17463   t52565 = t3029 * t455;
17464   t52567 = t75 * t455;
17465   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17466     v4sigma4[2] = t3694 * (0.33672024000000000000e-7 * t52565 - 0.65196511200000000000e-9 * t16054 * t52567 + 0.33056942400000000000e-11 * t16061 * t52567 - 0.49585413600000000000e-14 * t16066 * t52567 - 0.37482264000000000000e-7 * t305 * t52565 + 0.29985811200000000000e-9 * t666 * t9251 * t455 - 0.56223396000000000000e-12 * t671 * t29472 * t455);
17467 
17468   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17469     v4sigma4[3] = 0.0e0;
17470 
17471   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17472     v4sigma4[4] = 0.0e0;
17473 
17474   t52583 = t12064 * t37;
17475   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17476     v4sigma4[5] = t3694 * (0.33672024000000000000e-7 * t52583 - 0.65196511200000000000e-9 * t16054 * t39554 + 0.33056942400000000000e-11 * t16061 * t39554 - 0.49585413600000000000e-14 * t16066 * t39554 - 0.37482264000000000000e-7 * t305 * t52583 + 0.29985811200000000000e-9 * t666 * t12074 * t37 - 0.56223396000000000000e-12 * t671 * t39132 * t37);
17477 
17478   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17479     v4sigma4[6] = 0.0e0;
17480 
17481   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17482     v4sigma4[7] = 0.0e0;
17483 
17484   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17485     v4sigma4[8] = 0.0e0;
17486 
17487   t52600 = t47831 * t26;
17488   t52602 = t807 * t26;
17489   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17490     v4sigma4[9] = t3694 * (0.33672024000000000000e-7 * t52600 - 0.65196511200000000000e-9 * t16054 * t52602 + 0.33056942400000000000e-11 * t16061 * t52602 - 0.49585413600000000000e-14 * t16066 * t52602 - 0.37482264000000000000e-7 * t305 * t52600 + 0.29985811200000000000e-9 * t666 * t47857 * t26 - 0.56223396000000000000e-12 * t671 * t47867 * t26);
17491 
17492   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17493     v4sigma4[10] = 0.0e0;
17494 
17495   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17496     v4sigma4[11] = 0.0e0;
17497 
17498   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17499     v4sigma4[12] = 0.0e0;
17500 
17501   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17502     v4sigma4[13] = 0.0e0;
17503 
17504   t52618 = t2444 * t2401;
17505   t52620 = sigma[2] * t8611;
17506   t52621 = t52620 * t8880;
17507   t52623 = t82 * t27151;
17508   t52635 = t2444 * t2487;
17509   t52637 = t52620 * t8631;
17510   t52639 = t52623 * t27128;
17511   t52657 = t2444 * t640;
17512   t52659 = t16054 * t2444;
17513   t52661 = t16061 * t2444;
17514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17515     v4sigma4[14] = t3 * (-0.3e1 / 0.32e2 * t67 * t18 * t70 * (0.27002880e-7 * t52618 - 0.341606400e-9 * t52621 + 0.934379520e-12 * t52623 * t27405 - 0.18862080e-7 * t98 * t52618 + 0.75448320e-10 * t98 * t52621) - 0.15545350000000000000e-1 * t166 * t180 * (-0.2136960e0 * t52635 + 0.11397120e0 * t52637 - 0.14246400e-1 * t52639 - 0.23612544e1 * t193 * t52635 + 0.125933568e1 * t193 * t52637 - 0.157416960e0 * t193 * t52639 - 0.23459328e1 * t199 * t52635 + 0.125116416e1 * t199 * t52637 - 0.156395520e0 * t199 * t52639) + t275 * (0.33672024000000000000e-7 * t52657 - 0.65196511200000000000e-9 * t52659 + 0.33056942400000000000e-11 * t52661 - 0.49585413600000000000e-14 * t16066 * t2444 - 0.37482264000000000000e-7 * t305 * t52657 + 0.29985811200000000000e-9 * t305 * t52659 - 0.56223396000000000000e-12 * t305 * t52661));
17516 
17517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17518     v4sigma3lapl[0] = 0.0e0;
17519 
17520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17521     v4sigma3lapl[1] = 0.0e0;
17522 
17523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17524     v4sigma3lapl[2] = 0.0e0;
17525 
17526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17527     v4sigma3lapl[3] = 0.0e0;
17528 
17529   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17530     v4sigma3lapl[4] = 0.0e0;
17531 
17532   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17533     v4sigma3lapl[5] = 0.0e0;
17534 
17535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17536     v4sigma3lapl[6] = 0.0e0;
17537 
17538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17539     v4sigma3lapl[7] = 0.0e0;
17540 
17541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17542     v4sigma3lapl[8] = 0.0e0;
17543 
17544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17545     v4sigma3lapl[9] = 0.0e0;
17546 
17547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17548     v4sigma3lapl[10] = 0.0e0;
17549 
17550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17551     v4sigma3lapl[11] = 0.0e0;
17552 
17553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17554     v4sigma3lapl[12] = 0.0e0;
17555 
17556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17557     v4sigma3lapl[13] = 0.0e0;
17558 
17559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17560     v4sigma3lapl[14] = 0.0e0;
17561 
17562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17563     v4sigma3lapl[15] = 0.0e0;
17564 
17565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17566     v4sigma3lapl[16] = 0.0e0;
17567 
17568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17569     v4sigma3lapl[17] = 0.0e0;
17570 
17571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17572     v4sigma3lapl[18] = 0.0e0;
17573 
17574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17575     v4sigma3lapl[19] = 0.0e0;
17576 
17577   t52683 = sigma[0] * t10494;
17578   t52692 = t3283 * t448;
17579   t52695 = t52683 * t1326;
17580   t52699 = t33 * t32836 * t5330;
17581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17582     v4sigma3tau[0] = t3 * (-0.3e1 / 0.32e2 * t14 * t18 * t21 * (-0.1178880e-5 * t13991 * t349 + 0.4715520e-8 * t10494 * t55 * sigma[0] * t1185 - 0.1178880e-5 * t356 * t3283 * t349 + 0.4715520e-8 * t356 * t52683 * t1185) - 0.15545350000000000000e-1 * t115 * t136 * (-0.5903136e1 * t453 * t52692 + 0.35418816e1 * t453 * t52695 - 0.47225088e0 * t453 * t52699 - 0.13722912e2 * t460 * t52692 + 0.82337472e1 * t460 * t52695 - 0.109783296e1 * t460 * t52699 - 0.7819776e1 * t470 * t52692 + 0.46918656e1 * t470 * t52695 - 0.62558208e0 * t470 * t52699) + t275 * (0.62470440000000000000e-5 * t656 * t13880 * t1033 - 0.56223396000000000000e-7 * t1849 * t10323 * t455 + 0.11244679200000000000e-9 * t1853 * t33215 * t455 - 0.62470440000000000000e-5 * t662 * t13880 * t1036 + 0.56223396000000000000e-7 * t1839 * t10341 * t455 - 0.11244679200000000000e-9 * t1844 * t33201 * t455));
17583 
17584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17585     v4sigma3tau[1] = t3694 * (0.62470440000000000000e-5 * t656 * t13880 * t1087 - 0.56223396000000000000e-7 * t1849 * t10723 * t455 + 0.11244679200000000000e-9 * t1853 * t33660 * t455 - 0.62470440000000000000e-5 * t662 * t13880 * t1090 + 0.56223396000000000000e-7 * t1839 * t10733 * t455 - 0.11244679200000000000e-9 * t1844 * t33644 * t455);
17586 
17587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17588     v4sigma3tau[2] = 0.0e0;
17589 
17590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17591     v4sigma3tau[3] = 0.0e0;
17592 
17593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17594     v4sigma3tau[4] = t3694 * (0.62470440000000000000e-5 * t39305 * t3837 - 0.56223396000000000000e-7 * t1849 * t10323 * t13899 + 0.11244679200000000000e-9 * t1853 * t33215 * t13899 - 0.62470440000000000000e-5 * t39309 * t3843 + 0.56223396000000000000e-7 * t1839 * t10341 * t13899 - 0.11244679200000000000e-9 * t1844 * t33201 * t13899);
17595 
17596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17597     v4sigma3tau[5] = t3694 * (0.62470440000000000000e-5 * t39305 * t3887 - 0.56223396000000000000e-7 * t1849 * t10723 * t13899 + 0.11244679200000000000e-9 * t1853 * t33660 * t13899 - 0.62470440000000000000e-5 * t39309 * t3893 + 0.56223396000000000000e-7 * t1839 * t10733 * t13899 - 0.11244679200000000000e-9 * t1844 * t33644 * t13899);
17598 
17599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17600     v4sigma3tau[6] = 0.0e0;
17601 
17602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17603     v4sigma3tau[7] = 0.0e0;
17604 
17605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17606     v4sigma3tau[8] = 0.0e0;
17607 
17608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17609     v4sigma3tau[9] = 0.0e0;
17610 
17611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17612     v4sigma3tau[10] = t3694 * (0.62470440000000000000e-5 * t39096 * t3809 - 0.56223396000000000000e-7 * t1849 * t10323 * t13917 + 0.11244679200000000000e-9 * t1853 * t33215 * t13917 - 0.62470440000000000000e-5 * t39099 * t3815 + 0.56223396000000000000e-7 * t1839 * t10341 * t13917 - 0.11244679200000000000e-9 * t1844 * t33201 * t13917);
17613 
17614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17615     v4sigma3tau[11] = t3694 * (0.62470440000000000000e-5 * t39096 * t3824 - 0.56223396000000000000e-7 * t1849 * t10723 * t13917 + 0.11244679200000000000e-9 * t1853 * t33660 * t13917 - 0.62470440000000000000e-5 * t39099 * t3830 + 0.56223396000000000000e-7 * t1839 * t10733 * t13917 - 0.11244679200000000000e-9 * t1844 * t33644 * t13917);
17616 
17617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17618     v4sigma3tau[12] = 0.0e0;
17619 
17620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17621     v4sigma3tau[13] = 0.0e0;
17622 
17623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17624     v4sigma3tau[14] = 0.0e0;
17625 
17626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17627     v4sigma3tau[15] = 0.0e0;
17628 
17629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17630     v4sigma3tau[16] = 0.0e0;
17631 
17632   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17633     v4sigma3tau[17] = 0.0e0;
17634 
17635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17636     v4sigma3tau[18] = t3694 * (0.62470440000000000000e-5 * t656 * t13972 * t1033 - 0.56223396000000000000e-7 * t1849 * t10323 * t807 + 0.11244679200000000000e-9 * t1853 * t33215 * t807 - 0.62470440000000000000e-5 * t662 * t13972 * t1036 + 0.56223396000000000000e-7 * t1839 * t10341 * t807 - 0.11244679200000000000e-9 * t1844 * t33201 * t807);
17637 
17638   t52854 = sigma[2] * t11506;
17639   t52863 = t3556 * t800;
17640   t52866 = t52854 * t2487;
17641   t52870 = t82 * t38274 * t8631;
17642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17643     v4sigma3tau[19] = t3 * (-0.3e1 / 0.32e2 * t67 * t18 * t70 * (-0.1178880e-5 * t14128 * t716 + 0.4715520e-8 * t11506 * t97 * sigma[2] * t2401 - 0.1178880e-5 * t723 * t3556 * t716 + 0.4715520e-8 * t723 * t52854 * t2401) - 0.15545350000000000000e-1 * t166 * t180 * (-0.5903136e1 * t805 * t52863 + 0.35418816e1 * t805 * t52866 - 0.47225088e0 * t805 * t52870 - 0.13722912e2 * t812 * t52863 + 0.82337472e1 * t812 * t52866 - 0.109783296e1 * t812 * t52870 - 0.7819776e1 * t822 * t52863 + 0.46918656e1 * t822 * t52866 - 0.62558208e0 * t822 * t52870) + t275 * (0.62470440000000000000e-5 * t656 * t13972 * t1087 - 0.56223396000000000000e-7 * t1849 * t10723 * t807 + 0.11244679200000000000e-9 * t1853 * t33660 * t807 - 0.62470440000000000000e-5 * t662 * t13972 * t1090 + 0.56223396000000000000e-7 * t1839 * t10733 * t807 - 0.11244679200000000000e-9 * t1844 * t33644 * t807));
17644 
17645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17646     v4sigma2lapl2[0] = 0.0e0;
17647 
17648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17649     v4sigma2lapl2[1] = 0.0e0;
17650 
17651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17652     v4sigma2lapl2[2] = 0.0e0;
17653 
17654   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17655     v4sigma2lapl2[3] = 0.0e0;
17656 
17657   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17658     v4sigma2lapl2[4] = 0.0e0;
17659 
17660   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17661     v4sigma2lapl2[5] = 0.0e0;
17662 
17663   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17664     v4sigma2lapl2[6] = 0.0e0;
17665 
17666   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17667     v4sigma2lapl2[7] = 0.0e0;
17668 
17669   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17670     v4sigma2lapl2[8] = 0.0e0;
17671 
17672   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17673     v4sigma2lapl2[9] = 0.0e0;
17674 
17675   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17676     v4sigma2lapl2[10] = 0.0e0;
17677 
17678   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17679     v4sigma2lapl2[11] = 0.0e0;
17680 
17681   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17682     v4sigma2lapl2[12] = 0.0e0;
17683 
17684   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17685     v4sigma2lapl2[13] = 0.0e0;
17686 
17687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17688     v4sigma2lapl2[14] = 0.0e0;
17689 
17690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17691     v4sigma2lapl2[15] = 0.0e0;
17692 
17693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17694     v4sigma2lapl2[16] = 0.0e0;
17695 
17696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17697     v4sigma2lapl2[17] = 0.0e0;
17698 
17699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17700     v4sigma2lapltau[0] = 0.0e0;
17701 
17702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17703     v4sigma2lapltau[1] = 0.0e0;
17704 
17705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17706     v4sigma2lapltau[2] = 0.0e0;
17707 
17708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17709     v4sigma2lapltau[3] = 0.0e0;
17710 
17711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17712     v4sigma2lapltau[4] = 0.0e0;
17713 
17714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17715     v4sigma2lapltau[5] = 0.0e0;
17716 
17717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17718     v4sigma2lapltau[6] = 0.0e0;
17719 
17720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17721     v4sigma2lapltau[7] = 0.0e0;
17722 
17723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17724     v4sigma2lapltau[8] = 0.0e0;
17725 
17726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17727     v4sigma2lapltau[9] = 0.0e0;
17728 
17729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17730     v4sigma2lapltau[10] = 0.0e0;
17731 
17732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17733     v4sigma2lapltau[11] = 0.0e0;
17734 
17735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17736     v4sigma2lapltau[12] = 0.0e0;
17737 
17738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17739     v4sigma2lapltau[13] = 0.0e0;
17740 
17741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17742     v4sigma2lapltau[14] = 0.0e0;
17743 
17744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17745     v4sigma2lapltau[15] = 0.0e0;
17746 
17747   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17748     v4sigma2lapltau[16] = 0.0e0;
17749 
17750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17751     v4sigma2lapltau[17] = 0.0e0;
17752 
17753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17754     v4sigma2lapltau[18] = 0.0e0;
17755 
17756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17757     v4sigma2lapltau[19] = 0.0e0;
17758 
17759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17760     v4sigma2lapltau[20] = 0.0e0;
17761 
17762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17763     v4sigma2lapltau[21] = 0.0e0;
17764 
17765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17766     v4sigma2lapltau[22] = 0.0e0;
17767 
17768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17769     v4sigma2lapltau[23] = 0.0e0;
17770 
17771   t52918 = sigma[0] * t13135;
17772   t52927 = t3921 * t140;
17773   t52930 = t52918 * t448;
17774   t52934 = t33 * t44161 * t1326;
17775   t52955 = -0.983856e1 * t1133 * t52927 + 0.7870848e1 * t1133 * t52930 - 0.11806272e1 * t1133 * t52934 - 0.4906512e2 * t1315 * t52927 + 0.39252096e2 * t1315 * t52930 - 0.58878144e1 * t1315 * t52934 - 0.7180896e2 * t1282 * t52927 + 0.57447168e2 * t1282 * t52930 - 0.86170752e1 * t1282 * t52934 - 0.3258240e2 * t1302 * t52927 + 0.26065920e2 * t1302 * t52930 - 0.39098880e1 * t1302 * t52934;
17776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17777     v4sigma2tau2[0] = t3 * (-0.3e1 / 0.32e2 * t14 * t18 * t21 * (-0.196480e-3 * t14193 * t40 + 0.785920e-6 * t13135 * t355 * t13992 - 0.196480e-3 * t1133 * t3921 * t40 + 0.785920e-6 * t1133 * t52918 * t349) - 0.15545350000000000000e-1 * t115 * t136 * t52955 + t275 * (-0.69411600000000000000e-3 * t1764 * t3677 * t3941 + 0.83293920000000000000e-5 * t5125 * t13196 * t37 - 0.18741132000000000000e-7 * t2153 * t43948 * t37 + 0.20823480000000000000e-2 * t38672 * t3945 - 0.24988176000000000000e-4 * t9016 * t3342 * t41642 + 0.56223396000000000000e-7 * t1775 * t10323 * t41642 - 0.13882320000000000000e-2 * t1812 * t3677 * t3938 + 0.16658784000000000000e-4 * t5110 * t13232 * t37 - 0.37482264000000000000e-7 * t2165 * t43897 * t37));
17778 
17779   t53005 = t1015 * t306 * t93;
17780   t53008 = t48843 * t93;
17781   t53011 = t48854 * t93;
17782   t53036 = -0.69411600000000000000e-3 * t39388 * t3966 + 0.83293920000000000000e-5 * t5125 * t3412 * t41664 - 0.18741132000000000000e-7 * t2153 * t10723 * t41664 + 0.10411740000000000000e-2 * t38672 * t3969 - 0.12494088000000000000e-4 * t9016 * t3412 * t41642 + 0.28111698000000000000e-7 * t1775 * t10723 * t41642 + 0.69411600000000000000e-3 * t656 * t53005 - 0.83293920000000000000e-5 * t1849 * t53008 + 0.18741132000000000000e-7 * t1853 * t53011 + 0.10411740000000000000e-2 * t38672 * t3975 - 0.12494088000000000000e-4 * t9016 * t3431 * t41664 + 0.28111698000000000000e-7 * t1775 * t10733 * t41664 - 0.13882320000000000000e-2 * t39398 * t3978 + 0.16658784000000000000e-4 * t5110 * t3431 * t41642 - 0.37482264000000000000e-7 * t2165 * t10733 * t41642 + 0.69411600000000000000e-3 * t662 * t53005 - 0.83293920000000000000e-5 * t1839 * t53008 + 0.18741132000000000000e-7 * t1844 * t53011;
17783   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17784     v4sigma2tau2[1] = t3694 * t53036;
17785 
17786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17787     v4sigma2tau2[2] = t3694 * (-0.69411600000000000000e-3 * t1764 * t3677 * t4026 + 0.83293920000000000000e-5 * t5125 * t13426 * t37 - 0.18741132000000000000e-7 * t2153 * t44832 * t37 + 0.20823480000000000000e-2 * t38672 * t4030 - 0.24988176000000000000e-4 * t9016 * t3412 * t42115 + 0.56223396000000000000e-7 * t1775 * t10723 * t42115 - 0.13882320000000000000e-2 * t1812 * t3677 * t4023 + 0.16658784000000000000e-4 * t5110 * t13462 * t37 - 0.37482264000000000000e-7 * t2165 * t44808 * t37);
17788 
17789   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17790     v4sigma2tau2[3] = 0.0e0;
17791 
17792   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17793     v4sigma2tau2[4] = 0.0e0;
17794 
17795   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17796     v4sigma2tau2[5] = 0.0e0;
17797 
17798   t53074 = t13210 * t3697;
17799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17800     v4sigma2tau2[6] = t3694 * (-0.69411600000000000000e-3 * t34412 * t14306 + 0.83293920000000000000e-5 * t5125 * t13196 * t3697 - 0.18741132000000000000e-7 * t2153 * t43948 * t3697 + 0.20823480000000000000e-2 * t38954 * t14312 - 0.24988176000000000000e-4 * t16138 * t53074 + 0.56223396000000000000e-7 * t16302 * t53074 - 0.13882320000000000000e-2 * t39035 * t14318 + 0.16658784000000000000e-4 * t5110 * t13232 * t3697 - 0.37482264000000000000e-7 * t2165 * t43897 * t3697);
17801 
17802   t53090 = t13345 * t3697;
17803   t53097 = t13354 * t3697;
17804   t53102 = t12747 * t1053;
17805   t53105 = t12759 * t1053;
17806   t53108 = t48962 * t1053;
17807   t53113 = t13326 * t3697;
17808   t53120 = t3961 * t3697;
17809   t53131 = -0.69411600000000000000e-3 * t34412 * t14325 + 0.83293920000000000000e-5 * t19689 * t53090 - 0.18741132000000000000e-7 * t19695 * t53090 + 0.10411740000000000000e-2 * t38954 * t14331 - 0.12494088000000000000e-4 * t16138 * t53097 + 0.28111698000000000000e-7 * t16302 * t53097 + 0.69411600000000000000e-3 * t656 * t53102 - 0.83293920000000000000e-5 * t1849 * t53105 + 0.18741132000000000000e-7 * t1853 * t53108 + 0.10411740000000000000e-2 * t38954 * t14343 - 0.12494088000000000000e-4 * t16138 * t53113 + 0.28111698000000000000e-7 * t16302 * t53113 - 0.13882320000000000000e-2 * t39035 * t14349 + 0.16658784000000000000e-4 * t19666 * t53120 - 0.37482264000000000000e-7 * t19672 * t53120 + 0.69411600000000000000e-3 * t662 * t53102 - 0.83293920000000000000e-5 * t1839 * t53105 + 0.18741132000000000000e-7 * t1844 * t53108;
17810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17811     v4sigma2tau2[7] = t3694 * t53131;
17812 
17813   t53142 = t13440 * t3697;
17814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17815     v4sigma2tau2[8] = t3694 * (-0.69411600000000000000e-3 * t34412 * t14400 + 0.83293920000000000000e-5 * t5125 * t13426 * t3697 - 0.18741132000000000000e-7 * t2153 * t44832 * t3697 + 0.20823480000000000000e-2 * t38954 * t14406 - 0.24988176000000000000e-4 * t16138 * t53142 + 0.56223396000000000000e-7 * t16302 * t53142 - 0.13882320000000000000e-2 * t39035 * t14412 + 0.16658784000000000000e-4 * t5110 * t13462 * t3697 - 0.37482264000000000000e-7 * t2165 * t44808 * t3697);
17816 
17817   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17818     v4sigma2tau2[9] = 0.0e0;
17819 
17820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17821     v4sigma2tau2[10] = 0.0e0;
17822 
17823   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17824     v4sigma2tau2[11] = 0.0e0;
17825 
17826   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17827     v4sigma2tau2[12] = 0.0e0;
17828 
17829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17830     v4sigma2tau2[13] = 0.0e0;
17831 
17832   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17833     v4sigma2tau2[14] = 0.0e0;
17834 
17835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17836     v4sigma2tau2[15] = t3694 * (-0.69411600000000000000e-3 * t1764 * t3752 * t3941 + 0.83293920000000000000e-5 * t5125 * t13196 * t86 - 0.18741132000000000000e-7 * t2153 * t43948 * t86 + 0.20823480000000000000e-2 * t39079 * t3945 - 0.24988176000000000000e-4 * t9016 * t3342 * t42410 + 0.56223396000000000000e-7 * t1775 * t10323 * t42410 - 0.13882320000000000000e-2 * t1812 * t3752 * t3938 + 0.16658784000000000000e-4 * t5110 * t13232 * t86 - 0.37482264000000000000e-7 * t2165 * t43897 * t86);
17837 
17838   t53200 = t1070 * t306 * t51;
17839   t53203 = t12877 * t1070;
17840   t53206 = t47090 * t1070;
17841   t53231 = -0.69411600000000000000e-3 * t39713 * t3966 + 0.83293920000000000000e-5 * t5125 * t3412 * t42327 - 0.18741132000000000000e-7 * t2153 * t10723 * t42327 + 0.10411740000000000000e-2 * t39079 * t3969 - 0.12494088000000000000e-4 * t9016 * t3412 * t42410 + 0.28111698000000000000e-7 * t1775 * t10723 * t42410 + 0.69411600000000000000e-3 * t656 * t53200 - 0.83293920000000000000e-5 * t1849 * t53203 + 0.18741132000000000000e-7 * t1853 * t53206 + 0.10411740000000000000e-2 * t39079 * t3975 - 0.12494088000000000000e-4 * t9016 * t3431 * t42327 + 0.28111698000000000000e-7 * t1775 * t10733 * t42327 - 0.13882320000000000000e-2 * t39720 * t3978 + 0.16658784000000000000e-4 * t5110 * t3431 * t42410 - 0.37482264000000000000e-7 * t2165 * t10733 * t42410 + 0.69411600000000000000e-3 * t662 * t53200 - 0.83293920000000000000e-5 * t1839 * t53203 + 0.18741132000000000000e-7 * t1844 * t53206;
17842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17843     v4sigma2tau2[16] = t3694 * t53231;
17844 
17845   t53240 = sigma[2] * t13737;
17846   t53249 = t4006 * t184;
17847   t53252 = t53240 * t800;
17848   t53256 = t82 * t47448 * t2487;
17849   t53277 = -0.983856e1 * t2344 * t53249 + 0.7870848e1 * t2344 * t53252 - 0.11806272e1 * t2344 * t53256 - 0.4906512e2 * t2449 * t53249 + 0.39252096e2 * t2449 * t53252 - 0.58878144e1 * t2449 * t53256 - 0.7180896e2 * t2461 * t53249 + 0.57447168e2 * t2461 * t53252 - 0.86170752e1 * t2461 * t53256 - 0.3258240e2 * t2472 * t53249 + 0.26065920e2 * t2472 * t53252 - 0.39098880e1 * t2472 * t53256;
17850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17851     v4sigma2tau2[17] = t3 * (-0.3e1 / 0.32e2 * t67 * t18 * t70 * (-0.196480e-3 * t14362 * t89 + 0.785920e-6 * t13737 * t722 * t14129 - 0.196480e-3 * t2344 * t4006 * t89 + 0.785920e-6 * t2344 * t53240 * t716) - 0.15545350000000000000e-1 * t166 * t180 * t53277 + t275 * (-0.69411600000000000000e-3 * t1764 * t3752 * t4026 + 0.83293920000000000000e-5 * t5125 * t13426 * t86 - 0.18741132000000000000e-7 * t2153 * t44832 * t86 + 0.20823480000000000000e-2 * t39079 * t4030 - 0.24988176000000000000e-4 * t9016 * t3412 * t42611 + 0.56223396000000000000e-7 * t1775 * t10723 * t42611 - 0.13882320000000000000e-2 * t1812 * t3752 * t4023 + 0.16658784000000000000e-4 * t5110 * t13462 * t86 - 0.37482264000000000000e-7 * t2165 * t44808 * t86));
17852 
17853   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17854     v4sigmalapl3[0] = 0.0e0;
17855 
17856   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17857     v4sigmalapl3[1] = 0.0e0;
17858 
17859   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17860     v4sigmalapl3[2] = 0.0e0;
17861 
17862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17863     v4sigmalapl3[3] = 0.0e0;
17864 
17865   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17866     v4sigmalapl3[4] = 0.0e0;
17867 
17868   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17869     v4sigmalapl3[5] = 0.0e0;
17870 
17871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17872     v4sigmalapl3[6] = 0.0e0;
17873 
17874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17875     v4sigmalapl3[7] = 0.0e0;
17876 
17877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17878     v4sigmalapl3[8] = 0.0e0;
17879 
17880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17881     v4sigmalapl3[9] = 0.0e0;
17882 
17883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17884     v4sigmalapl3[10] = 0.0e0;
17885 
17886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17887     v4sigmalapl3[11] = 0.0e0;
17888 
17889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17890     v4sigmalapl2tau[0] = 0.0e0;
17891 
17892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17893     v4sigmalapl2tau[1] = 0.0e0;
17894 
17895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17896     v4sigmalapl2tau[2] = 0.0e0;
17897 
17898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17899     v4sigmalapl2tau[3] = 0.0e0;
17900 
17901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17902     v4sigmalapl2tau[4] = 0.0e0;
17903 
17904   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17905     v4sigmalapl2tau[5] = 0.0e0;
17906 
17907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17908     v4sigmalapl2tau[6] = 0.0e0;
17909 
17910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17911     v4sigmalapl2tau[7] = 0.0e0;
17912 
17913   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17914     v4sigmalapl2tau[8] = 0.0e0;
17915 
17916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17917     v4sigmalapl2tau[9] = 0.0e0;
17918 
17919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17920     v4sigmalapl2tau[10] = 0.0e0;
17921 
17922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17923     v4sigmalapl2tau[11] = 0.0e0;
17924 
17925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17926     v4sigmalapl2tau[12] = 0.0e0;
17927 
17928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17929     v4sigmalapl2tau[13] = 0.0e0;
17930 
17931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17932     v4sigmalapl2tau[14] = 0.0e0;
17933 
17934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17935     v4sigmalapl2tau[15] = 0.0e0;
17936 
17937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17938     v4sigmalapl2tau[16] = 0.0e0;
17939 
17940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17941     v4sigmalapl2tau[17] = 0.0e0;
17942 
17943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17944     v4sigmalapltau2[0] = 0.0e0;
17945 
17946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17947     v4sigmalapltau2[1] = 0.0e0;
17948 
17949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17950     v4sigmalapltau2[2] = 0.0e0;
17951 
17952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17953     v4sigmalapltau2[3] = 0.0e0;
17954 
17955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17956     v4sigmalapltau2[4] = 0.0e0;
17957 
17958   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17959     v4sigmalapltau2[5] = 0.0e0;
17960 
17961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17962     v4sigmalapltau2[6] = 0.0e0;
17963 
17964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17965     v4sigmalapltau2[7] = 0.0e0;
17966 
17967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17968     v4sigmalapltau2[8] = 0.0e0;
17969 
17970   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17971     v4sigmalapltau2[9] = 0.0e0;
17972 
17973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17974     v4sigmalapltau2[10] = 0.0e0;
17975 
17976   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17977     v4sigmalapltau2[11] = 0.0e0;
17978 
17979   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17980     v4sigmalapltau2[12] = 0.0e0;
17981 
17982   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17983     v4sigmalapltau2[13] = 0.0e0;
17984 
17985   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17986     v4sigmalapltau2[14] = 0.0e0;
17987 
17988   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17989     v4sigmalapltau2[15] = 0.0e0;
17990 
17991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17992     v4sigmalapltau2[16] = 0.0e0;
17993 
17994   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
17995     v4sigmalapltau2[17] = 0.0e0;
17996 
17997   t53317 = sigma[0] * t14443;
17998   t53333 = t53317 * t140;
17999   t53337 = t33 * t51156 * t448;
18000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18001     v4sigmatau3[0] = t3 * (-0.3e1 / 0.32e2 * t14 * t18 * t21 * (-0.73680e-1 * t14428 * t30 + 0.294720e-3 * t14444 * t3772 - 0.73680e-1 * t4097 * t14427 * t30 + 0.294720e-3 * t4097 * t53317 * t40) - 0.15545350000000000000e-1 * t115 * t136 * (0.983856e1 * t14444 * sigma[0] * t140 - 0.1967712e1 * t51156 * t148 * t33 * t448 + 0.12764592e3 * t4097 * t53333 - 0.25529184e2 * t4097 * t53337 + 0.41168736e3 * t5412 * t53333 - 0.82337472e2 * t5412 * t53337 + 0.48937440e3 * t5416 * t53333 - 0.97874880e2 * t5416 * t53337 + 0.19549440e3 * t5372 * t53333 - 0.39098880e2 * t5372 * t53337) + t275 * (-0.69411600000000000000e-3 * t14468 * t932 + 0.20823480000000000000e-5 * t14468 * t934 + 0.62470440000000000000e-2 * t29031 * t13189 * t12769 - 0.18741132000000000000e-4 * t5051 * t13196 * t12769 - 0.12494088000000000000e-1 * t29064 * t3332 * t50281 + 0.37482264000000000000e-4 * t5038 * t3342 * t50281 + 0.69411600000000000000e-2 * t16355 * t51223 * t26 - 0.20823480000000000000e-4 * t5624 * t51227 * t26));
18002 
18003   t53381 = t12747 * t13341;
18004   t53384 = t12759 * t13341;
18005   t53393 = t13326 * t12769;
18006   t53398 = t12747 * t13332;
18007   t53401 = t12759 * t13332;
18008   t53414 = t13345 * t12769;
18009   t53433 = -0.41646960000000000000e-2 * t9016 * t53381 + 0.12494088000000000000e-4 * t1775 * t53384 + 0.20823480000000000000e-2 * t29031 * t3421 * t50294 - 0.62470440000000000000e-5 * t5051 * t3431 * t50294 - 0.83293920000000000000e-2 * t16305 * t53393 + 0.24988176000000000000e-4 * t16310 * t53393 + 0.41646960000000000000e-2 * t9016 * t53398 - 0.12494088000000000000e-4 * t1775 * t53401 + 0.69411600000000000000e-2 * t16355 * t3421 * t50281 - 0.20823480000000000000e-4 * t5624 * t3431 * t50281 - 0.55529280000000000000e-2 * t5110 * t53381 + 0.16658784000000000000e-4 * t2165 * t53384 + 0.41646960000000000000e-2 * t16289 * t53414 - 0.12494088000000000000e-4 * t16297 * t53414 + 0.27764640000000000000e-2 * t5125 * t53398 - 0.83293920000000000000e-5 * t2153 * t53401 - 0.41646960000000000000e-2 * t29064 * t3402 * t50281 + 0.12494088000000000000e-4 * t5038 * t3412 * t50281 - 0.69411600000000000000e-3 * t51427 * t3821 + 0.20823480000000000000e-5 * t51430 * t3824;
18010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18011     v4sigmatau3[1] = t3694 * t53433;
18012 
18013   t53444 = t998 * t93;
18014   t53445 = t3402 * t53444;
18015   t53448 = t3412 * t53444;
18016   t53451 = t13440 * t12740;
18017   t53456 = t13440 * t12769;
18018   t53461 = t12747 * t13446;
18019   t53464 = t12759 * t13446;
18020   t53487 = -0.69411600000000000000e-3 * t51678 * t14287 + 0.20823480000000000000e-5 * t51405 * t14290 + 0.20823480000000000000e-2 * t29031 * t13419 * t12769 - 0.62470440000000000000e-5 * t5051 * t13426 * t12769 + 0.27764640000000000000e-2 * t5125 * t53445 - 0.83293920000000000000e-5 * t2153 * t53448 + 0.41646960000000000000e-2 * t16289 * t53451 - 0.12494088000000000000e-4 * t16297 * t53451 - 0.83293920000000000000e-2 * t16305 * t53456 + 0.24988176000000000000e-4 * t16310 * t53456 - 0.41646960000000000000e-2 * t9016 * t53461 + 0.12494088000000000000e-4 * t1775 * t53464 + 0.41646960000000000000e-2 * t9016 * t53445 - 0.12494088000000000000e-4 * t1775 * t53448 - 0.41646960000000000000e-2 * t29064 * t13452 * t12740 + 0.12494088000000000000e-4 * t5038 * t13462 * t12740 + 0.69411600000000000000e-2 * t16355 * t13452 * t12769 - 0.20823480000000000000e-4 * t5624 * t13462 * t12769 - 0.55529280000000000000e-2 * t5110 * t53461 + 0.16658784000000000000e-4 * t2165 * t53464;
18021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18022     v4sigmatau3[2] = t3694 * t53487;
18023 
18024   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18025     v4sigmatau3[3] = t3694 * (-0.69411600000000000000e-3 * t14617 * t932 + 0.20823480000000000000e-5 * t14617 * t934 + 0.62470440000000000000e-2 * t29031 * t13419 * t12826 - 0.18741132000000000000e-4 * t5051 * t13426 * t12826 - 0.12494088000000000000e-1 * t29064 * t3402 * t50568 + 0.37482264000000000000e-4 * t5038 * t3412 * t50568 + 0.69411600000000000000e-2 * t16355 * t51767 * t26 - 0.20823480000000000000e-4 * t5624 * t51791 * t26);
18026 
18027   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18028     v4sigmatau3[4] = 0.0e0;
18029 
18030   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18031     v4sigmatau3[5] = 0.0e0;
18032 
18033   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18034     v4sigmatau3[6] = 0.0e0;
18035 
18036   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18037     v4sigmatau3[7] = 0.0e0;
18038 
18039   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18040     v4sigmatau3[8] = t3694 * (-0.69411600000000000000e-3 * t14468 * t980 + 0.20823480000000000000e-5 * t14468 * t982 + 0.62470440000000000000e-2 * t29031 * t13189 * t12622 - 0.18741132000000000000e-4 * t5051 * t13196 * t12622 - 0.12494088000000000000e-1 * t29064 * t3332 * t49943 + 0.37482264000000000000e-4 * t5038 * t3342 * t49943 + 0.69411600000000000000e-2 * t16355 * t51223 * t75 - 0.20823480000000000000e-4 * t5624 * t51227 * t75);
18041 
18042   t53534 = t3480 * t50090;
18043   t53537 = t12877 * t50090;
18044   t53546 = t13326 * t12622;
18045   t53551 = t3480 * t50122;
18046   t53554 = t12877 * t50122;
18047   t53567 = t13345 * t12622;
18048   t53586 = -0.41646960000000000000e-2 * t9016 * t53534 + 0.12494088000000000000e-4 * t1775 * t53537 + 0.20823480000000000000e-2 * t29031 * t3421 * t49912 - 0.62470440000000000000e-5 * t5051 * t3431 * t49912 - 0.83293920000000000000e-2 * t16305 * t53546 + 0.24988176000000000000e-4 * t16310 * t53546 + 0.41646960000000000000e-2 * t9016 * t53551 - 0.12494088000000000000e-4 * t1775 * t53554 + 0.69411600000000000000e-2 * t16355 * t3421 * t49943 - 0.20823480000000000000e-4 * t5624 * t3431 * t49943 - 0.55529280000000000000e-2 * t5110 * t53534 + 0.16658784000000000000e-4 * t2165 * t53537 + 0.41646960000000000000e-2 * t16289 * t53567 - 0.12494088000000000000e-4 * t16297 * t53567 + 0.27764640000000000000e-2 * t5125 * t53551 - 0.83293920000000000000e-5 * t2153 * t53554 - 0.41646960000000000000e-2 * t29064 * t3402 * t49943 + 0.12494088000000000000e-4 * t5038 * t3412 * t49943 - 0.69411600000000000000e-3 * t51427 * t3884 + 0.20823480000000000000e-5 * t51430 * t3887;
18049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18050     v4sigmatau3[9] = t3694 * t53586;
18051 
18052   t53597 = t51 * t1053;
18053   t53598 = t3402 * t53597;
18054   t53601 = t3412 * t53597;
18055   t53604 = t13440 * t12595;
18056   t53609 = t13440 * t12622;
18057   t53614 = t3480 * t50217;
18058   t53617 = t12877 * t50217;
18059   t53640 = -0.69411600000000000000e-3 * t51678 * t14400 + 0.20823480000000000000e-5 * t51405 * t14403 + 0.20823480000000000000e-2 * t29031 * t13419 * t12622 - 0.62470440000000000000e-5 * t5051 * t13426 * t12622 + 0.27764640000000000000e-2 * t5125 * t53598 - 0.83293920000000000000e-5 * t2153 * t53601 + 0.41646960000000000000e-2 * t16289 * t53604 - 0.12494088000000000000e-4 * t16297 * t53604 - 0.83293920000000000000e-2 * t16305 * t53609 + 0.24988176000000000000e-4 * t16310 * t53609 - 0.41646960000000000000e-2 * t9016 * t53614 + 0.12494088000000000000e-4 * t1775 * t53617 + 0.41646960000000000000e-2 * t9016 * t53598 - 0.12494088000000000000e-4 * t1775 * t53601 - 0.41646960000000000000e-2 * t29064 * t13452 * t12595 + 0.12494088000000000000e-4 * t5038 * t13462 * t12595 + 0.69411600000000000000e-2 * t16355 * t13452 * t12622 - 0.20823480000000000000e-4 * t5624 * t13462 * t12622 - 0.55529280000000000000e-2 * t5110 * t53614 + 0.16658784000000000000e-4 * t2165 * t53617;
18060   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18061     v4sigmatau3[10] = t3694 * t53640;
18062 
18063   t53648 = sigma[2] * t14592;
18064   t53664 = t53648 * t184;
18065   t53668 = t82 * t52390 * t800;
18066   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18067     v4sigmatau3[11] = t3 * (-0.3e1 / 0.32e2 * t67 * t18 * t70 * (-0.73680e-1 * t14577 * t79 + 0.294720e-3 * t14593 * t3850 - 0.73680e-1 * t8655 * t14576 * t79 + 0.294720e-3 * t8655 * t53648 * t89) - 0.15545350000000000000e-1 * t166 * t180 * (0.983856e1 * t14593 * sigma[2] * t184 - 0.1967712e1 * t52390 * t192 * t82 * t800 + 0.12764592e3 * t8655 * t53664 - 0.25529184e2 * t8655 * t53668 + 0.41168736e3 * t8678 * t53664 - 0.82337472e2 * t8678 * t53668 + 0.48937440e3 * t8693 * t53664 - 0.97874880e2 * t8693 * t53668 + 0.19549440e3 * t8705 * t53664 - 0.39098880e2 * t8705 * t53668) + t275 * (-0.69411600000000000000e-3 * t14617 * t980 + 0.20823480000000000000e-5 * t14617 * t982 + 0.62470440000000000000e-2 * t29031 * t13419 * t12697 - 0.18741132000000000000e-4 * t5051 * t13426 * t12697 - 0.12494088000000000000e-1 * t29064 * t3402 * t50187 + 0.37482264000000000000e-4 * t5038 * t3412 * t50187 + 0.69411600000000000000e-2 * t16355 * t51767 * t75 - 0.20823480000000000000e-4 * t5624 * t51791 * t75));
18068 
18069   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18070     v4lapl4[0] = 0.0e0;
18071 
18072   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18073     v4lapl4[1] = 0.0e0;
18074 
18075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18076     v4lapl4[2] = 0.0e0;
18077 
18078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18079     v4lapl4[3] = 0.0e0;
18080 
18081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18082     v4lapl4[4] = 0.0e0;
18083 
18084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18085     v4lapl3tau[0] = 0.0e0;
18086 
18087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18088     v4lapl3tau[1] = 0.0e0;
18089 
18090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18091     v4lapl3tau[2] = 0.0e0;
18092 
18093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18094     v4lapl3tau[3] = 0.0e0;
18095 
18096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18097     v4lapl3tau[4] = 0.0e0;
18098 
18099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18100     v4lapl3tau[5] = 0.0e0;
18101 
18102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18103     v4lapl3tau[6] = 0.0e0;
18104 
18105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18106     v4lapl3tau[7] = 0.0e0;
18107 
18108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18109     v4lapl2tau2[0] = 0.0e0;
18110 
18111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18112     v4lapl2tau2[1] = 0.0e0;
18113 
18114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18115     v4lapl2tau2[2] = 0.0e0;
18116 
18117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18118     v4lapl2tau2[3] = 0.0e0;
18119 
18120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18121     v4lapl2tau2[4] = 0.0e0;
18122 
18123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18124     v4lapl2tau2[5] = 0.0e0;
18125 
18126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18127     v4lapl2tau2[6] = 0.0e0;
18128 
18129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18130     v4lapl2tau2[7] = 0.0e0;
18131 
18132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18133     v4lapl2tau2[8] = 0.0e0;
18134 
18135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18136     v4lapltau3[0] = 0.0e0;
18137 
18138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18139     v4lapltau3[1] = 0.0e0;
18140 
18141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18142     v4lapltau3[2] = 0.0e0;
18143 
18144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18145     v4lapltau3[3] = 0.0e0;
18146 
18147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18148     v4lapltau3[4] = 0.0e0;
18149 
18150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18151     v4lapltau3[5] = 0.0e0;
18152 
18153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18154     v4lapltau3[6] = 0.0e0;
18155 
18156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
18157     v4lapltau3[7] = 0.0e0;
18158 
18159   t53712 = t16021 * t154;
18160   t53714 = t16470 * t16021;
18161   t53734 = t33 * t16029 * t140;
18162   t53749 = t3938 * t3938;
18163   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18164     v4tau4[0] = t3 * (-0.3e1 / 0.32e2 * t14 * t18 * t21 * (0.9984e1 * t53712 + 0.9984e1 * t53714 + 0.294720e0 * t16039 * t154 * t1000 + 0.294720e0 * t16470 * sigma[0] * t16039 * t30) - 0.15545350000000000000e-1 * t115 * t136 * (-0.136032e3 * t53712 - 0.136032e3 * t53714 - 0.7858080e2 * t16029 * t154 * t14445 - 0.66697920e3 * t16470 * t53734 - 0.176328000e4 * t16557 * t53734 - 0.185911200e4 * t16567 * t53734 - 0.68423040e3 * t16573 * t53734) + t275 * (-0.60840e2 * t33115 * t14464 + 0.60840e2 * t16219 * t53749 + 0.41646960000000000000e-2 * t51274 * t1042 - 0.24988176000000000000e-1 * t16220 * t13189 * t3938 + 0.41646960000000000000e-1 * t16225 * t3332 * t14464 - 0.20823480000000000000e-1 * t16273 * t307 * t53749));
18165 
18166   t53788 = t3954 * t13210;
18167   t53791 = t3480 * t51349;
18168   t53815 = -0.12494088000000000000e-1 * t16220 * t3421 * t51199 + 0.62470440000000000000e-2 * t5051 * t3480 * t51326 - 0.20823480000000000000e-1 * t20102 * t3421 * t14464 - 0.45630e2 * t33115 * t14520 + 0.60840e2 * t10464 * t14523 + 0.60840e2 * t16219 * t1090 * t14464 - 0.91260e2 * t5050 * t3954 * t3938 - 0.12494088000000000000e-1 * t16220 * t3402 * t51203 - 0.12494088000000000000e-1 * t19862 * t53788 + 0.12494088000000000000e-1 * t5038 * t53791 + 0.31235220000000000000e-1 * t16225 * t3421 * t51203 - 0.24988176000000000000e-1 * t19857 * t53788 + 0.20823480000000000000e-1 * t5624 * t53791 + 0.31235220000000000000e-2 * t51409 * t3969 + 0.20823480000000000000e-2 * t51430 * t3972 + 0.10411740000000000000e-1 * t16225 * t3402 * t14464 + 0.10411740000000000000e-2 * t51274 * t1096 - 0.30420e2 * t3954 * t304 * t3938 - 0.15210e2 * t33848 * t14464;
18169   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18170     v4tau4[1] = t3694 * t53815;
18171 
18172   t53822 = t3900 * t3985;
18173   t53828 = t3954 * t13326;
18174   t53834 = t3954 * t3961;
18175   t53837 = t13666 * t13341;
18176   t53852 = -0.40560e2 * t3954 * t51532 + 0.40560e2 * t10680 * t14523 + 0.40560e2 * t10464 * t14539 + 0.40560e2 * t53822 * t651 - 0.16658784000000000000e-1 * t22146 * t13440 * t13210 - 0.83293920000000000000e-2 * t19862 * t53828 + 0.83293920000000000000e-2 * t19862 * t13666 * t13332 + 0.16658784000000000000e-1 * t19857 * t53834 - 0.16658784000000000000e-1 * t19857 * t53837 - 0.16658784000000000000e-1 * t19857 * t53828 + 0.27764640000000000000e-1 * t19867 * t53834 - 0.83293920000000000000e-2 * t19862 * t53837 + 0.20823480000000000000e-1 * t16225 * t3402 * t14520 + 0.20823480000000000000e-1 * t16225 * t13452 * t13210;
18177   t53877 = t46427 * t3985;
18178   t53886 = 0.27764640000000000000e-2 * t51405 * t14547 + 0.20823480000000000000e-2 * t51541 * t14544 - 0.20823480000000000000e-1 * t20102 * t13452 * t3938 + 0.40560e2 * t1764 * t53822 - 0.30420e2 * t33115 * t14536 - 0.30420e2 * t33848 * t14520 + 0.60840e2 * t16219 * t4023 * t3938 + 0.20823480000000000000e-2 * t51409 * t4030 - 0.41646960000000000000e-2 * t16220 * t13452 * t3941 - 0.41646960000000000000e-2 * t16220 * t13419 * t3938 - 0.27764640000000000000e-2 * t2153 * t53877 - 0.83293920000000000000e-2 * t1775 * t53877 - 0.55529280000000000000e-2 * t2165 * t53877 - 0.121680e3 * t44797 * t14523;
18179   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18180     v4tau4[2] = t3694 * (t53852 + t53886);
18181 
18182   t53912 = t13440 * t3954;
18183   t53924 = t3480 * t51806;
18184   t53937 = -0.30420e2 * t3954 * t304 * t4023 - 0.45630e2 * t33848 * t14536 + 0.60840e2 * t10680 * t14539 - 0.15210e2 * t33115 * t14613 + 0.60840e2 * t16219 * t14613 * t1036 - 0.91260e2 * t5050 * t52242 * t93 + 0.20823480000000000000e-2 * t51775 * t3972 + 0.10411740000000000000e-2 * t51747 * t1042 + 0.31235220000000000000e-2 * t51541 * t14620 - 0.12494088000000000000e-1 * t16220 * t13419 * t3961 - 0.12494088000000000000e-1 * t19862 * t53912 + 0.62470440000000000000e-2 * t5051 * t13419 * t3954 - 0.12494088000000000000e-1 * t16220 * t3402 * t51598 + 0.31235220000000000000e-1 * t16225 * t3402 * t14536 + 0.12494088000000000000e-1 * t5038 * t53924 - 0.24988176000000000000e-1 * t19857 * t53912 + 0.10411740000000000000e-1 * t16225 * t51767 * t1033 - 0.20823480000000000000e-1 * t20102 * t51767 * t1036 + 0.20823480000000000000e-1 * t5624 * t53924;
18185   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18186     v4tau4[3] = t3694 * t53937;
18187 
18188   t53938 = t27451 * t198;
18189   t53940 = t27185 * t27451;
18190   t53960 = t82 * t27140 * t184;
18191   t53975 = t4023 * t4023;
18192   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18193     v4tau4[4] = t3 * (-0.3e1 / 0.32e2 * t67 * t18 * t70 * (0.9984e1 * t53938 + 0.9984e1 * t53940 + 0.294720e0 * t27133 * t198 * t1055 + 0.294720e0 * t27185 * sigma[2] * t27133 * t79) - 0.15545350000000000000e-1 * t166 * t180 * (-0.136032e3 * t53938 - 0.136032e3 * t53940 - 0.7858080e2 * t27140 * t198 * t14594 - 0.66697920e3 * t27185 * t53960 - 0.176328000e4 * t27225 * t53960 - 0.185911200e4 * t27256 * t53960 - 0.68423040e3 * t27285 * t53960) + t275 * (-0.60840e2 * t33848 * t14613 + 0.60840e2 * t16219 * t53975 + 0.41646960000000000000e-2 * t51747 * t1096 - 0.24988176000000000000e-1 * t16220 * t13419 * t4023 + 0.41646960000000000000e-1 * t16225 * t3402 * t14613 - 0.20823480000000000000e-1 * t16273 * t307 * t53975));
18194 
18195 #ifndef XC_DONT_COMPILE_MXC
18196 
18197   if(order < 5) return;
18198 
18199 
18200 #endif
18201 
18202 #endif
18203 
18204 #endif
18205 
18206 #endif
18207 
18208 #endif
18209 
18210 
18211 }
18212 
18213